SPARC printer

[Wang Song]

	Sorry to waste the bandwidth because an unreachable
individual E-Mail address.

> Song
> 
> I would appreciate that driver you mentioned because we've
> had trouble with the MAPGEN ps driver.  I would also like 
> to benefit from the options you have added in your driver.
> 
> Thanks for the help,
> 
> Jim
> jim at sar_ws.fb4.noaa.gov

	This is a C-shell script, you may need to modify on your site.

	If you have questions about it, please let me know.

Cut following section out and save it with a file name post.sh.
Change permission to executable, then should be able to run it.

Song Wang
CAST/NCRI
University of Arkansas

============================================================================

#                 ***********
#                 * post.sh *
#                 ***********
#      This script is used to plot MAPGEN
#      maps from a PostScript printer
#
#      Command format ---
#         post.sh   
#
#      Note: To run this program, you have to be in the
#            directory: GRASS_data_dir/LOCATION/MAPSET/mapgen/mapname;
#
#            postfile is a new file name defined by
#            the user to save PostScript file used to
#            draw MAPGEN maps;
#            scale_parameter is a real number by which 
#            the map coordinates are multiplied. It is 
#            the mechanism used to rescale map prints.
#
clear
echo "     "
echo "     "
echo "     "
echo "     "
echo "                   Warning      "
echo "     "
echo "  This program is used to create a PostScript file"
echo "  for MAPGEN maps and plot the map on a PostScript"
echo "  printer across the network. Before you go any   "     
echo "  further, please make sure that GRASS-MAPGEN shell"
echo "  has been properly started and you are in the    "
echo "  correct MAPGEN directory !                      "
echo "  (GRASS_data_dir/LOCATION/MAPSET/mapgen/mapname) "
echo "     "
echo -n "  Hit [return] to continue --> "
set oktogo = $<
clear

echo "     "
echo "     "
echo "     "
echo "Do you want to save the PostScript file for"
echo "the MAPGEN plot ?"
echo "     "
echo -n "Answer (y or n) --> "
set savefile = $<

if ($savefile =~ y*) then
 
    echo "     "
    echo "     "
    echo "Enter a new file name to save the PostScripts"
    echo "file for the MAPGEN plot."
    echo "     "
    echo -n "--> "
    set postfile = $<

else       # Creat PostScript program as a temporary file

    set postfile = "temp"

endif

echo "     "
echo "     "
echo "Enter a scale parameter to resize the map"
echo "prints. This parameter must be a real number"
echo "by which the original map size is multiplied."
echo "(Default value is one that will print the map"
echo "in same size as the original)."
echo "      "
echo -n "--> "
set map_scale = $<

if ($map_scale == "") then 

    set map_scale = "1"

endif    

echo "      "
echo "      "
echo "Do you want to define a new origin for"
echo "your map plot ?"
echo "      "
echo -n "Answer (y or n) --> "
set set_origin = $<

if ($set_origin =~ y*) then

    echo "      "
    echo "      "
    echo "Enter a number for X coordinate of the origin."
    echo "This number ranges from 0 to 4318. "
    echo "       "
    echo -n "--> "
    set Xorigin = $<
    echo "      "
    echo "      "
    echo "Enter a number for Y coordinate of the origin."
    echo "This number ranges from 0 to 5588."
    echo "       "
    echo -n "--> "
    set R_Yorigin = $<

else

    set Xorigin = 200         # default value
    set R_Yorigin = 200       # default value

endif     # Define a new origin for the map plot

echo "     "
echo "     "
echo "Do you want to rotate 90 degree for the map plot ?"
echo "     "
echo -n "Answer (y or n) --> "
set map_rotate = $<

# Create PostScript file for MAPGEN plots

# Create PostScript header

if (-e tmp.ps) then
   
   rm tmp.ps

endif

cat /usr2/grass4/sun4/mapgen/interface/postStart > tmp.ps

# Create a primary PostScript file for a MAPGEN plot

if ($map_rotate =~ y*) then

    /usr2/grass4/sun4/mapgen/bin/plotter -dr ps -s $map_scale ovm/* >> tmp.ps

else          # Do not rotate the map plot

    /usr2/grass4/sun4/mapgen/bin/plotter -d ps -s $map_scale ovm/* >> tmp.ps

endif

# Reset origin for the MAPGEN map plot

@ Yorigin = 5588 - $R_Yorigin 

if ($map_rotate =~ n*) then

    cat tmp.ps | awk '{if ($3 == "translate") {$1=i; $2=l; print} else print}' i=$Xorigin l=$Yorigin > $postfile.ps

else
   
    cat tmp.ps | awk '{if (NR == 11) {print i, l, "translate"} else  print}' i=$Xorigin l=$R_Yorigin > $postfile.ps

endif

# Print the MAPGEN PostScript plot

clear
echo "    "
echo "    "
echo "Your MAPGEN map is plotting off the PostScript printer \!"
rsh spock lp <$postfile.ps

if ($savefile =~ y*) then

   mv $postfile.ps ~/.

else

   rm temp.ps

endif

# End of the program