package Tiles.Libraries is
type Tile_Library is new Limited_Object with private;
type A_Tile_Library is access all Tile_Library'Class;
function Get_Id
( | this | : not null access Tile_Library'Class; |
name | : String ) return Natural; |
function Get_Name
( | this | : not null access Tile_Library'Class ) return String; |
function Get_Matrix
( | this | : not null access Tile_Library'Class; |
index | : Natural ) return A_Tile_Matrix; |
function Get_Matrix_Count
( | this | : not null access Tile_Library'Class ) return Natural; |
function Get_Tile
( | this | : not null access Tile_Library'Class; |
id | : Natural ) return A_Tile; |
function Is_Loaded
( | this | : not null access Tile_Library'Class ) return Boolean; |
procedure Iterate_By_Id
( | this | : not null access Tile_Library'Class; |
examine | : not null access procedure( tile : not null A_Tile ) ); |
procedure Iterate_By_Slot
( | this | : not null access Tile_Library'Class; |
examine | : not null access procedure( slot : Positive; | |
tile | : A_Tile ) ); |
procedure Load_Bitmaps
( | this | : not null access Tile_Library'Class ); |