diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/m-pictex.tex')
-rw-r--r-- | Master/texmf-dist/tex/context/base/m-pictex.tex | 84 |
1 files changed, 42 insertions, 42 deletions
diff --git a/Master/texmf-dist/tex/context/base/m-pictex.tex b/Master/texmf-dist/tex/context/base/m-pictex.tex index 98c5ddbcd01..90bb7b33944 100644 --- a/Master/texmf-dist/tex/context/base/m-pictex.tex +++ b/Master/texmf-dist/tex/context/base/m-pictex.tex @@ -8,45 +8,45 @@ %D copyright={PRAGMA / Hans Hagen \& Ton Otten}] %C %C This module is part of the \CONTEXT\ macro||package and is -%C therefore copyrighted by \PRAGMA. See mreadme.pdf for -%C details. +%C therefore copyrighted by \PRAGMA. See mreadme.pdf for +%C details. %D This module is one big hack. This hack is not needed when -%D using \ETEX, so there we simply load \PICTEX\ and quit. +%D using \ETEX, so there we simply load \PICTEX\ and quit. %D Not every package defines \type{\fiverm}, \PICTEX's pixel, -%D so let's take care of that omision here. The actual loading -%D of \PICTEX\ depends on the package. For \LATEX\ users we +%D so let's take care of that omision here. The actual loading +%D of \PICTEX\ depends on the package. For \LATEX\ users we %D take care of loading the auxiliary ones too. -\def\loadpictex% - {\ifx\grid\undefined \else \let\normalgrid\grid \fi - \ifx\axis\undefined \else \let\normalaxis\axis \fi +\def\loadpictex + {\ifx\grid\undefined \else \let\normalgrid\grid \fi + \ifx\axis\undefined \else \let\normalaxis\axis \fi \ifx\undefined\fiverm \font\fiverm=cmr5 \fi \ifx\beginpicture\undefined \ifx\newenvironment\undefined - \input pictex.tex \relax + \readfile{thrd-pic.tex}{}{} \else \input prepictex.tex \relax \input pictex.tex \relax \input postpictex.tex \relax \fi \fi - \ifx\normalgrid\undefined \else - \let\pictexgrid\grid + \ifx\normalgrid\undefined \else + \let\pictexgrid\grid \let\grid\normalgrid - \fi - \ifx\normalaxis\undefined \else - \let\pictexaxis\axis + \fi + \ifx\normalaxis\undefined \else + \let\pictexaxis\axis \let\axis\normalaxis - \fi} + \fi} + +\ifx\eTeXversion\undefined \else \loadpictex \expandafter \endinput \fi -\ifx\eTeXversion\undefined \else \loadpictex \expandafter \endinput \fi - -%D When not in \ETEX\ and not in \CONTEXT, we load a few -%D auxiliary macros. +%D When not in \ETEX\ and not in \CONTEXT, we load a few +%D auxiliary macros. \ifx \undefined \writestatus \input supp-mis.tex \relax \fi @@ -58,10 +58,10 @@ %D allocated. Packages that use \PICTEX\ can therefore run out %D of \DIMENSIONS\ quite fast. This module was written as a %D reaction to persistent problems with loading \PPCHTEX\ in -%D \LATEX\ and \PICTEX\ deserves a solution. I therefore -%D dedicate this module to Tobias Burnus and Dirk Kuypers, who +%D \LATEX\ and \PICTEX\ deserves a solution. I therefore +%D dedicate this module to Tobias Burnus and Dirk Kuypers, who %D use \PPCHTEX\ in a \LATEX\ environment and suggested a lot -%D of extensions to the repertoire of \PPCHTEX\ commands. +%D of extensions to the repertoire of \PPCHTEX\ commands. %D %D This module presents a solution that is quite effective: all %D \DIMENSIONS\ are drawn from the pool of \DIMENSIONS\ and @@ -76,9 +76,9 @@ %D %D In such cases the \DIMENSION\ equals the fixed part of the %D \SKIP\ or in other words: this assignment strips off the -%D glue. Because \PICTEX\ uses no glue components, I thought -%D I could interchange both register types without problems, -%D but alas, this didn't hold for all \DIMENSIONS. +%D glue. Because \PICTEX\ uses no glue components, I thought +%D I could interchange both register types without problems, +%D but alas, this didn't hold for all \DIMENSIONS. %D In \PLAIN\ \TEX\ the allocation macros are defined with (as) %D \type{\outer}. This means that they cannot appear inside @@ -100,8 +100,8 @@ %D and 17 \SKIPS. After loading \PICTEX, 71 \DIMENSIONS\ and %D and 71 \SKIPS\ are allocated. Indeed, \PICTEX\ needs 110 %D \DIMENSIONS ! -%D -%D \starttyping +%D +%D \starttyping %D \def\newdimen %D {\ifnum\count11>\count12 %D \let\next\temporarynewskip @@ -110,7 +110,7 @@ %D \fi %D \next} %D \stoptyping -%D +%D %D When I was testing a new version of \PPCHTEX\ in \PLAIN\ %D \TEX\ I had to find out that this exchange of registers %D sometimes leads to unwanted results. It took me some hours @@ -134,7 +134,7 @@ %D \starttyping %D \ifdim\DimenOne<\DimenTwo\relax right \else wrong \fi %D \stoptyping -%D +%D %D Some close reading of the \PICTEX\ source however learned me %D that this problem could be solved best by just honoring the %D allocation of \DIMENSIONS\ when the name of the macro @@ -143,7 +143,7 @@ %D \DIMENSIONS\ with this sequence in their names with %D \type{\dimen}. Again I was too optimistic, so now we do it %D this way (the comments are from \PICTEX, which like \TABLE, -%D is an example of a well documented package): +%D is an example of a well documented package): \temporarynewdimen\!dimenA %.AW.X.DVEUL..OYQRST \temporarynewdimen\!dimenB %....X.DVEU...O.QRS. @@ -162,10 +162,10 @@ \temporarynewdimen\!ypos %..........L.P..Q.ST \temporarynewdimen\!zpt %.AWBX.DVEULGP.YQ.ST -%D Tobias tested this module in all kind of \LATEX\ dialects -%D so we were able to find out that we also needed to declare: +%D Tobias tested this module in all kind of \LATEX\ dialects +%D so we were able to find out that we also needed to declare: -\temporarynewdimen\linethickness +\temporarynewdimen\linethickness %D After all, the new definition of \type{\newdimen} became: @@ -198,12 +198,12 @@ % \fi\fi}% % \expandafter\next\string##2##1@@\next}% % \expandafter\next\expandafter{\string\dimen}#1} -% +% % This macro is as unreadable, inefficient and as compact as -% can be, but uses no extra hash entries, which sometimes are -% scarce too. A more readable alternative, that also takes -% explicit \SKIPS\ into account, is included in the source. -% +% can be, but uses no extra hash entries, which sometimes are +% scarce too. A more readable alternative, that also takes +% explicit \SKIPS\ into account, is included in the source. +% % \def\doifregisterpreferenceelse#1#2#3#4% % {\def\dodoifregisterpreferenceelse##1#1##2##3\war{\if##2@}% % \expandafter\dodoifregisterpreferenceelse\string#2#1@@\war @@ -211,7 +211,7 @@ % \else % #3% % \fi} -% +% % \def\newdimen#1% % {\bgroup % \escapechar=-1 @@ -230,14 +230,14 @@ %D Curious readers can still find the previous solution in %D the source. The next macro is used instead of -%D \type{\input}. This macro also reports some statistics. +%D \type{\input}. This macro also reports some statistics. \def\dimeninput#1 % {\message{[before: d=\the\count11,s=\the\count12]}% \input #1 \relax \message{[after: d=\the\count11,s=\the\count12]}}% -%D Now we can load \PICTEX: +%D Now we can load \PICTEX: \loadpictex @@ -247,6 +247,6 @@ \let\newdimen=\normalnewdimen \let\newskip =\normalnewskip -%D and just hope for the best. +%D and just hope for the best. \protect \endinput |