summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/knuth-local/domino.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/knuth-local/domino.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/knuth-local/domino.mf40
1 files changed, 24 insertions, 16 deletions
diff --git a/Master/texmf-dist/fonts/source/public/knuth-local/domino.mf b/Master/texmf-dist/fonts/source/public/knuth-local/domino.mf
index 6bd9da121be..578110eb32d 100644
--- a/Master/texmf-dist/fonts/source/public/knuth-local/domino.mf
+++ b/Master/texmf-dist/fonts/source/public/knuth-local/domino.mf
@@ -14,41 +14,49 @@
% instead of 16,32,48. But the present scheme seems mathematically better.
mode_setup;
p#:=in#/300;
-d#:=64p#;
+%d#:=64p#;
+d#:=63p#; % changed September 2016 (makes the font slightly smaller)
define_pixels(p);
font_identifier:="DOMINO";
font_coding_scheme:="dominoes";
font_size:=10pt#;
+font_quad:=d#;
+font_normal_space:=d#;
-pickup pencircle scaled p; tiny_pen=savepen;
+pickup pencircle scaled .5p; tiny_pen=savepen;
pickup pencircle scaled 13p; huge_pen=savepen;
% I first tried 15p, and it looked OK, but the Taiwan set has smaller dots
-pickup pencircle scaled 3p; bound_pen=savepen;
def begindomchar(expr code)=
beginchar(code,d#,d#,0);
pickup tiny_pen;
- for x=0 step 2p until 60p:
- drawdot (x+.5p,1.5p); drawdot (x+1.5p,.5p);
- drawdot (.5p,x+3.5p); drawdot (1.5p,x+2.5p);
- drawdot (w-1.5p,x+1.5p); drawdot (w-.5p,x+.5p);
- drawdot (x+2.5p,h-.5p); drawdot (x+3.5p,h-1.5p);
+% for x=0 step 2p until 60p:
+% drawdot (x+.5p,1.5p); drawdot (x+1.5p,.5p);
+% drawdot (.5p,x+3.5p); drawdot (1.5p,x+2.5p);
+% drawdot (w-1.5p,x+1.5p); drawdot (w-.5p,x+.5p);
+% drawdot (x+2.5p,h-.5p); drawdot (x+3.5p,h-1.5p);
+% September 2016: that approach gave bad effect at join between domino halves
+ for x=0 step 3p until 57p:
+ drawdot (x+1.5p,1.5p);
+ drawdot (w-1.5p,x+1.5p);
+ drawdot (w-1.5p-x,h-1.5p);
+ drawdot (1.5p,h-1.5p-x);
endfor
% fill (2p,2p)--(w-2p,2p)--(w-2p,h-2p)--(2p,h-2p)--cycle;
fill (3p,3p)--(w-3p,3p)--(w-3p,h-3p)--(3p,h-3p)--cycle;
pickup huge_pen;
enddef;
-def dota = erase drawdot(16p,48p) enddef;
-def dotb = erase drawdot(32p,48p) enddef;
-def dotc = erase drawdot(48p,48p) enddef;
-def dotd = erase drawdot(16p,32p) enddef;
-def dote = erase drawdot(32p,32p) enddef;
-def dotf = erase drawdot(48p,32p) enddef;
+def dota = erase drawdot(16p,47p) enddef;
+def dotb = erase drawdot(31.5p,47p) enddef;
+def dotc = erase drawdot(47p,47p) enddef;
+def dotd = erase drawdot(16p,31.5p) enddef;
+def dote = erase drawdot(31.5p,31.5p) enddef;
+def dotf = erase drawdot(47p,31.5p) enddef;
def dotg = erase drawdot(16p,16p) enddef;
-def doth = erase drawdot(32p,16p) enddef;
-def doti = erase drawdot(48p,16p) enddef;
+def doth = erase drawdot(31.5p,16p) enddef;
+def doti = erase drawdot(47p,16p) enddef;
def v(expr code)=128+ASCII code enddef;
% change character code for vertical format