open Mlpost
open Command
open Picture
open Point
open Path
module H = Helpers

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

show/hide code

show/hide code


let _ = 
  List.iter (fun (name,fig) -> Metapost.emit name 
               (Picture.scale (Num.bp 3.) fig))
  [ "label1", label1;
    "label2", label2;
  ]

This document was generated using caml2html