1with agar.core.types;
2with agar.gui.widget;
3with agar.gui.rect;
4
5package agar.gui.draw is
6
7  procedure box
8    (widget : agar.gui.widget.widget_access_t;
9     rect   : agar.gui.rect.rect_t;
10     color  : agar.core.types.uint32_t);
11  pragma import (c, box, "agar_draw_box");
12
13  procedure box_rounded
14    (widget : agar.gui.widget.widget_access_t;
15     rect   : agar.gui.rect.rect_t;
16     z      : natural;
17     radius : natural;
18     color  : agar.core.types.uint32_t);
19  pragma inline (box_rounded);
20
21  procedure box_rounded_top
22    (widget : agar.gui.widget.widget_access_t;
23     rect   : agar.gui.rect.rect_t;
24     z      : natural;
25     radius : natural;
26     color  : agar.core.types.uint32_t);
27  pragma inline (box_rounded_top);
28
29  procedure frame
30    (widget : agar.gui.widget.widget_access_t;
31     rect   : agar.gui.rect.rect_t;
32     color  : agar.core.types.uint32_t);
33  pragma import (c, frame, "agar_draw_frame");
34
35  procedure circle
36    (widget : agar.gui.widget.widget_access_t;
37     x      : natural;
38     y      : natural;
39     radius : natural;
40     color  : agar.core.types.uint32_t);
41  pragma inline (circle);
42
43  procedure circle2
44    (widget : agar.gui.widget.widget_access_t;
45     x      : natural;
46     y      : natural;
47     radius : natural;
48     color  : agar.core.types.uint32_t);
49  pragma inline (circle2);
50
51  procedure line
52    (widget : agar.gui.widget.widget_access_t;
53     x1     : natural;
54     y1     : natural;
55     x2     : natural;
56     y2     : natural;
57     color  : agar.core.types.uint32_t);
58  pragma inline (line);
59
60  procedure line_horizontal
61    (widget : agar.gui.widget.widget_access_t;
62     x1     : natural;
63     x2     : natural;
64     y      : natural;
65     color  : agar.core.types.uint32_t);
66  pragma inline (line_horizontal);
67
68  procedure line_vertical
69    (widget : agar.gui.widget.widget_access_t;
70     x      : natural;
71     y1     : natural;
72     y2     : natural;
73     color  : agar.core.types.uint32_t);
74  pragma inline (line_vertical);
75
76  procedure rect_outline
77    (widget : agar.gui.widget.widget_access_t;
78     rect   : agar.gui.rect.rect_t;
79     color  : agar.core.types.uint32_t);
80  pragma import (c, rect_outline, "agar_draw_rect_outline");
81
82  procedure rect_filled
83    (widget : agar.gui.widget.widget_access_t;
84     rect   : agar.gui.rect.rect_t;
85     color  : agar.core.types.uint32_t);
86  pragma import (c, rect_filled, "agar_draw_rect_filled");
87
88end agar.gui.draw;
89