open Mlpost
open Box
open Tree
let sprintf = Format.sprintf

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

show/hide code

show/hide code

show/hide code

show/hide code

show/hide code

show/hide code

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 3.) fig))
  [ "tree1", tree1;
    "tree2", tree2;
    "tree3", tree3;
    "tree4", tree4;
    "tree5", tree5;
    "tree6", tree6;
    "tree7", tree7;
    "tree8", tree8;
    "tree9", tree9;
    "tree10", tree10;
    "tree11", tree11;
    "tree12", tree12;
    "tree13", tree13;
    "tree14", tree14;
  ]

This document was generated using caml2html