liste=
liste_pix
dessin1=
!default border=1
liste_pix=
color1=blue
color2=red
!for i=1 to $charges
	sol=!line $i of $xyq
	sol1=!item 1 of $sol
	sol2=!item 2 of $sol
	
	X$(i)= $[rint(255*($sol1+$xy_size)/(2*$xy_size)+$border)]
	Y$(i)= $[rint((255)*(-($sol2)+$xy_size)/(2*$xy_size)+$border)]
	liste_pix= !append line $(X$(i)) , $(Y$(i))  to $liste_pix
	e$(i)=10000

	!if $(q$(i))>=0
	dessin1= !append line  text  $color1,$[$sol1-0.2],$[$sol2+0.2],giant,+ to $dessin1
	dessin1= !append line  circle  $sol1,$sol2,15,$color1 to $dessin1
	!else
	dessin1= !append line  circle  $sol1,$sol2,15,$color2 to $dessin1
	dessin1= !append line  text  $color2,$[$sol1-0.2],$[$sol2+0.2],giant,-  to $dessin1
	!endif
!next i




