up [pdf]
from rsf.proj import *
from rsf.gallery import french

french.get_refl('refl')

Flow('dipx','refl','smooth rect1=5 | deriv scale=y')
Flow('dipy','refl','transp | smooth rect1=5 | deriv scale=y | transp')

Result('refl',
       '''
       unif3 v00=1,2 n1=401 d1=10.265 |
       byte allpos=y bias=1 |
       grey3 color=j title="French model" label1=Depth unit1=m
       frame1=175 frame2=60 frame3=80 flat=n 
       ''')

# 3-D shot gather

Flow('shot3','refl dipx dipy',
     '''
     kirmod3 nt=601 dt=0.010265 vel=2000
     dipx=${SOURCES[1]} dipy=${SOURCES[2]}
     h0x=-6159 dhx=102.65 nhx=121
     h0y=-6159 dhy=102.65 nhy=121
     nsx=1 s0x=4 dsx=51.325 verb=n
     nsy=1 s0y=4 dsy=51.325 freq=5 
     ''')

Result('shot3',
       '''
       byte gainpanel=all |
       grey3 title="3-D shot" label1=Time unit1=s
       frame1=300 frame2=61 frame3=61 flat=n
       ''')

# Zero-offset

french.get_zodata('zo3')

Result('zo3',
       '''
       byte gainpanel=all |
       grey3 title="Zero Offset" 
       frame1=250 frame2=81 frame3=81 flat=n
       screenratio=1 point1=0.65 point2=0.65
       ''')

End()

sfdd
sftransp
sfscale
sfremap1
sfsmooth
sfderiv
sfunif3
sfbyte
sfgrey3
sfkirmod3
sfwindow
sfput
sfadd

data/french/french.asc