; Show on screen the peak current database
;
if ($att['largest'] == 0) error "Database Empty !"

set f1min = (itop($zoom_2d[1],2,1))
set f2min = (itop($zoom_2d[2],2,2))
set f1max = (itop($zoom_2d[3],2,1))
set f2max = (itop($zoom_2d[4],2,2))
set mm = 1
set s1 = $scolor
set s2 = ($scolor+1)    if ($s2 == 8 ) set s2 = 2
set pk = 0    set apk = 0   set wpk = 0

foreach i in att within 2 $f1min $f2min $f1max $f2max
  if ($i s! "largest") then
   set pk = (%+1)
   set l = $att[$i]
   set f1 = (head($l)) set f2 = (head(tail($l)))
   set f1i = (ptoi($f1,2,1))
   set f2i = (ptoi($f2,2,2))
   if ((head(tail(tail(tail($l))))) s= 'unk') then
		scolor $s2
   else
		scolor $s1
		set apk = (%+1)
   endif
   show_att $i
  endif
endfor
scolor $s1
alert ("In window :";$wpk;"peaks (" // $apk; "assigned)")

