In case script attachment I just mention got scrubbed for
some reason (like you read the digest version of this list)
here is the script in e-mail formatted text:
==========================Cut Here=============================
#!/bin/sh
usage () {
/bin/echo "Usage: vikingtfw geotif_file"
exit
}
case $1 in
-*)
usage
;;
esac
if [ ! -z "$1" ] ; then
INFILE="$1"
if [ ! -r $1 ] ; then
/bin/echo "$1: not found"
exit
fi
OUTFILE=`/bin/echo "${INFILE}" | /bin/sed 's/\.tif$//'`_WGS84.tfw
else
usage
fi
EASTING=`/usr/bin/gdalinfo "${INFILE}" | /bin/grep Origin | /bin/sed
's/^.*(//' | \
/bin/sed 's/).*//' | /usr/bin/gawk -F, ' { print $1 } '`
NORTHING=`/usr/bin/gdalinfo "${INFILE}" | /bin/grep Origin | /bin/sed
's/^.*(//' | \
/bin/sed 's/).*//' | /usr/bin/gawk -F, ' { print $2 } '`
XPIXELSIZE=`/usr/bin/gdalinfo "${INFILE}" | /bin/grep "Pixel Size" | /bin/sed
's/^.*(//' | \
/bin/sed 's/).*//' | /usr/bin/gawk -F, ' { print $1 } '`
YPIXELSIZE=`/usr/bin/gdalinfo "${INFILE}" | /bin/grep "Pixel Size" | /bin/sed
's/^.*(//' | \
/bin/sed 's/).*//' | /usr/bin/gawk -F, ' { print $2 } '`
EASTING2=`/bin/echo ${EASTING} ${NORTHING} 0 | \
/usr/bin/gdaltransform \
-s_srs "+proj=utm +zone=13 +ellps=clrk66 +datum=NAD27 +units=m
+no_defs" \
-t_srs "+proj=utm +zone=13 +ellps=WGS84 +datum=WGS84 +units=m
+no_defs" | \
/usr/bin/gawk ' { print $1 } '`
NORTHING2=`/bin/echo ${EASTING} ${NORTHING} 0 | \
/usr/bin/gdaltransform \
-s_srs "+proj=utm +zone=13 +ellps=clrk66 +datum=NAD27 +units=m
+no_defs" \
-t_srs "+proj=utm +zone=13 +ellps=WGS84 +datum=WGS84 +units=m
+no_defs" | \
/usr/bin/gawk ' { print $2 } '`
/bin/echo ${XPIXELSIZE} ${YPIXELSIZE} ${EASTING2} ${NORTHING2} |
/usr/bin/gawk ' { printf "%24.10f\n%24.10f\n%24.10f\n%24.10f\n%24.10f\n%24.
10f\n", \
$1, 0, 0, $2, $3, $4 } ' > "${OUTFILE}"
=========================Cut Here=============================
Harry McGavran
--
Harry G. McGavran, Jr.
E-mail: w5...@w5pny.com
--
Harry G. McGavran, Jr.
E-mail: w5...@w5pny.com
------------------------------------------------------------------------------
Achieve unprecedented app performance and reliability
What every C/C++ and Fortran developer should know.
Learn how Intel has extended the reach of its next-generation tools
to help boost performance applications - inlcuding clusters.
http://p.sf.net/sfu/intel-dev2devmay
_______________________________________________
Viking-devel mailing list
Viking-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/viking-devel
Viking home page: http://viking.sf.net/
