open Box
open Tree


let tex = tex ~stroke:(Some Color.black) 

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 fig)
  [ "tree1", tree1;
    "tree2", tree2;
    "tree3", tree3;
    "tree4", tree4;
    "tree5", tree5;
    "tree6", tree6;
  ]

This document was generated using caml2html