liste=
liste_pix
dessin1=
n0=0
sizex1=0
sizex2=0
sizey1=0
sizey2=0
!default border=1

n_crit= !linecnt $point_critique
liste=$point_critique
!for i =1 to  $n_crit
sol=!line $i of $point_critique
sol1= !item 1 of $sol
sol2= !item 2 of $sol
sizex1=!evalue min($sol1,$sizex1)
	sizex2=!evalue max($sol1,$sizex2)
	sizey1=!evalue min($sol2,$sizey1)
	sizey2=!evalue max($sol2,$sizey2)
	dessin1= !append line disk  $sol1,$sol2,4,blue to $dessin1
!next i

sizex1=!evalue max($centrex-($sizex1), $centrey-($sizey1))
sizex2=!evalue max(-$centrex+$sizex2, -$centrey+$sizey2)
xy_size=!evalue  max($sizex1,$sizex2)+1
xy_size=$[rint($xy_size)]

n_crit=!linecnt  $liste
!for i=1 to $n_crit
	sol=!line $i of $liste
	sol1=!item 1 of $sol
	sol2=!item 2 of $sol
	X$(i)= $[rint((255)*($sol1+$xy_size-($centrex))/(2*$xy_size)+$border)]
	Y$(i)= $[rint((255)*(-($sol2)+$xy_size+($centrey))/(2*$xy_size)+$border)]
	liste_pix= !append line $(X$(i)) , $(Y$(i))  to $liste_pix
	e$(i)=10000
!next i

!if 3 isin $question
x_M=!randint $[$centrex-$xy_size+1], $[$centrex+$xy_size-1]
y_M=!randint $[$centrex-$xy_size+1], $[$centrex+$xy_size-1]
valeur=!mathsubst x=$x_M in $f
valeur=!evalsubst y=$y_M in $valeur
rep_posneg=$[sign(-$valeur)]
!endif
