/* drawsr.aml
/*    macro to draw a simple shaded-relief image  
/*    Ralph Haugerud, U.S. Geological Survey
/*    April 1998
/*        rhaugerud@usgs.gov
/* to be run from ARCPLOT
/*
&args DEM

/* MAPSCALE MAY NEED TO BE CHANGED!
&s mapscale = 24000

  
&describe %DEM%
mapunits %PRJ$UNITS%
mapextent %DEM%
mapscale %mapscale%
/* one could also use ArcPlot commands
/*   mapposition
/*   pagesize

clear
gridnodatasymbol white
gridpaint %DEM%shd # linear # gray
/* change LINEAR in the line above to # for a less contrasty image 
/*  (in most cases)
mapinfo
quit

&return