home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GFXFX2.ZIP / UNITINT.ZIP / U_3D.INT next >
Text File  |  1995-02-14  |  551b  |  31 lines
  1.  
  2. (*
  3. ** 3d unit
  4. ** By Bas van Gaalen
  5. *)
  6.  
  7. unit u_3d;
  8.  
  9. interface
  10.  
  11. const
  12.   maxpolys=100;
  13.   divd:word=128;
  14.   dist:word=200;
  15.  
  16. type
  17.   polytype=array[0..maxpolys] of integer;
  18.  
  19. var
  20.   polyz,pind:polytype;
  21.   ctab,stab:array[0..255] of integer;
  22.  
  23. procedure quicksort(hi:integer);
  24. procedure rotate(var x,y,z:integer; dx,dy,dz:integer);
  25. procedure rrotate(var x,y,z:real; dx,dy,dz:integer); { real rotate }
  26. procedure conv3dto2d(var x,y:integer; ox,oy,oz:integer);
  27. function checkfront(x1,y1,x2,y2,x3,y3:integer):boolean;
  28.  
  29. implementation
  30.  
  31.