\def\xyAllImportBBError@#1{%  \xyerror@{There is no Marked-Point information for image #1.}}%\def\xyAllLabelsImport@{\ifx\undefined\wrm@urx \expandafter\xyAllImportBBError@ \else\expandafter\xyAllLabelsImport@i\fi}\def\xyAllLabelsImport@i#1{\bgroup  \L@c=\wrm@llx\p@ \L@c=-\L@c \D@c=\wrm@lly\p@ \D@c=-\D@c  \R@c=\wrm@urx\p@ \advance\R@c\L@c  \U@c=\wrm@ury\p@ \advance\U@c\D@c  \ifdim\wrm@aspect\p@=\p@\else   \ifdim\wrm@aspect\p@<\p@    \quotient@\tmp@\U@c{\wrm@aspect\p@}%    \dimen@=\tmp@\p@\advance\dimen@-\U@c \divide\dimen@\tw@    \U@c=\tmp@\p@ \advance\D@c\dimen@    % \dimen@=\wrm@offset\p@ \divide\dimen@\tw@    % \advance\U@c-\wrm@offset\p@    \dimen@=\wrm@offset\p@ \divide\dimen@\tw@ \advance\D@c\dimen@   \else    \dimen@=\R@c \R@c=\wrm@aspect\R@c    \advance\dimen@-\R@c \divide\dimen@\tw@    \advance\L@c-\dimen@    \dimen@=\wrm@offset\p@ \divide\dimen@\tw@ \advance\L@c\dimen@   \fi  \fi  \edef\next@{\egroup \def\noexpand\xyimportparams@ %   {(\expandafter\removePT@\the\R@c,\expandafter\removePT@\the\U@c)%    (\expandafter\removePT@\the\L@c,\expandafter\removePT@\the\D@c)}%   }\next@   \expandafter\xyimport\xyimportparams@{\xyWARMinclude{#1}}%}\def\wrm@aspect{1}\def\wrm@offset{0}\def\xyAllMarkedPoints@#1#2{% \wrmcounter=\z@% \ifx\wrm@prefix\wrm@defprefix\def\wrm@prefix{}\fi \loop  \ifnum\wrmcounter<\wrmdatacounter\relax   \advance\wrmcounter\@ne   \expandafter\expandafter\expandafter\ifx\expandafter   \csname\the\wrmcounter @WRM\endcsname\relax   \expandafter\DN@\expandafter{\expandafter    \RecoverData\expandafter{%\expandafter\wrm@prefix     \the\wrmcounter}#1#2{@}\relax}%  \else   \expandafter\expandafter\expandafter\let    \expandafter\csname\the\wrmcounter @WRM\endcsname\relax   \DN@{\relax}%  \fi \next@ \repeat \POS }\def\reverse@WRMflags{% \wrmcounter=\z@ \loop  \ifnum\wrmcounter<\wrmdatacounter  \advance\wrmcounter\@ne  \expandafter\expandafter\expandafter\ifx\expandafter   \csname\the\wrmcounter @WRM\endcsname\relax   \expandafter\expandafter\expandafter\let\expandafter    \csname\the\wrmcounter @WRM\endcsname\markedempty@@  \else   \expandafter\expandafter\expandafter\let\expandafter    \csname\the\wrmcounter @WRM\endcsname\relax  \fi \repeat }% allows a constant offset to be added to each marked-point's% coordinate position --- in case the BoundingBox is wrong%\def\xyWARMoffset[#1,#2]{%usage:  \xyWARMoffset[<num>,<num>] \def\wrm@xoffset{#1}% \def\wrm@yoffset{#2}%}\def\wrm@checkoffset{% \ifx\wrm@xoffset\wrm@empty\else  \bgroup    \errhelp={WARM error: invalid offset in X-direction}%   \dimen@\wrm@x\p@ \advance\dimen@\wrm@xoffset\p@   \edef\next{\egroup    \def\noexpand\wrm@x{\expandafter\removePT@\the\dimen@}}%  \next \fi \ifx\wrm@yoffset\wrm@empty\else  \bgroup    \errhelp={WARM error: invalid offset in Y-direction}%   \dimen@\wrm@y\p@ \advance\dimen@\wrm@yoffset\p@   \edef\next{\egroup    \def\noexpand\wrm@y{\expandafter\removePT@\the\dimen@}}%  \next \fi }\def\wrm@xoffset{}%\def\wrm@yoffset{}%%%%%  default file-type method is  \WARMprocessEPS%%  assuming the graphics file has an associated .bb file%%\def\xyWARMprocessEPS#1#2{\WARMprocessEPS{#1}{#2}{bb}}\def\xyWARMprocessMoEPS#1#2{\WARMprocessMoEPS{#1}{#2}{bb}}\let\xyWARMprocess=\xyWARMprocessEPS\let\xyWARMprocessMo=\xyWARMprocessMoEPS%%%%  default graphics file inclusion  \includegraphics%%  (assumes LaTeX-2e with \usepackage{graphics})%%\def\xyWARMinclude#1{\includegraphics{#1}}%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  implementations for specific image-types%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\newtoks\WARM@ExpansionToks%%%% Implementation for Adobe Illustrator files, v8.x and earlier%%{\catcode`\%=12\gdef\ParenPointPattern{####1 (####2,####3) ####4 %####5 %####6%####7}\gdef\ParenPointStripped{ % (,) , % %%}\gdef\ParenEmpty{%}\gdef\AdobeBoundingBoxString{%%BoundingBox:}\gdef\AdobeStartDataString{%%StartMarkedPoints}\gdef\AdobePreDataString{%%MarkedPoint:}\gdef\AdobeEndDataString{%%EndMarkedPoints}\gdef\AdobeEndFileString{%%EndComments}}\def\FindAdobeMarkedPoints{% \let\WARM@EndFileString=\AdobeEndFileString \let\WARM@PreDataString=\AdobePreDataString \let\WARM@EndDataString=\AdobeEndDataString \let\DataPattern=\BBpattern \let\StrippedDataPattern=\BBstripped \let\WARM@ExpansionToks=\BBexpansiontoks \let\CleanupAfterFile=\saveBBafterFile \let\CleanupAfterDir=\saveBBafterFile \let\wrm@llx=\undefined \def\wrm@aspect{1}% \def\wrm@offset{0}% \ReadToLine\AdobeBoundingBoxString\BBpattern\relax %\PrintInfoLine \ReadToLine\AdobeStartDataString{}\relax %\PrintInfoLine \SetExpansionToks \ReadDataLines\WRM@DataPattern\WRM@DataStripped\WriteToBBfile \ReadToLine\AdobeEndDataString{}\relax %\PrintInfoLine \ReadToLine\WARM@EndFileString{}\relax %\PrintInfoLine}\newtoks\ParenPointToks\ParenPointToks={\def\wrm@x{#2}\def\wrm@y{#3}% \def\afterdata{#7}% \ifx\afterdata\ParenEmpty%  \edef\wrm@label{datapoint\the\wrmdatacounter}%  \edef\wrm@label{\wrm@prefix\the\wrmdatacounter}%  \def\wrm@texstring{#4}% \else  \def\wrm@label{#4}\def\wrm@texstring{#5}% \fi \def\testdata{#1}\wrm@savedata }\def\ParenPointData{% \let\WRM@DataPattern\ParenPointPattern \let\WRM@DataStripped\ParenPointStripped \def\SetExpansionToks{\let\WARM@ExpansionToks\ParenPointToks}%}\def\FindAdobeParenPoints{\ParenPointData\FindAdobeMarkedPoints}\def\WARMprocessEPS#1#2#3{\WARMprocess{#1}{#2}{#3}\FindAdobeParenPoints}%%%% Implementation for Adobe Illustrator files,  v9.x  with Mo-tool%%{\catcode`\%=12\gdef\AdobeMoPointPattern{####1(####2,####3) :####4 :####5 %####6 %####7%####8}\gdef\AdobeMoPointStripped{ %(,) : : % %%}\gdef\AdobeMoEmpty{%}\gdef\AdobeMoBoundingBoxString{%%BoundingBox:}\gdef\AdobeMoStartDataString{%%StartMarkedPoints}\gdef\AdobeMoPreDataString{%%MarkedPoint:}\gdef\AdobeMoEndDataString{%%EndMarkedPoints}\gdef\AdobeMoEndFileString{%%EndComments}}\def\FindAdobeMoMarkedPoints{% \let\WARM@EndFileString=\AdobeMoEndFileString \let\WARM@PreDataString=\AdobeMoPreDataString \let\WARM@EndDataString=\AdobeMoEndDataString \let\DataPattern=\BBpattern \let\StrippedDataPattern=\BBstripped \let\WARM@ExpansionToks=\BBexpansiontoks \let\CleanupAfterFile=\saveBBafterFile \let\CleanupAfterDir=\saveBBafterFile \let\wrm@llx=\undefined \def\wrm@aspect{1}% \def\wrm@offset{0}% \ReadToLine\AdobeMoBoundingBoxString\BBpattern\relax %\PrintInfoLine \ReadToLine\AdobeMoStartDataString{}\relax %\PrintInfoLine \SetExpansionToks \ReadDataLines\WRM@DataPattern\WRM@DataStripped\WriteToBBfile \ReadToLine\AdobeMoEndDataString{}\relax %\PrintInfoLine \ReadToLine\WARM@EndFileString{}\relax %\PrintInfoLine}\def\WRM@stripspace#1#2\endstrip{\expandafter\ifx\space#1\else#1\fi#2}\newtoks\AdobeMoPointToks\AdobeMoPointToks={\def\wrm@x{#2}\def\wrm@y{#3}% \wrm@checkoffset \def\afterdata{#8}% \ifx\afterdata\ParenEmpty  \edef\wrm@label{\wrm@prefix\the\wrmdatacounter}%  \def\wrm@texstring{#5}% \else  \def\wrm@label{#5}%  \ifx\wrm@label\wrm@empty\else   \edef\wrm@label{\WRM@stripspace#5\endstrip}\fi  \def\wrm@texstring{#6}% \fi \def\testdata{#1}\wrm@savedata }\def\AdobeMoPointData{% \let\WRM@DataPattern\AdobeMoPointPattern \let\WRM@DataStripped\AdobeMoPointStripped \def\SetExpansionToks{\let\WARM@ExpansionToks\AdobeMoPointToks}%}\def\FindAdobeMoPoints{\AdobeMoPointData\FindAdobeMoMarkedPoints}\def\WARMprocessMoEPS#1#2#3{\WARMprocess{#1}{#2}{#3}\FindAdobeMoPoints}%%%% Implementation for Mathematica Digitised files (.mbb suffix)%%{\catcode`[=1 \catcode`]=2 \catcode`\{=12 \catcode`\}=12 \catcode`\%=12\gdef\MmaPointPattern[####1{####2, ####3, ####4}####5]\gdef\MmaPointStripped[{, , }]\gdef\MmaBBpattern[####1{####2, ####3, ####4, ####5}####6]\gdef\MmaBBstripped[{, , , }]\gdef\MmaPointEmpty[]\gdef\MmaBoundingBoxString[LDRU:]\gdef\MmaAspectRatioString[%%AspectRatio]\gdef\MmaARpattern[####1: ####2:####3:####4]\gdef\MmaARstripped[: ::]\gdef\MmaStartDataString[StartData]\gdef\MmaPreDataString[,]\gdef\MmaEndDataString[EndData]\gdef\MmaEndFileString[]]\newtoks\MmaBBexpansiontoks\MmaBBexpansiontoks={\def\testcomment{#1}% \ifx\testcomment\MmaBoundingBoxString  \def\wrm@llx{#2}\def\wrm@lly{#3}%  \def\wrm@urx{#4}\def\wrm@ury{#5}%  % there can be only one  \aftergroup\morelinesfalse\wrm@message{file: \wrm@filename}%\wrm@message{Bounding Box is (\wrm@llx,\wrm@lly)->(\wrm@urx,\wrm@ury)}% \fi}\newtoks\MmaARexpansiontoks\MmaARexpansiontoks={\def\testcomment{#1}% \ifx\testcomment\MmaAspectRatioString  \aftergroup\morelinesfalse  \def\wrm@aspect{#2}%  \dimen@=#3\p@\ifdim\dimen@=\z@\else\def\wrm@offset{#3}\fi  \ifx\wrm@offset\wrm@empty\def\wrm@offset{0}\else  \def\tmp@{ }\ifx\wrm@offset\tmp@\def\wrm@offset{0}\fi\fi\wrm@message{AspectRatio is: \wrm@aspect , Offset: \wrm@offset}% \fi}\def\FindMmaMarkedPoints{% \FindMmaMarkedPoints@i \FindMmaMarkedPoints@ii \FindMmaMarkedPoints@x}%\def\FindMmaARMarkedPoints{% \FindMmaMarkedPoints@i \FindMmaMarkedPoints@r \FindMmaMarkedPoints@ii \FindMmaMarkedPoints@x}%\def\FindMmaMarkedPoints@i{% \let\WARM@EndFileString=\MmaEndFileString \let\WARM@PreDataString=\MmaPreDataString \let\WARM@EndDataString=\MmaEndDataString \let\DataPattern=\MmaPointPattern \let\wrm@llx=\undefined \def\wrm@aspect{1}%}\def\FindMmaMarkedPoints@r{% \let\StrippedDataPattern=\MmaARstripped \let\WARM@ExpansionToks=\MmaARexpansiontoks \let\CleanupAfterFile=\saveARafterFile \let\CleanupAfterDir=\saveARafterFile \ReadToLine\MmaAspectRatioString\MmaARpattern\relax }\def\FindMmaMarkedPoints@ii{% \let\StrippedDataPattern=\MmaBBstripped \let\WARM@ExpansionToks=\MmaBBexpansiontoks \let\CleanupAfterFile=\saveBBafterFile \let\CleanupAfterDir=\saveBBafterFile \ReadToLine\MmaBoundingBoxString\MmaBBpattern\relax }\def\FindMmaMarkedPoints@x{% \ReadToLine\MmaStartDataString{}\relax  \SetExpansionToks \ReadDataLines\WRM@DataPattern\WRM@DataStripped\relax \ReadToLine\MmaEndDataString{}\relax \ReadToLine\MmaEndFileString{}\relax}\newtoks\MmaPointToks\MmaPointToks={\def\wrm@x{#2}\def\wrm@y{#3}% \def\afterdata{#5}%% \advance\wrmdatacounter\@ne\relax \ifx\afterdata\MmaPointStripped%  \edef\wrm@label{\wrm@prefix\the\wrmdatacounter}%  \def\wrm@label{#4}%  \def\wrm@texstring{#4}% \else  \def\wrm@label{#4}\def\wrm@texstring{#5}% \fi \def\testdata{#1}\wrm@savedata }\def\MmaPointData{% \let\WRM@DataPattern\MmaPointPattern \let\WRM@DataStripped\MmaPointStripped \def\SetExpansionToks{\let\WARM@ExpansionToks\MmaPointToks}%}\def\FindBracedPoints{\MmaPointData\FindMmaMarkedPoints}\def\WARMprocessMMA#1#2#3{\WARMprocess{#1}{#2}{#3}\FindBracedPoints}% incorporate the Aspect-Ratio correction\def\FindBracedARPoints{\MmaPointData\FindMmaARMarkedPoints}\def\WARMprocessMMAR#1#2#3{\WARMprocess{#1}{#2}{#3}\FindBracedARPoints}%%%% Implementation for Mathematica CityData file (CityData.m)%%{\catcode`<=1 \catcode`>=2 \catcode`"=12 \catcode`\{=12 \catcode`\}=12 \catcode`\%=12\gdef\MmaCityPattern<####1["####2"] = {{####3, ####4}, {####5, ####6}}####7>\gdef\MmaCityStripped<[""] = {{, }, {, }}>\gdef\MmaMinPattern<####1, ####2}####3>\gdef\MmaMinStripped<, 0}>\gdef\MmaPointEmpty<>\gdef\MmaStartCityString<(* City Information *)>\gdef\MmaPreCityString<CityPosition>\gdef\MmaEndDataString<End[]>\gdef\MmaEndFileString<EndPackage[]>\gdef\ContentsBoxString<%%ContentsBox:>\gdef\MapTypeString<%%MapProjection>\gdef\MTpattern<####1: ####2 (####3,####4)####5>\gdef\MTstripped<: , (,)>\gdef\getMmaMinSecs@#1, #2}#3!!@!<\dimen@=#2\p@ \dimen@=.016667\dimen@ \advance\dimen@ #1\p@ \dimen@=.016667\dimen@ >>% end of \catcode changes\newtoks\MmaCityToks\MmaCityToks={\def\wrm@y{#3}\def\wrm@x{#5}\def\afterdata{#7}% \edef\tmp@{#6\MmaMinStripped}\expandafter\getMmaMinSecs@\tmp@!!@!% \advance\dimen@\wrm@x\p@ \edef\wrm@x{\expandafter\removePT@\the\dimen@}% \edef\tmp@{#4\MmaMinStripped}\expandafter\getMmaMinSecs@\tmp@!!@!% \advance\dimen@\wrm@y\p@ \edef\wrm@y{\expandafter\removePT@\the\dimen@}%% \advance\wrmdatacounter\@ne\relax \ifx\MapFilter\relax\else\MapFilter\fi \ifx\afterdata\MmaCityStripped  \def\wrm@label{#2}\def\wrm@texstring{#2}% \else  \def\wrm@label{#7}\def\wrm@texstring{#2}% \fi \def\testdata{#1}\wrm@savedata }\def\FindMmaCityData{% \FindMmaCityData@i \FindMmaCityData@ii \FindMmaCityData@x}%\def\FindMmaCityData@i{% \CloseTheFile\relax \edef\wrm@filename{\CityDataFile}\TryToOpenTheFile \relax}\def\FindMmaCityData@ii{% \let\WARM@EndFileString=\MmaEndFileString \let\WARM@PreDataString=\MmaPreCityString \let\WARM@EndDataString=\MmaEndDataString \let\DataPattern=\MmaCityPattern}%%%% Implementation for LatitudeLongitude files %%  (catcode changes needed, for 伆 and ' and % )%%{\catcode`