#!/bin/sh

###########################################################
# Example script to create a series of 3D gif images in  
# GRASS for subsequent animation with xanim, animate or 
# mpeg_encode.  
#
# This script uses the GRASS CELL monitor to capture
# output from d.3d, and writes each image to a GRASS 
# raster file upon each termination of the CELL monitor. 
# Each raster file is written to stdout as a 24-bit color 
# PPM file with Bill Brown's r.out.ppm module, may be piped 
# to ppmquant for color reduction if desired, 
# then piped to ppmtogif for conversion to gif format.
#
# You must set the size of the CELL monitor (and final
# images) before starting your GRASS session and running
# your modification of this script, e.g.:
#       setenv GRASS_WIDTH 401
#       setenv GRASS_HEIGHT 201 
# (will create 200 row x 400 col raster files and images)
###########################################################

# SCRIPT FOR DELAWARE SATELLITE FLY-OVER 

i=10
x=440000
y=4123000
z=50000
cx=448000
cy=4265000
while [ $i != 69 ]
do
  d.mon start=CELL
  g.region rast=tm89.123 res=150
  d.erase
  d.3d map=tm89.123 elev=elev \
    from=$x,$y,$z to=$cx,$cy,2500 \
    exag=30 lines=0 field=70
  d.mon stop=CELL
  sleep 10
  g.region rast=D_cell
  r.out.ppm i=D_cell o=- | ppmtogif > \
    /homec/gifs/de_tm$i.gif
  g.remove D_cell
  x=`expr $x + 1000`
  y=`expr $y + 6200`
#  z=`expr $z + 200`
  cx=`expr $cx + 400`
  cy=`expr $cy + 1367`
  i=`expr $i + 1`
done