1. -- The procedures in this package are not part of Allegro but are helper 
  2. -- routines for providing direct access to memory bitmaps. 
  3. -- 
  4. -- Warning: 
  5. -- No checking is done for the type of bitmap- it MUST be a memory bitmap- 
  6. -- and no bounds checking is done on the pixel coordinates. Be sure you 
  7. -- know what you're doing! 
  8. package Allegro.Bitmaps.Direct_Access is 
  9.  
  10.     function Memory_Getpixel_15_or_16_bpp( bmp  : not null A_Bitmap; 
  11.                                            x, y : Natural ) return Color_Type; 
  12.  
  13.     function Memory_Getpixel_32( bmp  : not null A_Bitmap; 
  14.                                  x, y : Natural ) return Color_Type; 
  15.  
  16.     procedure Memory_Putpixel_15_or_16_bpp( bmp   : not null A_Bitmap; 
  17.                                             x, y  : Natural; 
  18.                                             color : Color_Type ); 
  19.  
  20.     procedure Memory_Putpixel_32( bmp   : not null A_Bitmap; 
  21.                                   x, y  : Natural; 
  22.                                   color : Color_Type ); 
  23.  
  24. private 
  25.  
  26.     pragma Import( C, Memory_Getpixel_15_or_16_bpp, "memory_getpixel_15_or_16_bpp" ); 
  27.     pragma Import( C, Memory_Getpixel_32,           "memory_getpixel_32" ); 
  28.     pragma Import( C, Memory_Putpixel_15_or_16_bpp, "memory_putpixel_15_or_16_bpp" ); 
  29.     pragma Import( C, Memory_Putpixel_32,           "memory_putpixel_32" ); 
  30.  
  31. end Allegro.Bitmaps.Direct_Access;