summaryrefslogtreecommitdiff
path: root/fonts/moonphase/moonphase.mf
blob: a3360c8e3016fa16c1103cd4bf6f4696bd2b40c2 (plain)
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.