open Mlpost
open Point
open Path
open Command
open Dash

hide mpost show cairo png show cairo ps show cairo pdf show cairo svg


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 
               (Picture.scale (Num.bp 3.) fig))
    [ "paths1", paths1 ;
      "paths2", paths2;
      "paths3", paths3;
      "paths4", paths4;
      "paths5", paths5;
      "paths6", paths6;
      "paths7", paths7;
      "paths8", paths8;
      "paths9", paths9;
      "paths10", paths10;
      "paths11", paths11;
      "paths12", paths12;
      "paths13", paths13;
      "paths14", paths14;
      "paths15", paths15;
      "paths16", paths16;
      "paths17", paths17;
    ]

This document was generated using caml2html