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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
% moonphase.mf
% by Stanislav Brabec, utx@k332.feld.cvut.cz
font_size=10pt#;
mode_setup;
design_size=10pt#;
path octcircle,fiveoctcircle,profile,peye,leye,reye,nose,lips;
octcircle=(right{up}..(right+up)/sqrt2) scaled .5;
fiveoctcircle = halfcircle rotated -22.5 & octcircle rotated 157.5;
profile = (0pt,9.5pt)---(0pt,7.5pt)..(-.5pt,6pt)..(-.8pt,4.7pt)..
(0pt,4.5pt)---(.5pt,4.6pt)--
(0pt,4.5pt)--(0pt,2.5pt)--(1.3pt,2.7pt)--(0pt,2.5pt)--(.2pt,.5pt);
peye = (1pt,7.5pt)..{5*right+up}(2pt,7.3pt);
leye = (3pt,7.4pt)..{5*right+up}(4pt,7.3pt);
reye = (6pt,7.3pt){5*right+down}..(7pt,7.4pt);
nose =
(5pt,6.5pt)---(5pt,5.8pt)..(4.5pt,4.2pt)..(5pt,3.9pt)---(5.2pt,3.9pt);
lips = (4pt,2.5pt)..(5pt,2.4pt)..(6pt,2.5pt);
"New Moon";
beginchar(0,10pt#,10pt#,0);
fill fullcircle scaled 10pt shifted (5pt,5pt);
pickup pencircle scaled .75pt;
undraw leye;
undraw reye;
undraw nose;
undraw lips;
endchar;
"Open Moon";
beginchar(1,7.8pt#,10pt#,0);
pickup pencircle scaled .8pt;
draw fiveoctcircle scaled 9.2pt rotated -90 shifted (2.2pt,5pt);
pickup pencircle scaled .5pt;
draw profile shifted (2.2pt,0pt);
draw peye shifted (2.2pt,0pt);
endchar;
"Full Moon";
beginchar(2,10pt#,10pt#,0);
pickup pencircle scaled .7pt;
draw fullcircle scaled 9.3pt shifted (5pt,5pt);
pickup pencircle scaled .5pt;
draw leye;
draw reye;
draw nose;
draw lips;
endchar;
"Close Moon";
beginchar(3,7.8pt#,10pt#,0);
pickup pencircle scaled .8pt;
draw fiveoctcircle scaled 9.2pt rotated 90 shifted (5pt,5pt);
pickup pencircle scaled .5pt;
draw profile reflectedabout((0,0),(0,1)) shifted (5pt,0pt);
draw peye reflectedabout((0,0),(0,1)) shifted (5pt,0pt);
endchar;
end.
|
