WS15

marchenko/demo/invisible/eps.scr

+suwind key=offset min=0 max=0 < shotsdx4_rp.su > zo.su
+makewave fp=30 dt=0.004 file_out=wave4.su nt=1024 t0=0.0 scale=1
+fconv file_in1=zo.su file_in2=wave4.su file_out=zow.su
+
+file=zow.su
+file_base=${file%.su}
+sumax < $file mode=abs outpar=nep
+clipref=`cat nep | awk '{print $1/4}'`
+
+supsimage hbox=6 wbox=4 labelsize=10 linewidth=0.0 < $file \
+    label1="time (s)" label2="lateral distance (m)" \
+    n1tic=2 x1beg=0 x1end=2.0 d1num=0.4 title="${file_base}" \
+    f2=-3000 f2num=-3000 d2num=1000 clip=$clipref > ${file_base}.eps
+
+file_base=shot
+for fldr in 1 375 751
+do
+suwind key=fldr min=$fldr max=$fldr < shotsdx4_rp.su | \
+	supsimage hbox=6 wbox=4 labelsize=10 linewidth=0.0 \
+    label1="time (s)" label2="lateral distance (m)" \
+    n1tic=2 x1beg=0 x1end=2.0 d1num=0.4 title="shot $fldr" \
+    f2=-3000 f2num=-3000 d2num=1000 clip=$clipref > ${file_base}_${fldr}.eps
+done