Disable Tweening

Blitz3D Forums/Blitz3D Programming/Disable Tweening

TomToad
 #1
Open in online IDE
Graphics3D 800,600,32,1

Sphere1 = CreateSphere()
PositionEntity Sphere1,-3,-3,0
Sphere2 = CreateSphere()
PositionEntity Sphere2,3,3,0
Camera = CreateCamera()
PositionEntity camera,0,0,-5
light = CreateLight()
RotateEntity light,45,45,0
lr = 0
Time = MilliSecs()
CaptureWorld
PositionEntity Sphere1,3,-3,0
While Not KeyHit(1)
	newtime = MilliSecs()
	delta = newtime - time
	
	tween# = delta / 2000.0
	If tween > 1.0
		If lr = 0
			lr = 1
			PositionEntity Sphere2,-5,3,0
			CaptureWorld
			PositionEntity Sphere1,-5,-3,0
		Else
			lr = 0
			PositionEntity Sphere2,5,3,0
			CaptureWorld
			PositionEntity sphere1,5,-3,0
		End If
		time = newtime
		tween = 0
	End If
	RenderWorld tween
	Text 10,10,tween
	Flip
Wend

Top sphere warps, bottom sphere tweens.