diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public')
42 files changed, 6461 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-bishop.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-bishop.mf new file mode 100644 index 00000000000..f27a4f45e51 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-bishop.mf @@ -0,0 +1,318 @@ +%====================================================================== +% This is +% bishop.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +def slope(expr orig,middle,far,wd,angle) = + begingroup + save x, y, p; + path p.l,p.r; + pair inter; + + z0r= orig; + z1r= middle; + z2= far; + penpos0(wd,90+angle); + penpos1(wd,90); + penpos2(wd,90+angle); + forsuffixes e=l,r: + p.e:= z2e{dir angle}.. z1e{right} .. {dir angle}z0e; + endfor; + inter = p.l intersectiontimes p.l reflectedabout (orig,orig+up); + reverse p.r -- + subpath (0,xpart inter) of p.l .. + reverse subpath (0,xpart inter) of p.l + reflectedabout (orig,orig+up) -- + p.r reflectedabout (orig,orig+up) + endgroup +enddef; + +def MakeBishopPath = + + numeric TopDiameter; + TopDiameter = .08qs; + DefineFootBows( .13qs, % Distance to BottomSpace + .39qs, % BowOneWidth + .17qs, % FootHeight + .31, % BowTwoLoc + .12, % WidthToHeight + .87, % BowTwoLen + .65); % BowThreeLen + x4l + x4r = qs; + x4r - x4l = .45qs; + x4 = x3; + y4l = y4r = y4 = y3 + .16qs; % Sides of the shape with + % vertical tangents + + x5 = x4; + top (y5 + TopDiameter) = qs - TopSpace + .04qs; + + pair TopDir.l, TopDir.r; + TopDir.l = dir 35; + TopDir.r = (xpart TopDir.l, -ypart TopDir.l); + + numeric TopDiameter; + TopDiameter = .10qs; + + path LeftShape,RightShape,BishopPath; + LeftShape = z1l .. z2l .. z3l & z3l .. {up}z4l .. {TopDir.l}z5; + RightShape= z5{TopDir.r} .. {down}z4r .. z3r & z3r .. z2r .. z1r; + BishopPath = LeftShape & RightShape & Bow0 & cycle; + + path Peak; + Peak:= fullcircle scaled TopDiameter + shifted (z5+.5TopDiameter*up); + + path CrossV,CrossH; + + z7= .25[z3,z5]; + z8= .62[z3,z5]; + CrossV:= z7 .. z8; + CrossH= CrossV rotatedaround (.5[z7,z8],90); + + path Slope; + path s; + numeric angle; + + angle= 60; + x12 = SideSpace; + y12 = BottomSpace; + y11 = .5[y12,y10]; + x11 = .65[x12,x10]; + z10 = z0; + s= slope(z10,z11,z12,2.7thin,35); + Slope:= s .. point 0 of s & cycle; + +enddef; + +def MakeWhiteBishop = + pickup chess_pen; + clearit; + draw BishopPath; + forsuffixes $=2,3: draw Bow$; endfor + draw Peak; + draw CrossV; + draw CrossH; + %pickup inner_pen; + draw Slope; + WhiteMan:= currentpicture; +enddef; + +def MakeBlackBishop = + pickup chess_pen scaled 1.1; + clearit; + filldraw BishopPath; + forsuffixes $=2,3: undraw ShortenPath(Bow$,1.2thin); endfor + %undraw ShortenPath(ParallelPath(LeftShape,-thin),thin); + %undraw ShortenPath(ParallelPath(RightShape,-thin),thin); + filldraw Peak; + undraw CrossV; + undraw CrossH; + pickup inner_pen; + filldraw Slope; + BlackMan:= currentpicture; +enddef; + +def MakeOuterShape = + clearit; + pickup frame_pen; + filldraw BishopPath; + filldraw Peak; + filldraw Slope; + cullit; + OuterShape:= currentpicture; +enddef; + +MakeBishopPath; +MakeWhiteBishop; +MakeBlackBishop; +MakeNeutral(WhiteMan,BlackMan); +MakeOuterShape; + +%=========================================================== +%% this one for testing +%beginchar(Bishop+White+OnBlack, qs#, qs#, 0); +% "White bishop on black field"; +% MakeBlackField; +% currentpicture:= currentpicture - OuterShape; +% cullit; +% currentpicture:= currentpicture + WhiteMan; +% %currentpicture:= currentpicture + BlackMan; +%endchar; +%endinput +%=========================================================== + +beginchar(Bishop+White+OnWhite, qs#, qs#, 0); + "White bishop on white field"; + currentpicture:= WhiteMan; +endchar; + +beginchar(Bishop+White+OnWhite+LeftTurned, qs#, qs#, 0); + "White bishop on white field rotated to the left"; + currentpicture:= TurnLeft(WhiteMan); +endchar; + +beginchar(Bishop+White+OnWhite+RightTurned, qs#, qs#, 0); + "White bishop on white field rotated to the right"; + currentpicture:= TurnRight(WhiteMan); +endchar; + +beginchar(Bishop+White+OnWhite+UpSideDown, qs#, qs#, 0); + "White bishop on white field upside down"; + currentpicture:= TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Bishop+Black+OnWhite, qs#, qs#, 0); + "Black bishop on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(Bishop+Black+OnWhite+LeftTurned, qs#, qs#, 0); + "Black bishop on white field rotated to the left"; + currentpicture:= TurnLeft(BlackMan); +endchar; + +beginchar(Bishop+Black+OnWhite+RightTurned, qs#, qs#, 0); + "Black bishop on white field rotated to the right"; + currentpicture:= TurnRight(BlackMan); +endchar; + +beginchar(Bishop+Black+OnWhite+UpSideDown, qs#, qs#, 0); + "Black bishop on white field upside down"; + currentpicture:= TurnUpSideDown(BlackMan); +endchar; + +beginchar(Bishop+Neutral+OnWhite, qs#, qs#, 0); + "Neutral bishop on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(Bishop+Neutral+OnWhite+LeftTurned, qs#, qs#, 0); + "Neutral bishop on white field rotated to the left"; + currentpicture:= TurnLeft(NeutralMan); +endchar; + +beginchar(Bishop+Neutral+OnWhite+RightTurned, qs#, qs#, 0); + "Neutral bishop on white field rotated to the right"; + currentpicture:= TurnRight(NeutralMan); +endchar; + +beginchar(Bishop+Neutral+OnWhite+UpSideDown, qs#, qs#, 0); + "Neutral bishop on white field upside down"; + currentpicture:= TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Bishop+White+OnBlack, qs#, qs#, 0); + "White bishop on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(Bishop+White+OnBlack+LeftTurned, qs#, qs#, 0); + "White bishop on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(WhiteMan); +endchar; + +beginchar(Bishop+White+OnBlack+RightTurned, qs#, qs#, 0); + "White bishop on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(WhiteMan); +endchar; + +beginchar(Bishop+White+OnBlack+UpSideDown, qs#, qs#, 0); + "White bishop on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Bishop+Neutral+OnBlack, qs#, qs#, 0); + "Neutral bishop on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(Bishop+Neutral+OnBlack+LeftTurned, qs#, qs#, 0); + "Neutral bishop on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(NeutralMan); +endchar; + +beginchar(Bishop+Neutral+OnBlack+RightTurned, qs#, qs#, 0); + "Neutral bishop on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(NeutralMan); +endchar; + +beginchar(Bishop+Neutral+OnBlack+UpSideDown, qs#, qs#, 0); + "Neutral bishop on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Bishop+Black+OnBlack, qs#, qs#, 0); + "Black bishop on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; + +beginchar(Bishop+Black+OnBlack+LeftTurned, qs#, qs#, 0); + "Black bishop on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(BlackMan); +endchar; + +beginchar(Bishop+Black+OnBlack+RightTurned, qs#, qs#, 0); + "Black bishop on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(BlackMan); +endchar; + +beginchar(Bishop+Black+OnBlack+UpSideDown, qs#, qs#, 0); + "Black bishop on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(BlackMan); +endchar; + +endinput + diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-blackfield.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-blackfield.mf new file mode 100644 index 00000000000..b055c2e5cc2 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-blackfield.mf @@ -0,0 +1,112 @@ +%====================================================================== +% This is +% blackfield.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +def MakeBlackField = + + if unknown BlackField: + + pair ua[],ub[],la[],lb[],ul,lr,ma,mb; + + numeric n,part, penscale; + + if unknown HatchCount: + n= 8 + else: + n= HatchCount + fi; + if unknown HatchLinePart: + part= 5 + else: + part= HatchLinePart + fi; + + penscale= (qs/(part*n)); +% pickup pensquare scaled penscale; + pickup pencircle scaled penscale; + bot lft ma = (0,0); + top rt mb = (w,w); + draw ma--mb; + + top lft ul = (0,h); + bot rt lr = (w,0); + + numeric xdelta,ydelta; + xdelta= floor((xpart(lr) - xpart(ma)) / n); + ydelta= floor((ypart(ul) - ypart(ma)) / n); +% xdelta= floor((xpart(lr) - xpart(ma) - penscale) / n); +% ydelta= floor((ypart(ul) - ypart(ma) - penscale) / n); +% xdelta= floor((xpart(lr) - xpart(ma)) / (n+.5))); +% ydelta= floor((ypart(ul) - ypart(ma)) / (n+.5)); + +% The correct loop-specification would be: +% for i=1 upto n: +% But it is possible (especially when the pixles per field are +% below 50), that the calculated xdelta leaves ugly white space +% in the corners. So we draw casually more than n hatch lines. + numeric nn; + nn = floor((xpart(mb))/xdelta); + if nn > n: + message "info: will draw " & decimal (nn-n) & " more hatch-line" + if nn-n>1: & "s" fi + & " in the upper corner of blackfield."; + fi + for i=1 upto nn: + lft ua[i] = (0,ypart(ma)+(i*ydelta)); + top ub[i] = (xpart(mb)-(i*xdelta),h); + draw ua[i]--ub[i]; + endfor; + +% Here the same as above... + numeric nn; + nn = floor((ypart(mb))/ydelta); + if nn > n: + message "info: will draw " & decimal (nn-n) & " more hatch-line" + if nn-n>1: & "s" fi + & " in the lower corner of blackfield."; + fi + for i=1 upto nn: + bot la[i] = (xpart(ma)+(i*xdelta),0); + rt lb[i] = (w,ypart(mb)-(i*ydelta)); + draw la[i]--lb[i]; + endfor; + % This is for situations, where the the ydelta leaves + % space for one more stroke in the lower right corner of the + % the field. Then we do one more stroke. + % It should occure very seldom. + i:= n+1; + bot la[i] = (xpart(ma)+(i*xdelta),0); + rt lb[i] = (w,ypart(mb)-(i*ydelta)); + if ypart(lb[i]) > 0: + draw la[i]--lb[i]; + fi; + cullit; + picture BlackField; + BlackField:= currentpicture; + + else: + currentpicture:= BlackField; + fi; + +enddef; + +beginchar(144,qs#,qs#,0); "Empty black field"; + MakeBlackField; +endchar; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-chbase.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-chbase.mf new file mode 100644 index 00000000000..6e6915e7b66 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-chbase.mf @@ -0,0 +1,288 @@ +%====================================================================== +% This is +% chbase.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% +%====================================================================== + +% correcting the size of qs to make it a good pixelcount +if .5qs <> good.x .5qs: + qs:= qs if qs# * hppp > round(qs): - else: + fi 1; +fi + +if proofing>0: input screengrid; fi; + +% the center of the field +pair Center; Center = (qs/2,qs/2); + +picture BlackMan, WhiteMan, NeutralMan, OuterShape; + +% Some definitions for numbering the characters +% the position of the relevant character in the fonttable +% is calculated as sum of four offsets: +% +% PieceNumber + PieceColor + FieldColor + Turned +% +% This give the following table: +% +% WoW NoW BoW WoB NoB BoB +% Pawn 0 6 12 18 24 30 +% Knight 1 7 13 19 25 31 +% Bishop 2 8 14 20 26 32 +% Rook 3 9 15 21 27 33 +% Queen 4 10 16 22 28 34 +% King 5 11 17 23 29 35 +% + +% Numbers of the pieces +Pawn = 0; Knight = 1; Bishop = 2; Rook = 3; Queen = 4; King = 5; + +% Offsets for colors of the pieces +White = 0; Neutral = 6; Black = 12; + +% Offsets for the background +OnWhite = 0; OnBlack = 18; + +% Offsets for the turning +LeftTurned = 36; RightTurned = 72; UpSideDown = 108; + +% Offsets for geometric figures +% These figures should be point symmetric +Circle = 145; +Triangle = 146 +Square = 147; +geo1 = 148; +geo2 = 149; +geo3 = 150; + +% Offsets for geometric figures which can only be turned left +% to get a realy other shape. +Equihopper = 180; +free1 = 181; +free2 = 182; +free3 = 183; +free4 = 184; +free5 = 185; % this is not possible, since the turned, black + % on black version is over 255: 185+36+18+12 = 256!!!! + +% Makros for turning +def TurnLeft(expr p) = + p rotatedaround (Center,90); +enddef; + +def TurnRight(expr p) = + p rotatedaround (Center,-90); +enddef; + +def TurnUpSideDown(expr p) = + p rotatedaround (Center,180); +enddef; + +% +% Macros for shorten and lengthening paths +% +% ShortenPath: The given path is shorted at both ends, with the +% real amount of pixels given +% ShortenBegin, ShortenEnd: The same as above for one end only +% LengthenPath: The path is elongated at both ends with a straight +% line, in the direction of the path at the end +% LengthenBegin, LengthenEnd: The same as above for one end only +% +def Perpend(expr d,p,real) = + begingroup + save dd; pair dd; + dd = d/length(d); + (p+100*(dd rotated 90) -- p+100*(dd rotated -90)) shifted (dd*real) + endgroup; +enddef; +def ShortenPath(expr p,real) = + begingroup + save pa,pe; path pa,pe; + pa = Perpend(direction 0 of p,point 0 of p,real); + pe = Perpend(-direction length(p) of p,point length(p) of p,real); + subpath ( + xpart(p intersectiontimes pa), + xpart(p intersectiontimes pe)) of p + endgroup +enddef; +def ShortenBegin(expr p,real) = + begingroup + save pa; path pa; + pa = Perpend(direction 0 of p,point 0 of p,real); + subpath (xpart(p intersectiontimes pa),length(p)) of p + endgroup +enddef; +def ShortenEnd(expr p,real) = + begingroup + save pe; path pe; + pe = Perpend(-direction length(p) of p,point length(p) of p,real); + subpath (0, xpart(p intersectiontimes pe)) of p + endgroup +enddef; +def LengthenBegin(expr p,real) = + begingroup + save dd; pair dd; + dd= direction 0 of p; dd:= dd/length(dd); + point 0 of p - real*dd -- p + endgroup +enddef; +def LengthenEnd(expr p,real) = + begingroup + save dd; pair dd; + dd= direction length(p) of p; dd:= dd/length(dd); + p -- point length(p) of p + real*dd + endgroup +enddef; +def Lengthen(expr p,real) = + begingroup + save db; pair db; + save de; pair de; + db= direction 0 of p; db:= db/length(db); + de= direction length(p) of p; de:= de/length(de); + point 0 of p - real*db -- p -- point length(p) of p + real*de + endgroup +enddef; +% +% This macro is used by ParallelPath +% +def NewPoint(expr p,t,dist) = + { begingroup pair Dir; + Dir= direction t of p; %show p; show t; show Dir; + Dir + endgroup } + (point t of p + (Dir rotated 90)*(dist/length(Dir))) +enddef; +def xyNewPoint(expr p,t,xdist,ydist) = + { begingroup pair Dir; + Dir= direction t of p; %show p; show t; show Dir; + Dir + endgroup } + (point t of p + (cosd(angle(Dir)+90)*xdist, sind(angle(Dir)+90)*ydist)) +enddef; + +% Macro for getting a path parallel to the given path, in distance dist +% +def ParallelPath(expr p,dist) = + begingroup + save Dir; pair Dir; Dir = direction 0 of p; + + ((point 0 of p)+(Dir rotated 90)*(dist/length(Dir))) {Dir} + for t=.5 step .5 until length(p): + .. NewPoint(p,t,dist) + endfor + endgroup +enddef; + +% Macro to get different distance in x and y direction +% +def xyParallelPath(expr p, xdist, ydist) = + begingroup + save Dir; pair Dir; Dir = direction 0 of p; + + ((point 0 of p)+(cosd(angle(Dir)+90)*xdist,sind(angle(Dir)+90)*ydist)) {Dir} + for t=.5 step .5 until length(p): + .. xyNewPoint(p,t,xdist,ydist) + endfor + endgroup +enddef; + +def DefineFootBows( + % This macro depends on the values of qs and BottomSpace + % and uses the makro ParallelPath. + % It is used to generate the bottom bows of King, Queen and Bishop + expr BottomDist, %This is the space to BottomSpace + BowOneWidth, %This is the width of the main bow + FootHeight, %Distance from bottom of Bow0 to top of Bow3 + BowTwoLoc, %Relative location of Bow2 between Bow3 and + % Bow1. 0 means position at position at Bow1, + % 1.0 means position at Bow3. + WidthToHeight, %Ratio of BowOneWidth/2 to Bowheight + BowTwoLen, %Length of Bow2 relative to Bow1 + BowThreeLen %Lenght of Bow3 relative to Bow1 + ) = + + % All parameters are in pixels when not otherwise statet. + % Points are numbered from 0 to 3 from lower to upper + % Points to the left have suffix l, right suffix r + % points without further suffix are in the center of the bows + + path Bow[]; + numeric BowHeight; + numeric tl,tr,l[],x[]l,x[]r,x[],y[]l,y[]r,y[]; + + BowHeight = BowOneWidth*WidthToHeight/2; + + % We start with the first bow + rt x1r + lft x1l = qs; x1r - x1l = BowOneWidth; + y1 = BottomSpace + 2*BowHeight + BottomDist; + x1 = .5qs; + y1l = y1r = y1 - BowHeight; + Bow1 = z1l .. {right} z1 .. z1r; + + z0 = z1 shifted (down*2*BowHeight); + Bow0 = z1r .. {left} z0 .. z1l; + + Bow3= ParallelPath(Bow1,FootHeight-2*BowHeight); + l3 = length(Bow3); + cu:= (1-BowThreeLen)/2; + Bow3:= subpath (cu*l3,(1-cu)*l3) of Bow3; + z3l = point 0 of Bow3; + z3 = point .5*length(Bow3) of Bow3; + z3r = point infinity of Bow3; + +%show point 0 of reverse Bow3; +%show z3r; + + Bow2= ParallelPath(Bow1,(FootHeight-2*BowHeight)*BowTwoLoc); + l2 = length(Bow2); + cu:= (1-BowTwoLen)/2; + Bow2:= subpath (cu*l2,(1-cu)*l2) of Bow2; + z2l = point 0 of Bow2; + z2 = point .5length(Bow3) of Bow2; + z2r = point infinity of Bow2; + labels(1l,1,1r,2l,2r,3l,3r); +enddef; +% +% Macro for generation the neutral piece from two pictures +% given as Parameter +def MakeNeutral(expr White,Black) = + if unknown LeftHalft: picture LeftHalf; fi + LeftHalf:= Black; + cull LeftHalf keeping (1,infinity); + addto LeftHalf contour (unitsquare yscaled qs xscaled (qs/2)); + cull LeftHalf keeping (2,2); + + if unknown RightHalf: picture RightHalf; fi + RightHalf:= White; + cull RightHalf keeping (1,infinity); + addto RightHalf contour (unitsquare yscaled qs xscaled (qs/2) shifted (qs/2,0)); + cull RightHalf keeping (2,2); + NeutralMan:= LeftHalf; + addto NeutralMan also RightHalf; +enddef; +% +% Makro to get a grid of real output pixels when proofing +def PixelGrid(expr PixPerInch, w) = + if proofing > 0: + begingroup + numeric d; + d = pixels_per_inch/PixPerInch; + makegrid(0,for i=d step d until w: ,i endfor)(0,for i=d step d until w: ,i endfor) + endgroup; + fi; +enddef; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-equi.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-equi.mf new file mode 100644 index 00000000000..545309917c5 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-equi.mf @@ -0,0 +1,245 @@ +%====================================================================== +% This is +% equi.mf +% +% Copyright (C) 1995 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +% 11 _______________________ 12 +% \ / +% \ / +% \ / +% 9 \---------------/ 10 +% \ / +% \ / +% \ / +% \ / +% \ / +% \ / +% 7 +-------------+ 8 - +% |<---wdbar--->| | htbar +% 5 +-------------+ 6 - +% / \ +% / \ +% / \ +% / \ +% / \ +% / \ +% / \ +% 3 /-----------------\ 4 +% / \ +% / \ +% 1 ----------------------- 2 +% |<--------wdbot-------->| +% +def SetParam = + numeric wdbott, wdbar, htbar, diagpos, rdiagpos; + wdbott:= .75 BottomWidth; + wdbar:= .50 BottomWidth; + htbar:= 0.065*(qs - BottomSpace - TopSpace); + diagpos=.095; + rdiagpos= 1-diagpos; +enddef; + +def DefinePointsAndPaths = + % left points are odd numbered from 1 to 11 from lower to upper + % right points are even numbered from 2 to 12 lower tot upper + numeric x[], y[]; + + SetParam; + + % At first the diag's + rt x1 = rt x11 = .5(qs-wdbott); + lft x2 = lft x12 = .5(qs+wdbott); + bot y1 = bot y2 = BottomSpace; + top y11 = top y12 = qs-TopSpace; + z0 = (.5qs, .5qs); + path shape; shape:= z1--z0--z11--z12--z0--z2--z1--cycle; + + % now the top and bottom inner rule + path Ndiag; Ndiag= z2--z11; + path Zdiag; Zdiag= z12--z1; + z4 = point diagpos of Ndiag; + z3 = point rdiagpos of Zdiag; + z9 = point rdiagpos of Ndiag; + z10 = point diagpos of Zdiag; + path botin; botin= z3--z4; + path topin; topin= z9--z10; + + % the bar in the middle + y7 - y5 = y8 - y6 = htbar; + x6 - x5 = x8 - x7 = wdbar; + x7 + x8 = x5 + x6 = qs; + y5 + y7 = y8 + y6 = qs; + path bar; bar=z5--z6--z8--z7--z5--cycle; +enddef; + + +def MakeWhiteEquihopper = + clearit; + pickup chess_pen; + draw shape; + pickup inner_pen; + draw topin; + draw botin; + erase fill bar; + draw bar; + WhiteMan:= currentpicture; +enddef; + +def MakeBlackEquihopper = + clearit; + pickup chess_pen; + filldraw shape; + pickup chess_pen scaled 1.1; + undraw ShortenPath(topin, 2.5thin); + undraw ShortenPath(botin, 2.5thin); + filldraw bar; + BlackMan:= currentpicture; +enddef; + +def MakeOuterShape = + clearit; + pickup frame_pen; + filldraw shape; + filldraw bar; + cullit; + OuterShape:= currentpicture; +enddef; + +DefinePointsAndPaths; +MakeWhiteEquihopper; +MakeBlackEquihopper; +MakeNeutral(WhiteMan, BlackMan); +MakeOuterShape; + +if proofing > 0: + ScreenGrid(0,qs)(0,qs); + % If you want a stop after each generated char: + %let _endchar= endchar; + %def endchar = + % string ans; + % ans= readstring; + % _endchar; + %enddef; +fi; + +%%=========================================================== +%% this one for testing +%beginchar(Equihopper+White+OnWhite, qs#, qs#, 0); +% "White Equihopper on white field"; +% currentpicture:= WhiteMan; +% %currentpicture:= BlackMan; +%endchar; +%endinput +%%=========================================================== + +beginchar(Equihopper+White+OnWhite, qs#, qs#, 0); + "White equihopper on white field"; + currentpicture:= WhiteMan; +endchar; + +beginchar(Equihopper+White+OnWhite+LeftTurned, qs#, qs#, 0); + "White equihopper turned to the left on white field"; + currentpicture:= TurnLeft(WhiteMan); +endchar; + +%=========================================================== + +beginchar(Equihopper+White+OnBlack, qs#, qs#, 0); + "White equihopper on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(Equihopper+White+OnBlack+LeftTurned, qs#, qs#, 0); + "White equihopper turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(WhiteMan); +endchar; + +%=========================================================== + +beginchar(Equihopper+Neutral+OnWhite, qs#, qs#, 0); + "Neutral equihopper on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(Equihopper+Neutral+OnWhite+LeftTurned, qs#, qs#, 0); + "Neutral equihopper turned to the left on white field"; + currentpicture:= TurnLeft(NeutralMan); +endchar; + +%=========================================================== + +beginchar(Equihopper+Neutral+OnBlack, qs#, qs#, 0); + "Neutral equihopper on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(Equihopper+Neutral+OnBlack+LeftTurned, qs#, qs#, 0); + "Neutral equihopper turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(NeutralMan); +endchar; + +%=========================================================== + +beginchar(Equihopper+Black+OnWhite, qs#, qs#, 0); + "Black equihopper on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(Equihopper+Black+OnWhite+LeftTurned, qs#, qs#, 0); + "Black equihopper turned to the left on white field"; + currentpicture:= TurnLeft(BlackMan); +endchar; + +%=========================================================== + +beginchar(Equihopper+Black+OnBlack, qs#, qs#, 0); + "Black equihopper on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; + +beginchar(Equihopper+Black+OnBlack+LeftTurned, qs#, qs#, 0); + "Black equihopper turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(BlackMan); +endchar; + +endinput diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-geo.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-geo.mf new file mode 100644 index 00000000000..e14dffb8425 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-geo.mf @@ -0,0 +1,109 @@ +% This is +% geo.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% +% +%we have to define six essential characters: +% WoW NoW BoW WoB NoB BoB +%Pawn 0 6 12 18 24 30 +%Knight 1 7 13 19 25 31 +%Bishop 2 8 14 20 26 32 +%Rook 3 9 15 21 27 33 +%Queen 4 10 16 22 28 34 +%King 5 11 17 23 29 35 + +% All these cases are repeated three more times: +% Left turned, Right turned and upside down +%------------------------------------------ +% From this result the first free positions +% usable for simple geometric signs. + +def MakeCirclePath = + path CirclePath; + CirclePath = fullcircle scaled .70qs shifted Center; +enddef; + +def MakeWhiteCircle = + pickup chess_pen; + clearit; + draw CirclePath; + cullit; + WhiteMan:= currentpicture; +enddef; + +def MakeBlackCircle = + pickup chess_pen; + clearit; + filldraw CirclePath; + cullit; + BlackMan:= currentpicture; +enddef; + +def MakeOuterShape = + pickup frame_pen; + clearit; + filldraw CirclePath; + cullit; + OuterShape:= currentpicture; +enddef; + + +MakeCirclePath; +MakeWhiteCircle; +MakeBlackCircle; +MakeNeutral(WhiteMan, BlackMan); +MakeOuterShape; + +beginchar(Circle+White+OnWhite, qs#, qs#, 0); + "White circle on white field"; + currentpicture:= WhiteMan; +endchar; + +beginchar(Circle+Black+OnWhite, qs#, qs#, 0); + "Black circle on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(Circle+Neutral+OnWhite, qs#, qs#, 0); + "Neutral circle on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(Circle+White+OnBlack, qs#, qs#, 0); + "White circle on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(Circle+Neutral+OnBlack, qs#, qs#, 0); + "Neutral circle on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(Circle+Black+OnBlack, qs#, qs#, 0); + "Black circle on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-king.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-king.mf new file mode 100644 index 00000000000..ad089ef3b2d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-king.mf @@ -0,0 +1,342 @@ +%====================================================================== +% This is +% king.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +def SetParam = + numeric BowOneW,ThreeFour,SixHor,FourSix; + BowOneW = .53qs; + ThreeFour = .07; + FourFive = .65; % z5 is Top of Heart + SixHor = 1.52; + FourSix = .27; + + numeric CrossWidth, CrossHeight, CrossAbove; + CrossWidth = .20; + CrossHeight = .10; + CrossAbove = .20; %Middle of cross above center of heart. +enddef; + +def DefinePointsAndBows = + % Points are numbered from 0 to 9 from lower to upper + % Points to the left have suffix a, right suffic b + % points without further suffix are in the center + + SetParam; + DefineFootBows( 0, % No Space to Bottom + BowOneW, + .275qs,% FootHeight + .42, % BowTwoLoc + .195, % WidthToHeight + 0.91, % BowTwoLen + 0.82); % BowThreeLen + + z4 = z3 + BowOneW*ThreeFour*up; + z5 = z4 + BowOneW*FourFive*up; + y6l= y6r = y4 + BowOneW*FourSix; + x6l + x6r = qs; x6r - x6l = SixHor*BowOneW; + + z7 = z5 + CrossAbove*BowOneW*up; + y7 = y7l = y7r; + x7l + x7r = qs; x7r - x7l = CrossWidth*BowOneW; + z8 = z7 + CrossHeight*BowOneW*up; + + path Cross[]; + Cross1= z5--z8; + Cross2= z7l--z7r; +enddef; + +def DrawCross = + draw Cross1; + draw Cross2; +enddef; + +def DefineKingPaths = + path LeftPath,RightPath,LeftInnerPath,RightInnerPath, + OuterPath,TopHeartPath,HeartPath; + LeftPath = z1l .. z2l .. z3l & z3l{-1.3,1} .. z6l .. {.1,-1} z4 -- z3; + RightPath= reverse LeftPath reflectedabout (z3,z4); + %RightPath= z3 -- z4 {up} .. z6r .. z3r .. z2r .. z1r; + LeftInnerPath = ParallelPath(subpath (1.8,5)of LeftPath, + -1.6*thin); + RightInnerPath = LeftInnerPath reflectedabout (z3,z4); + + OuterPath = LeftPath .. RightPath .. Bow0 .. cycle; + HeartStart = 3.81; + HeartPath = subpath (4,HeartStart) of LeftPath & + point HeartStart of LeftPath + {-direction HeartStart of LeftPath}.. + {right}z5{right}.. + point HeartStart of reverse RightPath + {direction HeartStart of reverse RightPath} & + subpath (HeartStart,4) of reverse RightPath; %.. point HeartStart of LeftPath; + +enddef; + +def MakeWhiteKing = + clearit; + pickup chess_pen; + draw Bow[1]; + draw Bow[2]; + draw Bow[3]; + draw OuterPath; + draw HeartPath; + DrawCross; + %pickup inner_pen; + %pickup chess_pen; + %draw ParallelPath(subpath(1.7,5)of LeftPath,-2thin); + %draw ParallelPath(subpath(0,3.3)of RightPath,-2thin); + if proofing > 0: + ScreenGrid(0,qs)(0,qs); + fi; + WhiteMan:= currentpicture; +enddef; + +def MakeBlackKing = + clearit; + pickup chess_pen; + filldraw HeartPath .. cycle; + DrawCross; + cullit; + undraw ParallelPath(subpath (.6,3.4) of HeartPath, -thin); + cullit; + filldraw OuterPath; + cullit; + pickup chess_pen scaled 1.1; + undraw ShortenPath(Bow[1],1.5thin); + undraw ShortenPath(Bow[2],1.6thin); + undraw ShortenPath(Bow[3],1.2thin); + undraw subpath (4,9) of ParallelPath(LeftPath,-thin); + undraw subpath (0,6) of ParallelPath(RightPath,-thin); + BlackMan:= currentpicture; +enddef; + +def MakeOuterShape = + clearit; + pickup frame_pen; + DrawCross; + filldraw OuterPath; + filldraw HeartPath .. cycle; + cullit; + OuterShape:= currentpicture; +enddef; + +DefinePointsAndBows; +DefineKingPaths; + +MakeWhiteKing; +MakeBlackKing; +MakeNeutral(WhiteMan, BlackMan); +MakeOuterShape; + + +%ScreenGrid(0,qs,x6r)(0,qs,y6r); + +%=========================================================== +% this one for testing +%beginchar(King+Black+OnBlack, qs#, qs#, 0); +% "Black king on black field"; +% MakeBlackField; +% cullit; +% currentpicture:= currentpicture - OuterShape; +% cullit; +% currentpicture:= currentpicture + BlackMan; +%endchar; +%endinput +%=========================================================== + +beginchar(King+White+OnWhite, qs#, qs#, 0); + "White king on white field"; + currentpicture:= WhiteMan; + %labels(z0,z1l,z1,z1r,z2l,z2,z2r); + %labels(z3l,z3,z3l,z4,z5,z6l,z6r); + %labels(z7l,z7,z7r,z8); +endchar; + +beginchar(King+White+OnWhite+LeftTurned, qs#, qs#, 0); + "White king turned to the left on white field"; + currentpicture:= TurnLeft(WhiteMan); +endchar; + +beginchar(King+White+OnWhite+RightTurned, qs#, qs#, 0); + "White king turned to the right on white field"; + currentpicture:= TurnRight(WhiteMan); +endchar; + +beginchar(King+White+OnWhite+UpSideDown, qs#, qs#, 0); + "White king turned upsidedown on white field"; + currentpicture:= TurnUpSideDown(WhiteMan); +endchar; + +%=========================================================== + +beginchar(King+White+OnBlack, qs#, qs#, 0); + "White king on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(King+White+OnBlack+LeftTurned, qs#, qs#, 0); + "White king turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(WhiteMan); +endchar; + +beginchar(King+White+OnBlack+RightTurned, qs#, qs#, 0); + "White king turned to the right on black field"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(WhiteMan); +endchar; + +beginchar(King+White+OnBlack+UpSideDown, qs#, qs#, 0); + "White king turned upsidedown on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(WhiteMan); +endchar; + +%=========================================================== + +beginchar(King+Neutral+OnWhite, qs#, qs#, 0); + "Neutral king on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(King+Neutral+OnWhite+LeftTurned, qs#, qs#, 0); + "Neutral king turned to the left on white field"; + currentpicture:= TurnLeft(NeutralMan); +endchar; + +beginchar(King+Neutral+OnWhite+RightTurned, qs#, qs#, 0); + "Neutral king turned to the right on white field"; + currentpicture:= TurnRight(NeutralMan); +endchar; + +beginchar(King+Neutral+OnWhite+UpSideDown, qs#, qs#, 0); + "Neutral king turned upsidedown on white field"; + currentpicture:= TurnUpSideDown(NeutralMan); +endchar; + +%=========================================================== + +beginchar(King+Neutral+OnBlack, qs#, qs#, 0); + "Neutral king on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(King+Neutral+OnBlack+LeftTurned, qs#, qs#, 0); + "Neutral king turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(NeutralMan); +endchar; + +beginchar(King+Neutral+OnBlack+RightTurned, qs#, qs#, 0); + "Neutral king turned to the right on black field"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(NeutralMan); +endchar; + +beginchar(King+Neutral+OnBlack+UpSideDown, qs#, qs#, 0); + "Neutral king turned upsidedown on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(NeutralMan); +endchar; + +%=========================================================== + +beginchar(King+Black+OnWhite, qs#, qs#, 0); + "Black king on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(King+Black+OnWhite+LeftTurned, qs#, qs#, 0); + "Black king turned to the left on white field"; + currentpicture:= TurnLeft(BlackMan); +endchar; + +beginchar(King+Black+OnWhite+RightTurned, qs#, qs#, 0); + "Black king turned to the right on white field"; + currentpicture:= TurnRight(BlackMan); +endchar; + +beginchar(King+Black+OnWhite+UpSideDown, qs#, qs#, 0); + "Black king turned upsidedown on white field"; + currentpicture:= TurnUpSideDown(BlackMan); +endchar; + +%=========================================================== + +beginchar(King+Black+OnBlack, qs#, qs#, 0); + "Black king on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; + +beginchar(King+Black+OnBlack+LeftTurned, qs#, qs#, 0); + "Black king turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(BlackMan); +endchar; + +beginchar(King+Black+OnBlack+RightTurned, qs#, qs#, 0); + "Black king turned to the right on black field"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(BlackMan); +endchar; + +beginchar(King+Black+OnBlack+UpSideDown, qs#, qs#, 0); + "Black king turned upsidedown on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(BlackMan); +endchar; + +endinput diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-knight.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-knight.mf new file mode 100644 index 00000000000..85e1453c322 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-knight.mf @@ -0,0 +1,450 @@ +%====================================================================== +% This is +% knight.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +def sympoint (expr p,d,a) = + % Come to point p in direction d + angel a, and leave symmetrical + % to d - a This gives us a peak in p pointing in direction d. + % sharpnes is specified by a. a= 0 no peak, a=90 real peak; + + {dir (angle(d)+a)} p {dir(angle(d)+180-a)} +enddef; + +def Ear(expr p,pd,q,qd,a,r,rd) = + p{pd} .. sympoint(q,qd,a) .. {rd}r +enddef; + +def DefineKnightPath = + % we construct the path from right to left. + % Ie we begin with the nack and come then to the ears, + % the nose etc + z0 = (.33qs,BottomSpace); % The leftmost bottompoint + z1 = (qs-SideSpace,BottomSpace); % The right bottom edge + path Foot; + Foot = z0 -- z1; + % z2 will be later defined, it + % is the connection to the right + % ear + z4 = (.465qs,qs-TopSpace+.035qs); % The peak of the right ear + z3 = z4 + (.042qs,-0.12qs); % The right lower point of the + % right ear + z5 = z3 + (-.09qs,.015qs ); % The left lower point of the + % right ear + + % Now comes the definition of the right ear + % There are two paths: + % RightEar: The complete path for the ear + % sRightEar: The subpath for the whole shape + path RightEar, sRightEar; + RightEar = Ear(z3,(1,10),z4,(0,1),35,z5,(1,-10)); + sRightEar = subpath (.25,1.85) of RightEar; + z2 = point 0 of sRightEar; % The right + z6 = point 2 of sRightEar; % The left connection point of + % the right ear + + % Now we can also define the nack + path Nack; + Nack = z1{up} .. tension 1 and 1 .. {left}z2; + + z7 = z6 + (-.08qs,-0.05qs); % This is the point under the + % left ear + + % Now the two pathes from the right to the left ear. + % EarUnderEar, goes from the right ear under the left ear + % EarToEar connects only the two ears + + path EarUnderEar,EarToEar; + EarUnderEar= z6{left} .. {-5,-4}z7; + EarToEar = subpath (0,.4) of EarUnderEar; + + z8 = point 1 of EarToEar; % The connection point and the + % start of the left ear + + % to get easier definition of the following points + % we define a line bx from z7 (point under left ear) down to z13 + % (leftmost point of shape) ie the begining of nose and mount + + z13 = (SideSpace,0.41qs); % The leftmost point of the + % shape + pair bx,by; + bx = z13 - z7; + by = z13 rotatedabout (z7,-90); + + z9 = z7 + .21bx + .21by; % the peak of the left ear + z10= z7 + .15bx + .08by; % the left point of the left ear + + % Now the path for the leaft ear + path LeftEar; + LeftEar= Ear(z8,(-1,3),z9,(-1,2),20,z10,(2,-3)); + + z11 = z7 + .45bx + .10by; + z12 = z7 + .50bx + .06by; + z26 = z7 + .16bx - .02by; % the eye point + + path Bless; + Bless = z10{dir(angle(bx)-15)} .. z11 .. z12 .. {down} z13; + + % the points from z14 to z17 are defined via a line nx + % from z13 to z18 + pair nx,ny; + + z19 = (.255qs,.315qs); + nx = z19 - z13; + ny = nx rotatedabout ((0,0),90); + + z14 = z13 + .30nx - .22ny; % the point between mouth + % and nose + z15 = z13 + .60nx - .15ny; % the upper point of mouth + z16 = z13 + .70nx + .31ny; % the inner point of mouth + z17 = z13 + .76nx - .02ny; % + z18 = z13 + .82nx - .07ny; % + z25 = z13 + .22nx + .28ny; % the location of the nose + + path MouthNose; + MouthNose = z13 .. z14{nx} .. z15 ... sympoint(z16,(z16-z17),0) + ... z17 .. z18 .. z19; + + % the points from z20 to z23 are defined via a line nx + % from z19 to z23 + pair ux,uy; + + z23 = (.546qs,.64qs); + ux = z23 - z19; + uy = z23 rotatedabout (z19,90); + + z20 = z19 + .15ux + .01uy; + z21 = z19 + .45ux - .02uy; + z22 = z19 + .90ux - .11uy; + path UnderMouth, sUnderMouth; + UnderMouth = z19..z20..z21..z22..{up}z23; + sUnderMouth = subpath (0,3) of UnderMouth; + + z24 = z22 + (.008qs,-.05qs); + path ToFoot; + %ToFoot = z22..{down}z24 .. {down}z0; + ToFoot = z22..z24..{down}z0; + + + path KnightShape; + KnightShape = Foot & Nack & sRightEar & EarToEar + & LeftEar & Bless & MouthNose + & sUnderMouth & ToFoot & cycle; + +enddef; + +def DefineNosePath(expr p,s) = + begingroup + if proofing >0: + show p,s; + fi; + save z; pair z[]; + + z0 + (0,s) = p; + pair px,py; + py= p - z0; + px= py rotated -90; + z1= z0 + 0.10px + 0.50py; + z2= z0 + 0.70px + 1.00py; + z3= z0 + 0.70px + 1.60py; + z4= z0 + 0.10px + 2.10py; + z5= z0 - 0.20px + 1.90py; + z6= z0 - 0.60px + 0.50py; + z7= z0 - 0.60px + 0.10py; + z8= z0 - 0.50px + 0.00py; + forsuffixes i=0,1,2,3,4,5,6,7,8: + z[i].. + endfor cycle + endgroup +enddef; + +def EyePath (expr p,s) = + begingroup + save z; pair z[]; + + z0 + (0,s) = p; + pair px,py; + py= p - z0; + px= py rotated -90; + + z1= z0 + 1.00px + 1.00py; + + z0{0,1} .. {1,0} z1 & z1 {0,-1} .. {-1,0}z0 & cycle + endgroup +enddef; + +def EyeBrowPath (expr p,s) = + begingroup + save z; pair z[]; + + z0 + (0,s) = p; + pair px,py; + py= p - z0; + px= py rotated -90; + + z1= z0 - 0.74px - 0.74py; + z2= z0 + 1.74px + 1.74py; + + z1{0,1} .. {1,0}z2 + endgroup +enddef; + +def MakeWhiteKnight = + clearit; + pickup chess_pen; + draw Foot; + draw RightEar; + draw EarUnderEar; + draw LeftEar & Bless & MouthNose & UnderMouth; + draw ToFoot; + draw EyePath(z26,.025qs); + filldraw DefineNosePath(z25,.015qs); + pickup chess_pen xscaled 2 rotated -10; + draw ShortenEnd(Nack,thin); + pickup chess_pen scaled 0.6; + draw EyeBrowPath(z26,.030qs); + WhiteMan:= currentpicture; +enddef; + +def MakeBlackKnight = + clearit; + pickup chess_pen; + + filldraw KnightShape; + cullit; + unfilldraw DefineNosePath(z25,.015qs); + undraw EyePath(z26,.025qs); + undraw ParallelPath(EarUnderEar,1.2thin) rotatedaround(z6,-20); + pickup chess_pen xscaled 2 rotated -20; + undraw ShortenPath(xyParallelPath(Nack,1.5thin,thin),thin); + pickup chess_pen scaled .6; + undraw subpath (3,3.5) of UnderMouth; + undraw EyeBrowPath(z26,.030qs); + undraw subpath (2.5,3) of MouthNose; + BlackMan:= currentpicture; +enddef; + +def MakeKnightSpace = + clearit; + pickup frame_pen; + filldraw KnightShape; + cullit; + OuterShape:= currentpicture; +enddef; + +DefineKnightPath; +%DefineNosePath(z25,.2qs); + +MakeWhiteKnight; +MakeBlackKnight; +MakeNeutral(WhiteMan,BlackMan); +MakeKnightSpace; + +%=========================================================== +% this one for testing +%beginchar(Knight+Black+OnBlack, qs#, qs#, 0); +% "White knight on black field"; +% MakeBlackField; +% cullit; +% currentpicture:= currentpicture - OuterShape; +% cullit; +% currentpicture:= currentpicture + BlackMan; +%endchar; +%endinput +%=========================================================== + +beginchar(Knight+White+OnWhite, qs#, qs#, 0); + "White knight on white field"; + currentpicture:= WhiteMan; +% labels(z0,z1l,z1,z1r,z2l,z2,z2r); +% labels(z3l,z3,z3l,z4,z5,z6l,z6r); +% labels(z7l,z7,z7r,z8); +endchar; + +beginchar(Knight+White+OnWhite+LeftTurned, qs#, qs#, 0); + "White knight turned to the left on white field"; + currentpicture:= TurnLeft(WhiteMan); +endchar; + +beginchar(Knight+White+OnWhite+RightTurned, qs#, qs#, 0); + "White knight turned to the right on white field"; + currentpicture:= TurnRight(WhiteMan); +endchar; + +beginchar(Knight+White+OnWhite+UpSideDown, qs#, qs#, 0); + "White knight turned upsidedown on white field"; + currentpicture:= TurnUpSideDown(WhiteMan); +endchar; + +%=========================================================== + +beginchar(Knight+White+OnBlack, qs#, qs#, 0); + "White knight on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(Knight+White+OnBlack+LeftTurned, qs#, qs#, 0); + "White knight turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(WhiteMan); +endchar; + +beginchar(Knight+White+OnBlack+RightTurned, qs#, qs#, 0); + "White knight turned to the right on black field"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(WhiteMan); +endchar; + +beginchar(Knight+White+OnBlack+UpSideDown, qs#, qs#, 0); + "White knight turned upsidedown on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(WhiteMan); +endchar; + +%=========================================================== + +beginchar(Knight+Neutral+OnWhite, qs#, qs#, 0); + "Neutral knight on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(Knight+Neutral+OnWhite+LeftTurned, qs#, qs#, 0); + "Neutral knight turned to the left on white field"; + currentpicture:= TurnLeft(NeutralMan); +endchar; + +beginchar(Knight+Neutral+OnWhite+RightTurned, qs#, qs#, 0); + "Neutral knight turned to the right on white field"; + currentpicture:= TurnRight(NeutralMan); +endchar; + +beginchar(Knight+Neutral+OnWhite+UpSideDown, qs#, qs#, 0); + "Neutral knight turned upsidedown on white field"; + currentpicture:= TurnUpSideDown(NeutralMan); +endchar; + +%=========================================================== + +beginchar(Knight+Neutral+OnBlack, qs#, qs#, 0); + "Neutral knight on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(Knight+Neutral+OnBlack+LeftTurned, qs#, qs#, 0); + "Neutral knight turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(NeutralMan); +endchar; + +beginchar(Knight+Neutral+OnBlack+RightTurned, qs#, qs#, 0); + "Neutral knight turned to the right on black field"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(NeutralMan); +endchar; + +beginchar(Knight+Neutral+OnBlack+UpSideDown, qs#, qs#, 0); + "Neutral knight turned upsidedown on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(NeutralMan); +endchar; + +%=========================================================== + +beginchar(Knight+Black+OnWhite, qs#, qs#, 0); + "Black knight on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(Knight+Black+OnWhite+LeftTurned, qs#, qs#, 0); + "Black knight turned to the left on white field"; + currentpicture:= TurnLeft(BlackMan); +endchar; + +beginchar(Knight+Black+OnWhite+RightTurned, qs#, qs#, 0); + "Black knight turned to the right on white field"; + currentpicture:= TurnRight(BlackMan); +endchar; + +beginchar(Knight+Black+OnWhite+UpSideDown, qs#, qs#, 0); + "Black knight turned upsidedown on white field"; + currentpicture:= TurnUpSideDown(BlackMan); +endchar; + +%=========================================================== + +beginchar(Knight+Black+OnBlack, qs#, qs#, 0); + "Black knight on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; + +beginchar(Knight+Black+OnBlack+LeftTurned, qs#, qs#, 0); + "Black knight turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(BlackMan); +endchar; + +beginchar(Knight+Black+OnBlack+RightTurned, qs#, qs#, 0); + "Black knight turned to the right on black field"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(BlackMan); +endchar; + +beginchar(Knight+Black+OnBlack+UpSideDown, qs#, qs#, 0); + "Black knight turned upsidedown on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(BlackMan); +endchar; + +endinput diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-pawn.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-pawn.mf new file mode 100644 index 00000000000..687e12ab260 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-pawn.mf @@ -0,0 +1,360 @@ +%====================================================================== +% This is +% pawn.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + +% This is the oldest part of all my the MF-sources. +% I started Metafonting with this figure. +% ElB. +%====================================================================== + +%----------------------------------------------------------- +% This macro depends on some global sizes: +% thin, BottomSpace, BottomWidth, sidewith +% The values are defined as basic sizes of the Chess Characters + +def PawnShape(expr wbf,hbf,wmf,hmf,wtf,htf,ibm,imt) = + %begingroup + %save wb,wm,wt,hb,hm,ht,interbm,intermt; + numeric wb,wm,wt,hb,hm,ht,interbm,intermt; + wb = BottomWidth*wbf; % width of bottom ellipse + hb = hbf*wb; % hight of bottom ellipse + wm = wmf*wb; hm = hmf*wm; % width and hight of middle ellipse + wt = wtf*wb; ht = htf*wt; % width and hight of top ellipse + interbm = ibm*thin; % amount of intersection of bottom + % and middle + intermt = imt*thin; % amount of intersection of middle + %and top + %save superb,superm,supert; + numeric superb,superm,supert; + superb=.73; + superm=.75; + supert=.73; + + %save topb,topm,topt; + numeric topb,topm,topt; + topb=BottomSpace+hb; + topm=topb+hm-interbm; + topt=topm+ht-intermt; + + %screenrule((0,BottomSpace),(qs,BottomSpace)); + %screenrule(((qs-wb)/2,0),((qs-wb)/2,qs)); + %screenrule(((qs+wb)/2,0),((qs+wb)/2,qs)); + + %screenrule((0,topb),(qs,topb)); + %screenrule((0,topm),(qs,topm)); + %screenrule((0,topt),(qs,topt)); + + %save bp,mp,tp; + numeric bp,mp,tp; + path bp,mp,tp,PawnPath; + + %save x,y,z; + %pair z[]b,x[]b,y[]b; + %pair z[]m,x[]m,y[]m; + %pair z[]t,x[]t,y[]t; + + bot rt z1b = ((qs+wb)/2, BottomSpace); + bot lft z3b = ((qs-wb)/2, BottomSpace); + bot y4b + hb = top y2b - hb = BottomSpace; + x2b = x4b = qs/2; + bp=superellipse(z1b,z2b,z3b,z4b,superb); + bp:= subpath(0,4) of bp; + + rt x1m - wm/2 = lft x3m + wm/2 = qs/2; + top y2m = bot y4m + hm = topm; + y1m = y3m = (y2m+y4m)/2; + x2m = x4m = qs/2; + mp=superellipse(z1m,z2m,z3m,z4m,superm); + + rt x1t - wt/2 = lft x3t + wt/2 = qs/2; + top y2t = bot y4t + ht = topt; + y1t = y3t = (y2t+y4t)/2; + x2t = x4t = qs/2; + tp=superellipse(z1t,z2t,z3t,z4t,supert); + + % compute the intersectiontimes on the right side of the pawn + % The pathtimes of superellipses range from 0 to 8 + + %save scbr,scmbr,scmtr,sctr; + numeric scbr,scmbr,scmtr,sctr; + scbr = xpart (bp intersectiontimes (subpath(6,8)of mp)); + scmbr = xpart (mp intersectiontimes (subpath(0,2)of bp)); + scmtr = xpart (mp intersectiontimes (subpath(6,8)of tp)); + sctr = xpart (tp intersectiontimes (subpath(0,2)of mp)); + + % here is a macro to mirror pathtimes of superellipses on y-axis + def mr(expr v) = + if v > 4: 12-v; + else: 4-v; + fi + enddef; + + % Now the left intersectionpoints + %save scbl,scmbl,scmtl,sctl; + numeric scbl,scmbl,scmtl,sctl; + scbl = mr(scbr); + scmbl = mr(scmbr); + scmtl = mr(scmtr); + sctl = mr(sctr); + + PawnPath:=subpath(0,scbr)of bp .. + subpath(scmbr,(8+scmtr)) of mp .. + subpath(sctr,8+sctl) of tp .. + subpath(scmtl,scmbl) of mp .. + subpath(scbl,4) of bp; + %endgroup + +enddef; +%----------------------------------------------------------- +def MakePawnPath = + pickup chess_pen; + if unknown PawnPath: + % wb = qs - 2*sidespace; % width of bottom ellipse + % hb = hbf*wb; % hight of bottom ellipse + % wm = wmf*wb; hm = hmf*wm; % width and hight of middle + % ellipse + % wt = wtf*wb; ht = htf*wt; % width and hight of top + % ellipse + % + % wbf, hbf, ,wmf, hmf, wtf, htf, ibm, imt + %PawnShape( .80, .50, .55, .85, .3, 1.0, 2.0, 1.2); + %PawnShape( .85, .55, .60, .90, .4, 1.0, 2.0, 1.2); + PawnShape( .77, .61, .60, .84, .35, 0.95, 1.8, 1.4); + fi +enddef; +%------------------------------------------------------------ +def CorrectPawnEdges = + pickup sqr; + drawdot(z1b); + drawdot(z3b); +enddef; +%----------------------------------------------------------- + +%we have to define six essential characters: +% WoW NoW BoW WoB NoB BoB +%Pawn 0 6 12 18 24 30 +%Knight 1 7 13 19 25 31 +%Bishop 2 8 14 20 26 32 +%Rook 3 9 15 21 27 33 +%Queen 4 10 16 22 28 34 +%King 5 11 17 23 29 35 + +% All these cases are repeated three more times: +% Left turned, Right turned and upside down +%------------------------------------------ + + +def MakeWhitePawn = + pickup chess_pen; + clearit; + MakePawnPath; + draw PawnPath -- cycle; + cullit; + WhiteMan:= currentpicture; +enddef; + +def MakeBlackPawn = + pickup chess_pen; + clearit; + MakePawnPath; + filldraw PawnPath -- cycle; + cullit; + BlackMan:= currentpicture; +enddef; + +def MakeOuterShape = + pickup frame_pen; + clearit; + filldraw PawnPath -- cycle; + cullit; + OuterShape:= currentpicture; +enddef; + +MakeWhitePawn; +MakeBlackPawn; +MakeNeutral(WhiteMan, BlackMan); +MakeOuterShape; + +%=========================================================== +% this one for testing +%beginchar(Pawn+White+OnBlack, qs#, qs#, 0); +% "White pawn on black field"; +% MakeBlackField; +% currentpicture:= currentpicture - OuterShape; +% cullit; +% currentpicture:= currentpicture + WhiteMan; +%endchar; +%endinput +%=========================================================== + +beginchar(Pawn+White+OnWhite, qs#, qs#, 0); + "White pawn on white field"; + currentpicture:= WhiteMan; +endchar; + +beginchar(Pawn+White+OnWhite+LeftTurned, qs#, qs#, 0); + "White pawn on white field rotated to the left"; + currentpicture:= TurnLeft(WhiteMan); +endchar; + +beginchar(Pawn+White+OnWhite+RightTurned, qs#, qs#, 0); + "White pawn on white field rotated to the right"; + currentpicture:= TurnRight(WhiteMan); +endchar; + +beginchar(Pawn+White+OnWhite+UpSideDown, qs#, qs#, 0); + "White pawn on white field upside down"; + currentpicture:= TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Pawn+Black+OnWhite, qs#, qs#, 0); + "Black pawn on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(Pawn+Black+OnWhite+LeftTurned, qs#, qs#, 0); + "Black pawn on white field rotated to the left"; + currentpicture:= TurnLeft(BlackMan); +endchar; + +beginchar(Pawn+Black+OnWhite+RightTurned, qs#, qs#, 0); + "Black pawn on white field rotated to the right"; + currentpicture:= TurnRight(BlackMan); +endchar; + +beginchar(Pawn+Black+OnWhite+UpSideDown, qs#, qs#, 0); + "Black pawn on white field upside down"; + currentpicture:= TurnUpSideDown(BlackMan); +endchar; + +beginchar(Pawn+Neutral+OnWhite, qs#, qs#, 0); + "Neutral pawn on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(Pawn+Neutral+OnWhite+LeftTurned, qs#, qs#, 0); + "Neutral pawn on white field rotated to the left"; + currentpicture:= TurnLeft(NeutralMan); +endchar; + +beginchar(Pawn+Neutral+OnWhite+RightTurned, qs#, qs#, 0); + "Neutral pawn on white field rotated to the right"; + currentpicture:= TurnRight(NeutralMan); +endchar; + +beginchar(Pawn+Neutral+OnWhite+UpSideDown, qs#, qs#, 0); + "Neutral pawn on white field upside down"; + currentpicture:= TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Pawn+White+OnBlack, qs#, qs#, 0); + "White pawn on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(Pawn+White+OnBlack+LeftTurned, qs#, qs#, 0); + "White pawn on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(WhiteMan); +endchar; + +beginchar(Pawn+White+OnBlack+RightTurned, qs#, qs#, 0); + "White pawn on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(WhiteMan); +endchar; + +beginchar(Pawn+White+OnBlack+UpSideDown, qs#, qs#, 0); + "White pawn on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Pawn+Neutral+OnBlack, qs#, qs#, 0); + "Neutral pawn on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(Pawn+Neutral+OnBlack+LeftTurned, qs#, qs#, 0); + "Neutral pawn on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(NeutralMan); +endchar; + +beginchar(Pawn+Neutral+OnBlack+RightTurned, qs#, qs#, 0); + "Neutral pawn on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(NeutralMan); +endchar; + +beginchar(Pawn+Neutral+OnBlack+UpSideDown, qs#, qs#, 0); + "Neutral pawn on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Pawn+Black+OnBlack, qs#, qs#, 0); + "Black pawn on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; + +beginchar(Pawn+Black+OnBlack+LeftTurned, qs#, qs#, 0); + "Black pawn on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(BlackMan); +endchar; + +beginchar(Pawn+Black+OnBlack+RightTurned, qs#, qs#, 0); + "Black pawn on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(BlackMan); +endchar; + +beginchar(Pawn+Black+OnBlack+UpSideDown, qs#, qs#, 0); + "Black pawn on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(BlackMan); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-queen.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-queen.mf new file mode 100644 index 00000000000..52b5ac371f1 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-queen.mf @@ -0,0 +1,441 @@ +%====================================================================== +% This is +% queen.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== + +def OneCurl (expr a,da, b,db, above, pangle) = + begingroup + save dx, dy, p; + pair dx; dx= b-a; + pair dy; dy= dx rotated 90; + pair p; p= (a+.5dx+above*dy); + a{da} .. {dx rotated pangle}p & + p{dx rotated -pangle} .. {db}b + endgroup +enddef; + +def SplitPath(suffix $) % the first suffix of z + (expr p, % the path + n, % how often + shdelta % the shift multiplier + % it's used to 'drift' the points + % away from the center + ) = + % This makro takes a path, and defines n eqhal spaced + % good points on the path. If shdelta is a small amount + % greater zero, the pieces are smaller at the end of the + % path. + begingroup + pair dl[]; + pair dr[]; + numeric i,l,r,delta; + + i= 0; + l= 0; + r= length(p); + delta= length(p)/n; + forever: + if i = n-i: + z$l[i] = z$r[i] = point .5length(p) of p; + dl[i] = dr[i] = direction .5length(p) of p; + else: + numeric shift; + if i=0: shift = 0 else: shift = (n-i)*shdelta*delta fi; + z$l[i] = good.lft (point (l-shift) of p); + dl[i] = direction (l-shift) of p; + z$r[i] = good.rt (point (r+shift) of p); + dr[i] = direction (r+shift) of p; + fi + l:= l+delta; + r:= r-delta; + exitif r-l < 0; + i:= incr i; + endfor; + for i:= incr i step 1 until n: + z$l[i] = z$r[n-i]; + z$r[i] = z$l[n-i]; + dl[i] = dr[n-i]; + dr[i] = dl[n-i]; + endfor; + endgroup +enddef; + +def CurlPath(suffix $) + (expr p, % the path + n, % how often + above, % the peak above the path + pangle, % the direction at the peak + shdelta % the shift multiplier + % it's used to 'drift' the points + % away from the center + ) = + begingroup + save dl, dr; + save i,l,r,delta,shift; + SplitPath($, p, n, shdelta); + OneCurl(z$l0, dl0, z$l1, dl1, above, pangle) + for i:= 2 step 1 until n: + & OneCurl(z$l[i-1], dl[i-1], z4l[i], dl[i], above, pangle) + endfor + endgroup +enddef; + +def SplitPoints(suffix $) % The same definition as SplitPath + (expr p, % the path + n, % how often + shdelta % the shift multiplier + % it's used to 'drift' the points + % away from the center + ) = + begingroup + save dl, dr; + save i,l,r,delta,shift; + SplitPath($, p, n, shdelta); + endgroup +enddef; + +def Kegel(expr p,q) = + begingroup + path KPath; + numeric Width[],x[].a,y[].a,x[].b,y[].b; + numeric Base,MiddlePos,BowIns,Height,LowerHeight,TopHeight; + + + Width0 = Base = length(q-p); + Width1 = 1.30Base; + Width2 = 0.35Base; + Width3 = 1.30Base; % Diameter of circle + Height = 5.75Base; + MiddlePos = 0.25; + + BowIns = Width3/2+-+Width2/2; + LowerHeight + TopHeight = Height - Width3 + BowIns; + LowerHeight = MiddlePos*(LowerHeight+TopHeight); + + z0a = p; + z0b = z0a + (Width0,0); + forsuffixes $=1,2: + x$a + x$b = x0a + x0b; x$b - x$a = Width$; + endfor; + y1a = y1b = y0a + LowerHeight; + y2a = y2b = y1a + TopHeight; + x3a = .5(x2b+x2a); + y3a = y2a + BowIns; + %labels(0a,0b,1a,1b,2a,2b,3a); + + path LeftP,RightP,KgCircle; + LeftP= z2a -- z1a -- z0a; + RightP= z0b -- z1b -- z2b; + KgCircle= halfcircle rotated 180 scaled Width3 shifted z3a; + + path KPath; + KPath:= RightP .. + subpath ((ypart((z1b -- 1.5[z1b,z2b]) + intersectiontimes KgCircle)),4) of KgCircle .. + halfcircle scaled Width3 shifted z3a .. + subpath (0,ypart((z1a -- 1.5[z1a,z2a]) + intersectiontimes KgCircle)) of KgCircle .. + LeftP; + reverse (KPath rotatedaround(p, angle (q-p))) + endgroup; +enddef; + +def cCircle (expr bl, br, t, r) = + % draw a circle with diameter r clockweise(!) at top + % of triangle bl,br,t + (reverse (halfcircle & halfcircle rotated 180)) + scaled r shifted (left*.5r) rotated angle(.5[bl,br]-t) shifted t +enddef; + +def DefineQueenPath(expr n) = + %SetParam; + DefineFootBows(-.034qs, % No Space to Bottom + .72qs, % BowOneWidth + .26qs, % FootHeight + .40, % BowTwoLoc + .15, % WidthToHeight + .66, % BowTwoLen + 0.66); % BowThreeLen + +% This is not needed for the fs-Type of queen. +% path KPath, +% numeric b,s; +% % b and s define the ratio of 5 peak bases and 4 spaces. +% % if you want more or other spacing change the values +% b = 1.1s; +% 5b + 4s = length(Bow3); +% +% pair at,bt; +% at= point 0 of Bow3; +% bt= point b of Bow3; +% KPath:= Kegel(at, bt); +% for t=b+s step b+s until length(Bow3): +% KPath:= KPath .. subpath(t-s,t) of Bow3; +% KPath:= KPath .. Kegel(point t of Bow3, +% point(t+b)of Bow3); +% endfor; + + % Some correction of the lower bows, to make + % the corners more round + Bow0:= ShortenPath(Bow0, 5thin); + Bow1:= ShortenPath(Bow1, 5thin); + x1l:= lft(x1l + 2.5thin); + x1r:= rt(x1r - 2.5thin); + Bow0:= z1r{down} .. Bow0 .. {up}z1l; + Bow1:= z1l{up} .. Bow1 .. {down}z1r; + + Bow4:= Lengthen(ParallelPath(Bow3, .10qs), .05qs); + z4l = good.lft (point 0 of Bow4); + z4 = point .5length(Bow4) of Bow4; + z4r = good.rt point infinity of Bow4; + Bow4:= z4l {direction 0 of Bow4} .. + z4 {right} .. + z4r {direction infinity of Bow4}; + + Bow4:= CurlPath(4, Bow4, n, .15, 35, .04); + + z5l = good.lft (SideSpace, .72qs); + z5r = good.rt (qs-SideSpace, .72qs); +show z5l, z5r; + z5 = (.5qs, .83qs); + Bow5 = z5l .. z5 .. z5r; + SplitPoints(5, Bow5, n-1, .01); + + path cPath; + cPath = z4l0 + for i=0 step 1 until n-1: + & z4l[i] -- z5l[i] & + cCircle(z4l[i],z4l[i+1],z5l[i],.09qs) -- z4l[i+1] + endfor; + + path LeftPath,RightPath,QueenShape; + LeftPath:= z1l -- z2l -- z3l -- z4l; + RightPath:= z4r -- z3r -- z2r -- z1r; + QueenShape:= Bow0 & + LeftPath & + cPath & + RightPath & + cycle; +enddef; + +pickup chess_pen; + +def MakeWhiteQueen = + clearit; + pickup chess_pen; + draw QueenShape; + %forsuffixes $=0,1,2,3,4,5: undraw z4r$; endfor; + %forsuffixes $=0,1,2,3,4,5: draw z4l$; endfor; + %forsuffixes $=0,1,2,3,4: draw z5l$; endfor; + forsuffixes $=1,2,3,4: draw Bow$; endfor; + WhiteMan:= currentpicture; +enddef; + +def MakeBlackQueen = + clearit; + pickup chess_pen scaled 1.1; + filldraw QueenShape; + cullit; + forsuffixes $=1,2,3: + undraw ShortenPath(Bow$, thin); + endfor; + BlackMan:= currentpicture; +enddef; + +def MakeOuterShape = + clearit; + pickup frame_pen; + filldraw QueenShape; + cullit; + OuterShape:= currentpicture; +enddef; + +DefineQueenPath(5); +MakeWhiteQueen; +MakeBlackQueen; +MakeNeutral(WhiteMan,BlackMan); +MakeOuterShape; + +%=========================================================== +% this one for testing +%beginchar(Queen+White+OnBlack, qs#, qs#, 0); +% "White queen on black field"; +% MakeBlackField; +% currentpicture:= currentpicture - OuterShape; +% cullit; +% currentpicture:= currentpicture + WhiteMan; +%endchar; +%endinput +%=========================================================== + +beginchar(Queen+White+OnWhite, qs#, qs#, 0); + "White queen on white field"; + currentpicture:= WhiteMan; +endchar; + +beginchar(Queen+White+OnWhite+LeftTurned, qs#, qs#, 0); + "White queen on white field rotated to the left"; + currentpicture:= TurnLeft(WhiteMan); +endchar; + +beginchar(Queen+White+OnWhite+RightTurned, qs#, qs#, 0); + "White queen on white field rotated to the right"; + currentpicture:= TurnRight(WhiteMan); +endchar; + +beginchar(Queen+White+OnWhite+UpSideDown, qs#, qs#, 0); + "White queen on white field upside down"; + currentpicture:= TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Queen+Black+OnWhite, qs#, qs#, 0); + "Black queen on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(Queen+Black+OnWhite+LeftTurned, qs#, qs#, 0); + "Black queen on white field rotated to the left"; + currentpicture:= TurnLeft(BlackMan); +endchar; + +beginchar(Queen+Black+OnWhite+RightTurned, qs#, qs#, 0); + "Black queen on white field rotated to the right"; + currentpicture:= TurnRight(BlackMan); +endchar; + +beginchar(Queen+Black+OnWhite+UpSideDown, qs#, qs#, 0); + "Black queen on white field upside down"; + currentpicture:= TurnUpSideDown(BlackMan); +endchar; + +beginchar(Queen+Neutral+OnWhite, qs#, qs#, 0); + "Neutral queen on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(Queen+Neutral+OnWhite+LeftTurned, qs#, qs#, 0); + "Neutral queen on white field rotated to the left"; + currentpicture:= TurnLeft(NeutralMan); +endchar; + +beginchar(Queen+Neutral+OnWhite+RightTurned, qs#, qs#, 0); + "Neutral queen on white field rotated to the right"; + currentpicture:= TurnRight(NeutralMan); +endchar; + +beginchar(Queen+Neutral+OnWhite+UpSideDown, qs#, qs#, 0); + "Neutral queen on white field upside down"; + currentpicture:= TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Queen+White+OnBlack, qs#, qs#, 0); + "White queen on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(Queen+White+OnBlack+LeftTurned, qs#, qs#, 0); + "White queen on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(WhiteMan); +endchar; + +beginchar(Queen+White+OnBlack+RightTurned, qs#, qs#, 0); + "White queen on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(WhiteMan); +endchar; + +beginchar(Queen+White+OnBlack+UpSideDown, qs#, qs#, 0); + "White queen on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Queen+Neutral+OnBlack, qs#, qs#, 0); + "Neutral queen on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(Queen+Neutral+OnBlack+LeftTurned, qs#, qs#, 0); + "Neutral queen on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(NeutralMan); +endchar; + +beginchar(Queen+Neutral+OnBlack+RightTurned, qs#, qs#, 0); + "Neutral queen on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(NeutralMan); +endchar; + +beginchar(Queen+Neutral+OnBlack+UpSideDown, qs#, qs#, 0); + "Neutral queen on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Queen+Black+OnBlack, qs#, qs#, 0); + "Black queen on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; + +beginchar(Queen+Black+OnBlack+LeftTurned, qs#, qs#, 0); + "Black queen on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(BlackMan); +endchar; + +beginchar(Queen+Black+OnBlack+RightTurned, qs#, qs#, 0); + "Black queen on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(BlackMan); +endchar; + +beginchar(Queen+Black+OnBlack+UpSideDown, qs#, qs#, 0); + "Black queen on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(BlackMan); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-rook.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-rook.mf new file mode 100644 index 00000000000..e65230fd87c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/elch-rook.mf @@ -0,0 +1,325 @@ +%====================================================================== +% This is +% rook.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== + +def MakeRookPath = + + numeric wdbotta,wdbottb,wdstem,wdtop; % The widths + numeric htbotta,htbottb,htbottc,httopa,httopb; + numeric x[]; numeric y[]; + + wdbotta:= .90 BottomWidth; + wdbottb:= .72 BottomWidth; + wdstem := .51 BottomWidth; + wdtop := .74 BottomWidth; + + htbotta:= .12BottomWidth; + htbottb:= .16BottomWidth; + htbottc:= .12BottomWidth; + httopa := .13BottomWidth; + httopb := .20BottomWidth; + + rt x1 = rt x3 = .5(qs+wdbotta); + lft x2 = lft x4 = .5(qs-wdbotta); + bot y1 = bot y2 = BottomSpace; + top y3 = top y4 = BottomSpace+htbotta; + + y5 = y6 = y4; + top y8 - bot y6 = top y7 - bot y5 = htbottb; + rt x5 = rt x7 = .5(qs+wdbottb); + lft x6 = lft x8 = .5(qs-wdbottb); + + top y9 - bot y7 = top y10 - bot y8 = htbottc; + rt x9 = rt x11 = .5(qs+wdstem); + lft x10 = lft x12 = .5(qs-wdstem); + top y13 - bot y11 = top y14 - bot y12 = httopa; + top y15 - bot y13 = top y16 - bot y14 = httopb; + top y15 = top y16 = qs - TopSpace + .01qs; + rt x13 = rt x15 = .5(qs+wdtop); + lft x14 = lft x16 = .5(qs-wdtop); + + path LeftP,RightP,RookPath,SmP[]; + LeftP= z16--z14--z12--z10--z8--z6--z4--z2; + RightP= z1--z3--z5--z7--z9--z11--z13--z15; + + def RookTopPath(expr nn) = + numeric wdt; wdt = abs xpart(z15-z16)/(2nn+3); + numeric sdt; sdt = wdt; + pair pt,pb; + path TopP; TopP=z15; + pt = z15-(sdt,0); + bot pb = z15-(sdt,.5httopb); + for i=1 upto nn+1: + TopP:= TopP--pt--pb; + pb:= pb-(wdt,0); + pt:= pt-(wdt,0); + TopP:= TopP--pb--pt; + pb:= pb-(wdt,0); + pt:= pt-(wdt,0); + endfor; + TopP:= TopP--z16; + enddef; + + RookTopPath(1); + RookPath=RightP & TopP & LeftP -- cycle; + + SmP1= z5--z6; + SmP2= z7--z8; + SmP3= z9--z10; + SmP4= z11--z12; + SmP5= z13--z14; + + if proofing > 0: + labels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); + def PixelGrid(expr PixPerInch, w) = + if proofing > 0: + begingroup + numeric d; + d = pixels_per_inch/PixPerInch; + makegrid(0, + for i=d step d until w: ,i endfor) + (0,for i=d step d until w: ,i endfor) + endgroup; + fi; + enddef; + PixelGrid(400,qs); + fi + +enddef; +%------------------------------------------------------------ +def DrawInner = + %pickup inner_pen; + pickup chess_pen; + forsuffixes $=1,2,3,4,5: + draw SmP$; + endfor; +enddef; +%------------------------------------------------------------ +def UnDrawInner = + pickup chess_pen scaled 1.1; + forsuffixes $=1,3,4: + undraw ShortenPath(SmP$,thin); + undraw ShortenPath(SmP2,1.5thin); + undraw ShortenPath(SmP5,1.5thin); + endfor; +enddef; +%------------------------------------------------------------ + +def MakeWhiteRook = + clearit; + draw RookPath; + DrawInner; + cullit; + WhiteMan:= currentpicture; +enddef; + +def MakeBlackRook = + clearit; + filldraw RookPath; + UnDrawInner; + cullit; + BlackMan:= currentpicture; +enddef; + +def MakeOuterShape = + clearit; + pickup frame_pen; + filldraw RookPath; + cullit; + OuterShape:= currentpicture; +enddef; + +MakeRookPath; +MakeWhiteRook; +MakeBlackRook; +MakeNeutral(WhiteMan, BlackMan); +MakeOuterShape; + +%=========================================================== +% this one for testing +%beginchar(Rook+White+OnBlack, qs#, qs#, 0); +% "White rook on black field"; +% MakeBlackField; +% currentpicture:= currentpicture - OuterShape; +% cullit; +% currentpicture:= currentpicture + WhiteMan; +%endchar; +%beginchar(Rook+Black+OnWhite, qs#, qs#, 0); +% "Black rook on white field"; +% currentpicture:= BlackMan; +%endchar; +%endinput +%----------------------------------------------------------------------- +% +beginchar(Rook+White+OnWhite, qs#, qs#, 0); + "White rook on white field"; + currentpicture:= WhiteMan; +endchar; + +beginchar(Rook+White+OnWhite+LeftTurned, qs#, qs#, 0); + "White rook on white field rotated to the left"; + currentpicture:= TurnLeft(WhiteMan); +endchar; + +beginchar(Rook+White+OnWhite+RightTurned, qs#, qs#, 0); + "White rook on white field rotated to the right"; + currentpicture:= TurnRight(WhiteMan); +endchar; + +beginchar(Rook+White+OnWhite+UpSideDown, qs#, qs#, 0); + "White rook on white field upside down"; + currentpicture:= TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Rook+Black+OnWhite, qs#, qs#, 0); + "Black rook on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(Rook+Black+OnWhite+LeftTurned, qs#, qs#, 0); + "Black rook on white field rotated to the left"; + currentpicture:= TurnLeft(BlackMan); +endchar; + +beginchar(Rook+Black+OnWhite+RightTurned, qs#, qs#, 0); + "Black rook on white field rotated to the right"; + currentpicture:= TurnRight(BlackMan); +endchar; + +beginchar(Rook+Black+OnWhite+UpSideDown, qs#, qs#, 0); + "Black rook on white field upside down"; + currentpicture:= TurnUpSideDown(BlackMan); +endchar; + +beginchar(Rook+Neutral+OnWhite, qs#, qs#, 0); + "Neutral rook on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(Rook+Neutral+OnWhite+LeftTurned, qs#, qs#, 0); + "Neutral rook on white field rotated to the left"; + currentpicture:= TurnLeft(NeutralMan); +endchar; + +beginchar(Rook+Neutral+OnWhite+RightTurned, qs#, qs#, 0); + "Neutral rook on white field rotated to the right"; + currentpicture:= TurnRight(NeutralMan); +endchar; + +beginchar(Rook+Neutral+OnWhite+UpSideDown, qs#, qs#, 0); + "Neutral rook on white field upside down"; + currentpicture:= TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Rook+White+OnBlack, qs#, qs#, 0); + "White rook on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(Rook+White+OnBlack+LeftTurned, qs#, qs#, 0); + "White rook on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(WhiteMan); +endchar; + +beginchar(Rook+White+OnBlack+RightTurned, qs#, qs#, 0); + "White rook on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(WhiteMan); +endchar; + +beginchar(Rook+White+OnBlack+UpSideDown, qs#, qs#, 0); + "White rook on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Rook+Neutral+OnBlack, qs#, qs#, 0); + "Neutral rook on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(Rook+Neutral+OnBlack+LeftTurned, qs#, qs#, 0); + "Neutral rook on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(NeutralMan); +endchar; + +beginchar(Rook+Neutral+OnBlack+RightTurned, qs#, qs#, 0); + "Neutral rook on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(NeutralMan); +endchar; + +beginchar(Rook+Neutral+OnBlack+UpSideDown, qs#, qs#, 0); + "Neutral rook on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Rook+Black+OnBlack, qs#, qs#, 0); + "Black rook on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; + +beginchar(Rook+Black+OnBlack+LeftTurned, qs#, qs#, 0); + "Black rook on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(BlackMan); +endchar; + +beginchar(Rook+Black+OnBlack+RightTurned, qs#, qs#, 0); + "Black rook on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(BlackMan); +endchar; + +beginchar(Rook+Black+OnBlack+UpSideDown, qs#, qs#, 0); + "Black rook on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(BlackMan); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch.mf new file mode 100644 index 00000000000..cdd65a59cc6 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch.mf @@ -0,0 +1,67 @@ +%====================================================================== +% This is +% fselch.mf +% +% Copyright (C) 1989-93,95 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% + +thin#=0.03qs#; +inner_thin# = .66thin#; +frame_thin# = 4thin#; + +SideSpace# = .11qs#; +BottomWidth# = qs# - 2SideSpace#; +BottomSpace# = .12qs#; +TopSpace# = .12qs#; + +%----------------------------------------------------------------------- +% Now define our pixels +define_whole_pixels(qs,thin,inner_thin,frame_thin); +define_pixels(SideSpace,BottomWidth,BottomSpace,TopSpace); + +%----------------------------------------------------------------------- +% defining our pens +pen chess_pen; chess_pen = pencircle scaled thin; +pen inner_pen; inner_pen = pencircle scaled inner_thin; +pen frame_pen; frame_pen = pencircle scaled frame_thin; +pickup chess_pen; + +%----------------------------------------------------------------------- +% get our base +input elch-chbase.mf; + +%----------------------------------------------------------------------- +% now generate the figures +pickup chess_pen; input elch-blackfield.mf; +pickup chess_pen; input elch-pawn.mf; +pickup chess_pen; input elch-knight.mf; +pickup chess_pen; input elch-queen.mf; +pickup chess_pen; input elch-king.mf; +pickup chess_pen; input elch-bishop.mf; +pickup chess_pen; input elch-rook.mf; +pickup chess_pen; input elch-geo.mf; +pickup chess_pen; input elch-equi.mf; + +%---------------------------------------------------------------------- +% Now the fontdimension parameters +font_normal_space qs#; +font_normal_stretch 0; +font_normal_shrink 0; +font_x_height qs#; +font_quad qs#; +font_extra_space 0; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch10.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch10.mf new file mode 100644 index 00000000000..45f516a2114 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch10.mf @@ -0,0 +1,29 @@ +%====================================================================== +% This is +% fselch10.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% + +proofing:=1; +mode_setup; + +qs#:= 10pt#; +numeric HatchLinePart; HatchLinePart=6; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch11.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch11.mf new file mode 100644 index 00000000000..0f02f7382cc --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch11.mf @@ -0,0 +1,26 @@ +%====================================================================== +% This is +% fselch11.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +mode_setup; + +qs#:= 11pt#; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch12.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch12.mf new file mode 100644 index 00000000000..23ff2c90514 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch12.mf @@ -0,0 +1,26 @@ +%====================================================================== +% This is +% fselch12.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +mode_setup; + +qs#:= 12pt#; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch13.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch13.mf new file mode 100644 index 00000000000..13ca49e80e9 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch13.mf @@ -0,0 +1,26 @@ +%====================================================================== +% This is +% fselch13.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +mode_setup; + +qs#:= 13pt#; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch14.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch14.mf new file mode 100644 index 00000000000..24419bd49c6 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch14.mf @@ -0,0 +1,26 @@ +%====================================================================== +% This is +% fselch14.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +mode_setup; + +qs#:= 14pt#; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch16.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch16.mf new file mode 100644 index 00000000000..5a0a80d655c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch16.mf @@ -0,0 +1,26 @@ +%====================================================================== +% This is +% fselch16.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +mode_setup; + +qs#:= 16pt#; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch17.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch17.mf new file mode 100644 index 00000000000..8cbb9380679 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch17.mf @@ -0,0 +1,26 @@ +%====================================================================== +% This is +% fselch17.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +mode_setup; + +qs#:= 17pt#; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch20.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch20.mf new file mode 100644 index 00000000000..9d638275cf9 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch20.mf @@ -0,0 +1,26 @@ +%====================================================================== +% This is +% fselch20.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +mode_setup; + +qs#:= 20pt#; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch24.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch24.mf new file mode 100644 index 00000000000..646e031aae8 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch24.mf @@ -0,0 +1,26 @@ +%====================================================================== +% This is +% fselch24.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +mode_setup; + +qs#:= 24pt#; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch32.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch32.mf new file mode 100644 index 00000000000..d8c6a87958c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch32.mf @@ -0,0 +1,26 @@ +%====================================================================== +% This is +% fselch32.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +mode_setup; + +qs#:= 32pt#; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch36.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch36.mf new file mode 100644 index 00000000000..e1338f95391 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch36.mf @@ -0,0 +1,27 @@ +%====================================================================== +% This is +% fselch36.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% + +mode_setup; + +qs#:= 36pt#; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch6.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch6.mf new file mode 100644 index 00000000000..dbe168160f5 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch6.mf @@ -0,0 +1,27 @@ +%====================================================================== +% This is +% fselch6.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +mode_setup; + +qs#:= 6pt#; +numeric HatchLinePart; HatchLinePart=7; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch7.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch7.mf new file mode 100644 index 00000000000..0dc3556a403 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch7.mf @@ -0,0 +1,27 @@ +%====================================================================== +% This is +% fselch7.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +mode_setup; + +qs#:= 7pt#; +numeric HatchLinePart; HatchLinePart=7; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch8.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch8.mf new file mode 100644 index 00000000000..21312d1b4b6 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch8.mf @@ -0,0 +1,26 @@ +%====================================================================== +% This is +% fselch8.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +mode_setup; + +qs#:= 8pt#; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch9.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch9.mf new file mode 100644 index 00000000000..7877b87d723 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/fselch9.mf @@ -0,0 +1,27 @@ +%====================================================================== +% This is +% fselch9.mf +% +% Copyright (C) 1989-93 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +%====================================================================== +% +mode_setup; + +qs#:= 9pt#; +numeric HatchLinePart; HatchLinePart=7; +input fselch.mf; +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkbase.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkbase.mf new file mode 100644 index 00000000000..25df734e657 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkbase.mf @@ -0,0 +1,228 @@ +% This is +% pkbase.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% +% correcting the size of qs to make it a good pixelcount +if .5qs <> good.x .5qs: + qs:= qs if qs# * hppp > round(qs): + else: - fi 1; +fi + +% the center of the field +pair Center; Center = (qs/2,qs/2); + +picture BlackMan, WhiteMan, NeutralMan, OuterShape; + +% Some definitions for numbering the characters +% +% Numbers of the pieces +Pawn = 0; Knight = 1; Bishop = 2; Rook = 3; Queen = 4; King = 5; +% Geometric pieces +Circle = 145; +% Offsets for colors of the pieces +White = 0; Neutral = 6; Black = 12; +% Offsets for the background +OnWhite = 0; OnBlack = 18; +% Offsets for the turning +LeftTurned = 36; RightTurned = 72; UpSideDown = 108; + +% Makros for turning +def TurnLeft(expr p) = + p rotatedaround (Center,90); +enddef; + +def TurnRight(expr p) = + p rotatedaround (Center,-90); +enddef; + +def TurnUpSideDown(expr p) = + p rotatedaround (Center,180); +enddef; + +% +% Macros for shorten and lengthening paths +% +% ShortenPath: The given path is shorted at both ends, with the +% real amount of pixels given +% ShortenBegin, ShortenEnd: The same as above for one end only +% LengthenPath: The path is elongated at both ends with a straight +% line, in the direction of the path at the end +% LengthenBegin, LengthenEnd: The same as above for one end only +% +def Perpend(expr d,p,real) = + begingroup + save dd; pair dd; + dd = d/length(d); + (p+100*(dd rotated 90) -- p+100*(dd rotated -90)) shifted (dd*real) + endgroup; +enddef; +def ShortenPath(expr p,real) = + begingroup + save pa,pe; path pa,pe; + pa = Perpend(direction 0 of p,point 0 of p,real); + pe = Perpend(-direction length(p) of p,point length(p) of p,real); + subpath ( + xpart(p intersectiontimes pa), + xpart(p intersectiontimes pe)) of p + endgroup +enddef; +def ShortenBegin(expr p,real) = + begingroup + save pa; path pa; + pa = Perpend(direction 0 of p,point 0 of p,real); + subpath (xpart(p intersectiontimes pa),length(p)) of p + endgroup +enddef; +def ShortenEnd(expr p,real) = + begingroup + save pe; path pe; + pe = Perpend(-direction length(p) of p,point length(p) of p,real); + subpath (0, xpart(p intersectiontimes pe)) of p + endgroup +enddef; +def LengthenBegin(expr p,real) = + begingroup + save dd; pair dd; + dd= direction 0 of p; dd:= dd/length(dd); + point 0 of p - real*dd -- p + endgroup +enddef; +def LengthenEnd(expr p,real) = + begingroup + save dd; pair dd; + dd= direction length(p) of p; dd:= dd/length(dd); + p -- point length(p) of p + real*dd + endgroup +enddef; +def Lengthen(expr p,real) = + begingroup + save db; pair db; + save de; pair de; + db= direction 0 of p; db:= db/length(db); + de= direction length(p) of p; de:= de/length(de); + point 0 of p - real*db -- p -- point length(p) of p + real*de + endgroup +enddef; +% +% This macro is used bye ParallelPath +% +def NewPoint(expr p,t,dist) = + { begingroup pair Dir; + Dir= direction t of p; %show p; show t; show Dir; + Dir + endgroup } + (point t of p + (Dir rotated 90)*(dist/length(Dir))) +enddef; + +% Macro for getting a path parallel to the given path, in distance dist +% +def ParallelPath(expr p,dist) = + begingroup + save Dir; pair Dir; Dir = direction 0 of p; + + ((point 0 of p)+(Dir rotated 90)*(dist/length(Dir))) {Dir} + for t=.5 step .5 until length(p): + .. NewPoint(p,t,dist) + endfor + endgroup +enddef; + +def DefineFootBows( + % This macro depends on the values of qs and BottomSpace + % and uses the makro ParallelPath. + % It is used to generate the bottom bows of King, Queen and Bishop + expr BottomDist, %This is the space to BottomSpace + BowOneWidth, %This is the width of the main bow + FootHeight, %Distance from bottom of Bow0 to top of Bow3 + BowTwoLoc, %Relative location of Bow2 between Bow3 and + % Bow1. 0 means position at position at Bow1, + % 1.0 means position at Bow3. + WidthToHeight, %Ratio of BowOneWidth/2 to Bowheight + BowTwoLen, %Length of Bow2 relative to Bow1 + BowThreeLen %Lenght of Bow3 relative to Bow1 + ) = + + % All parameters are in pixels when not otherwise statet. + % Points are numbered from 0 to 3 from lower to upper + % Points to the left have suffix l, right suffix r + % points without further suffix are in the center of the bows + + path Bow[]; + numeric BowHeight; + numeric l[],x[]l,x[]r,x[],y[]l,y[]r,y[]; + + BowHeight = BowOneWidth*WidthToHeight/2; + + % We start with the first bow + x1r + x1l = qs; x1r - x1l = BowOneWidth; + y1 = BottomSpace + 2*BowHeight + BottomDist; + x1 = .5qs; + y1l = y1r = y1 - BowHeight; + Bow1 = z1l .. {right} z1 .. z1r; + + z0 = z1 shifted (down*2*BowHeight); + Bow0 = z1r .. {left} z0 .. z1l; + + Bow3= ParallelPath(Bow1,FootHeight-2*BowHeight); + l3 = length(Bow3); + cu:= (1-BowThreeLen)/2; + Bow3:= subpath (cu*l3,(1-cu)*l3) of Bow3; + z3l = point 0 of Bow3; + z3 = point .5*length(Bow3) of Bow3; + z3r = point infinity of Bow3; + +%show point 0 of reverse Bow3; +%show z3r; + + Bow2= ParallelPath(Bow1,(FootHeight-2*BowHeight)*BowTwoLoc); + l2 = length(Bow2); + cu:= (1-BowTwoLen)/2; + Bow2:= subpath (cu*l2,(1-cu)*l2) of Bow2; + z2l = point 0 of Bow2; + z2 = point .5length(Bow3) of Bow2; + z2r = point infinity of Bow2; + labels(1l,1,1r,2l,2r,3l,3r); +enddef; +% +% Macro for generation the neutral piece from two pictures +% given as Parameter +def MakeNeutral(expr White,Black) = + if unknown LeftHalft: picture LeftHalf; fi + LeftHalf:= Black; + cull LeftHalf keeping (1,infinity); + addto LeftHalf contour (unitsquare yscaled qs xscaled (qs/2)); + cull LeftHalf keeping (2,2); + + if unknown RightHalf: picture RightHalf; fi + RightHalf:= White; + cull RightHalf keeping (1,infinity); + addto RightHalf contour (unitsquare yscaled qs xscaled (qs/2) shifted (qs/2,0)); + cull RightHalf keeping (2,2); + NeutralMan:= LeftHalf; + addto NeutralMan also RightHalf; +enddef; +% +% Makro to get a grid of real output pixels when proofing +def PixelGrid(expr PixPerInch, w) = + if proofing > 0: + begingroup + numeric d; + d = pixels_per_inch/PixPerInch; + makegrid(0,for i=d step d until w: ,i endfor)(0,for i=d step d until w: ,i endfor) + endgroup; + fi; +enddef; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkbishop.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkbishop.mf new file mode 100644 index 00000000000..8aa99fa9227 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkbishop.mf @@ -0,0 +1,298 @@ +% This is +% pkbishop.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% +def slope(expr orig,middle,far,wd,angle) = + begingroup + save x, y, p; + path p.l,p.r; + pair inter; + + z0r= orig; + z1r= middle; + z2= far; + penpos0(wd,90+angle); + penpos1(wd,90); + penpos2(wd,90+angle); + forsuffixes e=l,r: + p.e:= z2e{dir angle}.. z1e{right} .. {dir angle}z0e; + endfor; + inter = p.l intersectiontimes p.l reflectedabout (orig,orig+up); + reverse p.r -- + subpath (0,xpart inter) of p.l .. + reverse subpath (0,xpart inter) of p.l + reflectedabout (orig,orig+up) -- + p.r reflectedabout (orig,orig+up) + endgroup +enddef; + +def MakeBishopPath = + + numeric TopDiameter; + TopDiameter = .08qs; + DefineFootBows( .10qs, % Distance to BottomSpace + .44qs, % BowOneWidth + .20qs, % FootHeight + .40, % BowTwoLoc + .13, % WidthToHeight + .88, % BowTwoLen + .80); % BowThreeLen + x4l + x4r = qs; + x4r - x4l = .60qs; + x4 = x3; + y4l = y4r = y4 = y3 + .15qs; % Sides of the shape with + % vertical tangents + + x5 = x4; + top (y5 + TopDiameter) = qs - TopSpace; + + pair TopDir.l, TopDir.r; + TopDir.l = dir 45; + TopDir.r = (xpart TopDir.l, -ypart TopDir.l); + + numeric TopDiameter; + TopDiameter = .08qs; + + path LeftShape,RightShape,BishopPath; + LeftShape = z1l .. z2l .. z3l .. {up}z4l .. {TopDir.l}z5; + RightShape= z5{TopDir.r} .. z4r{down} .. z3r .. z2r .. z1r; + BishopPath = LeftShape & RightShape & Bow0 & cycle; + + path Peak; + Peak:= fullcircle scaled TopDiameter + shifted (z5+.5TopDiameter*up); + + path CrossV,CrossH; + + z7= .2[z3,z5]; + z8= .7[z3,z5]; + CrossV:= z7 .. z8; + CrossH= CrossV rotatedaround (.5[z7,z8],90); + + path Slope; + numeric angle; + + angle= 60; + x12 = SideSpace; + y12 = BottomSpace; + z11 = .5[z12,z10]; + z10 = z0; + Slope= slope(z10,z11,z12,1.2thin,50) .. cycle; + +enddef; + +def MakeWhiteBishop = + pickup chess_pen; + clearit; + draw BishopPath; + forsuffixes $=1,2,3: draw Bow$; endfor + draw Peak; + draw CrossV; + draw CrossH; + pickup inner_pen; + draw Slope; + WhiteMan:= currentpicture; +enddef; + +def MakeBlackBishop = + pickup chess_pen; + clearit; + filldraw BishopPath; + forsuffixes $=1,2,3: undraw ShortenPath(Bow$,1.2thin); endfor + undraw ShortenPath(ParallelPath(LeftShape,-thin),thin); + undraw ShortenPath(ParallelPath(RightShape,-thin),thin); + filldraw Peak; + undraw CrossV; + undraw CrossH; + pickup inner_pen; + filldraw Slope; + BlackMan:= currentpicture; +enddef; + +def MakeOuterShape = + clearit; + pickup frame_pen; + filldraw BishopPath; + filldraw Peak; + filldraw Slope; + cullit; + OuterShape:= currentpicture; +enddef; + +MakeBishopPath; +MakeWhiteBishop; +MakeBlackBishop; +MakeNeutral(WhiteMan,BlackMan); +MakeOuterShape; + +%----------------------------------------------------------------------- +beginchar(Bishop+White+OnWhite, qs#, qs#, 0); + "White bishop on white field"; + currentpicture:= WhiteMan; +endchar; + +beginchar(Bishop+White+OnWhite+LeftTurned, qs#, qs#, 0); + "White bishop on white field rotated to the left"; + currentpicture:= TurnLeft(WhiteMan); +endchar; + +beginchar(Bishop+White+OnWhite+RightTurned, qs#, qs#, 0); + "White bishop on white field rotated to the right"; + currentpicture:= TurnRight(WhiteMan); +endchar; + +beginchar(Bishop+White+OnWhite+UpSideDown, qs#, qs#, 0); + "White bishop on white field upside down"; + currentpicture:= TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Bishop+Black+OnWhite, qs#, qs#, 0); + "Black bishop on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(Bishop+Black+OnWhite+LeftTurned, qs#, qs#, 0); + "Black bishop on white field rotated to the left"; + currentpicture:= TurnLeft(BlackMan); +endchar; + +beginchar(Bishop+Black+OnWhite+RightTurned, qs#, qs#, 0); + "Black bishop on white field rotated to the right"; + currentpicture:= TurnRight(BlackMan); +endchar; + +beginchar(Bishop+Black+OnWhite+UpSideDown, qs#, qs#, 0); + "Black bishop on white field upside down"; + currentpicture:= TurnUpSideDown(BlackMan); +endchar; + +beginchar(Bishop+Neutral+OnWhite, qs#, qs#, 0); + "Neutral bishop on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(Bishop+Neutral+OnWhite+LeftTurned, qs#, qs#, 0); + "Neutral bishop on white field rotated to the left"; + currentpicture:= TurnLeft(NeutralMan); +endchar; + +beginchar(Bishop+Neutral+OnWhite+RightTurned, qs#, qs#, 0); + "Neutral bishop on white field rotated to the right"; + currentpicture:= TurnRight(NeutralMan); +endchar; + +beginchar(Bishop+Neutral+OnWhite+UpSideDown, qs#, qs#, 0); + "Neutral bishop on white field upside down"; + currentpicture:= TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Bishop+White+OnBlack, qs#, qs#, 0); + "White bishop on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(Bishop+White+OnBlack+LeftTurned, qs#, qs#, 0); + "White bishop on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(WhiteMan); +endchar; + +beginchar(Bishop+White+OnBlack+RightTurned, qs#, qs#, 0); + "White bishop on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(WhiteMan); +endchar; + +beginchar(Bishop+White+OnBlack+UpSideDown, qs#, qs#, 0); + "White bishop on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Bishop+Neutral+OnBlack, qs#, qs#, 0); + "Neutral bishop on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(Bishop+Neutral+OnBlack+LeftTurned, qs#, qs#, 0); + "Neutral bishop on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(NeutralMan); +endchar; + +beginchar(Bishop+Neutral+OnBlack+RightTurned, qs#, qs#, 0); + "Neutral bishop on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(NeutralMan); +endchar; + +beginchar(Bishop+Neutral+OnBlack+UpSideDown, qs#, qs#, 0); + "Neutral bishop on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Bishop+Black+OnBlack, qs#, qs#, 0); + "Black bishop on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; + +beginchar(Bishop+Black+OnBlack+LeftTurned, qs#, qs#, 0); + "Black bishop on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(BlackMan); +endchar; + +beginchar(Bishop+Black+OnBlack+RightTurned, qs#, qs#, 0); + "Black bishop on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(BlackMan); +endchar; + +beginchar(Bishop+Black+OnBlack+UpSideDown, qs#, qs#, 0); + "Black bishop on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(BlackMan); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkblackfield.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkblackfield.mf new file mode 100644 index 00000000000..dd0fdc37684 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkblackfield.mf @@ -0,0 +1,65 @@ +% This is +% pkblackfield.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% +def MakeBlackField = + + if unknown BlackField: + + pair ua[],ub[],la[],lb[],ul,lr,ma,mb; + + numeric n,part; + + n=7; part=6; + pickup pencircle scaled (qs/(part*n)); + bot lft ma = (0,0); + top rt mb = (w,w); + draw ma--mb; + + top lft ul = (0,h); + bot rt lr = (w,0); + + numeric xdelta,ydelta; + xdelta= floor((xpart(lr) - xpart(ma)) / n); + ydelta= floor((ypart(ul) - ypart(ma)) / n); + + for i=1 upto n: + lft ua[i] = (0,ypart(ma)+(i*ydelta)); + top ub[i] = (xpart(mb)-(i*xdelta),h); + draw ua[i]..ub[i]; + endfor; + + for i=1 upto n: + bot la[i] = (xpart(ma)+(i*xdelta),0); + rt lb[i] = (w,ypart(mb)-(i*ydelta)); + draw la[i]..lb[i]; + endfor; + + picture BlackField; + cullit; + BlackField:= currentpicture; + + else: + currentpicture:= BlackField; + fi; + +enddef; + +beginchar(144,qs#,qs#,0); "Empty black field"; + MakeBlackField; +endchar; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch10.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch10.mf new file mode 100644 index 00000000000..f11a03b5930 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch10.mf @@ -0,0 +1,85 @@ +% This is +% pkelch10.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% + +% mag=1.2; + +mode_def agfa = + proofing:= 0; + fontmaking:= 1; + tracingtitles:= 1; + pixels_per_inch:= 400; + blacker:= .2; + fillin:= .1; + o_correction:= 1; +enddef; + +%mode=agfa; +%mode=epsonfx; +%mode=hplaser; +mode_setup; + +qs#:= 10pt#; + +thin#=0.03qs#; +inner_thin# = .66thin#; +frame_thin# = 4thin#; + +SideSpace# = .11qs#; +BottomWidth# = qs# - 2SideSpace#; +BottomSpace# = .11qs#; +TopSpace# = .11qs#; + +%----------------------------------------------------------------------- +% Now define our pixels +define_whole_pixels(qs,thin,inner_thin,frame_thin); +define_pixels(SideSpace,BottomWidth,BottomSpace,TopSpace); + +%----------------------------------------------------------------------- +% defining our pens +pen chess_pen; chess_pen = pencircle scaled thin; +pen inner_pen; inner_pen = pencircle scaled inner_thin; +pen frame_pen; frame_pen = pencircle scaled frame_thin; +pickup chess_pen; + +%----------------------------------------------------------------------- +% get our base +input pkbase.mf; + +%----------------------------------------------------------------------- +% now generate the figures +pickup chess_pen; input pkblackfield.mf; +pickup chess_pen; input pkpawn.mf; +pickup chess_pen; input pkknight.mf; +pickup chess_pen; input pkqueen.mf; +pickup chess_pen; input pkking.mf; +pickup chess_pen; input pkbishop.mf; +pickup chess_pen; input pkrook.mf; +pickup chess_pen; input pkgeo.mf; + +%---------------------------------------------------------------------- +% Now the fontdimension parameters +font_normal_space qs#; +font_normal_stretch 0; +font_normal_shrink 0; +font_x_height qs#; +font_quad qs#; +font_extra_space 0; + +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch11.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch11.mf new file mode 100644 index 00000000000..cf437bd9599 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch11.mf @@ -0,0 +1,85 @@ +% This is +% pkelch11.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% + +% mag=1.2; + +mode_def agfa = + proofing:= 0; + fontmaking:= 1; + tracingtitles:= 1; + pixels_per_inch:= 400; + blacker:= .2; + fillin:= .1; + o_correction:= 1; +enddef; + +%mode=agfa; +%mode=epsonfx; +%mode=hplaser; +mode_setup; + +qs#:= 11pt#; + +thin#=0.03qs#; +inner_thin# = .66thin#; +frame_thin# = 4thin#; + +SideSpace# = .11qs#; +BottomWidth# = qs# - 2SideSpace#; +BottomSpace# = .11qs#; +TopSpace# = .11qs#; + +%----------------------------------------------------------------------- +% Now define our pixels +define_whole_pixels(qs,thin,inner_thin,frame_thin); +define_pixels(SideSpace,BottomWidth,BottomSpace,TopSpace); + +%----------------------------------------------------------------------- +% defining our pens +pen chess_pen; chess_pen = pencircle scaled thin; +pen inner_pen; inner_pen = pencircle scaled inner_thin; +pen frame_pen; frame_pen = pencircle scaled frame_thin; +pickup chess_pen; + +%----------------------------------------------------------------------- +% get our base +input pkbase.mf; + +%----------------------------------------------------------------------- +% now generate the figures +pickup chess_pen; input pkblackfield.mf; +pickup chess_pen; input pkpawn.mf; +pickup chess_pen; input pkknight.mf; +pickup chess_pen; input pkqueen.mf; +pickup chess_pen; input pkking.mf; +pickup chess_pen; input pkbishop.mf; +pickup chess_pen; input pkrook.mf; +pickup chess_pen; input pkgeo.mf; + +%---------------------------------------------------------------------- +% Now the fontdimension parameters +font_normal_space qs#; +font_normal_stretch 0; +font_normal_shrink 0; +font_x_height qs#; +font_quad qs#; +font_extra_space 0; + +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch12.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch12.mf new file mode 100644 index 00000000000..1f0533561d0 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch12.mf @@ -0,0 +1,85 @@ +% This is +% pkelch12.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% + +% mag=1.2; + +mode_def agfa = + proofing:= 0; + fontmaking:= 1; + tracingtitles:= 1; + pixels_per_inch:= 400; + blacker:= .2; + fillin:= .1; + o_correction:= 1; +enddef; + +%mode=agfa; +%mode=epsonfx; +%mode=hplaser; +mode_setup; + +qs#:= 12pt#; + +thin#=0.03qs#; +inner_thin# = .66thin#; +frame_thin# = 4thin#; + +SideSpace# = .11qs#; +BottomWidth# = qs# - 2SideSpace#; +BottomSpace# = .11qs#; +TopSpace# = .11qs#; + +%----------------------------------------------------------------------- +% Now define our pixels +define_whole_pixels(qs,thin,inner_thin,frame_thin); +define_pixels(SideSpace,BottomWidth,BottomSpace,TopSpace); + +%----------------------------------------------------------------------- +% defining our pens +pen chess_pen; chess_pen = pencircle scaled thin; +pen inner_pen; inner_pen = pencircle scaled inner_thin; +pen frame_pen; frame_pen = pencircle scaled frame_thin; +pickup chess_pen; + +%----------------------------------------------------------------------- +% get our base +input pkbase.mf; + +%----------------------------------------------------------------------- +% now generate the figures +pickup chess_pen; input pkblackfield.mf; +pickup chess_pen; input pkpawn.mf; +pickup chess_pen; input pkknight.mf; +pickup chess_pen; input pkqueen.mf; +pickup chess_pen; input pkking.mf; +pickup chess_pen; input pkbishop.mf; +pickup chess_pen; input pkrook.mf; +pickup chess_pen; input pkgeo.mf; + +%---------------------------------------------------------------------- +% Now the fontdimension parameters +font_normal_space qs#; +font_normal_stretch 0; +font_normal_shrink 0; +font_x_height qs#; +font_quad qs#; +font_extra_space 0; + +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch14.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch14.mf new file mode 100644 index 00000000000..c34df55c63f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch14.mf @@ -0,0 +1,85 @@ +% This is +% pkelch14.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% + +% mag=1.2; + +mode_def agfa = + proofing:= 0; + fontmaking:= 1; + tracingtitles:= 1; + pixels_per_inch:= 400; + blacker:= .2; + fillin:= .1; + o_correction:= 1; +enddef; + +%mode=agfa; +%mode=epsonfx; +%mode=hplaser; +mode_setup; + +qs#:= 14pt#; + +thin#=0.03qs#; +inner_thin# = .66thin#; +frame_thin# = 4thin#; + +SideSpace# = .11qs#; +BottomWidth# = qs# - 2SideSpace#; +BottomSpace# = .11qs#; +TopSpace# = .11qs#; + +%----------------------------------------------------------------------- +% Now define our pixels +define_whole_pixels(qs,thin,inner_thin,frame_thin); +define_pixels(SideSpace,BottomWidth,BottomSpace,TopSpace); + +%----------------------------------------------------------------------- +% defining our pens +pen chess_pen; chess_pen = pencircle scaled thin; +pen inner_pen; inner_pen = pencircle scaled inner_thin; +pen frame_pen; frame_pen = pencircle scaled frame_thin; +pickup chess_pen; + +%----------------------------------------------------------------------- +% get our base +input pkbase.mf; + +%----------------------------------------------------------------------- +% now generate the figures +pickup chess_pen; input pkblackfield.mf; +pickup chess_pen; input pkpawn.mf; +pickup chess_pen; input pkknight.mf; +pickup chess_pen; input pkqueen.mf; +pickup chess_pen; input pkking.mf; +pickup chess_pen; input pkbishop.mf; +pickup chess_pen; input pkrook.mf; +pickup chess_pen; input pkgeo.mf; + +%---------------------------------------------------------------------- +% Now the fontdimension parameters +font_normal_space qs#; +font_normal_stretch 0; +font_normal_shrink 0; +font_x_height qs#; +font_quad qs#; +font_extra_space 0; + +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch16.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch16.mf new file mode 100644 index 00000000000..ccf65918d1e --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch16.mf @@ -0,0 +1,85 @@ +% This is +% pkelch16.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% + +% mag=1.2; + +mode_def agfa = + proofing:= 0; + fontmaking:= 1; + tracingtitles:= 1; + pixels_per_inch:= 400; + blacker:= .2; + fillin:= .1; + o_correction:= 1; +enddef; + +%mode=agfa; +%mode=epsonfx; +%mode=hplaser; +mode_setup; + +qs#:= 16pt#; + +thin#=0.03qs#; +inner_thin# = .66thin#; +frame_thin# = 4thin#; + +SideSpace# = .11qs#; +BottomWidth# = qs# - 2SideSpace#; +BottomSpace# = .11qs#; +TopSpace# = .11qs#; + +%----------------------------------------------------------------------- +% Now define our pixels +define_whole_pixels(qs,thin,inner_thin,frame_thin); +define_pixels(SideSpace,BottomWidth,BottomSpace,TopSpace); + +%----------------------------------------------------------------------- +% defining our pens +pen chess_pen; chess_pen = pencircle scaled thin; +pen inner_pen; inner_pen = pencircle scaled inner_thin; +pen frame_pen; frame_pen = pencircle scaled frame_thin; +pickup chess_pen; + +%----------------------------------------------------------------------- +% get our base +input pkbase.mf; + +%----------------------------------------------------------------------- +% now generate the figures +pickup chess_pen; input pkblackfield.mf; +pickup chess_pen; input pkpawn.mf; +pickup chess_pen; input pkknight.mf; +pickup chess_pen; input pkqueen.mf; +pickup chess_pen; input pkking.mf; +pickup chess_pen; input pkbishop.mf; +pickup chess_pen; input pkrook.mf; +pickup chess_pen; input pkgeo.mf; + +%---------------------------------------------------------------------- +% Now the fontdimension parameters +font_normal_space qs#; +font_normal_stretch 0; +font_normal_shrink 0; +font_x_height qs#; +font_quad qs#; +font_extra_space 0; + +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch8.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch8.mf new file mode 100644 index 00000000000..de2231d83a1 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch8.mf @@ -0,0 +1,85 @@ +% This is +% pkelch8.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% + +% mag=1.2; + +mode_def agfa = + proofing:= 0; + fontmaking:= 1; + tracingtitles:= 1; + pixels_per_inch:= 400; + blacker:= .2; + fillin:= .1; + o_correction:= 1; +enddef; + +%mode=agfa; +%mode=epsonfx; +%mode=hplaser; +mode_setup; + +qs#:= 8pt#; + +thin#=0.03qs#; +inner_thin# = .66thin#; +frame_thin# = 4thin#; + +SideSpace# = .11qs#; +BottomWidth# = qs# - 2SideSpace#; +BottomSpace# = .11qs#; +TopSpace# = .11qs#; + +%----------------------------------------------------------------------- +% Now define our pixels +define_whole_pixels(qs,thin,inner_thin,frame_thin); +define_pixels(SideSpace,BottomWidth,BottomSpace,TopSpace); + +%----------------------------------------------------------------------- +% defining our pens +pen chess_pen; chess_pen = pencircle scaled thin; +pen inner_pen; inner_pen = pencircle scaled inner_thin; +pen frame_pen; frame_pen = pencircle scaled frame_thin; +pickup chess_pen; + +%----------------------------------------------------------------------- +% get our base +input pkbase.mf; + +%----------------------------------------------------------------------- +% now generate the figures +pickup chess_pen; input pkblackfield.mf; +pickup chess_pen; input pkpawn.mf; +pickup chess_pen; input pkknight.mf; +pickup chess_pen; input pkqueen.mf; +pickup chess_pen; input pkking.mf; +pickup chess_pen; input pkbishop.mf; +pickup chess_pen; input pkrook.mf; +pickup chess_pen; input pkgeo.mf; + +%---------------------------------------------------------------------- +% Now the fontdimension parameters +font_normal_space qs#; +font_normal_stretch 0; +font_normal_shrink 0; +font_x_height qs#; +font_quad qs#; +font_extra_space 0; + +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch9.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch9.mf new file mode 100644 index 00000000000..2ac48263e68 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkelch9.mf @@ -0,0 +1,85 @@ +% This is +% pkelch9.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% + +% mag=1.2; + +mode_def agfa = + proofing:= 0; + fontmaking:= 1; + tracingtitles:= 1; + pixels_per_inch:= 400; + blacker:= .2; + fillin:= .1; + o_correction:= 1; +enddef; + +%mode=agfa; +%mode=epsonfx; +%mode=hplaser; +mode_setup; + +qs#:= 9pt#; + +thin#=0.03qs#; +inner_thin# = .66thin#; +frame_thin# = 4thin#; + +SideSpace# = .11qs#; +BottomWidth# = qs# - 2SideSpace#; +BottomSpace# = .11qs#; +TopSpace# = .11qs#; + +%----------------------------------------------------------------------- +% Now define our pixels +define_whole_pixels(qs,thin,inner_thin,frame_thin); +define_pixels(SideSpace,BottomWidth,BottomSpace,TopSpace); + +%----------------------------------------------------------------------- +% defining our pens +pen chess_pen; chess_pen = pencircle scaled thin; +pen inner_pen; inner_pen = pencircle scaled inner_thin; +pen frame_pen; frame_pen = pencircle scaled frame_thin; +pickup chess_pen; + +%----------------------------------------------------------------------- +% get our base +input pkbase.mf; + +%----------------------------------------------------------------------- +% now generate the figures +pickup chess_pen; input pkblackfield.mf; +pickup chess_pen; input pkpawn.mf; +pickup chess_pen; input pkknight.mf; +pickup chess_pen; input pkqueen.mf; +pickup chess_pen; input pkking.mf; +pickup chess_pen; input pkbishop.mf; +pickup chess_pen; input pkrook.mf; +pickup chess_pen; input pkgeo.mf; + +%---------------------------------------------------------------------- +% Now the fontdimension parameters +font_normal_space qs#; +font_normal_stretch 0; +font_normal_shrink 0; +font_x_height qs#; +font_quad qs#; +font_extra_space 0; + +end; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkgeo.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkgeo.mf new file mode 100644 index 00000000000..f9b7229c68b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkgeo.mf @@ -0,0 +1,109 @@ +% This is +% pkgeo.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% +% +%we have to define six essential characters: +% WoW NoW BoW WoB NoB BoB +%Pawn 0 6 12 18 24 30 +%Knight 1 7 13 19 25 31 +%Bishop 2 8 14 20 26 32 +%Rook 3 9 15 21 27 33 +%Queen 4 10 16 22 28 34 +%King 5 11 17 23 29 35 + +% All these cases are repeated three more times: +% Left turned, Right turned and upside down +%------------------------------------------ +% From this result the first free positions +% usable for simple geometric signs. + +def MakeCirclePath = + path CirclePath; + CirclePath = fullcircle scaled .75qs shifted Center; +enddef; + +def MakeWhiteCircle = + pickup chess_pen; + clearit; + draw CirclePath; + cullit; + WhiteMan:= currentpicture; +enddef; + +def MakeBlackCircle = + pickup chess_pen; + clearit; + filldraw CirclePath; + cullit; + BlackMan:= currentpicture; +enddef; + +def MakeOuterShape = + pickup frame_pen; + clearit; + filldraw CirclePath; + cullit; + OuterShape:= currentpicture; +enddef; + + +MakeCirclePath; +MakeWhiteCircle; +MakeBlackCircle; +MakeNeutral(WhiteMan, BlackMan); +MakeOuterShape ; + +beginchar(Circle+White+OnWhite, qs#, qs#, 0); + "White circle on white field"; + currentpicture:= WhiteMan; +endchar; + +beginchar(Circle+Black+OnWhite, qs#, qs#, 0); + "Black circle on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(Circle+Neutral+OnWhite, qs#, qs#, 0); + "Neutral circle on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(Circle+White+OnBlack, qs#, qs#, 0); + "White circle on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(Circle+Neutral+OnBlack, qs#, qs#, 0); + "Neutral circle on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(Circle+Black+OnBlack, qs#, qs#, 0); + "Black circle on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkking.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkking.mf new file mode 100644 index 00000000000..54dd32fe478 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkking.mf @@ -0,0 +1,342 @@ +% This is +% pkking.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% +%we have to define six essential characters: +% WoW NoW BoW WoB NoB BoB +%Pawn 0 6 12 18 24 30 +%Knight 1 7 13 19 25 31 +%Bishop 2 8 14 20 26 32 +%Rook 3 9 15 21 27 33 +%Queen 4 10 16 22 28 34 +%King 5 11 17 23 29 35 + +def SetParam = + numeric BowOneW,ThreeFour,SixHor,FourSix; + BowOneW = .52qs; + ThreeFour = .10; + FourFive = .60; % z5 is Top of Heart + SixHor = 1.40; + FourSix = .29; + + numeric CrossWidth, CrossHeight, CrossAbove; + CrossWidth = .30; + CrossHeight = .18; + CrossAbove = .18; %Middle of cross above center of heart. +enddef; + +def DefinePointsAndBows = + % Points are numbered from 0 to 9 from lower to upper + % Points to the left have suffix a, right suffic b + % points without further suffix are in the center + + SetParam; + DefineFootBows( 0, % No Space to Bottom + BowOneW, + .22qs, % FootHeight + .40, % BowTwoLoc + .15, % WidthToHeight + .90, % BowTwoLen + 1.00); % BowThreeLen + + z4 = z3 + BowOneW*ThreeFour*up; + z5 = z4 + BowOneW*FourFive*up; + y6l= y6r = y4 + BowOneW*FourSix; + x6l + x6r = qs; x6r - x6l = SixHor*BowOneW; + + z7 = z5 + CrossAbove*BowOneW*up; + y7 = y7l = y7r; + x7l + x7r = qs; x7r - x7l = CrossWidth*BowOneW; + z8 = z7 + CrossHeight*BowOneW*up; + + path Cross[]; + Cross1= z5--z8; + Cross2= z7l--z7r; +enddef; + +def DrawCross = + draw Cross1; + draw Cross2; +enddef; + +def UnDrawCross = + undraw Cross1; + undraw Cross2; +enddef; + +def DefineKingPaths = + path LeftPath,RightPath,LeftInnerPath,RightInnerPath, + OuterPath,TopHeartPath,HeartPath; + LeftPath = z1l .. z2l .. z3l .. z6l .. {down} z4 -- z3; + RightPath= reverse LeftPath reflectedabout (z3,z4); + %RightPath= z3 -- z4 {up} .. z6r .. z3r .. z2r .. z1r; + LeftInnerPath = ParallelPath(subpath (1.8,5)of LeftPath, + -1.6*thin); + RightInnerPath = LeftInnerPath reflectedabout (z3,z4); + + OuterPath = LeftPath .. RightPath .. Bow0 .. cycle; + HeartStart = 3.75; + HeartPath = subpath (4,HeartStart) of LeftPath & + point HeartStart of LeftPath + {-direction HeartStart of LeftPath}.. + {right}z5{right}.. + point HeartStart of reverse RightPath + {direction HeartStart of reverse RightPath} & + subpath (HeartStart,4) of reverse RightPath; + +enddef; + +def MakeWhiteKing = + clearit; + pickup chess_pen; + draw Bow[1]; + draw Bow[2]; + draw Bow[3]; + draw OuterPath; + draw HeartPath; + DrawCross; + %pickup inner_pen; + %pickup chess_pen; + %draw ParallelPath(subpath(1.7,5)of LeftPath,-2thin); + %draw ParallelPath(subpath(0,3.3)of RightPath,-2thin); + if proofing > 0: + ScreenGrid(0,qs)(0,qs); + fi; + WhiteMan:= currentpicture; +enddef; + +def MakeBlackKing = + clearit; + pickup chess_pen; + filldraw HeartPath .. cycle; + DrawCross; + cullit; + undraw ParallelPath(subpath (.6,3.4) of HeartPath, -thin); + cullit; + filldraw OuterPath; + cullit; + undraw ShortenPath(Bow[1],1.5thin); + undraw ShortenPath(Bow[2],1.2thin); + undraw ShortenPath(Bow[3],1.2thin); + undraw ShortenBegin(ParallelPath(LeftPath,-thin),1.2thin); + undraw ShortenEnd(ParallelPath(RightPath,-thin),1.2thin); + BlackMan:= currentpicture; +enddef; + +def MakeOuterShape = + clearit; + pickup frame_pen; + DrawCross; + filldraw OuterPath; + filldraw HeartPath .. cycle; + cullit; + OuterShape:= currentpicture; +enddef; + +DefinePointsAndBows; +DefineKingPaths; + +MakeWhiteKing; +MakeBlackKing; +MakeNeutral(WhiteMan, BlackMan); +MakeOuterShape; + + +%ScreenGrid(0,qs,x6r)(0,qs,y6r); + +%=========================================================== + +beginchar(King+White+OnWhite, qs#, qs#, 0); + "White king on white field"; + currentpicture:= WhiteMan; + %labels(z0,z1l,z1,z1r,z2l,z2,z2r); + %labels(z3l,z3,z3l,z4,z5,z6l,z6r); + %labels(z7l,z7,z7r,z8); +endchar; + +beginchar(King+White+OnWhite+LeftTurned, qs#, qs#, 0); + "White king turned to the left on white field"; + currentpicture:= TurnLeft(WhiteMan); +endchar; + +beginchar(King+White+OnWhite+RightTurned, qs#, qs#, 0); + "White king turned to the right on white field"; + currentpicture:= TurnRight(WhiteMan); +endchar; + +beginchar(King+White+OnWhite+UpSideDown, qs#, qs#, 0); + "White king turned upsidedown on white field"; + currentpicture:= TurnUpSideDown(WhiteMan); +endchar; + +%=========================================================== + +beginchar(King+White+OnBlack, qs#, qs#, 0); + "White king on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(King+White+OnBlack+LeftTurned, qs#, qs#, 0); + "White king turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(WhiteMan); +endchar; + +beginchar(King+White+OnBlack+RightTurned, qs#, qs#, 0); + "White king turned to the right on black field"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(WhiteMan); +endchar; + +beginchar(King+White+OnBlack+UpSideDown, qs#, qs#, 0); + "White king turned upsidedown on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(WhiteMan); +endchar; + +%=========================================================== + +beginchar(King+Neutral+OnWhite, qs#, qs#, 0); + "Neutral king on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(King+Neutral+OnWhite+LeftTurned, qs#, qs#, 0); + "Neutral king turned to the left on white field"; + currentpicture:= TurnLeft(NeutralMan); +endchar; + +beginchar(King+Neutral+OnWhite+RightTurned, qs#, qs#, 0); + "Neutral king turned to the right on white field"; + currentpicture:= TurnRight(NeutralMan); +endchar; + +beginchar(King+Neutral+OnWhite+UpSideDown, qs#, qs#, 0); + "Neutral king turned upsidedown on white field"; + currentpicture:= TurnUpSideDown(NeutralMan); +endchar; + +%=========================================================== + +beginchar(King+Neutral+OnBlack, qs#, qs#, 0); + "Neutral king on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(King+Neutral+OnBlack+LeftTurned, qs#, qs#, 0); + "Neutral king turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(NeutralMan); +endchar; + +beginchar(King+Neutral+OnBlack+RightTurned, qs#, qs#, 0); + "Neutral king turned to the right on black field"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(NeutralMan); +endchar; + +beginchar(King+Neutral+OnBlack+UpSideDown, qs#, qs#, 0); + "Neutral king turned upsidedown on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(NeutralMan); +endchar; + +%=========================================================== + +beginchar(King+Black+OnWhite, qs#, qs#, 0); + "Black king on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(King+Black+OnWhite+LeftTurned, qs#, qs#, 0); + "Black king turned to the left on white field"; + currentpicture:= TurnLeft(BlackMan); +endchar; + +beginchar(King+Black+OnWhite+RightTurned, qs#, qs#, 0); + "Black king turned to the right on white field"; + currentpicture:= TurnRight(BlackMan); +endchar; + +beginchar(King+Black+OnWhite+UpSideDown, qs#, qs#, 0); + "Black king turned upsidedown on white field"; + currentpicture:= TurnUpSideDown(BlackMan); +endchar; + +%=========================================================== + +beginchar(King+Black+OnBlack, qs#, qs#, 0); + "Black king on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; + +beginchar(King+Black+OnBlack+LeftTurned, qs#, qs#, 0); + "Black king turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(BlackMan); +endchar; + +beginchar(King+Black+OnBlack+RightTurned, qs#, qs#, 0); + "Black king turned to the right on black field"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(BlackMan); +endchar; + +beginchar(King+Black+OnBlack+UpSideDown, qs#, qs#, 0); + "Black king turned upsidedown on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(BlackMan); +endchar; + + diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkknight.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkknight.mf new file mode 100644 index 00000000000..de072befeb4 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkknight.mf @@ -0,0 +1,416 @@ +% This is +% pkknight.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% +def sympoint (expr p,d,a) = + % Come to point p in direction d + angel a, and leave symmetrical + % to d - a This gives us a peak in p pointing in direction d. + % sharpnes is specified by a. a= 0 no peak, a=90 real peak; + + {dir (angle(d)+a)} p {dir(angle(d)+180-a)} +enddef; + +def Ear(expr p,pd,q,qd,a,r,rd) = + p{pd} .. sympoint(q,qd,a) .. {rd}r +enddef; + +def DefineKnightPath = + % we construct the path from right to left. + % Ie we begin with the nack and come then to the ears, + % the nose etc + z0 = (.35qs,BottomSpace); % The leftmost bottompoint + z1 = (qs-SideSpace,BottomSpace); % The right bottom edge + path Foot; + Foot = z0 -- z1; + % z2 will be later defined, it + % is the connection to the right + % ear + z4 = (.5qs,qs-TopSpace); % The peak of the right ear + z3 = z4 + (.07qs,-0.15qs); % The right lower point of the + % right ear + z5 = z3 - (.08qs,.01qs ); % The left lower point of the + % right ear + + % Now comes the definition of the right ear + % There are two paths: + % RightEar: The complete path for the ear + % sRightEar: The subpath for the whole shape + path RightEar, sRightEar; + RightEar = Ear(z3,(1,5),z4,(0,1),10,z5,(1,-5)); + sRightEar = subpath (.25,1.75) of RightEar; + z2 = point 0 of sRightEar; % The right + z6 = point 2 of sRightEar; % The left connection point of + % the right ear + + % Now we can also define the nack + path Nack; + Nack = z1{up} .. tension 1 and 1 .. {left}z2; + + z7 = z6 + (-.1qs,-0.07qs); % This is the point under the + % left ear + + % Now the two pathes from the right to the left ear. + % EarUnderEar, goes from the right ear under the left ear + % EarToEar connects only the two ears + + path EarUnderEar,EarToEar; + EarUnderEar= z6{left} .. {-5,-3}z7; + EarToEar = subpath (0,.5) of EarUnderEar; + + z8 = point 1 of EarToEar; % The connection point and the + % start of the left ear + + % to get easier definition of the following points + % we define a line bx from z7 (point under left ear) down to z13 + % (leftmost point of shape) ie the begining of nose and mount + + z13 = (SideSpace,0.35qs); % The leftmost point of the + % shape + pair bx,by; + bx = z13 - z7; + by = z13 rotatedabout (z7,-90); + + z9 = z7 + .23bx + .24by; % the peak of the left ear + z10= z7 + .11bx + .10by; % the left point of the left ear + + % Now the path for the leaft ear + path LeftEar; + LeftEar= Ear(z8,(-1,5),z9,(-1,1),8,z10,(2,-5)); + + z11 = z7 + .4bx + .09by; + z12 = z7 + .5bx + .05by; + + path Bless; + Bless = z10{dir(angle(bx)-10)} .. z11 .. z12 .. {down} z13; + + % the points from z14 to z17 are defined via a line nx + % from z13 to z18 + pair nx,ny; + + z19 = (.25qs,.25qs); + nx = z19 - z13; + ny = nx rotatedabout ((0,0),90); + + z14 = z13 + .30nx - .13ny; % the point between mouth + % and nose + z15 = z13 + .63nx - .02ny; % the upper point of mouth + z16 = z13 + .72nx + .15ny; % the inner point of mouth + z17 = z13 + .77nx - .02ny; % + z18 = z13 + .87nx - .08ny; % + z25 = z13 + .22nx + .28ny; % the location of the nose + + path MouthNose; + MouthNose = z13 .. z14{nx} .. z15 ... sympoint(z16,(z16-z17),0) + ... z17 .. z18 .. z19; + + % the points from z20 to z23 are defined via a line nx + % from z19 to z23 + pair ux,uy; + + z23 = (.55qs,.61qs); + ux = z23 - z19; + uy = z23 rotatedabout (z19,90); + + z20 = z19 + .15ux + .01uy; + z21 = z19 + .45ux - .05uy; + z22 = z19 + .88ux - .15uy; + path UnderMouth, sUnderMouth; + UnderMouth = z19 ..z20..z21..z22..{up}z23; + sUnderMouth = subpath (0,3) of UnderMouth; + + z24 = z22 + .06qs*down; + path ToFoot; + ToFoot = z22{down} .. z24 .. {down}z0; + + + path KnightShape; + KnightShape = Foot & Nack & sRightEar & EarToEar + & LeftEar & Bless & MouthNose + & sUnderMouth & ToFoot & cycle; + +enddef; + +def DefineNosePath(expr p,s) = + begingroup + if proofing >0: + show p,s; + fi; + save z; pair z[]; + + z0 + (0,s) = p; + pair px,py; + py= p - z0; + px= py rotated -90; + z1= z0 + 0.10px + 0.50py; + z2= z0 + 0.70px + 1.00py; + z3= z0 + 0.70px + 1.60py; + z4= z0 + 0.10px + 2.10py; + z5= z0 - 0.20px + 1.90py; + z6= z0 - 0.60px + 0.50py; + z7= z0 - 0.60px + 0.10py; + z8= z0 - 0.50px + 0.00py; + forsuffixes i=0,1,2,3,4,5,6,7,8: + z[i].. + endfor cycle + endgroup +enddef; + +def EyePath (expr p,s) = + begingroup + save z; pair z[]; + + z0 + (0,s) = p; + pair px,py; + py= p - z0; + px= py rotated -90; + + z1= z0 + 1.00px + 1.00py; + + z0{0,1} .. {1,0} z1 & z1 {0,-1} .. {-1,0}z0 & cycle + endgroup +enddef; + +def MakeWhiteKnight = + clearit; + pickup chess_pen; + draw Foot; + draw RightEar; + draw EarUnderEar; + draw LeftEar & Bless & MouthNose & UnderMouth; + draw ToFoot; + draw EyePath(z7-(.04qs,.05qs),.03qs); + filldraw DefineNosePath(z25,.015qs); + pickup chess_pen xscaled 2 rotated -10; + draw ShortenEnd(Nack,thin); + WhiteMan:= currentpicture; +enddef; + +def MakeBlackKnight = + clearit; + pickup chess_pen; + + filldraw KnightShape; + cullit; + unfilldraw DefineNosePath(z25,.015qs); + undraw EyePath(z7-(.04qs,.05qs),.03qs); + pickup chess_pen scaled .7 rotated -70; + undraw ShortenPath(ParallelPath(Nack,1.3thin),thin); + pickup chess_pen scaled .5; + undraw subpath (3,3.5) of UnderMouth; + BlackMan:= currentpicture; +enddef; + +def MakeKnightSpace = + clearit; + pickup frame_pen; + filldraw KnightShape; + cullit; + OuterShape:= currentpicture; +enddef; + +DefineKnightPath; +%DefineNosePath(z25,.2qs); + +MakeWhiteKnight; +MakeBlackKnight; +MakeNeutral(WhiteMan,BlackMan); +MakeKnightSpace; + +%=========================================================== + +beginchar(Knight+White+OnWhite, qs#, qs#, 0); + "White knight on white field"; + currentpicture:= WhiteMan; + labels(z0,z1l,z1,z1r,z2l,z2,z2r); + labels(z3l,z3,z3l,z4,z5,z6l,z6r); + labels(z7l,z7,z7r,z8); +endchar; +if proofing = 0: + +beginchar(Knight+White+OnWhite+LeftTurned, qs#, qs#, 0); + "White knight turned to the left on white field"; + currentpicture:= TurnLeft(WhiteMan); +endchar; + +beginchar(Knight+White+OnWhite+RightTurned, qs#, qs#, 0); + "White knight turned to the right on white field"; + currentpicture:= TurnRight(WhiteMan); +endchar; + +beginchar(Knight+White+OnWhite+UpSideDown, qs#, qs#, 0); + "White knight turned upsidedown on white field"; + currentpicture:= TurnUpSideDown(WhiteMan); +endchar; + +%=========================================================== + +beginchar(Knight+White+OnBlack, qs#, qs#, 0); + "White knight on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(Knight+White+OnBlack+LeftTurned, qs#, qs#, 0); + "White knight turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(WhiteMan); +endchar; + +beginchar(Knight+White+OnBlack+RightTurned, qs#, qs#, 0); + "White knight turned to the right on black field"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(WhiteMan); +endchar; + +beginchar(Knight+White+OnBlack+UpSideDown, qs#, qs#, 0); + "White knight turned upsidedown on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(WhiteMan); +endchar; + +%=========================================================== + +beginchar(Knight+Neutral+OnWhite, qs#, qs#, 0); + "Neutral knight on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(Knight+Neutral+OnWhite+LeftTurned, qs#, qs#, 0); + "Neutral knight turned to the left on white field"; + currentpicture:= TurnLeft(NeutralMan); +endchar; + +beginchar(Knight+Neutral+OnWhite+RightTurned, qs#, qs#, 0); + "Neutral knight turned to the right on white field"; + currentpicture:= TurnRight(NeutralMan); +endchar; + +beginchar(Knight+Neutral+OnWhite+UpSideDown, qs#, qs#, 0); + "Neutral knight turned upsidedown on white field"; + currentpicture:= TurnUpSideDown(NeutralMan); +endchar; + +%=========================================================== + +beginchar(Knight+Neutral+OnBlack, qs#, qs#, 0); + "Neutral knight on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(Knight+Neutral+OnBlack+LeftTurned, qs#, qs#, 0); + "Neutral knight turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(NeutralMan); +endchar; + +beginchar(Knight+Neutral+OnBlack+RightTurned, qs#, qs#, 0); + "Neutral knight turned to the right on black field"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(NeutralMan); +endchar; + +beginchar(Knight+Neutral+OnBlack+UpSideDown, qs#, qs#, 0); + "Neutral knight turned upsidedown on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(NeutralMan); +endchar; + +%=========================================================== + +beginchar(Knight+Black+OnWhite, qs#, qs#, 0); + "Black knight on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(Knight+Black+OnWhite+LeftTurned, qs#, qs#, 0); + "Black knight turned to the left on white field"; + currentpicture:= TurnLeft(BlackMan); +endchar; + +beginchar(Knight+Black+OnWhite+RightTurned, qs#, qs#, 0); + "Black knight turned to the right on white field"; + currentpicture:= TurnRight(BlackMan); +endchar; + +beginchar(Knight+Black+OnWhite+UpSideDown, qs#, qs#, 0); + "Black knight turned upsidedown on white field"; + currentpicture:= TurnUpSideDown(BlackMan); +endchar; + +%=========================================================== + +beginchar(Knight+Black+OnBlack, qs#, qs#, 0); + "Black knight on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; + +beginchar(Knight+Black+OnBlack+LeftTurned, qs#, qs#, 0); + "Black knight turned to the left on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(BlackMan); +endchar; + +beginchar(Knight+Black+OnBlack+RightTurned, qs#, qs#, 0); + "Black knight turned to the right on black field"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(BlackMan); +endchar; + +beginchar(Knight+Black+OnBlack+UpSideDown, qs#, qs#, 0); + "Black knight turned upsidedown on black field"; + MakeBlackField; + cullit; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(BlackMan); +endchar; +fi; + +% diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkpawn.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkpawn.mf new file mode 100644 index 00000000000..64461355487 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkpawn.mf @@ -0,0 +1,346 @@ +% This is +% pkpawn.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + +% This is the oldest part of all my the MF-sources. +% I started Metafonting with this figure. +% ElB. + +%----------------------------------------------------------- +% This macro depends on some global sizes: +% thin, BottomSpace, BottomWidth, sidewith +% The values are defined as basic sizes of the Chess Characters + +def PawnShape(expr wbf,hbf,wmf,hmf,wtf,htf,ibm,imt) = + %begingroup + %save wb,wm,wt,hb,hm,ht,interbm,intermt; + numeric wb,wm,wt,hb,hm,ht,interbm,intermt; + wb = BottomWidth*wbf; % width of bottom ellipse + hb = hbf*wb; % hight of bottom ellipse + wm = wmf*wb; hm = hmf*wm; % width and hight of middle ellipse + wt = wtf*wb; ht = htf*wt; % width and hight of top ellipse + interbm = ibm*thin; % amount of intersection of bottom + % and middle + intermt = imt*thin; % amount of intersection of middle + %and top + %save superb,superm,supert; + numeric superb,superm,supert; + superb=.75; + superm=.75; + supert=.75; + + %save topb,topm,topt; + numeric topb,topm,topt; + topb=BottomSpace+hb; + topm=topb+hm-interbm; + topt=topm+ht-intermt; + + %screenrule((0,BottomSpace),(qs,BottomSpace)); + %screenrule(((qs-wb)/2,0),((qs-wb)/2,qs)); + %screenrule(((qs+wb)/2,0),((qs+wb)/2,qs)); + + %screenrule((0,topb),(qs,topb)); + %screenrule((0,topm),(qs,topm)); + %screenrule((0,topt),(qs,topt)); + + %save bp,mp,tp; + numeric bp,mp,tp; + path bp,mp,tp,PawnPath; + + %save x,y,z; + %pair z[]b,x[]b,y[]b; + %pair z[]m,x[]m,y[]m; + %pair z[]t,x[]t,y[]t; + + bot rt z1b = ((qs+wb)/2, BottomSpace); + bot lft z3b = ((qs-wb)/2, BottomSpace); + bot y4b + hb = top y2b - hb = BottomSpace; + x2b = x4b = qs/2; + bp=superellipse(z1b,z2b,z3b,z4b,superb); + bp:= subpath(0,4) of bp; + + rt x1m - wm/2 = lft x3m + wm/2 = qs/2; + top y2m = bot y4m + hm = topm; + y1m = y3m = (y2m+y4m)/2; + x2m = x4m = qs/2; + mp=superellipse(z1m,z2m,z3m,z4m,superm); + + rt x1t - wt/2 = lft x3t + wt/2 = qs/2; + top y2t = bot y4t + ht = topt; + y1t = y3t = (y2t+y4t)/2; + x2t = x4t = qs/2; + tp=superellipse(z1t,z2t,z3t,z4t,supert); + + % compute the intersectiontimes on the right side of the pawn + % The pathtimes of superellipses range from 0 to 8 + + %save scbr,scmbr,scmtr,sctr; + numeric scbr,scmbr,scmtr,sctr; + scbr = xpart (bp intersectiontimes (subpath(6,8)of mp)); + scmbr = xpart (mp intersectiontimes (subpath(0,2)of bp)); + scmtr = xpart (mp intersectiontimes (subpath(6,8)of tp)); + sctr = xpart (tp intersectiontimes (subpath(0,2)of mp)); + + % here is a macro to mirror pathtimes of superellipses on y-axis + def mr(expr v) = + if v > 4: 12-v; + else: 4-v; + fi + enddef; + + % Now the left intersectionpoints + %save scbl,scmbl,scmtl,sctl; + numeric scbl,scmbl,scmtl,sctl; + scbl = mr(scbr); + scmbl = mr(scmbr); + scmtl = mr(scmtr); + sctl = mr(sctr); + + PawnPath:=subpath(0,scbr)of bp .. + subpath(scmbr,(8+scmtr)) of mp .. + subpath(sctr,8+sctl) of tp .. + subpath(scmtl,scmbl) of mp .. + subpath(scbl,4) of bp; + %endgroup + +enddef; +%----------------------------------------------------------- +def MakePawnPath = + pickup chess_pen; + if unknown PawnPath: + % wb = qs - 2*sidespace; % width of bottom ellipse + % hb = hbf*wb; % hight of bottom ellipse + % wm = wmf*wb; hm = hmf*wm; % width and hight of middle + % ellipse + % wt = wtf*wb; ht = htf*wt; % width and hight of top + % ellipse + % + % wbf, hbf, ,wmf, hmf, wtf, htf, ibm, imt + %PawnShape( .80, .50, .55, .85, .3, 1.0, 2.0, 1.2); + %PawnShape( .85, .55, .60, .90, .4, 1.0, 2.0, 1.2); + PawnShape( .83, .50, .57, .85, .3, 1.0, 2.0, 1.2); + fi +enddef; +%------------------------------------------------------------ +def CorrectPawnEdges = + pickup sqr; + drawdot(z1b); + drawdot(z3b); +enddef; +%----------------------------------------------------------- + +%we have to define six essential characters: +% WoW NoW BoW WoB NoB BoB +%Pawn 0 6 12 18 24 30 +%Knight 1 7 13 19 25 31 +%Bishop 2 8 14 20 26 32 +%Rook 3 9 15 21 27 33 +%Queen 4 10 16 22 28 34 +%King 5 11 17 23 29 35 + +% All these cases are repeated three more times: +% Left turned, Right turned and upside down +%------------------------------------------ + + +def MakeWhitePawn = + pickup chess_pen; + clearit; + MakePawnPath; + draw PawnPath -- cycle; + cullit; + WhiteMan:= currentpicture; +enddef; + +def MakeBlackPawn = + pickup chess_pen; + clearit; + MakePawnPath; + filldraw PawnPath -- cycle; + cullit; + BlackMan:= currentpicture; +enddef; + +def MakeOuterShape = + pickup frame_pen; + clearit; + filldraw PawnPath -- cycle; + cullit; + OuterShape:= currentpicture; +enddef; + +MakeWhitePawn; +MakeBlackPawn; +MakeNeutral(WhiteMan, BlackMan); +MakeOuterShape; + +beginchar(Pawn+White+OnWhite, qs#, qs#, 0); + "White pawn on white field"; + currentpicture:= WhiteMan; +endchar; + +beginchar(Pawn+White+OnWhite+LeftTurned, qs#, qs#, 0); + "White pawn on white field rotated to the left"; + currentpicture:= TurnLeft(WhiteMan); +endchar; + +beginchar(Pawn+White+OnWhite+RightTurned, qs#, qs#, 0); + "White pawn on white field rotated to the right"; + currentpicture:= TurnRight(WhiteMan); +endchar; + +beginchar(Pawn+White+OnWhite+UpSideDown, qs#, qs#, 0); + "White pawn on white field upside down"; + currentpicture:= TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Pawn+Black+OnWhite, qs#, qs#, 0); + "Black pawn on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(Pawn+Black+OnWhite+LeftTurned, qs#, qs#, 0); + "Black pawn on white field rotated to the left"; + currentpicture:= TurnLeft(BlackMan); +endchar; + +beginchar(Pawn+Black+OnWhite+RightTurned, qs#, qs#, 0); + "Black pawn on white field rotated to the right"; + currentpicture:= TurnRight(BlackMan); +endchar; + +beginchar(Pawn+Black+OnWhite+UpSideDown, qs#, qs#, 0); + "Black pawn on white field upside down"; + currentpicture:= TurnUpSideDown(BlackMan); +endchar; + +beginchar(Pawn+Neutral+OnWhite, qs#, qs#, 0); + "Neutral pawn on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(Pawn+Neutral+OnWhite+LeftTurned, qs#, qs#, 0); + "Neutral pawn on white field rotated to the left"; + currentpicture:= TurnLeft(NeutralMan); +endchar; + +beginchar(Pawn+Neutral+OnWhite+RightTurned, qs#, qs#, 0); + "Neutral pawn on white field rotated to the right"; + currentpicture:= TurnRight(NeutralMan); +endchar; + +beginchar(Pawn+Neutral+OnWhite+UpSideDown, qs#, qs#, 0); + "Neutral pawn on white field upside down"; + currentpicture:= TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Pawn+White+OnBlack, qs#, qs#, 0); + "White pawn on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(Pawn+White+OnBlack+LeftTurned, qs#, qs#, 0); + "White pawn on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(WhiteMan); +endchar; + +beginchar(Pawn+White+OnBlack+RightTurned, qs#, qs#, 0); + "White pawn on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(WhiteMan); +endchar; + +beginchar(Pawn+White+OnBlack+UpSideDown, qs#, qs#, 0); + "White pawn on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Pawn+Neutral+OnBlack, qs#, qs#, 0); + "Neutral pawn on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(Pawn+Neutral+OnBlack+LeftTurned, qs#, qs#, 0); + "Neutral pawn on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(NeutralMan); +endchar; + +beginchar(Pawn+Neutral+OnBlack+RightTurned, qs#, qs#, 0); + "Neutral pawn on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(NeutralMan); +endchar; + +beginchar(Pawn+Neutral+OnBlack+UpSideDown, qs#, qs#, 0); + "Neutral pawn on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Pawn+Black+OnBlack, qs#, qs#, 0); + "Black pawn on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; + +beginchar(Pawn+Black+OnBlack+LeftTurned, qs#, qs#, 0); + "Black pawn on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(BlackMan); +endchar; + +beginchar(Pawn+Black+OnBlack+RightTurned, qs#, qs#, 0); + "Black pawn on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(BlackMan); +endchar; + +beginchar(Pawn+Black+OnBlack+UpSideDown, qs#, qs#, 0); + "Black pawn on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(BlackMan); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkqueen.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkqueen.mf new file mode 100644 index 00000000000..5393e3a14f1 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkqueen.mf @@ -0,0 +1,300 @@ +% This is +% pkqueen.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% + +%we have to define six essential characters: +% WoW NoW BoW WoB NoB BoB +%Pawn 0 6 12 18 24 30 +%Knight 1 7 13 19 25 31 +%Bishop 2 8 14 20 26 32 +%Rook 3 9 15 21 27 33 +%Queen 4 10 16 22 28 34 +%King 5 11 17 23 29 35 + +def Kegel(expr p,q) = + begingroup + path KPath; + numeric Width[],x[].a,y[].a,x[].b,y[].b; + numeric Base,MiddlePos,BowIns,Height,LowerHeight,TopHeight; + + + Width0 = Base = length(q-p); + Width1 = 1.30Base; + Width2 = 0.35Base; + Width3 = 1.30Base; % Diameter of circle + Height = 5.75Base; + MiddlePos = 0.25; + + BowIns = Width3/2+-+Width2/2; + LowerHeight + TopHeight = Height - Width3 + BowIns; + LowerHeight = MiddlePos*(LowerHeight+TopHeight); + + z0a = p; + z0b = z0a + (Width0,0); + forsuffixes $=1,2: + x$a + x$b = x0a + x0b; x$b - x$a = Width$; + endfor; + y1a = y1b = y0a + LowerHeight; + y2a = y2b = y1a + TopHeight; + x3a = .5(x2b+x2a); + y3a = y2a + BowIns; + %labels(0a,0b,1a,1b,2a,2b,3a); + + path LeftP,RightP,KgCircle; + LeftP= z2a -- z1a -- z0a; + RightP= z0b -- z1b -- z2b; + KgCircle= halfcircle rotated 180 scaled Width3 shifted z3a; + + KPath:= RightP .. + subpath ((ypart((z1b -- 1.5[z1b,z2b]) + intersectiontimes KgCircle)),4) of KgCircle .. + halfcircle scaled Width3 shifted z3a .. + subpath (0,ypart((z1a -- 1.5[z1a,z2a]) + intersectiontimes KgCircle)) of KgCircle .. + LeftP; + reverse (KPath rotatedaround(p, angle (q-p))) + endgroup; +enddef; + +def DefineQueenPath = + %SetParam; + DefineFootBows( 0, % No Space to Bottom + .50qs, % BowOneWidth + .28qs, % FootHeight + .40, % BowTwoLoc + .13, % WidthToHeight + .90, % BowTwoLen + 1.00); % BowThreeLen + + path KPath,LeftPath,RightPath,QueenShape; + numeric b,s; + % b and s define the ratio of 5 peak bases and 4 spaces. + % if you want more or other spacing change the values + b = 1.1s; + 5b + 4s = length(Bow3); + + pair at,bt; + at= point 0 of Bow3; + bt= point b of Bow3; + KPath:= Kegel(at, bt); + for t=b+s step b+s until length(Bow3): + KPath:= KPath .. subpath(t-s,t) of Bow3; + KPath:= KPath .. Kegel(point t of Bow3, + point(t+b)of Bow3); + endfor; + LeftPath:= z1l .. z2l .. z3l; + RightPath:= z3r .. z2r .. z1r; + QueenShape:= Bow0 & + LeftPath & + KPath .. + RightPath & + cycle; +enddef; + +pickup chess_pen; + +def MakeWhiteQueen = + clearit; + pickup chess_pen; + draw QueenShape; + forsuffixes $=1,2,3: draw Bow$; endfor; + WhiteMan:= currentpicture; +enddef; + +def MakeBlackQueen = + clearit; + pickup chess_pen; + filldraw QueenShape; + cullit; + undraw ShortenPath(Bow1,thin); + undraw ShortenPath(Bow2,thin); + undraw ShortenPath(ParallelPath(Bow3,-thin),thin); + BlackMan:= currentpicture; +enddef; + +def MakeOuterShape = + clearit; + pickup frame_pen; + filldraw QueenShape; + cullit; + OuterShape:= currentpicture; +enddef; + +DefineQueenPath; +MakeWhiteQueen; +MakeBlackQueen; +MakeNeutral(WhiteMan,BlackMan); +MakeOuterShape; + +%----------------------------------------------------------------------- +beginchar(Queen+White+OnWhite, qs#, qs#, 0); + "White queen on white field"; + currentpicture:= WhiteMan; +endchar; + +beginchar(Queen+White+OnWhite+LeftTurned, qs#, qs#, 0); + "White queen on white field rotated to the left"; + currentpicture:= TurnLeft(WhiteMan); +endchar; + +beginchar(Queen+White+OnWhite+RightTurned, qs#, qs#, 0); + "White queen on white field rotated to the right"; + currentpicture:= TurnRight(WhiteMan); +endchar; + +beginchar(Queen+White+OnWhite+UpSideDown, qs#, qs#, 0); + "White queen on white field upside down"; + currentpicture:= TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Queen+Black+OnWhite, qs#, qs#, 0); + "Black queen on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(Queen+Black+OnWhite+LeftTurned, qs#, qs#, 0); + "Black queen on white field rotated to the left"; + currentpicture:= TurnLeft(BlackMan); +endchar; + +beginchar(Queen+Black+OnWhite+RightTurned, qs#, qs#, 0); + "Black queen on white field rotated to the right"; + currentpicture:= TurnRight(BlackMan); +endchar; + +beginchar(Queen+Black+OnWhite+UpSideDown, qs#, qs#, 0); + "Black queen on white field upside down"; + currentpicture:= TurnUpSideDown(BlackMan); +endchar; + +beginchar(Queen+Neutral+OnWhite, qs#, qs#, 0); + "Neutral queen on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(Queen+Neutral+OnWhite+LeftTurned, qs#, qs#, 0); + "Neutral queen on white field rotated to the left"; + currentpicture:= TurnLeft(NeutralMan); +endchar; + +beginchar(Queen+Neutral+OnWhite+RightTurned, qs#, qs#, 0); + "Neutral queen on white field rotated to the right"; + currentpicture:= TurnRight(NeutralMan); +endchar; + +beginchar(Queen+Neutral+OnWhite+UpSideDown, qs#, qs#, 0); + "Neutral queen on white field upside down"; + currentpicture:= TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Queen+White+OnBlack, qs#, qs#, 0); + "White queen on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(Queen+White+OnBlack+LeftTurned, qs#, qs#, 0); + "White queen on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(WhiteMan); +endchar; + +beginchar(Queen+White+OnBlack+RightTurned, qs#, qs#, 0); + "White queen on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(WhiteMan); +endchar; + +beginchar(Queen+White+OnBlack+UpSideDown, qs#, qs#, 0); + "White queen on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Queen+Neutral+OnBlack, qs#, qs#, 0); + "Neutral queen on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(Queen+Neutral+OnBlack+LeftTurned, qs#, qs#, 0); + "Neutral queen on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(NeutralMan); +endchar; + +beginchar(Queen+Neutral+OnBlack+RightTurned, qs#, qs#, 0); + "Neutral queen on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(NeutralMan); +endchar; + +beginchar(Queen+Neutral+OnBlack+UpSideDown, qs#, qs#, 0); + "Neutral queen on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Queen+Black+OnBlack, qs#, qs#, 0); + "Black queen on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; + +beginchar(Queen+Black+OnBlack+LeftTurned, qs#, qs#, 0); + "Black queen on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(BlackMan); +endchar; + +beginchar(Queen+Black+OnBlack+RightTurned, qs#, qs#, 0); + "Black queen on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(BlackMan); +endchar; + +beginchar(Queen+Black+OnBlack+UpSideDown, qs#, qs#, 0); + "Black queen on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(BlackMan); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkrook.mf b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkrook.mf new file mode 100644 index 00000000000..a90437b0eb7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/bartel-chess-fonts/pkrook.mf @@ -0,0 +1,308 @@ +% This is +% pkrook.mf +% +% Copyright (C) 1989-92 by Elmar Bartel. +% +% This program is free software; you can redistribute it and/or modify +% it under the terms of the GNU General Public License as published by +% the Free Software Foundation; either version 1, or (at your option) +% any later version. +% +% This program is distributed in the hope that it will be useful, +% but WITHOUT ANY WARRANTY; without even the implied warranty of +% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +% GNU General Public License for more details. +% +% You should have received a copy of the GNU General Public License +% along with this program; if not, write to the Free Software +% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +% + + +def MakeRookPath = + + numeric wdbotta,wdbottb,wdstem,wdtop; % The widths + numeric htbotta,htbottb,htbottc,httopa,httopb; + numeric x[]; numeric y[]; + + wdbotta:= .90 BottomWidth; + wdbottb:= .80 BottomWidth; + wdstem := .55 BottomWidth; + wdtop := .80 BottomWidth; + + htbotta:= .11BottomWidth; + htbottb:= .11BottomWidth; + htbottc:= .15BottomWidth; + httopa := .15BottomWidth; + httopb := .18BottomWidth; + + rt x1 = rt x3 = .5(qs+wdbotta); + lft x2 = lft x4 = .5(qs-wdbotta); + bot y1 = bot y2 = BottomSpace; + top y3 = top y4 = BottomSpace+htbotta; + + y5 = y6 = y4; + top y8 - bot y6 = top y7 - bot y5 = htbottb; + rt x5 = rt x7 = .5(qs+wdbottb); + lft x6 = lft x8 = .5(qs-wdbottb); + + top y9 - bot y7 = top y10 - bot y8 = htbottc; + rt x9 = rt x11 = .5(qs+wdstem); + lft x10 = lft x12 = .5(qs-wdstem); + top y13 - bot y11 = top y14 - bot y12 = httopa; + top y15 - bot y13 = top y16 - bot y14 = httopb; + top y15 = top y16 = qs - TopSpace; + rt x13 = rt x15 = .5(qs+wdtop); + lft x14 = lft x16 = .5(qs-wdtop); + + path LeftP,RightP,RookPath,SmP[]; + LeftP= z16--z14--z12--z10--z8--z6--z4--z2; + RightP= z1--z3--z5--z7--z9--z11--z13--z15; + + def RookTopPath(expr nn) = + numeric wdt; wdt = abs xpart(z15-z16)/(2nn+2); + numeric sdt; sdt = .5wdt; + pair pt,pb; + path TopP; TopP=z15; + pt = z15-(sdt,0); + bot pb = z15-(sdt,.5httopb); + for i=1 upto nn+1: + TopP:= TopP--pt--pb; + pb:= pb-(wdt,0); + pt:= pt-(wdt,0); + TopP:= TopP--pb--pt; + pb:= pb-(wdt,0); + pt:= pt-(wdt,0); + endfor; + TopP:= TopP--z16; + enddef; + + RookTopPath(2); + RookPath=RightP & TopP & LeftP -- cycle; + + SmP1= z5--z6; + SmP2= z7--z8; + SmP3= z9--z10; + SmP4= z11--z12; + SmP5= z13--z14; + + if proofing > 0: + labels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); + def PixelGrid(expr PixPerInch, w) = + if proofing > 0: + begingroup + numeric d; + d = pixels_per_inch/PixPerInch; + makegrid(0, + for i=d step d until w: ,i endfor) + (0,for i=d step d until w: ,i endfor) + endgroup; + fi; + enddef; + PixelGrid(400,qs); + fi + +enddef; +%------------------------------------------------------------ +def DrawInner = + %pickup inner_pen; + pickup chess_pen; + forsuffixes $=1,2,3,4,5: + draw SmP$; + endfor; +enddef; +%------------------------------------------------------------ +def UnDrawInner = + pickup chess_pen; + forsuffixes $=1,2,3,4,5: + undraw ShortenPath(SmP$,thin); + endfor; +enddef; +%------------------------------------------------------------ + +def MakeWhiteRook = + clearit; + draw RookPath; + DrawInner; + cullit; + WhiteMan:= currentpicture; +enddef; + +def MakeBlackRook = + clearit; + filldraw RookPath; + UnDrawInner; + cullit; + BlackMan:= currentpicture; +enddef; + +def MakeOuterShape = + clearit; + pickup frame_pen; + filldraw RookPath; + cullit; + OuterShape:= currentpicture; +enddef; + +MakeRookPath; +MakeWhiteRook; +MakeBlackRook; +MakeNeutral(WhiteMan, BlackMan); +MakeOuterShape; + +%----------------------------------------------------------------------- +beginchar(Rook+White+OnWhite, qs#, qs#, 0); + "White rook on white field"; + currentpicture:= WhiteMan; +endchar; + +beginchar(Rook+White+OnWhite+LeftTurned, qs#, qs#, 0); + "White rook on white field rotated to the left"; + currentpicture:= TurnLeft(WhiteMan); +endchar; + +beginchar(Rook+White+OnWhite+RightTurned, qs#, qs#, 0); + "White rook on white field rotated to the right"; + currentpicture:= TurnRight(WhiteMan); +endchar; + +beginchar(Rook+White+OnWhite+UpSideDown, qs#, qs#, 0); + "White rook on white field upside down"; + currentpicture:= TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Rook+Black+OnWhite, qs#, qs#, 0); + "Black rook on white field"; + currentpicture:= BlackMan; +endchar; + +beginchar(Rook+Black+OnWhite+LeftTurned, qs#, qs#, 0); + "Black rook on white field rotated to the left"; + currentpicture:= TurnLeft(BlackMan); +endchar; + +beginchar(Rook+Black+OnWhite+RightTurned, qs#, qs#, 0); + "Black rook on white field rotated to the right"; + currentpicture:= TurnRight(BlackMan); +endchar; + +beginchar(Rook+Black+OnWhite+UpSideDown, qs#, qs#, 0); + "Black rook on white field upside down"; + currentpicture:= TurnUpSideDown(BlackMan); +endchar; + +beginchar(Rook+Neutral+OnWhite, qs#, qs#, 0); + "Neutral rook on white field"; + currentpicture:= NeutralMan; +endchar; + +beginchar(Rook+Neutral+OnWhite+LeftTurned, qs#, qs#, 0); + "Neutral rook on white field rotated to the left"; + currentpicture:= TurnLeft(NeutralMan); +endchar; + +beginchar(Rook+Neutral+OnWhite+RightTurned, qs#, qs#, 0); + "Neutral rook on white field rotated to the right"; + currentpicture:= TurnRight(NeutralMan); +endchar; + +beginchar(Rook+Neutral+OnWhite+UpSideDown, qs#, qs#, 0); + "Neutral rook on white field upside down"; + currentpicture:= TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Rook+White+OnBlack, qs#, qs#, 0); + "White rook on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + WhiteMan; +endchar; + +beginchar(Rook+White+OnBlack+LeftTurned, qs#, qs#, 0); + "White rook on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(WhiteMan); +endchar; + +beginchar(Rook+White+OnBlack+RightTurned, qs#, qs#, 0); + "White rook on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(WhiteMan); +endchar; + +beginchar(Rook+White+OnBlack+UpSideDown, qs#, qs#, 0); + "White rook on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(WhiteMan); +endchar; + +beginchar(Rook+Neutral+OnBlack, qs#, qs#, 0); + "Neutral rook on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + NeutralMan; +endchar; + +beginchar(Rook+Neutral+OnBlack+LeftTurned, qs#, qs#, 0); + "Neutral rook on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(NeutralMan); +endchar; + +beginchar(Rook+Neutral+OnBlack+RightTurned, qs#, qs#, 0); + "Neutral rook on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(NeutralMan); +endchar; + +beginchar(Rook+Neutral+OnBlack+UpSideDown, qs#, qs#, 0); + "Neutral rook on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(NeutralMan); +endchar; + +beginchar(Rook+Black+OnBlack, qs#, qs#, 0); + "Black rook on black field"; + MakeBlackField; + currentpicture:= currentpicture - OuterShape; + cullit; + currentpicture:= currentpicture + BlackMan; +endchar; + +beginchar(Rook+Black+OnBlack+LeftTurned, qs#, qs#, 0); + "Black rook on black field turned to the left"; + MakeBlackField; + currentpicture:= currentpicture - TurnLeft(OuterShape); + cullit; + currentpicture:= currentpicture + TurnLeft(BlackMan); +endchar; + +beginchar(Rook+Black+OnBlack+RightTurned, qs#, qs#, 0); + "Black rook on black field turned to the right"; + MakeBlackField; + currentpicture:= currentpicture - TurnRight(OuterShape); + cullit; + currentpicture:= currentpicture + TurnRight(BlackMan); +endchar; + +beginchar(Rook+Black+OnBlack+UpSideDown, qs#, qs#, 0); + "Black rook on black field upsidedown"; + MakeBlackField; + currentpicture:= currentpicture - TurnUpSideDown(OuterShape); + cullit; + currentpicture:= currentpicture + TurnUpSideDown(BlackMan); +endchar; |