Unit Var_3d;

Interface
Uses Tools;
Const Txt_Number=5;             {number of used textures}
      Txt_Size:                 {size specifications of textures}
        Array[0..Txt_Number-1] of Word=
        ($0a0a,$0a0a,$0a0a,$0a0a,$0a0a);

Var  vz:Word;                   {shifting into the screen}
    rotx,                       {angle of rotation}
    roty,
    rotz:word;                  {3 degree steps}
    sf_sort:Boolean;            {sort surfaces ?}
    Fill:Boolean;               {true: Fill / false:Lines}
    sf_shift:Boolean;           {suppress surface shift ?}
    Texture:Boolean;            {use textures ?}
    lightsrc:Boolean;           {use light source ?}
    Glass:Boolean;              {glass surface ?}

    Txt_Data:Array[0..Txt_Number-1] of Pointer;
                                {location of textures in memory}
    Txt_Offs:Array[0..Txt_Number-1] of Word;
                                {offset within the texture picture}
    Txt_Pic:Pointer;            {pointer to texture picture}

    Sine:Array[0..149] of Word;
    {sine table for rotations}

Implementation
Begin
  Sin_Gen(Sine,120,16384,0);
  Move(Sine[0],Sine[120],60);
End.
