From decwrl!ucbvax!tut.cis.ohio-state.edu!cs.utexas.edu!uunet!allbery Thu Mar 15 21:05:06 PST 1990 Article 1404 of comp.sources.misc: Path: decwrl!ucbvax!tut.cis.ohio-state.edu!cs.utexas.edu!uunet!allbery From: ccount@ATHENA.MIT.EDU Newsgroups: comp.sources.misc Subject: v11i029: starchart 3.2 Part 01/32 Message-ID: <81174@uunet.UU.NET> Date: 16 Mar 90 00:29:43 GMT Sender: allbery@uunet.UU.NET Lines: 1937 Approved: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc) 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 '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 X.SH MAJOR CONTRIBUTORS XJoe Wang X.br XSteve Kennedy 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 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 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