sioseis << eof
procs diskin prout filter agc plot end
diskin
    fday 274 fgmt 0800 lgmt 1000 ftr 1 ltr 1 set 4 9  ! 5 seconds only
    ipath /orizaba1/mcs.dir/stacked/stack.line4 end
end
prout
     fno 0 lno 999999 noinc 20 ftr 0 ltr 9999 end
end
agc
    winlen .5 end
end
filter
      pass 5 40 ftype 0 dbdrop 24 end
end
plot
  dir ltr
    scalar 5.e-07
      srpath sunfil wiggle 0
     nibs 75 trpin 75 def .04 clip .02 nsecs 5 ann gmtint anninc
 5 vscale 3.3333 end
end
end
eof
suntops -w 8.0 -h 11 < sunfil > psfil
xloadimage -r 270 sunfil &




#      relative amplitude here
sioseis << eof
procs diskin prout filter gains plot end
diskin
    fday 274 fgmt 0800 lgmt 1000 ftr 1 ltr 1 set 3 8  ! 5 seconds only
    ipath /orizaba1/mcs.dir/stacked/stack.line4 end
end
prout
     fno 0 lno 9999999  noinc 20 ftr 0 ltr 9999 end
end
gains
      type 5 alpha 2.5 rscale 1 end
end
filter
      pass 5 40 ftype 0 dbdrop 24 end
end
plot
   dir ltr
   scalar 7.e-07
      srpath sunfil wiggle 0
     nibs 75 trpin 75 def .04 clip .02 nsecs 4 ann gmtint anninc
 5 vscale 3.3333 end
end
end
eof
suntops -w 8.0 -h 11 < sunfil > psfil
xloadimage -r 270 sunfil &