#! /bin/csh
if( $#argv < 1 ) then
    echo "Usage: plt seisnet_directory_name"
    echo "e.g., plt line4b"
    exit 1
endif

set PATH = /export/home3/seisnet/0210/data/$1
ls -t1 $PATH | head -2 | tail -1 > tmp
sed '1,2 s^FFID^seisnet_data/FFID^' tmp > list
rm seisnet_data
ln -s $PATH seisnet_data

sioseis << eof
procs segddin filter plot prout end
segddin
   format seisnet
    listpath list end
end
prout
    fno 0 lno 999999 ftr 1 ltr 1 end
end
agc
   winlen .5 end
end
filter
   ftype 0 dbdrop 48 pass 10 200  end
end
plot
   scalar .02
   nibs 7224 vscale 1.25 nsecs 6 stime 0
   def .08 trpin 30 clip .03
   ann sh&tr taginc 5
   srpath sunfil end
end
end
eof
xloadimage -r 90 sunfil &