CS计算机代考程序代写 —

—
— 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;