home *** CD-ROM | disk | FTP | other *** search
/ Learn 3D Graphics Programming on the PC / Learn_3D_Graphics_Programming_on_the_PC_Ferraro.iso / rwwin / rwx.ba_ / rwx.bin
Encoding:
Text File  |  1995-11-14  |  68.2 KB  |  916 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. Type RlRect
  18.     x As Long
  19.     y As Long
  20.     w As Long
  21.     h As Long
  22. End Type
  23.  
  24. Type RlV3d
  25.     x As Long
  26.     y As Long
  27.     z As Long
  28. End Type
  29.  
  30. Type RlUV
  31.     u As Long
  32.     v As Long
  33. End Type
  34.  
  35. Type RlRGBColor
  36.     r As Long
  37.     g As Long
  38.     B As Long
  39. End Type
  40.  
  41. Type RlPickVertexData
  42.     vindex As Long   ' closest vertex to pick point
  43.     d2 As Long       ' distance squared in pixels
  44. End Type
  45.  
  46. Type RlPickClumpData
  47.     clump As Long
  48.     polygon As Long
  49.     Vertex As RlPickVertexData
  50.     wcpoint As RlV3d
  51. End Type
  52.  
  53. Type RlObject
  54.     clump As RlPickClumpData
  55. End Type
  56.  
  57. Type RlPickRecord
  58.     type As Long
  59.     object As RlObject
  60. End Type
  61.  
  62. ' Call points into the RenderWare DLL
  63. Declare Function iRwAddChildToClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Child As Long, ByVal ID As Integer) As Long
  64. Declare Function iRwAddClumpToScene Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal Clmp As Long, ByVal ID As Integer) As Long
  65. Declare Function iRwAddHint Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Hint As Long, ByVal ID As Integer) As Integer
  66. Declare Function iRwAddHintToClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Hint As Long, ByVal ID As Integer) As Long
  67. Declare Function iRwAddLightToScene Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal Lite As Long, ByVal ID As Integer) As Long
  68. Declare Function iRwAddPolygonToClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Sides As Long, VArray As Long, ByVal ID As Integer) As Long
  69. Declare Function iRwAddPolygonsToClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal DestClump As Long, ByVal SrcClump As Long, ByVal ID As Integer) As Long
  70. Declare Function iRwAddTextureModeToMaterial Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal TextureMode As Long, ByVal ID As Integer) As Long
  71. Declare Function iRwAddTextureModeToPolygon Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal TextureMode As Long, ByVal ID As Integer) As Long
  72. Declare Function iRwAddTextureModeToSurface Lib "rwx.dll" Alias "Win386LibEntry" (ByVal TextureMode As Long, ByVal ID As Integer) As Integer
  73. Declare Function iRwAddVector Lib "rwx.dll" Alias "Win386LibEntry" (A As RlV3d, B As RlV3d, Result As RlV3d, ByVal ID As Integer) As Long
  74. Declare Function iRwAddVertexToClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal RlX As Long, ByVal RlY As Long, ByVal RlZ As Long, ByVal ID As Integer) As Long
  75. Declare Function iRwBeginCameraUpdate Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal hwnd As Long, ByVal ID As Integer) As Long
  76. Declare Function iRwBitmapRaster Lib "rwx.dll" Alias "Win386LibEntry" (ByVal hbitmap As Long, ByVal RasterOptions As Long, ByVal ID As Integer) As Long
  77. Declare Function iRwBlock Lib "rwx.dll" Alias "Win386LibEntry" (ByVal rlWid As Long, ByVal rlHght As Long, ByVal RlDepth As Long, ByVal ID As Integer) As Integer
  78. Declare Function iRwCalculateClumpVertexNormal Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal vindex As Long, ByVal ID As Integer) As Long
  79. Declare Function iRwClearCameraViewport Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  80. Declare Sub iRwClose Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer)
  81. Declare Sub iRwCloseDebugStream Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer)
  82. Declare Function iRwClumpBegin Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  83. Declare Function iRwClumpDistance Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, Pos As RlV3d, ByVal ID As Integer) As Long
  84. Declare Function iRwClumpEnd Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  85. Declare Function iRwCone Lib "rwx.dll" Alias "Win386LibEntry" (ByVal rlHght As Long, ByVal RlRad As Long, ByVal Sides As Long, ByVal ID As Integer) As Integer
  86. Declare Function iRwCopyMaterial Lib "rwx.dll" Alias "Win386LibEntry" (ByVal MatSrc As Long, ByVal MatDest As Long, ByVal ID As Integer) As Long
  87. Declare Function iRwCopyMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal MatrixSrc As Long, ByVal MatrixDest As Long, ByVal ID As Integer) As Long
  88. Declare Function iRwCreateCamera Lib "rwx.dll" Alias "Win386LibEntry" (ByVal MaxWid As Long, ByVal MaxHght As Long, ByVal Image As Long, ByVal ID As Integer) As Long
  89. Declare Function iRwCreateClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal VCount As Long, ByVal PCount As Long, ByVal ID As Integer) As Long
  90. Declare Function iRwCreateDecal Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  91. Declare Function iRwCreateLight Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Kind As Long, ByVal RlX As Long, ByVal RlY As Long, ByVal RlZ As Long, ByVal RlLum As Long, ByVal ID As Integer) As Long
  92. Declare Function iRwCreateMaterial Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  93. Declare Function iRwCreateMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  94. Declare Function iRwCreateRaster Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Wid As Long, ByVal Hght As Long, ByVal ID As Integer) As Long
  95. Declare Function iRwCreateScene Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  96. Declare Function iRwCreateSpline Lib "rwx.dll" Alias "Win386LibEntry" (ByVal NPoints As Long, ByVal Kind As Long, Pts As RlV3d, ByVal ID As Integer) As Long
  97. Declare Function iRwCreateSprite Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  98. Declare Function iRwCreateTexture Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  99. Declare Function iRwCrossProduct Lib "rwx.dll" Alias "Win386LibEntry" (A As RlV3d, B As RlV3d, C As RlV3d, ByVal ID As Integer) As Long
  100. Declare Function iRwCubicTexturizeClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  101. Declare Function iRwCurrentMaterial Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  102. Declare Function iRwCurrentMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  103. Declare Function iRwCylinder Lib "rwx.dll" Alias "Win386LibEntry" (ByVal rlHght As Long, ByVal RlMinRad As Long, ByVal RlMaxRad As Long, ByVal Sides As Long, ByVal ID As Integer) As Integer
  104. Declare Function iRwDamageCameraViewport Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal x As Long, ByVal y As Long, ByVal Wid As Long, ByVal Hght As Long, ByVal ID As Integer) As Long
  105. Declare Function iRwDefaultScene Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  106. Declare Function iRwDestroyCamera Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Integer
  107. Declare Function iRwDestroyClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Integer
  108. Declare Function iRwDestroyLight Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Integer
  109. Declare Function iRwDestroyMaterial Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Integer
  110. Declare Function iRwDestroyMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal ID As Integer) As Integer
  111. Declare Function iRwDestroyPolygon Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Integer
  112. Declare Function iRwDestroyRaster Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Integer
  113. Declare Function iRwDestroyScene Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal ID As Integer) As Integer
  114. Declare Function iRwDestroySpline Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal ID As Integer) As Integer
  115. Declare Function iRwDestroyTexture Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Integer
  116. Declare Function iRwDeviceControl Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Action As Long, ByVal Param1 As Long, ByVal Param2 As String, ByVal Size As Long, ByVal ID As Integer) As Long
  117. Declare Function iRwDisc Lib "rwx.dll" Alias "Win386LibEntry" (ByVal rlHght As Long, ByVal RlRad As Long, ByVal Sides As Long, ByVal ID As Integer) As Integer
  118. Declare Function iRwDotProduct Lib "rwx.dll" Alias "Win386LibEntry" (A As RlV3d, B As RlV3d, ByVal ID As Integer) As Long
  119. Declare Function iRwDuplicateCamera Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal Image As Long, ByVal ID As Integer) As Long
  120. Declare Function iRwDuplicateClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  121. Declare Function iRwDuplicateLight Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  122. Declare Function iRwDuplicateMaterial Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  123. Declare Function iRwDuplicateMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal ID As Integer) As Long
  124. Declare Function iRwDuplicateRaster Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  125. Declare Function iRwDuplicateSpline Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal ID As Integer) As Long
  126. Declare Function iRwEndCameraUpdate Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  127. Declare Function iRwEnvMapClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  128. Declare Function iRwFindNamedTexture Lib "rwx.dll" Alias "Win386LibEntry" (ByVal TexName As String, ByVal ID As Integer) As Long
  129. Declare Function iRwFindTaggedClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Tag As Long, ByVal ID As Integer) As Long
  130. Declare Function iRwFindTaggedPolygon Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Tag As Long, ByVal ID As Integer) As Long
  131. Declare Function iRwGetCameraBackColor Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, Color As RlRGBColor, ByVal ID As Integer) As Long
  132. Declare Function iRwGetCameraBackdrop Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  133. Declare Function iRwGetCameraBackdropOffset Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, x As Long, y As Long, ByVal ID As Integer) As Long
  134. Declare Function iRwGetCameraBackdropViewportRect Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, x As Long, y As Long, Wid As Long, Hght As Long, ByVal ID As Integer) As Long
  135. Declare Function iRwGetCameraData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  136. Declare Function iRwGetCameraFarClipping Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  137. Declare Function iRwGetCameraImage Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  138. Declare Function iRwGetCameraLookAt Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, LookAt As RlV3d, ByVal ID As Integer) As Long
  139. Declare Function iRwGetCameraLookRight Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, LookRight As RlV3d, ByVal ID As Integer) As Long
  140. Declare Function iRwGetCameraLookUp Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, LookUp As RlV3d, ByVal ID As Integer) As Long
  141. Declare Function iRwGetCameraLTM Lib "rwx.dll" Alias "Win386Libentry" (ByVal Cam As Long, ByVal Mat As Long, ByVal ID As Integer) As Long
  142. Declare Function iRwGetCameraNearClipping Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  143. Declare Function iRwGetCameraPosition Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, Pos As RlV3d, ByVal ID As Integer) As Long
  144. Declare Function iRwGetCameraProjection Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  145. Declare Function iRwGetCameraViewOffset Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, Offset As RlV3d, ByVal ID As Integer) As Long
  146. Declare Function iRwGetCameraViewport Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, x As Long, y As Long, Wid As Long, Hght As Long, ByVal ID As Integer) As Long
  147. Declare Function iRwGetCameraViewportRaster Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal Rast As Long, ByVal ID As Integer) As Long
  148. Declare Function iRwGetCameraViewwindow Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, rlWid As Long, rlHght As Long, ByVal ID As Integer) As Long
  149. Declare Function iRwGetClumpBBox Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, BLLeft As RlV3d, FURight As RlV3d, ByVal ID As Integer) As Long
  150. Declare Function iRwGetClumpData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  151. Declare Function iRwGetClumpAxisAlignment Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  152. Declare Function iRwGetClumpHints Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  153. Declare Function iRwGetClumpJointMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Matx As Long, ByVal ID As Integer) As Long
  154. Declare Function iRwGetClumpLocalBBox Lib "rwx.dll" Alias "Win386LibEntry" (ByVal clump As Long, BLL As RlV3d, FUR As RlV3d, ByVal ID As Integer) As Long
  155. Declare Function iRwGetClumpLTM Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Matx As Long, ByVal ID As Integer) As Long
  156. Declare Function iRwGetClumpMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Matx As Long, ByVal ID As Integer) As Long
  157. Declare Function iRwGetClumpNumChildren Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  158. Declare Function iRwGetClumpNumPolygons Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  159. Declare Function iRwGetClumpNumVertices Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  160. Declare Function iRwGetClumpOrigin Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, Origin As RlV3d, ByVal ID As Integer) As Long
  161. Declare Function iRwGetClumpOwner Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  162. Declare Function iRwGetClumpParent Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  163. Declare Function iRwGetClumpRoot Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  164. Declare Function iRwGetClumpState Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  165. Declare Function iRwGetClumpTag Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  166. Declare Function iRwGetClumpVertex Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Index As Long, Vertex As RlV3d, ByVal ID As Integer) As Long
  167. Declare Function iRwGetClumpVertexNormal Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Index As Long, Normal As RlV3d, ByVal ID As Integer) As Long
  168. Declare Function iRwGetClumpVertexUV Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Index As Long, UV As RlUV, ByVal ID As Integer) As Long
  169. Declare Function iRwGetClumpVertexViewportPosition Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal vindex As Long, ByVal Cam As Long, x As Long, y As Long, Visible As Long, ByVal ID As Integer) As Integer
  170. Declare Function iRwGetClumpViewportRect Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Cam As Long, x As Long, y As Long, Wid As Long, Hght As Long, ByVal ID As Integer) As Long
  171. Declare Function iRwGetDebugAssertionState Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  172. Declare Function iRwGetDebugMessageState Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  173. Declare Function iRwGetDebugScriptState Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  174. Declare Function iRwGetDebugSeverity Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  175. Declare Function iRwGetDebugTraceState Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  176. Declare Function iRwGetDeviceInfo Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Info As Long, ByVal value As String, ByVal Size As Long, ByVal ID As Integer) As Integer
  177. Declare Function iRwGetError Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  178. Declare Function iRwGetFirstChildClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  179. Declare Function iRwGetInternalError Lib "rwwrxp.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  180. Declare Function iRwGetLightBrightness Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  181. Declare Function iRwGetLightColor Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, Color As RlRGBColor, ByVal ID As Integer) As Long
  182. Declare Function iRwGetLightConeAngle Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  183. Declare Function iRwGetLightData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  184. Declare Function iRwGetLightLTM Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal Mat As Long, ByVal ID As Integer) As Long
  185. Declare Function iRwGetLightOwner Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  186. Declare Function iRwGetLightPosition Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, Pos As RlV3d, ByVal ID As Integer) As Long
  187. Declare Function iRwGetLightState Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  188. Declare Function iRwGetLightType Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  189. Declare Function iRwGetLightVector Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, Vector As RlV3d, ByVal ID As Integer) As Long
  190. Declare Function iRwGetMaterialAmbient Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  191. Declare Function iRwGetMaterialColor Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, Color As RlRGBColor, ByVal ID As Integer) As Long
  192. Declare Function iRwGetMaterialDiffuse Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  193. Declare Function iRwGetMaterialGeometrySampling Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  194. Declare Function iRwGetMaterialLightSampling Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  195. Declare Function iRwGetMaterialOpacity Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  196. Declare Function iRwGetMaterialSpecular Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  197. Declare Function iRwGetMaterialTexture Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  198. Declare Function iRwGetMaterialTextureModes Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  199. Declare Function iRwGetMatrixElement Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal i As Long, ByVal J As Long, ByVal ID As Integer) As Long
  200. Declare Function iRwGetMatrixElements Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, FArray As Long, ByVal ID As Integer) As Long
  201. Declare Function iRwGetNamedTexture Lib "rwx.dll" Alias "Win386LibEntry" (ByVal TexName As String, ByVal ID As Integer) As Long
  202. Declare Function iRwGetNextClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  203. Declare Function iRwGetNumNamedTextures Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  204. Declare Function iRwGetPaletteEntries Lib "rwx.dll" Alias "Win386LibEntry" (ByVal start As Long, ByVal Length As Long, palette As RwPaletteEntry, ByVal ID As Integer) As Long
  205. Declare Function iRwGetPolygonAmbient Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  206. Declare Function iRwGetPolygonCenter Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, Center As RlV3d, ByVal ID As Integer) As Long
  207. Declare Function iRwGetPolygonColor Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, Color As RlRGBColor, ByVal ID As Integer) As Long
  208. Declare Function iRwGetPolygonData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  209. Declare Function iRwGetPolygonDiffuse Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  210. Declare Function iRwGetPolygonGeometrySampling Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  211. Declare Function iRwGetPolygonLightSampling Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  212. Declare Function iRwGetPolygonMaterial Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  213. Declare Function iRwGetPolygonNormal Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, Normal As RlV3d, ByVal ID As Integer) As Long
  214. Declare Function iRwGetPolygonNumSides Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  215. Declare Function iRwGetPolygonOpacity Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  216. Declare Function iRwGetPolygonOwner Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  217. Declare Function iRwGetPolygonSpecular Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  218. Declare Function iRwGetPolygonTag Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  219. Declare Function iRwGetPolygonTexture Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  220. Declare Function iRwGetPolygonTextureModes Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  221. Declare Function iRwGetPolygonUV Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, UVS As RlUV, ByVal ID As Integer) As Long
  222. Declare Function iRwGetPolygonVertices Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, VArray As Long, ByVal ID As Integer) As Long
  223. Declare Function iRwGetRasterData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  224. Declare Function iRwGetRasterDepth Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  225. Declare Function iRwGetRasterHeight Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  226. Declare Function iRwGetRasterPixels Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  227. Declare Function iRwGetRasterStride Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  228. Declare Function iRwGetRasterWidth Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  229. Declare Function iRwGetSceneData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal ID As Integer) As Long
  230. Declare Function iRwGetSceneNumClumps Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal ID As Integer) As Long
  231. Declare Function iRwGetSceneNumLights Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal ID As Integer) As Long
  232. Declare Function iRwGetShapePath Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Path As String, ByVal ID As Integer) As Long
  233. Declare Function iRwGetSplineData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal ID As Integer) As Long
  234. Declare Function iRwGetSplineNumPoints Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal ID As Integer) As Long
  235. Declare Function iRwGetSplinePoint Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal Index As Long, Pnt As RlV3d, ByVal ID As Integer) As Long
  236. Declare Function iRwGetSystemInfo Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Kind As Long, ByVal Info As String, ByVal Size As Long, ByVal ID As Integer) As Integer
  237. Declare Function iRwGetTextureData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  238. Declare Function iRwGetTextureDictSearchMode Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  239. Declare Function iRwGetTextureDithering Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  240. Declare Function iRwGetTextureFrame Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  241. Declare Function iRwGetTextureFrameStep Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  242. Declare Function iRwGetTextureGammaCorrection Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  243. Declare Function iRwGetTextureName Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal Buf As String, ByVal Length As Long, ByVal ID As Integer) As Long
  244. Declare Function iRwGetTextureNumFrames Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  245. Declare Function iRwGetTextureRaster Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  246. Declare Function iRwHemisphere Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlRad As Long, ByVal Sides As Long, ByVal ID As Integer) As Integer
  247. Declare Function iRwIdentityCTM Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  248. Declare Function iRwIdentityJointTM Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  249. Declare Function iRwIdentityMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal ID As Integer) As Long
  250. Declare Function iRwInclude Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Integer
  251. Declare Function iRwIncludeGeometry Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Integer
  252. Declare Function iRwInvalidateCameraViewport Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  253. Declare Function iRwInvertMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal srcMatx As Long, ByVal DstMatx As Long, ByVal ID As Integer) As Long
  254. Declare Function iRwJointTransformBegin Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  255. Declare Function iRwJointTransformEnd Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  256. Declare Function iRwMaskTexture Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal Rast As Long, ByVal ID As Integer) As Long
  257. Declare Function iRwMaterialBegin Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  258. Declare Function iRwMaterialEnd Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  259. Declare Function iRwModelBegin Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  260. Declare Function iRwModelEnd Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  261. Declare Function iRwMultiplyMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal MatrixA As Long, ByVal MatrixB As Long, ByVal MatrixC As Long, ByVal ID As Integer) As Long
  262. Declare Function iRwNormalize Lib "rwx.dll" Alias "Win386LibEntry" (Vector As RlV3d, ByVal ID As Integer) As Long
  263. Declare Function iRwNormalizeClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  264. Declare Function iRwOpen Lib "rwx.dll" Alias "Win386LibEntry" (ByVal DevName As String, ByVal Param As Long, ByVal ID As Integer) As Integer
  265. Declare Function iRwOpenDebugStream Lib "rwx.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal ID As Integer) As Integer
  266. Declare Function iRwOpenExt Lib "rwx.dll" Alias "Win386LibEntry" (ByVal DevName As String, ByVal Param As Long, ByVal NumArgs As Long, Args As RwOpenArgument, ByVal ID As Integer) As Integer
  267. Declare Function iRwOrthoNormalizeMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal srcMatx As Long, ByVal DstMatx As Long, ByVal ID As Integer) As Long
  268. Declare Function iRwPanCamera Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlAngle As Long, ByVal ID As Integer) As Long
  269. Declare Function iRwPickClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal VPX As Long, ByVal VPY As Long, ByVal Cam As Long, Pick As RlPickRecord, ByVal ID As Integer) As Long
  270. Declare Function iRwPickScene Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal x As Long, ByVal y As Long, ByVal Cam As Long, Pick As RlPickRecord, ByVal ID As Integer) As Long
  271. Declare Function iRwPointCamera Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Long, ByVal RlY As Long, ByVal RlZ As Long, ByVal ID As Integer) As Long
  272. Declare Function iRwPolygon Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Sides As Long, VArray As Long, ByVal ID As Integer) As Integer
  273. Declare Function iRwPolygonExt Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Sides As Long, VArray As Long, ByVal Tag As Long, ByVal ID As Integer) As Integer
  274. Declare Function iRwPopCurrentMaterial Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  275. Declare Function iRwPopCurrentMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  276. Declare Function iRwPopScratchMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  277. Declare Function iRwProtoBegin Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Proto As String, ByVal ID As Integer) As Integer
  278. Declare Function iRwProtoEnd Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  279. Declare Function iRwProtoInstance Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Proto As String, ByVal ID As Integer) As Integer
  280. Declare Function iRwProtoInstanceGeometry Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Proto As String, ByVal ID As Integer) As Long
  281. Declare Function iRwPushCurrentMaterial Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  282. Declare Function iRwPushCurrentMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  283. Declare Function iRwPushScratchMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  284. Declare Function iRwQuad Lib "rwx.dll" Alias "Win386LibEntry" (ByVal V1 As Long, ByVal V2 As Long, ByVal V3 As Long, ByVal V4 As Long, ByVal ID As Integer) As Integer
  285. Declare Function iRwQuadExt Lib "rwx.dll" Alias "Win386LibEntry" (ByVal V1 As Long, ByVal V2 As Long, ByVal V3 As Long, ByVal V4 As Long, ByVal Tag As Long, ByVal ID As Integer) As Integer
  286. Declare Function iRwQueryRotateMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, Axis As RlV3d, rlDegrees As Long, ByVal ID As Integer) As Long
  287. Declare Function iRwRandom Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  288. Declare Function iRwReadMaskRaster Lib "rwx.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal ID As Integer) As Long
  289. Declare Function iRwReadNamedTexture Lib "rwx.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal ID As Integer) As Long
  290. Declare Function iRwReadRaster Lib "rwx.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal options As Long, ByVal ID As Integer) As Long
  291. Declare Function iRwReadShape Lib "rwx.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal ID As Integer) As Long
  292. Declare Function iRwReadTexture Lib "rwx.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal ID As Integer) As Long
  293. Declare Function iRwReleaseRasterPixels Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Raster As Long, ByVal pixels As Long, ByVal ID As Integer) As Long
  294. Declare Function iRwRemoveChildFromClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  295. Declare Function iRwRemoveClumpFromScene Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  296. Declare Function iRwRemoveHint Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Hint As Long, ByVal ID As Integer) As Integer
  297. Declare Function iRwRemoveHintFromClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Hint As Long, ByVal ID As Integer) As Long
  298. Declare Function iRwRemoveLightFromScene Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  299. Declare Function iRwRemoveTextureModeFromMaterial Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal Mode As Long, ByVal ID As Integer) As Long
  300. Declare Function iRwRemoveTextureModeFromPolygon Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal Mode As Long, ByVal ID As Integer) As Long
  301. Declare Function iRwRemoveTextureModeFromSurface Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mode As Long, ByVal ID As Integer) As Integer
  302. Declare Function iRwRenderClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  303. Declare Function iRwRenderScene Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal ID As Integer) As Long
  304. Declare Function iRwResetCamera Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  305. Declare Function iRwReversePolygonFace Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  306. Declare Function iRwRevolveCamera Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlT As Long, ByVal ID As Integer) As Long
  307. Declare Function iRwRotateCTM Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlAX As Long, ByVal RlAY As Long, ByVal RlAZ As Long, ByVal RlT As Long, ByVal ID As Integer) As Integer
  308. Declare Function iRwRotateJointTM Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlAX As Long, ByVal RlAY As Long, ByVal RlAZ As Long, ByVal RlT As Long, ByVal ID As Integer) As Integer
  309. Declare Function iRwRotateMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal RlVX As Long, ByVal RlVY As Long, ByVal RlVZ As Long, ByVal RlT As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  310. Declare Function iRwRotateMatrixCos Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal RlVX As Long, ByVal RlVY As Long, ByVal RlVZ As Long, ByVal RlCT As Long, ByVal RlDir As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  311. Declare Function iRwScaleCTM Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlSX As Long, ByVal RlSY As Long, ByVal RlSZ As Long, ByVal ID As Integer) As Integer
  312. Declare Function iRwScaleMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal RlSX As Long, ByVal RlSY As Long, ByVal RlSZ As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  313. Declare Function iRwScaleVector Lib "rwx.dll" Alias "Win386LibEntry" (Vector As RlV3d, ByVal RlScale As Long, Result As RlV3d, ByVal ID As Integer) As Long
  314. Declare Function iRwScratchMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  315. Declare Function iRwSetCameraBackColor Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlRed As Long, ByVal RlGreen As Long, ByVal RlBlue As Long, ByVal ID As Integer) As Long
  316. Declare Function iRwSetCameraBackColorStruct Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, Color As RlRGBColor, ByVal ID As Integer) As Long
  317. Declare Function iRwSetCameraBackdrop Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal Rast As Long, ByVal ID As Integer) As Long
  318. Declare Function iRwSetCameraBackdropOffset Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal x As Long, ByVal y As Long, ByVal ID As Integer) As Long
  319. Declare Function iRwSetCameraBackdropViewportRect Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal x As Long, ByVal y As Long, ByVal Wid As Long, ByVal Hght As Long, ByVal ID As Integer) As Long
  320. Declare Function iRwSetCameraData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal CamData As Long, ByVal ID As Integer) As Long
  321. Declare Function iRwSetCameraLookAt Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Long, ByVal RlY As Long, ByVal RlZ As Long, ByVal ID As Integer) As Long
  322. Declare Function iRwSetCameraLookUp Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Long, ByVal RlY As Long, ByVal RlZ As Long, ByVal ID As Integer) As Long
  323. Declare Function iRwSetCameraNearClipping Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlNear As Long, ByVal ID As Integer) As Long
  324. Declare Function iRwSetCameraPosition Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Long, ByVal RlY As Long, ByVal RlZ As Long, ByVal ID As Integer) As Long
  325. Declare Function iRwSetCameraProjection Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal Kind As Long, ByVal ID As Integer) As Long
  326. Declare Function iRwSetCameraViewOffset Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Long, ByVal RlY As Long, ByVal ID As Integer) As Long
  327. Declare Function iRwSetCameraViewport Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal x As Long, ByVal y As Long, ByVal Wid As Long, ByVal Hght As Long, ByVal ID As Integer) As Long
  328. Declare Function iRwSetCameraViewwindow Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal rlWid As Long, ByVal rlHght As Long, ByVal ID As Integer) As Long
  329. Declare Function iRwSetClumpData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ClumpData As Long, ByVal ID As Integer) As Long
  330. Declare Function iRwSetClumpAxisAlignment Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Align As Long, ByVal ID As Integer) As Long
  331. Declare Function iRwSetClumpHints Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Hints As Long, ByVal ID As Integer) As Long
  332. Declare Function iRwSetClumpState Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal State As Long, ByVal ID As Integer) As Long
  333. Declare Function iRwSetClumpTag Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Tag As Long, ByVal ID As Integer) As Long
  334. Declare Function iRwSetClumpVertex Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Index As Long, Vertex As RlV3d, ByVal ID As Integer) As Long
  335. Declare Function iRwSetClumpVertexNormal Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal vindex As Long, Normal As RlV3d, ByVal ID As Integer) As Long
  336. Declare Function iRwSetClumpVertexUV Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Index As Long, ByVal RlU As Long, ByVal RlV As Long, ByVal ID As Integer) As Long
  337. Declare Function iRwSetClumpVertices Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, Index As Long, Vertex As RlV3d, ByVal N As Long, ByVal ID As Integer) As Long
  338. Declare Sub iRwSetDebugAssertionState Lib "rwx.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer)
  339. Declare Sub iRwSetDebugMessageState Lib "rwx.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer)
  340. Declare Sub iRwSetDebugOutputState Lib "rwx.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer)
  341. Declare Sub iRwSetDebugScriptState Lib "rwx.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer)
  342. Declare Sub iRwSetDebugSeverity Lib "rwx.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer)
  343. Declare Sub iRwSetDebugTraceState Lib "rwx.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer)
  344. Declare Function iRwSetAxisAlignment Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Align As Long, ByVal ID As Integer) As Integer
  345. Declare Function iRwSetHints Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Hints As Long, ByVal ID As Integer) As Integer
  346. Declare Function iRwSetLightBrightness Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal RlLum As Long, ByVal ID As Integer) As Long
  347. Declare Function iRwSetLightColor Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal r As Long, ByVal g As Long, ByVal B As Long, ByVal ID As Integer) As Long
  348. Declare Function iRwSetLightColorStruct Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, Color As RlRGBColor, ByVal ID As Integer) As Long
  349. Declare Function iRwSetLightConeAngle Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal RlT As Long, ByVal ID As Integer) As Long
  350. Declare Function iRwSetLightData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal LightData As Long, ByVal ID As Integer) As Long
  351. Declare Function iRwSetLightPosition Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal RlX As Long, ByVal RlY As Long, ByVal RlZ As Long, ByVal ID As Integer) As Long
  352. Declare Function iRwSetLightState Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal State As Long, ByVal ID As Integer) As Long
  353. Declare Function iRwSetLightVector Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal RlX As Long, ByVal RlY As Long, ByVal RlZ As Long, ByVal ID As Integer) As Long
  354. Declare Function iRwSetMaterialAmbient Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal RlKA As Long, ByVal ID As Integer) As Long
  355. Declare Function iRwSetMaterialColor Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal RlRed As Long, ByVal RlGreen As Long, ByVal RlBlue As Long, ByVal ID As Integer) As Long
  356. Declare Function iRwSetMaterialColorStruct Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, Color As RlRGBColor, ByVal ID As Integer) As Long
  357. Declare Function iRwSetMaterialDiffuse Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal RlKD As Long, ByVal ID As Integer) As Long
  358. Declare Function iRwSetMaterialGeometrySampling Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal samp As Long, ByVal ID As Integer) As Long
  359. Declare Function iRwSetMaterialLightSampling Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal samp As Long, ByVal ID As Integer) As Long
  360. Declare Function iRwSetMaterialOpacity Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal RlOpacity As Long, ByVal ID As Integer) As Long
  361. Declare Function iRwSetMaterialSpecular Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal RlKS As Long, ByVal ID As Integer) As Long
  362. Declare Function iRwSetMaterialSurface Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal RlKA As Long, ByVal RlKD As Long, ByVal RlKS As Long, ByVal ID As Integer) As Long
  363. Declare Function iRwSetMaterialTexture Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal Tex As Long, ByVal ID As Integer) As Long
  364. Declare Function iRwSetMaterialTextureModes Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal Modes As Long, ByVal ID As Integer) As Long
  365. Declare Function iRwSetMatrixElement Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal i As Long, ByVal J As Long, ByVal RlVal As Long, ByVal ID As Integer) As Long
  366. Declare Function iRwSetMatrixElements Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, RlFArray As Long, ByVal ID As Integer) As Long
  367. Declare Function iRwSetPaletteEntries Lib "rwx.dll" Alias "Win386LibEntry" (ByVal start As Long, ByVal Length As Long, palette As RwPaletteEntry, ByVal options As Long, ByVal ID As Integer) As Long
  368. Declare Function iRwSetPolygonAmbient Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal RlKA As Long, ByVal ID As Integer) As Long
  369. Declare Function iRwSetPolygonColor Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal RlRed As Long, ByVal RlGreen As Long, ByVal RlBlue As Long, ByVal ID As Integer) As Long
  370. Declare Function iRwSetPolygonColorStruct Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, Color As RlRGBColor, ByVal ID As Integer) As Long
  371. Declare Function iRwSetPolygonData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal PolygonData As Long, ByVal ID As Integer) As Long
  372. Declare Function iRwSetPolygonDiffuse Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal RlKD As Long, ByVal ID As Integer) As Long
  373. Declare Function iRwSetPolygonGeometrySampling Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal samp As Long, ByVal ID As Integer) As Long
  374. Declare Function iRwSetPolygonLightSampling Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal samp As Long, ByVal ID As Integer) As Long
  375. Declare Function iRwSetPolygonMaterial Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal Mat As Long, ByVal ID As Integer) As Long
  376. Declare Function iRwSetPolygonOpacity Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal RlOpacity As Long, ByVal ID As Integer) As Long
  377. Declare Function iRwSetPolygonSpecular Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal RlKS As Long, ByVal ID As Integer) As Long
  378. Declare Function iRwSetPolygonSurface Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal RlKA As Long, ByVal RlKD As Long, ByVal RlKS As Long, ByVal ID As Integer) As Long
  379. Declare Function iRwSetPolygonTag Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal Tag As Long, ByVal ID As Integer) As Long
  380. Declare Function iRwSetPolygonTexture Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal Texture As Long, ByVal ID As Integer) As Long
  381. Declare Function iRwSetPolygonTextureModes Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal Modes As Long, ByVal ID As Integer) As Long
  382. Declare Function iRwSetPolygonUV Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Poly As Long, UVS As RlUV, ByVal ID As Integer) As Long
  383. Declare Function iRwSetRasterData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal RasterData As Long, ByVal ID As Integer) As Long
  384. Declare Function iRwSetSceneData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal SceneData As Long, ByVal ID As Integer) As Long
  385. Declare Function iRwSetShapePath Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Path As String, ByVal Op As Long, ByVal ID As Integer) As Integer
  386. Declare Function iRwSetSplineData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal SplineData As Long, ByVal ID As Integer) As Long
  387. Declare Function iRwSetSplinePoint Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal Index As Long, Pnt As RlV3d, ByVal ID As Integer) As Long
  388. Declare Function iRwSetSurface Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlKA As Long, ByVal RlKD As Long, ByVal RlKS As Long, ByVal ID As Integer) As Integer
  389. Declare Function iRwSetSurfaceAmbient Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlKA As Long, ByVal ID As Integer) As Integer
  390. Declare Function iRwSetSurfaceColor Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlRed As Long, ByVal RlGreen As Long, ByVal RlBlue As Long, ByVal ID As Integer) As Integer
  391. Declare Function iRwSetSurfaceDiffuse Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlKD As Long, ByVal ID As Integer) As Integer
  392. Declare Function iRwSetSurfaceGeometrySampling Lib "rwx.dll" Alias "Win386LibEntry" (ByVal samp As Long, ByVal ID As Integer) As Integer
  393. Declare Function iRwSetSurfaceLightSampling Lib "rwx.dll" Alias "Win386LibEntry" (ByVal samp As Long, ByVal ID As Integer) As Integer
  394. Declare Function iRwSetSurfaceOpacity Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlOpacity As Long, ByVal ID As Integer) As Integer
  395. Declare Function iRwSetSurfaceSpecular Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlKS As Long, ByVal ID As Integer) As Integer
  396. Declare Function iRwSetSurfaceTexture Lib "rwx.dll" Alias "Win386LibEntry" (TextName As Any, ByVal ID As Integer) As Integer
  397. Declare Function iRwSetSurfaceTextureExt Lib "rwx.dll" Alias "Win386LibEntry" (ByVal TextName As String, ByVal MaskName As String, ByVal ID As Integer) As Integer
  398. Declare Function iRwSetSurfaceTextureModes Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Modes As Long, ByVal ID As Integer) As Integer
  399. Declare Function iRwSetTag Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tag As Long, ByVal ID As Integer) As Integer
  400. Declare Function iRwSetTextureData Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal TextureData As Long, ByVal ID As Integer) As Long
  401. Declare Function iRwSetTextureDictSearchMode Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mode As Long, ByVal ID As Integer) As Integer
  402. Declare Function iRwSetTextureDithering Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Mode As Long, ByVal ID As Integer) As Integer
  403. Declare Function iRwSetTextureFrame Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal Index As Long, ByVal ID As Integer) As Long
  404. Declare Function iRwSetTextureFrameStep Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal value As Long, ByVal ID As Integer) As Long
  405. Declare Function iRwSetTextureGammaCorrection Lib "rwx.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer) As Integer
  406. Declare Function iRwSetTextureRaster Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal Rast As Long, ByVal ID As Integer) As Long
  407. Declare Sub iRwSetUserError Lib "rwwrxp.dll" Alias "Win386LibEntry" (ByVal ID As Integer)
  408. Declare Function iRwShowCameraImage Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal hdc As Long, ByVal ID As Integer) As Long
  409. Declare Function iRwSphere Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlRad As Long, ByVal Sides As Long, ByVal ID As Integer) As Integer
  410. Declare Function iRwSphericalTexturizeClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  411. Declare Function iRwSplinePoint Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal Path As Long, ByVal RlWhere As Long, Pt As RlV3d, Vec As RlV3d, ByVal ID As Integer) As Long
  412. Declare Function iRwSplineTransform Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal Path As Long, ByVal RlWhere As Long, Up As Any, ByVal Matx As Long, ByVal ID As Integer) As Long
  413. Declare Sub iRwSRandom Lib "rwx.dll" Alias "Win386LibEntry" (ByVal seed As Long, ByVal ID As Integer)
  414. Declare Function iRwSubtractVector Lib "rwx.dll" Alias "Win386LibEntry" (A As RlV3d, B As RlV3d, C As RlV3d, ByVal ID As Integer) As Long
  415. Declare Function iRwTextureDictBegin Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  416. Declare Function iRwTextureDictEnd Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  417. Declare Function iRwTextureNextFrame Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  418. Declare Function iRwTiltCamera Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlT As Long, ByVal ID As Integer) As Long
  419. Declare Function iRwTransformBegin Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  420. Declare Function iRwTransformCTM Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal ID As Integer) As Integer
  421. Declare Function iRwTransformCamera Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal Matx As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  422. Declare Function iRwTransformCameraOrientation Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal Matx As Long, ByVal ID As Integer) As Long
  423. Declare Function iRwTransformClump Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Matx As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  424. Declare Function iRwTransformClumpJoint Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Matx As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  425. Declare Function iRwTransformEnd Lib "rwx.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  426. Declare Function iRwTransformJointTM Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal ID As Integer) As Integer
  427. Declare Function iRwTransformLight Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal Matx As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  428. Declare Function iRwTransformMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal DstMatx As Long, ByVal srcMatx As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  429. Declare Function iRwTransformPoint Lib "rwx.dll" Alias "Win386LibEntry" (A As RlV3d, ByVal Matx As Long, ByVal ID As Integer) As Long
  430. Declare Function iRwTransformVector Lib "rwx.dll" Alias "Win386LibEntry" (A As RlV3d, ByVal Matx As Long, ByVal ID As Integer) As Long
  431. Declare Function iRwTranslateCTM Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlTX As Long, ByVal RlTY As Long, ByVal RlTZ As Long, ByVal ID As Integer) As Integer
  432. Declare Function iRwTranslateMatrix Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal RlTX As Long, ByVal RlTY As Long, ByVal RlTZ As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  433. Declare Function iRwTriangle Lib "rwx.dll" Alias "Win386LibEntry" (ByVal V1 As Long, ByVal V2 As Long, ByVal V3 As Long, ByVal ID As Integer) As Integer
  434. Declare Function iRwTriangleExt Lib "rwx.dll" Alias "Win386LibEntry" (ByVal V1 As Long, ByVal V2 As Long, ByVal V3 As Long, ByVal Tag As Long, ByVal ID As Integer) As Integer
  435. Declare Function iRwUndamageCameraViewport Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal x As Long, ByVal y As Long, ByVal Wid As Long, ByVal Hght As Long, ByVal ID As Integer) As Long
  436. Declare Function iRwVCMoveCamera Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Long, ByVal RlY As Long, ByVal RlZ As Long, ByVal ID As Integer) As Long
  437. Declare Function iRwVertex Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlX As Long, ByVal RlY As Long, ByVal RlZ As Long, ByVal ID As Integer) As Long
  438. Declare Function iRwVertexExt Lib "rwx.dll" Alias "Win386LibEntry" (ByVal RlX As Long, ByVal RlY As Long, ByVal RlZ As Long, UV As RlUV, Normal As Any, ByVal ID As Integer) As Long
  439. Declare Function iRwWCMoveCamera Lib "rwx.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Long, ByVal RlY As Long, ByVal RlZ As Long, ByVal ID As Integer) As Long
  440. Declare Function iRwWriteShape Lib "rwx.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal Clmp As Long, ByVal ID As Integer) As Integer
  441.  
  442. Sub R2SPickRecord (dest As RwPickRecord, src As RlPickRecord)
  443.     dest.type = src.type
  444.     dest.object.clump.clump = src.object.clump.clump
  445.     dest.object.clump.polygon = src.object.clump.polygon
  446.     dest.object.clump.Vertex.vindex = src.object.clump.Vertex.vindex
  447.     dest.object.clump.Vertex.d2 = src.object.clump.Vertex.d2
  448.     dest.object.clump.wcpoint.x = REAL2SINGLE(src.object.clump.wcpoint.x)
  449.     dest.object.clump.wcpoint.y = REAL2SINGLE(src.object.clump.wcpoint.y)
  450.     dest.object.clump.wcpoint.z = REAL2SINGLE(src.object.clump.wcpoint.z)
  451. End Sub
  452.  
  453. Sub R2SRGBColor (dest As RwRGBColor, src As RlRGBColor)
  454.     dest.r = REAL2SINGLE(src.r)
  455.     dest.g = REAL2SINGLE(src.g)
  456.     dest.B = REAL2SINGLE(src.B)
  457. End Sub
  458.  
  459. Sub R2SUV (dest As RwUV, src As RlUV)
  460.     dest.u = REAL2SINGLE(src.u)
  461.     dest.v = REAL2SINGLE(src.v)
  462. End Sub
  463.  
  464. Sub R2SV3d (dest As RwV3d, src As RlV3d)
  465.     dest.x = REAL2SINGLE(src.x)
  466.     dest.y = REAL2SINGLE(src.y)
  467.     dest.z = REAL2SINGLE(src.z)
  468. End Sub
  469.  
  470. Function REAL2SINGLE (ByVal x As Long) As Single
  471.     REAL2SINGLE = CSng(x) / 65536#
  472. End Function
  473.  
  474. Function RwAddVector (A As RwV3d, B As RwV3d, C As RwV3d) As Long
  475.     Dim rA As RlV3d
  476.     Dim rB As RlV3d
  477.     Dim rC As RlV3d
  478.  
  479.     S2RV3d rA, A
  480.     S2RV3d rB, B
  481.     RwAddVector = iRwAddVector(rA, rB, rC, ID_RWADDVECTOR)
  482.     R2SV3d C, rC
  483. End Function
  484.  
  485. Function RwClumpDistance (ByVal Clmp As Long, Pos As RwV3d) As Single
  486.     Dim rPos As RlV3d
  487.  
  488.     S2RV3d rPos, Pos
  489.     RwClumpDistance = REAL2SINGLE(iRwClumpDistance(Clmp, rPos, ID_RWCLUMPDISTANCE))
  490. End Function
  491.  
  492. Function RwCreateSpline (ByVal NPoints As Long, ByVal Kind As Long, Pts() As RwV3d) As Long
  493.     ReDim rPts(NPoints) As RlV3d
  494.     Dim count As Integer
  495.  
  496.     For count = 0 To NPoints - 1
  497.         S2RV3d rPts(count), Pts(count)
  498.     Next
  499.     RwCreateSpline = iRwCreateSpline(NPoints, Kind, rPts(0), ID_RWCREATESPLINE)
  500. End Function
  501.  
  502. Function RwCrossProduct (A As RwV3d, B As RwV3d, C As RwV3d) As Long
  503.     Dim rA As RlV3d
  504.     Dim rB As RlV3d
  505.     Dim rC As RlV3d
  506.  
  507.     S2RV3d rA, A
  508.     S2RV3d rB, B
  509.     RwCrossProduct = iRwCrossProduct(rA, rB, rC, ID_RWCROSSPRODUCT)
  510.     R2SV3d C, rC
  511. End Function
  512.  
  513. Function RwDotProduct (A As RwV3d, B As RwV3d) As Single
  514.     Dim rA As RlV3d
  515.     Dim rB As RlV3d
  516.  
  517.     S2RV3d rA, A
  518.     S2RV3d rB, B
  519.     RwDotProduct = REAL2SINGLE(iRwDotProduct(rA, rB, ID_RWDOTPRODUCT))
  520. End Function
  521.  
  522. Function RwGetCameraBackColor (ByVal Cam As Long, Color As RwRGBColor) As Long
  523.     Dim rColor As RlRGBColor
  524.  
  525.     RwGetCameraBackColor = iRwGetCameraBackColor(Cam, rColor, ID_RWGETCAMERABACKCOLOR)
  526.     R2SRGBColor Color, rColor
  527. End Function
  528.  
  529. Function RwGetCameraLookAt (ByVal Cam As Long, LookAt As RwV3d) As Long
  530.     Dim rLookAt As RlV3d
  531.  
  532.     RwGetCameraLookAt = iRwGetCameraLookAt(Cam, rLookAt, ID_RWGETCAMERALOOKAT)
  533.     R2SV3d LookAt, rLookAt
  534. End Function
  535.  
  536. Function RwGetCameraLookRight (ByVal Cam As Long, LookRight As RwV3d) As Long
  537.     Dim rLookRight As RlV3d
  538.  
  539.     RwGetCameraLookRight = iRwGetCameraLookRight(Cam, rLookRight, ID_RWGETCAMERALOOKRIGHT)
  540.     R2SV3d LookRight, rLookRight
  541. End Function
  542.  
  543. Function RwGetCameraLookUp (ByVal Cam As Long, LookUp As RwV3d) As Long
  544.     Dim rLookUp As RlV3d
  545.  
  546.     RwGetCameraLookUp = iRwGetCameraLookUp(Cam, rLookUp, ID_RWGETCAMERALOOKUP)
  547.     R2SV3d LookUp, rLookUp
  548. End Function
  549.  
  550. Function RwGetCameraPosition (ByVal Cam As Long, Pos As RwV3d) As Long
  551.     Dim rPos As RlV3d
  552.  
  553.     RwGetCameraPosition = iRwGetCameraPosition(Cam, rPos, ID_RWGETCAMERAPOSITION)
  554.     R2SV3d Pos, rPos
  555. End Function
  556.  
  557. Function RwGetCameraViewOffset (ByVal Cam As Long, Offset As RwV3d) As Long
  558.     Dim rOffset As RlV3d
  559.  
  560.     RwGetCameraViewOffset = iRwGetCameraViewOffset(Cam, rOffset, ID_RWGETCAMERAVIEWOFFSET)
  561.     R2SV3d Offset, rOffset
  562. End Function
  563.  
  564. Function RwGetCameraViewwindow (ByVal Cam As Long, Wid As Single, Hght As Single) As Long
  565.     Dim rlWid As Long
  566.     Dim rlHght As Long
  567.  
  568.     RwGetCameraViewwindow = iRwGetCameraViewwindow(Cam, rlWid, rlHght, ID_RWGETCAMERAVIEWWINDOW)
  569.     Wid = REAL2SINGLE(rlWid)
  570.     Hght = REAL2SINGLE(rlHght)
  571. End Function
  572.  
  573. Function RwGetClumpBBox (ByVal Clmp As Long, BLL As RwV3d, FUR As RwV3d) As Long
  574.     Dim rBLL As RlV3d
  575.     Dim rFUR As RlV3d
  576.  
  577.     RwGetClumpBBox = iRwGetClumpBBox(Clmp, rBLL, rFUR, ID_RWGETCLUMPBBOX)
  578.     R2SV3d BLL, rBLL
  579.     R2SV3d FUR, rFUR
  580. End Function
  581.  
  582. Function RwGetClumpLocalBBox (ByVal clump As Long, BLL As RwV3d, FUR As RwV3d) As Long
  583.     Dim rBLL As RlV3d
  584.     Dim rFUR As RlV3d
  585.  
  586.     RwGetClumpLocalBBox = iRwGetClumpLocalBBox(clump, rBLL, rFUR, ID_RWGETCLUMPLOCALBBOX)
  587.     R2SV3d BLL, rBLL
  588.     R2SV3d FUR, rFUR
  589. End Function
  590.  
  591. Function RwGetClumpOrigin (ByVal Clmp As Long, Origin As RwV3d) As Long
  592.     Dim rOrigin As RlV3d
  593.  
  594.     RwGetClumpOrigin = iRwGetClumpOrigin(Clmp, rOrigin, ID_RWGETCLUMPORIGIN)
  595.     R2SV3d Origin, rOrigin
  596. End Function
  597.  
  598. Function RwGetClumpVertex (ByVal Clmp As Long, ByVal Index As Long, Vertex As RwV3d) As Long
  599.     Dim rVertex As RlV3d
  600.  
  601.     RwGetClumpVertex = iRwGetClumpVertex(Clmp, Index, rVertex, ID_RWGETCLUMPVERTEX)
  602.     R2SV3d Vertex, rVertex
  603. End Function
  604.  
  605. Function RwGetClumpVertexNormal (ByVal Clmp As Long, ByVal Index As Long, Normal As RwV3d) As Long
  606.     Dim rNormal As RlV3d
  607.  
  608.     RwGetClumpVertexNormal = iRwGetClumpVertexNormal(Clmp, Index, rNormal, ID_RWGETCLUMPVERTEXNORMAL)
  609.     R2SV3d Normal, rNormal
  610. End Function
  611.  
  612. Function RwGetClumpVertexUV (ByVal Clmp As Long, ByVal Index As Long, UV As RwUV) As Long
  613.     Dim rUV As RlUV
  614.  
  615.     RwGetClumpVertexUV = iRwGetClumpVertexUV(Clmp, Index, rUV, ID_RWGETCLUMPVERTEXUV)
  616.     R2SUV UV, rUV
  617. End Function
  618.  
  619. Function RwGetLightColor (ByVal Lite As Long, Color As RwRGBColor) As Long
  620.     Dim rColor As RlRGBColor
  621.  
  622.     RwGetLightColor = iRwGetLightColor(Lite, rColor, ID_RWGETLIGHTCOLOR)
  623.     R2SRGBColor Color, rColor
  624. End Function
  625.  
  626. Function RwGetLightPosition (ByVal Lite As Long, Pos As RwV3d) As Long
  627.     Dim rPos As RlV3d
  628.  
  629.     RwGetLightPosition = iRwGetLightPosition(Lite, rPos, ID_RWGETLIGHTPOSITION)
  630.     R2SV3d Pos, rPos
  631. End Function
  632.  
  633. Function RwGetLightVector (ByVal Lite As Long, Vector As RwV3d) As Long
  634.     Dim rVector As RlV3d
  635.  
  636.     RwGetLightVector = iRwGetLightVector(Lite, rVector, ID_RWGETLIGHTVECTOR)
  637.     R2SV3d Vector, rVector
  638. End Function
  639.  
  640. Function RwGetMaterialColor (ByVal Mat As Long, Color As RwRGBColor) As Long
  641.     Dim rColor As RlRGBColor
  642.  
  643.     RwGetMaterialColor = iRwGetMaterialColor(Mat, rColor, ID_RWGETMATERIALCOLOR)
  644.     R2SRGBColor Color, rColor
  645. End Function
  646.  
  647. Function RwGetMatrixElements (ByVal Matx As Long, FArray() As Single) As Long
  648.     ReDim rlArray(16) As Long
  649.     Dim i As Integer
  650.  
  651.     RwGetMatrixElements = iRwGetMatrixElements(Matx, rlArray(0), ID_RWGETMATRIXELEMENTS)
  652.     For i = 0 To 15
  653.         FArray(i) = REAL2SINGLE(rlArray(i))
  654.     Next
  655. End Function
  656.  
  657. Function RwGetPolygonCenter (ByVal Poly As Long, Center As RwV3d) As Long
  658.     Dim rCenter As RlV3d
  659.  
  660.     RwGetPolygonCenter = iRwGetPolygonCenter(Poly, rCenter, ID_RWGETPOLYGONCENTER)
  661.     R2SV3d Center, rCenter
  662. End Function
  663.  
  664. Function RwGetPolygonColor (ByVal Poly As Long, Color As RwRGBColor) As Long
  665.     Dim rColor As RlRGBColor
  666.  
  667.     RwGetPolygonColor = iRwGetPolygonColor(Poly, rColor, ID_RWGETPOLYGONCOLOR)
  668.     R2SRGBColor Color, rColor
  669. End Function
  670.  
  671. Function RwGetPolygonNormal (ByVal Poly As Long, Normal As RwV3d) As Long
  672.     Dim rNormal As RlV3d
  673.  
  674.     RwGetPolygonNormal = iRwGetPolygonNormal(Poly, rNormal, ID_RWGETPOLYGONNORMAL)
  675.     R2SV3d Normal, rNormal
  676. End Function
  677.  
  678. Function RwGetPolygonUV (ByVal Poly As Long, UVS() As RwUV) As Long
  679.     Dim lower As Integer
  680.     Dim upper As Integer
  681.     Dim count As Integer
  682.  
  683.     lower = LBound(UVS)
  684.     upper = UBound(UVS)
  685.     ReDim rUVS(lower To upper) As RlUV
  686.     RwGetPolygonUV = iRwGetPolygonUV(Poly, rUVS(lower), ID_RWGETPOLYGONUV)
  687.     For count = lower To upper
  688.         R2SUV UVS(count), rUVS(count)
  689.     Next
  690. End Function
  691.  
  692. Function RwGetSplinePoint (ByVal Spln As Long, ByVal Index As Long, Pnt As RwV3d) As Long
  693.     Dim rPnt As RlV3d
  694.  
  695.     RwGetSplinePoint = iRwGetSplinePoint(Spln, Index, rPnt, ID_RWGETSPLINEPOINT)
  696.     R2SV3d Pnt, rPnt
  697. End Function
  698.  
  699. Function RwNormalize (Vector As RwV3d) As Long
  700.     Dim rVector As RlV3d
  701.  
  702.     S2RV3d rVector, Vector
  703.     RwNormalize = iRwNormalize(rVector, ID_RWNORMALIZE)
  704.     R2SV3d Vector, rVector
  705. End Function
  706.  
  707. Function RwPickClump (ByVal Clmp As Long, ByVal VPX As Long, ByVal VPY As Long, ByVal Cam As Long, Pick As RwPickRecord) As Long
  708.     Dim rPick As RlPickRecord
  709.  
  710.     RwPickClump = iRwPickClump(Clmp, VPX, VPY, Cam, rPick, ID_RWPICKCLUMP)
  711.     R2SPickRecord Pick, rPick
  712. End Function
  713.  
  714. Function RwPickScene (ByVal Scn As Long, ByVal x As Long, ByVal y As Long, ByVal Cam As Long, Pick As RwPickRecord) As Long
  715.     Dim rPick As RlPickRecord
  716.  
  717.     RwPickScene = iRwPickScene(Scn, x, y, Cam, rPick, ID_RWPICKSCENE)
  718.     R2SPickRecord Pick, rPick
  719. End Function
  720.  
  721. Function RwQueryRotateMatrix (ByVal Matx As Long, Axis As RwV3d, Degrees As Single) As Long
  722.     Dim rAxis As RlV3d
  723.     Dim rlDegrees As Long
  724.  
  725.     S2RV3d rAxis, Axis
  726.     RwQueryRotateMatrix = iRwQueryRotateMatrix(Matx, rAxis, rlDegrees, ID_RWQUERYROTATEMATRIX)
  727.     Degrees = REAL2SINGLE(rlDegrees)
  728. End Function
  729.  
  730. Function RwScaleVector (Vector As RwV3d, ByVal RlScale As Variant, Result As RwV3d) As Long
  731.     Dim rVector  As RlV3d
  732.     Dim rResult As RlV3d
  733.  
  734.     S2RV3d rVector, Vector
  735.     RwScaleVector = iRwScaleVector(rVector, VAR2REAL(RlScale), rResult, ID_RWSCALEVECTOR)
  736.     R2SV3d Result, rResult
  737. End Function
  738.  
  739. Function RwSetCameraBackColorStruct (ByVal Cam As Long, Color As RwRGBColor) As Long
  740.     Dim rColor As RlRGBColor
  741.  
  742.     S2RRGBColor rColor, Color
  743.     RwSetCameraBackColorStruct = iRwSetCameraBackColorStruct(Cam, rColor, ID_RWSETCAMERABACKCOLORSTRUCT)
  744. End Function
  745.  
  746. Function RwSetClumpVertex (ByVal Clmp As Long, ByVal Index As Long, Vertex As RwV3d) As Long
  747.     Dim rVertex As RlV3d
  748.  
  749.     S2RV3d rVertex, Vertex
  750.     RwSetClumpVertex = iRwSetClumpVertex(Clmp, Index, rVertex, ID_RWSETCLUMPVERTEX)
  751. End Function
  752.  
  753. Function RwSetClumpVertexNormal (ByVal Clmp As Long, ByVal vindex As Long, Normal As RwV3d) As Long
  754.     Dim rNormal As RlV3d
  755.  
  756.     S2RV3d rNormal, Normal
  757.     RwSetClumpVertexNormal = iRwSetClumpVertexNormal(Clmp, vindex, rNormal, ID_RWSETCLUMPVERTEXNORMAL)
  758. End Function
  759.  
  760. Function RwSetClumpVertices (ByVal Clmp As Long, Index As Long, Vertex() As RwV3d, ByVal N As Long) As Long
  761.     ReDim rVertex(N) As RlV3d
  762.     Dim count As Integer
  763.  
  764.     For count = 0 To N - 1
  765.         S2RV3d rVertex(count), Vertex(count)
  766.     Next
  767.     RwSetClumpVertices = iRwSetClumpVertices(Clmp, Index, rVertex(0), N, ID_RWSETCLUMPVERTICES)
  768. End Function
  769.  
  770. Function RwSetLightColorStruct (ByVal Lite As Long, Color As RwRGBColor) As Long
  771.     Dim rColor As RlRGBColor
  772.  
  773.     S2RRGBColor rColor, Color
  774.     RwSetLightColorStruct = iRwSetLightColorStruct(Lite, rColor, ID_RWSETLIGHTCOLORSTRUCT)
  775. End Function
  776.  
  777. Function RwSetMaterialColorStruct (ByVal Mat As Long, Color As RwRGBColor) As Long
  778.     Dim rColor As RlRGBColor
  779.  
  780.     S2RRGBColor rColor, Color
  781.     RwSetMaterialColorStruct = iRwSetMaterialColorStruct(Mat, rColor, ID_RWSETMATERIALCOLORSTRUCT)
  782. End Function
  783.  
  784. Function RwSetMatrixElements (ByVal Matx As Long, FArray() As Single) As Long
  785.     ReDim rlArray(16) As Long
  786.     Dim i As Integer
  787.  
  788.     For i = 0 To 15
  789.         rlArray(i) = VAR2REAL(FArray(i))
  790.     Next
  791.     RwSetMatrixElements = iRwSetMatrixElements(Matx, rlArray(0), ID_RWSETMATRIXELEMENTS)
  792. End Function
  793.  
  794. Function RwSetPolygonColorStruct (ByVal Poly As Long, Color As RwRGBColor) As Long
  795.     Dim rColor As RlRGBColor
  796.  
  797.     S2RRGBColor rColor, Color
  798.     RwSetPolygonColorStruct = iRwSetPolygonColorStruct(Poly, rColor, ID_RWSETPOLYGONCOLORSTRUCT)
  799. End Function
  800.  
  801. Function RwSetPolygonUV (ByVal Poly As Long, UVS() As RwUV) As Long
  802.     Dim lower As Integer
  803.     Dim upper As Integer
  804.     Dim count As Integer
  805.  
  806.     lower = LBound(UVS)
  807.     upper = UBound(UVS)
  808.     ReDim rUVS(lower To upper) As RlUV
  809.     For count = lower To upper
  810.         S2RUV rUVS(count), UVS(count)
  811.     Next
  812.     RwSetPolygonUV = iRwSetPolygonUV(Poly, rUVS(lower), ID_RWSETPOLYGONUV)
  813. End Function
  814.  
  815. Function RwSetSplinePoint (ByVal Spln As Long, ByVal Index As Long, Pnt As RwV3d) As Long
  816.     Dim rPnt As RlV3d
  817.  
  818.     S2RV3d rPnt, Pnt
  819.     RwSetSplinePoint = iRwSetSplinePoint(Spln, Index, rPnt, ID_RWSETSPLINEPOINT)
  820. End Function
  821.  
  822. Function RwSplinePoint (ByVal Spln As Long, ByVal Path As Long, ByVal RlWhere As Variant, Pt As RwV3d, Vec As RwV3d) As Long
  823.     Dim rPt As RlV3d
  824.     Dim rVec As RlV3d
  825.  
  826.     RwSplinePoint = iRwSplinePoint(Spln, Path, VAR2REAL(RlWhere), rPt, rVec, ID_RWSPLINEPOINT)
  827.     R2SV3d Pt, rPt
  828.     R2SV3d Vec, rVec
  829. End Function
  830.  
  831. Function RwSplineTransform (ByVal Spln As Long, ByVal Path As Long, ByVal RlWhere As Variant, Up As RwV3d, ByVal Matx As Long) As Single
  832.     If Up.x = 0 And Up.y = 0 And Up.z = 0 Then
  833.         RwSplineTransform = REAL2SINGLE(iRwSplineTransform(Spln, Path, VAR2REAL(RlWhere), ByVal 0&, Matx, ID_RWSPLINETRANSFORM))
  834.     Else
  835.         Dim rUp As RlV3d
  836.  
  837.         S2RV3d rUp, Up
  838.         RwSplineTransform = REAL2SINGLE(iRwSplineTransform(Spln, Path, VAR2REAL(RlWhere), rUp, Matx, ID_RWSPLINETRANSFORM))
  839.     End If
  840. End Function
  841.  
  842. Function RwSubtractVector (A As RwV3d, B As RwV3d, C As RwV3d) As Long
  843.     Dim rA As RlV3d
  844.     Dim rB As RlV3d
  845.     Dim rC As RlV3d
  846.  
  847.     S2RV3d rA, A
  848.     S2RV3d rB, B
  849.     RwSubtractVector = iRwSubtractVector(rA, rB, rC, ID_RWSUBTRACTVECTOR)
  850.     R2SV3d C, rC
  851. End Function
  852.  
  853. Function RwTransformPoint (A As RwV3d, ByVal Matx As Long) As Long
  854.     Dim rA As RlV3d
  855.  
  856.     S2RV3d rA, A
  857.     RwTransformPoint = iRwTransformPoint(rA, Matx, ID_RWTRANSFORMPOINT)
  858.     R2SV3d A, rA
  859. End Function
  860.  
  861. Function RwTransformVector (A As RwV3d, ByVal Matx As Long) As Long
  862.     Dim rA As RlV3d
  863.  
  864.     S2RV3d rA, A
  865.     RwTransformVector = iRwTransformVector(rA, Matx, ID_RWTRANSFORMVECTOR)
  866.     R2SV3d A, rA
  867. End Function
  868.  
  869. Function RwVertexExt (ByVal RlX As Variant, ByVal RlY As Variant, ByVal RlZ As Variant, UV As RwUV, Normal As RwV3d) As Long
  870.     Dim rUV As RlUV
  871.  
  872.     S2RUV rUV, UV
  873.     If Normal.x = 0 And Normal.y = 0 And Normal.z = 0 Then
  874.         RwVertexExt = iRwVertexExt(VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), rUV, ByVal 0&, ID_RWVERTEXEXT)
  875.     Else
  876.         Dim rNormal As RlV3d
  877.  
  878.         S2RV3d rNormal, Normal
  879.         RwVertexExt = iRwVertexExt(VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), rUV, rNormal, ID_RWVERTEXEXT)
  880.     End If
  881. End Function
  882.  
  883. Sub S2RRGBColor (dest As RlRGBColor, src As RwRGBColor)
  884.     dest.r = VAR2REAL(src.r)
  885.     dest.g = VAR2REAL(src.g)
  886.     dest.B = VAR2REAL(src.B)
  887. End Sub
  888.  
  889. Sub S2RUV (dest As RlUV, src As RwUV)
  890.     dest.u = VAR2REAL(src.u)
  891.     dest.v = VAR2REAL(src.v)
  892. End Sub
  893.  
  894. Sub S2RV3d (dest As RlV3d, src As RwV3d)
  895.     dest.x = VAR2REAL(src.x)
  896.     dest.y = VAR2REAL(src.y)
  897.     dest.z = VAR2REAL(src.z)
  898. End Sub
  899.  
  900. Function VAR2REAL (ByVal x As Variant) As Long
  901.     Select Case VarType(x)
  902.     Case V_INTEGER
  903.         VAR2REAL = CLng(x) * 65536
  904.     Case V_LONG
  905.         VAR2REAL = x * 65536
  906.     Case V_SINGLE
  907.         VAR2REAL = CLng(x * 65536#)
  908.     Case V_DOUBLE
  909.         VAR2REAL = CLng(x * 65536#)
  910.     Case Else
  911.         MsgBox "RenderWare expected numeric type", MB_OK
  912.         End
  913.     End Select
  914. End Function
  915.  
  916.