Inicio Explorar Ayuda
Iniciar sesión
pascal
/
freepascal.compiler
espejo de https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Archivos Incidencias 0 Wiki
Árbol: ec2f18f8be
Ramas Etiquetas
freepascal.comp...
/
psy-q-sdk
/
bindings
/
libgte.pas

libgte.pas 24 KB
Histórico Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394 
  1. {$MODE OBJFPC}
    2. 

  2. unit libgte; 
    3. 

  3. interface
    4. 

  4. 

  5. 

  6. // Geometry Structures:
    7. 

  7. const
    8. 

  8. 		ONE	= 4096;	// GTE regards 4096 as 1.0
    9. 

  9. 		TMPVTXNUM = 16;	// Clip Function Header
    10. 

  10. 		OUTVTXNUM = 10;
    11. 

  11. 

  12. 

  13. type
    14. 

  14. 	MATRIX = packed record
    15. 

  15. 				m : array [0..2, 0..2] of smallint;		// 3x3 rotation matrix
    16. 

  16.         		t : array [0..2] of longint;		// transfer vector
    17. 

  17.         	 end;
    18. 

  18.     PMATRIX = ^MATRIX;
    19. 

  19. 

  20.     VECTOR = packed record							// long word type 3D vector
    21. 

  21. 				vx, vy : longint;
    22. 

  22. 				vz, pad : longint;
    23. 

  23. 			 end;
    24. 

  24. 	PVECTOR = ^VECTOR;
    25. 

  25. 	
    26. 

  26. 	SVECTOR = packed record							// short word type 3D vector
    27. 

  27. 				vx, vy : smallint;
    28. 

  28. 				vz, pad : smallint;
    29. 

  29. 			  end;
    30. 

  30. 	PSVECTOR = ^SVECTOR;
    31. 

  31. 	       
    32. 

  32. 	CVECTOR = packed record							// color type vector
    33. 

  33. 			  	r, g, b, cd : byte;
    34. 

  34. 			  end;
    35. 

  35. 	PCVECTOR = ^CVECTOR;
    36. 

  36. 	       
    37. 

  37. 	DVECTOR = packed record							// 2D short vector
    38. 

  38. 				vx, vy : smallint;
    39. 

  39. 			  end;
    40. 

  40. 	PDVECTOR = ^DVECTOR;
    41. 

  41. 

  42. 	EVECTOR = packed record
    43. 

  43. 				v : SVECTOR;						// Object(Local) 3D Vertex
    44. 

  44. 				sxyz : VECTOR;						// Screen 3D Vertex
    45. 

  45. 				sxy : DVECTOR;						// Screen 2D Vertex
    46. 

  46. 				rgb : CVECTOR;						// Vertex Color Data
    47. 

  47. 				txuv, pad : smallint;				// Texture Mapping Data
    48. 

  48. 				chx, chy : longint;					// Clip Window Data
    49. 

  49. 		     end;
    50. 

  50. 	PEVECTOR = ^EVECTOR;
    51. 

  51. 	PPEVECTOR = ^PEVECTOR;
    52. 

  52. 

  53. 	RVECTOR = packed record							// division vertex data vector
    54. 

  54. 				v : SVECTOR;
    55. 

  55. 				uv : array [0..1] of byte;
    56. 

  56. 	 			pad : word;
    57. 

  57. 				c : CVECTOR;
    58. 

  58. 				sxy : DVECTOR;
    59. 

  59. 				sz : dword;							// clip z-data
    60. 

  60. 			  end;
    61. 

  61. 	PRVECTOR = ^RVECTOR;
    62. 

  62. 

  63. 	CRVECTOR3 = packed record						// recursive vector for triangles
    64. 

  64. 					r01, r12, r20 : RVECTOR;
    65. 

  65. 					r0, r1, r2 : PRVECTOR;
    66. 

  66. 					rtn : pdword;
    67. 

  67. 				end;
    68. 

  68. 

  69. 	DIVPOLYGON3 = packed record						// division buffer for triangles
    70. 

  70. 					ndiv : dword;					// number of divisions
    71. 

  71. 					pih, piv : dword;				// clipping area
    72. 

  72. 					clut, tpage : word;
    73. 

  73. 					rgbc : CVECTOR;
    74. 

  74. 					ot : pdword;
    75. 

  75. 					r0, r1, r2 : RVECTOR;
    76. 

  76. 					cr : array [0..4] of CRVECTOR3;
    77. 

  77. 				  end;
    78. 

  78. 

  79. 	CRVECTOR4 = packed record						// recursive vector for four-sided polygons
    80. 

  80. 					r01, r02, r31, r32, rc : RVECTOR;
    81. 

  81. 					r0, r1, r2, r3 : PRVECTOR;
    82. 

  82. 					rtn : pdword;
    83. 

  83. 				end;
    84. 

  84. 

  85. 	DIVPOLYGON4 = packed record						// division buffer for four-sided polygons
    86. 

  86. 					ndiv : dword;					// number of divisions
    87. 

  87. 					pih, piv : dword;				// clipping area
    88. 

  88. 					clut, tpage : word;
    89. 

  89. 					rgbc : CVECTOR;
    90. 

  90. 					ot : pdword;
    91. 

  91. 					r0, r1, r2, r3 : RVECTOR;
    92. 

  92. 					cr : array [0..4] of CRVECTOR4;
    93. 

  93. 				 end;
    94. 

  94. 

  95. 	SPOL = packed record
    96. 

  96.         		xy : array [0..2] of smallint;
    97. 

  97.         		uv : array [0..1] of smallint;
    98. 

  98.         		rgb : array [0..2] of smallint;
    99. 

  99.            end;
    100. 

  100.     PSPOL = ^SPOL;
    101. 

  101. 

  102.                                         
    103. 

  103.     POL4 = packed record							// polygon: 41 bytes/1 polygon
    104. 

  104.         	sxy : array [0..3, 0..1] of smallint;   //0..7
    105. 

  105.         	sz : array [0..3, 0..1] of smallint;    // 8..15sz[][1] is dummy
    106. 

  106.         	uv  : array [0..3, 0..1] of smallint;   // 16..23
    107. 

  107.         	rgb : array [0..3, 0..2] of smallint;   // 23..34
    108. 

  108.         	code : smallint;                   		// 35...  F4:5, TF4:6, G4:7, TG4:8
    109. 

  109.            end;
    110. 

  110.     PPOL4 = ^POL4;
    111. 

  111. 

  112.     POL3 = packed record
    113. 

  113.         	sxy : array [0..2, 0..1] of smallint;
    114. 

  114.         	sz : array [0..2, 0..1] of smallint;   	// sz[][1] is dummy
    115. 

  115.         	uv : array [0..2, 0..1] of smallint;
    116. 

  116.         	rgb : array [0..2, 0..2] of smallint;
    117. 

  117.         	code : smallint;                   		// F3:1, TF3:2, G3:3, TG3:4
    118. 

  118.     	  end;
    119. 

  119.     PPOL3 = ^POL3;
    120. 

  120. 

  121.    	TMESH = packed record
    122. 

  122. 	   			v : PSVECTOR;                     	// shared vertices
    123. 

  123.         		n : PSVECTOR;                     	// shared normals
    124. 

  124.         		u : PSVECTOR;                     	// shared texture addresses
    125. 

  125.         		c : PCVECTOR;                     	// shared colors
    126. 

  126.         		len : dword;                    	// mesh length(=#vertex)
    127. 

  127.         	end;
    128. 

  128. 

  129. 

  130.     QMESH = packed record
    131. 

  131.         		v : PSVECTOR;                     	// shared vertices
    132. 

  132.         		n : PSVECTOR;                     	// shared normals
    133. 

  133.         		u : PSVECTOR;                     	// shared texture addresses
    134. 

  134.         		c : PCVECTOR;                     	// shared colors
    135. 

  135.         		lenv : dword;                   	// mesh length_V(=#vertex_V)
    136. 

  136.         		lenh : dword;                   	// mesh length_H(=#vertex_H)
    137. 

  137.     		end;
    138. 

  138. 

  139. 

  140. 

  141. procedure InitGeom; stdcall; external;
    142. 

  142. 

  143. procedure EigenMatrix(m, t: PMATRIX); stdcall; external;
    144. 

  144. function IsIdMatrix(m: PMATRIX): longint; stdcall; external;
    145. 

  145. function MulMatrix0(m0, m1, m2: PMATRIX): PMATRIX; stdcall; external;
    146. 

  146. function MulRotMatrix0(m0, m1: PMATRIX): PMATRIX; stdcall; external;
    147. 

  147. function MulMatrix(m0, m1: PMATRIX): PMATRIX; stdcall; external;
    148. 

  148. function MulMatrix2(m0, m1: PMATRIX): PMATRIX; stdcall; external;
    149. 

  149. function MulRotMatrix(m0: PMATRIX): PMATRIX; stdcall; external;
    150. 

  150. function SetMulMatrix(m0, m1: PMATRIX): PMATRIX; stdcall; external;
    151. 

  151. function SetMulRotMatrix(m0: PMATRIX): PMATRIX; stdcall; external;
    152. 

  152. 

  153. function ApplyMatrix(m: PMATRIX; v0: PSVECTOR; v1: PVECTOR): PVECTOR; stdcall; external;
    154. 

  154. function ApplyRotMatrix(v0: PSVECTOR; v1: PVECTOR): PVECTOR; stdcall; external;
    155. 

  155. function ApplyRotMatrixLV(v0, v1: PVECTOR): PVECTOR; stdcall; external;
    156. 

  156. function ApplyMatrixLV(m: PMATRIX; v0, v1: PVECTOR): PVECTOR; stdcall; external;
    157. 

  157. 

  158. function ApplyMatrixSV(m: PMATRIX; v0, v1: PSVECTOR): PSVECTOR; stdcall; external;
    159. 

  159. 

  160. function ApplyTransposeMatrixLV(m: PMATRIX; v0, v1: PVECTOR): PVECTOR; stdcall; external;
    161. 

  161. 

  162. function RotMatrix(r: PSVECTOR; m: PMATRIX): PMATRIX; stdcall; external;
    163. 

  163. function RotMatrixXZY(r: PSVECTOR; m: PMATRIX): PMATRIX; stdcall; external;
    164. 

  164. function RotMatrixYXZ(r: PSVECTOR; m: PMATRIX): PMATRIX; stdcall; external;
    165. 

  165. function RotMatrixYZX(r: PSVECTOR; m: PMATRIX): PMATRIX; stdcall; external;
    166. 

  166. function RotMatrixZXY(r: PSVECTOR; m: PMATRIX): PMATRIX; stdcall; external;
    167. 

  167. function RotMatrixZYX(r: PSVECTOR; m: PMATRIX): PMATRIX; stdcall; external;
    168. 

  168. function RotMatrix_gte(r: PSVECTOR; m: PMATRIX): PMATRIX; stdcall; external;
    169. 

  169. function RotMatrixYXZ_gte(r: PSVECTOR; m: PMATRIX): PMATRIX; stdcall; external;
    170. 

  170. function RotMatrixZYX_gte(r: PSVECTOR; m: PMATRIX): PMATRIX; stdcall; external;
    171. 

  171. function RotMatrixX(r: longint; m: PMATRIX): PMATRIX; stdcall; external;
    172. 

  172. function RotMatrixY(r: longint; m: PMATRIX): PMATRIX; stdcall; external;
    173. 

  173. function RotMatrixZ(r: longint; m: PMATRIX): PMATRIX; stdcall; external;
    174. 

  174. function RotMatrixC(r: PSVECTOR; m: PMATRIX): PMATRIX; stdcall; external;
    175. 

  175. function TransMatrix(m: PMATRIX; v: PVECTOR): PMATRIX; stdcall; external;
    176. 

  176. function ScaleMatrix(m: PMATRIX; v: PVECTOR): PMATRIX; stdcall; external;
    177. 

  177. function ScaleMatrixL(m: PMATRIX; v: PVECTOR): PMATRIX; stdcall; external;
    178. 

  178. function TransposeMatrix(m0, m1: PMATRIX): PMATRIX; stdcall; external;
    179. 

  179. function CompMatrix(m0, m1, m2: PMATRIX): PMATRIX; stdcall; external;
    180. 

  180. function CompMatrixLV(m0, m1, m2: PMATRIX): PMATRIX; stdcall; external;
    181. 

  181. 

  182. procedure MatrixNormal(m, n: PMATRIX); stdcall; external;
    183. 

  183. procedure MatrixNormal_0(m, n: PMATRIX); stdcall; external;
    184. 

  184. procedure MatrixNormal_1(m, n: PMATRIX); stdcall; external;
    185. 

  185. procedure MatrixNormal_2(m, n: PMATRIX); stdcall; external;
    186. 

  186. 

  187. procedure SetRotMatrix(m: PMATRIX); stdcall; external;
    188. 

  188. procedure SetLightMatrix(m: PMATRIX); stdcall; external;
    189. 

  189. procedure SetColorMatrix(m: PMATRIX); stdcall; external;
    190. 

  190. procedure SetTransMatrix(m: PMATRIX); stdcall; external;
    191. 

  191. procedure PushMatrix; stdcall; external;
    192. 

  192. procedure PopMatrix; stdcall; external;
    193. 

  193. procedure ReadRotMatrix(m: PMATRIX); stdcall; external;
    194. 

  194. procedure ReadLightMatrix(m: PMATRIX); stdcall; external;
    195. 

  195. procedure ReadColorMatrix(m: PMATRIX); stdcall; external;
    196. 

  196. procedure SetRGBcd(v: PCVECTOR); stdcall; external;
    197. 

  197. procedure SetBackColor(rbk, gbk, bbk: longint); stdcall; external;
    198. 

  198. procedure SetFarColor(rfc, gfc, bfc: longint); stdcall; external;
    199. 

  199. procedure SetGeomOffset(ofx, ofy: longint); stdcall; external;
    200. 

  200. procedure SetGeomScreen(h: longint); stdcall; external;
    201. 

  201. procedure ReadSZfifo3(sz0, sz1, sz2: plongint); stdcall; external;
    202. 

  202. procedure ReadSZfifo4(szx, sz0, sz1, sz2: plongint); stdcall; external;
    203. 

  203. procedure ReadSXSYfifo(sxy0, sxy1, sxy2: plongint); stdcall; external;
    204. 

  204. procedure ReadRGBfifo(v0, v1, v2: PCVECTOR); stdcall; external;
    205. 

  205. procedure ReadGeomOffset(ofx, ofy: plongint); stdcall; external;
    206. 

  206. function ReadGeomScreen: longint; stdcall; external;
    207. 

  207. 

  208. procedure TransRot_32(v0, v1: PVECTOR; flag: plongint); stdcall; external;
    209. 

  209. function TransRotPers(v0: PSVECTOR; sxy: plongint; p: plongint; flag: plongint): longint; stdcall; external;
    210. 

  210. function TransRotPers3(v0, v1, v2: PSVECTOR; sxy0, sxy1, sxy2: plongint; p: plongint; flag: plongint): longint; stdcall; external;
    211. 

  211. 

  212. //procedure pers_map(abuf: longint; vertex: pointer; int tex[4][2], u_short *dtext); stdcall; external;
    213. 

  213. procedure PhongLine(istart_x, iend_x: longint; p, q: longint; pixx: pointer; fs, ft, i4, det: longint); stdcall; external;
    214. 

  214. 

  215. function RotTransPers(v0: PSVECTOR; sxy, p, flag: plongint): longint; stdcall; external;
    216. 

  216. function RotTransPers3(v0, v1, v2: PSVECTOR; sxy0, sxy1, sxy2: plongint; p: plongint; flag: plongint): longint; stdcall; external;
    217. 

  217. procedure RotTrans(v0: PSVECTOR; v1: PVECTOR; flag: plongint); stdcall; external;
    218. 

  218. procedure RotTransSV(v0, v1: PSVECTOR; flag: plongint); stdcall; external;
    219. 

  219. procedure LocalLight(v0: PSVECTOR; v1: PVECTOR); stdcall; external;
    220. 

  220. procedure LightColor(v0, v1: PVECTOR); stdcall; external;
    221. 

  221. procedure DpqColorLight(v0: PVECTOR; v1: PCVECTOR; p: longint; v2: PCVECTOR); stdcall; external;
    222. 

  222. procedure DpqColor(v0: PCVECTOR; p: longint; v1: PCVECTOR); stdcall; external;
    223. 

  223. procedure DpqColor3(v0, v1, v2: PCVECTOR; p: longint; v3, v4, v5: PCVECTOR); stdcall; external;
    224. 

  224. procedure Intpl(v0:PVECTOR; p: longint; v1: PCVECTOR); stdcall; external;
    225. 

  225. function Square12(v0, v1: PVECTOR):PVECTOR; stdcall; external;
    226. 

  226. function Square0(v0, v1: PVECTOR):PVECTOR; stdcall; external;
    227. 

  227. function SquareSL12(v0: PSVECTOR; v1: PVECTOR): PVECTOR; stdcall; external;
    228. 

  228. function SquareSL0(v0: PSVECTOR; v1: PVECTOR): PVECTOR; stdcall; external;
    229. 

  229. function SquareSS12(v0, v1: PSVECTOR): PSVECTOR; stdcall; external;
    230. 

  230. function SquareSS0(v0, v1: PSVECTOR): PSVECTOR; stdcall; external;
    231. 

  231. procedure NormalColor(v0: PSVECTOR; v1: PCVECTOR); stdcall; external;
    232. 

  232. procedure NormalColor3(v0, v1, v2: PSVECTOR; v3, v4, v5:PCVECTOR); stdcall; external;
    233. 

  233. procedure NormalColorDpq(v0: PSVECTOR; v1: PCVECTOR; p: longint; v2: PCVECTOR); stdcall; external;
    234. 

  234. procedure NormalColorDpq3(v0, v1, v2: PSVECTOR; v3: PCVECTOR; p: longint; v4, v5, v6: PCVECTOR); stdcall; external;
    235. 

  235. procedure NormalColorCol(v0: PSVECTOR; v1, v2: PCVECTOR); stdcall; external;
    236. 

  236. procedure NormalColorCol3(v0, v1, v2: PSVECTOR; v3, v4, v5, v6: PCVECTOR); stdcall; external;
    237. 

  237. procedure ColorDpq(v0: PVECTOR; v1: PCVECTOR; p: longint; v2: PCVECTOR); stdcall; external;
    238. 

  238. procedure ColorCol(v0: PVECTOR; v1, v2: PCVECTOR); stdcall; external;
    239. 

  239. function NormalClip(sxy0, sxy1, sxy2: longint): longint; stdcall; external;
    240. 

  240. function AverageZ3(sz0, sz1, sz2: longint): longint; stdcall; external;
    241. 

  241. function AverageZ4(sz0, sz1, sz2, sz3: longint): longint; stdcall; external;
    242. 

  242. procedure OuterProduct12(v0, v1, v2: PVECTOR); stdcall; external;
    243. 

  243. procedure OuterProduct0(v0, v1, v2: PVECTOR); stdcall; external;
    244. 

  244. function Lzc(data: longint): longint; stdcall; external;
    245. 

  245. 

  246. function RotTransPers4(v0, v1, v2, v3: PSVECTOR; sxy0, sxy1, sxy2, sxy3: plongint; p, flag: plongint): longint; stdcall; external;
    247. 

  247. procedure RotTransPersN(v0: PSVECTOR; v1: PDVECTOR; sz: pword; p, flag: pword; n: longint); stdcall; external;
    248. 

  248. procedure RotTransPers3N(v0: PSVECTOR; v1: PDVECTOR; sz: pword; flag: pword; n: longint); stdcall; external;
    249. 

  249. procedure RotMeshH(Yheight: pword; Vo: PDVECTOR; sz: pword; flag: pword; Xoffset, Zoffset: smallint; m, n: smallint; base: PDVECTOR); stdcall; external;
    250. 

  250. function RotAverage3(v0, v1, v2: PSVECTOR; sxy0, sxy1, sxy2: plongint; p, flag: plongint): longint; stdcall; external;
    251. 

  251. function RotAverage4(v0, v1, v2, v3: PSVECTOR; sxy0, sxy1, sxy2, sxy3: plongint; p, flag: plongint): longint; stdcall; external;
    252. 

  252. function RotNclip3(v0, v1, v2: PSVECTOR; sxy0, sxy1, sxy2: plongint; p, otz, flag: plongint): longint; stdcall; external;
    253. 

  253. function RotNclip4(v0, v1, v2, v3: PSVECTOR; sxy0, sxy1, sxy2, sxy3: plongint; p, otz, flag: plongint): longint; stdcall; external;
    254. 

  254. function RotAverageNclip3(v0, v1, v2: PSVECTOR; sxy0, sxy1, sxy2: plongint; p, otz, flag: plongint): longint; stdcall; external;
    255. 

  255. function RotAverageNclip4(v0, v1, v2, v3: PSVECTOR; sxy0, sxy1, sxy2, sxy3: plongint; p, otz, flag: plongint): longint; stdcall; external;
    256. 

  256. function RotColorDpq(v0, v1: PSVECTOR; v2: PCVECTOR; sxy: plongint; v3: PCVECTOR; flag: plongint): longint; stdcall; external;
    257. 

  257. function RotColorDpq3(v0, v1, v2, v3, v4, v5: PSVECTOR; v6: PCVECTOR; sxy0, sxy1, sxy2: plongint; v7, v8, v9: PCVECTOR; flag: plongint): longint; stdcall; external;
    258. 

  258. function RotAverageNclipColorDpq3(v0, v1, v2, v3, v4, v5: PSVECTOR; v6: PCVECTOR; sxy0, sxy1, sxy2: plongint; v7, v8, v9: PCVECTOR; otz, flag: plongint): longint; stdcall; external;
    259. 

  259. function RotAverageNclipColorCol3(v0, v1, v2, v3, v4, v5: PSVECTOR; v6: PCVECTOR; sxy0, sxy1, sxy2: plongint; v7, v8, v9: PCVECTOR; otz, flag: plongint): longint; stdcall; external;
    260. 

  260. function RotColorMatDpq(v0, v1: PSVECTOR; v2: PCVECTOR; sxy: plongint; v3: PCVECTOR; matc, flag: longint): longint; stdcall; external;
    261. 

  261. procedure ColorMatDpq(v0: PSVECTOR; v1: PCVECTOR; p: longint; v2: PCVECTOR; matc: longint); stdcall; external;
    262. 

  262. procedure ColorMatCol(v0: PSVECTOR; v1, v2: PCVECTOR; matc: longint); stdcall; external;
    263. 

  263. procedure LoadAverage12(v0, v1: PVECTOR; p0, p1: longint; v2: PVECTOR); stdcall; external;
    264. 

  264. procedure LoadAverageShort12(v0, v1: PSVECTOR; p0, p1: longint; v2: PSVECTOR); stdcall; external;
    265. 

  265. procedure LoadAverage0(v0, v1: PVECTOR; p0, p1: longint; v2: PVECTOR); stdcall; external;
    266. 

  266. procedure LoadAverageShort0(v0, v1: PSVECTOR; p0, p1: longint; v2: PSVECTOR); stdcall; external;
    267. 

  267. procedure LoadAverageByte(v0, v1: pbyte; p0, p1: longint; v2: pbyte); stdcall; external;
    268. 

  268. procedure LoadAverageCol(v0, v1: pbyte; p0, p1: longint; v2: pbyte); stdcall; external;
    269. 

  269. function VectorNormal(v0, v1: PVECTOR): longint; stdcall; external;
    270. 

  270. function VectorNormalS(v0: PVECTOR; v1: PSVECTOR): longint; stdcall; external;
    271. 

  271. function VectorNormalSS(v0, v1: PSVECTOR): longint; stdcall; external;
    272. 

  272. function SquareRoot0(a: longint): longint; stdcall; external;
    273. 

  273. function SquareRoot12(a: longint): longint; stdcall; external;
    274. 

  274. procedure InvSquareRoot(a: longint; b, c: plongint); stdcall; external;
    275. 

  275. procedure gteMIMefunc(otp, dfp: PSVECTOR; n, p: plongint); stdcall; external;
    276. 

  276. procedure SetFogFar(a, h: longint); stdcall; external;
    277. 

  277. procedure SetFogNear(a, h: longint); stdcall; external;
    278. 

  278. procedure SetFogNearFar(a, b, h: plongint); stdcall; external;
    279. 

  279. procedure SubPol4(p: PPOL4; sp: PSPOL; ndiv: longint); stdcall; external;
    280. 

  280. procedure SubPol3(p: PPOL3; sp: PSPOL; ndiv: longint); stdcall; external;
    281. 

  281. 

  282. function rcos(a: longint): longint; stdcall; external;
    283. 

  283. function rsin(a: longint): longint; stdcall; external;
    284. 

  284. function ccos(a: longint): longint; stdcall; external;
    285. 

  285. function csin(a: longint): longint; stdcall; external;
    286. 

  286. function cln(a: longint): longint; stdcall; external;
    287. 

  287. function csqrt(a: longint): longint; stdcall; external;
    288. 

  288. function catan(a: longint): longint; stdcall; external;
    289. 

  289. 

  290. function ratan2(y, x: longint): longint; stdcall; external;
    291. 

  291. 

  292. 

  293. procedure RotPMD_F3(pa: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    294. 

  294. procedure RotPMD_G3(pa: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    295. 

  295. procedure RotPMD_FT3(pa: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    296. 

  296. procedure RotPMD_GT3(pa: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    297. 

  297. procedure RotPMD_F4(pa: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    298. 

  298. procedure RotPMD_G4(pa: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    299. 

  299. procedure RotPMD_FT4(pa: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    300. 

  300. procedure RotPMD_GT4(pa: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    301. 

  301. 

  302. procedure RotPMD_SV_F3(pa, va: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    303. 

  303. procedure RotPMD_SV_G3(pa, va: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    304. 

  304. procedure RotPMD_SV_FT3(pa, va: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    305. 

  305. procedure RotPMD_SV_GT3(pa, va: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    306. 

  306. procedure RotPMD_SV_F4(pa, va: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    307. 

  307. procedure RotPMD_SV_G4(pa, va: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    308. 

  308. procedure RotPMD_SV_FT4(pa, va: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    309. 

  309. procedure RotPMD_SV_GT4(pa, va: plongint; ot: pdword; otlen, id, backc: longint); stdcall; external;
    310. 

  310. 

  311. 

  312. procedure InitClip(evbfad: PEVECTOR; hw, vw, h, _near, _far: longint); stdcall; external;
    313. 

  313. function Clip3F(v0, v1, v2: PSVECTOR; evmx: PPEVECTOR): longint; stdcall; external;
    314. 

  314. function Clip3FP(v0, v1, v2: PSVECTOR; evmx: PPEVECTOR): longint; stdcall; external;
    315. 

  315. function Clip4F(v0, v1, v2, v3: PSVECTOR; evmx: PPEVECTOR): longint; stdcall; external;
    316. 

  316. function Clip4FP(v0, v1, v2, v3: PSVECTOR; evmx: PPEVECTOR): longint; stdcall; external;
    317. 

  317. function Clip3FT(v0, v1, v2: PSVECTOR; uv0, uv1, uv2: psmallint; evmx: PPEVECTOR): longint; stdcall; external;
    318. 

  318. function Clip3FTP(v0, v1, v2: PSVECTOR; uv0, uv1, uv2: psmallint; evmx: PPEVECTOR): longint; stdcall; external;
    319. 

  319. function Clip4FT(v0, v1, v2, v3: PSVECTOR; uv0, uv1, uv2, uv3: psmallint; evmx: PPEVECTOR): longint; stdcall; external;
    320. 

  320. function Clip4FTP(v0, v1, v2, v3: PSVECTOR; uv0, uv1, uv2, uv3: psmallint; evmx: PPEVECTOR): longint; stdcall; external;
    321. 

  321. function Clip3G(v0, v1, v2: PSVECTOR; rgb0, rgb1, rgb2: PCVECTOR; evmx: PPEVECTOR): longint; stdcall; external;
    322. 

  322. function Clip3GP(v0, v1, v2: PSVECTOR; rgb0, rgb1, rgb2: PCVECTOR; evmx: PPEVECTOR): longint; stdcall; external;
    323. 

  323. function Clip4G(v0, v1, v2, v3: PSVECTOR; rgb0, rgb1, rgb2, rgb3: PCVECTOR; evmx: PPEVECTOR): longint; stdcall; external;
    324. 

  324. function Clip4GP(v0, v1, v2, v3: PSVECTOR; rgb0, rgb1, rgb2, rgb3: PCVECTOR; evmx: PPEVECTOR): longint; stdcall; external;
    325. 

  325. function Clip3GT(v0, v1, v2: PSVECTOR; uv0, uv1, uv2: psmallint; rgb0, rgb1, rgb2: PCVECTOR; evmx: PPEVECTOR): longint; stdcall; external;
    326. 

  326. function Clip3GTP(v0, v1, v2: PSVECTOR; uv0, uv1, uv2: psmallint; rgb0, rgb1, rgb2: PCVECTOR; evmx: PPEVECTOR): longint; stdcall; external;
    327. 

  327. function Clip4GT(v0, v1, v2, v3: PSVECTOR; uv0, uv1, uv2, uv3: psmallint; rgb0, rgb1, rgb2, rgb3: PCVECTOR; evmx: PPEVECTOR): longint; stdcall; external;
    328. 

  328. function Clip4GTP(v0, v1, v2, v3: PSVECTOR; uv0, uv1, uv2, uv3: psmallint; rgb0, rgb1, rgb2, rgb3: PCVECTOR; evmx: PPEVECTOR): longint; stdcall; external;
    329. 

  329. 

  330. procedure RotTransPers_nom(v0: PSVECTOR); stdcall; external;
    331. 

  331. procedure RotTransPers3_nom(v0, v1, v2: PSVECTOR); stdcall; external;
    332. 

  332. procedure RotTransPers4_nom(v0, v1, v2, v3: PSVECTOR); stdcall; external;
    333. 

  333. procedure RotTrans_nom(v0: PSVECTOR); stdcall; external;
    334. 

  334. procedure RotAverage3_nom(v0, v1, v2: PSVECTOR); stdcall; external;
    335. 

  335. procedure RotNclip3_nom(v0, v1, v2: PSVECTOR); stdcall; external;
    336. 

  336. procedure RotAverageNclip3_nom(v0, v1, v2: PSVECTOR); stdcall; external;
    337. 

  337. procedure RotAverageNclipColorDpq3_nom(v0, v1, v2, v3, v4, v5: PSVECTOR; v6: PCVECTOR); stdcall; external;
    338. 

  338. procedure RotAverageNclipColorCol3_nom(v0, v1, v2, v3, v4, v5: PSVECTOR; v6: PCVECTOR); stdcall; external;
    339. 

  339. procedure RotColorDpq_nom(v0, v1: PSVECTOR; v2: PCVECTOR); stdcall; external;
    340. 

  340. function RotColorDpq3_nom(v0, v1, v2, v3, v4, v5: PSVECTOR; v6: PCVECTOR): longint; stdcall; external;
    341. 

  341. procedure NormalColor_nom(v0: PSVECTOR); stdcall; external;
    342. 

  342. procedure NormalColor3_nom(v0, v1, v2: PSVECTOR); stdcall; external;
    343. 

  343. procedure NormalColorDpq_nom(v0: PSVECTOR; v1: PCVECTOR; p: longint); stdcall; external;
    344. 

  344. procedure NormalColorDpq3_nom(v0, v1, v2: PSVECTOR; v3: PCVECTOR; p: longint); stdcall; external;
    345. 

  345. procedure NormalColorCol_nom(v0: PSVECTOR; v1: PCVECTOR); stdcall; external;
    346. 

  346. procedure NormalColorCol3_nom(v0, v1, v2: PSVECTOR; v3: PCVECTOR); stdcall; external;
    347. 

  347. 

  348. 

  349. procedure RotSMD_F3(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;	
    350. 

  350. procedure RotSMD_G3(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;	
    351. 

  351. procedure RotSMD_FT3(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint);	 stdcall; external;	
    352. 

  352. procedure RotSMD_GT3(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    353. 

  353. procedure RotSMD_F4(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    354. 

  354. procedure RotSMD_G4(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    355. 

  355. procedure RotSMD_FT4(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    356. 

  356. procedure RotSMD_GT4(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    357. 

  357. 

  358. procedure RotSMD_SV_F3(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint);	 stdcall; external;	
    359. 

  359. procedure RotSMD_SV_G3(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    360. 

  360. procedure RotSMD_SV_FT3(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    361. 

  361. procedure RotSMD_SV_GT3(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    362. 

  362. procedure RotSMD_SV_F4(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    363. 

  363. procedure RotSMD_SV_G4(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    364. 

  364. procedure RotSMD_SV_FT4(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    365. 

  365. procedure RotSMD_SV_GT4(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    366. 

  366. 

  367. 

  368. 

  369. procedure RotRMD_F3(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;	
    370. 

  370. procedure RotRMD_G3(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;	
    371. 

  371. procedure RotRMD_FT3(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    372. 

  372. procedure RotRMD_GT3(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    373. 

  373. procedure RotRMD_F4(pa: plongint;  ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    374. 

  374. procedure RotRMD_G4(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    375. 

  375. procedure RotRMD_FT4(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    376. 

  376. procedure RotRMD_GT4(pa: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    377. 

  377. 

  378. procedure RotRMD_SV_F3(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    379. 

  379. procedure RotRMD_SV_G3(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    380. 

  380. procedure RotRMD_SV_FT3(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    381. 

  381. procedure RotRMD_SV_GT3(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    382. 

  382. procedure RotRMD_SV_F4(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    383. 

  383. procedure RotRMD_SV_G4(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    384. 

  384. procedure RotRMD_SV_FT4(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    385. 

  385. procedure RotRMD_SV_GT4(pa: plongint; va: plongint; ot: pdword; otlen, id, sclip, hclip, vclip, nclipmode: longint); stdcall; external;		
    386. 

  386. 

  387. function p2otz(p, projection: longint): longint; stdcall; external;
    388. 

  388. function otz2p(otz, projection: longint): longint; stdcall; external;
    389. 

  389. 

  390. 

  391. 

  392. implementation
    393. 

  393. begin
    394. 

  394. end.
    395.