1. -- 
  2. -- Jan & Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. with GLOBE_3D; 
  6.  
  7. package Spaceship_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. end Spaceship_P;