#
sioseis << eof
procs diskin prout filter agc plot end
diskin
   ftr 1 ltr 160 set 4 9
  ipath shot.file  end
end
filter
   pass 5 50 ftype 0 dbdrop 24 end
   end
prout
   fno 0 lno 99999 ftr 1 ltr 1 end
   end
gains
   type 5 alpha .8 rscale 1 end
   end
agc
   winlen .5 end
   end
plot
!  scalar 3.e-05
   srpath sunfil nsecs 5
   nibs 75 trpin 10 taginc 20 ann gmt vscale 3.33333 def .05 ! clip .1
   end
end
end
eof
suntops -w 8.0 -h 11 < sunfil > psfil
xloadimage -rotate 90 sunfil &

large plot
small plot