#!/bin/sh
#
# drft06rr_wallpaper - makes a background for the web page
#
# This script takes a chunk of bathymetry, mirror images it to
# get a point-symmetric data set suitable for wallpaper.
#
# Paul Wessel, 19-NOV-2001

if [ -f drft06rr/drft06rr.wallpaper.gif ] && [ $# -eq 0 ]; then
	echo "drft06rr_wallpaper: wallpaper already exist. Use -f to force recreation"
	exit
fi

# First pull out a small grid
grdcut -R-79.06/-79.003/-18.54/-18.50 gridding/grids/drft06rr.boxA.mb+ss.0.001.grd -Gul.grd -f0x,1y
# Then simplify the region so we may flip sign on x/or y:
grdedit ul.grd -R-57/0/0/40
# Make the three other quadrants:
grd2xyz ul.grd | awk '{print -$1, $2, $3}' | xyz2grd -R0/57/0/40 -I1 -Gur.grd
grd2xyz ul.grd | awk '{print -$1, -$2, $3}' | xyz2grd -R0/57/-40/0 -I1 -Glr.grd
grd2xyz ul.grd | awk '{print $1, -$2, $3}' | xyz2grd -R-57/0/-40/0 -I1 -Gll.grd
# Paste together in to steps to get the final grid
grdpaste ul.grd ur.grd -Gtop.grd
grdpaste ll.grd lr.grd -Gbottom.grd
grdpaste bottom.grd top.grd -Gt.grd
grdcontour t.grd -JX6 -A100 -C25 -Nm -Z-1 -G10 -S16 -P -X0 -Y0 -Wa0.75p/180 -Wc0.25p/180 | sed -e 's/S 0 A/S 0.706 A/g' > drft06rr.wallpaper.ps
rm -f ul.grd ur.grd ll.grd lr.grd t.grd bottom.grd top.grd
convert -density 72x72 -crop 0x0 drft06rr.wallpaper.ps drft06rr.wallpaper.gif
mv -f drft06rr.wallpaper.gif drft06rr
xv drft06rr/drft06rr.wallpaper.gif &
rm -f drft06rr.wallpaper.ps