Is it something like this that you want?
Rem Project: spherical coords
Rem Created: 24/05/2003 10:11:04
Rem ***** Main Source File *****
sync on : sync rate 30 : autocam off
`variables
position_mag#=4.0
`make objects
make object plain 1, 20, 20
yrotate object 1, 90
fix object pivot 1
make object sphere 2, 4
position object 2, 0.0, 8.0, 0.0
`position camera
position camera 0, 0.0, 0.0, -50.0
point camera 0, 0.0, 0.0, 0.0
`main loop
do
`rotate plane
zrotate object 1, object angle z(1)+5.0
yrotate object 1, object angle y(1)+5.0
`position sphere on plane
x_position#=position_mag#*(cos(object angle z(1))*sin(object angle y(1)))
y_position#=position_mag#*(sin(object angle z(1))*sin(object angle y(1)))
z_position#=position_mag#*cos(object angle y(1))
position object 2, x_position#, y_position#, z_position#
sync
loop
project: light/obscurance mapper (80% done)
