#! /bin/csh -f
#
# Shellscript to create Postscript plot of data in grd file
# Created by macro mbm_grdplot
#
# This shellscript created by following command line:
# mbm_grdplot -IUppermostCanyonTopoMB.grd -R-121:52.5/-121:49/36:46/36:50 -G5 -D0/1 -LMapping AUV Survey 3 June 2004:Topography (m): -MXW1p -MXIMAUVnav20040603_m12.xy -OFigLocation -V -PC
#
# Define shell variables used in this script:
set PS_FILE         = FigLocation.ps
set CPT_FILE        = FigLocation.cpt
set MAP_PROJECTION  = m
set MAP_SCALE       = 180.94
set MAP_REGION      = -121:52.5/-121:49/36:46/36:50
set X_OFFSET        = 3.2225
set Y_OFFSET        = 4
#
# Save existing GMT defaults
echo Saving GMT defaults...
gmtdefaults -L > gmtdefaults$$
#
# Set new GMT defaults
echo Setting new GMT defaults...
gmtset MEASURE_UNIT inch
gmtset PAPER_MEDIA archC+
gmtset ANOT_FONT Helvetica
gmtset LABEL_FONT Helvetica
gmtset HEADER_FONT Helvetica
gmtset ANOT_FONT_SIZE 16
gmtset LABEL_FONT_SIZE 16
gmtset HEADER_FONT_SIZE 20
gmtset FRAME_WIDTH 0.075
gmtset TICK_LENGTH 0.075
gmtset PAGE_ORIENTATION LANDSCAPE
gmtset COLOR_BACKGROUND 0/0/0
gmtset COLOR_FOREGROUND 255/255/255
gmtset COLOR_NAN 255/255/255
gmtset DEGREE_FORMAT 3
#
# Make color pallette table file
echo Making color pallette table file...
echo   -450  37  57 175   -400  40 127 251 > $CPT_FILE
echo   -400  40 127 251   -350  50 190 255 >> $CPT_FILE
echo   -350  50 190 255   -300 106 235 255 >> $CPT_FILE
echo   -300 106 235 255   -250 138 236 174 >> $CPT_FILE
echo   -250 138 236 174   -200 205 255 162 >> $CPT_FILE
echo   -200 205 255 162   -150 240 236 121 >> $CPT_FILE
echo   -150 240 236 121   -100 255 189  87 >> $CPT_FILE
echo   -100 255 189  87    -50 255 161  68 >> $CPT_FILE
echo    -50 255 161  68      0 255 186 133 >> $CPT_FILE
echo      0 255 186 133     50 255 255 255 >> $CPT_FILE
#
# Define data files to be plotted:
set DATA_FILE        = UppermostCanyonTopoMB.grd
set INTENSITY_FILE   = 
#
# Get slope array
echo Getting slope array...
echo Running grdgradient to get x component of the gradient...
grdgradient $DATA_FILE -A90 -G$DATA_FILE.drvx -M
echo Running grdgradient to get y component of the gradient...
grdgradient $DATA_FILE -A0 -G$DATA_FILE.drvy -M
echo Running grdmath to get slope magnitude...
grdmath $DATA_FILE.drvx 2.0 POW \
	$DATA_FILE.drvy 2.0 POW ADD SQRT \
	-1 MUL \
	= $DATA_FILE.slope
/bin/rm -f $DATA_FILE.drvx $DATA_FILE.drvy 
#
# Make color image
echo Running grdimage...
grdimage $DATA_FILE -J$MAP_PROJECTION$MAP_SCALE \
	-R$MAP_REGION -C$CPT_FILE \
	-I$DATA_FILE.slope \
	-P -X$X_OFFSET -Y$Y_OFFSET -K -V >! $PS_FILE
#
# Make xy data plot
echo Running psxy...
psxy MAUVnav20040603_m12.xy \
	-J$MAP_PROJECTION$MAP_SCALE \
	-R$MAP_REGION \
	-W1p \
	-P -K -O -V >> $PS_FILE
#
# Make color scale
echo Running psscale...
psscale -C$CPT_FILE \
	-D5.2775/-1.0000/10.5550/0.3000h \
	-B":Topography (m):" \
	-P -K -O -V >> $PS_FILE
#
# Make basemap
echo Running psbasemap...
psbasemap -J$MAP_PROJECTION$MAP_SCALE \
	-R$MAP_REGION \
	-B1m/1m:."Mapping AUV Survey 3 June 2004": \
	-P -O -V >> $PS_FILE
#
# Delete surplus files
echo Deleting surplus files...
/bin/rm -f $CPT_FILE
#
# Reset GMT default fonts
echo Resetting GMT fonts...
/bin/mv gmtdefaults$$ .gmtdefaults
#
# Run gv
echo Running gv in background...
gv -portrait -media BBox FigLocation.ps &
#
# All done!
echo All done!