Cibertronic

Hola a todos aqui les dejo el codigo comentado de como hacer seguir a la estrella con la camara o algo asi

Graphics3D 640,480,16,2

camara=CreateCamera()
light=CreateLight()

PositionEntity camara,0,10,-25
TurnEntity camara,0,0,0

piso=LoadMesh( "piso.3ds" )
bola=LoadMesh( "bola.3ds" )

ac#=0 ;angulo global del objeto respecto al fondo z
dc#=25 ;distanica de la camara a la estrella

While Not KeyHit(1)


;incrementos relatios para la estrella
x#=0
y#=0
z#=0
ay#=0

;incremento relativo para que la estrella ruede sobre si misma
ax#=0


;controlando los incrementos con las teclas del cursos
If KeyDown(200) Then
z#=0.5
ax#=5
EndIf

If KeyDown(20 Then
z#=-0.5
ax#=-5
EndIf

If KeyDown(203) Then
ay#=1
ac#=ac#+1
EndIf

If KeyDown(205) Then
ay#=-1
ac#=ac#-1
EndIf

;Moviendo(relativamente)/girando el bojeto en la nueva psicion con los incrementos obtenidos

MoveEntity bola,0,0,z#
RotateMesh bola,ax#,0,0
TurnEntity bola,0,ay#,0


;obteniendo las coordenadas absoltas del objeto
zc#=EntityZ(bola,True)
xc#=EntityX(bola,True)

;posicionando la cmara atras del objeto
PositionEntity camara, xc# + dc# * Sin(ac#) , dc ,zc#-dc# * Cos(ac#),True
RotateEntity camara,15,ac#,0

;actualizando el mundo
UpdateWorld
RenderWorld


Flip
Wend

End

Descargar Directa de Archivos ...

RuedaRueda.zip (721.6 KB, 33 visitas)

__________________
Para Jessi