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