; local_pk $i
;
; display on the screen a zoom around the $i peak in the 
; database
;
set mm = 2
set mm_zm = 0.2
if (!$arg) message "Peak number in the database?"
set i = $_
if (exist("att[" // $i //"]")) then
   set l = $att[$i]
else
   error "Unknown peak"
endif

set f1 = (head($l)) set f2 = (head(tail($l)))
zoom 1 (($f1+$mm_zm)//"p") (($f2+$mm_zm)//"p") (($f1-$mm_zm)//"p") (($f2-$mm_zm)//"p")
refmacro 1
show_att $i  
refmacro 0


