tween# ?

Blitz3D Forums/Blitz3D Programming/tween# ?

Yue	(Posted 2016) [#1]

Hello , I wonder if I am correctly implementing the Tween in this code. I appreciate the possible suggestions . to improve , as the clarification that is what a tween .

Thank you.

; ==============================================================
; Proyecto 			: SAJ
; Sitio WEb			: http:/
; Programador 		: John Caicedo.
; Nombre Fichero 	: Inicio.bb
; ==============================================================
; Nota				: Fichero de entrada al programa.
; 
; ==============================================================

AppTitle "BTL | Alpha | v. 0.0 "

; - Includes.
; -------------------
Include "..\IncludesEx\FastExt.bb"
Include "..\IncludesEx\BlitzBullet.bb"
Include "..\IncludesEx\ShadowsMultiple.bb"
Include "..\IncludesEx\Bones.bb"

Include "..\Generales\Funciones.bb"
Include "..\Generales\scancodes.bb"

Include "..\Tipos\TGraphics3D.bb"
Include "..\Tipos\TCamara.bb"
Include "..\Tipos\TLuz.bb"
Include "..\Tipos\TPrimitiva.bb"
Include "..\Tipos\TTextura.bb"
Include "..\Tipos\TMalla.bb"
Include "..\Tipos\TSombras.bb"
Include "..\Tipos\TMontaCarga.bb"
Include "..\Tipos\TSuelo.bb"
Include "..\Tipos\TZip.bb"

; - Objetos.
oG3D.TGraphics3D 	= Init_G3D.TGraphics3D()


InitExt()
btCreateWorld(0,"license_key")
btCreateDebugDraw()
btDebugDrawSetMode(0)
btWorldSetFixedTimeStep(1.0/30)


; - Sombras.
Sombra1.TSombras   	= Init_Sombras.TSombras( 1 )



oCamara.TCamara		= Init_Camara.TCamara()
PositionEntity 		( oCamara\camara%, 0, 5, -30 )

oSol.TLuz			= Init_Luz.TLuz()
RotateEntity		( oSol\luz%, 70, 45, 0 )
ShadowLight 		( Sombra1\sombra1, oSol\luz% )	



MC.TMontacarga		= Init_MontaCarga.TMontacarga("Modelos.iso")
CreateShadowCaster  ( Sombra1\sombra1.Shadow, MC\chassis\malla% ) 
CreateShadowCaster  ( Sombra1\sombra1.Shadow, MC\elevador\malla% )
For s% = 0 To 3
	CreateShadowCaster  ( Sombra1\sombra1, MC\llantas[s]\malla% ) 
Next 




bodega.TSuelo		= Init_Suelo.TSuelo ( Sombra1.TSombras ) 




; tween#
Const FPSM%=60
Local period% = 1000/FPSM%
Local time%= MilliSecs()-period



While Not KeyHit(1)
	
	
	
	
	
	Repeat  :  elapsed = MilliSecs() - time  :  Until elapsed
	ticks = elapsed / period
	tween# = Float(elapsed Mod period) / Float(period)
	For k=1 To ticks
		time = time + period
		If k = ticks Then CaptureWorld
		
		btSimulation(0.2,3)
		
		UpdateLlantas%( MC.TMontacarga ) 
		UpdateVolante%( MC.TMontacarga )
		UpdateFreno%  ( MC.TMontacarga )
		UpdateMotor%  ( MC.TMontacarga )
		UpdateElevador%(MC.TMontacarga )
		If (KeyDown(KEY_E%) ) Then 
			
			btBodyApplyForce ( MC\pxChassis%, 0, 500, 0 ) 
			
		End If 
		
		
		
		
		
		
		UpdateWorld
		;MouseLook( oCamara\camara% )
		
		
		
	Next
		
		
		
		
	
	
	btVehicleSetTimeStep( MC\vehiculo%, tween# )
	
	
	
	
	
	
	
	
	
	PointEntity ( oCamara\camara%, MC\chassis\malla% )
	UpdateShadows ( MC\chassis\malla%,tween# ) 
	RenderWorld tween#
	Text ( 10, 10, "FPS :" + FPS%() )
	Text ( 10, 30, x# )
	
	btDebugDrawWorld( oCamara\camara% )
	Flip True
	
	
	
	
	
Wend 


; - Liberando Memoria.
; -------------------

DeInit_TG3D%()
DeInit_TCamara%()
DeInit_TLuz%()
DeInit_TPrimitiva%()
DeInit_TTextura%()
Deinit_TMalla%()
DeInit_TSombras%()
DeInit_TMontaCarga%()
DeInit_TSuelo%()

; - Fin Programa.
; -------------------
btDestroyWorld()
DeInitExt()
ClearWorld()
EndGraphics()
End

steve_ancell

(Posted 2016) [#2]

what a tween

If you're talking about animation then I would assume a tween is a method for generating frames between two poses.

Yue	(Posted 2016) [#3]

Hi, here:


Repeat  :  elapsed = MilliSecs() - time  :  Until elapsed
	ticks = elapsed / period
	tween# = Float(elapsed Mod period) / Float(period)
	For k=1 To ticks
		time = time + period
		If k = ticks Then CaptureWorld
		
		btSimulation(0.2,3)
		
		UpdateLlantas%( MC.TMontacarga ) 
		UpdateVolante%( MC.TMontacarga )
		UpdateFreno%  ( MC.TMontacarga )
		UpdateMotor%  ( MC.TMontacarga )
		UpdateElevador%(MC.TMontacarga )
		If (KeyDown(KEY_E%) ) Then 
			
			btBodyApplyForce ( MC\pxChassis%, 0, 500, 0 ) 
			
		End If 
		
		
		
		
		
		
		UpdateWorld
		;MouseLook( oCamara\camara% )
		
		
		
	Next

I mean interpolation , where apparently on slow machines even lower FPS animations move without losing fluidity.