ccount@ATHENA.MIT.EDU (03/16/90)
Posting-number: Volume 11, Issue 30
Submitted-by: ccount@ATHENA.MIT.EDU
Archive-name: starchart/part02
#! /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 2 (of 32)."
# Contents: Readme.second data/cnames.star dataconv/Makefile
# dataconv/tosize.c dataconv/tosize.perl doc/README observe/Makefile
# observe/descrip.mms observe/eventcalc.c observe/outobs.c
# observe/sortlib.c samples/asteroids.ell_e samples/color.star
# samples/test.star6-A samples/test.starbright starchart/README.mac
# starchart/Starchar.MSC starchart/startool.icon
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'Readme.second' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Readme.second'\"
else
echo shar: Extracting \"'Readme.second'\" \(1991 characters\)
sed "s/^X//" >'Readme.second' <<'END_OF_FILE'
XThis directory contains the distribution of version 3.2 of starchart,
Xplus several supporting programs, and documentation.
X
X
XPROBLEMS and installation:
X
XYou should have no difficulty with the three programs in the
X"dataconv" directory.
X
XYou might (but shouldn't) have trouble with "observe". However, a few
Xcompilers might still have trouble with the large expressions used in
Xsome calculations. Also, if you have non-standard time functions, you
Xmay need to change that section of code.
X
XYou must take care in compiling programs in the "starchart" directory.
XExamine (all of) and edit (a few lines of) the Makefile. Decide which
Xversions of the program you will want to use (there is a different
Xversion for each (input/)output device). Also examine the
X"postconv.awk" file if you will be using "starpost", and "startool*"
Xif you have a Sun computer.
X
XExtensive documentation is available in the "doc" directory, in a
Xvariety of formats.
X
XSample input files are found in the "samples" directory.
X
XSome data files are in the "data" directory. Other starchart data
Xfiles are distributed separately.
X
XNote Well:
X
XAll programs are copyrighted.
X
XThis software may be redistributed freely, not sold.
X
XNo representation is made about the suitability of this software for
Xany purpose. It is provided "as is" without express or implied
Xwarranty, to the extent permitted by applicable law.
X
XDISCLAIMER OF WARRANTY
X----------------------
XThe author disclaims all warranties with regard to this software to
Xthe extent permitted by applicable law, including all implied
Xwarranties of merchantability and fitness. In no event shall the
Xauthor be liable for any special, indirect or consequential damages or
Xany damages whatsoever resulting from loss of use, data or profits,
Xwhether in an action of contract, negligence or other tortious action,
Xarising out of or in connection with the use or performance of this
Xsoftware.
X
END_OF_FILE
if test 1991 -ne `wc -c <'Readme.second'`; then
echo shar: \"'Readme.second'\" unpacked with wrong size!
fi
# end of 'Readme.second'
fi
if test -f 'data/cnames.star' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'data/cnames.star'\"
else
echo shar: Extracting \"'data/cnames.star'\" \(2908 characters\)
sed "s/^X//" >'data/cnames.star' <<'END_OF_FILE'
X120000-8200000I CHAMAELEON
X130000-7400000I MUSCA
X163000-6900000I TRIANGULUM AUSTALE
X170000-8100000I APUS
X210000-7300000I PAVO
X100000-8500000I OCTANS
X190000-5500000I TELESCOPIUM
X213000-5800000I INNDUS
X003000-6800000I TUCANA
X020000-8000000I HYDRUS
X053000-8000000I MENSA
X080000-7330000I VOLANS
X130000-5400000I CENTAURUS
X145000-7000000I CIRCINUS
X161000-5900000I NORMA
X173000-6500000I ARA
X103000-7400000I CARINA
X105000-5200000I VELLA
X125800-6300000I CRUX
X060000-5400000I PICTOR
X030000-6000000I HOROLOGIUM
X040000-6600000I RETICULUM
X052000-6400000I DORADO
X200000-4430000I SAGITARIUS
X010000-5600000I PHOENIX
X230000-5400000I GRUS
X175800-4430000I SCORPIUS
X150000-5200000I LUPUS
X113000-2430000I CRATER
X123500-2430000I CORVUS
X153000-2900000I LIBRA
X204000-2630000I CAPRICORNUS
X230000-2400000I AQUARIUS
X222000-3500000I PISCIS AUSTRINUS
X010000-3830000I SCULPTOR
X030000-3900000I FORNAX
X210000-4400000I MICROSCOPIUM
X102000-4000000I ANTLIA
X091000-3600000I PYXIS
X045000-4600000I CAELUM
X055500-4200000I COLUMBA
X070000-5000000I PUPPIS
X190000-4430000I CORONA AUSTRALIS
X091000-1830000I HYDRA
X070000-1030000I MONOCEROS
X070000-3230000I CANIS MAJOR
X054000-2500000I LEPUS
X013000-2400000I CETUS
X180000-1500000I SERPENS CAUDA
X194500-1100000I AQUILA
X212000+0300000I EQUULEUS
X205000+0300000I DELPHINUS
X194500+2000000I VULPECULA
X021500-5600000I ERADINUS
X171000-2330000I OPHIUCHUS
X185000-1510000I SCUTUM
X194000+1700000I SAGITTA
X154000-0300000I SERPENS CAPUT
X123000-1100000I VIRGO
X124000+1400000I COMA BERENICES
X224000+0330000I PEGASUS
X004000+0300000I PISCES
X204000+2930000I CYGNUS
X191600+2600000I LYRA
X224000+3600000I LACERTA
X180000+1500000I HERCULES
X160000+2630000I CORONA BOREALIS
X144000+0830000I BOOTES
X132000+3200000I CANES VENATICI
X104000+3000000I LEO MINOR
X114000+2900000I URSA MAJOR
X150000+6600000I URSA MINOR
X100000+0700000I LEO
X103000-1100000I SEXTANS
X173000+5100000I DRACO
X215200+5725000I CEPHEUS
X075500+0030000I CANIS MINOR
X085000+0700000I CANCER
X010000+4900000I CASSIOPEIA
X070000+1200000I GEMINI
X084000+3400000I LYNX
X025000+1130000I ARIES
X043000+5330000I CAMELOPARDALIS
X005000+2200000I ANDROMEDA
X022000+2820000I TRIANGULUM
X054000-1010000I ORION
X041000+0130000I TAURUS
X033000+3130000I PERSEUS
X060000+2900000I AURIGA
END_OF_FILE
if test 2908 -ne `wc -c <'data/cnames.star'`; then
echo shar: \"'data/cnames.star'\" unpacked with wrong size!
fi
# end of 'data/cnames.star'
fi
if test -f 'dataconv/Makefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'dataconv/Makefile'\"
else
echo shar: Extracting \"'dataconv/Makefile'\" \(1622 characters\)
sed "s/^X//" >'dataconv/Makefile' <<'END_OF_FILE'
X# Makefile for dataconv programs
X#
X# $Header: Makefile,v 2.4 90/02/23 03:14:09 ccount Exp $
X#
X#
X# Copyright (c) 1990 by Craig Counterman. All rights reserved.
X#
X# This software may be redistributed freely, not sold.
X# This copyright notice and disclaimer of warranty must remain
X# unchanged.
X#
X# No representation is made about the suitability of this
X# software for any purpose. It is provided "as is" without express or
X# implied warranty, to the extent permitted by applicable law.
X#
X# DISCLAIMER OF WARRANTY
X# ----------------------
X# The author disclaims all warranties with regard to this software to
X# the extent permitted by applicable law, including all implied
X# warranties of merchantability and fitness. In no event shall the
X# author be liable for any special, indirect or consequential damages or
X# any damages whatsoever resulting from loss of use, data or profits,
X# whether in an action of contract, negligence or other tortious action,
X# arising out of or in connection with the use or performance of this
X# software.
X#
X#
X#
X#
X
XSRCS=dataconv.c tosize.c sif_to_text.c
XHDRS=
XOBJS=dataconv.o tosize.o sif_to_text.o
XFILES=Makefile ${SRCS} ${HDRS} Dataconv.MSC README tosize.perl
XTARGS=dataconv tosize sif_to_text
X
XCFLAGS=-O
XLDFLAGS=-lm
X
X
XDISTDIR=../../dist/dataconv
X
Xall: dataconv tosize sif_to_text
X
X
Xdataconv: dataconv.o
X ${CC} ${CFLAGS} -o $@ dataconv.o ${LDFLAGS}
X
Xtosize: tosize.o
X ${CC} ${CFLAGS} -o $@ tosize.o ${LDFLAGS}
X
Xsif_to_text: sif_to_text.o
X ${CC} ${CFLAGS} -o $@ sif_to_text.o ${LDFLAGS}
X
Xdist:
X cp ${FILES} ${DISTDIR}
X
Xclean:
X rm -f ${OBJS} ${TARGS} a.out core
END_OF_FILE
if test 1622 -ne `wc -c <'dataconv/Makefile'`; then
echo shar: \"'dataconv/Makefile'\" unpacked with wrong size!
fi
# end of 'dataconv/Makefile'
fi
if test -f 'dataconv/tosize.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'dataconv/tosize.c'\"
else
echo shar: Extracting \"'dataconv/tosize.c'\" \(2802 characters\)
sed "s/^X//" >'dataconv/tosize.c' <<'END_OF_FILE'
X/*
X * tosize -- convert object size to two character size code
X * for use in starchart databases.
X *
X * Copyright (c) 1990 by Craig Counterman. All rights reserved.
X *
X * This software may be redistributed freely, not sold.
X * This copyright notice and disclaimer of warranty must remain
X * unchanged.
X *
X * No representation is made about the suitability of this
X * software for any purpose. It is provided "as is" without express or
X * implied warranty, to the extent permitted by applicable law.
X *
X * DISCLAIMER OF WARRANTY
X * ----------------------
X * The author disclaims all warranties with regard to this software to
X * the extent permitted by applicable law, including all implied
X * warranties of merchantability and fitness. In no event shall the
X * author be liable for any special, indirect or consequential damages or
X * any damages whatsoever resulting from loss of use, data or profits,
X * whether in an action of contract, negligence or other tortious action,
X * arising out of or in connection with the use or performance of this
X * software.
X *
X */
X
Xstatic char rcsid[]="$Header: tosize.c,v 2.3 90/02/19 16:59:39 ccount Exp $";
X
X
X
X#include <stdio.h>
X#include <math.h>
X#include <ctype.h>
X
Xchar *usage =
X"%s: [-[d][m][s]] size [size ...]\n";
X
Xmain(argc, argv)
X int argc;
X char *argv[];
X{
X int i, j, nszs;
X double sze, sdbl;
X double cfact[3];
X int scan_ret;
X char *tosizestr();
X
X cfact[0] = 1.0;
X cfact[1] = 1.0;
X cfact[2] = 1.0;
X
X j = 1;
X nszs = 1;
X
X if (argv[1][0] == '-') {
X i = 1;
X j++;
X while (argv[1][i]) {
X switch (argv[1][i]) {
X case 'd':
X cfact[i-1] = 3600.0;
X break;
X case 'm':
X cfact[i-1] = 60.0;
X break;
X case 's':
X break;
X default:
X fprintf(stderr, usage, argv[0]);
X exit(1);
X break;
X }
X i++;
X }
X nszs = i - 1;
X }
X
X while (j < argc) {
X for (i = 0, sze = 0.0; i < nszs; i++)
X sze += atof(argv[j + i])*cfact[i];
X printf("%s\n", tosizestr(sze));
X j += nszs;
X }
X
X scan_ret = 0;
X while (scan_ret != EOF) {
X for (i = 0, sze = 0.0; i < nszs; i++) {
X scan_ret = scanf("%lf", &sdbl);
X sze += sdbl*cfact[i];
X }
X if (scan_ret != EOF)
X printf("%s\n", tosizestr(sze));
X }
X}
X
Xchar retsize[3];
X
Xchar *tosizestr(sze)
Xdouble sze;
X{
X if (sze < 99.5) sprintf(retsize, "%2d",(int) (sze + 0.5));
X else if (sze < 995.0) {
X sprintf(retsize, "%2d",(int) ((sze + 5.0)/10.0));
X retsize[0] = 'A' + retsize[0] - '0' - 1;
X } else if (sze < 9950.0) {
X sprintf(retsize, "%2d",(int) ((sze + 50.0)/100.0));
X retsize[0] = 'J' + retsize[0] - '0' - 1;
X } else if (sze < 89500.0) {
X sprintf(retsize, "%2d",(int) ((sze + 500.0)/1000.0));
X retsize[0] = 'S' + retsize[0] - '0' - 1;
X } else sprintf(retsize , "Z9");
X
X return retsize;
X}
END_OF_FILE
if test 2802 -ne `wc -c <'dataconv/tosize.c'`; then
echo shar: \"'dataconv/tosize.c'\" unpacked with wrong size!
fi
# end of 'dataconv/tosize.c'
fi
if test -f 'dataconv/tosize.perl' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'dataconv/tosize.perl'\"
else
echo shar: Extracting \"'dataconv/tosize.perl'\" \(2375 characters\)
sed "s/^X//" >'dataconv/tosize.perl' <<'END_OF_FILE'
X
X# perl is language/program by Larry Wall, posted to comp.sources.unix
X# and available from several archives.
X
X#
X# 1) emulate tosize C program if only -d -s -m and/or numerical
X# arguments are given.
X# 2) if one file is given, it's sif, and if the tosize field is
X# numeric, convert and replace with the encoded string.
X# 3) if two files are given, the first is sif and the second contains
X# sizes.
X#
X# sizes are in seconds of arc by default, or minutes or degrees if m or d is
X# appended. e.g. '1.2m' is 1.2 minutes = 72 seconds, '3.4d' = 12240 seconds.
X#
X
X$alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
X$, = ' ';
X$\ = "\n";
X
X$sepchar = ';';
X$multiplier = 1;
Xfor (@ARGV) {
X if (-r) {push(@filenames, $_);}
X elsif (/^-d$/) {$multiplier = 3600;}
X elsif (/^-m$/) {$multiplier = 60;}
X elsif (/^-s$/) {$multiplier = 1;}
X elsif (/^sepchar=/) {
X @schar = /^sepchar=(.)/;
X $sepchar = @schar[0];}
X else {print &tosze($_*$multiplier);}
X}
X#print $#filenames;
X
X
X
Xif ($#filenames > 1) {
X die "$0: [sif.file [sizefile]]\nExit ";
X} elsif ($#filenames == 1) {
X open(SIF, @filenames[0])
X || die "Error, couldn't open sif file @filenames[0]:$!";
X open(SIZEF, @filenames[1])
X || die "Error, couldn't open size file @filenames[1]:$!";
X $, = $sepchar;
X while (<SIF>) {
X chop;
X @Flds = split(/$sepchar/);
X $sstr = <SIZEF>;
X $sze = &tosze($sstr);
X @Flds[5] = $sze;
X print @Flds;
X }
X} elsif ($#filenames == 0) {
X open(SIF, @filenames[0])
X || die "Error, couldn't open @filenames[0]:$!";
X $, = $sepchar;
X while (<SIF>) {
X chop;
X @Flds = split(/$sepchar/);
X @Flds[5] = &tosze(@Flds[5])
X unless (@Flds[5] =~ /^[A-Z][0-9]$/);
X print @Flds;
X }
X} else {
X while (<STDIN>) {
X print &tosze($_);
X }
X}
X
X
Xsub tosze {
Xlocal($szestr) = @_[0];
X$_ = $szestr;
X($sze, $magchar) = /([0-9.]*)([dms]*)$/;
Xif ($magchar eq 'd') { $sze *= 3600.0;}
Xelsif ($magchar eq 'm') { $sze *= 60.0;}
X
Xif ($sze < 99.5) {
X $sst = sprintf("%2d", $sze);
X} elsif ($sze < 995.0) {
X $sst = sprintf("%2d", (($sze + 5.0)/10.0));
X substr($sst,0,1) = substr($alphabet, (($sze+5)/100.0)-1, 1);
X} elsif ($sze < 9950.0) {
X $sst = sprintf("%2d", (($sze + 50.0)/100.0));
X substr($sst,0,1) = substr($alphabet, (($sze+50)/1000.0)+8, 1);
X } elsif ($sze < 89500.0) {
X $sst = sprintf("%2d", (($sze + 500.0)/1000.0));
X substr($sst,0,1) = substr($alphabet, (($sze+500)/10000.0)+17, 1);
X } else {$sst = 'Z9';}
X
X return $sst;
X}
END_OF_FILE
if test 2375 -ne `wc -c <'dataconv/tosize.perl'`; then
echo shar: \"'dataconv/tosize.perl'\" unpacked with wrong size!
fi
# end of 'dataconv/tosize.perl'
fi
if test -f 'doc/README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'doc/README'\"
else
echo shar: Extracting \"'doc/README'\" \(2002 characters\)
sed "s/^X//" >'doc/README' <<'END_OF_FILE'
XThis directory contains documentation for astronomy programs:
X
XAll files ending in ".1" are man pages for the corresponding programs.
X"starchart.1" contains general information about all the star*
Xprograms. "starX11.1" is the man page for starX11 and starXaw,
X"staribm.1" is for the IBM PC version, and "starpost.1" is the man
Xpage for starpost, but these man pages each contain only the special
Xfeatures of the program; the rest of the information is in the
X"starchart.1" man page.
X
XThe other files are various forms of (the first version of) an
Xextensive documentation set. The key file is "astro.texinfo", which
Xis in GNU Emacs texinfo format. This file may be formatted using TeX:
Xsee the GNU Emacs distribution for details. I have already run TeX on
Xthis file, the .dvi file is "astro.dvi". I then used a "dvi2ps"
Xprogram to generate the "astro.PS" file. These files are in
X../doc-formatted. This directory is not in the mailable shar files or
Xthe comp.sources.misc distribution.
X
XThe texinfo file has also been (automatically) processed into *roff
Xform, producing the "astro.ms" file which uses -ms macros. The
Xnroffed output from this file is in "astro.cat" in ../doc-formatted.
X
XThe texinfo file is also to be used from within GNU Emacs. The Emacs
XInfo format file is provided as the file "astro" in ../doc-formatted.
XThe Emacs lisp file "astroinfo.el" is provided to facilitate use of
Xthis file. The command:
X
Xemacs -l astroinfo.el
X
Xstarts emacs in info mode with the file loaded and ready to be
Xbrowsed. You may want to edit the "astroinfo.el" file to use the full
Xpath name of the "astro" file.
X
XYou probably only need the "astro.PS" file, if you have a PostScript
Xprinter; "astro.dvi" if you have TeX and a non-PostScript printer; or
X"astro.ms" or "astro.cat" files, if you don't. If you have GNU Emacs,
Xyou may find the "astro" file useful. Feel free to delete all the
Xfiles you don't need.
END_OF_FILE
if test 2002 -ne `wc -c <'doc/README'`; then
echo shar: \"'doc/README'\" unpacked with wrong size!
fi
# end of 'doc/README'
fi
if test -f 'observe/Makefile' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'observe/Makefile'\"
else
echo shar: Extracting \"'observe/Makefile'\" \(2454 characters\)
sed "s/^X//" >'observe/Makefile' <<'END_OF_FILE'
X# Makefile for observe
X# $Header: Makefile,v 1.8 90/02/23 00:17:21 ccount Exp $
X#
X#
X# Copyright (c) 1990 by Craig Counterman. All rights reserved.
X#
X# This software may be redistributed freely, not sold.
X# This copyright notice and disclaimer of warranty must remain
X# unchanged.
X#
X# No representation is made about the suitability of this
X# software for any purpose. It is provided "as is" without express or
X# implied warranty, to the extent permitted by applicable law.
X#
X# DISCLAIMER OF WARRANTY
X# ----------------------
X# The author disclaims all warranties with regard to this software to
X# the extent permitted by applicable law, including all implied
X# warranties of merchantability and fitness. In no event shall the
X# author be liable for any special, indirect or consequential damages or
X# any damages whatsoever resulting from loss of use, data or profits,
X# whether in an action of contract, negligence or other tortious action,
X# arising out of or in connection with the use or performance of this
X# software.
X#
XSRCS= astlib.c datelib.c eventcalc.c main.c mooncalc.c objcalc.c \
X orbcalc.c outeph.c outaltaz.c outobs.c outsat.c outsif.c planetcalc.c \
X riseset.c satcalc.c sortlib.c suncalc.c tablecalc.c
XHDRS= date.h degree.h observe.h
XOBJS= astlib.o datelib.o eventcalc.o main.o mooncalc.o objcalc.o orbcalc.o \
X outeph.o outaltaz.o outobs.o outsat.o outsif.o planetcalc.o \
X riseset.o satcalc.o sortlib.o suncalc.o tablecalc.o
XFILES=Makefile ${SRCS} ${HDRS} README descrip.mms Observe.MSC Astring.h
XTARGS=observe
X
X
X#You may want to -DMAXOBJECTS=500 or fewer.
X#CFLAGS=-g -DMAXOBJECTS=500
XCFLAGS=-g
XLDFLAGS=-lm
X#For atari:
X#CFLAGS=-VCSD -f -DDEBUG -DSYSV -DATARI_ST -I.
X#CFLAGS=-VCSD -f -DSYSV -DATARI_ST -I.
X#CFLAGS= -VCSD -O -VPEEP -f -DSYSV -DATARI_ST -I.
X#You may also need to replace {} with ()
X
XDISTDIR=../../dist/observe
X
Xall: observe
X
X
Xobserve: ${OBJS}
X ${CC} ${CFLAGS} ${OBJS} -o observe -lm
X
Xdist:
X cp ${FILES} ${DISTDIR}
X
Xclean:
X -/bin/rm ${OBJS} observe
X
Xastlib.o: degree.h
Xdatelib.o: date.h
Xeventcalc.o: observe.h degree.h
Xmain.o: observe.h date.h
Xmooncalc.o: observe.h degree.h
Xobjcalc.o: observe.h degree.h
Xorbcalc.o: observe.h degree.h
Xouteph.o: observe.h
Xoutaltaz.o: observe.h
Xoutobs.o: observe.h
Xoutsat.o: observe.h
Xoutsif.o: observe.h
Xplanetcalc.o: observe.h degree.h
Xriseset.o: observe.h degree.h
Xsatcalc.o: observe.h degree.h
Xsuncalc.o: observe.h degree.h
Xtablecalc.o: observe.h date.h
END_OF_FILE
if test 2454 -ne `wc -c <'observe/Makefile'`; then
echo shar: \"'observe/Makefile'\" unpacked with wrong size!
fi
# end of 'observe/Makefile'
fi
if test -f 'observe/descrip.mms' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'observe/descrip.mms'\"
else
echo shar: Extracting \"'observe/descrip.mms'\" \(1697 characters\)
sed "s/^X//" >'observe/descrip.mms' <<'END_OF_FILE'
X###########################################################################
X#
X# VMS 'makefile' for OBSERVE. Type MMS to use.
X# by Michael Campanella (campanella@cvg.enet.dec.com)
X#
X###########################################################################
X# Makefile for observe
X# $Header: descrip.mms,v 1.3 90/01/13 14:47:18 ccount Exp $
X#
XSRCS= astlib.c datelib.c eventcalc.c main.c mooncalc.c objcalc.c \
X orbcalc.c outeph.c outaltaz.c outobs.c outsat.c outsif.c planetcalc.c \
X riseset.c satcalc.c sortlib.c suncalc.c tablecalc.c
XHDRS= date.h degree.h observe.h
XOBJS= astlib.OBJ datelib.OBJ eventcalc.OBJ main.OBJ mooncalc.OBJ objcalc.OBJ orbcalc.OBJ \
X outeph.OBJ outaltaz.OBJ outobs.OBJ outsat.OBJ outsif.OBJ planetcalc.OBJ riseset.OBJ satcalc.OBJ \
X sortlib.OBJ suncalc.OBJ tablecalc.OBJ
XFILES=Makefile ${SRCS} ${HDRS} descrip.mms Observe.MSC
XTARGS=observe.exe
X
X#CFLAGS=-g
XCFLAGS = /list/define=(SYSV,"index=strchr")
XLDFLAGS=-lm
X
XDISTDIR=../../dist/observe
X
X.first
X pu/keep=3/nolog
X define sys sys$library
X
X.last
X pu/nolog
X
Xall : observe.exe
X ! Done !
X
Xobserve.exe : $(OBJS)
X $ define/user lnk$library sys$library:vaxcrtl.olb
X $ link/trace/exe=$(mms$target) $(mms$source_list)
X# ${CC} ${CFLAGS} ${OBJS} -o observe -lm
X
Xastlib.OBJ : degree.h
Xdatelib.OBJ : date.h
Xeventcalc.OBJ : observe.h degree.h
Xmain.OBJ : observe.h date.h
Xmooncalc.OBJ : observe.h degree.h
Xobjcalc.OBJ : observe.h degree.h
Xorbcalc.OBJ : observe.h degree.h
Xouteph.OBJ : observe.h
Xoutobs.OBJ : observe.h
Xoutsat.OBJ : observe.h
Xoutsif.OBJ : observe.h
Xplanetcalc.OBJ : observe.h degree.h
Xriseset.OBJ : observe.h degree.h
Xsatcalc.OBJ : observe.h degree.h
Xsuncalc.OBJ : observe.h degree.h
Xtablecalc.OBJ : observe.h date.h
END_OF_FILE
if test 1697 -ne `wc -c <'observe/descrip.mms'`; then
echo shar: \"'observe/descrip.mms'\" unpacked with wrong size!
fi
# end of 'observe/descrip.mms'
fi
if test -f 'observe/eventcalc.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'observe/eventcalc.c'\"
else
echo shar: Extracting \"'observe/eventcalc.c'\" \(2700 characters\)
sed "s/^X//" >'observe/eventcalc.c' <<'END_OF_FILE'
X/*
X * eventcalc.c
X * calculate rise, set, and transit times for event structure for observability
X *
X * Copyright (c) 1990 by Craig Counterman. All rights reserved.
X *
X * This software may be redistributed freely, not sold.
X * This copyright notice and disclaimer of warranty must remain
X * unchanged.
X *
X * No representation is made about the suitability of this
X * software for any purpose. It is provided "as is" without express or
X * implied warranty, to the extent permitted by applicable law.
X *
X */
X
X
X#ifndef lint
Xstatic char rcsid[] =
X "$Header: eventcalc.c,v 1.4 90/02/19 17:20:21 ccount Exp $";
X#endif
X
X
X#include <stdio.h>
X#include <math.h>
X#include "observe.h"
X#include "degree.h"
X
X#ifndef FALSE
X#define FALSE 0
X#endif
X#ifndef TRUE
X#define TRUE 1
X#endif
X
X
Xvoid calc_events(eventlist, rise_hour, transit_hour, set_hour, jd,
X obs_lon, obs_lat, obs_zone, obs_height, name, alpha, delta)
X observe_t eventlist[]; /* events: rise, set, etc. */
X double *rise_hour, *transit_hour, *set_hour;
X double jd;
X double obs_lon, obs_lat, obs_zone, obs_height;
X char *name;
X double alpha, delta;
X{
X int i;
X
X for (i = 0; i < MAXEVENTS; i++) {
X eventlist[i].special = not_special;
X eventlist[i].object = name;
X }
X *rise_hour =
X eventlist[0].hour = objrise(jd, obs_lon, obs_lat, obs_zone, obs_height,
X alpha, delta);
X eventlist[0].event = rise;
X eventlist[1].hour = objrise20(jd, obs_lon, obs_lat, obs_zone, obs_height,
X alpha, delta);
X eventlist[1].event = rise_20;
X eventlist[2].hour = objrise30(jd, obs_lon, obs_lat, obs_zone, obs_height,
X alpha, delta);
X eventlist[2].event = rise_30;
X *transit_hour =
X eventlist[3].hour = objtransit(jd, obs_lon, obs_lat, obs_zone, obs_height,
X alpha, delta);
X eventlist[3].event = transit;
X eventlist[4].hour = objset30(jd, obs_lon, obs_lat, obs_zone, obs_height,
X alpha, delta);
X eventlist[4].event = set_30;
X eventlist[5].hour = objset20(jd, obs_lon, obs_lat, obs_zone, obs_height,
X alpha, delta);
X eventlist[5].event = set_20;
X *set_hour =
X eventlist[6].hour = objset(jd, obs_lon, obs_lat, obs_zone, obs_height,
X alpha, delta);
X eventlist[6].event = set;
X}
X
Xvoid add_events(events, nevents_p, eventlist)
X observe_t events[]; /* events: rise, set, etc. */
X int *nevents_p;
X observe_t eventlist[]; /* events: rise, set, etc. */
X{
X int i;
X
X for (i = 0; i < MAXEVENTS; i++)
X if (eventlist[i].hour >= 0.0) {
X events[*nevents_p].hour = eventlist[i].hour;
X events[*nevents_p].object = eventlist[i].object;
X events[*nevents_p].event = eventlist[i].event;
X events[*nevents_p].special = eventlist[i].special;
X *nevents_p += 1;
X }
X}
END_OF_FILE
if test 2700 -ne `wc -c <'observe/eventcalc.c'`; then
echo shar: \"'observe/eventcalc.c'\" unpacked with wrong size!
fi
# end of 'observe/eventcalc.c'
fi
if test -f 'observe/outobs.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'observe/outobs.c'\"
else
echo shar: Extracting \"'observe/outobs.c'\" \(2677 characters\)
sed "s/^X//" >'observe/outobs.c' <<'END_OF_FILE'
X/*
X * outobs.c
X * Output observability file for object(s)
X *
X * Copyright (c) 1990 by Craig Counterman. All rights reserved.
X *
X * This software may be redistributed freely, not sold.
X * This copyright notice and disclaimer of warranty must remain
X * unchanged.
X *
X * No representation is made about the suitability of this
X * software for any purpose. It is provided "as is" without express or
X * implied warranty, to the extent permitted by applicable law.
X *
X */
X
X#ifndef lint
Xstatic char rcsid[] =
X "$Header: outobs.c,v 1.9 90/02/23 00:17:00 ccount Exp $";
X#endif
X
X
X#include <stdio.h>
X#include "observe.h"
X#include "date.h"
X
Xstatic char *ret_timeformat();
Xstatic char *ret_eventformat();
X
X/* Output observability file for object(s) */
Xvoid out_obs(outf, one_day, jd, events, index, nevents)
X FILE *outf;
X int one_day; /* only doing one day */
X double jd;
X observe_t events[]; /* The events */
X int index[]; /* sorted into order */
X int nevents;
X{
X int i;
X char datestr[15];
X char *special_cp;
X
X jd_to_str(jd, datestr);
X if (!one_day) fprintf(outf, "%s %.3f\n", datestr, jd);
X for (i = 0; i < nevents; i++) {
X switch (events[index[i]].special) {
X case rise_special:
X special_cp = "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^";
X break;
X case morning_twilight:
X special_cp = "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^";
X break;
X case set_special:
X special_cp = "vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv";
X break;
X case evening_twilight:
X special_cp = "vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv";
X break;
X default:
X special_cp = "";
X break;
X };
X
X fprintf(outf,
X "%-20.20s %8s %8s %s\n",
X events[index[i]].object, ret_timeformat(events[index[i]].hour),
X ret_eventformat(events[index[i]].event), special_cp);
X };
X if (!one_day) fprintf(outf, "\f\n");
X}
X
Xstatic char *ret_timeformat(time)
X double time; /* Hours */
X{
X static char timestring[8];
X int hrs, mins;
X
X if (time < 0.0) return ("-----");
X
X hrs = time;
X mins = (time-hrs)*60.0 + 0.5;
X if (mins == 60)
X {
X hrs = (hrs == 23) ? 0 :(hrs+1);
X mins = 0;
X }
X sprintf(timestring, "%02d:%02d", hrs, mins);
X
X return timestring;
X}
X
Xstatic char *ret_eventformat(event)
X event_t event;
X{
X switch (event) {
X case rise:
X return "rise ";
X break;
X
X case rise_20:
X return "above 20";
X break;
X
X case rise_30:
X return "above 30";
X break;
X
X case set:
X return "set ";
X break;
X
X case set_20:
X return "below 20";
X break;
X
X case set_30:
X return "below 30";
X break;
X
X case transit:
X return "transit ";
X break;
X
X default:
X return " ";
X break;
X };
X}
X
END_OF_FILE
if test 2677 -ne `wc -c <'observe/outobs.c'`; then
echo shar: \"'observe/outobs.c'\" unpacked with wrong size!
fi
# end of 'observe/outobs.c'
fi
if test -f 'observe/sortlib.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'observe/sortlib.c'\"
else
echo shar: Extracting \"'observe/sortlib.c'\" \(2727 characters\)
sed "s/^X//" >'observe/sortlib.c' <<'END_OF_FILE'
X/*
X * sortlib.c
X * sorting subroutines
X *
X * Copyright (c) 1990 by Craig Counterman. All rights reserved.
X *
X * This software may be redistributed freely, not sold.
X * This copyright notice and disclaimer of warranty must remain
X * unchanged.
X *
X * No representation is made about the suitability of this
X * software for any purpose. It is provided "as is" without express or
X * implied warranty, to the extent permitted by applicable law.
X *
X */
X
X#ifndef lint
Xstatic char rcsid[] =
X "$Header: sortlib.c,v 1.5 90/02/19 17:21:43 ccount Exp $";
X#endif
X
X
X#include <math.h>
X
X#ifndef FALSE
X#define FALSE 0
X#endif
X#ifndef TRUE
X#define TRUE 1
X#endif
X
Xvoid HeapSort();
X
Xvoid HeapSort0(darray, iarray, n)
X double darray[];
X int iarray[];
X int n;
X{
X
X darray--; /* make darray[0] look like darray[1] */
X iarray--; /* make iarray[0] look like iarray[1] */
X HeapSort(darray, iarray, n);
X}
X
X
X/* Heap sort algorithm
X Sorts a double array darray of length n into ascending numerical order,
X indexed by iarray */
X
Xvoid HeapSort(darray, iarray, n)
X double darray[];
X int iarray[];
X int n;
X{
X int i, j;
X int l, ir, indxt;
X double q;
X
X
X
X /* Initialize the index array */
X for (i = 1; i <= n; i++)
X iarray[i] = i;
X
X l = n/2 + 1;
X ir = n;
X /* The index l will be decremented from its initial value down to 1 during
X the hiring (heap creation) phase. Once it reaches 1, the index ir will
X be decremented from its initial value down to 1 during the
X "retirement-and-promotion" (heap selection) phase.
X */
X
X while(TRUE) { /* Will exit with a return; */
X if (l > 1) { /* Still in hiring phase. */
X l--;
X indxt = iarray[l];
X q = darray[indxt];
X } else { /* In retirement and promotion phase */
X indxt = iarray[ir];
X q = darray[indxt]; /* Clear a space at the top of the array */
X iarray[ir] = iarray[1]; /* Retire the top of the heap into it */
X ir--; /* Decrease the size of the corporation */
X if (ir == 1) { /* Done with last promotion */
X iarray[1] = indxt; /* The least competent worker of all! */
X for (i = 1; i <= n; i++) /* Reset iarray for C offset */
X iarray[i]--;
X return; /* Done */
X }
X }
X i = l; /* Here set up to sift down element q */
X j = l+l;
X while (j <= ir) {
X if (j < ir) /* Compare to better underling */
X if (darray[iarray[j]] < darray[iarray[j+1]]) j++;
X
X if (q < darray[iarray[j]]) { /* Demote q */
X iarray[i] = iarray[j];
X i = j;
X j = j+j;
X } else {
X j = ir+1; /* This is q's level, set j to terminate */
X } /* sift down */
X }
X iarray[i] = indxt; /* Put q in its slot */
X }
X}
X
X
X
END_OF_FILE
if test 2727 -ne `wc -c <'observe/sortlib.c'`; then
echo shar: \"'observe/sortlib.c'\" unpacked with wrong size!
fi
# end of 'observe/sortlib.c'
fi
if test -f 'samples/asteroids.ell_e' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/asteroids.ell_e'\"
else
echo shar: Extracting \"'samples/asteroids.ell_e'\" \(1562 characters\)
sed "s/^X//" >'samples/asteroids.ell_e' <<'END_OF_FILE'
XFirst three lines are ignored. a = q/(1-e), n = 0.985609/(a*sqrt(a)),
Xif M not given, use M = (Epoch_date - T) * n
XName i Omega omega a n e M Month day year equinox_year body_type H G
XCeres 10.607 80.702 71.274 2.7685 0.21396 0.0780 287.265 Oct 1 1989 2000.0 Asteroid 3.32 0.11
XPallas 34.804 173.323 309.796 2.7703 0.21375 0.2347 273.779 Oct 1 1989 2000.0 Asteroid 4.13 0.15
XJuno 12.993 170.556 246.744 2.6682 0.22614 0.2580 115.411 Oct 1 1989 2000.0 Asteroid 5.31 0.30
XVesta 7.139 104.015 150.175 2.3613 0.27163 0.0906 43.314 Oct 1 1989 2000.0 Asteroid 3.16 0.34
XAstraea 5.357 141.792 356.519 2.5741 0.23865 0.1917 227.749 Oct 1 1989 2000.0 Asteroid 6.91 0.25
XMetis 5.585 69.112 5.315 2.3865 0.26733 0.1219 270.833 Oct 1 1989 2000.0 Asteroid 6.32 0.29
XParthenope 4.621 125.703 193.711 2.4520 0.25669 0.0994 29.828 Oct 1 1989 2000.0 Asteroid 6.62 0.27
XVictoria 8.376 235.863 68.720 2.3340 0.27642 0.2196 29.574 Oct 1 1989 2000.0 Asteroid 7.23 0.24
XIrene 9.113 86.867 95.052 2.5867 0.23691 0.1661 128.194 Oct 1 1989 2000.0 Asteroid 6.27 0.09
XEunomia 11.765 293.619 97.591 2.6437 0.22929 0.1849 327.856 Oct 1 1989 2000.0 Asteroid 5.22 0.20
XPsyche 3.089 150.508 227.581 2.9234 0.19718 0.1335 318.680 Oct 1 1989 2000.0 Asteroid 5.98 0.22
XLachesis 6.968 341.696 237.604 3.1147 0.17930 0.0645 95.139 Oct 1 1989 2000.0 Asteroid 7.73 0.17
XPalatia 8.134 127.553 296.023 2.7882 0.21170 0.3050 85.494 Oct 1 1989 2000.0 Asteroid 9.38 0.32
XPatientia 15.236 89.678 343.267 3.0619 0.18396 0.0709 269.350 Oct 1 1989 2000.0 Asteroid 6.65 0.20
END_OF_FILE
if test 1562 -ne `wc -c <'samples/asteroids.ell_e'`; then
echo shar: \"'samples/asteroids.ell_e'\" unpacked with wrong size!
fi
# end of 'samples/asteroids.ell_e'
fi
if test -f 'samples/color.star' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/color.star'\"
else
echo shar: Extracting \"'samples/color.star'\" \(2508 characters\)
sed "s/^X//" >'samples/color.star' <<'END_OF_FILE'
X000000+0000-00SSO0
X000000+0100-10SSO1
X000000+0200-20SSO2
X000000+0300-30SSO3
X000000+0400-40SSO4
X000000+0500-50SSO5
X000000+0600-60SSO6
X000000+0700-70SSO7
X000000+0800-80SSO8
X000000+0900-90SSO9
X001000+0000-00SSB0
X001000+0100-01SSB1
X001000+0200-02SSB2
X001000+0300-03SSB3
X001000+0400-04SSB4
X001000+0500-05SSB5
X001000+0600-06SSB6
X001000+0700-07SSB7
X001000+0800-08SSB8
X001000+0900-09SSB9
X002000+0000000SSA0
X002000+0100010SSA1
X002000+0200020SSA2
X002000+0300030SSA3
X002000+0400040SSA4
X002000+0500050SSA5
X002000+0600060SSA6
X002000+0700070SSA7
X002000+0800080SSA8
X002000+0900090SSA9
X003000+0000100SSF0
X003000+0100110SSF1
X003000+0200120SSF2
X003000+0300130SSF3
X003000+0400140SSF4
X003000+0500150SSF5
X003000+0600160SSF6
X003000+0700170SSF7
X003000+0800180SSF8
X003000+0900190SSF9
X000100+0000-00SDG0
X000100+0100-10SDG1
X000100+0200-20SDG2
X000100+0300-30SDG3
X000100+0400-40SDG4
X000100+0500-50SDG5
X000100+0600-60SDG6
X000100+0700-70SDG7
X000100+0800-80SDG8
X000100+0900-90SDG9
X001100+0000-00SDK0
X001100+0100-01SDK1
X001100+0200-02SDK2
X001100+0300-03SDK3
X001100+0400-04SDK4
X001100+0500-05SDK5
X001100+0600-06SDK6
X001100+0700-07SDK7
X001100+0800-08SDK8
X001100+0900-09SDK9
X002100+0000000SDM0
X002100+0100010SDM1
X002100+0200020SDM2
X002100+0300030SDM3
X002100+0400040SDM4
X002100+0500050SDM5
X002100+0600060SDM6
X002100+0700070SDM7
X002100+0800080SDM8
X002100+0900090SDM9
X003100+0000100SDR0
X003100+0100110SDR1
X003100+0200120SDR2
X003100+0300130SDR3
X003100+0400140SDR4
X003100+0500150SDR5
X003100+0600160SDR6
X003100+0700170SDR7
X003100+0800180SDR8
X003100+0900190SDR9
X000200+0000-00SVN0
X000200+0100-10SVN1
X000200+0200-20SVN2
X000200+0300-30SVN3
X000200+0400-40SVN4
X000200+0500-50SVN5
X000200+0600-60SVN6
X000200+0700-70SVN7
X000200+0800-80SVN8
X000200+0900-90SVN9
X001200+0000-00SVS0
X001200+0100-01SVS1
X001200+0200-02SVS2
X001200+0300-03SVS3
X001200+0400-04SVS4
X001200+0500-05SVS5
X001200+0600-06SVS6
X001200+0700-07SVS7
X001200+0800-08SVS8
X001200+0900-09SVS9
X002200+0000000SSr0
X002200+0100010SSr3
X002200+0200020SSr6
X002200+0300030SSr9
X002200+0400040SSb0
X002200+0500050SSb3
X002200+0600060SSb6
X002200+0700070SSb9
X002200+0800080SSg0
X002200+0900090SSg3
X003200+0000100SSg6
X003200+0100110SSg9
X003200+0200120SSy0
X003200+0300130SSy3
X003200+0400140SSy6
X003200+0500150SSy9
X003200+0600160SSp0
X003200+0700170SSp3
X003200+0800180SSp6
X003200+0900190SSp9
X004000+0000100SSc0
X004000+0100110SSc3
X004000+0200120SSc6
X004000+0300130SSc9
X004200+0000100SSo0
X004200+0100110SSo3
X004200+0200120SSo6
X004200+0300130SSo9
X004000+0400140SSw0
X004000+0500150SSw3
X004000+0600160SSw6
X004000+0700170SSw9
END_OF_FILE
if test 2508 -ne `wc -c <'samples/color.star'`; then
echo shar: \"'samples/color.star'\" unpacked with wrong size!
fi
# end of 'samples/color.star'
fi
if test -f 'samples/test.star6-A' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/test.star6-A'\"
else
echo shar: Extracting \"'samples/test.star6-A'\" \(2550 characters\)
sed "s/^X//" >'samples/test.star6-A' <<'END_OF_FILE'
X000000+0000600SS
X000000+0100610SS
X000000+0200620SS
X000000+0300630SS
X000000+0400640SS
X000000+0500650SS
X000000+0600660SS
X000000+0700670SS
X000000+0800680SS
X000000+0900690SS
X001000+0000700SS
X001000+0100710SS
X001000+0200720SS
X001000+0300730SS
X001000+0400740SS
X001000+0500750SS
X001000+0600760SS
X001000+0700770SS
X001000+0800780SS
X001000+0900790SS
X002000+0000800SS
X002000+0100810SS
X002000+0200820SS
X002000+0300830SS
X002000+0400840SS
X002000+0500850SS
X002000+0600860SS
X002000+0700870SS
X002000+0800880SS
X002000+0900890SS
X003000+0000900SS
X003000+0100910SS
X003000+0200920SS
X003000+0300930SS
X003000+0400940SS
X003000+0500950SS
X003000+0600960SS
X003000+0700970SS
X003000+0800980SS
X003000+0900990SS
X004000+0000A00SS
X004000+0100A10SS
X004000+0200A20SS
X004000+0300A30SS
X004000+0400A40SS
X004000+0500A50SS
X004000+0600A60SS
X004000+0700A70SS
X004000+0800A80SS
X004000+0900A90SS
X000100+0000600SD
X000100+0100610SD
X000100+0200620SD
X000100+0300630SD
X000100+0400640SD
X000100+0500650SD
X000100+0600660SD
X000100+0700670SD
X000100+0800680SD
X000100+0900690SD
X001100+0000700SD
X001100+0100710SD
X001100+0200720SD
X001100+0300730SD
X001100+0400740SD
X001100+0500750SD
X001100+0600760SD
X001100+0700770SD
X001100+0800780SD
X001100+0900790SD
X002100+0000800SD
X002100+0100810SD
X002100+0200820SD
X002100+0300830SD
X002100+0400840SD
X002100+0500850SD
X002100+0600860SD
X002100+0700870SD
X002100+0800880SD
X002100+0900890SD
X003100+0000900SD
X003100+0100910SD
X003100+0200920SD
X003100+0300930SD
X003100+0400940SD
X003100+0500950SD
X003100+0600960SD
X003100+0700970SD
X003100+0800980SD
X003100+0900990SD
X004100+0000A00SD
X004100+0100A10SD
X004100+0200A20SD
X004100+0300A30SD
X004100+0400A40SD
X004100+0500A50SD
X004100+0600A60SD
X004100+0700A70SD
X004100+0800A80SD
X004100+0900A90SD
X000200+0000600SV
X000200+0100610SV
X000200+0200620SV
X000200+0300630SV
X000200+0400640SV
X000200+0500650SV
X000200+0600660SV
X000200+0700670SV
X000200+0800680SV
X000200+0900690SV
X001200+0000700SV
X001200+0100710SV
X001200+0200720SV
X001200+0300730SV
X001200+0400740SV
X001200+0500750SV
X001200+0600760SV
X001200+0700770SV
X001200+0800780SV
X001200+0900790SV
X002200+0000800SV
X002200+0100810SV
X002200+0200820SV
X002200+0300830SV
X002200+0400840SV
X002200+0500850SV
X002200+0600860SV
X002200+0700870SV
X002200+0800880SV
X002200+0900890SV
X003200+0000900SV
X003200+0100910SV
X003200+0200920SV
X003200+0300930SV
X003200+0400940SV
X003200+0500950SV
X003200+0600960SV
X003200+0700970SV
X003200+0800980SV
X003200+0900990SV
X004200+0000A00SV
X004200+0100A10SV
X004200+0200A20SV
X004200+0300A30SV
X004200+0400A40SV
X004200+0500A50SV
X004200+0600A60SV
X004200+0700A70SV
X004200+0800A80SV
X004200+0900A90SV
END_OF_FILE
if test 2550 -ne `wc -c <'samples/test.star6-A'`; then
echo shar: \"'samples/test.star6-A'\" unpacked with wrong size!
fi
# end of 'samples/test.star6-A'
fi
if test -f 'samples/test.starbright' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/test.starbright'\"
else
echo shar: Extracting \"'samples/test.starbright'\" \(2142 characters\)
sed "s/^X//" >'samples/test.starbright' <<'END_OF_FILE'
X000000+0000-00SS
X000000+0100-10SS
X000000+0200-20SS
X000000+0300-30SS
X000000+0400-40SS
X000000+0500-50SS
X000000+0600-60SS
X000000+0700-70SS
X000000+0800-80SS
X000000+0900-90SS
X001000+0000-00SS
X001000+0100-01SS
X001000+0200-02SS
X001000+0300-03SS
X001000+0400-04SS
X001000+0500-05SS
X001000+0600-06SS
X001000+0700-07SS
X001000+0800-08SS
X001000+0900-09SS
X002000+0000000SS
X002000+0100010SS
X002000+0200020SS
X002000+0300030SS
X002000+0400040SS
X002000+0500050SS
X002000+0600060SS
X002000+0700070SS
X002000+0800080SS
X002000+0900090SS
X003000+0000-16SS
X003000+0100C10SS
X004000+0000100SS
X004000+0100110SS
X004000+0200120SS
X004000+0300130SS
X004000+0400140SS
X004000+0500150SS
X004000+0600160SS
X004000+0700170SS
X004000+0800180SS
X004000+0900190SS
X000100+0000-00SD
X000100+0100-10SD
X000100+0200-20SD
X000100+0300-30SD
X000100+0400-40SD
X000100+0500-50SD
X000100+0600-60SD
X000100+0700-70SD
X000100+0800-80SD
X000100+0900-90SD
X001100+0000-00SD
X001100+0100-01SD
X001100+0200-02SD
X001100+0300-03SD
X001100+0400-04SD
X001100+0500-05SD
X001100+0600-06SD
X001100+0700-07SD
X001100+0800-08SD
X001100+0900-09SD
X002100+0000000SD
X002100+0100010SD
X002100+0200020SD
X002100+0300030SD
X002100+0400040SD
X002100+0500050SD
X002100+0600060SD
X002100+0700070SD
X002100+0800080SD
X002100+0900090SD
X003100+0000-16SD
X003100+0100C10SD
X004100+0000100SD
X004100+0100110SD
X004100+0200120SD
X004100+0300130SD
X004100+0400140SD
X004100+0500150SD
X004100+0600160SD
X004100+0700170SD
X004100+0800180SD
X004100+0900190SD
X000200+0000-00SV
X000200+0100-10SV
X000200+0200-20SV
X000200+0300-30SV
X000200+0400-40SV
X000200+0500-50SV
X000200+0600-60SV
X000200+0700-70SV
X000200+0800-80SV
X000200+0900-90SV
X001200+0000-00SV
X001200+0100-01SV
X001200+0200-02SV
X001200+0300-03SV
X001200+0400-04SV
X001200+0500-05SV
X001200+0600-06SV
X001200+0700-07SV
X001200+0800-08SV
X001200+0900-09SV
X002200+0000000SV
X002200+0100010SV
X002200+0200020SV
X002200+0300030SV
X002200+0400040SV
X002200+0500050SV
X002200+0600060SV
X002200+0700070SV
X002200+0800080SV
X002200+0900090SV
X003200+0000-16SV
X003200+0100C10SV
X004200+0000100SV
X004200+0100110SV
X004200+0200120SV
X004200+0300130SV
X004200+0400140SV
X004200+0500150SV
X004200+0600160SV
X004200+0700170SV
X004200+0800180SV
X004200+0900190SV
END_OF_FILE
if test 2142 -ne `wc -c <'samples/test.starbright'`; then
echo shar: \"'samples/test.starbright'\" unpacked with wrong size!
fi
# end of 'samples/test.starbright'
fi
if test -f 'starchart/README.mac' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/README.mac'\"
else
echo shar: Extracting \"'starchart/README.mac'\" \(1766 characters\)
sed "s/^X//" >'starchart/README.mac' <<'END_OF_FILE'
XWhile there is not yet a Macintosh version available, some of the programs
Xshould compile and run on the Macintosh.
X
XHere is a makefile for starpost for MPW C, provided by Gavin Eadie,
XGavin_Eadie@um.cc.umich.edu. It has been modified so that the
Xnon-ASCII character that appear in MPW makefiles are printable - <f>
Xfor the dependency operator and <d> for the literal-next:
X
X# File: StarPost.make
X# Target: StarPost
X# Sources: starmain.c
X# starm2.c
X# starsupp.c
X# readfile.c
X# parse_input.c
X# starpost.c
X# starcust.c
X# Created: Thursday, March 8, 1990 9:46:18 AM
X
XCOPTIONS = -m -d 'NEBFILE="neb.star"' -d 'STARFILE="yale.star"'
X
Xstarmain.c.o <f> starmain.c
X C -s 1 starmain.c {COPTIONS}
Xstarm2.c.o <f> starm2.c
X C -s 2 starm2.c {COPTIONS}
Xstarsupp.c.o <f> starsupp.c
X C -s 3a starsupp.c {COPTIONS}
Xreadfile.c.o <f> readfile.c
X C -s 4 readfile.c {COPTIONS}
Xparse_input.c.o <f> parse_input.c
X C -s 5 parse_input.c {COPTIONS}
Xstarpost.c.o <f> starpost.c
X C -s 6 starpost.c {COPTIONS}
Xstarcust.c.o <f> starcust.c
X C -s 7 starcust.c {COPTIONS}
X
XOBJECTS = <d>
X starmain.c.o <d>
X starm2.c.o <d>
X starsupp.c.o <d>
X readfile.c.o <d>
X parse_input.c.o <d>
X starpost.c.o <d>
X starcust.c.o
X
XStarPost <ff> StarPost.make {OBJECTS}
X Link -ss 65000 -w -c 'MPS ' -t MPST <d>
X {OBJECTS} <d>
X "{Libraries}"stubs.o <d>
X "{CLibraries}"CRuntime.o <d>
X "{Libraries}"Interface.o <d>
X "{CLibraries}"StdCLib.o <d>
X "{CLibraries}"CSANELib.o <d>
X "{CLibraries}"Math.o <d>
X "{CLibraries}"CInterface.o <d>
X "{Libraries}"ToolLibs.o <d>
X {Cincludes}StdCLib.o <d>
X -o StarPost
END_OF_FILE
if test 1766 -ne `wc -c <'starchart/README.mac'`; then
echo shar: \"'starchart/README.mac'\" unpacked with wrong size!
fi
# end of 'starchart/README.mac'
fi
if test -f 'starchart/Starchar.MSC' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/Starchar.MSC'\"
else
echo shar: Extracting \"'starchart/Starchar.MSC'\" \(2255 characters\)
sed "s/^X//" >'starchart/Starchar.MSC' <<'END_OF_FILE'
X# Makefile Microsoft C Version 5.1 - staribm
XCC=cl
X
XLIB=C:\C51\LIB\GRAPHICS.LIB
X
XTARGS=staribm.exe
X
XLOCAL=-DSYSV -Dindex=strchr
X
X
X# FOR ALL
X# define OLD_GREEK if you have the old yale.star file, with a
X# slightly different greek encoding
X# To produce programs which allow keyboard user interaction with the -u flag,
X# see COBJ and starmain.o below.
XDEFINES=-DOLD_GREEK
X
X#list ALL header files
XHDRS=icon.h parse_input.h star3.h pcstar.h patchlevel.h
X
X#list ALL source files, whether or not you use them
XSRCS= interact.c parse_input.c readfile.c starimages.c starm2.c starmain.c \
X starsupp.c staribm.c
X
X#list ALL object files which could be produced
XOBJS= interact.obj parse_input.obj readfile.obj starimages.obj starm2.obj \
X starcust.obj starmain.obj staribm.obj
X
XFILES=Makefile README $(SRCS) $(HDRS)
X
X#The following may be defined here to set default data file locations
X# filename filetype description
X# STARFILE STARFTYPE bright star data (yale)
X# INDEXFILE INDEXFTYPE index to fainter stars (SAO)
X# NEBFILE NEBFTYPE nebulae
X# BOUNDFILE BOUNDFTYPE constellation boundaries
X# PATTERNFILE PATTFTYPE constellation patterns
X# CNAMEFILE CNAMEFTYPE constellation names
X# PLANETFILE PLANETFTYPE planet positions
X
X# other files
X# CONSTFILE constellation locations
X# RCFILE resource file
X
Xall: $(TARGS)
X
X#CFLAGS= $(LOCAL) $(DEFINES) -AL -Gt16 -Zi -Od
XCFLAGS= $(LOCAL) $(DEFINES) -AL
X
X
XCOBJ=starmain.obj starm2.obj starsupp.obj readfile.obj parse_input.obj \
X starcust.obj interact.obj
XCOBJIM=$(COBJ) starimages.obj
X
Xstaribm.exe: $(COBJIM) staribm.obj
X $(CC) *.obj -Zi -F 6000 -Festaribm.exe $(LIB)
X
X# use -DINTERACTIVE_CONTROL in starmain.obj and starm2.obj
X# to allow keyboard user interaction
Xstarmain.obj: starmain.c star3.h pcstar.h parse_input.h
X $(CC) $(CFLAGS) -DINTERACTIVE_CONTROL -c starmain.c
X
Xstarm2.obj: starm2.c star3.h pcstar.h
X $(CC) $(CFLAGS) -DINTERACTIVE_CONTROL -c starm2.c
X
Xreadfile.obj: readfile.c star3.h pcstar.h
X
Xstarimages.obj: starimages.c star3.h pcstar.h
X $(CC) $(CFLAGS) -DAREAS -c starimages.c
X
Xstarcust.obj: starcust.c star3.h pcstar.h
Xinteract.obj: star3.h pcstar.h parse_input.h patchlevel.h
Xparse_input.obj: star3.h pcstar.h parse_input.h
Xstarsupp.obj: star3.h pcstar.h
X
Xclean:
X rm -f *.obj $(TARGS)
END_OF_FILE
if test 2255 -ne `wc -c <'starchart/Starchar.MSC'`; then
echo shar: \"'starchart/Starchar.MSC'\" unpacked with wrong size!
fi
# end of 'starchart/Starchar.MSC'
fi
if test -f 'starchart/startool.icon' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/startool.icon'\"
else
echo shar: Extracting \"'starchart/startool.icon'\" \(1933 characters\)
sed "s/^X//" >'starchart/startool.icon' <<'END_OF_FILE'
X/* Format_version=1, Width=64, Height=64, Depth=1, Valid_bits_per_item=16
X */
X 0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,
X 0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,
X 0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xF007,0xFFFF,0xFFFF,0xF987,
X 0xF7DF,0xFFE0,0x03FF,0xF6B7,0xF7DF,0xFF0F,0xF87F,0xF6B7,
X 0xF0DF,0xF8FF,0xFF8F,0xF087,0xFEDF,0xE3FF,0xFFE3,0xF6AF,
X 0xFEDF,0xCFFF,0xFFF9,0xF6B7,0xF0DF,0xBFFF,0xFFFE,0xF6BB,
X 0xFFFE,0x7FFF,0xFFFF,0x3FFF,0xFFFC,0xFFFF,0xFFFF,0x9FFF,
X 0xFFF9,0xFFFF,0xFFFF,0xCFFF,0xFFF3,0xFFFD,0xFFFF,0xE7FF,
X 0xFFF7,0xFFFF,0xFFFF,0xF7FF,0xFFEF,0xFFFF,0xFF7F,0xFBFF,
X 0xFFDF,0xDFFF,0xFF7F,0xFDFF,0xFF9F,0xFFFF,0xFFFF,0xFCFF,
X 0xFFBF,0xF7FF,0xFFFF,0xFEFF,0xFF3F,0xFFFF,0xFFFF,0xFE7F,
X 0xFF7F,0xFFFF,0xFFFF,0xFF7F,0xFF7F,0xFFFF,0xFFEF,0xBF7F,
X 0xFEFF,0xFFFF,0x7FC7,0xFFBF,0xFEFF,0xF7FF,0xFFEF,0xFFBF,
X 0xFEFF,0xE3FF,0xFFFF,0xFFBF,0xFCFF,0xF7FF,0xFFFF,0xFF9F,
X 0xFDFF,0xFFFF,0xE7FF,0xFFDF,0xFDFF,0xFFFF,0xE7FF,0xFFDF,
X 0xFDFF,0xFFFF,0xFFFF,0xFFDF,0xFDFF,0xF7FF,0xFFFF,0xFFDF,
X 0xFDFF,0xFFFF,0xFFFF,0xFFDF,0xFDF7,0xFFFF,0xFFFF,0x7FDF,
X 0xFDFF,0xFFFF,0xFFFF,0xFFDF,0xFDFF,0xFFFF,0xFFFF,0xFFDF,
X 0xFDFF,0xFFFF,0xFFFF,0xFFDF,0xFCFF,0xFFE7,0xFBFF,0xFF9F,
X 0xFEFF,0xFFE7,0xFFFF,0xFFBF,0xFEFF,0xFFFF,0xFFFF,0xFFBF,
X 0xFEFF,0x7FFF,0xFFEF,0xFFBF,0xFF7F,0xFFFF,0xFFC7,0xFF7F,
X 0xFF7F,0xFFFF,0xFFEF,0xFF7F,0xFF3F,0xFFFF,0xFFFF,0xFE7F,
X 0xFFBF,0xFFFF,0xFFFF,0xFEFF,0xFF9F,0xFDFF,0xFBF7,0xFCFF,
X 0xFFDF,0xFFFF,0xFFFF,0xFDFF,0xFFEF,0xFFFF,0xFFFF,0xFBFF,
X 0xFFF7,0xFFFF,0xBFFF,0xF7FF,0xFFF3,0xFFFF,0xFFFF,0xE7FF,
X 0xFFF9,0xFFFF,0xFFFF,0xCFFF,0xFFFC,0xFFFF,0xFFFF,0x9FFF,
X 0xFFFE,0x7FFB,0xFFFF,0x3FFF,0xFFFF,0xBFFF,0xFFFE,0xFFFF,
X 0xFFFF,0xCFFF,0xFFF9,0xFFFF,0xE0B7,0xE3FF,0xFFE3,0x9841,
X 0xEFB7,0xF8FF,0xFF8F,0x6B77,0xEFB7,0xFF0F,0xF87F,0x6B77,
X 0xEF87,0xFFE0,0x03FF,0x0877,0xEFB7,0xFFFF,0xFFFF,0x6AF7,
X 0xEFB7,0xFFFF,0xFFFF,0x6B77,0xE0B7,0xFFFF,0xFFFF,0x6BB7,
X 0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF,0xFFFF
END_OF_FILE
if test 1933 -ne `wc -c <'starchart/startool.icon'`; then
echo shar: \"'starchart/startool.icon'\" unpacked with wrong size!
fi
# end of 'starchart/startool.icon'
fi
echo shar: End of archive 2 \(of 32\).
cp /dev/null ark2isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 32 archives.
rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0