Recording Circles

<..image maps for /Draw..>+
 \Odef\GetCircleArea[#1]#2#3{{%
   \ifnum \Point:N>0
     \MarkPoint    \:distance(point:1,point:2)\tmp:dim=\Map:x
     \:d=\:Cons\tmp:dim\:d \area:env
     \gHAssign\Point:N = 0
     \xdef\:Map{\:Map
        \circle:area{#1}\gt:crd{point:1}{\:InCons\:d}{#2}{#3}}%
   \else\fi}}
 -_-_-

<..image maps for /Draw..>+
 \def\circle:area#1#2#3#4#5#6{%
    \trns:pt\:X{#2}\:Y{#3}%
    \Ar:a[#1 shape="circle" coords="\:X,\:Y,#4"
        \ifx "#6"\else alt="#6"\fi]{#5}}
 -_-_-