sioseis << eof
procs diskin wbt filter wbt2 swell gains plot end
diskin
   ipath env-0012_2011_155_1053_100212_CHP4.0_RAW_021.sgy end
end
gains
    subwb yes type 5 alpha 8 end
end
wbt
   vel 1500 end
end
wbt2
!   lprint 2
   index 60 peak pos track .005 end
end
swell
!    lprint 2
    n 20 hdr 60 end
end
filter
    ftype 0 pass 5 600 dbdrop 48 end
end
plot
  stime 3.4 secs .1
   dir ltr dptr 1 tlines .05 .1
    colors gray opath siofil wiggle 0  ann gmtint anninc 5
    trpin 300 def .01 vscale 20 end
end
end
eof
sio2sun siofil sunfil.ras
display -rotate 270 sunfil.ras &