Thanks latch
I'll add that to my FOV demo
`hide screen
set gamma 0,0,0
`setup
set display mode 1024,768,32
hide mouse
sync on : sync rate 60
`define colours
white=rgb(255,255,255)
blue=rgb(40,150,190)
`make cubes
for c = 1 to 99
make object cube c,20
color object c,blue
set object specular c,white,2
set object ambient c,blue
position object c,(c-50)*30,0,0
yrotate object c,45
next c
`make center and focus discs
for p = 100 to 101
make object cylinder p,40
scale object p,100,1,100
set object p,1,1,1,1,0,1,1
ghost object on p
next p
`colour and position center disc
color object 101,blue
position object 101,0,16,0
`setup camera and screen viewport
position camera 0,100,-100
set camera view 0,100,screen width(),screen height()-100
`format text
ink white,0
set text opaque
`set initial FOV and focus
fov#=3.14/2.905 : `default FOV
deg#=(fov#*(180.0/3.14)) : `default angle
set camera fov fov#
focus=50
`show screen
set gamma 255,255,255
`---------------------
` MAIN LOOP
`---------------------
DO
`get inputs
u=upkey() : d=downkey() : l=leftkey() : r=rightkey()
`alter object focus
focus = focus+(r*1)-(l*1)
if focus < 1 then focus = 1
if focus > 99 then focus = 99
fx=object position x(focus)
position object 100,fx,-16,0
point camera fx,0,0
`alter FOV from input
remstart
fov# = fov# + (u*0.01) - (d*0.01)
if fov#<0.01 then fov#=0.01
set camera fov fov#
remend
`Alter FOV angle from input
inc deg#,(u*1)-(d*1)
radians#=deg#/(180.0/3.14)
set camera fov radians#
`print info (spaces added to the end for erasing old values)
text 10,10,"Camera FOV Angle {Radians}: "+str$(deg#)+" {"+str$(radians#)+"} "
text 10,25,"Observing Object: "+str$(focus)+" "
`update screen
sync
LOOP
ping!
"You must be someone's friend to make comments about them." - MySpace lied.
