home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / var_3d.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-10-17  |  1.2 KB  |  35 lines
  1. Unit Var_3d;
  2.  
  3. Interface
  4. Uses Tools;
  5. Const Txt_Nbre=5;       {nombre de textures utilisées }
  6.       Txt_Taille:       {tailles des textures }
  7.         Array[0..Txt_Nbre-1] of Word=
  8.         ($0a0a,$0a0a,$0a0a,$0a0a,$0a0a);
  9.  
  10. Var  vz:Word;                   {déplacement dans l'écran }
  11.     rotx,                       {angle de rotation }
  12.     roty,
  13.     rotz:word;                  {rotation en unités de 3 degrés }
  14.     su_sort:Boolean;            {tri des surfaces ?}
  15.     Remplir:Boolean;            {true : remplir / false : lignes}
  16.     su_cacher:Boolean;          {traitement des faces cachées ?}
  17.     Texture:Boolean;            {utiliser des textures ?}
  18.     lightsrc:Boolean;           {utiliser une source de lumière ?}
  19.     Verre:Boolean;              {surfaces en verre ?}
  20.  
  21.     Txt_Data:Array[0..Txt_Nbre-1] of Pointer;
  22.                                   {situation des textures en mémoire }
  23.     Txt_Offs:Array[0..Txt_Nbre-1] of Word;
  24.     {offset à l'intérieur de l'image de la texture }
  25.     Txt_Pic:Pointer;              {pointeur sur l'image de la texture }
  26.  
  27.     Sinus:Array[0..149] of Word;  {table de sinus pour les rotations }
  28.  
  29. Implementation
  30. Begin
  31.   Sin_Gen(Sinus,120,16384,0);
  32.   Move(Sinus[0],Sinus[120],60);
  33. End.
  34.  
  35.