<html><head>
<link rel="stylesheet" href="style.css" type="text/css">
<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="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">external</span> clear_graph : unit <span class="keywordsign">-></span> unit = <span class="string">"gr_clear_graph"</span><br>
<span class="keyword">external</span> size_x : unit <span class="keywordsign">-></span> int = <span class="string">"gr_size_x"</span><br>
<span class="keyword">external</span> size_y : unit <span class="keywordsign">-></span> int = <span class="string">"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">"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">"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">"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">"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">"gr_current_x"</span><br>
<span class="keyword">external</span> current_y : unit <span class="keywordsign">-></span> int = <span class="string">"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">"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">external</span> draw_rect : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit = <span class="string">"gr_draw_rect"</span><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">external</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="string">"gr_draw_arc"</span> <span class="string">"gr_draw_arc_nat"</span><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">external</span> set_line_width : int <span class="keywordsign">-></span> unit = <span class="string">"gr_set_line_width"</span><br>
<span class="keyword">external</span> draw_char : char <span class="keywordsign">-></span> unit = <span class="string">"gr_draw_char"</span><br>
<span class="keyword">external</span> draw_string : string <span class="keywordsign">-></span> unit = <span class="string">"gr_draw_string"</span><br>
<span class="keyword">external</span> set_font : string <span class="keywordsign">-></span> unit = <span class="string">"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">"gr_text_size"</span><br>
<span class="keyword">external</span> fill_rect : int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit = <span class="string">"gr_fill_rect"</span><br>
<span class="keyword">external</span> fill_poly : (int * int) array <span class="keywordsign">-></span> unit = <span class="string">"gr_fill_poly"</span><br>
<span class="keyword">external</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="string">"gr_fill_arc"</span> <span class="string">"gr_fill_arc_nat"</span><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">"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">"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">"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 = <span class="string">"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">"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">and</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">"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">"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">"gr_synchronize"</span><br>
<span class="keyword">external</span> display_mode : bool <span class="keywordsign">-></span> unit = <span class="string">"gr_display_mode"</span><br>
<span class="keyword">external</span> remember_mode : bool <span class="keywordsign">-></span> unit = <span class="string">"gr_remember_mode"</span><br>
<span class="keyword">end</span></code></body></html>
