Gruss
;Xors3d+Blitzpx sample for PureBasic
IncludeFile "Include\Xors3d.pbi"
IncludeFile "Include\Blitzpx.pbi"
xGraphics3D(800,600,32,0,0)
pxCreateWorld(1,"key")
pxSetGravity(0,-10,0)
xAmbientLight(191,191,191)
xcreateLight()
cam=xCreateCamera()
xPositionEntity(cam,0,50,0)
cmesh=xCreateCube()
xScaleEntity(cmesh,10,10,10)
cbody=pxBodyCreateCube(10,10,10,10)
pxBodySetPosition(cbody,0,100,200)
pxBodySetRotation(cbody,Random(60)+15,Random(60)+15,Random(60)+15)
While Not xKeyDown(1)
t=t+1
If t>1500
t=0
pxBodySetPosition(cbody,0,100,200)
pxBodySetRotation(cbody,Random(60)+15,Random(60)+15,Random(60)+15)
EndIf
xPositionEntity(cmesh,pxBodyGetPositionX(cbody),pxBodyGetPositionY(cbody),pxBodyGetPositionZ(cbody))
xRotateEntity(cmesh,pxBodyGetRotationPitch(cbody),pxBodyGetRotationYaw(cbody),pxBodyGetRotationRoll(cbody))
pxRenderPhysic(60,0)
xRenderWorld()
xFlip()
Wend