diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/dozenal/mf/dozenal.mf |
Initial commit
Diffstat (limited to 'fonts/dozenal/mf/dozenal.mf')
-rw-r--r-- | fonts/dozenal/mf/dozenal.mf | 149 |
1 files changed, 149 insertions, 0 deletions
diff --git a/fonts/dozenal/mf/dozenal.mf b/fonts/dozenal/mf/dozenal.mf new file mode 100644 index 0000000000..9fbbdeec7e --- /dev/null +++ b/fonts/dozenal/mf/dozenal.mf @@ -0,0 +1,149 @@ +% +AMDG This program was begun on 14 November 2008, the +% feast of St. Josaphat, and it is humbly dedicated to him +% and to the Immaculate Heart of Mary for their prayers, and +% to the Sacred Heart of Jesus for His mercy. + +define_pixels(u,fig_height,cap_stem,thin_join,o,stem,stem,bar,tiny); +define_blacker_pixels(thin_join, curve); + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Prepare the character for the numeral X % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +beginchar("X",9u#,fig_height#,0); "The Numeral X"; + +z1 = (w-u, h+o/2); +z2 = (w-u, (h+o/2)-1.5*cap_stem); +z3 = z2 - (2thin_join, 0); +x4 = (w-u-2thin_join); +y4 = ((h+o/2) - ((2cap_stem/3))); +z5 = (u+2thin_join, ((h+o/2) - ((2*cap_stem)/3))); +z6 = (w-u, fig_height/3); +z7 = (w/2, 0-o); +z8 = (u, fig_height/4); +z9 = z8 + (5tiny/2, 5tiny/2); +z10 = z8 + (5tiny,0); +z11 = z10 - (3tiny, tiny); +z12 = z7 + (0, 1.5thin_join); +z13 = z6 - (cap_stem, 0); +z14 = z5 - (2thin_join, 0); +z15 = (u, h+o/2); + +path X; +X = z1--z2--z3--z4--z5{z6-z5}..z6..{left}z7{left}..{up}z8..z9..z10..{up}z11{down}..{right}z12{right}..{up}z13..{z14-z13}z14--z15--cycle; + +fill X reflectedabout ((w/2,0),(w/2,h)); + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15); + +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Prepare the character for the numeral E % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +beginchar("E",9u#,fig_height#,0); "The Numeral E"; + +z1 = (w/2, h+o); +z2 = (w/2, 0-o); +z3 = (w/2, h/2); +z4 = (w-u, h/4-5tiny/2); +z5 = (w-u, 3h/4+5tiny/2); +z6 = (u-o, (h/4)); +z7 = (u-o, (3h/4)); +z8 = z9 + (3tiny,-tiny); +z9 = z4 - (5tiny, 0); +z10 = z9 + (5tiny/2, 5tiny/2); +z11 = z12 + (3tiny,tiny); +z12 = z5 - (5tiny, 0); +z13 = z12 + (5tiny/2, -5tiny/2); +z14 = z2 + (0,1.4thin_join); +z15 = z6 + (cap_stem, 0); +z16 = z3 + (cap_stem, -thin_join/2); +z17 = z16 + (0, thin_join); +z18 = z7 + (cap_stem, 0); +z19 = z1 - (0, 1.4thin_join); + +fill z5..{left}z1{left}..{down}z7{down}..{right}z3{left}..{down}z6{down}..{right}z2{right}..z4..z10..z9..{up}z8{down}..{left}z14{left}..{up}z15{up}..{right}z16--z17{left}..{up}z18{up}..{right}z19{right}..{down}z11{up}..{down}z12..z13..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19); + +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Prepare the character for the tally mark 1 % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +beginchar("1",9u#,fig_height#,0); "The Tally Mark 1"; + +z0 = (w/2,h+o); +z1 = (w/2,0-o); + +pickup pencircle xscaled u rotated 45; +draw z0--z1; + +endchar; + +beginchar("2",fig_height#+u#,fig_height#,0); "The Tally Mark 2"; + +z0 = (0+o,h+o); +z1 = (0+o,0-o); +z2 = (h-o,0-o); + +pickup pencircle xscaled u rotated 45; +draw z0--z1--z2; + +endchar; + +beginchar("3",fig_height#+u#,fig_height#,0); "The Tally Mark 3"; + +z0 = (0+u,h+o); +z1 = (0+u,0-o); +z2 = (h-o,0-o); +z3 = (h-o,h+o); + +pickup pencircle xscaled u rotated 45; +draw z0--z1--z2--z3; +endchar; + +beginchar("4",fig_height#+u#,fig_height#,0); "The Tally Mark 4"; + +z0 = (0+u,h+o); +z1 = (0+u,0-o); +z2 = (h-o,0-o); +z3 = (h-o,h+o); + +pickup pencircle xscaled u rotated 45; +draw z0--z1--z2--z3--z0; +endchar; + +beginchar("5",fig_height#+u#,fig_height#,0); "The Tally Mark 5"; + +z0 = (0+u,h+o); +z1 = (0+u,0-o); +z2 = (h-o,0-o); +z3 = (h-o,h+o); + +pickup pencircle xscaled u rotated 45; +draw z0--z1--z2--z3--z0; +pickup pencircle xscaled u rotated 45; +draw z0--z2; +endchar; + +beginchar("6",fig_height#+u#,fig_height#,0); "The Tally Mark 6"; + +z0 = (0+u,h+o); +z1 = (0+u,0-o); +z2 = (h-o,0-o); +z3 = (h-o,h+o); + +pickup pencircle xscaled u rotated 45; +draw z0--z1--z2--z3--z0; +pickup pencircle xscaled u rotated 45; +draw z0--z2; +pickup pencircle xscaled u rotated -45; +draw z3--z1; +endchar; + + +end; |