home *** CD-ROM | disk | FTP | other *** search
/ PC Underground / UNDERGROUND.ISO / graphic / var_3d.pas < prev    next >
Pascal/Delphi Source File  |  1995-07-28  |  1KB  |  35 lines
  1. Unit Var_3d;
  2.  
  3. Interface
  4. Uses Tools;
  5. Const Txt_Number=5;             {number of used textures}
  6.       Txt_Size:                 {size specifications of textures}
  7.         Array[0..Txt_Number-1] of Word=
  8.         ($0a0a,$0a0a,$0a0a,$0a0a,$0a0a);
  9.  
  10. Var  vz:Word;                   {shifting into the screen}
  11.     rotx,                       {angle of rotation}
  12.     roty,
  13.     rotz:word;                  {3 degree steps}
  14.     sf_sort:Boolean;            {sort surfaces ?}
  15.     Fill:Boolean;               {true: Fill / false:Lines}
  16.     sf_shift:Boolean;           {suppress surface shift ?}
  17.     Texture:Boolean;            {use textures ?}
  18.     lightsrc:Boolean;           {use light source ?}
  19.     Glass:Boolean;              {glass surface ?}
  20.  
  21.     Txt_Data:Array[0..Txt_Number-1] of Pointer;
  22.                                 {location of textures in memory}
  23.     Txt_Offs:Array[0..Txt_Number-1] of Word;
  24.                                 {offset within the texture picture}
  25.     Txt_Pic:Pointer;            {pointer to texture picture}
  26.  
  27.     Sine:Array[0..149] of Word;
  28.     {sine table for rotations}
  29.  
  30. Implementation
  31. Begin
  32.   Sin_Gen(Sine,120,16384,0);
  33.   Move(Sine[0],Sine[120],60);
  34. End.
  35.