summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/tap
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:46:03 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:46:03 +0000
commit873660d1a83ece926fe7206288dda9c36b349c1b (patch)
treea48f77125c309a355b5d0eb58d6b24446abe9d62 /Master/texmf-dist/tex/generic/tap
parent2939242967231097459df0fc3150fabc2f639111 (diff)
generic 1
git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/tap')
-rw-r--r--Master/texmf-dist/tex/generic/tap/tap.tex934
1 files changed, 934 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/tap/tap.tex b/Master/texmf-dist/tex/generic/tap/tap.tex
new file mode 100644
index 00000000000..b4ec233e009
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/tap/tap.tex
@@ -0,0 +1,934 @@
+% ---------------------------------------------------------------------------
+% THIS FILE BELONGS TO THE TAP PACKAGE
+% ---------------------------------------------------------------------------
+% Macros for typesetting tables in a simple manner using PostScript
+% for filling, hashing, etc. cells of the table.
+% Authors:
+% Bogus\l{}aw Jackowski, Piotr Pianowski and Piotr Strzelczyk
+% BOP s.c., Piastowska 70, 80-363 Gda\'nsk, Poland
+% Email: B.Jackowski@GUST.ORG.PL
+% History:
+% The starting point of this package was a neat package
+% by Michael J. Ferguson. With his kind permission we rebuilt
+% the package from scratch. Some notational ``bells and whistles''
+% have been added, and---which is perhaps more important---the package
+% has been enhanced by PostScript-oriented features (painting cells with
+% an arbitrary colour, drawing diagonal strokes, etc.).
+% The package does not use tabskip glues for imposing a desired width;
+% this makes the code a bit more complex, yet gives some advantages.
+% Version: 0.70, Friday, May 3rd, 1996 (BachoTeX 96 release)
+% Version: 0.70a, Monday, October 20th, 1997 (setting \everymath corrected)
+% Version: 0.70b, Monday, October 20th, 1997
+% * first step towards using struts implicitly in \X and \Y macros
+% Version: 0.71, Tuesday, January 27th, 1998
+% * Staszek Wawrykiewicz encountered a nasty typo
+% (\edef\rightcellside{\leftcellside}) -- fixed
+% * implicit struts in \X and \Y macros (inherited from the \B macro) added
+% * \desiredwidth ignored for zero-width tables (this protect against
+% infinite loops and arithmetic overflow in empty tables)
+% Version: 0.72, Wednesday, August 26th, 1998
+% * the assignment `\let\span_\sp@n' replaced by an explicit definition
+% of \span_ (used in \usecells_), as the definitions of \sp@n in plain
+% and LaTeX2e incompatibly differ
+% Version: 0.73, Monday, November 13th, 1999
+% * the standard meaning of \left and \right restored in math
+% Version: 0.74, Sunday, March 12th, 2000
+% * `TAPS' changed to `TAP' in messages; \inputlineno displayed
+% * \outer\def\begintable{} defined locally in \deftable (protection
+% against missing \endtable)
+% * \tapspecial and \psunitsperinch introduced; can be redefined
+% if a DVI-to-PS driver needs other settings
+% * several macros introduced for convenient handling anchors:
+% \bstroke \estroke \brectangle \brectangle
+% \bgenstroke \egenstroke \bgenrectangle \bgenrectangle
+% * a new suffix for \B macro introduced: `=' followed by a dimen;
+% creates a row of a given height (inspired by Tadeush Sheibak's
+% valuable comments -- thanks)
+% * \tapverboseon and \tapverboseoff added (suggested by Janusz M. Nowacki)
+% * some code cleaning
+% Version: 0.75, Friday, March 24th, 2000
+% * inside a table, \Lslash and \lslash (the latter introduced for the
+% sake uniformness) refer to the outer meaning of \L and \l, presumably
+% Knuthian Polish L and l, respectively (pointed out by Jan Krupa)
+% Version: 0.76, Saturday, June 9th, 2001
+% * for math inside a table, both ordinary and display (the latter
+% missing so far), most symbols retrieve their original meaning,
+% including | and "
+% Version: 0.77, Monday, July 30th, 2001
+% * a bug fixed -- wrong positioning of rectangle corners (with
+% \asymcellcorr) corrected, namely, the condition:
+% \if#2l-\fi \ifignorecellstate 1\else
+% \ifcase\cellstate 2\or 1\or 0\fi\fi
+% replaced by:
+% \if#2l-\fi \ifignorecellstate 1\else
+% \ifcase\cellstate \if#2l0\else2\fi\or 1\or \if#2l2\else0\fi\fi\fi
+% * a message displaying the current version of TAP added (Jacek
+% Kmiecik's suggestion)
+% =========================================================================
+\ifx\tapmacrosareloaded\relax % anti-double loading barrier
+ \expandafter\endinput\else\let\tapmacrosareloaded\relax
+ \immediate\write16{%
+ This is TAP version 0.77 (BOP TeX macro package for setting tables)}%
+\fi
+% =============================== Preamble ================================
+\let\normalexclam!
+\let\normalat@
+\let\normalquotes"
+\let\normalvbar|
+\def\normalundscore{_}% an exception
+
+\edef\dblquotecatcode{\the\catcode`\"}
+\edef\brokenbarcatcode{\the\catcode`\|}
+\edef\exclamcatcode{\the\catcode`\!}
+\edef\undscorecatcode{\the\catcode`\_}
+\edef\atcatcode{\the\catcode`\@}
+\def\tableactive{%
+ \catcode`\|13 \catcode`\@13 \catcode`\"13 \catcode`\!13\relax}
+
+% define a generic PostScript special; can be redefined before or after
+% reading the tap.tex file
+\ifx\tapspecial\unknown % default is dvips
+ \def\psunitsperinch{Resolution}% dvips PS entity
+ \def\tapspecial#1{\special{ps:#1}}% standard dvips PS special
+\fi
+
+\catcode`\_=11
+\catcode`\@=11 % temporarily, in a moment it will be active
+
+\def\psunits_setup{\tapspecial{%
+ /in {\psunitsperinch\space mul} def
+ /bp {72 div in} def
+ /pt {72.27 div in} def
+ /sp {65536 div pt} def
+ /dd {1238 mul 1157 div pt} def
+ /cc {12 mul dd} def
+ /mm {25.4 div in} def
+ /cm {10 mul mm} def
+ /trth {\number\trth\space sp} def
+ /TRTH {\number\TRTH\space sp} def
+}}
+
+% an attempt to avoid exploiting extra \count registers
+% (\mscount is used by \span_):
+\ifx\mscount\undefined_ \let\mscount\@multicnt \fi
+\ifx\mscount\undefined_ \csname newcount\endcsname\mscount \fi
+
+\tableactive
+
+\def|{\ifmmode \vert\else \normalvbar \fi} % effectively undoes activeness
+\let!\normalexclam
+\let@\normalat
+\let"\normalquotes
+
+% ============================= Table macros ==============================
+% \trth = normal table rule thickness (default .4pt)
+% \TRTH = bold table rule thickness (default 1.2pt)
+\newdimen\trth \trth=.4pt
+\newdimen\TRTH \TRTH=1.2pt
+\newcount\align_state \align_state=0 % 0 -- between lines after \cr
+ % 1 -- beginning of line in \br
+ % 2 -- midline
+ % 3 -- endline in \er
+
+\def\hssf{\hskip 0pt plus 1fill minus 1fill}
+%general math form
+\def\math#1{\relax $\relax#1\relax$}
+\def\displaymath #1{\relax$\displaystyle #1\relax$}
+
+\newtoks\everytable \everytable{\relax}
+\newtoks\thistable \thistable{\relax}
+
+\newdimen\desiredwidth
+\def\width_accuracy_limit{.01pt}% not to be changed
+\newdimen\widthaccuracy \widthaccuracy\width_accuracy_limit
+\newif\iflongcalculation
+
+\newbox\table_box
+
+\newbox\box_tmp
+\newdimen\innerht \newdimen\innerdp % to be used in \X, \x, \Y, and \y
+\newdimen\normht \newdimen\normdp % for normal rows
+\newdimen\extraht \newdimen\extradp % for vertically extended rows
+
+\def\defaultcellmarg{0.5em} % \cellmarg is by default set to .5em of
+\newdimen\cellmarg % the current font at the beginning of a table
+
+\newcount\cellnum
+\newcount\maxcellnum
+\newdimen\cellcorr
+\newdimen\maxcellcorr
+\newdimen\mincellcorr
+\newcount\cellstate % 0 -- aligned to left
+ % 1 -- centered
+ % 2 -- aligned to right
+
+\newif\ifignorecellstate
+
+% \ostrut means ``open'' strut (to be followed by height <dimen> depth
+% <dimen>, \istrut means inner strut to be used in \X, \x, \Y, and \y
+\def\ostrut{\vrule width0mm}
+\def\istrut{\ostrut height\innerht depth\innerdp\relax}
+
+\def\defaultstrut{%
+ \setbox\box_tmp\hbox{(pl}%
+ \settablestrut \ht\box_tmp \dp\box_tmp \ht\box_tmp \dp\box_tmp
+ \adjusttablestrut .45ex .15ex .95ex .55ex
+ \setstrut \normht \normdp
+}
+
+\def\setstrut{\afterassignment\innerdp\innerht}
+
+\def\adjuststrut{\afterassignment\adjuststrut_\advance\innerht}
+\def\adjuststrut_{\advance\innerdp}
+
+\def\settablestrut{\afterassignment\settablestrut_\normht}
+\def\settablestrut_{\afterassignment\settablestrut__\normdp}
+\def\settablestrut__{\afterassignment\settablestrut___\extraht}
+\def\settablestrut___{\extradp}
+
+\def\adjusttablestrut{\afterassignment\adjusttablestrut_\advance\normht}
+\def\adjusttablestrut_{\afterassignment\adjusttablestrut__\advance\normdp}
+\def\adjusttablestrut__{\afterassignment\adjusttablestrut___\advance\extraht}
+\def\adjusttablestrut___{\advance\extradp}
+
+\def\symcellcorr{\ignorecellstatetrue}
+\def\asymcellcorr{\ignorecellstatefalse}
+\symcellcorr
+
+% \leftcellside and \rightcellside will be subjected to expansion
+% using \edef in \begintableformat, hence no \ifnum-s can be involved;
+% for the same reason \noexpand-s are used in \update_mincellmarg;
+% \antileftcellside and \antirightcellside for the sake of symmetry
+% are programmed similarly; ignoring the cell state is meant as a global
+% setting, hence \ifignorecellstate can be subjected to \edef
+
+\newdimen\mincellmarg
+\def\update_mincellmarg{%
+ \dim_tmp\cellmarg \advance\dim_tmp\cellcorr
+ \noexpand\ifdim\dim_tmp<\mincellmarg \global\mincellmarg\dim_tmp
+ \noexpand\fi}
+
+\def\leftcellside{%
+ \global\advance\cellnum1\kern\cellmarg
+ \ifignorecellstate \kern\cellcorr \update_mincellmarg
+ \else {\multiply\cellcorr\cellstate \kern\cellcorr \update_mincellmarg
+ }\fi
+}
+\def\antileftcellside{\hskip-\cellmarg
+ \ifignorecellstate \kern-\cellcorr
+ \else {\multiply\cellcorr\cellstate \kern-\cellcorr}\fi
+}
+\def\rightcellside{%
+ \global\advance\cellnum1\kern\cellmarg
+ \ifignorecellstate \kern\cellcorr \update_mincellmarg
+ \else {\cellstate-\cellstate \advance\cellstate2
+ \multiply\cellcorr\cellstate \kern\cellcorr \update_mincellmarg
+ }\fi
+}
+\def\antirightcellside{\hskip-\cellmarg
+ \ifignorecellstate \kern-\cellcorr
+ \else {\cellstate-\cellstate \advance\cellstate2
+ \multiply\cellcorr\cellstate \kern-\cellcorr}\fi
+}
+
+\def\beginflatcell{\vbox to0mm\bgroup\vss \hbox\bgroup \istrut}
+\def\endflatcell{\egroup\vss\egroup}
+
+\def\begindimencell{\vbox to\tablerowheight\bgroup\vss \hbox\bgroup}
+\def\enddimencell{\egroup\vss\egroup}
+
+\newif\ifv_squash
+\newbox\cell_box
+\def\normcellbox{\hbox\bgroup\v_squashfalse\let\v_box_or_top\vbox\cellbox_}
+\def\flatcellbox{\hbox\bgroup\v_squashtrue\let\v_box_or_top\vbox\cellbox_}
+\def\normcelltop{\hbox\bgroup\v_squashfalse\let\v_box_or_top\vtop\cellbox_}
+\def\flatcelltop{\hbox\bgroup\v_squashtrue\let\v_box_or_top\vtop\cellbox_}
+\def\cellbox_#1#{\def\cellbox_parm{#1}%
+ \ifx\cellbox_parm\empty \expandafter \cellbox_a \else
+ \expandafter \cellbox_p \fi}
+\def\cellbox_a#1{% aligned cell box
+ \setbox\cell_box\v_box_or_top{%
+ \let\\\cr
+ \let@\normalat
+ \let!\normalexclam
+ \def\L##1{\ignorespaces ##1\unskip\hssf\null}
+ \def\C##1{\hssf \ignorespaces ##1\unskip\hssf\null}
+ \def\R##1{\hssf \ignorespaces ##1\unskip\null}
+ \everycr{}
+ \halign{%
+ \istrut \ifnum\cellstate>0\hss\fi ##\ifnum\cellstate<2\hss\fi \cr
+ \ostrut height\curr_distender_height
+ \ignorespaces #1%
+ \ifhmode\ostrut depth\curr_distender_depth\fi
+ \crcr
+ }
+ }%
+ \ifv_squash\vbox to0mm{\vss\box\cell_box\vss}\else\box\cell_box\fi
+ \egroup
+}
+\def\cellbox_p#1{% paragraph cell box
+ \setbox\cell_box\v_box_or_top{\parindent0mm \parfillskip0pt
+ \def\\{\unskip\break\hskip0pt\relax\ignorespaces}
+ \let@\normalat
+ \let!\normalexclam
+ \let~\ori_tilde % restore the original meaning (natural in a ``par'' mode)
+ \let\-\ori_bsdash % ditto
+ \let\=\ori_bsequal % ditto
+ \def\L##1{\ignorespaces ##1\unskip\hfill\null}
+ \def\C##1{\hfill\ignorespaces ##1\unskip\hfill\null}
+ \def\R##1{\hfill\ignorespaces ##1\unskip\null}
+ \hsize\cellbox_parm
+ \normalbaselines \baselineskip\innerht \advance\baselineskip\innerdp
+ \ifnum\cellstate>0 \leftskip0ptplus1fil \fi
+ \ifnum\cellstate<2 \rightskip0ptplus1fil \fi
+ \ostrut height\curr_distender_height
+ \nobreak\hskip0pt\relax % enable implicitly breaking of the first word
+ \ignorespaces #1%
+ \ifhmode\ostrut depth\curr_distender_depth\fi
+ }%
+ \ifv_squash \vbox to0mm{\vss\box\cell_box\vss}\else\box\cell_box\fi
+ \egroup
+}
+
+\def\cellaction#1{\ifcase\align_state \def\cellaction_{#1}\or
+ \def\cellaction_{#1}\or
+ \def\cellaction_{\unskip&#1&}\else
+ \def\cellaction_{#1}\fi\cellaction_}
+
+\def\tablerulecmyk#1{\def\thetablerulecmyk{#1}}
+\def\beginrulecmyk{\ifx\thetablerulecmyk\empty\else
+ \tapspecial{gsave \thetablerulecmyk\space setcmykcolor}\fi}
+\def\endrulecmyk{\ifx\thetablerulecmyk\empty\else\tapspecial{grestore}\fi}
+\def\tablefullrule#1{\noalign{\beginrulecmyk \hrule height #1\endrulecmyk}}
+\def\tablevrule#1{\hss\beginrulecmyk\vrule width #1\endrulecmyk\hss}
+\def\tablehrule#1{\antileftcellside
+ \beginrulecmyk\leaders\hrule height #1\hfill\endrulecmyk
+ \antirightcellside}
+
+\def\preambleleft{\cellstate0\relax \leftcellside \currtfont
+ \begincell \ignorespaces ####\unskip\endcell \hfil \rightcellside}
+\def\preamblecenter{\cellstate1\relax \leftcellside \hfil \currtfont
+ \begincell \ignorespaces ####\unskip\endcell \hfil \rightcellside}
+\def\preambleright{\cellstate2\relax \leftcellside \hfil \currtfont
+ \begincell \ignorespaces ####\unskip\endcell \rightcellside}
+\def\tableleft#1{\omit\cellstate0\relax \leftcellside \currtfont
+ \begincell \ignorespaces #1\endcell \hfil \rightcellside}
+\def\tablecenter#1{\omit\cellstate1\relax \leftcellside \hfil \currtfont
+ \begincell \ignorespaces #1\endcell \hfil \rightcellside}
+\def\tableright#1{\omit\cellstate2\relax \leftcellside \hfil \currtfont
+ \begincell \ignorespaces #1\endcell \rightcellside}
+
+\def\span_{\span\omit \advance\mscount-1\relax}
+\def\usecells{\omit\relax\afterassignment\usecells_\mscount}
+\def\usecells_{%
+ \advance\mscount-1\multiply\mscount2\relax
+ \loop\ifnum\mscount>1 \span_ \repeat
+ \ifnum\mscount>0 \span \else \relax \fi}
+
+\def\short_fix_cellcorr{%
+% \setbox\table_box... is already performed
+% locally \cellcorr = 1/cellmax * (desired_wd-acual_wd)
+ \cellcorr\desiredwidth \advance\cellcorr-\wd\table_box
+ \def\corr_sign{}%
+ \ifdim\cellcorr<0mm\def\corr_sign{-}\cellcorr-\cellcorr\fi
+ \resize \cellcorr{1sp}\cellcorr{\the\maxcellnum sp}%
+ \cellcorr\corr_sign\cellcorr
+}
+
+\def\long_fix_cellcorr{%
+ \ifdim\widthaccuracy<\width_accuracy_limit\relax
+ \widthaccuracy\width_accuracy_limit\relax % moderate accuracy
+ \fi
+% initial settings (\setbox\table_box... is already performed):
+ \cellcorr0mm
+ \dim_tmp\desiredwidth \advance\dim_tmp-\wd\table_box
+% each cell is ``padded'' exactly by 2\cellcorr and at least
+% one cell must appear in any table, hence the coefficient 1/2:
+ \ifdim\dim_tmp<0mm \mincellcorr.5\dim_tmp
+ \else \maxcellcorr.5\dim_tmp \fi
+% binary search:
+ \loop
+ \ifdim\dim_tmp<0mm \maxcellcorr\cellcorr \dim_tmp-\dim_tmp
+ \else \mincellcorr\cellcorr \fi
+ \ifdim\dim_tmp>\widthaccuracy
+ \cellcorr\mincellcorr \advance\cellcorr\maxcellcorr
+ \cellcorr.5\cellcorr
+ \setbox\table_box\hbox{\nospecanchors\curr_table}%
+% \immediate\write16{\the\wd\table_box, \the\cellcorr\space}%
+ \dim_tmp\desiredwidth \advance\dim_tmp-\wd\table_box
+ \repeat
+}
+
+\def\fix_cellcorr{%
+ \iflongcalculation \long_fix_cellcorr \else \short_fix_cellcorr \fi}
+
+\def\tap_warning{TAP warning (line \the\inputlineno)}
+\def\margin_warning{%
+ \ifdim\cellcorr<0mm
+ \ifdim\mincellmarg<\TRTH
+ \immediate\write16{%
+ \tap_warning: effective cell margin = \the\mincellmarg.}%
+ \fi
+ \fi}
+
+\def\width_info#1{%
+ \let\ \space % it's local
+ \immediate\write16{%
+ \tap_warning: Unsuccessful forcing of the desired width.}%
+ \immediate\write16{%
+ \ \ \ \ \ \ \ \ \ \ \ \ \ \ desired width - resulting width = \the#1}%
+ \immediate\write16{%
+ \ \ \ \ \ \ \ \ \ \ \ \ \ \ required accuracy = \the\widthaccuracy}}
+
+\def\width_warning{%
+ \ifdim\desiredwidth>0mm
+% \setbox\table_box\hbox{\curr_table} is performed immediately prior to
+% calling \width_warning, i.e., \table_box registers are defined
+ \begingroup
+ \advance\desiredwidth-\wd\table_box % temporary settings:
+ \ifdim\desiredwidth>\widthaccuracy \width_info\desiredwidth \fi
+ \ifdim\desiredwidth<-\widthaccuracy \width_info\desiredwidth \fi
+ \endgroup
+ \fi}
+
+\newif\iftapverbose
+\def\tapverboseon{\tapverbosetrue}
+\def\tapverboseoff{\tapverbosefalse}
+
+\newif\ifspec_distender \spec_distenderfalse
+% used in \D to distinguish between lone-standing \D and
+% \D invoked from macro \B
+
+\newdimen\tablerowheight
+
+\def\table_setup{%
+ \tableactive
+% protect the original meanings of important macros:
+ \let\ori_tilde~
+ \let\ori_bsdash\-
+ \let\ori_bsequal\=
+ \let\ori_bsgreater\> % in plain \def\>{\mskip\medmuskip}
+ \let\ori_bsexclam\! % " \def\!{\mskip-\thinmuskip}
+ \let\ori_left\left
+ \let\ori_right\right
+ \let\Lslash\L % protect original Knuth's meaning
+ \let\lslash\l % ditto
+ \everymath\expandafter{\the\everymath
+ \let\>\ori_bsgreater \let\!\ori_bsexclam
+ \let\left\ori_left \let\right\ori_right
+ \let@\normalat \let!\normalexclam
+ \let"\normalquotes \let|\normalvbar
+ }
+ \everydisplay\expandafter{\the\everydisplay
+ \let\>\ori_bsgreater \let\!\ori_bsexclam
+ \let\left\ori_left \let\right\ori_right
+ \let@\normalat \let!\normalexclam
+ \let"\normalquotes \let|\normalvbar
+ }
+ \let\!\normalexclam
+ \let\>\rlap
+ \let\<\llap
+ \let\H\hbox % useful as a ``horizontal strut'': \H to5mm{}
+ \let\x\flatcellbox
+ \let\X\normcellbox
+ \let\y\flatcelltop
+ \let\Y\normcelltop
+ \def\P##1{{\phantom{##1}}} % \phantom uses \box0, hence curly braces
+ \def\V##1{{\vphantom{##1}}} % ditto
+ \def\K{\noalign\bgroup\afterassignment\K_\dim_tmp}
+ \def\K_{\kern\dim_tmp\egroup}
+ \def\L{\endcell\hfill\begincell}
+ \def\F##1{\noalign{\global\let\currtfont##1}} % sets current table font
+ \def\-{\ifcase\align_state \tablefullrule{\trth}\else
+ \endcell\tablehrule{\trth}\begincell\fi}
+ \def\={\ifcase\align_state \tablefullrule{\TRTH}\else
+ \endcell\tablehrule{\TRTH}\begincell\fi}
+ \def|{\cellaction{\tablevrule\trth}}
+ \def!{\cellaction{\tablevrule\TRTH}}
+ \def\br##1{%
+ \global\cellnum0\relax
+ \global\align_state1\relax \ignorespaces ##1\unskip
+ \global\align_state2\relax &%
+ }
+ \def\B##1##2{%
+ \def\distender_kind{##2}%
+ \def\dimen_suffix{=}%
+ \def\B__{\B_##1##2}%
+ \ifx\distender_kind\dimen_suffix
+ \afterassignment\B__ \global\tablerowheight =
+ \else \global\tablerowheight=0pt\relax \expandafter \B__ \fi
+ }%
+ \def\B_##1##2{%
+% if ##2 equals to 0 - = + _ ^ or : it is interpreted in a special way;
+% otherwise ##2 is treated as if it were equal to 0 and the token list
+% swallowed as ##2 parameter is put after \br{...}; in the later case,
+% however, surrounding curly braces may disappear; in these, hopefully, rare
+% situations using either explicitly suffix 0 or double bracing may help
+ \br{##1\spec_distendertrue\D{##2}}}
+ \def\er##1{\global\align_state=3\unskip&##1\unskip \global\align_state=0
+ \iftapverbose \message{*}\fi \cr}
+ \def\E{\er}
+ \def\D##1{% ``distender''
+% if ##1 equals to 0 - = + _ ^ or : it is interpreted in a special way,
+% namely, a strut of an appropriate size is formed; otherwise ##1 is just
+% returned to \TeX (possibly without curly braces, however); see also
+% definition of \B above
+ \ifvmode\leavevmode\fi
+ \ifhmode\nobreak\hskip0pt\relax\fi % enable breaking of a preceding word
+ \gdef\next_tok{}%
+ \def\distender_kind{##1}%
+ \def\null_suffix{0}%
+ \def\flat_suffix{-}%
+ \def\dimen_suffix{=}%
+ \def\norm_suffix{+}%
+ \edef\dn_suffix{\normalundscore}% an exception
+ \def\up_suffix{^}%
+ \def\updn_suffix{:}%
+ \setbox\box_tmp\hbox{%
+ \ostrut
+ \ifx\distender_kind\null_suffix \else
+ \ifx\distender_kind\norm_suffix height\normht depth\normdp \else
+ \ifx\distender_kind\flat_suffix height0mm depth0mm
+ \ifspec_distender
+ \global\let\begincell\beginflatcell
+ \global\let\endcell\endflatcell
+ \fi
+ \else
+ \ifx\distender_kind\dimen_suffix height0mm depth0mm
+ \ifspec_distender
+ \global\let\begincell\begindimencell
+ \global\let\endcell\enddimencell
+ \else
+ \immediate\write16{%
+ \tap_warning: `=' following \string\D\space is equivalent to `0'}%
+ \fi
+ \else
+ \ifx\distender_kind\up_suffix height\extraht depth\normdp \else
+ \ifx\distender_kind\dn_suffix height\normht depth\extradp \else
+ \ifx\distender_kind\updn_suffix height\extraht depth\extradp
+ \else \gdef\next_tok{##1}% unrecognized token(s) will recirculate
+ \fi\fi\fi\fi\fi\fi\fi \relax
+ }%
+ \xdef\curr_distender_depth{\the\dp\box_tmp}%
+ \xdef\curr_distender_height{\the\ht\box_tmp}%
+ \unhbox\box_tmp
+ \ifspec_distender
+ \aftergroup\next_tok % put \next_tok in a next alignment cell
+ \else \expandafter \next_tok \fi
+ }
+ \let@\usecells
+ \def~{\leavevmode\phantom{0}}% invisible digit (usually, all digits have
+ % the same width)
+% \def\$##1{~\llap{$##1$}}% mathematical sign, with
+% % width of digit
+% \def\,{\leavevmode\phantom{,}}% space of coma
+ \defaultstrut
+ \longcalculationtrue
+ \cellmarg\defaultcellmarg % freeze a default value
+ \everycr{\noalign{%
+ \ifnum\cellnum>\maxcellnum \global\maxcellnum\cellnum\fi
+ \global\let\begincell\defaultbegincell
+ \global\let\endcell\defaultendcell
+ \global\align_state0
+ }}
+ \let\defaultbegincell\relax
+ \let\defaultendcell\relax
+ \tablerulecmyk{}% no color is specified
+ \tablebkgcmyk{0 0 0 0}% background is white by default
+ \global\deferredtrue % deferred anchor execution is default
+ \the\everytable\relax \the\thistable\relax}
+
+\def\begintable_{\vbox\bgroup
+ \global\let\begincell\defaultbegincell % \begincell and \endcell
+ \global\let\endcell\defaultendcell % are always set globally,
+ \global\let\currtfont\relax % \currtfont too
+% \currtfont was introduced in order to avoid global font assignments
+% as well as to avoid a premature expansion
+% of \currtfont in \begintableformat
+ \global\maxcellnum0 \global\cellnum0 \global\mincellmarg\maxdimen
+ \let\cellaction_\relax % protect against premature expansions
+ \let\ori_par\par
+ \let\par\empty % set to original meaning at the beginning of each vbox
+ \everyvbox\expandafter{\the\everyvbox \let\par\ori_par}
+}
+\def\endtable_{\crcr\egroup\egroup}
+
+\def\begintableformat #1\endtableformat{\offinterlineskip \tabskip = 0pt
+ \let\left\preambleleft \let\center\preamblecenter \let\right\preambleright
+ \def"{&########&}
+ \edef\tbl_form{####&#1&####\cr}
+ \let\left\tableleft \let\center\tablecenter \let\right\tableright
+ \def"{\cellaction\relax}
+ \xdef\currtfont{\the\font}
+ \edef\leftcellside{\leftcellside}
+ \edef\rightcellside{\rightcellside}
+ \halign\bgroup\span\tbl_form}
+
+\def\begintable{\vbox\bgroup \table_setup \midtable}
+\long\def\midtable #1\endtable{%
+ \def\curr_table{\begintable_#1\endtable_}\nospecanchors
+ \edef\currhbadness{\the\hbadness}\edef\currvbadness{\the\vbadness}%
+ \ifdim\desiredwidth>0mm \hbadness10000 \vbadness10000 \fi
+ \setbox\table_box\hbox{\curr_table}%
+ \ifdim\desiredwidth>0mm
+ \ifdim\wd\table_box>0mm
+ \fix_cellcorr
+% typesetset the table for the last time with the original badnesses
+ \hbadness\currhbadness \vbadness\currvbadness
+ \setbox\table_box\hbox{\curr_table}%
+ \iflongcalculation \else \width_warning\fi
+ \margin_warning
+ \else
+ \immediate\write16{%
+ \tap_warning: table width = \the\wd\table_box\space
+ (\desiredwidth ignored).}%
+ \fi
+ \fi
+ \xdef\tablewidth{\the\wd\table_box}%
+ \xdef\tablecellcorr{\the\cellcorr}%
+ \box\table_box
+ \egroup
+ \thistable{\relax}}
+
+\def\deftable#1\begintable{% #1 is expected to be a valid macro header,
+% preferably a csname; characters in the header have ``outer'' category
+% codes, i.e., not ``table'' category codes
+ \begingroup
+ \outer\def\begintable{}% protect against missing `\endtable'
+ \def\table_name{#1}\tableactive
+ \expandafter \expandafter \expandafter \gdef \expandafter \table_name
+ \deftablecont}
+\long\def\deftablecont#1\endtable{{#1}\endgroup}
+
+% ====================== PostScript (anchor) macros =======================
+\def\beginanchtable{\vbox\bgroup \psunits_setup \table_setup \midanchtable}
+\long\def\midanchtable #1\endanchtable{%
+ \def\curr_table{%
+ \gdef\useanchors{}% \useanchors is defined during typesetting a table
+ \begintable_#1\endtable_}%
+ \edef\currhbadness{\the\hbadness}\edef\currvbadness{\the\vbadness}%
+% at least two table settings are necessary with anchors, as \cornerfullanchor
+% likes to know the actual table width, hence the first setting is always
+% temporary; if a short calculation option holds, after fixing the
+% cell correction the table must be set once again, for the same reason
+ \hbadness10000 \vbadness10000
+ \setbox\table_box\hbox{\nospecanchors\curr_table}%
+ \edef\totalcellnum{\the\maxcellnum}% actually = 2 x ``visible'' cell number
+ \hbox{%
+ \ifdim\desiredwidth>0mm \fix_cellcorr
+ \iflongcalculation \else % see the previous comment
+ \setbox\table_box\hbox{\nospecanchors\curr_table}%
+ \fi
+ \fi
+% typesetset the table for the last time with the original badnesses
+% casting anchors
+ \hbadness\currhbadness \vbadness\currvbadness
+ \setbox\table_box\hbox{\curr_table}%
+ \ifdim\desiredwidth>0mm
+ \iflongcalculation \else \width_warning\fi
+ \margin_warning
+ \fi
+ \xdef\tablewidth{\the\wd\table_box}%
+ \xdef\tablecellcorr{\the\cellcorr}%
+ \tbkg_patch\table_box
+% \useanchors is now defined, it will expand to commands that use anchors
+ \hbadness\currhbadness \vbadness\currvbadness
+ \useanchors \nospecanchors \llap{\curr_table}%
+ }%
+ \egroup
+ \thistable{\relax}}
+% ---
+\def\tbkg_patch#1{% \tbkg_patch puts a color patch (background) on the top
+% of a table given by #1; #1 is a csname of a table box; hmode is on.
+ \speccastat
+ {-\tablebkgcorr}{-\tablebkgcorr}
+ {\castspecial{ur}\tbkgsuffix{\wd#1}{\ht#1}}%
+ \speccastat
+ {\tablebkgcorr}{\tablebkgcorr}
+ {\castspecial{ll}\tbkgsuffix{0mm}{-\dp#1}}%
+ \box#1% cast anchors while typesetting table #1
+ \dotbkpatch % erase table; it seems better to use rather anchors than rules,
+ % as rules spoil ``classic'' previewing; patching was introduced
+ % in order to avoid the ``diffusion'' of a table contents
+ % (1 pixel?). If you don't care, or you use high resolution,
+ % you may wish to define \dotbkpatch as an empty command.
+}
+\def\tbkgsuffix{TbKg.SuF}% a suffix to be unlikely used by chance
+% \tbkgsuffix, \tablebkgcorr, and \dotbkpatch can be virtualy
+% exploited by a user, hence ``plain'' csnames were used; table background
+% colour is most likely to be used by a user, hence it is set in \table_setup
+\def\tablebkgcmyk#1{\def\thetablebkgcmyk{#1}}% set table background colour
+\def\tablebkgcorr{0mm}% tiny correction of the position of the corners
+ % of the table background
+\def\dotbkpatch{\specrect\tbkgsuffix\thetablebkgcmyk}
+% ---
+\def\anchoffset{.5\trth}% by default depends on current rule thickness
+% ---
+\def\nospecanchors{%
+ \def\expa_expa_##1##2##3##4{\gdef\useanchors{}}%
+ \def\speccastat##1##2##3{}%
+ \def\totalcellnum{0}%
+% \def\specrect##1##2{}%
+% \def\specdiagboth##1##2##3{}%
+% \def\specdiagdown##1##2##3{}%
+% \def\specdiagup##1##2##3{}%
+% \def\spectrianne##1##2{}%
+% \def\spectriannw##1##2{}%
+% \def\spectrianse##1##2{}%
+% \def\spectriansw##1##2{}%
+}
+% ---
+\def\castat#1#2#3{% cast anything at a chosen position, never ignored
+% #1 -- xoffset, #2 -- yoffset, #3 -- contents, presumably a \special command
+ \vbox to0mm{\vss\hbox to0mm{\kern#1\relax#3\hss}\kern#2}}
+% ---
+\def\speccastat{\castat} % \speccastat becomes empty in \nospecanchors
+% ---
+\def\castspecial#1#2#3#4{% cast PostScript anchor (presumably at a cell corner)
+% #1 = prefix (ur, ll, lr, ul), #2 -- suffix, #3 -- xoffset, #4 -- yoffset
+ \speccastat{#3}{#4}
+ {\tapspecial{currentpoint /y#1.#2 exch def /x#1.#2 exch def
+ /xlast.#2 x#1.#2 def /ylast.#2 y#1.#2 def}}}
+% ---
+\def\expa_expa_#1#2#3#4{%
+% #1 -- \def or \gdef, #2, #3, #4 -- csnames
+% performs #1#2{#3#4}, #3 and #4 expanded once;
+% e.g., given \def\pp{ALA} \def\qq{BELA},
+% \expa_expa_\def\pp\pp\qq defines \pp as a macro {ALABELA}
+ \expandafter\expandafter\expandafter#1%
+ \expandafter\expandafter\expandafter#2%
+ \expandafter\expandafter\expandafter{%
+ \expandafter#3#4}}
+%
+{\catcode`\p12 \catcode`\t12 \gdef\gobblePT#1pt{#1}}
+\def\dimval#1{\expandafter\gobblePT\the#1} % obsolete?
+\def\gobblespace#1 #2\relax{#1}
+% ---
+\def\appendanchors#1{%
+ \ifdeferred
+ \edef\useanchors_{#1}\expa_expa_\gdef\useanchors\useanchors\useanchors_
+ \else \global\deferredtrue #1\fi
+}
+%
+\def\rectfill#1#2{\noalign{\appendanchors{\noexpand\specrect{#2}{#1}}}}
+%
+\def\trianfill#1#{\noalign\bgroup
+ \lowercase{\edef\trian_dir{\gobblespace #1 \relax}}\trianfill_}
+\def\trianfill_#1#2{\appendanchors{%
+ \expandafter\noexpand\csname spectrian\trian_dir \endcsname {#2}{#1}}%
+\egroup}
+%
+\newdimen\pen_wd
+\def\diagstroke{\noalign\bgroup\afterassignment\diagstroke_\pen_wd}
+\def\diagstroke_#1#{%
+ \lowercase{\edef\diag_dir{\gobblespace #1 \relax}}\diagstroke__}
+\def\diagstroke__#1#2{\appendanchors{%
+ \expandafter\noexpand\csname specdiag\diag_dir \endcsname
+ {#2}{#1}{\number\pen_wd}}%
+ \egroup}
+% ---
+\def\specdiagboth#1#2#3{%
+% #1 index (suffix) of lower left and upper right corners (anchors)
+% #2 cmyk coordinates
+% #3 pen width in points, only the number (in scaled points)
+ \edef\cmyk_{#2}%
+ \tapspecial{gsave newpath \ifx\cmyk_\empty\else #2 setcmykcolor \fi
+ #3 sp setlinewidth 1 setlinecap
+ xll.#1 yll.#1 moveto xur.#1 yur.#1 lineto stroke
+ xll.#1 yur.#1 moveto xur.#1 yll.#1 lineto stroke grestore}}
+\def\specdiagdown#1#2#3{%
+% #1 index (suffix) of lower left and upper right corners (anchors)
+% #2 cmyk coordinates
+% #3 pen width in points, only the number (in scaled points)
+ \edef\cmyk_{#2}%
+ \tapspecial{gsave newpath \ifx\cmyk_\empty\else #2 setcmykcolor \fi
+ #3 sp setlinewidth 1 setlinecap
+ xll.#1 yur.#1 moveto xur.#1 yll.#1 lineto stroke grestore}}
+\def\specdiagup#1#2#3{%
+% #1 index (suffix) of lower left and upper right corners (anchors)
+% #2 cmyk coordinates
+% #3 pen width in points, only the number (in scaled points)
+ \edef\cmyk_{#2}%
+ \tapspecial{gsave newpath \ifx\cmyk_\empty\else #2 setcmykcolor \fi
+ #3 sp setlinewidth 1 setlinecap
+ xll.#1 yll.#1 moveto xur.#1 yur.#1 lineto stroke grestore}}
+\def\specrect#1#2{%
+% #1 index (suffix) of lower left and upper right corners (anchors)
+% #2 cmyk coordinates
+ \edef\cmyk_{#2}%
+ \tapspecial{gsave newpath \ifx\cmyk_\empty\else #2 setcmykcolor \fi
+ xll.#1 yll.#1 moveto
+ xur.#1 yll.#1 lineto xur.#1 yur.#1 lineto xll.#1 yur.#1 lineto
+ closepath fill grestore}}
+\def\spectrianne#1#2{%
+% #1 index (suffix) of lower left and upper right corners (anchors)
+% #2 cmyk coordinates
+ \edef\cmyk_{#2}%
+ \tapspecial{gsave newpath \ifx\cmyk_\empty\else #2 setcmykcolor \fi
+ xll.#1 yur.#1 moveto xur.#1 yll.#1 lineto xur.#1 yur.#1 lineto
+ closepath fill grestore}}
+\def\spectriannw#1#2{%
+% #1 index (suffix) of lower left and upper right corners (anchors)
+% #2 cmyk coordinates
+ \edef\cmyk_{#2}%
+ \tapspecial{gsave newpath \ifx\cmyk_\empty\else #2 setcmykcolor \fi
+ xll.#1 yll.#1 moveto xur.#1 yur.#1 lineto xll.#1 yur.#1 lineto
+ closepath fill grestore}}
+\def\spectrianse#1#2{%
+% #1 index (suffix) of lower left and upper right corners (anchors)
+% #2 cmyk coordinates
+ \edef\cmyk_{#2}%
+ \tapspecial{gsave newpath \ifx\cmyk_\empty\else #2 setcmykcolor \fi
+ xll.#1 yll.#1 moveto xur.#1 yll.#1 lineto xur.#1 yur.#1 lineto
+ closepath fill grestore}}
+\def\spectriansw#1#2{%
+% #1 index (suffix) of lower left and upper right corners (anchors)
+% #2 cmyk coordinates
+ \edef\cmyk_{#2}%
+ \tapspecial{gsave newpath \ifx\cmyk_\empty\else #2 setcmykcolor \fi
+ xll.#1 yll.#1 moveto xur.#1 yll.#1 lineto xll.#1 yur.#1 lineto
+ closepath fill grestore}}
+
+\newcount\col_num
+\newtoks\col_tok
+
+\newif\ifdeferred
+
+\def\ontext{\noalign{\global\deferredfalse}}
+\def\clearafters{\noalign{\gdef\aftersuffix{}\gdef\afteranchor{}}}
+
+\def\uranchor{\clearafters\corneranchor{ur}} % obsolescent (upward compatibility)
+\def\llanchor{\clearafters\corneranchor{ll}} % ditto
+\def\genanchor#1#2#3#4{% to be cast only inside a cell
+ \noalign{\gdef\aftersuffix{#3}\gdef\afteranchor{#4}}%
+ \corneranchor{#1#2}%
+}
+
+\def\corneranchor#1{% #1 = ur, ll, ul, lr, nr, nl,
+ \noalign\bgroup \def\next_{\corneranchor_#1}\afterassignment\next_
+ \global\col_num}
+\def\corneranchor_#1#2{% #1 = u, l, n, #2 = l, r
+ \if#1n%
+ \ifnum\col_num<1
+ \global\col_num\if#2r\totalcellnum \global\divide\col_num2
+ \else1\fi
+ \fi\fi
+ \global\advance\col_num-1\relax
+ \ifnum\col_num<0 \global\let\corneranchor__\cornerfullanchor
+ \else \global\let\corneranchor__\cornercellanchor \fi
+ \egroup \corneranchor__ #1#2}
+
+\def\cornerfullanchor#1#2#3{% #1 = u, l, n, #2 = l, r, #3 -- suffix,
+% \wd\table_box is set by \midanchtable
+ \br{\speccastat{\if#2r\wd\table_box\else0mm\fi}{0mm}
+ {\castspecial {#1#2}{#3\aftersuffix}
+ {\if#1n0mm\else\if#2r-\fi\anchoffset\fi}% cf. asymmetry below
+ {\if#1n0mm\else\if#1l-\fi\anchoffset\fi}}}%
+ \er{}\noalign{\xdef\lastsuffix{#3}\afteranchor}\clearafters}
+
+\def\cornercellanchor#1#2#3{% #1 = u, l, #2 = l, r, #3 -- suffix
+ \br{}
+ \col_tok{}%
+ \loop \ifnum\col_num>0
+ \global\advance\col_num-1 \col_tok\expandafter{\the\col_tok"}%
+ \repeat
+ \the\col_tok
+ \if#2r\hskip0ptplus1filll\fi
+ \speccastat
+ {\if#2l-\fi \ifignorecellstate 1\else
+ \ifcase\cellstate \if#2l0\else2\fi\or 1\or \if#2l2\else0\fi\fi\fi
+ \cellcorr}{0mm}
+ {\speccastat {\if#2l-\fi\cellmarg}{0mm}
+ {\castspecial {#1#2}{#3\aftersuffix}
+ {\if#1n0mm\else\if#2l-\fi\anchoffset\fi}% cf. asymmetry above
+ {\if#1n0mm\else\if#1l-\fi\anchoffset\fi}}%
+ }%
+ \if#2l\hskip0ptplus1filll\null\fi
+ \er{}\noalign{\xdef\lastsuffix{#3}\afteranchor}\clearafters}
+% ---
+% newer approach to anchors (introduced in ver. 0.74):
+\def\bpsinsertion#1#2#3{\genanchor #1#2{#3}{}}
+\def\epsinsertion#1#2#3#4{%
+ \genanchor#2#3{#4}{\appendanchors{\tapspecial{#1}}}%
+}
+
+\def\bgenstroke#1#2{\bpsinsertion #1#2{.bs}}
+\def\egenstroke#1#2#3{%
+ \epsinsertion {gsave newpath
+ xlast.\lastsuffix.bs ylast.\lastsuffix.bs moveto
+ xlast.\lastsuffix.es ylast.\lastsuffix.es lineto
+ trth setlinewidth % default
+ #1 % extra settings
+ stroke grestore
+ }#2#3{.es}%
+}
+
+\def\bgenrectangle#1#2{\bpsinsertion #1#2{.br}}
+\def\egenrectangle#1#2#3{%
+ \epsinsertion{gsave
+ xlast.\lastsuffix.br ylast.\lastsuffix.br
+ xlast.\lastsuffix.er xlast.\lastsuffix.br sub
+ ylast.\lastsuffix.er ylast.\lastsuffix.br sub
+ #1 % extra settings
+ rectfill grestore
+ }#2#3{.er}%
+}
+
+\def\bstroke{\bgenstroke}
+\def\estroke{% waits for pen width; next: cmyk, dash, corner, column, suffix
+ \noalign\bgroup \afterassignment\estroke_ \global\pen_wd}
+\def\estroke_#1#2{\egroup \egenstroke{\number\pen_wd\space sp setlinewidth
+ mark #1 counttomark 4 eq {setcmykcolor} if cleartomark
+ [[#2] {pt} forall] 0 setdash}}
+
+\def\brectangle{\bgenrectangle}
+\def\erectangle#1{% waits for cmyk, corner, column, suffix
+ \egenrectangle{mark #1 counttomark 4 eq {setcmykcolor} if cleartomark}}
+
+% ====== ``floating point arithmetic'' (excerpted from T. Rokicki): =======
+%
+% ^ r y
+% |
+% |
+% |
+% |
+% 0-----------> t x
+%
+\def\resize
+ % dimen registers:
+ #1% y make y such that y/r=x/t
+ #2% r
+ #3% x
+ #4% t
+% We have a sticky problem here: TeX doesn't do floating point arithmetic!
+% Our goal is to compute y = rx/t. The following loop does this reasonably
+% fast, with an error of at most about 16 sp (about 1/4000 pt).
+ {%
+ % save parameters to the internal variables:
+ \dim_r#2\relax \dim_x#3\relax \dim_t#4\relax
+ \dim_tmp=\dim_r \divide\dim_tmp\dim_t
+ \dim_y=\dim_x \multiply\dim_y\dim_tmp
+ \multiply\dim_tmp\dim_t \advance\dim_r-\dim_tmp
+ \dim_tmp=\dim_x
+ \loop \advance\dim_r\dim_r \divide\dim_tmp 2
+ \ifnum\dim_tmp>0
+ \ifnum\dim_r<\dim_t\else
+ \advance\dim_r-\dim_t \advance\dim_y\dim_tmp \fi
+ \repeat
+ % assign result:
+ #1\dim_y\relax}
+%
+\newdimen\dim_x % horizontal size after scaling
+\newdimen\dim_y % vertical size after scaling
+\newdimen\dim_t % horizontal size before scaling
+\newdimen\dim_r % vertical size before scaling
+\newdimen\dim_tmp % register for arithmetic manipulation
+
+% ============================== Postamble ================================
+\catcode`\"\dblquotecatcode
+\catcode`\|\brokenbarcatcode
+\catcode`\!\exclamcatcode
+\catcode`\_=\undscorecatcode
+\catcode`\@=\atcatcode
+
+\endinput