diff options
author | Ian Jauslin <jauslin@ias.edu> | 2017-09-13 23:29:54 +0000 |
---|---|---|
committer | Ian Jauslin <jauslin@ias.edu> | 2017-09-15 16:34:06 +0000 |
commit | 52a5942994007acc29107f036c9b8f386b19399f (patch) | |
tree | 70b55d149bb149239b158123d884595440015fe5 /dimer_font/dimer.mf |
Initial commitv0.0
Diffstat (limited to 'dimer_font/dimer.mf')
-rw-r--r-- | dimer_font/dimer.mf | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/dimer_font/dimer.mf b/dimer_font/dimer.mf new file mode 100644 index 0000000..8f0e49b --- /dev/null +++ b/dimer_font/dimer.mf @@ -0,0 +1,65 @@ +%% half-dimer pointing up +% name, width, height, depth +beginchar("a",1.5pt#,7pt#,0); + pickup pencircle scaled 4; + + x1=y1=x2=x3=0; + y2=h; + x4=-x5=-y4=-y5=w; + y3=2y4; + + draw z1..z2; + draw z1..z4..z3..z5..cycle; +endchar; + +%% half-dimer pointing down +beginchar("b",1.5pt#,7pt#,0); + pickup pencircle scaled 4; + + x1=x2=x3=0; + y1=h-2w; + y2=-2w; + x4=-x5=w; + y4=y5=h-w; + y3=h; + + draw z1..z2; + draw z1..z4..z3..z5..cycle; +endchar; + +%% radius for horizontal dimers +r=1.5pt; + +%% half-dimer pointing right +beginchar("c",10pt#,4.5pt#,0); + pickup pencircle scaled 4; + + y1=y2=y3=h-r; + x3=0; + y4=h; + y5=h-2r; + x4=x5=r; + x1=2r; + x2=w; + + draw z1..z2; + draw z1..z4..z3..z5..cycle; +endchar; + +%% half-dimer pointing left +beginchar("d",10pt#,4.5pt#,0); + pickup pencircle scaled 4; + + y1=y2=y3=h-r; + x3=w; + y4=h; + y5=h-2r; + x4=x5=w-r; + x1=w-2r; + x2=0; + + draw z1..z2; + draw z1..z4..z3..z5..cycle; +endchar; + +end |