ANIMASI BLITZ3D

PostBY:tonomaryono
Untuk kali ini kita Akan membuat 3danimasi Dan seperti biasa Sofwarenya pakai BLITZ3D
Ini Dia Codenya... Copykan saja Ke BLITZ3D
Global info1$="Animation demo"
Global info2$="Hold down <return> to run"
Global info3$="Hit <space> to toggle transitions"

Include "../start.bb"

mesh_3ds=LoadAnimMesh( "makbot\mak_robotic.3ds" )    ;anim seq 0
LoadAnimSeq mesh_3ds,"makbot\mak_running.3ds"        ;anim seq 1
PositionEntity mesh_3ds,-15,-15,0

mesh_x=LoadAnimMesh( "makbot\mak_robotic.x" )        ;anim seq 0
LoadAnimSeq mesh_x,"makbot\mak_running.x"            ;anim seq 1
PositionEntity mesh_x,+15,-15,0

pivot=CreatePivot()
cam=CreateCamera( pivot )
PositionEntity cam,0,0,-100

lit=CreateLight()
RotateEntity lit,45,45,0

Animate mesh_3ds,2    ;start ping-pong anims...
Animate mesh_x,  2

trans=10

While Not KeyHit(1)

    If KeyHit(57)
        trans=10-trans
    EndIf

    If KeyDown(28)
        If AnimSeq(mesh_3ds)=0 Animate mesh_3ds,1,.5,1,trans
        If AnimSeq(mesh_x  )=0 Animate mesh_x,  1,.5,1,trans
    Else
        If AnimSeq(mesh_3ds)=1 Animate mesh_3ds,2,1,0,trans
        If AnimSeq(mesh_x  )=1 Animate mesh_x  ,2,1,0,trans
    EndIf
  
    If KeyDown(30) MoveEntity cam,0,0,10
    If KeyDown(44) MoveEntity cam,0,0,-10
  
    If KeyDown(203) TurnEntity pivot,0,3,0
    If KeyDown(205) TurnEntity pivot,0,-3,0

    UpdateWorld
    RenderWorld
    Text 0,FontHeight()*0,"Anim seq: "+AnimSeq( mesh_3ds )
    Text 0,FontHeight()*1,"Anim len: "+AnimLength( mesh_3ds )
    Text 0,FontHeight()*2,"Anim time:"+AnimTime( mesh_3ds )
  
    Text 0,FontHeight()*4,"Anim seq: "+AnimSeq( mesh_x )
    Text 0,FontHeight()*5,"Anim len: "+AnimLength( mesh_x )
    Text 0,FontHeight()*6,"Anim time:"+AnimTime( mesh_x )
  
    Text 0,FontHeight()*8,"Transition time="+trans
    Flip
  
Wend

End
selamat mencoba