Set Display Mode 1024,768,32
c=1
MAKE OBJECT BOX 1,1,2,3
Make Camera 1
Make Camera 2
Make Camera 3
Position Camera 1,0,0.375,-2.25
Position Camera 2,-18.2,2.9,20.8
Position Camera 3,-2.3,5.4,-51.5
Point Camera 1,0,0,0
Point Camera 2,0,0,0
Point Camera 3,0,0,0
Set Current Camera c
Do
Set Cursor 1,1: Print "X: ",Camera Position X()
Set Cursor 1,25: Print "Angle X: ",Camera Angle X()
Set Cursor 1,50: Print "Y: ",Camera Position Y()
Set Cursor 1,75: Print "Angle Y: ",Camera Angle Y()
Set Cursor 1,100: Print "Z: ",Camera Position Z()
Set Cursor 1,125: Print "Angle Z: ",Camera Angle Z()
Set Cursor 1,150: Print "Camera: ",c
Gosub camercontrol
Loop
camercontrol:
If Inkey$()="1"
c=1
Set Current Camera c
Return
EndIf
If Inkey$()="2"
c=2
Set Current Camera c
Return
EndIf
If Inkey$()="3"
c=3
Set Current Camera c
Return
EndIf
Return
Why doesn't pressing 1, 2, or 3 change the view? Have I got the concept of cameras completely wrong? And why is the background green, instead of blue, when you only have one camera?
