1. -- 
  2. -- Jan & Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. with Callback_Procedures; use Callback_Procedures; 
  6. with Graphics_Setup;      use Graphics_Setup; 
  7. with Exceptions;          use Exceptions; 
  8. with GLUT; 
  9.  
  10. procedure Swarm is 
  11.  
  12. begin 
  13.    Initialize_Graphics (Main_Operations'Access); 
  14.    GLUT.MainLoop; 
  15. exception 
  16.    when E : others => Show_Exception (E); 
  17. end Swarm;