(*
#use "topfind";;
#require "str";;
#require "unix";;
#require "findlib";;
#require "archimedes";;
--OR--
ocamlfind ocamlc -package archimedes -linkpkg benchplot.ml
*)

module A = Archimedes;;

let plot () =
  let vp = A.init ~w:300. ~h:400. ~dirs:["/home/dan/.odb/lib/archimedes";"/home/dan/.odb/lib/cairo2"] ["Cairo"; "PNG"; "output.png"] in
  A.Axes.box vp;
  A.Array.y vp ~style:(`Bars 1.) [|20.; 23.; 18.; 21.|];
  A.close vp
;;
plot();;