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
!!    Le point a dj t slectionn ?
      u=!item $pt of $ccc
      ccc=!exec pari Q=[$ccc]; Q[$pt]=1-Q[$pt]; print(Q)
      ccc=!trim $ccc
!!    Prparation du trac des sommets de la cc
      dessin_aretes=$empty
      !for i=1 to $n
        u=!item $i of $ccc
        !if $u=1
          ptabs=$(abscisse$i)
          ptord=$(ordonnee$i)
          dessin_aretes=$dessin_aretes\
          disk $ptabs,$ptord, 6, $color5
        !endif
      !next i
    !endif
  !else
    D=!exec pari print([$ccx]-[$ccc]);
    D=!nospace $D
    DM=!translate internal ; to $\
$ in $D
    v=!exec pari [$D]==0
    !if $v=1
      module_score=10
    !else
      x=0
      nberrp=0
      nberrm=0
      !for i=1 to $n
        u=!item $i of $D
        !if $u = 1
          !advance nberrm
        !endif
        !if $u = -1
          !advance nberrp
        !endif
        u=!item $i of $ccx
        x=$[$x+$u]
      !next i
      y=$[$n-$x]
      module_score=$[min(10,floor(10*$[max(0,10*(1-$nberrm/$x-$nberrp/$y))])/10)]
!!    Trac du commentaire
      dessin_aretes=$empty
      !for i=1 to $n
        u=!item $i of $D
        v=!item $i of $ccx
        color0=$empty
        !if ($u=0) and ($v=1)
          color0=$color5
        !endif
        !if ($u=0) and ($v=0)
          color0=$color6
        !endif
        !if $u=1
          color0=$color3
        !endif
        !if $u=-1
          color0=$color4
        !endif
        !if $color0<>$empty
          ptabs=$(abscisse$i)
          ptord=$(ordonnee$i)
          dessin_aretes=$dessin_aretes\
          disk $ptabs, $ptord, 6, $color0
        !endif
      !next i
       !endif
!!    Trac du graphe correct
      dessin_correct=$dessin_sommets
      !for i=1 to $n
        u=!item $i of $ccx
        !if $u=1
          ptabs=$(abscisse$i)
          ptord=$(ordonnee$i)
          dessin_correct=$dessin_correct\
          disk $ptabs, $ptord, 6, $color5
        !endif
      !next i
   
    status=done
  !endif
!endif

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