type Allegro_Transform is record m : Float_Matrix_2D(0..3, 0..3); end record;
procedure Al_Use_Transform
( | trans | : Allegro_Transform ); |
procedure Al_Copy_Transform
( | dest | : in out Allegro_Transform; |
src | : Allegro_Transform ); |
procedure Al_Identity_Transform
( | trans | : in out Allegro_Transform ); |
procedure Al_Build_Transform
( | trans | : in out Allegro_Transform; |
x, y | : Float; | |
sx, sy | : Float; | |
theta | : Float ); |
procedure Al_Translate_Transform
( | trans | : in out Allegro_Transform; |
x, y | : Float ); |
procedure Al_Rotate_Transform
( | trans | : in out Allegro_Transform; |
theta | : Float ); |
procedure Al_Scale_Transform
( | trans | : in out Allegro_Transform; |
sx, sy | : Float ); |
procedure Al_Transform_Coordinates
( | trans | : Allegro_Transform; |
x, y | : out Float ); |
procedure Al_Compose_Transform
( | trans | : in out Allegro_Transform; |
other | : Allegro_Transform ); |
function Al_Get_Current_Transform return access Allegro_Transform;
procedure Al_Invert_Transform
( | trans | : in out Allegro_Transform ); |
function Al_Check_Inverse
( | trans | : Allegro_Transform; |
tol | : Float ) return Integer; |