summaryrefslogtreecommitdiff
path: root/fonts/moonphase
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/moonphase
Initial commit
Diffstat (limited to 'fonts/moonphase')
-rw-r--r--fonts/moonphase/moonphase.mf60
-rw-r--r--fonts/moonphase/moonphase.tex9
2 files changed, 69 insertions, 0 deletions
diff --git a/fonts/moonphase/moonphase.mf b/fonts/moonphase/moonphase.mf
new file mode 100644
index 0000000000..a3360c8e30
--- /dev/null
+++ b/fonts/moonphase/moonphase.mf
@@ -0,0 +1,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.
diff --git a/fonts/moonphase/moonphase.tex b/fonts/moonphase/moonphase.tex
new file mode 100644
index 0000000000..32cfb6f5fc
--- /dev/null
+++ b/fonts/moonphase/moonphase.tex
@@ -0,0 +1,9 @@
+% moonphase.tex
+% by Stanislav Brabec, utx@k332.feld.cvut.cz
+
+\font\moonphase=moonphase
+\def\newmoon{\hbox{\moonphase\char0}}
+\def\rightmoon{\hbox{\moonphase\char1}}
+\def\fullmoon{\hbox{\moonphase\char2}}
+\def\leftmoon{\hbox{\moonphase\char3}}
+\endinput