up [pdf]
from rsf.proj import *

for case in ('reftran','refvert'):
    Fetch(case+'.HH','ida')
    Flow(case,case+'.HH','dd form=native')
    Plot(case,
         '''
         grey pclip=90 title="%s stack by Peter Shearer"
         ''' % (dict(reftran='Transverse',refvert='Vertical')[case]))

Result('reftran','reftran tran.text','Annotate')
Result('refvert','Overlay')

Fetch('anis.AA','ida')

Plot('left','anis.AA','window n3=1 | grey title=transverse')
Plot('rite','anis.AA','window f3=1 | grey title=vertical')

Result('anis','left rite','SideBySideAniso')

End()

sfdd
sfgrey
sfwindow

data/ida/reftran.HH
data/ida/refvert.HH
data/ida/anis.AA