home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 13 / CD_ASCQ_13_0494.iso / maj / 2200 / imagic2.exe / AFFIMAGE.DOC next >
Text File  |  1993-07-09  |  2KB  |  53 lines
  1. UNIT AffImage;
  2. (********************************
  3.      "Affiche une Image"        *
  4.      Unité en Turbo Pascal      *
  5.      Burckel  François          *
  6. *********************************)
  7.  
  8. INTERFACE
  9.  
  10. USES Dos,Crt,Graph;
  11.  
  12. CONST
  13.  
  14.     touches_de_sortie:set of byte=[1,28,57]; { voir IMAG.DOC}
  15.     mode:byte=4; (*  à (re)préciser;  voir tableau
  16.  
  17.                      ┌──────┬────────────┬──────────┐
  18.                      │ mode │ résolution │ couleurs │
  19.                      ├──────┼────────────┼──────────┤
  20.                      │   1  │  320x200   │    16    │
  21.                      │   2  │  640x200   │    16    │
  22.                      │   3  │  640x350   │    16    │
  23.                      │   4  │  640x480   │    16    │
  24.                      │   5  │  800x600   │    16    │
  25.                      │   6  │ 1024x768   │    16    │
  26.                      │   7  │  320x200   │   256    │
  27.                      │   8  │  640x400   │   256    │
  28.                      │   9  │  640x480   │   256    │
  29.                      │  10  │  800x600   │   256    │
  30.                      │  11  │ 1024x768   │   256    │
  31.                      └──────┴────────────┴──────────┘*)
  32.  
  33.  
  34. FUNCTION result_aff(
  35.           colonne_1,ligne_1:    { c'est là qu'il faut afficher le coin  }
  36.              integer;           {    supérieur gauche de l'image        }
  37.           chemin:pathstr { c'est le chemin d'accès au fichier à afficher }
  38.                    ):byte;
  39.  
  40. (* elle renvoie:
  41.          0 si tout s'est bien passé
  42.          1 si fichier pas trouvé
  43.          2 si la mémoire vive est insuffisante pour l'opération
  44.          3 si l'image est trop grande pour être affichée aux coordonnées voulues
  45.          4 si fichier illisible
  46.          5 si mode graphique impossible à initialiser
  47. *)
  48.  
  49. IMPLEMENTATION
  50.  
  51.  ...
  52. END.
  53.