open Mlpost
open Num
open Command
open Helpers
open Path
open Point
open Color
open Box

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


let () = List.iter (fun (i,fig) -> 
                      Metapost.emit ("boxes"^(string_of_int i)) 
                        (Picture.scale (Num.bp 3.) fig))
  [1,boxes1;
   2,boxes2;
   3,boxes3;
   4,boxes4;
   5,boxes5;
   6,boxes6;
   7,boxes7;
   8,boxes8;
   9,boxes9]

This document was generated using caml2html