clear

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

diff --git a/16/x_/modex/THREED.PAS b/16/x_/modex/THREED.PAS
deleted file mode 100755 (executable)
index 8b712c9..0000000
--- a/16/x_/modex/THREED.PAS
+++ /dev/null
@@ -1,40 +0,0 @@
-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