Home

Add

Edit

Without Linenumbers

Code in Textfield

test.bas

  1. '############################################################################################################################################
    
  2. #INCLUDE "openb3d.bi"
    
  3. #DEFINE Render_OpenGL
    
  4. #INCLUDE "FreeImage.bi"
    
  5. #INCLUDE "2d.bi"
    
  6. #INCLUDE Once "crt/string.bi"
    
  7. 
    
  8. 
    
  9. 
    
  10. '############################################################################################################################################
    
  11. Function LoadImageFromFile(Byref V_FilePathName As String) As Any Ptr
    
  12. Dim FIF As FREE_IMAGE_FORMAT
    
  13. Dim dib As FIBITMAP Ptr
    
  14. Dim dib32 As FIBITMAP Ptr
    
  15. Dim DIBWidth As Uinteger
    
  16. Dim DIBHeight As Uinteger
    
  17. Dim flags As Uinteger
    
  18. Dim Bits As Any Ptr
    
  19. FIF = FreeImage_GetFileType(Strptr(V_FilePathName), 0)
    
  20. If FIF = FIF_UNKNOWN Then FIF = FreeImage_GetFIFFromFilename(Strptr(V_FilePathName))
    
  21. If FIF = FIF_UNKNOWN Then Return NULL
    
  22. If FIF = FIF_JPEG Then flags = JPEG_ACCURATE
    
  23. dib = FreeImage_Load(FIF, Strptr(V_FilePathName), flags)
    
  24. If dib = 0 Then Return NULL
    
  25. DIBWidth = FreeImage_GetWidth(dib)
    
  26. DIBHeight = FreeImage_GetHeight(dib)
    
  27. Dim FBImg As Any Ptr = Imagecreate(DIBWidth, DIBHeight, 32)
    
  28. If FBImg = 0 Then FreeImage_Unload dib: Imagedestroy(FBImg): Return 0
    
  29. FreeImage_FlipVertical Dib
    
  30. Dib32 = FreeImage_ConvertTo32Bits(Dib)
    
  31. Bits = FreeImage_GetBits(Dib32)
    
  32. #IF Defined(__FB_WIN32__)
    
  33.     movememory @Cptr(Byte Ptr, FBImg)[sizeof(fb.image)], Bits, DIBWidth * DIBHeight * 4
    
  34. #ELSEIF Defined(__FB_LINUX__)
    
  35.     memcpy @Cptr(Byte Ptr, FBImg)[sizeof(fb.image)], Bits, DIBWidth * DIBHeight * 4
    
  36. #ENDIF
    
  37. FreeImage_Unload dib
    
  38. FreeImage_Unload dib32
    
  39. Return FBImg
    
  40. End Function
    
  41. 
    
  42. 
    
  43. 
    
  44. '############################################################################################################################################
    
  45. Screenres3d(800, 600, 32)
    
  46. Graphics3D(800, 600, 32)
    
  47. AntiAlias(1)
    
  48. 
    
  49. Dim TCamera As Any Ptr = CreateCamera()
    
  50. PositionEntity(TCamera, 0, 0, 0)
    
  51. 
    
  52. Dim TLight As Any Ptr = CreateLight()
    
  53. RotateEntity(TLight, -60, 0, 0)
    
  54. 
    
  55. Dim TBottom As Any Ptr = CreateCylinder(20, 1)
    
  56. RotateEntity TBottom, 30, 0, 0
    
  57. PositionEntity TBottom, -2, 0, 5
    
  58. 
    
  59. Dim TImg As Any Ptr = LoadImageFromFile("alphatest.png")
    
  60. 
    
  61. Do Until Inkey() = Chr(27)
    
  62.     UpdateWorld()
    
  63.     RenderWorld()
    
  64.     Screenlock()
    
  65.     Cls()
    
  66.     Draw String(100, 190), "PSET", &HFFFFFFFF
    
  67.     Put (100, 200), TImg, Pset
    
  68.     Draw String(300, 190), "ALPHA", &HFFFFFFFF
    
  69.     Put (300, 200), TImg, Alpha
    
  70.     Draw String(500, 190), "Real img size", &HFFFFFFFF
    
  71.     Line (500, 200)-(500 + Cast(FB.image Ptr, TImg)->Width, 200 + Cast(FB.image Ptr, TImg)->height), &HFFFFFFFF, B
    
  72.     Screenunlock()
    
  73.     Screensync()
    
  74.     Sleep 10, 1
    
  75. Loop
    
  76. ClearWorld
    
  77. End
    



2d.bi

  1. #INCLUDE Once "fbgfx.bi"
    
  2. #INCLUDE Once "GL/gl.bi"
    
  3. 
    
  4. #IFDEF Render_OpenGL
    
  5. 
    
  6. 
    
  7. Namespace ogl
    
  8. 
    
  9. Dim Shared As Integer CORS(255)
    
  10. Dim Shared As Any Ptr BUFFER
    
  11. Dim Shared As Integer TEXTURE,SCRX,SCRY,BPP
    
  12. Dim Shared As Double OFX,OFY,UPTIME
    
  13. Dim Shared As Integer FRAMESKIP=0
    
  14. 
    
  15. 
    
  16. Sub CallScreen( WID As Integer,HEI As Integer, BPP As Integer,PAGS As Integer,FLAGS As Integer)
    
  17.   Screenres WID, HEI, BPP, PAGS, FLAGS
    
  18.   Windowtitle("OpenGL Render")
    
  19. End Sub
    
  20. 
    
  21. ' ***** Make a integer multiple of a power of 2 ****
    
  22. #MACRO ogl_MulBits( MultipleBits, MyIntVar )
    
  23. Asm
    
  24.   mov eax,[myintvar]
    
  25.   dec eax
    
  26.   Shr eax,(MultipleBits)
    
  27.   inc eax
    
  28.   Shl eax,(MultipleBits)
    
  29.   mov [myintvar],eax
    
  30. End Asm
    
  31. #ENDMACRO
    
  32. ' ***** Raise a integer to a power of 2 *****
    
  33. #MACRO ogl_Power2( MyIntNumber )
    
  34. Asm
    
  35.   mov eax,[myintnumber]  
    
  36.   dec eax
    
  37.   bsr ecx,eax
    
  38.   inc ecx
    
  39.   mov eax,0xFFFF0000  
    
  40.   rol eax,cl
    
  41.   And eax,0xFFFF
    
  42.   inc eax
    
  43.   mov [myintnumber],eax
    
  44. End Asm
    
  45. #ENDMACRO
    
  46. 
    
  47. End Namespace
    
  48. 
    
  49. 
    
  50. Sub screenres3d( WID As Integer=-1, HEI As Integer=-1, BPP As Integer=32, PAGS As Integer=1, FLAGS As Integer=0 )
    
  51.   
    
  52.   Dim As Integer TEXX,TEYY
    
  53.   Dim As Any Ptr TMP
    
  54.   Dim As Integer SCX,SCY
    
  55.   Screencontrol(fb.GET_DESKTOP_SIZE, SCX, SCY)
    
  56.   If WID=-1 Then WID=SCX
    
  57.   If HEI=-1 Then HEI=SCY  
    
  58.   If WID>=SCX Or HEI>=SCY Then FLAGS Or= fb.gfx_fullscreen
    
  59.   
    
  60.   ogl_Power2(BPP)
    
  61.   If BPP <> 8 And BPP <> 32 And BPP <> 32 Then BPP = 32  
    
  62.   If BPP = 8 Then Exit Sub
    
  63.   ogl_Mulbits( 3, WID)
    
  64.   ogl_Mulbits( 3, HEI)
    
  65.   ogl.SCRX = WID:ogl.SCRY = HEI
    
  66.   TEXX = WID:TEYY = HEI  
    
  67.   ogl_Power2(TEXX)  
    
  68.   ogl_Power2(TEYY)
    
  69.   ogl.OFX=WID/TEXX
    
  70.   ogl.OFY=HEI/TEYY  
    
  71.   ogl.BPP=BPP
    
  72.   ogl.callscreen WID,HEI,BPP,PAGS,fb.GFX_OPENGL Or FLAGS  
    
  73.   glViewport(0,0,WID,HEI)
    
  74.   glMatrixMode(GL_PROJECTION)  'Select The Projection Matrix
    
  75.   glLoadIdentity()             'Reset The Projection Matrix
    
  76.   glMatrixMode(GL_MODELVIEW)   'Select The Modelview Matrix
    
  77.   glLoadIdentity()             'Reset The Projection Matrix
    
  78.   glEnable(GL_TEXTURE_2D)      'Texture Mapping
    
  79.   glGenTextures 1, @ogl.TEXTURE
    
  80.   glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_FASTEST)
    
  81.   glClearColor(0f, 0f, 0f, 1.0f)
    
  82.   glClear(GL_COLOR_BUFFER_BIT)
    
  83.   glLoadIdentity()
    
  84.   glBindTexture GL_TEXTURE_2D, ogl.TEXTURE
    
  85.   glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR)
    
  86.   glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR)
    
  87.   If BPP = 8 Then BPP=32
    
  88.   TMP = Imagecreate(TEXX,TEYY,0,BPP)
    
  89.   If BPP = 32 Then
    
  90.     glTexImage2D(GL_TEXTURE_2D,0,GL_RGBA,TEXX,TEYY,0,GL_RGBA,GL_UNSIGNED_BYTE,TMP+Sizeof(fb.image))
    
  91.   Else
    
  92.     glTexImage2D(GL_TEXTURE_2D,0,GL_RGB,TEXX,TEYY,0,GL_RGB,GL_UNSIGNED_SHORT_5_6_5,TMP+Sizeof(fb.image))
    
  93.   End If
    
  94.   If ogl.bpp = 8 Then
    
  95.     ogl.BUFFER = TMP
    
  96.   Else: Imagedestroy(TMP)
    
  97.   End If
    
  98.   Color , Rgba(0,0,0,0)
    
  99.   Cls
    
  100. End Sub
    
  101. 
    
  102. #UNDEF Screensync
    
  103. 
    
  104. Sub Screensync()  
    
  105.   glColor4f(1.0, 1.0, 1.0, 1.0)
    
  106. 
    
  107.   glActiveTexture(GL_TEXTURE0)
    
  108.   glClientActiveTexture(GL_TEXTURE0)
    
  109. 
    
  110.   Dim BT As Double,TMP As Any Ptr, BUFSZ As Integer
    
  111.   Static As Integer FS
    
  112.   BT=Timer
    
  113.   glBindTexture GL_TEXTURE_2D, ogl.TEXTURE
    
  114.   FS += 1
    
  115.   If FS > OGL.FRAMESKIP Then FS=0  
    
  116.   If FS=0 Then
    
  117.   If ogl.BPP = 32 Then    
    
  118.     glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, ogl.SCRX, ogl.SCRY, GL_BGRA, GL_UNSIGNED_BYTE, Screenptr)
    
  119.   Elseif ogl.BPP = 16 Then
    
  120.     glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, ogl.SCRX, ogl.SCRY, GL_RGB, GL_UNSIGNED_SHORT_5_6_5, Screenptr)
    
  121.   Else
    
  122.     For BUFSZ = 0 To 255
    
  123.       'ogl.CORS(BUFSZ) = rgba(64,0,BUFSZ,0) 
    
  124.       Palette Get BUFSZ,ogl.CORS(BUFSZ)
    
  125.     Next BUFSZ
    
  126.     TMP = Screenptr
    
  127.     BUFSZ = ogl.SCRX*ogl.SCRY
    
  128.     Asm
    
  129.       mov esi,[tmp]    
    
  130.       mov edi,[ogl.BUFFER]
    
  131.       Add edi,Sizeof(fb.image)
    
  132.       mov edx,offset ogl.CORS
    
  133.       mov ecx,[bufsz]
    
  134.       Xor eax,eax
    
  135.       _8TO32_NEXTPIXEL_:
    
  136.       lodsb
    
  137.       mov ebx,[edx+EAX*4]
    
  138.       mov [edi],ebx
    
  139.       Add edi,4
    
  140.       dec ecx
    
  141.       jnz _8TO32_NEXTPIXEL_
    
  142.     End Asm
    
  143.     glTexSubImage2D(GL_TEXTURE_2D,0,0,0,ogl.SCRX,ogl.SCRY,GL_BGRA,GL_UNSIGNED_BYTE,ogl.BUFFER+Sizeof(fb.image))
    
  144.   End If
    
  145.   End If
    
  146. 
    
  147.   glDisable(GL_LIGHTING)
    
  148.   glDisable(GL_CULL_FACE)
    
  149.   glDisable(GL_NORMALIZE)
    
  150.   glMatrixMode (GL_PROJECTION)
    
  151.   glPushMatrix ()
    
  152.   glLoadIdentity ()
    
  153.   glOrtho (-1, 1, -1, 1, -1, 1)
    
  154.   glEnable(GL_TEXTURE_2D)
    
  155.   glEnable(GL_BLEND)
    
  156.   glEnable(GL_ALPHA_TEST)
    
  157.   glDisable(GL_DEPTH_TEST)
    
  158.   glMatrixMode (GL_MODELVIEW)
    
  159.   glBlendFunc(GL_SRC_ALPHA,GL_ONE_MINUS_SRC_ALPHA)
    
  160.   glLoadIdentity ()
    
  161. 
    
  162.   glBegin(GL_QUADS)      
    
  163.   glTexCoord2f(ogl.OFX, ogl.OFY):glVertex3f(1,-1,0)  
    
  164.   glTexCoord2f(0, ogl.OFY):glVertex3f(-1,-1,0)  
    
  165.   glTexCoord2f(0,0):glVertex3f(-1,1,0)  
    
  166.   glTexCoord2f(ogl.OFX, 0):glVertex3f(1,1,0)  
    
  167.   glEnd() 
    
  168.   ogl.UPTIME=Timer-BT
    
  169.   Flip
    
  170. 
    
  171.   glEnable(GL_LIGHTING)
    
  172.   glEnable(GL_CULL_FACE)
    
  173.   glEnable(GL_NORMALIZE)
    
  174.   glDisable(GL_TEXTURE_2D)
    
  175.   glDisable(GL_BLEND)
    
  176.   glEnable(GL_DEPTH_TEST)
    
  177. 
    
  178. 
    
  179. End Sub
    
  180. 
    
  181. #ELSE
    
  182. Namespace ogl
    
  183. Dim Shared As Double UPTIME
    
  184. Dim Shared As Integer FRAMESKIP=0
    
  185. End Namespace
    
  186. #ENDIF
    



openb3d.bi

  1. #INCLIB "OpenB3D"
    
  2. 
    
  3. ''
    
  4. ''
    
  5. '' functions -- header translated with help of SWIG FB wrapper
    
  6. ''
    
  7. '' NOTICE: This file is part of the FreeBASIC Compiler package and can't
    
  8. ''         be included in other distributions without authorization.
    
  9. ''
    
  10. ''
    
  11. #IFNDEF __functions_bi__
    
  12. #DEFINE __functions_bi__
    
  13. 
    
  14. Declare Function BackBufferToTex Cdecl Alias "BackBufferToTex" (Byval tex As Any Ptr, Byval frame As Integer=0) As Integer
    
  15. Declare Function BufferToTex Cdecl Alias "BufferToTex" (Byval tex As Any Ptr, Byval buffer As Any Ptr, Byval frame As Integer=0) As Integer
    
  16. Declare Function CameraToTex Cdecl Alias "CameraToTex" (Byval tex As Any Ptr, Byval cam As Any Ptr, Byval frame As Integer=0) As Integer
    
  17. Declare Function TexToBuffer Cdecl Alias "TexToBuffer" (Byval tex As Any Ptr, Byval buffer As Any Ptr, Byval frame As Integer) As Integer
    
  18. Declare Function MeshCullRadius Cdecl Alias "MeshCullRadius" (Byval ent As Any Ptr, Byval radius As Single) As Integer
    
  19. Declare Function AddAnimSeq Cdecl Alias "AddAnimSeq" (Byval ent As Any Ptr, Byval length As Integer) As Integer
    
  20. Declare Function AddMesh Cdecl Alias "AddMesh" (Byval mesh1 As Any Ptr, Byval mesh2 As Any Ptr) As Any Ptr
    
  21. Declare Function AddTriangle Cdecl Alias "AddTriangle" (Byval surf As Any Ptr, Byval v0 As Integer, Byval v1 As Integer, Byval v2 As Integer) As Integer
    
  22. Declare Function AddVertex Cdecl Alias "AddVertex" (Byval surf As Any Ptr, Byval x As Single, Byval y As Single, Byval z As Single, Byval u As Single=0, Byval v As Single=0, Byval w As Single=0) As Integer
    
  23. Declare Function AmbientLight Cdecl Alias "AmbientLight" (Byval r As Single, Byval g As Single, Byval b As Single) As Integer
    
  24. Declare Function AntiAlias Cdecl Alias "AntiAlias" (Byval samples As Integer) As Integer
    
  25. Declare Function Animate Cdecl Alias "Animate" (Byval ent As Any Ptr, Byval mode As Integer=1, Byval speed As Single=1, Byval seq As Integer=0, Byval Trans As Integer=0) As Integer
    
  26. Declare Function Animating Cdecl Alias "Animating" (Byval ent As Any Ptr) As Integer
    
  27. Declare Function AnimLength Cdecl Alias "AnimLength" (Byval ent As Any Ptr) As Integer
    
  28. Declare Function AnimSeq Cdecl Alias "AnimSeq" (Byval ent As Any Ptr) As Integer
    
  29. Declare Function AnimTime Cdecl Alias "AnimTime" (Byval ent As Any Ptr) As Single
    
  30. Declare Function BrushAlpha Cdecl Alias "BrushAlpha" (Byval brush As Any Ptr, Byval a As Single) As Integer
    
  31. Declare Function BrushBlend Cdecl Alias "BrushBlend" (Byval brush As Any Ptr, Byval blend As Integer) As Integer
    
  32. Declare Function BrushColor Cdecl Alias "BrushColor" (Byval brush As Any Ptr, Byval r As Single, Byval g As Single, Byval b As Single) As Integer
    
  33. Declare Function BrushFX Cdecl Alias "BrushFX" (Byval brush As Any Ptr, Byval fx As Integer) As Integer
    
  34. Declare Function BrushShininess Cdecl Alias "BrushShininess" (Byval brush As Any Ptr, Byval s As Single) As Integer
    
  35. Declare Function BrushTexture Cdecl Alias "BrushTexture" (Byval brush As Any Ptr, Byval tex As Any Ptr, Byval frame As Integer=0, Byval index As Integer=0) As Integer
    
  36. Declare Function CameraClsColor Cdecl Alias "CameraClsColor" (Byval cam As Any Ptr, Byval r As Single, Byval g As Single, Byval b As Single) As Integer
    
  37. Declare Function CameraClsMode Cdecl Alias "CameraClsMode" (Byval cam As Any Ptr, Byval cls_depth As Integer, Byval cls_zbuffer As Integer) As Integer
    
  38. Declare Function CameraFogColor Cdecl Alias "CameraFogColor" (Byval cam As Any Ptr, Byval r As Single, Byval g As Single, Byval b As Single) As Integer
    
  39. Declare Function CameraFogMode Cdecl Alias "CameraFogMode" (Byval cam As Any Ptr, Byval mode As Integer) As Integer
    
  40. Declare Function CameraFogRange Cdecl Alias "CameraFogRange" (Byval cam As Any Ptr, Byval nnear As Single, Byval nfar As Single) As Integer
    
  41. Declare Function CameraPick Cdecl Alias "CameraPick" (Byval cam As Any Ptr, Byval x As Single, Byval y As Single) As Any Ptr
    
  42. Declare Function CameraProject Cdecl Alias "CameraProject" (Byval cam As Any Ptr, Byval x As Single, Byval y As Single, Byval z As Single) As Integer
    
  43. Declare Function CameraProjMode Cdecl Alias "CameraProjMode" (Byval cam As Any Ptr, Byval mode As Integer) As Integer
    
  44. Declare Function CameraRange Cdecl Alias "CameraRange" (Byval cam As Any Ptr, Byval nnear As Single, Byval nfar As Single) As Integer
    
  45. Declare Function CameraViewport Cdecl Alias "CameraViewport" (Byval cam As Any Ptr, Byval x As Integer, Byval y As Integer, Byval Width As Integer, Byval height As Integer) As Integer
    
  46. Declare Function CameraZoom Cdecl Alias "CameraZoom" (Byval cam As Any Ptr, Byval zoom As Single) As Integer
    
  47. Declare Function ClearSurface Cdecl Alias "ClearSurface" (Byval surf As Any Ptr, Byval clear_verts As Integer=1, Byval clear_tris As Integer=1) As Integer
    
  48. Declare Function ClearTextureFilters Cdecl Alias "ClearTextureFilters" () As Integer
    
  49. Declare Function ClearWorld Cdecl Alias "ClearWorld" (Byval entities As Integer=1, Byval brushes As Integer=1, Byval textures As Integer=1) As Integer
    
  50. Declare Function CollisionEntity Cdecl Alias "CollisionEntity" (Byval ent As Any Ptr, Byval index As Integer) As Any Ptr
    
  51. Declare Function Collisions Cdecl Alias "Collisions" (Byval src_no As Integer, Byval dest_no As Integer, Byval method_no As Integer, Byval response_no As Integer=0) As Integer
    
  52. Declare Function CollisionNX Cdecl Alias "CollisionNX" (Byval ent As Any Ptr, Byval index As Integer) As Single
    
  53. Declare Function CollisionNY Cdecl Alias "CollisionNY" (Byval ent As Any Ptr, Byval index As Integer) As Single
    
  54. Declare Function CollisionNZ Cdecl Alias "CollisionNZ" (Byval ent As Any Ptr, Byval index As Integer) As Single
    
  55. Declare Function CollisionSurface Cdecl Alias "CollisionSurface" (Byval ent As Any Ptr, Byval index As Integer) As Any Ptr
    
  56. Declare Function CollisionTime Cdecl Alias "CollisionTime" (Byval ent As Any Ptr, Byval index As Integer) As Single
    
  57. Declare Function CollisionTriangle Cdecl Alias "CollisionTriangle" (Byval ent As Any Ptr, Byval index As Integer) As Integer
    
  58. Declare Function CollisionX Cdecl Alias "CollisionX" (Byval ent As Any Ptr, Byval index As Integer) As Single
    
  59. Declare Function CollisionY Cdecl Alias "CollisionY" (Byval ent As Any Ptr, Byval index As Integer) As Single
    
  60. Declare Function CollisionZ Cdecl Alias "CollisionZ" (Byval ent As Any Ptr, Byval index As Integer) As Single
    
  61. Declare Function CountChildren Cdecl Alias "CountChildren" (Byval ent As Any Ptr) As Integer
    
  62. Declare Function CountCollisions Cdecl Alias "CountCollisions" (Byval ent As Any Ptr) As Integer
    
  63. Declare Function CopyEntity Cdecl Alias "CopyEntity" (Byval ent As Any Ptr, Byval parent As Any Ptr=0) As Any Ptr
    
  64. Declare Function CopyMesh Cdecl Alias "CopyMesh" (Byval mesh As Any Ptr, Byval parent As Any Ptr=0) As Any Ptr
    
  65. Declare Function CountSurfaces Cdecl Alias "CountSurfaces" (Byval mesh As Any Ptr) As Integer
    
  66. Declare Function CountTriangles Cdecl Alias "CountTriangles" (Byval surf As Any Ptr) As Integer
    
  67. Declare Function CountVertices Cdecl Alias "CountVertices" (Byval surf As Any Ptr) As Integer
    
  68. Declare Function CreateBrush Cdecl Alias "CreateBrush" (Byval r As Single=255, Byval g As Single=255, Byval b As Single=255) As Any Ptr
    
  69. Declare Function CreateCamera Cdecl Alias "CreateCamera" (Byval parent As Any Ptr=0) As Any Ptr
    
  70. Declare Function CreateCone Cdecl Alias "CreateCone" (Byval segments As Integer=8, Byval solid As Integer=1, Byval parent As Any Ptr=0) As Any Ptr
    
  71. Declare Function CreateCylinder Cdecl Alias "CreateCylinder" (Byval segments As Integer=8, Byval solid As Integer=1, Byval parent As Any Ptr=0) As Any Ptr
    
  72. Declare Function CreateCube Cdecl Alias "CreateCube" (Byval parent As Any Ptr=0) As Any Ptr
    
  73. Declare Function CreateMesh Cdecl Alias "CreateMesh" (Byval parent As Any Ptr=0) As Any Ptr
    
  74. Declare Function CreateLight Cdecl Alias "CreateLight" (Byval light_type As Integer=1, Byval parent As Any Ptr=0) As Any Ptr
    
  75. Declare Function CreatePivot Cdecl Alias "CreatePivot" (Byval parent As Any Ptr=0) As Any Ptr
    
  76. Declare Function CreatePlane Cdecl Alias "CreatePlane" (Byval Divisions As Integer=1, Byval parent As Any Ptr=0) As Any Ptr
    
  77. Declare Function CreateShadow Cdecl Alias "CreateShadow" (Byval parent As Any Ptr, Byval Static As Integer=0) As Any Ptr
    
  78. Declare Function CreateSphere Cdecl Alias "CreateSphere" (Byval segments As Integer=8, Byval parent As Any Ptr=0) As Any Ptr
    
  79. Declare Function CreateSprite Cdecl Alias "CreateSprite" (Byval parent As Any Ptr=0) As Any Ptr
    
  80. Declare Function CreateSurface Cdecl Alias "CreateSurface" (Byval mesh As Any Ptr, Byval brush As Any Ptr=0) As Any Ptr
    
  81. Declare Function CreateStencil Cdecl Alias "CreateStencil" () As Any Ptr
    
  82. Declare Function CreateTerrain Cdecl Alias "CreateTerrain" (Byval size As Integer, Byval parent As Any Ptr=0) As Any Ptr
    
  83. Declare Function CreateTexture Cdecl Alias "CreateTexture" (Byval Width As Integer, Byval height As Integer, Byval flags As Integer=1, Byval frames As Integer=1) As Any Ptr
    
  84. Declare Function DeltaPitch Cdecl Alias "DeltaPitch" (Byval ent1 As Any Ptr, Byval ent2 As Any Ptr) As Single
    
  85. Declare Function DeltaYaw Cdecl Alias "DeltaYaw" (Byval ent1 As Any Ptr, Byval ent2 As Any Ptr) As Single
    
  86. Declare Function EntityAlpha Cdecl Alias "EntityAlpha" (Byval ent As Any Ptr, Byval Alpha As Single) As Integer
    
  87. Declare Function EntityAutoFade Cdecl Alias "EntityAutoFade" (Byval ent As Any Ptr, Byval near As Single, Byval far As Single) As Integer
    
  88. Declare Function EntityBlend Cdecl Alias "EntityBlend" (Byval ent As Any Ptr, Byval blend As Integer) As Integer
    
  89. Declare Function EntityBox Cdecl Alias "EntityBox" (Byval ent As Any Ptr, Byval x As Single, Byval y As Single, Byval z As Single, Byval w As Single, Byval h As Single, Byval d As Single) As Integer
    
  90. Declare Function EntityClass Cdecl Alias "EntityClass" (Byval ent As Any Ptr) As Zstring Ptr
    
  91. Declare Function EntityCollided Cdecl Alias "EntityCollided" (Byval ent As Any Ptr, Byval type_no As Integer) As Any Ptr
    
  92. Declare Function EntityColor Cdecl Alias "EntityColor" (Byval ent As Any Ptr, Byval red As Single, Byval green As Single, Byval blue As Single) As Integer
    
  93. Declare Function EntityDistance Cdecl Alias "EntityDistance" (Byval ent1 As Any Ptr, Byval ent2 As Any Ptr) As Single
    
  94. Declare Function EntityFX Cdecl Alias "EntityFX" (Byval ent As Any Ptr, Byval fx As Integer) As Integer
    
  95. Declare Function EntityInView Cdecl Alias "EntityInView" (Byval ent As Any Ptr, Byval cam As Any Ptr) As Integer
    
  96. Declare Function EntityName Cdecl Alias "EntityName" (Byval ent As Any Ptr) As Zstring Ptr
    
  97. Declare Function EntityOrder Cdecl Alias "EntityOrder" (Byval ent As Any Ptr, Byval order As Integer) As Integer
    
  98. Declare Function EntityParent Cdecl Alias "EntityParent" (Byval ent As Any Ptr, Byval parent_ent As Any Ptr, Byval glob As Integer=1) As Integer
    
  99. Declare Function EntityPick Cdecl Alias "EntityPick" (Byval ent As Any Ptr, Byval range As Single) As Any Ptr
    
  100. Declare Function EntityPickMode Cdecl Alias "EntityPickMode" (Byval ent As Any Ptr, Byval pick_mode As Integer, Byval obscurer As Integer=1) As Integer
    
  101. Declare Function EntityPitch Cdecl Alias "EntityPitch" (Byval ent As Any Ptr, Byval glob As Integer=0) As Single
    
  102. Declare Function EntityRadius Cdecl Alias "EntityRadius" (Byval ent As Any Ptr, Byval radius_x As Single, Byval radius_y As Single=0) As Integer
    
  103. Declare Function EntityRoll Cdecl Alias "EntityRoll" (Byval ent As Any Ptr, Byval glob As Integer=0) As Single
    
  104. Declare Function EntityShininess Cdecl Alias "EntityShininess" (Byval ent As Any Ptr, Byval shine As Single) As Integer
    
  105. Declare Function EntityTexture Cdecl Alias "EntityTexture" (Byval ent As Any Ptr, Byval tex As Any Ptr, Byval frame As Integer=0, Byval index As Integer=0) As Integer
    
  106. Declare Function EntityType Cdecl Alias "EntityType" (Byval ent As Any Ptr, Byval type_no As Integer, Byval recursive As Integer=0) As Integer
    
  107. Declare Function EntityVisible Cdecl Alias "EntityVisible" (Byval src_ent As Any Ptr, Byval dest_ent As Any Ptr) As Integer
    
  108. Declare Function EntityX Cdecl Alias "EntityX" (Byval ent As Any Ptr, Byval glob As Integer=0) As Single
    
  109. Declare Function EntityY Cdecl Alias "EntityY" (Byval ent As Any Ptr, Byval glob As Integer=0) As Single
    
  110. Declare Function EntityYaw Cdecl Alias "EntityYaw" (Byval ent As Any Ptr, Byval glob As Integer=0) As Single
    
  111. Declare Function EntityZ Cdecl Alias "EntityZ" (Byval ent As Any Ptr, Byval glob As Integer=0) As Single
    
  112. Declare Function ExtractAnimSeq Cdecl Alias "ExtractAnimSeq" (Byval ent As Any Ptr, Byval first_frame As Integer, Byval last_frame As Integer, Byval seq As Integer=0) As Integer
    
  113. Declare Function FindChild Cdecl Alias "FindChild" (Byval ent As Any Ptr, Byval child_name As Zstring Ptr) As Any Ptr
    
  114. Declare Function FindSurface Cdecl Alias "FindSurface" (Byval mesh As Any Ptr, Byval brush As Any Ptr) As Any Ptr
    
  115. Declare Function FitMesh Cdecl Alias "FitMesh" (Byval mesh As Any Ptr, Byval x As Single, Byval y As Single, Byval z As Single, Byval Width As Single, Byval height As Single, Byval depth As Single, Byval uniform As Integer=0) As Any Ptr
    
  116. Declare Function FlipMesh Cdecl Alias "FlipMesh" (Byval mesh As Any Ptr) As Any Ptr
    
  117. Declare Function FreeBrush Cdecl Alias "FreeBrush" (Byval brush As Any Ptr) As Integer
    
  118. Declare Function FreeEntity Cdecl Alias "FreeEntity" (Byval ent As Any Ptr) As Integer
    
  119. Declare Function FreeShadow Cdecl Alias "FreeShadow" (Byval parent As Any Ptr, Byval Static As Integer=0) As Any Ptr
    
  120. Declare Function FreeTexture Cdecl Alias "FreeTexture" (Byval tex As Any Ptr) As Integer
    
  121. Declare Function GetBrushTexture Cdecl Alias "GetBrushTexture" (Byval brush As Any Ptr, Byval index As Integer=0) As Any Ptr
    
  122. Declare Function GetChild Cdecl Alias "GetChild" (Byval ent As Any Ptr, Byval child_no As Integer) As Any Ptr
    
  123. Declare Function GetEntityBrush Cdecl Alias "GetEntityBrush" (Byval ent As Any Ptr) As Any Ptr
    
  124. Declare Function GetEntityType Cdecl Alias "GetEntityType" (Byval ent As Any Ptr) As Integer
    
  125. Declare Function GetMatElement Cdecl Alias "GetMatElement" (Byval ent As Any Ptr, Byval row As Integer, Byval col As Integer) As Single
    
  126. Declare Function GetParentEntity Cdecl Alias "GetParentEntity" (Byval ent As Any Ptr) As Any Ptr
    
  127. Declare Function GetSurface Cdecl Alias "GetSurface" (Byval mesh As Any Ptr, Byval surf_no As Integer) As Any Ptr
    
  128. Declare Function GetSurfaceBrush Cdecl Alias "GetSurfaceBrush" (Byval surf As Any Ptr) As Any Ptr
    
  129. Declare Function Graphics3D Cdecl Alias "Graphics3D" (Byval Width As Integer, Byval height As Integer, Byval depth As Integer=0, Byval mode As Integer=0, Byval rate As Integer=60) As Integer
    
  130. Declare Function HandleSprite Cdecl Alias "HandleSprite" (Byval sprite As Any Ptr, Byval h_x As Single, Byval h_y As Single) As Integer
    
  131. Declare Function HideEntity Cdecl Alias "HideEntity" (Byval ent As Any Ptr) As Integer
    
  132. Declare Function LightColor Cdecl Alias "LightColor" (Byval light As Any Ptr, Byval red As Single, Byval green As Single, Byval blue As Single) As Integer
    
  133. Declare Function LightConeAngles Cdecl Alias "LightConeAngles" (Byval light As Any Ptr, Byval inner_ang As Single, Byval outer_ang As Single) As Integer
    
  134. Declare Function LightRange Cdecl Alias "LightRange" (Byval light As Any Ptr, Byval range As Single) As Integer
    
  135. Declare Function LinePick Cdecl Alias "LinePick" (Byval x As Single, Byval y As Single, Byval z As Single, Byval dx As Single, Byval dy As Single, Byval dz As Single, Byval radius As Single=0) As Any Ptr
    
  136. Declare Function LoadAnimMesh Cdecl Alias "LoadAnimMesh" (Byval file As Zstring Ptr, Byval parent As Any Ptr=0) As Any Ptr
    
  137. Declare Function LoadAnimTexture Cdecl Alias "LoadAnimTexture" (Byval file As Zstring Ptr, Byval flags As Integer, Byval frame_width As Integer, Byval frame_height As Integer, Byval first_frame As Integer, Byval frame_count As Integer) As Any Ptr
    
  138. Declare Function LoadBrush Cdecl Alias "LoadBrush" (Byval file As Zstring Ptr, Byval flags As Integer=1, Byval u_scale As Single=1, Byval v_scale As Single=1) As Any Ptr
    
  139. Declare Function LoadMesh Cdecl Alias "LoadMesh" (Byval file As Zstring Ptr, Byval parent As Any Ptr=0) As Any Ptr
    
  140. Declare Function LoadTerrain Cdecl Alias "LoadTerrain" (Byval file As Zstring Ptr, Byval parent As Any Ptr=0) As Any Ptr
    
  141. Declare Function LoadTexture Cdecl Alias "LoadTexture" (Byval file As Zstring Ptr, Byval flags As Integer=1) As Any Ptr
    
  142. Declare Function LoadSprite Cdecl Alias "LoadSprite" (Byval tex_file As Zstring Ptr, Byval tex_flag As Integer=1, Byval parent As Any Ptr=0) As Any Ptr
    
  143. Declare Function MeshCSG Cdecl Alias "MeshCSG" (Byval m1 As Any Ptr, Byval m2 As Any Ptr, Byval method As Integer=1) As Any Ptr
    
  144. Declare Function MeshDepth Cdecl Alias "MeshDepth" (Byval mesh As Any Ptr) As Single
    
  145. Declare Function MeshesIntersect Cdecl Alias "MeshesIntersect" (Byval mesh1 As Any Ptr, Byval mesh2 As Any Ptr) As Any Ptr
    
  146. Declare Function MeshHeight Cdecl Alias "MeshHeight" (Byval mesh As Any Ptr) As Single
    
  147. Declare Function MeshWidth Cdecl Alias "MeshWidth" (Byval mesh As Any Ptr) As Single
    
  148. Declare Function ModifyTerrain Cdecl Alias "ModifyTerrain" (Byval terr As Any Ptr, Byval x As Integer, Byval z As Integer, Byval height As Single) As Any Ptr
    
  149. Declare Function MoveEntity Cdecl Alias "MoveEntity" (Byval ent As Any Ptr, Byval x As Single, Byval y As Single, Byval z As Single) As Integer
    
  150. Declare Function NameEntity Cdecl Alias "NameEntity" (Byval ent As Any Ptr, Byval Name As Zstring Ptr) As Integer
    
  151. Declare Function PaintEntity Cdecl Alias "PaintEntity" (Byval ent As Any Ptr, Byval brush As Any Ptr) As Integer
    
  152. Declare Function PaintMesh Cdecl Alias "PaintMesh" (Byval mesh As Any Ptr, Byval brush As Any Ptr) As Any Ptr
    
  153. Declare Function PaintSurface Cdecl Alias "PaintSurface" (Byval surf As Any Ptr, Byval brush As Any Ptr) As Integer
    
  154. Declare Function PickedEntity Cdecl Alias "PickedEntity" () As Any Ptr
    
  155. Declare Function PickedNX Cdecl Alias "PickedNX" () As Single
    
  156. Declare Function PickedNY Cdecl Alias "PickedNY" () As Single
    
  157. Declare Function PickedNZ Cdecl Alias "PickedNZ" () As Single
    
  158. Declare Function PickedSurface Cdecl Alias "PickedSurface" () As Any Ptr
    
  159. Declare Function PickedTime Cdecl Alias "PickedTime" () As Single
    
  160. Declare Function PickedTriangle Cdecl Alias "PickedTriangle" () As Integer
    
  161. Declare Function PickedX Cdecl Alias "PickedX" () As Single
    
  162. Declare Function PickedY Cdecl Alias "PickedY" () As Single
    
  163. Declare Function PickedZ Cdecl Alias "PickedZ" () As Single
    
  164. Declare Function PointEntity Cdecl Alias "PointEntity" (Byval ent As Any Ptr, Byval target_ent As Any Ptr, Byval roll As Single=0) As Integer
    
  165. Declare Function PositionEntity Cdecl Alias "PositionEntity" (Byval ent As Any Ptr, Byval x As Single, Byval y As Single, Byval z As Single, Byval glob As Integer=0) As Integer
    
  166. Declare Function PositionMesh Cdecl Alias "PositionMesh" (Byval mesh As Any Ptr, Byval px As Single, Byval py As Single, Byval pz As Single) As Integer
    
  167. Declare Function PositionTexture Cdecl Alias "PositionTexture" (Byval tex As Any Ptr, Byval u_pos As Integer, Byval v_pos As Integer) As Integer
    
  168. Declare Function ProjectedX Cdecl Alias "ProjectedX" () As Single
    
  169. Declare Function ProjectedY Cdecl Alias "ProjectedY" () As Single
    
  170. Declare Function ProjectedZ Cdecl Alias "ProjectedZ" () As Single
    
  171. Declare Function RenderWorld Cdecl Alias "RenderWorld" () As Integer
    
  172. Declare Function RepeatMesh Cdecl Alias "RepeatMesh" (Byval mesh As Any Ptr, Byval parent As Any Ptr=0) As Any Ptr
    
  173. Declare Function ResetEntity Cdecl Alias "ResetEntity" (Byval ent As Any Ptr) As Integer
    
  174. Declare Function RotateEntity Cdecl Alias "RotateEntity" (Byval ent As Any Ptr, Byval x As Single, Byval y As Single, Byval z As Single, Byval glob As Integer=0) As Integer
    
  175. Declare Function RotateMesh Cdecl Alias "RotateMesh" (Byval mesh As Any Ptr, Byval pitch As Single, Byval yaw As Single, Byval roll As Single) As Any Ptr
    
  176. Declare Function RotateSprite Cdecl Alias "RotateSprite" (Byval sprite As Any Ptr, Byval ang As Single) As Integer
    
  177. Declare Function RotateTexture Cdecl Alias "RotateTexture" (Byval tex As Any Ptr, Byval ang As Single) As Integer
    
  178. Declare Function ScaleEntity Cdecl Alias "ScaleEntity" (Byval ent As Any Ptr, Byval x As Single, Byval y As Single, Byval z As Single, Byval glob As Integer=0) As Integer
    
  179. Declare Function ScaleMesh Cdecl Alias "ScaleMesh" (Byval mesh As Any Ptr, Byval sx As Single, Byval sy As Single, Byval sz As Single) As Integer
    
  180. Declare Function ScaleSprite Cdecl Alias "ScaleSprite" (Byval sprite As Any Ptr, Byval s_x As Single, Byval s_y As Single) As Integer
    
  181. Declare Function ScaleTexture Cdecl Alias "ScaleTexture" (Byval tex As Any Ptr, Byval u_scale As Single, Byval v_scale As Single) As Integer
    
  182. Declare Function SetAnimTime Cdecl Alias "SetAnimTime" (Byval ent As Any Ptr, Byval Time As Single, Byval seq As Integer=0) As Integer
    
  183. Declare Function SetCubeFace Cdecl Alias "SetCubeFace" (Byval tex As Any Ptr, Byval face As Integer) As Integer
    
  184. Declare Function SetCubeMode Cdecl Alias "SetCubeMode" (Byval tex As Any Ptr, Byval mode As Integer) As Integer
    
  185. Declare Function ShowEntity Cdecl Alias "ShowEntity" (Byval ent As Any Ptr) As Integer
    
  186. Declare Function SpriteViewMode Cdecl Alias "SpriteViewMode" (Byval sprite As Any Ptr, Byval mode As Integer) As Integer
    
  187. Declare Function StencilAlpha Cdecl Alias "StencilAlpha" (Byval stencil As Any Ptr, Byval a As Single) As Integer
    
  188. Declare Function StencilClsColor Cdecl Alias "StencilClsColor" (Byval stencil As Any Ptr, Byval r As Single, Byval g As Single, Byval b As Single) As Integer
    
  189. Declare Function StencilClsMode Cdecl Alias "StencilClsMode" (Byval stencil As Any Ptr, Byval cls_depth As Integer, Byval cls_zbuffer As Integer) As Integer
    
  190. Declare Function StencilMesh Cdecl Alias "StencilMesh" (Byval stencil As Any Ptr, Byval mesh As Any Ptr, Byval mode As Integer=1) As Integer
    
  191. Declare Function StencilMode Cdecl Alias "StencilMode" (Byval stencil As Any Ptr, Byval m As Integer) As Integer
    
  192. Declare Function TextureBlend Cdecl Alias "TextureBlend" (Byval tex As Any Ptr, Byval blend As Integer) As Integer
    
  193. Declare Function TextureCoords Cdecl Alias "TextureCoords" (Byval tex As Any Ptr, Byval coords As Integer) As Integer
    
  194. Declare Function TextureHeight Cdecl Alias "TextureHeight" (Byval tex As Any Ptr) As Integer
    
  195. Declare Function TextureFilter Cdecl Alias "TextureFilter" (Byval match_text As Zstring Ptr, Byval flags As Integer) As Integer
    
  196. Declare Function TextureName Cdecl Alias "TextureName" (Byval tex As Any Ptr) As Zstring Ptr
    
  197. Declare Function TerrainHeight Cdecl Alias "TerrainHeight" (Byval terr As Any Ptr, Byval x As Integer, Byval z As Integer) As Single
    
  198. Declare Function TerrainX Cdecl Alias "TerrainX" (Byval terr As Any Ptr, Byval x As Single, Byval y As Single, Byval z As Single) As Single
    
  199. Declare Function TerrainY Cdecl Alias "TerrainY" (Byval terr As Any Ptr, Byval x As Single, Byval y As Single, Byval z As Single) As Single
    
  200. Declare Function TerrainZ Cdecl Alias "TerrainZ" (Byval terr As Any Ptr, Byval x As Single, Byval y As Single, Byval z As Single) As Single
    
  201. Declare Function TextureWidth Cdecl Alias "TextureWidth" (Byval tex As Any Ptr) As Integer
    
  202. Declare Function TFormedX Cdecl Alias "TFormedX" () As Single
    
  203. Declare Function TFormedY Cdecl Alias "TFormedY" () As Single
    
  204. Declare Function TFormedZ Cdecl Alias "TFormedZ" () As Single
    
  205. Declare Function TFormNormal Cdecl Alias "TFormNormal" (Byval x As Single, Byval y As Single, Byval z As Single, Byval src_ent As Any Ptr, Byval dest_ent As Any Ptr) As Integer
    
  206. Declare Function TFormPoint Cdecl Alias "TFormPoint" (Byval x As Single, Byval y As Single, Byval z As Single, Byval src_ent As Any Ptr, Byval dest_ent As Any Ptr) As Integer
    
  207. Declare Function TFormVector Cdecl Alias "TFormVector" (Byval x As Single, Byval y As Single, Byval z As Single, Byval src_ent As Any Ptr, Byval dest_ent As Any Ptr) As Integer
    
  208. Declare Function TranslateEntity Cdecl Alias "TranslateEntity" (Byval ent As Any Ptr, Byval x As Single, Byval y As Single, Byval z As Single, Byval glob As Integer=0) As Integer
    
  209. Declare Function TriangleVertex Cdecl Alias "TriangleVertex" (Byval surf As Any Ptr, Byval tri_no As Integer, Byval corner As Integer) As Integer
    
  210. Declare Function TurnEntity Cdecl Alias "TurnEntity" (Byval ent As Any Ptr, Byval x As Single, Byval y As Single, Byval z As Single, Byval glob As Integer=0) As Integer
    
  211. Declare Function UpdateNormals Cdecl Alias "UpdateNormals" (Byval mesh As Any Ptr) As Integer
    
  212. Declare Function UpdateTexCoords Cdecl Alias "UpdateTexCoords" (Byval surf As Any Ptr) As Integer
    
  213. Declare Function UpdateWorld Cdecl Alias "UpdateWorld" (Byval anim_speed As Single=1) As Integer
    
  214. Declare Function UseStencil Cdecl Alias "UseStencil" (Byval stencil As Any Ptr) As Integer
    
  215. Declare Function VectorPitch Cdecl Alias "VectorPitch" (Byval vx As Single, Byval vy As Single, Byval vz As Single) As Single
    
  216. Declare Function VectorYaw Cdecl Alias "VectorYaw" (Byval vx As Single, Byval vy As Single, Byval vz As Single) As Single
    
  217. Declare Function VertexAlpha Cdecl Alias "VertexAlpha" (Byval surf As Any Ptr, Byval vid As Integer) As Single
    
  218. Declare Function VertexBlue Cdecl Alias "VertexBlue" (Byval surf As Any Ptr, Byval vid As Integer) As Single
    
  219. Declare Function VertexColor Cdecl Alias "VertexColor" (Byval surf As Any Ptr, Byval vid As Integer, Byval r As Single, Byval g As Single, Byval b As Single, Byval a As Single=1) As Integer
    
  220. Declare Sub VertexCoords Cdecl Alias "VertexCoords" (Byval surf As Any Ptr, Byval vid As Integer, Byval x As Single, Byval y As Single, Byval z As Single)
    
  221. Declare Function VertexGreen Cdecl Alias "VertexGreen" (Byval surf As Any Ptr, Byval vid As Integer) As Single
    
  222. Declare Function VertexNormal Cdecl Alias "VertexNormal" (Byval surf As Any Ptr, Byval vid As Integer, Byval nx As Single, Byval ny As Single, Byval nz As Single) As Integer
    
  223. Declare Function VertexNX Cdecl Alias "VertexNX" (Byval surf As Any Ptr, Byval vid As Integer) As Single
    
  224. Declare Function VertexNY Cdecl Alias "VertexNY" (Byval surf As Any Ptr, Byval vid As Integer) As Single
    
  225. Declare Function VertexNZ Cdecl Alias "VertexNZ" (Byval surf As Any Ptr, Byval vid As Integer) As Single
    
  226. 
    
  227. 
    
  228. 
    
  229. 
    
  230. 
    
  231. 
    
  232. 
    
  233. Declare Function VertexRed Cdecl Alias "VertexRed" (Byval surf As Any Ptr, Byval vid As Integer) As Single
    
  234. Declare Function VertexTexCoords Cdecl Alias "VertexTexCoords" (Byval surf As Any Ptr, Byval vid As Integer, Byval u As Single, Byval v As Single, Byval w As Single=0, Byval coord_set As Integer=0) As Integer
    
  235. Declare Function VertexU Cdecl Alias "VertexU" (Byval surf As Any Ptr, Byval vid As Integer, Byval coord_set As Integer=0) As Single
    
  236. Declare Function VertexV Cdecl Alias "VertexV" (Byval surf As Any Ptr, Byval vid As Integer, Byval coord_set As Integer=0) As Single
    
  237. Declare Function VertexW Cdecl Alias "VertexW" (Byval surf As Any Ptr, Byval vid As Integer, Byval coord_set As Integer=0) As Single
    
  238. Declare Function VertexX Cdecl Alias "VertexX" (Byval surf As Any Ptr, Byval vid As Integer) As Single
    
  239. Declare Function VertexY Cdecl Alias "VertexY" (Byval surf As Any Ptr, Byval vid As Integer) As Single
    
  240. Declare Function VertexZ Cdecl Alias "VertexZ" (Byval surf As Any Ptr, Byval vid As Integer) As Single
    
  241. Declare Function Wireframe Cdecl Alias "Wireframe" (Byval enable As Integer) As Integer
    
  242. Declare Function EntityScaleX Cdecl Alias "EntityScaleX" (Byval ent As Any Ptr, Byval glob As Integer=0) As Single
    
  243. Declare Function EntityScaleY Cdecl Alias "EntityScaleY" (Byval ent As Any Ptr, Byval glob As Integer=0) As Single
    
  244. Declare Function EntityScaleZ Cdecl Alias "EntityScaleZ" (Byval ent As Any Ptr, Byval glob As Integer=0) As Single
    
  245. 
    
  246. Declare Function LoadShader Cdecl Alias "LoadShader" (Byval ShaderName As Zstring Ptr, Byval VFile As Zstring Ptr, Byval FFile As Zstring Ptr) As Any Ptr
    
  247. Declare Function CreateShader Cdecl Alias "CreateShader" (Byval shader As Zstring Ptr, Byval VString As Zstring Ptr, Byval FString As Zstring Ptr) As Any Ptr
    
  248. Declare Sub ShadeMesh Cdecl Alias "ShadeMesh" (Byval mesh As Any Ptr, Byval material As Any Ptr) 
    
  249. Declare Sub ShadeSurface Cdecl Alias "ShadeSurface" (Byval surf As Any Ptr, Byval material As Any Ptr) 
    
  250. Declare Sub ShadeEntity Cdecl Alias "ShadeEntity" (Byval ent As Any Ptr, Byval material As Any Ptr) 
    
  251. Declare Sub ShaderTexture Cdecl Alias "ShaderTexture" (Byval material As Any Ptr, Byval tex As Any Ptr, Byval Name As Zstring Ptr, Byval index As Integer=0) 
    
  252. 
    
  253. Declare Sub SetFloat Cdecl Alias "SetFloat" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byval v1 As Single) 
    
  254. Declare Sub SetFloat2 Cdecl Alias "SetFloat2" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byval v1 As Single, Byval v2 As Single) 
    
  255. Declare Sub SetFloat3 Cdecl Alias "SetFloat3" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byval v1 As Single, Byval v2 As Single, Byval v3 As Single) 
    
  256. Declare Sub SetFloat4 Cdecl Alias "SetFloat4" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byval v1 As Single, Byval v2 As Single, Byval v3 As Single, Byval v4 As Single) 
    
  257. Declare Sub UseFloat Cdecl Alias "UseFloat" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byref v1 As Single) 
    
  258. Declare Sub UseFloat2 Cdecl Alias "UseFloat2" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byref v1 As Single, Byref v2 As Single) 
    
  259. Declare Sub UseFloat3 Cdecl Alias "UseFloat3" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byref v1 As Single, Byref v2 As Single, Byref v3 As Single) 
    
  260. Declare Sub UseFloat4 Cdecl Alias "UseFloat4" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byref v1 As Single, Byref v2 As Single, Byref v3 As Single, Byref v4 As Single) 
    
  261. Declare Sub SetInteger Cdecl Alias "SetInteger" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byval v1 As Single) 
    
  262. Declare Sub SetInteger2 Cdecl Alias "SetInteger2" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byval v1 As Single, Byval v2 As Single) 
    
  263. Declare Sub SetInteger3 Cdecl Alias "SetInteger3" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byval v1 As Single, Byval v2 As Single, Byval v3 As Single) 
    
  264. Declare Sub SetInteger4 Cdecl Alias "SetInteger4" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byval v1 As Single, Byval v2 As Single, Byval v3 As Single, Byval v4 As Single) 
    
  265. Declare Sub UseInteger Cdecl Alias "UseInteger" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byref v1 As Single) 
    
  266. Declare Sub UseInteger2 Cdecl Alias "UseInteger2" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byref v1 As Single, Byref v2 As Single) 
    
  267. Declare Sub UseInteger3 Cdecl Alias "UseInteger3" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byref v1 As Single, Byref v2 As Single, Byref v3 As Single) 
    
  268. Declare Sub UseInteger4 Cdecl Alias "UseInteger4" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byref v1 As Single, Byref v2 As Single, Byref v3 As Single, Byref v4 As Single) 
    
  269. Declare Function LoadMaterial Cdecl Alias "LoadMaterial" (Byval file As Zstring Ptr, Byval flags As Integer, Byval frame_width As Integer, Byval frame_height As Integer, Byval first_frame As Integer, Byval frame_count As Integer) As Any Ptr
    
  270. Declare Sub ShaderMaterial Cdecl Alias "ShaderMaterial" (Byval material As Any Ptr, Byval tex As Any Ptr, Byval Name As Zstring Ptr, Byval index As Integer=0) 
    
  271. 
    
  272. 
    
  273. 
    
  274. Declare Sub UseSurface Cdecl Alias "UseSurface" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byval surf As Any Ptr, Byval vbo As Integer) 
    
  275. Declare Sub UseMatrix Cdecl Alias "UseMatrix" (Byval material As Any Ptr, Byval Name As Zstring Ptr, Byval mode As Integer) 
    
  276. 
    
  277. 
    
  278. 
    
  279. Declare Function CreateVoxelSprite Cdecl Alias "CreateVoxelSprite" (Byval slices As Integer=64, Byval parent As Any Ptr=0) As Any Ptr
    
  280. Declare Sub VoxelSpriteMaterial Cdecl Alias "VoxelSpriteMaterial" (Byval voxelspr As Any Ptr, Byval mat As Any Ptr) 
    
  281. 
    
  282. 
    
  283. #ENDIF