summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/chess
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/chess')
-rw-r--r--Master/texmf-dist/fonts/source/public/chess/chess10.mf21
-rw-r--r--Master/texmf-dist/fonts/source/public/chess/chess20.mf21
-rw-r--r--Master/texmf-dist/fonts/source/public/chess/chess30.mf21
-rw-r--r--Master/texmf-dist/fonts/source/public/chess/chessbase.mf285
-rw-r--r--Master/texmf-dist/fonts/source/public/chess/chessdiag.mf56
-rw-r--r--Master/texmf-dist/fonts/source/public/chess/chessf10.mf33
-rw-r--r--Master/texmf-dist/fonts/source/public/chess/chessfig10.mf35
-rw-r--r--Master/texmf-dist/fonts/source/public/chess/chesspieces.mf197
-rw-r--r--Master/texmf-dist/fonts/source/public/chess/empty.mf11
9 files changed, 680 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/chess/chess10.mf b/Master/texmf-dist/fonts/source/public/chess/chess10.mf
new file mode 100644
index 00000000000..50edaa81d37
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/chess/chess10.mf
@@ -0,0 +1,21 @@
+% This is `chess10.mf' version 1.0 as of 8/90
+% METAfounded by Piet Tutelaers (internet: rcpt@urc.tue.nl)
+
+% Parameters needed for a 10 points chess font.
+% A complete chess diagram is 80 X 80 points.
+
+mode_setup;
+input chessbase;
+
+M=1; % number of squares
+d#:=10pt#/M; % size per square
+fine#:=1/100*d#; thin#:=1/90*d#; thick#:=1/36*d#; border#:=1/20*d#;
+define_blacker_pixels(fine, thin, thick, border);
+pickup pencircle scaled fine; fine_pen:=savepen ; % for drawing dark squares
+pickup pencircle scaled border; border_pen:=savepen ; % for border ofboard
+pickup pencircle scaled thin; thin_pen:=savepen ; % for drawing pieces
+pickup pencircle scaled thick; thick_pen:=savepen; % for drawing inside pieces
+light=0; dark=1; white=0; black=1;
+
+input chesspieces;
+end;
diff --git a/Master/texmf-dist/fonts/source/public/chess/chess20.mf b/Master/texmf-dist/fonts/source/public/chess/chess20.mf
new file mode 100644
index 00000000000..8e5894a6709
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/chess/chess20.mf
@@ -0,0 +1,21 @@
+% This is `chess20.mf' version 1.0 as of 8/90
+% METAfounded by Piet Tutelaers (internet: rcpt@urc.tue.nl)
+
+% Parameters needed for a 20 points chess font.
+% A complete chess diagram is 160 X 160 points.
+
+mode_setup;
+input chessbase;
+
+M=1; % number of squares
+d#:=20pt#/M; % size per square
+fine#:=1/100*d#; thin#:=1/90*d#; thick#:=1/36*d#; border#:=1/20*d#;
+define_blacker_pixels(fine, thin, thick, border);
+pickup pencircle scaled fine; fine_pen:=savepen ; % for drawing dark squares
+pickup pencircle scaled border; border_pen:=savepen ; % for border ofboard
+pickup pencircle scaled thin; thin_pen:=savepen ; % for drawing pieces
+pickup pencircle scaled thick; thick_pen:=savepen; % for drawing inside pieces
+light=0; dark=1; white=0; black=1;
+
+input chesspieces;
+end;
diff --git a/Master/texmf-dist/fonts/source/public/chess/chess30.mf b/Master/texmf-dist/fonts/source/public/chess/chess30.mf
new file mode 100644
index 00000000000..21c227ce08b
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/chess/chess30.mf
@@ -0,0 +1,21 @@
+% This is `chess30.mf' version 1.0 as of 8/90
+% METAfounded by Piet Tutelaers (internet: rcpt@urc.tue.nl)
+
+% Parameters needed for a 30 points chess font.
+% A complete chess diagram is 240 X 240 points.
+
+mode_setup;
+input chessbase;
+
+M=1; % number of squares
+d#:=30pt#/M; % size per square
+fine#:=1/100*d#; thin#:=1/90*d#; thick#:=1/36*d#; border#:=1/20*d#;
+define_blacker_pixels(fine, thin, thick, border);
+pickup pencircle scaled fine; fine_pen:=savepen ; % for drawing dark squares
+pickup pencircle scaled border; border_pen:=savepen ; % for border ofboard
+pickup pencircle scaled thin; thin_pen:=savepen ; % for drawing pieces
+pickup pencircle scaled thick; thick_pen:=savepen; % for drawing inside pieces
+light=0; dark=1; white=0; black=1;
+
+input chesspieces;
+end;
diff --git a/Master/texmf-dist/fonts/source/public/chess/chessbase.mf b/Master/texmf-dist/fonts/source/public/chess/chessbase.mf
new file mode 100644
index 00000000000..9aaa7f8674e
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/chess/chessbase.mf
@@ -0,0 +1,285 @@
+% This is `chessbase.mf' version 1.0 as of 8/90
+% METAfounded by Piet Tutelaers (internet: rcpt@urc.tue.nl)
+
+% In this file all pieces are defined.
+% The points defining a piece are all in the unitsquare
+% (0,0)--(0,1)--(1,1)--cycle.
+
+def dark_square(expr D) =
+ clearit; L:=min(D/4, 9); delta:=1/L;
+ pickup fine_pen;
+ for i=1 upto min(D/4,9):
+ draw (0,delta*i*D)--(D-delta*i*D,D);
+ draw (delta*i*D,0)--(D,D-delta*i*D);
+ endfor;
+ draw (0,0)--(D,D);
+ enddef;
+
+def erase_square(expr D, col, row) =
+ currentpicture:=board;
+ erase fill (0,0)--(0,1)--(1,1)--(1,0)--cycle scaled D shifted(col*D, row*D);
+ board:=currentpicture;
+ enddef;
+
+def empty_board(expr D) =
+ picture board; path border;
+ border = ((0,0)--(1,0)--(1,1)--(0,1)--cycle);
+ dark_square(D); board:=nullpicture;
+ for i=0 upto M-1:
+ for j=0 upto M-1:
+ if not odd(i+j): addto board also currentpicture shifted (D*i,D*j) fi;
+ endfor
+ endfor;
+ clearit;
+ pickup border_pen;
+ draw border scaled (M*D);
+ addto board also currentpicture;
+ currentpicture:=board;
+ enddef;
+
+def reflect(text t) =
+ forsuffixes $=t: z$'=z$ reflectedabout (z1,z2); endfor;
+ enddef;
+
+def opr(suffix $) = (x$+thick#/d#, y$) enddef; % one point right
+def opl(suffix $) = (x$-thick#/d#, y$) enddef; % one point left
+def opu(suffix $) = (x$, y$+thick#/d#) enddef; % one point up
+def opd(suffix $) = (x$, y$-thick#/d#) enddef; % one point down
+
+vardef K(expr D, col, row) =
+ clearxy;
+ path cross_bar, crown, crown_top, crown_left, crown_right, crown_lower,
+ crown_top_inner, crown_left_inner, crown_right_inner;
+ def moved = scaled D shifted (col*D, row*D) enddef;
+
+ pickup thick_pen;
+% draw cross
+ z1=(.5,.96); z2=(.5,.8); z11=(.42,.9); reflect(11);
+ cutdraw (z1--z2) moved; cutdraw (z11--z11') moved;
+% top part of crown
+ z3=(.5,.38); z21=(.475,.5); z22=(.45,.575); z23=(.45,.775);
+ reflect(21,22,23);
+ crown_top= ((z3..z21..z22..z23..z2..z23'..z22'..z21'..z3) & cycle);
+% left and right part
+ z31=z21; z32=z22; z33=(.32,.67); z34=(.13,.69); z35=(.07,.55);
+ z36=(.13,.45); z37=(.2,.34);
+ reflect(31, 32, 33, 34, 35, 36, 37);
+ crown_left=(z3..z31..z33..z34..z35..z36..z37);
+ crown_right=(z37'..z36'..z35'..z34'..z33'..z31'..z3);
+% lower part of the crown
+ z6=(.5,.095); z61=(.27,.12); z62=(.2,.15); z63=(.21,.23);
+ reflect(61, 62, 63);
+ crown_lower= ((z37--z63) & (z63--z62) & (z62..z61..z6..z61'..z62') &
+ (z62'--z63') & (z63'--z37') & (z37'..z3..z37) & cycle);
+% draw contour of crown
+ pickup thin_pen;
+ crown= crown_left & z37..z3..z37' & crown_right & cycle;
+ if background=dark: erase fill crown moved;
+ erase fill crown_top moved;
+ erase fill crown_lower moved;fi;
+ draw crown moved; draw crown_top moved;
+ if color=black:
+ z121=(.5,.5); z123=(.45,.675); z102=(.5,.77);
+ reflect(123);
+ crown_top_inner = (z121{curl 0}..z123..z102..z123'..{curl 0}z121 & cycle);
+ z131=(.45,.5); z133=(.32,.64); z134=(.13,.66); z135=(.10,.55);
+ z136=(.16,.45); z137=(.22,.36); z103=(.475,.4);
+ crown_left_inner= ((z103..z131..z133..z134..z135..z136..z137)
+ & (z137..{right}z103) & cycle);
+ crown_right_inner=crown_left_inner reflectedabout (z1,z2);
+ fill crown_top_inner moved;
+ fill crown_left_inner moved;
+ fill crown_right_inner moved;
+ fill crown_lower moved;
+ else: draw crown_lower moved;
+ fi;
+% draw inner parts
+ z4=(.5,.28); z5=(.5,.21);
+ if color=white:
+ draw (z37..z3..z37') moved;
+ draw (z63..z4..z63') moved;
+ draw (z62..z5..z62') moved;
+ else: pickup thick_pen;
+ erase draw (opr(37)..z3..opl(37')) moved;
+ erase draw (opr(63)..z4..opl(63')) moved;
+ erase draw (opr(62)..z5..opl(62')) moved;
+ fi;
+ enddef;
+
+vardef Q(expr D, col, row) =
+ clearxy;
+ path crown_top, crown, crown_lower;
+ def moved = scaled D shifted (col*D, row*D) enddef;
+
+ pickup thin_pen;
+% top part of crown
+ z1=(.5,.92); z2=(.5,.5); z11=(.42,.46); z12=(.275,.88);
+ z13=(.25,.44); z14=(.075,.8); z15=(.125,.4);
+ reflect(11,12,13,14,15);
+ crown_top = (z15'--z14'--z13'--z12'--z11'--z1--z11--z12--z13--z14--z15);
+% lower part of the crown
+ z6=(.5,.0775); z61=(.25,.1); z62=(.2,.125); z63=(.24,y62+1/3(y15-y62));
+ z64=(.2,y62+2/3(y15-y62));
+ reflect(61,62,63,64);
+ crown_lower= ((z15--z64) & (z64--z63) & (z63--z62) &
+ (z62..z61..z6..z61'..z62') & (z62'--z63') & (z63'--z64') &
+ (z64'--z15'));
+% draw contour of crown
+ crown= (crown_top & crown_lower & cycle);
+ if background=dark:
+ if color=white: erase fill crown moved; fi; fi;
+ if color=white: draw crown moved;
+ forsuffixes $:=1,12,12',14,14':
+ erase fill (fullcircle scaled .1 shifted z$) moved;
+ draw (fullcircle scaled .1 shifted z$) moved; endfor;
+ else: fill crown moved;
+ forsuffixes $:=1,12,12',14,14':
+ fill (fullcircle scaled .1 shifted z$) moved; endfor; fi;
+% draw inner parts
+ z3=(.5,y5+(y64-y62)); z4=(.5,y5+(y63-y62)); z5=(.5,.18);
+ if color=white: draw (z64..z3..z64') moved; draw (z63..z4..z63') moved;
+ draw (z62..z5..z62') moved;
+ z21=z11; z22=(.325,.475); z23=z13; z24=(.175,.44); z25=z15;
+ reflect(21,22,23,24,25);
+ draw ((z2..z21..z22) & (z22..z23..z24) & (z24--z25)) moved;
+ draw ((z2..z21'..z22') & (z22'..z23'..z24') & (z24'--z25')) moved;
+ else: pickup thick_pen;
+ erase draw (opr(64)..z3..opl(64')) moved;
+ erase draw (opr(63)..z4..opl(63')) moved;
+ erase draw (opr(62)..z5..opl(62')) moved;
+ fi;
+ enddef;
+
+vardef R(expr D, col, row) =
+ clearxy;
+ path rook;
+ def moved = scaled D shifted (col*D, row*D) enddef;
+
+ pickup thin_pen;
+% top part of rook
+ z1=(.5,.86); y15=y14=y11=y1; x15=x16=.21; x19=x20=.225; y13=y12=.8;
+ y16=.725; y17=.65; y18=.35; y19=.26; y20=y21=.175; y22=.1;
+ x22=x21=.175; x17=x18=.31; x13=x14=.325; x11=x12=.43; z2=(.5,.1);
+ reflect(11,12,13,14,15,16,17,18,19,20,21,22);
+ rook = (z11--z12--z13--z14--z15--z16--z17--z18--z19--z20--z21--z22--z22'
+ --z21'--z20'--z19'--z18'--z17'--z16'--z15'--z14'--z13'--z12'--z11'--cycle);
+% draw contour of rook
+ if background=dark:
+ if color=white: erase fill rook moved; fi; fi;
+ if color=white: draw rook moved; else: fill rook moved; fi;
+% draw inner parts
+ if color=white: draw (z16--z16') moved; draw (z17--z17') moved;
+ draw (z18--z18') moved; draw (z19--z19') moved;
+ draw (z20--z20') moved;
+ else: pickup thick_pen;
+ erase draw (opr(16)--opl(16')) moved;
+ erase draw (opr(17)--opl(17')) moved;
+ erase draw (opr(18)--opl(18')) moved;
+ erase draw (opr(19)--opl(19')) moved;
+ erase draw (opr(20)--opl(20')) moved; fi;
+ enddef;
+
+vardef N(expr D, col, row) =
+ clearxy;
+ path knight, ear, eye, nose, mouth, neck;
+ def moved = scaled D shifted (col*D, row*D) enddef;
+
+ pickup thin_pen;
+% the knight's contour
+ z1=(.5,.82); z2=(.5,.075); z11=(.45,.93); z12=(.375,.85); z13=(.25,.925);
+ z14=(.26,.8); z15=(.22,.75); z16=(.18,.7); z17=(.18,.66); z18=(.07,.42);
+ z19=(.07,.36); z20=(.14,.3); z21=(.17,.3); z22=(.175,.275); z23=(.225,.28);
+ z24=(.29,.38); z25=(.41,.46); z26=(.49,.51); z27=(.435,.295); z28=(.32,.165);
+ z29=(.31,y2); z30=(.93,y2); z31=(.87,.5); z32=(.7,.78);
+ knight = ((z1--z11--z12--z13--z14) &
+ (z14..z15..z16..z17..z18..z19..z20..z21) &
+ (z21..z22..z23..z24..z25..z26) &
+ (z26..z27..z28..z29) & (z29--z30) &
+ (z30..z31..z32..z1) &cycle);
+% draw contour of knight
+ if color=white: erase fill knight moved;
+ draw knight moved;
+ else: fill knight moved; fi;
+% draw inner parts
+ z4=(.22,.62); z41=(.25,.67); z42=(.29,.705); z43=(.31,.7); z44=(.3,.68);
+ eye = (z4..z41..z42..z43 & z43..z44..z4 & cycle);
+ z5=(.1,.36); z51=(.1,.39); z52=(.135,.43); z53=(.15,.4); z54=(.13,.38);
+ nose = (z5..z51..z52..z53..z54..z5 &cycle);
+ if color=white: z21'=(.2,.34); draw (z21'--z21) moved; %mouth
+ z26'=(.54,.63); draw (z26'..z26{z24-z26}) moved; %neck
+ draw (z12--z14) moved; % ear
+ fill eye moved; fill nose moved;
+ else: erase fill eye moved; erase fill nose moved; fi;
+ z30'=z30 + (-thick#/d#,thick#/d#); pickup thick_pen
+ erase draw (opd(1)..opd(32)..opl(31)..z30') moved; % mane
+ enddef;
+
+vardef B(expr D, col, row) =
+ clearxy;
+ path top, hat, brim, mitre, stole;
+ def moved = scaled D shifted (col*D, row*D) enddef;
+
+ pickup thin_pen;
+% the top circle
+ z1=(.5,.85); z2=(.5,.8);
+ top = (fullcircle scaled .1 shifted z1);
+ if color=white: erase fill top moved; draw top moved;
+ else: fill top moved; fi;
+% the hat
+ z3=(.5,.43); z21=(.27,.57); z31=(.35,.4); reflect(21,31);
+ hat = (z31'..z21'..z2{(-1,1)}) & (z2{(-1,-1)}..z21..z31);
+% the brim
+ z4=(.5,.33); z5=(.5,.23);
+ z41=(.32,.28); reflect(41);
+ brim = ((z31--z41) & (z41..z5..z41') & (z41'--z31'));
+% the stole
+ z6=(.5,.15); z7=(.5,.3); z61=(.44,.12); z62=(.25,.1); z63=(.15,.05);
+ z64=(.09,.11); z65=(.25,.18); z66=(.44,.2);
+ reflect(61,62,63,64,65,66);
+ stole = ((z7..z66..z65..z64) & (z64--z63) & (z63..z62..z61..z6) &
+ (z6..z61'..z62'..z63') & (z63'--z64') & (z64'..z65'..z66'..z7) &cycle);
+% the mitre
+ mitre = (hat & brim & cycle);
+ if background=dark:
+ if color=white: erase fill mitre moved;
+ erase fill stole moved; fi; fi;
+ if color=black: fill mitre moved; fill stole moved;
+ else: draw mitre moved; draw stole moved;
+ erase fill mitre moved; draw mitre moved; fi;
+
+% inner parts of mitre
+ center:=.59; width:=.065;
+ if color=white: draw (z31..z3..z31') moved; draw (z41..z4..z41') moved;
+ draw ((.5,center-width)--(.5,center+width)) moved;
+ draw ((.5-width,center)--(.5+width,center)) moved;
+ else: pickup thick_pen;
+ erase cutdraw (opr(31)..z3..opl(31')) moved;
+ erase cutdraw (opr(41)..z4..opl(41')) moved;
+ erase cutdraw ((.5,center-width)--(.5,center+width)) moved;
+ erase cutdraw ((.5-width,center)--(.5+width,center)) moved;
+ fi;
+ enddef;
+
+vardef p(expr D, col, row) =
+ clearxy;
+ path pawn;
+ def moved = scaled D shifted (col*D, row*D) enddef;
+
+ pickup thin_pen;
+% the pawn's contour
+ z1=(.5,.9); z2=(.5,.1); z11=(.41,.85); z12=(.46,.73); z13=(.32,.6);
+ z14=(.41,.46); z15=(.3,.4); z16=(.2,.1);
+ reflect(11,12,13,14,15,16);
+ pawn = ((z12'..z11'..z1..z11..z12) &
+ (z12..z13..z14) &
+ (z14..z15..z16) &
+ (z16--z16') &
+ (z16'..z15'..z14') &
+ (z14'..z13'..z12') & cycle);
+
+% draw contour of pawn
+ if background=dark:
+ if color=white: erase fill pawn moved; fi; fi;
+ if color=black: fill pawn moved;
+ else: draw pawn moved; fi;
+ enddef;
diff --git a/Master/texmf-dist/fonts/source/public/chess/chessdiag.mf b/Master/texmf-dist/fonts/source/public/chess/chessdiag.mf
new file mode 100644
index 00000000000..2d1cb3eeeb0
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/chess/chessdiag.mf
@@ -0,0 +1,56 @@
+% This is `chessdiag.mf' version 1.1 as of 11/90
+% METAfounded by Piet Tutelaers (internet: rcpt@urc.tue.nl)
+
+% file generates a complete chess diagram
+
+% most versions of METAFONT have memorylimits so generating a complete
+% diagram of 160 X 160 points for a 300 DPI printer is not possible
+
+mode_setup;
+input chessbase;
+
+def draw_pieces(text piece_list) =
+ string piece, location;
+ for p=piece_list:
+ l:=length p;
+ exitunless (l=2) or (l=3);
+ if l=2: piece:="p"; i:=0;
+ else: piece:=substring(0,1) of p; i:=1; fi;
+ column:=ASCII substring(i,i+1) of p - ASCII "a";
+ row:=ASCII substring(i+1,i+2) of p - ASCII "1";
+ if not odd(column+row): background:=dark; else: background:=light; fi;
+ scantokens piece(d, column,row);
+ endfor;
+ enddef;
+
+def w(text piece_list) =
+ color:=white;
+ empty_board(d); draw_pieces(piece_list);
+ enddef;
+
+def b(text piece_list) =
+ color:=black;
+ draw_pieces(piece_list);
+ enddef;
+
+M=8; % number of squares
+d#:=100pt#/M; % size per square
+fine#:=1/100*d#; thin#:=1/90*d#; thick#:=1/36*d#; border#:=1/20*d#;
+define_blacker_pixels(fine, thin, thick, border);
+define_whole_pixels(d);
+pickup pencircle scaled fine; fine_pen:=savepen ; % for drawing dark squares
+pickup pencircle scaled border; border_pen:=savepen ; % for border ofboard
+pickup pencircle scaled thin; thin_pen:=savepen ; % for drawing pieces
+pickup pencircle scaled thick; thick_pen:=savepen; % for drawing inside pieces
+light=0; dark=1; white=0; black=1;
+
+% put here the wanted diagram (ex.: mate in three problem)
+
+w("Kc2","Nb4","Bf8","b3","g7");
+b("Ka3","b6");
+showit;
+
+message("White mates in three moves. Do you see how?");
+StopMe;
+
+end;
diff --git a/Master/texmf-dist/fonts/source/public/chess/chessf10.mf b/Master/texmf-dist/fonts/source/public/chess/chessf10.mf
new file mode 100644
index 00000000000..2a4c826954a
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/chess/chessf10.mf
@@ -0,0 +1,33 @@
+% This is `chessf10.mf' version 1.2 as of 6/91
+% METAfounded by Piet Tutelaers (internet: rcpt@urc.tue.nl)
+
+% generates a font consisting of chess figurines
+
+mode_setup;
+input chessbase;
+
+def figurine(expr code) =
+ beginchar(code, d#, .8d#, .2d#);
+ 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);
+ scantokens code(d, 0, -.2);
+ endchar;
+enddef;
+
+M=1; % number of squares
+d#:=10pt#/M; % size per square
+thin#:=1/3pt#; thick#:=5/6pt#; define_blacker_pixels(thin, thick);
+light=0; dark=1; white=0; black=1;
+background:=light; color:=white;
+
+figurine("K");
+figurine("Q");
+figurine("R");
+figurine("B");
+figurine("N");
+figurine("p");
+
+end;
diff --git a/Master/texmf-dist/fonts/source/public/chess/chessfig10.mf b/Master/texmf-dist/fonts/source/public/chess/chessfig10.mf
new file mode 100644
index 00000000000..f9e09a1fc28
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/chess/chessfig10.mf
@@ -0,0 +1,35 @@
+% This is `chessfig10.mf' version 1.0 as of 8/90
+% METAfounded by Piet Tutelaers (uucp: rcpt@urc.tue.nl)
+% (If the filename is too long for your computer rename the file `chessf10.mf'
+% and adapt chess.sty accordingly.)
+
+% generates a font consisting of chess figurines
+
+mode_setup;
+input chessbase;
+
+def figurine(expr code) =
+ beginchar(code, d#, .8d#, .2d#);
+ 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);
+ scantokens code(d, 0, -.2);
+ endchar;
+enddef;
+
+M=1; % number of squares
+d#:=10pt#/M; % size per square
+thin#:=1/3pt#; thick#:=5/6pt#; define_blacker_pixels(thin, thick);
+light=0; dark=1; white=0; black=1;
+background:=light; color:=white;
+
+figurine("K");
+figurine("Q");
+figurine("R");
+figurine("B");
+figurine("N");
+figurine("p");
+
+end;
diff --git a/Master/texmf-dist/fonts/source/public/chess/chesspieces.mf b/Master/texmf-dist/fonts/source/public/chess/chesspieces.mf
new file mode 100644
index 00000000000..31ccf6d6770
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/chess/chesspieces.mf
@@ -0,0 +1,197 @@
+% This is `chesspieces.mf' version 1.0 as of 8/90
+% METAfounded by Piet Tutelaers (internet: rcpt@urc.tue.nl)
+
+% this file generates the final chess font
+
+background:=light; color:=white;
+
+beginchar("0", d#, d#, 0); "0: light square";
+endchar;
+
+background:=dark;
+
+beginchar("Z", d#, d#, 0); "Z: dark square";
+ define_whole_pixels(d);
+ dark_square(d);
+endchar;
+
+background:=light; color:=white;
+
+beginchar("K", d#, d#, 0); "K: white king on light square";
+ define_whole_pixels(d);
+ K(d, 0, 0);
+endchar;
+
+color:=black;
+
+beginchar("k", d#, d#, 0); "k: black king on light square";
+ define_whole_pixels(d);
+ K(d, 0, 0);
+endchar;
+
+background:=dark; color:=white;
+
+beginchar("J", d#, d#, 0); "J: white king on dark square";
+ define_whole_pixels(d);
+ dark_square(d);
+ K(d, 0, 0);
+endchar;
+
+color:=black;
+
+beginchar("j", d#, d#, 0); "j: black king on dark square";
+ define_whole_pixels(d);
+ dark_square(d);
+ K(d, 0, 0);
+endchar;
+
+background:=light; color:=white;
+
+beginchar("Q", d#, d#, 0); "Q: white queen on light square";
+ define_whole_pixels(d);
+ Q(d, 0, 0);
+endchar;
+
+color:=black;
+
+beginchar("q", d#, d#, 0); "q: black queen on light square";
+ define_whole_pixels(d);
+ Q(d, 0, 0);
+endchar;
+
+background:=dark; color:=white;
+
+beginchar("L", d#, d#, 0); "L: white queen on dark square";
+ define_whole_pixels(d);
+ dark_square(d);
+ Q(d, 0, 0);
+endchar;
+
+color:=black;
+
+beginchar("l", d#, d#, 0); "l: black queen on dark square";
+ define_whole_pixels(d);
+ dark_square(d);
+ Q(d, 0, 0);
+endchar;
+
+background:=light; color:=white;
+
+beginchar("R", d#, d#, 0); "R: white rook on light square";
+ define_whole_pixels(d);
+ R(d, 0, 0);
+endchar;
+
+color:=black;
+
+beginchar("r", d#, d#, 0); "r: black rook on light square";
+ define_whole_pixels(d);
+ R(d, 0, 0);
+endchar;
+
+background:=dark; color:=white;
+
+beginchar("S", d#, d#, 0); "S: white rook on dark square";
+ define_whole_pixels(d);
+ dark_square(d);
+ R(d, 0, 0);
+endchar;
+
+color:=black;
+
+beginchar("s", d#, d#, 0); "s: black rook on dark square";
+ define_whole_pixels(d);
+ dark_square(d);
+ R(d, 0, 0);
+endchar;
+
+background:=light; color:=white;
+
+beginchar("B", d#, d#, 0); "B: white bishop on light square";
+ define_whole_pixels(d);
+ B(d, 0, 0);
+endchar;
+
+color:=black;
+
+beginchar("b", d#, d#, 0); "b: black bishop on light square";
+ define_whole_pixels(d);
+ B(d, 0, 0);
+endchar;
+
+background:=dark; color:=white;
+
+beginchar("A", d#, d#, 0); "A: white bishop on dark square";
+ define_whole_pixels(d);
+ dark_square(d);
+ B(d, 0, 0);
+endchar;
+
+color:=black;
+
+beginchar("a", d#, d#, 0); "a: black bishop on dark square";
+ define_whole_pixels(d);
+ dark_square(d);
+ B(d, 0, 0);
+endchar;
+
+background:=light; color:=white;
+
+beginchar("N", d#, d#, 0); "N: white knight on light square";
+ define_whole_pixels(d);
+ N(d, 0, 0);
+endchar;
+
+color:=black;
+
+beginchar("n", d#, d#, 0); "n: black knight on light square";
+ define_whole_pixels(d);
+ N(d, 0, 0);
+endchar;
+
+background:=dark; color:=white;
+
+beginchar("M", d#, d#, 0); "M: white knight on dark square";
+ define_whole_pixels(d);
+ dark_square(d);
+ N(d, 0, 0);
+endchar;
+
+color:=black;
+
+beginchar("m", d#, d#, 0); "m: black knight on dark square";
+ define_whole_pixels(d);
+ dark_square(d);
+ N(d, 0, 0);
+endchar;
+
+background:=light; color:=white;
+
+beginchar("P", d#, d#, 0); "P: white pawn on light square";
+ define_whole_pixels(d);
+ p(d, 0, 0);
+endchar;
+
+color:=black;
+
+beginchar("p", d#, d#, 0); "p: black pawn on light square";
+ define_whole_pixels(d);
+ p(d, 0, 0);
+endchar;
+
+background:=dark; color:=white;
+
+beginchar("O", d#, d#, 0); "O: white pawn on dark square";
+ define_whole_pixels(d);
+ dark_square(d);
+ p(d, 0, 0);
+endchar;
+
+color:=black;
+
+beginchar("o", d#, d#, 0); "o: black pawn on dark square";
+ define_whole_pixels(d);
+ dark_square(d);
+ p(d, 0, 0);
+endchar;
+
diff --git a/Master/texmf-dist/fonts/source/public/chess/empty.mf b/Master/texmf-dist/fonts/source/public/chess/empty.mf
new file mode 100644
index 00000000000..747b495eb2b
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/chess/empty.mf
@@ -0,0 +1,11 @@
+% font with empty `a' to test if mode_def exists
+
+font_identifier:="NOTHING"; font_size 10pt#;
+
+mode_setup; % font_setup;
+
+beginchar("a",10pt#,10pt#,0);
+show pixels_per_inch;
+endchar;
+
+bye