xc=!eval $xx_size*($click_x-$border)/$inssize1+$x_size1
yc=!eval $yy_size*(-$click_y+$border)/$inssize2+$y_size2
!if $status=waiting
	!if $opar1<2
	liste=
		liste1=
		!for k=1 to $cnt_a
			l=!line $k of $listea
			!distribute item $l into i,j
			!distribute item $(abscisse$i),$(ordonnee$i), $(abscisse$j),$(ordonnee$j) into u,v,w,z
			!if $[($u-($xc))*($w-($xc))]<=0 and $[($v-($yc))*($z-($yc))]<=0
				liste=!append item $[abs(($u-($w))*($yc-($v))-($xc-($u))*($v-($z)))/(($u-($w))^2+($v-($z))^2)^0.5] to $liste
			!else
				liste=!append item 10000 to $liste
			!endif
		!next k

		liste1=!sort numeric item $liste 
		m=!item 1 of $liste1
		!if $m > $incert
			error=pas_de_point
		!else 
			pt=!positionof item $m in $liste
!! L'arete a dj t slectionne ?
			ccc=!exec pari Q=[$ccc]; Q[$pt]=1-Q[$pt]; print(Q);
!! Prparation du trac des aretes de ccc
			dessin_aretes=linewidth 2
			!for i=1 to $cnt_a
				u=!item $i of $ccc
				!if $u=1
					arete=!line $i of $listea
					!distribute item $arete into i,j
					ptabs1=$(abscisse$i)
					ptord1=$(ordonnee$i)
					ptabs2=$(abscisse$j)
					ptord2=$(ordonnee$j)
					dessin_aretes=$dessin_aretes\
 line $ptabs1,$ptord1, $ptabs2,$ptord2, $color5
				!endif
			!next i
		!endif
	!else
 !!analyse de la rponse: tous les sommets sont incidents  une arete de ccc
		ccc=!nospace $ccc
		GM=!translate internal ; to $\
$ in $G
		erreur=$empty
		err_n=!replace internal , by + in $ccc
		err_n=$[$err_n]
		r=!values x for x=1 to $n
		som=
		!for j=1 to $cnt_a
			u=!item $j of $ccc
			!if $u=1
				ar=!line $j of $listea
				som=!append item $ar to $som
			!endif
		!next j
		erreur=!listcomplement $som in $r
 !! tester que c'est minimal ? demander aussi qu'il y ait au plus n/2 aretes

		!if $erreur=$empty
			test=0
				!for k=1 to $cnt_a
					v=!item $k of $ccc
					!if $v=1
						som=
						!for j=1 to $cnt_a
							u=!item $j of $ccc
							!if $u=1 and $j<>$k
								ar=!line $j of $listea
								som=!append item $ar to $som
							!endif
						!next j 
						som =!nonempty items $som 
						err=!listcomplement $som in $r
						cnt_err=!itemcnt $err
						!if $cnt_err =0
							test=$k
							!break
						!endif
					!endif
				!next k
		!endif
		err=!itemcnt $erreur
		!if $err=0 and $test=0 
			module_score=10
		!else
			!if $err<>0
				module_score=$[max(0,10-2*$err)]
			!else
				module_score=5
			!endif
		!endif
		!if $err_n >$[ceil($n/2)+1]
			module_score=0
		!endif
		status=done 
		!for i =1 to $err 
			j=!item $i of $erreur
			dessin_aretes=$dessin_aretes\
disk $(abscisse$j),$(ordonnee$j), 10,$color3
		!next i
		!if $err=0 and $test>0
			l=!line $test of $listea
			!distribute item $l into i,j
			dessin_aretes=$dessin_aretes\
line $(abscisse$i),$(ordonnee$i),$(abscisse$j),$(ordonnee$j),$color4
		!endif
	!endif
!endif
click_x=0
click_y=0
yc=0
xc=0
