package Allegro.Drawing is
type Point_Array is array (Integer range <>) of Point;
type A_Draw_Proc is access procedure( bmp : A_Bitmap; x, y : Integer; d : Integer );
procedure Arc
( | bmp | : not null A_Bitmap; |
x, y | : Integer; | |
ang1, ang2 | : Fixed; | |
r | : Integer; | |
color | : Color_Type ); |
procedure Circle
( | bmp | : not null A_Bitmap; |
x, y, radius | : Integer; | |
color | : Color_Type ); |
procedure Circlefill
( | bmp | : not null A_Bitmap; |
x, y, radius | : Integer; | |
color | : Color_Type ); |
procedure Clear_Bitmap
( | bmp | : not null A_Bitmap ); |
procedure Clear_To_Color
( | bmp | : not null A_Bitmap; |
color | : Color_Type ); |
procedure Clear_To_Transparent
( | bmp | : not null A_Bitmap ); |
procedure Do_Arc
( | bmp | : not null A_Bitmap; |
x, y, a1, a2 | : Fixed; | |
r | : Integer; | |
d | : Integer; | |
proc | : not null A_Draw_Proc ); |
procedure Do_Circle
( | bmp | : not null A_Bitmap; |
x, y, radius | : Integer; | |
d | : Integer; | |
proc | : not null A_Draw_Proc ); |
procedure Do_Ellipse
( | bmp | : not null A_Bitmap; |
x, y, rx, ry | : Integer; | |
d | : Integer; | |
proc | : not null A_Draw_Proc ); |
procedure Do_Line
( | bmp | : not null A_Bitmap; |
x1, y1, x2, y2 | : Integer; | |
d | : Integer; | |
proc | : not null A_Draw_Proc ); |
procedure Ellipse
( | bmp | : not null A_Bitmap; |
x, y, rx, ry | : Integer; | |
color | : Color_Type ); |
procedure Ellipsefill
( | bmp | : not null A_Bitmap; |
x, y, rx, ry | : Integer; | |
color | : Color_Type ); |
procedure Fastline
( | bmp | : not null A_Bitmap; |
x1, y1, x2, y2 | : Integer; | |
color | : Color_Type ); |
procedure Floodfill
( | bmp | : not null A_Bitmap; |
x, y | : Integer; | |
color | : Color_Type ); |
function Getpixel
( | bmp | : not null A_Bitmap; |
x, y | : Integer ) return Color_Type; |
procedure Hline
( | bmp | : not null A_Bitmap; |
x1, y, x2 | : Integer; | |
color | : Color_Type ); |
procedure Line
( | bmp | : not null A_Bitmap; |
x1, y1, x2, y2 | : Integer; | |
color | : Color_Type ); |
procedure Polygon
( | bmp | : not null A_Bitmap; |
points | : Point_Array; | |
color | : Color_Type ); |
procedure Putpixel
( | bmp | : not null A_Bitmap; |
x, y | : Integer; | |
color | : Color_Type ); |
procedure Rect
( | bmp | : not null A_Bitmap; |
x1, y1, x2, y2 | : Integer; | |
color | : Color_Type ); |
procedure Rectfill
( | bmp | : not null A_Bitmap; |
x1, y1, x2, y2 | : Integer; | |
color | : Color_Type ); |
procedure Triangle
( | bmp | : not null A_Bitmap; |
x1, y1, x2, y2, x3, y3 | : Integer; | |
color | : Color_Type ); |
procedure Vline
( | bmp | : not null A_Bitmap; |
x, y1, y2 | : Integer; | |
color | : Color_Type ); |