1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
open Mlpost
module P = Pen
module T = Transform
module N = Num
open Path
open Command
open Color
let a = (0., 0.)
let b = (1., 0.)
let c = (0., 1.)
let l = [ a; b; c ]
let d12 =
let pen = P.circle ~tr:[ T.scaled 2. ] () in
let triangle =
List.map2
(fun (a, b) color ->
draw ~pen ~color (path ~style:JLine ~scale:N.cm [ a; b ]))
[ (a, b); (b, c); (c, a) ] [ red; blue; green ]
in
let pic = Picture.make (seq triangle) in
let pic2 =
Picture.transform
[
Transform.scaled 0.3;
Transform.rotated 30.;
Transform.shifted (Point.p ~scale:N.cm (0.2, 0.2));
]
pic
in
[ draw_pic pic; draw_pic pic2 ]
let _ = Metapost.emit "colortriangle" d12
|
