geomland.suptype :obj Gets :obj`s superior object type.
to geomland.suptype :obj make local "t type :obj if (:t="segment) or (:t="ray) [output "line] output :t end