Thx for the replies.
But I still can't seem to find out what the radius is, since I don't know what's the position of the center of the circle, or the Theta angle.
Here's a little code I've made.
The radius there is a given.
sync on
sync rate 30
make object cube 1,10
make object sphere 2,10
position object 1,25,0,25
position object 2,50,0,0
position camera 0,100,0:point camera 0,0,0
angle#=0
global radius# as float
radius#=50.0
do
position object 1,0,0,0
point object 1,0,0,0
yrotate object 1,angle#
move object 1,-50
angle#=wrapvalue(angle#+0.4)
x#=object position x(1)^2
Z#=sqrt(2500-x#)
text 10,10,"angle: "+str$(find_angle(1,2))
text 10,20,"object position on Z axis: "+str$(Z#)
text 10,30,"object position on X axis: "+str$(object position x(1))
text 10,40,"radius: "+str$(radius#)
sync
loop
function dist_obj(o,o2)
ox#=object position x(o2)
oz#=object position z(o2)
oy#=object position y(o2)
dx#=object position x(o)-ox#
dz#=object position z(o)-oz#
dy#=object position y(o)-oy#
dist#=sqrt((dx#*dx#)+(dz#*dz#)+(dy#*dy#))
endfunction dist#
function find_angle(o,o2)
dist#=dist_obj(1,2)
tworadius#=radius#*2
sinusangle#=(dist#/tworadius#)
angle#=asin(sinusangle#)
angle#=angle#*2
if object position z(o2)>object position z(o) then angle#=0-angle#
endfunction angle#
