package Drawing is
procedure Push_State;
procedure Pop_State;
procedure Set_Target_Bitmap
( | bmp | : not null A_Allegro_Bitmap ); |
function Get_Target_Bitmap return A_Allegro_Bitmap;
function Get_Target_Width return Natural;
function Get_Target_Height return Natural;
procedure Clear_To_Color
( | color | : Allegro_Color ); |
procedure Draw_Bitmap
( | bmp | : A_Allegro_Bitmap; |
x, y | : Integer ); |
procedure Draw_Bitmap_Stretched
( | bmp | : A_Allegro_Bitmap; |
x, y | : Integer; | |
width, height | : Positive; | |
proportional | : Boolean := False ); |
procedure Draw_Bitmap_Region_Stretched
( | bmp | : A_Allegro_Bitmap; |
srcX, srcY | : Integer; | |
srcWidth, srcHeight | : Positive; | |
destX, destY | : Integer; | |
destWidth, destHeight | : Positive ); |
procedure Draw_String
( | str | : String; |
x, y | : Integer; | |
font | : A_Font; | |
color | : Allegro_Color ); |
procedure Line_H
( | x1, x2 | : Integer; |
y | : Integer; | |
color | : Allegro_Color ); |
procedure Line_V
( | x | : Integer; |
y1, y2 | : Integer; | |
color | : Allegro_Color ); |
procedure Rect
( | x1, y1, x2, y2 | : Integer; |
color | : Allegro_Color ); |
procedure Rectfill
( | x1, y1, x2, y2 | : Integer; |
color | : Allegro_Color ); |
procedure Rectfill_Additive
( | x1, y1, x2, y2 | : Integer; |
color | : Allegro_Color ); |
procedure Triangle
( | x1, y1 | : Integer; |
x2, y2 | : Integer; | |
x3, y3 | : Integer; | |
color | : Allegro_Color ); |
procedure Triangle_Filled
( | x1, y1 | : Integer; |
x2, y2 | : Integer; | |
x3, y3 | : Integer; | |
color | : Allegro_Color ); |
function To_Filter
( | name | : String; |
default | : Filter_Type := Filter_Type'First ) return Filter_Type; |
function To_Name
( | filter | : Filter_Type ) return String; |