Amiga-Request@cs.odu.edu (Amiga Sources/Binaries Moderator) (03/07/90)
Submitted-by: fullmer@alfalfa.sps.mot.com (Glen Fullmer)
Posting-number: Volume 90, Issue 100
Archive-name: applications/ifs-1.4/part01
IFSOUT graphically displays iterated function systems and allows the
user to interactively create the affine functions that define such
systems. An IFS can represent complex pictures very compactly. Simple
IFSs can describe an infinite number of different and interesting fractal
displays. Some of these pictures are remenicent of plants, ferns,
bushes, trees, snails, shells, sunsets and other natural objects, plus
a number of other interesting patterns. Included with the program are a
number of displays that the author and others have discovered. These are in
a directory named coors.
#!/bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of archive 1 (of 3)."
# Contents: README coors coors/S.coors coors/arrowhead.coors
# coors/barbwire.coors coors/beak.coors coors/bough.coors
# coors/bough2.coors coors/bough3.coors coors/bough5.coors
# coors/boxedin.coors coors/branch.coors coors/brightstar.coors
# coors/brokenpillar.coors coors/brokentriangle.coors
# coors/castle.coors coors/circleoflife.coors coors/clamped.coors
# coors/claw.coors coors/claw2.coors coors/cliffs.coors
# coors/cluster.coors coors/cluster2.coors coors/coast.coors
# coors/cosmos.coors coors/crisscross.coors coors/crosses.coors
# coors/crossfrost.coors coors/curlique.coors coors/diamond.coors
# coors/dna.coors coors/dthedrain.coors coors/dthedrain2.coors
# coors/elephanthead.coors coors/facuet.coors coors/fern.coors
# coors/fishy.coors coors/flab.coors coors/flames.coors
# coors/flowers.coors coors/fluff.coors coors/fuzzycomb.coors
# coors/fuzzycomet.coors coors/fuzzyfern.coors coors/fuzzyglen.coors
# coors/glen.coors coors/grain.coors coors/gwhiz.coors
# coors/heehee.coors coors/hexaflower.coors coors/hrail.coors
# coors/icespikes.coors coors/inferno.coors coors/ivy.coors
# coors/juniper.coors coors/loopdloop.coors coors/mold.coors
# coors/mold2.coors coors/mtfuji.coors coors/mum.coors
# coors/oilydolie.coors coors/pentaplex.coors coors/pow.coors
# coors/rottencore.coors coors/scull.coors coors/shreads.coors
# coors/sier.coors coors/skidmarks.coors coors/slugluv.coors
# coors/smallflower.coors coors/snail.coors coors/snake.coors
# coors/spicircle.coors coors/spicircle2.coors coors/spiral.coors
# coors/spiral2.coors coors/spirarex.coors coors/spiraspira.coors
# coors/splotch.coors coors/spruce.coors coors/spurs.coors
# coors/sqbush.coors coors/star.coors coors/starwheel.coors
# coors/stinger.coors coors/sunset.coors coors/surrounded.coors
# coors/swash.coors coors/swirlbush.coors coors/tenboxes.coors
# coors/texas.coors coors/thehook.coors coors/thewave.coors
# coors/threev.coors coors/tidalwave.coors coors/tree.coors
# coors/treebranch.coors coors/triangle.coors
# coors/twistandshot.coors coors/twisty.coors coors/uee.coors
# coors/waterwheel.coors coors/wheat.coors coors/wheel.coors source
# source.info.uu source/buglist source/getfile.h source/ifs.h
# source/safeclose.c source/safeclose.h source/standard.h
# Wrapped by tadguy@xanth on Tue Mar 6 17:37:51 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'README'\"
else
echo shar: Extracting \"'README'\" \(2120 characters\)
sed "s/^X//" >'README' <<'END_OF_FILE'
X
X AMIGA IFSOUT Version 1.4
X
X An Iterated Function System Viewer
X
XIFSOUT graphically displays iterated function systems and allows the
Xuser to interactively create the affine functions that define such
Xsystems. An IFS can represent complex pictures very compactly. Simple
XIFSs can describe an infinite number of different and interesting fractal
Xdisplays. Some of these pictures are remenicent of plants, ferns,
Xbushes, trees, snails, shells, sunsets and other natural objects, plus
Xa number of other interesting patterns. Included with the program are a
Xnumber of displays that the author and others have discovered. These are in
Xa directory named coors.
X
XTo get your own copy:
X
X1. Do an unshar on these submissions (2) or copy them to a file and run sh
X against them.
X
X2. You will end up with two .zuua* files. Concatenate them with join or cat.
X (i.e. cat ifsbin.zuua* > ifsbin.zuu)
X
X3. Run uudecode against the concatenated file from previous step.
X (i.e. uudecode ifsbin.zuu)
X
X4. You will end up with a .zoo file. Find a directory with at least 200k of
X storage (170k for binaries only). Cd to that directory. It would be
X ideal if it is a root directory.
X
X5. Extract the files with Zoo. Use the x.// option to get it to create the
X needed directories. (e.g. zoo -x.// ifssrc.zoo)
X
X6. PLEASE READ THE ifsout.doc FILE FOR COMPLETE INSTRUCTIONS.
X
X
XAll of these submissions are in the Public Domain. I tried shareware with
Xno results, however, if you need to send me money, send it to:
X
X Glen Fullmer
X Software Glen Co.
X 9605 S. 48th St. #1059
X Phoenix, AZ
X
X
XI would also like to hear from you if you find any new and interesting
XIFSs. My email address is fullmer@alfalfa.sps.mot.com.
X
X ___ _ "For a successful technology, reality must take precedence"
X{__/ // "over public relations, for Nature cannot be fooled."
X \ // _ ___ Dick Feynman, Appendix F of Shuttle Disaster Report
X{__/ </_</_// <_ fullmer@sps.mot.com sun!sunburn!motsps!fullmer
X
X
X
X
X
X
X
X
X
X
END_OF_FILE
if test 2120 -ne `wc -c <'README'`; then
echo shar: \"'README'\" unpacked with wrong size!
fi
# end of 'README'
fi
if test ! -d 'coors' ; then
echo shar: Creating directory \"'coors'\"
mkdir 'coors'
fi
if test -f 'coors/S.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/S.coors'\"
else
echo shar: Extracting \"'coors/S.coors'\" \(163 characters\)
sed "s/^X//" >'coors/S.coors' <<'END_OF_FILE'
X2 281 277 0.296191
X-0.35 0.00 0.00 -0.35 -1.00 -1.00 0.20 3472
X-0.35 0.00 0.00 -0.35 2.00 -1.00 0.40 1665
X 0.50 -0.25 0.35 0.75 0.00 -0.25 1.00 3954
END_OF_FILE
if test 163 -ne `wc -c <'coors/S.coors'`; then
echo shar: \"'coors/S.coors'\" unpacked with wrong size!
fi
# end of 'coors/S.coors'
fi
if test -f 'coors/arrowhead.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/arrowhead.coors'\"
else
echo shar: Extracting \"'coors/arrowhead.coors'\" \(115 characters\)
sed "s/^X//" >'coors/arrowhead.coors' <<'END_OF_FILE'
X1 342 191 0.190408
X-0.28 -0.03 -0.09 -0.88 -0.22 0.33 0.50 2381
X-0.01 0.60 0.86 -0.10 -0.38 -0.92 1.00 3871
END_OF_FILE
if test 115 -ne `wc -c <'coors/arrowhead.coors'`; then
echo shar: \"'coors/arrowhead.coors'\" unpacked with wrong size!
fi
# end of 'coors/arrowhead.coors'
fi
if test -f 'coors/barbwire.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/barbwire.coors'\"
else
echo shar: Extracting \"'coors/barbwire.coors'\" \(127 characters\)
sed "s/^X//" >'coors/barbwire.coors' <<'END_OF_FILE'
X1 307 109 0.397931
X-0.463 -0.425 0.220 -0.600 0.338 0.240 0.500 2973
X-0.338 0.475 0.570 0.500 0.556 0.320 1.000 2047
END_OF_FILE
if test 127 -ne `wc -c <'coors/barbwire.coors'`; then
echo shar: \"'coors/barbwire.coors'\" unpacked with wrong size!
fi
# end of 'coors/barbwire.coors'
fi
if test -f 'coors/beak.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/beak.coors'\"
else
echo shar: Extracting \"'coors/beak.coors'\" \(125 characters\)
sed "s/^X//" >'coors/beak.coors' <<'END_OF_FILE'
X1 96 52 0.227012
X 0.202 1.000 1.105 -0.651 0.824 1.000 0.500 3350
X 0.398 -0.003 0.321 0.295 -0.318 0.000 1.000 3909
END_OF_FILE
if test 125 -ne `wc -c <'coors/beak.coors'`; then
echo shar: \"'coors/beak.coors'\" unpacked with wrong size!
fi
# end of 'coors/beak.coors'
fi
if test -f 'coors/bough.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/bough.coors'\"
else
echo shar: Extracting \"'coors/bough.coors'\" \(127 characters\)
sed "s/^X//" >'coors/bough.coors' <<'END_OF_FILE'
X1 577 207 2.167948
X 0.602 0.000 0.006 0.596 0.006 0.000 0.496 3648
X 0.604 -0.603 0.604 0.604 -0.202 0.200 1.000 4001
END_OF_FILE
if test 127 -ne `wc -c <'coors/bough.coors'`; then
echo shar: \"'coors/bough.coors'\" unpacked with wrong size!
fi
# end of 'coors/bough.coors'
fi
if test -f 'coors/bough2.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/bough2.coors'\"
else
echo shar: Extracting \"'coors/bough2.coors'\" \(127 characters\)
sed "s/^X//" >'coors/bough2.coors' <<'END_OF_FILE'
X1 577 207 2.167948
X 0.602 0.000 0.006 0.596 0.006 0.000 0.496 3648
X 0.521 -0.479 0.530 0.480 -0.250 0.170 1.000 4001
END_OF_FILE
if test 127 -ne `wc -c <'coors/bough2.coors'`; then
echo shar: \"'coors/bough2.coors'\" unpacked with wrong size!
fi
# end of 'coors/bough2.coors'
fi
if test -f 'coors/bough3.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/bough3.coors'\"
else
echo shar: Extracting \"'coors/bough3.coors'\" \(125 characters\)
sed "s/^X//" >'coors/bough3.coors' <<'END_OF_FILE'
X1 356 339 0.191135
X-0.019 0.419 0.920 -0.050 0.181 -0.020 0.500 441
X-0.619 0.544 0.420 0.650 -0.050 -0.960 1.000 743
END_OF_FILE
if test 125 -ne `wc -c <'coors/bough3.coors'`; then
echo shar: \"'coors/bough3.coors'\" unpacked with wrong size!
fi
# end of 'coors/bough3.coors'
fi
if test -f 'coors/bough5.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/bough5.coors'\"
else
echo shar: Extracting \"'coors/bough5.coors'\" \(127 characters\)
sed "s/^X//" >'coors/bough5.coors' <<'END_OF_FILE'
X1 577 207 2.167948
X 0.602 0.000 0.006 0.596 0.006 0.000 0.496 3648
X 0.521 -0.479 0.530 0.480 -0.250 0.170 1.000 4001
END_OF_FILE
if test 127 -ne `wc -c <'coors/bough5.coors'`; then
echo shar: \"'coors/bough5.coors'\" unpacked with wrong size!
fi
# end of 'coors/bough5.coors'
fi
if test -f 'coors/boxedin.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/boxedin.coors'\"
else
echo shar: Extracting \"'coors/boxedin.coors'\" \(233 characters\)
sed "s/^X//" >'coors/boxedin.coors' <<'END_OF_FILE'
X3 216 95 0.509470
X 0.300 -0.000 0.000 0.320 0.369 0.420 0.250 3160
X 0.006 0.463 -0.420 -0.000 0.712 1.250 0.500 689
X-0.000 -0.494 0.540 0.000 0.319 -0.180 0.750 2314
X 0.469 -0.000 0.010 0.440 -0.194 0.790 1.005 3939
END_OF_FILE
if test 233 -ne `wc -c <'coors/boxedin.coors'`; then
echo shar: \"'coors/boxedin.coors'\" unpacked with wrong size!
fi
# end of 'coors/boxedin.coors'
fi
if test -f 'coors/branch.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/branch.coors'\"
else
echo shar: Extracting \"'coors/branch.coors'\" \(162 characters\)
sed "s/^X//" >'coors/branch.coors' <<'END_OF_FILE'
X2 359 206 0.286504
X-0.50 -0.25 -0.25 0.75 -0.50 -0.50 0.33 192
X 0.50 0.00 0.00 0.50 0.00 0.00 0.67 1697
X-0.50 0.00 0.00 0.50 -0.25 0.75 1.00 3202
END_OF_FILE
if test 162 -ne `wc -c <'coors/branch.coors'`; then
echo shar: \"'coors/branch.coors'\" unpacked with wrong size!
fi
# end of 'coors/branch.coors'
fi
if test -f 'coors/brightstar.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/brightstar.coors'\"
else
echo shar: Extracting \"'coors/brightstar.coors'\" \(115 characters\)
sed "s/^X//" >'coors/brightstar.coors' <<'END_OF_FILE'
X1 264 284 0.615307
X 0.00 1.01 -0.86 0.61 0.38 0.00 0.50 3481
X 0.75 0.43 -0.05 0.63 0.38 0.00 1.00 3111
END_OF_FILE
if test 115 -ne `wc -c <'coors/brightstar.coors'`; then
echo shar: \"'coors/brightstar.coors'\" unpacked with wrong size!
fi
# end of 'coors/brightstar.coors'
fi
if test -f 'coors/brokenpillar.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/brokenpillar.coors'\"
else
echo shar: Extracting \"'coors/brokenpillar.coors'\" \(115 characters\)
sed "s/^X//" >'coors/brokenpillar.coors' <<'END_OF_FILE'
X1 404 133 0.124091
X 0.35 -0.76 -0.82 -0.57 -0.39 1.34 0.66 3779
X 0.40 0.00 0.30 -0.32 0.32 0.00 1.00 3203
END_OF_FILE
if test 115 -ne `wc -c <'coors/brokenpillar.coors'`; then
echo shar: \"'coors/brokenpillar.coors'\" unpacked with wrong size!
fi
# end of 'coors/brokenpillar.coors'
fi
if test -f 'coors/brokentriangle.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/brokentriangle.coors'\"
else
echo shar: Extracting \"'coors/brokentriangle.coors'\" \(115 characters\)
sed "s/^X//" >'coors/brokentriangle.coors' <<'END_OF_FILE'
X1 254 131 0.393815
X 0.15 0.59 0.76 -0.10 0.48 0.42 0.50 3430
X 0.65 0.06 -0.15 -0.67 -0.35 0.62 1.00 3109
END_OF_FILE
if test 115 -ne `wc -c <'coors/brokentriangle.coors'`; then
echo shar: \"'coors/brokentriangle.coors'\" unpacked with wrong size!
fi
# end of 'coors/brokentriangle.coors'
fi
if test -f 'coors/castle.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/castle.coors'\"
else
echo shar: Extracting \"'coors/castle.coors'\" \(232 characters\)
sed "s/^X//" >'coors/castle.coors' <<'END_OF_FILE'
X3 30 53 0.379626
X 0.504 0.000 -0.003 0.504 -0.003 0.000 0.277 3399
X 0.504 0.006 0.006 0.504 2.000 0.000 0.500 859
X 0.400 0.000 0.000 0.400 0.000 1.000 0.750 2415
X 0.504 0.000 0.000 0.504 2.000 1.000 1.000 3971
END_OF_FILE
if test 232 -ne `wc -c <'coors/castle.coors'`; then
echo shar: \"'coors/castle.coors'\" unpacked with wrong size!
fi
# end of 'coors/castle.coors'
fi
if test -f 'coors/circleoflife.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/circleoflife.coors'\"
else
echo shar: Extracting \"'coors/circleoflife.coors'\" \(116 characters\)
sed "s/^X//" >'coors/circleoflife.coors' <<'END_OF_FILE'
X1 333 -400 1.291646
X-0.49 0.69 -0.95 -0.70 -0.73 2.00 0.98 3738
X 0.25 0.00 0.00 0.25 0.09 0.57 0.36 2077
END_OF_FILE
if test 116 -ne `wc -c <'coors/circleoflife.coors'`; then
echo shar: \"'coors/circleoflife.coors'\" unpacked with wrong size!
fi
# end of 'coors/circleoflife.coors'
fi
if test -f 'coors/clamped.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/clamped.coors'\"
else
echo shar: Extracting \"'coors/clamped.coors'\" \(179 characters\)
sed "s/^X//" >'coors/clamped.coors' <<'END_OF_FILE'
X2 184 84 0.846724
X 1.000 -0.185 -0.301 0.560 0.541 0.000 0.226 2072
X 0.379 -0.346 0.370 0.170 -0.010 0.000 0.667 3377
X 0.338 -0.275 0.270 0.500 0.050 0.430 1.000 586
END_OF_FILE
if test 179 -ne `wc -c <'coors/clamped.coors'`; then
echo shar: \"'coors/clamped.coors'\" unpacked with wrong size!
fi
# end of 'coors/clamped.coors'
fi
if test -f 'coors/claw.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/claw.coors'\"
else
echo shar: Extracting \"'coors/claw.coors'\" \(127 characters\)
sed "s/^X//" >'coors/claw.coors' <<'END_OF_FILE'
X1 451 175 0.174517
X 0.602 0.457 -0.429 0.696 -0.940 0.176 0.500 3758
X 0.773 -0.088 0.000 -0.702 -0.923 0.000 1.000 3925
END_OF_FILE
if test 127 -ne `wc -c <'coors/claw.coors'`; then
echo shar: \"'coors/claw.coors'\" unpacked with wrong size!
fi
# end of 'coors/claw.coors'
fi
if test -f 'coors/claw2.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/claw2.coors'\"
else
echo shar: Extracting \"'coors/claw2.coors'\" \(125 characters\)
sed "s/^X//" >'coors/claw2.coors' <<'END_OF_FILE'
X1 591 197 0.447938
X 0.544 0.544 -0.310 0.420 -0.744 0.090 0.500 3173
X 0.606 0.556 0.200 -0.760 -0.756 0.070 1.000 47
END_OF_FILE
if test 125 -ne `wc -c <'coors/claw2.coors'`; then
echo shar: \"'coors/claw2.coors'\" unpacked with wrong size!
fi
# end of 'coors/claw2.coors'
fi
if test -f 'coors/cliffs.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/cliffs.coors'\"
else
echo shar: Extracting \"'coors/cliffs.coors'\" \(162 characters\)
sed "s/^X//" >'coors/cliffs.coors' <<'END_OF_FILE'
X2 207 328 0.208331
X 0.00 -0.60 -0.60 0.00 0.40 -0.40 0.33 348
X 0.60 0.00 0.00 0.20 0.40 0.20 0.67 2185
X 0.20 0.00 0.00 1.00 0.00 -0.40 1.00 4022
END_OF_FILE
if test 162 -ne `wc -c <'coors/cliffs.coors'`; then
echo shar: \"'coors/cliffs.coors'\" unpacked with wrong size!
fi
# end of 'coors/cliffs.coors'
fi
if test -f 'coors/cluster.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/cluster.coors'\"
else
echo shar: Extracting \"'coors/cluster.coors'\" \(125 characters\)
sed "s/^X//" >'coors/cluster.coors' <<'END_OF_FILE'
X1 9 244 0.677698
X 0.600 -0.200 0.000 -0.600 0.200 0.000 0.500 3604
X 0.800 0.000 0.200 0.600 0.400 -0.600 1.000 2393
END_OF_FILE
if test 125 -ne `wc -c <'coors/cluster.coors'`; then
echo shar: \"'coors/cluster.coors'\" unpacked with wrong size!
fi
# end of 'coors/cluster.coors'
fi
if test -f 'coors/cluster2.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/cluster2.coors'\"
else
echo shar: Extracting \"'coors/cluster2.coors'\" \(128 characters\)
sed "s/^X//" >'coors/cluster2.coors' <<'END_OF_FILE'
X1 -108 229 0.532708
X 0.600 -0.200 0.000 -0.600 0.200 0.000 0.500 2059
X 0.800 0.000 0.200 0.600 0.788 -0.610 1.000 4019
END_OF_FILE
if test 128 -ne `wc -c <'coors/cluster2.coors'`; then
echo shar: \"'coors/cluster2.coors'\" unpacked with wrong size!
fi
# end of 'coors/cluster2.coors'
fi
if test -f 'coors/coast.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/coast.coors'\"
else
echo shar: Extracting \"'coors/coast.coors'\" \(163 characters\)
sed "s/^X//" >'coors/coast.coors' <<'END_OF_FILE'
X2 357 217 0.192687
X-0.40 -0.20 0.40 -0.40 0.56 -0.97 0.33 1404
X 0.40 -0.20 -0.40 -0.40 -1.00 1.29 0.67 3913
X 0.40 0.00 0.00 0.40 0.40 1.02 1.00 3956
END_OF_FILE
if test 163 -ne `wc -c <'coors/coast.coors'`; then
echo shar: \"'coors/coast.coors'\" unpacked with wrong size!
fi
# end of 'coors/coast.coors'
fi
if test -f 'coors/cosmos.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/cosmos.coors'\"
else
echo shar: Extracting \"'coors/cosmos.coors'\" \(127 characters\)
sed "s/^X//" >'coors/cosmos.coors' <<'END_OF_FILE'
X1 418 245 0.436759
X 0.130 -0.102 -0.218 -0.127 0.288 0.322 0.140 1327
X 0.200 1.000 -0.800 0.200 -0.200 -0.600 1.000 1099
END_OF_FILE
if test 127 -ne `wc -c <'coors/cosmos.coors'`; then
echo shar: \"'coors/cosmos.coors'\" unpacked with wrong size!
fi
# end of 'coors/cosmos.coors'
fi
if test -f 'coors/crisscross.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/crisscross.coors'\"
else
echo shar: Extracting \"'coors/crisscross.coors'\" \(180 characters\)
sed "s/^X//" >'coors/crisscross.coors' <<'END_OF_FILE'
X2 252 194 0.264702
X-0.919 -0.019 -0.060 0.850 1.031 -0.180 0.645 2830
X 0.398 0.237 0.295 -0.160 -0.512 1.120 0.667 917
X 0.013 -0.994 0.010 0.860 1.019 -0.170 0.830 3100
END_OF_FILE
if test 180 -ne `wc -c <'coors/crisscross.coors'`; then
echo shar: \"'coors/crisscross.coors'\" unpacked with wrong size!
fi
# end of 'coors/crisscross.coors'
fi
if test -f 'coors/crosses.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/crosses.coors'\"
else
echo shar: Extracting \"'coors/crosses.coors'\" \(113 characters\)
sed "s/^X//" >'coors/crosses.coors' <<'END_OF_FILE'
X1 312 242 0.194917
X 0.00 1.00 -0.50 0.00 -1.00 -0.50 0.75 476
X-0.50 0.00 0.00 0.50 2.00 0.00 1.28 905
END_OF_FILE
if test 113 -ne `wc -c <'coors/crosses.coors'`; then
echo shar: \"'coors/crosses.coors'\" unpacked with wrong size!
fi
# end of 'coors/crosses.coors'
fi
if test -f 'coors/crossfrost.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/crossfrost.coors'\"
else
echo shar: Extracting \"'coors/crossfrost.coors'\" \(114 characters\)
sed "s/^X//" >'coors/crossfrost.coors' <<'END_OF_FILE'
X1 260 148 0.140371
X 0.50 0.00 0.00 0.50 -1.00 -1.00 0.29 1002
X 0.00 0.50 -1.00 0.00 2.00 2.00 1.00 765
END_OF_FILE
if test 114 -ne `wc -c <'coors/crossfrost.coors'`; then
echo shar: \"'coors/crossfrost.coors'\" unpacked with wrong size!
fi
# end of 'coors/crossfrost.coors'
fi
if test -f 'coors/curlique.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/curlique.coors'\"
else
echo shar: Extracting \"'coors/curlique.coors'\" \(124 characters\)
sed "s/^X//" >'coors/curlique.coors' <<'END_OF_FILE'
X1 6 316 1.143859
X 0.519 -0.981 0.270 0.640 0.213 -0.360 0.669 525
X-0.256 -0.625 0.300 0.010 0.262 -0.370 1.000 1951
END_OF_FILE
if test 124 -ne `wc -c <'coors/curlique.coors'`; then
echo shar: \"'coors/curlique.coors'\" unpacked with wrong size!
fi
# end of 'coors/curlique.coors'
fi
if test -f 'coors/diamond.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/diamond.coors'\"
else
echo shar: Extracting \"'coors/diamond.coors'\" \(341 characters\)
sed "s/^X//" >'coors/diamond.coors' <<'END_OF_FILE'
X5 160 233 0.394394
X 0.500 0.000 0.000 0.500 0.000 0.000 0.167 284
X 0.500 0.000 0.000 0.500 1.000 0.000 0.333 2825
X 0.500 0.000 0.000 0.500 0.500 0.500 0.500 1270
X 0.494 0.000 0.000 -0.490 0.512 -0.990 0.667 3811
X 0.475 0.000 0.000 -0.480 0.019 -0.530 0.833 2256
X 0.512 0.000 0.000 -0.500 1.006 -0.460 1.000 701
END_OF_FILE
if test 341 -ne `wc -c <'coors/diamond.coors'`; then
echo shar: \"'coors/diamond.coors'\" unpacked with wrong size!
fi
# end of 'coors/diamond.coors'
fi
if test -f 'coors/dna.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/dna.coors'\"
else
echo shar: Extracting \"'coors/dna.coors'\" \(179 characters\)
sed "s/^X//" >'coors/dna.coors' <<'END_OF_FILE'
X2 333 95 0.293629
X 0.430 0.460 -0.300 0.360 0.680 0.340 0.330 3899
X 0.030 -0.430 -0.340 0.020 0.410 1.660 0.670 2003
X 0.410 -0.550 0.250 0.250 -0.800 0.010 1.000 107
END_OF_FILE
if test 179 -ne `wc -c <'coors/dna.coors'`; then
echo shar: \"'coors/dna.coors'\" unpacked with wrong size!
fi
# end of 'coors/dna.coors'
fi
if test -f 'coors/dthedrain.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/dthedrain.coors'\"
else
echo shar: Extracting \"'coors/dthedrain.coors'\" \(114 characters\)
sed "s/^X//" >'coors/dthedrain.coors' <<'END_OF_FILE'
X1 134 121 0.011077
X 0.28 -0.18 -0.19 -0.86 -0.86 -0.25 0.04 815
X 1.09 -0.16 0.09 0.86 0.84 0.07 1.00 2123
END_OF_FILE
if test 114 -ne `wc -c <'coors/dthedrain.coors'`; then
echo shar: \"'coors/dthedrain.coors'\" unpacked with wrong size!
fi
# end of 'coors/dthedrain.coors'
fi
if test -f 'coors/dthedrain2.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/dthedrain2.coors'\"
else
echo shar: Extracting \"'coors/dthedrain2.coors'\" \(115 characters\)
sed "s/^X//" >'coors/dthedrain2.coors' <<'END_OF_FILE'
X1 162 166 0.042089
X 0.13 0.37 -0.58 0.19 -0.86 -0.25 0.04 2201
X 1.09 -0.16 0.09 0.86 -0.70 -0.79 1.00 3623
END_OF_FILE
if test 115 -ne `wc -c <'coors/dthedrain2.coors'`; then
echo shar: \"'coors/dthedrain2.coors'\" unpacked with wrong size!
fi
# end of 'coors/dthedrain2.coors'
fi
if test -f 'coors/elephanthead.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/elephanthead.coors'\"
else
echo shar: Extracting \"'coors/elephanthead.coors'\" \(231 characters\)
sed "s/^X//" >'coors/elephanthead.coors' <<'END_OF_FILE'
X3 342 8 0.398774
X 0.138 0.150 0.160 -0.170 -0.131 1.300 0.095 693
X 0.163 -0.006 0.000 0.270 0.475 0.340 0.199 271
X 0.421 -0.418 0.421 0.421 -0.400 0.650 0.619 3945
X 0.421 0.421 -0.418 0.421 0.050 1.080 1.000 3523
END_OF_FILE
if test 231 -ne `wc -c <'coors/elephanthead.coors'`; then
echo shar: \"'coors/elephanthead.coors'\" unpacked with wrong size!
fi
# end of 'coors/elephanthead.coors'
fi
if test -f 'coors/facuet.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/facuet.coors'\"
else
echo shar: Extracting \"'coors/facuet.coors'\" \(115 characters\)
sed "s/^X//" >'coors/facuet.coors' <<'END_OF_FILE'
X1 497 421 0.393593
X-0.21 0.78 1.06 0.09 -0.26 -0.27 0.88 1357
X 0.15 0.18 0.25 -0.21 -0.60 -0.61 1.00 1823
END_OF_FILE
if test 115 -ne `wc -c <'coors/facuet.coors'`; then
echo shar: \"'coors/facuet.coors'\" unpacked with wrong size!
fi
# end of 'coors/facuet.coors'
fi
if test -f 'coors/fern.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/fern.coors'\"
else
echo shar: Extracting \"'coors/fern.coors'\" \(233 characters\)
sed "s/^X//" >'coors/fern.coors' <<'END_OF_FILE'
X3 311 45 0.083101
X 0.000 0.000 0.000 0.163 0.000 0.000 0.010 2198
X 0.200 -0.260 0.230 0.220 0.000 1.600 0.080 3141
X-0.150 0.280 0.260 0.240 0.000 0.440 0.150 4084
X 0.850 0.040 -0.040 0.850 0.000 1.600 1.000 931
END_OF_FILE
if test 233 -ne `wc -c <'coors/fern.coors'`; then
echo shar: \"'coors/fern.coors'\" unpacked with wrong size!
fi
# end of 'coors/fern.coors'
fi
if test -f 'coors/fishy.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/fishy.coors'\"
else
echo shar: Extracting \"'coors/fishy.coors'\" \(162 characters\)
sed "s/^X//" >'coors/fishy.coors' <<'END_OF_FILE'
X2 409 167 0.091535
X 0.00 0.24 0.27 -0.03 1.13 -0.24 0.10 419
X 0.71 -0.20 -0.37 -0.88 -0.45 1.84 0.20 4035
X 0.90 0.00 -0.27 0.77 -0.97 -1.00 0.97 3555
END_OF_FILE
if test 162 -ne `wc -c <'coors/fishy.coors'`; then
echo shar: \"'coors/fishy.coors'\" unpacked with wrong size!
fi
# end of 'coors/fishy.coors'
fi
if test -f 'coors/flab.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/flab.coors'\"
else
echo shar: Extracting \"'coors/flab.coors'\" \(115 characters\)
sed "s/^X//" >'coors/flab.coors' <<'END_OF_FILE'
X1 320 183 0.354910
X 0.32 -0.58 0.61 0.00 -0.85 0.45 0.50 2909
X 0.11 0.62 -0.74 0.13 0.61 0.13 1.00 2687
END_OF_FILE
if test 115 -ne `wc -c <'coors/flab.coors'`; then
echo shar: \"'coors/flab.coors'\" unpacked with wrong size!
fi
# end of 'coors/flab.coors'
fi
if test -f 'coors/flames.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/flames.coors'\"
else
echo shar: Extracting \"'coors/flames.coors'\" \(235 characters\)
sed "s/^X//" >'coors/flames.coors' <<'END_OF_FILE'
X3 259 126 0.353780
X 0.112 -0.088 -0.090 -0.280 0.800 -0.190 0.027 3731
X-0.294 0.069 -0.000 0.490 -0.450 -0.420 0.192 3683
X 0.613 -0.006 -0.250 0.460 -0.319 0.320 0.678 3635
X 0.400 0.000 -0.110 0.500 1.025 1.000 1.000 3587
END_OF_FILE
if test 235 -ne `wc -c <'coors/flames.coors'`; then
echo shar: \"'coors/flames.coors'\" unpacked with wrong size!
fi
# end of 'coors/flames.coors'
fi
if test -f 'coors/flowers.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/flowers.coors'\"
else
echo shar: Extracting \"'coors/flowers.coors'\" \(127 characters\)
sed "s/^X//" >'coors/flowers.coors' <<'END_OF_FILE'
X1 243 275 0.279774
X 0.202 1.000 -0.651 0.824 1.105 0.000 0.660 3961
X 0.398 -0.003 0.295 -0.318 0.321 0.000 1.000 2407
END_OF_FILE
if test 127 -ne `wc -c <'coors/flowers.coors'`; then
echo shar: \"'coors/flowers.coors'\" unpacked with wrong size!
fi
# end of 'coors/flowers.coors'
fi
if test -f 'coors/fluff.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/fluff.coors'\"
else
echo shar: Extracting \"'coors/fluff.coors'\" \(127 characters\)
sed "s/^X//" >'coors/fluff.coors' <<'END_OF_FILE'
X1 266 162 0.293629
X-0.813 -0.162 0.340 -0.690 1.156 0.510 0.831 1149
X-0.519 -0.187 -0.330 0.500 -0.506 -0.160 1.000 3903
END_OF_FILE
if test 127 -ne `wc -c <'coors/fluff.coors'`; then
echo shar: \"'coors/fluff.coors'\" unpacked with wrong size!
fi
# end of 'coors/fluff.coors'
fi
if test -f 'coors/fuzzycomb.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/fuzzycomb.coors'\"
else
echo shar: Extracting \"'coors/fuzzycomb.coors'\" \(127 characters\)
sed "s/^X//" >'coors/fuzzycomb.coors' <<'END_OF_FILE'
X1 450 265 0.319448
X 0.600 -0.200 0.400 0.200 0.200 0.000 0.500 2099
X 1.000 0.000 0.000 1.000 -0.200 0.000 1.000 3619
END_OF_FILE
if test 127 -ne `wc -c <'coors/fuzzycomb.coors'`; then
echo shar: \"'coors/fuzzycomb.coors'\" unpacked with wrong size!
fi
# end of 'coors/fuzzycomb.coors'
fi
if test -f 'coors/fuzzycomet.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/fuzzycomet.coors'\"
else
echo shar: Extracting \"'coors/fuzzycomet.coors'\" \(180 characters\)
sed "s/^X//" >'coors/fuzzycomet.coors' <<'END_OF_FILE'
X2 278 191 0.939071
X-0.050 0.725 -0.651 0.450 -0.438 0.240 0.036 1735
X 0.409 -0.003 0.295 -0.475 -0.425 0.240 0.078 1115
X 0.625 0.313 0.610 -0.740 0.237 0.030 1.000 495
END_OF_FILE
if test 180 -ne `wc -c <'coors/fuzzycomet.coors'`; then
echo shar: \"'coors/fuzzycomet.coors'\" unpacked with wrong size!
fi
# end of 'coors/fuzzycomet.coors'
fi
if test -f 'coors/fuzzyfern.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/fuzzyfern.coors'\"
else
echo shar: Extracting \"'coors/fuzzyfern.coors'\" \(257 characters\)
sed "s/^X//" >'coors/fuzzyfern.coors' <<'END_OF_FILE'
X4 304 15 0.093288
X 0.00 0.00 0.00 0.18 0.00 0.00 0.04 3780
X 0.20 -0.26 0.23 0.22 0.00 1.60 0.11 633
X-0.15 0.28 0.26 0.24 0.00 0.44 0.18 1582
X 0.85 0.04 -0.04 0.85 0.00 1.60 0.79 2531
X 1.00 0.03 -0.03 1.00 0.00 0.00 1.00 3480
END_OF_FILE
if test 257 -ne `wc -c <'coors/fuzzyfern.coors'`; then
echo shar: \"'coors/fuzzyfern.coors'\" unpacked with wrong size!
fi
# end of 'coors/fuzzyfern.coors'
fi
if test -f 'coors/fuzzyglen.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/fuzzyglen.coors'\"
else
echo shar: Extracting \"'coors/fuzzyglen.coors'\" \(784 characters\)
sed "s/^X//" >'coors/fuzzyglen.coors' <<'END_OF_FILE'
X15 248 134 0.503797
X 0.00 -0.06 0.15 0.01 -0.51 -0.19 0.06 2587
X 0.19 0.00 0.00 0.16 -0.81 0.95 0.13 2835
X 0.01 -0.10 0.47 0.02 -1.00 0.10 0.19 3083
X-0.01 -0.09 0.50 0.00 1.74 0.03 0.25 3331
X 0.11 0.00 -0.01 0.14 -0.80 -0.32 0.31 3579
X 0.08 -0.01 0.00 0.10 -0.58 0.76 0.38 3827
X 0.11 0.00 -0.02 0.10 -0.64 0.15 0.44 4075
X 0.01 -0.11 0.55 0.00 -0.10 0.15 0.50 227
X 0.01 -0.09 0.51 0.01 0.49 0.10 0.56 475
X 0.11 0.00 -0.01 0.09 0.71 0.88 0.63 723
X 0.08 -0.01 0.01 0.11 0.62 0.24 0.69 971
X 0.12 0.00 0.00 0.09 0.71 -0.42 0.75 1219
X 0.13 0.08 -0.45 0.05 1.36 0.48 0.81 1467
X 0.00 -0.08 0.45 0.01 1.17 0.07 0.88 1715
X 0.10 -0.01 0.00 0.09 -0.01 -0.40 0.94 1963
X 1.00 0.00 0.00 1.00 0.02 0.02 1.00 2211
END_OF_FILE
if test 784 -ne `wc -c <'coors/fuzzyglen.coors'`; then
echo shar: \"'coors/fuzzyglen.coors'\" unpacked with wrong size!
fi
# end of 'coors/fuzzyglen.coors'
fi
if test -f 'coors/glen.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/glen.coors'\"
else
echo shar: Extracting \"'coors/glen.coors'\" \(828 characters\)
sed "s/^X//" >'coors/glen.coors' <<'END_OF_FILE'
X14 248 134 0.503797
X 0.000 -0.063 0.150 0.010 -0.506 -0.190 0.067 395
X 0.194 0.000 0.000 0.160 -0.813 0.950 0.133 179
X 0.006 -0.100 0.470 0.020 -1.000 0.100 0.200 4059
X-0.012 -0.087 0.500 0.000 1.744 0.030 0.267 3843
X 0.106 0.000 -0.010 0.140 -0.800 -0.320 0.333 3627
X 0.075 -0.006 0.000 0.100 -0.581 0.760 0.400 3411
X 0.106 0.000 -0.020 0.100 -0.644 0.150 0.467 3195
X 0.006 -0.106 0.550 0.000 -0.100 0.150 0.533 2979
X 0.012 -0.094 0.510 0.010 0.488 0.100 0.600 2763
X 0.112 0.000 -0.010 0.090 0.706 0.880 0.667 2547
X 0.081 -0.006 0.010 0.110 0.619 0.240 0.733 2331
X 0.119 0.000 0.000 0.090 0.706 -0.420 0.800 2115
X 0.125 0.081 -0.450 0.050 1.362 0.480 0.867 1899
X 0.000 -0.081 0.450 0.010 1.169 0.070 0.933 1683
X 0.101 -0.013 0.000 0.090 -0.006 -0.400 1.000 1467
END_OF_FILE
if test 828 -ne `wc -c <'coors/glen.coors'`; then
echo shar: \"'coors/glen.coors'\" unpacked with wrong size!
fi
# end of 'coors/glen.coors'
fi
if test -f 'coors/grain.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/grain.coors'\"
else
echo shar: Extracting \"'coors/grain.coors'\" \(162 characters\)
sed "s/^X//" >'coors/grain.coors' <<'END_OF_FILE'
X2 295 152 0.180556
X 0.81 0.13 -0.53 0.15 0.36 1.91 0.33 400
X 0.50 -0.03 0.27 0.34 -0.98 0.32 0.67 3713
X 0.70 0.00 0.07 -0.50 0.82 -0.18 1.00 2930
END_OF_FILE
if test 162 -ne `wc -c <'coors/grain.coors'`; then
echo shar: \"'coors/grain.coors'\" unpacked with wrong size!
fi
# end of 'coors/grain.coors'
fi
if test -f 'coors/gwhiz.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/gwhiz.coors'\"
else
echo shar: Extracting \"'coors/gwhiz.coors'\" \(557 characters\)
sed "s/^X//" >'coors/gwhiz.coors' <<'END_OF_FILE'
X9 330 181 0.369578
X-0.050 -0.138 0.260 -0.030 -0.569 -0.380 0.100 3149
X-0.319 -0.006 -0.040 0.160 -0.056 1.140 0.200 287
X-0.325 0.013 -0.020 -0.170 0.100 -0.870 0.300 1521
X-0.025 -0.081 0.520 0.010 0.544 -0.550 0.400 2755
X 0.150 -0.019 0.010 0.100 0.556 0.780 0.500 3989
X 0.244 0.012 0.100 0.140 -0.525 0.990 0.600 1127
X 0.050 -0.119 0.120 0.110 -0.400 -0.860 0.700 2361
X-0.087 -0.106 -0.200 0.100 0.425 1.110 0.800 3595
X-0.006 0.125 -0.180 0.020 0.325 -0.080 0.900 733
X 0.169 -0.025 -0.020 -0.350 -0.669 0.340 1.000 1967
END_OF_FILE
if test 557 -ne `wc -c <'coors/gwhiz.coors'`; then
echo shar: \"'coors/gwhiz.coors'\" unpacked with wrong size!
fi
# end of 'coors/gwhiz.coors'
fi
if test -f 'coors/heehee.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/heehee.coors'\"
else
echo shar: Extracting \"'coors/heehee.coors'\" \(287 characters\)
sed "s/^X//" >'coors/heehee.coors' <<'END_OF_FILE'
X4 296 110 0.326735
X 0.019 0.419 -0.470 -0.000 -0.744 1.610 0.200 917
X-0.006 -0.381 0.450 0.010 1.038 -0.210 0.400 2127
X-0.419 0.000 -0.010 -0.430 1.056 1.620 0.600 3337
X 0.006 0.162 -0.100 0.000 0.194 0.750 0.800 451
X 0.406 -0.000 0.010 0.480 -0.731 -0.250 1.000 1661
END_OF_FILE
if test 287 -ne `wc -c <'coors/heehee.coors'`; then
echo shar: \"'coors/heehee.coors'\" unpacked with wrong size!
fi
# end of 'coors/heehee.coors'
fi
if test -f 'coors/hexaflower.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/hexaflower.coors'\"
else
echo shar: Extracting \"'coors/hexaflower.coors'\" \(258 characters\)
sed "s/^X//" >'coors/hexaflower.coors' <<'END_OF_FILE'
X4 306 204 0.264622
X 0.03 0.32 -0.38 0.03 0.77 0.57 0.20 215
X 0.36 -0.00 -0.01 -0.36 -0.15 1.15 0.40 4027
X 0.31 0.00 -0.03 0.37 -0.74 0.28 0.60 3743
X 0.38 0.00 -0.03 -0.39 0.83 -0.59 0.80 3459
X-0.38 -0.01 0.02 0.41 -0.06 -1.00 1.00 3175
END_OF_FILE
if test 258 -ne `wc -c <'coors/hexaflower.coors'`; then
echo shar: \"'coors/hexaflower.coors'\" unpacked with wrong size!
fi
# end of 'coors/hexaflower.coors'
fi
if test -f 'coors/hrail.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/hrail.coors'\"
else
echo shar: Extracting \"'coors/hrail.coors'\" \(258 characters\)
sed "s/^X//" >'coors/hrail.coors' <<'END_OF_FILE'
X4 306 124 0.289879
X 0.00 0.15 0.15 0.00 0.00 0.65 0.20 487
X-0.30 0.00 0.00 -0.60 -0.30 0.30 0.40 1307
X-0.30 0.00 0.00 -0.60 0.60 0.30 0.60 2127
X-0.30 0.00 0.00 -0.60 -0.30 1.60 0.80 2947
X-0.30 0.00 0.00 -0.60 0.60 1.60 1.00 3767
END_OF_FILE
if test 258 -ne `wc -c <'coors/hrail.coors'`; then
echo shar: \"'coors/hrail.coors'\" unpacked with wrong size!
fi
# end of 'coors/hrail.coors'
fi
if test -f 'coors/icespikes.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/icespikes.coors'\"
else
echo shar: Extracting \"'coors/icespikes.coors'\" \(163 characters\)
sed "s/^X//" >'coors/icespikes.coors' <<'END_OF_FILE'
X2 231 272 0.473359
X-0.30 0.00 0.00 0.60 0.40 -0.60 0.33 2010
X 0.60 -0.60 0.00 -0.40 0.40 0.00 0.67 2973
X-0.60 0.00 -0.40 0.60 0.40 0.00 1.00 3936
END_OF_FILE
if test 163 -ne `wc -c <'coors/icespikes.coors'`; then
echo shar: \"'coors/icespikes.coors'\" unpacked with wrong size!
fi
# end of 'coors/icespikes.coors'
fi
if test -f 'coors/inferno.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/inferno.coors'\"
else
echo shar: Extracting \"'coors/inferno.coors'\" \(181 characters\)
sed "s/^X//" >'coors/inferno.coors' <<'END_OF_FILE'
X2 338 188 0.141268
X-0.256 0.169 -0.270 -0.320 -0.863 0.130 0.333 3894
X-0.338 0.025 0.080 -0.530 0.363 -1.000 0.667 2565
X 1.000 0.363 0.000 0.610 -0.087 1.390 1.000 1236
END_OF_FILE
if test 181 -ne `wc -c <'coors/inferno.coors'`; then
echo shar: \"'coors/inferno.coors'\" unpacked with wrong size!
fi
# end of 'coors/inferno.coors'
fi
if test -f 'coors/ivy.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/ivy.coors'\"
else
echo shar: Extracting \"'coors/ivy.coors'\" \(127 characters\)
sed "s/^X//" >'coors/ivy.coors' <<'END_OF_FILE'
X1 297 143 0.334298
X 0.400 0.000 0.000 0.400 1.038 -0.470 0.500 1926
X 0.256 -0.600 0.970 0.350 -0.094 0.370 1.000 1765
END_OF_FILE
if test 127 -ne `wc -c <'coors/ivy.coors'`; then
echo shar: \"'coors/ivy.coors'\" unpacked with wrong size!
fi
# end of 'coors/ivy.coors'
fi
if test -f 'coors/juniper.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/juniper.coors'\"
else
echo shar: Extracting \"'coors/juniper.coors'\" \(113 characters\)
sed "s/^X//" >'coors/juniper.coors' <<'END_OF_FILE'
X1 977 -50 0.954040
X 0.85 0.18 -0.22 0.55 -0.53 0.06 0.50 468
X 0.65 0.06 -0.15 -0.67 -0.35 0.62 1.00 985
END_OF_FILE
if test 113 -ne `wc -c <'coors/juniper.coors'`; then
echo shar: \"'coors/juniper.coors'\" unpacked with wrong size!
fi
# end of 'coors/juniper.coors'
fi
if test -f 'coors/loopdloop.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/loopdloop.coors'\"
else
echo shar: Extracting \"'coors/loopdloop.coors'\" \(127 characters\)
sed "s/^X//" >'coors/loopdloop.coors' <<'END_OF_FILE'
X1 289 262 0.189496
X 0.444 -0.508 0.620 0.570 0.750 -0.890 0.669 3167
X-0.425 0.381 0.580 0.420 -0.844 -0.410 1.000 3179
END_OF_FILE
if test 127 -ne `wc -c <'coors/loopdloop.coors'`; then
echo shar: \"'coors/loopdloop.coors'\" unpacked with wrong size!
fi
# end of 'coors/loopdloop.coors'
fi
if test -f 'coors/mold.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/mold.coors'\"
else
echo shar: Extracting \"'coors/mold.coors'\" \(127 characters\)
sed "s/^X//" >'coors/mold.coors' <<'END_OF_FILE'
X1 319 171 0.363962
X-0.173 -0.744 0.653 -0.335 0.679 0.000 0.500 3857
X 0.517 -0.540 0.500 0.321 -0.250 0.602 1.000 3447
END_OF_FILE
if test 127 -ne `wc -c <'coors/mold.coors'`; then
echo shar: \"'coors/mold.coors'\" unpacked with wrong size!
fi
# end of 'coors/mold.coors'
fi
if test -f 'coors/mold2.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/mold2.coors'\"
else
echo shar: Extracting \"'coors/mold2.coors'\" \(127 characters\)
sed "s/^X//" >'coors/mold2.coors' <<'END_OF_FILE'
X1 236 285 0.332403
X 0.500 0.400 -0.550 0.540 0.644 -0.440 0.527 3961
X 0.363 -0.300 -0.460 -0.440 -0.050 0.000 1.000 2407
END_OF_FILE
if test 127 -ne `wc -c <'coors/mold2.coors'`; then
echo shar: \"'coors/mold2.coors'\" unpacked with wrong size!
fi
# end of 'coors/mold2.coors'
fi
if test -f 'coors/mtfuji.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/mtfuji.coors'\"
else
echo shar: Extracting \"'coors/mtfuji.coors'\" \(159 characters\)
sed "s/^X//" >'coors/mtfuji.coors' <<'END_OF_FILE'
X2 -14 65 2.361279
X 1.00 0.03 0.00 0.96 -0.06 -0.04 0.33 626
X 1.00 0.00 0.00 1.00 0.00 0.00 0.67 429
X-0.51 0.00 0.03 0.57 0.58 0.13 1.00 232
END_OF_FILE
if test 159 -ne `wc -c <'coors/mtfuji.coors'`; then
echo shar: \"'coors/mtfuji.coors'\" unpacked with wrong size!
fi
# end of 'coors/mtfuji.coors'
fi
if test -f 'coors/mum.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/mum.coors'\"
else
echo shar: Extracting \"'coors/mum.coors'\" \(115 characters\)
sed "s/^X//" >'coors/mum.coors' <<'END_OF_FILE'
X1 189 167 0.435202
X 0.13 -0.04 0.07 0.18 -0.66 0.34 0.05 3162
X-0.94 -0.42 0.21 -0.94 1.66 0.16 1.00 3741
END_OF_FILE
if test 115 -ne `wc -c <'coors/mum.coors'`; then
echo shar: \"'coors/mum.coors'\" unpacked with wrong size!
fi
# end of 'coors/mum.coors'
fi
if test -f 'coors/oilydolie.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/oilydolie.coors'\"
else
echo shar: Extracting \"'coors/oilydolie.coors'\" \(113 characters\)
sed "s/^X//" >'coors/oilydolie.coors' <<'END_OF_FILE'
X1 293 99 2.333349
X-0.46 0.70 -0.95 -0.66 0.01 0.21 0.98 3109
X 0.10 0.02 0.00 0.17 0.09 0.57 0.36 687
END_OF_FILE
if test 113 -ne `wc -c <'coors/oilydolie.coors'`; then
echo shar: \"'coors/oilydolie.coors'\" unpacked with wrong size!
fi
# end of 'coors/oilydolie.coors'
fi
if test -f 'coors/pentaplex.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/pentaplex.coors'\"
else
echo shar: Extracting \"'coors/pentaplex.coors'\" \(258 characters\)
sed "s/^X//" >'coors/pentaplex.coors' <<'END_OF_FILE'
X4 291 174 0.148255
X-0.01 0.49 -0.55 0.01 -1.00 1.99 0.20 1615
X-0.52 -0.01 0.00 -0.50 1.99 2.00 0.40 2315
X 0.50 0.01 0.01 -0.43 -1.00 -0.89 0.60 3015
X 0.01 -0.44 -0.45 0.02 1.98 -0.96 0.80 3715
X 0.12 -0.02 -0.01 0.15 0.28 0.25 1.00 319
END_OF_FILE
if test 258 -ne `wc -c <'coors/pentaplex.coors'`; then
echo shar: \"'coors/pentaplex.coors'\" unpacked with wrong size!
fi
# end of 'coors/pentaplex.coors'
fi
if test -f 'coors/pow.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/pow.coors'\"
else
echo shar: Extracting \"'coors/pow.coors'\" \(126 characters\)
sed "s/^X//" >'coors/pow.coors' <<'END_OF_FILE'
X1 264 -22 0.305099
X-0.225 0.094 0.190 0.290 -0.906 1.290 0.211 2733
X 0.538 0.719 -0.800 0.450 -0.813 1.420 1.003 351
END_OF_FILE
if test 126 -ne `wc -c <'coors/pow.coors'`; then
echo shar: \"'coors/pow.coors'\" unpacked with wrong size!
fi
# end of 'coors/pow.coors'
fi
if test -f 'coors/rottencore.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/rottencore.coors'\"
else
echo shar: Extracting \"'coors/rottencore.coors'\" \(127 characters\)
sed "s/^X//" >'coors/rottencore.coors' <<'END_OF_FILE'
X1 441 112 0.530737
X-0.210 0.610 -0.690 -0.340 -0.570 0.410 0.660 4006
X 0.580 0.000 -0.320 -0.660 -0.569 0.400 1.064 1445
END_OF_FILE
if test 127 -ne `wc -c <'coors/rottencore.coors'`; then
echo shar: \"'coors/rottencore.coors'\" unpacked with wrong size!
fi
# end of 'coors/rottencore.coors'
fi
if test -f 'coors/scull.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/scull.coors'\"
else
echo shar: Extracting \"'coors/scull.coors'\" \(126 characters\)
sed "s/^X//" >'coors/scull.coors' <<'END_OF_FILE'
X1 253 95 0.559709
X-0.563 -0.412 0.700 -0.490 0.481 0.870 0.756 3546
X 0.571 -0.526 0.803 -0.112 0.745 0.160 1.000 3997
END_OF_FILE
if test 126 -ne `wc -c <'coors/scull.coors'`; then
echo shar: \"'coors/scull.coors'\" unpacked with wrong size!
fi
# end of 'coors/scull.coors'
fi
if test -f 'coors/shreads.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/shreads.coors'\"
else
echo shar: Extracting \"'coors/shreads.coors'\" \(112 characters\)
sed "s/^X//" >'coors/shreads.coors' <<'END_OF_FILE'
X1 270 129 0.510189
X-0.15 0.98 -0.63 0.00 -0.63 0.50 0.66 30
X 0.48 -0.10 -0.02 0.69 0.86 -0.01 1.00 245
END_OF_FILE
if test 112 -ne `wc -c <'coors/shreads.coors'`; then
echo shar: \"'coors/shreads.coors'\" unpacked with wrong size!
fi
# end of 'coors/shreads.coors'
fi
if test -f 'coors/sier.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/sier.coors'\"
else
echo shar: Extracting \"'coors/sier.coors'\" \(177 characters\)
sed "s/^X//" >'coors/sier.coors' <<'END_OF_FILE'
X2 9 63 0.763269
X 0.500 0.000 0.000 0.500 0.000 0.000 0.330 2574
X 0.500 0.000 0.000 0.500 1.000 0.000 0.670 3477
X 0.500 0.000 0.000 0.500 0.500 0.500 1.000 284
END_OF_FILE
if test 177 -ne `wc -c <'coors/sier.coors'`; then
echo shar: \"'coors/sier.coors'\" unpacked with wrong size!
fi
# end of 'coors/sier.coors'
fi
if test -f 'coors/skidmarks.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/skidmarks.coors'\"
else
echo shar: Extracting \"'coors/skidmarks.coors'\" \(235 characters\)
sed "s/^X//" >'coors/skidmarks.coors' <<'END_OF_FILE'
X3 485 158 0.141665
X-0.025 0.094 -0.640 0.010 0.144 0.870 0.250 3288
X 0.156 -0.006 0.010 1.020 -0.962 0.140 0.500 3505
X 0.925 0.019 0.000 0.330 -0.813 -0.420 0.750 3722
X 0.906 0.000 0.000 -0.490 -0.719 1.600 1.000 3939
END_OF_FILE
if test 235 -ne `wc -c <'coors/skidmarks.coors'`; then
echo shar: \"'coors/skidmarks.coors'\" unpacked with wrong size!
fi
# end of 'coors/skidmarks.coors'
fi
if test -f 'coors/slugluv.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/slugluv.coors'\"
else
echo shar: Extracting \"'coors/slugluv.coors'\" \(114 characters\)
sed "s/^X//" >'coors/slugluv.coors' <<'END_OF_FILE'
X1 214 400 0.550057
X 0.75 0.22 -0.86 0.61 0.38 0.00 0.50 1802
X 0.75 0.43 -0.05 0.63 0.38 0.00 1.00 957
END_OF_FILE
if test 114 -ne `wc -c <'coors/slugluv.coors'`; then
echo shar: \"'coors/slugluv.coors'\" unpacked with wrong size!
fi
# end of 'coors/slugluv.coors'
fi
if test -f 'coors/smallflower.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/smallflower.coors'\"
else
echo shar: Extracting \"'coors/smallflower.coors'\" \(127 characters\)
sed "s/^X//" >'coors/smallflower.coors' <<'END_OF_FILE'
X1 296 228 0.110780
X 0.202 1.000 -0.651 0.824 1.105 0.000 0.660 1404
X 0.398 -0.003 0.295 -0.318 0.321 0.000 1.000 3913
END_OF_FILE
if test 127 -ne `wc -c <'coors/smallflower.coors'`; then
echo shar: \"'coors/smallflower.coors'\" unpacked with wrong size!
fi
# end of 'coors/smallflower.coors'
fi
if test -f 'coors/snail.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/snail.coors'\"
else
echo shar: Extracting \"'coors/snail.coors'\" \(127 characters\)
sed "s/^X//" >'coors/snail.coors' <<'END_OF_FILE'
X1 374 104 0.526314
X-0.344 0.237 -0.290 -0.640 -0.256 0.870 0.500 3841
X 0.794 -0.294 0.510 0.810 0.000 0.000 1.000 3607
END_OF_FILE
if test 127 -ne `wc -c <'coors/snail.coors'`; then
echo shar: \"'coors/snail.coors'\" unpacked with wrong size!
fi
# end of 'coors/snail.coors'
fi
if test -f 'coors/snake.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/snake.coors'\"
else
echo shar: Extracting \"'coors/snake.coors'\" \(115 characters\)
sed "s/^X//" >'coors/snake.coors' <<'END_OF_FILE'
X1 451 499 0.120943
X 1.01 -0.15 0.23 0.90 -1.00 -0.01 0.98 3393
X 0.04 0.34 0.53 0.00 0.73 -0.94 1.00 3991
END_OF_FILE
if test 115 -ne `wc -c <'coors/snake.coors'`; then
echo shar: \"'coors/snake.coors'\" unpacked with wrong size!
fi
# end of 'coors/snake.coors'
fi
if test -f 'coors/spicircle.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/spicircle.coors'\"
else
echo shar: Extracting \"'coors/spicircle.coors'\" \(128 characters\)
sed "s/^X//" >'coors/spicircle.coors' <<'END_OF_FILE'
X1 295 370 34.605679
X 1.004 0.081 -0.076 0.988 0.001 0.000 0.500 1855
X 1.000 -0.001 0.000 1.000 0.000 0.000 1.000 4011
END_OF_FILE
if test 128 -ne `wc -c <'coors/spicircle.coors'`; then
echo shar: \"'coors/spicircle.coors'\" unpacked with wrong size!
fi
# end of 'coors/spicircle.coors'
fi
if test -f 'coors/spicircle2.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/spicircle2.coors'\"
else
echo shar: Extracting \"'coors/spicircle2.coors'\" \(180 characters\)
sed "s/^X//" >'coors/spicircle2.coors' <<'END_OF_FILE'
X2 318 182 0.097215
X 1.023 0.159 -0.153 0.959 0.001 0.000 0.333 958
X 1.000 -0.001 0.000 1.000 0.000 0.000 0.667 3253
X 1.000 0.000 0.000 1.000 0.000 0.000 1.000 1452
END_OF_FILE
if test 180 -ne `wc -c <'coors/spicircle2.coors'`; then
echo shar: \"'coors/spicircle2.coors'\" unpacked with wrong size!
fi
# end of 'coors/spicircle2.coors'
fi
if test -f 'coors/spiral.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/spiral.coors'\"
else
echo shar: Extracting \"'coors/spiral.coors'\" \(114 characters\)
sed "s/^X//" >'coors/spiral.coors' <<'END_OF_FILE'
X1 564 92 0.133963
X 0.81 -0.31 0.20 1.07 -0.43 1.01 0.95 2396
X-0.00 -0.12 0.15 0.00 -0.77 0.04 1.81 2185
END_OF_FILE
if test 114 -ne `wc -c <'coors/spiral.coors'`; then
echo shar: \"'coors/spiral.coors'\" unpacked with wrong size!
fi
# end of 'coors/spiral.coors'
fi
if test -f 'coors/spiral2.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/spiral2.coors'\"
else
echo shar: Extracting \"'coors/spiral2.coors'\" \(115 characters\)
sed "s/^X//" >'coors/spiral2.coors' <<'END_OF_FILE'
X1 583 166 0.198581
X 0.83 -0.23 0.29 0.95 -0.43 1.01 0.95 3655
X-0.05 -0.12 0.20 -0.05 -0.66 -0.98 1.81 2395
END_OF_FILE
if test 115 -ne `wc -c <'coors/spiral2.coors'`; then
echo shar: \"'coors/spiral2.coors'\" unpacked with wrong size!
fi
# end of 'coors/spiral2.coors'
fi
if test -f 'coors/spirarex.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/spirarex.coors'\"
else
echo shar: Extracting \"'coors/spirarex.coors'\" \(115 characters\)
sed "s/^X//" >'coors/spirarex.coors' <<'END_OF_FILE'
X1 425 -33 1.083314
X-0.39 0.71 -0.90 -0.70 -0.74 0.68 0.89 1549
X 0.09 -0.29 0.23 0.09 0.16 0.20 1.00 3999
END_OF_FILE
if test 115 -ne `wc -c <'coors/spirarex.coors'`; then
echo shar: \"'coors/spirarex.coors'\" unpacked with wrong size!
fi
# end of 'coors/spirarex.coors'
fi
if test -f 'coors/spiraspira.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/spiraspira.coors'\"
else
echo shar: Extracting \"'coors/spiraspira.coors'\" \(127 characters\)
sed "s/^X//" >'coors/spiraspira.coors' <<'END_OF_FILE'
X1 302 161 0.085863
X 0.806 0.269 -0.390 0.830 -0.544 1.170 0.878 3653
X 0.538 -0.031 -0.010 -0.760 -0.563 1.120 1.000 3439
END_OF_FILE
if test 127 -ne `wc -c <'coors/spiraspira.coors'`; then
echo shar: \"'coors/spiraspira.coors'\" unpacked with wrong size!
fi
# end of 'coors/spiraspira.coors'
fi
if test -f 'coors/splotch.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/splotch.coors'\"
else
echo shar: Extracting \"'coors/splotch.coors'\" \(127 characters\)
sed "s/^X//" >'coors/splotch.coors' <<'END_OF_FILE'
X1 331 226 0.396124
X 0.063 0.544 0.940 0.080 -0.200 0.240 0.338 3708
X 0.206 -0.475 0.600 0.260 0.069 -0.640 1.000 1353
END_OF_FILE
if test 127 -ne `wc -c <'coors/splotch.coors'`; then
echo shar: \"'coors/splotch.coors'\" unpacked with wrong size!
fi
# end of 'coors/splotch.coors'
fi
if test -f 'coors/spruce.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/spruce.coors'\"
else
echo shar: Extracting \"'coors/spruce.coors'\" \(115 characters\)
sed "s/^X//" >'coors/spruce.coors' <<'END_OF_FILE'
X1 441 348 0.119610
X-0.56 0.42 0.60 0.31 0.31 -0.01 0.33 3351
X 0.60 0.27 -0.02 0.90 -0.99 -0.84 0.99 1339
END_OF_FILE
if test 115 -ne `wc -c <'coors/spruce.coors'`; then
echo shar: \"'coors/spruce.coors'\" unpacked with wrong size!
fi
# end of 'coors/spruce.coors'
fi
if test -f 'coors/spurs.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/spurs.coors'\"
else
echo shar: Extracting \"'coors/spurs.coors'\" \(127 characters\)
sed "s/^X//" >'coors/spurs.coors' <<'END_OF_FILE'
X1 328 271 0.328126
X 0.202 1.000 -0.651 0.824 0.506 -0.320 0.660 2958
X 0.219 -0.003 -0.150 -0.318 -0.575 0.060 1.000 3733
END_OF_FILE
if test 127 -ne `wc -c <'coors/spurs.coors'`; then
echo shar: \"'coors/spurs.coors'\" unpacked with wrong size!
fi
# end of 'coors/spurs.coors'
fi
if test -f 'coors/sqbush.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/sqbush.coors'\"
else
echo shar: Extracting \"'coors/sqbush.coors'\" \(181 characters\)
sed "s/^X//" >'coors/sqbush.coors' <<'END_OF_FILE'
X2 276 172 0.371191
X-0.506 0.000 -0.110 0.750 -0.044 -0.190 0.330 4064
X-0.450 0.000 -0.030 0.500 0.837 0.680 0.670 3937
X 0.500 0.069 0.000 0.520 0.544 -0.400 1.000 3810
END_OF_FILE
if test 181 -ne `wc -c <'coors/sqbush.coors'`; then
echo shar: \"'coors/sqbush.coors'\" unpacked with wrong size!
fi
# end of 'coors/sqbush.coors'
fi
if test -f 'coors/star.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/star.coors'\"
else
echo shar: Extracting \"'coors/star.coors'\" \(115 characters\)
sed "s/^X//" >'coors/star.coors' <<'END_OF_FILE'
X1 333 199 0.005168
X 0.00 1.00 -0.50 0.00 -1.00 0.50 0.02 1991
X 0.00 -1.00 1.01 0.00 1.00 0.00 0.28 2651
END_OF_FILE
if test 115 -ne `wc -c <'coors/star.coors'`; then
echo shar: \"'coors/star.coors'\" unpacked with wrong size!
fi
# end of 'coors/star.coors'
fi
if test -f 'coors/starwheel.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/starwheel.coors'\"
else
echo shar: Extracting \"'coors/starwheel.coors'\" \(113 characters\)
sed "s/^X//" >'coors/starwheel.coors' <<'END_OF_FILE'
X1 220 168 0.184510
X 0.16 -0.98 0.97 0.19 1.58 -0.89 0.99 95
X-0.15 0.07 0.11 0.19 -0.84 -0.41 1.00 1131
END_OF_FILE
if test 113 -ne `wc -c <'coors/starwheel.coors'`; then
echo shar: \"'coors/starwheel.coors'\" unpacked with wrong size!
fi
# end of 'coors/starwheel.coors'
fi
if test -f 'coors/stinger.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/stinger.coors'\"
else
echo shar: Extracting \"'coors/stinger.coors'\" \(114 characters\)
sed "s/^X//" >'coors/stinger.coors' <<'END_OF_FILE'
X1 543 416 0.162280
X 0.13 0.78 1.06 0.00 -0.26 -0.07 0.91 910
X 0.15 0.18 0.25 -0.21 -0.61 -0.61 0.98 3733
END_OF_FILE
if test 114 -ne `wc -c <'coors/stinger.coors'`; then
echo shar: \"'coors/stinger.coors'\" unpacked with wrong size!
fi
# end of 'coors/stinger.coors'
fi
if test -f 'coors/sunset.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/sunset.coors'\"
else
echo shar: Extracting \"'coors/sunset.coors'\" \(127 characters\)
sed "s/^X//" >'coors/sunset.coors' <<'END_OF_FILE'
X1 227 110 0.236789
X-0.942 -0.044 0.089 0.928 1.684 0.463 0.512 2832
X-0.676 -0.393 0.006 0.404 0.488 0.014 1.000 3969
END_OF_FILE
if test 127 -ne `wc -c <'coors/sunset.coors'`; then
echo shar: \"'coors/sunset.coors'\" unpacked with wrong size!
fi
# end of 'coors/sunset.coors'
fi
if test -f 'coors/surrounded.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/surrounded.coors'\"
else
echo shar: Extracting \"'coors/surrounded.coors'\" \(163 characters\)
sed "s/^X//" >'coors/surrounded.coors' <<'END_OF_FILE'
X2 227 183 0.111166
X 0.63 0.42 -0.47 0.61 1.04 2.00 0.46 2287
X-0.41 0.01 -0.19 0.46 -0.77 1.09 0.67 3787
X 0.47 -0.01 -0.05 -0.55 0.47 -0.57 1.00 1191
END_OF_FILE
if test 163 -ne `wc -c <'coors/surrounded.coors'`; then
echo shar: \"'coors/surrounded.coors'\" unpacked with wrong size!
fi
# end of 'coors/surrounded.coors'
fi
if test -f 'coors/swash.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/swash.coors'\"
else
echo shar: Extracting \"'coors/swash.coors'\" \(114 characters\)
sed "s/^X//" >'coors/swash.coors' <<'END_OF_FILE'
X1 223 14 2.758864
X-0.60 -0.24 0.27 -0.93 0.28 0.30 0.50 3766
X-0.61 0.01 0.22 -0.80 0.06 0.23 1.00 3845
END_OF_FILE
if test 114 -ne `wc -c <'coors/swash.coors'`; then
echo shar: \"'coors/swash.coors'\" unpacked with wrong size!
fi
# end of 'coors/swash.coors'
fi
if test -f 'coors/swirlbush.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/swirlbush.coors'\"
else
echo shar: Extracting \"'coors/swirlbush.coors'\" \(127 characters\)
sed "s/^X//" >'coors/swirlbush.coors' <<'END_OF_FILE'
X1 479 -199 2.097152
X 0.463 -0.277 0.737 0.504 -0.003 0.479 0.500 184
X-0.194 -0.319 1.177 -0.227 -0.019 0.762 1.000 1777
END_OF_FILE
if test 127 -ne `wc -c <'coors/swirlbush.coors'`; then
echo shar: \"'coors/swirlbush.coors'\" unpacked with wrong size!
fi
# end of 'coors/swirlbush.coors'
fi
if test -f 'coors/tenboxes.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/tenboxes.coors'\"
else
echo shar: Extracting \"'coors/tenboxes.coors'\" \(555 characters\)
sed "s/^X//" >'coors/tenboxes.coors' <<'END_OF_FILE'
X9 317 147 0.251890
X 0.000 0.244 0.270 -0.030 0.019 1.740 0.100 351
X 0.244 -0.025 -0.010 -0.250 0.044 0.990 0.200 2667
X 0.188 -0.006 0.000 0.260 -0.969 -1.000 0.300 887
X 0.256 0.000 -0.010 -0.270 0.994 1.980 0.400 3203
X 0.262 -0.006 0.010 0.290 1.006 -0.030 0.500 1423
X 0.238 0.000 0.000 0.290 1.025 -1.000 0.600 3739
X 0.225 0.006 0.020 0.290 -0.013 -0.980 0.700 1959
X 0.219 0.000 0.000 0.240 -1.000 0.010 0.800 179
X-0.237 0.006 0.010 0.360 0.013 -0.110 0.900 2495
X 0.237 0.000 0.000 -0.250 -1.000 1.900 1.000 715
END_OF_FILE
if test 555 -ne `wc -c <'coors/tenboxes.coors'`; then
echo shar: \"'coors/tenboxes.coors'\" unpacked with wrong size!
fi
# end of 'coors/tenboxes.coors'
fi
if test -f 'coors/texas.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/texas.coors'\"
else
echo shar: Extracting \"'coors/texas.coors'\" \(162 characters\)
sed "s/^X//" >'coors/texas.coors' <<'END_OF_FILE'
X2 295 174 0.158764
X-0.31 0.01 0.01 -0.38 -0.94 -0.89 0.20 3671
X-0.39 0.03 -0.00 -0.42 1.99 -0.89 0.40 2235
X 0.54 -0.21 0.36 0.73 0.48 0.73 0.60 799
END_OF_FILE
if test 162 -ne `wc -c <'coors/texas.coors'`; then
echo shar: \"'coors/texas.coors'\" unpacked with wrong size!
fi
# end of 'coors/texas.coors'
fi
if test -f 'coors/thehook.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/thehook.coors'\"
else
echo shar: Extracting \"'coors/thehook.coors'\" \(235 characters\)
sed "s/^X//" >'coors/thehook.coors' <<'END_OF_FILE'
X3 341 412 0.135729
X-0.294 0.244 0.230 0.510 -0.425 0.590 0.022 1897
X 0.706 -0.175 0.450 0.880 -0.962 -0.720 0.900 2567
X 0.488 -0.294 0.480 0.350 -0.269 -0.280 0.958 3237
X 0.269 -0.281 0.510 0.200 -0.944 -0.720 1.000 3907
END_OF_FILE
if test 235 -ne `wc -c <'coors/thehook.coors'`; then
echo shar: \"'coors/thehook.coors'\" unpacked with wrong size!
fi
# end of 'coors/thehook.coors'
fi
if test -f 'coors/thewave.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/thewave.coors'\"
else
echo shar: Extracting \"'coors/thewave.coors'\" \(181 characters\)
sed "s/^X//" >'coors/thewave.coors' <<'END_OF_FILE'
X2 531 -92 0.903733
X-0.444 -0.012 0.300 -0.490 0.325 1.170 0.010 2914
X 0.606 0.000 -0.100 0.680 -0.463 -0.040 0.260 2125
X 0.787 -0.363 0.340 0.600 0.331 0.630 1.000 1336
END_OF_FILE
if test 181 -ne `wc -c <'coors/thewave.coors'`; then
echo shar: \"'coors/thewave.coors'\" unpacked with wrong size!
fi
# end of 'coors/thewave.coors'
fi
if test -f 'coors/threev.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/threev.coors'\"
else
echo shar: Extracting \"'coors/threev.coors'\" \(163 characters\)
sed "s/^X//" >'coors/threev.coors' <<'END_OF_FILE'
X2 280 -19 0.310406
X-0.08 0.53 -0.53 0.06 -1.00 1.70 0.25 3779
X-0.48 0.10 -0.00 0.38 0.71 1.95 0.50 3203
X 0.48 0.07 0.00 0.57 0.79 0.15 0.75 2627
END_OF_FILE
if test 163 -ne `wc -c <'coors/threev.coors'`; then
echo shar: \"'coors/threev.coors'\" unpacked with wrong size!
fi
# end of 'coors/threev.coors'
fi
if test -f 'coors/tidalwave.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/tidalwave.coors'\"
else
echo shar: Extracting \"'coors/tidalwave.coors'\" \(112 characters\)
sed "s/^X//" >'coors/tidalwave.coors' <<'END_OF_FILE'
X1 367 44 0.806106
X 1.00 -0.23 0.00 0.28 -0.05 -0.01 0.33 170
X 0.94 -0.24 0.32 0.70 0.16 0.29 0.67 893
END_OF_FILE
if test 112 -ne `wc -c <'coors/tidalwave.coors'`; then
echo shar: \"'coors/tidalwave.coors'\" unpacked with wrong size!
fi
# end of 'coors/tidalwave.coors'
fi
if test -f 'coors/tree.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/tree.coors'\"
else
echo shar: Extracting \"'coors/tree.coors'\" \(234 characters\)
sed "s/^X//" >'coors/tree.coors' <<'END_OF_FILE'
X3 313 -98 2.709773
X 0.006 0.006 0.006 0.504 0.006 0.006 0.050 284
X 0.105 0.006 0.006 0.105 0.214 0.205 0.202 2825
X 0.421 -0.418 0.421 0.421 0.006 0.205 0.619 1270
X 0.421 0.421 -0.418 0.421 -0.003 0.205 1.000 3811
END_OF_FILE
if test 234 -ne `wc -c <'coors/tree.coors'`; then
echo shar: \"'coors/tree.coors'\" unpacked with wrong size!
fi
# end of 'coors/tree.coors'
fi
if test -f 'coors/treebranch.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/treebranch.coors'\"
else
echo shar: Extracting \"'coors/treebranch.coors'\" \(163 characters\)
sed "s/^X//" >'coors/treebranch.coors' <<'END_OF_FILE'
X2 305 150 0.356799
X 0.43 0.02 -0.04 0.60 0.14 -0.29 0.33 1264
X-0.30 -0.43 -0.21 0.46 0.06 -0.37 0.67 3265
X-0.68 -0.01 -0.02 0.71 0.42 0.54 1.00 1170
END_OF_FILE
if test 163 -ne `wc -c <'coors/treebranch.coors'`; then
echo shar: \"'coors/treebranch.coors'\" unpacked with wrong size!
fi
# end of 'coors/treebranch.coors'
fi
if test -f 'coors/triangle.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/triangle.coors'\"
else
echo shar: Extracting \"'coors/triangle.coors'\" \(234 characters\)
sed "s/^X//" >'coors/triangle.coors' <<'END_OF_FILE'
X3 238 201 0.196185
X 0.481 0.000 0.010 0.500 -0.500 -0.010 0.250 2776
X 0.500 0.000 0.000 0.500 1.513 -0.010 0.500 433
X 0.494 0.000 0.000 -0.500 0.512 1.470 0.750 2186
X 0.506 0.000 0.000 0.500 0.500 -1.000 1.000 3939
END_OF_FILE
if test 234 -ne `wc -c <'coors/triangle.coors'`; then
echo shar: \"'coors/triangle.coors'\" unpacked with wrong size!
fi
# end of 'coors/triangle.coors'
fi
if test -f 'coors/twistandshot.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/twistandshot.coors'\"
else
echo shar: Extracting \"'coors/twistandshot.coors'\" \(126 characters\)
sed "s/^X//" >'coors/twistandshot.coors' <<'END_OF_FILE'
X1 217 158 0.275166
X-0.344 0.237 -0.290 -0.640 -0.256 0.870 0.501 102
X 0.794 -0.294 0.510 0.810 0.575 -0.280 1.000 3621
END_OF_FILE
if test 126 -ne `wc -c <'coors/twistandshot.coors'`; then
echo shar: \"'coors/twistandshot.coors'\" unpacked with wrong size!
fi
# end of 'coors/twistandshot.coors'
fi
if test -f 'coors/twisty.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/twisty.coors'\"
else
echo shar: Extracting \"'coors/twisty.coors'\" \(116 characters\)
sed "s/^X//" >'coors/twisty.coors' <<'END_OF_FILE'
X1 225 211 17.930805
X 0.61 -0.54 0.59 0.63 0.01 -0.01 0.71 1519
X-0.44 0.00 0.00 -0.50 0.00 0.00 1.16 3275
END_OF_FILE
if test 116 -ne `wc -c <'coors/twisty.coors'`; then
echo shar: \"'coors/twisty.coors'\" unpacked with wrong size!
fi
# end of 'coors/twisty.coors'
fi
if test -f 'coors/uee.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/uee.coors'\"
else
echo shar: Extracting \"'coors/uee.coors'\" \(114 characters\)
sed "s/^X//" >'coors/uee.coors' <<'END_OF_FILE'
X1 431 30 0.166629
X-0.24 0.00 0.00 0.25 -0.01 0.77 0.15 3191
X 0.13 -0.91 -0.97 -0.31 0.22 1.20 1.00 2939
END_OF_FILE
if test 114 -ne `wc -c <'coors/uee.coors'`; then
echo shar: \"'coors/uee.coors'\" unpacked with wrong size!
fi
# end of 'coors/uee.coors'
fi
if test -f 'coors/waterwheel.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/waterwheel.coors'\"
else
echo shar: Extracting \"'coors/waterwheel.coors'\" \(127 characters\)
sed "s/^X//" >'coors/waterwheel.coors' <<'END_OF_FILE'
X1 336 314 0.579664
X 0.925 -0.087 -0.190 0.740 -0.031 -0.020 0.870 1327
X-0.150 -0.681 0.700 -0.260 -0.456 -0.810 1.000 1099
END_OF_FILE
if test 127 -ne `wc -c <'coors/waterwheel.coors'`; then
echo shar: \"'coors/waterwheel.coors'\" unpacked with wrong size!
fi
# end of 'coors/waterwheel.coors'
fi
if test -f 'coors/wheat.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/wheat.coors'\"
else
echo shar: Extracting \"'coors/wheat.coors'\" \(127 characters\)
sed "s/^X//" >'coors/wheat.coors' <<'END_OF_FILE'
X1 372 174 0.362610
X-0.122 0.875 -0.446 -0.744 0.389 0.000 0.500 1216
X 0.074 1.847 0.206 -0.276 -1.000 0.815 1.000 3745
END_OF_FILE
if test 127 -ne `wc -c <'coors/wheat.coors'`; then
echo shar: \"'coors/wheat.coors'\" unpacked with wrong size!
fi
# end of 'coors/wheat.coors'
fi
if test -f 'coors/wheel.coors' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'coors/wheel.coors'\"
else
echo shar: Extracting \"'coors/wheel.coors'\" \(113 characters\)
sed "s/^X//" >'coors/wheel.coors' <<'END_OF_FILE'
X1 437 352 0.043786
X 1.06 -0.15 0.23 0.90 -1.00 0.36 0.98 986
X 0.04 0.34 0.53 -0.00 1.47 -0.49 1.00 925
END_OF_FILE
if test 113 -ne `wc -c <'coors/wheel.coors'`; then
echo shar: \"'coors/wheel.coors'\" unpacked with wrong size!
fi
# end of 'coors/wheel.coors'
fi
if test ! -d 'source' ; then
echo shar: Creating directory \"'source'\"
mkdir 'source'
fi
if test -f 'source.info.uu' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'source.info.uu'\"
else
echo shar: Extracting \"'source.info.uu'\" \(1290 characters\)
sed "s/^X//" >'source.info.uu' <<'END_OF_FILE'
Xbegin 644 source.info
XMXQ```0`````!&``+`$H`$@`&``,``0#"FH``PIW8````````````````````1
XM`````L(``````````````2L```````(^@````````````*(`20#K`#G__P``]
XM```"0`)_``%LE```````P%0P````````````6@`H_____P`!````````````'
XM`````$H`$@`"``*;"`,``````````````````````?________B``!______4
XM___C````````````#H`#_________\\``X````````'.@`.?_______YS0`#R
XMG_______^<Z``Y__\?^/__G-``.?_^``'__YR@`#G_______^<P``Y______H
XM__G(``.````````!P``#_________\```````````````````````````````
XM```````````````````````````!_________\``'@````````=``>```````
XM```<P`__________\4`,`````````##`#'________XQ0`Q@```````&,L`,V
XM8```````!C%`#&``#@!P``8RP`Q@`!__X``&-8`,8```````!C,`#&``````O
XM``8V``Q________^/``,`````````#@`#__________P````````````````X
XM````````````````````````````````2@`2``(``IQP`P``````````````O
XM```````!________^(``'________^,````````````.@`/_________SP`#+
XM@````````<Z``@````````'-```````````)SH``````````&<T`'_______V
XM_YG*`!________^9S``?________F<@`'__\?^/__YG``!__^``'__^3P``?Z
XM________@```'________X````````````````````````````````'_____0
XM____P``>````````!T`!X````````!S`#__________Q0`P`````````,,`,@
XM?________C%`#<U5555555XRP!ZLJJJJJJJV,4!_________YC+`8```````P
XM`&8U@&````````!F,P!@````````9C8`8``#@!P``&8\`&``!__X``!L.`!@3
XG````````?_``8````````'```'_________@````````````````8
X``
Xend
Xsize 894
END_OF_FILE
if test 1290 -ne `wc -c <'source.info.uu'`; then
echo shar: \"'source.info.uu'\" unpacked with wrong size!
fi
# end of 'source.info.uu'
fi
if test -f 'source/buglist' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'source/buglist'\"
else
echo shar: Extracting \"'source/buglist'\" \(576 characters\)
sed "s/^X//" >'source/buglist' <<'END_OF_FILE'
XBuglist for ifsout:
X(Severity => C=critical, S=severe, M=moderate, O=obnoxous, R=request for change)
X
XO - Color is not correct when numoffunciton > 16
XO - Boxes should be able to be moved closer to the llc edge.
XO - File gadget requester does not start at top when first open.
XO - Percent varies with previous percent
XO - Can't we make it smaller -- currently 188736 bytes!
X
XR - A method for better use of color - distribute across function
XR - A help screen/menu item.
XR - A reverse function from bitmap.
XR - A reverse function from transformations input (collage theorm).
X
END_OF_FILE
if test 576 -ne `wc -c <'source/buglist'`; then
echo shar: \"'source/buglist'\" unpacked with wrong size!
fi
# end of 'source/buglist'
fi
if test -f 'source/getfile.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'source/getfile.h'\"
else
echo shar: Extracting \"'source/getfile.h'\" \(1346 characters\)
sed "s/^X//" >'source/getfile.h' <<'END_OF_FILE'
X/***************************************************
X* get_fname(window,screen,hail,ddef,ddir);
X*
X* Displays a window/requester that
X* gets a file name for device,directory,default file, extension
X*
X* Calling args:
X* window: Window making the request
X* screen: Screen, if NULL assummed workbench
X* hail: Text prompt at top of requester
X* ddef: Input default file-name. Has NO DIRECTORY OR EXTENSION.
X* ddir: Directory of file, may be null
X*
X* The basic call is:
X*
X* getfile(Window,Screen,Hailing_string,file_name,directory_name);
X*
X* Where:
X* Window is a pointer to your window
X* Screen is a pointer to your screen ... or (long)NULL if workbench
X* Hailing_string is a prompt displayed in the requester
X* file_name is a text array which will be altered by getfile,
X* it returns the file name.
X* directory_name is a text array altered by getfile, it
X* is the directory.
X*
X* The return value is either a pointer to your buffer, file_name,
X* or NULL if the user selected CANCEL.
X*
X* You must reserve two text areas for file and directory like so:
X*
X* #define FNAME_SIZE 33
X* TEXT file_name[FNAME_SIZE + 1];
X* TEXT dir_name[FNAME_SIZE + 2]
X**********************************************************************/
X
X#ifndef GET_FNAME
X
X#define GET_FNAME
X
X#define FNAME_SIZE 33
X
Xextern char *get_fname();
X
X#endif
X
END_OF_FILE
if test 1346 -ne `wc -c <'source/getfile.h'`; then
echo shar: \"'source/getfile.h'\" unpacked with wrong size!
fi
# end of 'source/getfile.h'
fi
if test -f 'source/ifs.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'source/ifs.h'\"
else
echo shar: Extracting \"'source/ifs.h'\" \(1653 characters\)
sed "s/^X//" >'source/ifs.h' <<'END_OF_FILE'
X/*
X*
X*
X* ifs.h
X*
X*
X*/
X
X#define FUNLIMIT 25 /* the max number of functions */
X#define FFFF 65535 /* for prop gadgets */
X#define NUMPROPS 10 /* number of proportional gadgets*/
X#define NUMSTRS 8 /* number of string gadgets */
X#define NUMGADS 18 /* total number of gadgets */
X#define GADSIZE 10 /* Gadget size in pixels */
X#define WIDTH 640 /* Width of Window */
X#define HEIGHT 400 /* Height of Window */
X#define ASPECT 1.6 /* WIDTH/HEIGHT */
X#define XSTART 0 /* start of X */
X#define YSTART HEIGHT /* start of Y (includes height */
X#define SCREENTITLE " IFSout "
X#define DISPSCALE .25 /* display scale for vectors */
X#define SCRNSCALE .8 /* Display Scale % of Screen */
X#define MAXCOFF 2. /* define the cofficient Maximum */
X#define MINCOFF -1. /* define the cofficient Minimum */
X#define MAXFNLEN 80 /* the max file name length */
X
X#define MAXCOLORS 16 /* the max number of colors Hi-R */
X#define EPSILON 8 /* min number of pixels for hit */
X#define GSTRLEN 6 /* length of gadget string */
X
X/* Get Prototypes
X#include "ifsout.i"
X#include "gadmsg.i"
X#include "vectors.i"
X#include "safeclose.i"
X#include "getfile.i"
X
XIf we have them and if lattice's compiler worked! */
X
END_OF_FILE
if test 1653 -ne `wc -c <'source/ifs.h'`; then
echo shar: \"'source/ifs.h'\" unpacked with wrong size!
fi
# end of 'source/ifs.h'
fi
if test -f 'source/safeclose.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'source/safeclose.c'\"
else
echo shar: Extracting \"'source/safeclose.c'\" \(1662 characters\)
sed "s/^X//" >'source/safeclose.c' <<'END_OF_FILE'
X/* CloseWindowSafely()
X* This module should be used whenever you are sharing an IDCMP
X* message port with more than one window. Rather than calling CloseWindow(),
X* you should use CloseWindowSafely(). This will keep Intuition from
X* Guru Meditation, and thus is considered a good thing. You should still
X* use CloseWindow for the very last window you close.
X* The reason this is needed, is because Intuition will re-claim
X* any outstanding messages for a window when the window is closed. But...
X* it can't take them out of your message port. Thus, you will receive
X* invalid messages and bad things will happen. Very bad things.
X* This code is a slightly condensed version of the same routine
X* written by Neil Katin of Amiga for the April '86 Commodore Developers
X* Newsletter, Amiga Mail (tm).
X*/
X
X/*
X#include <exec/types.h>
X#include <exec/nodes.h>
X#include <exec/lists.h>
X#include <exec/ports.h>
X#include <intuition/intuition.h>
X#include <functions.h>
X*/
X#include "standard.h"
X
Xvoid CloseWindowSafely( p_wind )
X struct Window *p_wind;
X {
X register struct IntuiMessage *msg;
X register struct IntuiMessage *succ;
X register struct Window *win = p_wind;
X register struct MsgPort *mp = (struct MsgPort *)win->UserPort;
X
X Forbid();
X
X msg = (struct IntuiMessage *)mp->mp_MsgList.lh_Head;
X
X while ( succ=(struct IntuiMessage *)msg->ExecMessage.mn_Node.ln_Succ )
X {
X if ( msg->IDCMPWindow == win )
X {
X Remove ( msg );
X ReplyMsg( msg );
X }
X msg = succ;
X }
X win->UserPort = NULL;
X ModifyIDCMP( win, 0L );
X Permit();
X CloseWindow( win );
X }
X
X
END_OF_FILE
if test 1662 -ne `wc -c <'source/safeclose.c'`; then
echo shar: \"'source/safeclose.c'\" unpacked with wrong size!
fi
# end of 'source/safeclose.c'
fi
if test -f 'source/safeclose.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'source/safeclose.h'\"
else
echo shar: Extracting \"'source/safeclose.h'\" \(973 characters\)
sed "s/^X//" >'source/safeclose.h' <<'END_OF_FILE'
X/* CloseWindowSafely()
X* This module should be used whenever you are sharing an IDCMP
X* message port with more than one window. Rather than calling CloseWindow(),
X* you should use CloseWindowSafely(). This will keep Intuition from
X* Guru Meditation, and thus is considered a good thing. You should still
X* use CloseWindow for the very last window you close.
X* The reason this is needed, is because Intuition will re-claim
X* any outstanding messages for a window when the window is closed. But...
X* it can't take them out of your message port. Thus, you will receive
X* invalid messages and bad things will happen. Very bad things.
X* This code is a slightly condensed version of the same routine
X* written by Neil Katin of Amiga for the April '86 Commodore Developers
X* Newsletter, Amiga Mail (tm).
X*/
X
X#ifndef SAFECLOSE
X
X#define SAFECLOSE
X
X
X/* CloseWindowSafely(window), window is pointer to struct Window */
X
Xextern void CloseWindowSafely();
X
X#endif
X
END_OF_FILE
if test 973 -ne `wc -c <'source/safeclose.h'`; then
echo shar: \"'source/safeclose.h'\" unpacked with wrong size!
fi
# end of 'source/safeclose.h'
fi
if test -f 'source/standard.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'source/standard.h'\"
else
echo shar: Extracting \"'source/standard.h'\" \(223 characters\)
sed "s/^X//" >'source/standard.h' <<'END_OF_FILE'
X#include <exec/types.h>
X#include <exec/devices.h>
X#include <intuition/intuition.h>
X#include <intuition/intuitionbase.h>
X
X#include <libraries/dos.h>
X#include <libraries/dosextens.h>
X#ifdef MANX
X#include <functions.h>
X#endif
END_OF_FILE
if test 223 -ne `wc -c <'source/standard.h'`; then
echo shar: \"'source/standard.h'\" unpacked with wrong size!
fi
# end of 'source/standard.h'
fi
echo shar: End of archive 1 \(of 3\).
cp /dev/null ark1isdone
MISSING=""
for I in 1 2 3 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 3 archives.
rm -f ark[1-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0
--
Mail submissions (sources or binaries) to <amiga@cs.odu.edu>.
Mail comments to the moderator at <amiga-request@cs.odu.edu>.
Post requests for sources, and general discussion to comp.sys.amiga.