summaryrefslogtreecommitdiff
path: root/tex/context/base/supp-eps.tex
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/supp-eps.tex')
-rw-r--r--tex/context/base/supp-eps.tex114
1 files changed, 57 insertions, 57 deletions
diff --git a/tex/context/base/supp-eps.tex b/tex/context/base/supp-eps.tex
index 8f4251041..17d68df4f 100644
--- a/tex/context/base/supp-eps.tex
+++ b/tex/context/base/supp-eps.tex
@@ -8,8 +8,8 @@
%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.
\ifx \undefined \writestatus \input supp-mis.tex \relax \fi
@@ -17,53 +17,53 @@
%D part of the figure inclusion macros. When \PDFTEX\ started
%D to support \PDF\ inclusion, where some accompanying macros
%D were put in \type{supp-pdf}, I considered it more suitable
-%D to give the \EPS\ macros their own module.
+%D to give the \EPS\ macros their own module.
\writestatus{loading}{Context Support Macros / EPS}
%D \macros
%D {dogetEPSboundingbox}
%D
-%D The predecessors of the following macro's are derived from
-%D Thomas Rockicky's macro's. They are rewritten to a more
-%D compact form, made a bit more robust and also handle the
-%D \type{HiResBoundingBox} and \type{ExactBoundingBox} that
+%D The predecessors of the following macro's are derived from
+%D Thomas Rockicky's macro's. They are rewritten to a more
+%D compact form, made a bit more robust and also handle the
+%D \type{HiResBoundingBox} and \type{ExactBoundingBox} that
%D are sometimes present.
%D
-%D A bounding box has the form:
+%D A bounding box has the form:
%D
-%D \starttypen
-%D %%BoundingBox: llx lly urx ury
-%D \stoptypen
+%D \starttyping
+%D %%BoundingBox: llx lly urx ury
+%D \stoptyping
%D
-%D Before we scan the file, we have to reset special
-%D characters and set some others. The percentage symbol also
-%D needs special treatment. When a bounding box is
-%D encountered, we keep on scanning until no more directives
-%D are found, i.e. a line is found that does not start with a
-%D percentage symbol. We also abort scanning after finding a
-%D high resolution bounding box.
+%D Before we scan the file, we have to reset special
+%D characters and set some others. The percentage symbol also
+%D needs special treatment. When a bounding box is
+%D encountered, we keep on scanning until no more directives
+%D are found, i.e. a line is found that does not start with a
+%D percentage symbol. We also abort scanning after finding a
+%D high resolution bounding box.
%D
-%D This method also works inside verbatim mode (like when we
-%D are typesetting sources and putting eps coded logos into
-%D a heading. Temporary restoring the \CATCODES\ is done in
-%D the calling routine.
+%D This method also works inside verbatim mode (like when we
+%D are typesetting sources and putting eps coded logos into
+%D a heading. Temporary restoring the \CATCODES\ is done in
+%D the calling routine.
%D
-%D The creator as well as external support for specials are
-%D analyzed as well and their status is available in \type
-%D {\EPScreator} and \type {\EPSshading}. The boundingbox
-%D components are available in \type {\EPSllx} etc.
+%D The creator as well as external support for specials are
+%D analyzed as well and their status is available in \type
+%D {\EPScreator} and \type {\EPSshading}. The boundingbox
+%D components are available in \type {\EPSllx} etc.
\unprotect
-\def\EPSllx{0} \let\MPllx\EPSllx % just in case these
-\def\EPSlly{0} \let\MPlly\EPSlly % are used while running
+\def\EPSllx{0} \let\MPllx\EPSllx % just in case these
+\def\EPSlly{0} \let\MPlly\EPSlly % are used while running
\def\EPSurx{0} \let\MPurx\EPSurx % in fast mode we set
-\def\EPSury{0} \let\MPury\EPSury % them to 0.
+\def\EPSury{0} \let\MPury\EPSury % them to 0.
-\chardef\EPSfound =0
-\chardef\EPScreator=0
-\chardef\EPSspecial=0
+\chardef\EPSfound =0
+\chardef\EPScreator=0
+\chardef\EPSspecial=0
\chardef\EPSstatus =0
\let\EPScreatorstring\empty
@@ -76,7 +76,7 @@
\def\dogetEPSboundingbox#1#2#3#4#5%
{\bgroup
\global\chardef\EPSfound 0
- \global\chardef\EPScreator0
+ \global\chardef\EPScreator0
\global\chardef\EPSspecial0
\global\chardef\EPSstatus 0
\global\let\EPScreatorstring\empty
@@ -88,10 +88,10 @@
\doprocessfile\scratchread{#1}\doprocessEPSline
\egroup
\ifnum\EPSfound>0
- #2=\EPSllx bp% Using \EPSllx bp instead of
+ #2=\EPSllx bp% Using \EPSllx bp instead of
#4=\EPSurx bp% \dimen0=1bp and \EPSllx\dimen0
- #3=\EPSlly bp% is more accurate (.005pt).
- #5=\EPSury bp%
+ #3=\EPSlly bp% is more accurate (.005pt).
+ #5=\EPSury bp%
\scratchdimen\EPSllx bp\advance#4 -\scratchdimen
\scratchdimen\EPSlly bp\advance#5 -\scratchdimen
\else
@@ -106,23 +106,23 @@
\bgroup \catcode`\%=\@@other \xdef\letterpercent{\string%} \egroup
-\def\EPSboundingboxtag {BoundingBox}
-\def\EPShiresboundingboxtag{HiResBoundingBox}
-\def\EPSexactboundingboxtag{ExactBoundingBox}
-\def\EPScreatortag {Creator}
-\def\EPSmetaposttag {MetaPost}
-\def\EPSmetapostspecialtag {MetaPostSpecial}
-\def\EPSmetapostspecialstag{MetaPostSpecials}
-\def\EPSpagetag {Page}
+\def\EPSboundingboxtag {BoundingBox}
+\def\EPShiresboundingboxtag{HiResBoundingBox}
+\def\EPSexactboundingboxtag{ExactBoundingBox}
+\def\EPScreatortag {Creator}
+\def\EPSmetaposttag {MetaPost}
+\def\EPSmetapostspecialtag {MetaPostSpecial}
+\def\EPSmetapostspecialstag{MetaPostSpecials}
+\def\EPSpagetag {Page}
-\let\EPSspecialstring \empty
-\let\EPSspecialcontent\empty
+\let\EPSspecialstring \empty
+\let\EPSspecialcontent\empty
\long\def\checkEPSboundingbox#1#2#3:#4:.#5\end
{\if\string#1\letterpercent
\if\string#2\letterpercent
- \edef\EPSspecialstring{#3}%
- \edef\EPSspecialcontent{#4}%
+ \edef\EPSspecialstring{#3}%
+ \edef\EPSspecialcontent{#4}%
\ifx\EPSspecialstring\EPScreatortag
\getEPScreatorspec
\else\ifx\EPSspecialstring\EPSboundingboxtag
@@ -136,12 +136,12 @@
\getEPSboundingboxspec
\global\chardef\EPSfound 2
\dofinishEPSfile
- \else\ifx\EPSspecialstring\EPSmetapostspecialtag % only before finish!
- \global\chardef\EPSspecial 1 % ah, we've met some MP extensions
- \else\ifx\EPSspecialstring\EPSmetapostspecialstag % only before finish!
- \global\chardef\EPSspecial 1 % ah, we've met some MP extensions
- \else\ifx\EPSspecialstring\EPSpagetag
- \global\chardef\EPSstatus 1 % we passed MP font defs
+ \else\ifx\EPSspecialstring\EPSmetapostspecialtag % only before finish!
+ \global\chardef\EPSspecial 1 % ah, we've met some MP extensions
+ \else\ifx\EPSspecialstring\EPSmetapostspecialstag % only before finish!
+ \global\chardef\EPSspecial 1 % ah, we've met some MP extensions
+ \else\ifx\EPSspecialstring\EPSpagetag
+ \global\chardef\EPSstatus 1 % we passed MP font defs
\else
\the\extraEPSpreambleparsers
\fi\fi\fi\fi\fi\fi\fi
@@ -161,7 +161,7 @@
\def\getEPSboundingboxspec
{\edef\EPSspecialstring{\EPSspecialcontent\space . . . . }%
\expandafter\dogetEPSboundingboxspec\EPSspecialstring\end}
-
+
\def\dogetEPSboundingboxspec#1 #2 #3 #4 #5\end
{\gdef\EPSllx{#1}%
\ifx\EPSllx\empty
@@ -188,8 +188,8 @@
\def\dogetEPSpreambledata#1% can be combined with \extraEPSpreambleparsers
{\bgroup
- \let\dofinishEPSfile\relax % dirty trick, read past all bboxes
+ \let\dofinishEPSfile\relax % dirty trick, read past all bboxes
\dogetEPSboundingbox{#1}\!!widtha\!!heighta\!!widthb\!!heightb
\egroup}
-\protect \endinput
+\protect \endinput