diff options
Diffstat (limited to 'macros/blu/blue.tex')
-rw-r--r-- | macros/blu/blue.tex | 4225 |
1 files changed, 0 insertions, 4225 deletions
diff --git a/macros/blu/blue.tex b/macros/blu/blue.tex deleted file mode 100644 index 0aa5d33fb8..0000000000 --- a/macros/blu/blue.tex +++ /dev/null @@ -1,4225 +0,0 @@ -%To prevent double loading -\ifx\beginscript\undefined\else -\message{---not loaded---}\endinput\fi -%The material is shareware and subject -%to the separate note on copyright. -% -%To print the format properly, copy -%the following 11-lines job and -%substitute the semicolon token -%(=escape char) for `semi-col'. (2x) -% ---Kees--- -%\input blue.tex -%\hfuzz10pt -%\title{File: blue.tex} -%\issue{Version 1.0} -%\beginscript -%\thisverbatim={\catcode`\`semicol'=0 -% \catcode`\!=12 -% \catcode`\|=12 -% \input blue.tex} -%\beginverbatim -%`semi-col'endverbatim -%\endscript -% -% -% -%Copyright Notice BLUe's Format system -%------------------------------------- -%The software -% blue.tex -% fmt.dat -% tools.dat -%is shareware available. It is not allowed -%to make any profit on it. A happy user is -%requested to send US$25 to the author, or -%better still according to the Macindex the -%equivalent of 20 breads in US dollars. -%(twenty-five US dollar) -% C.G van der Laan -% Hunzeweg 57 -% 9893 PB Garnwerd -% The Netherlands -% (cgl@rc.service.rug.nl) -%The contributors will be added to my -% register.blu database. -%Russian users are relieved for the moment -%from the shareware request, with respect -%to personal use. -%Auxiliary and personalized files are the -%databases -% address.dat addresses -% lit.dat references -% pic.dat pictures. -% -%The main reason to ask for shareware support -%is to protect myself against too many request, -%and to raise some funds to continue my \TeX{} -%work. -% -%The user's guide `Publishing with \TeX,' and the -%accompanying articles are free for personal use. -% -% March, 1995 -% C.G van der Laan%;newcol -% -% -% -%begin%%%%%%%%%%%%%%%general description% -\message{ ---blue.tex 1.0, Jan 95, cgl--- } -% ;nonum -%This file blue.tex accompanies -%Publishing with TeX by Kees van der Laan -%Available from CTAN: -%-pwt.scr (user's guide, which invokes -% the chapters: pwt.int, -.txt, -.mat -% -.tab, -.grf, -.ref, -.ind, -.cus -% -.aft, -.fmt, -.tls, -.tot, -.his, -% next to the dynamical generated -% answers, examples, contents and index.) -%-blue.tex (macros) -%-fmt.dat, tools.dat, -%-lit.dat, pic.dat, address.dat. -%Author: C.G. van der Laan -% Hunzeweg 57 -% 9893 PB Garnwerd -% The Netherlands -% 31 (0)594 62 1525 -% cgl@rc.service.rug.nl -%Purpose: general independent format. -%It is composed of -%-- abbreviations, from tugboat.cmn -%-- manmac.tex (+customization macros) -%-- ppt.tex, my preprint proposal, from -% TUGboat BLUes -%-- miscellaneous additions -%-- \eqalign family with multi-alignment -% point, from Math into BLUes -%-- icon macros via LaTeX's line fonts -%-- btable.tex, my bordered table macros, -% from Table Diversions -%-- vrb.tex (my verbatim mode suite), from -% BLUe's Verbatim -%-- macros for cross-referencing, from -% BLUe's Cross-Referencing -%-- macros for bibliography handling, from -% BLUe's Bibliography -%-- gkppic.tex a subset of gkpmac.tex for -% LaTeX's picture environment -%-- turtle graphics -%-- trs.tex for overhead transparencies -%-- crs.tex for crosswords via plain -%-- macros for creating an index -% from BLUe's Index -%The problem is to keep the constituent -%collections unaltered. -%For each set a table of contents has -%been added to locate macros. -%The reason for putting it all in one file -%is to handle conflicting items and to -%facilitate fast loading, read make it a -%format. -%Note. In order to process this file -%verbatim the semicolon has been reserved -%as escape character. -%The files have not been ordered alphabe- -%tically, due to the hierarchy. -%end%%%%%%%%%%%%%%%%%general description%;newpage -% -% -% -\catcode`\@=11 -%begin%%%%%%%%%%%%%%%%%%%%%abbreviations% -%;numvrb -%Abbreviations borrowed from tugboat.cmn. -\newcount\TestCount -\def\smc{\tensmc} -\def\SMC{\ninerm} -\font\tensmc=cmcsc10 - -\def\AllTeX{(\La)\TeX} - -\def\AMS{American Mathematical Society} - -\def\AmS{{\the\textfont2 A}\kern-.1667em% - \lower.5ex\hbox{\the\textfont2 M}% - \kern-.125em{\the\textfont2 S}} -\def\AmSTeX{\AmS-\TeX} - \def\AmSLaTeX{\AmS-\LaTeX}%Addition -\def\aw{A\kern.1em-W} -\def\AW{Addison\kern.1em-\penalty\z@ - \hskip\z@skip Wesley} - -\def\BibTeX{{\rm B\kern-.05em{\smc i% - \kern-.025emb}\kern-.08em\TeX}} - -\def\CandT{{\sl Computers \& - Typesetting}} - -\def\DVItoVDU{DVIto\kern-.12em VDU} - -\def\ISBN{{\SMC ISBN} } - -% Japanese TeX -\def\JTeX{\leavevmode\hbox{\lower.5ex% - \hbox{J}\kern-.18em\TeX}} - -\def\JoT{{\sl The Joy of \TeX}} - -\def\LAMSTeX{L\raise.42ex\hbox{\kern - -.3em\the\scriptfont2 A}\kern-.2em% - \lower.376ex\hbox{\the\textfont2 M}% - \kern-.125em{\the\textfont2 S}-\TeX} - \let\LAmsTeX=\LAMSTeX%addition -\def\La{\TestCount=\the\fam \leavevmode - L\raise.42ex\hbox{$\fam\TestCount - \scriptstyle\kern-.3em A$}} -\def\LaTeX{\La\kern-.15em\TeX} - -% for Robert McGaffey -\def\Mc{\setbox\TestBox=\hbox{M}M\vbox - to\ht\TestBox{\hbox{c}\vfil}} - -\font\manual=logo10 -% font used for the METAFONT logo, etc. -\def\MF{{\manual META}\-{\manual FONT}} -\def\MP{{\manual META}\-{\smc post}} -\def\MFB{{\sl The \slMF book}} - -% multilingual (INRS) TeX -\def\mtex{T\kern-.1667em\lower.5ex% - \hbox{\^E}\kern-.125emX} - -\def\pcMF{\leavevmode\raise.5ex\hbox - {p\kern-.3ptc}MF} -\def\PCTeX{PC\thinspace\TeX} -\def\pcTeX{\leavevmode\raise.5ex\hbox - {p\kern-.3ptc}\TeX} - -\def\Pas{Pascal} - -\def\PiC{P\kern-.12em\lower.5ex% - \hbox{I}\kern-.075emC} -\def\PiCTeX{\PiC\kern-.11em\TeX} - -\def\plain{{\tt plain}} - -\def\POBox{P.\thinspace O.\ Box } -\def\POBoxTUG{\POBox\unskip\ 21041, - Santa Barbara, CA93121-1041, USA} - -\def\PS{{Post\-Script}} - -\def\SC{Steering Committee} - -\def\SGML{{\SMC SGML}} - -\def\SliTeX{{\rm S\kern-.06em{\smc - l\kern-.035emi}\kern-.06em\TeX}} - -\def\slMF{\MF} -%Use \font\manualsl=logosl10 instead, -%if it's available, for -%\def\slMF{{\manualsl META}\-{\manualsl -% FONT}} - -% Atari ST (Klaus Guntermann) -\def\stTeX{{\smc st\rm\kern-0.13em\TeX}} - -\def\TANGLE{{\tt TANGLE}} - -\def\TB{{\sl The \TeX book}} -\def\TP{{\sl \TeX\/}: - {\sl The Program\/}} - -\def\TeX{T\hbox{\kern-.1667em% - \lower.424ex\hbox{E}\kern-.125emX}} - -\def\TeXhax{\TeX hax} - -% Don Hosek -\def\TeXMaG{\TeX M\kern-.1667em% - \lower.5ex\hbox{A}\kern-.2267emG} - -\def\TeXtures{{\it Textures}} -\let\Textures=\TeXtures - -\def\TeXXeT{\TeX--X\kern-.125em% - \lower.5ex\hbox{E}\kern-.1667emT} - -\def\ttn{{\sl TTN}} -\def\TTN{{\sl \TeX{} and TUG News}} - -\def\tubfont{\sl} -\def\TUB{{\tubfont TUGboat\/}} - -\def\TUG{\TeX\ \UG} - -\def\UG{Users Group} - -\def\UNIX{{\SMC UNIX}} - -\def\VAX{\leavevmode\hbox{V\kern-.12em% - A\kern-.1em X}} - -\def\VorTeX{V\kern-2.7pt\lower.5ex% - \hbox{O\kern-1.4pt R}\kern-2.6pt\TeX} - -\def\XeT{\leavevmode\hbox{X\kern-.125em% - \lower.424ex\hbox{E}\kern-.1667emT}} - -\def\WEB{{\tt WEB}} -\def\WEAVE{{\tt WEAVE}} -%Additions -\def\maps#1#2{MAPS {\oldstyle#1}.% - {\oldstyle#2}}%;nonum -% -%Although not necessary because of -%alphabetical ordering, I supplied -%also -% -%Table of contents abbreviations TUG -%\AllTeX..........................7 -%\AMS.............................9 -%\AmS, \AmSTeX...................14 -%\aw.............................16 -%\AW.............................17 -%\BibTeX.....................20, 21 -%\CandT......................23, 24 -%\DVItoVDU.......................26 -%\ISBN...........................28 -%\JTeX.......................31, 32 -%\JoT............................34 -%\LAMSTeX....................36--39 -%\La.........................41--43 -%\LaTeX..........................44 -%\maps (added) -%\Mc.........................47--48 -%\MF.............................52 -%\mf.............................53 -%\MFB........................54, 55 -%\mtex.......................57, 58 -%\pcMF.......................60, 61 -%\PCTeX..........................62 -%\pcTeX......................63, 64 -%\Pas............................66 -%\PiCTeX.........................70 -%\plain..........................72 -%\POBox..........................74 -%\POBoxTUG...................75--76 -%\PS.............................78 -%\SC.............................80 -%\SGML...........................82 -%\SliTeX.....................84, 85 -%\slMF......................%90, 91 -%\stTeX..........................94 -%\TANGLE.........................96 -%\TB.............................98 -%\TP.............................99 -%\TeX......................102, 103 -%\TeXhax........................105 -%\TeXMaG...................108, 109 -%\TeXtures......................111 -%\TeXXeT...................114, 115 -%\ttn...........................117 -%\TTN...........................118 -%\TUB...........................121 -%\TUG...........................123 -%\UG............................125 -%\UNIX..........................127 -%\VAX......................129, 130 -%\VorTeX...................132, 133 -%\XeT......................135, 136 -%\WEB...........................138 -%\WEAVE.........................139 -%end%%%%%%%%%%%%%%%%%%%%%%%abbreviations%;newpage -% -% -% -%begin%%%%%%%%%%%%%%%%%%%%%%%%%%%%manmac% -%;numvrb -%manmac.tex cgl@rc.service.rug.nl -%Knuth's macros for formatting The TeXbook -%and The METAfont book. -% -%\catcode`@=11 -% -\font\tentex=cmtex10 - -\font\inchhigh=cminch -\font\titlefont=cmssdc10 at 40pt - -\font\ninerm=cmr9 -\font\eightrm=cmr8 -\font\sixrm=cmr6 - -\font\ninei=cmmi9 -\font\eighti=cmmi8 -\font\sixi=cmmi6 -\skewchar\ninei='177 -\skewchar\eighti='177 -\skewchar\sixi='177 - -\font\ninesy=cmsy9 -\font\eightsy=cmsy8 -\font\sixsy=cmsy6 -\skewchar\ninesy='60 -\skewchar\eightsy='60 -\skewchar\sixsy='60 - -\font\eightss=cmssq8 - -\font\eightssi=cmssqi8 - -\font\ninebf=cmbx9 -\font\eightbf=cmbx8 -\font\sixbf=cmbx6 - -\font\ninett=cmtt9 -\font\eighttt=cmtt8 - -\hyphenchar\tentt=-1 % inhibit hyphenation - % in typewriter type -\hyphenchar\ninett=-1 -\hyphenchar\eighttt=-1 - -\font\ninesl=cmsl9 -\font\eightsl=cmsl8 - -\font\nineit=cmti9 -\font\eightit=cmti8 - -\font\tenu=cmu10 % unslanted text italic -\font\magnifiedfiverm=cmr5 at 10pt -%Next two not available on my system -%\font\manual=manfnt % font used for the - % METAFONT logo, etc. -%\font\cmman=cmman % font used for -% -%miscellaneous Computer Modern variations -\newskip\ttglue -\def\tenpoint{\def\rm{\fam0\tenrm}% - \textfont0=\tenrm\scriptfont0=\sevenrm - \scriptscriptfont0=\fiverm - \textfont1=\teni \scriptfont1=\seveni - \scriptscriptfont1=\fivei - \textfont2=\tensy\scriptfont2=\sevensy - \scriptscriptfont2=\fivesy - \textfont3=\tenex\scriptfont3=\tenex - \scriptscriptfont3=\tenex - \def\it{\fam\itfam\tenit}\def\oldstyle - {\fam1 \teni}\textfont\itfam=\tenit - \def\sl{\fam\slfam\tensl}% - \textfont\slfam=\tensl - \def\bf{\fam\bffam\tenbf}% - \textfont\bffam=\tenbf - \scriptfont\bffam=\sevenbf - \scriptscriptfont\bffam=\fivebf - \def\tt{\fam\ttfam\tentt}% - \textfont\ttfam=\tentt - \tt \ttglue=.5em plus.25em minus.15em - \normalbaselineskip=12pt plus1pt minus1pt - \def\MF{{\manual META}\-{\manual FONT}}% - \let\sc=\eightrm - \let\big=\tenbig - \setbox\strutbox=\hbox{\vrule - height8.5pt depth3.5pt width\z@}% - \normalbaselines\rm} - -\def\ninepoint{\def\rm{\fam0\ninerm}% - \textfont0=\ninerm\scriptfont0=\sixrm - \scriptscriptfont0=\fiverm - \textfont1=\ninei\scriptfont1=\sixi - \scriptscriptfont1=\fivei - \textfont2=\ninesy\scriptfont2=\sixsy - \scriptscriptfont2=\fivesy - \textfont3=\tenex\scriptfont3=\tenex - \scriptscriptfont3=\tenex - \def\it{\fam\itfam\nineit}\def\oldstyle - {\fam1 \ninei}\textfont\itfam=\nineit - \def\sl{\fam\slfam\ninesl}% - \textfont\slfam=\ninesl - \def\bf{\fam\bffam\ninebf}% - \textfont\bffam=\ninebf - \scriptfont\bffam=\sixbf - \scriptscriptfont\bffam=\fivebf - \def\tt{\fam\ttfam\ninett}% - \textfont\ttfam=\ninett - \tt \ttglue=.5em plus.25em minus.15em - \normalbaselineskip=11pt plus1pt minus1pt - \def\MF{{\manual hijk}\-{\manual lmnj}}% - \let\sc=\sevenrm - \let\big=\ninebig - \setbox\strutbox=\hbox{\vrule height8pt - depth3pt width\z@}% - \normalbaselines\rm} - -\def\eightpoint{\def\rm{\fam0\eightrm}% - \textfont0=\eightrm \scriptfont0=\sixrm - \scriptscriptfont0=\fiverm - \textfont1=\eighti \scriptfont1=\sixi - \scriptscriptfont1=\fivei - \textfont2=\eightsy \scriptfont2=\sixsy - \scriptscriptfont2=\fivesy - \textfont3=\tenex \scriptfont3=\tenex - \scriptscriptfont3=\tenex - \def\it{\fam\itfam\eightit}\def\oldstyle - {\fam1 \eighti}\textfont\itfam=\eightit - \def\sl{\fam\slfam\eightsl}% - \textfont\slfam=\eightsl - \def\bf{\fam\bffam\eightbf}% - \textfont\bffam=\eightbf - \scriptfont\bffam=\sixbf - \scriptscriptfont\bffam=\fivebf - \def\tt{\fam\ttfam\eighttt}% - \textfont\ttfam=\eighttt - \tt \ttglue=.5em plus.25em minus.15em - \normalbaselineskip=10pt plus1pt minus1pt - \def\MF{{\manual opqr}\-{\manual stuq}}% - \let\sc=\sixrm - \let\big=\eightbig - \setbox\strutbox=\hbox{\vrule height7pt - depth2pt width\z@}% - \normalbaselines\rm} - -\def\tenmath{\tenpoint\fam-1 } % use after $ - % in ninepoint sections -\def\tenbig#1{{\hbox{$\left#1\vbox to8.5pt{}% - \right.\n@space$}}} -\def\ninebig#1{{\hbox{$\textfont0=\tenrm - \textfont2=\tensy - \left#1\vbox to7.25pt{}\right.\n@space$}}} -\def\eightbig#1{{\hbox{$\textfont0=\ninerm - \textfont2=\ninesy - \left#1\vbox to6.5pt{}\right.\n@space$}}} -% Page layout -\newdimen\manmachsize\newdimen\manmacvsize -\newdimen\pagewidth \newdimen\pageheight -\newdimen\manmacparindent\newdimen\ruleht%Cornrules -\manmachsize29pc\manmacvsize44pc\maxdepth2.2pt -\manmacparindent=3pc \ruleht=.5pt -\pagewidth\manmachsize\pageheight\manmacvsize -\abovedisplayskip=6pt plus 3pt minus 1pt -\belowdisplayskip=6pt plus 3pt minus 1pt -\abovedisplayshortskip=0pt plus 3pt -\belowdisplayshortskip=4pt plus 3pt - -\newinsert\footins -\def\manmacfootnote#1{\edef\@sf{\spacefactor - \the\spacefactor}#1\@sf - \insert\footins\bgroup\eightpoint - \interlinepenalty100 \let\par=\endgraf - \leftskip=\z@skip \rightskip=\z@skip - \splittopskip=10pt plus 1pt minus 1pt - \floatingpenalty=20000 - \smallskip\item{#1}\bgroup\strut - \aftergroup\@foot\let\next} - -\skip\footins=12pt plus 2pt minus 4pt -% space added when footnote is present -\count\footins=1000 -% footnote magnification factor (1 to 1) -\dimen\footins=30pc -% maximum footnotes per page - -\newinsert\margin -\dimen\margin=\maxdimen -\count\margin=0 \skip\margin=0pt -% marginal inserts take up no space - -\newif\iftitle -\def\titlepage{\global\titletrue} -% for pages without headlines -\def\rhead{} % contains the running headline - -\def\leftheadline{\hbox to \pagewidth{% - \vbox to 10pt{}% strut to position the - % baseline - \llap{\tenbf\folio\kern1pc}% folio to - % left of text - \tenit\rhead\hfil% running head flush left -}} -\def\rightheadline{\hbox to \pagewidth{% - \vbox to 10pt{}% strut to position the - % baseline - \hfil\tenit\rhead\/% running head flush - % right - \rlap{\kern1pc\tenbf\folio}% folio to - % right of text -}} - -\def\onepageout#1{\shipout\vbox{ % here we - % define one page of output - \offinterlineskip % butt the boxes together - \vbox to 3pc{ % this part goes on top of - % the 44pc pages - \iftitle % the next is used for title pages - \global\titlefalse % reset the titlepage - % switch - \setcornerrules % for camera alignment - \else\ifodd\pageno \rightheadline\else - \leftheadline\fi\fi - \vfill} % this completes the \vbox to 3pc - \vbox to \pageheight{ - \ifvoid\margin\else%marginal info is present - \rlap{\kern31pc\vbox to\z@{\kern4pt% - \box\margin \vss}}\fi - #1 % now insert the main information - \ifvoid\footins\else%footnote info is present - \vskip\skip\footins \kern-3pt - \hrule height\ruleht width\pagewidth - \kern-\ruleht \kern3pt - \unvbox\footins\fi - \boxmaxdepth=\maxdepth - } % this completes the \vbox to \pageheight -}\advancepageno} - -\def\setcornerrules{\hbox to \pagewidth{% - \vrule width 1pc height\ruleht - \hfil \vrule width 1pc} - \hbox to \pagewidth{\llap{\sevenrm(page - \folio)\kern1pc}% - \vrule height1pc width\ruleht depth\z@ - \hfil \vrule width\ruleht depth\z@}} - -\def\manmacoutput{\onepageout{ - \unvbox255}} - -\newbox\partialpage -\def\begindoublecolumns{\begingroup - \output={\global\setbox\partialpage= - \vbox{\unvbox255\bigskip}}\eject - \output={\doublecolumnout}% - \hsize=9cm \vsize=51cm}%cgl mods -\def\enddoublecolumns{\output= - {\balancecolumns}\eject \endgroup - \pagegoal=\vsize} - -\def\doublecolumnout{\splittopskip=\topskip - \splitmaxdepth=\maxdepth \dimen@=25cm - \advance\dimen@ by-\ht\partialpage - \setbox0=\vsplit255 to\dimen@ - \setbox2=\vsplit255 to\dimen@ - \onepageout\pagesofar - \unvbox255 \penalty\outputpenalty} -\def\pagesofar{\unvbox\partialpage - \wd0=\hsize \wd2=\hsize \hbox to - \pagewidth{\box0\hfil\box2}} -\def\balancecolumns{\setbox0=\vbox{\unvbox255} - \dimen@=\ht0 - \advance\dimen@ by\topskip - \advance\dimen@ by-\baselineskip - \divide\dimen@ by2 \splittopskip=\topskip - {\vbadness=10000 - \loop \global\setbox3=\copy0 - \global\setbox1=\vsplit3 to\dimen@ - \ifdim\ht3>\dimen@ - \global\advance\dimen@ by1pt - \repeat} - \setbox0=\vbox to\dimen@{\unvbox1} - \setbox2=\vbox to\dimen@{\unvbox3} - \pagesofar} - -% To produce only a subset of pages, -% put the page numbers on separate -% lines in a file called pages.tex -\let\Shipout=\shipout -\newread\pages \newcount\nextpage -\openin\pages=pages -\def\getnextpage{\pages\else - {\endlinechar=-1\read\pages to\next - \ifx\next\empty % in this case we should - % have eof now - \else\global\nextpage=\next\fi}\fi} -\ifeof\pages\else\message{OK, I'll ship only - the requested pages}\getnextpage\fi -% -\def\shipout{\ifeof\pages - \let\next=\Shipout\else - \ifnum\pageno=\nextpage - \getnextpage\let\next=\Shipout - \else\let\next=\Tosspage\fi\fi \next} -% -\newbox\garbage -\def\Tosspage{\deadcycles=0 - \setbox\garbage=} - -% Chapter formatting -% The preface and table of contents are -% formatted in place, not here. -\newcount\exno % for the number of exercises - % in the current chapter -\newcount\subsecno % for the number of - % subsections in the current chapter - -\def\manmacbeginchapter#1 #2#3. #4\par{% -\global\exno=0\subsecno=0\def\chapno{#2#3} - \ifodd\pageno - \errmessage{You had too much text on - that last page, I'm backing up} - \advance\pageno by-1 - \fi \titlepage - \def\\{ } % \\'s in the title will be - % treated as spaces - \message{#1 #2#3:} % show the chapter - % title on the terminal - \def\MF{{\manual 89:%insert semi-col - <=>:}} % slant the logo - \xdef\rhead{#1 #2#3: #4\unskip} - {\def\TeX{T\kern-.2em\lower.5ex% - \hbox{E}\kern-.06em X} - \def\MF{{\vbox to30pt{}\manual ()*+,-.*}} - \def\\{#3} - \ifx\empty\\ - \rightline{\inchhigh #2\kern-.04em} - \else\rightline{\inchhigh #2\kern-.06em% - #3\kern-.04em}% - \fi \vskip 1.75pc - \baselineskip 36pt \lineskiplimit - \titlelsl \lineskip 12pt - \let\\=\cr%now the \\'s are line dividers - \halign{\line{\titlefont\hfil##}\\#4% - \unskip\\}\vfill\eject} % output the - % chapter title page - \tenpoint\noindent\ignorespaces}% the first -%paragraph of a chapter is not indented -\newdimen\titlelsl \titlelsl=1pt - -\outer\def\manmacendchapter{\ifodd\pageno - \else\vfill\eject\null\fi - \begingroup\bigskip\vfill % beginning of - % the quotes - \def\eject{\endgroup\eject} - \def\par{\ifhmode\/\endgraf\fi}\obeylines - \def\TeX{T\kern-.2em\lower.5ex\hbox{E}% - \kern-.000em X} - \def\MF{{\manual opqr}\-{\manual stuq}} - \eightpoint \let\tt=\ninett - \baselineskip 10pt - \parfillskip \z@ - \interlinepenalty 10000 - \leftskip \z@ plus 40pc minus \parindent - \let\rm=\eightss \let\sl=\eightssi - \everypar{\sl}} -% -\def\manmacauthor#1(#2){\smallskip -\noindent\rm--- #1\unskip\enspace(#2)} - -\def\dbend{{\manual\char127}} -% dangerous bend sign -\def\d@nger{\medbreak\begingroup - \clubpenalty=10000 - \def\par{\endgraf\endgroup\medbreak} - \noindent\hang\hangafter=-2 - \hbox to0pt{\hskip-\hangindent\dbend - \hfill}\ninepoint} -\outer\def\danger{\d@nger} -\def\dd@nger{\medbreak\begingroup - \clubpenalty=10000 - \def\par{\endgraf\endgroup\medbreak} - \noindent\hang\hangafter=-2 - \hbox to0pt{\hskip-\hangindent\dbend - \kern1pt\dbend\hfill}\ninepoint} -\outer\def\ddanger{\dd@nger} -\def\enddanger{\endgraf\endgroup} % omits - % the \medbreak - -\outer\def\subsection#1. {\medbreak - \advance\subsecno by 1 - \noindent - {\it \the\subsecno.\enspace#1.\enspace}} -\def\ansno#1.#2:{\medbreak\noindent - \hbox to\parindent{\bf\hss#1.#2.\enspace} - \ignorespaces} - -% Composition macros -\hyphenation{man-u-script man-u-scripts - ap-pen-dix xscaled} - -%\def\AmSTeX{$\cal A\kern-.1667em\lower -% .5ex\hbox{$\cal M$}\kern-.075em S$-\TeX} -\def\bull{\vrule height .9ex width .8ex% - depth -.1ex } % square bullet -\def\SS{{\it SS}} % scriptscript style -\def\|{\leavevmode\hbox{\tt\char`\|}} - % vertical line -\def\dn{\leavevmode\hbox{\tt\char'14}} - % downward arrow -\def\up{\leavevmode\hbox{\tt\char'13}} - % upward arrow -\def\]{\leavevmode\hbox{\tt\char`\ }} - % visible space - -\def\pt{$\,${\rm pt}} % units of points, - % in math formulas -\def\em{$\,${\rm em}} % units of ems, - % in math formulas -\def\<#1>{\leavevmode\hbox{$\langle$#1% - \/$\rangle$}} % syntactic quantity -\def\oct#1{\hbox{\rm\'{}\kern-.2em\it - #1\/\kern.05em}} % octal constant -\def\hex#1{\hbox{\rm\H{}\tt#1}} - % hexadecimal constant -\def\cstok#1{\leavevmode\thinspace\hbox{% - \vrule\vtop{\vbox{\hrule\kern1pt\hbox{% - \vphantom{\tt/}\thinspace{\tt#1}% - \thinspace}}\kern1pt\hrule}\vrule}% - \thinspace} % control sequence token - -{\obeyspaces\gdef {\ }} -\def\parbreak{\hfil\break\indent\strut} -\def\stretch{\nobreak\hskip0pt plus2pt\relax} - -% macros for non-centered displays -\outer\def\begindisplay{\obeylines - \startdisplay} -{\obeylines\gdef\startdisplay#1 - {\catcode`\^^M=5$$#1\halign\bgroup\indent - ##\hfil&&\qquad##\hfil\cr}} -% -\outer\def\enddisplay{\crcr\egroup$$} -% (the following \begin...\end-type -% macros do not appear in Appendix E) -% macros for demonstrating math constructions -\outer\def\beginmathdemo{ - $$\advance\baselineskip by2pt - \halign\bgroup\indent\hbox to 160pt{##\hfil}& - $##$\hfil\cr\noalign{\vskip-2pt} -} -\outer\def\begindisplaymathdemo{ - $$\advance\baselineskip by15pt - \halign\bgroup\indent\hbox to 160pt{##\hfil}& - $\displaystyle{##}$\hfil\cr - \noalign{\vskip-15pt} -} -\outer\def\beginlongmathdemo{ - $$\advance\baselineskip by2pt - \halign\bgroup\indent\hbox to 210pt{##\hfil}& - $##$\hfil\cr\noalign{\vskip-2pt} -} -\outer\def\beginlongdisplaymathdemo{ - $$\advance\baselineskip by15pt - \halign\bgroup\indent\hbox to 210pt{##\hfil}& - $\displaystyle{##}$\hfil\cr - \noalign{\vskip-15pt} -} -\outer\def\endmathdemo{\crcr\egroup$$} - -% macros for font tables -\def\oddline#1{\cr - \noalign{\nointerlineskip} - \multispan{19}\hrulefill& - \setbox0=\hbox{\lower 2.3pt\hbox{% - \hex{#1x}}}\smash{\box0}\cr - \noalign{\nointerlineskip}} -\def\evenline{\cr\noalign{\hrule}} -\def\chartstrut{\lower4.5pt\vbox to14pt{}} -\def\beginchart#1{$$\postdisplaypenalty=-10000 - \global\count@=0 #1 - \halign to\hsize\bgroup - \chartstrut##\tabskip0pt plus10pt& - &\hfil##\hfil&\vrule##\cr - \lower6.5pt\null - &&&\oct0&&\oct1&&\oct2&&\oct3&&\oct4&& - \oct5&&\oct6&&\oct7&\evenline} -\def\endchart{\raise11.5pt\null&&&\hex 8&& - \hex 9&&\hex A&&\hex B&&\hex C&&\hex D&& - \hex E&&\hex F&\cr\egroup$$} -\def\:{\setbox0=\hbox{\char\count@}% - \ifdim\ht0>7.5pt\reposition - \else\ifdim\dp0>2.5pt\reposition\fi\fi - \box0\global\advance\count@ by1 } -\def\reposition{\setbox0=\hbox{$\vcenter - {\kern2pt\box0\kern2pt}$}} -\def\normalchart{% - &\oct{00x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&&\oddline0 - &\oct{01x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&\evenline - &\oct{02x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&&\oddline1 - &\oct{03x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&\evenline - &\oct{04x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&&\oddline2 - &\oct{05x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&\evenline - &\oct{06x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&&\oddline3 - &\oct{07x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&\evenline - &\oct{10x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&&\oddline4 - &\oct{11x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&\evenline - &\oct{12x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&&\oddline5 - &\oct{13x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&\evenline - &\oct{14x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&&\oddline6 - &\oct{15x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&\evenline - &\oct{16x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&&\oddline7 - &\oct{17x}&&\:&&\:&&\:&&\:&&\:&&\:&&\:&& - \:&\evenline} -% -% (now Appendix E resumes again) -% macros for verbatim scanning -\chardef\other=12 -\def\ttverbatim{\begingroup - \catcode`\\=\other - \catcode`\{=\other - \catcode`\}=\other - \catcode`\$=\other - \catcode`\&=\other - \catcode`\#=\other - \catcode`\%=\other - \catcode`\~=\other - \catcode`\_=\other - \catcode`\^=\other - \obeyspaces \obeylines \tt} - -\outer\def\begintt{$$\let\par=\endgraf - \ttverbatim \parskip=\z@ - \catcode`\|=0 \rightskip-5pc \ttfinish} -{\catcode`\|=0 |catcode`|\=\other - % | is temporary escape character - |obeylines % end of line is active - |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}% - |endgroup$$}} -\catcode`\|=\active -{\obeylines \gdef|{\ttverbatim - \spaceskip=\ttglue -\let^^M=\ \let|=\endgroup}} - -% macros for syntax rules (again, not in -% Appendix E) -\def\[#1]{\silenttrue\xref|#1|\thinspace - {\tt#1}\thinspace} % keyword in syntax -\def\beginsyntax{\endgraf\nobreak\medskip - \begingroup \catcode`<=13 \catcode`[=13 - \let\par=\endsyntaxline \obeylines} -\def\endsyntaxline{\futurelet\next - \syntaxswitch} -\def\syntaxswitch{\ifx\next\<\let\next= - \syntaxrule\else - \ifx\next\endsyntax\let\next=\endgroup - \else\let\next=\continuerule - \fi\fi \next -} -\def\continuerule{\hfil\break\indent\qquad} -\def\endsyntax{\medbreak\noindent} -{\catcode`<=13 \catcode`[=13 - \global\let<=\< \global\let[=\[ - \gdef\syntaxrule<#1>{\endgraf\indent - \silentfalse%\xref%Mod cgl - \<#1>}} \def\alt{\ $\vert$ } -\def\is{\ $\longrightarrow$ } - -% macros to demarcate lines quoted from -% TeX source files -\def\beginlines{\par\begingroup\nobreak - \medskip\parindent\z@ \obeylines - \hrule\kern1pt\nobreak \everypar{\strut}} -\def\endlines{\kern1pt\hrule\endgroup - \medbreak\noindent} -\def\weakendlines{\kern1pt\hrule\endgroup - \medskip\noindent} -\def\finalendlines{\kern1pt\hrule\endgroup - \medbreak} - -\outer\def\manmacexercise{\medbreak - \global\advance\exno by 1 - \noindent\llap{\manual\char'170 - \rm\kern.15em}% triangle in margin - {\ninebf EXERCISE \bf\chapno.\the\exno}\par - \nobreak\noindent} -\def\dexercise{\global\advance\exno by 1 - \llap{\manual\char'170 - \rm\kern.15em}% triangle in indented space - {\eightbf EXERCISE \bf\chapno.\the\exno}\hfil - \break} -\outer\def\dangerexercise{\d@nger\dexercise} -\outer\def\ddangerexercise{\dd@nger\dexercise} - -\newwrite\ans -\immediate\openout\ans=answers - % file for answers to exercises -\outer\def\manmacanswer{\par\medbreak - \immediate\write\ans{} - \immediate\write\ans{\string\ansno - \chapno.\the\exno:}\copytoblankline} -\def\copytoblankline{\begingroup\setupcopy - \copyans} -\def\setupcopy{\def\do##1{\catcode`##1= - \other}\dospecials - \catcode`\|=\other \obeylines} -{\obeylines \gdef\copyans#1 - {\def\next{#1}% - \ifx\next\empty\let\next=\endgroup - \else\immediate\write\ans{\next}% - \let\next=\copyans - \fi\next}} - -% Macros for drawing figures (not in -% Appendix E) -\def\hidehrule#1#2{\kern-#1\hrule - height#1 depth#2 \kern-#2 } -\def\hidevrule#1#2{\kern-#1{\dimen0=#1 - \advance\dimen0 by#2\vrule width\dimen0}% - \kern-#2 } -% \makeblankbox puts rules at the edges of -% a blank box whose dimensions are those -% of \box0 (assuming nonnegative wd,ht,dp) -% #1 is rule thickness outside, -% #2 is rule thickness inside -\def\makeblankbox#1#2{\hbox{\lower\dp0 - \vbox{\hidehrule{#1}{#2}% - \kern-#1% overlap the rules at the corners - \hbox to\wd0{\hidevrule{#1}{#2}% - \raise\ht0\vbox to #1{}% set the vrule height - \lower\dp0\vtop to #1{}% set the vrule depth - \hfil\hidevrule{#2}{#1}}% - \kern-#1\hidehrule{#2}{#1}}}} -\def\maketypebox{\makeblankbox{0pt}{1pt}} -\def\makelightbox{\makeblankbox{.2pt}{.2pt}} - -% \box\bigdot is a null box with a bullet -% at its reference point -\newbox\bigdot \newbox\smalldot -\setbox0=\hbox{$\vcenter{}$} -% \ht0 is the axis height -\setbox1=\hbox to\z@{$\hss\bullet\hss$} -% bullet is centered on the axis -\setbox\bigdot=\vbox to\z@{\kern-\ht1 - \kern\ht0 \box1 \vss} -\setbox1=\hbox to\z@{$\hss\cdot\hss$} -% cdot is centered on the axis -\setbox\smalldot=\vbox to\z@{\kern-\ht1 - \kern\ht0 \box1 \vss} - -% \arrows makes things like <--- text ---> -\def\arrows#1#2{% #1=width, #2=text -{\setbox0=\hbox{$\mkern-2mu\mathord - -\mkern-2mu$} - \hbox to #1{\kern-.055556em$\leftarrow - \mkern-6mu$\cleaders\copy0\hfil - \kern.4em #2\kern.4em\cleaders\copy0\hfil - $\mkern-6mu\rightarrow$\kern-.055556em}}} - -% \samplebox makes the outline of a box, -% with big dot at reference point -\def\samplebox#1#2#3#4{% #1=ht, #2=dp, #3=wd, -% #4=text - {\setbox0=\vtop{\vbox to #1{\hbox to #3{} - \vss}\nointerlineskip\vbox to #2{}} - % now \box0 has the desired ht, dp, and wd - \hbox{\copy\bigdot - \vrule height.2pt depth.2pt width#3% - \kern-#3\makelightbox\kern-#3% - \raise#1\vbox{\hbox to #3{\hss#4\hss} - \kern 3pt}}}} - -% \sampleglue makes glue between sample boxes -\newdimen\varunit -\varunit=\hsize -\advance\varunit by-2\parindent -\divide\varunit by 58 % illustrations in - % Chapter 12 -\def\sampleglue#1#2{% #1=width, #2=text - \vtop{\hbox to #1{\xleaders\hbox to - .5\varunit{\hss\copy\smalldot\hss}\hfil} - \kern3pt - \tabskip \z@ plus 1fil - \halign to #1{\hfil##\cr#2\cr}}} - -% Indexing macros -\newif\ifproofmode -\proofmodetrue % this should be false when - % making camera-ready copy -\newwrite\inx -\immediate\openout\inx=index % file for - % index reminders -\newif\ifsilent -\def\specialhat{\ifmmode\def\next{^}\else - \let\next=\beginxref\fi\next} -\def\beginxref{\futurelet\next - \beginxrefswitch} -\def\beginxrefswitch{\ifx\next\specialhat - \let\next=\silentxref\else - \silentfalse\let\next=\xref\fi \next} -\catcode`\^=\active \let ^=\specialhat -\def\silentxref^{\silenttrue\xref} - -\def\marginstyle{\vrule height6pt depth2pt - width\z@ \sevenrm} - -\chardef\bslash=`\\ -\def\xref{\futurelet\next\xrefswitch} -\def\xrefswitch{\begingroup - \ifx\next|\aftergroup\vxref - % case 1 or 2, |arg| or |\arg| - \else\ifx\next\<\aftergroup\anglexref - % case 3, "\<arg>" means angle brackets - \else\aftergroup\normalxref - \fi\fi\endgroup} % case 0, "{arg}" -\def\vxref|{\catcode`\\=\active - \futurelet\next\vxrefswitch} -\def\vxrefswitch#1|{\catcode`\\=0 - \ifx\next\empty\def\xreftype{2}% - \def\next{{\tt\bslash\text}}%type2 - \else\def\xreftype{1}\def\next{% - {\tt\text}}\fi %type1 - \edef\text{#1}\makexref} -{\catcode`\|=0 \catcode`\\=\active |gdef\{}} -\def\anglexref\<#1>{\def\xreftype{3}% - \def\text{#1}\def\next{\<\text>}\makexref} -\def\normalxref#1{\def\xreftype{0}% - \def\text{#1}\let\next=\text\makexref} -\def\makexref{\ifproofmode\insert\margin - {\hbox{\marginstyle\text}}% -% \ifindexfile %Mod cgl oct 94 - \xdef\writeit{\write\inx{\text\space!% - \xreftype\space\noexpand\number\pageno.% - }}\writeit -% \else\advance\inxcnt1 -% \ea\xdef\csname\the\inxcnt\endcsname -% {\text\space!\xreftype\space}% -% \mark{\the\inxcnt}\fi - \else\ifhmode\kern0pt\fi\fi - \ifsilent\ignorespaces\else\next\fi} -% the \insert (which is done in proofmode -% only) suppresses hyphenation, so the -% \kern\z@ is put in to give the same effect -% in non-proofmode. - -% Internal cross references that may change -\def\sesame{61} - % page number for Sesame Street quote -\def\bmiexno{20} - % exercise number for bold math italic -\def\punishexno{1} - % exercise number for `punishment' -\def\fracexno{6} - % exercise number for `\frac' -\def\vshippage{31} - % error message from `\vship' -\def\storypage{24} - % listing of story.tex -\def\metaT{4} - % exercise number for T of METAFONT -\def\xwhat{2} - % exercise number for x3:=whatever -\def\Xwhat{2} - % exercise number for whatever itself - -\def\checkequals#1#2{\ifnum#1=#2\else - \errmessage{Redefine \string#1 to be - \the#2}\fi} - -%Things for The METAFONTbook only -%(omitted) ;nonum -% -%Contents manmac.tex -% cgl@rc.service.rug.nl -%Font definition ................7-58 -%Size switching macros ........60-154 -%Page layout (and OTR) .......156-282 -%-parameters..................159-193 -%-\manmacfootnote.............167-176 -%-\margin (insert)............185-188 -%-\titlepage......................191 -%-\leftheadline...............195-201 -%-\rightheadline..............202-209 -%-\onepageout.................211-235 -%-\setcornerrules.............237-243 -%-\manmacoutput...................245 -%-\begindoublecolumns.........248-253 -%-\enddoublecolumns...........254-256 -%-\doublecolumnout............258-264 -%-\pagesofar..................265-267 -%-\balancecolumns.............268-281 -%Subset of pages..............283-304 -%-\Shipout........................286 -%-\getnextpage................289-295 -%-\shipout....................297-301 -%-\Tosspage.......................304 -%Chapter formatting ..........306-393 -%-\manmacbeginchapter.........315-344 -%-\manmacendchapter...........348-363 -%-\author....................365, 366 -%-\dbend......................368-385 -%-\subsection.................387-393 -%Composition macros...........395-431 -%-\AmSTeX....................399, 400 -%-\bull......................401, 402 -%-\SS.............................403 -%-\vrt............................404 -%-\dn........................406, 407 -%-\up........................408, 409 -%-\]..............................410 -%-\pt........................413, 414 -%-\em........................415, 416 -%-\<#1>......................417, 418 -%-\oct.......................419, 420 -%-\hex............................421 -%-\cstok......................423-427 -%-\parbreak..................429, 430 -%-\stretch........................431 -%Macros for non-centered -% displays..................433-439 -%-\begindisplay..............434, 435 -%-\startdisplay...............436-438 -%-\enddisplay.....................440 -%Macros for showing math -% constructions.............441-466 -%-\beginmathdemo..............444-448 -%-\begindisplaymathdemo.......449-454 -%-\beginlongmathdemo..........455-459 -%-\beginlongdisplaymathdemo...460-465 -%-\endmathdemo....................466 -%Macros for font tables.......468-526 -%-\oddline....................469-474 -%-\evenline.......................475 -%-\chartstrut.....................476 -%-\beginchart.................477-484 -%-\endchart...................485-487 -%-\:..........................488-491 -%-\reposition................492, 493 -%-\normalchart................494-526 -%Macros for verbatim scanning.529-555 -%-\ttverbatim.................531-542 -%-\begintt....................544-546 -%-\ttfinish...................547-551 -%Macros for syntax rules......557-579 -%-\[#1]......................559, 560 -%-\beginsyntax................561-563 -%-\endsyntaxline.............564, 565 -%-\syntaxswitch...............566-570 -%-\continuerule...................572 -%-\endsyntax......................573 -%-<, [............................575 -%-\syntaxrule................576, 577 -%-\alt............................578 -%-\is.............................579 -%Macros to demarcate lines quoted -% from \TeX{} source files..581-591 -%-\beginlines................583, 585 -%-\endlines..................586, 587 -%-\weakendlines..............588, 589 -%-\finalendlines.............590, 591 -%Macros to mark up exercises -% and answers...............593-624 -%-\manmacexercise............593, 598 -%-\dexercise..................599-603 -%-\dangerexercise.................604 -%-\ddangerexercise................605 -%-\manmacanswer...............610-613 -%-\copytoblankline...........614, 615 -%-\setupcopy..................616-618 -%-\copyans....................619-624 -%Macros for drawing figures...626-696 -%-\hidehrule.................628, 629 -%-\hidevrule..................630-632 -%-\makeblankbox...............638-645 -%-\maketypebbox...................646 -%-\makelightbox...................647 -%-\bigdot....................656, 657 -%-\smalldot..................660, 661 -%-\arrows.....................664-670 -%-\samplebox..................674-683 -%-\sampleglue.................691-696 -%Indexing macros..............698-752 -%-\ifproofmode, \ifsilent....698, 704 -%-\inx............................701 -%-\specialhat................706, 707 -%-\beginxref.................708, 709 -%-\beginxrefswitch............710-712 -%-^...............................713 -%-\silentxref.....................714 -%-\marginstyle...............716, 717 -%-\bslash.........................719 -%-\xref...........................720 -%-\xrefswitch.................721-727 -%-\vxref.....................728, 729 -%-\vxrefswitch................730-736 -%-\anglexref.................738, 739 -%-\normalxref................740, 741 -%-\makexref...................742-754 -%Internal cross-references that -% may change................760-782 -% -%Additions -% -%\Large font for amongst others -%chapterhead of report -\font\Largerm=cmr12 - scaled\magstep4 -\let\subsubheadfont\Largerm -\font\Largei=cmmi12 - scaled\magstep4\relax -\font\Largeit=cmti12 - scaled\magstep4\relax -\font\Largesl=cmsl12 - scaled\magstep5\relax -\font\Largesy=cmsy10 - scaled\magstep5\relax -\font\Largeex=cmex10 - scaled\magstep5\relax -\font\Largebf=cmbx12 - scaled\magstep4\relax -\font\Largett=cmtt12 - scaled\magstep4\relax -\font\twelverm=cmr12 -\font\twelvebf=cmbx12 -\font\twelveit=cmti12 -\font\twelvesl=cmsl12 -\font\twelvemus=cmmi12 -\font\twelvesy=cmsy10 scaled\magstep1 -\font\twelveex=cmex10 scaled\magstep1 -\font\nineex=cmex10 scaled\magstephalf -\def\Large{\def\rm{\fam0\Largerm}% - \textfont0=\Largerm - \scriptfont0=\twelverm - \scriptscriptfont0=\ninerm - \textfont1=\Largei - \scriptfont1=\twelvemus - \scriptscriptfont1=\ninei - \textfont2=\Largesy - \scriptfont2=\twelvesy - \scriptscriptfont2=\ninesy - \textfont3=\Largeex - \scriptfont3=\twelveex - \scriptscriptfont3=\nineex - \def\it{\fam\itfam \Largeit}% - \textfont\itfam=\Largeit - \def\sl{\fam\slfam\Largesl}% - \def\oldstyle{\fam1 \Largei} - \textfont\slfam=\Largesl - \def\bf{\fam\bffam\Largebf}% - \textfont\bffam=\Largebf - \scriptfont\bffam=\tenbf - \scriptscriptfont\bffam=\sevenbf - \def\tt{\fam\ttfam\Largett}% - \textfont\ttfam=\Largett - \tt\ttglue=.5em plus.25em minus.15em - \normalbaselineskip=21pt - \def\MF{{\manual META}\-{\manual FONT}}% - \setbox\strutbox=\hbox{\vrule - height16pt depth5pt width\z@}% - \let\sc=\twelverm\let\big=\Largebig - \normalbaselines\rm} -\def\Largebig#1{{\hbox{$\left#1\vbox - to12pt{}\right.\n@space}}} -% -%\large font for transparencies -\font\largerm=cmr12 - scaled\magstep2 -\let\subsubheadfont\largerm -\font\largei=cmmi12 - scaled\magstep2\relax -\font\largeit=cmti12 - scaled\magstep2\relax -\font\largesl=cmsl12 - scaled\magstep2\relax -\font\largesy=cmsy10 - scaled\magstep3\relax -\font\largeex=cmex10 - scaled\magstep3\relax -\font\largebf=cmbx12 - scaled\magstep2\relax -\font\largett=cmtt12 - scaled\magstep2\relax -\def\large{\def\rm{\fam0\largerm}% - \textfont0=\largerm - \scriptfont0=\tenrm - \scriptscriptfont0=\sevenrm - \textfont1=\largei - \scriptfont1=\teni - \scriptscriptfont1=\seveni - \textfont2=\largesy - \scriptfont2=\tensy - \scriptscriptfont2=\sevensy - \textfont3=\largeex - \scriptfont3=\tenex - \scriptscriptfont3=\tenex - \def\it{\fam\itfam \largeit}% - \textfont\itfam=\largeit - \def\sl{\fam\slfam\largesl}% - \def\oldstyle{\fam1 \largei} - \textfont\slfam=\largesl - \def\bf{\fam\bffam\largebf}% - \textfont\bffam=\largebf - \scriptfont\bffam=\tenbf - \scriptscriptfont\bffam=\sevenbf - \def\tt{\fam\ttfam\largett}% - \textfont\ttfam=\largett - \tt\ttglue=.5em plus.25em minus.15em - \normalbaselineskip=20pt - \def\MF{{\manual META}\-{\manual FONT}}% - \setbox\strutbox=\hbox{\vrule - height15.5pt depth4.5pt width\z@}% - \let\sc=\tenrm \let\big=\largebig - \normalbaselines\rm} -\def\largebig#1{{\hbox{$\left#1\vbox - to10pt{}\right.\n@space}}} -% -%Customization of \beginchapter and -%\endchapter from Manmac BLUes. -\outer\def\beginchapter#1 #2#3. #4\par{% - \def\chapno{#2#3}\global\exno0 \subsecno0 - \def\hl{\gdef\hl{\the\issue\hfil\it\rhead}} - \headline{\hl} - \def\\{ }\xdef\rhead{#4} - \centerline{\titlefont - #1 #2#3\quad #4} - \bigskip\tenpoint\noindent\ignorespaces} -% -\footline{\tiny\rlap{\the\year}\hfil - --\folio--\hfil\llap{\copyright cgl}} -% -\outer\def\endchapter{\vfill\eject\vfill} -% -%\output{\plainoutput} -% -\hsize18cm \pagewidth\hsize -\vsize25cm \pageheight\vsize -%\issue{MAPS 93.1} -%History of changes -%1994 Table of contents added and -% names of footnote and output -% provided with unique prefix manmac. -% Customization \beginchapter added. -%1993 Adapted for twocolumn layout. -%end%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%manmac%;newpage -% -% -% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%ppt.tex cgl@rc.service.rug.nl -%;numvrb -%Adapted TUGboat.sty, 2-column bias -%\xcol is the column no within a page, -%ranges from 1 to \maxcols (=1 or 2). -\newcount\xcol -\newcount\maxcols -% -\newdimen\pagewd\newdimen\colwd -\newdimen\intercolwd -\newtoks\headlinesep\newtoks\footlinesep -\headlinesep{\kern2ex}\footlinesep{\kern1ex} -%\catcode`\@=11 -% remove \outer -\def\newbox{\alloc@4\box\chardef\insc@unt} -\def\boxcs#1{\box\csname#1\endcsname} -\def\setboxcs#1{\setbox\csname#1\endcsname} -\def\newboxcs#1{\expandafter - \newbox\csname#1\endcsname} -\newboxcs{column1} -\newboxcs{column2} -% -\def\midpage#1{\vbox{\ifnum\xcol=\maxcols - \the\headline\else\null\vskip\baselineskip - \fi\the\headlinesep - \vbox to\vsize{% - \hbox to\pagewd{#1}\vss} - \the\footlinesep - \ifnum\xcol=\maxcols - \the\footline\else\vskip4ex\fi}} -% -\headline={\hbox to\pagewd{\sevenrm - \the\issue\hfill{\it\the\title}}} -% -\newtoks\pagenumber\pagenumber{\folio} -\footline={\hbox to\pagewd{\tiny -\rlap{Draft \today}\hfill--\the\pagenumber - --\hfill\llap{\copyright cgl}}} -\def\today{\ifcase\month\or Jan\or Feb\or - March\or April\or May\or June\or July\or - Aug\or Sept\or Oct\or Nov\or Dec\fi - { }{\ea\oldstyle\number\day}, - {\ea\oldstyle\number\year}} -% -\def\newcol{\endgraf\vfill\eject} -% -\def\newpage{\vfill\eject -%\loop - \ifnum\xcol>1 - {\leavevmode\endgraf\vfill\eject} - \fi -}%\xcol is reset in the OTR %\repeat} -% horizontal offset of column -% from left edge of page -\newdimen\coloffset \coloffset=\z@ -\def\incrcoloffset{% - \global\advance\coloffset\colwd - \global\advance\coloffset\intercolwd} -% -\output={\global\setboxcs{column\number\xcol}= - \midpage{\kern\coloffset\pagebody\hfil} - \incrcoloffset - \ifnum\xcol=\maxcols - \shipout\hbox{% - \rlap{\boxcs{column1}}% - \rlap{\boxcs{column2}}% - \hbox to\pagewd{\hss}}% - \advancepageno - \global\coloffset\z@ - \global\xcol=\@ne - \else - \global\advance\xcol\@ne - \fi} -% -%Title, header and miscellaneous -\newtoks\title\newtoks\subtitle -\newtoks\author\newtoks\address -\newtoks\businessaccount -\newtoks\translator\newtoks\issue -\newtoks\netaddress\newtoks\crowner -\newtoks\telephone -\newtoks\thisscript\newtoks\everyscript -\newtoks\prehead\newtoks\posthead -\newtoks\presubhead\newtoks\postsubhead -\newtoks\presubsubhead\newtoks\postsubsubhead -\newtoks\thishead -\newtoks\thissubhead\newtoks\thissubsubhead -\newtoks\everyhead -\newtoks\everysubhead\newtoks\everysubsubhead -\newtoks\tocvar -\newdimen\subheadindent\subheadindent=0pc -\newdimen\subsubheadindent\subsubheadindent=2pc -\def\pasteupkeywords{\box\keywordsbox} -\def\pasteupabstract{\box\abstractbox} -\def\pasteupcontents{\unvbox\contentsbox} -\def\pasteupacknowledgements{\ifvoid - \acknowledgementsbox - \else\the\preacknowledgements\unvbox - \acknowledgementsbox\fi - }% -%pastupindex is much more complicated;vrblin100 -\def\beginscript{\lastscript - \the\everyscript\begingroup - \the\thisscript - \hrule\kern2ex\noindent - {\titlefont\the\title\unskip}% - \if!\the\subtitle!\else{\subtitlefont - \Dash\the\subtitle\unskip}\fi - \medskip\the\author - \medskip\pasteupkeywords - \medskip\pasteupabstract - \medbreak\pasteupcontents\smallbreak} -\def\endscript{\makesignature - \xcol=\maxcols - \vfil\eject\endgroup\tracingstats1 - \stop\thisscript{}} -\def\notlastscript{\let\stop\relax} -\def\lastscript{\let\stop\end} -\prehead{\vskip0pt plus9ex - \penalty-250\vskip0pt plus-9ex - \bgroup\catcode`\^=7 \the\everyhead - \the\thishead\bigskip\noindent} -\posthead{\medskip\nobreak\egroup - \noindent\ignorewhitespace} -\def\beginhead{\the\prehead\bgroup - \headfont} -\def\endhead{\egroup\the\posthead} -\presubhead{\vskip0pt plus6ex - \penalty-100\vskip0pt plus-6ex - \medskip\vskip\parskip\noindent - \bgroup\catcode`\^7 \the\everysubhead - \the\thissubhead - \leavevmode\hbox to\subheadindent{}} -\postsubhead{\egroup\quad\ignorewhitespace} -\def\beginsubhead{\the\presubhead - \bgroup\subheadfont} -\def\endsubhead{\egroup\the\postsubhead} -\presubsubhead{\vskip0pt plus3ex - \penalty-50\vskip0pt plus-3ex\bgroup - \catcode`\^=7 - \the\everysubsubhead\the\thissubsubhead - \smallskip\vskip\parskip\noindent - \leavevmode\hbox to\subsubheadindent{}} -\postsubsubhead{\egroup\quad\ignorewhitespace} -\def\beginsubsubhead{\the\presubsubhead - \bgroup\subsubheadfont} -\def\endsubsubhead{\egroup - \the\postsubsubhead} -%;vrblin150 -\def\head#{\beginhead\bgroup\ag\endhead - \afterassignment\ignorespaces - \let\dummy=} -\def\subhead#{\beginsubhead\bgroup\ag - \endsubhead\afterassignment\ignorespaces - \let\dummy=} -\def\subsubhead#{\beginsubsubhead\bgroup - \ag\endsubsubhead\let\dummy=} -\def\script#{\beginscript\bgroup\ag\endscript - \afterassignment\ignorespaces - \let\dummy=} -% -\def\bluetitle#1\par{\title{#1}} -\def\bluesubtitle#1\par{\subtitle{#1}} -\def\bluekeywords#1\par{\keywords{#1}} -\def\bluehead#1\par - {\beginhead#1\unskip\endhead} -\def\bluesubhead#1\par - {\beginsubhead#1\endsubhead} -\def\bluesubsubhead#1\par - {\beginsubsubhead#1\endsubsubhead} -\def\bluemakelabels#1\par - {\makelabels{#1}} -\def\blueabstract#1\par{\abstract{#1}} -\def\blueissue#1\par{\issue{#1}} -% -\long\def\ignorepars#1{\ifx\par#1\let\next\relax - \else\let\next#1\sraperongi\fi\ignorepars} -\long\def\sraperongi#1\ignorepars{\fi\next} -{\catcode`\^=7 \gdef\ignorewhitespace{\begingroup -%Due to Phil Taylor EuroTeX 94 -\catcode`\ =9 %space -\catcode`\^^I=9 %tab -\catcode`\^^L=9 %f-feed -\catcode`\^^M=9 %e-o-l -\futurelet\dummy\endgroup}} -%;vrblin200 -\def\tubissue#1(#2){TUGboat~{\oldstyle#1}, - {\oldstyle#2}} \def\\{\hfil\break} -\def\makesignature{\medskip - \rightline{\hbox to.4\hsize{\strut - \llap{\copyright\quad}\the\author\hss}} - \rightline{\vbox{\noindent - \hsize=.4\hsize - \the\address\hfill\break - \the\netaddress\\ - \the\telephone}}} -% -\def\on{\bgroup\afterassignment\doold\count0=} -% -\def\doold{\oldstyle\the\count0\egroup} -\def\oa#1 {{\oldstyle\fifoolda#1\ofifolda} } -\def\fifoolda#1#2{\ifcat#1a#1\else\aftergroup#1\fi - \ifx\ofifolda#2 \ofifolda\fi - \fifoolda#2} -\def\ofifolda#1\ofifolda{\fi} -% -% Defaults -% %;vrblin250 -\newif\ifonecol -\def\A#1{\csname A#1\endcsname} -\expandafter\def\csname A4\endcsname - {\ifonecol\hsize16cm\pagewd\hsize - \else\hsize9cm\intercolwd.5cm - \pagewd\hsize - \advance\pagewd\hsize - \advance\pagewd\intercolwd - \fi\colwd\hsize \vsize25cm} -% -\def\onecol{\maxcols=1 \xcol=1 - \onecoltrue\A4 - \hyphenchar\tentt='055 %`- - \hyphenchar\ninett='055 - \hyphenchar\eighttt='055 - \tolerance500 - \hbadness=499 - \hfuzz=4pt -} -% -\def\twocol{\maxcols=2 \xcol=1 - \onecolfalse\A4 - \hyphenchar\tentt='055 - \hyphenchar\ninett='055 - \hyphenchar\eighttt='055 - \tolerance500 - \hbadness=499 - \hfuzz=5pt -} -%Personalisation -\author{Kees van der Laan} -\address{Hunzeweg {\oldstyle57}\\ - {\oldstyle9893} PB Garnwerd\\ - The Netherlands} -\netaddress{cgl@rc.service.rug.nl} -\telephone{{\oldstyle31\thinspace{\rm(}0{\rm)}% - 594\thinspace62\thinspace1525}} -\crowner{cgl} -\businessaccount{Giro: C.G. van der Laan - no {\oldstyle1321224}} -\def\logo{\copy\ntglogobox}%a \vbox -%end Personalisation -\def\bluetex{blue.tex} -%\catcode`\@=12 -\hoffset-1cm \voffset-1cm -\parindent1pc -\let\titlefont\bf -\let\headfont\bf -\let\subheadfont\bf -\let\subsubheadfont\bf -\let\subtitlefont\rm -\twocol -%\endinput -%;nonum -%Contents ppt cgl@rc.service.rug.nl -%- OTR -% \boxcs........................14 -% \setboxcs.....................15 -% \newboxcs.....................16 -% \midpage...................21-28 -% \headline..................30-31 -% \footline..................34-36 -% \pagenumber...................33 -% \today.....................37-41 -% \newcol.......................42 -% \newpage...................44-49 -% \incrcoloffset.............53-55 -% \output....................57-72 -%- Markup structures -% \title, \subtitle.............75 -% \author.......................76 -% \address, \netaddress.........77 -% \issue........................77 -% \thisscript, \everyscript.....78 -% \prehead, \posthead...........79 -% \presubhead...................80 -% \presubsubhead................81 -% \pasteupkeywords..............82 -% \pasteupabstract..............83 -% \pasteupcontents..............84 -% \beginscript.............101-110 -% \endscript...............111-114 -% \notlastscript...............115 -% \lastscript..................116 -% \prehead.................117-119 -% \posthead................120-121 -% \presubhead..............124-126 -% \beginhead...............122-123 -% \endhead.....................124 -% \beginsubhead............127-128 -% \endsubhead..................129 -% \beginsubsubhead.........133-134 -% \endsubsubhead...............135 -% \script..................159-161 -% \head....................151-153 -% \subhead.................154-156 -% \subsubhead..............157-158 -% \ignorepars..............159-160 -% \sraperongi..................161 -% \ignorewhitespace........162-169 -%- Miscellaneous -% \tubissue....................201 -% \\...........................202 -% \makesignature...........203-209 -% \on...................... -% \ona..................... -%- Defaults -% \onecol..................251-263 -% \twocol..................265-277 -%- Initializations 278-289 -% \author......................278 -% \address.................279-280 -% \netaddress..............281-282 -% \headfont....................286 -% \subheadfont.................287 -% \subsubheadfont..............288 -% \parindent...................285 -% \hoffset, \voffset...........284 -% -%Split-off---inner level---are -% - tugboat.cmn abbreviations -% - size switching macros -% - \beginquote...\endquote -% - \bitem (essentially plain's \item) -% - verbatim mode macros -% - (bibliography macros, -% \beginbtable...\endbtable, -% ...) -%Author: C.G van der Laan -% Hunzeweg 57, 9893P -% Garnwerd The Netherlands -% cgl@rc.service.rug.nl, 0594621525 -% -%History of changes -%March 1996 \on, \ona added -%Dec 1994 \global\advance\count0\@ne -% changed into plain's \advancepageno. -% Phil Taylor's -% \ignorewhitespace has been included. -% Parameterization over -% \headlinesep, \footlinesep. -% \makesignature's \diamond -% changed into \copyright. -%July 1994 No parameter separators for -% \head etc. -% \beginscript, \endscript instead -% of \article, \endarticle. -% Token variables for \prehead -% \posthead, \presubhead -% \presubsubhead. -%June 1994 Name changed into ppt.tex -%May 94 \runhead and \runfoot changed -% into \headline and \footline -% compatible with plain. -%March 94 Essential set up -%end%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ppt.tex%;newcol -% -% -% -%begin%%%%%%%%%%%%%%%%%%%%%%%%%Additions% -%Additions to ppt -%Shortcuts ;numvrb -\let\ea=\expandafter\let\nx=\noexpand -\let\ag=\aftergroup -\def\dash{--}\def\Dash{---} -\newtoks\contentsname -\newtoks\abstractname -\newtoks\keywordsname -\newtoks\acknowledgementsname -\newtoks\preacknowledgements -\preacknowledgements{\bigbreak\leftline{\bf - \the\acknowledgementsname}\nobreak - \medskip\noindent} -\newtoks\postacknowledgements -\def\DeK{D\kern-.11em\lower.5ex\hbox - {E}\kern-.1em K} %;vrblin=50 -\def\tiny{\fiverm\baselineskip7pt minus1pt - \let\it\fivei\let\bf\fivebf\def\oldstyle - {\fam1 \fivei}} %;vrblin=200 -%\pagenumber{\folio} -\newcount\fcnt -\def\ftn{\global\advance\fcnt1 - \footnote{${}^{\oldstyle\the\fcnt}$}} -\def\vfootnote#1{\insert\footins - \bgroup\interlinepenalty - \interfootnotelinepenalty - \splittopskip\ht\strutbox - \splitmaxdepth\dp\strutbox - \floatingpenalty\@MM - \leftskip\z@skip - \rightskip\z@skip - \spaceskip\z@skip - \xspaceskip\z@skip -%mods cgl -\small\noindent\llap{\oldstyle - #1\enspace}% -%end mods cgl - \footstrut\futurelet\next\fo@t -} -%LaTeX things ;vrblin=250 -%\def\\{\hfil\break} -\def\cite#1{(#1)} -\def\verb{} -\def\em{\it} -\def\cs#1{{\tt\char92 #1}} -%Some layout macros ;vrblin=300 -\newbox\keywordsbox -\keywordsname{Keywords} -% -\def\beginkeywords{\setbox\keywordsbox - \vbox\bgroup\subhead{\sevenbf - \the\keywordsname: }\small} -% -\def\endkeywords{\egroup} -% -\def\keywords#{\beginkeywords\bgroup - \aftergroup\endkeywords - \afterassignment\ignorespaces - \let\dummy=} -% -\newbox\abstractbox -%\abstractname{Abstract} -% -\def\beginabstract{\setbox\abstractbox - \vbox\bgroup\centerline{\sevenbf - \the\abstractname}\beginquote\small} -% -\def\endabstract{\endquote\egroup} -% -\def\abstract#{\beginabstract\bgroup - \aftergroup\endabstract - \afterassignment\ignorespaces - \let\dummy=} -% -\newbox\contentsbox -% -\let\se\quad\let\sse\qquad -% -\def\begincontents{\setbox\contentsbox - \vbox\bgroup\small\noindent - \the\contentsname\par\obeylines} -% -\def\endcontents{\egroup} -% -\def\contents#{\begincontents\bgroup - \aftergroup\endcontents - \afterassignment\ignorespaces - \let\dummy=} -% -\newbox\acknowledgementsbox -% -\def\beginacknowledgements{\setbox - \acknowledgementsbox=\vbox\bgroup} -% -\def\endacknowledgements{\egroup - \the\postacknowledgements} -% -\def\acknowledgements#{\beginacknowledgements - \bgroup\aftergroup\endacknowledgements - \afterassignment\ignorespaces - \let\dummy=} -% -\def\beginquote{\endgraf\bgroup\narrower - \smallbreak\noindent} -% -\def\endquote{\smallbreak\egroup\endgraf - \noindent} -% -\def\quote#{\beginquote\bgroup - \aftergroup\endquote - \afterassignment\ignorespaces - \let\dummy=} -% -\def\beginsummary{\beginquote - \narrower\sl} -% -\def\endsummary{\endquote\bigskip} -% -\def\summary#{\beginsummary\bgroup - \aftergroup\endsummary - \afterassignment\ignorespaces - \let\dummy=} -% -\def\begincenter{\bgroup\smallskip -\leftskip0pt plus1fill -\rightskip0pt plus 1fill -\parfillskip0pt -\obeylines} -% -\def\endcenter{\smallskip\egroup} -\def\center#{\begincenter\bgroup - \aftergroup\endcenter - \afterassignment\ignorespaces - \let\dummy=} -% -\def\begincenterblock{\bgroup - \let\par\cr\obeylines\startcenterblock} -{\obeylines\gdef\startcenterblock#1 - {$$#1\vbox\bgroup\halign\bgroup% - &##\hfil\cr}} -% -\def\endcenterblock{\egroup\egroup$$ - \egroup} -% -\def\begindisplaycenterline{% - $$\hbox\bgroup} -% -\def\enddisplaycenterline{\egroup$$} -% -\def\displaycenterline#{% - \begindisplaycenterline\bgroup - \aftergroup\enddisplaycenterline - \afterassignment\ignorespaces - \let\dummy=} -% -\def\begincenterdisplay{\csname - begindisplay\endcsname\vbox\bgroup} -% -\def\endcenterdisplay{\crcr\egroup\egroup$$} -% -% %;vrblin=350 -\def\bitem{\item{$\bullet$}} -% -\newcount\itemno -% -\def\nitem{\bgroup - \def\nitem{\advance\itemno1 - \item{\the\prenum{\oldstyle\the\itemno - }\the\postnum}} - \def\smallbreak{\endgraf\egroup - \smallbreak} - \let\smallskip\smallbreak\nitem} -% -\def\aitem{\bgroup\itemno96 - \def\aitem{\advance\itemno1 - \item{\char\itemno.}} - \def\smallbreak{\endgraf\egroup - \smallbreak} - \let\smallskip\smallbreak - \aitem} -% -\def\Aitem{\bgroup\itemno64 - \def\Aitem{\advance\itemno1 - \item{\char\itemno.}} - \def\smallbreak{\endgraf\egroup - \smallbreak} - \let\smallskip\smallbreak - \Aitem} -% -\def\endlist{\endgraf\egroup} -%On purpose no \smallskip or so. -% -\newtoks\thisexample -\newtoks\everyexample -\newtoks\preexample -\newtoks\postexample -\newtoks\examplename -% -\preexample{\vskip0pt plus5ex - \penalty-100\vskip0pt plus-5ex - \medbreak\noindent} -% -\postexample{\nobreak\par\noindent - \ignorewhitespace} -% -\def\beginexample{\the\preexample\bgroup - \the\examplename\kern1ex\sl - (\ignorewhitespace} -% -\def\endexample{)\egroup\the\postexample} -% -\def\example#{\beginexample\bgroup - \aftergroup\endexample - \afterassignment\ignorewhitespace - \let\dummy=} -%and the limited variants -\def\limexample#1{\the\preexample - \the\examplename\kern1ex{\sl(#1)}\nobreak - \par\noindent\ignorewhitespace} -%with as tribute to manmac -\def\blueexample#1\par - {\limexample{#1\unskip}} -% -\def\endintermezzo{\hfil\break\nobreak - {\bf End intermezzo.}\medbreak} -%For in \onecol -%;numvrb400 -\def\begindemo{\endgraf\line\bgroup - $\vcenter\bgroup\hsize.475\hsize - \beginverbatim} -% -\def\yields{\endverbatim - \global\thisverbatim{}\egroup$ - \kern\gutter - $\vcenter\bgroup\hsize.55\hsize} -% -\def\enddemo{\egroup$\hss\egroup} -%;numvrb500 -\def\pagenorepresentation#1{\quad\dotfill - {\oldstyle#1}} -% -\def\fbox#1{\setbox0\hbox{\strut - $\;$#1$\,$}\leavevmode\rlap{\copy0}% - \makelightbox} -%Knuth's frac Ex 11.6 -\def\frac#1/#2{\leavevmode\kern.1em - \raise.5ex\hbox{\the\scriptfont0 #1}% - \kern-.1em/\kern-.15em\lower.25ex - \hbox{\the\scriptfont0 #2}} -%Defaults -\let\small\eightpoint -\overfullrule=0pt -%;nonum -%Contents -%Newcount -% \itemcnt.................208 -%Newtoks -% \itemtag.................209 -%Shortcuts -% \ea, \nx....................1 -% \ag.........................2 -% \dash, \Dash................3 -% \DeK.....................6, 7 -%Font switching -% \tiny......................51 -% \small....................414 -% \cs.......................255 -%Footnote, paragraph -% \ftncnt...................202 -% \ftn..................203-204 -%LaTeX -% \\........................251 -% \cite.....................252 -% \verb.....................253 -% \em.......................254 -%Lay-out -% \keywordsbox..............301 -% \abstractbox..............311 -% \contentsbox..............321 -% \beginkeywords........303-305 -% \endkeywords..............306 -% \keywordsname.............302 -% \keywords.............307-310 -% \beginabstract........313-315 -% \endabstract..............316 -% \abstractname.............312 -% \abstract.............317-320 -% \begincontents........323-325 -% \endcontents..............326 -% \contentsname.............322 -% \contents.............327-330 -% \beginsummary......... -% \endsummary............... -% \summary.............. -% \beginquote...........331-332 -% \endquote.............333-334 -% \quote................335-338 -%Centering texts -% \begindisplaycenterline -% \enddisplaycenterline -% \displaycenterline -% \begincenter -% \endcenter -% \center -% \begincenterblock -% \endcenterblock -% \begincenter..........339-342 -% \endcenter................343 -% \center...............344-347 -% -% \bitem....................351 -% \itemno...................352 -% \nitem................353-359 -% \aitem................360-366 -% \Aitem................367-373 -% \endlist..................374 -% \example..............376-378 -% \endintermezzo........379-380 -% \begindemo............401-403 -% <escape char>yields...405-408 -% \enddemo..................410 -%Parameterization ToC setting -% \pagenorepresentation.501-502 -%Built on manmac -% \fbox.................504-505 -%Defaults -% \overfullrule=0pt.........507 -% -%History of changes -%Jan 95 \xyz and \partlogo to tools.dat -% \pagenorepresentation added -%July 1994 Boxes for keywords, abstract, -% and contents added. -%March 1994 Set up -%end%%%%%%%%%%%%%%%%%%%%%%%%%%%Additions%;newpage -% -% -% -%begin%%%%%%%%%%%%%%%%%%%%%%%math extras% -%From Math into BLUes the mods -%-- \centering into \centeringp -% in order not to -% conflict with LaTeX -%-- \eqalign has gotten a repetitive -% template to allow for more -% than one alignment point. -%-- arrows for commutative diagrams -%-- Knuth's typographer's half -%-- prime for accenting summation symbols -%-- Poor man's symbols -% blackboard, grtlss, ext tensor prod. -\newskip\centeringp%plain's -\centeringp=0pt plus1000pt minus1000pt -\def\eqalign#1{\null\,\vcenter{\openup - \jot\m@th\ialign{\strut\hfil - $\displaystyle {##}$&&%mod cgl - $\displaystyle {{}##}$\hfil\crcr - #1\crcr }}\,} -\def\eqalignno#1{\displ@y - \tabskip\centeringp - \halign to\displaywidth{\hfil - $\@lign\displaystyle{##}$\tabskip\z@skip - &$\@lign\displaystyle{{}##}$\hfil - \tabskip\centeringp &\llap{$\@lign##$}% - \tabskip\z@skip\crcr - #1\crcr}} -\def\leqalignno#1{\displ@y - \tabskip\centeringp - \halign to\displaywidth {\hfil - $\@lign\displaystyle{##}$\tabskip\z@skip - &$\@lign\displaystyle{{}##}$\hfil - \tabskip\centeringp&\kern-\displaywidth - \rlap{$\@lign ##$}\tabskip\displaywidth - \crcr #1\crcr}} -% -\def\fracdek#1/#2{\leavevmode\kern.1em - \raise.50ex\hbox{\the\scriptfont0 #1} - \kern-.1em/\kern-.15em\lower.25ex - \hbox{\the\scriptfont0 #2}} -% -\def\lllongrightarrow{\relbar\joinrel% - \relbar\joinrel\relbar\joinrel% - \relbar\joinrel\rightarrow} -\def\llongrightarrow{\relbar\joinrel% - \relbar\joinrel\rightarrow} -\def\adaptedbaselines{% - \baselineskip20pt - \lineskip3pt - \lineskiplimit3pt} -\def\mapright#1{\smash{\mathop{ - \llongrightarrow}\limits^{#1}}} -\def\lmapright#1{\smash{\mathop{ - \lllongrightarrow}\limits^{#1}}} -\def\mapdown#1{\Big\downarrow - \rlap{$\vcenter{\hbox{$#1$}}$}} -\def\mapup#1{\Big\uparrow - \rlap{$\vcenter{\hbox{$#1$}}$}} -% -\def\acclap#1{{}^{\rlap{$\scriptstyle - #1$}}} -% -\def\cfsymbol{\vbox{\hbox to \wd0{\hss - \vrule height1.5\ht0} - \hrule - \hbox to \wd0{\vrule depth1.5\ht0 - \hss}}} -%Space saving variant continued fraction -\def\cf#1#2{\setbox0=\hbox{$#1\,\over - \,#2$}\vcenter{\cfsymbol}\kern-\wd0 - {#1\atop#2}} -% -\def\IN{{\rm I\kern-.5ex N}} -\def\Z{{\rm Z\kern-.9ex Z}} -\def\Q{{\rm\kern.2ex\vrule - height1.5ex depth-.1ex - width.4pt\kern-.7ex Q}} -\def\R{{\rm I\kern-.5ex R}} -\def\C{{\rm\kern.3ex\vrule - height1.5ex depth-.05ex - width.4pt\kern-.7ex C}} -\def\gtrless{\mathrel{\vcenter{ - \offinterlineskip\hbox{${>}$}% - \kern-.2ex\hbox{${<}$} } }} -\def\boxit#1{\vbox{\hrule\hbox{% <--!! - \vrule#1\vrule}\hrule}} -\def\boxtimes{\mathbin{\boxit - {$\times$}}} -%end%%%%%%%%%%%%%%%%%%%%%%%%%math extras%;newpage -% -% -% -%begin%%%%%%%%%%%%%%%%%%%%%%%%%%%%%icons% -%From icons via LaTeX's fonts. -%Here use is made of gkpmac's picture -%environment. -\def\icmat#1#2{%ICon MATrix(rectangular) -%#1 is ht of icon matrix, e.g. 4 -%#2 is wd of icon matrix, e.g. 2 -\vbox{\hrule - \hbox to#2\unitlength{\vrule - height#1\unitlength\hfil\vrule}% - \hrule}% -}%end icmat -% -\def\icurt#1#2{%IConUpperRightTriangle -%#1 is ht of icon matrix, with UT -%the upper triangular part, e.g. 4 -%#2 is wd of icon (upper triangular) -%matrix, e.g. 2 -\vbox to #1\unitlength{\hrule - \hbox{\gkpbeginpicture(#2,#2)(0,0)% - \put(0,#2){\line(1,-1){#2}}% - \gkpendpicture\vrule}% - \vss}% -}%end icurt -% -\def\squineicurt#1#2{%IConUpperRightTriangle -%#1 is ht of icon matrix, with UT -%the upper triangular part, e.g. 4 -%#2 is wd of icon (upper triangular) -%matrix, e.g. 2 -%For small diaglines -\csname newcount\endcsname\half -\half#2 \divide\half 2 -\vbox to #1\unitlength{\hrule - \hbox{\gkpbeginpicture(#2,#2)(0,0)% - \put(0,0){\squine(0,\the\half,#2,#2,% - \the\half,0)}% - \gkpendpicture\vrule}% - \vss}% -}%end icurt -\def\icllt#1#2{%IConLowerLeftTriangle -%#1 is ht of icon matrix, with LT -%the lower triangular part, e.g. 4 -%#2 is wd of icon (lower triangular) -%matrix, e.g. 2 -\vbox to #1\unitlength{\vss - \hbox{\vrule - \gkpbeginpicture(#2,#1)(0,0)% - \put(0,#2){\line(1,-1){#2}}% - \gkpendpicture}% - \hrule}% -}%end icllt -% -\def\icuh#1#2#3{%IConUpperHessenberg -%#1 is size of icon matrix, with UH -% the upper Hessenberg part, e.g. 4 -%#2 is wd of icon (upper Hesenberg) -% matrix, e.g. 1 -%#3 is size Lower Left triangular part, -% #1-#2 (for simplicity the latter is added, -% could have been calculated, perhaps some -% inconsistency test could be incorporated) -\vbox{\offinterlineskip - \hrule - \hbox to#1\unitlength{\vrule height% - #2\unitlength depth0pt\relax - \hfil\vrule}% - \hbox to#1\unitlength - {\gkpbeginpicture(#3,#3)(0,0)% - \put(0,#3){\line(1,-1){#3}}% - \gkpendpicture\hfil\vrule}% - \hbox to#1\unitlength{\hfil\vrule - width#2\unitlength height.2pt\relax}% - }% -}%end icuh -%Example of use -%\input blue.tex -%\beginscript -%\unitlength=1ex -%$$\icmat44\kern\unitlength\icllt44= -% \icllt44\icuh413\qquad AL=LH$$ -%$$\icmat63=\icmat63\kern\unitlength -% \icurt63\qquad A=QR$$ -%\endscript -%end%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%icons%;newpage -% -% -% -%begin%%%%%%%%%%%%%%%%%%%%%%%%%%%%btable% -%Table Diversions cgl@rc.service.rug.nl -%EuroTeX '92 proceedings, MAPS92.2. -%The article discusses typsetting tables -%via plain, surveys related work, -%introduces the file btable.tex, and -%provides a discipline for typesetting -%cell-blocks. -%;numvrb -\newbox\btablebox -\newtoks\thisbtable\newtoks\everybtable -\newtoks\prebtable\newtoks\postbtable -%Cell vertical size, -%row height and depth (separation implicit), -\newdimen\cvsize -\newdimen\tsht \newdimen\tsdp -\newdimen\tvsize\newdimen\thsize -%Parameter setting macros: Rules -\def\hruled{\def\lineglue{\hrulefill} - \def\colsep{}\def\rowsep{\hrule} - \let\rowstbsep=\colsep - \let\headersep=\rowsep} -\def\vruled{\def\lineglue{\hfil} - \def\colsep{\vrule}\def\rowsep{} - \let\rowstbsep=\colsep - \let\headersep=\hrule} -\def\ruled{\def\lineglue{\hrulefill} - \def\colsep{\vrule}\def\rowsep{\hrule} - \let\rowstbsep=\colsep - \let\headersep=\rowsep} -\def\nonruled{\def\lineglue{\hfil} - \def\colsep{}\def\rowsep{} - \def\rowstbsep{\vrule} - \def\headersep{\hrule}} -\def\dotruled{\def\lineglue{\dotfill} - \def\rowsep{\hbox to\thsize{\dotfill}} - \def\colsep{\lower1.5\tsdp\vbox to - \cvsize{\leaders\hbox to0pt{\vrule - height2pt depth2pt width0pt\hss.\hss} - \vfil}} - \let\rowstbsep=\colsep - \let\headersep=\rowsep} -%Parameter setting macros: -% Controling positioning -\def\ctr{\def\lft{\hfil}\def\rgt{\hfil}} -%Centered -\def\fll{\def\lft{} \def\rgt{\hfil}} -%Flushed left -\def\flr{\def\lft{\hfil}\def\rgt{}} -%Flushed right -%Parameter setting macros: Framing -\def\framed{\let\frameit=\boxit} -\def\nonframed{\def\frameit##1{##1}} -\def\dotframed{\let\frameit=\dotboxit} -%;vrblin=100 -\def\beginbtable{\vbox\bgroup -\ifx\empty\rowstblst \let\rsl=\rowstblst -\else\ea\def\ea\rsl\ea{\rowstblst{}}%Append with sentinel -\fi\ifx\empty\template\ifx\empty\rsl - \def\template{\colsepsurround - \lft####\rgt&&\lft####\rgt\cr} - \else\def\template{\colsepsurround - ####\hfil&&\lft####\rgt\cr}\fi -\fi -\def\tstrut{\vrule height\tsht - depth\tsdp width0pt} -%Logical mark up of column and -%row separators, via use of -\def\cs{&\colsepsurround\colsep - \colsepsurround&} -\def\prs{&\colsepsurround\lineglue&} -\def\srp{&\lineglue\colsepsurround&} -\def\rs{\colsepsurround\tstrut\cr - \ifx\empty\rowsep - \else\noalign{\rowsep}\fi - \ifx\empty\rsl - \else\ea\nxtrs\fi} -\def\grs{\colsepsurround\tstrut\cr\ghostrow} -\def\ghostrow{\rss\prs\logms2\lineglue\cr\nxtrs} -\def\rss{&\colsepsurround\rowstbsep - \colsepsurround&} -\def\hs{\colsepsurround\tstrut\cr - \ifx\empty\headersep - \else\noalign{\headersep}\fi - \ifx\empty\rsl\else\ea\nxtrs\fi} -\the\everybtable\relax -\the\thisbtable\relax -\cellsize -\tsht=.775\cvsize\tsdp=.225\cvsize -\setbox\btablebox=\vbox\bgroup - \tabskip=0pt\relax\offinterlineskip - \halign\bgroup - \span\template\ifx\empty\first - \ifx\empty\rsl - \else\ifx\empty\header - \else\ea\rss\fi - \fi\else\first\ea\rss\fi - \ifx\empty\header - \ifx\empty\first - \ifx\empty\rsl\else - \ea\nxtrs\fi\else\ea\hs\fi - \else\header\tstrut\ea\hs\fi}% -%end \beginbtable -%;vrblin=200 -\def\endbtable{\colsepsurround - \tstrut\crcr\egroup\egroup - %end setbox - \global\thsize=\wd\btablebox - \global\tvsize=\ht\btablebox - \global\advance\tvsize by\dp\btablebox - \the\prebtable - \ifx\btablecaption\empty - \else\hbox to\thsize{\strut\hfil - \btablecaption\hss}\captionsep\fi - \frameit{\copy\btablebox} - \ifx\footer\empty - \else\footersep\hbox to\thsize{\strut - \footer\hss}\fi - \egroup\the\postbtable - \thisbtable={}}% -%end \endbtable -% -\def\btable#1{\beginbtable#1\endbtable} -%Defaults %;vrblin=300 -\def\cellsize{\cvsize=4ex - \tsht=.775\cvsize\tsdp=.225\cvsize} -%\cellsize -\def\colsepsurround{\kern.5em} -\def\btablecaption{} -\def\first{} -\def\header{} -\def\rowstblst{} -\def\footer{} -\def\captionsep{\medskip} -\def\headersep{\hrule} -\def\footersep{\smallskip} -\def\rowstbsep{\vrule} -\def\template{} -\ctr -\nonruled -\nonframed -%end Defaults -%Auxiliaries %;vrblin=350 -\def\boxit#1{\vbox{\hrule\hbox{\vrule - \vbox{#1}\vrule}\hrule}} -\def\dotboxit#1{\vbox{\offinterlineskip - \hbox to\thsize{\dotfill}% - \hbox{\lower\dp\btablebox\vbox to\tvsize{% - \xleaders\hbox to0pt{\hss\vrule - height1.5pt depth1.5pt width0pt.\hss - }\vfil}% - \vbox{#1}\lower\dp\btablebox\vbox to\tvsize{% - \xleaders\hbox to0pt{\hss\vrule - height1.5pt depth1.5pt width0pt.\hss - }\vfil}}% - \hbox to\thsize{\dotfill}}} -%And to account for logical columns with -%\logms% logical multispan -\def\spicspan{\span\omit} -\def\logms#1{\omit\mscount=#1\multiply - \mscount by2 \advance\mscount by-1 - \loop\ifnum\mscount>1 - \spicspan\advance\mscount by-1 - \repeat} -%To process FIFO -\def\fifo#1{\ifx\ofif#1\ofif\fi - \process{#1}\fifo} -\def\ofif#1\fifo{\fi} -%To handle row stub list -\def\nxtrs{\ifx\empty\rsl - \else\def\nxtel{\ea\nrs\rsl\srn}% - \ea\nxtel\fi}%next Row Stub -\def\nrs#1#2\srn{\gdef\rsl{#2}#1\rss} -%\endinput %btable -%;nonum -%Contents btable.tex -%Newbox -% \btablebox..................1 -%Newtoks -% \thisbtable, \everybtable...2 -% \prebtable, \postbtable.....3 -%Parameter setting: rules -% \hruled.................10-13 -% \vruled.................14-17 -% \ruled..................18-21 -% \nonruled...............22-25 -% \dotruled...............26-33 -%Parameter setting: positioning -% \ctr.......................36 -% \fll.......................38 -% \flr.......................40 -%Parameter setting: framing -% \framed....................43 -% \nonframed.................44 -% \dotframed.................45 -%User macro -% \beginbtable..........101-148 -% \endbtable............201-217 -% \btable...................219 -%Defaults -% \cellsize.............301-303 -% \colsepsurround...........304 -% \btablecaption............305 -% \first....................306 -% \header...................307 -% \rowstblst................308 -% \footer...................309 -% \captionsep...............310 -% \headersep................312 -% \footersep................312 -% \rowstbsep................314 -% \template.................314 -% \ctr......................320 -% \nonruled.................321 -% \nonframed................322 -%Auxiliaries -% \boxit................351-352 -% \dotboxit.............353-363 -% \spicspan.................366 -% \logms................367-371 -% \fifo.................373-374 -% \ofif.....................375 -% \nxtrs................377-379 -% \nrs......................380 -% -%History of changes -%Version -%December 1994 -%\rowstblst (and \rsl): -% no longer does last element of list -% need extra braces. -%\postbtable is token variable -%to guide user positioning. -%\data omitted in the macro. -%Formatting of footer made symmetrical -%with caption. -%\dotboxit corrected such that -%vertical dotted lines are symmetrical -%July 1994 -% \cellsize is invoked in -% \beginbtable. -% Token vars for \prebtable -% \postbtable. -%June 1994 -% \beginbtable...\endbtable -% two-part macro -% \btable minimal variant -% \preinsert, \postinsert changed -% into \prebtable, \postbtable -% toks vars: \everybtable, -% \thisbtable -%Version 1.1 \btablecaption as caption -% (to prevent name clashes) -% \def\cellsize{\cvsize= -% et cetera} to be used -% as default -% and after font change. -%end%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%btable%;newpage -% -% -% -%begin%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%vrb% -%vrb.tex -%Author: C.G. van der Laan -% Hunzeweg 57, 9893PB -% Garnwerd The Netherlands -% 0594621525, cgl@rc.service.rug.nl. -%Purpose: Verbatim macros via plain, -% to be used with AnyTeX. -% ;numvrb -%User toks variables -\newtoks\thisverbatim -\newtoks\everyverbatim -\newtoks\preverbatim -\newtoks\postverbatim -% -%User customization -\preverbatim{\medskip} -\postverbatim{\smallbreak} -% ;vrblin100 -%User `options': \numvrb -\newcount\vrblin -\def\numvrb{\vrblin0 - \everypar{\advance\vrblin1 - \llap{\sevenrm\the\vrblin\quad}}} -\def\nonum{\everypar={}} -% : \emc, \unmc -\def\makeescape#1{\catcode`#1=0 } -\def\makeactive#1{\catcode`#1=13 } -{\makeactive\< - \gdef\emc{\makeactive\<% - \def<##1>{$\langle##1\rangle$}}} -\def\unmc{\catcode`\<=12 }%;vrblin200 -%User macro -\def\beginverbatim{\begingroup - \the\preverbatim\tt\setupverbatim - \the\everyverbatim\relax - \the\thisverbatim\relax - \verbatimgobble} -% -\def\endverbatim{\the\postverbatim - \endgroup\global\thisverbatim={}} -% -\def\setupverbatim{%\makeactive\`% - \let\!=!\makeescape\!%Knuth&Levy - \def\par{\leavevmode\endgraf}%TB381 - \parskip0pt - \obeylines\uncatcodespecials - \obeyspaces} -% -{\obeyspaces\global\let =\ \catcode`\^=7 - \obeylines\gdef\verbatimgobble#1^^M{}% -%\makeactive\` \gdef`{\relax\lq}%TB381 -}% -\def\uncatcodespecials{\def\do##1{% - \catcode`##1=12 }\dospecials} -% -\def\math{\bgroup$\catcode`\_=8\relax - \catcode`\^=7\relax} -\def\endmath{$\egroup} -% -\def\verbatim#{\beginverbatim\bgroup - \aftergroup\endverbatim - \afterassignment\ignorespaces - \let\dummy=} -% ;vrblin250 -%Minimal | tag for inline verbatim -\def\vrt{{\tt\char`\|}}\makeactive\| -\def|{\bgroup\tt\setupverbatim - \the\everyverbatim\relax - \the\thisverbatim\relax - \def|{\egroup\thisverbatim{}}} -%;\vrblin300 -%centering verbatims -\def\boxlines{\obeyspaces\fifol} -%\gdef\fifol#1^^M{\ifx\lofif#1\lofif\fi -% \processl{#1}\fifol} -\def\begincenterverbatim{$$% - \def\processl##1{\hbox{##1}}% - \def\lofif##1\fifol{\fi\egroup - \egroup$$\thisverbatim{}} - \let\endcenterverbatim\lofif - \bgroup\tt\setupcopy - \let\!=!\catcode`\!=0 - \the\everyverbatim\the\thisverbatim - \vbox\bgroup\boxlines} -% -{\obeylines\gdef\fileverbatim#1{% - \thisverbatim{\input#1}\beginverbatim - \endverbatim -}} -\def\bluefileverbatim#1\par{\fileverbatim{#1}} -%Default -\everyverbatim{\baselineskip12pt - plus2ptminus1pt - \lineskip1ptplus1ptminus1pt} -%\endinput -% ;nonum -%Contents vrb.tex cgl@rc.service.rug.nl -%Newtoks -% \thisverbatim.................2 -% \everyverbatim................3 -% \preverbatim..................4 -% \postverbatim.................5 -%Customization -% \preverbatim..................8 -% \postverbatim.................9 -%Options -% \numvrb.................103-105 -% \vrblin.....................104 -% \nonum......................106 -% \makeescape.................108 -% \makeactive.................109 -% \emc....................111-112 -% \unmc.......................113 -% <#1>........................112 -%User macro -% \beginverbatim..........202-206 -% <esc char>endverbatim...208-209 -% \verbatim...............228-231 -% \setupverbatim..........211-215 -% \verbatimgobble.............218 -% `...........................219 -% \uncatcodespecials..........221 -% <escape char>math.......224-225 -% <escape char>endmath....... 226 -% \begincenterverbatim....305-313 -%Inline verbatim -% \vrt........................252 -% vertical bar symbol...... ..253 -%Files -% \bluefileverbatim........... -% -%History of changes -%March 1996 \bluefileverbatim added -%July 1994 Version 2 -% \pre- and \postverbatim -% changed into token vars. -% Added -% \unmc, unable metacode -% \verbatim minimal tag -% <escape char>math -% <escape char>endmath -%Febr 1994 Release Version 1.0 -%end%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%vrb%;newpage -% -% -% -%begin%%%%%%%%%%%%%%%%%%%%%%bibliography% -%From BLUe's Bibliography%;numvrb -%\ls<name> template -\newcount\bcnt -\def\lsstraight{\let\ls\nitem} -% -%\ls a la AMS -% -\newcount\suffixcnt -\def\lsams{\frenchspacing - \let\lstnme\relax \let\lstyear\relax - % - \def\ls##1{\ea\bibitem##1} - % - \def\bibitem##1(##2){% - \def\authornme{##1}% - \def\authoryear{##2}% - \ifx\lstnme\authornme - \def\authornme{------}% - \ifx\lstyear\authoryear - \global\advance\suffixcnt1 - \def\authoryear{--}% - \else\let\lstyear\authoryear\suffixcnt0 - \fi - \else\let\lstnme\authornme - \let\lstyear\authoryear\suffixcnt0 - \fi\nitem\authornme$\,$% - (\authoryear\suffix)}%end \bibitem -% -\def\suffix{\ifcase\suffixcnt\or a\or b\or - c\or d\or e\or f\or g\or h\or i\or j\or - k\or l\or m\or n\or o\or p\or q\or r\or - s\or t\or u\or v\or w\or x\or y\or z\fi} -} %;vrblin100 -%Loading -%Load selected entries -\def\gobble#1{} -\def\loadselectivefrom#1{%#1 lit etc. - \def\lst##1{\ifx##1\undefined\ea\gobble - \else \ea\gdef\ea##1\fi} - \input #1.dat \relax%e.g. lit.dat - } %;vrblin200 -\newif\ifstore \storetrue -\newtoks\thisreferences -\newtoks\referencesname -\newtoks\prereferences -\newtoks\postreferences -\newtoks\referencesfile -\newbox\referencesbox -\referencesfile{lit} -%\referencesname{References} -\def\references#1{\beginreferences#1% - \endreferences} -\def\bluereferences#1\par - {\beginreferences#1\endreferences} -\def\loadreferences{\loadselectivefrom - {\the\referencesfile}} -\def\beginreferences#1\endreferences{% - \bgroup\def\process##1{\ifx\undefined##1 - \global\let##1\referenceserror\else - \message{***\tt\string##1 - already loaded.***} - \fi\namelst\ea{\the\namelst\lst##1}}% - \fifo#1\ofif - \if]#1]\else\ea\loadreferences\fi - %formatting - \ifstore\global\setbox\referencesbox= - \vbox\bgroup\fi\prenum{}\postnum{} - \lsams%Default ls - \the\thisreferences - \def\lst##1{\ls{##1} - \xdef##1{\the\itemno}} - \the\namelst\endreferences} -% -\def\referenceserror{Reference not in - database (Sorry.)\loaderror{Reference}} -% -\def\endreferences{\smallbreak\egroup - \ifstore\egroup\fi - \thisreferences{}} -% -\def\pasteupreferences{% - \the\prereferences - \unvbox\referencesbox - \the\postreferences} -% -\prereferences{\head{\the - \referencesname}} -%\postreferences{} -%;vrblin250 -%Double loading is not prevented -%instead a message is provided. -\def\beginpictures#1\endpictures{% - \def\process##1{\ifx\undefined##1 - \gdef##1{Picture {\tt\string##1} not - in database, Sorry. - \loaderror{Picture}}% - \else \message{***\string##1 - already loaded.***}% - \fi}% - \fifo#1\ofif - \loadselectivefrom{\the\picturesfile} - \commonforpic} -% -%\def\endpictures{\egroup} -% -\def\pictures#1{\beginpictures#1% - \endpictures} -\def\bluepictures#1\par - {\beginpictures#1\endpictures} -\def\loadallpictures{\input\the - \picturesfile.dat\relax\commonforpic} -% -\def\loaderror#1{\write16{#1 not in - database}} -%\endinput %;nonum -%Contents bibliography -% cgl@rc.service.rug.nl -%Newcount -% \bcnt.........................2 -% \suffixcnt....................8 -%Newif -% \ifstore....................201 -%Newtoks -% \thisreferences.............202 -% \referencesname........203, 206 -% \prereferences.........204, 234 -% \postreferences.............205 -%Newbox -% \referencesbox..............206 -%Initializations -% \prereferences..........231-232 -% \postreferences.............233 -%\ls customization -% \lsstraight.................3-6 -% \lsams.....................9-34 -% \suffix...................30-33 -%loading -% \gobble.....................102 -% \loadselectivefrom......104-109 -%User level -% \references.............208-209 -% \beginreferences........210-225 -% \endreferences..........226-228 -% \pasteupreferences......230-233 -% \beginpictures..........251-259 -% \endpictures................260 -% \pictures...............261-262 -% \loadallpictures........263-265 -% \loaderror..............266-267 -%History of changes -%July 1994 Information supplied before -% \beginscript, past up later. -% Separate loading of pictures. -%June 1994 Simpler user interface -% \beginreferences -% \<name_1> ... \<name_n> -% \endreferences -%Created May 1994 -%end%%%%%%%%%%%%%%%%%%%%%%%%bibliography%;newpage -% -% -% -%begin%%%%%%%%%%%%%%%%%%%%%%%%Cross-Refs% -%From BLUe's Cross-Referencing -%cgl@rc.service.rug.nl %;numvrb -\newif\ifadvance \advancetrue -\newcount\frmcnt -\newtoks\prenum\newtoks\postnum -%Default prenum and postnum -\prenum{(}\postnum{)} -%Automatic numbering -\def\frmnum{\ifadvance\global\advance - \frmcnt1 \fi - \the\prenum\the\frmcnt\the\postnum} -%Automatic numbering and attaching a name -\def\ref{\frmnum\create} -%\def\create#1{\ifx#1$$\else -% \xdef#1{\the\frmcnt}\fi} -%The version, which handles also displaylines -\def\create#1{\ifx#1$$\else - \ifx#1\hfil\hfil\else - \xdef#1{\the\prenum\the\frmcnt - \the\postnum}\fi\fi} -%Citation -\newif\ifproof \prooftrue -\def\crsref#1{\ifx#1\undefined{\ifproof - \leavevmode\vadjust{\kern-1ex - \rightline{\vbox to0pt{\vss - \rlap{FR: \tt\string#1}}}}\fi} - \else#1\fi} -%;nonum -%Contents Cross-Referencing -% cgl@rc.service.rug.nl -%Newifs, newcounts -% \ifadvance, \ifproof..........1, 18 -% \frmcnt...........................2 -%Newtoks -% \prenum, \postnum.................3 -%Context -% \prenum, \postnum.................4 -%Automatic numbering, referencing -% \frmnum.........................7-9 -% \ref.............................11 -% \create.......................15-16 -%Cross referencing -% \crsref.......................19-23 -% -%History of changes -%Jan 95 \prenum and postnum values are -% stored together with the number -% by \create -%June 94 Designed. -%end%%%%%%%%%%%%%%%%%%%%%%%%%%%cross-ref%;newpage -% -% -% -%begin%%%%%%%%%%%%%%%%%%%%%%%%%%%%gkppic% -%From gkpmac (line diagrams) -% `Pictures (a subset of \LaTeX's -% conventions)' -%These macros have been used for typesetting -%`Concrete Mathematics,' among others. -% cgl@rc.service.rug.nl ;numvrb -%\catcode`@=11 % borrow the private macros -% % of PLAIN (with care) -\newskip\hsssglue -\hsssglue=0pt plus 1fill minus 1fill -\def\hsss{\hskip\hsssglue} - -\newdimen\unitlength -\newdimen\linethickness -\newdimen\@picheight \newdimen\@xdim -\newdimen\@ydim \newdimen\@len \newdimen\@save -\newcount\@multicount \newcount\@xarg -\newcount\@yarg\newbox\@picbox \newbox\@mpbox - -\font\tenln=line10 \font\tenlnw=linew10 -\font\tencirc=lcircle10 -\font\tencircw=lcirclew10 -\font\smallln=linew10 scaled 483 % magstep-4 - -\def\thinlines{\let\linefont=\tenln - \let\circlefont=\tencirc - \linethickness=\fontdimen8\linefont} -\def\thicklines{\let\linefont=\tenlnw - \let\circlefont=\tencircw - \linethickness=\fontdimen8\linefont} -\thinlines - -\def\gkpbeginpicture(#1,#2)(#3,#4){\begingroup -\@picheight=#2\unitlength \let\line=\@line - \setbox\@picbox=\hbox to#1\unitlength - \bgroup\kern-#3\unitlength - \lower#4\unitlength\hbox\bgroup - \ignorespaces} -\def\gkpendpicture{\egroup\hss\egroup - \ht\@picbox=\@picheight \dp\@picbox=\z@ - \leavevmode\box\@picbox\endgroup} - -\def\put(#1,#2)#3{\raise#2\unitlength - \rlap{\kern#1\unitlength #3}\ignorespaces} - -\def\multiput(#1,#2)(#3,#4)#5#6{\@multicount - =#5\@xdim=#1\unitlength \@ydim=#2\unitlength -\setbox\@mpbox=\hbox{#6}% - \loop\ifnum\@multicount>0 - \raise\@ydim\rlap{\kern\@xdim - \unhcopy\@mpbox}% - \advance\@xdim#3\unitlength - \advance\@ydim#4\unitlength - \advance\@multicount\m@ne - \repeat\ignorespaces} - -%makebox is replaced because its reference -%point does not coincide with LaTeX's -%\def\makebox(#1,#2)#3{\setbox\@picbox= -% \hbox to#1\unitlength{\hss#3\hss}% -% \advance\@ydim-\dp\@picbox -% \ht\@picbox=#2\unitlength -% \dp\@picbox=\z@ -% \leavevmode\lower.5\@ydim\box\@picbox} -\def\makebox(#1,#2)#3{% - \hbox to#1\unitlength{\hss - \vbox to#2\unitlength{\vss - \hbox{#3}\vss}\hss}} -%LaTeX's framebox is added -\def\framebox(#1,#2)#3{\setbox0= - \hbox to#1\unitlength{\hss - \vbox to#2\unitlength{\vss - \hbox{#3}\vss}\hss}% - \makelightbox\kern-\wd0\box0} - -\newif\ifneg -\def\@line(#1,#2)#3{\@xarg=#1 \@yarg=#2 - \@len=#3\unitlength \leavevmode - \ifnum\@xarg<0 \reverseline \else - \negfalse \@ydim=\z@\fi - \ifnum\@xarg=0 \@vline - \else\ifnum\@yarg=0 \@hline - \else\@sline\fi\fi -\ifneg\kern-\@len\else\@save=\@ydim\fi} -\def\reverseline{\negtrue \kern-\@len - \@xarg=-\@xarg - \@ydim=\@len \multiply\@ydim\@yarg - \divide\@ydim\@xarg \@yarg=-\@yarg} - -\def\@hline{\vrule height.5\linethickness - depth.5\linethickness width\@len} -\def\@vline{\kern-.5\linethickness\vrule - width\linethickness - \ifnum\@yarg<0 height\z@ depth\else - depth\z@ height\fi\@len - \kern-.5\linethickness} - -\def\@sline{\setbox\@picbox=\hbox{\linefont - \count@=\@xarg \multiply\count@ 8 - \ifnum\@yarg>0 \advance\count@\@yarg - \advance\count@-9 - \else \advance\count@-\@yarg - \advance\count@ 55 \fi - %\immediate\write0{count@=\the\count@}% - \char\count@}% - \ifnum\@yarg<0 \@picheight=-\ht\@picbox - \advance\@ydim\@picheight - \else \@picheight=\ht\@picbox \fi - \@xdim=\wd\@picbox \@save=\@ydim -%\hbox to0pt{\hss$\bullet$\hss}% - \loop\ifdim\@xdim<\@len - \raise\@ydim\copy\@picbox - \advance\@xdim\wd\@picbox - \advance\@ydim\@picheight%\immediate - %\write0{x, y: \the\@xdim, \the\@ydim}% - \repeat - \advance\@xdim-\@len \kern-\@xdim - \multiply\@xdim\@yarg - \divide\@xdim\@xarg - \advance\@ydim-\@xdim -%Mod cgl June 94 - \ifdim\@len<\ht\@picbox - \kern\wd\@picbox\else - \raise\@ydim\box\@picbox\fi} - -\def\vector(#1,#2)#3{\@line(#1,#2){#3}% - \ifnum\@xarg=0 \@vvector - \else\ifnum\@yarg=0 \@hvector - \else\@svector\fi\fi} -\def\@hvector{\ifneg\rlap{\linefont\char - 27}\else\smash{\llap{\linefont\char45}}\fi - } % we have to smash because of font bug -\def\@vvector{\ifnum\@yarg<0 - \raise-\@len\rlap{\linefont\char63}% - \else\setbox\@picbox=\rlap{\linefont - \char54}\advance\@len-\ht\@picbox - \raise\@len\box\@picbox\fi} - -\def\@svector{\setbox\@picbox=\hbox - to\z@{\linefont - \ifnum\@yarg<0 \count@=55 \@yarg=-\@yarg - \else\count@=-9 \fi - \ifneg\multiply\@xarg16 \multiply\@yarg2 - \else\hss % \llap - \ifnum\@xarg>2 \multiply\@xarg9 - \multiply\@yarg2 - \advance\count@29 - \else\ifnum\@yarg>2 \multiply\@xarg16 - \multiply\@yarg9 - \advance\count@-20 - \else\multiply\@xarg24 \multiply\@yarg3 - \fi\fi\fi - \advance\count@\@xarg - \advance\count@\@yarg \char\count@ - \ifneg\hss\fi}% \rlap - \raise\@save\box\@picbox} - -\def\disk#1{\@len=#1\unitlength - \count@='160 \@diskcirc} -\def\circle#1{\@len=#1\unitlength - \count@='140 \@diskcirc} -\def\@diskcirc{\setbox\@picbox= - \hbox{\circlefont\char\count@}% - \@xdim=\wd\@picbox \leavevmode - \ifdim\@len>15.499\@xdim \@bigdc - \else \@smalldc\fi} -\def\@bigdc{\ifnum\count@<'160 \@bigcirc - \else \@len=15\@xdim \@diskcirc\fi} -\def\@smalldc{{\advance\@len-.5\@xdim - \loop\ifdim\@xdim<\@len - \advance\count@\@ne - \advance\@xdim\wd\@picbox - \repeat - \hbox{\circlefont\char\count@}}} -\def\@bigcirc{{\circlefont\count@=15 - \setbox\@picbox=\hbox{\char\count@ - }\@xdim=\wd\@picbox - \ifdim\@len>2.5\@xdim \@len=2.5\@xdim\fi - \advance\@len-.125\wd\@picbox - \loop\ifdim\@xdim<\@len - \advance\count@4 - \advance\@xdim.25\wd\@picbox - \repeat - \@ydim=.5\@xdim - \advance\@ydim.5\linethickness - \setbox\@picbox=\vbox{\hbox{\char - \count@\advance\count@-3\char\count@}% - \nointerlineskip - \hbox{\advance\count@\m@ne\char - \count@\advance\count@\m@ne - \char\count@}}% - \kern-\@ydim\lower\@ydim\box\@picbox}} - -\newif\ifovaltl \newif\ifovaltr -\newif\ifovalbl \newif\ifovalbr -\ovaltltrue \ovaltrtrue -\ovalbltrue \ovalbrtrue -\def\oval(#1,#2){\@xdim=#1\unitlength - \@ydim=#2\unitlength - {\circlefont - \setbox\@picbox=\hbox{\char0} - \ifdim\@xdim<\wd\@picbox - \@xdim=\wd\@picbox\fi - \ifdim\@ydim<\wd\@picbox - \@ydim=\wd\@picbox\fi - \@save=\@xdim - \ifdim\@ydim<\@save \@save=\@ydim \fi - \count@=39 - \loop \setbox\@picbox=\hbox{\char - \count@}\ifdim\@save<\wd\@picbox - \advance\count@-4 - \repeat - \setbox\strutbox=\hbox{\vrule height\ht - \@picbox depth\dp\@picbox width\z@ - \kern\wd\@picbox}% - \@save=.5\wd\@picbox - \advance\@save-.5\linethickness - \setbox0=\hbox to\@xdim{\ifovaltl - \char\count@\else\strut\fi - \kern-\@save\leaders\hrule height - \ifovaltl\linethickness\else\z@\fi - \hfil - \leaders\hrule height\ifovaltr - \linethickness\else\z@\fi - \hfil\kern\@save - \ifovaltr\advance\count@-3 - \char\count@\else\strut\fi - \kern-\wd\@picbox}% - \advance\count@\m@ne - \setbox2=\hbox to\@xdim{\ifovalbl - \char\count@\else\strut\fi - \kern-\@save\leaders\hrule height - \ifovalbl\linethickness\else\z@\fi - \hfil - \leaders\hrule height - \ifovalbr\linethickness\else - \z@\fi\hfil\kern\@save - \ifovalbr\advance\count@\m@ne - \char\count@\else\strut\fi - \kern-\wd\@picbox}% - \@save=\@ydim - \advance\@save-\wd\@picbox - \divide\@save 2 - \setbox\@picbox=\vbox{\box0 - \nointerlineskip - \hbox to\@xdim{\vrule height\@save - width\ifovaltl\linethickness - \else\z@\fi - \hfil\ifovaltr\vrule - width\linethickness - \kern-\linethickness\fi}% - \nointerlineskip - \hbox to\@xdim{\vrule height\@save - width\ifovalbl\linethickness - \else\z@\fi - \hfil\ifovalbr\vrule - width\linethickness - \kern-\linethickness\fi}% - \nointerlineskip\box2}% - \@save=.5\@ydim - \advance\@save.5\linethickness - \leavevmode - \kern-.5\@xdim - \kern-.5\linethickness - \lower\@save\box\@picbox}} - -\def\begincpic#1\endcpic{\vcenter{\hbox - {\beginpicture#1\endpicture}}} - -% Squines (quadratic splines) -% example of use: to plot f(x) between -% x0 and x1, you can say -% \put(0,0){\squine(x0,xm,x1,y0,ym,y1)}, -% where y0=f(x0), y1=f(x1) -% xm=(y0-y1+s1x1-s0x0)/(s1-s0), -% ym=(s0(s1x1-y1)-s1(s0x0-y0))/(s1-s0), -% s0=f'(x0), and s1=f'(x1). - -\newdimen\@xi \newdimen\@xii -\newdimen\@xiii \newdimen\@xiv -\newdimen\@xpt \newdimen\@xoldpt -\newdimen\@yi \newdimen\@yii -\newdimen\@yiii \newdimen\@yiv -\newdimen\@ypt \newdimen\@yoldpt -\def\squineelem{.} -%\def\squineelem{\tencirc q} -\def\squine(#1,#2,#3,#4,#5,#6){\setbox - \@picbox\hbox{\squineelem}% - \global\@xoldpt=#1\unitlength - \global\@yoldpt=#4\unitlength - \kern\@xoldpt - \@xi=\@xoldpt - \@xii=#2\unitlength - \@xiii=#3\unitlength - \@yi=\@yoldpt - \@yii=#5\unitlength - \@yiii=#6\unitlength - \squinerec - \@xpt=#3\unitlength - \@ypt=#6\unitlength - \@addpoint - \raise\@ypt\copy\@picbox} -\newif\iffar -\def\squinerec{\farfalse - \testnear\@xi\@xiii \testnear\@yi\@yiii - \iffar \decast \fi} -\def\testnear#1#2{\@save=#1\advance - \@save-#2% - \ifdim\@save<\z@ \@save=-\@save\fi - \ifdim\@save>\p@ \fartrue \fi} -\def\decast{\@xpt=\@xi - \advance\@xpt\@xii \divide\@xpt2 - \advance\@xii\@xiii \divide\@xii2 - \@xiv=\@xpt - \advance\@xiv\@xii - \divide\@xiv2 - \@ypt=\@yi - \advance\@ypt\@yii - \divide\@ypt2 - \advance\@yii\@yiii - \divide\@yii2 - \@yiv=\@ypt - \advance\@yiv\@yii - \divide\@yiv2 - \begingroup\@xii=\@xpt \@xiii=\@xiv - \@yii=\@ypt \@yiii=\@yiv - \squinerec\endgroup - \@xpt=\@xiv \@ypt=\@yiv \@addpoint - \@xi=\@xiv \@yi=\@yiv \squinerec} -\def\@addpoint{% - %\message{(\the\@xpt,\the\@ypt)}% - \global\advance\@xoldpt-\@xpt - \wd\@picbox=-\@xoldpt - \raise\@yoldpt\copy\@picbox - \global\@xoldpt=\@xpt - \global\@yoldpt=\@ypt} -%Additions%;vrblin399 -\newtoks\xdim \newtoks\ydim -\newtoks\xoffset \newtoks\yoffset -\newtoks\everypicture -\newtoks\thispicture -\xoffset{0}\yoffset{0}%defaults -\def\beginpicture{\bgroup - \the\everypicture\the\thispicture - \gkpbeginpicture(\the\xdim,\the\ydim)% - (\the\xoffset,\the\yoffset)} -\def\endpicture{\gkpendpicture\egroup - \global\thispicture{}} -\def\rhombus(#1,#2)#3#4{% -%#1,#2 ratio of horizontal/vertical size, <=6 -%#3 the size in unitlengths (half of total width) -%#4 text to be put in the middle. -%The centre is the reference point, -%like \oval. -\setbox0=\hbox{\line(#1,#2){#3}}% -\setbox1=\hbox{\line(#1,-#2){#3}}% -\hbox to0pt{\hss - \vbox to0pt{\offinterlineskip\vss - \copy0\copy1\vss}% - \vbox to0pt{\vss\copy1\copy0\vss}\hss}% - \vbox to0pt{\vss - \hbox to 0pt{\hss#4\hss}\vss}} -%lu is pointing left up, -%rl is pointing roght down -\def\rdarrowhead{\hbox to 0pt{\hss - \vrule height.1ptdepth.1ptwidth.5ex - \vrule height.5ex\relax}} -\def\luarrowhead{\hbox to 0pt{\vrule - depth.5ex\relax - \vrule height.1ptdepth.1ptwidth.5ex}} -%\endinput %;nonum -% -%Contents Picture environm. named -%gkppic. cgl@rc.service.rug.nl -%Dimensions -% \unitlength......................7 -% \linethickness...................8 -% \@picheight......................9 -% \@xdim, \@ydim................9-10 -% \@xarg, \@yarg, \@len........10-12 -% \@save..........................10 -% \@picbox........................12 -% \@mpbox.........................12 -% \@xi, \@xii, \@xiii, \@xiv.270-271 -% \@xpt, \@xoldpt................272 -% \@yi, \@yii, \@yiii, \@yiv.273-274 -% \@ypt, \@yoldpt................275 -%Newifs -% \ifneg..........................70 -% \ifovaltl, \ifovaltr...........185 -% \ifovalbl, \ifovalbr...........186 -% \iffar.........................297 -%Fonts -% \tenln, \tenlnw.................14 -% \tencirc, \tencircw..........15-16 -% \smallln........................17 -%Size switching -% \thinlines, \thicklines......19-25 -%Picture environment -% \gkpbeginpicture -% (and \line in there)......27-32 -% \gkpendpicture...............33-35 -% \begincpic, \endcpic.......258-259 -% \put.........................37-38 -% \multiput....................40-49 -%Picture elements -% \makebox.....................59-62 -% \framebox....................64-68 -% \@line.......................71-78 -% \reverseline.................79-82 -% \@hline......................84-85 -% \@vline......................86-90 -% \@sline.....................92-115 -% \vector....................117-120 -% \@hvector..................121-123 -% \@vvector..................124-128 -% \@svector..................130-147 -% \disk......................149-150 -% \circle....................151-152 -% \@diskcirc.................153-157 -% \@bigdc....................158-159 -% \@smalldc..................160-165 -% \@bigcirc..................166-183 -% \oval......................189-256 -%Curves -% \squineelem................276-277 -% \squine....................278-293 -% \squinerec.................295-297 -% \testnear..................298-301 -% \decast....................302-320 -% \@addpoint.................321-327 -%Additions, compatible blue.tex conventions -%Newtoks -% \xdim, \ydim, -% \xoffset, \yoffset.........400-401 -%\everypicture, \thispicture..402-403 -%\beginpicture................406-409 -%\endpicture..................410-411 -%\rhombus.....................412-424 -%\luarrowhead.................430-432 -%\rlarrowhead.................427-429 -%History of changes -%Dec 94 \rhombus picture element added. -% \luarrowhead, \rlarrowhead added. -%Jun 94 Extensions added for compati- -% bility with blue.tex. -% \makebox adapted to LaTeX. -% \framebox added. -% \@sline adapted for case -% \@len less then \ht\@picbox -% (suppress line -% element but kern conditionally.) -% The `dot' element in \squine has -% been parameterized and initialized -% differently. -%end%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%gkppic%;newcol -% -% -% -%%%%%%%%% Amy's Diagonal line %%%%%%%%%% -\newif\ifminuswd -\newif\ifminusht -\newbox\dotwide -\newbox\dotbox -\newdimen\savehtofdiagline -\newdimen\htofdiagline -\newdimen\wdofdiagline -\newdimen\dotmove -\newdimen\newsaveht -\newdimen\savewdofdiagline -% -\def\diagline #1 #2 wd #3 ht{% -%#1 dot, e.g. . -%#2 width in units, eg 2ex -%#3 height in units, eg 3ex -%Amy Hendrickson, TB6#2, 1985 -%Comment cgl: Line thickness varies over -%the direction, nearly verticals go wrong. -\global\setbox\dotwide=\hbox{#1}% -\global\setbox\dotbox= - \hbox to0pt{\hss#1\hss}% -\global\wdofdiagline=#2\relax% -\ifdim\wdofdiagline<1sp - \global\minuswdtrue - \global\advance\wdofdiagline - by-2\wdofdiagline -\else\global\minuswdfalse%Robustness -\fi% turn neg dim to positive -\global\htofdiagline=#3\relax% -\ifdim\htofdiagline<1sp - \global\advance\htofdiagline - by-2\htofdiagline\global\minushttrue -\else\global\minushtfalse%Robustness -\fi -\global\dotmove=1pt%% -\setbox1=\hbox{% - \global\divide\htofdiagline - by\the\wdofdiagline\relax}% -\ifminuswd\rlap\bgroup% -\else\bgroup\fi% -\loop\ifdim\htofdiagline>.4pt%CGL mod -\global\divide\htofdiagline by2% -\global\divide\dotmove by2\repeat% -\global\savehtofdiagline=\htofdiagline% -\loop\ifdim\wdofdiagline>0pt% -\hskip\ifminuswd-\dotmove% - \else\dotmove\fi% -\ifminusht\lower\else\raise\fi% - \htofdiagline\copy\dotbox% -\global\advance\htofdiagline - by\savehtofdiagline% -\global\advance\wdofdiagline - by-\dotmove\repeat% -\egroup% -}% end diagonal line -\def\amyicurt#1#2{%IConUpperRightTriangle -%#1 is ht of icon matrix, -%with UT the upper triangular part, e.g. 4ex -%#2 is wd of icon (upper triangular) -%matrix, e.g. 2ex -\vbox to #1{\hrule - \hbox{\diagline . #2 wd -#2 ht\vrule}% - \vfil}% -}%end amyicurt -%endamy's diagline%%%%%%%%%%%%%%%%%%;nonum;newcol -% -% -% -\newtoks\picturesfile -\picturesfile{pic} -%;numvrb -%begin%%%%%%Generalized \samplebox -\def\point#1 #2 #3{\kern#1\unitlength - \raise#2\unitlength\hbox to0pt{\the\prefil - \the\prepoint#3\the\postfil - }\kern-#1\unitlength} -% -\def\gbox#1#2#3#4{%#1=ht,#2=dp,#3=wd -%#4=text. Assumed: the dimen vars -%\xshift, \yshift have been initialized. -%position of begin of text. -{\setbox0=\vtop{\vbox to#1{% - \hbox to#3{}\vss}\nointerlineskip - \vbox to#2{}}% -%now \box0 has the desired -%ht, dp, and wd - \hbox{\makelightbox\kern-#3% - \raise\yshift\hbox to#3{\kern\xshift - #4\hss}% - }}}%;nonum;newpage -% -% -%Turtle graphics macros added, July 1995 -%cgl@rc.service.rug.nl, July 1995 -%\newdimen\unitlength -\unitlength3ex %deault -\newdimen\unitlengthx -\newdimen\unitlengthy -\newdimen\x \newdimen\auxdim -\newdimen\leftx \newdimen\rightx -\newdimen\y \newdimen\yy -\newdimen\lefty \newdimen\righty -%\newcount\i -\newcount\k \newcount\kaux -\newcount\loccnt \newcount\modsum -\newcount\level \newcount\order -\newcount\kmax -\newcount\kk \newcount\ekk -\newcount\dir -\newbox\nel \newbox\nwl -\newbox\hlfwndelm -%\newdimen\linethickness \linethickness.2pt -\newdimen\linesize -\setbox\hlfwndelm=\hbox{\vrule - height\linethickness - width\linethickness} -\def\xy#1{%Function: place #1 at x, y - \vbox to0pt{\kern-\y - \hbox to0pt{\kern\x#1\hss}\vss}} -% -\def\xytxt#1{%Function: place text #1 at x, y - \xy{\vbox to0pt{\vss - \hbox to0pt{\strut#1\hss}\kern0pt}}} -% -\def\N#1{\xy{\kern-.5\linethickness - \vbox to0pt{\vss - \hrule height#1\unitlength - width\linethickness}}% -\advance\y#1\unitlength} -% -\def\S#1{\advance\y-#1\unitlength - {\N{#1}}} -% -\def\E#1{\xy{\vbox to0pt{\vss - \hrule width#1\unitlength - height\linethickness - depth0pt\vss -}}\advance\x#1\unitlength} -% -\def\W#1{\advance\x-#1\unitlength - {\E{#1}}} -% -\def\NE#1{\auxdim#1\unitlength\correction -\loop\advance\auxdim-\wd\hlfwndelm -\ifdim\auxdim>-.5\wd\hlfwndelm - \xy{\vbox to0pt{\vss\copy\hlfwndelm}}% - \advance\x\wd\hlfwndelm - \advance\y\ht\hlfwndelm -\repeat} -% -\def\NW#1{\auxdim#1\unitlength\correction -\loop\advance\auxdim-\wd\hlfwndelm -\ifdim\auxdim>-.5\wd\hlfwndelm - \advance\x-\wd\hlfwndelm - \xy{\vbox to0pt{\vss\copy\hlfwndelm}}% - \advance\y\ht\hlfwndelm -\repeat} -% -\def\SW#1{\auxdim#1\unitlength\correction -\loop\advance\auxdim-\wd\hlfwndelm -\ifdim\auxdim>-.5\wd\hlfwndelm - \advance\x-\wd\hlfwndelm - \advance\y-\ht\hlfwndelm - \xy{\vbox to0pt{\vss\copy\hlfwndelm}}% -\repeat} -% -\def\SE#1{\auxdim#1\unitlength\correction -\loop\advance\auxdim-\wd\hlfwndelm -\ifdim\auxdim>-.5\wd\hlfwndelm - \advance\y-\ht\hlfwndelm - \xy{\vbox to0pt{\vss\copy\hlfwndelm}}% - \advance\x\wd\hlfwndelm -\repeat} -% -%Convenient aliases are -\let\0\N -\let\1\E -\let\2\S -\let\3\W -%to supply text to the east (by preceding -%it with \hss it is centered) -\def\trttxt#1{\hbox to0pt{% - \kern\x\vbox to0pt{\vss - \hbox to0pt{\strut#1\hss - }\kern\y}\hss}} -%white writing i.e. just move, don't draw -\def\whiteE#1{\advance\x#1\unitlength } -\def\whiteN#1{\advance\y#1\unitlength } -\def\whiteW#1{\advance\x-#1\unitlength } -\def\whiteS#1{\advance\y-#1\unitlength } -%sometimes the following variants with -%global changes are needed -\def\globalN#1{\xy{\kern-.5\linethickness - \vbox to0pt{\vss - \hrule height#1\unitlength - width\linethickness}}% -\global\advance\y#1\unitlength} -% -\def\globalS#1{\global\advance - \y-#1\unitlength{\N{#1}}} -% -\def\globalE#1{\xy{\vbox to0pt{\vss - \hrule width#1\unitlength - height\linethickness - depth0pt\vss -}}\global\advance\x#1\unitlength} -% -\def\globalW#1{\global\advance - \x-#1\unitlength{\E{#1}}} -% -\newbox\trielm -\linethickness.2pt -\setbox\trielm=\hbox{\vrule - width1.74\linethickness - height\linethickness\relax} -%To account for element in 30 degrees direction -\unitlengthy\ht\trielm %default.2pt -\unitlengthx\wd\trielm %default.3482pt -\unitlength\unitlengthy%default.2pt -% -\def\WSW#1{\auxdim#1\unitlength\divide\auxdim2 - \loop\advance\auxdim-\unitlengthy - \ifdim\auxdim>-.5\unitlengthy - \advance\x-\unitlengthx - \advance\y-\unitlengthy - \xy{\vbox to0pt{\vss\copy\trielm}}% - \repeat} -% -\def\ESE#1{\auxdim#1\unitlength\divide\auxdim2 - \loop\advance\auxdim-\unitlengthy - \ifdim\auxdim>-.5\unitlengthy - \advance\y-\unitlengthy - \xy{\vbox to0pt{\vss\copy\trielm}}% - \advance\x\unitlengthx - \repeat} -% -\def\correction{\multiply\auxdim23 - \divide\auxdim32\relax} -% -%And the shortcut -\def\draw{\csname\the\dir\endcsname - {\the\kk}} -%The useful \bintree for trees -\def\bintree{\S1\ifnum2=\kk\eertnib\fi - \divide\kk2 - {\W{\the\kk}\bintree}% - \E{\the\kk}\bintree\relax} -\def\eertnib#1\relax{\fi\global\advance\k1 - \whiteS1\xytxt{ \csname\the\k\endcsname}} -% -%cgl@rc.service.rug.nl, July 1995 -%\newdimen\x \newdimen\y \newdimen\yy -%\newcount\k \newcount\kmax -\ea\newdimen\csname X1\endcsname -\ea\newdimen\csname X2\endcsname -\ea\newdimen\csname X3\endcsname -\ea\newdimen\csname X4\endcsname -\ea\newdimen\csname X12\endcsname -\ea\newdimen\csname X23\endcsname -\ea\newdimen\csname X34\endcsname -\ea\newdimen\csname X123\endcsname -\ea\newdimen\csname X234\endcsname -\ea\newdimen\csname X1234\endcsname -\def\X#1{\csname X#1\endcsname} -% -\ea\newdimen\csname Y1\endcsname -\ea\newdimen\csname Y2\endcsname -\ea\newdimen\csname Y3\endcsname -\ea\newdimen\csname Y4\endcsname -\ea\newdimen\csname Y12\endcsname -\ea\newdimen\csname Y23\endcsname -\ea\newdimen\csname Y34\endcsname -\ea\newdimen\csname Y123\endcsname -\ea\newdimen\csname Y234\endcsname -\ea\newdimen\csname Y1234\endcsname -\def\Y#1{\csname Y#1\endcsname} -% -\newbox\smileybox -%Next the METAfont spline implementation -\def\mfs{\ifnum\k=\kmax \sfm\fi -\advance\k1 -\midpoints\x\X{1234}\y\Y{1234}\putatxy -{\X2\X{12}\X3\X{123}\X4\X{1234}% - \Y2\Y{12}\Y3\Y{123}\Y4\Y{1234}\mfs}% -{\X1\X{1234}\X2\X{234}\X3\X{34}% - \Y1\Y{1234}\Y2\Y{234}\Y3\Y{34}\mfs}\relax}%end \mfs -% -\def\sfm#1\relax{\fi} -% -% -\def\midpoints{%z1,...,z4 -> z1, z12, z23,...,z1234 -\X{12}\X1\advance\X{12}by\X2\divide\X{12}by2 -\X{23}\X2\advance\X{23}by\X3\divide\X{23}by2 -\X{34}\X3\advance\X{34}by\X4\divide\X{34}by2 -\X{123}\X{12}\advance\X{123}by\X{23}\divide\X{123}by2 -\X{234}\X{23}\advance\X{234}by\X{34}\divide\X{234}by2 -\X{1234}\X{123}\advance\X{1234}by\X{234}\divide\X{1234}by2 -% -\Y{12}\Y1\advance\Y{12}by\Y2\divide\Y{12}by2 -\Y{23}\Y2\advance\Y{23}by\Y3\divide\Y{23}by2 -\Y{34}\Y3\advance\Y{34}by\Y4\divide\Y{34}by2 -\Y{123}\Y{12}\advance\Y{123}by\Y{23}\divide\Y{123}by2 -\Y{234}\Y{23}\advance\Y{234}by\Y{34}\divide\Y{234}by2 -\Y{1234}\Y{123}\advance\Y{1234}by\Y{234}\divide\Y{1234}by2 } -%\putatxy already in blue.tex -\def\putatxy{\hbox to0pt{\kern\x\kern-.15pt - \vbox to0pt{\vss\hrule width.3pt - height.3pt\relax - \kern\y}\hss}} -% -%\def\S#1{...}%See earlier -% -\def\initialize#1#2#3#4#5#6#7#8{%points: (#1,#2),...(#7,#8) - \csname X1\endcsname#1\unitlength - \csname X2\endcsname#3\unitlength - \csname X3\endcsname#5\unitlength - \csname X4\endcsname#7\unitlength - \csname Y1\endcsname#2\unitlength - \csname Y2\endcsname#4\unitlength - \csname Y3\endcsname#6\unitlength - \csname Y4\endcsname#8\unitlength} -% -% -%\def\smiley{\loadsmileys\hbox{\unitlength.01pt -% \copy\smileybox\eyes\mouth\kern1000\unitlength} } -%\def\winksmiley{\loadsmileys\hbox{\unitlength.01pt -% \copy\smileybox\winkeye\mouth\kern1000\unitlength} } -%\def\sadsmiley{\loadsmileys\hbox{\unitlength.01pt -% \copy\smileybox\squinteyes\sadmouth\kern1000\unitlength} } -% -%Contents turtle tools -%Storage allocations -%\newcount -% \k, \loccnt, \modsum, -% \level, \order, \kmax, -% \kk, \ekk, \dir -%newdimen -% \x, \leftx, \rightx, -% \y, \yy, \lefty, \righty, -%\newbox -% \hlfwndelm, \trielm -%Definitions -% \N, \E, \S, \W -% \NE, \SE, \SW, \NW -% \WSW, \ESE -% \whiteN, \whiteE, \whiteS, \whiteW -% \globalN, \globalE, \globalS, \globalW -% \correction -% \draw -% \bintree, \eertnib -% \putarxy -% \mfs, \sfm -% \midpoints -% \initialize -%Aliases -%\0, \1, \3, \4 -%History of changes -%July 1995 Setup turtle graphics -%\endinput -% -% -%Undocumented features -%\rnd from Reid, 1987 -%(Included in index macros of BLUe.) -%\newcount\rndnum \newcount\rndtmp -%\newcount\rndval -\def\rnd{\multiply\rndnum371{}% - \advance\rndnum1{}% - \ifnum\rndnum>99999 - \rndtmp\rndnum \divide\rndtmp100000 - \multiply\rndtmp100000 - \advance\rndnum-\rndtmp - \fi\rndval\rndnum - \divide\rndval1000 } -% -\def\dieiii{\rnd\throw= - \ifnum\rndval<34 0\else - \ifnum\rndval<67 1\else2 - \fi\fi} -\def\dieiv{\rnd\throw= - \ifnum\rndval<25 0\else - \ifnum\rndval<50 1\else - \ifnum\rndval<75 2\else3 - \fi\fi\fi} -\def\diev{\rnd\throw= - \ifnum\rndval<20 0\else - \ifnum\rndval<40 1\else - \ifnum\rndval<60 2\else - \ifnum\rndval<80 3\else4 - \fi\fi\fi\fi} -% -% -%;numvrb -%Formats. -\def\loadformat{\input fmt.dat\relax} -% -\def\concert{\ifx\undefined\concertfmt - \let\concertfmt=x\fi - \loadformat - \let\concertfmt\undefined -} -%;vrblin50 -\newtoks\addressesfile -\addressesfile{address} -% -\def\letter{\ifx\undefined\letterfmt - \let\letterfmt=x\fi - \loadformat - \let\letterfmt\undefined -} -%;vrblin100 -\newcount\reportloadcnt -%Prevent double loading. -\def\report{\ifx\undefined\reportfmt - \let\reportfmt=x\fi - \ifnum\reportloadcnt=0 \ea\loadformat\fi - \advance\reportloadcnt1 - \let\reportfmt\undefined -} -%;vrblin150 -\newcount\transparenciesloadcnt -\def\transparencies{% - \ifx\undefined\transparenciesfmt - \let\transparenciesfmt=x\fi - \ifnum\transparenciesloadcnt=0 - \ea\loadformat\fi - \advance\transparenciesloadcnt1 - \let\transparenciesfmt\undefined -}% -\newcount\trsno -\newbox\trsppt -\newcount\transparenciespptloadcnt -\def\transparenciesppt{% - \ifx\undefined\transparenciespptfmt - \let\transparenciespptfmt=x\fi - \ifnum\transparenciespptloadcnt=0 - \ea\loadformat\fi - \advance\transparenciespptloadcnt1 - \let\transparenciespptfmt\undefined -}%;nonum;newpage -% -% -%;numvrb -%Tools -%General macros. -\def\fifo#1{\ifx\ofif#1\ofif\fi - \process{#1}\fifo} -\def\ofif#1\fifo{\fi} -% -{\obeylines\gdef\fifol#1 - {\ifx\lofif#1\lofif\fi% - \processl{#1}\fifol}} -\def\lofif#1\fifol{\fi} -% -{\obeyspaces\gdef\fifow#1 {\ifx -\wofif#1\wofif\fi\processw{#1}\ \fifow}} -\def\wofif#1\fifow{\fi} -% -\long\def\gobbletool#1\endinput{\egroup} -\long\def\tool#1{\ifx#1\undefined - \bgroup\unouterdefs - \ea\gobbletool\fi} -% -\def\toolverbatim{\thisverbatim{% - \baselineskip12ptplus2ptminus1pt - \lineskip1ptplus1ptminus1pt}% - \beginverbatim} -% -\let\cgl\relax -%\def\cgl{\endverbatim\endinput} -% -\def\unouterdefs{%List of defs which - %have to be neglected - \ea\let\csname+\endcsname\relax - \catcode`\^12 - %more to come -} -% -\newif\iffound -\def\loc#1#2{\def\locate##1#1##2\end - {\ifx\empty##2\empty\foundfalse - \else\foundtrue\fi}\ea\locate#2.#1\end} -% -\def\contentsdatabase#1{%#1 pic lit address -\ea\let\ea\name\csname toc#1\endcsname -\immediate\openout\name=contents#1 -%Define list element tag `\lst' -\def\lst##1##2{\let##1\relax - \advance\k1 - \immediate\write\name{##1}} -\input #1.dat\relax -\message{Database #1 contains - \the\k\space entries. - See the file contents#1 for - the list of the names of the entries.}} -% -\newwrite\tocfmt -\newwrite\toctools -% -\def\contentstoolsorfmt#1{%#1 tools fmt -\bgroup -\ea\let\ea\name\csname toc#1\endcsname -\immediate\openout\name=contents#1 -\long\def\tool##1##2\endinput{% - \immediate\write\name{\nx##1}} -\unouterdefs -\input #1.dat\relax -\message{Database #1 contains - \the\k\space entries.}% -\egroup} -% -%Tags for the address database -\newif\ifregisteredblue -%Searching the database -\newtoks\searchfile -\newtoks\foundfile -\newtoks\namelst -\def\search#1{\def\loc##1##2{% - \def\locate####1##1####2\end - {\ifx\empty####2\empty\foundfalse - \else\foundtrue\fi}\ea\locate##2.##1\end} - \def\lst##1##2{\loc{#1}{##2}\iffound - \immediate\write16{\nx##1}%log file - \namelst\ea{\the\namelst\lst##1} - \def##1{##2}%define found element - \fi}\input\the\searchfile.dat\relax} -%;vrblin200 -\def\bluechapter#1\par - {\beginchapterhead#1\unskip\endchapterhead} -%Because of \par not in fmt.dat -\def\blueexample#1\par - {\example{#1\unskip}} -% -\def\bluedisplaycenterline#1\par - {\begindisplaycenterline - #1\enddisplaycenterline}%;nonum;newcol -% -% -%;numvrb -%Tools -%Next sorted on <tag>tool -% -\def\loadtool{\input tools.dat\relax} -%;vrblin20 -%Binarytreetool -\newcount\ltree \newcount\m -\newcount\lu \newcount\levelone -\newdimen\tophns \newdimen\tophnshalf -\newdimen\vnodesep -\newdimen\treewidth %\treewidth= -%\prod_{i=1}^k{1+1/2i} * \tophns, for level k tree. -\newtoks\thisbintree -\newtoks\everybintree -\def\beginbintree{\begingroup - \let\bintreetool=x - \loadtool - \startbintree} -\newtoks\thisbt -\newtoks\everybt -\newtoks\prebt -\newtoks\postbt -\def\beginbt{\begingroup - \let\bttool=x - \loadtool\bt} -%;vrblin50 -%Bridgetool -\def\beginbridge{\begingroup - \let\endbridge\endgroup - \let\bridgetool=x - \loadtool -} -%;vrblin100 -%Crosswordstool -\def\begincrosswords{\begingroup - \let\endcrosswords\endgroup - \let\crosswordstool=x - \loadtool -} -%;vrblin150 -%Hanoitool -\def\hanoi#1{\beginhanoi{#1}\endhanoi} -\def\beginhanoi{\begingroup - \let\endhanoi\endgroup - \let\hanoitool=x - \loadtool -\sethanoi} -%;vrblin200 -%Indextool -\newcount\indexloadcnt -\def\loadindexmacros{% - \ifx\undefined\indextool - \let\indextool=x\fi - \ifnum\indexloadcnt=0 - \ea\loadtool\fi - \advance\indexloadcnt1 - \let\indextool\undefined} -%(mini-)ToCtool -\newwrite\toc -\newcount\tocloadcnt -\def\loadtocmacros{% - \ifx\undefined\toctool - \let\toctool=x\fi - \ifnum\tocloadcnt=0 - \ea\loadtool\fi - \advance\tocloadcnt1 - \let\toctool\undefined} -%;vrblin250 -%Language tools -\def\english{\let\englishtool=x - \loadtool - \let\englishtool\undefined -} -\def\russian{\let\russiantool=x - \loadtool - \let\russiantool\undefined -} -%;vrblin500 -%ntglogo -\font\calx=cmsy10 scaled \magstep4 -\newbox\ntglogobox -\def\loadntglogo{\let\ntglogotool=x - \loadtool - \let\ntglogotool\undefined -} -\def\loadntginfo{\let\ntginfotool=x - \loadtool - \let\ntginfotool\undefined -} -% -%;vrblin525 -\newbox\smileybox -\newcount\smileysloadcount -\def\smiley{\loadsmileys\raise.5ex - \hbox{\unitlength.01pt - \copy\smileybox - \eyes\mouth - \kern1000\unitlength} } -\def\winksmiley{\loadsmileys\raise.5ex - \hbox{\unitlength.01pt\copy\smileybox - \winkeye\mouth - \kern1000\unitlength} } -\def\sadsmiley{\loadsmileys\raise.5ex - \hbox{\unitlength.01pt\copy\smileybox - \squinteyes\sadmouth - \kern1000\unitlength} } -\def\loadsmileys{\ifx\undefined\smileystool - \let\smileystool=x\fi - \ifnum\smileysloadcount=0 \ea\loadtool - \else\message{--- smileys already loaded---}\fi - \advance\smileysloadcount1 - \let\smileystool\undefined} -% -%;vrblin550 -\def\loadxyz{\let\xyztool=x - \loadtool - \let\xyztool\undefined -} -%;vrblin575 -\def\loadpartlogo{\let\partlogotool=x - \loadtool - \let\partlogotool\undefined -} -%;vrblin600 -%Pascaltool -%Declarations -\newtoks\prepascal -\newtoks\postpascal -\newtoks\reservedset -\newcount\commentstatus -%Initializations -\let\reservedwordsfont\bf -\let\pascalprogramfont\it -\let\pascalcommentfont\rm -\prepascal{\medskip\noindent} -\postpascal\prepascal -%Reserved words need right catcodes -% -\def\beginpascal{\begingroup - \let\pascaltool=x - \loadtool - \afterassignment\fifol\let\dummy=}%;nonum;newcol -% -% -% -%***Storage allocation*** ;numvrb -%\new...-s needed in the various tools -%Space is once reserved. -%General -\newtoks\storedheadline -\newtoks\storedfootline -\newtoks\appendixname -\appendixname{Appendix} -\newcount\storedpageno -%;vrblin10 -%From \contentsdatabase -\newwrite\tocpic -\newwrite\toclit -\newwrite\tocaddress -%;vrblin20 -%From \letter -\newtoks\letterfile -%\newtoks\addressesfile -\newtoks\addresseename\newtoks\fullname -\newtoks\addresseelist -\newtoks\subject -\newtoks\ourreference -\newtoks\yourreference -\newtoks\enclosures -\newdimen\longindentation -\newdimen\storedvsize -\newskip\vaoffset%vert address offset -\newskip\haoffset%hor address offset -\newbox\affiliationbox -\letterfile{letter} -%\addressesfile{address} -%From \transparencies -\newtoks\regularheadline -\newtoks\regularfootline -%;vrblin50 -%From \report -\newtoks\chapternumbering -\newtoks\thischapterhead -\newtoks\everychapterhead -\newtoks\prefacename -\newtoks\bibliographydata -\newtoks\chaptertitle -\newtoks\prechapterhead -\newtoks\postchapterhead -\newtoks\headtitle -\newtoks\subheadtitle -\newtoks\subsubheadtitle -\newtoks\prepoint -\newtoks\prefil -\newtoks\postfil -\newtoks\thisexample -\newtoks\everyexample -\newtoks\exampletitle -\newbox\prefacebox -\newbox\contentsbox -\newbox\forewordtranslatorbox -\newdimen\generalindent -\newdimen\gutter \gutter1em -\newdimen\xshift -\newdimen\yshift -\newdimen\subsubheadindent -\newcount\headcnt -\newcount\chaptercnt -\newcount\examplecnt -\newcount\exercisecnt -\newwrite\toc -\newwrite\toe -\newif\ifrunin -%;vrblin100 -%From transparencies -\newtoks\identification -%\newtoks\crowner -\newtoks\headtitle -\newtoks\subheadtitle -\newtoks\subsubheadtitle -\newskip\leftskiptrs -\newskip\rightskiptrs -%;vrblin125 -%From crosswords -\newif\ifpuzzle -\newcount\cnt -\newdimen\csize -%;vrblin150 -%From index -\newif\ifcontinue%controls loops -\newif\iffound%locating accent cs -\newif\ifproof\prooftrue -\newtoks\indword -\newcount\n -\newcount\lc -\newcount\r -\newcount\ic -\newcount\uone -\newcount\jc -\newcount\jj -\newcount\jjone -%Counters -%\newcount\n -%\newcount\m -%\newcount\k -%\newcount\kk -\n=0 -\newcount\kzero\kzero0 %Bias value -\newcount\pk -\newcount\pkone%Used in sortcs -\newcount\frst%First value of range -\newcount\last %Last value of range -\newcount\slast%Successor \last -\newcount\dif %Difference \last-\frst -\newcount\nw %Number of words -\newcount\nc %Number of characters/comp -\newcount\numex %Number of exchanges -\newcount\rndval%Random number -\newcount\rndnum%Seed random generator -\newcount\rndtmp%Temporary value -\newcount\throw -\newcount\status%Status comparison -\newcount\low -\newcount\up -\newif\ifgoon -\newread\inxin -\newtoks\indword -\newtoks\indexfile - %To parameterize the resulting index -\newtoks\irfile - %To parameterize the IRs -\newtoks\indexname -\newtoks\preindex -\newtoks\postindex -\newtoks\ignores -\newtoks\conseqs -\newtoks\consyms -\newtoks\srtkeys -\newtoks\srtkeypairs -%;vrblin500 -%Contents Tools -%- bridgetool -%- crosswordstool -%- hanoitool -%- indextool -%- langauages englishtool (default) -%- ntglogotool -%- ntginfotool -%- russiantool -%- smileys -%- toctool -%- xyztool -%- pascaltool -%;nonum -%History of changes Tools -% Jan 1995 Created -% Summer 1995 Smileys added -% March 1996 Toc tool added -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% -% -% -\def\\{\hfil\break} -\let\annotation\relax -\generalindent\parindent -\subsubheadindent\generalindent -\loadntglogo -\english -\catcode`\@=12 -\endinput -%for Mac as pre format -\global\advance\count0-1 \dump -%%%end blue.tex, cgl%%%
\ No newline at end of file |