SIOSEIS script to PLOT the instantaneous amplitude traces with AGC.

sioseis << eof
procs diskin agc plot end
diskin
   fno 469 lno 1475 allno no set .190 .240
    ipath L001_001.anal end
end
agc
   winlen .005 end
end
filter
   fno 1 lno 99999 pass 1000 7000 ftype 0 end
end
prout
   fno 1 lno 99999 ftr 1 ltr 99999 end
end
plot
   wiggle 0  ann gmtint anninc 1
   trpin 150 clip .005 def .002 tlines .001
   srpath sunfil
  nibs 2859 nsecs .04 vscale 75.75758
   end
end
end
eof
xloadimage -r 90 sunfil &