open Mlpost
open Command
open Num
open Color
open Box
hide mpost
show cairo png
show cairo ps
show cairo pdf
show cairo svg
let radar1 =
let pic =
Radar.stack ~radius:(bp 50.)
~pen:(Pen.scale (bp 1.5) Pen.circle)
~color:[blue;red;green]
~label:["first";"second";"third";"fourth";"fifth"]
[[3.;4.;5.;6.;4.];
[6.;5.;2.;1.;1.];
[1.;7.;2.;4.;5.]]
in
draw_pic pic
let radar2 =
let pics =
Radar.compare ~radius:(bp 20.)
~pen:(Pen.scale (bp 0.5) Pen.circle)
~color:[lightblue;lightred;lightgreen] ~fill:true
[[3.;4.;5.;6.;4.];
[6.;5.;2.;1.;1.];
[1.;7.;2.;4.;5.]]
in
Box.draw (Box.vbox ~padding:(bp 10.) (List.map (Box.pic ~stroke:None) pics))
let _ =
List.iter (fun (name,fig) -> Metapost.emit name
(Picture.scale (Num.bp 3.) fig))
[ "radar1", radar1;
"radar2", radar2;
]
This document was generated using
caml2html