--
-- Jan & Uwe R. Zimmer, Australia, July 2011
with GLOBE_3DTo API docTo specTo body;
package Sphere_PTo API docTo body is
procedure CreateTo API docTo body (object : in out GLOBE_3D.p_Object_3DTo API docTo spec;
Object_Scale : GLOBE_3D.RealTo API docTo spec;
centre : GLOBE_3D.Point_3DTo API docTo spec
);
end Sphere_PTo API docTo specTo body;