#!/bin/csh
#		GMT EXAMPLE 09
#
#		$Id: job09.csh,v 1.8 2006/10/22 14:26:49 remko Exp $
#
# Purpose:	Make wiggle plot along track from geoid deflections
# GMT progs:	pswiggle, pstext, psxy
# Unix progs:	$AWK, ls, paste, tail, rm
#
pswiggle track_*.xys -R185/250/-68/-42 -U"Example 9 in Cookbook" -K -Jm0.13i -Ba10f5 -Gblack -Z2000 \
   -Wthinnest -S240/-67/500/@~m@~rad >! example_09.ps
psxy -R -J -O -K ridge.xy -Wthicker >> example_09.ps
psxy -R -J -O -K -M fz.xy -Wthinner,- >> example_09.ps
if (-e tmp) then
	\rm -f tmp
endif
foreach file (track_*.xys)	# Make label file
	tail -1 $file >> tmp
end
ls -1 track_*.xys | $AWK -F. '{print $2}' >! tracks.lis
paste tmp tracks.lis | $AWK '{print $1, $2, 10, 50, 1, "RM", $4}' | pstext -R -J -D-0.05i/-0.05i -O \
   >> example_09.ps
\rm -f tmp tracks.lis .gmt*
