(* mlpost -contrib dot dot.ml *)

open Mlpost
open Mlpost_dot

module Pi = Picture
open Command

hide mpost show cairo png show cairo ps show cairo pdf show cairo svg

show/hide code

show/hide code



let () = List.iter (fun (n,f) -> Metapost.emit n f)
  ["dot_dot1",dot1;
   "dot_dot2",dot2]

This document was generated using caml2html