diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/skak/skakf10b.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/skak/skakf10b.mf | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/skak/skakf10b.mf b/Master/texmf-dist/fonts/source/public/skak/skakf10b.mf new file mode 100644 index 00000000000..6caa09e9a1d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/skak/skakf10b.mf @@ -0,0 +1,65 @@ +% This is `skakf10b.mf' version 1.0 as of 6/99 +% based on original work by Piet Tutelaers + +% Informator symbols added +% by Dirk Baechle, dl9obn@darc.de <2002-11-06> + +% generates a font consisting of chess figurines + +mode_setup; +font_size 10pt#; + +u#:=10pt#; + +input skakbase; + +def figurine(expr code) = + beginchar(code, d#, .8d#, .2d#); + pickup pencircle scaled fine; + hairline_pen:=savepen; + pickup pencircle scaled thin; + thin_pen:=savepen ; % for drawing pieces + pickup pencircle scaled thick; + thick_pen:=savepen; % for drawing inside pieces + define_whole_pixels(d); + figshift:=0; + scantokens code(d, 0, -.2); + endchar; +enddef; + +def narrow_figurine(expr code) = + beginchar(code, 0.8d#, .8d#, .2d#); + pickup pencircle scaled fine; + hairline_pen:=savepen; + pickup pencircle scaled thin; + thin_pen:=savepen ; % for drawing pieces + pickup pencircle scaled thick; + thick_pen:=savepen; % for drawing inside pieces + define_whole_pixels(d); + figshift:=-0.1; + scantokens code(d, 0, -.2); + endchar; +enddef; + +M=1; % number of squares +d#:=10pt#/M; % size per square +lift=0.08; +thin#:=.47pt#; +middle#:=.7pt#; +fine#:=9/10thin#; +thick#:=5/6pt#; +define_blacker_pixels(fine, thin, middle, thick); +light=0; dark=1; white=0; black=1; +background:=light; color:=white; + +narrow_figurine("K"); +narrow_figurine("R"); +narrow_figurine("B"); +figurine("N"); +figurine("p"); +figurine("Q"); + +input skakinf; + +end; + |