Return to SIOSEIS examples.          Return to Revelle HiRes example.

SIOSEIS script gray scale plot.

sioseis << eof
procs diskin filter wbt mute plot end
diskin
   fno 55 lno 2000 allno no
   ipath 5a.stk end
end
mute
   ttp 1 -.025 addwb yes end
end
wbt
   peak neg sepp 1 3 track .05 end
end
prout
   fno 0 lno 99999 ftr 1 ltr 1 end
end
filter
   pass 40 400 dbdrop 48 ftype 0 end
end
 plot
   colors .001 gray0 .01 gray1 .02 gray2 .04 gray3 .06 gray4
          .08 gray5 .9 gray6 .1 gray7
   dptr 1 opath siofil
  stime 1
    nibs 2858 srpath sunfil.ras wiggle 0
    ann fanno ftag 161 taginc 160 fanno 1 anninc 1
    trpin 300 def .1  clip 1 nsecs 3 vscale 2.5
    end
 end
end
eof
sio2sun siofil sunfil.ras