diff options
author | Karl Berry <karl@freefriends.org> | 2020-03-08 23:11:13 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2020-03-08 23:11:13 +0000 |
commit | e37a10a245d451656a9bd183aded368a8f41e547 (patch) | |
tree | e86a226c2ef0163a07aa58b1bb93512209034a9c /Master/texmf-dist/tex/generic | |
parent | 982fc69106300f65d9ae4aa8e92aed2cbf1d6558 (diff) |
noinfo license on these genmisc files
git-svn-id: svn://tug.org/texlive/trunk@54189 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic')
-rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/anti.tex | 19 | ||||
-rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/apldef.tex | 106 | ||||
-rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/arabic.tex | 55 | ||||
-rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/backgrnd.tex | 319 | ||||
-rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/balancedquotes.sty | 418 | ||||
-rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/chessmin.tex | 171 |
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} |