Go to the list of seismic processes.          Go to SIOSEIS introduction.           Go to SIOSEIS examples.
sioseis << eof
procs diskin header shift t2d plot end
diskin
    secs 1
!    ipath E1002_13.SEG end
    ipath paul.segy end
end
header
 #  l13 uses SEGY scale factor (-100 means divide by 100.) 
 #  scale factor should have been -10000
   r58 = l13 / 10000.   ! depth of source in meters
   r59 = r58 / 1520. ! time from source to surface
 #  the receiver depth was not set - it's the same as the source
   r60 = r59 * 2.  ! source and receiver
   end
end
shift
   indices r60 end
end
t2d
  osi .5 vtp 1520 0 end
end
plot
   vscale 10 secs .2  tlines .05 .1
    dptr 1 trpin 300 colors gray opath siofil
    end
end
end
eof
sio2sun siofil sunfil.ras
display -rotate 90 sunfil.ras &