Remove scripts which depend upon monitors

git-svn-id: https://svn.osgeo.org/grass/grass/trunk@32733 15284696-431f-4ddb-bdfa-cd5b030d7da7

scripts/Makefile

@@ -2,17 +2,10 @@ MODULE_TOPDIR = ..
 
 SUBDIRS = \
 	d.correlate \
-	d.monsize \
-	d.mvmon \
-	d.out.gpsdrive \
 	d.polar \
 	d.rast.edit \
 	d.rast.leg \
-	d.redraw \
-	d.resize \
 	d.shadedmap \
-	d.slide.show \
-	d.split \
 	d.vect.thematic \
 	db.dropcol \
 	db.droptable \
@@ -27,7 +20,6 @@ SUBDIRS = \
 	i.in.spotvgt \
 	i.landsat.rgb \
 	i.oif \
-	i.spectral \
 	i.tasscap \
 	m.proj \
 	r.blend \
@@ -70,6 +62,9 @@ SUBDIRS = \
 	v.report \
 	v.what.vect
 
+#	d.out.gpsdrive \
+#	i.spectral \
+
 include $(MODULE_TOPDIR)/include/Make/Dir.make
 
 default: parsubdirs

scripts/d.monsize/Makefile

@@ -1,7 +0,0 @@
-MODULE_TOPDIR = ../..
-
-PGM=d.monsize
-
-include $(MODULE_TOPDIR)/include/Make/Script.make
-
-default: script

scripts/d.monsize/d.monsize

@@ -1,100 +0,0 @@
-#!/bin/sh
-############################################################################
-#
-# MODULE:	d.monsize, v 1.6 for GRASS 6.0 (2004/12/07)
-#		based on d.monsize for GRASS 5
-# AUTHOR(S):	Unknown;
-#		updated to GRASS 5.7 by Michael Barton (michael.barton@asu.edu)
-# PURPOSE:	selects/starts specified monitor at specified window size
-# COPYRIGHT:	(C) 2004-2007 by the GRASS Development Team
-#
-#		This program is free software under the GNU General Public
-#		License (>=v2). Read the file COPYING that comes with GRASS
-#		for details.
-#
-#############################################################################
-# NOTE: This is based on the output pattern of d.mon -p
-# Anantha Prasad <aprasad/ne_de@fs.fed.us>
-#
-# Version 1: Author?. Tue, 25 Jan 2000 10:31:37
-
-
-#### PLEASE REMOVE "SET" FROM OPTION NAMES FOR GRASS 7
-####  (if this module is even used there; if so merge with d.resize)
-
-#%Module
-#%  description: Selects/starts specified monitor at specified size
-#%  keywords: display, setup
-#%End
-#%option
-#% key: setmonitor
-#% type: string
-#% description: Display monitor to start
-#% options: x0,x1,x2,x3,x4,x5,x6
-#% required : yes
-#%end
-#%option
-#% key: setwidth
-#% type: integer
-#% description: Width in pixels of new display monitor
-#% required : yes
-#%end
-#%option
-#% key: setheight
-#% type: integer
-#% description: Height in pixels of new display monitor
-#% required : yes
-#%end
-
-
-if test -z "$GISBASE"; then
- echo "You must be in GRASS GIS to run this program." >&2
- exit 1
-fi
-
-if [ "$1" != "@ARGS_PARSED@" ] ; then
-  exec g.parser "$0" "$@"
-fi
-
-#### check if we have awk
-if [ ! -x "`which awk`" ] ; then
-    g.message -e "awk required, please install awk/gawk first" 
-    exit 1
-fi
-
-GRASS_WIDTH=$GIS_OPT_SETWIDTH
-export GRASS_WIDTH
-GRASS_HEIGHT=$GIS_OPT_SETHEIGHT
-export GRASS_HEIGHT
-
-
-# Check the current status of the monitor
-OPEN_MON=`d.mon -p | grep ':' | cut -d':' -f2  | awk '{print $1}'`
-
-
-if [ -z "$OPEN_MON" ] ; then
-  # No monitor running so start a new one....
-    g.message -v "No monitor selected"
-    g.message "Starting monitor $GIS_OPT_SETMONITOR at ${GIS_OPT_SETWIDTH}X${GIS_OPT_SETHEIGHT} ..."
-    d.mon start=$GIS_OPT_SETMONITOR
-else
-  if [ "$GIS_OPT_SETMONITOR" = "$OPEN_MON" ] ; then
-    # Monitor is already running...stop it and start new one
-    g.message -v "Monitor already running and selected"
-    g.message "Restarting monitor $GIS_OPT_SETMONITORAT at ${GIS_OPT_SETWIDTH}X${GIS_OPT_SETHEIGHT} ..."
-# d.save > tmp file then source the tmp file to restore after the new mon is opened?
-# (just use d.resize instead)
-    d.mon stop=$GIS_OPT_SETMONITOR
-# why the sleep?
-    sleep 4
-    d.mon start=$GIS_OPT_SETMONITOR
-  else
-    g.message -v "A different monitor is selected"
-    g.message "Selecting and restarting monitor at ${GIS_OPT_SETWIDTH}X${GIS_OPT_SETHEIGHT} ..."
-    #d.mon select=$GIS_OPT_SETMONITOR
-    d.mon stop=$GIS_OPT_SETMONITOR
-# why the sleep?
-    sleep 4
-    d.mon start=$GIS_OPT_SETMONITOR
-  fi
-fi

scripts/d.monsize/description.html

@@ -1,15 +0,0 @@
-<H2>DESCRIPTION</H2>
-
-
-<EM>d.monsize</EM> Starts or restarts a display monitor at a specified height and width.
-<br>
-
-<H2>SEE ALSO</H2>
-
-<EM><A HREF="d.mon.html">d.mon</A></EM>,
-
-
-<H2>AUTHOR</H2>
-
-Unknown
-<p><i>Last changed: $Date$</i>

scripts/d.mvmon/Makefile

@@ -1,7 +0,0 @@
-MODULE_TOPDIR = ../..
-
-PGM = d.mvmon
-
-include $(MODULE_TOPDIR)/include/Make/Script.make
-
-default: script

scripts/d.mvmon/d.mvmon

@@ -1,99 +0,0 @@
-#!/bin/sh
-############################################################################
-#
-# MODULE:	d.mvmon
-# AUTHOR(S):	Huidae Cho - grass4u@gmail.com
-# PURPOSE:	To move current displayed maps to another monitor
-# COPYRIGHT:	(C) 2005 by the GRASS Development Team
-#
-#		This program is free software under the GNU General Public
-#		License (>=v2). Read the file COPYING that comes with GRASS
-#		for details.
-#
-#############################################################################
-
-#%Module
-#%  description: Moves displayed maps to another monitor
-#%  keywords: display, setup
-#%End
-#%flag
-#% key: c
-#% description: clear target monitor before moving
-#%end
-#%flag
-#% key: s
-#% description: stay with source monitor
-#%end
-#%flag
-#% key: k
-#% description: kill source monitor after moving
-#%end
-#%option
-#% key: to
-#% type: string
-#% required: yes
-#% description: Target monitor
-#%end
-#%option
-#% key: from
-#% type: string
-#% required: no
-#% description: Source monitor
-#%end
-
-if [ "$1" != "@ARGS_PARSED@" ]
-then
-	exec g.parser "$0" "$@"
-fi
-
-to=$GIS_OPT_TO
-
-if [ -n "$GIS_OPT_FROM" ]
-then
-	from=$GIS_OPT_FROM
-else
-	from=`d.mon -p | sed 's/^.*: *//'`
-fi
-
-if [ "$from" = "$to" ]
-then
-        g.message -e "Target monitor cannot be the same as source monitor" 
-	exit 1
-fi
-
-if ! d.mon -L | grep "^$from .*  running" > /dev/null 2>&1
-then
-        g.message -e "$from: No such monitor or not running" 
-	exit 1
-fi
-
-if ! d.mon -l | grep "^$to " > /dev/null 2>&1
-then
-        g.message -e "$to: No such monitor" 
-	exit 1
-fi
-
-d.mon select=$from
-dsave=`d.save -o`
-if d.mon -L | grep "^$to .* not running" > /dev/null 2>&1
-then
-	d.mon start=$to
-else
-	d.mon select=$to
-	if [ $GIS_FLAG_C -eq 1 ]
-	then
-		d.erase -x
-	fi
-fi
-
-eval "$dsave"
-
-if [ $GIS_FLAG_S -eq 1 ]
-then
-	d.mon select=$from
-elif [ $GIS_FLAG_K -eq 1 ]
-then
-	d.mon stop=$from
-fi
-
-exit 0

scripts/d.mvmon/description.html

@@ -1,28 +0,0 @@
-<h2>DESCRIPTION</h2>
-
-<em>d.mvmon</em> moves current displayed maps to another monitor.
-
-<h2>EXPORTING TO PNG</h2>
-
-<em>d.mvmon</em> can be used to export drawings on a current window to a png image file (map.png) with the PNG driver. For example,
-<pre>
-g.region rast=dem
-d.mon x0
-d.rast dem
-d.vect big_streams width=10 color=blue
-d.vect small_streams width=5 color=blue
-d.mvmon PNG
-d.mon stop=PNG
-# now you have map.png.
-</pre>
-
-<H2>SEE ALSO</H2>
- 
-<EM><a href="d.save.html">d.save</a></EM>,
-<EM><a href="d.redraw.html">d.redraw</a></EM>
-
-<h2>AUTHOR</h2>
-
-Huidae Cho
-
-<p><i>Last changed: $Date$</i>

scripts/d.redraw/Makefile

@@ -1,7 +0,0 @@
-MODULE_TOPDIR = ../..
-
-PGM = d.redraw
-
-include $(MODULE_TOPDIR)/include/Make/Script.make
-
-default: script

scripts/d.redraw/d.redraw

@@ -1,63 +0,0 @@
-#!/bin/sh
-############################################################################
-#
-# MODULE:	d.redraw
-# AUTHOR(S):	Huidae Cho - grass4u@gmail.com
-# PURPOSE:	To redraw current displayed maps without saving d.save info
-#		before d.erase.
-# COPYRIGHT:	(C) 2000 by the GRASS Development Team
-#
-#		This program is free software under the GNU General Public
-#		License (>=v2). Read the file COPYING that comes with GRASS
-#		for details.
-#
-#############################################################################
-
-#%Module
-#% description: Redraws the current display frame in the GRASS monitor
-#% keywords: display
-#%End
-#%flag
-#% key: a
-#% description: Redraw all frames
-#%end
-#%flag
-#% key: r
-#% description: Do not preserve individual regions when redrawing all frames
-#%end
-
-
-
-if [ -z "$GISBASE" ] ; then
-    echo "You must be in GRASS GIS to run this program." 1>&2
-    exit 1
-fi
-
-# GUI is not very useful here, skip it if no args are given
-if [ "$#" -gt 0 ] ; then
-  if [ "$1" != "@ARGS_PARSED@" ] ; then
-    exec g.parser "$0" "$@"
-  fi
-else
-  # no args given
-  GIS_FLAG_A=0
-  GIS_FLAG_R=0
-fi
-
-
-if [ "$GIS_FLAG_A" -eq 0 ] ; then
-   dsave=`d.save -o`
-else
-   if [ "$GIS_FLAG_R" -eq 0 ] ; then
-      dsave=`d.save -a`
-   else
-      dsave=`d.save -a | grep -v '^g.region'`
-   fi
-fi
-
-# With -x flag, d.redraw behaves as if it actually stops and restarts monitor,
-# which is good for PNG non-white transparency and d.mvmon.
-d.erase -x
-eval "$dsave"
-
-exit

scripts/d.redraw/description.html

@@ -1,18 +0,0 @@
-<h2>DESCRIPTION</h2>
-
-<em>d.redraw</em> redraws current displayed maps without saving d.save
-info before d.erase.
-
-<H2>SEE ALSO</H2>
- 
-<EM><a href="d.erase.html">d.erase</a></EM>,
-<EM><a href="d.rast.html">d.rast</a></EM>,
-<EM><a href="d.vect.html">d.vect</a></EM>,
-<EM><a href="d.mvmon.html">d.mvmon</a></EM>
-
-<h2>AUTHOR</h2>
-
-Huidae Cho
-
-<p>
-<i>Last changed: $Date$</i>

scripts/d.resize/Makefile

@@ -1,7 +0,0 @@
-MODULE_TOPDIR = ../..
-
-PGM=d.resize
-
-include $(MODULE_TOPDIR)/include/Make/Script.make
-
-default: script

scripts/d.resize/d.resize

@@ -1,83 +0,0 @@
-#!/bin/sh
-#
-############################################################################
-#
-# MODULE:       d.resize for GRASS 5.7, based on d.resize for GRASS 5
-# AUTHOR(S):    CERL?; updated for GRASS 5.7 by Michael Barton
-# PURPOSE:      Resizes active display
-# COPYRIGHT:    (C) 2004 by the GRASS Development Team
-#
-#               This program is free software under the GNU General Public
-#               License (>=v2). Read the file COPYING that comes with GRASS
-#               for details.
-#
-#############################################################################
-
-
-#% Module
-#% description: Resizes active display monitor
-#% keywords: display, setup
-#% End
-#% option
-#% key: width
-#% type: integer
-#% description: New width for window
-#% required : yes
-#% end
-#% option
-#% key: height
-#% type: integer
-#% description: New height for window
-#% required : yes
-#% end
-
-if  [ -z "$GISBASE" ]
-then
-	echo "You must be in GRASS GIS to run this program" >&2
-	exit 1
-fi
-
-if   [ "$1" != "@ARGS_PARSED@" ]
-then
-	exec g.parser "$0" "$@"
-fi
-
-PROG=`basename $0`
-
-#### check if we have awk
-if [ ! -x "`which awk`" ] ; then
-    g.message -e "awk required, please install awk or gawk first"
-    exit 1
-fi
-
-# setting environment, so that awk works properly in all languages
-unset LC_ALL
-LC_NUMERIC=C
-export LC_NUMERIC
-
-# Check the current status of the monitor
-monitorcheck=`d.mon -p|sed s/'No monitor currently selected for output'//`
-
-if  [ -z "$monitorcheck" ]
-then
-	g.message -e "You must select a display monitor"
-	exit 1
-fi
-
-#save current display
-dsave=`d.save -a`
-
-#reset monitor to new size
-mon=`d.mon -p | awk '{printf "%s", $4}'`
-d.mon stop=$mon
- 
-g.message "Display set to $GIS_OPT_WIDTH x $GIS_OPT_HEIGHT"
-
-GRASS_WIDTH=$GIS_OPT_WIDTH
-export GRASS_WIDTH
-GRASS_HEIGHT=$GIS_OPT_HEIGHT
-export GRASS_HEIGHT
-d.mon start=$mon
-
-#redisplay map
-eval "$dsave"

scripts/d.resize/description.html

@@ -1,16 +0,0 @@
-<H2>DESCRIPTION</H2>
-
-
-<EM>d.resize</EM> Sets the current display monitor window size to specified height and width.
-<br>
-
-<H2>SEE ALSO</H2>
-
-<EM><A HREF="d.monsize.html">d.monsize</A></EM>,
-
-
-<H2>AUTHOR</H2>
-
-Unknown
-Update to GRASS 5.7 by Michael Barton, Arizona State University
-<p><i>Last changed: $Date$</i>

scripts/d.slide.show/Makefile

@@ -1,7 +0,0 @@
-MODULE_TOPDIR = ../..
-
-PGM = d.slide.show
-
-include $(MODULE_TOPDIR)/include/Make/Script.make
-
-default: script

scripts/d.slide.show/d.slide.show

@@ -1,263 +0,0 @@
-#!/bin/sh
-
-############################################################################
-#
-# MODULE:       d.slide.show 
-# AUTHOR(S):    CERL, updated by Michael Barton
-# PURPOSE:      Slide show of GRASS raster/vector maps
-# COPYRIGHT:    (C) 2004 by the GRASS Development Team
-#
-#               This program is free software under the GNU General Public
-#               License (>=v2). Read the file COPYING that comes with GRASS
-#               for details.
-#
-#############################################################################
-
-#%Module
-#%  description: Slide show of GRASS raster/vector maps.
-#%  keywords: display, slideshow
-#%End
-#%flag
-#%  key: v
-#%  description: Show vector maps rather than raster maps
-#%END
-#%option
-#% key: prefix
-#% type: string
-#% description: Map prefix. Specify character(s) to view selected maps only
-#% required : no
-#%end
-#%option
-#% key: across
-#% type: integer
-#% description: Map number show across the monitor
-#% gisprompt: 4
-#% required : no
-#%end
-#%option
-#% key: down
-#% type: integer
-#% description: Map number show down the monitor
-#% gisprompt: 3
-#% required : no
-#%end
-#%option
-#% key: mapsets
-#% type: string
-#% description: Mapsets to use. Specify multiple mapsets comma separated
-#% multiple : yes
-#% required : no
-#%end
-#%option
-#% key: delay
-#% type: integer
-#% description: Number of seconds to pause between slides
-#% options: 0-60
-#% answer: 0
-#% required: no
-#%end
-
-if test "$GISBASE" = ""; then
- echo "You must be in GRASS GIS to run this program." >&2
- exit 1
-fi   
-
-if [ "$1" != "@ARGS_PARSED@" ] ; then
-  exec g.parser "$0" "$@"
-fi
-     
-# set defaults
-DOWN=3
-ACROSS=4
-CWD=`pwd`
-
-# in case of problems or user break:
-trap 'cd $CWD ; d.frame -s full_screen ; exit 1' 2 3 15
-
-GISDBASE=`g.gisenv GISDBASE`
-LOCATION_NAME=`g.gisenv LOCATION_NAME`
-MAPSET=`g.gisenv MAPSET`
-LOCATION="$GISDBASE/$LOCATION_NAME/$MAPSET"
-
-# Get list of current mapsets
-if [ -r $LOCATION/SEARCH_PATH ]
-then
-	MAPSETS=`cat $LOCATION/SEARCH_PATH | tr -s '\012' ' '`
-else
-	if [ "$MAPSET" = "PERMANENT" ]
-	then
-		MAPSETS="$MAPSET"
-	else
-		MAPSETS="$MAPSET PERMANENT"
-	fi
-fi
-
-if [ -n "$GIS_OPT_PREFIX" ] ; then
-   PREFIX=$GIS_OPT_PREFIX
-fi
-if [ -n "$GIS_OPT_DOWN" ] ; then
-   DOWN=$GIS_OPT_DOWN
-fi
-if [ -n "$GIS_OPT_ACROSS" ] ; then
-   ACROSS=$GIS_OPT_ACROSS
-fi
-if [ -n "$GIS_OPT_MAPSETS" ] ; then
-   MAPSETS=`echo $GIS_OPT_MAPSETS | sed 's/,/ /g'`
-fi
-
-if [ $GIS_FLAG_V -eq 1 ] ; then
-   SHOW_VECT=1
-else
-   SHOW_VECT=0
-fi
-
-# Check if mapset exists
-mapsets=""
-for mapset in $MAPSETS
-do
-	if [ -d $LOCATION/../$mapset ]
-	then
-		mapsets="$mapsets $mapset"
-	fi
-done
-if [ "$mapsets" = "" ]
-then
-	g.message -e "$MAPSETS: No such mapset(s) found"
-	exit 1
-fi
-MAPSETS=$mapsets
-
-drawframes()
-{
- d.frame -e
- if [ $? -ne 0 ] ; then
-   g.message -e "An error occured while running 'd.frame -e'"
-   exit 1
- fi
-
- # figure height and widths of the windows
- avail_width=`expr 99 - $ACROSS`
- avail_height=`expr 99 - $DOWN`
- map_width=`expr $avail_width / $ACROSS`
- wind_height=`expr $avail_height / $DOWN`
- label_height=`expr $wind_height / 10`
- map_height=`expr $wind_height - $label_height`
-
- # generate the needed windows
- at_horiz=0
- left=1
- while [ $at_horiz -lt $ACROSS ]
- do
-	at_vert=0
-	top=99
-	right=`expr $left + $map_width`
-	while [ $at_vert -lt $DOWN ]
-	do
-		bottom=`expr $top - $map_height`
-		d.frame -c map.$at_horiz.$at_vert at=$bottom,$top,$left,$right
-		top=$bottom
-		bottom=`expr $top - $label_height`
-		d.frame -c lab.$at_horiz.$at_vert at=$bottom,$top,$left,$right
-		at_vert=`expr $at_vert + 1`
-		top=`expr $bottom - 1`
-	done
-	at_horiz=`expr $at_horiz + 1`
-	left=`expr $right + 1`
- done
-}
-
-drawraster()
-{
- for mapset in $MAPSETS
- do
-	cd $LOCATION/../$mapset
-	if [ ! -d cell ]
-	then
-		continue
-	fi
-	for i in MASK `ls cell/$PREFIX* 2> /dev/null`
-	do
-		i=`echo $i | sed 's/cell\///'`
-		if [ ! $i = "MASK" ]
-		then
-			atnum=`expr $atnum % $totmaps`
-			at_vert=`expr $atnum % $DOWN`
-			at_hori=`expr $atnum / $DOWN`
-
-			d.frame -s lab.$at_hori.$at_vert
-			d.erase
-			echo $i in $mapset | d.text size=80
-
-			d.frame -s map.$at_hori.$at_vert
-			d.erase
-			g.message -v message="[$i]"
-			d.rast $i --quiet
-
-			if [ "$GIS_OPT_DELAY" -gt 0 ] ; then
-			    sleep "$GIS_OPT_DELAY"
-			fi
-
-			atnum=`expr $atnum + 1`
-		fi
-	done
- done
-}
-
-
-drawvector()
-{
- for mapset in $MAPSETS
- do
-	cd $LOCATION/../$mapset
-	if [ ! -d vector ]
-	then
-		continue
-	fi
-	for i in `ls -d vector/$PREFIX* 2> /dev/null`
-	do
-		i=`echo $i | sed 's/^vector\///'`
-		atnum=`expr $atnum % $totmaps`
-		at_vert=`expr $atnum % $DOWN`
-		at_hori=`expr $atnum / $DOWN`
-
-		d.frame -s lab.$at_hori.$at_vert
-		d.erase
-		echo $i in $mapset | d.text size=80
-
-		d.frame -s map.$at_hori.$at_vert
-		d.erase
-		g.message -v message="[$i]"
-		d.vect -c $i --quiet
-
-		if [ "$GIS_OPT_DELAY" -gt 0 ] ; then
-		    sleep "$GIS_OPT_DELAY"
-		fi
-
-		atnum=`expr $atnum + 1`
-	done
- done
-}
-
-
-####################################
-# main code
-
-drawframes
-
-# Draw the maps
-
-atnum=0
-totmaps=`expr $ACROSS \* $DOWN`
-
-if [ $SHOW_VECT -eq 0 ] ; then
-   g.message "Displaying raster maps..." 
-   drawraster
-else
-   g.message "Displaying vector maps..."
-   drawvector
-fi
-
-cd $CWD
-d.frame -s full_screen
-
-exit 0

scripts/d.slide.show/description.html

@@ -1,55 +0,0 @@
-<H2>DESCRIPTION</H2>
-
-
-<EM>d.slide.show</EM> is a UNIX Bourne shell macro which
-clears the entire screen, creates a series of display
-frames on the graphics monitor, and displays in slideshow
-format each of the raster/vector map layers listed in the
-user-specified <EM>mapsets</EM>.  This is a shell script
-example which makes extensive use of GRASS and UNIX
-commands.  Users are encouraged to examine this macro and
-develop similar on-line demos using their own data files.
-
-<H2>EXAMPLE</H2>
-
-The following command sequence shows the available raster
-maps, saves the view to a PNG file and then converts it
-into a PDF file:
-
-<div class="code"><pre>
-# reset region:
-g.region -dp
-
-# open GRASS monitor with defined size:
-GRASS_WIDTH=800 GRASS_HEIGHT=1000 d.mon x0
-
-# we have around 40 maps in the Spearfish PERMANENT mapset:
-d.slide.show across=5 down=8 mapsets=PERMANENT
-
-# From Monitor to PNG to PDF:
-d.out.png out=spearfish_maps.png res=2
-
-convert spearfish_maps.png spearfish_maps.pdf
-xpdf spearfish_maps.pdf
-</pre></div>
-
-
-<H2>SEE ALSO</H2>
-
-<EM>
-<A HREF="d.erase.html">d.erase</A><BR>
-<A HREF="d.frame.html">d.frame</A><BR>
-<A HREF="d.text.html">d.text</A><BR>
-<A HREF="g.mapsets.html">g.mapsets</A><BR>
-<A HREF="xganim.html">xganim</A><BR>
-</EM>
-<BR>
-
-<H2>AUTHOR</H2>
-James Westervelt, U.S.Army Construction Engineering 
-Research Laboratory
-<br>
-Vector update, fixes: Markus Neteler
-
-<p>
-<i>Last changed: $Date$</i>

scripts/d.split/Makefile

@@ -1,7 +0,0 @@
-MODULE_TOPDIR = ../..
-
-PGM=d.split
-
-include $(MODULE_TOPDIR)/include/Make/Script.make
-
-default: script

scripts/d.split/d.split

@@ -1,174 +0,0 @@
-#!/bin/sh
-############################################################################
-#
-# MODULE:       d.frame.split
-# AUTHOR:       M. Hamish Bowman, Dept. Marine Science, Otago Univeristy,
-#                 New Zealand
-# PURPOSE:      Split the display into quarter frames, etc
-#		  (This script entierly replaces d.split frpm GRASS 5,6)
-#
-# COPYRIGHT:    (c) 2007 Hamish Bowman, and the GRASS Development Team
-#               This program is free software released to the public domain
-#
-#############################################################################
-
-#%Module
-#% description: Split the display into subframes.
-#%End
-#%option
-#% key: frames
-#% type: integer
-#% description: Number of subframes
-#% options: 2,4,6,8,9,12,16
-#% answer: 4
-#%end
-#%flag
-#% key: h
-#% description: Split horizontally not vertically
-#%end
-
-if  [ -z "$GISBASE" ] ; then
-    echo "You must be in GRASS GIS to run this program." 1>&2
-    exit 1
-fi
-
-# skip parser if no args are given
-if [ "$#" -gt 0 ] ; then
-  if [ "$1" != "@ARGS_PARSED@" ] ; then
-    exec g.parser "$0" "$@"
-  fi
-else
-  GIS_OPT_FRAMES=4
-  GIS_FLAG_H=0
-fi
-
-
-if [ `d.mon -p | cut -f1 -d' '` != "Currently" ] ; then
-   g.message -e "No monitor currently selected for output"
-   exit 1
-fi
-
-d.erase -f
-if [ $? -ne 0 ] ; then
-   g.message -e "Error clearing display monitor"
-   exit 1
-fi
-
-
-case "$GIS_OPT_FRAMES" in
-   2) if [ $GIS_FLAG_H -eq 0 ] ; then
-	#split vert
-	d.frame -c frame=uno at=50,100,0,100
-	d.frame -c frame=dos at=0,50,0,100
-      else
-	d.frame -c frame=uno at=0,100,0,50
-	d.frame -c frame=dos at=0,100,50,100
-      fi
-     ;;
-   4) d.frame -c frame=uno at=50,100,0,50
-      d.frame -c frame=dos at=50,100,50,100
-      d.frame -c frame=tres at=0,50,0,50
-      d.frame -c frame=cuatro at=0,50,50,100
-     ;;
-   6) if [ $GIS_FLAG_H -eq 0 ] ; then
-	#split vert
-	d.frame -c frame=uno at=66.6667,100,0,50
-	d.frame -c frame=dos at=66.6667,100,50,100
-	d.frame -c frame=tres at=33.3333,66.6667,0,50
-	d.frame -c frame=cuatro at=33.3333,66.6667,50,100
-	d.frame -c frame=cinco at=0,33.3333,0,50
-	d.frame -c frame=seis at=0,33.3333,50,100
-      else
-	d.frame -c frame=uno at=50,100,0,33.3333
-	d.frame -c frame=dos at=50,100,33.3333,66.6667
-	d.frame -c frame=tres at=50,100,66.6667,100
-	d.frame -c frame=cuatro at=0,50,0,33.3333
-	d.frame -c frame=cinco at=0,50,33.3333,66.6667
-	d.frame -c frame=seis at=0,50,66.6667,100
-      fi
-     ;;
-   8) if [ $GIS_FLAG_H -eq 0 ] ; then
-	#split vert
-	d.frame -c frame=uno at=75,100,0,50
-	d.frame -c frame=dos at=75,100,50,100
-	d.frame -c frame=tres at=50,75,0,50
-	d.frame -c frame=cuatro at=50,75,50,100
-	d.frame -c frame=cinco at=25,50,0,50
-	d.frame -c frame=seis at=25,50,50,100
-	d.frame -c frame=siete at=0,25,0,50
-	d.frame -c frame=ocho at=0,25,50,100
-      else
-	d.frame -c frame=uno at=50,100,0,25
-	d.frame -c frame=dos at=50,100,25,50
-	d.frame -c frame=tres at=50,100,50,75
-	d.frame -c frame=cuatro at=50,100,75,100
-	d.frame -c frame=cinco at=0,50,0,25
-	d.frame -c frame=seis at=0,50,25,50
-	d.frame -c frame=siete at=0,50,50,75
-	d.frame -c frame=ocho at=0,50,75,100
-      fi
-     ;;
-   9) d.frame -c frame=uno at=66.6667,100,0,33.3333
-      d.frame -c frame=dos at=66.6667,100,33.3333,66.6667
-      d.frame -c frame=tres at=66.6667,100,66.6667,100
-      d.frame -c frame=cuatro at=33.3333,66.6667,0,33.3333
-      d.frame -c frame=cinco at=33.3333,66.6667,33.3333,66.6667
-      d.frame -c frame=seis at=33.3333,66.6667,66.6667,100
-      d.frame -c frame=siete at=0,33.3333,0,33.3333
-      d.frame -c frame=ocho at=0,33.3333,33.3333,66.6667
-      d.frame -c frame=nueve at=0,33.3333,66.6667,100
-     ;;
-   12) if [ $GIS_FLAG_H -eq 0 ] ; then
-	#split vert
-	d.frame -c frame=uno at=75,100,0,33.3333
-	d.frame -c frame=dos at=75,100,33.3333,66.6667
-	d.frame -c frame=tres at=75,100,66.6667,100
-	d.frame -c frame=cuatro at=50,75,0,33.3333
-	d.frame -c frame=cinco at=50,75,33.3333,66.6667
-	d.frame -c frame=seis at=50,75,66.6667,100
-	d.frame -c frame=siete at=25,50,0,33.3333
-	d.frame -c frame=ocho at=25,50,33.3333,66.6667
-	d.frame -c frame=nueve at=25,50,66.6667,100
-	d.frame -c frame=diez at=0,25,0,33.3333
-	d.frame -c frame=once at=0,25,33.3333,66.6667
-	d.frame -c frame=doce at=0,25,66.6667,100
-      else
-      	d.frame -c frame=uno at=66.6667,100,0,25
-	d.frame -c frame=dos at=66.6667,100,25,50
-	d.frame -c frame=tres at=66.6667,100,50,75
-	d.frame -c frame=cuatro at=66.6667,100,75,100
-	d.frame -c frame=cinco at=33.3333,66.6667,0,25
-	d.frame -c frame=seis at=33.3333,66.6667,25,50
-	d.frame -c frame=siete at=33.3333,66.6667,50,75
-	d.frame -c frame=ocho at=33.3333,66.6667,75,100
-	d.frame -c frame=nueve at=0,33.3333,0,25
-	d.frame -c frame=diez at=0,33.3333,25,50
-	d.frame -c frame=once at=0,33.3333,50,75
-	d.frame -c frame=doce at=0,33.3333,75,100
-      fi
-     ;;
-   16) d.frame -c frame=uno at=75,100,0,25
-       d.frame -c frame=dos at=75,100,25,50
-       d.frame -c frame=tres at=75,100,50,75
-       d.frame -c frame=cuatro at=75,100,75,100
-       d.frame -c frame=cinco at=50,75,0,25
-       d.frame -c frame=seis at=50,75,25,50
-       d.frame -c frame=siete at=50,75,50,75
-       d.frame -c frame=ocho at=50,75,75,100
-       d.frame -c frame=nueve at=25,50,0,25
-       d.frame -c frame=diez at=25,50,25,50
-       d.frame -c frame=once at=25,50,50,75
-       d.frame -c frame=doce at=25,50,75,100
-       d.frame -c frame=trece at=0,25,0,25
-       d.frame -c frame=catorce at=0,25,25,50
-       d.frame -c frame=quince at=0,25,50,75
-       d.frame -c frame=dieciseis at=0,25,75,100
-     ;;
-esac
-
-
-d.frame -s uno
-
-g.message "Use 'd.erase -f' to clear frames from display monitor."
-
-exit

scripts/d.split/description.html

@@ -1,43 +0,0 @@
-<H2>DESCRIPTION</H2>
-
-<EM>d.split</EM> divides the active display into a number of equal frames,
-either horizontally or vertically.
-
-
-<H2>NOTES</H2>
-
-Frame labels are created as Spanish numbers to distinguish them from
-monitor numbers, etc. These are "<i>uno, dos, tres, cuatro, cinco,
-seis, siete, ocho, nueve, diez, once, doce, trece, catorce, quince,
-and dieciseis</i>" for frames 1-16.
-The background frame is called <i>full_screen</i>.
-
-<P>
-Commands such as <em>d.rast.leg</em> will interfere with the frame creation
-and cannot be used.
-
-<H2>EXAMPLE</H2>
-
-Split the display monitor into six frames (3x2), jump to the third frame,
-and draw a map.
-<div class="code"><pre>
-  d.split -h frames=6 
-  d.frame -s tres
-  d.rast elevation.dem
-</pre></div>
-<BR>
-
-
-<H2>SEE ALSO</H2>
-
-<EM>
-<A HREF="d.frame.html">d.frame</A>
-</EM>
-
-
-<H2>AUTHOR</H2>
-
-Hamish Bowman<BR>
-<i>Dunedin, New Zealand</i>
-<p>
-<i>Last changed: $Date$</i>