diff options
Diffstat (limited to 'src/fltk-draw.adb')
| -rw-r--r-- | src/fltk-draw.adb | 1877 |
1 files changed, 0 insertions, 1877 deletions
diff --git a/src/fltk-draw.adb b/src/fltk-draw.adb deleted file mode 100644 index 4c17674..0000000 --- a/src/fltk-draw.adb +++ /dev/null @@ -1,1877 +0,0 @@ - - -with - - Ada.Unchecked_Deallocation, - Interfaces.C.Strings, - System; - -use type - - Interfaces.C.int, - Interfaces.C.size_t, - System.Address; - - -package body FLTK.Draw is - - - procedure fl_draw_reset_spot; - pragma Import (C, fl_draw_reset_spot, "fl_draw_reset_spot"); - pragma Inline (fl_draw_reset_spot); - - procedure fl_draw_set_spot - (F, S : in Interfaces.C.int; - X, Y, W, H : in Interfaces.C.int; - Ptr : in System.Address); - pragma Import (C, fl_draw_set_spot, "fl_draw_set_spot"); - pragma Inline (fl_draw_set_spot); - - procedure fl_draw_set_status - (X, Y, W, H : in Interfaces.C.int); - pragma Import (C, fl_draw_set_status, "fl_draw_set_status"); - pragma Inline (fl_draw_set_status); - - - - - function fl_draw_can_do_alpha_blending - return Interfaces.C.int; - pragma Import (C, fl_draw_can_do_alpha_blending, "fl_draw_can_do_alpha_blending"); - pragma Inline (fl_draw_can_do_alpha_blending); - - function fl_draw_shortcut_label - (Shortcut : in Interfaces.C.unsigned_long) - return Interfaces.C.Strings.chars_ptr; - pragma Import (C, fl_draw_shortcut_label, "fl_draw_shortcut_label"); - pragma Inline (fl_draw_shortcut_label); - - - - - function fl_draw_latin1_to_local - (T : in Interfaces.C.char_array; - N : in Interfaces.C.int) - return Interfaces.C.Strings.chars_ptr; - pragma Import (C, fl_draw_latin1_to_local, "fl_draw_latin1_to_local"); - pragma Inline (fl_draw_latin1_to_local); - - function fl_draw_local_to_latin1 - (T : in Interfaces.C.char_array; - N : in Interfaces.C.int) - return Interfaces.C.Strings.chars_ptr; - pragma Import (C, fl_draw_local_to_latin1, "fl_draw_local_to_latin1"); - pragma Inline (fl_draw_local_to_latin1); - - function fl_draw_mac_roman_to_local - (T : in Interfaces.C.char_array; - N : in Interfaces.C.int) - return Interfaces.C.Strings.chars_ptr; - pragma Import (C, fl_draw_mac_roman_to_local, "fl_draw_mac_roman_to_local"); - pragma Inline (fl_draw_mac_roman_to_local); - - function fl_draw_local_to_mac_roman - (T : in Interfaces.C.char_array; - N : in Interfaces.C.int) - return Interfaces.C.Strings.chars_ptr; - pragma Import (C, fl_draw_local_to_mac_roman, "fl_draw_local_to_mac_roman"); - pragma Inline (fl_draw_local_to_mac_roman); - - - - - function fl_draw_clip_box - (X, Y, W, H : in Interfaces.C.int; - BX, BY, BW, BH : out Interfaces.C.int) - return Interfaces.C.int; - pragma Import (C, fl_draw_clip_box, "fl_draw_clip_box"); - pragma Inline (fl_draw_clip_box); - - function fl_draw_not_clipped - (X, Y, W, H : in Interfaces.C.int) - return Interfaces.C.int; - pragma Import (C, fl_draw_not_clipped, "fl_draw_not_clipped"); - pragma Inline (fl_draw_not_clipped); - - procedure fl_draw_pop_clip; - pragma Import (C, fl_draw_pop_clip, "fl_draw_pop_clip"); - pragma Inline (fl_draw_pop_clip); - - procedure fl_draw_push_clip - (X, Y, W, H : in Interfaces.C.int); - pragma Import (C, fl_draw_push_clip, "fl_draw_push_clip"); - pragma Inline (fl_draw_push_clip); - - procedure fl_draw_push_no_clip; - pragma Import (C, fl_draw_push_no_clip, "fl_draw_push_no_clip"); - pragma Inline (fl_draw_push_no_clip); - - procedure fl_draw_restore_clip; - pragma Import (C, fl_draw_restore_clip, "fl_draw_restore_clip"); - pragma Inline (fl_draw_restore_clip); - - - - - procedure fl_draw_overlay_clear; - pragma Import (C, fl_draw_overlay_clear, "fl_draw_overlay_clear"); - pragma Inline (fl_draw_overlay_clear); - - procedure fl_draw_overlay_rect - (X, Y, W, H : in Interfaces.C.int); - pragma Import (C, fl_draw_overlay_rect, "fl_draw_overlay_rect"); - pragma Inline (fl_draw_overlay_rect); - - - - - function fl_draw_get_color - return Interfaces.C.unsigned; - pragma Import (C, fl_draw_get_color, "fl_draw_get_color"); - pragma Inline (fl_draw_get_color); - - procedure fl_draw_set_color - (C : in Interfaces.C.unsigned); - pragma Import (C, fl_draw_set_color, "fl_draw_set_color"); - pragma Inline (fl_draw_set_color); - - procedure fl_draw_set_color2 - (R, G, B : in Interfaces.C.unsigned_char); - pragma Import (C, fl_draw_set_color2, "fl_draw_set_color2"); - pragma Inline (fl_draw_set_color2); - - procedure fl_draw_set_cursor - (M : in Interfaces.C.int); - pragma Import (C, fl_draw_set_cursor, "fl_draw_set_cursor"); - pragma Inline (fl_draw_set_cursor); - - procedure fl_draw_set_cursor2 - (M : in Interfaces.C.int; - F, B : in Interfaces.C.unsigned); - pragma Import (C, fl_draw_set_cursor2, "fl_draw_set_cursor2"); - pragma Inline (fl_draw_set_cursor2); - - function fl_draw_get_font - return Interfaces.C.unsigned; - pragma Import (C, fl_draw_get_font, "fl_draw_get_font"); - pragma Inline (fl_draw_get_font); - - function fl_draw_size - return Interfaces.C.int; - pragma Import (C, fl_draw_size, "fl_draw_size"); - pragma Inline (fl_draw_size); - - procedure fl_draw_set_font - (F : in Interfaces.C.unsigned; - S : in Interfaces.C.int); - pragma Import (C, fl_draw_set_font, "fl_draw_set_font"); - pragma Inline (fl_draw_set_font); - - function fl_draw_height - return Interfaces.C.int; - pragma Import (C, fl_draw_height, "fl_draw_height"); - pragma Inline (fl_draw_height); - - function fl_draw_descent - return Interfaces.C.int; - pragma Import (C, fl_draw_descent, "fl_draw_descent"); - pragma Inline (fl_draw_descent); - - function fl_draw_height2 - (F : in Interfaces.C.unsigned; - S : in Interfaces.C.int) - return Interfaces.C.int; - pragma Import (C, fl_draw_height2, "fl_draw_height2"); - pragma Inline (fl_draw_height2); - - procedure fl_draw_line_style - (Style : in Interfaces.C.int; - Width : in Interfaces.C.int; - Dashes : in Interfaces.C.char_array); - pragma Import (C, fl_draw_line_style, "fl_draw_line_style"); - pragma Inline (fl_draw_line_style); - - - - - procedure fl_draw_mult_matrix - (A, B, C, D, X, Y : in Interfaces.C.double); - pragma Import (C, fl_draw_mult_matrix, "fl_draw_mult_matrix"); - pragma Inline (fl_draw_mult_matrix); - - procedure fl_draw_pop_matrix; - pragma Import (C, fl_draw_pop_matrix, "fl_draw_pop_matrix"); - pragma Inline (fl_draw_pop_matrix); - - procedure fl_draw_push_matrix; - pragma Import (C, fl_draw_push_matrix, "fl_draw_push_matrix"); - pragma Inline (fl_draw_push_matrix); - - procedure fl_draw_rotate - (D : in Interfaces.C.double); - pragma Import (C, fl_draw_rotate, "fl_draw_rotate"); - pragma Inline (fl_draw_rotate); - - procedure fl_draw_scale - (X : in Interfaces.C.double); - pragma Import (C, fl_draw_scale, "fl_draw_scale"); - pragma Inline (fl_draw_scale); - - procedure fl_draw_scale2 - (X, Y : in Interfaces.C.double); - pragma Import (C, fl_draw_scale2, "fl_draw_scale2"); - pragma Inline (fl_draw_scale2); - - function fl_draw_transform_dx - (X, Y : in Interfaces.C.double) - return Interfaces.C.double; - pragma Import (C, fl_draw_transform_dx, "fl_draw_transform_dx"); - pragma Inline (fl_draw_transform_dx); - - function fl_draw_transform_dy - (X, Y : in Interfaces.C.double) - return Interfaces.C.double; - pragma Import (C, fl_draw_transform_dy, "fl_draw_transform_dy"); - pragma Inline (fl_draw_transform_dy); - - function fl_draw_transform_x - (X, Y : in Interfaces.C.double) - return Interfaces.C.double; - pragma Import (C, fl_draw_transform_x, "fl_draw_transform_x"); - pragma Inline (fl_draw_transform_x); - - function fl_draw_transform_y - (X, Y : in Interfaces.C.double) - return Interfaces.C.double; - pragma Import (C, fl_draw_transform_y, "fl_draw_transform_y"); - pragma Inline (fl_draw_transform_y); - - procedure fl_draw_transformed_vertex - (XF, YF : in Interfaces.C.double); - pragma Import (C, fl_draw_transformed_vertex, "fl_draw_transformed_vertex"); - pragma Inline (fl_draw_transformed_vertex); - - procedure fl_draw_translate - (X, Y : in Interfaces.C.double); - pragma Import (C, fl_draw_translate, "fl_draw_translate"); - pragma Inline (fl_draw_translate); - - procedure fl_draw_vertex - (X, Y : in Interfaces.C.double); - pragma Import (C, fl_draw_vertex, "fl_draw_vertex"); - pragma Inline (fl_draw_vertex); - - - - - procedure fl_draw_draw_image - (Buf : in System.Address; - X, Y, W, H : in Interfaces.C.int; - D, L : in Interfaces.C.int); - pragma Import (C, fl_draw_draw_image, "fl_draw_draw_image"); - pragma Inline (fl_draw_draw_image); - - procedure fl_draw_draw_image2 - (Call, User : in System.Address; - X, Y, W, H, D : in Interfaces.C.int); - pragma Import (C, fl_draw_draw_image2, "fl_draw_draw_image2"); - pragma Inline (fl_draw_draw_image2); - - procedure fl_draw_draw_image_mono - (Buf : in System.Address; - X, Y, W, H : in Interfaces.C.int; - D, L : in Interfaces.C.int); - pragma Import (C, fl_draw_draw_image_mono, "fl_draw_draw_image_mono"); - pragma Inline (fl_draw_draw_image_mono); - - procedure fl_draw_draw_image_mono2 - (Call, User : in System.Address; - X, Y, W, H, D : in Interfaces.C.int); - pragma Import (C, fl_draw_draw_image_mono2, "fl_draw_draw_image_mono2"); - pragma Inline (fl_draw_draw_image_mono2); - - function fl_draw_read_image - (Buf : in System.Address; - X, Y, W, H : in Interfaces.C.int; - Alpha : in Interfaces.C.int) - return System.Address; - pragma Import (C, fl_draw_read_image, "fl_draw_read_image"); - pragma Inline (fl_draw_read_image); - - - - - function fl_draw_add_symbol - (Name : in Interfaces.C.char_array; - Drawit : in System.Address; - Scalable : in Interfaces.C.int) - return Interfaces.C.int; - pragma Import (C, fl_draw_add_symbol, "fl_draw_add_symbol"); - pragma Inline (fl_draw_add_symbol); - - procedure fl_draw_draw_text - (Str : in Interfaces.C.char_array; - N, X, Y : in Interfaces.C.int); - pragma Import (C, fl_draw_draw_text, "fl_draw_draw_text"); - pragma Inline (fl_draw_draw_text); - - procedure fl_draw_draw_text2 - (Str : in Interfaces.C.char_array; - X, Y, W, H : in Interfaces.C.int; - Ali : in Interfaces.Unsigned_16; - Img : in System.Address; - Sym : in Interfaces.C.int); - pragma Import (C, fl_draw_draw_text2, "fl_draw_draw_text2"); - pragma Inline (fl_draw_draw_text2); - - procedure fl_draw_draw_text3 - (Str : in Interfaces.C.char_array; - X, Y, W, H : in Interfaces.C.int; - Ali : in Interfaces.Unsigned_16; - Func : in System.Address; - Img : in System.Address; - Sym : in Interfaces.C.int); - pragma Import (C, fl_draw_draw_text3, "fl_draw_draw_text3"); - pragma Inline (fl_draw_draw_text3); - - procedure fl_draw_draw_text4 - (Ang : in Interfaces.C.int; - Str : in Interfaces.C.char_array; - N, X, Y : in Interfaces.C.int); - pragma Import (C, fl_draw_draw_text4, "fl_draw_draw_text4"); - pragma Inline (fl_draw_draw_text4); - - procedure fl_draw_rtl_draw - (Str : in Interfaces.C.char_array; - N, X, Y : in Interfaces.C.int); - pragma Import (C, fl_draw_rtl_draw, "fl_draw_rtl_draw"); - pragma Inline (fl_draw_rtl_draw); - - procedure fl_draw_draw_box - (BK : in Interfaces.C.int; - X, Y, W, H : in Interfaces.C.int; - C : in Interfaces.C.unsigned); - pragma Import (C, fl_draw_draw_box, "fl_draw_draw_box"); - pragma Inline (fl_draw_draw_box); - - function fl_draw_draw_symbol - (Lab : in Interfaces.C.char_array; - X, Y, W, H : in Interfaces.C.int; - Hue : in Interfaces.C.unsigned) - return Interfaces.C.int; - pragma Import (C, fl_draw_draw_symbol, "fl_draw_draw_symbol"); - pragma Inline (fl_draw_draw_symbol); - - procedure fl_draw_measure - (Str : in Interfaces.C.char_array; - W, H : in out Interfaces.C.int; - S : in Interfaces.C.int); - pragma Import (C, fl_draw_measure, "fl_draw_measure"); - pragma Inline (fl_draw_measure); - - procedure fl_draw_scroll - (X, Y, W, H : in Interfaces.C.int; - DX, DY : in Interfaces.C.int; - Func, Data : in System.Address); - pragma Import (C, fl_draw_scroll, "fl_draw_scroll"); - pragma Inline (fl_draw_scroll); - - procedure fl_draw_text_extents - (Str : in Interfaces.C.char_array; - N : in Interfaces.C.int; - DX, DY, W, H : out Interfaces.C.int); - pragma Import (C, fl_draw_text_extents, "fl_draw_text_extents"); - pragma Inline (fl_draw_text_extents); - - function fl_draw_width - (Str : in Interfaces.C.char_array; - N : in Interfaces.C.int) - return Interfaces.C.double; - pragma Import (C, fl_draw_width, "fl_draw_width"); - pragma Inline (fl_draw_width); - - function fl_draw_width2 - (C : in Interfaces.C.unsigned_long) - return Interfaces.C.double; - pragma Import (C, fl_draw_width2, "fl_draw_width2"); - pragma Inline (fl_draw_width2); - - - - - procedure fl_draw_begin_complex_polygon; - pragma Import (C, fl_draw_begin_complex_polygon, "fl_draw_begin_complex_polygon"); - pragma Inline (fl_draw_begin_complex_polygon); - - procedure fl_draw_begin_line; - pragma Import (C, fl_draw_begin_line, "fl_draw_begin_line"); - pragma Inline (fl_draw_begin_line); - - procedure fl_draw_begin_loop; - pragma Import (C, fl_draw_begin_loop, "fl_draw_begin_loop"); - pragma Inline (fl_draw_begin_loop); - - procedure fl_draw_begin_points; - pragma Import (C, fl_draw_begin_points, "fl_draw_begin_points"); - pragma Inline (fl_draw_begin_points); - - procedure fl_draw_begin_polygon; - pragma Import (C, fl_draw_begin_polygon, "fl_draw_begin_polygon"); - pragma Inline (fl_draw_begin_polygon); - - - - - procedure fl_draw_arc - (X, Y, R, Start, Finish : in Interfaces.C.double); - pragma Import (C, fl_draw_arc, "fl_draw_arc"); - pragma Inline (fl_draw_arc); - - procedure fl_draw_arc2 - (X, Y, W, H : in Interfaces.C.int; - A1, A2 : in Interfaces.C.double); - pragma Import (C, fl_draw_arc2, "fl_draw_arc2"); - pragma Inline (fl_draw_arc2); - - procedure fl_draw_chord - (X, Y, W, H : in Interfaces.C.int; - A1, A2 : in Interfaces.C.double); - pragma Import (C, fl_draw_chord, "fl_draw_chord"); - pragma Inline (fl_draw_chord); - - procedure fl_draw_circle - (X, Y, R : in Interfaces.C.double); - pragma Import (C, fl_draw_circle, "fl_draw_circle"); - pragma Inline (fl_draw_circle); - - procedure fl_draw_curve - (X0, Y0 : in Interfaces.C.double; - X1, Y1 : in Interfaces.C.double; - X2, Y2 : in Interfaces.C.double; - X3, Y3 : in Interfaces.C.double); - pragma Import (C, fl_draw_curve, "fl_draw_curve"); - pragma Inline (fl_draw_curve); - - procedure fl_draw_frame - (S : in Interfaces.C.char_array; - X, Y, W, H : in Interfaces.C.int); - pragma Import (C, fl_draw_frame, "fl_draw_frame"); - pragma Inline (fl_draw_frame); - - procedure fl_draw_gap; - pragma Import (C, fl_draw_gap, "fl_draw_gap"); - pragma Inline (fl_draw_gap); - - procedure fl_draw_line - (X0, Y0 : in Interfaces.C.int; - X1, Y1 : in Interfaces.C.int); - pragma Import (C, fl_draw_line, "fl_draw_line"); - pragma Inline (fl_draw_line); - - procedure fl_draw_line2 - (X0, Y0 : in Interfaces.C.int; - X1, Y1 : in Interfaces.C.int; - X2, Y2 : in Interfaces.C.int); - pragma Import (C, fl_draw_line2, "fl_draw_line2"); - pragma Inline (fl_draw_line2); - - procedure fl_draw_loop - (X0, Y0 : in Interfaces.C.int; - X1, Y1 : in Interfaces.C.int; - X2, Y2 : in Interfaces.C.int); - pragma Import (C, fl_draw_loop, "fl_draw_loop"); - pragma Inline (fl_draw_loop); - - procedure fl_draw_loop2 - (X0, Y0 : in Interfaces.C.int; - X1, Y1 : in Interfaces.C.int; - X2, Y2 : in Interfaces.C.int; - X3, Y3 : in Interfaces.C.int); - pragma Import (C, fl_draw_loop2, "fl_draw_loop2"); - pragma Inline (fl_draw_loop2); - - procedure fl_draw_pie - (X, Y, W, H : in Interfaces.C.int; - A1, A2 : in Interfaces.C.double); - pragma Import (C, fl_draw_pie, "fl_draw_pie"); - pragma Inline (fl_draw_pie); - - procedure fl_draw_point - (X, Y : in Interfaces.C.int); - pragma Import (C, fl_draw_point, "fl_draw_point"); - pragma Inline (fl_draw_point); - - procedure fl_draw_polygon - (X0, Y0 : in Interfaces.C.int; - X1, Y1 : in Interfaces.C.int; - X2, Y2 : in Interfaces.C.int); - pragma Import (C, fl_draw_polygon, "fl_draw_polygon"); - pragma Inline (fl_draw_polygon); - - procedure fl_draw_polygon2 - (X0, Y0 : in Interfaces.C.int; - X1, Y1 : in Interfaces.C.int; - X2, Y2 : in Interfaces.C.int; - X3, Y3 : in Interfaces.C.int); - pragma Import (C, fl_draw_polygon2, "fl_draw_polygon2"); - pragma Inline (fl_draw_polygon2); - - procedure fl_draw_rect - (X, Y, W, H : in Interfaces.C.int); - pragma Import (C, fl_draw_rect, "fl_draw_rect"); - pragma Inline (fl_draw_rect); - - procedure fl_draw_rect2 - (X, Y, W, H : in Interfaces.C.int; - C : in Interfaces.C.unsigned); - pragma Import (C, fl_draw_rect2, "fl_draw_rect2"); - pragma Inline (fl_draw_rect2); - - procedure fl_draw_rect_fill - (X, Y, W, H : in Interfaces.C.int); - pragma Import (C, fl_draw_rect_fill, "fl_draw_rect_fill"); - pragma Inline (fl_draw_rect_fill); - - procedure fl_draw_rect_fill2 - (X, Y, W, H : in Interfaces.C.int; - C : in Interfaces.C.unsigned); - pragma Import (C, fl_draw_rect_fill2, "fl_draw_rect_fill2"); - pragma Inline (fl_draw_rect_fill2); - - procedure fl_draw_rect_fill3 - (X, Y, W, H : in Interfaces.C.int; - R, G, B : in Interfaces.C.unsigned_char); - pragma Import (C, fl_draw_rect_fill3, "fl_draw_rect_fill3"); - pragma Inline (fl_draw_rect_fill3); - - procedure fl_draw_xy_line - (X0, Y0, X1 : in Interfaces.C.int); - pragma Import (C, fl_draw_xy_line, "fl_draw_xy_line"); - pragma Inline (fl_draw_xy_line); - - procedure fl_draw_xy_line2 - (X0, Y0, X1, Y2 : in Interfaces.C.int); - pragma Import (C, fl_draw_xy_line2, "fl_draw_xy_line2"); - pragma Inline (fl_draw_xy_line2); - - procedure fl_draw_xy_line3 - (X0, Y0, X1, Y2, X3 : in Interfaces.C.int); - pragma Import (C, fl_draw_xy_line3, "fl_draw_xy_line3"); - pragma Inline (fl_draw_xy_line3); - - procedure fl_draw_yx_line - (X0, Y0, Y1 : in Interfaces.C.int); - pragma Import (C, fl_draw_yx_line, "fl_draw_yx_line"); - pragma Inline (fl_draw_yx_line); - - procedure fl_draw_yx_line2 - (X0, Y0, Y1, X2 : in Interfaces.C.int); - pragma Import (C, fl_draw_yx_line2, "fl_draw_yx_line2"); - pragma Inline (fl_draw_yx_line2); - - procedure fl_draw_yx_line3 - (X0, Y0, Y1, X2, Y3 : in Interfaces.C.int); - pragma Import (C, fl_draw_yx_line3, "fl_draw_yx_line3"); - pragma Inline (fl_draw_yx_line3); - - - - - procedure fl_draw_end_complex_polygon; - pragma Import (C, fl_draw_end_complex_polygon, "fl_draw_end_complex_polygon"); - pragma Inline (fl_draw_end_complex_polygon); - - procedure fl_draw_end_line; - pragma Import (C, fl_draw_end_line, "fl_draw_end_line"); - pragma Inline (fl_draw_end_line); - - procedure fl_draw_end_loop; - pragma Import (C, fl_draw_end_loop, "fl_draw_end_loop"); - pragma Inline (fl_draw_end_loop); - - procedure fl_draw_end_points; - pragma Import (C, fl_draw_end_points, "fl_draw_end_points"); - pragma Inline (fl_draw_end_points); - - procedure fl_draw_end_polygon; - pragma Import (C, fl_draw_end_polygon, "fl_draw_end_polygon"); - pragma Inline (fl_draw_end_polygon); - - - - - ------------------------ - -- No Documentation -- - ------------------------ - - procedure Reset_Spot is - begin - fl_draw_reset_spot; - end Reset_Spot; - - - procedure Set_Spot - (X, Y, W, H : in Integer; - Font : in Font_Kind; - Size : in Font_Size) is - begin - fl_draw_set_spot - (Font_Kind'Pos (Font), - Interfaces.C.int (Size), - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - System.Null_Address); - end Set_Spot; - - - procedure Set_Spot - (X, Y, W, H : in Integer; - Font : in Font_Kind; - Size : in Font_Size; - Pane : in FLTK.Widgets.Groups.Windows.Window'Class) is - begin - fl_draw_set_spot - (Font_Kind'Pos (Font), - Interfaces.C.int (Size), - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Wrapper (Pane).Void_Ptr); - end Set_Spot; - - - procedure Set_Status - (X, Y, W, H : in Integer) is - begin - fl_draw_set_status - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H)); - end Set_Status; - - - - - --------------- - -- Utility -- - --------------- - - function Can_Do_Alpha_Blending - return Boolean - is - Result : Interfaces.C.int := fl_draw_can_do_alpha_blending; - begin - if Result = 1 then - return True; - elsif Result = 0 then - return False; - else - raise Program_Error; - end if; - end Can_Do_Alpha_Blending; - - - function Shortcut_Label - (Keys : in Key_Combo) - return String is - begin - return Interfaces.C.Strings.Value - (fl_draw_shortcut_label (To_C (Keys))); - end Shortcut_Label; - - - - - -------------------------- - -- Charset Conversion -- - -------------------------- - - function Latin1_To_Local - (From : in String) - return String is - begin - return Interfaces.C.Strings.Value - (fl_draw_latin1_to_local (Interfaces.C.To_C (From), -1)); - end Latin1_To_Local; - - - function Local_To_Latin1 - (From : in String) - return String is - begin - return Interfaces.C.Strings.Value - (fl_draw_local_to_latin1 (Interfaces.C.To_C (From), -1)); - end Local_To_Latin1; - - - function Mac_Roman_To_Local - (From : in String) - return String is - begin - return Interfaces.C.Strings.Value - (fl_draw_mac_roman_to_local (Interfaces.C.To_C (From), -1)); - end Mac_Roman_To_Local; - - - function Local_To_Mac_Roman - (From : in String) - return String is - begin - return Interfaces.C.Strings.Value - (fl_draw_local_to_mac_roman (Interfaces.C.To_C (From), -1)); - end Local_To_Mac_Roman; - - - - - ---------------- - -- Clipping -- - ---------------- - - function Clip_Box - (X, Y, W, H : in Integer; - BX, BY, BW, BH : out Integer) - return Boolean - is - CX, CY, CW, CH : Interfaces.C.int; - Result : Interfaces.C.int := fl_draw_clip_box - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - CX, CY, CW, CH); - begin - BX := Integer (CX); - BY := Integer (CY); - BW := Integer (CW); - BH := Integer (CH); - return Result /= 0; - end Clip_Box; - - - function Clip_Intersects - (X, Y, W, H : in Integer) - return Boolean is - begin - return fl_draw_not_clipped - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H)) /= 0; - end Clip_Intersects; - - - procedure Pop_Clip is - begin - fl_draw_pop_clip; - end Pop_Clip; - - - procedure Push_Clip - (X, Y, W, H : in Integer) is - begin - fl_draw_push_clip - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H)); - end Push_Clip; - - - procedure Push_No_Clip is - begin - fl_draw_push_no_clip; - end Push_No_Clip; - - - procedure Restore_Clip is - begin - fl_draw_restore_clip; - end Restore_Clip; - - - - - --------------- - -- Overlay -- - --------------- - - procedure Overlay_Clear is - begin - fl_draw_overlay_clear; - end Overlay_Clear; - - - procedure Overlay_Rect - (X, Y, W, H : in Integer) is - begin - fl_draw_overlay_rect - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H)); - end Overlay_Rect; - - - - - ---------------- - -- Settings -- - ---------------- - - function Get_Color - return Color is - begin - return Color (fl_draw_get_color); - end Get_Color; - - - procedure Set_Color - (To : in Color) is - begin - fl_draw_set_color (Interfaces.C.unsigned (To)); - end Set_Color; - - - procedure Set_Color - (R, G, B : in Color_Component) is - begin - fl_draw_set_color2 - (Interfaces.C.unsigned_char (R), - Interfaces.C.unsigned_char (G), - Interfaces.C.unsigned_char (B)); - end Set_Color; - - - procedure Set_Cursor - (To : in Mouse_Cursor_Kind) is - begin - fl_draw_set_cursor (Cursor_Values (To)); - end Set_Cursor; - - procedure Set_Cursor - (To : in Mouse_Cursor_Kind; - Fore : in Color; - Back : in Color := White_Color) is - begin - fl_draw_set_cursor2 - (Cursor_Values (To), - Interfaces.C.unsigned (Fore), - Interfaces.C.unsigned (Back)); - end Set_Cursor; - - - function Get_Font - return Font_Kind is - begin - return Font_Kind'Val (fl_draw_get_font); - end Get_Font; - - - function Get_Font_Size - return Font_Size is - begin - return Font_Size (fl_draw_size); - end Get_Font_Size; - - - procedure Set_Font - (Kind : in Font_Kind; - Size : in Font_Size) is - begin - fl_draw_set_font (Font_Kind'Pos (Kind), Interfaces.C.int (Size)); - end Set_Font; - - - function Font_Line_Spacing - return Integer is - begin - return Integer (fl_draw_height); - end Font_Line_Spacing; - - - function Font_Descent - return Integer is - begin - return Integer (fl_draw_descent); - end Font_Descent; - - - function Font_Height - (Kind : in Font_Kind; - Size : in Font_Size) - return Natural is - begin - return Natural (fl_draw_height2 (Font_Kind'Pos (Kind), Interfaces.C.int (Size))); - end Font_Height; - - - type Char_Array_Access is access Interfaces.C.char_array; - - procedure Free_Char_Array is new Ada.Unchecked_Deallocation - (Object => Interfaces.C.char_array, - Name => Char_Array_Access); - - Current_Dashes : Char_Array_Access; - - procedure Set_Line_Style - (Line : in Line_Kind := Solid_Line; - Cap : in Cap_Kind := Default_Cap; - Join : in Join_Kind := Default_Join; - Width : in Natural := 0; - Dashes : in Dash_Gap_Array := Empty_Dashes) is - begin - Free_Char_Array (Current_Dashes); - Current_Dashes := new Interfaces.C.char_array (1 .. (Dashes'Length + 1) * 2); - for Index in Integer range 1 .. Dashes'Length loop - Current_Dashes (2 * Interfaces.C.size_t (Index) - 1) := - Interfaces.C.char'Val (Integer (Dashes (Index).Solid)); - Current_Dashes (2 * Interfaces.C.size_t (Index)) := - Interfaces.C.char'Val (Integer (Dashes (Index).Blank)); - end loop; - Current_Dashes (Current_Dashes'Last - 1) := Interfaces.C.char'Val (0); - Current_Dashes (Current_Dashes'Last) := Interfaces.C.char'Val (0); - fl_draw_line_style - (Line_Kind'Pos (Line) + Cap_Kind'Pos (Cap) * 16#100# + Join_Kind'Pos (Join) * 16#1000#, - Interfaces.C.int (Width), - Current_Dashes.all); - end Set_Line_Style; - - - - - ------------------------- - -- Matrix Operations -- - ------------------------- - - procedure Mult_Matrix - (A, B, C, D, X, Y : in Long_Float) is - begin - fl_draw_mult_matrix - (Interfaces.C.double (A), - Interfaces.C.double (B), - Interfaces.C.double (C), - Interfaces.C.double (D), - Interfaces.C.double (X), - Interfaces.C.double (Y)); - end Mult_Matrix; - - - procedure Pop_Matrix is - begin - fl_draw_pop_matrix; - end Pop_Matrix; - - - procedure Push_Matrix is - begin - fl_draw_push_matrix; - end Push_Matrix; - - - procedure Rotate - (Angle : in Long_Float) is - begin - fl_draw_rotate (Interfaces.C.double (Angle)); - end Rotate; - - - procedure Scale - (Factor : in Long_Float) is - begin - fl_draw_scale (Interfaces.C.double (Factor)); - end Scale; - - - procedure Scale - (Factor_X, Factor_Y : in Long_Float) is - begin - fl_draw_scale2 - (Interfaces.C.double (Factor_X), - Interfaces.C.double (Factor_Y)); - end Scale; - - - function Transform_DX - (X, Y : in Long_Float) - return Long_Float is - begin - return Long_Float (fl_draw_transform_dx - (Interfaces.C.double (X), - Interfaces.C.double (Y))); - end Transform_DX; - - - function Transform_DY - (X, Y : in Long_Float) - return Long_Float is - begin - return Long_Float (fl_draw_transform_dy - (Interfaces.C.double (X), - Interfaces.C.double (Y))); - end Transform_DY; - - - function Transform_X - (X, Y : in Long_Float) - return Long_Float is - begin - return Long_Float (fl_draw_transform_x - (Interfaces.C.double (X), - Interfaces.C.double (Y))); - end Transform_X; - - - function Transform_Y - (X, Y : in Long_Float) - return Long_Float is - begin - return Long_Float (fl_draw_transform_y - (Interfaces.C.double (X), - Interfaces.C.double (Y))); - end Transform_Y; - - - procedure Transformed_Vertex - (XF, YF : in Long_Float) is - begin - fl_draw_transformed_vertex - (Interfaces.C.double (XF), - Interfaces.C.double (YF)); - end Transformed_Vertex; - - - procedure Translate - (X, Y : in Long_Float) is - begin - fl_draw_translate - (Interfaces.C.double (X), - Interfaces.C.double (Y)); - end Translate; - - - procedure Vertex - (X, Y : in Long_Float) is - begin - fl_draw_vertex - (Interfaces.C.double (X), - Interfaces.C.double (Y)); - end Vertex; - - - - - --------------------- - -- Image Drawing -- - --------------------- - - procedure Draw_Image - (X, Y, W, H : in Integer; - Data : in Color_Component_Array; - Depth : in Positive := 3; - Line_Data : in Natural := 0; - Flip_Horizontal : in Boolean := False; - Flip_Vertical : in Boolean := False) - is - Real_Depth : Integer := Depth; - Real_Line_Data : Integer := Line_Data; - begin - if Flip_Horizontal then - Real_Depth := Real_Depth * (-1); - end if; - if Flip_Vertical then - if Real_Line_Data = 0 then - Real_Line_Data := W * Depth * (-1); - else - Real_Line_Data := Real_Line_Data * (-1); - end if; - end if; - fl_draw_draw_image - (Data (Data'First)'Address, - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.int (Real_Depth), - Interfaces.C.int (Real_Line_Data)); - end Draw_Image; - - - Image_Func_Ptr : Image_Draw_Function; - - procedure Draw_Image_Hook - (User : in System.Address; - X, Y, W : in Interfaces.C.int; - Buf_Ptr : in System.Address) - is - Data_Buffer : Color_Component_Array (1 .. Integer (W)); - for Data_Buffer'Address use Buf_Ptr; - pragma Import (Ada, Data_Buffer); - begin - Image_Func_Ptr (Integer (X), Integer (Y), Data_Buffer); - end Draw_Image_Hook; - - procedure Draw_Image - (X, Y, W, H : in Integer; - Callback : in Image_Draw_Function; - Depth : in Positive := 3) is - begin - Image_Func_Ptr := Callback; - fl_draw_draw_image2 - (Draw_Image_Hook'Address, - System.Null_Address, - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.int (Depth)); - end Draw_Image; - - - procedure Draw_Image_Mono - (X, Y, W, H : in Integer; - Data : in Color_Component_Array; - Depth : in Positive := 1; - Line_Data : in Natural := 0; - Flip_Horizontal : Boolean := False; - Flip_Vertical : Boolean := False) - is - Real_Depth : Integer := Depth; - Real_Line_Data : Integer := Line_Data; - begin - if Flip_Horizontal then - Real_Depth := Real_Depth * (-1); - end if; - if Flip_Vertical then - if Real_Line_Data = 0 then - Real_Line_Data := W * Depth * (-1); - else - Real_Line_Data := Real_Line_Data * (-1); - end if; - end if; - fl_draw_draw_image_mono - (Data (Data'First)'Address, - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.int (Real_Depth), - Interfaces.C.int (Real_Line_Data)); - end Draw_Image_Mono; - - - Mono_Image_Func_Ptr : Image_Draw_Function; - - procedure Draw_Image_Mono_Hook - (User : in System.Address; - X, Y, W : in Interfaces.C.int; - Buf_Ptr : in System.Address) - is - Data_Buffer : Color_Component_Array (1 .. Integer (W)); - for Data_Buffer'Address use Buf_Ptr; - pragma Import (Ada, Data_Buffer); - begin - Mono_Image_Func_Ptr (Integer (X), Integer (Y), Data_Buffer); - end Draw_Image_Mono_Hook; - - procedure Draw_Image_Mono - (X, Y, W, H : in Integer; - Callback : in Image_Draw_Function; - Depth : in Positive := 1) is - begin - Mono_Image_Func_Ptr := Callback; - fl_draw_draw_image_mono2 - (Draw_Image_Mono_Hook'Address, - System.Null_Address, - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.int (Depth)); - end Draw_Image_Mono; - - - function Read_Image - (X, Y, W, H : in Integer; - Alpha : in Integer := 0) - return Color_Component_Array - is - My_Len : Integer := (if Alpha = 0 then W * H * 3 else W * H * 4); - Result : Color_Component_Array (1 .. My_Len); - Buffer : System.Address; - begin - Buffer := fl_draw_read_image - (Result (Result'First)'Address, - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.int (Alpha)); - if Buffer /= Result (Result'First)'Address then - raise Program_Error; - end if; - return Result; - end Read_Image; - - - - - ----------------------- - -- Special Drawing -- - ----------------------- - - procedure Add_Symbol - (Text : in String; - Callback : in Symbol_Draw_Function; - Scalable : in Boolean) - is - Ret_Val : Interfaces.C.int := fl_draw_add_symbol - (Interfaces.C.To_C (Text), - Callback.all'Address, - Boolean'Pos (Scalable)); - begin - if Ret_Val = 0 then - raise Draw_Error; - elsif Ret_Val /= 1 then - raise Program_Error; - end if; - end Add_Symbol; - - procedure Draw_Text - (X, Y : in Integer; - Text : in String) is - begin - fl_draw_draw_text - (Interfaces.C.To_C (Text), - Text'Length, - Interfaces.C.int (X), - Interfaces.C.int (Y)); - end Draw_Text; - - - procedure Draw_Text - (X, Y, W, H : in Integer; - Text : in String; - Align : in Alignment; - Symbols : in Boolean := True) is - begin - fl_draw_draw_text2 - (Interfaces.C.To_C (Text), - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.Unsigned_16 (Align), - System.Null_Address, - Boolean'Pos (Symbols)); - end Draw_Text; - - - procedure Draw_Text - (X, Y, W, H : in Integer; - Text : in String; - Align : in Alignment; - Picture : in FLTK.Images.Image'Class; - Symbols : in Boolean := True) is - begin - fl_draw_draw_text2 - (Interfaces.C.To_C (Text), - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.Unsigned_16 (Align), - Wrapper (Picture).Void_Ptr, - Boolean'Pos (Symbols)); - end Draw_Text; - - - Text_Func_Ptr : Text_Draw_Function; - - procedure Draw_Text_Hook - (Ptr : in System.Address; - N, X0, Y0 : in Interfaces.C.int) - is - Data : String (1 .. Integer (N)); - for Data'Address use Ptr; - pragma Import (Ada, Data); - begin - Text_Func_Ptr (Integer (X0), Integer (Y0), Data); - end Draw_Text_Hook; - - - procedure Draw_Text - (X, Y, W, H : in Integer; - Text : in String; - Align : in Alignment; - Callback : in Text_Draw_Function; - Symbols : in Boolean := True) is - begin - Text_Func_Ptr := Callback; - fl_draw_draw_text3 - (Interfaces.C.To_C (Text), - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.Unsigned_16 (Align), - Draw_Text_Hook'Address, - System.Null_Address, - Boolean'Pos (Symbols)); - end Draw_Text; - - - procedure Draw_Text - (X, Y, W, H : in Integer; - Text : in String; - Align : in Alignment; - Callback : in Text_Draw_Function; - Picture : in FLTK.Images.Image'Class; - Symbols : in Boolean := True) is - begin - Text_Func_Ptr := Callback; - fl_draw_draw_text3 - (Interfaces.C.To_C (Text), - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.Unsigned_16 (Align), - Draw_Text_Hook'Address, - Wrapper (Picture).Void_Ptr, - Boolean'Pos (Symbols)); - end Draw_Text; - - - procedure Draw_Text - (X, Y : in Integer; - Text : in String; - Angle : in Integer) is - begin - fl_draw_draw_text4 - (Interfaces.C.int (Angle), - Interfaces.C.To_C (Text), - Text'Length, - Interfaces.C.int (X), - Interfaces.C.int (Y)); - end Draw_Text; - - - procedure Draw_Text_Right_Left - (X, Y : in Integer; - Text : in String) is - begin - fl_draw_rtl_draw - (Interfaces.C.To_C (Text), - Text'Length, - Interfaces.C.int (X), - Interfaces.C.int (Y)); - end Draw_Text_Right_Left; - - - procedure Draw_Box - (X, Y, W, H : in Integer; - Kind : in Box_Kind; - Hue : in Color) is - begin - fl_draw_draw_box - (Box_Kind'Pos (Kind), - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.unsigned (Hue)); - end Draw_Box; - - - procedure Draw_Symbol - (X, Y, W, H : in Integer; - Name : in String; - Hue : in Color) - is - Ret_Val : Interfaces.C.int := fl_draw_draw_symbol - (Interfaces.C.To_C (Name), - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.unsigned (Hue)); - begin - if Ret_Val = 0 then - raise Draw_Error; - elsif Ret_Val /= 1 then - raise Program_Error; - end if; - end Draw_Symbol; - - - procedure Measure - (Text : in String; - W, H : out Natural; - Symbols : in Boolean := True; - Wrap : in Natural := 0) - is - Result_W : Interfaces.C.int := Interfaces.C.int (Wrap); - Result_H : Interfaces.C.int := 0; - begin - fl_draw_measure - (Interfaces.C.To_C (Text), - Result_W, Result_H, - Boolean'Pos (Symbols)); - W := Natural (Result_W); - H := Natural (Result_H); - end Measure; - - - procedure Scroll_Hook - (Ptr : in Area_Draw_Function; - X, Y, W, H : in Interfaces.C.int) is - begin - Ptr.all (Integer (X), Integer (Y), Integer (W), Integer (H)); - end Scroll_Hook; - - - procedure Scroll - (X, Y, W, H : in Integer; - DX, DY : in Integer; - Callback : in Area_Draw_Function) is - begin - fl_draw_scroll - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.int (DX), - Interfaces.C.int (DY), - Scroll_Hook'Address, - Callback.all'Address); - end Scroll; - - - procedure Text_Extents - (Text : in String; - DX, DY, W, H : out Integer) - is - Result_DX, Result_DY, Result_W, Result_H : Interfaces.C.int; - begin - fl_draw_text_extents - (Interfaces.C.To_C (Text), - Text'Length, - Result_DX, - Result_DY, - Result_W, - Result_H); - DX := Integer (Result_DX); - DY := Integer (Result_DY); - W := Integer (Result_W); - H := Integer (Result_H); - end Text_Extents; - - - function Width - (Text : in String) - return Long_Float is - begin - return Long_Float (fl_draw_width (Interfaces.C.To_C (Text), Text'Length)); - end Width; - - - function Width - (Glyph : in Character) - return Long_Float is - begin - return Long_Float (fl_draw_width2 (Character'Pos (Glyph))); - end Width; - - - function Width - (Glyph : in Wide_Character) - return Long_Float is - begin - return Long_Float (fl_draw_width2 (Wide_Character'Pos (Glyph))); - end Width; - - - function Width - (Glyph : in Wide_Wide_Character) - return Long_Float is - begin - return Long_Float (fl_draw_width2 (Wide_Wide_Character'Pos (Glyph))); - end Width; - - - - - ---------------------- - -- Manual Drawing -- - ---------------------- - - procedure Begin_Complex_Polygon is - begin - fl_draw_begin_complex_polygon; - end Begin_Complex_Polygon; - - procedure Begin_Line is - begin - fl_draw_begin_line; - end Begin_Line; - - procedure Begin_Loop is - begin - fl_draw_begin_loop; - end Begin_Loop; - - procedure Begin_Points is - begin - fl_draw_begin_points; - end Begin_Points; - - procedure Begin_Polygon is - begin - fl_draw_begin_polygon; - end Begin_Polygon; - - - procedure Arc - (X, Y, R, Start, Finish : in Long_Float) is - begin - fl_draw_arc - (Interfaces.C.double (X), - Interfaces.C.double (Y), - Interfaces.C.double (R), - Interfaces.C.double (Start), - Interfaces.C.double (Finish)); - end Arc; - - - procedure Arc - (X, Y, W, H : in Integer; - Start, Finish : in Long_Float) is - begin - fl_draw_arc2 - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.double (Start), - Interfaces.C.double (Finish)); - end Arc; - - - procedure Chord - (X, Y, W, H : in Integer; - Angle1, Angle2 : in Long_Float) is - begin - fl_draw_chord - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.double (Angle1), - Interfaces.C.double (Angle2)); - end Chord; - - - procedure Circle - (X, Y, R : in Long_Float) is - begin - fl_draw_circle - (Interfaces.C.double (X), - Interfaces.C.double (Y), - Interfaces.C.double (R)); - end Circle; - - - procedure Curve - (X0, Y0 : in Long_Float; - X1, Y1 : in Long_Float; - X2, Y2 : in Long_Float; - X3, Y3 : in Long_Float) is - begin - fl_draw_curve - (Interfaces.C.double (X0), Interfaces.C.double (Y0), - Interfaces.C.double (X1), Interfaces.C.double (Y1), - Interfaces.C.double (X2), Interfaces.C.double (Y2), - Interfaces.C.double (X3), Interfaces.C.double (Y3)); - end Curve; - - - procedure Frame - (X, Y, W, H : in Integer; - Top, Left, Bottom, Right : in Greyscale) is - begin - fl_draw_frame - (Interfaces.C.To_C - (Character (Top) & Character (Left) & Character (Bottom) & Character (Right)), - Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H)); - end Frame; - - - procedure Gap is - begin - fl_draw_gap; - end Gap; - - - procedure Line - (X0, Y0 : in Integer; - X1, Y1 : in Integer) is - begin - fl_draw_line - (Interfaces.C.int (X0), Interfaces.C.int (Y0), - Interfaces.C.int (X1), Interfaces.C.int (Y1)); - end Line; - - - procedure Line - (X0, Y0 : in Integer; - X1, Y1 : in Integer; - X2, Y2 : in Integer) is - begin - fl_draw_line2 - (Interfaces.C.int (X0), Interfaces.C.int (Y0), - Interfaces.C.int (X1), Interfaces.C.int (Y1), - Interfaces.C.int (X2), Interfaces.C.int (Y2)); - end Line; - - - procedure Outline - (X0, Y0 : in Integer; - X1, Y1 : in Integer; - X2, Y2 : in Integer) is - begin - fl_draw_loop - (Interfaces.C.int (X0), Interfaces.C.int (Y0), - Interfaces.C.int (X1), Interfaces.C.int (Y1), - Interfaces.C.int (X2), Interfaces.C.int (Y2)); - end Outline; - - - procedure Outline - (X0, Y0 : in Integer; - X1, Y1 : in Integer; - X2, Y2 : in Integer; - X3, Y3 : in Integer) is - begin - fl_draw_loop2 - (Interfaces.C.int (X0), Interfaces.C.int (Y0), - Interfaces.C.int (X1), Interfaces.C.int (Y1), - Interfaces.C.int (X2), Interfaces.C.int (Y2), - Interfaces.C.int (X3), Interfaces.C.int (Y3)); - end Outline; - - - procedure Pie - (X, Y, W, H : in Integer; - Angle1, Angle2 : in Long_Float) is - begin - fl_draw_pie - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.double (Angle1), - Interfaces.C.double (Angle2)); - end Pie; - - - procedure Point - (X, Y : in Integer) is - begin - fl_draw_point - (Interfaces.C.int (X), - Interfaces.C.int (Y)); - end Point; - - - procedure Polygon - (X0, Y0 : in Integer; - X1, Y1 : in Integer; - X2, Y2 : in Integer) is - begin - fl_draw_polygon - (Interfaces.C.int (X0), Interfaces.C.int (Y0), - Interfaces.C.int (X1), Interfaces.C.int (Y1), - Interfaces.C.int (X2), Interfaces.C.int (Y2)); - end Polygon; - - - procedure Polygon - (X0, Y0 : in Integer; - X1, Y1 : in Integer; - X2, Y2 : in Integer; - X3, Y3 : in Integer) is - begin - fl_draw_polygon2 - (Interfaces.C.int (X0), Interfaces.C.int (Y0), - Interfaces.C.int (X1), Interfaces.C.int (Y1), - Interfaces.C.int (X2), Interfaces.C.int (Y2), - Interfaces.C.int (X3), Interfaces.C.int (Y3)); - end Polygon; - - - procedure Rect - (X, Y, W, H : in Integer) is - begin - fl_draw_rect - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H)); - end Rect; - - - procedure Rect - (X, Y, W, H : in Integer; - Hue : in Color) is - begin - fl_draw_rect2 - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.unsigned (Hue)); - end Rect; - - - procedure Rect_Fill - (X, Y, W, H : in Integer) is - begin - fl_draw_rect_fill - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H)); - end Rect_Fill; - - - procedure Rect_Fill - (X, Y, W, H : in Integer; - Hue : in Color) is - begin - fl_draw_rect_fill2 - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.unsigned (Hue)); - end Rect_Fill; - - - procedure Rect_Fill - (X, Y, W, H : in Integer; - R, G, B : in Color_Component) is - begin - fl_draw_rect_fill3 - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.unsigned_char (R), - Interfaces.C.unsigned_char (G), - Interfaces.C.unsigned_char (B)); - end Rect_Fill; - - - procedure Ecks_Why_Line - (X0, Y0, X1 : in Integer) is - begin - fl_draw_xy_line - (Interfaces.C.int (X0), - Interfaces.C.int (Y0), - Interfaces.C.int (X1)); - end Ecks_Why_Line; - - - procedure Ecks_Why_Line - (X0, Y0, X1, Y2 : in Integer) is - begin - fl_draw_xy_line2 - (Interfaces.C.int (X0), - Interfaces.C.int (Y0), - Interfaces.C.int (X1), - Interfaces.C.int (Y2)); - end Ecks_Why_Line; - - - procedure Ecks_Why_Line - (X0, Y0, X1, Y2, X3 : in Integer) is - begin - fl_draw_xy_line3 - (Interfaces.C.int (X0), - Interfaces.C.int (Y0), - Interfaces.C.int (X1), - Interfaces.C.int (Y2), - Interfaces.C.int (X3)); - end Ecks_Why_Line; - - - procedure Why_Ecks_Line - (X0, Y0, Y1 : in Integer) is - begin - fl_draw_yx_line - (Interfaces.C.int (X0), - Interfaces.C.int (Y0), - Interfaces.C.int (Y1)); - end Why_Ecks_Line; - - - procedure Why_Ecks_Line - (X0, Y0, Y1, X2 : in Integer) is - begin - fl_draw_yx_line2 - (Interfaces.C.int (X0), - Interfaces.C.int (Y0), - Interfaces.C.int (Y1), - Interfaces.C.int (X2)); - end Why_Ecks_Line; - - - procedure Why_Ecks_Line - (X0, Y0, Y1, X2, Y3 : in Integer) is - begin - fl_draw_yx_line3 - (Interfaces.C.int (X0), - Interfaces.C.int (Y0), - Interfaces.C.int (Y1), - Interfaces.C.int (X2), - Interfaces.C.int (Y3)); - end Why_Ecks_Line; - - - procedure End_Complex_Polygon is - begin - fl_draw_end_complex_polygon; - end End_Complex_Polygon; - - procedure End_Line is - begin - fl_draw_end_line; - end End_Line; - - procedure End_Loop is - begin - fl_draw_end_loop; - end End_Loop; - - procedure End_Points is - begin - fl_draw_end_points; - end End_Points; - - procedure End_Polygon is - begin - fl_draw_end_polygon; - end End_Polygon; - - -end FLTK.Draw; - - |