John,
This is a handy script. If you package it up with a little description file, I can post it on the script exchange if you'd like.
Michael
____________________
C. Michael Barton, Professor
School of Human Origins, Cultures, & Societies
PO Box 872402
Arizona State University
Tempe, AZ 85287-2402
USA
Phone: 480-965-6262
Fax: 480-965-7671
www: <www.public.asu.edu/~cmbarton>
On Jun 7, 2004, at 10:01 PM, Multiple recipients of list wrote:
From: "John Gillette" <JGillette@rfmd.com>
To: "Daniel Victoria" <daniel_victoria@yahoo.com>,
"Sandro Klippel" <sandro.klippel@talha-mar.com.br>,
"GRASSLIST" <grasslist@baylor.edu>
try this:Select and then Erase x1 and then display what ever
you want there.
Select x0 and erase and display other info there.Run this script to either pan or zoom in x0. After
finishing
the pan or zoom x1 will redraw it's contents at the
same region
thereby "following" what ever is done in x0.The disadvantage is that you can only do 1 pan or zoom
at a time,
i.e. not interactively.usage:
script_name z <- does zoom instead of pan
script_namezooming and panning in x0. x0 is selected at exit.
Does this help?
John
------------------
#!/bin/shd.mon select=x1
monitor1=`d.save -o`d.mon select=x0
if [ "$1" = "z" ]
then
d.zoom
else
d.pan
fi
region=`g.region -g`d.mon select=x1
d.erase
g.region $region
eval "$monitor1"d.mon select=x0
exit 0