diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/chess/bdfchess.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/chess/bdfchess.sty | 815 |
1 files changed, 0 insertions, 815 deletions
diff --git a/Master/texmf-dist/tex/latex/chess/bdfchess.sty b/Master/texmf-dist/tex/latex/chess/bdfchess.sty deleted file mode 100644 index a41a2a38401..00000000000 --- a/Master/texmf-dist/tex/latex/chess/bdfchess.sty +++ /dev/null @@ -1,815 +0,0 @@ -% This is BdFCHESS.STY Version 1.2 -% New additions to Piet Tutelaers CHESS.STY 1.2 -% for correspondence chess players -% -% Documentation see BDFGERM.TEX or BDFENGL.TEX -% -% Author Frank Hassel -% February 1993 -% -% These macros are free software in the spirit of TeX. -% Anyone, who demands payment for the distribution of this -% material, must make clear that the charge is for distribution -% and is no sense a licence fee or purchase fee for BDFCHESS.STY. -% Each user uses these macros entirely at his own risk. -% -% -% To include other postcardlanguages search for xxxx -% -\typeout{with fixes for 2e} -%%% FMi fixing for 2e -\def\xiipt{\fontsize{12pt}{14pt}\rmfamily} -% -%------- Usefull definitions not only for postalchess --------- -% -% -% -% -%------- \showinversboard ------------------------------------- -\newcount\@t -\newcount\@w -\def\@showinversrow#1{ - \@r=#1 - \@c=8 - \@sum=\@r - \advance\@sum by\@c - \loop - \@showchar - \ifnum\@c>1 \advance\@c by-1\advance\@sum by-1 - \repeat -} - -\def\showinversboard{ -\@t=1 -\vbox{\offinterlineskip - \hrule height1pt - \hbox{\vrule width1pt\Chess - \vbox{\loop - \hbox{\@showinversrow\@t} - \ifnum\@t<8 \advance\@t by1 - \repeat}% - \vrule width1pt} - \hrule height1pt}} -%---- \showboardwithnotation and \showinversboardwithnotation -- -%----- for boardsizes 10,15,20 and 30 pt------------------------ -\newlength{\boardbreite} -\newlength{\rhoehe} -\newlength{\feldbreite} -% -\def\selectnotationsize{ -\settowidth{\boardbreite}{\vrule width 2pt \Chess\@showrow8} -\feldbreite=\boardbreite -\advance\feldbreite by -2pt -\divide\feldbreite8 -\rhoehe=\boardbreite -\divide\rhoehe24 -% -\ifdim\boardbreite>240pt\font\no=cmr12\else -\ifdim\boardbreite>160pt\font\no=cmr10\else -\ifdim\boardbreite>120pt\font\no=cmr8\else -\ifdim\boardbreite>80pt\font\no=cmr6\fi\fi\fi\fi} -% -\def\showboardwithnotation{\selectnotationsize -\@t=8 -\vbox{\offinterlineskip - \hrule height1pt width\boardbreite - \Chess -\loop - \hbox{\vrule width1pt\@showrow\@t\vrule width1pt - \raisebox{\rhoehe}{\no\ \the\@t}} - \ifnum\@t>1 \advance\@t by-1 -\repeat - \hrule height1pt width\boardbreite\smallskip -\hbox{ -\hbox to \feldbreite{\hfil\no a\hfil} -\hbox to \feldbreite{\hfil\no b\hfil} -\hbox to \feldbreite{\hfil\no c\hfil} -\hbox to \feldbreite{\hfil\no d\hfil} -\hbox to \feldbreite{\hfil\no e\hfil} -\hbox to \feldbreite{\hfil\no f\hfil} -\hbox to \feldbreite{\hfil\no g\hfil} -\hbox to \feldbreite{\hfil\no h\hfil} -}}} -% -\def\showinversboardwithnotation{\selectnotationsize -\@t=1 -\vbox{\offinterlineskip - \hrule height1pt width\boardbreite - \Chess -\loop - \hbox{\vrule width1pt\@showinversrow\@t\vrule width1pt - \raisebox{\rhoehe}{\no\ \the\@t}} - \ifnum\@t<8 \advance\@t by1 -\repeat - \hrule height1pt width\boardbreite\smallskip -\hbox{ -\hbox to \feldbreite{\hfil\no h\hfil} -\hbox to \feldbreite{\hfil\no g\hfil} -\hbox to \feldbreite{\hfil\no f\hfil} -\hbox to \feldbreite{\hfil\no e\hfil} -\hbox to \feldbreite{\hfil\no d\hfil} -\hbox to \feldbreite{\hfil\no c\hfil} -\hbox to \feldbreite{\hfil\no b\hfil} -\hbox to \feldbreite{\hfil\no a\hfil} -}}} -%------- \savegameone and \restoregameone --------------------- -\def\@colA{\ifcase\@c\or i\or j\or k\or l\or m\or n\or o\or p\fi} -% -\newif\ifWhiteone -\newif\ifcastlingone -\newif\ifKnotmovedone -\newif\ifknotmovedone -\newif\ifpromotionone -\newif\ifenpassantone -\newcount\movecountone -% -\def\savegameone{ -\global\let\Whiteone=\White -\global\let\castlingone=\castling -\global\let\Knotmovedone=\Knotmoved -\global\let\knotmovedone=\knotmoved -\global\let\promotionone=\promotion -\global\let\enpassantone=\enpassant -\global\movecountone=\movecount - - \@r=1 - \loop - {\@c=1 - \loop - \@get\piece[\@col\the\@r] - \@set[\@colA\the\@r](\piece) - \ifnum\@c<8 \advance\@c by1 - \repeat} - \ifnum\@r<8 \advance\@r by 1 - \repeat -} -% -\def\restoregameone{ -\global\let\White=\Whiteone -\global\let\castling=\castlingone -\global\let\Knotmoved=\Knotmovedone -\global\let\knotmoved=\knotmovedone -\global\let\promotion=\promotionone -\global\let\enpassant=\enpassantone -\global\movecount=\movecountone - \@r=1 - \loop - {\@c=1 - \loop - \@get\piece[\@colA\the\@r] - \@set[\@col\the\@r](\piece) - \ifnum\@c<8 \advance\@c by1 - \repeat} - \ifnum\@r<8 \advance\@r by 1 - \repeat -} -%------- \savegametwo and \restoregametwo --------------------- -\def\@colB{\ifcase\@c\or q\or r\or s\or t\or u\or v\or w\or x\fi} - -\newif\ifpostalWhitetwo -\newif\ifcastlingtwo -\newif\ifKnotmovedtwo -\newif\ifknotmovedtwo -\newif\ifpromotiontwo -\newif\ifenpassanttwo -\newcount\movecounttwo -% -\def\savegametwo{ -\global\let\Whitetwo=\White -\global\let\castlingtwo=\castling -\global\let\Knotmovedtwo=\Knotmoved -\global\let\knotmovedtwo=\knotmoved -\global\let\promotiontwo=\promotion -\global\let\enpassanttwo=\enpassant -\global\movecounttwo=\movecount - \@r=1 - \loop - {\@c=1 - \loop - \@get\piece[\@col\the\@r] - \@set[\@colB\the\@r](\piece) - \ifnum\@c<8 \advance\@c by1 - \repeat} - \ifnum\@r<8 \advance\@r by 1 - \repeat} -% -\def\restoregametwo{ -\global\let\White=\Whitetwo -\global\let\castling=\castlingtwo -\global\let\Knotmoved=\Knotmovedtwo -\global\let\knotmoved=\knotmovedtwo -\global\let\promotion=\promotiontwo -\global\let\enpassant=\enpassanttwo -\global\movecount=\movecounttwo - \@r=1 - \loop - {\@c=1 - \loop - \@get\piece[\@colB\the\@r] - \@set[\@col\the\@r](\piece) - \ifnum\@c<8 \advance\@c by1 - \repeat} - \ifnum\@r<8 \advance\@r by 1 - \repeat -} -%----------- \storeboard ------------------------------------ -\def\storeboard#1{ -\newwrite\bdf -\immediate\openout\bdf=#1 -\immediate\write\bdf{\string\begin{position}} -\immediate\write\bdf{\string\White(} -\@r=1 -\loop -\@c=1 -\@sum=\@r\advance \@sum by \@c -\loop - \@get\piece[\@col\the\@r] -\if\piece E -\else -% -% -\if\piece R \immediate\write\bdf{\uc@rook\@col\the\@r,}\fi -\if\piece N \immediate\write\bdf{\uc@knight\@col\the\@r,}\fi -\if\piece B \immediate\write\bdf{\uc@bishop\@col\the\@r,}\fi -\if\piece Q \immediate\write\bdf{\uc@queen\@col\the\@r,}\fi -\if\piece P \immediate\write\bdf{\@col\the\@r,}\fi -\if\piece K \@t=\@c \@w=\@r \fi -\fi - \ifnum\@c<8 \advance \@c by 1 \advance\@sum by 1 - \repeat - \ifnum\@r<8 \advance \@r by 1 -\@c=1 -\repeat -\@c=\@t -\immediate\write\bdf{\uc@king\@col\the\@w )} -% -\immediate\write\bdf{\string\Black(} -\@r=1 -\loop -\@c=1 -\@sum=\@r\advance \@sum by \@c -\loop - \@get\piece[\@col\the\@r] -\if\piece E -\else -\if\piece k \@t=\@c \@w=\@r\fi -% -% -\if\piece r \immediate\write\bdf{\uc@rook\@col\the\@r,}\fi -\if\piece n \immediate\write\bdf{\uc@knight\@col\the\@r,}\fi -\if\piece b \immediate\write\bdf{\uc@bishop\@col\the\@r,}\fi -\if\piece q \immediate\write\bdf{\uc@queen\@col\the\@r,}\fi -\if\piece p \immediate\write\bdf{\@col\the\@r,}\fi -\fi - \ifnum\@c<8 \advance \@c by 1 \advance\@sum by 1 - \repeat - \ifnum\@r<8 \advance \@r by 1 -\@c=1 -\repeat -\@c=\@t -\immediate\write\bdf{\uc@king\@col\the\@w )} -% -\immediate\write\bdf{\string\global\movecount=\the\movecount} -\ifWhite -\immediate\write\bdf{\string\global\string\Whitetrue} -\else -\immediate\write\bdf{\string\global\string\Whitefalse} -\fi -\immediate\write\bdf{\string\end{position}} -\immediate\closeout\bdf -} -% -%------- Here are the definitions for postal chessplayers ----- -% -%-------- boxes for postcard in several languages ------------- -\global\font\Fig=chessf10 -\newbox\yourdatebox -\newbox\mydatebox -\newbox\moveonebox -\newbox\movetwobox -\newbox\acceptonebox -\newbox\accepttwobox -% -\def\cardtabular[#1,#2,#3,#4]{ -\hbox{\hbox to 10mm{\hss #1\hss} - \hbox to 18mm{\hss #2\hss} - \hbox to 7mm{\hss #3\hss} - \hbox to 18mm{\hss #4\hss}}} -% -%%------------------- Definitions for english postcard --------- -\chardef \pc@english=0 -\gdef\tabularheader{\vbox{ - \hbox{\hbox to 30mm{\hss Date\hss} - \hbox to 70mm{\hss\ \hss} - \hbox to 30mm{\hss Date\hss}} -\movetabular[Arrival,Leaving,$\sum$,{\large\bf White}, ,{\large -\bf Black},Arrival,Leaving,$\sum$] -\vskip 1pt\hrule}} -% -\def\cardenglish{% -\gdef\postcardname{postcard} -%%%%FMi -\gdef\salutations{Yours sincerely} -\gdef\nameif{if } -\def\yourdate[##1][##2][##3]{\global\setbox\yourdatebox=\vbox{ -\hbox{Your postmark date ##1} -\hbox{Your time taken ##2 day(s)} -\hbox{Your total time ##3 days}}} -% -\def\mydate[##1][##2][##3][##4]{\global\setbox\mydatebox=\vbox{ -\hbox{Received on ##1} -\hbox{Replied on ##2} -\hbox{My time taken ##3 day(s)} -\hbox{My total time ##4 days}}} -% -\global\setbox\acceptonebox=\vbox{ -\hbox to 50mm{\hss Game 1\hss}\vskip 2mm -\cardtabular[No.,Your move,No.,My move] -\hrule\vskip 2pt} -% -\global\setbox\accepttwobox=\vbox{ -\hbox to 50mm{\hss Game 2\hss}\vskip 2mm -\cardtabular[No.,Your move,No.,My move] -\hrule\vskip 2pt} -% -}% -%------------------- Definitions for german postcard --------- -\chardef \pc@german=1 -\ifcurrentlanguage{germanb}{% -\gdef\tabularheader{\vbox{ - \hbox{\hbox to 30mm{\hss Datum\hss} - \hbox to 70mm{\hss\ \hss} - \hbox to 30mm{\hss Datum\hss}} -\movetabular[Ankunft,Abgang,$\sum$,{\large\bf Wei\ss}, ,{\large -\bf Schwarz},Ankunft,Abgang,$\sum$] -\vskip 1pt\hrule}}} -% -\def\cardgerman{% -\gdef\postcardname{Postkarte} -\gdef\salutations{Freundliche Gr\"u\ss e} -\gdef\nameif{falls } -\def\yourdate[##1][##2][##3]{\global\setbox\yourdatebox=\vbox{ -\hbox{Ihr Poststempeldatum ##1} -\hbox{Ihre Bedenkzeit ##2 Tag(e)} -\hbox{Ihre Gesamtbedenkzeit ##3 Tage}}} -% -\def\mydate[##1][##2][##3][##4]{\global\setbox\mydatebox=\vbox{ -\hbox{Empfangen am ##1} -\hbox{Beantwortet am ##2} -\hbox{Meine Bedenkzeit ##3 Tag(e)} -\hbox{Meine Gesamtbedenkzeit ##4 Tage}}} -% -\global\setbox\acceptonebox=\vbox{ -\hbox to 50mm{\hss Partie 1\hss}\vskip 2mm -\cardtabular[Nr.,Ihr Zug,Nr.,Mein Zug] -\hrule\vskip 2pt} -% -\global\setbox\accepttwobox=\vbox{ -\hbox to 50mm{\hss Partie 2\hss}\vskip 2mm -\cardtabular[Nr.,Ihr Zug,Nr.,Mein Zug] -\hrule\vskip 2pt} -% -}% -%------------------- Definitions for french postcard --------- -\chardef \pc@french=2 -\ifcurrentlanguage{french}{% -\gdef\tabularheader{\vbox{ - \hbox{\hbox to 30mm{\hss Date\hss} - \hbox to 70mm{\hss\ \hss} - \hbox to 30mm{\hss Date\hss}} -\movetabular[Arriv\'ee,D\'epart,$\sum$,{\large\bf Blanc}, ,{\large -\bf Noir},Arriv\'ee,D\'epart,$\sum$] -\vskip 1pt\hrule}}} -% -\def\cardfrench{% -\gdef\postcardname{carte postale} -\gdef\salutations{Salutations} -\gdef\nameif{que } -\def\yourdate[##1][##2][##3]{\global\setbox\yourdatebox=\vbox{ -\hbox{Votre date de la poste ##1} -\hbox{Votre temps ##2 jour(s)} -\hbox{Votre temps total ##3 jours}}} -% -\def\mydate[##1][##2][##3][##4]{\global\setbox\mydatebox=\vbox{ -\hbox{Arriv\'ee ##1} -\hbox{D\'epart ##2} -\hbox{Mon temps ##3 jour(s)} -\hbox{Mon temps total ##4 jours}}} -% -\global\setbox\acceptonebox=\vbox{ -\hbox to 50mm{\hss Partie 1\hss}\vskip 2mm -\cardtabular[No.,Votre coup,No.,Mon coup] -\hrule\vskip 2pt} -% -\global\setbox\accepttwobox=\vbox{ -\hbox to 50mm{\hss Partie 2\hss}\vskip 2mm -\cardtabular[No.,Votre coup,No.,Mon coup] -\hrule\vskip 2pt} -% -} -%------------------- Definitions for xxxx postcard --------- -\chardef \pc@xxxx=3 -\ifcurrentlanguage{xxxx}{% -\gdef\tabularheader{\vbox{ - \hbox{\hbox to 30mm{\hss xxxx\hss} - \hbox to 70mm{\hss\ \hss} - \hbox to 30mm{\hss xxxx\hss}} -\movetabular[xxxx,xxxx,$\sum$,{\large\bf xxxx}, ,{\large \bf - xxxx},xxxx,xxxx,$\sum$] -\vskip 1pt\hrule}}} -% -\def\cardxxxx{% -\gdef\postcardname{xxxx} -\gdef\salutations{xxxx} -\gdef\nameif{xxxx } -\def\yourdate[##1][##2][##3]{\global\setbox\yourdatebox=\vbox{ -\hbox{xxxx ##1} -\hbox{xxxx ##2 xxxx} -\hbox{xxxx ##3 xxxx}}} -% -\def\mydate[##1][##2][##3][##4]{\global\setbox\mydatebox=\vbox{ -\hbox{xxxx ##1} -\hbox{xxxx ##2} -\hbox{xxxx ##3 xxxx} -\hbox{xxxx ##4 xxxx}}} -% -\global\setbox\acceptonebox=\vbox{ -\hbox to 50mm{\hss xxxx 1\hss}\vskip 2mm -\cardtabular[xxxx,xxxx,xxxx,xxxx] -\hrule\vskip 2pt} -% -\global\setbox\accepttwobox=\vbox{ -\hbox to 50mm{\hss xxxx 2\hss}\vskip 2mm -\cardtabular[xxxx,xxxx,xxxx,xxxx] -\hrule\vskip 2pt} -} -%--------------- Selection of language ------------------------- -\def\p@postcardlanguage#1{\expandafter\ifx\csname pc@#1\endcsname\relax -\errhelp{Your command will be ignored, type <return> to proceed}% -\errmessage{You haven't defined the language #1 yet}% - \else -\csname card#1\endcsname - \fi} - -\def\postcardlanguage#1{\protect\p@postcardlanguage{% - \ifnum\escapechar=\expandafter`\string#1\empty - \else \string#1\empty\fi}} -%----------------- Init ------------------------------ -\postcardlanguage{english}% Default language -\ifcurrentlanguage{germanb}{\postcardlanguage{german}} -\ifcurrentlanguage{french}{\postcardlanguage{french}} -\ifcurrentlanguage{xxxx}{\postcardlanguage{xxxx}} -\newgame -\newif\iffinishgameone\finishgameonetrue -\newif\iffinishgametwo\finishgametwotrue -\savegameone -\savegametwo -% -% different cardmoves -% -\def\acceptmoveone#1 #2 #3 #4 { -\global\setbox\acceptonebox= \vbox{\unvbox\acceptonebox -\vskip 2pt\cardtabular[#1,#2,#3,#4]}} -% -\def\acceptmovetwo#1 #2 #3 #4 { -\global\setbox\accepttwobox= \vbox{\unvbox\accepttwobox -\vskip 2pt\cardtabular[#1,#2,#3,#4]}} -% -\def\ifmoveone#1 #2 #3 #4 { -\movetabular[\ ,\ ,#1,#2,#3,#4,\ ,\ ,\ ] -\global\setbox\moveonebox= \vbox{\unvbox\moveonebox -\vskip 1.5pt\cardtabular[\nameif #1,#2,#3,#4]}} -% -\def\ifmovetwo#1 #2 #3 #4 { -\movetabular[\ ,\ ,#1,#2,#3,#4,\ ,\ ,\ ] -\global\setbox\movetwobox= \vbox{\unvbox\movetwobox -\vskip 1.5pt\cardtabular[\nameif #1,#2,#3,#4]}} -% -\def\moveone[#1][#2][#3][#4]{% -\global\setbox\moveonebox=\vbox{\cardtabular[#1,#2,#3,#4 ]}} -% -\def\movetwo[#1][#2][#3][#4]{% -\global\setbox\movetwobox=\vbox{\cardtabular[#1,#2,#3,#4 ]}} -% -% -%---\postmove and \postply same as \move and \ply in CHESS.STY- -%---but with calculation of consider- and departuretime ------- -% -\def\movetabular[#1,#2,#3,#4,#5,#6,#7,#8,#9]{\par - \hbox{\strut\hskip 1mm - \hbox to 15mm{\hfill #1\hfill} - \hbox to 15mm{\hfill #2\hfill} - \hbox to 8mm{\hfill #3} - \hbox to 24mm{\hfill #4\hfill} - \hbox to 8mm{\hfill #5} - \hbox to 24mm{\hfill #6\hfill} - \hbox to 15mm{\hfill #7\hfill} - \hbox to 15mm{\hfill #8\hfill} - \hbox to 8mm{\hfill #9}}\par} -% -\newcount\considerwhite -\newcount\considersumwhite -\newcount\considerblack -\newcount\considersumblack -\newcount\movecountwhite -\newcount\movecountblack - -\newbox\arrivalwhite -\newbox\leavingwhite -\newbox\arrivalblack -\newbox\leavingblack - -\newbox\plywhite -\newbox\plyblack - -\def\postmove #1 #2 #3 #4 #5 #6 {\frenchspacing -\advance\movecount by 1 -% -\considerwhite=#2 -\advance\considersumwhite by #2 -\@departure#1 #2 {} -\setbox\arrivalwhite=\copy\arrival -\setbox\leavingwhite=\copy\leaving -\setbox\plywhite=\hbox{\@ply#3 } -% -\considerblack=#6 -\advance\considersumblack by #6 -\@departure#5 #6 {} -\setbox\arrivalblack=\copy\arrival -\setbox\leavingblack=\copy\leaving -\setbox\plyblack=\hbox{\@ply#4 } -% -% Typesetting -% -\movetabular[\copy\arrivalwhite,\copy\leavingwhite, - \the\considersumwhite,\copy\plywhite, - \the\movecount.,\copy\plyblack,\copy\arrivalblack, - \copy\leavingblack,\the\considersumblack] -%Holiday -\global\advance\considerwhite by -\hw -\global\advance\considerblack by -\hb -\global\hw=0 -\global\hb=0 -% -\message{\the\movecount }} -% -% -\def\postply#1 #2 #3 {\frenchspacing - \ifWhite\advance\movecount by 1 -\considerwhite=#2 - \advance\considersumwhite by #2 - \else -\considerblack=#2 - \advance\considersumblack by #2 - \fi -\@departure#1 #2 {} -\ifWhite -\setbox\arrivalwhite=\copy\arrival -\setbox\leavingwhite=\copy\leaving -\setbox\plywhite=\hbox{\@ply#3 } -\movetabular[\copy\arrivalwhite,\copy\leavingwhite, - \the\considersumwhite,\copy\plywhite, - \the\movecount.,\ ,\ ,\ ,\ ] -\else -\setbox\arrivalblack=\copy\arrival -\setbox\leavingblack=\copy\leaving -\setbox\plyblack=\hbox{\@ply#3 } -\movetabular[\ ,\ ,\ ,...,\the\movecount., -\copy\plyblack,\copy\arrivalblack, -\copy\leavingblack,\the\considersumblack] -\fi -%Holiday -\global\advance\considerwhite by -\hw -\global\advance\considerblack by -\hb -\global\hw=0 -\global\hb=0 -% -\message{(\the\movecount )} - \par}% -% -%------------- Game 1 -------------------------------- -% -\newenvironment{gameone}{% -\tabularheader - \newgame -\considersumwhite=0 -\considersumblack=0 -\global\finishgameonefalse -% -\typeout{Game 1} -\message{Move : }}{% -\savegameone -% -\ifWhite -% -\moveone[\the\movecount][\copy\plywhite][\the\movecount][\copy\plyblack] -\yourdate[\copy\leavingwhite][\the\considerwhite][\the\considersumwhite] -\mydate[\copy\arrivalblack][\copy\leavingblack][\the\considerblack][\the\considersumblack] -\else -\movecountblack=\movecount -\advance\movecountblack by -1 -% First ply for white ? -\ifnum\movecountblack=0 -\moveone[\,][\copy\plyblack][\the\movecount][\copy\plywhite] -\setbox\arrivalwhite=\hbox{} %delete arrival -\else -\moveone[\the\movecountblack][\copy\plyblack][\the\movecount][\copy\plywhite] -\fi -\mydate[\copy\arrivalwhite][\copy\leavingwhite][\the\considerwhite][\the\considersumwhite] -\yourdate[\copy\leavingblack][\the\considerblack][\the\considersumblack] -\fi}% - -\def\finishgameone{ - \newgame -\savegameone -\global\finishgameonetrue} -%------------------ Game 2 ------------------------------------- -% -\newenvironment{gametwo}{% -\tabularheader - \newgame -\considersumwhite=0 -\considersumblack=0 -\global\finishgametwofalse -% -\typeout{Game 2} -\message{Move : }}{% end of begin gametwo -\savegametwo -% -\ifWhite -\movetwo[\the\movecount][\copy\plywhite][\the\movecount][\copy\plyblack] -\iffinishgameone -\yourdate[\copy\leavingwhite][\the\considerwhite][\the\considersumwhite] -\mydate[\copy\arrivalblack][\copy\leavingblack][\the\considerblack][\the\considersumblack] -\fi -\else -\movecountblack=\movecount -\advance\movecountblack by -1 -\ifnum\movecountblack=0 -\movetwo[\,][\copy\plyblack][\the\movecount][\copy\plywhite] -\setbox\arrivalwhite=\hbox{} %delete arrival -\else -\movetwo[\the\movecountblack][\copy\plyblack][\the\movecount][\copy\plywhite] -\fi -\iffinishgameone -\yourdate[\copy\leavingblack][\the\considerblack][\the\considersumblack] -\mydate[\copy\arrivalwhite][\copy\leavingwhite][\the\considerwhite][\the\considersumwhite]\fi -\fi}% -% -\def\finishgametwo{ - \newgame -\savegametwo -\global\finishgametwotrue} -%----------------- Holiday -------------------------------- -\newcount\hw \hw=0 -\newcount\hb \hb=0 -\gdef\holidaywhite#1 {\global\hw=#1 \global\advance\considersumwhite by-\hw} -\gdef\holidayblack#1 {\global\hb=#1 \global\advance\considersumblack by-\hb} -% -%-----------------Create the postcard---------------------- -% -\def\sender#1{\gdef\sender{#1}} -\def\receiver#1{\gdef\receiver{#1}} -\def\cardmessage#1{\gdef\cardmessage{#1}} -% -\gdef\postcard{\@ifnextchar [{\@ipostcard}{\@ipostcard[e]}} -\long\def\@ipostcard[#1](#2,#3){% -\vbox{\vskip #3\fboxsep 0pt\rlap{\kern#2 -\if #1f \fboxrule0.5pt \else \fboxrule0pt \fi -\fbox{\vbox to 97mm{\font\Chess=chess15 -\restoregameone -\vskip 2mm -\hbox to 69mm{\hskip 10mm\showboardwithnotation\hss}\vskip 2mm -\iffinishgameone \else -\hbox to 69mm{\hss\copy\acceptonebox\hss} -\hbox to 69mm{\hss\copy\moveonebox\hss} -\fi -\vss -\hbox to 69mm{\hskip 10mm\copy\mydatebox\hss} -\vskip 4mm} -% -\vbox to 97mm{\font\Chess=chess15 -\restoregametwo -\vskip 2mm -\hbox to 69mm{\hskip 10mm\showboardwithnotation\hss}\vskip 2mm -\iffinishgametwo \else -\hbox to 69mm{\hss\copy\accepttwobox\hss} -\hbox to 69mm{\hss\copy\movetwobox\hss} -\fi -\vss -\hbox to 69mm{\hskip 10mm\copy\yourdatebox\hss} -\vskip 2mm -\hbox{\salutations\hss} -\vskip 2mm -}}}}} -% -\gdef\postcardaddress{ -\@ifnextchar [{\@ipostcardaddress}{\@ipostcardaddress[ee]}} -\long\def\@ipostcardaddress[#1#2](#3,#4){% -\vbox{\vskip #4 -\fboxsep 4mm\rlap{\kern#3\hbox{ -\if #1f \fboxrule0.5pt \else -\if #2f \fboxrule0.5pt \else -\fboxrule0pt \fi\fi -\fbox{\vbox to 89mm{\hsize 60mm -\sender\\\vss -\cardmessage\vss\vss} -\hskip 4.5mm -\if #1t \vrule \else \if #2t \vrule\fi\fi -\hskip 5.5mm -\vbox to 89mm{\hsize 60mm\fboxrule0.5pt -\hskip 35mm\fbox{\rule{0cm}{16mm}\hskip 12mm}\\[8mm] -\if #1t {\xiipt \bf \postcardname} \else -\if #2t {\xiipt \bf \postcardname} \fi\fi -\vss\vss\vss -\receiver -\vss}}}}}} -% -%-----------------Calculation of departure date------------ -% -% Call \departure day.month.year time ==> in box \arrival -% result : in box \leaving -\newbox\arrival -\newbox\leaving -% -\newcount\posty -\newcount\postm -\newcount\postd -\newcount\posttemp -\newcount\postp -\newcount\posts -% date time -\gdef\@departure#1.#2.#3 #4#5{% -\posty=#3\relax\postm=#2\relax\postd=#1\relax\postp=#4#5\relax -% -% It works only up to 2099 but I think it doesn't matter -% -\advance\posty by -1900 -% -\posts=\posty -\ifnum\posts>99\advance\posts by -100 \fi -\setbox\arrival=\hbox{\the\postd .\the\postm .\the\posts } -% -\ifnum\postm<3\advance\postm12\advance\posty by -1\else \fi -% -\posts=\posty -\multiply\posts36525\relax -\divide\posts100\relax -% -\posttemp=\postm -\advance\posttemp1 -\multiply\posttemp306\relax -\divide\posttemp10\relax -\advance\posts\posttemp -\advance\posts by -122 -\advance\posts\postd -% -% Advance daycount by considertime -% -\advance\posts\postp -% -% year -% -\posty=\posts -\multiply\posty by 100 -\divide\posty36525 -\posttemp=\posty -% -\multiply\posttemp36525 -\divide\posttemp100\relax -\advance\posts by -\posttemp -% -% month -\advance\posts by 122 -\postm=\posts -\multiply\postm10\relax -\divide\postm306\relax -\advance\postm by -1 -% day -\posttemp=\postm -\advance\posttemp by 1 -\multiply\posttemp306\relax -\divide\posttemp10\relax -\advance\posts by -\posttemp -\postd=\posts -% -% I think there is a little mistake in my formular -% Correction at leapyear : 29.2 instead of 31.2 -% -\ifnum\postm=2 \ifnum\postd=31 \advance\postd by -2\fi\fi -% -\ifnum\postm>12\advance\postm by -12 \advance\posty by 1\else \fi -\ifnum\posty>99\advance\posty by -100 \fi -% -% Other faults 00.04 instead of 31.03 -% Other faults 00.09 instead of 31.08 -% -\ifnum\postm=4 \ifnum\postd=0 \postd=31 \postm=3 \fi\fi -\ifnum\postm=9 \ifnum\postd=0 \postd=31 \postm=8 \fi\fi -% -\setbox\leaving=\hbox{\the\postd .\the\postm .\the\posty } -} - -\def\departure#1.#2.#3 #4{% day, month, year , considertime -\@departure} -% |