16/xw/modex/THREED.PAS

   1 unit ThreeD;\r
   2 interface\r
   3 \r
   4 type\r
   5   TVector       = record\r
   6     X, Y, Z     : longint;\r
   7   end;\r
   8   TPoint        = TVector;\r
   9 \r
  10 function tdFixedMul( F1, F2: longint ): longint;\r
  11 function tdGetSurfaceLight( var Normal: TPoint ): integer;\r
  12 function tdTransformToImage( var Source, Dest; Count, DeltaX, DeltaY: integer ): longint;\r
  13 \r
  14 procedure tdBackPlaneCull( var Poly, Vertex, Dest; Count, Step: word );\r
  15 procedure tdGetNormal( var Dest, P1, P2, P3: TVector );\r
  16 procedure tdRotate( var Source, Dest; Count: word );\r
  17 procedure tdSetLight( var Light: TVector );\r
  18 procedure tdSetRotation( RX, RY, RZ: word );\r
  19 procedure tdSetTranslation( var TV: TVector );\r
  20 procedure tdSetPerspective( PD, XF, YF: longint );\r
  21 procedure tdTransform( var Source, Dest; Count: word );\r
  22 procedure tdTransformLight( var Source, Dest; Count: word );\r
  23 \r
  24 implementation\r
  25 \r
  26 function tdGetSurfaceLight;                             external;\r
  27 procedure tdSetRotation( RX, RY, RZ: word );            external;\r
  28 procedure tdGetNormal;                                  external;\r
  29 procedure tdSetTranslation( var TV: TVector );          external;\r
  30 procedure tdTransform( var Source, Dest; Count: word ); external;\r
  31 procedure tdRotate;                                     external;\r
  32 function  tdTransformToImage;                           external;\r
  33 procedure tdSetLight( var Light: TVector );             external;\r
  34 procedure tdSetPerspective;                             external;\r
  35 procedure tdTransformLight;                             external;\r
  36 function tdFixedMul( F1, F2: longint ): longint;        external;\r
  37 procedure tdBackPlaneCull;                              external;\r
  38 {$L THREED}\r
  39 \r
  40 end.\r