diff options
Diffstat (limited to 'tex/context/base/supp-eps.tex')
-rw-r--r-- | tex/context/base/supp-eps.tex | 114 |
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 |