blitz-research
47 lines
1.1 KiB
BlitzBasic
47 lines
1.1 KiB
BlitzBasic
; TranslateEntity Example
|
|
; -----------------------
|
|
|
|
Graphics3D 640,480
|
|
SetBuffer BackBuffer()
|
|
|
|
camera=CreateCamera()
|
|
light=CreateLight()
|
|
|
|
cone=CreateCone( 32 )
|
|
|
|
; Translate cone in front of camera, so we can see it to begin with
|
|
TranslateEntity cone,0,0,10
|
|
|
|
While Not KeyDown( 1 )
|
|
|
|
; Reset translation values - otherwise, the cone will not stop!
|
|
x#=0
|
|
y#=0
|
|
z#=0
|
|
|
|
; Change translation values depending on the key pressed
|
|
If KeyDown( 203 )=True Then x#=-0.1
|
|
If KeyDown( 205 )=True Then x#=0.1
|
|
If KeyDown( 208 )=True Then y#=-0.1
|
|
If KeyDown( 200 )=True Then y#=0.1
|
|
If KeyDown( 44 )=True Then z#=-0.1
|
|
If KeyDown( 30 )=True Then z#=0.1
|
|
|
|
; Translate sphere using translation values
|
|
TranslateEntity cone,x#,y#,z#
|
|
|
|
; If spacebar pressed then rotate cone by random amount
|
|
If KeyHit( 57 )=True Then RotateEntity cone,Rnd( 0,360 ),Rnd( 0,360 ),Rnd( 0,360 )
|
|
|
|
RenderWorld
|
|
|
|
Text 0,0,"Use cursor/A/Z keys to translate cone, spacebar to rotate cone by random amount"
|
|
Text 0,20,"X Translation: "+x#
|
|
Text 0,40,"Y Translation: "+y#
|
|
Text 0,60,"Z Translation: "+z#
|
|
|
|
Flip
|
|
|
|
Wend
|
|
|
|
End |