An intriguing challenge with physics

Blitz3D Forums/Blitz3D Programming/An intriguing challenge with physics

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Rob Farley
 #1
Open in online IDE
Graphics3D 640,480,16,1


MoveMouse 320,240

b1=CreateCube()
b2=CreateCube()

camera=CreateCamera()
MoveEntity camera,0,0,-20


Repeat

x#=(MouseX()-320)*.065
y#=(-MouseY()+240)*.065


PositionEntity b1,x,y,0

d#=EntityDistance(b1,b2)-5
PointEntity b2,b1

; this bit makes it rotate rather than move backwards
If d<0 Then MoveEntity b2,-.1,0,0:d#=EntityDistance(b1,b2)-5

MoveEntity b2,0,0,d


UpdateWorld
RenderWorld

Flip

Until KeyHit(1)