top banner
Examples
1: Introduction
2: Simple example
3: Fancy example
4: Running Gri
5: Programming Gri
6: General Issues
7: X-Y Plots
8: Contour Plots
9: Image Plots
10: Examples
11: Handling Data
12: Gri Commands
13: Gri Extras
14: Evolution of Gri
15: Installing Gri
16: Gri Bugs
17: System Tools
18: Acknowledgments
19: License
20: Newsgroup

21: Concept Index
navigate navigate navigate navigate navigate navigate

10.12: Using new commands to speed Gri programming

New commands can speed your Gri programming. In the following example, note how the syntax is checked withing the new command, to ensure that things are correct. Also note that the filenames contain periods and slashes, so they will be broken up into several words by Gri; to prevent this, they are enclosed in double quotes.
show "Plot locations of depth measurements."

`draw depths from \file'
Draw depth data stored in indicated file.
Note that if the filename contains periods
or slashes, you'll have to enclose it in
double quotes, as in the second example:
  draw depths from file upper_cove
  draw depths from file ../old_data/upper_cove
{
  if {rpn \.words. 4 !=}
    show "FATAL ERROR in `\.proper_usage.':"
    show "  Require 4 words, but got \.words. words."
    quit
  end if
  set symbol size 0.025
  show "Depths from file \.word3."
  open \.word3.
  read columns * x y
  close
  draw symbol plus
}

if !..publication..
  draw time stamp
end if
set page landscape
set y margin 4
set y axis 44.30 44.38 0.05 0.01
set y size 10
set x margin 4
set x axis 64.35 64.23 -0.05 -0.01
resize x for maps
set x name "Longitude / $\circ$W"
set y name "Latitude / $\circ$N"
draw axes

show "--- first map ---"
draw depths from "../digitized/final/1"
draw depths from "../digitized/final/2"
draw depths from "../digitized/final/3"
draw depths from "../digitized/final/4"
draw depths from "../digitized/final/5"
draw depths from "../digitized/final/6"
draw depths from "../digitized/final/beach1"

show "--- second (insert) map ---"
draw depths from "../digitized/final/insert1"
draw depths from "../digitized/final/insert2"
draw depths from "../digitized/final/insert3"
draw depths from "../digitized/final/insert4"
draw depths from "../digitized/final/insert5"
draw depths from "../digitized/final/insert6"
draw depths from "../digitized/final/insert7"
draw depths from "../digitized/final/insert_beach1"
quit
bottom banner