; sphere d x y z
; touve tous les atomes dans une sphere de rayon d, autour de x y z
;
set d = $_
set x = $_	set y = $_	set z = $_
set struct['temp'] = ($x;$y;$z;'temp')   ; used to compute dist
set list = ' '

foreach i in struct within 3 ($x-$d) ($y-$d) ($z-$d) ($x+$d) ($y+$d) ($z+$d)
	dist_atom $i 'temp'
	if ($returned <= $d) set list = (%; $i)
endfor
set returned := $list
unset struct[temp]
