Create Module Bullet Xors3D on BlitzMax

BlitzMax Forums/BlitzMax Programming/Create Module Bullet Xors3D on BlitzMax

Yue	(Posted April) [#1]

Hello, I am not an expert in creating modules, I am based on the same example of Xors3D to work in BlitzMax, everything seems to be fine, however when I hook the body to the entity that disappears and does not work, ie the box is not seen by nowhere. What I can be doing wrong

Strict
Module miragelab.bullet
Import brl.blitz

ModuleInfo "Version: 1.0"
ModuleInfo "Copyright: LGPL. mirage-lab www.tools.mirage-lab.com "

Extern "win32"
	Function FindWindowA%(class%, title$z)
	Function LoadLibraryA(lib$z)
	Function GetProcAddress:Byte Ptr(lib%, functionName$z) 
End Extern

Global bulletLibName$ = "BlitzBullet.dll"


' Funciones Libreria.
Global btCreateWorldI(numThreads%, license_key$z) "win32"
Global btBodyCreateBoxI%( dx#, dy#, dz#, mass# ) "win32"	
Global btBodyCreatePlaneI%(nx#, ny#, nz#) "win32"
Global btBodyAttachEntityI(body%, entity% ) "win32"	
Global btSimulationI(timeStep#, maxSubSteps% ) "win32"
Global btDestroyWorldI() "win32"
Global btBodySetPositionI(body%, x#, y#, z# ) "win32"
Global btBodyGetYI#( body% ) "win32"

Global lib% = LoadLibraryA(bulletLibName)
If lib%

	btCreateWorldI      = ( GetProcAddress(lib, "_btCreateWorld@8"))
	btBodyCreateBoxI%   = ( GetProcAddress(lib, "_btBodyCreateBox@16"))
	btBodyCreatePlaneI% = ( GetProcAddress(lib, "_btBodyCreatePlane@12"))
	btBodyAttachEntityI = ( GetProcAddress(lib, "_btBodyAttachEntity@8"))
	btSimulationI       = ( GetProcAddress(lib, "_btSimulation@8"))
    btDestroyWorldI     = ( GetProcAddress(lib, "_btDestroyWorld@0"))
	btBodySetPositionI  = ( GetProcAddress(lib, "_btBodySetPosition@16"))
	btBodyGetYI#        = ( GetProcAddress(lib, "_btBodyGetY@4"))
 


Else 
	RuntimeError("Invalid " + bulletLibName)
	End


End If 

' Comandos.
Function btCreateWorld(numThreads%, license_key$)

		btCreateWorldI( numThreads%, license_key$ ) 

End Function  

Function btBodyCreateBox%( dx#, dy#, dz#, mass# ) 

	Return btBodyCreateBoxI%( dx#, dy#, dz#, mass# ) 

End Function 

Function btBodyCreatePlane%( nx#, ny#, nz# ) 


	Return btBodyCreatePlaneI% ( nx#, ny#, nz# ) 

End Function 

Function btBodyAttachEntity( body%, entity% ) 

		btBodyAttachEntityI( body%, entity% ) 

End Function 

Function btSimulation (timeStep#, maxSubSteps% )

		btSimulationI( timeStep#, maxSubSteps% ) 
End Function 

Function btDestroyWorld()
		
		btDestroyWorldI()

End Function 

Function btBodySetPosition(body%, x#, y#, z# )

			btBodySetPositionI(body%, x#, y#, z# )
			
End Function


Function btBodyGetY#( body# ) 
			
			btBodyGetYI#( body# ) 

End Function