Вот мой исходник
2 картинки использую
http://rghost.ru/51737949
Include "include\BlitzBullet.bb"
Include "include\FastImage.bb" ; <<<< Include FastImage.bb file
Graphics3D 800, 600, 0, 2
camera=CreateCamera()
light=CreateLight()
cone=CreateCone()
PositionEntity cone,0,0,5
cube=CreateCube()
PositionEntity cube,120,200,5
btCreateWorld(2)
btWorldSetGravity (0,10,0,1)
btCollisionGroupSetFlag ( 1,1,1)
btWorldSetFixedTimeStep(1.0/60)
btContactSetSolverMode(SOLVER_USE_3_FRICTION_DIREC TIONS+SOLVER_SIMD+SOLVER_RANDMIZE_ORDER)
body1=btBodyCreateSphere (110,5)
btBodySetPosition (BODY1,0,0,0)
body2=btBodyCreateSphere (90,50)
btBodySetPosition (BODY2,0,200,0)
;btBodyCreatePlane(0,400,0)
InitDraw
imgFast1 = LoadImageEx ( "..\media\1.png", 0,FI_FILTERED)
imgFast2 = LoadImageEx ( "..\media\tounge.png", 1+2, FI_FILTERED)
btCreateDebugDraw ()
btDebugDrawSetMode 1
While Not KeyHit (1)
X1=btBodyGetX (BODY1)
Y1=btBodyGetY (BODY1)
X2=btBodyGetX (BODY2)
Y2=btBodyGetY (BODY2)
;btBodySetPosition ( body2,MouseX(),MouseY(),0)
mx = MouseX() ; save mouse coords in variables
my = MouseY()
Cls
;start drawing
StartDraw
;SetRotation 10
SetScale 1, 1
DrawImageEx imgFast1, X1,Y1
DrawImageEx imgFast2, X2,Y2
;
EndDraw
Text 10, 10,X1
Text 10, 20,Y1
If KeyDown(205) Then btBodyApplyImpulse (Body1, 50,0,0)
If KeyDown(203) Then btBodyApplyImpulse (Body1, -50,0,0)
If KeyDown(200) Then btBodyApplyImpulse (Body1, 0,-50,0)
If KeyDown(20
Then btBodyApplyImpulse (Body1, 0,50,0)
If KeyDown(57) Then x1=0:y1=0:btBodySetPosition ( body1,0,0,0)
zz=y1;((x1*1024 )-1)+
If y1>400 Then btBodyApplyImpulse (Body1, 0,-50,0)
If y2>200 Then btBodyApplyImpulse (Body2, 0,-50,0)
;btDebugDrawWorld(camera,0,0)
btContactTest(body1,0)
btContactTest(body2,0)
;If btContactGetBody (body1,1) Then End
btSimulation(.1,6)
btDebugDrawWorld ( camera, 0,0)
;RenderWorld
Flip
Wend
DeinitDraw