wwww

[16.git] / 16 / x_ / modex / THREED.PAS

diff --git a/16/x_/modex/THREED.PAS b/16/x_/modex/THREED.PAS
new file mode 100755 (executable)
index 0000000..8b712c9
--- /dev/null
+++ b/16/x_/modex/THREED.PAS
@@ -0,0 +1,40 @@
+unit ThreeD;\r
+interface\r
+\r
+type\r
+  TVector       = record\r
+    X, Y, Z     : longint;\r
+  end;\r
+  TPoint        = TVector;\r
+\r
+function tdFixedMul( F1, F2: longint ): longint;\r
+function tdGetSurfaceLight( var Normal: TPoint ): integer;\r
+function tdTransformToImage( var Source, Dest; Count, DeltaX, DeltaY: integer ): longint;\r
+\r
+procedure tdBackPlaneCull( var Poly, Vertex, Dest; Count, Step: word );\r
+procedure tdGetNormal( var Dest, P1, P2, P3: TVector );\r
+procedure tdRotate( var Source, Dest; Count: word );\r
+procedure tdSetLight( var Light: TVector );\r
+procedure tdSetRotation( RX, RY, RZ: word );\r
+procedure tdSetTranslation( var TV: TVector );\r
+procedure tdSetPerspective( PD, XF, YF: longint );\r
+procedure tdTransform( var Source, Dest; Count: word );\r
+procedure tdTransformLight( var Source, Dest; Count: word );\r
+\r
+implementation\r
+\r
+function tdGetSurfaceLight;                             external;\r
+procedure tdSetRotation( RX, RY, RZ: word );            external;\r
+procedure tdGetNormal;                                  external;\r
+procedure tdSetTranslation( var TV: TVector );          external;\r
+procedure tdTransform( var Source, Dest; Count: word ); external;\r
+procedure tdRotate;                                     external;\r
+function  tdTransformToImage;                           external;\r
+procedure tdSetLight( var Light: TVector );             external;\r
+procedure tdSetPerspective;                             external;\r
+procedure tdTransformLight;                             external;\r
+function tdFixedMul( F1, F2: longint ): longint;        external;\r
+procedure tdBackPlaneCull;                              external;\r
+{$L THREED}\r
+\r
+end.\r