with Ada.Real_Time;
with Mage.Draw;
generic
Window : Draw.Window_ID;
Period : Ada.Real_Time.Time_Span;
with procedure Run_Once (Canvas : Draw.Canvas_ID) is <>;
with procedure Init (Canvas : Draw.Canvas_ID) is null;
-- Custom initialization related to canvas, before starting
-- the loop
package Mage.Apps.Simple_Loop is
-- Initialize the canvas, then loop on the given loop procedure,
-- and with the given period
Canvas : Draw.Canvas_ID;
Next : Ada.Real_Time.Time;
procedure Run;
end Mage.Apps.Simple_Loop;