Sorry your browser is not supported!

autocam off
position camera 0, 30, 0
point camera 0, 0, 0, 0

make object cube 1, .1 `origin object 
make object cube 2, .1 `point 1 object
make object cube 3, .1 `point 2 object

position object 1, 0, 0, 0 `origin object is stationary in the center
position object 2, 0, 0, 10 `point 1 object is stationary at 12 o'clock

do
    Angle# = wrap(Angle# + .01, 0, 360)
`   quick and dirty way to make object 3 orbit origin
    position object 3, 0, 0, 0 `1) position oject at origin
    rotate object 3, 0, Angle#, 0 `2) apply angle rotation
    move object 3, 10 `3) move object out 10 units
    
    ox# = object position x(1)
    oy# = object position y(1)
    oz# = object position z(1)
    
    p1x# = object position x(2)
    p1y# = object position y(2)
    p1z# = object position z(2)
    
    p2x# = object position x(3)
    p2y# = object position y(3)
    p2z# = object position z(3)
`   get ezro's angle
    EZroResult# = ezro_anglebetweenpoints(ox#, oy#, oz#, p1x#, p1y#, p1z#, p2x#, p2y#, p2z#)
    
    set cursor 0, 0
    print "True Angle: ", Angle#
    print "EZro Angle: ", EZroResult#
    set cursor object screen x(1), object screen y(1) : print "ORIGIN"
    set cursor object screen x(2), object screen y(2) : print "POINT 1"
    set cursor object screen x(3), object screen y(3) : print "POINT 2"
loop

print ezro_anglebetweenpoints(0, 0, 0, 1, 0, 0, 0, 1, 0)
wait key

function AngleBetweenPoints(fOX as float, fOY as float, fOZ as float, fP1X as float, fP1Y as float, fP1Z as float, fP2X as float, fP2Y as float, fP2Z as float)
    
    x = make vector3(1)
    x = make vector3(2)
    x = make vector3(3)
    
    set vector3 1, fOX, fOY, fOZ
    set vector3 2, fP1X, fP1Y, fP1Z
    set vector3 3, fP2X, fP2Y, fP2Z
    
    x = make vector3(4)
    x = make vector3(5)
    
    subtract vector3 4, 2, 1
    subtract vector3 5, 3, 1
    
    normalize vector3 4, 4
    normalize vector3 5, 5
    
    Angle# = acos(dot product vector3(4, 5))
    
endfunction Angle#