home *** CD-ROM | disk | FTP | other *** search
/ Learn 3D Graphics Programming on the PC / Learn_3D_Graphics_Programming_on_the_PC_Ferraro.iso / rwwin / rwl.ba_ / rwl.bin
Text File  |  1995-11-14  |  63KB  |  605 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. ' Call points into the RenderWare DLL
  18. Declare Function iRwAddChildToClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Child As Long, ByVal ID As Integer) As Long
  19. Declare Function iRwAddClumpToScene Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal Clmp As Long, ByVal ID As Integer) As Long
  20. Declare Function iRwAddHint Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Hint As Long, ByVal ID As Integer) As Integer
  21. Declare Function iRwAddHintToClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Hint As Long, ByVal ID As Integer) As Long
  22. Declare Function iRwAddLightToScene Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal Lite As Long, ByVal ID As Integer) As Long
  23. Declare Function iRwAddPolygonToClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Sides As Long, VArray As Long, ByVal ID As Integer) As Long
  24. Declare Function iRwAddPolygonsToClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal DestClump As Long, ByVal SrcClump As Long, ByVal ID As Integer) As Long
  25. Declare Function iRwAddTextureModeToMaterial Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal TextureMode As Long, ByVal ID As Integer) As Long
  26. Declare Function iRwAddTextureModeToPolygon Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal TextureMode As Long, ByVal ID As Integer) As Long
  27. Declare Function iRwAddTextureModeToSurface Lib "rwl.dll" Alias "Win386LibEntry" (ByVal TextureMode As Long, ByVal ID As Integer) As Integer
  28. Declare Function iRwAddVector Lib "rwl.dll" Alias "Win386LibEntry" (A As RwV3d, b As RwV3d, Result As RwV3d, ByVal ID As Integer) As Long
  29. Declare Function iRwAddVertexToClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal RlX As Single, ByVal RlY As Single, ByVal RlZ As Single, ByVal ID As Integer) As Long
  30. Declare Function iRwBeginCameraUpdate Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal hwnd As Long, ByVal ID As Integer) As Long
  31. Declare Function iRwBitmapRaster Lib "rwl.dll" Alias "Win386LibEntry" (ByVal hbitmap As Long, ByVal RasterOptions As Long, ByVal ID As Integer) As Long
  32. Declare Function iRwBlock Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlWid As Single, ByVal RlHght As Single, ByVal RlDepth As Single, ByVal ID As Integer) As Integer
  33. Declare Function iRwCalculateClumpVertexNormal Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal vindex As Long, ByVal ID As Integer) As Long
  34. Declare Function iRwClearCameraViewport Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  35. Declare Sub iRwClose Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer)
  36. Declare Sub iRwCloseDebugStream Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer)
  37. Declare Function iRwClumpBegin Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  38. Declare Function iRwClumpDistance Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, Pos As RwV3d, ByVal ID As Integer) As Single
  39. Declare Function iRwClumpEnd Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  40. Declare Function iRwCone Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlHght As Single, ByVal RlRad As Single, ByVal Sides As Long, ByVal ID As Integer) As Integer
  41. Declare Function iRwCopyMaterial Lib "rwl.dll" Alias "Win386LibEntry" (ByVal MatSrc As Long, ByVal MatDest As Long, ByVal ID As Integer) As Long
  42. Declare Function iRwCopyMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal MatrixSrc As Long, ByVal MatrixDest As Long, ByVal ID As Integer) As Long
  43. Declare Function iRwCreateCamera Lib "rwl.dll" Alias "Win386LibEntry" (ByVal MaxWid As Long, ByVal MaxHght As Long, ByVal Image As Long, ByVal ID As Integer) As Long
  44. Declare Function iRwCreateClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal VCount As Long, ByVal PCount As Long, ByVal ID As Integer) As Long
  45. Declare Function iRwCreateDecal Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  46. Declare Function iRwCreateLight Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Kind As Long, ByVal RlX As Single, ByVal RlY As Single, ByVal RlZ As Single, ByVal RlLum As Single, ByVal ID As Integer) As Long
  47. Declare Function iRwCreateMaterial Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  48. Declare Function iRwCreateMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  49. Declare Function iRwCreateRaster Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Wid As Long, ByVal Hght As Long, ByVal ID As Integer) As Long
  50. Declare Function iRwCreateScene Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  51. Declare Function iRwCreateSpline Lib "rwl.dll" Alias "Win386LibEntry" (ByVal NPoints As Long, ByVal Kind As Long, Pts As RwV3d, ByVal ID As Integer) As Long
  52. Declare Function iRwCreateSprite Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  53. Declare Function iRwCreateTexture Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  54. Declare Function iRwCrossProduct Lib "rwl.dll" Alias "Win386LibEntry" (A As RwV3d, b As RwV3d, C As RwV3d, ByVal ID As Integer) As Long
  55. Declare Function iRwCubicTexturizeClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  56. Declare Function iRwCurrentMaterial Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  57. Declare Function iRwCurrentMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  58. Declare Function iRwCylinder Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlHght As Single, ByVal RlMinRad As Single, ByVal RlMaxRad As Single, ByVal Sides As Long, ByVal ID As Integer) As Integer
  59. Declare Function iRwDamageCameraViewport Lib "rwl.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
  60. Declare Function iRwDefaultScene Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  61. Declare Function iRwDestroyCamera Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Integer
  62. Declare Function iRwDestroyClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Integer
  63. Declare Function iRwDestroyLight Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Integer
  64. Declare Function iRwDestroyMaterial Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Integer
  65. Declare Function iRwDestroyMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal ID As Integer) As Integer
  66. Declare Function iRwDestroyPolygon Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Integer
  67. Declare Function iRwDestroyRaster Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Integer
  68. Declare Function iRwDestroyScene Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal ID As Integer) As Integer
  69. Declare Function iRwDestroySpline Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal ID As Integer) As Integer
  70. Declare Function iRwDestroyTexture Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Integer
  71. Declare Function iRwDeviceControl Lib "rwl.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
  72. Declare Function iRwDisc Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlHght As Single, ByVal RlRad As Single, ByVal Sides As Long, ByVal ID As Integer) As Integer
  73. Declare Function iRwDotProduct Lib "rwl.dll" Alias "Win386LibEntry" (A As RwV3d, b As RwV3d, ByVal ID As Integer) As Single
  74. Declare Function iRwDuplicateCamera Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal Image As Long, ByVal ID As Integer) As Long
  75. Declare Function iRwDuplicateClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  76. Declare Function iRwDuplicateLight Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  77. Declare Function iRwDuplicateMaterial Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  78. Declare Function iRwDuplicateMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal ID As Integer) As Long
  79. Declare Function iRwDuplicateRaster Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  80. Declare Function iRwDuplicateSpline Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal ID As Integer) As Long
  81. Declare Function iRwEndCameraUpdate Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  82. Declare Function iRwEnvMapClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  83. Declare Function iRwFindNamedTexture Lib "rwl.dll" Alias "Win386LibEntry" (ByVal TexName As String, ByVal ID As Integer) As Long
  84. Declare Function iRwFindTaggedClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Tag As Long, ByVal ID As Integer) As Long
  85. Declare Function iRwFindTaggedPolygon Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Tag As Long, ByVal ID As Integer) As Long
  86. Declare Function iRwGetCameraBackColor Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, color As RwRGBColor, ByVal ID As Integer) As Long
  87. Declare Function iRwGetCameraBackdrop Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  88. Declare Function iRwGetCameraBackdropOffset Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, x As Long, y As Long, ByVal ID As Integer) As Long
  89. Declare Function iRwGetCameraBackdropViewportRect Lib "rwl.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
  90. Declare Function iRwGetCameraData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  91. Declare Function iRwGetCameraFarClipping Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Single
  92. Declare Function iRwGetCameraImage Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  93. Declare Function iRwGetCameraLookAt Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, LookAt As RwV3d, ByVal ID As Integer) As Long
  94. Declare Function iRwGetCameraLookRight Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, LookRight As RwV3d, ByVal ID As Integer) As Long
  95. Declare Function iRwGetCameraLookUp Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, LookUp As RwV3d, ByVal ID As Integer) As Long
  96. Declare Function iRwGetCameraLTM Lib "rwl.dll" Alias "Win386Libentry" (ByVal Cam As Long, ByVal Mat As Long, ByVal ID As Integer) As Long
  97. Declare Function iRwGetCameraNearClipping Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Single
  98. Declare Function iRwGetCameraPosition Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, Pos As RwV3d, ByVal ID As Integer) As Long
  99. Declare Function iRwGetCameraProjection Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  100. Declare Function iRwGetCameraViewOffset Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, Offset As RwV3d, ByVal ID As Integer) As Long
  101. Declare Function iRwGetCameraViewport Lib "rwl.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
  102. Declare Function iRwGetCameraViewportRaster Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal Rast As Long, ByVal ID As Integer) As Long
  103. Declare Function iRwGetCameraViewwindow Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, RlWid As Single, RlHght As Single, ByVal ID As Integer) As Long
  104. Declare Function iRwGetClumpBBox Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, BLLeft As RwV3d, FURight As RwV3d, ByVal ID As Integer) As Long
  105. Declare Function iRwGetClumpData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  106. Declare Function iRwGetClumpAxisAlignment Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  107. Declare Function iRwGetClumpHints Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  108. Declare Function iRwGetClumpJointMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Matx As Long, ByVal ID As Integer) As Long
  109. Declare Function iRwGetClumpLocalBBox Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clump As Long, BLL As RwV3d, FUR As RwV3d, ByVal ID As Integer) As Long
  110. Declare Function iRwGetClumpLTM Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Matx As Long, ByVal ID As Integer) As Long
  111. Declare Function iRwGetClumpMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Matx As Long, ByVal ID As Integer) As Long
  112. Declare Function iRwGetClumpNumChildren Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  113. Declare Function iRwGetClumpNumPolygons Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  114. Declare Function iRwGetClumpNumVertices Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  115. Declare Function iRwGetClumpOrigin Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, Origin As RwV3d, ByVal ID As Integer) As Long
  116. Declare Function iRwGetClumpOwner Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  117. Declare Function iRwGetClumpParent Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  118. Declare Function iRwGetClumpRoot Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  119. Declare Function iRwGetClumpState Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  120. Declare Function iRwGetClumpTag Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  121. Declare Function iRwGetClumpVertex Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Index As Long, vertex As RwV3d, ByVal ID As Integer) As Long
  122. Declare Function iRwGetClumpVertexNormal Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Index As Long, Normal As RwV3d, ByVal ID As Integer) As Long
  123. Declare Function iRwGetClumpVertexUV Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Index As Long, UV As RwUV, ByVal ID As Integer) As Long
  124. Declare Function iRwGetClumpVertexViewportPosition Lib "rwl.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
  125. Declare Function iRwGetClumpViewportRect Lib "rwl.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
  126. Declare Function iRwGetDebugAssertionState Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  127. Declare Function iRwGetDebugMessageState Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  128. Declare Function iRwGetDebugScriptState Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  129. Declare Function iRwGetDebugSeverity Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  130. Declare Function iRwGetDebugTraceState Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  131. Declare Function iRwGetDeviceInfo Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Info As Long, ByVal value As String, ByVal Size As Long, ByVal ID As Integer) As Integer
  132. Declare Function iRwGetError Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  133. Declare Function iRwGetFirstChildClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  134. Declare Function iRwGetInternalError Lib "rwwrxp.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  135. Declare Function iRwGetLightBrightness Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Single
  136. Declare Function iRwGetLightColor Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, color As RwRGBColor, ByVal ID As Integer) As Long
  137. Declare Function iRwGetLightConeAngle Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Single
  138. Declare Function iRwGetLightData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  139. Declare Function iRwGetLightLTM Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal Mat As Long, ByVal ID As Integer) As Long
  140. Declare Function iRwGetLightOwner Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  141. Declare Function iRwGetLightPosition Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, Pos As RwV3d, ByVal ID As Integer) As Long
  142. Declare Function iRwGetLightState Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  143. Declare Function iRwGetLightType Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  144. Declare Function iRwGetLightVector Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, Vector As RwV3d, ByVal ID As Integer) As Long
  145. Declare Function iRwGetMaterialAmbient Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Single
  146. Declare Function iRwGetMaterialColor Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, color As RwRGBColor, ByVal ID As Integer) As Long
  147. Declare Function iRwGetMaterialDiffuse Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Single
  148. Declare Function iRwGetMaterialGeometrySampling Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  149. Declare Function iRwGetMaterialLightSampling Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  150. Declare Function iRwGetMaterialOpacity Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Single
  151. Declare Function iRwGetMaterialSpecular Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Single
  152. Declare Function iRwGetMaterialTexture Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  153. Declare Function iRwGetMaterialTextureModes Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal ID As Integer) As Long
  154. Declare Function iRwGetMatrixElement Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal i As Long, ByVal J As Long, ByVal ID As Integer) As Single
  155. Declare Function iRwGetMatrixElements Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, FArray As Single, ByVal ID As Integer) As Long
  156. Declare Function iRwGetNamedTexture Lib "rwl.dll" Alias "Win386LibEntry" (ByVal TexName As String, ByVal ID As Integer) As Long
  157. Declare Function iRwGetNextClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  158. Declare Function iRwGetNumNamedTextures Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  159. Declare Function iRwGetPaletteEntries Lib "rwl.dll" Alias "Win386LibEntry" (ByVal start As Long, ByVal Length As Long, palette As RwPaletteEntry, ByVal ID As Integer) As Long
  160. Declare Function iRwGetPolygonAmbient Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Single
  161. Declare Function iRwGetPolygonCenter Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, Center As RwV3d, ByVal ID As Integer) As Long
  162. Declare Function iRwGetPolygonColor Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, color As RwRGBColor, ByVal ID As Integer) As Long
  163. Declare Function iRwGetPolygonData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  164. Declare Function iRwGetPolygonDiffuse Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Single
  165. Declare Function iRwGetPolygonGeometrySampling Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  166. Declare Function iRwGetPolygonLightSampling Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  167. Declare Function iRwGetPolygonMaterial Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  168. Declare Function iRwGetPolygonNormal Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, Normal As RwV3d, ByVal ID As Integer) As Long
  169. Declare Function iRwGetPolygonNumSides Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  170. Declare Function iRwGetPolygonOpacity Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Single
  171. Declare Function iRwGetPolygonOwner Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  172. Declare Function iRwGetPolygonSpecular Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Single
  173. Declare Function iRwGetPolygonTag Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  174. Declare Function iRwGetPolygonTexture Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  175. Declare Function iRwGetPolygonTextureModes Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  176. Declare Function iRwGetPolygonUV Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, UVS As RwUV, ByVal ID As Integer) As Long
  177. Declare Function iRwGetPolygonVertices Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, VArray As Long, ByVal ID As Integer) As Long
  178. Declare Function iRwGetRasterData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  179. Declare Function iRwGetRasterDepth Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  180. Declare Function iRwGetRasterHeight Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  181. Declare Function iRwGetRasterPixels Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  182. Declare Function iRwGetRasterStride Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  183. Declare Function iRwGetRasterWidth Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal ID As Integer) As Long
  184. Declare Function iRwGetSceneData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal ID As Integer) As Long
  185. Declare Function iRwGetSceneNumClumps Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal ID As Integer) As Long
  186. Declare Function iRwGetSceneNumLights Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal ID As Integer) As Long
  187. Declare Function iRwGetShapePath Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Path As String, ByVal ID As Integer) As Long
  188. Declare Function iRwGetSplineData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal ID As Integer) As Long
  189. Declare Function iRwGetSplineNumPoints Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal ID As Integer) As Long
  190. Declare Function iRwGetSplinePoint Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal Index As Long, Pnt As RwV3d, ByVal ID As Integer) As Long
  191. Declare Function iRwGetSystemInfo Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Kind As Long, ByVal Info As String, ByVal Size As Long, ByVal ID As Integer) As Integer
  192. Declare Function iRwGetTextureData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  193. Declare Function iRwGetTextureDictSearchMode Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  194. Declare Function iRwGetTextureDithering Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  195. Declare Function iRwGetTextureFrame Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  196. Declare Function iRwGetTextureFrameStep Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  197. Declare Function iRwGetTextureGammaCorrection Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  198. Declare Function iRwGetTextureName Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal Buf As String, ByVal Length As Long, ByVal ID As Integer) As Long
  199. Declare Function iRwGetTextureNumFrames Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  200. Declare Function iRwGetTextureRaster Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  201. Declare Function iRwHemisphere Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlRad As Single, ByVal Sides As Long, ByVal ID As Integer) As Integer
  202. Declare Function iRwIdentityCTM Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  203. Declare Function iRwIdentityJointTM Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  204. Declare Function iRwIdentityMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal ID As Integer) As Long
  205. Declare Function iRwInclude Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Integer
  206. Declare Function iRwIncludeGeometry Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Integer
  207. Declare Function iRwInvalidateCameraViewport Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  208. Declare Function iRwInvertMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal srcMatx As Long, ByVal DstMatx As Long, ByVal ID As Integer) As Long
  209. Declare Function iRwJointTransformBegin Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  210. Declare Function iRwJointTransformEnd Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  211. Declare Function iRwMaskTexture Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal Rast As Long, ByVal ID As Integer) As Long
  212. Declare Function iRwMaterialBegin Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  213. Declare Function iRwMaterialEnd Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  214. Declare Function iRwModelBegin Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  215. Declare Function iRwModelEnd Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  216. Declare Function iRwMultiplyMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal MatrixA As Long, ByVal MatrixB As Long, ByVal MatrixC As Long, ByVal ID As Integer) As Long
  217. Declare Function iRwNormalize Lib "rwl.dll" Alias "Win386LibEntry" (Vector As RwV3d, ByVal ID As Integer) As Long
  218. Declare Function iRwNormalizeClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  219. Declare Function iRwOpen Lib "rwl.dll" Alias "Win386LibEntry" (ByVal DevName As String, ByVal Param As Long, ByVal ID As Integer) As Integer
  220. Declare Function iRwOpenDebugStream Lib "rwl.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal ID As Integer) As Integer
  221. Declare Function iRwOpenExt Lib "rwl.dll" Alias "Win386LibEntry" (ByVal DevName As String, ByVal Param As Long, ByVal NumArgs As Long, Args As RwOpenArgument, ByVal ID As Integer) As Integer
  222. Declare Function iRwOrthoNormalizeMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal srcMatx As Long, ByVal DstMatx As Long, ByVal ID As Integer) As Long
  223. Declare Function iRwPanCamera Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlAngle As Single, ByVal ID As Integer) As Long
  224. Declare Function iRwPickClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal VPX As Long, ByVal VPY As Long, ByVal Cam As Long, Pick As RwPickRecord, ByVal ID As Integer) As Long
  225. Declare Function iRwPickScene Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal x As Long, ByVal y As Long, ByVal Cam As Long, Pick As RwPickRecord, ByVal ID As Integer) As Long
  226. Declare Function iRwPointCamera Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Single, ByVal RlY As Single, ByVal RlZ As Single, ByVal ID As Integer) As Long
  227. Declare Function iRwPolygon Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Sides As Long, VArray As Long, ByVal ID As Integer) As Integer
  228. Declare Function iRwPolygonExt Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Sides As Long, VArray As Long, ByVal Tag As Long, ByVal ID As Integer) As Integer
  229. Declare Function iRwPopCurrentMaterial Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  230. Declare Function iRwPopCurrentMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  231. Declare Function iRwPopScratchMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  232. Declare Function iRwProtoBegin Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Proto As String, ByVal ID As Integer) As Integer
  233. Declare Function iRwProtoEnd Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  234. Declare Function iRwProtoInstance Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Proto As String, ByVal ID As Integer) As Integer
  235. Declare Function iRwProtoInstanceGeometry Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Proto As String, ByVal ID As Integer) As Long
  236. Declare Function iRwPushCurrentMaterial Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  237. Declare Function iRwPushCurrentMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  238. Declare Function iRwPushScratchMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  239. Declare Function iRwQuad Lib "rwl.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
  240. Declare Function iRwQuadExt Lib "rwl.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
  241. Declare Function iRwQueryRotateMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, Axis As RwV3d, RlDegrees As Single, ByVal ID As Integer) As Long
  242. Declare Function iRwRandom Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  243. Declare Function iRwReadMaskRaster Lib "rwl.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal ID As Integer) As Long
  244. Declare Function iRwReadNamedTexture Lib "rwl.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal ID As Integer) As Long
  245. Declare Function iRwReadRaster Lib "rwl.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal options As Long, ByVal ID As Integer) As Long
  246. Declare Function iRwReadShape Lib "rwl.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal ID As Integer) As Long
  247. Declare Function iRwReadTexture Lib "rwl.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal ID As Integer) As Long
  248. Declare Function iRwReleaseRasterPixels Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Raster As Long, ByVal pixels As Long, ByVal ID As Integer) As Long
  249. Declare Function iRwRemoveChildFromClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  250. Declare Function iRwRemoveClumpFromScene Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  251. Declare Function iRwRemoveHint Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Hint As Long, ByVal ID As Integer) As Integer
  252. Declare Function iRwRemoveHintFromClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Hint As Long, ByVal ID As Integer) As Long
  253. Declare Function iRwRemoveLightFromScene Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal ID As Integer) As Long
  254. Declare Function iRwRemoveTextureModeFromMaterial Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal Mode As Long, ByVal ID As Integer) As Long
  255. Declare Function iRwRemoveTextureModeFromPolygon Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal Mode As Long, ByVal ID As Integer) As Long
  256. Declare Function iRwRemoveTextureModeFromSurface Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mode As Long, ByVal ID As Integer) As Integer
  257. Declare Function iRwRenderClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  258. Declare Function iRwRenderScene Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal ID As Integer) As Long
  259. Declare Function iRwResetCamera Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal ID As Integer) As Long
  260. Declare Function iRwReversePolygonFace Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal ID As Integer) As Long
  261. Declare Function iRwRevolveCamera Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlT As Single, ByVal ID As Integer) As Long
  262. Declare Function iRwRotateCTM Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlAX As Single, ByVal RlAY As Single, ByVal RlAZ As Single, ByVal RlT As Single, ByVal ID As Integer) As Integer
  263. Declare Function iRwRotateJointTM Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlAX As Single, ByVal RlAY As Single, ByVal RlAZ As Single, ByVal RlT As Single, ByVal ID As Integer) As Integer
  264. Declare Function iRwRotateMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal RlVX As Single, ByVal RlVY As Single, ByVal RlVZ As Single, ByVal RlT As Single, ByVal Op As Long, ByVal ID As Integer) As Long
  265. Declare Function iRwRotateMatrixCos Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal RlVX As Single, ByVal RlVY As Single, ByVal RlVZ As Single, ByVal RlCT As Single, ByVal RlDir As Single, ByVal Op As Long, ByVal ID As Integer) As Long
  266. Declare Function iRwScaleCTM Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlSX As Single, ByVal RlSY As Single, ByVal RlSZ As Single, ByVal ID As Integer) As Integer
  267. Declare Function iRwScaleMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal RlSX As Single, ByVal RlSY As Single, ByVal RlSZ As Single, ByVal Op As Long, ByVal ID As Integer) As Long
  268. Declare Function iRwScaleVector Lib "rwl.dll" Alias "Win386LibEntry" (Vector As RwV3d, ByVal RlScale As Single, Result As RwV3d, ByVal ID As Integer) As Long
  269. Declare Function iRwScratchMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Long
  270. Declare Function iRwSetCameraBackColor Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlRed As Single, ByVal RlGreen As Single, ByVal RlBlue As Single, ByVal ID As Integer) As Long
  271. Declare Function iRwSetCameraBackColorStruct Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, color As RwRGBColor, ByVal ID As Integer) As Long
  272. Declare Function iRwSetCameraBackdrop Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal Rast As Long, ByVal ID As Integer) As Long
  273. Declare Function iRwSetCameraBackdropOffset Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal x As Long, ByVal y As Long, ByVal ID As Integer) As Long
  274. Declare Function iRwSetCameraBackdropViewportRect Lib "rwl.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
  275. Declare Function iRwSetCameraData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal CamData As Long, ByVal ID As Integer) As Long
  276. Declare Function iRwSetCameraLookAt Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Single, ByVal RlY As Single, ByVal RlZ As Single, ByVal ID As Integer) As Long
  277. Declare Function iRwSetCameraLookUp Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Single, ByVal RlY As Single, ByVal RlZ As Single, ByVal ID As Integer) As Long
  278. Declare Function iRwSetCameraNearClipping Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlNear As Single, ByVal ID As Integer) As Long
  279. Declare Function iRwSetCameraPosition Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Single, ByVal RlY As Single, ByVal RlZ As Single, ByVal ID As Integer) As Long
  280. Declare Function iRwSetCameraProjection Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal Kind As Long, ByVal ID As Integer) As Long
  281. Declare Function iRwSetCameraViewOffset Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Single, ByVal RlY As Single, ByVal ID As Integer) As Long
  282. Declare Function iRwSetCameraViewport Lib "rwl.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
  283. Declare Function iRwSetCameraViewwindow Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlWid As Single, ByVal RlHght As Single, ByVal ID As Integer) As Long
  284. Declare Function iRwSetClumpData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ClumpData As Long, ByVal ID As Integer) As Long
  285. Declare Function iRwSetClumpAxisAlignment Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Align As Long, ByVal ID As Integer) As Long
  286. Declare Function iRwSetClumpHints Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Hints As Long, ByVal ID As Integer) As Long
  287. Declare Function iRwSetClumpState Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal State As Long, ByVal ID As Integer) As Long
  288. Declare Function iRwSetClumpTag Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Tag As Long, ByVal ID As Integer) As Long
  289. Declare Function iRwSetClumpVertex Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Index As Long, vertex As RwV3d, ByVal ID As Integer) As Long
  290. Declare Function iRwSetClumpVertexNormal Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal vindex As Long, Normal As RwV3d, ByVal ID As Integer) As Long
  291. Declare Function iRwSetClumpVertexUV Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Index As Long, ByVal RlU As Single, ByVal RlV As Single, ByVal ID As Integer) As Long
  292. Declare Function iRwSetClumpVertices Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, Index As Long, vertex As RwV3d, ByVal N As Long, ByVal ID As Integer) As Long
  293. Declare Sub iRwSetDebugAssertionState Lib "rwl.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer)
  294. Declare Sub iRwSetDebugMessageState Lib "rwl.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer)
  295. Declare Sub iRwSetDebugOutputState Lib "rwl.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer)
  296. Declare Sub iRwSetDebugScriptState Lib "rwl.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer)
  297. Declare Sub iRwSetDebugSeverity Lib "rwl.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer)
  298. Declare Sub iRwSetDebugTraceState Lib "rwl.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer)
  299. Declare Function iRwSetAxisAlignment Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Align As Long, ByVal ID As Integer) As Integer
  300. Declare Function iRwSetHints Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Hints As Long, ByVal ID As Integer) As Integer
  301. Declare Function iRwSetLightBrightness Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal RlLum As Single, ByVal ID As Integer) As Long
  302. Declare Function iRwSetLightColor Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal r As Single, ByVal g As Single, ByVal b As Single, ByVal ID As Integer) As Long
  303. Declare Function iRwSetLightColorStruct Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, color As RwRGBColor, ByVal ID As Integer) As Long
  304. Declare Function iRwSetLightConeAngle Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal RlT As Single, ByVal ID As Integer) As Long
  305. Declare Function iRwSetLightData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal LightData As Long, ByVal ID As Integer) As Long
  306. Declare Function iRwSetLightPosition Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal RlX As Single, ByVal RlY As Single, ByVal RlZ As Single, ByVal ID As Integer) As Long
  307. Declare Function iRwSetLightState Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal State As Long, ByVal ID As Integer) As Long
  308. Declare Function iRwSetLightVector Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal RlX As Single, ByVal RlY As Single, ByVal RlZ As Single, ByVal ID As Integer) As Long
  309. Declare Function iRwSetMaterialAmbient Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal RlKA As Single, ByVal ID As Integer) As Long
  310. Declare Function iRwSetMaterialColor Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal RlRed As Single, ByVal RlGreen As Single, ByVal RlBlue As Single, ByVal ID As Integer) As Long
  311. Declare Function iRwSetMaterialColorStruct Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, color As RwRGBColor, ByVal ID As Integer) As Long
  312. Declare Function iRwSetMaterialDiffuse Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal RlKD As Single, ByVal ID As Integer) As Long
  313. Declare Function iRwSetMaterialGeometrySampling Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal samp As Long, ByVal ID As Integer) As Long
  314. Declare Function iRwSetMaterialLightSampling Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal samp As Long, ByVal ID As Integer) As Long
  315. Declare Function iRwSetMaterialOpacity Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal RlOpacity As Single, ByVal ID As Integer) As Long
  316. Declare Function iRwSetMaterialSpecular Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal RlKS As Single, ByVal ID As Integer) As Long
  317. Declare Function iRwSetMaterialSurface Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal RlKA As Single, ByVal RlKD As Single, ByVal RlKS As Single, ByVal ID As Integer) As Long
  318. Declare Function iRwSetMaterialTexture Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal Tex As Long, ByVal ID As Integer) As Long
  319. Declare Function iRwSetMaterialTextureModes Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mat As Long, ByVal Modes As Long, ByVal ID As Integer) As Long
  320. Declare Function iRwSetMatrixElement Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal i As Long, ByVal J As Long, ByVal RlVal As Single, ByVal ID As Integer) As Long
  321. Declare Function iRwSetMatrixElements Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, RlFArray As Single, ByVal ID As Integer) As Long
  322. Declare Function iRwSetPaletteEntries Lib "rwl.dll" Alias "Win386LibEntry" (ByVal start As Long, ByVal Length As Long, palette As RwPaletteEntry, ByVal options As Long, ByVal ID As Integer) As Long
  323. Declare Function iRwSetPolygonAmbient Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal RlKA As Single, ByVal ID As Integer) As Long
  324. Declare Function iRwSetPolygonColor Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal RlRed As Single, ByVal RlGreen As Single, ByVal RlBlue As Single, ByVal ID As Integer) As Long
  325. Declare Function iRwSetPolygonColorStruct Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, color As RwRGBColor, ByVal ID As Integer) As Long
  326. Declare Function iRwSetPolygonData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal PolygonData As Long, ByVal ID As Integer) As Long
  327. Declare Function iRwSetPolygonDiffuse Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal RlKD As Single, ByVal ID As Integer) As Long
  328. Declare Function iRwSetPolygonGeometrySampling Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal samp As Long, ByVal ID As Integer) As Long
  329. Declare Function iRwSetPolygonLightSampling Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal samp As Long, ByVal ID As Integer) As Long
  330. Declare Function iRwSetPolygonMaterial Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal Mat As Long, ByVal ID As Integer) As Long
  331. Declare Function iRwSetPolygonOpacity Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal RlOpacity As Single, ByVal ID As Integer) As Long
  332. Declare Function iRwSetPolygonSpecular Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal RlKS As Single, ByVal ID As Integer) As Long
  333. Declare Function iRwSetPolygonSurface Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal RlKA As Single, ByVal RlKD As Single, ByVal RlKS As Single, ByVal ID As Integer) As Long
  334. Declare Function iRwSetPolygonTag Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal Tag As Long, ByVal ID As Integer) As Long
  335. Declare Function iRwSetPolygonTexture Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal Texture As Long, ByVal ID As Integer) As Long
  336. Declare Function iRwSetPolygonTextureModes Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, ByVal Modes As Long, ByVal ID As Integer) As Long
  337. Declare Function iRwSetPolygonUV Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Poly As Long, UVS As RwUV, ByVal ID As Integer) As Long
  338. Declare Function iRwSetRasterData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Rast As Long, ByVal RasterData As Long, ByVal ID As Integer) As Long
  339. Declare Function iRwSetSceneData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Scn As Long, ByVal SceneData As Long, ByVal ID As Integer) As Long
  340. Declare Function iRwSetShapePath Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Path As String, ByVal Op As Long, ByVal ID As Integer) As Integer
  341. Declare Function iRwSetSplineData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal SplineData As Long, ByVal ID As Integer) As Long
  342. Declare Function iRwSetSplinePoint Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal Index As Long, Pnt As RwV3d, ByVal ID As Integer) As Long
  343. Declare Function iRwSetSurface Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlKA As Single, ByVal RlKD As Single, ByVal RlKS As Single, ByVal ID As Integer) As Integer
  344. Declare Function iRwSetSurfaceAmbient Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlKA As Single, ByVal ID As Integer) As Integer
  345. Declare Function iRwSetSurfaceColor Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlRed As Single, ByVal RlGreen As Single, ByVal RlBlue As Single, ByVal ID As Integer) As Integer
  346. Declare Function iRwSetSurfaceDiffuse Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlKD As Single, ByVal ID As Integer) As Integer
  347. Declare Function iRwSetSurfaceGeometrySampling Lib "rwl.dll" Alias "Win386LibEntry" (ByVal samp As Long, ByVal ID As Integer) As Integer
  348. Declare Function iRwSetSurfaceLightSampling Lib "rwl.dll" Alias "Win386LibEntry" (ByVal samp As Long, ByVal ID As Integer) As Integer
  349. Declare Function iRwSetSurfaceOpacity Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlOpacity As Single, ByVal ID As Integer) As Integer
  350. Declare Function iRwSetSurfaceSpecular Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlKS As Single, ByVal ID As Integer) As Integer
  351. Declare Function iRwSetSurfaceTexture Lib "rwl.dll" Alias "Win386LibEntry" (TextName As Any, ByVal ID As Integer) As Integer
  352. Declare Function iRwSetSurfaceTextureExt Lib "rwl.dll" Alias "Win386LibEntry" (ByVal TextName As String, ByVal MaskName As String, ByVal ID As Integer) As Integer
  353. Declare Function iRwSetSurfaceTextureModes Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Modes As Long, ByVal ID As Integer) As Integer
  354. Declare Function iRwSetTag Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tag As Long, ByVal ID As Integer) As Integer
  355. Declare Function iRwSetTextureData Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal TextureData As Long, ByVal ID As Integer) As Long
  356. Declare Function iRwSetTextureDictSearchMode Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mode As Long, ByVal ID As Integer) As Integer
  357. Declare Function iRwSetTextureDithering Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Mode As Long, ByVal ID As Integer) As Integer
  358. Declare Function iRwSetTextureFrame Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal Index As Long, ByVal ID As Integer) As Long
  359. Declare Function iRwSetTextureFrameStep Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal value As Long, ByVal ID As Integer) As Long
  360. Declare Function iRwSetTextureGammaCorrection Lib "rwl.dll" Alias "Win386LibEntry" (ByVal State As Long, ByVal ID As Integer) As Integer
  361. Declare Function iRwSetTextureRaster Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal Rast As Long, ByVal ID As Integer) As Long
  362. Declare Sub iRwSetUserError Lib "rwwrxp.dll" Alias "Win386LibEntry" (ByVal ID As Integer)
  363. Declare Function iRwShowCameraImage Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal hdc As Long, ByVal ID As Integer) As Long
  364. Declare Function iRwSphere Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlRad As Single, ByVal Sides As Long, ByVal ID As Integer) As Integer
  365. Declare Function iRwSphericalTexturizeClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal ID As Integer) As Long
  366. Declare Function iRwSplinePoint Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal Path As Long, ByVal RlWhere As Single, Pt As RwV3d, Vec As RwV3d, ByVal ID As Integer) As Long
  367. Declare Function iRwSplineTransform Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Spln As Long, ByVal Path As Long, ByVal RlWhere As Single, Up As RwV3d, ByVal Matx As Long, ByVal ID As Integer) As Single
  368. Declare Sub iRwSRandom Lib "rwl.dll" Alias "Win386LibEntry" (ByVal seed As Long, ByVal ID As Integer)
  369. Declare Function iRwSubtractVector Lib "rwl.dll" Alias "Win386LibEntry" (A As RwV3d, b As RwV3d, C As RwV3d, ByVal ID As Integer) As Long
  370. Declare Function iRwTextureDictBegin Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  371. Declare Function iRwTextureDictEnd Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  372. Declare Function iRwTextureNextFrame Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Tex As Long, ByVal ID As Integer) As Long
  373. Declare Function iRwTiltCamera Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlT As Single, ByVal ID As Integer) As Long
  374. Declare Function iRwTransformBegin Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  375. Declare Function iRwTransformCTM Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal ID As Integer) As Integer
  376. Declare Function iRwTransformCamera Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal Matx As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  377. Declare Function iRwTransformCameraOrientation Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal Matx As Long, ByVal ID As Integer) As Long
  378. Declare Function iRwTransformClump Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Matx As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  379. Declare Function iRwTransformClumpJoint Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Clmp As Long, ByVal Matx As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  380. Declare Function iRwTransformEnd Lib "rwl.dll" Alias "Win386LibEntry" (ByVal ID As Integer) As Integer
  381. Declare Function iRwTransformJointTM Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal ID As Integer) As Integer
  382. Declare Function iRwTransformLight Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Lite As Long, ByVal Matx As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  383. Declare Function iRwTransformMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal DstMatx As Long, ByVal srcMatx As Long, ByVal Op As Long, ByVal ID As Integer) As Long
  384. Declare Function iRwTransformPoint Lib "rwl.dll" Alias "Win386LibEntry" (A As RwV3d, ByVal Matx As Long, ByVal ID As Integer) As Long
  385. Declare Function iRwTransformVector Lib "rwl.dll" Alias "Win386LibEntry" (A As RwV3d, ByVal Matx As Long, ByVal ID As Integer) As Long
  386. Declare Function iRwTranslateCTM Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlTX As Single, ByVal RlTY As Single, ByVal RlTZ As Single, ByVal ID As Integer) As Integer
  387. Declare Function iRwTranslateMatrix Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Matx As Long, ByVal RlTX As Single, ByVal RlTY As Single, ByVal RlTZ As Single, ByVal Op As Long, ByVal ID As Integer) As Long
  388. Declare Function iRwTriangle Lib "rwl.dll" Alias "Win386LibEntry" (ByVal V1 As Long, ByVal V2 As Long, ByVal V3 As Long, ByVal ID As Integer) As Integer
  389. Declare Function iRwTriangleExt Lib "rwl.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
  390. Declare Function iRwUndamageCameraViewport Lib "rwl.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
  391. Declare Function iRwVCMoveCamera Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Single, ByVal RlY As Single, ByVal RlZ As Single, ByVal ID As Integer) As Long
  392. Declare Function iRwVertex Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlX As Single, ByVal RlY As Single, ByVal RlZ As Single, ByVal ID As Integer) As Long
  393. Declare Function iRwVertexExt Lib "rwl.dll" Alias "Win386LibEntry" (ByVal RlX As Single, ByVal RlY As Single, ByVal RlZ As Single, UV As RwUV, Normal As Any, ByVal ID As Integer) As Long
  394. Declare Function iRwWCMoveCamera Lib "rwl.dll" Alias "Win386LibEntry" (ByVal Cam As Long, ByVal RlX As Single, ByVal RlY As Single, ByVal RlZ As Single, ByVal ID As Integer) As Long
  395. Declare Function iRwWriteShape Lib "rwl.dll" Alias "Win386LibEntry" (ByVal FileName As String, ByVal Clmp As Long, ByVal ID As Integer) As Integer
  396.  
  397. Function REAL2SINGLE (ByVal x As Single) As Single
  398.     REAL2SINGLE = x
  399. End Function
  400.  
  401. Function RwAddVector (A As RwV3d, b As RwV3d, Result As RwV3d) As Long
  402.     RwAddVector = iRwAddVector(A, b, Result, ID_RWADDVECTOR)
  403. End Function
  404.  
  405. Function RwClumpDistance (ByVal Clmp As Long, Pos As RwV3d) As Single
  406.     RwClumpDistance = REAL2SINGLE(iRwClumpDistance(Clmp, Pos, ID_RWCLUMPDISTANCE))
  407. End Function
  408.  
  409. Function RwCreateSpline (ByVal NPoints As Long, ByVal Kind As Long, Pts As RwV3d) As Long
  410.     RwCreateSpline = iRwCreateSpline(NPoints, Kind, Pts, ID_RWCREATESPLINE)
  411. End Function
  412.  
  413. Function RwCrossProduct (A As RwV3d, b As RwV3d, C As RwV3d) As Long
  414.     RwCrossProduct = iRwCrossProduct(A, b, C, ID_RWCROSSPRODUCT)
  415. End Function
  416.  
  417. Function RwDotProduct (A As RwV3d, b As RwV3d) As Single
  418.     RwDotProduct = REAL2SINGLE(iRwDotProduct(A, b, ID_RWDOTPRODUCT))
  419. End Function
  420.  
  421. Function RwGetCameraBackColor (ByVal Cam As Long, color As RwRGBColor) As Long
  422.     RwGetCameraBackColor = iRwGetCameraBackColor(Cam, color, ID_RWGETCAMERABACKCOLOR)
  423. End Function
  424.  
  425. Function RwGetCameraLookAt (ByVal Cam As Long, LookAt As RwV3d) As Long
  426.     RwGetCameraLookAt = iRwGetCameraLookAt(Cam, LookAt, ID_RWGETCAMERALOOKAT)
  427. End Function
  428.  
  429. Function RwGetCameraLookRight (ByVal Cam As Long, LookRight As RwV3d) As Long
  430.     RwGetCameraLookRight = iRwGetCameraLookRight(Cam, LookRight, ID_RWGETCAMERALOOKRIGHT)
  431. End Function
  432.  
  433. Function RwGetCameraLookUp (ByVal Cam As Long, LookUp As RwV3d) As Long
  434.     RwGetCameraLookUp = iRwGetCameraLookUp(Cam, LookUp, ID_RWGETCAMERALOOKUP)
  435. End Function
  436.  
  437. Function RwGetCameraPosition (ByVal Cam As Long, Pos As RwV3d) As Long
  438.     RwGetCameraPosition = iRwGetCameraPosition(Cam, Pos, ID_RWGETCAMERAPOSITION)
  439. End Function
  440.  
  441. Function RwGetCameraViewOffset (ByVal Cam As Long, Offset As RwV3d) As Long
  442.     RwGetCameraViewOffset = iRwGetCameraViewOffset(Cam, Offset, ID_RWGETCAMERAVIEWOFFSET)
  443. End Function
  444.  
  445. Function RwGetCameraViewwindow (ByVal Cam As Long, Wid As Single, Hght As Single) As Long
  446.     RwGetCameraViewwindow = iRwGetCameraViewwindow(Cam, Wid, Hght, ID_RWGETCAMERAVIEWWINDOW)
  447. End Function
  448.  
  449. Function RwGetClumpBBox (ByVal Clmp As Long, BLLeft As RwV3d, FURight As RwV3d) As Long
  450.     RwGetClumpBBox = iRwGetClumpBBox(Clmp, BLLeft, FURight, ID_RWGETCLUMPBBOX)
  451. End Function
  452.  
  453. Function RwGetClumpLocalBBox (ByVal Clump As Long, BLL As RwV3d, FUR As RwV3d) As Long
  454.     RwGetClumpLocalBBox = iRwGetClumpLocalBBox(Clump, BLL, FUR, ID_RWGETCLUMPLOCALBBOX)
  455. End Function
  456.  
  457. Function RwGetClumpOrigin (ByVal Clmp As Long, Origin As RwV3d) As Long
  458.     RwGetClumpOrigin = iRwGetClumpOrigin(Clmp, Origin, ID_RWGETCLUMPORIGIN)
  459. End Function
  460.  
  461. Function RwGetClumpVertex (ByVal Clmp As Long, ByVal Index As Long, vertex As RwV3d) As Long
  462.     RwGetClumpVertex = iRwGetClumpVertex(Clmp, Index, vertex, ID_RWGETCLUMPVERTEX)
  463. End Function
  464.  
  465. Function RwGetClumpVertexNormal (ByVal Clmp As Long, ByVal Index As Long, Normal As RwV3d) As Long
  466.     RwGetClumpVertexNormal = iRwGetClumpVertexNormal(Clmp, Index, Normal, ID_RWGETCLUMPVERTEXNORMAL)
  467. End Function
  468.  
  469. Function RwGetClumpVertexUV (ByVal Clmp As Long, ByVal Index As Long, UV As RwUV) As Long
  470.     RwGetClumpVertexUV = iRwGetClumpVertexUV(Clmp, Index, UV, ID_RWGETCLUMPVERTEXUV)
  471. End Function
  472.  
  473. Function RwGetLightColor (ByVal Lite As Long, color As RwRGBColor) As Long
  474.     RwGetLightColor = iRwGetLightColor(Lite, color, ID_RWGETLIGHTCOLOR)
  475. End Function
  476.  
  477. Function RwGetLightPosition (ByVal Lite As Long, Pos As RwV3d) As Long
  478.     RwGetLightPosition = iRwGetLightPosition(Lite, Pos, ID_RWGETLIGHTPOSITION)
  479. End Function
  480.  
  481. Function RwGetLightVector (ByVal Lite As Long, Vector As RwV3d) As Long
  482.     RwGetLightVector = iRwGetLightVector(Lite, Vector, ID_RWGETLIGHTVECTOR)
  483. End Function
  484.  
  485. Function RwGetMaterialColor (ByVal Mat As Long, color As RwRGBColor) As Long
  486.     RwGetMaterialColor = iRwGetMaterialColor(Mat, color, ID_RWGETMATERIALCOLOR)
  487. End Function
  488.  
  489. Function RwGetMatrixElements (ByVal Matx As Long, FArray As Single) As Long
  490.     RwGetMatrixElements = iRwGetMatrixElements(Matx, FArray, ID_RWGETMATRIXELEMENTS)
  491. End Function
  492.  
  493. Function RwGetPolygonCenter (ByVal Poly As Long, Center As RwV3d) As Long
  494.     RwGetPolygonCenter = iRwGetPolygonCenter(Poly, Center, ID_RWGETPOLYGONCENTER)
  495. End Function
  496.  
  497. Function RwGetPolygonColor (ByVal Poly As Long, color As RwRGBColor) As Long
  498.     RwGetPolygonColor = iRwGetPolygonColor(Poly, color, ID_RWGETPOLYGONCOLOR)
  499. End Function
  500.  
  501. Function RwGetPolygonNormal (ByVal Poly As Long, Normal As RwV3d) As Long
  502.     RwGetPolygonNormal = iRwGetPolygonNormal(Poly, Normal, ID_RWGETPOLYGONNORMAL)
  503. End Function
  504.  
  505. Function RwGetPolygonUV (ByVal Poly As Long, UVS As RwUV) As Long
  506.     RwGetPolygonUV = iRwGetPolygonUV(Poly, UVS, ID_RWGETPOLYGONUV)
  507. End Function
  508.  
  509. Function RwGetSplinePoint (ByVal Spln As Long, ByVal Index As Long, Pnt As RwV3d) As Long
  510.     RwGetSplinePoint = iRwGetSplinePoint(Spln, Index, Pnt, ID_RWGETSPLINEPOINT)
  511. End Function
  512.  
  513. Function RwNormalize (Vector As RwV3d) As Long
  514.     RwNormalize = iRwNormalize(Vector, ID_RWNORMALIZE)
  515. End Function
  516.  
  517. Function RwPickClump (ByVal Clmp As Long, ByVal VPX As Long, ByVal VPY As Long, ByVal Cam As Long, Pick As RwPickRecord) As Long
  518.     RwPickClump = iRwPickClump(Clmp, VPX, VPY, Cam, Pick, ID_RWPICKCLUMP)
  519. End Function
  520.  
  521. Function RwPickScene (ByVal Scn As Long, ByVal x As Long, ByVal y As Long, ByVal Cam As Long, Pick As RwPickRecord) As Long
  522.     RwPickScene = iRwPickScene(Scn, x, y, Cam, Pick, ID_RWPICKSCENE)
  523. End Function
  524.  
  525. Function RwQueryRotateMatrix (ByVal Matx As Long, Axis As RwV3d, Degrees As Single) As Long
  526.     RwQueryRotateMatrix = iRwQueryRotateMatrix(Matx, Axis, Degrees, ID_RWQUERYROTATEMATRIX)
  527. End Function
  528.  
  529. Function RwScaleVector (Vector As RwV3d, ByVal RlScale As Variant, Result As RwV3d) As Long
  530.     RwScaleVector = iRwScaleVector(Vector, VAR2REAL(RlScale), Result, ID_RWSCALEVECTOR)
  531. End Function
  532.  
  533. Function RwSetCameraBackColorStruct (ByVal Cam As Long, color As RwRGBColor) As Long
  534.     RwSetCameraBackColorStruct = iRwSetCameraBackColorStruct(Cam, color, ID_RWSETCAMERABACKCOLORSTRUCT)
  535. End Function
  536.  
  537. Function RwSetClumpVertex (ByVal Clmp As Long, ByVal Index As Long, vertex As RwV3d) As Long
  538.     RwSetClumpVertex = iRwSetClumpVertex(Clmp, Index, vertex, ID_RWSETCLUMPVERTEX)
  539. End Function
  540.  
  541. Function RwSetClumpVertexNormal (ByVal Clmp As Long, ByVal vindex As Long, Normal As RwV3d) As Long
  542.     RwSetClumpVertexNormal = iRwSetClumpVertexNormal(Clmp, vindex, Normal, ID_RWSETCLUMPVERTEXNORMAL)
  543. End Function
  544.  
  545. Function RwSetClumpVertices (ByVal Clmp As Long, Index As Long, vertex As RwV3d, ByVal N As Long) As Long
  546.     RwSetClumpVertices = iRwSetClumpVertices(Clmp, Index, vertex, N, ID_RWSETCLUMPVERTICES)
  547. End Function
  548.  
  549. Function RwSetLightColorStruct (ByVal Lite As Long, color As RwRGBColor) As Long
  550.     RwSetLightColorStruct = iRwSetLightColorStruct(Lite, color, ID_RWSETLIGHTCOLORSTRUCT)
  551. End Function
  552.  
  553. Function RwSetMaterialColorStruct (ByVal Mat As Long, color As RwRGBColor) As Long
  554.     RwSetMaterialColorStruct = iRwSetMaterialColorStruct(Mat, color, ID_RWSETMATERIALCOLORSTRUCT)
  555. End Function
  556.  
  557. Function RwSetMatrixElements (ByVal Matx As Long, RlFArray As Single) As Long
  558.     RwSetMatrixElements = iRwSetMatrixElements(Matx, RlFArray, ID_RWSETMATRIXELEMENTS)
  559. End Function
  560.  
  561. Function RwSetPolygonColorStruct (ByVal Poly As Long, color As RwRGBColor) As Long
  562.     RwSetPolygonColorStruct = iRwSetPolygonColorStruct(Poly, color, ID_RWSETPOLYGONCOLORSTRUCT)
  563. End Function
  564.  
  565. Function RwSetPolygonUV (ByVal Poly As Long, UVS As RwUV) As Long
  566.     RwSetPolygonUV = iRwSetPolygonUV(Poly, UVS, ID_RWSETPOLYGONUV)
  567. End Function
  568.  
  569. Function RwSetSplinePoint (ByVal Spln As Long, ByVal Index As Long, Pnt As RwV3d) As Long
  570.     RwSetSplinePoint = iRwSetSplinePoint(Spln, Index, Pnt, ID_RWSETSPLINEPOINT)
  571. End Function
  572.  
  573. Function RwSplinePoint (ByVal Spln As Long, ByVal Path As Long, ByVal RlWhere As Variant, Pt As RwV3d, Vec As RwV3d) As Long
  574.     RwSplinePoint = iRwSplinePoint(Spln, Path, VAR2REAL(RlWhere), Pt, Vec, ID_RWSPLINEPOINT)
  575. End Function
  576.  
  577. Function RwSplineTransform (ByVal Spln As Long, ByVal Path As Long, ByVal RlWhere As Variant, Up As RwV3d, ByVal Matx As Long) As Single
  578.     RwSplineTransform = REAL2SINGLE(iRwSplineTransform(Spln, Path, VAR2REAL(RlWhere), Up, Matx, ID_RWSPLINETRANSFORM))
  579. End Function
  580.  
  581. Function RwSubtractVector (A As RwV3d, b As RwV3d, C As RwV3d) As Long
  582.     RwSubtractVector = iRwSubtractVector(A, b, C, ID_RWSUBTRACTVECTOR)
  583. End Function
  584.  
  585. Function RwTransformPoint (A As RwV3d, ByVal Matx As Long) As Long
  586.     RwTransformPoint = iRwTransformPoint(A, Matx, ID_RWTRANSFORMPOINT)
  587. End Function
  588.  
  589. Function RwTransformVector (A As RwV3d, ByVal Matx As Long) As Long
  590.     RwTransformVector = iRwTransformVector(A, Matx, ID_RWTRANSFORMVECTOR)
  591. End Function
  592.  
  593. Function RwVertexExt (ByVal RlX As Variant, ByVal RlY As Variant, ByVal RlZ As Variant, UV As RwUV, Normal As RwV3d) As Long
  594.     If Normal.x = 0 And Normal.y = 0 And Normal.z = 0 Then
  595.         RwVertexExt = iRwVertexExt(VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), UV, ByVal 0&, ID_RWVERTEXEXT)
  596.     Else
  597.         RwVertexExt = iRwVertexExt(VAR2REAL(RlX), VAR2REAL(RlY), VAR2REAL(RlZ), UV, Normal, ID_RWVERTEXEXT)
  598.     End If
  599. End Function
  600.  
  601. Function VAR2REAL (ByVal x As Variant) As Single
  602.     VAR2REAL = CSng(x)
  603. End Function
  604.  
  605.