open Path
open Command
open Point
open Dash



let l = [0.,0.; 1., 0.; 0., 1.]

show/hide code

show/hide code

show/hide code

show/hide code

show/hide code

let a = cmp (0., 0.)
let b = cmp (1., 0.)
let c = cmp (0., 1.)



show/hide code

show/hide code

show/hide code

show/hide code

show/hide code

show/hide code
let triangle = path ~scale:Num.cm ~style:jLine ~cycle:jLine l


show/hide code

show/hide code
let pen = Pen.scale (Num.bp 2.) Pen.circle

show/hide code

show/hide code

show/hide code

show/hide code

let _ = 
  List.iter (fun (name,fig) -> Metapost.emit name fig)
    [ "path1", path1 ;
      "path2", path2;
      "path3", path3;
      "path4", path4;
      "path5", path5;
      "path6", path6;
      "path7", path7;
      "path8", path8;
      "path9", path9;
      "path10", path10;
      "path11", path11;
      "path12", path12;
      "path13", path13;
      "path14", path14;
      "path15", path15;
      "cheno11", cheno11;
      "cheno14", cheno14;
    ]

This document was generated using caml2html