TurnEntity

Seite: 1

Autor

Beitrag

GastProgrammierer

TurnEntity - Beitrag verfasst: 08.06.2007, 14:42 Uhr

[ Gastposter ]

; TurnEntity

Graphics3D 640,480
SetBuffer BackBuffer()

camera=CreateCamera()
light=CreateLight()

cone=CreateCube( )
PositionEntity cone,0,0,5

While Not KeyDown( 1 )

pitch#=0
yaw#=0
roll#=0

If KeyDown( 208 )=True Then pitch#=-1:drehX=drehX-1
If KeyDown( 200 )=True Then pitch#=1 :drehX=drehX+1
If KeyDown( 203 )=True Then yaw#=-1:drehY=drehY-1
If KeyDown( 205 )=True Then yaw#=1 :drehY=drehY+1
If KeyDown( 45 )=True Then roll#=-1 :drehZ=drehZ-1
If KeyDown( 44 )=True Then roll#=1 :drehZ=drehZ+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#+" XDreh: "+drehx
Text 0,40,"Yaw: "+yaw#+" YDreh: "+drehy
Text 0,60,"Roll: "+roll#+" ZDreh: "+drehz

Flip

Wend

Wieso kann man, wenn man in dem Programm um die X-Achse und gleichzeitig um die Y-Achse dreht, dann nicht mehr auf 0Grad kommen???

End

Nach Oben

Seite: 1

Information

Wo bin ich?

Programming Community » Sprachen » Sonstige Basic Dialekte » TurnEntity

Rechte

Du darfst: Beiträge lesen, Themen eröffnen, auf Beiträge antworten und hier keine Umfragen erstellen

Statistik

Seit dem 31.07.2002 (3476 Tage) wurden 7013 Beiträge in 1977 Themen verfasst.

Wir haben 1278 User und begrüßen unser neustes Mitglied: g.schief

Rekord: 8 registrierte waren gleichzeitig hier (27.07.2006, 14:54 Uhr).
Im Moment: 0 registrierte Benutzer und 1 Gast online!

excel access datum outlook excel mysql sql access datenbank timer string datei auslesen array vb und php sqlite exe exe zu vbp converter uhr mail ftp listbox