type A_Allegro_State is access all Allegro_State;
ALLEGRO_STATE_NEW_DISPLAY_PARAMETERS : constant Allegro_State_Flags := 16#0001#;
ALLEGRO_STATE_NEW_BITMAP_PARAMETERS : constant Allegro_State_Flags := 16#0002#;
ALLEGRO_STATE_DISPLAY : constant Allegro_State_Flags := 16#0004#;
ALLEGRO_STATE_TARGET_BITMAP : constant Allegro_State_Flags := 16#0008#;
ALLEGRO_STATE_BLENDER : constant Allegro_State_Flags := 16#0010#;
ALLEGRO_STATE_NEW_FILE_INTERFACE : constant Allegro_State_Flags := 16#0020#;
ALLEGRO_STATE_TRANSFORM : constant Allegro_State_Flags := 16#0040#;
ALLEGRO_STATE_BITMAP : constant Allegro_State_Flags := ALLEGRO_STATE_TARGET_BITMAP or ALLEGRO_STATE_NEW_BITMAP_PARAMETERS;
ALLEGRO_STATE_ALL : constant Allegro_State_Flags := 16#ffff#;
procedure Al_Store_State
( | state | : in out Allegro_State; |
flags | : Allegro_State_Flags ); |
procedure Al_Restore_State
( | state | : in out Allegro_State ); |