type Matrixbrush is new Tool with private;
type A_Matrixbrush is access all Matrixbrush'Class;
function Create_Matrixbrush
( | matrix | : not null A_Tile_Matrix; |
offsetX, offsetY | : Integer ) return A_Tool; |
function Get_Matrix
( | this | : not null access Matrixbrush'Class ) return A_Tile_Matrix; |
procedure Get_Offset
( | this | : not null access Matrixbrush'Class; |
x, y | : out Integer ); |