1
2
3
4
5
6
7
8
9
10
11
12
13
14\unprotect
15
16\defineMPinstance
17 [three]
18 [\s!format=metafun,
19 \s!extensions=\v!yes,
20 \s!initializations=\v!yes,
21 \c!method=\s!double]
22
23\startMPdefinitions{three}
24 loadmodule "tres" ;
25\stopMPdefinitions
26
27\protect
28
29\continueifinputfile{mthree.mkiv}
30
31
32
33
34\starttext
35
36
37
38\startMPpage[instance=three]
39 path f ; f := (
40 projection Origin --
41 projection (1,0,0) --
42 projection (1,1,0) --
43 projection (0,1,0) --
44 projection (0,1,1) --
45 projection (1,1,1) --
46 projection (1,0,1) --
47 projection (0,0,1) --
48 cycle
49 ) scaled 5cm ;
50
51 fill f withcolor "darkred" ;
52
53 path p ; p := (
54 projection Origin --
55 projection (1,0,0) --
56 projection (1,1,0) --
57 projection (0,1,0) --
58 projection (0,1,1) --
59 projection (1,1,1) --
60 projection (1,0,1) --
61 projection (0,0,1) --
62 cycle
63 ) scaled 5cm ;
64
65 draw p withcolor .5white ;
66
67 for i=0 upto length p :
68 draw point i of p withpen currentpen scaled 2mm withcolor "lightblue" ;
69 endfor ;
70\stopMPpage
71
72\stoptext
73 |