Checking whether two lines or two spheres in space are orthogonal

See Section 26.15.13 for checking for orthogonality in 2D geometry.

The is_orthogonal command determines whether or not two objects are orthogonal.

is_orthogonal takes two arguments: L,P, which can be two lines, two spheres, two planes or a line and a plane.
is_orthogonal(L,P) returns 1 is the objects are orthogonal and 0 otherwise.

is_orthogonal(line([2,3,-2],[-1,-1,-1]),line([1,0,0],[1,2,8]))

is_orthogonal(line([2,3,-2],[-1,-1,-1]),plane([-1,-1,-1],[-1,0,3],[-2,0,0]))

is_orthogonal(plane([0,0,0],[1,2,-3],[1,1,-2]),plane([-1,-1,-1],[1,2,-3],[0,0,0]))

is_orthogonal(sphere([0,0,0],sqrt(2)),sphere([2,0,0],sqrt(2)))