open Command
open Picture
open Path
open Num
open Num.Infix
open Helpers


show/hide code

open Diag

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 fig)
  [ "bresenham", bresenham;
    "cfg", cfg;
    "chess", chess;
    "diag1", diag1;
    "diag2", diag2;
    "drums", drums;
    "escher", escher;
    "lattice", lattice;
    "other208", other208;
    "proval", proval;
    "randtree", randtree;
    "rubik", rubik;
    "test", test;
  ]

This document was generated using caml2html