v21i033: 2D graphic system with table beautifier, Part02/14
Rich Salz
rsalz at uunet.uu.net
Sat Mar 24 06:18:16 AEST 1990
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
############################
--
Please send comp.sources.unix-related mail to rsalz at uunet.uu.net.
Use a domain-based address or give alternate paths, or you may lose out.
More information about the Comp.sources.unix
mailing list