1. -- 
  2. -- Copyright (c) 2012 Kevin Wellwood 
  3. -- All rights reserved. 
  4. -- 
  5. -- This source code is distributed under the Modified BSD License. For terms and 
  6. -- conditions, see license.txt. 
  7. -- 
  8.  
  9. with Allegro.Color;                     use Allegro.Color; 
  10.  
  11. package Physics.Drawing is 
  12.  
  13.     -- Draws the clipping shape of a tile at x, y on the drawing target. The 
  14.     -- clipping shape is determined by the tile's clipping type in 'cType'. 
  15.     -- 'size' is the width/height of the tile in pixels. 
  16.     procedure Draw( cType : Clip_Type; 
  17.                     x, y  : Integer; 
  18.                     size  : Positive; 
  19.                     color : Allegro_Color ); 
  20.  
  21. end Physics.Drawing;