home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 13 / CD_ASCQ_13_0494.iso / maj / 2200 / imagic2.exe / AFFTIMAG.DOC < prev    next >
Text File  |  1993-07-09  |  2KB  |  64 lines
  1. (**********************************
  2.  *   IMAGIQUE  * Burckel François *
  3.  **********************************)
  4.  
  5. UNIT affTimag;
  6.  
  7. INTERFACE
  8.  
  9. USES dos,crt,graph;
  10.  
  11. CONST _page:byte=0;
  12.        mode:byte=4; { mode par défaut VGA 640 x 480, 16 couleurs }
  13.        nb_colors:word=16;
  14.        nb_colors_connu:boolean=false;
  15.        {
  16.         c'est le premier appel d'affichage d'image qui détermine ce nombre,
  17.         16 ou 256, qui ne peut plus varier par la suite: le Turbo Pascal ne
  18.         le permet pas ( un driver chargé ne peut pas être déchargé );
  19.         ce nombre est ainsi fixé dans la procédure Complete_chemin
  20.        }
  21.  
  22.  
  23. TYPE str3=string[3];
  24.      DacPalette= array[0..255] of array[0..2] of Byte;
  25.  
  26. VAR signe,c,r,attrib,lis_attrib,lis_chemin:byte;
  27.     chemin_str,chemin:string;
  28.     attrib_str:str3;
  29.     dessin_sur_page:ARRAY[1..500] of boolean;
  30.     page:longint;
  31.     i:integer;
  32.     stop_lecture:boolean;
  33.     le_fichier:file of byte;
  34.     vgapalette:dacpalette;
  35.  
  36. PROCEDURE son1;
  37. PROCEDURE son2;
  38. FUNCTION en_attente:char;
  39. function repert_actuel:pathstr;
  40. { donne le répertoire actif }
  41. FUNCTION signe_en_page(s:byte):boolean;
  42. { affiche le caractère à l'écran et renvoie false si page pleine }
  43. PROCEDURE ote_blancs(var text:str3);
  44. FUNCTION ramene_image(colonne_1,ligne_1:integer;chemin:pathstr):byte;
  45. { elle affiche les images }
  46. FUNCTION apres_image:byte;
  47. { affiche les éventuels messages d'erreurs d'affichage de l'image }
  48. PROCEDURE complete_attrib(symb:byte);
  49. { lecture d'un attribut lorsque ASCII 1 est rencontré }
  50. PROCEDURE complete_chemin(symb:byte);
  51. { lecture d'un chemin lorsque ASCII 2 est rencontré }
  52. FUNCTION fichier_lu(chemin:string):boolean;
  53. (*
  54. renvoie
  55.         false si fichier non trouvé ou non lu
  56.         true si fichier trouvé et lu
  57. *)
  58. PROCEDURE graphique(mode:byte); { installe le mode graphique }
  59. FUNCTION attente:byte;          { attente d'une touche appuyée }
  60. procedure SetVGAPalette256(PalBuf : DacPalette);
  61.  
  62.  
  63. IMPLEMENTATION
  64.