summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/m-pictex.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/m-pictex.tex')
-rw-r--r--Master/texmf-dist/tex/context/base/m-pictex.tex84
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