| 123456789101112131415161718192021222324252627282930313233343536373839404142 |
- ; TurnEntity Example
- ; ------------------
- Graphics3D 640,480
- SetBuffer BackBuffer()
- camera=CreateCamera()
- light=CreateLight()
- cone=CreateCone( 32 )
- PositionEntity cone,0,0,5
- While Not KeyDown( 1 )
- ; Reset turn values - otherwise, the cone will not stop turning!
- pitch#=0
- yaw#=0
- roll#=0
- ; Change movement values depending on the key pressed
- If KeyDown( 208 )=True Then pitch#=-1
- If KeyDown( 200 )=True Then pitch#=1
- If KeyDown( 203 )=True Then yaw#=-1
- If KeyDown( 205 )=True Then yaw#=1
- If KeyDown( 45 )=True Then roll#=-1
- If KeyDown( 44 )=True Then roll#=1
- ; Move sphere using movement values
- TurnEntity cone,pitch#,yaw#,roll#
- RenderWorld
- Text 0,0,"Use cursor/Z/X keys to turn cone"
- Text 0,20,"Pitch: "+pitch#
- Text 0,40,"Yaw: "+yaw#
- Text 0,60,"Roll: "+roll#
- Flip
- Wend
- End
|
