; mosaic "list of spins"
;
set l = $_
set n = 0
set win = 0.2
while ($l s! ' ')
	set s = (head($l))	set l = (tail($l))	set n = (%+1)
	set ppm[$n] = (head($spin[$s]))
	set name[$n] = (head(tail($spin[$s])))
	set sid[$n] = $s
endwhile
cdisp2d 1
for i = 1 to $n
	for j = 1 to $n
print ($ppm[$i] -$win // 'p')
print  ($ppm[$j] -$win // 'p')
print  ($ppm[$i] +$win // 'p')
print ($ppm[$j] +$win // 'p')
		zoom 1  ($ppm[$i] +$win // 'p') ($ppm[$j] +$win // 'p') ($ppm[$i] -$win // 'p') ($ppm[$j] -$win // 'p')
		showtext ($name[$i]; "-"; $name[$j])($ppm[$j] +$win // 'p')  ($ppm[$i] +$win // 'p') 
		show_spin $sid[$i]
		if ($i != $j) show_spin $sid[$j]
		gm/al_yesno "Do you want to freeze it ?"
		if ($returned s= 'yes') freeze 3
	endfor
endfor



