Recording Rectangles

PUT warnings

PUT ALT ONLy IN PLACE!!!

<..image maps for /Draw..>+
 \Odef\GetRectArea[#1]#2#3{{%
   \ifnum \Point:N>0
      \MarkPoint     \area:env \gHAssign\Point:N = 0
      \xdef\:Map{\:Map
         \rect:area{#1}\gt:crd{point:1}\gt:crd{point:2}{#2}{#3}}%
   \fi}}
 \def\rect:area#1#2#3#4#5#6#7{%
    \trns:pt\:X{#2}\:Y{#3}%
    \trns:pt\:Z{#4}\:W{#5}%
    \Ar:a[#1 shape="rect"
      coords="\M:n\:X\:Z,\M:n\:Y\:W,\M:x\:X\:Z,\M:x\:Y\:W"
      \if "#7"\else alt="#7"\fi]{#6}}
 -_-_-