1. with Allegro.Truecolor;                 use Allegro.Truecolor; 
  2. with Drawing_Contexts;                  use Drawing_Contexts; 
  3.  
  4. package Physics.Drawing is 
  5.  
  6.     -- Draws the clipping shape of a tile at x, y on the given context. 'size' 
  7.     -- is the width/height of the tile to draw. 
  8.     procedure Draw( dc      : Drawing_Context; 
  9.                     cType   : Clip_Type; 
  10.                     x, y    : Integer; 
  11.                     size    : Positive; 
  12.                     color   : Color_Type; 
  13.                     opacity : Natural := 255 ); 
  14.     pragma Precondition( opacity <= 255 ); 
  15.  
  16. end Physics.Drawing;