open Mlpost

module P = Path
module C = Color

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

show/hide code

show/hide code

show/hide code

show/hide code

let () = 
  List.iter (fun (name,fig) -> Metapost.emit name 
               (Picture.scale (Num.bp 2.) fig))
    ["color1",color1;
     "color2",color2;
     "color3",color3;
     "color4",color_gen_line 10]

This document was generated using caml2html