!if $click_x$click_y!=$empty and $status=waiting
click_x=$[$click_x]
click_y=$[$click_y]
!advance clickcnt
U=!item $clickcnt of $liste
xc=!eval $xx_size*($click_x-$border)/$inssize+$xsize1

!if $dim=1
dessin1=$dessin1\
arrow $xc,2,$xc,0,7,black\
text black ,$xc,4,medium,$U
err=$[abs($click_x-$(X$clickcnt))]
!else
yc=!eval $yy_size*(-$click_y+$border)/$inssize+$ysize2
err=$[abs($click_x-$(X$clickcnt))+abs($click_y-$(Y$clickcnt))]
dessin1=$dessin1\
disk $xc,$yc,7,black \
text black ,$xc,$yc,medium,$U
!endif
!if  $err<$arrondi
color=orange
!advance cnt_orange
!else
color=red
!endif

!if $dim=1
dessin3=$dessin3\
arrow $xc,2,$xc,0,7,$color\
text $color ,$xc,4,medium, $U 

!else
dessin3=$dessin3\
disk $xc,$yc,7,$color 
!if $err > $arrondi 
dessin3=$dessin3\
text $color ,$xc,$yc,medium, $U 
!endif
!endif

erreur=$[$erreur+min(10,rint($err/4))]
!ifval $xc*$(date$clickcnt) <-0.01  
!advance miss
!endif
!ifval $dim=2 and $yc*$(dat$clickcnt) <-0.01 
!advance miss
!endif

click_x=
click_y=

!if $clickcnt=$cnt_date 
status=done
module_score=$[10^(-2)*rint(10^2*max(10-min(10,$erreur/$cnt_date)-2*$miss,0))]
!endif

