Code:
:getYAngleBetweenPoints
{
Parameters:
Passed:
0@ - origin X
1@ - origin Y
2@ - origin Z
3@ - destination X
4@ - destination Y
5@ - destination Z
Result:
7@ - absolute Y angle
Example:
0AB1: call_scm_func @getYAngleBetweenPoints 6 from_XYZ 0.0 0.0 0.0 and_XYZ 1.0 0.0 0.0 store_to 1@
}
0509: 6@ = distance_between_XY 0@ 1@ and_XY 3@ 4@
0063: 2@ -= 5@
0604: get_Z_angle_for_point 6@ 2@ store_to 7@
0AB2: ret 1 7@
:getZAngleBetweenPoints
{
Parameters:
Passed:
0@ - origin X
1@ - origin Y
2@ - destination X
3@ - destination Y
Result:
4@ - absolute Z angle
Example:
0AB1: call_scm_func @getZAngleBetweenPoints 4 from_XY 0.0 0.0 and_XY 1.0 0.0 store_to 1@
}
0063: 0@ -= 2@
0063: 1@ -= 3@
0604: get_Z_angle_for_point 0@ 1@ store_to 4@
0AB2: ret 1 4@