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.Truecolor;                 use Allegro.Truecolor; 
  10. with Drawing_Contexts;                  use Drawing_Contexts; 
  11.  
  12. package Physics.Drawing is 
  13.  
  14.     -- Draws the clipping shape of a tile at x, y on the given context. The 
  15.     -- clipping shape is determined by the tile's clipping type in 'cType'. 
  16.     -- 'size' is the width/height of the tile in pixels. 
  17.     procedure Draw( dc      : Drawing_Context; 
  18.                     cType   : Clip_Type; 
  19.                     x, y    : Integer; 
  20.                     size    : Positive; 
  21.                     color   : Color_Type; 
  22.                     opacity : Natural := 255 ); 
  23.     pragma Precondition( opacity <= 255 ); 
  24.  
  25. end Physics.Drawing;