sioseis << eof
procs diskin filter plot end
diskin
   set 5 9 ftr 1 ltr 1 ipath rps.line.1 end
end
filter
   ftype 0 dbdrop 48 pass 10 80 end
end
plot
   wiggle 0
   srpath sunfil nsecs 4  ann gmtint anninc 5
   nibs 75 trpin 40 vscale 3.333 def .04 clip .04 end
end
end
eof
xloadimage -r 90 sunfil &