Aso you could do this:
sync on
sync rate 0
for x=1 to 1000
make object cube x,10
position object x,rnd(1000),0,rnd(1000)
next x
make object cone 1001,10
xrotate object 1001,90
make camera 1
make camera 2
set current camera 1
color backdrop 0
set current camera 2
color backdrop RGB(0,128,255)
position camera 2,500,300,500
point camera 2, 500,0,500
set current camera 1
set camera to image 2,1,512,512
do
set cursor 0,260
print screen fps()
for x=1 to 1000
if object in screen(x)=1
color object x,RGB(255,255,255)
else
color object x,RGB(37,37,37)
endif
next x
position camera 2,camera position X(1),300,camera position Z(1)
point camera 2,camera position X(1),0,camera position Z(1)
position object 1001,camera position X(1),0,camera position Z(1)
if upkey()=1 then move camera 1
if downkey()=1 then move camera -1
if leftkey()=1 then dec y
if rightkey()=1 then inc y
yrotate camera 1,y
yrotate object 1001,y
sprite 1,0,0,1
size sprite 1,320,240
sync
loop
Which looks as though its a torch.
SSDD
Same Sh** Different Day
