Sorry your browser is not supported!

make object sphere 1,5,3,3
make object sphere 2,1,20,20
position object 2,2,2,2
SET OBJECT WIREFRAME 1, 1
lock vertexdata for limb 1,0
VMAX=get vertexdata vertex count()
QX=1
QY=1
QZ=1
A=0
B=A
do
if downkey()=1
if QY=QZ
	if B>-1
	B=B-1
	endif
else
	if B<90
	B=B+1
	endif
endif
If B<0
QY=QZ
QY=-QY
B=0
endif
If B>89
QZ=-QY
QX=QZ
B=89
endif
endif

if leftkey()=1
if QZ=QX
	if A>-1
	A=A-1
	endif
else
	if A<90
	A=A+1
	endif
endif
If A<0
QX=-QZ
A=0
endif
If A>89
QZ=-QZ
QZ=QX
A=89
endif
endif
if rightkey()=1
if QZ=QX
	if A<90
	A=A+1
	endif
else
	if A>-1
	A=A-1
	endif
endif
If A<0
QX=-QX
QX=QZ
A=0
endif
If A>89
QZ=-QX
A=89
endif
endif
position camera QX*8*sin(A)*cos(B),QY*8*sin(A)*sin(B),QZ*8*cos(A)
point camera 0,0,0
repeat 
XYZ=XYZ+1
text 10,10,STR$(VMAX)
text 10,20,STR$(QX)
text 10,30,STR$(QY)
text 10,40,STR$(QZ)
text 10,50,STR$(A)
text 10,60,STR$(B)
until XYZ=20
XYZ=0
loop
wait key

Rem Project: Spherical camera
Rem Created: Saturday, June 15, 2013

Rem ***** Main Source File *****

make object sphere 1,5,3,3
make object sphere 2,1,20,20
position object 2,2,2,2
SET OBJECT WIREFRAME 1, 1
lock vertexdata for limb 1,0
VMAX=get vertexdata vertex count()
QX=1
QY=1
QZ=1
A=0
B=A
do
if downkey()=1
if QY=QX
	if B>-1
	B=B-1
	endif
else
	if B<90
	B=B+1
	endif
endif
If B<0
QY=QX
QY=-QY
B=0
endif
If B>89
QX=QY
B=89
endif
endif

if leftkey()=1
if QZ=QX
	if A>-1
	A=A-1
	endif
else
	if A<90
	A=A+1
	endif
endif
If A<0
QX=-QZ
A=0
endif
If A>89
QZ=-QZ
QZ=QX
A=89
endif
endif
if rightkey()=1
if QZ=QX
	if A<90
	A=A+1
	endif
else
	if A>-1
	A=A-1
	endif
endif
If A<0
QX=-QX
QX=QZ
A=0
endif
If A>89
QZ=-QX
A=89
endif
endif
position camera QX*8*sin(A)*cos(B),QY*8*sin(A)*sin(B),QZ*8*cos(A)
point camera 0,0,0
repeat 
XYZ=XYZ+1
text 10,10,STR$(VMAX)
text 10,20,STR$(QX)
text 10,30,STR$(QY)
text 10,40,STR$(QZ)
text 10,50,STR$(A)
text 10,60,STR$(B)
until XYZ=20
XYZ=0
loop
wait key