rm sunfil.ras 
sioseis << eof
procs diskin weight agc plot end
diskin
   fno 9001 lno 9001
   ipath day203-1413zRen.segy end
!   fno 9301 lno 9301
!   ipath day203-1440zRen.segy end
   fno 9601 lno 9601
   ipath day203-1505zRen.segy end
end
weight
   fno 1 lno 999999
!   gmk weights
! twp 19 0 20 0 24 0 31 0 32 0 33 0 34 0 48 0 end
!   pch weights
  twp 19 0 20 0 29 0 31 0 32 0 33 0 34 0 end
end
agc
    winlen 1 end
end
plot
   ann2 GMT ann sh&tr
   trpin 20 nspace 2 fspace 48 spacei 48
   nibs 2858 srpath sunfil.ras taginc 2
! change def from .02 to .01
   def .01 clip .1  nsecs 2.5 vscale 1.25
   end
end
end
eof
convert -rotate 90 sunfil.ras pch_weighted.png
display pch_weighted.png &