ccount@ATHENA.MIT.EDU (03/16/90)
Posting-number: Volume 11, Issue 29
Submitted-by: ccount@ATHENA.MIT.EDU
Archive-name: starchart/part01
This is release 3 of starchart, actually now starchart/observe, plus
supporting programs and data files. Starchart produces astronomical
charts from a variety of databases, producing output for, in rough
order of quality, PostScript, X11, Sunview, Atari ST, IBM PC, X10,
tektronix, unix plot, HP laserjet, and tty displays, on Unix, vms and
other systems. It is straightforward to write drivers for other
output devices. Observe is a multifunction program for use in
planning an observing session. It calculates the positions of planets
and their satellites, asteroids and comets, calculates rising and
setting times, and much more. Observe complements the Ephem program
previously posted in comp.sources.misc.
This version of starchart is compatible with earlier versions written
by awpaeth.
Databases for starchart were posted to comp.sources.unix: volume12
contains the previous version including a version of the yale bright
star catalog, and volume16 contains a version of the SAO catalog.
This version supports the Hubble Space Telescope Guide Star Catalog
version 1.0. A nebula database is available and may be submitted in
the future. Archive sites for databases are much desired, contact me
as ccount@athena.mit.edu to arrange things.
#! /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 32)."
# Contents: MANIFEST Readme data data/README dataconv
# dataconv/Dataconv.MSC dataconv/README doc doc/astroinfo.el
# doc/dataconv.1 doc/sif_to_text.1 doc/starX11.1 doc/staribm.1
# doc/tosize.1 observe observe/Astring.h observe/Observe.MSC
# observe/date.h observe/degree.h samples samples/1989c1.par_e
# samples/README samples/area.rc samples/area.star samples/area2.rc
# samples/area2.star samples/area3.star samples/cer.aa
# samples/cer.emp samples/cer.empb samples/cobj.rc samples/cobj.star
# samples/color.rc samples/colorize.c samples/colorsif.awk
# samples/colorsif.perl samples/colorstar.awk samples/colorstar.perl
# samples/comet.par_e samples/gnomonic.rc samples/moon.rc
# samples/moon.star samples/obj.rc samples/obj.star
# samples/sampl.iau samples/sampl.st samples/sample.rc
# samples/size.rc samples/size.star samples/test.rc starchart
# starchart/README starchart/decwxtk.opt starchart/patchlevel.h
# starchart/pcstar.h starchart/postconv.awk starchart/starXaw.h
# starchart/starchart_init.com starchart/startool.sh
# starchart/vaxcrtl.opt starchart/vqgdos.s starchart/vqgdos.txt
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'MANIFEST' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'MANIFEST'\"
else
echo shar: Extracting \"'MANIFEST'\" \(4736 characters\)
sed "s/^X//" >'MANIFEST' <<'END_OF_FILE'
X File Name Archive # Description
X-----------------------------------------------------------
X MANIFEST 1 This shipping list
X Readme 1
X Readme.second 2
X data 1
X data/README 1
X data/boundaries.star 9
X data/cnames.star 2
X data/con.locs 3
X data/index.indx 3
X data/pattern.star 9
X data/reg_to_indx.perl 3
X dataconv 1
X dataconv/Dataconv.MSC 1
X dataconv/Makefile 2
X dataconv/README 1
X dataconv/dataconv.c 25
X dataconv/sif_to_text.c 11
X dataconv/tosize.c 2
X dataconv/tosize.perl 2
X doc 1
X doc/README 2
X doc/as.ms.aa 24
X doc/as.ms.ab 22
X doc/as.texi.aa 31
X doc/as.texi.ab 30
X doc/astroinfo.el 1
X doc/dataconv.1 1
X doc/observe.1 5
X doc/sif_to_text.1 1
X doc/starX11.1 1
X doc/starchart.1 8
X doc/staribm.1 1
X doc/starpost.1 3
X doc/tosize.1 1
X observe 1
X observe/Astring.h 1
X observe/Makefile 2
X observe/Observe.MSC 1
X observe/README 4
X observe/astlib.c 4
X observe/date.h 1
X observe/datelib.c 5
X observe/degree.h 1
X observe/descrip.mms 2
X observe/eventcalc.c 2
X observe/main.c 11
X observe/mooncalc.c 6
X observe/objcalc.c 3
X observe/observe.h 5
X observe/orbcalc.c 7
X observe/outaltaz.c 4
X observe/outeph.c 4
X observe/outobs.c 2
X observe/outsat.c 13
X observe/outsif.c 7
X observe/planetcalc.c 15
X observe/riseset.c 4
X observe/satcalc.c 5
X observe/sortlib.c 2
X observe/suncalc.c 3
X observe/tablecalc.c 7
X samples 1
X samples/1989c1.par_e 1
X samples/README 1
X samples/area.rc 1
X samples/area.star 1
X samples/area2.rc 1
X samples/area2.star 1
X samples/area3.star 1
X samples/ast1990.ell_e 6
X samples/asteroids.ell_e 2
X samples/cer.aa 1
X samples/cer.emp 1
X samples/cer.empb 1
X samples/cobj.rc 1
X samples/cobj.star 1
X samples/color.rc 1
X samples/color.star 2
X samples/colorize.c 1
X samples/colorsif.awk 1
X samples/colorsif.perl 1
X samples/colorstar.awk 1
X samples/colorstar.perl 1
X samples/comet.par_e 1
X samples/gnomonic.rc 1
X samples/mess.obj 3
X samples/moon.rc 1
X samples/moon.star 1
X samples/obj.rc 1
X samples/obj.star 1
X samples/sampl.iau 1
X samples/sampl.st 1
X samples/sample.rc 1
X samples/size.rc 1
X samples/size.star 1
X samples/test.rc 1
X samples/test.star1-5 3
X samples/test.star6-A 2
X samples/test.starbright 2
X starchart 1
X starchart/Makefile 6
X starchart/README 1
X starchart/README.mac 2
X starchart/README.st 3
X starchart/Starchar.MSC 2
X starchart/decwxtk.opt 1
X starchart/descrip.mms 7
X starchart/icon.h 3
X starchart/interact.c 5
X starchart/makefile.st 3
X starchart/parse_input.c 4
X starchart/parse_input.h 4
X starchart/patchlevel.h 1
X starchart/pcstar.h 1
X starchart/postconv.awk 1
X starchart/readfile.c 13
X starchart/sXawD.c.aa 20
X starchart/sXawD.c.ab 21
X starchart/spo.c.aa 26
X starchart/spo.c.ab 16
X starchart/ssup.c.aa 19
X starchart/ssup.c.ab 18
X starchart/star3.h 4
X starchart/starX10.c 10
X starchart/starX11.c 29
X starchart/starXaw.c 17
X starchart/starXaw.h 1
X starchart/starXawDlog.h 3
X starchart/starXawHelp.c 8
X starchart/starXawMwin.c 32
X starchart/starchart_init.com 1
X starchart/starcust.c 5
X starchart/stardsp.c 10
X starchart/staribm.c 9
X starchart/starimages.c 28
X starchart/starlaser.c 8
X starchart/starm2.c 12
X starchart/starmain.c 23
X starchart/starsample.c 10
X starchart/starst.c 12
X starchart/starsunv.c 14
X starchart/startek.c 6
X starchart/startool.icon 2
X starchart/startool.sh 1
X starchart/startool.tt 27
X starchart/staruplot.c 6
X starchart/vaxcrtl.opt 1
X starchart/vqgdos.s 1
X starchart/vqgdos.txt 1
END_OF_FILE
if test 4736 -ne `wc -c <'MANIFEST'`; then
echo shar: \"'MANIFEST'\" unpacked with wrong size!
fi
# end of 'MANIFEST'
fi
if test -f 'Readme' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'Readme'\"
else
echo shar: Extracting \"'Readme'\" \(1307 characters\)
sed "s/^X//" >'Readme' <<'END_OF_FILE'
XThis is release 3 of starchart, actually now starchart/observe, plus
Xsupporting programs and data files. Starchart produces astronomical
Xcharts from a variety of databases, producing output for, in rough
Xorder of quality, PostScript, X11, Sunview, Atari ST, IBM PC, X10,
Xtektronix, unix plot, HP laserjet, and tty displays, on Unix, vms and
Xother systems. It is straightforward to write drivers for other
Xoutput devices. Observe is a multifunction program for use in
Xplanning an observing session. It calculates the positions of planets
Xand their satellites, asteroids and comets, calculates rising and
Xsetting times, and much more. Observe complements the Ephem program
Xpreviously posted in comp.sources.misc.
X
XThis version of starchart is compatible with earlier versions written
Xby awpaeth.
X
XDatabases for starchart were posted to comp.sources.unix: volume12
Xcontains the previous version including a version of the yale bright
Xstar catalog, and volume16 contains a version of the SAO catalog.
XThis version supports the Hubble Space Telescope Guide Star Catalog
Xversion 1.0. A nebula database is available and may be submitted in
Xthe future. Archive sites for databases are much desired, contact me
Xas ccount@athena.mit.edu to arrange things.
X
X
X
END_OF_FILE
if test 1307 -ne `wc -c <'Readme'`; then
echo shar: \"'Readme'\" unpacked with wrong size!
fi
# end of 'Readme'
fi
if test ! -d 'data' ; then
echo shar: Creating directory \"'data'\"
mkdir 'data'
fi
if test -f 'data/README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'data/README'\"
else
echo shar: Extracting \"'data/README'\" \(1169 characters\)
sed "s/^X//" >'data/README' <<'END_OF_FILE'
XThese are data files to accompany the starchart program.
X
Xboundaries.star constellation boundaries
Xcnames.star constellation names
Xcon.locs constellation locations
Xindex.indx sample index file for SAO data (see below)
Xpattern.star constellation patterns
Xreg_to_indx.perl generate index file for GSC CD rom (see below)
X
XThe *.star files are courtesy Dave Van't Hof. The con.locs file is
Xfrom Bob Tidd, modified by Dave.
X
XYou will also need a bright star file, typically yale.star from
Xcomp.sources.unix volume 12 (patches in volume 13), and optionally a
Xlarger database, for example the converted SAO database available from
Xcomp.sources.unix volume 16, or the GSC CD_ROM.
X
XIf you have the GSC CD_ROM, you should generate an index.indx file
X(perhaps name it "gsc.indx" and alter the starchart Makefile
Xaccordingly). See reg_to_indx.perl for details. The file so
Xgenerated is too large to include in this distribution.
X
XA nebula database file was posted to sci.astro in the past, and
Xanother may be posted to a source group by mid-1990.
X
XSee sci.astro or the astronomy mailing list for news of other
Xdatabases.
X
END_OF_FILE
if test 1169 -ne `wc -c <'data/README'`; then
echo shar: \"'data/README'\" unpacked with wrong size!
fi
# end of 'data/README'
fi
if test ! -d 'dataconv' ; then
echo shar: Creating directory \"'dataconv'\"
mkdir 'dataconv'
fi
if test -f 'dataconv/Dataconv.MSC' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'dataconv/Dataconv.MSC'\"
else
echo shar: Extracting \"'dataconv/Dataconv.MSC'\" \(489 characters\)
sed "s/^X//" >'dataconv/Dataconv.MSC' <<'END_OF_FILE'
XSRCS=dataconv.c tosize.c sif_to_text.c
XHDRS=
XOBJS=dataconv.obj tosize.obj sif_to_text.obj
XFILES=Makefile $(SRCS) $(HDRS)
XTARGS=dataconv.exe tosize.exe sif_to_text.exe
X
XCFLAGS=
XLDFLAGS=
X
X
XDISTDIR=../../dist/dataconv
X
Xall: $(TARGS)
X
X
Xdataconv.exe: dataconv.obj
X $(CC) $(CFLAGS) -o $@ dataconv.obj $(LDFLAGS)
X
Xtosize.exe: tosize.obj
X $(CC) $(CFLAGS) -o $@ tosize.obj $(LDFLAGS)
X
Xsif_to_text.exe: sif_to_text.obj
X $(CC) $(CFLAGS) -o $@ sif_to_text.obj $(LDFLAGS)
X
Xclean:
X rm -f *.obj $(TARGS)
END_OF_FILE
if test 489 -ne `wc -c <'dataconv/Dataconv.MSC'`; then
echo shar: \"'dataconv/Dataconv.MSC'\" unpacked with wrong size!
fi
# end of 'dataconv/Dataconv.MSC'
fi
if test -f 'dataconv/README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'dataconv/README'\"
else
echo shar: Extracting \"'dataconv/README'\" \(49 characters\)
sed "s/^X//" >'dataconv/README' <<'END_OF_FILE'
X1) Dataconv.MSC is for Microsoft C on the IBMPC.
END_OF_FILE
if test 49 -ne `wc -c <'dataconv/README'`; then
echo shar: \"'dataconv/README'\" unpacked with wrong size!
fi
# end of 'dataconv/README'
fi
if test ! -d 'doc' ; then
echo shar: Creating directory \"'doc'\"
mkdir 'doc'
fi
if test -f 'doc/astroinfo.el' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'doc/astroinfo.el'\"
else
echo shar: Extracting \"'doc/astroinfo.el'\" \(139 characters\)
sed "s/^X//" >'doc/astroinfo.el' <<'END_OF_FILE'
X;; Start emacs using: "emacs -l astroinfo.el"
X(load "info")
X;; You may want to use an absolute path name here
X(Info-goto-node "(./astro)")
END_OF_FILE
if test 139 -ne `wc -c <'doc/astroinfo.el'`; then
echo shar: \"'doc/astroinfo.el'\" unpacked with wrong size!
fi
# end of 'doc/astroinfo.el'
fi
if test -f 'doc/dataconv.1' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'doc/dataconv.1'\"
else
echo shar: Extracting \"'doc/dataconv.1'\" \(1328 characters\)
sed "s/^X//" >'doc/dataconv.1' <<'END_OF_FILE'
X.TH DATACONV LOCAL "15 July 1989"
X.ad b
X.SH NAME
Xdataconv \- convert data between starchart formats, precessing if desired
X.SH SYNOPSIS
X.B dataconv
X.BI \-i " inname intype"
X.BI \-o " outname outtype"
X[
X.BI \-s c
X]
X.br
X.if t .ti +.5i
X[
X.BI \-f " from_equinox"
X.BI \-t " to_equinox"
X]
X
X.SH DESCRIPTION
X
XConvert the file \fIinname\fR of file format \fIintype\fR to
X\fIoutname\fR of file format \fIouttype\fR. If either type is `sif',
Xthe \fB-s\fIc\fR argument specifies a field separation character of
X\fIc\fR. The default separation character is ";". The coordinates
Xmay be precessed from \fIfrom_equinox\fR to \fIto_equinox\fR.
X.PP
X
XThe file formats are:
X.br
Xlineread - yale.star format text format.
X.br
Xsif - Starchart Interchange Format, simple text format.
X.br
Xbinfull - Binary file format containing all the data in the above formats.
X.br
Xbinobj - Binary file format containing only position, magnitude, and
Xobject type.
X.br
Xbinstar - Binary file format containing only position and magnitude,
Xtype defaults to single star.
X.br
Xgsc - Data file from the Guide Star Catalog. This format can
Xonly be read, not generated.
X.PP
X
X.SH EXAMPLES
Xdataconv -i yale.star lineread -o yale.binstar binfull
X.br
Xdataconv -i new-comet.sif sif -o new-comet binobj -s= -f 1989.0 -t 2000.0
X.SH FILES
X.SH BUGS
X.SH AUTHOR
XCraig Counterman
END_OF_FILE
if test 1328 -ne `wc -c <'doc/dataconv.1'`; then
echo shar: \"'doc/dataconv.1'\" unpacked with wrong size!
fi
# end of 'doc/dataconv.1'
fi
if test -f 'doc/sif_to_text.1' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'doc/sif_to_text.1'\"
else
echo shar: Extracting \"'doc/sif_to_text.1'\" \(636 characters\)
sed "s/^X//" >'doc/sif_to_text.1' <<'END_OF_FILE'
X.TH SIF_TO_TEXT LOCAL "15 July 1989"
X.ad b
X.SH NAME
Xsif_to_text \- produce table of data contained in `sif' format
Xstarchart data file
X.SH SYNOPSIS
X.B sif_to_text
X[
X.BI \-i " infile"
X] [
X.BI -s c
X]
X
X.SH DESCRIPTION
X
XThis program takes the data from the starchart `sif' format file
X\fIinfile\fR, or the standard input if no file name is given, and
Xsends the interpreted and formatted data to the standard output.
X.PP
X
XThe \fB-s\fR\fIc\fR argument specifies the field separation character of
Xthe input `sif' data. The default separation character is ";".
X
X.PP
X
XSee also the \fIdataconv\fI program.
X
X.SH BUGS
X.SH AUTHOR
XCraig Counterman
END_OF_FILE
if test 636 -ne `wc -c <'doc/sif_to_text.1'`; then
echo shar: \"'doc/sif_to_text.1'\" unpacked with wrong size!
fi
# end of 'doc/sif_to_text.1'
fi
if test -f 'doc/starX11.1' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'doc/starX11.1'\"
else
echo shar: Extracting \"'doc/starX11.1'\" \(1318 characters\)
sed "s/^X//" >'doc/starX11.1' <<'END_OF_FILE'
X.TH STARCHART LOCAL "15 July 1989"
X.ad b
X.SH NAME
XstarX11, starXaw, starXtk \- astronomical star charts for X11.
X.SH SYNOPSIS
XArguments as in other starchart programs, with the special argument -a:
X.br
X.B \-a
X"\fBp\fR
X|
X.B l
X|
X.B h
X|
X.B b
X|
X.B m
X|
X.BI t " toolkit_args"
X"
X.br
X
X.SH DESCRIPTION
XSee
X.IR starchart(1)
Xfor details on the starchart programs in general.
X.PP
XThe additional argument is:
X\fBh\fR for hide: display is generated invisibly, which may save time.
X.br
X\fBp\fR for PostScript preview: use screen size and shape to
Xapproximate coverage of ``starpost'' chart.
X.br
X\fBl\fR for PostScript landscape preview: use screen size and shape to
Xapproximate coverage of ``starpost'' landscape format chart.
X.br
X\fBb\fR for backup: use backup pixmap, allows window to be hidden and redrawn.
X.br
X\fBm\fR for monochrome: prevents use of color on displays otherwise
Xcapable of it.
X.PP
XstarXaw has the additional control:
X.br
X.BI t " toolkit_args"
Xfor access to the standard X toolkit controls, such as for geometry,
Xfonts, etc.
X.SH EXAMPLES
XstarX11 -c ori -g 5 -a p
X.br
XstarXaw -c sgr -a p -a "t -geometry -0-0 -bg red"
X
X.SH BUGS
X.SH AUTHORS/EDITORS
XCraig Counterman
X.br
XAlan Paeth, University of Waterloo <AWPaeth@watCGL>
X.SH MAJOR CONTRIBUTORS
XJoe Wang <joe@athena.mit.edu>
X.br
XSteve Kennedy <smk@cbosgd.att.com>
X
X
END_OF_FILE
if test 1318 -ne `wc -c <'doc/starX11.1'`; then
echo shar: \"'doc/starX11.1'\" unpacked with wrong size!
fi
# end of 'doc/starX11.1'
fi
if test -f 'doc/staribm.1' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'doc/staribm.1'\"
else
echo shar: Extracting \"'doc/staribm.1'\" \(917 characters\)
sed "s/^X//" >'doc/staribm.1' <<'END_OF_FILE'
X.TH STARCHART LOCAL "15 July 1989"
X.ad b
X.SH NAME
Xstaribm \- display astronomical star charts on IBM PC.
X.SH SYNOPSIS
XArguments as in other starchart programs, with the special argument -a:
X.br
X.B \-a
X[
X.B VRES16COLOR
X.B VRES2COLOR
X.B ERESCOLOR
X.B ERESNOCOLOR
X.B HRES16COLOR
X.B HRESBW
X.B MRES16COLOR
X.B MRES4COLOR
X.B MRESNOCOLOR
X]
X.br
X.SH DESCRIPTION
XSee starchart(1) for details on the starchart programs in general.
X.PP
XThe
X.B \-a
Xoption allows the specification of a display mode to use. Normally
Xthe driver picks the highest resolution display which will work, but
Xif you specify a mode it will try to use that instead.
X.SH BUGS
XThe driver gets its font from the built in font in the BIOS ROM.
XOn PCs which are not totally standard, the font may not be located
Xat the same magic address, so characters will display as gibberish.
X.SH AUTHORS/EDITORS
XTom Horsley <tahorsley@ssd.csd.harris.com>
X.br
XCraig Counterman
END_OF_FILE
if test 917 -ne `wc -c <'doc/staribm.1'`; then
echo shar: \"'doc/staribm.1'\" unpacked with wrong size!
fi
# end of 'doc/staribm.1'
fi
if test -f 'doc/tosize.1' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'doc/tosize.1'\"
else
echo shar: Extracting \"'doc/tosize.1'\" \(1302 characters\)
sed "s/^X//" >'doc/tosize.1' <<'END_OF_FILE'
X.TH TOSIZE LOCAL "15 July 1989"
X.ad b
X.SH NAME
Xtosize \- Encode size of object in two characters, as used in starchart data
X.SH SYNOPSIS
X.B tosize
X[
X.B \-
X[
X.B d
X][
X.B m
X][
X.B s
X]]
X.I size
X[
X.I size ...
X]
X
X.SH DESCRIPTION
X
XThe size field for non-stellar objects in the starchart databases
Xcontains the size of the object in seconds of arc encoded to two
Xsignificant figures as two characters, up to a diameter of 89000
Xseconds, or 24.7 degrees, which is encoded as `Z9'.
X
X.PP
X
XThis program is intended to facilitate the encoding. The sizes of
Xseveral objects may be included in the command line, the encoded sizes
Xare sent to the standard output. The first argument may be used to
Xcontrol the meaning of the succeding arguments. A `d' means that the
Xcorresponding argument is the size in degrees, a `m' represents
Xminutes, and `s' represents seconds. These may be combined up to
Xthree letters. That is, `-dm' means that the following arguments
Xshould be taken in pairs, with the first being the degree component of
Xthe size, and the second the minutes.
X
X.PP
X
XWhen the command line arguments have been exhausted, numbers are read
Xfrom the standard input.
X
X
X
X.SH EXAMPLES
Xtosize 1 14 140 1400 14000 14000 89000 88000
X.br
Xtosize -dms 1 10 30 2 30 45
X.SH FILES
X.SH BUGS
X.SH AUTHOR
XCraig Counterman
END_OF_FILE
if test 1302 -ne `wc -c <'doc/tosize.1'`; then
echo shar: \"'doc/tosize.1'\" unpacked with wrong size!
fi
# end of 'doc/tosize.1'
fi
if test ! -d 'observe' ; then
echo shar: Creating directory \"'observe'\"
mkdir 'observe'
fi
if test -f 'observe/Astring.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'observe/Astring.h'\"
else
echo shar: Extracting \"'observe/Astring.h'\" \(306 characters\)
sed "s/^X//" >'observe/Astring.h' <<'END_OF_FILE'
X/* Selfmade strings.h which is not included in MWC */
Xextern char *strcat();
Xextern char *strncat();
X
Xextern int strcmp();
Xextern int strncmp();
X
X#ifndef GEMDOS
X#define streq !strcmp
X#endif
X
Xextern char *strcpy();
Xextern char *strncpy();
X
Xextern int strlen();
X
Xextern char *index();
Xextern char *rindex();
END_OF_FILE
if test 306 -ne `wc -c <'observe/Astring.h'`; then
echo shar: \"'observe/Astring.h'\" unpacked with wrong size!
fi
# end of 'observe/Astring.h'
fi
if test -f 'observe/Observe.MSC' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'observe/Observe.MSC'\"
else
echo shar: Extracting \"'observe/Observe.MSC'\" \(1134 characters\)
sed "s/^X//" >'observe/Observe.MSC' <<'END_OF_FILE'
XCC=qcl
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 \
X orbcalc.obj outeph.obj outaltaz.obj outobs.obj outsat.obj outsif.obj \
X planetcalc.obj riseset.obj satcalc.obj sortlib.obj suncalc.obj \
X tablecalc.obj
X
XTARGS=observe.exe
X
XCFLAGS=-DSYSV -DMAXOBJECTS=150 -Dindex=strchr -Gt16 -AL
X
Xall: observe.exe
X
X
Xobserve.exe: $(OBJS)
X $(CC) $(CFLAGS) *.obj -Feobserve.exe -F 4000
X
Xclean:
X rm -f *.obj $(TARGS)
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
Xoutaltaz.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 1134 -ne `wc -c <'observe/Observe.MSC'`; then
echo shar: \"'observe/Observe.MSC'\" unpacked with wrong size!
fi
# end of 'observe/Observe.MSC'
fi
if test -f 'observe/date.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'observe/date.h'\"
else
echo shar: Extracting \"'observe/date.h'\" \(712 characters\)
sed "s/^X//" >'observe/date.h' <<'END_OF_FILE'
X/*
X * date.h
X * datelib fuction declarations
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 * $Header: date.h,v 1.5 90/02/19 17:21:58 ccount Exp $
X */
X
X
Xvoid cal_to_jd();
Xvoid cal_to_str();
Xvoid jd_to_cal();
Xvoid jd_to_str();
Xvoid str_to_jd();
Xvoid str_to_cal();
X
Xint tr_mname();
X
X/* put here for VMS and pure-ANSI systems */
Xdouble atof();
END_OF_FILE
if test 712 -ne `wc -c <'observe/date.h'`; then
echo shar: \"'observe/date.h'\" unpacked with wrong size!
fi
# end of 'observe/date.h'
fi
if test -f 'observe/degree.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'observe/degree.h'\"
else
echo shar: Extracting \"'observe/degree.h'\" \(896 characters\)
sed "s/^X//" >'observe/degree.h' <<'END_OF_FILE'
X/*
X * degree.h
X * functions to deal with trigonometry in degrees
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 * $Header: degree.h,v 1.4 90/02/19 17:22:01 ccount Exp $
X */
X
X
X#define DEG_TO_RAD 0.01745329251994329600
X#define RAD_TO_DEG 57.29577951308232
X#define DSIN(x) (sin((x)*DEG_TO_RAD))
X#define DCOS(x) (cos((x)*DEG_TO_RAD))
X#define DTAN(x) (tan((x)*DEG_TO_RAD))
X#define DASIN(x) (asin(x)*RAD_TO_DEG)
X#define DACOS(x) (acos(x)*RAD_TO_DEG)
X#define DATAN(x) (atan(x)*RAD_TO_DEG)
X#define DATAN2(x,y) (atan2(x,y)*RAD_TO_DEG)
END_OF_FILE
if test 896 -ne `wc -c <'observe/degree.h'`; then
echo shar: \"'observe/degree.h'\" unpacked with wrong size!
fi
# end of 'observe/degree.h'
fi
if test ! -d 'samples' ; then
echo shar: Creating directory \"'samples'\"
mkdir 'samples'
fi
if test -f 'samples/1989c1.par_e' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/1989c1.par_e'\"
else
echo shar: Extracting \"'samples/1989c1.par_e'\" \(235 characters\)
sed "s/^X//" >'samples/1989c1.par_e' <<'END_OF_FILE'
XFirst three lines are ignored
Xq = a*(1-e) Omega=node omega=peri. g,k: g + 5*log(Delta) + 2.5*kappa*log(r)
XName i Omega omega q Epoch_date Equinox_year g kappa
XAustin 58.9370003 75.3042984 61.5709 0.349428 Apr 9.9138 1990 1950.0 4.5 4
END_OF_FILE
if test 235 -ne `wc -c <'samples/1989c1.par_e'`; then
echo shar: \"'samples/1989c1.par_e'\" unpacked with wrong size!
fi
# end of 'samples/1989c1.par_e'
fi
if test -f 'samples/README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/README'\"
else
echo shar: Extracting \"'samples/README'\" \(688 characters\)
sed "s/^X//" >'samples/README' <<'END_OF_FILE'
XThe files here are example data formats, test files, and suggestions
Xfor manipulating data:
X
XExample formats:
Xast1990.ell_e
Xasteroids.ell_e
X1989c1.par_e
Xcomet.par_e
Xcer.aa
Xcer.emp
Xcer.empb
Xsampl.iau
Xsampl.st
Xmess.obj
Xsample.rc
X
X(Note, 1989c1 is Comet Austin)
X
X
XTest files:
X Projections:
X gnomonic.rc
X
X Areas:
X area.rc
X area.star
X area2.rc
X area2.star
X area3.star
X
X Color:
X cobj.rc
X cobj.star
X color.rc
X color.star
X
X Moon:
X moon.star
X moon.rc
X
X Objects:
X obj.rc
X obj.star
X
X Object size:
X size.star
X size.rc
X
X General test:
X test.rc
X test.star1-5
X test.star6-A
X test.starbright
X
X
XSuggestions:
Xadd color to databases:
X colorize.c
X colorsif.awk
X colorsif.perl
X colorstar.awk
X colorstar.perl
X
END_OF_FILE
if test 688 -ne `wc -c <'samples/README'`; then
echo shar: \"'samples/README'\" unpacked with wrong size!
fi
# end of 'samples/README'
fi
if test -f 'samples/area.rc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/area.rc'\"
else
echo shar: Extracting \"'samples/area.rc'\" \(230 characters\)
sed "s/^X//" >'samples/area.rc' <<'END_OF_FILE'
Xra = 0.15
Xdec = 5
Xscale = 15
Xnamelim = 20
Xgklim = 20
Xmaglim = 20
Xtitle = Area test
Xstarfile /dev/null
Xnebfile /dev/null
Xindexfile /dev/null
Xplanetfile /dev/null
Xuserfile = area.star
Xprojection_mode = sansons
Xchart_type = fullpage
END_OF_FILE
if test 230 -ne `wc -c <'samples/area.rc'`; then
echo shar: \"'samples/area.rc'\" unpacked with wrong size!
fi
# end of 'samples/area.rc'
fi
if test -f 'samples/area.star' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/area.star'\"
else
echo shar: Extracting \"'samples/area.star'\" \(483 characters\)
sed "s/^X//" >'samples/area.star' <<'END_OF_FILE'
X001000+0500000AMM2a CMAAreaStart
X001000+1000000AAM2a CMAAreaAdd
X001500+1000000AAM2a CMAAreaAdd
X002500+0800000AAM2a CMAAreaAdd
X001500+0500000AAM2a CMAAreaFill
X001000+0500000AFM2a CMAArea
X000000+0500000VMM2a CMALinestart
X000500+0000000VSO2a CMALineend
X002000+0000000IAN3a CMAColor Text
X010000+8000000AMM2a CMAstart
X050000+7600000AAM2a CMAmiddle
X100000+8000000AAO2a CMAfar
X010000+8000000AFO2a CMAend
X010000+8000000VMM2a CMAstart
X050000+7600000VSM2a CMAmiddle
X100000+8000000VSM2a CMAend
END_OF_FILE
if test 483 -ne `wc -c <'samples/area.star'`; then
echo shar: \"'samples/area.star'\" unpacked with wrong size!
fi
# end of 'samples/area.star'
fi
if test -f 'samples/area2.rc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/area2.rc'\"
else
echo shar: Extracting \"'samples/area2.rc'\" \(236 characters\)
sed "s/^X//" >'samples/area2.rc' <<'END_OF_FILE'
Xra = 0
Xdec = 90
Xscale = 30
Xnamelim = 20
Xgklim = 20
Xmaglim = 20
Xtitle = Area test 2
Xstarfile /dev/null
Xnebfile /dev/null
Xindexfile /dev/null
Xplanetfile /dev/null
Xuserfile = area.star
Xprojection_mode = stereographic
Xchart_type = fullpage
END_OF_FILE
if test 236 -ne `wc -c <'samples/area2.rc'`; then
echo shar: \"'samples/area2.rc'\" unpacked with wrong size!
fi
# end of 'samples/area2.rc'
fi
if test -f 'samples/area2.star' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/area2.star'\"
else
echo shar: Extracting \"'samples/area2.star'\" \(481 characters\)
sed "s/^X//" >'samples/area2.star' <<'END_OF_FILE'
X080000+2700000Am
X060000+4000000Aa
X050000+1200000Aa
X080000+2700000Af
X060000-4000000Vm
X080000-2700000VS
X050000-1200000VS
X060000-4000000VS
X160000+4000000AM
X180000+3500000AA
X160000+3000000AA
X180000+2700000AA
X173000+2300000AA
X180000+2000000AA
X160000+1500000AA
X153000+1200000AA
X160000+4000000AF
X010000+8000000AmM2a CMA
X050000+7600000AaM2a CMA
X100000+8000000AaO2a CMA
X010000+8000000AfO2a CMA
X010000+6000000VmM2a CMA
X050000+5600000VsM2a CMA
X100000+6000000VsM2a CMA
X010000+6000000VsM2a CMA
END_OF_FILE
if test 481 -ne `wc -c <'samples/area2.star'`; then
echo shar: \"'samples/area2.star'\" unpacked with wrong size!
fi
# end of 'samples/area2.star'
fi
if test -f 'samples/area3.star' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/area3.star'\"
else
echo shar: Extracting \"'samples/area3.star'\" \(483 characters\)
sed "s/^X//" >'samples/area3.star' <<'END_OF_FILE'
X001000+0500000AmM2a CMAAreaStart
X001000+1000000AaM2a CMAareAadd
X001500+1000000AaM2a CMAareaAdd
X002500+0800000AaM2a CMAareaAdd
X001500+0500000AaM2a CMAareaFill
X001000+0500000AfM2a CMAArea
X000000+0500000VmM2a CMALinestart
X000500+0000000VsO2a CMALineend
X002000+0000000IAN3a CMAColor Text
X010000+8000000AmM2a CMAstart
X050000+7600000AaM2a CMAmiddle
X100000+8000000AaO2a CMAfar
X010000+8000000AfO2a CMAend
X010000+8000000VmM2a CMAstart
X050000+7600000VsM2a CMAmiddle
X100000+8000000VsM2a CMAend
END_OF_FILE
if test 483 -ne `wc -c <'samples/area3.star'`; then
echo shar: \"'samples/area3.star'\" unpacked with wrong size!
fi
# end of 'samples/area3.star'
fi
if test -f 'samples/cer.aa' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/cer.aa'\"
else
echo shar: Extracting \"'samples/cer.aa'\" \(386 characters\)
sed "s/^X//" >'samples/cer.aa' <<'END_OF_FILE'
XFirst three lines are ignored (unless year is specified)
XCeres data
Xdate RA DEC r Ephemeris Transit
XOct. 1 23 54 52.1 -17 37 21 2.011 23 10.0
X 3 23 53 16.1 -17 42 32 2.019 23 00.5
X 5 23 51 42.2 -17 46 55 2.028 22 51.1
X 7 23 50 11.1 -17 50 30 2.038 22 41.8
X 9 23 48 42.9 -17 53 16 2.049 22 32.5
X 11 23 47 18.0 -17 55 13 2.061 22 23.2
END_OF_FILE
if test 386 -ne `wc -c <'samples/cer.aa'`; then
echo shar: \"'samples/cer.aa'\" unpacked with wrong size!
fi
# end of 'samples/cer.aa'
fi
if test -f 'samples/cer.emp' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/cer.emp'\"
else
echo shar: Extracting \"'samples/cer.emp'\" \(284 characters\)
sed "s/^X//" >'samples/cer.emp' <<'END_OF_FILE'
XFirst three lines are ignored unless year is specified, as in:
Xyear = 1987
Xon any line. This is Ceres data
XX 6 23 48.4 -18 5
X 16 23 41.5 -18 13
X 26 23 36.4 -18 0
XXI 5 23 33.4 -17 29
X 15 23 32.8 -16 42
X 25 23 34.4 -15 41
XXII 5 23 38.1 -14 29
END_OF_FILE
if test 284 -ne `wc -c <'samples/cer.emp'`; then
echo shar: \"'samples/cer.emp'\" unpacked with wrong size!
fi
# end of 'samples/cer.emp'
fi
if test -f 'samples/cer.empb' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/cer.empb'\"
else
echo shar: Extracting \"'samples/cer.empb'\" \(464 characters\)
sed "s/^X//" >'samples/cer.empb' <<'END_OF_FILE'
XFirst three lines are ignored unless year is specified, as in:
Xyear = 1987
Xon any line. This is Ceres data
XX 6 23 48.36 -18 5.5 2.958 2.033 7.8 8.8
X 16 23 41.45 -18 13.1 2.955 2.095 8.0 11.6
X 26 23 36.36 -18 0.3 2.951 2.179 8.2 14.2
XXI 5 23 33.43 -17 29.1 2.947 2.280 8.4 16.3
X 15 23 32.8 -16 41.7 2.942 2.396 8.4 17.9
X 25 23 34.42 -15 41.0 2.938 2.522 8.7 18.9
XXII 5 23 38.09 -14 29.4 2.933 2.653 8.8 19.5
END_OF_FILE
if test 464 -ne `wc -c <'samples/cer.empb'`; then
echo shar: \"'samples/cer.empb'\" unpacked with wrong size!
fi
# end of 'samples/cer.empb'
fi
if test -f 'samples/cobj.rc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/cobj.rc'\"
else
echo shar: Extracting \"'samples/cobj.rc'\" \(129 characters\)
sed "s/^X//" >'samples/cobj.rc' <<'END_OF_FILE'
Xra .20
Xdec 5
Xscale 12
Xmaglim 20
Xstarfile /dev/null
Xnebfile /dev/null
Xindexfile /dev/null
Xplanetfile /dev/null
Xuserfile cobj.star
END_OF_FILE
if test 129 -ne `wc -c <'samples/cobj.rc'`; then
echo shar: \"'samples/cobj.rc'\" unpacked with wrong size!
fi
# end of 'samples/cobj.rc'
fi
if test -f 'samples/cobj.star' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/cobj.star'\"
else
echo shar: Extracting \"'samples/cobj.star'\" \(1222 characters\)
sed "s/^X//" >'samples/cobj.star' <<'END_OF_FILE'
X000000+0000100CGr0 CG
X000000+0100100COr3 CO
X000000+0200100CXr6 CX
X000000+0300100Gar9 Ga
X000000+0400100Gbb0 Gb
X000000+0500100Gcb3 Gc
X000000+0600100Gdb6 Gd
X000000+0700100GBb9 GB
X000000+0800100GSg0 GS
X000000+0900100GOg3 GO
X001000+0000100GQg6 GQ
X001000+0100100GIg9 GI
X001000+0200100GGy0 GG
X001000+0300100GEy3 GE
X001000+0400100GUy6 GU
X001000+0500100GXy9 GX
X001000+0600100NDp0 ND
X001000+0700100NPp3 NP
X001000+0800100NXp6 NX
X001000+0900100PMp9 PM
X002000+0000100PVc0 PV
X002000+0100100Pmc3 Pm
X002000+0200100PJc6 PJ
X002000+0300100Psc9 Ps
X002000+0400100PUw0 PU
X002000+0500100PNw3 PN
X002000+0600100PPw6 PP
X002000+0700100PAw9 PA
X002000+0800100PCo0 PC
X002000+0900100PSo3 PS
X003000+0000100PLo6 PL
X003000+0100100PXo9 PX
X003000+0200100SSr0 SS
X003000+0300100SDr3 SD
X003000+0400100SVr6 SV
X003000+0500100OXr9 OX
X003000+0600100UXb0 UX
X003000+0700100VMb3 VM
X003000+0800100VSb6 VS
X003000+0900100VDb9 VD
X004000+0000100VHg0 VH
X004000+0100100IXg3 IX
X004000+0200100#Xg6 #X
X004000+0300100AMg9 AM
X004000+0400100AAy0 AA
X004000+0500100AFy3 AF
X004000+0600100AXy6 AX
END_OF_FILE
if test 1222 -ne `wc -c <'samples/cobj.star'`; then
echo shar: \"'samples/cobj.star'\" unpacked with wrong size!
fi
# end of 'samples/cobj.star'
fi
if test -f 'samples/color.rc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/color.rc'\"
else
echo shar: Extracting \"'samples/color.rc'\" \(130 characters\)
sed "s/^X//" >'samples/color.rc' <<'END_OF_FILE'
Xra .20
Xdec 5
Xscale 12
Xmaglim 20
Xstarfile /dev/null
Xnebfile /dev/null
Xindexfile /dev/null
Xplanetfile /dev/null
Xuserfile color.star
END_OF_FILE
if test 130 -ne `wc -c <'samples/color.rc'`; then
echo shar: \"'samples/color.rc'\" unpacked with wrong size!
fi
# end of 'samples/color.rc'
fi
if test -f 'samples/colorize.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/colorize.c'\"
else
echo shar: Extracting \"'samples/colorize.c'\" \(426 characters\)
sed "s/^X//" >'samples/colorize.c' <<'END_OF_FILE'
X/* To add colors to neb.star, consider the following short program */
X
X#include <stdio.h>
X
Xmain()
X{
X char inbuf[100];
X
X while (gets(inbuf, 100)) {
X if (inbuf[14] == 'C') { /* Cluster */
X inbuf[16] = 'y';
X inbuf[17] = '9';
X };
X if (inbuf[14] == 'N') { /* Nebula */
X inbuf[16] = 'g';
X inbuf[17] = '9';
X };
X if (inbuf[14] == 'G') { /* Galaxy */
X inbuf[16] = 'r';
X inbuf[17] = '9';
X };
X puts(inbuf);
X }
X}
X
END_OF_FILE
if test 426 -ne `wc -c <'samples/colorize.c'`; then
echo shar: \"'samples/colorize.c'\" unpacked with wrong size!
fi
# end of 'samples/colorize.c'
fi
if test -f 'samples/colorsif.awk' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/colorsif.awk'\"
else
echo shar: Extracting \"'samples/colorsif.awk'\" \(109 characters\)
sed "s/^X//" >'samples/colorsif.awk' <<'END_OF_FILE'
XBEGIN {OFS = FS = ";"}
X($4 ~ /^C./) {$5 = "y9"}
X($4 ~ /^N./) {$5 = "g9"}
X($4 ~ /^G./) {$5 = "r9"}
X{print $0}
END_OF_FILE
if test 109 -ne `wc -c <'samples/colorsif.awk'`; then
echo shar: \"'samples/colorsif.awk'\" unpacked with wrong size!
fi
# end of 'samples/colorsif.awk'
fi
if test -f 'samples/colorsif.perl' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/colorsif.perl'\"
else
echo shar: Extracting \"'samples/colorsif.perl'\" \(350 characters\)
sed "s/^X//" >'samples/colorsif.perl' <<'END_OF_FILE'
X$[ = 1; # set array base to 1
X$, = $FS = ';';
X$\ = "\n"; # set output record separator
X
Xwhile (<>) {
X chop; # strip record separator
X @Fld = split(/[;\n]/, $_, 999);
X if (($Fld[4] =~ /^C./)) {
X $Fld[5] = 'y9';
X } elsif (($Fld[4] =~ /^N./)) {
X $Fld[5] = 'g9';
X } elsif (($Fld[4] =~ /^G./)) {
X $Fld[5] = 'r9';
X }
X print @Fld;
X}
END_OF_FILE
if test 350 -ne `wc -c <'samples/colorsif.perl'`; then
echo shar: \"'samples/colorsif.perl'\" unpacked with wrong size!
fi
# end of 'samples/colorsif.perl'
fi
if test -f 'samples/colorstar.awk' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/colorstar.awk'\"
else
echo shar: Extracting \"'samples/colorstar.awk'\" \(175 characters\)
sed "s/^X//" >'samples/colorstar.awk' <<'END_OF_FILE'
X{t = " "}
X(substr($0,15,1) == "C") {t = "y9"}
X(substr($0,15,1) == "N") {t = "g9"}
X(substr($0,15,1) == "G") {t = "r9"}
X{printf "%s%s%s\n", substr($0,1,16), t, substr($0,19)}
X
END_OF_FILE
if test 175 -ne `wc -c <'samples/colorstar.awk'`; then
echo shar: \"'samples/colorstar.awk'\" unpacked with wrong size!
fi
# end of 'samples/colorstar.awk'
fi
if test -f 'samples/colorstar.perl' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/colorstar.perl'\"
else
echo shar: Extracting \"'samples/colorstar.perl'\" \(393 characters\)
sed "s/^X//" >'samples/colorstar.perl' <<'END_OF_FILE'
X$[ = 1; # set array base to 1
X$\ = "\n"; # set output record separator
X
Xwhile (<>) {
X chop; # strip record separator
X if ((substr($_, 15, 1) eq 'C')) {
X $t = 'y9';
X } elsif ((substr($_, 15, 1) eq 'N')) {
X $t = 'g9';
X } elsif ((substr($_, 15, 1) eq 'G')) {
X $t = 'r9';
X } else {
X $t = ' ';
X }
X printf "%s%s%s\n", substr($_, 1, 16), $t, substr($_, 19, 999999);
X}
END_OF_FILE
if test 393 -ne `wc -c <'samples/colorstar.perl'`; then
echo shar: \"'samples/colorstar.perl'\" unpacked with wrong size!
fi
# end of 'samples/colorstar.perl'
fi
if test -f 'samples/comet.par_e' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/comet.par_e'\"
else
echo shar: Extracting \"'samples/comet.par_e'\" \(168 characters\)
sed "s/^X//" >'samples/comet.par_e' <<'END_OF_FILE'
XFirst three lines are ignored
Xq = a*(1-e)
XName i Omega omega q Epoch_date Equinox_year g kappa
XKohler 48.7196 181.8175 163.4799 0.990662 Nov 10.5659 1977 1950.0 6 4
X
X
X
END_OF_FILE
if test 168 -ne `wc -c <'samples/comet.par_e'`; then
echo shar: \"'samples/comet.par_e'\" unpacked with wrong size!
fi
# end of 'samples/comet.par_e'
fi
if test -f 'samples/gnomonic.rc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/gnomonic.rc'\"
else
echo shar: Extracting \"'samples/gnomonic.rc'\" \(172 characters\)
sed "s/^X//" >'samples/gnomonic.rc' <<'END_OF_FILE'
Xra = 6.4
Xdec = 15
Xscale = 70
Xnamelim = 2
Xgklim = 3
Xmaglim = 5.5
Xtitle = Sample Gnomonic plot
Xprojection_mode = gnomonic
Xchart_type = fullpage
Xinvert = false
Xgrid .4 10 0 0
END_OF_FILE
if test 172 -ne `wc -c <'samples/gnomonic.rc'`; then
echo shar: \"'samples/gnomonic.rc'\" unpacked with wrong size!
fi
# end of 'samples/gnomonic.rc'
fi
if test -f 'samples/moon.rc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/moon.rc'\"
else
echo shar: Extracting \"'samples/moon.rc'\" \(129 characters\)
sed "s/^X//" >'samples/moon.rc' <<'END_OF_FILE'
Xra .20
Xdec 5
Xscale 12
Xmaglim 20
Xstarfile /dev/null
Xnebfile /dev/null
Xindexfile /dev/null
Xplanetfile /dev/null
Xuserfile moon.star
END_OF_FILE
if test 129 -ne `wc -c <'samples/moon.rc'`; then
echo shar: \"'samples/moon.rc'\" unpacked with wrong size!
fi
# end of 'samples/moon.rc'
fi
if test -f 'samples/moon.star' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/moon.star'\"
else
echo shar: Extracting \"'samples/moon.star'\" \(643 characters\)
sed "s/^X//" >'samples/moon.star' <<'END_OF_FILE'
X000000+0000100PL 0, 0 90
X000000+0100100PL 30, 30 80
X000000+0200100PL 90, 90 70
X000000+0300100PL 135, 135 60
X000000+0400100PL 180, 180 50
X000000+0500100PL 135, 135 270
X000000+0600100PL 90, 90 260
X000000+0700100PL 30, 30 250
X000000+0800100PL 0, 0 90
X000000+0900100PL 30, 30 60
X002000+0000100PC 0, 0
X002000+0100100PC 30, 30
X002000+0200100PC 90, 90
X002000+0300100PC 135, 135
X002000+0400100PC 180, 180
X002000+0500100PC -135, -135
X002000+0600100PC -90, -90
X002000+0700100PC -30, -30
X002000+0800100PC 0, 0
X002000+0900100PC 30, 30
END_OF_FILE
if test 643 -ne `wc -c <'samples/moon.star'`; then
echo shar: \"'samples/moon.star'\" unpacked with wrong size!
fi
# end of 'samples/moon.star'
fi
if test -f 'samples/obj.rc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/obj.rc'\"
else
echo shar: Extracting \"'samples/obj.rc'\" \(128 characters\)
sed "s/^X//" >'samples/obj.rc' <<'END_OF_FILE'
Xra .20
Xdec 5
Xscale 12
Xmaglim 20
Xstarfile /dev/null
Xnebfile /dev/null
Xindexfile /dev/null
Xplanetfile /dev/null
Xuserfile obj.star
END_OF_FILE
if test 128 -ne `wc -c <'samples/obj.rc'`; then
echo shar: \"'samples/obj.rc'\" unpacked with wrong size!
fi
# end of 'samples/obj.rc'
fi
if test -f 'samples/obj.star' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/obj.star'\"
else
echo shar: Extracting \"'samples/obj.star'\" \(1222 characters\)
sed "s/^X//" >'samples/obj.star' <<'END_OF_FILE'
X000000+0000100CG CG
X000000+0100100CO CO
X000000+0200100CX CX
X000000+0300100Ga Ga
X000000+0400100Gb Gb
X000000+0500100Gc Gc
X000000+0600100Gd Gd
X000000+0700100GB GB
X000000+0800100GS GS
X000000+0900100GO GO
X001000+0000100GQ GQ
X001000+0100100GI GI
X001000+0200100GG GG
X001000+0300100GE GE
X001000+0400100GU GU
X001000+0500100GX GX
X001000+0600100ND ND
X001000+0700100NP NP
X001000+0800100NX NX
X001000+0900100PM PM
X002000+0000100PV PV
X002000+0100100Pm Pm
X002000+0200100PJ PJ
X002000+0300100Ps Ps
X002000+0400100PU PU
X002000+0500100PN PN
X002000+0600100PP PP
X002000+0700100PA PA
X002000+0800100PC PC
X002000+0900100PS PS
X003000+0000100PL PL
X003000+0100100PX PX
X003000+0200100SS SS
X003000+0300100SD SD
X003000+0400100SV SV
X003000+0500100OX OX
X003000+0600100UX UX
X003000+0700100VM VM
X003000+0800100VS VS
X003000+0900100VD VD
X004000+0000100VH VH
X004000+0100100IX IX
X004000+0200100#X #X
X004000+0300100AM AM
X004000+0400100AA AA
X004000+0500100AF AF
X004000+0600100AX AX
END_OF_FILE
if test 1222 -ne `wc -c <'samples/obj.star'`; then
echo shar: \"'samples/obj.star'\" unpacked with wrong size!
fi
# end of 'samples/obj.star'
fi
if test -f 'samples/sampl.iau' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/sampl.iau'\"
else
echo shar: Extracting \"'samples/sampl.iau'\" \(294 characters\)
sed "s/^X//" >'samples/sampl.iau' <<'END_OF_FILE'
XFirst three lines are ignored unless year is specified
Xsample data
Xdate RA DEC \Delta r (V or m1)
XOct. 6 14 50.24 3 41.0 1.204 0.643 12.5
X 11 15 29.62 2 48.8
X 16 16 04.01 1 54.1 1.339 0.889 14.1
X 21 16 33.96 1 02.5
END_OF_FILE
if test 294 -ne `wc -c <'samples/sampl.iau'`; then
echo shar: \"'samples/sampl.iau'\" unpacked with wrong size!
fi
# end of 'samples/sampl.iau'
fi
if test -f 'samples/sampl.st' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/sampl.st'\"
else
echo shar: Extracting \"'samples/sampl.st'\" \(205 characters\)
sed "s/^X//" >'samples/sampl.st' <<'END_OF_FILE'
XFirst three lines are ignored, unless year is specified, as:
Xyear = 1989
XDate RA DEC Elongation Mag.
XOct 1 14 07.6 4 06 25 5.4
X 6 14 52.3 3 28 32 6.5
X 11 15 24.3 3 00 42 7.5
END_OF_FILE
if test 205 -ne `wc -c <'samples/sampl.st'`; then
echo shar: \"'samples/sampl.st'\" unpacked with wrong size!
fi
# end of 'samples/sampl.st'
fi
if test -f 'samples/sample.rc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/sample.rc'\"
else
echo shar: Extracting \"'samples/sample.rc'\" \(807 characters\)
sed "s/^X//" >'samples/sample.rc' <<'END_OF_FILE'
Xra = 22.30 # same as -r
Xdec -5 # same as -d
Xscale 12 # same as -s
Xtitle Sample title # same as -t
Xnamelim 4.0 # same as -l
Xmaglim 20.0 # same as -m
Xgklim 6.5 # same as -g
Xprojection_mode gnomonic # set projection mode
X# may be "sansons", "stereographic"
X# "orthographic", or "gnomonic"
Xinvert true # same as -i if logical is nonzero or is TRUE
Xprecess_to 1950.0 # Precess to equinox and ecliptic of year.
Xchart_type fullpage # set chart type: "fullpage" or "threepart"
X# "threepart" is default: Large window,
X# thumbnail, and legend
X# "fullpage'' is same as -b flag
Xvrange 5.0 0.5 # same as -v
Xgrid 0.30 5.0
X# same as -x
Xuserfile sample.star lineread # same as -f
END_OF_FILE
if test 807 -ne `wc -c <'samples/sample.rc'`; then
echo shar: \"'samples/sample.rc'\" unpacked with wrong size!
fi
# end of 'samples/sample.rc'
fi
if test -f 'samples/size.rc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/size.rc'\"
else
echo shar: Extracting \"'samples/size.rc'\" \(129 characters\)
sed "s/^X//" >'samples/size.rc' <<'END_OF_FILE'
Xra .20
Xdec 5
Xscale 12
Xmaglim 20
Xstarfile /dev/null
Xnebfile /dev/null
Xindexfile /dev/null
Xplanetfile /dev/null
Xuserfile size.star
END_OF_FILE
if test 129 -ne `wc -c <'samples/size.rc'`; then
echo shar: \"'samples/size.rc'\" unpacked with wrong size!
fi
# end of 'samples/size.rc'
fi
if test -f 'samples/size.star' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/size.star'\"
else
echo shar: Extracting \"'samples/size.star'\" \(1222 characters\)
sed "s/^X//" >'samples/size.star' <<'END_OF_FILE'
X000000+0000100CG 60 CG
X000000+0100100CO J8 CO
X000000+0200100CX L6 CX
X000000+0300100Ga P2 Ga
X000000+0400100Gb 60 Gb
X000000+0500100Gc J8 Gc
X000000+0600100Gd L6 Gd
X000000+0700100GB P2 GB
X000000+0800100GS 60 GS
X000000+0900100GO J8 GO
X001000+0000100GQ L6 GQ
X001000+0100100GI P2 GI
X001000+0200100GG 60 GG
X001000+0300100GE J8 GE
X001000+0400100GU L6 GU
X001000+0500100GX P2 GX
X001000+0600100ND 60 ND
X001000+0700100NP J8 NP
X001000+0800100NX L6 NX
X001000+0900100PM P2 PM
X002000+0000100PV 60 PV
X002000+0100100Pm J8 Pm
X002000+0200100PJ L6 PJ
X002000+0300100Ps P2 Ps
X002000+0400100PU 60 PU
X002000+0500100PN J8 PN
X002000+0600100PP L6 PP
X002000+0700100PA P2 PA
X002000+0800100PC 60 PC
X002000+0900100PS J8 PS
X003000+0000100PL L6 PL
X003000+0100100PX P2 PX
X003000+0200100SS SS
X003000+0300100SD SD
X003000+0400100SV SV
X003000+0500100OX 60 OX
X003000+0600100UX J8 UX
X003000+0700100VM L6 VM
X003000+0800100VS P2 VS
X003000+0900100VD 60 VD
X004000+0000100VH J8 VH
X004000+0100100IX L6 IX
X004000+0200100#X P2 #X
X004000+0300100AM 60 AM
X004000+0400100AA J8 AA
X004000+0500100AF L6 AF
X004000+0600100AX P2 AX
END_OF_FILE
if test 1222 -ne `wc -c <'samples/size.star'`; then
echo shar: \"'samples/size.star'\" unpacked with wrong size!
fi
# end of 'samples/size.star'
fi
if test -f 'samples/test.rc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'samples/test.rc'\"
else
echo shar: Extracting \"'samples/test.rc'\" \(111 characters\)
sed "s/^X//" >'samples/test.rc' <<'END_OF_FILE'
Xra .20
Xdec 5
Xscale 12
Xmaglim 20
Xstarfile /dev/null
Xnebfile /dev/null
Xindexfile /dev/null
Xplanetfile /dev/null
X
END_OF_FILE
if test 111 -ne `wc -c <'samples/test.rc'`; then
echo shar: \"'samples/test.rc'\" unpacked with wrong size!
fi
# end of 'samples/test.rc'
fi
if test ! -d 'starchart' ; then
echo shar: Creating directory \"'starchart'\"
mkdir 'starchart'
fi
if test -f 'starchart/README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/README'\"
else
echo shar: Extracting \"'starchart/README'\" \(1226 characters\)
sed "s/^X//" >'starchart/README' <<'END_OF_FILE'
XVMS) The files decwxtk.opt, descrip.mms, starchart_init.com, and
Xvaxcrtl.opt are for VMS.
X
XIBMPC) Starchar.MSC, pcstar.h, and staribm.c are for Microsoft C on the IBMPC.
X
XMac) See README.mac
X
XAtari) makefile.st starst.c vqgdos.txt and vqgdos.s are for the
XAtari ST. See README.st.
X
XCopyright (c) 1990 by Craig Counterman. All rights reserved.
X
XThis software may be redistributed freely, not sold.
XThis copyright notice and disclaimer of warranty must remain
X unchanged.
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
X
END_OF_FILE
if test 1226 -ne `wc -c <'starchart/README'`; then
echo shar: \"'starchart/README'\" unpacked with wrong size!
fi
# end of 'starchart/README'
fi
if test -f 'starchart/decwxtk.opt' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/decwxtk.opt'\"
else
echo shar: Extracting \"'starchart/decwxtk.opt'\" \(88 characters\)
sed "s/^X//" >'starchart/decwxtk.opt' <<'END_OF_FILE'
Xsys$share:decw$xlibshr/share,-
Xsys$share:decw$dwtlibshr/share,-
Xsys$share:vaxcrtl/share
END_OF_FILE
if test 88 -ne `wc -c <'starchart/decwxtk.opt'`; then
echo shar: \"'starchart/decwxtk.opt'\" unpacked with wrong size!
fi
# end of 'starchart/decwxtk.opt'
fi
if test -f 'starchart/patchlevel.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/patchlevel.h'\"
else
echo shar: Extracting \"'starchart/patchlevel.h'\" \(59 characters\)
sed "s/^X//" >'starchart/patchlevel.h' <<'END_OF_FILE'
X#define VERSION_STRING "3.2"
X#define PATCHLEVEL_STRING "0"
END_OF_FILE
if test 59 -ne `wc -c <'starchart/patchlevel.h'`; then
echo shar: \"'starchart/patchlevel.h'\" unpacked with wrong size!
fi
# end of 'starchart/patchlevel.h'
fi
if test -f 'starchart/pcstar.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/pcstar.h'\"
else
echo shar: Extracting \"'starchart/pcstar.h'\" \(58 characters\)
sed "s/^X//" >'starchart/pcstar.h' <<'END_OF_FILE'
X#define CONSTFILE "./cons.loc"
X#define RCFILE "./star.rc"
END_OF_FILE
if test 58 -ne `wc -c <'starchart/pcstar.h'`; then
echo shar: \"'starchart/pcstar.h'\" unpacked with wrong size!
fi
# end of 'starchart/pcstar.h'
fi
if test -f 'starchart/postconv.awk' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/postconv.awk'\"
else
echo shar: Extracting \"'starchart/postconv.awk'\" \(642 characters\)
sed "s/^X//" >'starchart/postconv.awk' <<'END_OF_FILE'
X# This awk program takes a "mapwin" file produced by starXaw or
X# starX11 and changes the variables width, height, x_offset, and y_offset
X# to match the scale of starpost.
X# the numbers 4, 36, and 72 in this file as distributed are constants
X# in starpost. If starpost is changed, these numbers also must change
X#
X# This may be wrapped in a shell script, e.g.
X# awk -f /usr/local/lib/star/postconv.awk
X#
XBEGIN {FS="="}
X{if (($1 == "width") || ($1 == "height"))
X {printf "%s=%.0f\n", $1, $2*4}
X else if ($1 == "x_offset")
X {printf "%s=%.0f\n", $1, $2*4+36}
X else if ($1 == "y_offset")
X {printf "%s=%.0f\n", $1, $2*4+72}
X else {print $0}
X}
END_OF_FILE
if test 642 -ne `wc -c <'starchart/postconv.awk'`; then
echo shar: \"'starchart/postconv.awk'\" unpacked with wrong size!
fi
# end of 'starchart/postconv.awk'
fi
if test -f 'starchart/starXaw.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/starXaw.h'\"
else
echo shar: Extracting \"'starchart/starXaw.h'\" \(713 characters\)
sed "s/^X//" >'starchart/starXaw.h' <<'END_OF_FILE'
X/* Header for Athena widgets starchart */
X/*
X *
X * $Header: starXaw.h,v 1.5 90/02/19 17:58:08 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 */
X
Xtypedef struct {
X char *blabel;
X void (*func)();
X} Button_set;
X
X
X/* VMS linker is not case sensitive */
X#ifdef VMS
X#define Edit_mapwins Ed_mwin_f
X#define edit_mapwins e_mapw_bool
X#endif
END_OF_FILE
if test 713 -ne `wc -c <'starchart/starXaw.h'`; then
echo shar: \"'starchart/starXaw.h'\" unpacked with wrong size!
fi
# end of 'starchart/starXaw.h'
fi
if test -f 'starchart/starchart_init.com' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/starchart_init.com'\"
else
echo shar: Extracting \"'starchart/starchart_init.com'\" \(809 characters\)
sed "s/^X//" >'starchart/starchart_init.com' <<'END_OF_FILE'
X$!
X$! Define the location of the files on your system in the symbols below
X$! by Michael Campanella (campanella@cvg.enet.dec.com)
X$!
X$! $Header: starchart_init.com,v 1.2 90/01/12 03:00:18 ccount Exp $
X$!
X$ sao_location := sys$games:[sao] ! change this for your system
X$!
X$ procedure = f$environment("procedure")
X$ starchart_location = f$parse(procedure,,,"device") + f$parse(procedure,,,"directory")
X$ observe_location = starchart_location - "]" + ".observe]"
X$!
X$ define/nolog starchart 'starchart_location'
X$ define/nolog sao 'sao_location'
X$!
X$ stardsp :== $'starchart_location'stardsp
X$ starpost :== $'starchart_location'starpost
X$ startek :== $'starchart_location'startek
X$ starx11 :== $'starchart_location'starx11
X$ starxaw :== $'starchart_location'starxaw
X$!
X$ observe :== $'observe_location'observe
END_OF_FILE
if test 809 -ne `wc -c <'starchart/starchart_init.com'`; then
echo shar: \"'starchart/starchart_init.com'\" unpacked with wrong size!
fi
# end of 'starchart/starchart_init.com'
fi
if test -f 'starchart/startool.sh' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/startool.sh'\"
else
echo shar: Extracting \"'starchart/startool.sh'\" \(49 characters\)
sed "s/^X//" >'starchart/startool.sh' <<'END_OF_FILE'
X#!/bin/sh
Xwhile true
X do
X starsunv -u
X done
END_OF_FILE
if test 49 -ne `wc -c <'starchart/startool.sh'`; then
echo shar: \"'starchart/startool.sh'\" unpacked with wrong size!
fi
# end of 'starchart/startool.sh'
fi
if test -f 'starchart/vaxcrtl.opt' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/vaxcrtl.opt'\"
else
echo shar: Extracting \"'starchart/vaxcrtl.opt'\" \(24 characters\)
sed "s/^X//" >'starchart/vaxcrtl.opt' <<'END_OF_FILE'
Xsys$share:vaxcrtl/share
END_OF_FILE
if test 24 -ne `wc -c <'starchart/vaxcrtl.opt'`; then
echo shar: \"'starchart/vaxcrtl.opt'\" unpacked with wrong size!
fi
# end of 'starchart/vaxcrtl.opt'
fi
if test -f 'starchart/vqgdos.s' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/vqgdos.s'\"
else
echo shar: Extracting \"'starchart/vqgdos.s'\" \(88 characters\)
sed "s/^X//" >'starchart/vqgdos.s' <<'END_OF_FILE'
X .globl vqgdos_
X .shri
Xvqgdos_:move $-2, d0
X trap $2
X cmpi $-2, d0
X sne d0
X ext d0
X rts
END_OF_FILE
if test 88 -ne `wc -c <'starchart/vqgdos.s'`; then
echo shar: \"'starchart/vqgdos.s'\" unpacked with wrong size!
fi
# end of 'starchart/vqgdos.s'
fi
if test -f 'starchart/vqgdos.txt' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'starchart/vqgdos.txt'\"
else
echo shar: Extracting \"'starchart/vqgdos.txt'\" \(67 characters\)
sed "s/^X//" >'starchart/vqgdos.txt' <<'END_OF_FILE'
XThis little assembler routine tests whether gdos is loaded or not.
END_OF_FILE
if test 67 -ne `wc -c <'starchart/vqgdos.txt'`; then
echo shar: \"'starchart/vqgdos.txt'\" unpacked with wrong size!
fi
# end of 'starchart/vqgdos.txt'
fi
echo shar: End of archive 1 \(of 32\).
cp /dev/null ark1isdone
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