; show_att $i
;
; display on screen a peak.
;
set mm = 1
set i = $_
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))

set t = (tail(tail(tail($l))))
if (head($t) s! "unk") then
   showline ($f2i-$mm) ($f1i-$mm) ($f2i+$mm) ($f1i-$mm)
   showline ($f2i+$mm) ($f1i-$mm) ($f2i+$mm) ($f1i+$mm)
   showline ($f2i+$mm) ($f1i+$mm) ($f2i-$mm) ($f1i+$mm)
   showline ($f2i-$mm) ($f1i+$mm) ($f2i-$mm) ($f1i-$mm)

   set s1 = ($spin[(head($t))])
   set s2 = ($spin[(head(tail($t)))])
   set t = (head(tail($s1)))
   set sys = (head(tail(tail($s1))))
   if ($sys s! "unk") then 
      set t = ($t // head($sys[$sys]))
   else
      set t = ($t // "?")
   endif
   set t = ($t; "-"; head(tail($s2)))

   set sys = (head(tail(tail($s2))))
   if ($sys s! "unk") then 
      set t = ($t // head($sys[$sys]))
   else
      set t = ($t // "?")
   endif

   showtext $t ($f2i+$mm) ($f1i+$mm)
else
   showline ($f2i-$mm) $f1i ($f2i+$mm) $f1i
   showline $f2i ($f1i-$mm) $f2i ($f1i+$mm)

endif


