<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="index.html"> <link title="Index of types" rel=Appendix href="index_types.html"> <link title="Index of exceptions" rel=Appendix href="index_exceptions.html"> <link title="Index of values" rel=Appendix href="index_values.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="Index of module types" rel=Appendix href="index_module_types.html"> <link title="Arg" rel="Chapter" href="Arg.html"> <link title="Arith_status" rel="Chapter" href="Arith_status.html"> <link title="Array" rel="Chapter" href="Array.html"> <link title="ArrayLabels" rel="Chapter" href="ArrayLabels.html"> <link title="Big_int" rel="Chapter" href="Big_int.html"> <link title="Bigarray" rel="Chapter" href="Bigarray.html"> <link title="Buffer" rel="Chapter" href="Buffer.html"> <link title="Callback" rel="Chapter" href="Callback.html"> <link title="CamlinternalLazy" rel="Chapter" href="CamlinternalLazy.html"> <link title="CamlinternalMod" rel="Chapter" href="CamlinternalMod.html"> <link title="CamlinternalOO" rel="Chapter" href="CamlinternalOO.html"> <link title="Char" rel="Chapter" href="Char.html"> <link title="Complex" rel="Chapter" href="Complex.html"> <link title="Condition" rel="Chapter" href="Condition.html"> <link title="Dbm" rel="Chapter" href="Dbm.html"> <link title="Digest" rel="Chapter" href="Digest.html"> <link title="Dynlink" rel="Chapter" href="Dynlink.html"> <link title="Event" rel="Chapter" href="Event.html"> <link title="Filename" rel="Chapter" href="Filename.html"> <link title="Format" rel="Chapter" href="Format.html"> <link title="Gc" rel="Chapter" href="Gc.html"> <link title="Genlex" rel="Chapter" href="Genlex.html"> <link title="Graphics" rel="Chapter" href="Graphics.html"> <link title="GraphicsX11" rel="Chapter" href="GraphicsX11.html"> <link title="Hashtbl" rel="Chapter" href="Hashtbl.html"> <link title="Int32" rel="Chapter" href="Int32.html"> <link title="Int64" rel="Chapter" href="Int64.html"> <link title="Lazy" rel="Chapter" href="Lazy.html"> <link title="Lexing" rel="Chapter" href="Lexing.html"> <link title="List" rel="Chapter" href="List.html"> <link title="ListLabels" rel="Chapter" href="ListLabels.html"> <link title="Map" rel="Chapter" href="Map.html"> <link title="Marshal" rel="Chapter" href="Marshal.html"> <link title="MoreLabels" rel="Chapter" href="MoreLabels.html"> <link title="Mutex" rel="Chapter" href="Mutex.html"> <link title="Nativeint" rel="Chapter" href="Nativeint.html"> <link title="Num" rel="Chapter" href="Num.html"> <link title="Obj" rel="Chapter" href="Obj.html"> <link title="Oo" rel="Chapter" href="Oo.html"> <link title="Parsing" rel="Chapter" href="Parsing.html"> <link title="Pervasives" rel="Chapter" href="Pervasives.html"> <link title="Printexc" rel="Chapter" href="Printexc.html"> <link title="Printf" rel="Chapter" href="Printf.html"> <link title="Queue" rel="Chapter" href="Queue.html"> <link title="Random" rel="Chapter" href="Random.html"> <link title="Scanf" rel="Chapter" href="Scanf.html"> <link title="Set" rel="Chapter" href="Set.html"> <link title="Sort" rel="Chapter" href="Sort.html"> <link title="Stack" rel="Chapter" href="Stack.html"> <link title="StdLabels" rel="Chapter" href="StdLabels.html"> <link title="Str" rel="Chapter" href="Str.html"> <link title="Stream" rel="Chapter" href="Stream.html"> <link title="String" rel="Chapter" href="String.html"> <link title="StringLabels" rel="Chapter" href="StringLabels.html"> <link title="Sys" rel="Chapter" href="Sys.html"> <link title="Thread" rel="Chapter" href="Thread.html"> <link title="ThreadUnix" rel="Chapter" href="ThreadUnix.html"> <link title="Tk" rel="Chapter" href="Tk.html"> <link title="Unix" rel="Chapter" href="Unix.html"> <link title="UnixLabels" rel="Chapter" href="UnixLabels.html"> <link title="Weak" rel="Chapter" href="Weak.html"><title>Graphics</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">exception</span> <span class="constructor">Graphic_failure</span> <span class="keyword">of</span> string<br> <span class="keyword">val</span> open_graph : string <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> close_graph : unit <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_window_title : string <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> resize_window : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">external</span> clear_graph : unit <span class="keywordsign">-></span> unit = <span class="string">"caml_gr_clear_graph"</span><br> <span class="keyword">external</span> size_x : unit <span class="keywordsign">-></span> int = <span class="string">"caml_gr_size_x"</span><br> <span class="keyword">external</span> size_y : unit <span class="keywordsign">-></span> int = <span class="string">"caml_gr_size_y"</span><br> <span class="keyword">type</span> color = int<br> <span class="keyword">val</span> rgb : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="constructor">Graphics</span>.color<br> <span class="keyword">external</span> set_color : <span class="constructor">Graphics</span>.color <span class="keywordsign">-></span> unit = <span class="string">"caml_gr_set_color"</span><br> <span class="keyword">val</span> background : <span class="constructor">Graphics</span>.color<br> <span class="keyword">val</span> foreground : <span class="constructor">Graphics</span>.color<br> <span class="keyword">val</span> black : <span class="constructor">Graphics</span>.color<br> <span class="keyword">val</span> white : <span class="constructor">Graphics</span>.color<br> <span class="keyword">val</span> red : <span class="constructor">Graphics</span>.color<br> <span class="keyword">val</span> green : <span class="constructor">Graphics</span>.color<br> <span class="keyword">val</span> blue : <span class="constructor">Graphics</span>.color<br> <span class="keyword">val</span> yellow : <span class="constructor">Graphics</span>.color<br> <span class="keyword">val</span> cyan : <span class="constructor">Graphics</span>.color<br> <span class="keyword">val</span> magenta : <span class="constructor">Graphics</span>.color<br> <span class="keyword">external</span> plot : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit = <span class="string">"caml_gr_plot"</span><br> <span class="keyword">val</span> plots : (int * int) array <span class="keywordsign">-></span> unit<br> <span class="keyword">external</span> point_color : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="constructor">Graphics</span>.color = <span class="string">"caml_gr_point_color"</span><br> <span class="keyword">external</span> moveto : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit = <span class="string">"caml_gr_moveto"</span><br> <span class="keyword">val</span> rmoveto : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">external</span> current_x : unit <span class="keywordsign">-></span> int = <span class="string">"caml_gr_current_x"</span><br> <span class="keyword">external</span> current_y : unit <span class="keywordsign">-></span> int = <span class="string">"caml_gr_current_y"</span><br> <span class="keyword">val</span> current_point : unit <span class="keywordsign">-></span> int * int<br> <span class="keyword">external</span> lineto : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit = <span class="string">"caml_gr_lineto"</span><br> <span class="keyword">val</span> rlineto : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> curveto : int * int <span class="keywordsign">-></span> int * int <span class="keywordsign">-></span> int * int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_rect : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_poly_line : (int * int) array <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_poly : (int * int) array <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_segments : (int * int * int * int) array <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_arc : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_ellipse : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> draw_circle : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_line_width : int <span class="keywordsign">-></span> unit<br> <span class="keyword">external</span> draw_char : char <span class="keywordsign">-></span> unit = <span class="string">"caml_gr_draw_char"</span><br> <span class="keyword">external</span> draw_string : string <span class="keywordsign">-></span> unit = <span class="string">"caml_gr_draw_string"</span><br> <span class="keyword">external</span> set_font : string <span class="keywordsign">-></span> unit = <span class="string">"caml_gr_set_font"</span><br> <span class="keyword">val</span> set_text_size : int <span class="keywordsign">-></span> unit<br> <span class="keyword">external</span> text_size : string <span class="keywordsign">-></span> int * int = <span class="string">"caml_gr_text_size"</span><br> <span class="keyword">val</span> fill_rect : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">external</span> fill_poly : (int * int) array <span class="keywordsign">-></span> unit = <span class="string">"caml_gr_fill_poly"</span><br> <span class="keyword">val</span> fill_arc : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> fill_ellipse : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> fill_circle : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">type</span> image<br> <span class="keyword">val</span> transp : <span class="constructor">Graphics</span>.color<br> <span class="keyword">external</span> make_image : <span class="constructor">Graphics</span>.color array array <span class="keywordsign">-></span> <span class="constructor">Graphics</span>.image<br> = <span class="string">"caml_gr_make_image"</span><br> <span class="keyword">external</span> dump_image : <span class="constructor">Graphics</span>.image <span class="keywordsign">-></span> <span class="constructor">Graphics</span>.color array array<br> = <span class="string">"caml_gr_dump_image"</span><br> <span class="keyword">external</span> draw_image : <span class="constructor">Graphics</span>.image <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> = <span class="string">"caml_gr_draw_image"</span><br> <span class="keyword">val</span> get_image : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="constructor">Graphics</span>.image<br> <span class="keyword">external</span> create_image : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="constructor">Graphics</span>.image<br> = <span class="string">"caml_gr_create_image"</span><br> <span class="keyword">external</span> blit_image : <span class="constructor">Graphics</span>.image <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> = <span class="string">"caml_gr_blit_image"</span><br> <span class="keyword">type</span> status = {<br> mouse_x : int;<br> mouse_y : int;<br> button : bool;<br> keypressed : bool;<br> key : char;<br> }<br> <span class="keyword">type</span> event = <span class="constructor">Button_down</span> <span class="keywordsign">|</span> <span class="constructor">Button_up</span> <span class="keywordsign">|</span> <span class="constructor">Key_pressed</span> <span class="keywordsign">|</span> <span class="constructor">Mouse_motion</span> <span class="keywordsign">|</span> <span class="constructor">Poll</span><br> <span class="keyword">external</span> wait_next_event : <span class="constructor">Graphics</span>.event list <span class="keywordsign">-></span> <span class="constructor">Graphics</span>.status<br> = <span class="string">"caml_gr_wait_event"</span><br> <span class="keyword">val</span> mouse_pos : unit <span class="keywordsign">-></span> int * int<br> <span class="keyword">val</span> button_down : unit <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> read_key : unit <span class="keywordsign">-></span> char<br> <span class="keyword">val</span> key_pressed : unit <span class="keywordsign">-></span> bool<br> <span class="keyword">external</span> sound : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit = <span class="string">"caml_gr_sound"</span><br> <span class="keyword">val</span> auto_synchronize : bool <span class="keywordsign">-></span> unit<br> <span class="keyword">external</span> synchronize : unit <span class="keywordsign">-></span> unit = <span class="string">"caml_gr_synchronize"</span><br> <span class="keyword">external</span> display_mode : bool <span class="keywordsign">-></span> unit = <span class="string">"caml_gr_display_mode"</span><br> <span class="keyword">external</span> remember_mode : bool <span class="keywordsign">-></span> unit = <span class="string">"caml_gr_remember_mode"</span><br> <span class="keyword">end</span></code></body></html>