1. -- 
  2. -- Copyright (c) 2013 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.Bitmaps;                   use Allegro.Bitmaps; 
  10.  
  11. package xBR is 
  12.  
  13.     -- Initialize must be called before any of the scaling procedures below. 
  14.     -- Calling this more than once will have no effect. 
  15.     procedure Initialize; 
  16.  
  17.     -- 2xBR v3.3a (Square style) 
  18.     -- 
  19.     -- The dimensions of 'output' must be large enough to contain 'input' when 
  20.     -- scaled by 2x and drawn onto 'output' at 'destX','destY'. 
  21.     procedure xBR2( input, output : not null A_Allegro_Bitmap; 
  22.                     destX, destY  : Integer ); 
  23.  
  24.     -- 3xBR v3.3a (Square style) 
  25.     -- 
  26.     -- The dimensions of 'output' must be large enough to contain 'input' when 
  27.     -- scaled by 3x and drawn onto 'output' at 'destX','destY'. 
  28.     procedure xBR3( input, output : not null A_Allegro_Bitmap; 
  29.                     destX, destY  : Integer ); 
  30.  
  31.     -- 4xBR v3.3a (Square style) 
  32.     -- 
  33.     -- The dimensions of 'output' must be large enough to contain 'input' when 
  34.     -- scaled by 4x and drawn onto 'output' at 'destX','destY'. 
  35.     procedure xBR4( input, output : not null A_Allegro_Bitmap; 
  36.                     destX, destY  : Integer ); 
  37.  
  38. end xBR;