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 &