summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
Diffstat (limited to 'Master')
-rw-r--r--Master/texmf-dist/tex/generic/genmisc/anti.tex19
-rw-r--r--Master/texmf-dist/tex/generic/genmisc/apldef.tex106
-rw-r--r--Master/texmf-dist/tex/generic/genmisc/arabic.tex55
-rw-r--r--Master/texmf-dist/tex/generic/genmisc/backgrnd.tex319
-rw-r--r--Master/texmf-dist/tex/generic/genmisc/balancedquotes.sty418
-rw-r--r--Master/texmf-dist/tex/generic/genmisc/chessmin.tex171
6 files changed, 0 insertions, 1088 deletions
diff --git a/Master/texmf-dist/tex/generic/genmisc/anti.tex b/Master/texmf-dist/tex/generic/genmisc/anti.tex
deleted file mode 100644
index 52bf0035494..00000000000
--- a/Master/texmf-dist/tex/generic/genmisc/anti.tex
+++ /dev/null
@@ -1,19 +0,0 @@
-
-%%%%%%%%%%%%%%%%%%%%%%%%% CUT HERE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% \anti -- Definition.
-% Produce a superscripted antiparticle: #1 with an overbar and a super-
-% script #2. Looks better than \overline{{#1}^{#2}} (bar does not extend over
-% superscript) or {\overline {#1}}^{#2} (superscript does not stick up above
-% bar; in fact, superscript is at same height as for the charge conjugate,
-% {#1}^{#2}). If you want subscripts too, you'll have to modify
-% this definition to take a third argument. Math mode is assumed.
-% Macro by Rich Holmes (rich@suhep.bitnet), 1/88
-%
-\def\anti#1#2{\vbox{\ialign{##\crcr
- \hrulefill$\smash{\phantom{\scriptstyle#2}}$\crcr % the right length bar
- \noalign{\kern-1pt\nointerlineskip\vskip 0.25ex} % the right spacing
- $\hfil{#1}^{#2}\hfil$\crcr}}} % the right text
-%%%%%%%%%%%%%%%%%%%%%%%% CUT HERE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\def\Kzerobar{\anti{K}{0}}
-\def\Dstarbar{\anti{D}{*}} % et cetera
-%%%%%%%%%%%%%%%%%%%%%%%% CUT HERE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
diff --git a/Master/texmf-dist/tex/generic/genmisc/apldef.tex b/Master/texmf-dist/tex/generic/genmisc/apldef.tex
deleted file mode 100644
index 66451a7dbce..00000000000
--- a/Master/texmf-dist/tex/generic/genmisc/apldef.tex
+++ /dev/null
@@ -1,106 +0,0 @@
-% apldef.tex
-%
-% Aarno Hohti/Okko Kanerva
-% University of Helsinki
-% Department of Mathematics
-% Hallituskatu 15
-% SF--00100 Helsinki
-% Finland
-%
-% Bitnet: HOHTI@FINFUN
-%
-%===============================================================
-% This file contains the definitions of the 2-letter control
-% sequences for using cmapl10.
-% cmapl10 was described in TUGboat 8 #3, November 1987.
-%===============================================================
-%
-\def\RO{{\apl\char'014}} % rho
-\def\IO{{\apl\char'015}} % iota
-\def\BX{\lower.1ex\hbox{\apl\char'001}} % quad box (window etc.)
-\def\CE{{\apl\char'035}} % ceiling
-\def\FL{{\apl\char'034}} % floor
-\def\DE{{\apl\char'031}} % decode
-\def\EN{{\apl\char'030}} % encode
-\def\DL{{\apl\char'002}} % del
-\def\LD{{\apl\char'003}} % delta
-\def\NT{{\apl\char'026}} % not
-\def\LO{{\apl\char'017}} % circle
-\def\GO{{\apl\char'036}} % arrow right
-\def\OR{{\apl\char'010}} % logical or
-\def\DM{{\apl\char'011}} % diamond
-\def\LE{{\apl\char'012}} % less than or equal
-\def\GE{{\apl\char'013}} % greater than or equal
-\def\AB{{\apl\char'174}} % stile
-\def\LB{{\apl\char'173}} % left brace
-\def\RB{{\apl\char'175}} % right brace
-\def\DA{{\apl\char'037}} % arrow down
-\def\UA{{\apl\char'136}} % arrow up
-\def\EP{{\apl\char'006}} % epsilon
-\def\NE{{\apl\char'027}} % not equal
-\def\BL{{\apl\char'134}} % backslash
-\def\RU{{\apl\char'022}} % right U
-\def\LU{{\apl\char'023}} % left U
-\def\DU{{\apl\char'021}} % down U
-\def\UU{{\apl\char'020}} % up U
-\def\LK{{\apl\char'033}} % left tack
-\def\RK{{\apl\char'032}} % right tack
-\def\US{{\apl\char'024}} % underscore
-\def\NG{{\apl\char'025}} % high minus
-\def\DD{{\apl\char'007}} % dieresis
-\def\AM{{\apl\char'004}} % alpha
-\def\OM{{\apl\char'005}} % omega
-\def\SO{\raise.3ex\hbox{{\apl\char'016}}} % small circle
-%
-% This macro is used for overstriking two characters
-\newskip\charwidth
-\def\overstrike#1#2{\setbox1=\hbox{#1}\charwidth=\wd1
- #1\hskip-\charwidth#2}
-%
-\def\TR{\overstrike{\LO}{\BL}} % transpose
-\def\RV{\overstrike{\LO}{\AB}} % reverse
-\def\CR{\overstrike{\LO}{-}} % column reverse
-\def\GD{\overstrike{\DL}{\AB}} % grade down
-\def\GU{\overstrike{\LD}{\AB}} % grade up
-\def\FM{\overstrike{\raise.1ex\hbox{{\apl\char'016}}}{\EN}} % format
-\def\XQ{\overstrike{\raise.1ex\hbox{{\apl\char'016}}}{\DE}} % execute
-\def\SS{\overstrike{\RU}{\US}} % subset
-\def\CO{\overstrike{\LU}{\US}} % contains
-\def\CB{\overstrike{\BL}{-}} % column backslash
-\def\CS{\overstrike{/}{-}} % column slash
-\def\IB{\overstrike{\EN}{\DE}} % I-beam
-\def\DQ{\overstrike{{\apl\char'045}}{\BX}} % divide quad
-\def\QQ{\overstrike{{\apl '}}{\BX}} % quote quad
-\def\PD{\overstrike{\DL}{\NT}} % protected del
-\def\NR{\overstrike{\OR}{\NT}} % nor
-\def\NN{\overstrike{{\apl\char'046}}{\NT}} % nand
-\def\LG{\overstrike{{\apl *}}{\LO}} % logarithm
-% underscored letters
-\def\ZA{\overstrike{{\apl A}}{\US}}
-\def\ZB{\overstrike{{\apl B}}{\US}}
-\def\ZC{\overstrike{{\apl C}}{\US}}
-\def\ZD{\overstrike{{\apl D}}{\US}}
-\def\ZE{\overstrike{{\apl E}}{\US}}
-\def\ZF{\overstrike{{\apl F}}{\US}}
-\def\ZG{\overstrike{{\apl G}}{\US}}
-\def\ZH{\overstrike{{\apl H}}{\US}}
-\def\ZI{\overstrike{{\apl I}}{\US}}
-\def\ZJ{\overstrike{{\apl J}}{\US}}
-\def\ZK{\overstrike{{\apl K}}{\US}}
-\def\ZL{\overstrike{{\apl L}}{\US}}
-\def\ZM{\overstrike{{\apl M}}{\US}}
-\def\ZN{\overstrike{{\apl N}}{\US}}
-\def\ZO{\overstrike{{\apl O}}{\US}}
-\def\ZP{\overstrike{{\apl P}}{\US}}
-\def\ZQ{\overstrike{{\apl Q}}{\US}}
-\def\ZR{\overstrike{{\apl R}}{\US}}
-\def\ZS{\overstrike{{\apl S}}{\US}}
-\def\ZT{\overstrike{{\apl T}}{\US}}
-\def\ZU{\overstrike{{\apl U}}{\US}}
-\def\ZV{\overstrike{{\apl V}}{\US}}
-\def\ZX{\overstrike{{\apl X}}{\US}}
-\def\ZY{\overstrike{{\apl Y}}{\US}}
-\def\ZW{\overstrike{{\apl W}}{\US}}
-\def\ZZ{\overstrike{{\apl Z}}{\US}}
-
-\endinput
diff --git a/Master/texmf-dist/tex/generic/genmisc/arabic.tex b/Master/texmf-dist/tex/generic/genmisc/arabic.tex
deleted file mode 100644
index acba65e59f0..00000000000
--- a/Master/texmf-dist/tex/generic/genmisc/arabic.tex
+++ /dev/null
@@ -1,55 +0,0 @@
-%--------------------------------------------
-% Ole Michael Selberg, October 5, 1995
-% TeX macros to make a Roman number Arabic
-%
-% Syntax: \arabicnumeral <Roman number >
-%--------------------------------------------
-\catcode`@=11
-\newcount\r@mancount \newcount\current \newcount\previous
-\def\@valueofcurrent{%
- \ifx\next i\global\current=1 \else
- \ifx\next v\global\current=5 \else
- \ifx\next x\global\current=10 \else
- \ifx\next l\global\current=50 \else
- \ifx\next c\global\current=100 \else
- \ifx\next d\global\current=500 \else
- \ifx\next m\global\current=1000 \else
- \global\r@mancount=-100000
- \immediate\write16{Line \the\inputlineno: non-Roman digit!}
- \fi\fi\fi\fi\fi\fi\fi}
-\def\stop{\stop}
-\def\arabicnumeral #1 {\r@mancount=0 \current=0 \previous=10000
- \fr@mroman#1\stop}
-\def\fr@mroman {\afterassignment\@testchar\let\next}
-\def\@testchar{%
- \ifx\next\stop
- \ifnum\r@mancount<0 (Wrong Roman numeral: ???)
- \else
- \the\r@mancount
- \fi
- \let\next\relax
- \else \@valueofcurrent
- \advance\r@mancount by\current
- \ifnum\previous<\current
- \multiply\previous by2
- \advance\r@mancount by -\previous
- \fi
- \let\next\fr@mroman
- \fi
- \previous=\current
- \next}
-\catcode`@=12
-\endinput
-
-
----------------------------------------------------------------------------
-Ole Michael Selberg,
-Institutt for oesteuropeiske og orientalske studier
-Universitetet i Oslo
-Pb. 1030 Blindern
-N-0315 Oslo
-
-Phone: (47) 22 85 67 94
-Fax: (47) 22 85 41 40
-
-
diff --git a/Master/texmf-dist/tex/generic/genmisc/backgrnd.tex b/Master/texmf-dist/tex/generic/genmisc/backgrnd.tex
deleted file mode 100644
index 165ee690947..00000000000
--- a/Master/texmf-dist/tex/generic/genmisc/backgrnd.tex
+++ /dev/null
@@ -1,319 +0,0 @@
-%%% backgrnd.sty = background.sty
-%%% Experimental version 24 march 1996
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%
-%%% This macro file aims at implementing marking of text,
-%%% either by a grey background or by a changeebar
-%%% using TeX's own resources only,
-%%% (i.e., without resorting to any pstricks).
-%%% Grey background uses a shade font defined using MetaFont
-%%% The macros seem to work satisfactory under plain TeX,
-%%% however, I have also tried (rudimentarily) to integrate them with
-%%% LaTeX, too. It seems to work with (simple) LaTeX 2.09, at least.
-%%%
-%%% commands :
-%%% \RuleOn and \RuleOff : changebar
-%%% \RuleON : backs up to mark current line, too
-%%% \RuleStyle { ( dimension ) % width of rule
-%%% % rule offset on pages
-%%% [ # dimension | % with even pagenumbers
-%%% # dimension ] } % with odd pagenumbers
-%%% % # is either < : left margin
-%%% % or > : right margin
-%%% e.g.: default values are set by
-%%% \RuleStyle { (2pt)[<18pt|>18pt] }
-%%%
-%%%
-%%% \ShadeON ( backs up to mark current line, too ) and
-%%% \ShadeOn and \ShadeOff : grey background, requires shade.sty
-%%% therefore, by default,
- \let\ifUseGrey\iffalse % grey background will not be installed
-%%% - and will be replaced by rules
-%%% if grey background is required then
-%%% remove comment signs %%% from next line :
-%%% \let\ifUseGrey\iftrue
-%%%
-%%% (At present) it is not possible to use both commands
-%%% in the same document !
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%% Peter Schmitt %%%
-%%% Institut f\"ur Mathematik, Universit\"at Wien %%%
-%%% Strudlhofgasse 4, A-1090 Wien, Austria %%%
-%%% email: schmitt@awirap.bitnet %%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\catcode`\: 11 % make internal macros private
-\countdef\int: 255 % scratch registers
-\dimendef\dim: 0
-\skipdef\skip: 0
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%% commands and options %%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\def \RuleOn {\bg:ini \bg:rule
- \RuleStyle { (2pt)[<18pt|>18pt] }
- \bg:commands \RuleOn \RuleON \RuleOff
- \RuleOn
- }
-\def \RuleStyle #1{\set:hsize #1(\bg:hsize)\\%
- \set:offsets #1[*|*]\iftrue]\iffalse\\%
- }
-
-\def \bg:rule {\leaders\vrule width\bg:hsize\vskip}
-\def \bg:empty {\vskip}
-\let \bg:offset \relax
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%% interface tools %%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\def\bg:commands #1#2#3{\def #1{\bg:option {\vbox{}\pos:on}}
- \def #2{\bg:option {\nobreak\vskip-\baselineskip
- \vbox{}\pos:on
- \nobreak\vskip\baselineskip }
- }
- \def #3{\bg:option {\vbox{}\pos:off}}
- }
-\def \bg:ini {\output{\bg:output} % should be followed by desired \bg:style
- \zero:pos
- \global\let \bg:skip \bg:empty
- \let \bg:style
- }
-\def\bg:option #1{\ifvmode #1\else \vadjust{#1}\fi }
-
-\def \set:hsize #1(#2)#3\\{\edef\bg:hsize{#2}}
-\def \set:offsets #1[#2#3|#4#5]#6]#7#8\\{#7
- \def\bg:shift{}
- \set:offset #2#3
- \set:offset #4#5
- \expandafter \set:shifts \bg:shift
- \fi }
-\def\set:offset #1#2 {\setbox0\hbox{\dim: #2\bg:offset\xdef\bg:offset{\the\dim:}}
- \dim:\bg:offset
- \expandafter\expandafter\expandafter
- \set:shift \csname bg:#1\endcsname
- }
-\def\set:shift #1#2{\dim: \bg:offset \advance\dim: #2%
- \edef\bg:shift {\bg:shift {#1\the\dim:}}
- }
-\expandafter\def \csname bg:<\endcsname {\moveleft \bg:hsize}
-\expandafter\def \csname bg:>\endcsname {\moveright \hsize}
-\def \set:shifts #1#2{\def\bg:shift{\ifodd\pageno #2\else #1\fi}}
-
-%%% not used :
-\def\bg:err #1{\errmessage {%
- Warning ! Background mode \noexpand#1 already active ! }
- }
-%%% saving position without eject yields not always correct result
-%%% \def\bg:on {\switch:to \bg:style } \def\bg:off {\switch:to \bg:empty }
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%% grey background %%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\ifUseGrey
-
-\def\ShadeOn {\bg:ini \bg:grey
- \let\bg:shift\relax
- \let\bg:hsize\hsize
- \setbox\grey:line
- \vbox{\shade{\line:{\vphantom{\grey:\char0}\hfil}}}
- \bg:commands \ShadeOn \ShadeON \ShadeOff
- \ShadeOn
- }
-\csname newbox\endcsname\grey:line % allow \newbox in conditional text
-\def\bg:grey {\leaders\copy\grey:line\vskip}
-\let\line:\line
-\input shade
-
-\else
- \def\ShadeOn{\RuleOn} \def\ShadeOff{\RuleOff} \def\ShadeON{\RuleON}
- \fi
-%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%% output routine %%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%
-
- \newbox \bg:page
- \newdimen \v:size
- \newskip \v:pos
- \newcount \true:penalty
- \chardef \the:page 255
-
-\def\option: #1{\advance\int: -1
- \edef#1{\penalty\the\int: }
- \expandafter\def\csname\the\int:\endcsname
- } \int: -12345
-\def\bg:output{\expandafter\ifx\csname\the\outputpenalty\endcsname\relax
- \global\true:penalty\outputpenalty
- \expandafter\bg:pagecontents
- \else \expandafter\expandafter
- \csname\the\outputpenalty\endcsname
- \fi }
-\option: \pos:on {\bg:switch \bg:style }
-\option: \pos:off {\bg:switch \bg:empty }
-\option: \bg:top {\save:pos \add:bg\bg:empty\v:skip{}
- \repeat:page \unvbox\the:page }
-\option: \bg:bot {\save:pos \repeat:page \unvbox\the:page }
-\option: \fg:end {\save:pos \add:bg\bg:empty{}\v:skip \bg:makepage }
-
-\def \bg:switch #1{\setbox\the:page
- \vbox{\unvbox\the:page \setbox0\lastbox }
- \ifdim \pagetotal=\topskip
- \global\let \bg:skip #1
- \unvbox\the:page
- \else \switch:to #1
- \repeat:page\repeat:inserts \unvbox\the:page
- \fi
- }
-\def\switch:to #1{\save:pos
- \add:bg \bg:skip{}\v:skip
- \global\let \bg:skip #1}
-\def\bg:pagecontents {\switch:to \bg:skip
- \setbox\the:page \vbox
- {\vbox{}\bg:top \unvbox\the:page \bg:bot }
- \zero:pos \repeat:page
- \pagecontents \fg:end
- }
-\def\bg:makepage {\global\v:size\vsize \advance\v:size \dp\the:page
- \def\pagecontents{%
- \bg:shift
- \vbox to0pt{\vbox to\v:size{\unvbox\bg:page}\vss}
- \unvbox\the:page }
- \outputpenalty\true:penalty
- \plainoutput
- \zero:pos \reset:inserts
- }
-
-%%%%%%%%%%%%%%%%%
-%%% tools %%%
-%%%%%%%%%%%%%%%%%
-
-\def\repeat:page {\vbox{}\nobreak\kern-\topskip }
-\def\add:bg #1#2#3{\let\bg:vskip #1
- \global\setbox\bg:page \vbox{#2\unvbox\bg:page#3}
- }
-
-\newdimen \v:fil
-\newdimen \v:fill
-\newdimen \v:filll
-\def\zero:pos {\global \v:pos 0pt
- \global \v:fil 0pt
- \global \v:fill 0pt
- \global \v:filll 0pt
- }
-\def\save:pos {\skip: -\v:pos % save -last:pos
- \global \v:pos \pagetotal
- \global\advance \v:pos \pagedepth
- \ifnum \pagedepth=0 \advance\v:pos \dp\the:page \fi
- \global\advance \v:pos 0ptplus\pagestretch minus\pageshrink
- \save:skip
- }
-\def\save:pos {\skip: -\v:pos % save -last:pos
- \global \v:pos \pagetotal
- \global\advance \v:pos \pagedepth
- \ifnum \pagedepth=0 \advance\v:pos \dp\the:page \fi
- \global\advance \v:pos 0ptplus\pagestretch minus\pageshrink
- \save:skip
- \global\skip\ins:size \vsize
- \global\advance\skip\ins:size -\pagegoal
- \global\advance\skip\ins:size -\ins:skip
- }
-\def\save:skip {\advance\skip:\v:pos % v:pos - last:pos
- \let\bg:vskip\relax
- \edef\v:skip{\bg:vskip\the\skip:}
- \fil:skip l \fil:skip ll \fil:skip lll
- }
-\def\fil:skip #1 {\set:fil {\csname v:fi#1\endcsname}
- {\csname pagefi#1stretch\endcsname}
- \edef\v:skip{\v:skip \bg:vskip0ptplus\the:pt \dim: fi#1 }
- }
-\def\set:fil #1#2{\dim: -#1
- \advance \dim: #2
- \global #1 #2
- }
-\def\the:pt {\expandafter\PT:\the}
- { \catcode`p 12 \catcode`t 12
-\gdef\PT: #1pt{#1} }% \catcode`p 11 \catcode`t 11
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%% insert handling %%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\newcount\ins:
-\newinsert\ins:size
-\newdimen\ins:skip
-
-\let\do:insert \insert
-\def\inserts:{}
-\def\insert {\afterassignment\adjust:pos\ins:}
-\def\adjust:pos {\csname ins:\the\ins:\endcsname\csname iftrue\endcsname
- \add:plus \ins: \add:minus \ins:
- \advance\ins:skip\skip\ins:
- \let\temp:\relax
- \edef\inserts:{\inserts: \temp:{\the\ins:}}
- \fi
- \global\expandafter\let\csname ins:\the\ins:\endcsname \iffalse
- \do:insert\ins: }
-\def\repeat:inserts{\def\temp:##1{\do:insert##1{}}\inserts: }
-\def\reset:inserts{%
- \def\temp: ##1{\global\expandafter\let\csname ins:##1\endcsname \relax }
- \inserts: \gdef\inserts:{}\global\ins:skip 0pt }
-
-%%% tools for insert handling %%%
-
- \catcode `L12 \catcode `N12 \catcode `S12 \catcode `U12 \lowercase{
-\def\plus: #1LUS #2 #3\\{#2}
-\def\Plus: #1{\expandafter\plus:\the#1 LUS 0.0pt \\}
-\def\minus: #1NUS #2 #3\\{#2}
-\def\Minus: #1{\expandafter\minus:\the#1 NUS 0.0pt \\}
- } \catcode `L11 \catcode `N11 \catcode `S11 \catcode `U11
-
-\def\set:int {\afterassignment\set:frac\int: }
-\def\set:frac #1{\afterassignment\csname\count0 }
-\def\adv:pos #1{\global\advance#1\the\int:.\the\count0 pt }
-\def \pt:p {\adv:pos {\v:pos 0ptplus}}
-\def \pt:m {\adv:pos {\v:pos 0ptminus}}
-\def \fil:p {\adv:pos \v:fil }
-\def \fill:p {\adv:pos \v:fill }
-\def\filll:p {\adv:pos \v:filll }
-
-\def\add:plus #1{{\expandafter\set:int \Plus: {\skip#1}:p\endcsname }}
-\def\add:minus #1{{\expandafter\set:int \Minus:{\skip#1}:m\endcsname }}
-
-%%%%%%%%%%%%%%%%%%%%%%%%
-%%% LaTeX extras %%%
-%%%%%%%%%%%%%%%%%%%%%%%%
-
-\catcode`@ 11
-\ifx \@outputbox\undefined \endinput \catcode`@12 \catcode`: 12 \fi
-
-\newtoks\latex:output \latex:output \output
-\newdimen\v:ht % possibly \textheight could be used
-
-\def\bg:@makecol {\switch:to \bg:skip
- \setbox\the:page \vbox
- {\vbox{}\bg:top \unvbox\the:page \bg:bot }
- \@makecol
- \global\v:ht\ht\@outputbox \global\v:size\v:ht
- \global\advance\v:size\dp\@outputbox
- \zero:pos \outputpenalty\true:penalty
- \repeat:page \unvbox\@outputbox \fg:end
- }
-\def\bg:@makepage {\setbox\@outputbox \vbox to \v:ht {%
- \bg:shift
- \vbox to0pt{\vbox to\v:size{\unvbox\bg:page}\vss}
- \unvbox\the:page }
- \outputpenalty\true:penalty
- \let\@makecol\relax \the\latex:output
- \zero:pos \reset:inserts
- }
-\let \bg:makepage \bg:@makepage
-\let \bg:pagecontents \bg:@makecol
-\def \line: {\hbox to\textwidth}
-\let \pageno \c@page
-
-\catcode`@ 12 \catcode`: 12
-
-\endinput %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%% end : background.sty [ 0.3 ] %%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
diff --git a/Master/texmf-dist/tex/generic/genmisc/balancedquotes.sty b/Master/texmf-dist/tex/generic/genmisc/balancedquotes.sty
deleted file mode 100644
index f280fbeba8c..00000000000
--- a/Master/texmf-dist/tex/generic/genmisc/balancedquotes.sty
+++ /dev/null
@@ -1,418 +0,0 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% file name: balancedquotes.sty (for plain TeX and LaTeX)
-%% Ole Michael Selberg, 25.8.1994
-%% E-mail: O.M.Selberg@easteur-orient.uio.no
-%%-------------------------------------------------------------------
-%% Description:
-%% This file contains macros that simplify the management of quotes.
-%% The input:
-%% "...*....*..."
-%% will be typeset as:
-%% <<...<...>...>> (default)
-%%
-%% (or as:
-%% ,,...,...'...''
-%% etc., depending on your choices.).
-%%
-%% TeX keeps track of whether full quotes (written as ") and half
-%% quotes (written as *) are balanced, When a quote has been omitted,
-%% as in:
-%% --- text "text in quotes more text "text in quotes" ---
-%% an error message is written to the screen, and a mark is put in
-%% the margin to the left of the line in which a final full or half
-%% quote followed by a letter was discovered.
-%%
-%% The macros can be used both with plain TeX and LaTeX. You can test
-%% them and learn how to use the commands by running the test file
-%% which is included in this file, after \endinput.
-%% Just copy all the stuff after \endinput to a new file,
-%% which you should name balancedquotestest.tex, and then delete it
-%% from this file.
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\catcode`\@=11 \catcode`\_=11 \newif\ifapostrophe \newlinechar=`^^J
-%
-\def\definequotes #1#2#3#4{%
- \def\bquote_char{#1}\def\equote_char{#2}%
- \def\bhquote_char{#3}\def\ehquote_char{#4}}
-%
-\def\setquotes{\futurelet\test_token\CheckForOptArg}
-\def\CheckForOptArg{\ifx\test_token[
- \let\next\OptArgPresent
- \else \let\next\OptArgAbsent \fi \next}
-\def\OptArgPresent[#1]#2{\csname #2#1q\endcsname}
-\def\OptArgAbsent #1{\csname #1q\endcsname}
- %---------------------------------------
- % Norwegian:
- %
-\def\Nq{% Output: <<...<...>...>>
- \def\bquote_char {\char"13 }\def\equote_char {\char"14 }%
- \def\bhquote_char {\char"0E}\def\ehquote_char {\char"0F}%
- }
-\def\NCq{% Output: ,,...,...'...''
- \def\bquote_char {\char"12 \apostrophe_check}%
- \def\equote_char {\char"11 }%
- \def\bhquote_char {\char"0D}\def\ehquote_char {\char"27}%
- \apostrophetrue}
-\let\NGq=\Nq \let\norwegianquotes=\Nq \let\norwegianguillemetsq=\Nq
-\let\norwegiancommasq=\NCq
- %-----------------------------------------
- % German:
- %
-\def\DGq{% Output: >>...>...<...<<
- \def\bquote_char {\char"14 }\def\equote_char {\char"13 }%
- \def\bhquote_char {\char"0F}\def\ehquote_char {\char"0E}%
- }
-\def\DCq{% Output: ,,...,...`...``
- \def\bquote_char{\char"12 \apostrophe_check}%
- \def\equote_char {\char"10 }%
- \def\bhquote_char {\char"0D}\def\ehquote_char {\char"60}%
- \apostrophetrue}
-\let\Dq=\DCq \let\germanquotes=\DCq \let\germanguillemetsq=\DGq
-\let\germancommasq=\DCq
- %------------------------------------------
- % French:
- %
-\def\Fq{% Output: <<...<<...>>...>>
- \def\bquote_char {\char"13\ }%
- \def\equote_char {\thinspace\char"14 }%
- \def\bhquote_char {\char"13\thinspace }%
- \def\ehquote_char { \char"14 }%
- }
-\def\FCq{\message{French doesn't use comma quotes!
- I shall choose guillemets instead.}}
-\let\frenchquotes=\Fq \let\FGq=\Fq \let\frenchguillemetsq=\Fq
-\let\frenchcommasq=\FCq
- %------------------------------------------
- % English:
- %
-\def\GBq{% Output: `...``...''...'
- \def\bquote_char {\char"60 }\def\equote_char {\char"27 }%
- \def\bhquote_char {\char"10 }\def\ehquote_char {\char"11 }%
- }
-\def\USq{% Output: ``...`...'...''
- \def\bquote_char {\char"10 }\def\equote_char {\char"11 }%
- \def\bhquote_char {\char"60 }\def\ehquote_char {\char"27 }%
- }
-\def\EQM{\message{English doesn't use guillmets!
- I shall choose normal English quotes instead.}}
-\let\USquotes=\USq \let\GBquotes=\GBq \let\USCq=\USq \let\GBCq=\GBq
-\def\GBguillemetsq{\EQM\GBq} \def\USguillemetsq{\EQM\USq}
-\let\englishquotes=\USq \let\englishcommasq=\USq \let\Eq=\USq \let\ECq=\USq
-\let\englishguillemetsq=\USguillemetsq
-%-------------------------------------------
-\def\bquote{\global\advance\quotecount by1 \bquote_char}%
-\def\equote{\penalty 10000 {\equote_char }\global\advance\quotecount by1 }%
-\def\bhquote{\bhquote_char \global\advance\hquotecount by1 }%
-\def\ehquote{\penalty 10000 \ehquote_char \global\advance\hquotecount by1 }%
-
-\newcount\quoteflag \newcount\quotecount
-\newcount\hquoteflag \newcount\hquotecount
-\def\hex{"} \let\star=*
-\catcode`\"=\active \catcode`\*=\active
-\def"{\begingroup\ifnum\quoteflag=0
- \aftergroup\bquote\global\quoteflag=1
- \else \equote\global\quoteflag=0
- \aftergroup\equote_check \fi \endgroup}
-\def*{\begingroup\ifmmode \else\ifnum\hquoteflag=0 \bhquote\global\hquoteflag=1
- \else \ehquote\global\hquoteflag=0
- \aftergroup\ehquote_check \fi \fi \endgroup}
-\def\equote_check{\futurelet\next\equote_test}
-\def\ehquote_check{\futurelet\next\ehquote_test}
-\def\equote_test{\ifcat\noexpand\next a%
- \immediate\write16{^^J--->> Final full quote followed by a
- letter!!}\equote_warning\fi}
-\def\ehquote_test{\ifcat\noexpand\next a%
- \immediate\write16{^^J---> Final half quote followed by a
- letter!!}\ehquote_warning\fi}
-\def\quotesnumbertest{\ifodd\quotecount\immediate\write16{!! Odd number
- of full quotes.}\fi
- \ifodd\hquotecount\immediate\write16{!! Odd number
- of half quotes.}\fi}
-\def\apostrophe_check{\futurelet\next\apostrophe_test}
-\def\apostrophe_test{\if\next j\thinspace\fi}
-
-\def\l_note{\strut\vadjust{\kern-\dp\strutbox
- \vtop to 0pt{%
- \vss\llap{{\box0}\
- \quad}}
- \dimen0=-\prevdepth\advance\dimen0by\dp\strutbox
- \penalty0\kern\dimen0
-}}
-\def\equote_warning{{\setbox0=\hbox{\equote_char\thinspace !\quad}\l_note}}
-\def\ehquote_warning{{\setbox0=\hbox{\ehquote_char\thinspace !\quad}\l_note}}
-%
-%\catcode`\@=12 \catcode`\_=8
-\Nq
-\endinput
-
-% Copy this to a new file:
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% file name: balancedquotestest.tex
-%% Ole Michael Selberg, 25.8.1994
-%% E-mail: O.M.Selberg@easteur-orient.uio.no
-%%-------------------------------------------------------------------
-%% Description:
-%% This file inputs the file balancedquotes.sty and tests
-%% the quote macros defined there.
-%% It works with both plain TeX and LaTeX.
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\newif\ifLaTeX
- % Is this LaTeX?
-\ifx\protect\undefined \else \LaTeXtrue \fi
- % We presuppose Cork-encoding:
-\def\"{\accent4}\def\\{$\backslash$}\def\<{$\lbrace$}
-\def\>{$\rbrace$}
-\overfullrule=0pt
-
-
-\ifLaTeX
- \documentstyle [balancedquotes] {article}
- \begin{document}
-\else \input balancedquotes.sty
-\fi
-
-\message{^^JType the name of a font with Cork encoding,
- ^^Je.g. dcr10:}
-\read16 to \dvifontname
-\font\dvifont=\dvifontname at 10pt
-\message{^^J}
-\dvifont
-
-\hsize=10cm
-\hoffset=2cm
-\parindent=0pt
-
-\hyphenation{Af-ten-pos-ten}
-\centerline{Test of {\tt balancedquotes.sty}\hfill
- Date:\enspace \the\month/\the\day/\the\year}
-
-\vglue 1cm
-%\Nq
-\definequotes{\char19}{\char20}{\char14}{\char15}
-
-\moveleft 10pt\vbox{\bf The command {\tt \\Nq} (\dvifont Norwegian: "...*...*..."):}
-\smallskip
-"Det er sant," sa han, "jeg har nettopp avbestilt *Aftenposten*!"
-
-"Har du det?" svarte hun forbauset. "Hvorfor spurte du ikke meg f{\o}rst?"
-
-\medskip
-{\leftskip20pt
-Equivalent commands:
-\smallskip
-\tt
-\\norwegianquotes ({\dvifont This is the default for Norwegian.})
-
-\\NGq
-
-\\setquotes \<norwegian\>
-
-\\setquotes \<N\>
-
-\\setquotes [guillemets]\<norwegian\>
-
-\\setquotes [G]\<N\>
-
-\\norwegianguillemetsq
-
-\\definequotes \<\\char19\>\<\\char20\>\<\\char14\>\<\\char15\>
-
-}
-
-\bigskip
-
-\setquotes [commas]{norwegian}
-
-
-\moveleft 10pt\vbox{\bf The command {\tt \\NCq} \dvifont (Norwegian: "...*...*..."):}
-\smallskip
-"Det er sant," sa han, "jeg har nettopp avbestilt *Aftenposten*!"
-
-"Har du det?" svarte hun forbauset. "Hvorfor spurte du ikke meg f{\o}rst?"
-\medskip
-
-{\leftskip20pt
-Equivalent commands:
-\tt
-\smallskip
-
-\\setquotes [commas]\<norwegian\>
-
-\\setquotes [C]\<N\>
-
-\\norwegiancommasq
-
-\\definequotes \<\\char18\>\<\\char17\>\<\\char13\>\<\\char39\>
-
-}
-\bigskip
-\Dq
-
-\moveleft 10pt\vbox{\bf The command {\tt \\Dq} \dvifont (German: "...*...*..."):}
-\smallskip
-Goethe schrieb: "Wielands *Oberon* wird als ein Meisterst\"uck angesehen."
-
-\medskip
-{\leftskip20pt
-Equivalent commands:
-\smallskip
-\tt
-
-\\germanquotes ({\dvifont This is the default for German})
-
-\\DCq
-
-\\setquotes [commas]\<german\>
-
-\\setquotes [C]\<D\>
-
-\\germancommasq
-
-\\definequotes \<\\char18\>\<\\char17\>\<\\char13\>\<\\char39\>
-
-}
-
-\bigskip
-\DGq
-
-\moveleft 10pt\vbox{\bf The command {\tt \\DGq} \dvifont (German: "...*...*..."):}
-\smallskip
-Goethe schrieb: "Wielands *Oberon* wird als ein Meisterst\"uck angesehen."
-
-\medskip
-{\leftskip20pt
-Equivalent commands:
-\smallskip
-\tt
-
-\\setquotes [guillemets]\<german\>
-
-\\setquotes [G]\<D\>
-
-\\germanguillmetsq
-
-\\definequotes \<\\char20\>\<\\char19\>\<\\char15\>\<\\char14\>
-
-}
-
-\ifLaTeX \else\filbreak\fi
-
-\USq
-
-\moveleft 10pt\vbox{\bf The command {\tt \\USq} \dvifont (US English: "...*...*..."):}
-\smallskip
-Goethe wrote: "Wieland's *Oberon* is considered a masterpiece."
-
-\medskip
-{\leftskip20pt
-Equivalent commands:
-\smallskip
-\tt
-
-\\setquotes \<US\>
-
-\\setquotes [commas]\<US\>
-
-\\setquotes [C]\<US\>
-
-\\UScommasq
-
-\\definequotes \<\\char16\>\<\\char17\>\<\\char96\>\<\\char39\>
-
-\\setquotes [guillmets]\<US\> {\dvifont etc.\ will generate an error message
-and call} \\USq
-
-}
-
-\bigskip
-\GBq
-
-\moveleft 10pt\vbox{\bf The command {\tt \\GBq} \dvifont (GB English: "...*...*..."):}
-\smallskip
-Goethe wrote: "Wieland's *Oberon* is considered a masterpiece."
-
-\medskip
-{\leftskip20pt
-Equivalent commands:
-\smallskip
-\tt
-
-\\setquotes \<GB\>
-
-\\setquotes [commas]\<GB\>
-
-\\setquotes [C]\<GB\>
-
-\\GBcommasq
-
-\\definequotes \<\\char96\>\<\\char39\>\<\\char16\>\<\\char17\>
-
-\\setquotes [guillmets]\<GB\> {\dvifont etc.\ will generate an error message
-and call} \\GBq
-
-}
-
-
-\bigskip
-\Fq
-
-\moveleft 10pt\vbox{\bf The command {\tt \\Fq} \dvifont (French: "...*...*..."):}
-\smallskip
-On dit couramment {\it nic nie wiem\/} "je ne sais rien".
-
-\medskip
-{\leftskip20pt
-Equivalent commands:
-\smallskip
-\tt
-
-\\frenchquotes {\dvifont This is the default.}
-\\setquotes \<GB\>
-
-\\setquotes [guillemets]\<F\>
-
-\\setquotes [G]\<F\>
-
-\\frenchguillemetsq
-
-\\definequotes \<\\char19\ \>\<\\ \\char20\>\<\\char19\ \>\<\\ \\char20\>
-
-\\setquotes [commas]\<french\> {\dvifont etc.\ will generate an error message
-and call} \\Fq
-
-}
-
-\bigskip
-
-\NCq
-
-\moveleft 10pt\vbox{\bf Test of error detection when quotes are unbalanced:}
-\smallskip
-"Det er sant," sa han, "jeg har nettopp avbestilt *Aftenposten*!"
-
-"Har du det? svarte hun forbauset. "Hvorfor spurte du ikke meg f{\o}rst?"
-
-
-\bigskip
-
-
-\moveleft 10pt\vbox{\bf Test of {\tt \\hex} og {\tt \\star}}
-\smallskip
-The command {\tt \\hex} is used instead of {\tt
-\\char\hex22} whenever {\tt \\char\hex22} does not denote
-a quote sign. For instance, we can write: {\tt
-\\char\hex41} in order to get an `A'. Here we
-test that the macro {\tt \\hex} works as it should: `{\tt
-\\char\\hex4F\\char\\hex4B}'
-is output as `\char\hex4F\char\hex4B'.
-
-\smallskip
-Instead of {\char \hex2A} we write {\tt \\star}.
-
-\def\slutt{\end{document}}
-{\ifLaTeX
- \aftergroup\slutt
-\fi}
-
-\bye
-
diff --git a/Master/texmf-dist/tex/generic/genmisc/chessmin.tex b/Master/texmf-dist/tex/generic/genmisc/chessmin.tex
deleted file mode 100644
index 49b03d31b42..00000000000
--- a/Master/texmf-dist/tex/generic/genmisc/chessmin.tex
+++ /dev/null
@@ -1,171 +0,0 @@
-% These are two TeX macros which may be useful for writing about
-% chess. \bore creates a chess diagram from Forsyth notation, with
-% Z used as a terminator. For example,
-%
-% $$\bore r1bqkbnr pppp1ppp 2n5 1B2p3 4P3 5N2 PPPP1PPP RNBQK2R Z$$
-%
-% shows the Ruy Lopez after white's third move.
-%
-% \VAR (number) (moves separated by spaces) Z may be used to write
-% a variation. The macro inserts the move numbers, starting with
-% (number). For example,
-%
-% Continuing from the diagram above, \VAR 3 \dots{} a6 Ba4 Nf6 O--O
-% Be7 Re1 b5 Bb3 O-O c3 d5 Z is the Marshall gambit.
-%
-% Note the \dots{} to indicate that Black made the first move.
-%
-% The diagrams created by \bore have pieces made up of a small number
-% of rectangles. Much nicer diagrams and more powerful macros were
-% created by Piet Tutelaers, available by anonymous ftp
-% at sol.cs.ruu.nl (131.211.80.5). However, the ones offered here
-% do not require additional fonts, and may be easier to use.
-%
-% I authorize circulation of these macros by ftp sites and similar
-% nonprofit media. Improvements are welcome. An earlier version of
-% the macros (with letters for pieces) was done several years ago,
-% with substantial modifications by Steve Cochran.
-%
-% Charles Blair (ceblair@ux1.cso.uiuc.edu)
-% macros start below--- you may cut here --------------------------
-%
-% \fun is the fundamental length unit for the diagrams. If you
-% replace 1.2pt by something else, the scale is changed.
-% The box rf is not used, except to provide something with which to
-% refer to \fun.
-%
-\newdimen\fun \dimen\fun=1.2pt
-\newbox\rf \setbox\rf=\vbox to \dimen\fun{
-\hrule height \dimen\fun width \dimen\fun}
-%
-\def\oil{\offinterlineskip} % I needed to use this in all my vboxes
-%
-% Black pieces are made from solid boxes of specified height and
-% width (the \filbox macro). For White pieces, \filbox is replaced by a
-% macro (\blbox) which draws the lines around the border of such a box.
-% (the white knight is an exception to this)
-% The macro \tbo is defined as \blbox or \filbox as needed.
-%
-\def\filbox#1#2{\vbox{\oil \hrule height #1\ht\rf width #2\ht\rf}}
-%
-\newdimen\adjust
-\def\blbox#1#2{\dimen\adjust=#1\ht\rf \advance\dimen\adjust by-0.4\ht\rf
-\vbox{\oil \hrule height 0.2\ht\rf width #2\wd\rf
-\hbox to #2\wd\rf{\vrule height \dimen\adjust width 0.2\wd\rf\hfil
-\vrule height \dimen\adjust width 0.2\wd\rf}
-\hrule height 0.2\ht\rf width #2\wd\rf}}
-%
-% Each piece is 12 units wide. \scen produces an hbox with this width
-% and either a \blbox or a \filbox in the center.
-%
-\def\scen#1#2{\hbox to 12\wd\rf{\hfil\tbo{#1}{#2}\hfil}}
-%
-% Definitions (color independent) of each piece
-%
-\def\pawn{\vbox{\oil \scen{2.5}{4}\scen{3}{8}\scen{4.5}{4}\scen{3}{10}}}
-%
-\def\bishop{\vbox{\oil \scen{2}{2.5}\scen{3}{8}\scen{4}{10}%
-\scen{3}{6}\scen{1.5}{12}}}
-%
-\def\rook{\vbox{\oil
-\hbox to 12\wd\rf{\tbo2{2.5}\hfil\tbo2{2.5}\hfil\tbo2{2.5}}
-\scen{3}{12}\scen{5.5}{7}\scen{3}{12}}}
-%
-\def\queen{\vbox{\oil \hbox to 12\wd\rf{\tbo{6}{2}\hfil\tbo{8}{2}%
-\hfil\tbo{8}{2}\hfil\tbo{6}{2}}\scen{4}{10}}}
-%
-\def\king{\vbox{\oil% Next 4 lines are the cross part (improvement wanted)
-\hbox to 12\wd\rf{\rlap%
-{\hbox to 12\wd\rf{\hfil\vrule height 3\ht\rf width 0.2\wd\rf\hfil}}%
-\hfil\raise 1.5\ht\rf%
-\hbox{\vrule width 3\ht\rf height 0.2\ht\rf}\hfil}
-\hbox to 12\wd\rf{\tbo{6}{4.5}\hfil\tbo{6}{4.5}}
-\scen{4}{10}}}
-%
-\def\knight{\vbox{\oil \hbox{\hskip 7\wd\rf\tbo{1}{1}}
-\hbox{\hskip2\wd\rf\tbo{2.5}{7}}\hbox{\hskip 2\wd\rf
-\vbox to 3\ht\rf{\tbo{1}{1.5}\vfil}\hskip3\wd\rf\tbo{3}{2.5}}
-\hbox{\hskip 3.4\wd\rf\tbo{4}{5.6}}
-\tbo{2.5}{12}}}
-%
-% Creation of the boxes for the pieces
-%
-\newbox\WP \def\tbo#1#2{\blbox{#1}{#2}} \setbox\WP=\pawn
-\newbox\BP \def\tbo#1#2{\filbox{#1}{#2}} \setbox\BP=\pawn
-\newbox\WB \def\tbo#1#2{\blbox{#1}{#2}} \setbox\WB=\bishop
-\newbox\BB \def\tbo#1#2{\filbox{#1}{#2}} \setbox\BB=\bishop
-\newbox\WR \def\tbo#1#2{\blbox{#1}{#2}} \setbox\WR=\rook
-\newbox\BR \def\tbo#1#2{\filbox{#1}{#2}} \setbox\BR=\rook
-\newbox\WQ \def\tbo#1#2{\blbox{#1}{#2}} \setbox\WQ=\queen
-\newbox\BQ \def\tbo#1#2{\filbox{#1}{#2}} \setbox\BQ=\queen
-\newbox\WK \def\tbo#1#2{\blbox{#1}{#2}} \setbox\WK=\king
-\newbox\BK \def\tbo#1#2{\filbox{#1}{#2}} \setbox\BK=\king
-\newbox\BN \def\tbo#1#2{\filbox{#1}{#2}} \setbox\BN=\knight
-%
-% The exceptional white knight (a lot of work to avoid a line at neck!)
-%
-\newbox\WN \def\tbo#1#2{\blbox{#1}{#2}} \setbox\WN=
-\vbox{\oil \hbox{\hskip 7\wd\rf\tbo{1}{1}}
-\hbox{\hskip2\wd\rf\vrule height 2.5\ht\rf width 0.2\ht\rf
-\vbox to 2.5\ht\rf{\hrule height 0.2\ht\rf width 6.6\wd\rf\vfil
-\hrule height 0.2\ht\rf width 4.5\wd\rf}%
-\vrule height 2.5\ht\rf width 0.2\wd\rf}
-\hbox{\hskip 2\wd\rf
-\vbox to 3\ht\rf{\tbo{1}{1.5}\vfil}\hskip3\wd\rf
-\hbox to 2.5\wd\rf{\vrule height 3\ht\rf width 0.2\wd\rf\hfil
-\vrule height 3\ht\rf width 0.2\wd\rf}}
-\hbox{\hskip 3.4\wd\rf\tbo{4}{5.6}}
-\tbo{2.5}{12}}
-%
-% \ver is the line used for square boundaries on the board
-% \nver is thinner line used to shade dark squares (if no piece on them)
-% \hor draws horizontal lines for each rank
-%
-\def\ver{\vrule height 15\ht\rf width 0.4\wd\rf}
-\def\nver{\vrule height 15\ht\rf width 0.1\wd\rf}
-\def\hor{\hrule height 0.4\wd\rf width 120\wd\rf}
-%
- \newcount\color \newcount\blanks
-\def\blanksquare{\ifodd\color \hbox to 15\wd\rf{\hfil\nver%
-\hfil\nver\hfil\ver}\else\hbox to 15\wd\rf{\hfil\ver}\fi
-\advance\color by 1}
-%
-% Each piece is centered inside a 15-unit square
-%
-\def\cen#1{\hbox to 15\wd\rf{\hfil\vbox to 15\ht\rf{\vfil\copy#1\vfil}%
-\hfil\ver}}
-%
-% This processes the characters specifying a row of the diagram. It
-% is patterned after the \length example at the end of chapter 20
-% of The TeXbook
-\def\nextchar#1{\let\nex=\nextchar%
-\ifcat7#1%
-\blanks=#1\loop\ifnum\blanks>0 \blanksquare%
-\advance\blanks by -1\repeat\else
-\advance\color by 1%
-\ifx#1P\cen{\WP}\else\ifx#1p\cen{\BP}\else%
-\ifx#1N\cen{\WN}\else\ifx#1n\cen{\BN}\else%
-\ifx#1B\cen{\WB}\else\ifx#1b\cen{\BB}\else%
-\ifx#1Q\cen{\WQ}\else\ifx#1q\cen{\BQ}\else%
-\ifx#1R\cen{\WR}\else\ifx#1r\cen{\BR}%
-\else\ifx#1K\cen{\WK}\else\ifx#1k\cen{\BK}\else\let\nex=\relax%
-\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\nex}
-%
-% \bore carries out preliminary steps for making the diagram.
-% \rgc reads in a string of non-blank characters, checks that the
-% first character is not the terminator Z, gives the string to \nextchar,
-% and then processes the next string. (again patterned after \length)
-%
-\def\bore#1Z{\color=1\vbox{\oil \hor\rgc#1 Z }}
-\def\rgc#1#2 {\advance\color by 1\let\nx=\rgc\ifx#1Z\let\nx=\relax
-\else\hbox{\ver\nextchar#1#2Z}\hor\fi\nx}
-%
-% This macro prints a variation. It is supposed to use the ideas of
-% \length and seems to work, but there is something I don't understand:
-% if the {} following the \else is deleted, something goes wrong. Why?
-%
-\newcount\move \newcount\iswhite
-\def\VAR#1 #2Z{\move=#1\iswhite=1\listem #2 Z }
-\def\listem#1#2 {\ifx#1Z\let\nx=\relax\else{}%
-\ifodd\iswhite{} \number\move~#1#2\else%
-~#1#2\advance\move by 1\fi\advance\iswhite by 1\let\nx=\listem\fi\nx}