#open "windows";;
#open "camlwin";;

type gr_graph == gr_user;;


value make_graph : gr_window -> int -> int -> int -> int -> gr_graph
    (* make_graph win x y w h create a new graph object, in the window win.
       the top left corner is at (x,y), the sizes are (w,h). *)
  and add_func : gr_graph -> (int * int) list -> color -> unit
     (* add_func Graph curb col add a curb to the graph.
        the curb will be drawn with the color col. *)
  and draw_graduation : gr_graph -> int -> unit
     (* indicate if the graph object must draw the graduation 0 = no graduation, other = interval). *)
  and clear_graph : gr_graph -> unit
     (* remove the curbs from graph *)
;;
