Utilities

<..image maps for /Draw..>+
 \gHAssign\Point:N = 0
 \def\MarkPoint{\gHAdvance\Point:N by 1
    \MarkGLoc(point:\Point:N)}
 
 \def\area:env{\def\:X##1.##2\:Y##3.##4,{{##1}{##3}}%
     \let\rect:area=\relax
     \let\circle:area=\relax
     \let\poly:area=\relax }
 
 \def\gt:crd#1{\csname Loc\space#1:\endcsname,}
 -_-_-

<..image maps for /Draw..>+
 \def\trns:pt#1#2#3#4{%
    \ifnum #2<\MinDrawX  \HAssign#1=0
    \else   \HAssign#1 = #2 \Advance:#1 by -\MinDrawX
       \tmp:dim=\Map:x \multiply\tmp:dim by #1
       \HAssign #1=\:InCons\tmp:dim
    \fi
    \ifnum  #4>\MaxDrawy   \HAssign#3=\MaxDrawy
    \else   \HAssign#3=-#4  \Advance:#3 by \MaxDrawy
    \fi
    \tmp:dim=\Map:y \multiply\tmp:dim by #3  \HAssign#3=\:InCons\tmp:dim
 }
 -_-_-

<..image maps for /Draw..>+
 \def\MapDensity(#1,#2){%
    \tmp:dim=#1pt \divide\tmp:dim by 72 \edef\Map:x{\the\tmp:dim}%
    \tmp:dim=#2pt \divide\tmp:dim by 72 \edef\Map:y{\the\tmp:dim}}
 \MapDensity(72,72)
 -_-_-