\DrawMap
 \Define\OvalArea(3){
   \PaintOval(#1,#2)...
   \DoOvalArc(#1,#2)(0,360)
        (3){\MarkPoint }...
   \GetPolyArea[\RefFile{#3}]{}{}
 ...}
 ...\OvalArea(12,23,body)...\EndDraw
 
 \HPage[head]{}You cliked
   on the head\EndHPage{}
 \HPage[neck]{}...\EndHPage{}...