private package Tiles.Atlases is
type Atlas is new Limited_Object with private;
type A_Atlas is access all Atlas'Class;
function Create_Atlas
( | display | : not null A_Allegro_Display; |
pageWidth, pageHeight | : Positive ) return A_Atlas; |
procedure Add_Bitmap
( | this | : not null access Atlas'Class; |
bmp | : in out A_Allegro_Bitmap ); |
procedure Save_Bitmaps
( | this | : not null access Atlas'Class; |
name | : String ); |