Thanks, you've given me a great start, here is the beginning of my new project. I will be famous because of you....thanks again.
set display mode 800,600,32
for c = 1 to 1000
ink rgb (rnd(255),rnd(255),rnd(255)),0
circle rnd(400), rnd (400), rnd (15)
next c
get image 6,0,0,400,400
ang as float
dist as float
ang = 0.0
dist = 25.0
sync on
sync rate 0
backdrop off
autocam off
position camera 0.0,0.0,-81
make object sphere 1, 10
color object 1, 0xffffff00
PolarToCartesian(1, 0, dist)
`--------------------------
make camera 1
set camera view 1,0,0,200,200
position camera 1 , 0,0,-5
set camera fov 1,45
backdrop off 1
make object plain 2,500,500,1
color object 2, rgb (0,0,255)
texture object 2,6
position object 2,0,0,0
do
sync
ang = wrapvalue(ang+0.2)
PolarToCartesian(1, ang, dist)
if firstloop = 0
point camera 1, object position x(1),object position y(1),0
inc firstloop
endif
zrotate camera 1, - ang
loop
end
function PolarToCartesian(obj as integer, ang as float, dist as float)
position object obj, sin(ang)*dist, cos(ang)*dist, 0
endfunction
.
