mirror of
https://github.com/HongjianFang/DSurfTomo.git
synced 2025-05-06 15:11:13 +08:00
49 lines
2.0 KiB
Plaintext
49 lines
2.0 KiB
Plaintext
|
#!/bin/csh
|
||
|
|
|
||
|
|
#-----------------------------------------------------------
|
||
|
|
# 2015-06-08 Hongjian Fang
|
||
|
|
# how to run:
|
||
|
|
# ./plotslice.gmt ModelFile depth1 depth2 depth3 depth4, e.g.
|
||
|
|
# csh plotslice.gmt SurfTomo.in.tvMeasure.dat 0.2 0.4 0.8 1.4
|
||
|
|
#-----------------------------------------------------------
|
||
|
|
|
||
|
|
gmtset ANOT_FONT_SIZE 6
|
||
|
|
gmtset LABEL_FONT_SIZE 6
|
||
|
|
gmtset FRAME_WIDTH=0.1c
|
||
|
|
gmtset LABEL_OFFSET=0.1c
|
||
|
|
gmtset LABEL_FONT_SIZE=5p
|
||
|
|
gmtset TICK_LENGTH=0.1c
|
||
|
|
gmtset TICK_PEN=0.3p
|
||
|
|
set inp3D = $1
|
||
|
|
set ps = horizVsnew.ps
|
||
|
|
set J = -JM2i #size for plot
|
||
|
|
set cpt = slice.cpt
|
||
|
|
|
||
|
|
# start
|
||
|
|
makecpt -Cseis -T0.6/1.5/0.1 > $cpt #velocity boundary
|
||
|
|
set RMAP = `minmax -C $inp3D | awk '{print "-R"$1"/"$2"/"$3"/"$4}'`
|
||
|
|
psbasemap $RMAP $J -Ba0.1f0.05WseN -P -K -Y5i >$ps
|
||
|
|
awk '{if($3==depth1) print $1,$2,$4}' depth1=$2 $inp3D|xyz2grd -R -I0.017/0.015 -Gtmp.grd
|
||
|
|
grdimage tmp.grd $J $RMAP -BSenW -E100 -C$cpt -O -K >> $ps
|
||
|
|
rm -rf tmp.grd
|
||
|
|
psscale -Cslice.cpt -Ba0.1f0.05:'S velocity (km/s)': -D1.0i/-0.15i/3.00/0.2h -O -K -P >> $ps
|
||
|
|
|
||
|
|
makecpt -Cseis -T0.8/1.8/0.1 > $cpt #velocity boundary
|
||
|
|
psbasemap $RMAP $J -Ba0.1f0.05NwsE -P -K -O -X2.3i >>$ps
|
||
|
|
awk '{if($3==depth2) print $1,$2,$4}' depth2=$3 $inp3D|xyz2grd -R -I0.017/0.015 -Gtmp.grd
|
||
|
|
grdimage tmp.grd $J $RMAP -BSenW -E100 -C$cpt -O -K >> $ps
|
||
|
|
psscale -Cslice.cpt -Ba0.2f0.1:'S velocity (km/s)': -D1.0i/-0.15i/3.00/0.2h -O -K -P >> $ps
|
||
|
|
|
||
|
|
makecpt -Cseis -T1.1/2.0/0.1 > $cpt #velocity boundary
|
||
|
|
psbasemap $RMAP $J -Ba0.1f0.05WneS -P -K -O -Y-2.7i -X-2.3i >>$ps
|
||
|
|
awk '{if($3==depth2) print $1,$2,$4}' depth2=$4 $inp3D|xyz2grd -R -I0.017/0.015 -Gtmp.grd
|
||
|
|
grdimage tmp.grd $J $RMAP -BSenW -E100 -C$cpt -O -K >> $ps
|
||
|
|
psscale -Cslice.cpt -Ba0.2f0.1:'S velocity (km/s)': -D1.0i/-0.25i/3.00/0.2h -O -K -P >> $ps
|
||
|
|
|
||
|
|
makecpt -Cseis -T1.3/2.4/0.1 > $cpt #velocity boundary
|
||
|
|
psbasemap $RMAP $J -Ba0.1f0.05SwnE -P -K -O -X2.3i >>$ps
|
||
|
|
awk '{if($3==depth2) print $1,$2,$4}' depth2=$5 $inp3D|xyz2grd -R -I0.017/0.015 -Gtmp.grd
|
||
|
|
grdimage tmp.grd $J $RMAP -BSenW -E100 -C$cpt -O -K >> $ps
|
||
|
|
psscale -Cslice.cpt -Ba0.2f0.1:'S velocity (km/s)': -D1.0i/-0.25i/3.00/0.2h -O -P >> $ps
|
||
|
|
|