angle3d(s,p)=angle3d(p,s)
angle3d(r,p)=angle3d(p,r)
angle3d(p,s)=angle3d(p,line(s))
if geometry_status=2 then angle=angle2d else angle=angle3d end