home *** CD-ROM | disk | FTP | other *** search
/ Learn 3D Graphics Programming on the PC / Learn_3D_Graphics_Programming_on_the_PC_Ferraro.iso / rwwin / rw.ba_ / rw.bin
Text File  |  1995-11-14  |  81KB  |  2,016 lines
  1. ' VISUAL BASIC interface to RenderWare(TM) DLL
  2. '
  3. '
  4. ' This file is a product of Criterion Software Ltd.
  5. '
  6. ' This file is provided as is with no warranties of any kind and is
  7. ' provided without any obligiation on Criterion Software Ltd.
  8. ' or Canon Inc. to assist in its use or modifiation.
  9. '
  10. ' Criterion Software Ltd. and Canon Inc. will not, under any
  11. ' circumstances, be liable for any lost revenue or other damages
  12. ' arising from the use of this file.
  13. '
  14. ' Copyright (c) 1994, 1995. Canon Inc.
  15. ' All Rights Reserved.
  16.  
  17. Global Const V_EMPTY = 0
  18. Global Const V_NULL = 1
  19. Global Const V_INTEGER = 2
  20. Global Const V_LONG = 3
  21. Global Const V_SINGLE = 4
  22. Global Const V_DOUBLE = 5
  23. Global Const V_CURRENCY = 6
  24. Global Const V_DATE = 7
  25. Global Const V_STRING = 8
  26.  
  27. Global Const rwNALIGHTTYPE = 0
  28. Global Const rwDIRECTIONAL = 1
  29. Global Const rwPOINT = 2
  30. Global Const rwCONICAL = 3
  31.  
  32. Global Const rwNASTATE = 0
  33. Global Const rwOFF = 1
  34. Global Const rwON = 2
  35.  
  36. Global Const rwNACAMERAPROJECTION = 0
  37. Global Const rwPERSPECTIVE = 1
  38. Global Const rwPARALLEL = 2
  39.  
  40. Global Const rwNACOMBINEOPERATION = 0
  41. Global Const rwREPLACE = 1
  42. Global Const rwPRECONCAT = 2
  43. Global Const rwPOSTCONCAT = 3
  44.  
  45. Global Const rwNALIGHTSAMPLING = 0
  46. Global Const rwFACET = 1
  47. Global Const rwSMOOTHSHADE = 2
  48.  
  49. Global Const rwNAGEOMETRYSAMPLING = 0
  50. Global Const rwPOINTCLOUD = 1
  51. Global Const rwWIREFRAME = 2
  52. Global Const rwSOLID = 3
  53.  
  54. Global Const rwNASPLINETYPE = 0
  55. Global Const rwOPENLOOP = 1
  56. Global Const rwCLOSEDLOOP = 2
  57.  
  58. Global Const rwNASPLINEPATH = 0
  59. Global Const rwSMOOTH = 1
  60. Global Const rwNICEENDS = 2
  61.  
  62. Global Const rwNASEARCHMODE = 0
  63. Global Const rwLOCAL = 1
  64. Global Const rwGLOBAL = 2
  65.  
  66. Global Const rwNADEBUGMESSAGESTATUS = 0
  67. Global Const rwDISABLE = 1
  68. Global Const rwENABLE = 2
  69.  
  70. Global Const rwNADEBUGMESSAGESEVERITY = 0
  71. Global Const rwINFORM = 1
  72. Global Const rwWARNING = 2
  73. Global Const rwERROR = 3
  74.  
  75. Global Const rwNAPICKOBJECT = 0
  76. Global Const rwPICKEDCLUMP = 1
  77. Global Const rwPICKEDVERTEX = 2
  78.  
  79. Global Const rwNATEXTUREDITHER = 0
  80. Global Const rwDITHERON = 1
  81. Global Const rwDITHEROFF = 2
  82. Global Const rwAUTODITHER = 3
  83.  
  84. Global Const rwCONTAINER = &H1
  85. Global Const rwHS = &H2
  86. Global Const rwEDITABLE = &H4
  87.  
  88. Global Const rwLIT = &H1
  89. Global Const rwFORESHORTEN = &H2
  90. Global Const rwFILTER = &H4
  91.  
  92. Global Const rwAUTODITHERRASTER = &H1
  93. Global Const rwDITHERRASTER = &H2
  94. Global Const rwFITRASTER = &H4
  95. Global Const rwINDEXRASTER = &H8
  96. Global Const rwGAMMARASTER = &H10
  97. Global Const rwOFFSETRASTER = &H20
  98.  
  99. Global Const rwGAMMAPALETTE = &H1
  100.  
  101. Global Const rwALIGNTOP = &H1
  102. Global Const rwALIGNBOTTOM = &H2
  103. Global Const rwALIGNLEFT = &H4
  104. Global Const rwALIGNRIGHT = &H8
  105. Global Const rwALIGNTOPLEFT = &H5
  106. Global Const rwALIGNBOTTOMRIGHT = &HA
  107.  
  108. Global Const rwNAAXISALIGNMENT = 0
  109. Global Const rwNOAXISALIGNMENT = 1
  110. Global Const rwALIGNAXISZORIENTX = 2
  111. Global Const rwALIGNAXISZORIENTY = 3
  112. Global Const rwALIGNAXISXYZ = 4
  113.  
  114. ' codes used for interogating system information
  115. Global Const rwNASYSTEMINFO = 0
  116. Global Const rwVERSIONSTRING = 1
  117. Global Const rwVERSIONMAJOR = 2
  118. Global Const rwVERSIONMINOR = 3
  119. Global Const rwVERSIONRELEASE = 4
  120. Global Const rwFIXEDPOINTLIB = 5
  121. Global Const rwDEBUGGINGLIB = 6
  122.  
  123. ' Generic device info.
  124. Global Const rwNADEVICEINFO = 0
  125. Global Const rwRENDERDEPTH = 1
  126. Global Const rwINDEXEDRENDERING = 2
  127. Global Const rwPALETTEBASED = 3
  128. ' For output devices with a hardware palette.
  129. Global Const rwPALETTE = 4
  130. Global Const rwPALETTESIZE = 5
  131. Global Const rwFIRSTPALETTEENTRY = 6
  132. Global Const rwLASTPALETTEENTRY = 7
  133. 'First code available for device specific info types.
  134. Global Const rwDEVICESPECIFICINFO = 1000
  135.  
  136. ' Generic device control actions.
  137. Global Const rwNADEVICEACTION = 0
  138. ' First code available for device specific action types.
  139. Global Const rwDEVICESPECIFICACTION = 1000
  140.  
  141. ' Generic RwOpenExt paramaters.
  142. Global Const rwNAOPENOPTION = 0
  143. Global Const rwNOOPENOPTION = 1
  144. Global Const rwGAMMACORRECT = 2
  145. ' First code available for device specific open options.
  146. Global Const rwDEVICESPECIFICOPEN = 1000
  147.  
  148. ' Windows specific device information codes...
  149. Global Const rwWINIMAGEISDIB = 1000
  150. Global Const rwWINUSINGDIBS = 1001
  151. Global Const rwWINUSINGWING = 1002
  152. Global Const rwWINISBACKGROUNDPALETTE = 1003
  153.  
  154. ' Windows specific device control codes...
  155. Global Const rwWINSETOUTPUTSIZE = 1000
  156. Global Const rwWINBACKGROUNDPALETTE = 1001
  157.  
  158. ' Windows specific open options...
  159. Global Const rwWINUSEDIBS = 1000
  160. Global Const rwWINUSEWING = 1001
  161. Global Const rwWINASSUME16IS16 = 1002
  162. Global Const rwWINSETWINGDIBORIENT = 1003
  163.  
  164. Global Const RWMAXPATHLEN = 1024
  165.  
  166. Type RwRect
  167.     x As Long
  168.     y As Long
  169.     w As Long
  170.     h As Long
  171. End Type
  172.  
  173. Type RwV3d
  174.     x As Single
  175.     y As Single
  176.     z As Single
  177. End Type
  178.  
  179. Type RwUV
  180.     u As Single
  181.     v As Single
  182. End Type
  183.  
  184. Type RwRGBColor
  185.     r As Single
  186.     g As Single
  187.     b As Single
  188. End Type
  189.  
  190. Type RwPaletteEntry
  191.     rgbflags As Long
  192. End Type
  193.  
  194. Type RwPickVertexData
  195.     vindex As Long   ' closest vertex to pick point
  196.     d2 As Long       ' distance squared in pixels
  197. End Type
  198.  
  199. Type RwPickClumpData
  200.     Clump As Long
  201.     polygon As Long
  202.     vertex As RwPickVertexData
  203.     wcpoint As RwV3d
  204. End Type
  205.  
  206. Type RwObject
  207.     Clump As RwPickClumpData
  208. End Type
  209.  
  210. Type RwPickRecord
  211.     type As Long
  212.     object As RwObject
  213. End Type
  214.  
  215. Type RwOpenArgument
  216.     option As Long
  217.     value As Long
  218. End Type
  219.  
  220. Type RwWinOuputSize
  221.     width As Long
  222.     height As Long
  223.     camera As Long
  224. End Type
  225.  
  226. Type RwWinBitmapRaster
  227.     hdc As Integer
  228.     hbitmap As Integer
  229. End Type
  230.  
  231. Global Const E_RW_NOERROR = 0
  232. Global Const E_RW_NULLP = 1
  233. Global Const E_RW_INVCOP = 2
  234. Global Const E_RW_NOMEM = 3
  235. Global Const E_RW_RSPARSE = 4
  236. Global Const E_RW_RSREAD = 5
  237. Global Const E_RW_WSWRITE = 6
  238. Global Const E_RW_DEGEN = 7
  239. Global Const E_RW_INVLIGHT = 8
  240. Global Const E_RW_SHPPATH = 9
  241. Global Const E_RW_READ = 10
  242. Global Const E_RW_RANGE = 11
  243. Global Const E_RW_WRITE = 12
  244. Global Const E_RW_NOFILE = 13
  245. Global Const E_RW_BADOPEN = 14
  246. Global Const E_RW_NOTROOT = 15
  247. Global Const E_RW_INVSPP = 16
  248. Global Const E_RW_INVSPT = 17
  249. Global Const E_RW_INVDEVICE = 18
  250. Global Const E_RW_INVMATERIAL = 19
  251. Global Const E_RW_INVFRAME = 20
  252. Global Const E_RW_INVFRAMESTEP = 21
  253. Global Const E_RW_INVTEXTUREWIDTH = 22
  254. Global Const E_RW_INVTEXTUREHEIGHT = 23
  255. Global Const E_RW_INVVERTEXINDEX = 24
  256. Global Const E_RW_DEFSCENE = 25
  257. Global Const E_RW_INVGEOMETRYSAMPLING = 26
  258. Global Const E_RW_RSINVGEOMETRYSAMPLING = 27
  259. Global Const E_RW_INVLIGHTSAMPLING = 28
  260. Global Const E_RW_RSINVLIGHTSAMPLING = 29
  261. Global Const E_RW_NOPROTOTYPEFOUND = 30
  262. Global Const E_RW_ZEROVEC = 31
  263. Global Const E_RW_NESTEDMODEL = 32
  264. Global Const E_RW_NOMATCHBEGIN = 33
  265. Global Const E_RW_NOMATCHEND = 34
  266. Global Const E_RW_NESTEDPROTOTYPE = 35
  267. Global Const E_RW_NOMODELBEGIN = 36
  268. Global Const E_RW_INVPROTOTYPE = 37
  269. Global Const E_RW_NOCLUMP = 38
  270. Global Const E_RW_NOCLUMPBUILT = 39
  271. Global Const E_RW_DEGENPOLYGON = 40
  272. Global Const E_RW_COMPLEXPOLYGON = 41
  273. Global Const E_RW_TEXTURENOTFOUND = 42
  274. Global Const E_RW_INVTEXTURENAME = 43
  275. Global Const E_RW_INVCAMERAPROJECTION = 44
  276. Global Const E_RW_INVSTATE = 45
  277. Global Const E_RW_INVSEARCHMODE = 46
  278. Global Const E_RW_INVHINT = 47
  279. Global Const E_RW_USER = 48
  280. Global Const E_RW_INVAXISALIGNMENT = 49
  281. Global Const E_RW_INVUSERDRAWTYPE = 50
  282. Global Const E_RW_INVUSERDRAWALIGN = 51
  283. Global Const E_RW_RSINVTRACESTATE = 52
  284. Global Const E_RW_RSINVHINT = 53
  285. Global Const E_RW_RSINVAXISALIGNMENT = 54
  286. Global Const E_RW_INVSYSTEMINFO = 55
  287. Global Const E_RW_INVTEXTUREMODE = 56
  288. Global Const E_RW_RSINVTEXTUREMODE = 57
  289. Global Const E_RW_RSNOHINTS = 58
  290. Global Const E_RW_RSNOTEXTUREMODES = 59
  291. Global Const E_RW_INVRASTEROPTIONS = 60
  292. Global Const E_RW_INVTEXTUREDITHERMODE = 61
  293. Global Const E_RW_INVRASTERSIZE = 62
  294. Global Const E_RW_INVDEVICEINFO = 63
  295. Global Const E_RW_INVDEVICEACTION = 64
  296. Global Const E_RW_INVOPENOPTION = 65
  297. Global Const E_RW_RASTERINUSE = 66
  298. Global Const E_RW_RSINVDITHERMODE = 67
  299. Global Const E_RW_RSINVGAMMAMODE = 68
  300. Global Const E_RW_INVIMAGEFILE = 69
  301. Global Const E_RW_INTERNAL = 70
  302. Global Const E_RW_MAXERROR = 71
  303.  
  304. Global Const ID_RWOPEN = 1
  305. Global Const ID_RWADDCLUMPTOSCENE = 2
  306. Global Const ID_RWOPENEXT = 3
  307. Global Const ID_RWADDHINTTOCLUMP = 4
  308. Global Const ID_RWADDLIGHTTOSCENE = 5
  309. Global Const ID_RWADDPOLYGONTOCLUMP = 6
  310. Global Const ID_RWADDPOLYGONSTOCLUMP = 7
  311. Global Const ID_RWADDTEXTUREMODETOMATERIAL = 8
  312. Global Const ID_RWADDTEXTUREMODETOPOLYGON = 9
  313. Global Const ID_RWADDTEXTUREMODETOSURFACE = 10
  314. Global Const ID_RWADDVECTOR = 12
  315. Global Const ID_RWADDVERTEXTOCLUMP = 13
  316. Global Const ID_RWBEGINCAMERAUPDATE = 14
  317. Global Const ID_RWBITMAPRASTER = 15
  318. Global Const ID_RWBLOCK = 16
  319. Global Const ID_RWCALCULATECLUMPVERTEXNORMAL = 17
  320. Global Const ID_RWCLEARCAMERAVIEWPORT = 18
  321. Global Const ID_RWCLOSE = 19
  322. Global Const ID_RWCLOSEDEBUGSTREAM = 20
  323. Global Const ID_RWCLUMPBEGIN = 21
  324. Global Const ID_RWCLUMPDISTANCE = 22
  325. Global Const ID_RWCLUMPEND = 23
  326. Global Const ID_RWCONE = 24
  327. Global Const ID_RWCOPYMATERIAL = 25
  328. Global Const ID_RWCOPYMATRIX = 26
  329. Global Const ID_RWCREATECAMERA = 27
  330. Global Const ID_RWCREATECLUMP = 28
  331. Global Const ID_RWCREATELIGHT = 30
  332. Global Const ID_RWCREATEMATERIAL = 31
  333. Global Const ID_RWCREATEMATRIX = 32
  334. Global Const ID_RWCREATERASTER = 33
  335. Global Const ID_RWCREATESCENE = 34
  336. Global Const ID_RWCREATESPLINE = 35
  337. Global Const ID_RWCREATESPRITE = 36
  338. Global Const ID_RWCREATETEXTURE = 37
  339. Global Const ID_RWCROSSPRODUCT = 39
  340. Global Const ID_RWCUBICTEXTURIZECLUMP = 40
  341. Global Const ID_RWCURRENTMATERIAL = 41
  342. Global Const ID_RWCURRENTMATRIX = 42
  343. Global Const ID_RWCYLINDER = 43
  344. Global Const ID_RWDAMAGECAMERAVIEWPORT = 44
  345. Global Const ID_RWDEFAULTSCENE = 45
  346. Global Const ID_RWDESTROYCAMERA = 46
  347. Global Const ID_RWDESTROYCLUMP = 47
  348. Global Const ID_RWDESTROYLIGHT = 48
  349. Global Const ID_RWDESTROYMATERIAL = 49
  350. Global Const ID_RWDESTROYMATRIX = 50
  351. Global Const ID_RWDESTROYPOLYGON = 51
  352. Global Const ID_RWDESTROYRASTER = 52
  353. Global Const ID_RWDESTROYSCENE = 53
  354. Global Const ID_RWDESTROYSPLINE = 54
  355. Global Const ID_RWDESTROYTEXTURE = 55
  356. Global Const ID_RWDEVICECONTROL = 57
  357. Global Const ID_RWDISC = 58
  358. Global Const ID_RWDOTPRODUCT = 59
  359. Global Const ID_RWDUPLICATECAMERA = 60
  360. Global Const ID_RWDUPLICATECLUMP = 61
  361. Global Const ID_RWDUPLICATELIGHT = 62
  362. Global Const ID_RWDUPLICATEMATERIAL = 63
  363. Global Const ID_RWDUPLICATEMATRIX = 64
  364. Global Const ID_RWDUPLICATERASTER = 65
  365. Global Const ID_RWDUPLICATESPLINE = 66
  366. Global Const ID_RWENDCAMERAUPDATE = 68
  367. Global Const ID_RWENVMAPCLUMP = 69
  368. Global Const ID_RWFINDNAMEDTEXTURE = 75
  369. Global Const ID_RWFINDTAGGEDCLUMP = 76
  370. Global Const ID_RWFINDTAGGEDPOLYGON = 77
  371. Global Const ID_RWGETCAMERABACKDROP = 108
  372. Global Const ID_RWGETCAMERABACKDROPOFFSET = 109
  373. Global Const ID_RWGETCAMERABACKDROPVIEWPORTRECT = 110
  374. Global Const ID_RWGETCAMERADATA = 111
  375. Global Const ID_RWGETCAMERAIMAGE = 112
  376. Global Const ID_RWGETCAMERALOOKAT = 113
  377. Global Const ID_RWGETCAMERALOOKRIGHT = 114
  378. Global Const ID_RWGETCAMERALOOKUP = 115
  379. Global Const ID_RWGETCAMERANEARCLIPPING = 116
  380. Global Const ID_RWGETCAMERAPOSITION = 117
  381. Global Const ID_RWGETCAMERAPROJECTION = 118
  382. Global Const ID_RWGETCAMERAVIEWOFFSET = 119
  383. Global Const ID_RWGETCAMERAVIEWPORT = 120
  384. Global Const ID_RWGETCAMERAVIEWPORTRASTER = 121
  385. Global Const ID_RWGETCAMERAVIEWWINDOW = 122
  386. Global Const ID_RWGETCLUMPBBOX = 123
  387. Global Const ID_RWGETCLUMPDATA = 124
  388. Global Const ID_RWGETCLUMPAXISALIGNMENT = 125
  389. Global Const ID_RWGETCLUMPHINTS = 126
  390. Global Const ID_RWGETCLUMPJOINTMATRIX = 127
  391. Global Const ID_RWGETCLUMPLTM = 128
  392. Global Const ID_RWGETCLUMPMATRIX = 129
  393. Global Const ID_RWGETCLUMPNUMCHILDREN = 130
  394. Global Const ID_RWGETCLUMPNUMPOLYGONS = 131
  395. Global Const ID_RWGETCLUMPNUMVERTICES = 133
  396. Global Const ID_RWGETCLUMPORIGIN = 134
  397. Global Const ID_RWGETCLUMPOWNER = 135
  398. Global Const ID_RWGETCLUMPPARENT = 136
  399. Global Const ID_RWGETCLUMPROOT = 137
  400. Global Const ID_RWGETCLUMPSTATE = 138
  401. Global Const ID_RWGETCLUMPTAG = 139
  402. Global Const ID_RWGETCLUMPVERTEX = 140
  403. Global Const ID_RWGETCLUMPVERTEXNORMAL = 141
  404. Global Const ID_RWGETCLUMPVERTEXUV = 142
  405. Global Const ID_RWGETCLUMPVERTEXVIEWPORTPOSITION = 143
  406. Global Const ID_RWGETCLUMPVIEWPORTRECT = 144
  407. Global Const ID_RWGETDEBUGASSERTIONSTATE = 145
  408. Global Const ID_RWGETDEBUGMESSAGESTATE = 146
  409. Global Const ID_RWGETDEBUGSCRIPTSTATE = 147
  410. Global Const ID_RWGETDEBUGSEVERITY = 148
  411. Global Const ID_RWGETDEVICEINFO = 149
  412. Global Const ID_RWGETFIRSTCHILDCLUMP = 150
  413. Global Const ID_RWGETLIGHTBRIGHTNESS = 151
  414. Global Const ID_RWGETLIGHTCONEANGLE = 152
  415. Global Const ID_RWGETLIGHTDATA = 153
  416. Global Const ID_RWGETLIGHTOWNER = 154
  417. Global Const ID_RWGETLIGHTPOSITION = 155
  418. Global Const ID_RWGETLIGHTSTATE = 156
  419. Global Const ID_RWGETLIGHTTYPE = 157
  420. Global Const ID_RWGETLIGHTVECTOR = 158
  421. Global Const ID_RWGETMATERIALAMBIENT = 159
  422. Global Const ID_RWGETMATERIALCOLOR = 160
  423. Global Const ID_RWGETMATERIALDIFFUSE = 161
  424. Global Const ID_RWGETMATERIALGEOMETRYSAMPLING = 162
  425. Global Const ID_RWGETMATERIALLIGHTSAMPLING = 163
  426. Global Const ID_RWGETMATERIALOPACITY = 164
  427. Global Const ID_RWGETMATERIALSPECULAR = 165
  428. Global Const ID_RWGETMATERIALTEXTURE = 166
  429. Global Const ID_RWGETMATERIALTEXTUREMODES = 167
  430. Global Const ID_RWGETMATRIXELEMENT = 168
  431. Global Const ID_RWGETMATRIXELEMENTS = 169
  432. Global Const ID_RWGETNAMEDTEXTURE = 170
  433. Global Const ID_RWGETNEXTCLUMP = 171
  434. Global Const ID_RWGETNUMNAMEDTEXTURES = 172
  435. Global Const ID_RWGETPOLYGONAMBIENT = 173
  436. Global Const ID_RWGETPOLYGONCENTER = 174
  437. Global Const ID_RWGETPOLYGONCOLOR = 175
  438. Global Const ID_RWGETPOLYGONDATA = 176
  439. Global Const ID_RWGETPOLYGONDIFFUSE = 177
  440. Global Const ID_RWGETPOLYGONGEOMETRYSAMPLING = 178
  441. Global Const ID_RWGETPOLYGONLIGHTSAMPLING = 179
  442. Global Const ID_RWGETPOLYGONMATERIAL = 180
  443. Global Const ID_RWGETPOLYGONNORMAL = 181
  444. Global Const ID_RWGETPOLYGONNUMSIDES = 182
  445. Global Const ID_RWGETPOLYGONOPACITY = 183
  446. Global Const ID_RWGETPOLYGONOWNER = 184
  447. Global Const ID_RWGETPOLYGONSPECULAR = 185
  448. Global Const ID_RWGETPOLYGONTAG = 186
  449. Global Const ID_RWGETPOLYGONTEXTURE = 187
  450. Global Const ID_RWGETPOLYGONTEXTUREMODES = 188
  451. Global Const ID_RWGETPOLYGONUV = 189
  452. Global Const ID_RWGETPOLYGONVERTICES = 190
  453. Global Const ID_RWGETRASTERDATA = 191
  454. Global Const ID_RWGETRASTERDEPTH = 192
  455. Global Const ID_RWGETRASTERHEIGHT = 193
  456. Global Const ID_RWGETRASTERPIXELS = 194
  457. Global Const ID_RWGETRASTERSTRIDE = 195
  458. Global Const ID_RWGETRASTERWIDTH = 196
  459. Global Const ID_RWGETSCENEDATA = 197
  460. Global Const ID_RWGETSCENENUMCLUMPS = 198
  461. Global Const ID_RWGETSCENENUMLIGHTS = 199
  462. Global Const ID_RWGETSHAPEPATH = 200
  463. Global Const ID_RWGETSPLINEDATA = 201
  464. Global Const ID_RWGETSPLINENUMPOINTS = 202
  465. Global Const ID_RWGETSPLINEPOINT = 203
  466. Global Const ID_RWGETSYSTEMINFO = 204
  467. Global Const ID_RWGETTEXTUREDATA = 205
  468. Global Const ID_RWGETTEXTUREDICTSEARCHMODE = 206
  469. Global Const ID_RWGETTEXTUREDITHERING = 207
  470. Global Const ID_RWGETTEXTUREFRAME = 208
  471. Global Const ID_RWGETTEXTUREFRAMESTEP = 209
  472. Global Const ID_RWGETTEXTUREGAMMACORRECTION = 210
  473. Global Const ID_RWGETTEXTURENAME = 211
  474. Global Const ID_RWGETTEXTURENUMFRAMES = 212
  475. Global Const ID_RWGETTEXTURERASTER = 213
  476. Global Const ID_RWHEMISPHERE = 223
  477. Global Const ID_RWIDENTITYCTM = 224
  478. Global Const ID_RWIDENTITYJOINTTM = 225
  479. Global Const ID_RWIDENTITYMATRIX = 226
  480. Global Const ID_RWINCLUDE = 227
  481. Global Const ID_RWINCLUDEGEOMETRY = 228
  482. Global Const ID_RWINVALIDATECAMERAVIEWPORT = 229
  483. Global Const ID_RWINVERTMATRIX = 230
  484. Global Const ID_RWJOINTTRANSFORMBEGIN = 231
  485. Global Const ID_RWJOINTTRANSFORMEND = 232
  486. Global Const ID_RWMASKTEXTURE = 233
  487. Global Const ID_RWMATERIALBEGIN = 234
  488. Global Const ID_RWMATERIALEND = 235
  489. Global Const ID_RWMODELBEGIN = 236
  490. Global Const ID_RWMODELEND = 237
  491. Global Const ID_RWMULTIPLYMATRIX = 238
  492. Global Const ID_RWNORMALIZE = 239
  493. Global Const ID_RWNORMALIZECLUMP = 240
  494. Global Const ID_RWADDCHILDTOCLUMP = 241
  495. Global Const ID_RWOPENDEBUGSTREAM = 242
  496. Global Const ID_RWADDHINT = 243
  497. Global Const ID_RWORTHONORMALIZEMATRIX = 244
  498. Global Const ID_RWPANCAMERA = 245
  499. Global Const ID_RWPICKCLUMP = 246
  500. Global Const ID_RWPICKSCENE = 247
  501. Global Const ID_RWPOINTCAMERA = 248
  502. Global Const ID_RWPOLYGON = 249
  503. Global Const ID_RWPOLYGONEXT = 250
  504. Global Const ID_RWPOPCURRENTMATERIAL = 251
  505. Global Const ID_RWPOPCURRENTMATRIX = 252
  506. Global Const ID_RWPOPSCRATCHMATRIX = 253
  507. Global Const ID_RWPROTOBEGIN = 254
  508. Global Const ID_RWPROTOEND = 255
  509. Global Const ID_RWPROTOINSTANCE = 256
  510. Global Const ID_RWPROTOINSTANCEGEOMETRY = 257
  511. Global Const ID_RWPUSHCURRENTMATERIAL = 258
  512. Global Const ID_RWPUSHCURRENTMATRIX = 259
  513. Global Const ID_RWPUSHSCRATCHMATRIX = 260
  514. Global Const ID_RWQUAD = 261
  515. Global Const ID_RWQUADEXT = 262
  516. Global Const ID_RWQUERYROTATEMATRIX = 263
  517. Global Const ID_RWREADMASKRASTER = 264
  518. Global Const ID_RWREADNAMEDTEXTURE = 265
  519. Global Const ID_RWREADRASTER = 266
  520. Global Const ID_RWREADSHAPE = 267
  521. Global Const ID_RWREADTEXTURE = 268
  522. Global Const ID_RWREMOVECHILDFROMCLUMP = 269
  523. Global Const ID_RWREMOVECLUMPFROMSCENE = 270
  524. Global Const ID_RWREMOVEHINT = 271
  525. Global Const ID_RWREMOVEHINTFROMCLUMP = 272
  526. Global Const ID_RWREMOVELIGHTFROMSCENE = 273
  527. Global Const ID_RWREMOVETEXTUREMODEFROMMATERIAL = 274
  528. Global Const ID_RWREMOVETEXTUREMODEFROMPOLYGON = 275
  529. Global Const ID_RWREMOVETEXTUREMODEFROMSURFACE = 276
  530. Global Const ID_RWRENDERCLUMP = 278
  531. Global Const ID_RWRENDERSCENE = 279
  532. Global Const ID_RWRESETCAMERA = 280
  533. Global Const ID_RWREVERSEPOLYGONFACE = 281
  534. Global Const ID_RWREVOLVECAMERA = 282
  535. Global Const ID_RWROTATECTM = 283
  536. Global Const ID_RWROTATEJOINTTM = 284
  537. Global Const ID_RWROTATEMATRIX = 285
  538. Global Const ID_RWROTATEMATRIXCOS = 286
  539. Global Const ID_RWSCALECTM = 287
  540. Global Const ID_RWSCALEMATRIX = 288
  541. Global Const ID_RWSCALEVECTOR = 289
  542. Global Const ID_RWSCRATCHMATRIX = 290
  543. Global Const ID_RWSETCAMERABACKCOLOR = 291
  544. Global Const ID_RWSETCAMERABACKCOLORSTRUCT = 292
  545. Global Const ID_RWSETCAMERABACKDROP = 293
  546. Global Const ID_RWSETCAMERABACKDROPOFFSET = 294
  547. Global Const ID_RWSETCAMERABACKDROPVIEWPORTRECT = 295
  548. Global Const ID_RWSETCAMERADATA = 296
  549. Global Const ID_RWSETCAMERALOOKAT = 297
  550. Global Const ID_RWSETCAMERALOOKUP = 298
  551. Global Const ID_RWSETCAMERANEARCLIPPING = 299
  552. Global Const ID_RWSETCAMERAPOSITION = 300
  553. Global Const ID_RWSETCAMERAPROJECTION = 301
  554. Global Const ID_RWSETCAMERAVIEWOFFSET = 302
  555. Global Const ID_RWSETCAMERAVIEWPORT = 303
  556. Global Const ID_RWSETCAMERAVIEWWINDOW = 304
  557. Global Const ID_RWSETCLUMPDATA = 305
  558. Global Const ID_RWSETCLUMPAXISALIGNMENT = 306
  559. Global Const ID_RWSETCLUMPHINTS = 307
  560. Global Const ID_RWSETCLUMPSTATE = 308
  561. Global Const ID_RWSETCLUMPTAG = 309
  562. Global Const ID_RWSETCLUMPVERTEX = 310
  563. Global Const ID_RWSETCLUMPVERTEXNORMAL = 311
  564. Global Const ID_RWSETCLUMPVERTEXUV = 312
  565. Global Const ID_RWSETCLUMPVERTICES = 313
  566. Global Const ID_RWSETDEBUGASSERTIONSTATE = 314
  567. Global Const ID_RWSETDEBUGMESSAGESTATE = 315
  568. Global Const ID_RWSETDEBUGOUTPUTSTATE = 316
  569. Global Const ID_RWSETDEBUGSCRIPTSTATE = 317
  570. Global Const ID_RWSETDEBUGSEVERITY = 318
  571. Global Const ID_RWSETDEBUGSTREAM = 319
  572. Global Const ID_RWSETAXISALIGNMENT = 320
  573. Global Const ID_RWSETHINTS = 321
  574. Global Const ID_RWSETLIGHTBRIGHTNESS = 322
  575. Global Const ID_RWSETLIGHTCONEANGLE = 323
  576. Global Const ID_RWSETLIGHTDATA = 324
  577. Global Const ID_RWSETLIGHTPOSITION = 325
  578. Global Const ID_RWSETLIGHTSTATE = 326
  579. Global Const ID_RWSETLIGHTVECTOR = 327
  580. Global Const ID_RWSETMATERIALAMBIENT = 328
  581. Global Const ID_RWSETMATERIALCOLOR = 329
  582. Global Const ID_RWSETMATERIALCOLORSTRUCT = 330
  583. Global Const ID_RWSETMATERIALDIFFUSE = 331
  584. Global Const ID_RWSETMATERIALGEOMETRYSAMPLING = 332
  585. Global Const ID_RWSETMATERIALLIGHTSAMPLING = 333
  586. Global Const ID_RWSETMATERIALOPACITY = 334
  587. Global Const ID_RWSETMATERIALSPECULAR = 335
  588. Global Const ID_RWSETMATERIALSURFACE = 336
  589. Global Const ID_RWSETMATERIALTEXTURE = 337
  590. Global Const ID_RWSETMATERIALTEXTUREMODES = 338
  591. Global Const ID_RWSETMATRIXELEMENT = 339
  592. Global Const ID_RWSETMATRIXELEMENTS = 340
  593. Global Const ID_RWSETPOLYGONAMBIENT = 341
  594. Global Const ID_RWSETPOLYGONCOLOR = 342
  595. Global Const ID_RWSETPOLYGONCOLORSTRUCT = 343
  596. Global Const ID_RWSETPOLYGONDATA = 344
  597. Global Const ID_RWSETPOLYGONDIFFUSE = 345
  598. Global Const ID_RWSETPOLYGONGEOMETRYSAMPLING = 346
  599. Global Const ID_RWSETPOLYGONLIGHTSAMPLING = 347
  600. Global Const ID_RWSETPOLYGONMATERIAL = 348
  601. Global Const ID_RWSETPOLYGONOPACITY = 349
  602. Global Const ID_RWSETPOLYGONSPECULAR = 350
  603. Global Const ID_RWSETPOLYGONSURFACE = 351
  604. Global Const ID_RWSETPOLYGONTAG = 352
  605. Global Const ID_RWSETPOLYGONTEXTURE = 353
  606. Global Const ID_RWSETPOLYGONTEXTUREMODES = 354
  607. Global Const ID_RWSETPOLYGONUV = 355
  608. Global Const ID_RWSETRASTERDATA = 356
  609. Global Const ID_RWSETSCENEDATA = 357
  610. Global Const ID_RWSETSHAPEPATH = 358
  611. Global Const ID_RWSETSPLINEDATA = 359
  612. Global Const ID_RWSETSPLINEPOINT = 360
  613. Global Const ID_RWSETSURFACE = 361
  614. Global Const ID_RWSETSURFACEAMBIENT = 362
  615. Global Const ID_RWSETSURFACECOLOR = 363
  616. Global Const ID_RWSETSURFACEDIFFUSE = 364
  617. Global Const ID_RWSETSURFACEGEOMETRYSAMPLING = 365
  618. Global Const ID_RWSETSURFACELIGHTSAMPLING = 366
  619. Global Const ID_RWSETSURFACEOPACITY = 367
  620. Global Const ID_RWSETSURFACESPECULAR = 368
  621. Global Const ID_RWSETSURFACETEXTURE = 369
  622. Global Const ID_RWSETSURFACETEXTUREEXT = 370
  623. Global Const ID_RWSETSURFACETEXTUREMODES = 371
  624. Global Const ID_RWSETTAG = 372
  625. Global Const ID_RWSETTEXTUREDATA = 373
  626. Global Const ID_RWSETTEXTUREDICTSEARCHMODE = 374
  627. Global Const ID_RWSETTEXTUREDITHERING = 375
  628. Global Const ID_RWSETTEXTUREFRAME = 376
  629. Global Const ID_RWSETTEXTUREFRAMESTEP = 377
  630. Global Const ID_RWSETTEXTUREGAMMACORRECTION = 378
  631. Global Const ID_RWSETTEXTURERASTER = 379
  632. Global Const ID_RWSHOWCAMERAIMAGE = 388
  633. Global Const ID_RWSPHERE = 389
  634. Global Const ID_RWSPHERICALTEXTURIZECLUMP = 390
  635. Global Const ID_RWSPLINEPOINT = 391
  636. Global Const ID_RWSPLINETRANSFORM = 392
  637. Global Const ID_RWSUBTRACTVECTOR = 393
  638. Global Const ID_RWTEXTUREDICTBEGIN = 394
  639. Global Const ID_RWTEXTUREDICTEND = 395
  640. Global Const ID_RWTEXTURENEXTFRAME = 396
  641. Global Const ID_RWTILTCAMERA = 397
  642. Global Const ID_RWTRANSFORMBEGIN = 398
  643. Global Const ID_RWTRANSFORMCTM = 399
  644. Global Const ID_RWTRANSFORMCAMERA = 400
  645. Global Const ID_RWTRANSFORMCAMERAORIENTATION = 401
  646. Global Const ID_RWTRANSFORMCLUMP = 402
  647. Global Const ID_RWTRANSFORMCLUMPJOINT = 403
  648. Global Const ID_RWTRANSFORMEND = 404
  649. Global Const ID_RWTRANSFORMJOINTTM = 405
  650. Global Const ID_RWTRANSFORMLIGHT = 406
  651. Global Const ID_RWTRANSFORMMATRIX = 407
  652. Global Const ID_RWTRANSFORMPOINT = 408
  653. Global Const ID_RWTRANSFORMVECTOR = 409
  654. Global Const ID_RWTRANSLATECTM = 410
  655. Global Const ID_RWTRANSLATEMATRIX = 411
  656. Global Const ID_RWTRIANGLE = 412
  657. Global Const ID_RWTRIANGLEEXT = 413
  658. Global Const ID_RWUNDAMAGECAMERAVIEWPORT = 414
  659. Global Const ID_RWVCMOVECAMERA = 415
  660. Global Const ID_RWVERTEX = 416
  661. Global Const ID_RWVERTEXEXT = 417
  662. Global Const ID_RWWCMOVECAMERA = 418
  663. Global Const ID_RWWRITESHAPE = 419
  664. Global Const ID_RWGETDEBUGTRACESTATE = 424
  665. Global Const ID_RWSETDEBUGTRACESTATE = 425
  666. Global Const ID_RWGETCAMERFARCLIPPING = 427
  667. Global Const ID_RWSETCAMERFARCLIPPING = 428
  668. Global Const ID_RWGETLIGHTCOLOR = 429
  669. Global Const ID_RWGETCAMERABACKCOLOR = 430
  670. Global Const ID_RWSETLIGHTCOLORSTRUCT = 431
  671. Global Const ID_RWINITSTATE = 432
  672. Global Const ID_RWSETSTATE = 433
  673. Global Const ID_RWRANDOM = 434
  674. Global Const ID_RWSRANDOM = 435
  675. Global Const ID_RWSETLIGHTCOLOR = 436
  676. Global Const ID_RWGETLIGHTLTM = 437
  677. Global Const ID_RWGETCAMERALTM = 438
  678. Global Const ID_RWGETPALETTEENTRIES = 439
  679. Global Const ID_RWSETPALETTEENTRIES = 440
  680. Global Const ID_RWGETCLUMPLOCALBBOC = 441
  681. Global Const ID_RWGETERROR = 450
  682. Global Const ID_RWGETINTERNALERROR = 451
  683. Global Const ID_RWSETUSERERROR = 452
  684. Global Const ID_RWFIXMUL = 470
  685. Global Const ID_RWFIXDIV = 471
  686. Global Const ID_RWFIXSQRT = 472
  687. Global Const ID_RWGETCLUMPSINSCENE = 500
  688. Global Const ID_RWGETLIGHTSINSCENE = 501
  689. Global Const ID_RWGETCLUMPSINHIERARCHY = 502
  690. Global Const ID_RWGETPOLYGONSINCLUMP = 503
  691. Global Const ID_RWGETTEXTURESINDICT = 504
  692. Global Const ID_RWRELEASEOBJECTS = 506
  693. Global Const ID_RWRELEASERASTERPIXELS = 507
  694.  
  695. Function RwAddChildToClump (ByVal Clmp As Long, ByVal Child As Long) As Long
  696.     RwAddChildToClump = iRwAddChildToClump(Clmp, Child, ID_RWADDCHILDTOCLUMP)
  697. End Function
  698.  
  699. Function RwAddClumpToScene (ByVal Scn As Long, ByVal Clmp As Long) As Long
  700.     RwAddClumpToScene = iRwAddClumpToScene(Scn, Clmp, ID_RWADDCLUMPTOSCENE)
  701. End Function
  702.  
  703. Function RwAddHint (ByVal Hint As Long) As Integer
  704.     RwAddHint = iRwAddHint(Hint, ID_RWADDHINT)
  705. End Function
  706.  
  707. Function RwAddHintToClump (ByVal Clmp As Long, ByVal Hint As Long) As Long
  708.     RwAddHintToClump = iRwAddHintToClump(Clmp, Hint, ID_RWADDHINTTOCLUMP)
  709. End Function
  710.  
  711. Function RwAddLightToScene (ByVal Scn As Long, ByVal Lite As Long) As Long
  712.     RwAddLightToScene = iRwAddLightToScene(Scn, Lite, ID_RWADDLIGHTTOSCENE)
  713. End Function
  714.  
  715. Function RwAddPolygonsToClump (ByVal DestClump As Long, ByVal SrcClump As Long) As Long
  716.     RwAddPolygonsToClump = iRwAddPolygonsToClump(DestClump, SrcClump, ID_RWADDPOLYGONSTOCLUMP)
  717. End Function
  718.  
  719. Function RwAddPolygonToClump (ByVal Clmp As Long, ByVal Sides As Long, VArray As Long) As Long
  720.     RwAddPolygonToClump = iRwAddPolygonToClump(Clmp, Sides, VArray, ID_RWADDPOLYGONTOCLUMP)
  721. End Function
  722.  
  723. Function RwAddTextureModeToMaterial (ByVal Mat As Long, ByVal TextureMode As Long) As Long
  724.     RwAddTextureModeToMaterial = iRwAddTextureModeToMaterial(Mat, TextureMode, ID_RWADDTEXTUREMODETOMATERIAL)
  725. End Function
  726.  
  727. Function RwAddTextureModeToPolygon (ByVal Poly As Long, ByVal TextureMode As Long) As Long
  728.     RwAddTextureModeToPolygon = iRwAddTextureModeToPolygon(Poly, TextureMode, ID_RWADDTEXTUREMODETOPOLYGON)
  729. End Function
  730.  
  731. Function RwAddTextureModeToSurface (ByVal TextureMode As Long) As Integer
  732.     RwAddTextureModeToSurface = iRwAddTextureModeToSurface(TextureMode, ID_RWADDTEXTUREMODETOSURFACE)
  733. End Function
  734.  
  735. Function RwAddVertexToClump (ByVal Clmp As Long, ByVal RlX As Variant, ByVal RlY As Variant, ByVal RlZ As Variant) As Long
  736.     RwAddVertexToClump = iRwAddVertexToClump(Clmp, VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), ID_RWADDVERTEXTOCLUMP)
  737. End Function
  738.  
  739. Function RwBeginCameraUpdate (ByVal Cam As Long, ByVal hwnd As Long) As Long
  740.     RwBeginCameraUpdate = iRwBeginCameraUpdate(Cam, hwnd, ID_RWBEGINCAMERAUPDATE)
  741. End Function
  742.  
  743. Function RwBitmapRaster (ByVal hbitmap As Long, ByVal RasterOptions As Long) As Long
  744.     RwBitmapRaster = iRwBitmapRaster(hbitmap, RasterOptions, ID_RWBITMAPRASTER)
  745. End Function
  746.  
  747. Function RwBlock (ByVal RlWid As Variant, ByVal RlHght As Variant, ByVal RlDepth As Variant) As Integer
  748.     RwBlock = iRwBlock(VAR2REAL(RlWid), VAR2REAL(RlHght), VAR2REAL(RlDepth), ID_RWBLOCK)
  749. End Function
  750.  
  751. Function RwCalculateClumpVertexNormal (ByVal Clmp As Long, ByVal vindex As Long) As Long
  752.     RwCalculateClumpVertexNormal = iRwCalculateClumpVertexNormal(Clmp, vindex, ID_RWCALCULATECLUMPVERTEXNORMAL)
  753. End Function
  754.  
  755. Function RwClearCameraViewport (ByVal Cam As Long) As Long
  756.     RwClearCameraViewport = iRwClearCameraViewport(Cam, ID_RWCLEARCAMERAVIEWPORT)
  757. End Function
  758.  
  759. Sub RwClose ()
  760.     iRwClose ID_RWCLOSE
  761. End Sub
  762.  
  763. Sub RwCloseDebugStream ()
  764.     iRwCloseDebugStream ID_RWCLOSEDEBUGSTREAM
  765. End Sub
  766.  
  767. Function RwClumpBegin () As Integer
  768.     RwClumpBegin = iRwClumpBegin(ID_RWCLUMPBEGIN)
  769. End Function
  770.  
  771. Function RwClumpEnd (Clump As Long) As Long
  772.     Clump = iRwClumpEnd(ID_RWCLUMPEND)
  773.     RwClumpEnd = Clump
  774. End Function
  775.  
  776. Function RwCone (ByVal RlHght As Variant, ByVal RlRad As Variant, ByVal Sides As Long) As Integer
  777.     RwCone = iRwCone(VAR2REAL(RlHght), VAR2REAL(RlRad), Sides, ID_RWCONE)
  778. End Function
  779.  
  780. Function RwCopyMaterial (ByVal MatSrc As Long, ByVal MatDest As Long) As Long
  781.     RwCopyMaterial = iRwCopyMaterial(MatSrc, MatDest, ID_RWCOPYMATERIAL)
  782. End Function
  783.  
  784. Function RwCopyMatrix (ByVal MatrixSrc As Long, ByVal MatrixDest As Long) As Long
  785.     RwCopyMatrix = iRwCopyMatrix(MatrixSrc, MatrixDest, ID_RWCOPYMATRIX)
  786. End Function
  787.  
  788. Function RwCreateCamera (ByVal MaxWid As Long, ByVal MaxHght As Long, ByVal Image As Long) As Long
  789.     RwCreateCamera = iRwCreateCamera(MaxWid, MaxHght, Image, ID_RWCREATECAMERA)
  790. End Function
  791.  
  792. Function RwCreateClump (ByVal VCount As Long, ByVal PCount As Long) As Long
  793.     RwCreateClump = iRwCreateClump(VCount, PCount, ID_RWCREATECLUMP)
  794. End Function
  795.  
  796. Function RwCreateDecal (ByVal Tex As Long) As Long
  797.     RwCreateDecal = iRwCreateDecal(Tex, ID_RWCREATEDECAL)
  798. End Function
  799.  
  800. Function RwCreateLight (ByVal Kind As Long, ByVal RlX As Variant, ByVal RlY As Variant, ByVal RlZ As Variant, ByVal RlLum As Variant) As Long
  801.     RwCreateLight = iRwCreateLight(Kind, VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), VAR2REAL(RlLum), ID_RWCREATELIGHT)
  802. End Function
  803.  
  804. Function RwCreateMaterial () As Long
  805.     RwCreateMaterial = iRwCreateMaterial(ID_RWCREATEMATERIAL)
  806. End Function
  807.  
  808. Function RwCreateMatrix () As Long
  809.     RwCreateMatrix = iRwCreateMatrix(ID_RWCREATEMATRIX)
  810. End Function
  811.  
  812. Function RwCreateRaster (ByVal Wid As Long, ByVal Hght As Long) As Long
  813.     RwCreateRaster = iRwCreateRaster(Wid, Hght, ID_RWCREATERASTER)
  814. End Function
  815.  
  816. Function RwCreateScene () As Long
  817.     RwCreateScene = iRwCreateScene(ID_RWCREATESCENE)
  818. End Function
  819.  
  820. Function RwCreateSprite (ByVal Tex As Long) As Long
  821.     RwCreateSprite = iRwCreateSprite(Tex, ID_RWCREATESPRITE)
  822. End Function
  823.  
  824. Function RwCreateTexture (ByVal Rast As Long) As Long
  825.     RwCreateTexture = iRwCreateTexture(Rast, ID_RWCREATETEXTURE)
  826. End Function
  827.  
  828. Function RwCubicTexturizeClump (ByVal Clmp As Long) As Long
  829.     RwCubicTexturizeClump = iRwCubicTexturizeClump(Clmp, ID_RWCUBICTEXTURIZECLUMP)
  830. End Function
  831.  
  832. Function RwCurrentMaterial () As Long
  833.     RwCurrentMaterial = iRwCurrentMaterial(ID_RWCURRENTMATERIAL)
  834. End Function
  835.  
  836. Function RwCurrentMatrix () As Long
  837.     RwCurrentMatrix = iRwCurrentMatrix(ID_RWCURRENTMATRIX)
  838. End Function
  839.  
  840. Function RwCylinder (ByVal RlHght As Variant, ByVal RlMinRad As Variant, ByVal RlMaxRad As Variant, ByVal Sides As Long) As Integer
  841.     RwCylinder = iRwCylinder(VAR2REAL(RlHght), VAR2REAL(RlMinRad), VAR2REAL(RlMaxRad), Sides, ID_RWCYLINDER)
  842. End Function
  843.  
  844. Function RwDamageCameraViewport (ByVal Cam As Long, ByVal x As Long, ByVal y As Long, ByVal Wid As Long, ByVal Hght As Long) As Long
  845.     RwDamageCameraViewport = iRwDamageCameraViewport(Cam, x, y, Wid, Hght, ID_RWDAMAGECAMERAVIEWPORT)
  846. End Function
  847.  
  848. Function RwDefaultScene () As Long
  849.     RwDefaultScene = iRwDefaultScene(ID_RWDEFAULTSCENE)
  850. End Function
  851.  
  852. Function RwDestroyCamera (ByVal Cam As Long) As Integer
  853.     RwDestroyCamera = iRwDestroyCamera(Cam, ID_RWDESTROYCAMERA)
  854. End Function
  855.  
  856. Function RwDestroyClump (ByVal Clmp As Long) As Integer
  857.     RwDestroyClump = iRwDestroyClump(Clmp, ID_RWDESTROYCLUMP)
  858. End Function
  859.  
  860. Function RwDestroyLight (ByVal Lite As Long) As Integer
  861.     RwDestroyLight = iRwDestroyLight(Lite, ID_RWDESTROYLIGHT)
  862. End Function
  863.  
  864. Function RwDestroyMaterial (ByVal Mat As Long) As Integer
  865.     RwDestroyMaterial = iRwDestroyMaterial(Mat, ID_RWDESTROYMATERIAL)
  866. End Function
  867.  
  868. Function RwDestroyMatrix (ByVal Matx As Long) As Integer
  869.     RwDestroyMatrix = iRwDestroyMatrix(Matx, ID_RWDESTROYMATRIX)
  870. End Function
  871.  
  872. Function RwDestroyPolygon (ByVal Poly As Long) As Integer
  873.     RwDestroyPolygon = iRwDestroyPolygon(Poly, ID_RWDESTROYPOLYGON)
  874. End Function
  875.  
  876. Function RwDestroyRaster (ByVal Rast As Long) As Integer
  877.     RwDestroyRaster = iRwDestroyRaster(Rast, ID_RWDESTROYRASTER)
  878. End Function
  879.  
  880. Function RwDestroyScene (ByVal Scn As Long) As Integer
  881.     RwDestroyScene = iRwDestroyScene(Scn, ID_RWDESTROYSCENE)
  882. End Function
  883.  
  884. Function RwDestroySpline (ByVal Spln As Long) As Integer
  885.     RwDestroySpline = iRwDestroySpline(Spln, ID_RWDESTROYSPLINE)
  886. End Function
  887.  
  888. Function RwDestroyTexture (ByVal Tex As Long) As Integer
  889.     RwDestroyTexture = iRwDestroyTexture(Tex, ID_RWDESTROYTEXTURE)
  890. End Function
  891.  
  892. Function RwDeviceControl (ByVal Action As Long, ByVal Param1 As Long, ByVal Param2 As String, ByVal Size As Long) As Long
  893.     RwDeviceControl = iRwDeviceControl(Action, Param1, Param2, Size, ID_RWDEVICECONTROL)
  894. End Function
  895.  
  896. Function RwDisc (ByVal RlHght As Variant, ByVal RlRad As Variant, ByVal Sides As Long) As Integer
  897.     RwDisc = iRwDisc(VAR2REAL(RlHght), VAR2REAL(RlRad), Sides, ID_RWDISC)
  898. End Function
  899.  
  900. Function RwDuplicateCamera (ByVal Cam As Long, ByVal Image As Long) As Long
  901.     RwDuplicateCamera = iRwDuplicateCamera(Cam, Image, ID_RWDUPLICATECAMERA)
  902. End Function
  903.  
  904. Function RwDuplicateClump (ByVal Clmp As Long) As Long
  905.     RwDuplicateClump = iRwDuplicateClump(Clmp, ID_RWDUPLICATECLUMP)
  906. End Function
  907.  
  908. Function RwDuplicateLight (ByVal Lite As Long) As Long
  909.     RwDuplicateLight = iRwDuplicateLight(Lite, ID_RWDUPLICATELIGHT)
  910. End Function
  911.  
  912. Function RwDuplicateMaterial (ByVal Mat As Long) As Long
  913.     RwDuplicateMaterial = iRwDuplicateMaterial(Mat, ID_RWDUPLICATEMATERIAL)
  914. End Function
  915.  
  916. Function RwDuplicateMatrix (ByVal Matx As Long) As Long
  917.     RwDuplicateMatrix = iRwDuplicateMatrix(Matx, ID_RWDUPLICATEMATRIX)
  918. End Function
  919.  
  920. Function RwDuplicateRaster (ByVal Rast As Long) As Long
  921.     RwDuplicateRaster = iRwDuplicateRaster(Rast, ID_RWDUPLICATERASTER)
  922. End Function
  923.  
  924. Function RwDuplicateSpline (ByVal Spln As Long) As Long
  925.     RwDuplicateSpline = iRwDuplicateSpline(Spln, ID_RWDUPLICATESPLINE)
  926. End Function
  927.  
  928. Function RwEndCameraUpdate (ByVal Cam As Long) As Long
  929.     RwEndCameraUpdate = iRwEndCameraUpdate(Cam, ID_RWENDCAMERAUPDATE)
  930. End Function
  931.  
  932. Function RwEnvMapClump (ByVal Clmp As Long) As Long
  933.     RwEnvMapClump = iRwEnvMapClump(Clmp, ID_RWENVMAPCLUMP)
  934. End Function
  935.  
  936. Function RwFindNamedTexture (ByVal TexName As String) As Long
  937.     RwFindNamedTexture = iRwFindNamedTexture(TexName, ID_RWFINDNAMEDTEXTURE)
  938. End Function
  939.  
  940. Function RwFindTaggedClump (ByVal Clmp As Long, ByVal Tag As Long) As Long
  941.     RwFindTaggedClump = iRwFindTaggedClump(Clmp, Tag, ID_RWFINDTAGGEDCLUMP)
  942. End Function
  943.  
  944. Function RwFindTaggedPolygon (ByVal Clmp As Long, ByVal Tag As Long) As Long
  945.     RwFindTaggedPolygon = iRwFindTaggedPolygon(Clmp, Tag, ID_RWFINDTAGGEDPOLYGON)
  946. End Function
  947.  
  948. Function RwGetCameraBackdrop (ByVal Cam As Long) As Long
  949.     RwGetCameraBackdrop = iRwGetCameraBackdrop(Cam, ID_RWGETCAMERABACKDROP)
  950. End Function
  951.  
  952. Function RwGetCameraBackdropOffset (ByVal Cam As Long, x As Long, y As Long) As Long
  953.     RwGetCameraBackdropOffset = iRwGetCameraBackdropOffset(Cam, x, y, ID_RWGETCAMERABACKDROPOFFSET)
  954. End Function
  955.  
  956. Function RwGetCameraBackdropViewportRect (ByVal Cam As Long, x As Long, y As Long, Wid As Long, Hght As Long) As Long
  957.     RwGetCameraBackdropViewportRect = iRwGetCameraBackdropViewportRect(Cam, x, y, Wid, Hght, ID_RWGETCAMERABACKDROPVIEWPORTRECT)
  958. End Function
  959.  
  960. Function RwGetCameraData (ByVal Cam As Long) As Long
  961.     RwGetCameraData = iRwGetCameraData(Cam, ID_RWGETCAMERADATA)
  962. End Function
  963.  
  964. Function RwGetCameraFarClipping (ByVal Cam As Long) As Single
  965.     RwGetCameraFarClipping = REAL2SINGLE(iRwGetCameraFarClipping(Cam, ID_RWGETCAMERAFARCLIPPING))
  966. End Function
  967.  
  968. Function RwGetCameraImage (ByVal Cam As Long) As Long
  969.     RwGetCameraImage = iRwGetCameraImage(Cam, ID_RWGETCAMERAIMAGE)
  970. End Function
  971.  
  972. Function RwGetCameraLTM (ByVal Cam As Long, ByVal Mat As Long) As Long
  973.     RwGetCameraLTM = iRwGetCameraLTM(Cam, Mat, ID_GETCAMERALTM)
  974. End Function
  975.  
  976. Function RwGetCameraNearClipping (ByVal Cam As Long) As Single
  977.     RwGetCameraNearClipping = REAL2SINGLE(iRwGetCameraNearClipping(Cam, ID_RWGETCAMERANEARCLIPPING))
  978. End Function
  979.  
  980. Function RwGetCameraProjection (ByVal Cam As Long) As Long
  981.     RwGetCameraProjection = iRwGetCameraProjection(Cam, ID_RWGETCAMERAPROJECTION)
  982. End Function
  983.  
  984. Function RwGetCameraViewport (ByVal Cam As Long, x As Long, y As Long, Wid As Long, Hght As Long) As Long
  985.     RwGetCameraViewport = iRwGetCameraViewport(Cam, x, y, Wid, Hght, ID_RWGETCAMERAVIEWPORT)
  986. End Function
  987.  
  988. Function RwGetCameraViewportRaster (ByVal Cam As Long, ByVal Rast As Long) As Long
  989.     RwGetCameraViewportRaster = iRwGetCameraViewportRaster(Cam, Rast, ID_RWGETCAMERAVIEWPORTRASTER)
  990. End Function
  991.  
  992. Function RwGetClumpAxisAlignment (ByVal Clmp As Long) As Long
  993.     RwGetClumpAxisAlignment = iRwGetClumpAxisAlignment(Clmp, ID_RWGETCLUMPAXISALIGNMENT)
  994. End Function
  995.  
  996. Function RwGetClumpData (ByVal Clmp As Long) As Long
  997.     RwGetClumpData = iRwGetClumpData(Clmp, ID_RWGETCLUMPDATA)
  998. End Function
  999.  
  1000. Function RwGetClumpHints (ByVal Clmp As Long) As Long
  1001.     RwGetClumpHints = iRwGetClumpHints(Clmp, ID_RWGETCLUMPHINTS)
  1002. End Function
  1003.  
  1004. Function RwGetClumpJointMatrix (ByVal Clmp As Long, ByVal Matx As Long) As Long
  1005.     RwGetClumpJointMatrix = iRwGetClumpJointMatrix(Clmp, Matx, ID_RWGETCLUMPJOINTMATRIX)
  1006. End Function
  1007.  
  1008. Function RwGetClumpLTM (ByVal Clmp As Long, ByVal Matx As Long) As Long
  1009.     RwGetClumpLTM = iRwGetClumpLTM(Clmp, Matx, ID_RWGETCLUMPLTM)
  1010. End Function
  1011.  
  1012. Function RwGetClumpMatrix (ByVal Clmp As Long, ByVal Matx As Long) As Long
  1013.     RwGetClumpMatrix = iRwGetClumpMatrix(Clmp, Matx, ID_RWGETCLUMPMATRIX)
  1014. End Function
  1015.  
  1016. Function RwGetClumpNumChildren (ByVal Clmp As Long) As Long
  1017.     RwGetClumpNumChildren = iRwGetClumpNumChildren(Clmp, ID_RWGETCLUMPNUMCHILDREN)
  1018. End Function
  1019.  
  1020. Function RwGetClumpNumPolygons (ByVal Clmp As Long) As Long
  1021.     RwGetClumpNumPolygons = iRwGetClumpNumPolygons(Clmp, ID_RWGETCLUMPNUMPOLYGONS)
  1022. End Function
  1023.  
  1024. Function RwGetClumpNumVertices (ByVal Clmp As Long) As Long
  1025.     RwGetClumpNumVertices = iRwGetClumpNumVertices(Clmp, ID_RWGETCLUMPNUMVERTICES)
  1026. End Function
  1027.  
  1028. Function RwGetClumpOwner (ByVal Clmp As Long) As Long
  1029.     RwGetClumpOwner = iRwGetClumpOwner(Clmp, ID_RWGETCLUMPOWNER)
  1030. End Function
  1031.  
  1032. Function RwGetClumpParent (ByVal Clmp As Long) As Long
  1033.     RwGetClumpParent = iRwGetClumpParent(Clmp, ID_RWGETCLUMPPARENT)
  1034. End Function
  1035.  
  1036. Function RwGetClumpRoot (ByVal Clmp As Long) As Long
  1037.     RwGetClumpRoot = iRwGetClumpRoot(Clmp, ID_RWGETCLUMPROOT)
  1038. End Function
  1039.  
  1040. Function RwGetClumpState (ByVal Clmp As Long) As Long
  1041.     RwGetClumpState = iRwGetClumpState(Clmp, ID_RWGETCLUMPSTATE)
  1042. End Function
  1043.  
  1044. Function RwGetClumpTag (ByVal Clmp As Long) As Long
  1045.     RwGetClumpTag = iRwGetClumpTag(Clmp, ID_RWGETCLUMPTAG)
  1046. End Function
  1047.  
  1048. Function RwGetClumpVertexViewportPosition (ByVal Clmp As Long, ByVal vindex As Long, ByVal Cam As Long, x As Long, y As Long, Visible As Long) As Integer
  1049.     RwGetClumpVertexViewportPosition = iRwGetClumpVertexViewportPosition(Clmp, vindex, Cam, x, y, Visible, ID_RWGETCLUMPVERTEXVIEWPORTPOSITION)
  1050. End Function
  1051.  
  1052. Function RwGetClumpViewportRect (ByVal Clmp As Long, ByVal Cam As Long, x As Long, y As Long, Wid As Long, Hght As Long) As Long
  1053.     RwGetClumpViewportRect = iRwGetClumpViewportRect(Clmp, Cam, x, y, Wid, Hght, ID_RWGETCLUMPVIEWPORTRECT)
  1054. End Function
  1055.  
  1056. Function RwGetDebugAssertionState () As Long
  1057.     RwGetDebugAssertionState = iRwGetDebugAssertionState(ID_RWGETDEBUGASSERTIONSTATE)
  1058. End Function
  1059.  
  1060. Function RwGetDebugMessageState () As Long
  1061.     RwGetDebugMessageState = iRwGetDebugMessageState(ID_RWGETDEBUGMESSAGESTATE)
  1062. End Function
  1063.  
  1064. Function RwGetDebugScriptState () As Long
  1065.     RwGetDebugScriptState = iRwGetDebugScriptState(ID_RWGETDEBUGSCRIPTSTATE)
  1066. End Function
  1067.  
  1068. Function RwGetDebugSeverity () As Long
  1069.     RwGetDebugSeverity = iRwGetDebugSeverity(ID_RWGETDEBUGSEVERITY)
  1070. End Function
  1071.  
  1072. Function RwGetDebugTraceState () As Long
  1073.     RwGetDebugTraceState = iRwGetDebugTraceState(ID_RWGETDEBUGTRACESTATE)
  1074. End Function
  1075.  
  1076. Function RwGetDeviceInfo (ByVal Info As Long, value As String, ByVal Size As Long) As Integer
  1077.     RwGetDeviceInfo = iRwGetDeviceInfo(Info, value, Size, ID_RWGETDEVICEINFO)
  1078. End Function
  1079.  
  1080. Function RwGetError () As Long
  1081.     RwGetError = iRwGetError(ID_RWGETERROR)
  1082. End Function
  1083.  
  1084. Function RwGetFirstChildClump (ByVal Clmp As Long) As Long
  1085.     RwGetFirstChildClump = iRwGetFirstChildClump(Clmp, ID_RWGETFIRSTCHILDCLUMP)
  1086. End Function
  1087.  
  1088. Function RwGetInternalError () As Long
  1089.     RwGetInternalError = iRwGetInternalError(ID_RWGETINTERNALERROR)
  1090. End Function
  1091.  
  1092. Function RwGetLightBrightness (ByVal Lite As Long) As Single
  1093.     RwGetLightBrightness = REAL2SINGLE(iRwGetLightBrightness(Lite, ID_RWGETLIGHTBRIGHTNESS))
  1094. End Function
  1095.  
  1096. Function RwGetLightConeAngle (ByVal Lite As Long) As Single
  1097.     RwGetLightConeAngle = REAL2SINGLE(iRwGetLightConeAngle(Lite, ID_RWGETLIGHTCONEANGLE))
  1098. End Function
  1099.  
  1100. Function RwGetLightData (ByVal Lite As Long) As Long
  1101.     RwGetLightData = iRwGetLightData(Lite, ID_RWGETLIGHTDATA)
  1102. End Function
  1103.  
  1104. Function RwGetLightLTM (ByVal Lite As Long, ByVal Mat As Long) As Long
  1105.     RwGetLightLTM = iRwGetLightLTM(Lite, Mat, ID_RWGETLIGHTLTM)
  1106. End Function
  1107.  
  1108. Function RwGetLightOwner (ByVal Lite As Long) As Long
  1109.     RwGetLightOwner = iRwGetLightOwner(Lite, ID_RWGETLIGHTOWNER)
  1110. End Function
  1111.  
  1112. Function RwGetLightState (ByVal Lite As Long) As Long
  1113.     RwGetLightState = iRwGetLightState(Lite, ID_RWGETLIGHTSTATE)
  1114. End Function
  1115.  
  1116. Function RwGetLightType (ByVal Lite As Long) As Long
  1117.     RwGetLightType = iRwGetLightType(Lite, ID_RWGETLIGHTTYPE)
  1118. End Function
  1119.  
  1120. Function RwGetMaterialAmbient (ByVal Mat As Long) As Single
  1121.     RwGetMaterialAmbient = REAL2SINGLE(iRwGetMaterialAmbient(Mat, ID_RWGETMATERIALAMBIENT))
  1122. End Function
  1123.  
  1124. Function RwGetMaterialDiffuse (ByVal Mat As Long) As Single
  1125.     RwGetMaterialDiffuse = REAL2SINGLE(iRwGetMaterialDiffuse(Mat, ID_RWGETMATERIALDIFFUSE))
  1126. End Function
  1127.  
  1128. Function RwGetMaterialGeometrySampling (ByVal Mat As Long) As Long
  1129.     RwGetMaterialGeometrySampling = iRwGetMaterialGeometrySampling(Mat, ID_RWGETMATERIALGEOMETRYSAMPLING)
  1130. End Function
  1131.  
  1132. Function RwGetMaterialLightSampling (ByVal Mat As Long) As Long
  1133.     RwGetMaterialLightSampling = iRwGetMaterialLightSampling(Mat, ID_RWGETMATERIALLIGHTSAMPLING)
  1134. End Function
  1135.  
  1136. Function RwGetMaterialOpacity (ByVal Mat As Long) As Single
  1137.     RwGetMaterialOpacity = REAL2SINGLE(iRwGetMaterialOpacity(Mat, ID_RWGETMATERIALOPACITY))
  1138. End Function
  1139.  
  1140. Function RwGetMaterialSpecular (ByVal Mat As Long) As Single
  1141.     RwGetMaterialSpecular = REAL2SINGLE(iRwGetMaterialSpecular(Mat, ID_RWGETMATERIALSPECULAR))
  1142. End Function
  1143.  
  1144. Function RwGetMaterialTexture (ByVal Mat As Long) As Long
  1145.     RwGetMaterialTexture = iRwGetMaterialTexture(Mat, ID_RWGETMATERIALTEXTURE)
  1146. End Function
  1147.  
  1148. Function RwGetMaterialTextureModes (ByVal Mat As Long) As Long
  1149.     RwGetMaterialTextureModes = iRwGetMaterialTextureModes(Mat, ID_RWGETMATERIALTEXTUREMODES)
  1150. End Function
  1151.  
  1152. Function RwGetMatrixElement (ByVal Matx As Long, ByVal i As Long, ByVal J As Long) As Single
  1153.     RwGetMatrixElement = REAL2SINGLE(iRwGetMatrixElement(Matx, i, J, ID_RWGETMATRIXELEMENT))
  1154. End Function
  1155.  
  1156. Function RwGetNamedTexture (ByVal TexName As String) As Long
  1157.     RwGetNamedTexture = iRwGetNamedTexture(TexName, ID_RWGETNAMEDTEXTURE)
  1158. End Function
  1159.  
  1160. Function RwGetNextClump (ByVal Clmp As Long) As Long
  1161.     RwGetNextClump = iRwGetNextClump(Clmp, ID_RWGETNEXTCLUMP)
  1162. End Function
  1163.  
  1164. Function RwGetNumNamedTextures () As Long
  1165.     RwGetNumNamedTextures = iRwGetNumNamedTextures(ID_RWGETNUMNAMEDTEXTURES)
  1166. End Function
  1167.  
  1168. Function RwGetPaletteEntries (ByVal start As Long, ByVal Length As Long, palette As RwPaletteEntry) As Long
  1169.     RwGetPaletteEntries = iRwGetPaletteEntries(start, Length, palette, ID_RWGETPALETTEENTRIES)
  1170. End Function
  1171.  
  1172. Function RwGetPolygonAmbient (ByVal Poly As Long) As Single
  1173.     RwGetPolygonAmbient = REAL2SINGLE(iRwGetPolygonAmbient(Poly, ID_RWGETPOLYGONAMBIENT))
  1174. End Function
  1175.  
  1176. Function RwGetPolygonData (ByVal Poly As Long) As Long
  1177.     RwGetPolygonData = iRwGetPolygonData(Poly, ID_RWGETPOLYGONDATA)
  1178. End Function
  1179.  
  1180. Function RwGetPolygonDiffuse (ByVal Poly As Long) As Single
  1181.     RwGetPolygonDiffuse = REAL2SINGLE(iRwGetPolygonDiffuse(Poly, ID_RWGETPOLYGONDIFFUSE))
  1182. End Function
  1183.  
  1184. Function RwGetPolygonGeometrySampling (ByVal Poly As Long) As Long
  1185.     RwGetPolygonGeometrySampling = iRwGetPolygonGeometrySampling(Poly, ID_RWGETPOLYGONGEOMETRYSAMPLING)
  1186. End Function
  1187.  
  1188. Function RwGetPolygonLightSampling (ByVal Poly As Long) As Long
  1189.     RwGetPolygonLightSampling = iRwGetPolygonLightSampling(Poly, ID_RWGETPOLYGONLIGHTSAMPLING)
  1190. End Function
  1191.  
  1192. Function RwGetPolygonMaterial (ByVal Poly As Long) As Long
  1193.     RwGetPolygonMaterial = iRwGetPolygonMaterial(Poly, ID_RWGETPOLYGONMATERIAL)
  1194. End Function
  1195.  
  1196. Function RwGetPolygonNumSides (ByVal Poly As Long) As Long
  1197.     RwGetPolygonNumSides = iRwGetPolygonNumSides(Poly, ID_RWGETPOLYGONNUMSIDES)
  1198. End Function
  1199.  
  1200. Function RwGetPolygonOpacity (ByVal Poly As Long) As Single
  1201.     RwGetPolygonOpacity = REAL2SINGLE(iRwGetPolygonOpacity(Poly, ID_RWGETPOLYGONOPACITY))
  1202. End Function
  1203.  
  1204. Function RwGetPolygonOwner (ByVal Poly As Long) As Long
  1205.     RwGetPolygonOwner = iRwGetPolygonOwner(Poly, ID_RWGETPOLYGONOWNER)
  1206. End Function
  1207.  
  1208. Function RwGetPolygonSpecular (ByVal Poly As Long) As Single
  1209.     RwGetPolygonSpecular = REAL2SINGLE(iRwGetPolygonSpecular(Poly, ID_RWGETPOLYGONSPECULAR))
  1210. End Function
  1211.  
  1212. Function RwGetPolygonTag (ByVal Poly As Long) As Long
  1213.     RwGetPolygonTag = iRwGetPolygonTag(Poly, ID_RWGETPOLYGONTAG)
  1214. End Function
  1215.  
  1216. Function RwGetPolygonTexture (ByVal Poly As Long) As Long
  1217.     RwGetPolygonTexture = iRwGetPolygonTexture(Poly, ID_RWGETPOLYGONTEXTURE)
  1218. End Function
  1219.  
  1220. Function RwGetPolygonTextureModes (ByVal Poly As Long) As Long
  1221.     RwGetPolygonTextureModes = iRwGetPolygonTextureModes(Poly, ID_RWGETPOLYGONTEXTUREMODES)
  1222. End Function
  1223.  
  1224. Function RwGetPolygonVertices (ByVal Poly As Long, VArray As Long) As Long
  1225.     RwGetPolygonVertices = iRwGetPolygonVertices(Poly, VArray, ID_RWGETPOLYGONVERTICES)
  1226. End Function
  1227.  
  1228. Function RwGetRasterData (ByVal Rast As Long) As Long
  1229.     RwGetRasterData = iRwGetRasterData(Rast, ID_RWGETRASTERDATA)
  1230. End Function
  1231.  
  1232. Function RwGetRasterDepth (ByVal Rast As Long) As Long
  1233.     RwGetRasterDepth = iRwGetRasterDepth(Rast, ID_RWGETRASTERDEPTH)
  1234. End Function
  1235.  
  1236. Function RwGetRasterHeight (ByVal Rast As Long) As Long
  1237.     RwGetRasterHeight = iRwGetRasterHeight(Rast, ID_RWGETRASTERHEIGHT)
  1238. End Function
  1239.  
  1240. Function RwGetRasterPixels (ByVal Rast As Long) As Long
  1241.     RwGetRasterPixels = iRwGetRasterPixels(Rast, ID_RWGETRASTERPIXELS)
  1242. End Function
  1243.  
  1244. Function RwGetRasterStride (ByVal Rast As Long) As Long
  1245.     RwGetRasterStride = iRwGetRasterStride(Rast, ID_RWGETRASTERSTRIDE)
  1246. End Function
  1247.  
  1248. Function RwGetRasterWidth (ByVal Rast As Long) As Long
  1249.     RwGetRasterWidth = iRwGetRasterWidth(Rast, ID_RWGETRASTERWIDTH)
  1250. End Function
  1251.  
  1252. Function RwGetSceneData (ByVal Scn As Long) As Long
  1253.     RwGetSceneData = iRwGetSceneData(Scn, ID_RWGETSCENEDATA)
  1254. End Function
  1255.  
  1256. Function RwGetSceneNumClumps (ByVal Scn As Long) As Long
  1257.     RwGetSceneNumClumps = iRwGetSceneNumClumps(Scn, ID_RWGETSCENENUMCLUMPS)
  1258. End Function
  1259.  
  1260. Function RwGetSceneNumLights (ByVal Scn As Long) As Long
  1261.     RwGetSceneNumLights = iRwGetSceneNumLights(Scn, ID_RWGETSCENENUMLIGHTS)
  1262. End Function
  1263.  
  1264. Function RwGetShapePath (ByVal Path As String) As Long
  1265.     RwGetShapePath = iRwGetShapePath(Path, ID_RWGETSHAPEPATH)
  1266. End Function
  1267.  
  1268. Function RwGetSplineData (ByVal Spln As Long) As Long
  1269.     RwGetSplineData = iRwGetSplineData(Spln, ID_RWGETSPLINEDATA)
  1270. End Function
  1271.  
  1272. Function RwGetSplineNumPoints (ByVal Spln As Long) As Long
  1273.     RwGetSplineNumPoints = iRwGetSplineNumPoints(Spln, ID_RWGETSPLINENUMPOINTS)
  1274. End Function
  1275.  
  1276. Function RwGetSystemInfo (ByVal Kind As Long, Info As String, ByVal Size As Long) As Integer
  1277.     RwGetSystemInfo = iRwGetSystemInfo(Kind, Info, Size, ID_RWGETSYSTEMINFO)
  1278. End Function
  1279.  
  1280. Function RwGetTextureData (ByVal Tex As Long) As Long
  1281.     RwGetTextureData = iRwGetTextureData(Tex, ID_RWGETTEXTUREDATA)
  1282. End Function
  1283.  
  1284. Function RwGetTextureDictSearchMode () As Long
  1285.     RwGetTextureDictSearchMode = iRwGetTextureDictSearchMode(ID_RWGETTEXTUREDICTSEARCHMODE)
  1286. End Function
  1287.  
  1288. Function RwGetTextureDithering () As Long
  1289.     RwGetTextureDithering = iRwGetTextureDithering(ID_RWGETTEXTUREDITHERING)
  1290. End Function
  1291.  
  1292. Function RwGetTextureFrame (ByVal Tex As Long) As Long
  1293.     RwGetTextureFrame = iRwGetTextureFrame(Tex, ID_RWGETTEXTUREFRAME)
  1294. End Function
  1295.  
  1296. Function RwGetTextureFrameStep (ByVal Tex As Long) As Long
  1297.     RwGetTextureFrameStep = iRwGetTextureFrameStep(Tex, ID_RWGETTEXTUREFRAMESTEP)
  1298. End Function
  1299.  
  1300. Function RwGetTextureGammaCorrection () As Long
  1301.     RwGetTextureGammaCorrection = iRwGetTextureGammaCorrection(ID_RWGETTEXTUREGAMMACORRECTION)
  1302. End Function
  1303.  
  1304. Function RwGetTextureName (ByVal Tex As Long, Buf As String, ByVal Length As Long) As Long
  1305.     RwGetTextureName = iRwGetTextureName(Tex, Buf, Length, ID_RWGETTEXTURENAME)
  1306. End Function
  1307.  
  1308. Function RwGetTextureNumFrames (ByVal Tex As Long) As Long
  1309.     RwGetTextureNumFrames = iRwGetTextureNumFrames(Tex, ID_RWGETTEXTURENUMFRAMES)
  1310. End Function
  1311.  
  1312. Function RwGetTextureRaster (ByVal Tex As Long) As Long
  1313.     RwGetTextureRaster = iRwGetTextureRaster(Tex, ID_RWGETTEXTURERASTER)
  1314. End Function
  1315.  
  1316. Function RwHemisphere (ByVal RlRad As Long, ByVal Sides As Long) As Integer
  1317.     RwHemisphere = iRwHemisphere(VAR2REAL(RlRad), Sides, ID_RWHEMISPHERE)
  1318. End Function
  1319.  
  1320. Function RwIdentityCTM () As Integer
  1321.     RwIdentityCTM = iRwIdentityCTM(ID_RWIDENTITYCTM)
  1322. End Function
  1323.  
  1324. Function RwIdentityJointTM () As Integer
  1325.     RwIdentityJointTM = iRwIdentityJointTM(ID_RWIDENTITYJOINTTM)
  1326. End Function
  1327.  
  1328. Function RwIdentityMatrix (ByVal Matx As Long) As Long
  1329.     RwIdentityMatrix = iRwIdentityMatrix(Matx, ID_RWIDENTITYMATRIX)
  1330. End Function
  1331.  
  1332. Function RwInclude (ByVal Clmp As Long) As Integer
  1333.     RwInclude = iRwInclude(Clmp, ID_RWINCLUDE)
  1334. End Function
  1335.  
  1336. Function RwIncludeGeometry (ByVal Clmp As Long) As Integer
  1337.     RwIncludeGeometry = iRwIncludeGeometry(Clmp, ID_RWINCLUDEGEOMETRY)
  1338. End Function
  1339.  
  1340. Function RwInvalidateCameraViewport (ByVal Cam As Long) As Long
  1341.     RwInvalidateCameraViewport = iRwInvalidateCameraViewport(Cam, ID_RWINVALIDATECAMERAVIEWPORT)
  1342. End Function
  1343.  
  1344. Function RwInvertMatrix (ByVal srcMatx As Long, ByVal DstMatx As Long) As Long
  1345.     RwInvertMatrix = iRwInvertMatrix(srcMatx, DstMatx, ID_RWINVERTMATRIX)
  1346. End Function
  1347.  
  1348. Function RwJointTransformBegin () As Integer
  1349.     RwJointTransformBegin = iRwJointTransformBegin(ID_RWJOINTTRANSFORMBEGIN)
  1350. End Function
  1351.  
  1352. Function RwJointTransformEnd () As Integer
  1353.     RwJointTransformEnd = iRwJointTransformEnd(ID_RWJOINTTRANSFORMEND)
  1354. End Function
  1355.  
  1356. Function RwMaskTexture (ByVal Tex As Long, ByVal Rast As Long) As Long
  1357.     RwMaskTexture = iRwMaskTexture(Tex, Rast, ID_RWMASKTEXTURE)
  1358. End Function
  1359.  
  1360. Function RwMaterialBegin () As Integer
  1361.     RwMaterialBegin = iRwMaterialBegin(ID_RWMATERIALBEGIN)
  1362. End Function
  1363.  
  1364. Function RwMaterialEnd () As Integer
  1365.     RwMaterialEnd = iRwMaterialEnd(ID_RWMATERIALEND)
  1366. End Function
  1367.  
  1368. Function RwModelBegin () As Integer
  1369.     RwModelBegin = iRwModelBegin(ID_RWMODELBEGIN)
  1370. End Function
  1371.  
  1372. Function RwModelEnd () As Integer
  1373.     RwModelEnd = iRwModelEnd(ID_RWMODELEND)
  1374. End Function
  1375.  
  1376. Function RwMultiplyMatrix (ByVal MatrixA As Long, ByVal MatrixB As Long, ByVal MatrixC As Long) As Long
  1377.     RwMultiplyMatrix = iRwMultiplyMatrix(MatrixA, MatrixB, MatrixC, ID_RWMULTIPLYMATRIX)
  1378. End Function
  1379.  
  1380. Function RwNormalizeClump (ByVal Clmp As Long) As Long
  1381.     RwNormalizeClump = iRwNormalizeClump(Clmp, ID_RWNORMALIZECLUMP)
  1382. End Function
  1383.  
  1384. Function RwOpen (ByVal DevName As String, ByVal Param As Long) As Integer
  1385.     RwOpen = iRwOpen(DevName, Param, ID_RWOPEN)
  1386. End Function
  1387.  
  1388. Function RwOpenDebugStream (ByVal FileName As String) As Integer
  1389.     RwOpenDebugStream = iRwOpenDebugStream(FileName, ID_RWOPENDEBUGSTREAM)
  1390. End Function
  1391.  
  1392. Function RwOpenExt (ByVal DevName As String, ByVal Param As Long, ByVal NumArgs As Long, Args As RwOpenArgument) As Integer
  1393.     RwOpenExt = iRwOpenExt(DevName, Param, NumArgs, Args, ID_RWOPENEXT)
  1394. End Function
  1395.  
  1396. Function RwOrthoNormalizeMatrix (ByVal srcMatx As Long, ByVal DstMatx As Long) As Long
  1397.     RwOrthoNormalizeMatrix = iRwOrthoNormalizeMatrix(srcMatx, DstMatx, ID_RWORTHONORMALIZEMATRIX)
  1398. End Function
  1399.  
  1400. Function RwPanCamera (ByVal Cam As Long, ByVal RlAngle As Variant) As Long
  1401.     RwPanCamera = iRwPanCamera(Cam, VAR2REAL(RlAngle), ID_RWPANCAMERA)
  1402. End Function
  1403.  
  1404. Function RwPointCamera (ByVal Cam As Long, ByVal RlX As Variant, ByVal RlY As Variant, ByVal RlZ As Variant) As Long
  1405.     RwPointCamera = iRwPointCamera(Cam, VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), ID_RWPOINTCAMERA)
  1406. End Function
  1407.  
  1408. Function RwPolygon (ByVal Sides As Long, VArray As Long) As Integer
  1409.     RwPolygon = iRwPolygon(Sides, VArray, ID_RWPOLYGON)
  1410. End Function
  1411.  
  1412. Function RwPolygonExt (ByVal Sides As Long, VArray As Long, ByVal Tag As Long) As Integer
  1413.     RwPolygonExt = iRwPolygonExt(Sides, VArray, Tag, ID_RWPOLYGONEXT)
  1414. End Function
  1415.  
  1416. Function RwPopCurrentMaterial () As Long
  1417.     RwPopCurrentMaterial = iRwPopCurrentMaterial(ID_RWPOPCURRENTMATERIAL)
  1418. End Function
  1419.  
  1420. Function RwPopCurrentMatrix () As Long
  1421.     RwPopCurrentMatrix = iRwPopCurrentMatrix(ID_RWPOPCURRENTMATRIX)
  1422. End Function
  1423.  
  1424. Function RwPopScratchMatrix () As Long
  1425.     RwPopScratchMatrix = iRwPopScratchMatrix(ID_RWPOPSCRATCHMATRIX)
  1426. End Function
  1427.  
  1428. Function RwProtoBegin (ByVal Proto As String) As Integer
  1429.     RwProtoBegin = iRwProtoBegin(Proto, ID_RWPROTOBEGIN)
  1430. End Function
  1431.  
  1432. Function RwProtoEnd () As Integer
  1433.     RwProtoEnd = iRwProtoEnd(ID_RWPROTOEND)
  1434. End Function
  1435.  
  1436. Function RwProtoInstance (ByVal Proto As String) As Integer
  1437.     RwProtoInstance = iRwProtoInstance(Proto, ID_RWPROTOINSTANCE)
  1438. End Function
  1439.  
  1440. Function RwProtoInstanceGeometry (ByVal Proto As String) As Long
  1441.     RwProtoInstanceGeometry = iRwProtoInstanceGeometry(Proto, ID_RWPROTOINSTANCEGEOMETRY)
  1442. End Function
  1443.  
  1444. Function RwPushCurrentMaterial () As Long
  1445.     RwPushCurrentMaterial = iRwPushCurrentMaterial(ID_RWPUSHCURRENTMATERIAL)
  1446. End Function
  1447.  
  1448. Function RwPushCurrentMatrix () As Long
  1449.     RwPushCurrentMatrix = iRwPushCurrentMatrix(ID_RWPUSHCURRENTMATRIX)
  1450. End Function
  1451.  
  1452. Function RwPushScratchMatrix () As Long
  1453.     RwPushScratchMatrix = iRwPushScratchMatrix(ID_RWPUSHSCRATCHMATRIX)
  1454. End Function
  1455.  
  1456. Function RwQuad (ByVal V1 As Long, ByVal V2 As Long, ByVal V3 As Long, ByVal V4 As Long) As Integer
  1457.     RwQuad = iRwQuad(V1, V2, V3, V4, ID_RWQUAD)
  1458. End Function
  1459.  
  1460. Function RwQuadExt (ByVal V1 As Long, ByVal V2 As Long, ByVal V3 As Long, ByVal V4 As Long, ByVal Tag As Long) As Integer
  1461.     RwQuadExt = iRwQuadExt(V1, V2, V3, V4, Tag, ID_RWQUADEXT)
  1462. End Function
  1463.  
  1464. Function RwRandom () As Long
  1465.     RwRandom = iRwRandom(ID_RWRANDOM)
  1466. End Function
  1467.  
  1468. Function RwReadMaskRaster (ByVal FileName As String) As Long
  1469.     RwReadMaskRaster = iRwReadMaskRaster(FileName, ID_RWREADMASKRASTER)
  1470. End Function
  1471.  
  1472. Function RwReadNamedTexture (ByVal FileName As String) As Long
  1473.     RwReadNamedTexture = iRwReadNamedTexture(FileName, ID_RWREADNAMEDTEXTURE)
  1474. End Function
  1475.  
  1476. Function RwReadRaster (ByVal FileName As String, ByVal options As Long) As Long
  1477.     RwReadRaster = iRwReadRaster(FileName, options, ID_RWREADRASTER)
  1478. End Function
  1479.  
  1480. Function RwReadShape (ByVal FileName As String) As Long
  1481.     RwReadShape = iRwReadShape(FileName, ID_RWREADSHAPE)
  1482. End Function
  1483.  
  1484. Function RwReadTexture (ByVal FileName As String) As Long
  1485.     RwReadTexture = iRwReadTexture(FileName, ID_RWREADTEXTURE)
  1486. End Function
  1487.  
  1488. Function RwReleaseRasterPixels (ByVal Raster As Long, ByVal pixels As Long) As Long
  1489.     RwReleaseRasterPixels = iRwReleaseRasterPixels(Raster, pixels, ID_RWRELEASERASTERPIXELS)
  1490. End Function
  1491.  
  1492. Function RwRemoveChildFromClump (ByVal Clmp As Long) As Long
  1493.     RwRemoveChildFromClump = iRwRemoveChildFromClump(Clmp, ID_RWREMOVECHILDFROMCLUMP)
  1494. End Function
  1495.  
  1496. Function RwRemoveClumpFromScene (ByVal Clmp As Long) As Long
  1497.     RwRemoveClumpFromScene = iRwRemoveClumpFromScene(Clmp, ID_RWREMOVECLUMPFROMSCENE)
  1498. End Function
  1499.  
  1500. Function RwRemoveHint (ByVal Hint As Long) As Integer
  1501.     RwRemoveHint = iRwRemoveHint(Hint, ID_RWREMOVEHINT)
  1502. End Function
  1503.  
  1504. Function RwRemoveHintFromClump (ByVal Clmp As Long, ByVal Hint As Long) As Long
  1505.     RwRemoveHintFromClump = iRwRemoveHintFromClump(Clmp, Hint, ID_RWREMOVEHINTFROMCLUMP)
  1506. End Function
  1507.  
  1508. Function RwRemoveLightFromScene (ByVal Lite As Long) As Long
  1509.     RwRemoveLightFromScene = iRwRemoveLightFromScene(Lite, ID_RWREMOVELIGHTFROMSCENE)
  1510. End Function
  1511.  
  1512. Function RwRemoveTextureModeFromMaterial (ByVal Mat As Long, ByVal Mode As Long) As Long
  1513.     RwRemoveTextureModeFromMaterial = iRwRemoveTextureModeFromMaterial(Mat, Mode, ID_RWREMOVETEXTUREMODEFROMMATERIAL)
  1514. End Function
  1515.  
  1516. Function RwRemoveTextureModeFromPolygon (ByVal Poly As Long, ByVal Mode As Long) As Long
  1517.     RwRemoveTextureModeFromPolygon = iRwRemoveTextureModeFromPolygon(Poly, Mode, ID_RWREMOVETEXTUREMODEFROMPOLYGON)
  1518. End Function
  1519.  
  1520. Function RwRemoveTextureModeFromSurface (ByVal Mode As Long) As Integer
  1521.     RwRemoveTextureModeFromSurface = iRwRemoveTextureModeFromSurface(Mode, ID_RWREMOVETEXTUREMODEFROMSURFACE)
  1522. End Function
  1523.  
  1524. Function RwRenderClump (ByVal Clmp As Long) As Long
  1525.     RwRenderClump = iRwRenderClump(Clmp, ID_RWRENDERCLUMP)
  1526. End Function
  1527.  
  1528. Function RwRenderScene (ByVal Scn As Long) As Long
  1529.     RwRenderScene = iRwRenderScene(Scn, ID_RWRENDERSCENE)
  1530. End Function
  1531.  
  1532. Function RwResetCamera (ByVal Cam As Long) As Long
  1533.     RwResetCamera = iRwResetCamera(Cam, ID_RWRESETCAMERA)
  1534. End Function
  1535.  
  1536. Function RwReversePolygonFace (ByVal Poly As Long) As Long
  1537.     RwReversePolygonFace = iRwReversePolygonFace(Poly, ID_RWREVERSEPOLYGONFACE)
  1538. End Function
  1539.  
  1540. Function RwRevolveCamera (ByVal Cam As Long, ByVal RlT As Variant) As Long
  1541.     RwRevolveCamera = iRwRevolveCamera(Cam, VAR2REAL(RlT), ID_RWREVOVLECAMERA)
  1542. End Function
  1543.  
  1544. Function RwRotateCTM (ByVal RlAX As Long, ByVal RlAY As Variant, ByVal RlAZ As Variant, ByVal RlT As Variant) As Integer
  1545.     RwRotateCTM = iRwRotateCTM(VAR2REAL(RlAX), VAR2REAL(RlAY), VAR2REAL(RlAZ), VAR2REAL(RlT), ID_RWROTATECTM)
  1546. End Function
  1547.  
  1548. Function RwRotateJointTM (ByVal RlAX As Long, ByVal RlAY As Variant, ByVal RlAZ As Variant, ByVal RlT As Variant) As Integer
  1549.     RwRotateJointTM = iRwRotateJointTM(VAR2REAL(RlAX), VAR2REAL(RlAY), VAR2REAL(RlAZ), VAR2REAL(RlT), ID_RWROTATEJOINTTM)
  1550. End Function
  1551.  
  1552. Function RwRotateMatrix (ByVal Matx As Long, ByVal RlVX As Variant, ByVal RlVY As Variant, ByVal RlVZ As Variant, ByVal RlT As Variant, ByVal Op As Long) As Long
  1553.     RwRotateMatrix = iRwRotateMatrix(Matx, VAR2REAL(RlVX), VAR2REAL(RlVY), VAR2REAL(RlVZ), VAR2REAL(RlT), Op, ID_RWROTATEMATRIX)
  1554. End Function
  1555.  
  1556. Function RwRotateMatrixCos (ByVal Matx As Long, ByVal RlVX As Variant, ByVal RlVY As Variant, ByVal RlVZ As Variant, ByVal RlCT As Variant, ByVal RlDir As Variant, ByVal Op As Long) As Long
  1557.     RwRotateMatrixCos = iRwRotateMatrixCos(Matx, VAR2REAL(RlVX), VAR2REAL(RlVY), VAR2REAL(RlVZ), VAR2REAL(RlCT), VAR2REAL(RlDir), Op, ID_RWROTATEMATRIXCOS)
  1558. End Function
  1559.  
  1560. Function RwScaleCTM (ByVal RlSX As Variant, ByVal RlSY As Variant, ByVal RlSZ As Variant) As Long
  1561.     RwScaleCTM = iRwScaleCTM(VAR2REAL(RlSX), VAR2REAL(RlSY), VAR2REAL(RlSZ), ID_RWSCALECTM)
  1562. End Function
  1563.  
  1564. Function RwScaleMatrix (ByVal Matx As Long, ByVal RlSX As Variant, ByVal RlSY As Variant, ByVal RlSZ As Variant, ByVal Op As Long) As Long
  1565.     RwScaleMatrix = iRwScaleMatrix(Matx, VAR2REAL(RlSX), VAR2REAL(RlSY), VAR2REAL(RlSZ), Op, ID_RWSCALEMATRIX)
  1566. End Function
  1567.  
  1568. Function RwScratchMatrix () As Long
  1569.     RwScratchMatrix = iRwScratchMatrix(ID_RWSCRATCHMATRIX)
  1570. End Function
  1571.  
  1572. Function RwSetAxisAlignment (ByVal Align As Long) As Integer
  1573.     RwSetAxisAlignment = iRwSetAxisAlignment(Align, ID_RWSETAXISALIGNMENT)
  1574. End Function
  1575.  
  1576. Function RwSetCameraBackColor (ByVal Cam As Long, ByVal RlRed As Variant, ByVal RlGreen As Variant, ByVal RlBlue As Variant) As Long
  1577.     RwSetCameraBackColor = iRwSetCameraBackColor(Cam, VAR2REAL(RlRed), VAR2REAL(RlGreen), VAR2REAL(RlBlue), ID_RWSETCAMERABACKCOLOR)
  1578. End Function
  1579.  
  1580. Function RwSetCameraBackdrop (ByVal Cam As Long, ByVal Rast As Long) As Long
  1581.     RwSetCameraBackdrop = iRwSetCameraBackdrop(Cam, Rast, ID_RWSETCAMERABACKDROP)
  1582. End Function
  1583.  
  1584. Function RwSetCameraBackdropOffset (ByVal Cam As Long, ByVal x As Long, ByVal y As Long) As Long
  1585.     RwSetCameraBackdropOffset = iRwSetCameraBackdropOffset(Cam, x, y, ID_RWSETCAMERABACKDROPOFFSET)
  1586. End Function
  1587.  
  1588. Function RwSetCameraBackdropViewportRect (ByVal Cam As Long, ByVal x As Long, ByVal y As Long, ByVal Wid As Long, ByVal Hght As Long) As Long
  1589.     RwSetCameraBackdropViewportRect = iRwSetCameraBackdropViewportRect(Cam, x, y, Wid, Hght, ID_RWSETCAMERABACKDROPVIEWPORTRECT)
  1590. End Function
  1591.  
  1592. Function RwSetCameraData (ByVal Cam As Long, ByVal CamData As Long) As Long
  1593.     RwSetCameraData = iRwSetCameraData(Cam, CamData, ID_RWSETCAMERADATA)
  1594. End Function
  1595.  
  1596. Function RwSetCameraLookAt (ByVal Cam As Long, ByVal RlX As Variant, ByVal RlY As Variant, ByVal RlZ As Variant) As Long
  1597.     RwSetCameraLookAt = iRwSetCameraLookAt(Cam, VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), ID_RWSETCAMERALOOKAT)
  1598. End Function
  1599.  
  1600. Function RwSetCameraLookUp (ByVal Cam As Long, ByVal RlX As Variant, ByVal RlY As Variant, ByVal RlZ As Variant) As Long
  1601.     RwSetCameraLookUp = iRwSetCameraLookUp(Cam, VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), ID_RWSETCAMERALOOKUP)
  1602. End Function
  1603.  
  1604. Function RwSetCameraNearClipping (ByVal Cam As Long, ByVal RlNear As Variant) As Long
  1605.     RwSetCameraNearClipping = iRwSetCameraNearClipping(Cam, VAR2REAL(RlNear), ID_RWSETCAMERANEARCLIPPING)
  1606. End Function
  1607.  
  1608. Function RwSetCameraPosition (ByVal Cam As Long, ByVal RlX As Variant, ByVal RlY As Variant, ByVal RlZ As Variant) As Long
  1609.     RwSetCameraPosition = iRwSetCameraPosition(Cam, VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), ID_RWSETCAMERAPOSITION)
  1610. End Function
  1611.  
  1612. Function RwSetCameraProjection (ByVal Cam As Long, ByVal Kind As Long) As Long
  1613.     RwSetCameraProjection = iRwSetCameraProjection(Cam, Kind, ID_RWSETCAMERAPROJECTION)
  1614. End Function
  1615.  
  1616. Function RwSetCameraViewOffset (ByVal Cam As Long, ByVal RlX As Variant, ByVal RlY As Variant) As Long
  1617.     RwSetCameraViewOffset = iRwSetCameraViewOffset(Cam, VAR2REAL(RlX), VAR2REAL(RlY), ID_RWSETCAMERAVIEWOFFSET)
  1618. End Function
  1619.  
  1620. Function RwSetCameraViewport (ByVal Cam As Long, ByVal x As Long, ByVal y As Long, ByVal Wid As Long, ByVal Hght As Long) As Long
  1621.     RwSetCameraViewport = iRwSetCameraViewport(Cam, x, y, Wid, Hght, ID_RWSETCAMERAVIEWPORT)
  1622. End Function
  1623.  
  1624. Function RwSetCameraViewwindow (ByVal Cam As Long, ByVal RlWid As Variant, ByVal RlHght As Variant) As Long
  1625.     RwSetCameraViewwindow = iRwSetCameraViewwindow(Cam, VAR2REAL(RlWid), VAR2REAL(RlHght), ID_RWSETCAMERAVIEWWINDOW)
  1626. End Function
  1627.  
  1628. Function RwSetClumpAxisAlignment (ByVal Clmp As Long, ByVal Align As Long) As Long
  1629.     RwSetClumpAxisAlignment = iRwSetClumpAxisAlignment(Clmp, Align, ID_RWSETCLUMPAXISALIGNMENT)
  1630. End Function
  1631.  
  1632. Function RwSetClumpData (ByVal Clmp As Long, ByVal ClumpData As Long) As Long
  1633.     RwSetClumpData = iRwSetClumpData(Clmp, ClumpData, ID_RWSETCLUMPDATA)
  1634. End Function
  1635.  
  1636. Function RwSetClumpHints (ByVal Clmp As Long, ByVal Hints As Long) As Long
  1637.     RwSetClumpHints = iRwSetClumpHints(Clmp, Hints, ID_RWSETCLUMPHINTS)
  1638. End Function
  1639.  
  1640. Function RwSetClumpState (ByVal Clmp As Long, ByVal State As Long) As Long
  1641.     RwSetClumpState = iRwSetClumpState(Clmp, State, ID_RWSETCLUMPSTATE)
  1642. End Function
  1643.  
  1644. Function RwSetClumpTag (ByVal Clmp As Long, ByVal Tag As Long) As Long
  1645.     RwSetClumpTag = iRwSetClumpTag(Clmp, Tag, ID_RWSETCLUMPTAG)
  1646. End Function
  1647.  
  1648. Function RwSetClumpVertexUV (ByVal Clmp As Long, ByVal Index As Long, ByVal RlU As Variant, ByVal RlV As Variant) As Long
  1649.     RwSetClumpVertexUV = iRwSetClumpVertexUV(Clmp, Index, VAR2REAL(RlU), VAR2REAL(RlV), ID_RWSETCLUMPVERTEXUV)
  1650. End Function
  1651.  
  1652. Sub RwSetDebugAssertionState (ByVal State As Long)
  1653.     iRwSetDebugAssertionState State, ID_RWSETDEBUGASSETIONSTATE
  1654. End Sub
  1655.  
  1656. Sub RwSetDebugMessageState (ByVal State As Long)
  1657.     iRwSetDebugMessageState State, ID_RWSETDEBUGMESSAGESTATE
  1658. End Sub
  1659.  
  1660. Sub RwSetDebugOutputState (ByVal State As Long)
  1661.     iRwSetDebugOutputState State, ID_RWSETDEBUGOUTPUTSTATE
  1662. End Sub
  1663.  
  1664. Sub RwSetDebugScriptState (ByVal State As Long)
  1665.     iRwSetDebugScriptState State, ID_RWSETDEBUGSCRIPTSTATE
  1666. End Sub
  1667.  
  1668. Sub RwSetDebugSeverity (ByVal State As Long)
  1669.     iRwSetDebugSeverity State, ID_RWSETDEBUGSEVERITY
  1670. End Sub
  1671.  
  1672. Sub RwSetDebugTraceState (State As Long)
  1673.     iRwSetDebugTraceState State, ID_RWSETDEBUGTRACESTATE
  1674. End Sub
  1675.  
  1676. Function RwSetHints (ByVal Hints As Long) As Integer
  1677.     RwSetHints = iRwSetHints(Hints, ID_RWSETHINTS)
  1678. End Function
  1679.  
  1680. Function RwSetLightBrightness (ByVal Lite As Long, ByVal RlLum As Variant) As Long
  1681.     RwSetLightBrightness = iRwSetLightBrightness(Lite, VAR2REAL(RlLum), ID_RWSETLIGHTBRIGHTNESS)
  1682. End Function
  1683.  
  1684. Function RwSetLightColor (ByVal Lite As Long, ByVal r As Variant, ByVal g As Variant, ByVal b As Variant) As Long
  1685.     RwSetLightColor = iRwSetLightColor(Lite, VAR2REAL(r), VAR2REAL(g), VAR2REAL(b), ID_RWSETLIGHTCOLOR)
  1686. End Function
  1687.  
  1688. Function RwSetLightConeAngle (ByVal Lite As Long, ByVal RlT As Variant) As Long
  1689.     RwSetLightConeAngle = iRwSetLightConeAngle(Lite, VAR2REAL(RlT), ID_RWSETLIGHTCONEANGLE)
  1690. End Function
  1691.  
  1692. Function RwSetLightData (ByVal Lite As Long, ByVal LightData As Long) As Long
  1693.     RwSetLightData = iRwSetLightData(Lite, LightData, ID_RWSETLIGHTDATA)
  1694. End Function
  1695.  
  1696. Function RwSetLightPosition (ByVal Lite As Long, ByVal RlX As Variant, ByVal RlY As Variant, ByVal RlZ As Variant) As Long
  1697.     RwSetLightPosition = iRwSetLightPosition(Lite, VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), ID_RWSETLIGHTPOSITION)
  1698. End Function
  1699.  
  1700. Function RwSetLightState (ByVal Lite As Long, ByVal State As Long) As Long
  1701.     RwSetLightState = iRwSetLightState(Lite, State, ID_RWSETLIGHTSTATE)
  1702. End Function
  1703.  
  1704. Function RwSetLightVector (ByVal Lite As Long, ByVal RlX As Variant, ByVal RlY As Variant, ByVal RlZ As Variant) As Long
  1705.     RwSetLightVector = iRwSetLightVector(Lite, VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), ID_RWSETLIGHTVECTOR)
  1706. End Function
  1707.  
  1708. Function RwSetMaterialAmbient (ByVal Mat As Long, ByVal RlKA As Variant) As Long
  1709.     RwSetMaterialAmbient = iRwSetMaterialAmbient(Mat, VAR2REAL(RlKA), ID_RWSETMATERIALAMBIENT)
  1710. End Function
  1711.  
  1712. Function RwSetMaterialColor (ByVal Mat As Long, ByVal RlRed As Variant, ByVal RlGreen As Variant, ByVal RlBlue As Variant) As Long
  1713.     RwSetMaterialColor = iRwSetMaterialColor(Mat, VAR2REAL(RlRed), VAR2REAL(RlGreen), VAR2REAL(RlBlue), ID_RWSETMATERIALCOLOR)
  1714. End Function
  1715.  
  1716. Function RwSetMaterialDiffuse (ByVal Mat As Long, ByVal RlKD As Variant) As Long
  1717.     RwSetMaterialDiffuse = iRwSetMaterialDiffuse(Mat, VAR2REAL(RlKD), ID_RWSETMATERIALDIFFUSE)
  1718. End Function
  1719.  
  1720. Function RwSetMaterialGeometrySampling (ByVal Mat As Long, ByVal samp As Long) As Long
  1721.     RwSetMaterialGeometrySampling = iRwSetMaterialGeometrySampling(Mat, samp, ID_RWSETMATERIALGEOMETRYSAMPLING)
  1722. End Function
  1723.  
  1724. Function RwSetMaterialLightSampling (ByVal Mat As Long, ByVal samp As Long) As Long
  1725.     RwSetMaterialLightSampling = iRwSetMaterialLightSampling(Mat, samp, ID_RWSETMATERIALLIGHTSAMPLING)
  1726. End Function
  1727.  
  1728. Function RwSetMaterialOpacity (ByVal Mat As Long, ByVal RlOpacity As Variant) As Long
  1729.     RwSetMaterialOpacity = iRwSetMaterialOpacity(Mat, VAR2REAL(RlOpacity), ID_RWSETMATERIALOPACITY)
  1730. End Function
  1731.  
  1732. Function RwSetMaterialSpecular (ByVal Mat As Long, ByVal RlKS As Variant) As Long
  1733.     RwSetMaterialSpecular = iRwSetMaterialSpecular(Mat, VAR2REAL(RlKS), ID_RWSETMATERIALSPECULAR)
  1734. End Function
  1735.  
  1736. Function RwSetMaterialSurface (ByVal Mat As Long, ByVal RlKA As Variant, ByVal RlKD As Variant, ByVal RlKS As Variant) As Long
  1737.     RwSetMaterialSurface = iRwSetMaterialSurface(Mat, VAR2REAL(RlKA), VAR2REAL(RlKD), VAR2REAL(RlKS), ID_RWSETMATERIALSURFACE)
  1738. End Function
  1739.  
  1740. Function RwSetMaterialTexture (ByVal Mat As Long, ByVal Tex As Long) As Long
  1741.     RwSetMaterialTexture = iRwSetMaterialTexture(Mat, Tex, ID_RWSETMATERIALTEXTURE)
  1742. End Function
  1743.  
  1744. Function RwSetMaterialTextureModes (ByVal Mat As Long, ByVal Modes As Long) As Long
  1745.     RwSetMaterialTextureModes = iRwSetMaterialTextureModes(Mat, Modes, ID_RWSETMATERIALTEXTUREMODES)
  1746. End Function
  1747.  
  1748. Function RwSetMatrixElement (ByVal Matx As Long, ByVal i As Long, ByVal J As Long, ByVal RlVal As Variant) As Long
  1749.     RwSetMatrixElement = iRwSetMatrixElement(Matx, i, J, VAR2REAL(RlVal), ID_RWSETMATRIXELEMENT)
  1750. End Function
  1751.  
  1752. Function RwSetPaletteEntries (ByVal start As Long, ByVal Length As Long, palette As RwPaletteEntry, ByVal options As Long) As Long
  1753.     RwSetPaletteEntries = iRwSetPaletteEntries(start, Length, palette, options, ID_RWSETPALETTEENTRIES)
  1754. End Function
  1755.  
  1756. Function RwSetPolygonAmbient (ByVal Poly As Long, ByVal RlKA As Variant) As Long
  1757.     RwSetPolygonAmbient = iRwSetPolygonAmbient(Poly, VAR2REAL(RlKA), ID_RWSETPOLYGONAMBIENT)
  1758. End Function
  1759.  
  1760. Function RwSetPolygonColor (ByVal Poly As Long, ByVal RlRed As Variant, ByVal RlGreen As Variant, ByVal RlBlue As Variant) As Long
  1761.     RwSetPolygonColor = iRwSetPolygonColor(Poly, VAR2REAL(RlRed), VAR2REAL(RlGreen), VAR2REAL(RlBlue), ID_RWSETPOLYGONCOLOR)
  1762. End Function
  1763.  
  1764. Function RwSetPolygonData (ByVal Poly As Long, ByVal PolygonData As Long) As Long
  1765.     RwSetPolygonData = iRwSetPolygonData(Poly, PolygonData, ID_RWSETPOLYGONDATA)
  1766. End Function
  1767.  
  1768. Function RwSetPolygonDiffuse (ByVal Poly As Long, ByVal RlKD As Variant) As Long
  1769.     RwSetPolygonDiffuse = iRwSetPolygonDiffuse(Poly, VAR2REAL(RlKD), ID_RWSETPOLYGONDIFFUSE)
  1770. End Function
  1771.  
  1772. Function RwSetPolygonGeometrySampling (ByVal Poly As Long, ByVal samp As Long) As Long
  1773.     RwSetPolygonGeometrySampling = iRwSetPolygonGeometrySampling(Poly, samp, ID_RWSETPOLYGONGEOMETRYSAMPLING)
  1774. End Function
  1775.  
  1776. Function RwSetPolygonLightSampling (ByVal Poly As Long, ByVal samp As Long) As Long
  1777.     RwSetPolygonLightSampling = iRwSetPolygonLightSampling(Poly, samp, ID_RWSETPOLYGONLIGHTSAMPLING)
  1778. End Function
  1779.  
  1780. Function RwSetPolygonMaterial (ByVal Poly As Long, ByVal Mat As Long) As Long
  1781.     RwSetPolygonMaterial = iRwSetPolygonMaterial(Poly, Mat, ID_RWSETPOLYGONMATERIAL)
  1782. End Function
  1783.  
  1784. Function RwSetPolygonOpacity (ByVal Poly As Long, ByVal RlOpacity As Variant) As Long
  1785.     RwSetPolygonOpacity = iRwSetPolygonOpacity(Poly, VAR2REAL(RlOpacity), ID_RWSETPOLYGONOPACITY)
  1786. End Function
  1787.  
  1788. Function RwSetPolygonSpecular (ByVal Poly As Long, ByVal RlKS As Variant) As Long
  1789.     RwSetPolygonSpecular = iRwSetPolygonSpecular(Poly, VAR2REAL(RlKS), ID_RWSETPOLYGONSPECULAR)
  1790. End Function
  1791.  
  1792. Function RwSetPolygonSurface (ByVal Poly As Long, ByVal RlKA As Variant, ByVal RlKD As Variant, ByVal RlKS As Variant) As Long
  1793.     RwSetPolygonSurface = iRwSetPolygonSurface(Poly, VAR2REAL(RlKA), VAR2REAL(RlKD), VAR2REAL(RlKS), ID_RWSETPOLYGONSURFACE)
  1794. End Function
  1795.  
  1796. Function RwSetPolygonTag (ByVal Poly As Long, ByVal Tag As Long) As Long
  1797.     RwSetPolygonTag = iRwSetPolygonTag(Poly, Tag, ID_RWSETPOLYGONTAG)
  1798. End Function
  1799.  
  1800. Function RwSetPolygonTexture (ByVal Poly As Long, ByVal Texture As Long) As Long
  1801.     RwSetPolygonTexture = iRwSetPolygonTexture(Poly, Texture, ID_RWSETPOLYGONTEXTURE)
  1802. End Function
  1803.  
  1804. Function RwSetPolygonTextureModes (ByVal Poly As Long, ByVal Modes As Long) As Long
  1805.     RwSetPolygonTextureModes = iRwSetPolygonTextureModes(Poly, Modes, ID_RWSETPOLYGONTEXTUREMODES)
  1806. End Function
  1807.  
  1808. Function RwSetRasterData (ByVal Rast As Long, ByVal RasterData As Long) As Long
  1809.     RwSetRasterData = iRwSetRasterData(Rast, RasterData, ID_RWSETRASTERDATA)
  1810. End Function
  1811.  
  1812. Function RwSetSceneData (ByVal Scn As Long, ByVal SceneData As Long) As Long
  1813.     RwSetSceneData = iRwSetSceneData(Scn, SceneData, ID_RWSETSCENEDATA)
  1814. End Function
  1815.  
  1816. Function RwSetShapePath (ByVal Path As String, ByVal Op As Long) As Integer
  1817.     RwSetShapePath = iRwSetShapePath(Path, Op, ID_RWSETSHAPEPATH)
  1818. End Function
  1819.  
  1820. Function RwSetSplineData (ByVal Spln As Long, ByVal SplineData As Long) As Long
  1821.     RwSetSplineData = iRwSetSplineData(Spln, SplineData, ID_RWSETSPLINEDATA)
  1822. End Function
  1823.  
  1824. Function RwSetSurface (ByVal RlKA As Long, ByVal RlKD As Variant, ByVal RlKS As Variant) As Integer
  1825.     RwSetSurface = iRwSetSurface(VAR2REAL(RlKA), VAR2REAL(RlKD), VAR2REAL(RlKS), ID_RWSETSURFACE)
  1826. End Function
  1827.  
  1828. Function RwSetSurfaceAmbient (ByVal RlKA As Variant) As Integer
  1829.     RwSetSurfaceAmbient = iRwSetSurfaceAmbient(VAR2REAL(RlKA), ID_RWSETSURFACEAMBIENT)
  1830. End Function
  1831.  
  1832. Function RwSetSurfaceColor (ByVal RlRed As Variant, ByVal RlGreen As Variant, ByVal RlBlue As Variant) As Integer
  1833.     RwSetSurfaceColor = iRwSetSurfaceColor(VAR2REAL(RlRed), VAR2REAL(RlGreen), VAR2REAL(RlBlue), ID_RWSETSURFACECOLOR)
  1834. End Function
  1835.  
  1836. Function RwSetSurfaceDiffuse (ByVal RlKD As Variant) As Integer
  1837.     RwSetSurfaceDiffuse = iRwSetSurfaceDiffuse(VAR2REAL(RlKD), ID_RWSETSURFACEDIFFUSE)
  1838. End Function
  1839.  
  1840. Function RwSetSurfaceGeometrySampling (ByVal samp As Long) As Integer
  1841.     RwSetSurfaceGeometrySampling = iRwSetSurfaceGeometrySampling(samp, ID_RWSETSURFACEGEOMETRYSAMPLING)
  1842. End Function
  1843.  
  1844. Function RwSetSurfaceLightSampling (ByVal samp As Long) As Integer
  1845.     RwSetSurfaceLightSampling = iRwSetSurfaceLightSampling(samp, ID_RWSETSURFACELIGHTSAMPLING)
  1846. End Function
  1847.  
  1848. Function RwSetSurfaceOpacity (ByVal RlOpacity As Variant) As Integer
  1849.     RwSetSurfaceOpacity = iRwSetSurfaceOpacity(VAR2REAL(RlOpacity), ID_RWSETSURFACEOPACITY)
  1850. End Function
  1851.  
  1852. Function RwSetSurfaceSpecular (ByVal RlKS As Variant) As Integer
  1853.     RwSetSurfaceSpecular = iRwSetSurfaceSpecular(VAR2REAL(RlKS), ID_RWSETSURFACESPECULAR)
  1854. End Function
  1855.  
  1856. Function RwSetSurfaceTexture (ByVal TextName As String) As Integer
  1857.     If Len(TextName) = 0 Then
  1858.         RwSetSurfaceTexture = iRwSetSurfaceTexture(ByVal 0&, ID_RWSETSURFACETEXTURE)
  1859.     Else
  1860.         RwSetSurfaceTexture = iRwSetSurfaceTexture(ByVal TextName, ID_RWSETSURFACETEXTURE)
  1861.     End If
  1862. End Function
  1863.  
  1864. Function RwSetSurfaceTextureExt (ByVal TextName As String, ByVal MaskName As String) As Integer
  1865.     RwSetSurfaceTextureExt = iRwSetSurfaceTextureExt(TextName, MaskName, ID_RWSETSURFACETEXTUREEXT)
  1866. End Function
  1867.  
  1868. Function RwSetSurfaceTextureModes (ByVal Modes As Long) As Integer
  1869.     RwSetSurfaceTextureModes = iRwSetSurfaceTextureModes(Modes, ID_RWSETSURFACETEXTUREMODES)
  1870. End Function
  1871.  
  1872. Function RwSetTag (ByVal Tag As Long) As Integer
  1873.     RwSetTag = iRwSetTag(Tag, ID_RWSETTAG)
  1874. End Function
  1875.  
  1876. Function RwSetTextureData (ByVal Tex As Long, ByVal TextureData As Long) As Long
  1877.     RwSetTextureData = iRwSetTextureData(Tex, TextureData, ID_RWSETTEXTUREDATA)
  1878. End Function
  1879.  
  1880. Function RwSetTextureDictSearchMode (ByVal Mode As Long) As Integer
  1881.     RwSetTextureDictSearchMode = iRwSetTextureDictSearchMode(Mode, ID_RWSETTEXTUREDICTSEARCHMODE)
  1882. End Function
  1883.  
  1884. Function RwSetTextureDithering (ByVal Mode As Long) As Integer
  1885.     RwSetTextureDithering = iRwSetTextureDithering(Mode, ID_RWSETTEXTUREDITHERING)
  1886. End Function
  1887.  
  1888. Function RwSetTextureFrame (ByVal Tex As Long, ByVal Index As Long) As Long
  1889.     RwSetTextureFrame = iRwSetTextureFrame(Tex, Index, ID_RWSETTEXTUREFRAME)
  1890. End Function
  1891.  
  1892. Function RwSetTextureFrameStep (ByVal Tex As Long, ByVal value As Long) As Long
  1893.     RwSetTextureFrameStep = iRwSetTextureFrameStep(Tex, value, ID_RWSETTEXTUREFRAMESTEP)
  1894. End Function
  1895.  
  1896. Function RwSetTextureGammaCorrection (ByVal State As Long) As Integer
  1897.     RwSetTextureGammaCorrection = iRwSetTextureGammaCorrection(State, ID_RWSETTEXTUREGAMMACORRECTION)
  1898. End Function
  1899.  
  1900. Function RwSetTextureRaster (ByVal Tex As Long, ByVal Rast As Long) As Long
  1901.     RwSetTextureRaster = iRwSetTextureRaster(Tex, Rast, ID_RWSETTEXTURERASTER)
  1902. End Function
  1903.  
  1904. Sub RwSetUserError ()
  1905.     iRwSetUserError ID_RWSETUSERERROR
  1906. End Sub
  1907.  
  1908. Function RwShowCameraImage (ByVal Cam As Long, ByVal hdc As Long) As Long
  1909.     RwShowCameraImage = iRwShowCameraImage(Cam, hdc, ID_RWSHOWCAMERAIMAGE)
  1910. End Function
  1911.  
  1912. Function RwSphere (ByVal RlRad As Variant, ByVal Sides As Long) As Integer
  1913.     RwSphere = iRwSphere(VAR2REAL(RlRad), Sides, ID_RWSPHERE)
  1914. End Function
  1915.  
  1916. Function RwSphericalTexturizeClump (ByVal Clmp As Long) As Long
  1917.     RwSphericalTexturizeClump = iRwSphericalTexturizeClump(Clmp, ID_RWSPHERICALTEXTURIZECLUMP)
  1918. End Function
  1919.  
  1920. Sub RwSRandom (ByVal seed As Long)
  1921.     iRwSRandom seed, ID_RWSRANDOM
  1922. End Sub
  1923.  
  1924. Function RwTextureDictBegin () As Integer
  1925.     RwTextureDictBegin = iRwTextureDictBegin(ID_RWTEXTUREDICTBEGIN)
  1926. End Function
  1927.  
  1928. Function RwTextureDictEnd () As Integer
  1929.     RwTextureDictEnd = iRwTextureDictEnd(ID_RWTEXTUREDICTEND)
  1930. End Function
  1931.  
  1932. Function RwTextureNextFrame (ByVal Tex As Long) As Long
  1933.     RwTextureNextFrame = iRwTextureNextFrame(Tex, ID_RWTEXTURENEXTFRAME)
  1934. End Function
  1935.  
  1936. Function RwTiltCamera (ByVal Cam As Long, ByVal RlT As Variant) As Long
  1937.     RwTiltCamera = iRwTiltCamera(Cam, VAR2REAL(RlT), ID_RWTILTCAMERA)
  1938. End Function
  1939.  
  1940. Function RwTransformBegin () As Integer
  1941.     RwTransformBegin = iRwTransformBegin(ID_RWTRANSFORMBEGIN)
  1942. End Function
  1943.  
  1944. Function RwTransformCamera (ByVal Cam As Long, ByVal Matx As Long, ByVal Op As Long) As Long
  1945.     RwTransformCamera = iRwTransformCamera(Cam, Matx, Op, ID_RWTRANSFORMCAMERA)
  1946. End Function
  1947.  
  1948. Function RwTransformCameraOrientation (ByVal Cam As Long, ByVal Matx As Long) As Long
  1949.     RwTransformCameraOrientation = iRwTransformCameraOrientation(Cam, Matx, ID_RWTRANSFORMCAMERAORIENTATION)
  1950. End Function
  1951.  
  1952. Function RwTransformClump (ByVal Clmp As Long, ByVal Matx As Long, ByVal Op As Long) As Long
  1953.     RwTransformClump = iRwTransformClump(Clmp, Matx, Op, ID_RWTRANSFORMCLUMP)
  1954. End Function
  1955.  
  1956. Function RwTransformClumpJoint (ByVal Clmp As Long, ByVal Matx As Long, ByVal Op As Long) As Long
  1957.     RwTransformClumpJoint = iRwTransformClumpJoint(Clmp, Matx, Op, ID_RWTRANSFORMCLUMPJOINT)
  1958. End Function
  1959.  
  1960. Function RwTransformCTM (ByVal Matx As Long) As Integer
  1961.     RwTransformCTM = iRwTransformCTM(Matx, ID_RWTRANSFORMCTM)
  1962. End Function
  1963.  
  1964. Function RwTransformEnd () As Integer
  1965.     RwTransformEnd = iRwTransformEnd(ID_RWTRANSFORMEND)
  1966. End Function
  1967.  
  1968. Function RwTransformJointTM (ByVal Matx As Long) As Integer
  1969.     RwTransformJointTM = iRwTransformJointTM(Matx, ID_RWTRANSFORMJOINTTM)
  1970. End Function
  1971.  
  1972. Function RwTransformLight (ByVal Lite As Long, ByVal Matx As Long, ByVal Op As Long) As Long
  1973.     RwTransformLight = iRwTransformLight(Lite, Matx, Op, ID_RWTRANSFORMLIGHT)
  1974. End Function
  1975.  
  1976. Function RwTransformMatrix (ByVal DstMatx As Long, ByVal srcMatx As Long, ByVal Op As Long) As Long
  1977.     RwTransformMatrix = iRwTransformMatrix(DstMatx, srcMatx, Op, ID_RWTRANSFORMMATRIX)
  1978. End Function
  1979.  
  1980. Function RwTranslateCTM (ByVal RlTX As Variant, ByVal RlTY As Variant, ByVal RlTZ As Variant) As Integer
  1981.     RwTranslateCTM = iRwTranslateCTM(VAR2REAL(RlTX), VAR2REAL(RlTY), VAR2REAL(RlTZ), ID_RWTRANSLATECTM)
  1982. End Function
  1983.  
  1984. Function RwTranslateMatrix (ByVal Matx As Long, ByVal RlTX As Variant, ByVal RlTY As Variant, ByVal RlTZ As Variant, ByVal Op As Long) As Long
  1985.     RwTranslateMatrix = iRwTranslateMatrix(Matx, VAR2REAL(RlTX), VAR2REAL(RlTY), VAR2REAL(RlTZ), Op, ID_RWTRANSLATEMATRIX)
  1986. End Function
  1987.  
  1988. Function RwTriangle (ByVal V1 As Long, ByVal V2 As Long, ByVal V3 As Long) As Integer
  1989.     RwTriangle = iRwTriangle(V1, V2, V3, ID_RWTRIANGLE)
  1990. End Function
  1991.  
  1992. Function RwTriangleExt (ByVal V1 As Long, ByVal V2 As Long, ByVal V3 As Long, ByVal Tag As Long) As Integer
  1993.     RwTriangleExt = iRwTriangleExt(V1, V2, V3, Tag, ID_RWTRIANGLEEXT)
  1994. End Function
  1995.  
  1996. Function RwUndamageCameraViewport (ByVal Cam As Long, ByVal x As Long, ByVal y As Long, ByVal Wid As Long, ByVal Hght As Long) As Long
  1997.     RwUndamageCameraViewport = iRwUndamageCameraViewport(Cam, x, y, Wid, Hght, ID_RWUNDAMAGECAMERAVIEWPORT)
  1998. End Function
  1999.  
  2000. Function RwVCMoveCamera (ByVal Cam As Long, ByVal RlX As Variant, ByVal RlY As Variant, ByVal RlZ As Variant) As Long
  2001.     RwVCMoveCamera = iRwVCMoveCamera(Cam, VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), ID_RWVCMOVECAMERA)
  2002. End Function
  2003.  
  2004. Function RwVertex (ByVal RlX As Variant, ByVal RlY As Variant, ByVal RlZ As Variant) As Long
  2005.     RwVertex = iRwVertex(VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), ID_RWVERTEX)
  2006. End Function
  2007.  
  2008. Function RwWCMoveCamera (ByVal Cam As Long, ByVal RlX As Variant, ByVal RlY As Variant, ByVal RlZ As Variant) As Long
  2009.     RwWCMoveCamera = iRwWCMoveCamera(Cam, VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), ID_RWWCMOVECAMERA)
  2010. End Function
  2011.  
  2012. Function RwWriteShape (ByVal FileName As String, ByVal Clmp As Long) As Integer
  2013.     RwWriteShape = iRwWriteShape(FileName, Clmp, ID_RWWRITESHAPE)
  2014. End Function
  2015.  
  2016.