xc=!eval $xx_size*($click_x-$border)/$inssize+$x_size1
yc=!eval $yy_size*(-$click_y+$border)/$inssize+$x_size2

!if $status=waiting
  !if $opar1<2
    pt=0
    !for i=1 to $n
      u=$(abscisse$i)
      v=$(ordonnee$i)
      d=$[(abs((($xc) - ($u))^2 + (($yc) - ($v))^2))^(1/2)]
      !if $d < $incert
        pt=$i
      !endif
    !next i
    !if $pt=0
      error=pas_de_point
    !else
      !if $etp=0
        ar=$pt
        etp=1
      !else
        u=!item -1 of $ar
        !if $pt=$u
!!        On supprime
          u=$[$etp-1]
          v=!item 1 of $ar
          !for i=2 to $u
            w=!item $i of $ar
            v=$v,$w
          !next i
          ar=$v
          etp=$[$etp-1]
        !else
!!        On vrifie qu'on a bien une nouvelle arte
          I=!item -1 of $ar
          J=$pt
          L=!line $I of $GM
          u=!item $J of $L
          L=!line $J of $GM
          v=!item $I of $L
!!        w=prsence d'une arte entre i et j ou de i vers j
          !if $gor=0
            !if ($u=1) or ($v=1)
              w=1
            !else
              w=0
            !endif
          !else
            w=$u
          !endif
          !if $w = 1
            ar=$ar,$pt
            !advance etp
          !else
            error=arete_n_existe_pas
          !endif
        !endif
      !endif
    !endif
    essai=$etp,$ar
!!  Prparation du trac des artes
    dessin_aretes=$empty
    u=$[$etp-1]
    !for i=1 to $u
      v=!item $i of $ar
      ptabs=$(abscisse$v)
      ptord=$(ordonnee$v)
      dessin_aretes=$dessin_aretes\
      disk $ptabs,$ptord, 6, $color3
      I=!item $i of $ar
      J=!item $[$i+1] of $ar
      param=$empty
      x1=$(abscisse$I)
      y1=$(ordonnee$I)
      x2=$(abscisse$J)
      y2=$(ordonnee$J)
      !if $gor=1
        x=$[$x1+$k*($x2-$x1)]
        y=$[$y1+$k*($y2-$y1)]
        param=arrow $x1, $y1, $x, $y, $kf, $color3
      !endif
      param=$param\
      line $x1, $y1, $x2, $y2, $color3
      dessin_aretes=$dessin_aretes\
      $param
    !next i    
    !if $etp>0
      v=!item -1 of $ar
      ptabs=$(abscisse$v)
      ptord=$(ordonnee$v)
      dessin_aretes=$dessin_aretes\
      disk $ptabs,$ptord, 6, $color4
    !endif    
  !else
    u=$[$etp-1]
    x=!item 1 of $ar
    y=!item -1 of $ar
    !if $gor=0
      !if (($x=$PT) and ($y=$PT2)) or (($x=$PT2) and ($y=$PT))
        z=1
      !else
        z=0
      !endif
    !else
      !if ($x=$PT) and ($y=$PT2)
        z=1
      !else
        z=0
      !endif
    !endif
    !if $z=1
      module_score=$[min(10,max(0,$[10-5*($u-$dst)]))]
    !else
      module_score=0
    !endif
    status=done
  !endif
!endif

xc=0
yc=0
click_x=0
click_y=0
