The UNIX CD Bookshelf/OREILLY_TUCB_UNIX_CD.iso/upt/examples/SOURCES/IPL/PART02.Z/PART02

Text File | 1998-07-24 | 28.9 KB | 2,035 lines

Subject:  v21i033:  2D graphic system with table beautifier, Part02/14
Newsgroups: comp.sources.unix
Approved: [e-mail]
X-Checksum-Snefru: 6ac08f0d 049f1e4a 06eed964 bba564d5

Submitted-by: Steve Grubb <uunet!lsr-vax!scg>
Posting-number: Volume 21, Issue 33
Archive-name: ipl/part02

# ipl part02
#    This is a shell archive.
#    Remove everything above and including the cut line.
#    Then run the rest of the file through sh.
#---------------------- cut here -----------------------------
#!/bin/sh
# shar:    Shell Archiver
#    Run the following text with /bin/sh to create:
#        run.examples
#        run.install
#        run.manual
#        bin/pipl
#        bin/nicetab
#        tplates/area.coords
#        tplates/areadef.g
#        tplates/areas.g
#        tplates/areas2.g
#        tplates/clear.g
#        tplates/coms
#        tplates/comsclinics
#        tplates/comsvisits
#        tplates/dashsize.g
#        tplates/dashsize.mu
#        tplates/fonts.mu
#        tplates/gallery.g
#        tplates/lineparm.g
#        tplates/linethick.g
#        tplates/linethick.mu
#        tplates/linetype.g
#        tplates/linetype.mu
#        tplates/log1
#        tplates/month.stubs
#        tplates/mps
#        tplates/mpsclinics
#        tplates/mpsvisits
#        tplates/viplstartup.g
cat << \SHAR_EOF > run.examples
#!/bin/sh
#runs off some examples
#

echo -n "This will produce a number of IPL examples,
along with listings of the control files that generated
them.  It may tie up the printer for a while.

Enter a command for printing the control files.  Use
small text if possible, or lpr(1); use echo(1) if you
don't want to print the control files at all.

Command: "

read PCOM

echo -n "Using: $PCOM

Begin? (y/n) "

read x
if [ $x = "n" ]
then
exit
fi

cd /550/pub/src/ipl_1.0
cd examples

pipl areadef1.g
$PCOM areadef1.g
pipl areadef2.g
$PCOM areadef2.g

pipl arrow.g
$PCOM arrow.g

pipl bargraph1.g
$PCOM bargraph1.g

pipl distrib1.g
$PCOM distrib1.g
pipl distrib2.g
$PCOM distrib2.g
pipl point1.g

pipl errorbar1.g
$PCOM errorbar1.g

pipl legend1.g
$PCOM legend1.g

pipl lineplot1.g
$PCOM lineplot1.g

pipl map1.g
$PCOM map1.g

pipl nicetab1.g
$PCOM table10
$PCOM nicetab1.g

pipl points.ipl
$PCOM2 points.ipl

pipl rangebar1.g
$PCOM rangebar1.g

pipl vbargraph1.g
$PCOM vbargraph1.g

pipl vector1.g
$PCOM vector1.g

pipl vrangebar1.g
$PCOM vrangebar1.g

# misc examples
pipl examp12.g
$PCOM examp12.g
pipl examp1.g
$PCOM examp1.g
pipl examp16.g
$PCOM examp16.g
pipl examp3.g
$PCOM examp3.g
pipl examp10.g
$PCOM examp10.g
SHAR_EOF
chmod 755 run*
############################

cat << \SHAR_EOF > run.install
#!/bin/sh

h=`hostname`
TODAY=`date +%m%d%y`

echo -n "
IPL graphic utility

This script does not need to be run by superuser.  It will prompt you
for some parameters, build an install.h file, go to the source directory,
and do a 'make'.  You can ^C at any time.  It will put one executable in
bin/ipl (moving it will cause problems).

Indicate the following by pressing return for the [default]
or entering a response:

"
d=`pwd`
echo -n "

Doing a pwd from here yields: \"$d.\"
If this pathname will be usable from everywhere on your network, press return.
Otherwise, enter the fully qualified pathname: "
read x; if [ "$x " != " " ]; then d=$x; fi

cd $d


p=lpr
echo -n "Your command for routing postscript code to printer [$p]: "
read x;
if [ "$x " != " " ]; then
  p=$x;
  sed "s/ lpr$/ $p/" < bin/pipl > bin/foo
  mv bin/foo bin/pipl
fi

t=/usr/tmp
echo -n "Place for temp files to go [$t]: "
read x; if [ "$x " != " " ]; then t=$x; fi

echo "
IPL uses a fixed 2-D (rows, fields) array of char strings for internal
plot data storage.
You can specify maximum number of rows, max number of fields per row,
and max number of characters in each field."

r=1000
echo -n "Maximum number of rows (observations) [$r]: "
read x; if [ "$x " != " " ]; then r=$x; fi

c=24
echo -n "Maximum number of fields (variables) [$c]: "
read x; if [ "$x " != " " ]; then c=$x; fi

z=20
echo -n "Maximum number of characters in a field [$z]: "
read x; if [ "$x " != " " ]; then z=$x; fi

> install.h
echo "#define INSTALL_TMP \"$t\"" >> install.h
echo "#define PATHNAME_LEN 80" >> install.h
echo "#define HBUFSIZ 4096" >> install.h
echo "#define MAX_D_ROWS $r" >> install.h
echo "#define MAX_D_COLS $c" >> install.h
echo "#define DATAITEM_LEN $z" >> install.h
echo "#define TEMPLATE_PATH \"$d/tplates\"" >> install.h
echo "#define MONTHSTUB_PATH \"$d/tplates/month.stubs\"" >> install.h

echo "
Here are the defines:"
cat install.h
echo -n "

Proceed with installation? "
read x
if [ $x = "n" ]; then exit; fi

echo "${TODAY} IPL installed on $h at: $d" >> Introduction

cd $d

# make pipl shell script
chmod 755 ./bin/pipl


#compile ipl
cd $d/src
make

cd $d/examples
ln -s $d/bin/ipl sipl
ln -s $d/bin/ipl tipl
ln -s $d/bin/pipl pipl
ln -s $d/bin/ipl vipl
ln -s $d/bin/nicetab nicetab


echo "
You can now try out IPL by going to the examples directory and running:
 - demo.sipl (if in Sunview),
        OR
 - demo.pipl which produces postscript output

If you want to make links from a system bin (such as /usr/local/bin)
do the following: cd /usr/local/bin
          ln $d/bin/ipl sipl
          ln $d/bin/ipl tipl
          ln $d/bin/ipl vipl
          ln $d/bin/pipl pipl
          ln $d/bin/nicetab nicetab

The command names are important-- changing them will cause problems:
tipl        displays control files, outputs postscript
sipl        displays control files under Sunview
vipl        allows interactive annotation under Sunview
pipl        displays control files, and routes postscript to printer
nicetab     table beautifier

Good luck!!
"
SHAR_EOF
chmod 755 run*
############################

cat << \SHAR_EOF > run.manual
#!/bin/sh

if [ -f Introduction ]; then echo
else
    echo "Wrong directory."; exit; fi

echo -n "
This script will run off the Users Guide for IPL 1.0.
Examples will not be included-- they can be run using the
command: run.examples.

Begin? (y/n): "
read x
if [ "$x " != "y " ]; then exit; fi


pipl tplates/gallery.g
lpr Cover
lpr New
lpr Introduction

pipl tplates/areas.g
pipl tplates/areas2.g
pipl tplates/areadef.g
lpr tplates/[A-Z]*


SHAR_EOF
chmod 755 run*
############################

cat << \SHAR_EOF > bin/pipl
#! /bin/sh
tipl "$1" "$2" "$3" "$4" "$5" "$6" "$7" "$8" "$9" "$10" "$11" "$12" "$13" "$14" "$15" "$16" "$17" "$18" "$19" "$20" | lpr
SHAR_EOF
chmod 755 bin/*
############################

cat << \SHAR_EOF > bin/nicetab

# Args are: file body.size area title.size
# Not all args need to be given, but they must be in position, i.e.,
# if title.size is to be specified, all other args must be given also.

echo "Proc Page:

Proc Nicetab:
File:    \$2
Body.size:    \$3
Area:    \$4
Title.size:    \$5
" > /usr/tmp/nicetab$$

if [ $# -eq 0 ]; then pipl /usr/tmp/nicetab$$ - 10 nicetab 11
elif [ $# -eq 1 ]; then pipl /usr/tmp/nicetab$$ $1 10 nicetab 11
elif [ $# -eq 2 ]; then pipl /usr/tmp/nicetab$$ $1 $2 nicetab 11
elif [ $# -eq 3 ]; then pipl /usr/tmp/nicetab$$ $1 $2 $3 11
elif [ $# -eq 4 ]; then pipl /usr/tmp/nicetab$$ $1 $2 $3 $4
fi
rm /usr/tmp/nicetab$$
SHAR_EOF
chmod 755 bin/*
############################

cat << \SHAR_EOF > tplates/area.coords
/* # area.coords
#
#   The following is a list of predefined graphics areas (windows) on the page.
# Some use the whole page; those beginning with '2' are for doing two plots
# per page, 3 for three plots per page, etc.
#   These names can be used as the Area in Proc Areadef.  If none
# of these is suitable, Area.left, Area.right, etc. can be defined explicitly.
# Coordinates are in inches, with the origin in the lower left.
#
#                 ---portrait----    ---landscape---
# format is:
# AREA NAME (must be followed by space(s))
#             XLO YLO XHI YHI    XLO YLO XHI YHI
# */

char *Areacoords[25] = {
"standard     1.2 3.5 7.4 8.0   1.5 1.5 9.0 6.2",
"square       1.2 2.0 7.2 8.0   2.2 0.8 8.2 6.8",
"dist1        1.2 6.5 7.2 8.0   2.2 5.3 8.2 6.8",
"whole        1.2 1.0 7.4 9.0   1.5 1.2 9.0 7.0",
"2hi          1.0 6.0 7.6 9.5   1.0 4.5 9.0 7.5",
"2lo          1.0 1.5 7.6 5.0   1.0 0.75 9.0 3.75",
"2left        1.0 1.0 4.0 9.5   1.0 1.0 5.25 6.5",
"2right       5.0 1.0 8.0 9.5   6.25 1.0 10.5 6.5",
"3hi          1.0 7.0 7.6 9.0   1.0 5.5 9.0 7.5",
"3mid         1.0 4.0 7.6 6.0   1.0 3.0 9.0 5.0",
"3lo          1.0 1.0 7.6 3.0   1.0 0.5 9.0 2.5",
"4nw          1.0 6.0 4.0 9.0   1.0 4.0 5.25 7.0",
"4ne          4.5 6.0 7.5 9.0   6.25 4.0 10.5 7.0",
"4sw          1.0 1.5 4.0 4.5   1.0 0.5 5.25 3.5",
"4se          4.5 1.5 7.5 4.5   6.25 0.5 10.5 3.5",
"map          0.4 2.0 6.8 8.4   1.4 0.8 7.8 7.2",
"usamap       .5  5 8 9.5        .5  1 10.5 7",
"lifetab      1.0 1.0 7.0 4.5   1.5 1.0 7.5 4.5",
"nicetab      1.0 0.5 7.5 10    1.5 0.5 9.0 7.0",
"narrowtab    2.0 0.5 6.0 10    3.0 0.5 8.0 7.0",
"narrowleft   1.0 0.4 4.0 10.5  1.0 1.0 5.25 6.5",
"narrowright  5.0 0.4 8.0 10.5  6.25 1.0 10.5 6.5"
    } ;
int Nareas = 23;
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/areadef.g
Proc Page:
Title: Areadef Terminology

Proc Areadef:
Subtitle: Dwarf Productivity for Fiscal Year 1844
Area: standard
Xmax: 6
Ymax: 50
Yinc: 10
Ystub.minor: 10
Ystub.ticlen.minor: -0.1
Xstub:     Sleepy
    Doc
    Grumpy
    Dopey~(Absent)
    Sneezy

Xlabel: Dwarf Identification
Ylabel: Coal (tons/week)
Xstart.0or1: 1
Frame: double
Subtitle.above: 0.4
Ystub.grid: line



Proc Getdata:
Data:     15
    40
    47
    08
    26

Proc Bargraph:
Field: 1
Shade: 0.9


Proc Text:
Position:   1.65   9.46
Text: Subtitle

Proc Draw:
Points: 1.53 9.38 1.53 9.64
 2.36 9.64
 2.36 9.38
 1.53 9.38

Proc Arrow:
Points: 2.07 9.38 2.98 8.57

Proc Text:
Position:   1.67   3.07
Text: Xstubs (text)

Proc Draw:
Points: 1.53 3.01 1.53 3.25
 2.79 3.25
 2.79 3.01
 1.53 3.01

Proc Arrow:
Points: 2.77 3.15 3.98 3.33

Proc Arrow:
Points: 2.77 3.20 3.07 3.39

Proc Text:
Position:   0.48   7.41
Text: Ystubs
(num)


Proc Draw:
Points: 0.38 7.15 0.38 7.58
 0.97 7.58
 0.97 7.15
 0.38 7.15

Proc Arrow:
Points: 0.64 7.15 0.95 5.39

Proc Arrow:
Points: 0.62 7.15 0.93 6.31

Proc Text:
Position:   3.26   2.66
Text: Xlabel

Proc Draw:
Points: 3.15 2.60 3.15 2.80
 3.80 2.80
 3.80 2.60
 3.15 2.60

Proc Arrow:
Points: 3.76 2.74 4.28 2.89

Proc Text:
Position:   0.40   3.87
Text: Ylabel

Proc Draw:
Points: 0.27 3.81 0.27 4.04
 0.95 4.04
 0.95 3.81
 0.27 3.81

Proc Arrow:
Points: 0.66 4.09 0.56 4.51

Proc Text:
Position:   1.19   1.57
Text: Other parameters..
  Yinc\: 10
  Xinc\: 1
  Xstart.0or1\: 1
  Ystub.grid\: line

Proc Draw:
Points: 0.99 0.76 0.99 1.85
 2.87 1.85
 2.87 0.76
 0.99 0.76
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/areas.g
Proc Page:
Title: Predefined graphing areas-- click on your choice
Title.belowtop: 0.0

Proc Areadef:
Subtitle: whole
Subtitle.above: 0.1
Area.rectangle: 0.5 7 2.5 9.8
Xmax: 8.5
Ymax: 11
Xaxis: none
Yaxis: none
Frame: double
Saveas: A

# whole
Proc Polygon:
Rectangle: 1.2 1.0 7.4 9.0
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 3 7 5 9.8
Subtitle: standard

# standard
Proc Polygon:
Rectangle: 1.2 3.5 7.4 8.0
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 5.5 7 7.5 9.8
Subtitle: square

# square
Proc Polygon:
Rectangle: 1.2 2.0 7.2 8.0
Outline: y
Shade: 0.9
System: data

################################################

Proc Areadef:
Clone: A
Area.rectangle: 0.5 3.5 2.5 6.3
Subtitle: dist1 (for bars)

# dist1
Proc Polygon:
Rectangle: 1.2 6.5 7.2 8.0
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 3.0 3.5 5.0 6.3
Subtitle: 2hi and 2lo

# 2hi
Proc Polygon:
Rectangle: 1.0 6.0 7.6 9.5
Outline: y
Shade: 0.9
System: data

# 2lo
Proc Polygon:
Rectangle: 1.0 1.5 7.6 5.0
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 5.5 3.5 7.5 6.3
Subtitle: 2left and 2right

# 2left
Proc Polygon:
Rectangle: 1.0 1.0 4.0 9.5
Outline: y
Shade: 0.9
System: data

# 2right
Proc Polygon:
Rectangle: 5.0 1.0 8.0 9.5
Outline: y
Shade: 0.9
System: data

##################################################

Proc Areadef:
Clone: A
Area.rectangle: 0.5 0.2 2.5 3.0
Subtitle: 3hi, 3mid, 3lo

# 3hi
Proc Polygon:
Rectangle: 1.0 7.0 7.6 9.0
Outline: y
Shade: 0.9
System: data

# 3mid
Proc Polygon:
Rectangle: 1.0 4.0 7.6 6.0
Outline: y
Shade: 0.9
System: data

# 3lo
Proc Polygon:
Rectangle: 1.0 1.0 7.6 3.0
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 3.0 0.2 5.0 3.0
Subtitle: 4nw, 4ne, 4sw, 4se

# 4nw
Proc Polygon:
Rectangle: 1.0 6.0 4.0 9.0
Outline: y
Shade: 0.9
System: data

# 4ne
Proc Polygon:
Rectangle: 4.5 6.0 7.5 9.0
Outline: y
Shade: 0.9
System: data

# 4sw
Proc Polygon:
Rectangle: 1.0 1.5 4.0 4.5
Outline: y
Shade: 0.9
System: data

# 4se
Proc Polygon:
Rectangle: 4.5 1.5 7.5 4.5
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 5.5 0.2 7.5 3.0
Subtitle: lifetab

# lifetab
Proc Polygon:
Rectangle: 1.0 1.0 7.0 4.5
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 6.8 10.2 7.8 10.7
Subtitle: none
Subtitle.above: -0.2
Subtitle.justify: center
Shade: 0.98
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/areas2.g
Proc Page:
Paperway: landscape
Title: Predefined graphing areas-- click on your choice
Title.belowtop: 0.0

Proc Areadef:
Subtitle: whole
Subtitle.above: 0.1
Area.rectangle: 0.5 5.5 3.3 7.5
Xmax: 8.5
Ymax: 11
Xaxis: none
Yaxis: none
Frame: double
Saveas: A

# whole
Proc Polygon:
Rectangle: 1.2 1.0 7.4 9.0
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 4 5.5 6.8 7.5
Subtitle: standard

# standard
Proc Polygon:
Rectangle:  1.386     2.012     7.100     8.338
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 7.5 5.5 10.3 7.5
Subtitle: square

# square
Proc Polygon:
Rectangle: 1.646     0.619     6.136     10.038
Outline: y
Shade: 0.9
System: data


################################################

Proc Areadef:
Clone: A
Area.rectangle: 0.5 3 3.3 5
Subtitle: dist1 (for bars)

# dist1
Proc Polygon:
Rectangle: 1.2 6.5 7.2 8.0
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 4.0 3 6.8 5
Subtitle: 2hi and 2lo

# 2hi
Proc Polygon:
Rectangle: 1.0 6.0 7.6 9.5
Outline: y
Shade: 0.9
System: data

# 2lo
Proc Polygon:
Rectangle: 1.0 1.5 7.6 5.0
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 7.5 3 10.3 5
Subtitle: 2left and 2right

# 2left
Proc Polygon:
Rectangle: 1.0 1.0 4.0 9.5
Outline: y
Shade: 0.9
System: data

# 2right
Proc Polygon:
Rectangle: 5.0 1.0 8.0 9.5
Outline: y
Shade: 0.9
System: data

##################################################

Proc Areadef:
Clone: A
Area.rectangle: 0.5 0.5 3.3 2.5
Subtitle: 3hi, 3mid, 3lo

# 3hi
Proc Polygon:
Rectangle: 1.0 7.0 7.6 9.0
Outline: y
Shade: 0.9
System: data

# 3mid
Proc Polygon:
Rectangle: 1.0 4.0 7.6 6.0
Outline: y
Shade: 0.9
System: data

# 3lo
Proc Polygon:
Rectangle: 1.0 1.0 7.6 3.0
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 4.0 0.5 6.8 2.5
Subtitle: 4nw, 4ne, 4sw, 4se

# 4nw
Proc Polygon:
Rectangle: 1.0 6.0 4.0 9.0
Outline: y
Shade: 0.9
System: data

# 4ne
Proc Polygon:
Rectangle: 4.5 6.0 7.5 9.0
Outline: y
Shade: 0.9
System: data

# 4sw
Proc Polygon:
Rectangle: 1.0 1.5 4.0 4.5
Outline: y
Shade: 0.9
System: data

# 4se
Proc Polygon:
Rectangle: 4.5 1.5 7.5 4.5
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 7.5 0.5 10.3 2.5
Subtitle: lifetab

# lifetab
Proc Polygon:
Rectangle: 1.0 1.0 7.0 4.5
Outline: y
Shade: 0.9
System: data

Proc Areadef:
Clone: A
Area.rectangle: 9.2 7.8 10.2 8.3
Subtitle: none
Subtitle.above: -0.2
Subtitle.justify: center
Shade: 0.98
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/clear.g
Proc Page:

Proc Polygon:
Points: 0 0 8.5 11
Shade: 0.9
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/coms
!0
!6
!12
!18
!24
!30
!36
!42
!48
!54
!60
!66
!72
!78
!84
!90
!96
!102
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/comsclinics
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
42
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/comsvisits
!0
!6
!12
!18
!24
!30
!36
!42
!48
!54
!60
!66
!72
!78
!84
!90
!96
!102
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/dashsize.g
Proc Page:

Proc Legend:
Location: 6 9
Title: Pattern magnification
Entry:
    1
    2
    3
    4
    5
Entry.size: 12
Linetype: 3 3 3 3 3
Linetype.magnify: 1 2 3 4 5
Linethick: 1 1 1 1 1

SHAR_EOF
############################

cat << \SHAR_EOF > tplates/dashsize.mu
5.830  8.912  7.272  9.125 : 0 : 0
5.818  8.662  7.297  8.875 : 1 : 1
5.830  8.425  7.248  8.662 : 2 : 2
5.818  8.200  7.284  8.425 : 3 : 3
5.830  7.963  7.248  8.200 : 4 : 4
5.806  7.737  7.248  7.963 : 5 : 5
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/fonts.mu
7 6.7 11 7   : Helvetica: /Helvetica
7 6.4 11 6.7 : Helvetica Oblique: /Helvetica-Oblique
7 6.1 11 6.4 : Helvetica Bold: /Helvetica-Bold
7 5.8 11 6.1 : Helvetica Bold Oblique: /Helvetica-BoldOblique
7 5.5 11 5.8 : Times Roman: /Times-Roman
7 5.2 11 5.5 : Times Bold : /Times-Bold
7 4.9 11 5.2 : Times Italic: /Times-Italic
7 4.6 11 4.9 : Times Bold Italic : /Times-BoldItalic
7 4.3 11 4.6 : Courier : /Courier
7 4 11 4.3   : Courier Oblique : /Courier-Oblique
7 3.7 11 4   : Courier Bold : /Courier-Bold
7 3.4 11 3.7 : Courier Bold Oblique : /Courier-BoldOblique
7 3.1 11 3.4 : Helvetica Narrow : /Helvetica-Narrow
7 2.9 11 3.1 : Helvetica Narrow Oblique : /Helvetica-Narrow-Oblique
7 2.6 11 2.9 : Helvetica Narrow Bold : /Helvetica-Narrow-Bold
7 2.3 11 2.6 : Helvetica Narrow Bold Oblique: /Helvetica-Narrow-BoldOblique
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/gallery.g
Proc Page:
Title: IPL 1.0   Available types of plots
Title.belowtop: 0.0

Proc Areadef:
Area.rectangle: 0.5 8 2.5 10
Subtitle: Distribution (2-way)
Xmax: 10
Xmin: 0
Ymax: 10
Ymin: 0
Xaxis: none
Yaxis: none
Frame: double
Subtitle.above: 0.08
Saveas: A

Proc Getdata:
Data: 5 5
0.922     1.562
2.572     1.250
2.083     2.500
2.572     4.250
3.428     4.813
3.611     4.500
5.017     4.938
5.689     6.688
5.811     6.063
5.933     6.000
7.461     5.250
8.072     5.625

Proc Distribution:
Xfield: 1
Yfield: 2
Mark: sym6e

Proc Getdata:
Data:
7.583     6.875
8.439     7.938
8.500     9.313
5.689     3.563
5.567     5.125
5.200     3.937
5.139     4.562
4.528     3.688
4.467     3.063
4.467     3.625
6.483     1.125

Proc Distribution:
Xfield: 1
Yfield: 2
Mark: sym1n
Mark.size: 12

Proc Getdata:
Data:    2 2 FB-1
    2 7 FB-2
    2 8.1 FB-3
    2 9 FB-4

Proc Distribution:
Xfield: 1
Yfield: 2
Mark.field: 3
Mark:

Proc Areadef:
Clone: A
Area.rectangle: 3.0 8 5.0 10
Subtitle: Lineplot

Proc Getdata:
Data:     0.522     2.188
    3.089     5.312
    4.311     3.750
    6.511     6.813
    8.406     5.625

Proc Lineplot:
Xfield: 1
Yfield: 2
Linetype: 1

Proc Getdata:
Data:    0.400     1.188     0.3
    2.844     2.562     2.2
    6.206     1.562     1.2
    8.344     3.312     2.4
Proc Lineplot:
Xfield: 1
Yfield: 2
Linetype: 0
Shade: 0.9
Proc Lineplot:
Xfield: 1
Yfield: 3
Linetype: 0
Shade: 1.0

Proc Getdata:
Data:
    0.5   6
    4  7
    7  7.5
    9  9
Proc Lineplot:
Xfield: 1
Yfield: 2
Stairstep: y

Proc Areadef:
Clone: A
Area.rectangle: 5.5 8 7.5 10
Subtitle: Bargraph

Proc Getdata:
Data:     7
    3
    6
    2
    3
    5
    9
    4

Proc Bargraph:
Field: 1

Proc Areadef:
Clone: A
Area.rectangle: 0.5 5.5 2.5 7.5
Subtitle: Map
Xmax: 40
Ymax: 40

Proc Map:
Mode: state

Proc Areadef:
Clone: A
Area.rectangle: 3.0 5.5 5.0 7.5
Subtitle: Pie

Proc Getdata:
Data:     12
    16
    22
    10
    17
    4
    19


Proc Pie:
Field: 1
Center: 4.0 6.5
Radius: 0.8
Shade: 0.95 0.9 0.85 0.8 0.7


Proc Areadef:
Clone: A
Area.rectangle: 5.5 5.5 7.5 7.5
Subtitle: Rangebar (error bars)
Xmax: 10
Ymax: 100

Proc Getdata:
Data: 225 33 44 55 66 77 2.3 1
      220 35 40 50 60 66 3   2
      220 38 44 52 64 70 4.5 3

Proc Rangebar:
Nval: 5
Field: 2 3 4 5 6


Proc Getdata:
Data:
    4  15 50 50 80  0   0
    5  40 70 70 90  0   0
    6  10 29 29  46 46  80

Proc Rangebar:
Nval: 2
Field: 2 3
Xfield: 1
Shade: 0.6

Proc Rangebar:
Nval: 2
Field: 4 5
Xfield: 1
Shade: 0.9

Proc Rangebar:
Nval: 2
Field: 6 7
Xfield: 1
Shade: 0.5

Proc Getdata:
Data:    7 50 3
    8 60 4
    9 40 5

Proc Errorbars:
Xfield: 1
Yfield: 2
Errfield: 3

Proc Areadef:
Clone: A
Area.rectangle: 0.5 3.0 2.5 5.0
Subtitle: Vbargraph

Proc Getdata:
Data:     7 6
    3 2
    6 5
    2 1
    3 2
    5 4
    9 8
    4 3

Proc Vbargraph:
Field: 1 2

Proc Areadef:
Clone: A
Area.rectangle: 3.0 3.0 5.0 5.0
Subtitle: Vector
Xmax: 100
Ymax: 100

Proc Getdata:
Data:
87.722    13.125    33.944    23.750
73.667    8.750     21.111    11.250
65.111    26.250    35.167    36.875
51.667    36.250    18.667    79.375
35.167    15.625    4.611     93.750

Proc Vector:
Point1fields: 1 2
Point2fields: 3 4
Headlength: 0.1
Headwidth: 0.25

Proc Areadef:
Clone: A
Area.rectangle: 5.5 3.0 7.5 5.0
Subtitle: Distribution (1-way)

Proc Areadef:
Clone: A
Area.rectangle: 5.5 4.2 7.5 4.7
Subtitle:

Proc Getdata:
Data:     1.3
    1.6
    1.8
    2.4
    3.2
    7.6
    7.8
    1
    2
    3
    4
    5
    6
    8
    9

Proc Distribution:
Xfield: 1

Proc Areadef:
Clone: A
Area.rectangle: 0.5 0.5 2.5 2.5
Subtitle: Legend

Proc Legend:
Corner: A
Entry:
    symbol# sym1n
    symbol# sym2n
    symbol# sym3n
    symbol# sym4n
    symbol# sym5n
Mark:    sym1n sym2n sym3n sym4n sym5n
Mark.size: 8

Proc Areadef:
Clone: A
Area.rectangle: 3.0 0.5 5.0 2.5
Subtitle: Vrangebar (timeline)
Xmax: 100
Ymax: 7

Proc Getdata:
Data: 225 33 44 55 66 77 2.3 1
      220 35 40 50 60 66 3   2
      220 38 44 52 64 70 4.5 3

Proc Vrangebar:
Nval: 5
Field: 2 3 4 5 6


Proc Getdata:
Data:
    4  15 50 50 80  0   0
    5  40 70 70 90  0   0
    6  10 29 29  46 46  80

Proc Vrangebar:
Nval: 2
Field: 2 3
Yfield: 1
Shade: 0.6

Proc Vrangebar:
Nval: 2
Field: 4 5
Yfield: 1
Shade: 0.9

Proc Vrangebar:
Nval: 2
Field: 6 7
Yfield: 1
Shade: 0.5

Proc Areadef:
Clone: A
Area.rectangle: 5.5 2.2 7.5 2.5
Subtitle: Text annotation
Subtitle.above: -0.2
Subtitle.justify: center

Proc Areadef:
Clone: A
Area.rectangle: 5.5 1.9 7.5 2.2
Subtitle: Boxes
Subtitle.above: -0.2
Subtitle.justify: center

Proc Areadef:
Clone: A
Area.rectangle: 5.5 1.6 7.5 1.9
Subtitle: Arrows
Subtitle.above: -0.2
Subtitle.justify: center

Proc Areadef:
Clone: A
Area.rectangle: 5.5 1.3 7.5 1.6
Subtitle: Lines
Subtitle.above: -0.2
Subtitle.justify: center

Proc Areadef:
Clone: A
Area.rectangle: 5.5 1.0 7.5 1.3
Subtitle: Tables
Subtitle.above: -0.2
Subtitle.justify: center


Proc Areadef:
Clone: A
Area.rectangle: 5.5 0.7 7.5 1.0
Subtitle: Combinations
Subtitle.above: -0.2
Subtitle.justify: center

Proc Areadef:
Clone: A
Area.rectangle: 5.5 0.4 7.5 0.7
Subtitle: Misc
Subtitle.above: -0.2
Subtitle.justify: center

SHAR_EOF
############################

cat << \SHAR_EOF > tplates/lineparm.g
Proc Page:

Proc Legend:
Location: 6 9
Title: Pattern magnification
Entry:
    1
    2
    3
    4
    5
Entry.size: 12
Linetype: 3 3 3 3 3
Linetype.magnify: 1 2 3 4 5
Linethick: 1 1 1 1 1


Proc Legend:
Location: 6 9
Title: Line thicknesses
Entry:
0.2
0.4
0.6
0.8
1
1.5
2
2.5
3
4
Entry.size: 12
Linetype: 0 0 0 0 0 0 0 0 0 0
Linetype.magnify: 3 3 3 3 3 3 3 3 3 3
Linethick: 0.2 0.4 0.6 0.8 1 1.5 2 2.5 3 4

SHAR_EOF
############################

cat << \SHAR_EOF > tplates/linethick.g
Proc Page:

Proc Legend:
Location: 6 9
Title: Line thicknesses
Entry:
0.2
0.4
0.6
0.8
1
1.5
2
2.5
3
4
Entry.size: 12
Linetype: 0 0 0 0 0 0 0 0 0 0
Linetype.magnify: 3 3 3 3 3 3 3 3 3 3
Linethick: 0.2 0.4 0.6 0.8 1 1.5 2 2.5 3 4

SHAR_EOF
############################

cat << \SHAR_EOF > tplates/linethick.mu
5.830  8.912  7.272  9.125 : 0 : 0.2
5.818  8.662  7.297  8.875 : 0.4 : 0.4
5.830  8.425  7.248  8.662 : 0.6 : 0.6
5.818  8.200  7.284  8.425 : 0.8 : 0.8
5.830  7.963  7.248  8.200 : 1 : 1
5.806  7.737  7.248  7.963 : 1.5 : 1.5
5.818  7.500  7.223  7.750 : 2 : 2
5.781  7.263  7.187  7.487 : 2.5 : 2.5
5.830  7.025  7.187  7.250 : 3 : 3
5.781  6.812  7.187  7.025 : 4 : 4
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/linetype.g
Proc Page:

Proc Legend:
Location: 6 9
Title:  Linetype numbers
Entry:
    0
    1
    2
    3
    4
    5
    6
    7
    8
    9
Entry.size: 12
Linetype: 0 1 2 3 4 5 6 7 8 9
Linetype.magnify: 3 3 3 3 3 3 3 3 3 3
Linethick: 1 1 1 1 1 1 1 1 1 1

SHAR_EOF
############################

cat << \SHAR_EOF > tplates/linetype.mu
5.830  8.912  7.272  9.125 : 0 : 0
5.818  8.662  7.297  8.875 : 1 : 1
5.830  8.425  7.248  8.662 : 2 : 2
5.818  8.200  7.284  8.425 : 3 : 3
5.830  7.963  7.248  8.200 : 4 : 4
5.806  7.737  7.248  7.963 : 5 : 5
5.818  7.500  7.223  7.750 : 6 : 6
5.781  7.263  7.187  7.487 : 7 : 7
5.830  7.025  7.187  7.250 : 8 : 8
5.781  6.812  7.187  7.025 : 9 : 9
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/log1
!1
!2
!3
!4
!5
!6
!7
!8
!9
!10
!20
!30
!40
!50
!60
!70
!80
!90
!100
!200
!300
!400
!500
!600
!700
!800
!900
!1000
!2000
!3000
!4000
!5000
!6000
!7000
!8000
!9000
!10000
!20000
!30000
!40000
!50000
!60000
!70000
!80000
!90000
!100000
!200000
!300000
!400000
!500000
!600000
!700000
!800000
!900000
!1000000
!2000000
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/month.stubs

J~1970
F
M
A
M
J
J
A
S
O
N
D
J~1971
F
M
A
M
J
J
A
S
O
N
D
J~1972
F
M
A
M
J
J
A
S
O
N
D
J~1973
F
M
A
M
J
J
A
S
O
N
D
J~1974
F
M
A
M
J
J
A
S
O
N
D
J~1975
F
M
A
M
J
J
A
S
O
N
D
J~1976
F
M
A
M
J
J
A
S
O
N
D
J~1977
F
M
A
M
J
J
A
S
O
N
D
J~1978
F
M
A
M
J
J
A
S
O
N
D
J~1979
F
M
A
M
J
J
A
S
O
N
D
J~1980
F
M
A
M
J
J
A
S
O
N
D
J~1981
F
M
A
M
J
J
A
S
O
N
D
J~1982
F
M
A
M
J
J
A
S
O
N
D
J~1983
F
M
A
M
J
J
A
S
O
N
D
J~1984
F
M
A
M
J
J
A
S
O
N
D
J~1985
F
M
A
M
J
J
A
S
O
N
D
J~1986
F
M
A
M
J
J
A
S
O
N
D
J~1987
F
M
A
M
J
J
A
S
O
N
D
J~1988
F
M
A
M
J
J
A
S
O
N
D
J~1989
F
M
A
M
J
J
A
S
O
N
D
J~1990
F
M
A
M
J
J
A
S
O
N
D
J~1991
F
M
A
M
J
J
A
S
O
N
D
J~1992
F
M
A
M
J
J
A
S
O
N
D
J~1993
F
M
A
M
J
J
A
S
O
N
D
J~1994
F
M
A
M
J
J
A
S
O
N
D
J~1995
F
M
A
M
J
J
A
S
O
N
D
J~1996
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/mps
!0
!3
!6
!12
!18
!24
!30
!36
!42
!48
!54
!60






SHAR_EOF
############################

cat << \SHAR_EOF > tplates/mpsclinics
01
02
04
05
06
07
08
09
10
11
12
13
14
15
16
SHAR_EOF
############################

cat << \SHAR_EOF > tplates/mpsvisits
!0
!3
!6
!12
!18
!24
!30
!36
!42
!48
!54
!60






SHAR_EOF
############################

cat << \SHAR_EOF > tplates/viplstartup.g
Proc Page:

Proc Text:
Position: 2 10.5
Text:    VIPL -- IPL Version 1.0

      This is a utility for interactively adding
    text annotations, lines, arrows, etc. to an
    existing IPL control file.  These annotations
    will be added with basic, default attributes.
    You will get a chance to re-do at every step.
    Things like typesize, font, and line attributes
    can be changed by editing the IPL control file
    that is produced.  The following are available:

    Text\: Adds 10-point text at a location pointed
    to by the mouse.  No limit to number of lines.

    Arrow\: Draws an arrow between two points given
    with the mouse.

    Line\: Draws a solid line between two points given
    with the mouse.  Line can be constrained to
    horizontal only, vertical only, or unconstrained.

    Box\: Draws a solid-line box.  The user must define
    the lower-left and the upper-right corners of the
    box with the mouse.  If you are drawing a box around
    text, do the text first, and remember that text
    placement is not exactly equivalent to Postscript.

    Bullet\: Places a bullet at the pointed-to location.

    Set_parms\: This is where you set things like text
    size, font, line dashing and thickness.  Values
    remain in effect until changed again.

    Datapoint\: This is a handy way to use the mouse for
    data entry, and to access the Cartesian coordinates
    of the mouse location.  The coordinates can
    optionally be dumped into a file.  Use the left
    mouse button to enter points; pressing the right
    button sends you back to the main menu.  If a
    graphics area has been set up, coordinates will be
    in data units-- otherwise they will be in absolute
    units, i.e. inches from the lower-left corner.

    Print\: This will send a postscript image of what
    you have done so far to your laser printer.  It
    does not save or re-save the control file.

    Redraw\: This redraws the image.

    Quit\: From here you can either 1) save the new IPL
    file under a different name; 2) re-save under the
    original file name; or 3) quit without saving.

Proc Draw:
Points: 1.45 2.55 1.45 10.69
 6.62 10.69
 6.62 2.55
 1.45 2.55
SHAR_EOF
############################