1. -- 
  2.  -- Jan & Uwe R. Zimmer, Australia, July 2011 
  3.  -- 
  4.  
  5. with GLOBE_3D; 
  6.  
  7. package Sphere_P is 
  8.  
  9.   procedure Create (object       : in out GLOBE_3D.p_Object_3D; 
  10.                     Object_Scale :        GLOBE_3D.Real; 
  11.                     centre       :        GLOBE_3D.Point_3D 
  12.   ); 
  13.  
  14. end Sphere_P;