with Allegro.Truecolor; use Allegro.Truecolor;
with Drawing_Contexts; use Drawing_Contexts;
package Physics.Drawing is
-- Draws the clipping shape of a tile at x, y on the given context. 'size'
-- is the width/height of the tile to draw.
procedure Draw( dc : Drawing_Context;
cType : Clip_Type;
x, y : Integer;
size : Positive;
color : Color_Type;
opacity : Natural := 255 );
pragma Precondition( opacity <= 255 );
end Physics.Drawing;