home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SPX10.ZIP / SPX_INT.ZIP / SPX_T3D.INT < prev    next >
Encoding:
Text File  |  1993-05-04  |  783 b   |  23 lines
  1. Unit SPX_T3D;
  2.  
  3. { SPX Library Version 1.0  Copyright 1993 Scott D. Ramsay }
  4.  
  5. interface
  6.  
  7. Uses SPX_VGA;
  8.  
  9. var
  10.   xc,yc,                               { center of screen     }
  11.   xv,yv,zv,                            { Viewer's position    }
  12.   sx,sy,sz  : integer;                 { Scale factors        }
  13.   sine,                                { sine table           }
  14.   cosine    : array[0..255] of integer;{ cosine table         }
  15.  
  16. procedure setpoints(xx,yy,zz:longint; var xd,yd : integer);
  17. procedure pset3d(xx,yy,zz:integer;n:byte);
  18. procedure line3d(x1,y1,z1,x2,y2,z2:integer;n:byte;clip:boolean);
  19. procedure rectangle3d(x1,y1,z1,x2,y2,z2:integer;n:byte);
  20. procedure rotate256xy(var x,y:integer;angle:byte);
  21. procedure rotate256xyz(var x,y,z:integer;xa,ya,za:byte);
  22.  
  23.