pdftricks v1.16 2003/08/10

git-svn-id: svn://tug.org/texlive/trunk@9326 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 149 insertions, 179 deletions

diff --git a/Master/texmf-dist/tex/latex/pdftricks/pdftricks.sty b/Master/texmf-dist/tex/latex/pdftricks/pdftricks.sty
index e01bb9e9da8..61387eced2d 100644
--- a/Master/texmf-dist/tex/latex/pdftricks/pdftricks.sty
+++ b/Master/texmf-dist/tex/latex/pdftricks/pdftricks.sty
@@ -1,14 +1,14 @@
 %
 % pdftricks.sty 
 %
-% Copyright (c) 2001-3, Radhakrishnan CV <cvr@river-valley.com>
-%                       Rajagopal CV <cvr3@river-valley.com>
-%                       http://www.river-valley.com
+% Copyright (c) 2001, Radhakrishnan CV <cvr@river-valley.com>
+%                     Rajagopal CV <cvr3@river-valley.com>
+%                     http://www.river-valley.com
 %
-% River Valley Technologies, Floor III, SJP Buildings, Cotton Hills
-% Trivandrum, India 695014
+% River Valley Technologies, Software Technology Park,
+% Trivandrum, India 695034
 %
-% Tel: +91 471 233 7501
+% Tel: +91 471 33 7501/7502
 %
 %                     Antoine Chambert-Loir 
 %                     <chambert@math.polytechnique.fr>
@@ -32,16 +32,15 @@
 % Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
 % MA  02111-1307, USA.
 %
-% $Id: pdftricks.sty,v 1.16 2003/08/10 04:29:20 cvr Exp cvr $
+% $Id: pdftricks.sty,v 1.15 2001/09/30 11:21:23 cvr Exp $
 %
-
 \NeedsTeXFormat{LaTeX2e}
 \def\Fileversion$#1: #2 ${\gdef\fileversion{#2}}
 \def\Filedate$#1: #2 #3 ${\gdef\filedate{#2}}
-\Fileversion$Revision: 1.16 $
-\Filedate$Date: 2003/08/10 04:29:20 $
+\Fileversion$Revision: 1.15 $
+\Filedate$Date: 2001/09/30 11:21:23 $
 \ProvidesPackage{pdftricks}
-   [\filedate\space\fileversion\space psTricks support in PDF (CVR/ACL)]
+   [\filedate\space\fileversion\space psTricks support in PDF (CVRACL)]
 \PackageWarningNoLine{pdftricks}
    {****************************************\MessageBreak
     Package pdftricks v,\fileversion\space loaded\MessageBreak
@@ -49,30 +48,20 @@
     ****************************************}
 \RequirePackage{graphicx,color}
 \newif\if@debug\@debugfalse
-\newif\ifPDFTshell
-\newif\ifPDFTnopdf
-\newif\ifnoprocess \noprocessfalse
-\newif\ifmiktex \miktexfalse
 \DeclareOption{debug}{\@debugtrue}
 \DeclareOption{noshell}{\PDFTshellfalse}
 \DeclareOption{shell}{\PDFTshelltrue}
-\DeclareOption{miktex}{\global\miktextrue}  
+\newif\ifPDFTshell
+\newif\ifPDFTnopdf
+\newif\ifnoprocess \noprocessfalse
 \ExecuteOptions{shell}
 \ProcessOptions\relax
 \ifPDFTshell
 % we must set it to false if \write18 doesn't work.
 % Hack given by Thierry Bouche (Thanks !)
 \def\tmpfile{/tmp/w18-test-\the\year\the\month\the\day\the\time} 
-\ifmiktex%
- \immediate\write18{rem >"\tmpfile"}%%%%%% LDL-2
-\else
- \immediate\write18{touch \tmpfile} %%%%%% LDL-1
-\fi
-\ifmiktex
- \IfFileExists{\tmpfile.}{\PDFTshelltrue}{\PDFTshellfalse} %%%%%% LDL-4
-\else
- \IfFileExists{\tmpfile}{\PDFTshelltrue}{\PDFTshellfalse}  %%%%%% LDL-3
-\fi
+\immediate\write18{touch \tmpfile}
+\IfFileExists{\tmpfile}{\PDFTshelltrue}{\PDFTshellfalse}
 \fi
 \ifPDFTshell
   \PackageWarningNoLine{pdftricks}
@@ -88,125 +77,112 @@
     ****************************************}
 \fi
 
-% warning! the definition of FIGURES if pst2pdf must be set accordingly !!
+% warning! the definition of FIGURES if psrun must be set accordingly !!
 \def\PDFTfigname{\jobname-fig\thepsfig}
 \def\PDFTWarning#1#2{\if@debug\PackageWarning{#1}{#2}\fi}
 \def\PDFTWarningNoLine#1#2{\if@debug\PackageWarningNoLine{#1}{#2}\fi}
+\def\makeinnocent#1{\catcode`#1=12 }
+\def\csarg#1#2{\expandafter#1\csname#2\endcsname}
+\def\latexname{lplain}\def\latexename{LaTeX2e}
+\newwrite\PDFStream
 
+\long\def\ProcessStream#1% start it all of
+   {\begingroup%
+    \def\CurrentStream{#1}%
+    \let\do\makeinnocent \dospecials 
+    \makeinnocent\^^L% and whatever other special cases
+    \endlinechar`\^^M \catcode`\^^M=12 \xStream}
+{\catcode`\^^M=12 \endlinechar=-1 %
+ \gdef\xStream#1^^M{%
+    \expandafter\ProcessStreamLine}
+ \gdef\ProcessStreamLine#1^^M{\def\test{#1}
+      \csarg\ifx{End\CurrentStream Test}\test
+          \edef\next{\noexpand\EndOfStream{\CurrentStream}}%
+      \else \ThisStream{#1}\let\next\ProcessStreamLine
+      \fi \next}
+}
+\long\def\streaminfo{\string\end{document}}
+\def\CSstringmeaning#1{\expandafter\CSgobblearrow\meaning#1}
+\def\CSstringcsnoescape#1{\expandafter\CSgobbleescape\string#1}
+{\escapechar-1
+\expandafter\expandafter\expandafter\gdef
+  \expandafter\expandafter\expandafter\CSgobblearrow
+    \expandafter\string\csname macro:->\endcsname{}
+}
+\def\CSgobbleescape#1{\ifnum`\\=`#1 \else #1\fi}
+\def\WriteStreamLine#1{\def\CStmp{#1}%
+    \immediate\write\PDFStream{\CSstringmeaning\CStmp}}
+
+\def\AfterIncludedStream
+   {\immediate\closeout\PDFStream  %changed on 2001/1/20
+    \relax
+    }%
+\def\BeforeIncludedStream
+   {\stepcounter{psfig}\xdef\PDFCutFile{\PDFTfigname.tex}%
+    \message{Opening PDFStream=\PDFCutFile}%
+    \immediate\openout\PDFStream=\PDFCutFile
+    \immediate\write\PDFStream{\string\documentclass{article}}
+    \immediate\write\PDFStream{\string\input\space tmp.inputs}
+    \immediate\write\PDFStream{\string\pagestyle{empty}}
+    \immediate\write\PDFStream{\string\usepackage{amssymb,amsbsy}}
+    \immediate\write\PDFStream{\string\begin{document}}
+    \let\ThisStream\WriteStreamLine}
+\long\def\specialstream #1#2#3{%
+     \message{Special stream '#1'}%
+    \csarg\def{After#1Stream}{#2\AfterIncludedStream#3}%
+    \csarg\def{#1}{\BeforeIncludedStream\relax
+          \ProcessStream{#1}}%
+    \PDFEndDef{#1}}
+\def\EndOfStream#1{\endgroup\end{#1}%
+    \csname After#1Stream\endcsname}
+\def\PDFEndDef#1{{\escapechar=-1\relax
+    \csarg\xdef{End#1Test}{\string\\end\string\{#1\string\}}%
+    }}
 %%
 %% The real meat of psfile manipulation starts here.
 %%
 %%
-\RequirePackage{moreverb}
-\def\pdfverbatimwrite#1{%
-  \@bsphack
-  \immediate\openout \verbatim@out #1
-  \BeforeStream%
-  \let\do\@makeother\dospecials
-  \catcode`\^^M\active \catcode`\^^I=12
-  \def\verbatim@processline{%
-    \immediate\write\verbatim@out
-      {\the\verbatim@line}}%
-  \verbatim@start}
-\def\endpdfverbatimwrite{%
-  \immediate\write\verbatim@out{\string\end{document}}
-  \immediate\closeout\verbatim@out
-  \@esphack}
-
-\def\BeforeStream
-   {\message{Opening PDFStream=\PDFTfigname.tex}%
-    \immediate\write\verbatim@out{\string\documentclass{article}}
-    \immediate\write\verbatim@out{\string\input\space tmp.inputs}
-    \immediate\write\verbatim@out{\string\pagestyle{empty}}
-    \immediate\write\verbatim@out{\string\begin{document}}
-    }
-\newenvironment{pdfdisplay}{\stepcounter{psfig}%
-  \xdef\PDFCutFile{\PDFTfigname.tex}
-  \pdfverbatimwrite{\PDFCutFile}}
- {\endpdfverbatimwrite%
-  \psgraphicsinclude%
-   \global\noprocessfalse\noindent}
-\newenvironment{pdfpic}{\stepcounter{psfig}%
-  \xdef\PDFCutFile{\PDFTfigname.tex}
-  \pdfverbatimwrite{\PDFCutFile}}
- {\endpdfverbatimwrite%
-  \psgraphicsinclude%
-   \global\noprocessfalse\noindent}
-\newenvironment{pdfinline}{\stepcounter{psfig}%
-  \xdef\PDFCutFile{\PDFTfigname.tex}
-  \pdfverbatimwrite{\PDFCutFile}}
- {\endpdfverbatimwrite%
-  \psinlinegraphicsinclude%
-   \global\noprocessfalse\noindent}
 \AtEndDocument{\endPShook%
-      \ifPDFTnopdf
+		\ifPDFTnopdf
         \PackageWarningNoLine{pdftricks}
         {******************************************\MessageBreak
          Some PDF files of images were not found.\MessageBreak
          Run the script `pst2pdf' before the next\MessageBreak
          run of pdfLaTeX\MessageBreak
          ******************************************}
-       \fi
+		 \fi
 }
 \gdef\endPShook{}
 \def\noprocess{\global\noprocesstrue
   \PackageWarning{pdftricks}
         {******************************************\MessageBreak
-           Figure Number: \PDFTfigname\space is not processed \MessageBreak
+		     Figure Number: \PDFTfigname\space is not processed \MessageBreak
          ******************************************\MessageBreak}
 }
-
+\specialstream{pdfpic}{%
+         \immediate\write\PDFStream{\streaminfo}}
+        {\psgraphicsinclude\global\noprocessfalse}
 \newcounter{psfig}
 \newif\if@pdfGINwidth
 \newif\if@pdfGINheight
 \newif\if@pdfGINscale
-\long\gdef\psgraphicsProcess{%
+\long\gdef\psgraphicsinclude{%
   \@ifundefined{Fig\thepsfig}
-  {\PDFTWarningNoLine{pdftricks}
-    {******************************************\MessageBreak
-     ************ Processing Fig: \thepsfig\space**********\MessageBreak
-    ******************************************}
-  }
+  {\PDFTWarningNoLine{pdftricks}{************ PROCESSING FIG: \thepsfig\space **********}}
   {\noprocess}
    \ifPDFTshell\ifnoprocess\relax\else
     \IfFileExists{\PDFTfigname.tex}{%
      \immediate\write18{latex -interaction=batchmode \PDFTfigname}
-  \PDFTWarningNoLine{pdftricks}
-    {******************************************\MessageBreak
-     \PDFTfigname.tex converted to \PDFTfigname.dvi\MessageBreak
-     ******************************************}
-    }{}
+     \PDFTWarning{pdftricks3}{\PDFTfigname.tex converted to \PDFTfigname.dvi}}{}
     \IfFileExists{\PDFTfigname.dvi}{%
-     \immediate\write18{dvips -o \PDFTfigname.ps \PDFTfigname}
-  \PDFTWarningNoLine{pdftricks}
-    {******************************************\MessageBreak
-     \PDFTfigname.ps generated\MessageBreak
-     ******************************************}
-    }{}
-    \IfFileExists{\PDFTfigname.ps}{%
-     \immediate\write18{ps2eps -f \PDFTfigname.ps}
-  \PDFTWarningNoLine{pdftricks}
-    {******************************************\MessageBreak
-     \PDFTfigname.eps generated\MessageBreak
-     ******************************************}
-    }{}
+     \immediate\write18{dvips -E -o \PDFTfigname.eps \PDFTfigname}
+     \PDFTWarning{pdftricks}{EPS generated -- \PDFTfigname.eps}}{}
     \IfFileExists{\PDFTfigname.eps}{%
       \immediate\write18{epstopdf \PDFTfigname.eps}
-  \PDFTWarningNoLine{pdftricks}
-    {******************************************\MessageBreak
-     \PDFTfigname.eps converted to \PDFTfigname.pdf\MessageBreak
-     ******************************************}
-    }{}
-    \ifmiktex%
-    \immediate\write18{del \PDFTfigname.aux \PDFTfigname.dvi 
-       \PDFTfigname.log \PDFTfigname.eps}     %%%%%% LDL-6
-    \else
-    \immediate\write18{rm \PDFTfigname.aux \PDFTfigname.dvi 
-     \PDFTfigname.log \PDFTfigname.eps} %%%%%% LDL-5
+      \PDFTWarning{pdftricks3}{\PDFTfigname.eps converted to \PDFTfigname.pdf}}{}
+    \immediate\write18{rm \PDFTfigname.aux \PDFTfigname.dvi \PDFTfigname.log \PDFTfigname.eps}
    \fi\fi
-   \fi
-}
-\long\gdef\psgraphicsinclude{\psgraphicsProcess%
+%  \fi
   \IfFileExists{\PDFTfigname.pdf}%
      {\begin{center}
      \bgroup\fboxsep\@PDFboxsep\fboxrule\@PDFboxrule%
@@ -229,28 +205,15 @@
    \gdef\@PDFboxsep{0pt}
    \gdef\@PDFboxrule{0pt}
 }
-
-\long\gdef\psinlinegraphicsinclude{%
-  \psgraphicsProcess%
-  \IfFileExists{\PDFTfigname.pdf}%
-     {\bgroup\fboxrule0pt%
-       \normalcolor\fbox{\includegraphics{\PDFTfigname.pdf}}%
-       \egroup}%
-      {\PDFTnopdftrue}%
-}
-
 \definecolor{gray30}{gray}{.70}
 \definecolor{gray10}{gray}{.90}
 \RequirePackage{keyval}
 \def\configure[#1][#2]{\setkeys{#1}{#2}
-  \PDFTWarning{pdftricks}{Reconfigured #1 parameter(s)\MessageBreak  
-   #2\MessageBreak}}
-\define@key{pdfgraphic}{width}     {\gdef\@PDFgraphicwidth{#1}%
-                                    \global\@pdfGINwidthtrue}
-\define@key{pdfgraphic}{height}    {\gdef\@PDFgraphicheight{#1}%
-                                    \global\@pdfGINheighttrue}
-\define@key{pdfgraphic}{scale}     {\gdef\@PDFgraphicscale{#1}%
-                                    \global\@pdfGINscaletrue}
+  \PDFTWarning{pdftricks}{Reconfigured #1 parameter(s)\MessageBreak  #2\MessageBreak}
+  }
+\define@key{pdfgraphic}{width}     {\gdef\@PDFgraphicwidth{#1}\global\@pdfGINwidthtrue}
+\define@key{pdfgraphic}{height}    {\gdef\@PDFgraphicheight{#1}\global\@pdfGINheighttrue}
+\define@key{pdfgraphic}{scale}     {\gdef\@PDFgraphicscale{#1}\global\@pdfGINscaletrue}
 \define@key{pdfgraphic}{color}     {\gdef\@PDFgraphiccolor{#1}}
 \define@key{pdfgraphic}{linecolor} {\gdef\@PDFgraphiclinecolor{#1}}
 \define@key{pdfgraphic}{background}{\gdef\@PDFgraphicbackground{#1}}
@@ -261,48 +224,55 @@
 \gdef\@PDFgraphicbackground{white}
 \gdef\@PDFboxrule{0pt}
 \gdef\@PDFboxsep{0pt}
-
 %%
-%% Environment to grab all the packages used in the master doc.
+%% Tweak to grab all the packages used in the master doc.
 %% This forces you to load pdftricks as the first package.
 %%
-\newenvironment{psinputs}{\verbatimwrite{tmp.inputs}}
-   {\endverbatimwrite}
-
+\newenvironment{psinputs}{\begingroup
+ \newwrite\CVinputs
+ \immediate\openout\CVinputs=tmp.inputs
+  \def\usepackage{\@ifnextchar[\@CVUsepackage\@@CVUsepackage}
+  \def\@CVUsepackage[##1]##2{\immediate\write\CVinputs%
+     {\string\usepackage[##1]{##2}}}
+  \def\@@CVUsepackage##1{\immediate\write\CVinputs%
+     {\string\usepackage{##1}}}
+ }
+ {\endgroup\immediate\closeout\CVinputs}
 %%
 %% Arrays to keep the fig numbers
 %%
-\@ifundefined{c@arraylength}{\newcounter{arraylength}}{}%
-\@ifundefined{c@ArrayIndex}{\newcounter{ArrayIndex}}{}%
-\@ifundefined{c@zeroCtr}{\newcounter{zeroCtr}}{}%
-\@ifundefined{c@recordCtr}{\newcounter{recordCtr}}{}
+\makeatletter
+\newcounter{arraylength}%
+\newcounter{ArrayIndex}%
+\newcounter{zeroCtr}%
+\newcounter{recordCtr}
 \setcounter{recordCtr}{1}
-\@ifundefined{c@Ctr}{\newcounter{Ctr}}{}
+\newcounter{Ctr}
 \def\DeclareArray#1{\Array{#1}[0]{}}%
 %
 \def\Array#1[#2]#3{%
-      \expandafter\gdef\csname #1#2\endcsname{#3}%
-      \expandafter\gdef\csname #1\endcsname[##1]{\csname #1##1\endcsname}}%
+		\expandafter\gdef\csname #1#2\endcsname{#3}%
+		\expandafter\gdef\csname #1\endcsname[##1]{\csname #1##1\endcsname}}%
 %
 \def\getArraylength#1{\setcounter{arraylength}{0}%
-   \loop\expandafter\ifx\csname #1\thearraylength\endcsname\relax%
-   \else\stepcounter{arraylength}\repeat}%
+	\loop\expandafter\ifx\csname #1\thearraylength\endcsname\relax%
+	\else\stepcounter{arraylength}\repeat}%
 %
 \def\addToArray#1#2{\setcounter{arraylength}{0}%
-   \loop\expandafter\ifx\csname #1\thearraylength\endcsname\relax%
-   \else\stepcounter{arraylength}\repeat%
-   \Array{#1}[\thearraylength]{#2}}%
+	\loop\expandafter\ifx\csname #1\thearraylength\endcsname\relax%
+	\else\stepcounter{arraylength}\repeat%
+	\Array{#1}[\thearraylength]{#2}}%
 %
 \def\clearArray#1{\getArraylength{#1}%
-   \loop\ifnum\c@arraylength >0%
-   \global\expandafter\let\csname #1\thearraylength\endcsname\relax%
-   \addtocounter{arraylength}{-1}\repeat}%
+	\loop\ifnum\c@arraylength >0%
+	\global\expandafter\let\csname #1\thearraylength\endcsname\relax%
+	\addtocounter{arraylength}{-1}\repeat}%
 %
 \long\def\ArrayIterator#1#2{%
-   \setcounter{ArrayIndex}{1}\getArraylength{#1}%
-   \setcounter{zeroCtr}{\c@arraylength}%
-   \loop\ifnum\c@ArrayIndex<\c@zeroCtr{#2}%
-   \stepcounter{ArrayIndex}\repeat%
+	\setcounter{ArrayIndex}{1}\getArraylength{#1}%
+	\setcounter{zeroCtr}{\c@arraylength}%
+	\loop\ifnum\c@ArrayIndex<\c@zeroCtr{#2}%
+	\stepcounter{ArrayIndex}\repeat%
 }%
 \def\@nnil{\@nil}
 \def\@empty{}
@@ -312,14 +282,14 @@
 %% provided instead of LaTeX's default comma character
 %%
 \long\def\cvr@delimfor#1#2#3{\DeclareArray{#1}\clearArray{#1}%
-   \long\def\@icvrloop##1#2##2\@@##3{\def##3{##1}\ifx ##3\@nnil%
-   \expandafter\@cvrstop \else\addToArray{#1}{##1}%
+	\long\def\@icvrloop##1#2##2\@@##3{\def##3{##1}\ifx ##3\@nnil%
+  	\expandafter\@cvrstop \else\addToArray{#1}{##1}%
     \relax\expandafter\@icvrloop\fi##2\@@##3}%
-   \long\def\@cvrloop##1#2##2#2##3\@@##4{\addToArray{#1}{##1}%
-   \def##4{##1}\ifx ##4\@nnil \else%
+	\long\def\@cvrloop##1#2##2#2##3\@@##4{\addToArray{#1}{##1}%
+	\def##4{##1}\ifx ##4\@nnil \else%
     \def##4{##2}\def\y@y{##2}\ifx\y@y\@nnil\else%
-         \addToArray{#1}{##2}\fi\ifx ##4\@nnil \else%
-      \@icvrloop ##3\@@##4\fi\fi}%
+			\addToArray{#1}{##2}\fi\ifx ##4\@nnil \else%
+		\@icvrloop ##3\@@##4\fi\fi}%
   \expandafter\def\expandafter\@fortmp\expandafter{#3}%
   \ifx\@fortmp\@empty \else%
     \expandafter\@cvrloop#3#2\@nil#2\@nil\@@\@ee@\fi}%
@@ -330,33 +300,33 @@
 \newcounter{f@irstCtr}
 \newcounter{s@econdCtr}
 \long\gdef\NoProcess[#1]{%
-   \long\def\@i@@noprocess##1,##2\@@##3{\def##3{##1}\ifx ##3\@nnil%
-   \expandafter\@cvrstop \else
-      \expandafter\hyphencheck##1-@-*[*]
+	\long\def\@i@@noprocess##1,##2\@@##3{\def##3{##1}\ifx ##3\@nnil%
+  	\expandafter\@cvrstop \else
+		\expandafter\hypencheck##1-@-*[*]
     \relax\expandafter\@i@@noprocess\fi##2\@@##3}%
-   \long\def\@@@noprocess##1,##2,##3\@@##4{
-      \expandafter\hyphencheck##1-@-*[*]
-   \def##4{##1}\ifx ##4\@nnil \else%
+	\long\def\@@@noprocess##1,##2,##3\@@##4{
+		\expandafter\hypencheck##1-@-*[*]
+	\def##4{##1}\ifx ##4\@nnil \else%
     \def##4{##2}\def\y@y{##2}\ifx\y@y\@nnil\else%
-      \expandafter\hyphencheck##2-@-*[*]
-         \fi\ifx ##4\@nnil \else%
-      \@i@@noprocess ##3\@@##4\fi\fi}%
+		\expandafter\hypencheck##2-@-*[*]
+			\fi\ifx ##4\@nnil \else%
+		\@i@@noprocess ##3\@@##4\fi\fi}%
   \expandafter\def\expandafter\@fortmp\expandafter{#1}%
   \ifx\@fortmp\@empty \else%
     \expandafter\@@@noprocess#1,\@nil,\@nil\@@\@ee@\fi}%
 \def\d@d#1[*]{}
-\def\hyphencheck#1-#2-#3{\def\r@r{@}\def\s@s{*}\edef\c@c{#3}
-   \ifx\c@c\r@r
-   \setcounter{f@irstCtr}{#1}
-   \setcounter{s@econdCtr}{#2}
-   \stepcounter{s@econdCtr}
-   \loop\ifnum\thes@econdCtr > \thef@irstCtr% 
-      \expandafter\edef\csname Fig\thef@irstCtr\endcsname{TRUE}
-      \stepcounter{f@irstCtr}
-   \repeat%
-   \else\ifx\c@c\s@s% 
-      \expandafter\edef\csname Fig#1\endcsname{TRUE}
-   \fi\fi\d@d}
+\def\hypencheck#1-#2-#3{\def\r@r{@}\def\s@s{*}\edef\c@c{#3}
+	\ifx\c@c\r@r
+	\setcounter{f@irstCtr}{#1}
+	\setcounter{s@econdCtr}{#2}
+	\stepcounter{s@econdCtr}
+	\loop\ifnum\thes@econdCtr > \thef@irstCtr% 
+		\expandafter\edef\csname Fig\thef@irstCtr\endcsname{TRUE}
+		\stepcounter{f@irstCtr}
+	\repeat%
+	\else\ifx\c@c\s@s% 
+		\expandafter\edef\csname Fig#1\endcsname{TRUE}
+	\fi\fi\d@d}
 
 %%
 %%