%\iffalse
%<*copyright>
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% graphicxsp.sty package,                              %%
%% Copyright (C) 2007--2019  D. P. Story                %%
%%   dpstory@acrotex.net                                %%
%%                                                      %%
%% This program can redistributed and/or modified under %%
%% the terms of the LaTeX Project Public License        %%
%% Distributed from CTAN archives in directory          %%
%% macros/latex/base/lppl.txt; either version 1 of the  %%
%% License, or (at your option) any later version.      %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%</copyright>
%<package>\NeedsTeXFormat{LaTeX2e}[1997/12/01]
%<package>\ProvidesPackage{graphicxsp}
%<package> [2019/11/13 v1.0.3 Graphicxsp: Extension of graphicx for dvips/dvipsone (dps)]
%<*driver>
\documentclass{ltxdoc}
\usepackage[colorlinks,hyperindex=false]{hyperref}
%\def\texorpdfstring#1#2{#1}
%\pdfstringdefDisableCommands{\let\\\textbackslash}
\OnlyDescription  % comment out for implementation details
\EnableCrossrefs
\CodelineIndex
\RecordChanges
\InputIfFileExists{aebdocfmt.def}{\PackageInfo{graphicxsp}{Inputting aebdocfmt.def}}
  {\def\IndexOpt{\DescribeMacro}\def\IndexKey{\DescribeMacro}\let\setupFullwidth\relax
   \PackageInfo{graphicxsp}{aebdocfmt.def cannot be found}}
\begin{document}
\def\CMD#1{\textbackslash#1}
\let\pkg\textsf
\let\opt\texttt
\addtolength{\marginparwidth}{3pt}
  \GetFileInfo{graphicxsp.sty}
  \title{\textsf{GraphicxSP}: Re-using EPS files}
  \author{D. P. Story\\
    Email: \texttt{dpstory@acrotex.net} \& \texttt{storyd@owc.edu}}
  \date{processed \today}
  \maketitle
  \tableofcontents
  \let\Email\texttt
  \DocInput{graphicxsp.dtx}
\IfFileExists{\jobname.ind}{\newpage\setupFullwidth\par\PrintIndex}{\paragraph*{Index} The index goes here.\\Execute
    \texttt{makeindex -s gind.ist -o graphicxsp.ind graphicxsp.idx} on the command line and recompile
    \texttt{graphicxsp.dtx}.}
\IfFileExists{\jobname.gls}{\PrintChanges}{\paragraph*{Change History} The list of changes goes here.\\Execute
    \texttt{makeindex -s gglo.ist -o graphicxsp.gls graphicxsp.glo} on the command line and recompile
    \texttt{graphicxsp.dtx}.}
\end{document}
%</driver>
% \fi
% \MakeShortVerb{|}
%
% \DoNotIndex{\advance}
% \DoNotIndex{\space,\@empty,\special}
%
%    \begin{macrocode}
%<*package>
%    \end{macrocode}
%
% \section{Introduction}
%
% \textsf{GraphicxSP} is a patch into the \textsf{graphicx} package so that users of \textsf{dvips} and
% \textsf{dvipsone}, using distiller, can insert and re-use \texttt{.eps} figures.
%    \begin{macrocode}
%    \end{macrocode}
%
% \section{Package Options}
%
%    \begin{macro}{preview}
%    \begin{macro}{dvipsone}
%    \begin{macro}{dvips}
%    \begin{macro}{showembeds}
%    \begin{macro}{!showembeds}
% This package recognizes three options: driver names \texttt{dvips} (the default),
% \texttt{dvipsone} (old YandY \TeX) and a \texttt{preview}.
% \texttt{dvipsone}, using distiller, can insert and re-use \texttt{.eps} figures.
%    \begin{macrocode}
\@ifundefined{ifpreview}{\newif\ifpreview\previewfalse}{}
%    \end{macrocode}
%    (2017/03/12) Added two convenience commands.
%    \changes{v1.0a}{2017/03/12}{Added \string\cs{previewOn} and \string\cs{previewOff}}
%    \begin{macrocode}
\providecommand{\previewOn}{\previewtrue}
\providecommand{\previewOff}{\previewfalse}
\DeclareOption{preview}{\previewtrue}
\DeclareOption{dvipsone}{\def\gxsp@drivernum{0}}
\DeclareOption{dvips}{\def\gxsp@drivernum{1}}
\DeclareOption{showembeds}{\let\gxsp@showembeds=0}
\DeclareOption{!showembeds}{\let\gxsp@showembeds=1}
\let\gxsp@showembeds=1
\def\gxsp@drivernum{1}
%    \end{macrocode}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \begin{macro}{draft}
%    \begin{macro}{final}
%    \begin{macro}{shownonames}
%    \begin{macro}{!shownonames}
% The \texttt{draft} mode passes \texttt{draft} on to \textsf{graphicx}. The images
% appear as rectangles, with the name of the image. The \texttt{shownonames} option
% removes the name inside the rectangle.
% \changes{v.7b}{2012/09/11}{Added \texttt{draft}, \texttt{final}, \texttt{shownonames} options}
%    \begin{macrocode}
\DeclareOption{draft}{\spxGin@drafttrue
    \PassOptionsToPackage{draft}{graphicx}}
\DeclareOption{!draft}{}
\DeclareOption{final}{\spxGin@draftfalse
    \PassOptionsToPackage{final}{graphicx}}
\DeclareOption{shownonames}{\@spx@shownameindraftfalse}
\DeclareOption{!shownonames}{\@spx@shownameindrafttrue}
\newif\if@spx@shownameindraft \@spx@shownameindrafttrue
\newif\ifspxGin@draft \spxGin@draftfalse
%    \end{macrocode}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \begin{macrocode}
\InputIfFileExists{graphics.cfg}{}{}
\ProcessOptions
\@ifundefined{eq@driver@name}{}{%
%    \end{macrocode}
% As a point of personal convenience, if \cs{eq@driver@name}, which is
% defined in \textsf{web}, and the name is \texttt{dvipsone}, we'll override
% the default of \texttt{dvips}.
%    \begin{macrocode}
\def\DVIPSONE{dvipsone}\ifx\eq@driver@name\DVIPSONE
\def\gxsp@drivernum{0}\fi}
%    \end{macrocode}
%
% \section{Package Requirements}
%
% We minimally require the \textsf{graphicx} package, which we patch
% into, and the \textsf{eso-pic}, package, which, in turn, requires
% the \textsf{everyshi} package.
%    \begin{macrocode}
\RequirePackage{graphicx}
\ifspxGin@draft\Gin@drafttrue\fi
\RequirePackage{eso-pic}
\RequirePackage{verbatim}
%    \end{macrocode}
%
% \section{PostScript and Driver Dependent Definitions}
%
% Hyperref is not required, but if present, we'll use its code, otherwise, we use
% code from hyperref to hide in-line images from GhostScript's view.
%    \begin{macrocode}
\def\grcxsp@hideEPS{\AtBeginDvi{\special{!%
/product where{%
pop
product(Distiller)search{%
    pop pop pop
    userdict
    /?pdfmark /exec load put%
}{%
pop
userdict
    begin
    /?pdfmark /pop load def
    end
}ifelse%
}if%
}}}
\@ifpackageloaded{hyperref}{\let\grcxsp@hideEPS\relax}{\grcxsp@hideEPS}
%    \end{macrocode}
% We use either \textsf{dvips} or \textsf{dvipsone} as the driver, in both cases the following is
% the special we shall use.
%    \begin{macrocode}
\def\gxsp@psMrk{[%]
  \space}
\def\gxsp@literalps@out#1{\special{ps:#1}}
%    \end{macrocode}
% The following are driver dependent definitions. We begin with \texttt{dvips}.
%
%\paragraph*{Dvips driver.}
%    \begin{macrocode}
\ifnum\gxsp@drivernum=1\relax
%    \end{macrocode}
% When the driver is \texttt{dvips}, we define some postscript procedures to
% making conversions between {\TeX} and PDF.
%    \begin{macrocode}
\special{!userdict begin
   /TeXtoPDF {65536 div DVImag mul} def         % sp to pts
   /PDFtoDvips {72.27 div Resolution mul} def   % points to dots
   /PDFtoVDvips {72.27 div VResolution mul} def % points to dots
   /DvipstoPDF {72.27 mul Resolution div} def   % dots to points
   /HTeXtoDvips {TeXtoPDF PDFtoDvips} def       % sp to dots
   /VTeXtoDvips {TeXtoPDF PDFtoVDvips} def end} % sp to dots
%    \end{macrocode}
% The \texttt{cstr} is used to calculate the lower left corner of the bounding
% box of an \textsf{EPS} file for \texttt{dvips}.
%    \begin{macrocode}
\special{!userdict begin /cstr {currentpoint translate
   1 PDFtoDvips DVImag mul -1 PDFtoDvips DVImag mul scale}def end}
\def\gxsp@setPSCoor{cstr }
\def\b@grxsp@Literal{userdict begin}
\def\e@grxsp@Literal{end}
\else
%    \end{macrocode}
%\paragraph*{Dvipsone driver.} The following is code special to the \textsf{dvipsone} driver.
%
% The \texttt{undsclx} is used to calculate the lower left corner of the the bounding
% box of an \textsf{EPS} file for \texttt{dvipsone}.
%    \begin{macrocode}
\def\gxsp@setPSCoor{undsclx }
\let\b@grxsp@Literal\@empty
\let\e@grxsp@Literal\@empty
\fi
%    \end{macrocode}
% These are procedures that support the dynamic naming of \verb!/_objdef!. Distiller
% crashes if any symbolic reference name is not unique. So we must protect distiller.
% \texttt{grcxspObjDef} takes a single argument on the operand stack
%\begin{verbatim}
% (<name>) grcxspObjDef
%\end{verbatim}
% and leaves at the top of the stack \verb!(<name>)graphicxspCnt-currentpage)!
%    \begin{macrocode}
\special{!\b@grxsp@Literal
    /currentpage 0 def
    /graphicxspCnt 0 def
    /graphicxspStr 10 string def
    /graphicxspMergeStr {2 copy length exch length add string dup dup
    4 3 roll 4 index length exch putinterval 3 1 roll exch
    0 exch putinterval} def
    /grcxspObjDef {
        /graphicxspCnt graphicxspCnt 1 add def
        currentpage graphicxspStr cvs graphicxspMergeStr
        (-) graphicxspMergeStr
        graphicxspCnt graphicxspStr cvs
        graphicxspMergeStr
%       dup (Creating _objdef ) exch (\string\n) graphicxspMergeStr
%       graphicxspMergeStr print flush
    } def \e@grxsp@Literal
}
%    \end{macrocode}
%
% \section{Messing with \textsf{eso-pic}}
%
% One of the problems was to embed \textsf{EPS} files within a
% \textbf{BP}/\textbf{EP} operator pair. The solutions was to use
% \textsf{eso-pic}, place each graphic at the lower left corner of
% the page. We define a new ``Hook'' for \textsf{eso-pic} and attach
% it to \cs{@ShipoutPicture}.
%    \begin{macrocode}
\def\ESO@AeBip@Hook{}
\newcommand{\AddToEmbeddedEPSs}{\g@addto@macro\ESO@AeBip@Hook}
%    \end{macrocode}%
% We redefine \cs{@ShipoutPicture} command of \textsf{eso-pic} so
% that the embedded figures are placed before \texttt{ESO@HookI} and
% \texttt{ESO@HookII}, for the case that someone wants to use placed
% pictures for a background, the file must be embedded before they
% can be inserted.
%    \begin{macrocode}
\@ifundefined{@ShipoutPicture}{%
%    \end{macrocode}
% The new version of eso-pic does not define \cs{@ShipoutPicture}, so we
% use some of the new code.
%    \begin{macrocode}
    \ESO@isMEMOIR{%
      \AtBeginShipout{%
        \@tempdima=-\trimedge
        \advance\@tempdima-\paperwidth
        \advance\@tempdima\stockwidth
        \if@twoside\ifodd\c@page\else
          \advance\@tempdima2\trimedge
          \advance\@tempdima\paperwidth
          \advance\@tempdima-\stockwidth
        \fi\fi
        \@tempdimb=\ESO@yoffsetI
        \advance\@tempdimb-\trimtop
        \nointerlineskip
        \AtBeginShipoutUpperLeft{%
          \put(\LenToUnit{\@tempdima},\LenToUnit{\@tempdimb}){%
            \ESO@HookIII\ESO@HookI\ESO@HookII
            \global\let\ESO@HookII\@empty
          }%
        }%
      }
    }{%
      \AtBeginShipout{%
        \nointerlineskip
        \AtBeginShipoutUpperLeft{%
          \put(0,\LenToUnit{\ESO@yoffsetI}){%
            \ESO@HookIII\ESO@AeBip@Hook\ESO@HookI\ESO@HookII% dps
            \global\let\ESO@HookII\@empty
            \global\let\ESO@AeBip@Hook\@empty% dps
          }%
        }%
      }
    }
}{%
%    \end{macrocode}
% If \cs{@ShipoutPicture} is defined, we use the old code.
%    \begin{macrocode}
    \renewcommand{\@ShipoutPicture}{%
      \bgroup
        \@tempswafalse%
        \ifx\ESO@HookI\@empty\else\@tempswatrue\fi%
        \ifx\ESO@HookII\@empty\else\@tempswatrue\fi%
        \ifx\ESO@HookIII\@empty\else\@tempswatrue\fi%
        \ifx\ESO@AeBip@Hook\@empty\else\@tempswatrue\fi%dps(08/16/07)
         \if@tempswa%
          \@tempdima=1in\@tempdimb=-\@tempdima%
          \advance\@tempdimb\ESO@yoffsetI%
          \ESO@isMEMOIR{%
            \advance\@tempdima\trimedge%
            \advance\@tempdima\paperwidth%
            \advance\@tempdima-\stockwidth%
            \if@twoside\ifodd\c@page\else%
              \advance\@tempdima-2\trimedge%
              \advance\@tempdima-\paperwidth%
              \advance\@tempdima\stockwidth%
            \fi\fi%
            \advance\@tempdimb\trimtop}%
          \unitlength=1pt%
          \global\setbox\@cclv\vbox{%
            \vbox{\let\protect\relax
              \pictur@(0,0)(\strip@pt\@tempdima,\strip@pt\@tempdimb)%
                \ESO@HookIII\ESO@AeBip@Hook\ESO@HookI\ESO@HookII%dps
                \global\let\ESO@HookII\@empty%
                \global\let\ESO@AeBip@Hook\@empty%              %dps
              \endpicture}%
              \nointerlineskip%
            \box\@cclv}%
        \fi
      \egroup
    }
}
%    \end{macrocode}
%    \begin{macrocode}
\AddToShipoutPicture{\special{ps: /currentpage \thepage\space def}}
%    \end{macrocode}
%
% \section{Useful Supporting Commands}
%
% Some standard code that I use in AeB to wrote verbatim tex to a file.
%    \begin{macrocode}
\def\verbatimwrite{\@bsphack
    \let\do\@makeother\dospecials
    \catcode`\^^M\active \catcode`\^^I=12
    \def\verbatim@processline{%
        \immediate\write\verbatim@out
        {\the\verbatim@line}}%
    \verbatim@start
}
\def\endverbatimwrite{\@esphack}
\def\gxsp@IWVO{\immediate\write\verbatim@out}
\def\x@namedef#1{\expandafter\xdef\csname #1\endcsname}
\def\e@namedef#1{\expandafter\edef\csname #1\endcsname}
%    \end{macrocode}
% Below is a counter to ensure each name is unique. It is used
% in \cs{Ginclude@eps@SP}.
%    \begin{macrocode}
\newcount\grxsp@cnt \grxsp@cnt=0
%    \end{macrocode}
% \section{The Main Section}
%
% In this section we define two commands for the user, \cs{embedEPS} and
% \cs{insertEPS}, defined additional keys for the \textsf{graphicx} package, and
% consequently, hook into the \cs{includegraphics} command.
%
% Some helper commands to save the dimensions of the pictures as
% they are embedded using \cs{embedEPS}.
%    \begin{macrocode}
\def\grcxsp@setPictureDimen#1#2#3#4#5{%
    \x@namedef{#1Gin@llx}{#2}\x@namedef{#1Gin@lly}{#3}%
    \x@namedef{#1Gin@urx}{#4}\x@namedef{#1Gin@ury}{#5}%
    \x@namedef{#1BBox}{#2 #3 #4 #5}%
    \begingroup
%    \end{macrocode}
% Calculate the width and height of the EPS. If the lower-left corner
% is not (0,0), results may not be predictable.
%    \begin{macrocode}
        \@tempdima=#4bp
        \advance\@tempdima-#2bp
        \@tempdima=.99626\@tempdima
        \x@namedef{#1widthOf}{\strip@pt\@tempdima}%
        \@tempdima=#5bp
        \advance\@tempdima-#3bp
        \@tempdima=.99626\@tempdima
        \x@namedef{#1heightOf}{\strip@pt\@tempdima}%
    \endgroup
}
%    \end{macrocode}
%    \begin{macro}{\heightOf}
%    \begin{macro}{\widthOf}
%    \begin{macro}{\llxOf}
%    \begin{macro}{\llyOf}
%    \begin{macro}{\urxOf}
%    \begin{macro}{\uryOf}
%    \begin{macro}{\csOf}
% More helper commands for calculating the height, width and path of
% an embedded file. These can be used by the user, that's you.
%    \begin{macrocode}
\def\heightOf#1{\csname#1heightOf\endcsname}
\def\widthOf#1{\csname#1widthOf\endcsname}
\def\bboxOf#1{\csname#1BBox\endcsname}
\def\llxOf#1{\csname#1Gin@llx\endcsname}
\def\llyOf#1{\csname#1Gin@lly\endcsname}
\def\urxOf#1{\csname#1Gin@urx\endcsname}
\def\uryOf#1{\csname#1Gin@ury\endcsname}
%    \end{macrocode}
%Use \cs{csOf} to expand a name.
%\changes{v1.0.2}{2018/11/20}{Added \string\cs{csOf}}
%    \begin{macrocode}
\let\csOf\@nameuse
%    \end{macrocode}
% Other internal commands that save info.
%    \begin{macrocode}
%\def\grcxsp@pathOf#1{\csname#1path\endcsname}
%\def\grcxsp@importSF#1{\csname#1importScaleFactor\endcsname}
%    \end{macrocode}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \end{macro}
% We redefine a command from \textsf{graphics}. When testing the \texttt{draft} option,
% we had some problems with an underscore |\_| in the value of the \texttt{name} key,
% so we sanitize this character.
%    \begin{macrocode}
%\def\spx@sanitize{\catcode`\_=12\relax}
%\def\Gin@i{%
%  \@ifnextchar[%]
%    {\spx@sanitize\Gin@ii}
%    {\Gin@bboxfalse\Ginclude@graphics}}
%    \end{macrocode}
%    \begin{macro}{\embedEPS}
% This is the command for embedding an \textsf{EPS} file in the document for use
% by the \textbf{SP} operator. The command takes three arguments, one of which is
% optional
%\begin{enumerate}
%   \item[]\makebox[0pt][r]{\texttt{[\#1]}: }Recognizes two key-value pairs (1) \texttt{hiresbb},
%    this is the same key-value used by the \textsf{graphicx} package; (2) \texttt{transparencyGroup},
%    a new option for creating a transparency group. Using \texttt{transparencyGroup} without
%    any value will make the embedded graphic into a transparency group, with a value adds
%    additional keys as documented in the \textsl{PDF Reference}.
%   \item[]\makebox[0pt][r]{\texttt{\#2}: }A symbolic name for the embedded graphic, this name is used
%         by distiller.
%   \item\makebox[0pt][r]{\texttt{\#3}: }path to the \texttt{EPS} file (without extension).
%\end{enumerate}
% I prefer the \cs{embedEPS} commands to appear in the preamble, but they can appear anywhere
% before the first appearance of \cs{includegraphics} or \cs{insertEPS} that reference the
% embedded file. I suppose this embedding could have been automatic at the first occurrence
% of \cs{includegraphics} or \cs{insertEPS}, but I didn't go that route.
%    \begin{macrocode}
\newcommand{\embedEPS}[3][]{%
    \@ifundefined{#2Gin@llx}{}{%
        \PackageError{graphicxsp}%
        {The name, #2, on line \the\inputlineno\MessageBreak
        is already defined. All embedded graphics\MessageBreak
        must be assigned a unique name}
        {Give this embedded graphic a unique name.}%
    }%
    \begingroup
    \let\Gin@transparencygroup\@empty
%    \end{macrocode}
% We use the \textsf{graphicx} command \cs{Gread@eps} to verify that
% the graphic exists, and if so, get its bounding box parameters. We
% work only with \texttt{.eps} files so let's add the extension.
%    \begin{macrocode}
    \let\input@path\Ginput@path
    \filename@parse{#3.eps}%
    \Gin@getbase{.eps}%
    \@ifundefined{Gin@base}{%
        \PackageError{graphicxsp}%
        {%
            Graphics file #3 specified on \the\inputlineno\MessageBreak
             was not found%
        }{%
            Verify the file exists, is an eps file,\MessageBreak
            is on the latex search path, or is in the\MessageBreak
            current directory.%
        }%
    }{}%
    \e@namedef{gxsp@Gin@base}{\Gin@base}%
    \Gread@eps{\gxsp@Gin@base.eps}%
%    \end{macrocode}
% Now set the keys. We delayed the \cs{setkeys} because \texttt{name=\#2} would
% set the switch \verb!\if@Ginnamed! to \texttt{true}, which has consequences
% on computing the \cs{Gin@base} when \cs{Gin@setfile} is executed.
%    \begin{macrocode}
    \setkeys{Gin}{name=#2,#1}%
%    \end{macrocode}
% Once the file is found and the bounding box parameters are recorded by
% \textsf{graphicx}, we save these under the graphic's embedded symbolic name.
%    \begin{macrocode}
    \grcxsp@setPictureDimen%
        {\Gin@name}{\Gin@llx}{\Gin@lly}{\Gin@urx}{\Gin@ury}%
%   \x@namedef{\Gin@name path}{#3}%
%    \end{macrocode}
% If an embedded graphic exceeds the boundaries of
% the paper size, the graphic is clipped off. What I am doing below
% is determining the largest scale factor,
% \cs{gxsp@embedSF}, needed to embed the file without
% exceeding the page boundaries.
%    \begin{macrocode}
    \def\gxsp@embedSF{1}%
    \@tempdima=\Gin@urx bp
    \advance\@tempdima-\Gin@llx bp
    \ifdim\@tempdima>\paperwidth
        \Gscale@div\gxsp@embedSF\paperwidth\@tempdima
        \@tempdima=\Gin@ury bp
        \advance\@tempdima-\Gin@lly bp
        \@tempdima=\gxsp@embedSF\@tempdima
        \ifdim\@tempdima>\paperheight
          \edef\gxsp@embedSFSave{\gxsp@embedSF}%
          \Gscale@div\gxsp@embedSF\paperheight\@tempdima
          \@tempdima=\gxsp@embedSFSave\p@
          \@tempdima=\gxsp@embedSF\@tempdima
          \edef\gxsp@embedSF{\strip@pt\@tempdima}%
        \fi
    \else
        \@tempdima=\Gin@ury bp
        \advance\@tempdima\Gin@lly bp
        \ifdim\@tempdima>\paperheight
            \Gscale@div\gxsp@embedSF\paperheight\@tempdima
        \fi
    \fi
%    \end{macrocode}
% Now that we have \cs{gxsp@embedSF}, we add the current graphic to our
% collection of embedded files using \cs{AddToEmbeddedEPSs},
% which is a variation on \cs{AddToShipoutPicture}, but uses
% \cs{ESO@AeBip@Hook} for our private use. We expand some of the
% arguments before executing \cs{AddToEmbeddedEPSs}.
%    \begin{macrocode}
    \edef\@tempa{%
    \noexpand\AddToEmbeddedEPSs{\noexpand\AtPageLowerLeft%
        {\noexpand\scalebox{\gxsp@embedSF}%
        {\noexpand\gxsp@embedEPS{\gxsp@Gin@base}{\Gin@name}}}%
        \noexpand\AtPageCenter{\noexpand\gcxsp@wrapEmbeddedFigure%
        {\Gin@transparencygroup}{#2}{\Gin@transparency}}}}\@tempa
    \endgroup
}
\@onlypreamble{\embedEPS}
%    \end{macrocode}
% In a dvi previewer, the embedded graphics are visible on the first page.
% The \cs{grcxsp@coverEmbeds} puts a white color box over the graphics,
% {\LaTeX} content and other graphics are placed over this white color box.
% The white color box can be removed with the \texttt{showembeds} option.
%    \begin{macrocode}
\def\grcxsp@coverEmbeds{%
    \AddToEmbeddedEPSs{\AtPageLowerLeft{\colorbox{white}{%
    \parbox[b][\paperheight]{\paperwidth}{\hfill\vfill}}}}}
\if\gxsp@showembeds1%
\AtBeginDocument{\grcxsp@coverEmbeds}
\else
\let\grcxsp@coverEmbeds\relax
\fi
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{\gxsp@embedEPS}
% The \cs{gxsp@embedEPS} command embeds the file, and is called
% by \cs{embedEPS}. It takes three options: (1) the value of
% \texttt{transparencyGroup}; (2) the \textsf{EPS} path; and (3) the
% symbolic name for the graphic.
%
% The bounding box \texttt{/BBox} acts as a clipping path, if the graphic
% falls outside the box, it is clipped off. Since we don't know the size of
% the graphic in advance, and the value of the \verb!%%BoundingBox! can be
% deceiving, set the of \texttt{/BBox} to an array with enormous dimensions,
% the default is \texttt{\string\grcxsp@maxDim = 5000}. This can be reset to
% larger value if you are embedding graphics of even more enormous dimensions.
%    \begin{macrocode}
\def\grcxsp@maxDim{5000}
%    \end{macrocode}
% Now, for the \cs{gxsp@embedEPS} command that embed the graphic
% between \textbf{BP} and \textbf{EP}.
%    \begin{macrocode}
\newcommand{\gxsp@embedEPS}[2]{%
    \gxsp@literalps@out{gsave \gxsp@setPSCoor
    \gxsp@psMrk/BBox [-\grcxsp@maxDim\space-\grcxsp@maxDim\space
      \grcxsp@maxDim\space\grcxsp@maxDim]\space/_objdef {Embedded:#2}
    /BP pdfmark grestore}%
    \message{<Embedding #1>}%
%    \end{macrocode}
% If we are using dvipsone, we can suppress the preview of the embedded
% file by not using the extension. Dviwindo will look for a tiff file, if
% not present, will not display a preview.
%    \begin{macrocode}
    \includegraphics{#1}%
    \gxsp@literalps@out{\gxsp@psMrk/EP pdfmark}%
}
%    \end{macrocode}
%    \end{macro}
% We create a wrapper that shows the Embedded file under the original
% symbolic name Here we introduce any transparency ordered up in the
% option  list of \cs{embedEPS}
%    \begin{macrocode}
\def\gcxsp@wrapEmbeddedFigure#1#2#3{%
    \def\Gin@transparencygroup{#1}\def\Gin@transparency{#3}%
    \gxsp@literalps@out{gsave \gxsp@setPSCoor
    \ifGin@clip
        [/BBox [\llxOf{#2}\space\llyOf{#2}\space
         \urxOf{#2}\space\uryOf{#2}]
    \else
        [ /BBox [-\grcxsp@maxDim\space-\grcxsp@maxDim\space
          \grcxsp@maxDim\space\grcxsp@maxDim]
    \fi\space /_objdef {#2}
    \ifx\Gin@transparencygroup\@empty\else
        \ifx\Gin@transparencygroup\Gin@exclamation
            /Group << /S/Transparency >>%
        \else
            /Group << /S/Transparency \Gin@transparencygroup >>%
        \fi
    \fi\space
    /BP pdfmark
        \gxsp@psMrk{Embedded:#2} /SP pdfmark
    \gxsp@psMrk/EP pdfmark
    grestore}%
}
%    \end{macrocode}
%    \begin{environment}{createImage}
% The \texttt{createImage} environment can be used for two purposes:
%\begin{enumerate}
%   \item Use it to take a file already embedded, manipulate it, and give it a symbolic name.
%   \item Use postscript graphic operators to create an image.
%\end{enumerate}
% The images can be shown using \cs{includegraphics} or
% \cs{insertEPS}, or they can be referenced as an appearance of a
% form field.
%
% We try something different. My usual approach for a verbatim environment is to write
% the contents to an auxiliary file and input that file back in.  This approach precludes
% using the environment in another command. The text to this environment should be PostScript
% or PDF language statements, or {\TeX} macros that expand to same.  We'll absorb the
% contents in the environment as an argument \texttt{\#1} of the \cs{grxcsp@createImage} command.
% However, before we get to \cs{grxcsp@createImage} we must execute \cs{createImage}, the user's
% access to this code.
%
% \cs{createImage} takes three arguments, the first one of which is optional
%\begin{enumerate}
%   \item[]\makebox[0pt][r]{\texttt{[\#1]}: }Takes the key-values of \cs{includegraphics}, plus some of
%           the graphicxsp key-values, such as \texttt{transparencyGroup}. The name key
%           is ignored, and is declared in the third parameter.
%   \item[]\makebox[0pt][r]{\texttt{\#2}: }The bounding box for this image.
%   \item[]\makebox[0pt][r]{\texttt{\#3}:  }The \texttt{name} to be attached to this image.
%\end{enumerate}
%\changes{v.6}{2008/06/15 }
%{
%   Made \texttt{createImage} into a private environment, \texttt{sp@createImage}, which can be used anywhere, then
%   created a public version, \texttt{createImage}, which is restricted to the preamble. This change
%   is needed to create dynamic appearances in the \textsf{rmannot} package.
%}
%\changes{v1.0.2}{2018/11/20}{Added convenience command to reference xobjects using commands}
%    \begin{macrocode}
\def\ci@undef@msg#1{\PackageWarning{graphicxsp}{The command
  `\expandafter\string\csname #1\endcsname'
  is already defined\MessageBreak
  choose a different name instead of\MessageBreak`#1'}}
\newcommand{\sp@createImage}[3][]{%
    \@ifundefined{#3}{}{\ci@undef@msg{#3}}%
    \x@namedef{#3}{#3}%
    \@ifundefined{#3Gin@llx}{}{%
        \PackageError{graphicxsp}%
        {The name, #3, on line \the\inputlineno\space\MessageBreak
        is already defined. All embedded graphics\MessageBreak
        must be assigned a unique name}
        {Give this embedded graphic a unique name.}%
    }%
   \setkeys{Gin}{#1}\def\Gin@name{#3}%
    \edef\@gtempa{#2 }%
   \expandafter\Gread@parse@bb\@gtempa \\%
   \begingroup\grxcsp@createImage
}
\let\postEP\@empty
\long\def\grxcsp@createImage#1\end#2{%
    \def\reserved@a{#2}\ifx\reserved@a\@currenvir
        \end{#2}\else\@badend{#2}\fi
    \edef\temp@transparencyGroup{%
    \ifx\Gin@transparencygroup\@empty\else
        \ifx\Gin@transparencygroup\Gin@exclamation
            /Group << /S/Transparency >>%
        \else
            /Group << /S/Transparency \Gin@transparencygroup >>%
        \fi
    \fi}%
    \grcxsp@setPictureDimen%
        {\Gin@name}{\Gin@llx}{\Gin@lly}{\Gin@urx}{\Gin@ury}%
%    \end{macrocode}
% (2009/02/19) We use \cs{AddToEmbeddedEPSs} to embed EPS created by the
% \texttt{create\-Image} environment. This allows the EPS to be used on
% the first page, which has been a problem in the past.
%    \begin{macrocode}
    \edef\@tempa{%
    \noexpand\AddToEmbeddedEPSs{\noexpand\AtPageLowerLeft{%
        \noexpand\gxsp@literalps@out{gsave \gxsp@setPSCoor
        \gxsp@psMrk/BBox
          [\Gin@llx\space\Gin@lly\space\Gin@urx\space\Gin@ury]
        /_objdef {\Gin@name} \temp@transparencyGroup\space/BP pdfmark
        \ifx\Gin@transparency\@empty\else
        \gxsp@psMrk\Gin@transparency\space/SetTransparency pdfmark\fi
        {#1} ?pdfmark
        \gxsp@psMrk/EP pdfmark
        grestore
        }%
    }}}\@tempa
    \endgroup
}
\let\createImage\sp@createImage
\let\endcreateImage\endsp@createImage
\@onlypreamble{\createImage}
%    \end{macrocode}
%    \end{environment}
%    \begin{macro}{\insertEPS}
% The idea was to use the \cs{includegraphics} command to show a graphic that
% has been earlier embedded. However, one of \cs{includegraphics} arguments is
% the path of the eps file.  Once, the file is embedded, the path is not needed,
% so this package defines \cs{insertEPS}. This command takes two arguments: (1)
% The usual \cs{includegraphics} options, plus any other options defined in this
% package; (2) the symbolic name. Because the symbolic name is passed as the second
% argument, it is not necessary to specify in the optional parameter list. The following
% two (should) be equivalent:
%\begin{verbatim}
%   \embedEPS{myCoolSelfPic}
%   ...
%   \begin{document}
%   ...
%   \includegraphics[name=AdobeDon,width=1in]{myCoolSelfPic}
%   \insertEPS[width=1in]{AdobeDon}
%   ...
%\end{verbatim}
%    \begin{macrocode}
\def\xsp@sanitize{\catcode`\_=12\relax}
\newcommand{\insertEPS}{\bgroup\xsp@sanitize
    \@ifstar
    {\Gin@cliptrue\let\gcxsp@star*\gcxsp@insertEPS}%
    {\Gin@clipfalse\let\gcxsp@star\@empty\gcxsp@insertEPS}}
\newcommand{\gcxsp@insertEPS}[2][]%
    {\expandafter\includegraphics\gcxsp@star[name=#2,#1]{}\egroup}
%    \end{macrocode}
%    \end{macro}
%\section{Messing with \textsf{graphicx}}
% In this section, we add some options to the \textsf{graphicx} package. We define
% some additional keys that will be recognized by \cs{includegraphics}. We also
% redefine \cs{Gin@ii} and \cs{Gin@setfile}, which are \textsf{graphicx} commands
% to make things work for us.
%    \begin{macro}{name}
% Use the \texttt{name} key-value pair only for graphics already embedded by \cs{embedEPS}.
% When this key is present, we \cs{let} \cs{Ginclude@eps} to \cs{Ginclude@eps@SP}.
% \cs{Ginclude@eps} is the usual way of handling EPS files, \cs{Ginclude@eps@SP}
% is how we are to handle files already embedded. Usage:
%\begin{verbatim}
%   \includegraphics[name=AdobeDon,width=1in]{myCoolSelfPic}
%\end{verbatim}
%    \begin{macrocode}
\newif\if@Ginnamed\@Ginnamedfalse
\define@key{Gin}{name}[]{\def\Gin@name{#1}%
    \@Ginnamedtrue\let\Ginclude@eps\Ginclude@eps@SP}
\def\Gin@name{}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{transparencyGroup}
% This defines the transparencyGroup key which is used only
% recognized with \cs{embedEPS}. See the Transparency section of the
% pdfmark Reference and the chapter on Transparency in the PDF
% Reference. In particular, see PDF Ref Table 7.13. Usage:
%\begin{verbatim}
%   \embedEPS[transparencyGroup]{myCoolSelfPic}
%\end{verbatim}
%    \begin{macrocode}
\define@key{Gin}{transparencyGroup}[!]{\def\Gin@transparencygroup{#1}}
\def\Gin@transparencygroup{}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{transparency}
% Enter any transparency postscript key-value pairs for this image.
% These are ignored unless the embedded file is a transparency group,
% and you distill with \verb!<< /AllowTransparency true >>!
% setdistillerparams!. Usage:
%\begin{verbatim}
%   \embedEPS[transparencyGroup]{myCoolSelfPic}
%   ...
%   \begin{document}
%   ...
%   \includegraphics[name=AdobeDon,width=1in,
%       transparency={/ca .5 /BM/Normal}]{myCoolSelfPic}
%\end{verbatim}
%or
%\begin{verbatim}
%   \insertEPS[width=1in,transparency={/ca .5 /BM/Normal}]{AdobeDon}
%\end{verbatim}
%    \begin{macrocode}
\define@key{Gin}{transparency}[]{\def\Gin@transparency{#1}}%
\def\Gin@transparency{}%
\define@key{Gin}{SMask}[]{\def\Gin@SMask{#1}}%
\def\Gin@SMask{}%
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{presp}
%    \begin{macro}{postsp}
% We define two additional keys for creating special effects. The
% value of \texttt{presp} and \texttt{postsp} are postscript commands
% for manipulating the image. As the names suggest, \texttt{presp} is
% placed before the \textbf{SP} operator, and \texttt{postsp} is
% placed after. Example of usage is given in one of the demo files.
%    \begin{macrocode}
\define@key{Gin}{presp}{\def\Gin@presp{#1}}
\def\Gin@presp{}
\define@key{Gin}{postsp}{\def\Gin@postsp{#1}}
\def\Gin@postsp{}
%    \end{macrocode}
%    \end{macro}
%    \end{macro}
% The following key-value pairs are recognized by \cs{setSMask},
% \cs{embedEPS} and \cs{includegraphics} and are used to
% set up a soft mask.
%    \begin{macro}{SMask}
%    \begin{macro}{subtype}
%    \begin{macro}{group}
%    \begin{macro}{bc}
%    \begin{macro}{tc}
% The key \texttt{SMask} is used in the optional parameter list of
% \cs{insertEPS} and \cs{includegraphics}, when that graphic is to
% use a soft mask. The value of \texttt{SMask} is a key-value list,
% the keys are \texttt{subtype}, \texttt{group}, \texttt{bc} and
% \texttt{tr}. The default for \texttt{subtype} is \texttt{Luminosity}, the other
% value recognized is \texttt{Alpha}. If \texttt{subtype} is not listed, \texttt{Luminosity}
% is used for the \texttt{subtype}.  The \texttt{group} key is required, and the latex compile
% will stop if it is not specified. The value of group is the name of a graphic to be used
% as a mask. This graphic must be a transparency group with the \texttt{CS} key specified.
% The other two keys, \texttt{bc} (component color) and \texttt{tr} (transfer function) to
% complete the supported keys. See Table 7.10, page 553, of the \textsl{PDF Reference}, Version 8,
% for detailed descriptions of these key-values.
%    \begin{macrocode}
\define@key{Gin}{SMask}[]{\def\GinSP@SMask{#1}}
\def\GinSP@SMask{}
\define@key{GinSP}{subtype}[Luminosity]{\def\GinSP@subtype{#1}}
\def\GinSP@subtype{Luminosity}
\define@key{GinSP}{group}[]{\def\GinSP@group{#1}}
\def\GinSP@group{}
\define@key{GinSP}{bc}[]{\def\GinSP@bc{#1}}
\def\GinSP@bc{}
\define@key{GinSP}{tr}[]{\def\GinSP@tr{#1}}
\define@key{GinSP}{None}[None]{\def\SMaskSP@None{#1}}
\def\GinSP@tr{}
\def\SMaskSP@None{}
\def\SMaskSP@Identity{Identity}
%    \end{macrocode}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \end{macro}
%    \begin{macro}{\setSMask}
% Use \cs{setSMask} to set a soft mask. This command takes one required argument,
% the name of the transparency group to be use as the source of alpha or color
% values for deriving the mask. The optional parameter consists of key-value
% pairs for the soft-mask dictionary, see table 7.10 of the PDF Reference, Version 8.
%    \begin{macrocode}
\def\sp@setSMask{%
  \ifx\GinSP@SMask\SMaskSP@None\gxsp@psMrk/SMask/None
    /SetTransparency pdfmark
  \else
    \gxsp@psMrk/SMask << /S/\GinSP@subtype\space
    \ifx\GinSP@bc\@empty\else/BC\GinSP@bc\space\fi
    \ifx\GinSP@tr\@empty\else\ifx\GinSP@tr\SMaskSP@Identity%
        /TR/Identity\else/TR {\GinSP@tr}\space\fi\fi
    /G {\GinSP@group} >> /SetTransparency pdfmark
  \fi
}
\newcommand{\setSMask}[2][]{%
        \setkeys{GinSP}{#1}\def\GinSP@group{#2}%
        \special{ps: \sp@setSMask}%
}
%    \end{macrocode}
%    \end{macro}
% We redefine \cs{Gin@setfile}. If the graphic is named, we salt things
% with the bounding box parameters.
%    \begin{macrocode}
\def\Gin@setfile#1#2#3{%
  \ifx\\#2\\\Gread@false\fi
  \ifGin@bbox\else
    \ifGread@
\if@Ginnamed %dps (08/16/07)
    \edef\Gin@llx{\csname\Gin@name Gin@llx\endcsname}%
    \edef\Gin@lly{\csname\Gin@name Gin@lly\endcsname}%
    \edef\Gin@urx{\csname\Gin@name Gin@urx\endcsname}%
    \edef\Gin@ury{\csname\Gin@name Gin@ury\endcsname}%
\else
      \csname Gread@%
         \expandafter\ifx\csname Gread@#1\endcsname\relax
           eps%
         \else
           #1%
         \fi
      \endcsname{\Gin@base#2}%
\fi
    \else
      \Gin@nosize{#3}%
    \fi
  \fi
  \Gin@viewport@code
  \Gin@nat@height\Gin@ury bp%
  \advance\Gin@nat@height-\Gin@lly bp%
  \Gin@nat@width\Gin@urx bp%
  \advance\Gin@nat@width-\Gin@llx bp%
  \Gin@req@sizes
  \expandafter\ifx\csname Ginclude@#1\endcsname\relax
    \Gin@drafttrue
    \expandafter\ifx\csname Gread@#1\endcsname\relax
      \@latex@error{Can not include graphics of type: #1}\@ehc
      \global\expandafter\let\csname Gread@#1\endcsname\@empty
    \fi
  \fi
  \leavevmode
  \ifGin@draft
      \hb@xt@\Gin@req@width{%
        \vrule\hss
        \vbox to \Gin@req@height{%
           \hrule \@width \Gin@req@width
           \vss
           \if@Ginnamed %dps (08/18/07)
%    \end{macrocode}
% If the \texttt{shownonames} option is taken, we do not show the name of the graphic.
%    \begin{macrocode}
           \if@spx@shownameindraft
           \rlap{ \ttfamily\Gin@name}\fi
           \else
           \edef\@tempa{#3}%
           \rlap{ \ttfamily\expandafter\strip@prefix\meaning\@tempa}%
           \fi
           \vss
           \hrule}%
        \hss\vrule}%
  \else
\if@Ginnamed\else % dps (08/16/07)
    \@addtofilelist{#3}%
    \ProvidesFile{#3}[Graphic file (type #1)]%
\fi
    \setbox\z@\hbox{\csname Ginclude@#1\endcsname{#3}}%
    \dp\z@\z@
    \ht\z@\Gin@req@height
    \wd\z@\Gin@req@width
    \ifpreview{\setlength{\fboxsep}{0pt}\fbox{\box\z@}}\else\box\z@\fi%
  \fi}
\def\Gin@getbase#1{%
  \edef\Gin@tempa{%
    \def\noexpand\@tempa####1#1\space{%
      \def\noexpand\Gin@base{####1}}}%
%    \end{macrocode}
% If the current graphic is named, then we don't need to read the bounding
% box again or to see if it exists again.
%    \begin{macrocode}
    \if@Ginnamed
        \edef\Gin@ext{#1}\edef\Gin@base{\Gin@name}%dps (08/18/07)
    \else
%    \end{macrocode}
% If not named, we need to handle it in the usual way.\medskip\par\noindent
% (2019/11/13) The latest {\LaTeX} core defines \cs{IfFileExists@} which broke this
% package, we try a fix here.
% \changes{v1.0.3}{2019/11/13}{latex core defines \string\cs{IfFileExists@} which broke this
% package, we try a fix here.}
%    \begin{macrocode}
        \IfFileExists{\filename@area\filename@base#1}%
        {\@ifundefined{IfFileExists@}{}%
         {\edef\@filef@und{\filename@area\filename@base#1 }}
         \Gin@tempa\expandafter\@tempa\@filef@und
         \edef\Gin@ext{#1}}{}%
    \fi
}
%    \end{macrocode}
%    \begin{macro}{\Gin@computeSF}
% Based on scaling info provided by graphicx, we compute the scale factors
% we need.
%    \begin{macrocode}
\def\Gin@computeSF{\def\@tempa{!}%
    \edef\gxsp@scaleFactor@x{\Gin@scalex}%
    \edef\gxsp@scaleFactor@y{\Gin@scaley}%
    \ifx\Gin@scaley\@tempa      % proportional height
        \ifx\Gin@scalex\@tempa  % proportional width
            \def\gxsp@scaleFactor@x{1}%
            \def\gxsp@scaleFactor@y{1}%
        \else                   % specified width
            \edef\gxsp@scaleFactor@y{\Gin@scalex}%
        \fi
    \else                       % specified height
        \ifx\Gin@scalex\@tempa  % proportional width
            \edef\gxsp@scaleFactor@x{\Gin@scaley}%
        \fi
    \fi
}
%    \end{macrocode}
%    \end{macro}
%    \begin{macro}{\Ginclude@eps@SP}
% This is the substitute for the usual way of handing an EPS file.
% Here we use the \textbf{SP} to show the embedded graphic.
%    \begin{macrocode}
\def\gxsp@setBBox{%
    \ifGin@clip
        [/BBox [\Gin@llx\space\Gin@lly\space\Gin@urx\space\Gin@ury]
    \else
        [/BBox [-\grcxsp@maxDim\space-\grcxsp@maxDim\space
                \grcxsp@maxDim\space\grcxsp@maxDim]
    \fi
}
\def\Ginclude@eps@SP#1{%
% \message{<#1>}%
  \bgroup
%    \end{macrocode}
% See if the user has specified the \texttt{SMask} key, if yes, we'll
% check to see if a group name was specified. The group name is required.
% If no, we halt the compile job.
%    \begin{macrocode}
    \ifx\GinSP@SMask\@empty\else
        \edef\sp@expand@temp{\noexpand\setkeys{GinSP}{\GinSP@SMask}}%
        \sp@expand@temp
        \ifx\SMaskSP@None\@empty\ifx\GinSP@group\@empty
        \PackageError{graphicxsp}{The group key is required when you
        specify a SMask.}{Specify a group name for the group key.}%
    \fi\fi\fi
    \Gin@computeSF
    \ifGin@bbox
    \gxsp@literalps@out{%
        gsave \gxsp@setPSCoor
%    \end{macrocode}
% If \texttt{SMask} is specified, we call \cs{sp@setSMask} to
% set the graphics state parameters for a soft mask.
%    \begin{macrocode}
            \ifx\GinSP@SMask\@empty\else\sp@setSMask\fi
            \gxsp@setBBox\space
%    \end{macrocode}
% We push the basename \verb!(\Gin@name:bbox)! and call \texttt{grcxspObjDef}.
% This procedure returns \verb!(\Gin@name:bboxgraphicxspCnt-currentpage)!.
% \texttt{graphicxspretn} then takes that result, and converts it to a name type.
% We then use it in \verb!/_objdef {//graphicxspretn}!, using immediate execution.
%    \begin{macrocode}
            (\Gin@name:bbox@) grcxspObjDef
            /graphicxspretn exch cvx cvn def
            /_objdef {//graphicxspretn} /BP pdfmark
            \ifx\Gin@transparency\@empty\else
            \gxsp@psMrk\Gin@transparency\space
              /SetTransparency pdfmark\fi
            \gxsp@psMrk{\Gin@name} /SP pdfmark
            \gxsp@psMrk/EP pdfmark
            \gxsp@scaleFactor@x\space\gxsp@scaleFactor@y\space scale
            -\Gin@llx\space -\Gin@lly\space moveto
            currentpoint translate
            \Gin@presp
            \gxsp@psMrk{//graphicxspretn} /SP pdfmark
           \Gin@postsp
       grestore
    }%
    \else
    \gxsp@literalps@out{%
        gsave \gxsp@setPSCoor
%    \end{macrocode}
% If \texttt{SMask} is specified, we call \cs{sp@setSMask} to
% set the graphics state parameters for a soft mask.
%    \begin{macrocode}
            \ifx\GinSP@SMask\@empty\else\sp@setSMask\fi
            \gxsp@setBBox\space
            (\Gin@name:grxsp@) grcxspObjDef
            /graphicxspretn exch cvx cvn def
            /_objdef {//graphicxspretn} /BP pdfmark
            \ifx\Gin@transparency\@empty\else
            \gxsp@psMrk\Gin@transparency\space
              /SetTransparency pdfmark\fi
            \gxsp@psMrk{\Gin@name} /SP pdfmark
            \gxsp@psMrk/EP pdfmark
            \gxsp@scaleFactor@x\space\gxsp@scaleFactor@y\space scale
            \ifx\Gin@viewport@code\relax\else
             -\Gin@llx\space-\Gin@lly\space moveto
              currentpoint translate\fi
            \Gin@presp
             \gxsp@psMrk{//graphicxspretn} /SP pdfmark
            \Gin@postsp
        grestore
    }%
    \fi
  \egroup}
%    \end{macrocode}
%    \end{macro}
%    \begin{macrocode}
%</package>
%    \end{macrocode}
%  \Finale
\endinput