File : Sources/swarm.adb


--
-- Jan & Uwe R. Zimmer, Australia, July 2011
--

with Callback_Procedures; use Callback_Procedures;
with Graphics_Setup;      use Graphics_Setup;
with Exceptions;          use Exceptions;
with GLUT;

procedure Swarm is

begin
   Initialize_Graphics (Main_Operations'Access);
   GLUT.MainLoop;
exception
   when E : others => Show_Exception (E);
end Swarm;