[cig-commits] [commit] master: improve color scale on grdmap.sh (e2a061a)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Wed Jun 4 20:03:55 PDT 2014
Repository : https://github.com/geodynamics/relax
On branch : master
Link : https://github.com/geodynamics/relax/compare/f824f9365a21ba8760de2e40f714706247f2a84e...5dc0660d5364cadb5bdb50a243c0bbbcfedad4e9
>---------------------------------------------------------------
commit e2a061aeb6cff6e7dbdb55ac3472a0a6723633b4
Author: Sylvain Barbot <sbarbot at ntu.edu.sg>
Date: Sun May 11 23:07:55 2014 +0800
improve color scale on grdmap.sh
>---------------------------------------------------------------
e2a061aeb6cff6e7dbdb55ac3472a0a6723633b4
util/grdmap.sh | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/util/grdmap.sh b/util/grdmap.sh
index 4ecb036..95a3d68 100755
--- a/util/grdmap.sh
+++ b/util/grdmap.sh
@@ -91,9 +91,10 @@ my_gmt(){
# arrowwidth/headlength/headwidth
# grdvector crashes with wrong sampling
# -Q0.51c/0.8c/0.7cn1.0c \
+ # -Q0.3c/0.5c/0.4cn1.0c \
grdvector $U1 $U2 -K -J${PROJ} -O -R$bds -I$ADX/$ADX \
- -Q0.3c/0.5c/0.4cn1.0c \
- -S$VECTOR -W0.1p/0/0/0 \
+ -Q0.05/0.2/0.08n0.3c \
+ -S$VECTOR -W0.5p/0/0/0 \
-G255/255/255 \
>> $PSFILE
fi
@@ -108,7 +109,7 @@ $UL 14 0 4 LM $SIZE $unit
EOF
psxy -O -K -J${PROJ} -R$bds -N \
-W0.5p/0/0/0 -Xr0.9i \
- -Sv0.2c/1.0c/0.4cn1.0c \
+ -Sv0.05/0.2/0.08n0.3c \
<<EOF >> $PSFILE
$UL 0 1
EOF
@@ -118,7 +119,7 @@ EOF
if [ -e "$colors" ]; then
#-Q0.20c/1.0c/0.4cn1.0c \
psscale -O -K -B$PSSCALE/:$unit: -D3.5i/-0.8i/7.1i/0.2ih \
- -C$colors $REVERT \
+ $TRIANGLES -C$colors $REVERT \
>> $PSFILE
rm -f $colors
@@ -345,6 +346,8 @@ while [ "$#" != "0" -o "$Eset" == "1" ];do
# color bounds
if [ "$pset" == "1" ]; then
makecpt -C$cptfile -T$P -D > $colors;
+ m=`echo $P | awk -F"/" 'function max(x,y){return (x>y)?x:y};function abs(x){return (0<x)?x:-x}{print max(abs($1),$2)}'`
+ TRIANGLES=`grdinfo -C $U3 | awk -v m=$m 'function max(x,y){return (x>y)?x:y};function abs(x){return (0<x)?x:-x}{if (m<max(abs($6),abs($7))){print "-E"}}'`
fi
my_gmt $INDEX
More information about the CIG-COMMITS
mailing list