diff options
Diffstat (limited to 'otherlibs/graph/graphics.ml')
| -rw-r--r-- | otherlibs/graph/graphics.ml | 72 |
1 files changed, 36 insertions, 36 deletions
diff --git a/otherlibs/graph/graphics.ml b/otherlibs/graph/graphics.ml index 88e7450e0..fa2d59a38 100644 --- a/otherlibs/graph/graphics.ml +++ b/otherlibs/graph/graphics.ml @@ -20,10 +20,10 @@ exception Graphic_failure of string let _ = Callback.register_exception "Graphics.Graphic_failure" (Graphic_failure "") -external raw_open_graph: string -> unit = "gr_open_graph" -external raw_close_graph: unit -> unit = "gr_close_graph" -external sigio_signal: unit -> int = "gr_sigio_signal" -external sigio_handler: int -> unit = "gr_sigio_handler" +external raw_open_graph: string -> unit = "caml_gr_open_graph" +external raw_close_graph: unit -> unit = "caml_gr_close_graph" +external sigio_signal: unit -> int = "caml_gr_sigio_signal" +external sigio_handler: int -> unit = "caml_gr_sigio_handler" let unix_open_graph arg = Sys.set_signal (sigio_signal()) (Sys.Signal_handle sigio_handler); @@ -40,16 +40,16 @@ let (open_graph, close_graph) = | "MacOS" -> (raw_open_graph, raw_close_graph) | _ -> invalid_arg ("Graphics: unknown OS type: " ^ Sys.os_type) -external set_window_title : string -> unit = "gr_set_window_title" -external clear_graph : unit -> unit = "gr_clear_graph" -external size_x : unit -> int = "gr_size_x" -external size_y : unit -> int = "gr_size_y" +external set_window_title : string -> unit = "caml_gr_set_window_title" +external clear_graph : unit -> unit = "caml_gr_clear_graph" +external size_x : unit -> int = "caml_gr_size_x" +external size_y : unit -> int = "caml_gr_size_y" (* Double-buffering *) -external display_mode : bool -> unit = "gr_display_mode" -external remember_mode : bool -> unit = "gr_remember_mode" -external synchronize : unit -> unit = "gr_synchronize" +external display_mode : bool -> unit = "caml_gr_display_mode" +external remember_mode : bool -> unit = "caml_gr_remember_mode" +external synchronize : unit -> unit = "caml_gr_synchronize" let auto_synchronize = function | true -> display_mode true; remember_mode true; synchronize () @@ -63,7 +63,7 @@ type color = int let rgb r g b = (r lsl 16) + (g lsl 8) + b -external set_color : color -> unit = "gr_set_color" +external set_color : color -> unit = "caml_gr_set_color" let black = 0x000000 and white = 0xFFFFFF @@ -79,22 +79,22 @@ and foreground = black (* Drawing *) -external plot : int -> int -> unit = "gr_plot" +external plot : int -> int -> unit = "caml_gr_plot" let plots points = for i = 0 to Array.length points - 1 do let (x, y) = points.(i) in plot x y; done ;; -external point_color : int -> int -> color = "gr_point_color" -external moveto : int -> int -> unit = "gr_moveto" -external current_x : unit -> int = "gr_current_x" -external current_y : unit -> int = "gr_current_y" +external point_color : int -> int -> color = "caml_gr_point_color" +external moveto : int -> int -> unit = "caml_gr_moveto" +external current_x : unit -> int = "caml_gr_current_x" +external current_y : unit -> int = "caml_gr_current_y" let current_point () = current_x (), current_y () -external lineto : int -> int -> unit = "gr_lineto" +external lineto : int -> int -> unit = "caml_gr_lineto" let rlineto x y = lineto (current_x () + x) (current_y () + y) let rmoveto x y = moveto (current_x () + x) (current_y () + y) -external draw_rect : int -> int -> int -> int -> unit = "gr_draw_rect" +external draw_rect : int -> int -> int -> int -> unit = "caml_gr_draw_rect" let draw_poly, draw_poly_line = let dodraw close_flag points = if Array.length points > 0 then begin @@ -119,25 +119,25 @@ let draw_segments segs = moveto savex savey; ;; external draw_arc : int -> int -> int -> int -> int -> int -> unit - = "gr_draw_arc" "gr_draw_arc_nat" + = "caml_gr_draw_arc" "caml_gr_draw_arc_nat" let draw_ellipse x y rx ry = draw_arc x y rx ry 0 360 let draw_circle x y r = draw_arc x y r r 0 360 -external set_line_width : int -> unit = "gr_set_line_width" +external set_line_width : int -> unit = "caml_gr_set_line_width" -external fill_rect : int -> int -> int -> int -> unit = "gr_fill_rect" -external fill_poly : (int * int) array -> unit = "gr_fill_poly" +external fill_rect : int -> int -> int -> int -> unit = "caml_gr_fill_rect" +external fill_poly : (int * int) array -> unit = "caml_gr_fill_poly" external fill_arc : int -> int -> int -> int -> int -> int -> unit - = "gr_fill_arc" "gr_fill_arc_nat" + = "caml_gr_fill_arc" "caml_gr_fill_arc_nat" let fill_ellipse x y rx ry = fill_arc x y rx ry 0 360 let fill_circle x y r = fill_arc x y r r 0 360 (* Text *) -external draw_char : char -> unit = "gr_draw_char" -external draw_string : string -> unit = "gr_draw_string" -external set_font : string -> unit = "gr_set_font" -external set_text_size : int -> unit = "gr_set_text_size" -external text_size : string -> int * int = "gr_text_size" +external draw_char : char -> unit = "caml_gr_draw_char" +external draw_string : string -> unit = "caml_gr_draw_string" +external set_font : string -> unit = "caml_gr_set_font" +external set_text_size : int -> unit = "caml_gr_set_text_size" +external text_size : string -> int * int = "caml_gr_text_size" (* Images *) @@ -145,11 +145,11 @@ type image let transp = -1 -external make_image : color array array -> image = "gr_make_image" -external dump_image : image -> color array array = "gr_dump_image" -external draw_image : image -> int -> int -> unit = "gr_draw_image" -external create_image : int -> int -> image = "gr_create_image" -external blit_image : image -> int -> int -> unit = "gr_blit_image" +external make_image : color array array -> image = "caml_gr_make_image" +external dump_image : image -> color array array = "caml_gr_dump_image" +external draw_image : image -> int -> int -> unit = "caml_gr_draw_image" +external create_image : int -> int -> image = "caml_gr_create_image" +external blit_image : image -> int -> int -> unit = "caml_gr_blit_image" let get_image x y w h = let image = create_image w h in @@ -172,7 +172,7 @@ type event = | Mouse_motion | Poll -external wait_next_event : event list -> status = "gr_wait_event" +external wait_next_event : event list -> status = "caml_gr_wait_event" let mouse_pos () = let e = wait_next_event [Poll] in (e.mouse_x, e.mouse_y) @@ -188,7 +188,7 @@ let key_pressed () = (*** Sound *) -external sound : int -> int -> unit = "gr_sound" +external sound : int -> int -> unit = "caml_gr_sound" (* Splines *) let add (x1, y1) (x2, y2) = (x1 +. x2, y1 +. y2) |