home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / source / star.lzh / star.3 < prev    next >
Encoding:
Text File  |  1990-03-27  |  48.3 KB  |  1,886 lines
  1. #! /bin/sh
  2. # This is a shell archive.  Remove anything before this line, then unpack
  3. # it by saving it into a file and typing "sh file".  To overwrite existing
  4. # files, type "sh file -c".  You can also feed this as standard input via
  5. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  6. # will see the following message at the end:
  7. #        "End of archive 3 (of 32)."
  8. # Contents:  data/con.locs data/index.indx data/reg_to_indx.perl
  9. #   doc/starpost.1 observe/objcalc.c observe/suncalc.c
  10. #   samples/mess.obj samples/test.star1-5 starchart/README.st
  11. #   starchart/icon.h starchart/makefile.st starchart/starXawDlog.h
  12. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  13. if test -f 'data/con.locs' -a "${1}" != "-c" ; then 
  14.   echo shar: Will not clobber existing file \"'data/con.locs'\"
  15. else
  16. echo shar: Extracting \"'data/con.locs'\" \(3438 characters\)
  17. sed "s/^X//" >'data/con.locs' <<'END_OF_FILE'
  18. X/ con.locs    StarChart 'macro library' for canned views
  19. X/        Bob Tidd  inp@amber.berkeley.edu  6/87
  20. X/
  21. X/ This is a first cut and not a "cannonical" list of celestial locations.
  22. X/ Users should feel free to revise and extend (and post!) new versions.
  23. X/
  24. X/  column 4 coding (to distinguish "virgo area" from "virgo constellation"
  25. X/  c (or blank)=constellation
  26. X/  a=area
  27. X/  f=messier finder chart
  28. X/  t=time of year (evening sky)
  29. X/
  30. X/ columns 1-4 exclusively belong to the mnemonic, column five is ignored.
  31. X/ The remaining four parameters are three floats plus a string (terminated
  32. X/ by the end of line). The first two floats (Ra and Decl) appear in the
  33. X/ "hh" or "hh.mm" format used on the command line. Scale is a "traditional"
  34. X/ floating point value.
  35. X/
  36. X/...+....1....+....2....+....3....+
  37. X/
  38. Xand  1     35   40   Andromeda
  39. Xant  10.15 -34  25   Antlia
  40. Xaql  19.4  2.3  30   Aquila
  41. Xaqu  22.07 -14  45   Aquarius
  42. Xari  2.35  19   30   Aries
  43. Xaur  5.30  40   30   Auriga ?
  44. Xboo  14.4  27   35   Bootes
  45. Xcae  4.5  -38.2 25   Caelum
  46. Xcam  4.06  63   25   Camelopardalis
  47. Xcan  8.40  19   30   Cancer
  48. Xcap  21    -20  20   Capricorn
  49. Xcas  1.0   60   15   Cassiopeia
  50. Xcen  13.3  -45  45   Centaurus
  51. Xcep  22    70   30   Cepheus
  52. Xcet  1.36 -8.15 50   Cetus
  53. Xcma  6.45  -20  25   Canis Major
  54. Xcmi  7.4   5.2  20   Canis Minor
  55. Xcol  5.5  -35.3 25   Columba
  56. Xcom  13    25   20   Coma Bereneces
  57. Xcor  15.5  30   15   Corona Borealis
  58. Xcpr  21.1 -20.4 30   Capricornus
  59. Xcra  18.5 -40   15   Corona Australis
  60. Xcrt  11.3  -17  22   Crater
  61. Xcrv  12.2 -18.1 15   Corvus
  62. Xcvn  13    40   20   Canes Venatici
  63. Xcyg  20.30 40   30   Cygnus
  64. Xdel  20.4  11.3 18   Delphinus
  65. Xequ  21.12 7.3  11   Equuleus
  66. Xeri  3.3   -30  70   Eridanus
  67. Xfor  2.4   -32  30   Fornax
  68. Xgem  7.05  23   30   Gemini
  69. Xgru  22.3  -47  30   Grus
  70. Xher  17.1  35   45   Hercules
  71. Xhor  3.2   -51  40   Horologium
  72. Xhyd  10    -10  50   Hydra
  73. Xlac  22.20 45   20   LAC
  74. Xleo  11    20   40   Leo
  75. Xlep  5.34  -19  20   Lepus
  76. Xlib  15.1  -18  25   Libra
  77. Xlmi  10.24 32.3 20   Leo Minor
  78. Xlup  15.2  -41  25   Lupus
  79. Xlyn  8     49   50   Lynx
  80. Xlyr  18.5  35   20   Lyra
  81. Xmic  21   -36.5 20   Microscopium
  82. Xmon  7.1   0    35   Monoceros
  83. Xnor  16.1  -52  20   Norma
  84. Xoph  17.2  -10  50   Ophiuchus
  85. Xori  5.4   4.2  35   Orion
  86. Xpeg  23    30   20   Pegasus
  87. Xper  3.0   44   40   Perseus
  88. Xphe  0.4   -47  40   Phoenix
  89. Xpis  0.35  13   45   Pisces
  90. Xpsa  22.2  -30  25   Piscis Austrinus
  91. Xpup  7.4   -36  40   Puppus
  92. Xpyx  8.55 -28.3 20   Pyxis
  93. Xsco  17    -30  35   Scorpio
  94. Xsct  18.39 -10  15   Scutum
  95. Xscu  0     -35  30   Sculptor
  96. Xser  18.1  -3.2 30   Serpens Cauda
  97. Xsex  10.2  -2.3 25   Sextans
  98. Xsge  19.5  18.3 15   Sagitta
  99. Xsgr  19    -30  45   Sagittarius
  100. Xsrt  15.4   9   30   Serpens Caput
  101. Xtel  19.1  -51  25   Telescopium
  102. Xtrp  5.36  -5   12   Trapezium (Orion)
  103. Xtau  4.27  17.3 40   Taurus
  104. Xtri  2.1   35   20   Triangulum
  105. Xuma  12.30 55   50   Ursa Major
  106. Xumi  16    75   30   Ursa Minor
  107. Xvel  9.3   -48  40   Vela
  108. Xvir  13.2  0    55   Virgo  +-
  109. Xvul  19.30 25   15   Vulpecula
  110. X/
  111. X101f 14.05 54   3 M101 Area
  112. Xandf 0.45  41   3 Andromeda, M31
  113. Xcoma 12.25 16   6 Coma Bereneces M100
  114. Xdbcf 2.25  57   2.3 Double Cluster
  115. Xhyaf 4.30  17   5 Hyades Cluster
  116. Xm47f 7.35  15.4 3 M47 Finder
  117. Xm81f 9.55  69   3 M81, M82
  118. Xorif 5.35  -5   6 Orion Nebula
  119. Xperf 3.25  49   4 Perseus Detail
  120. Xplef 3.50  24   3 The Pleiades
  121. Xpraf 8.40  20   2 Praesepe, M44
  122. Xsgra 18.10 -18  10 Sagitarius Cluster
  123. Xumaf 11.25 58   12 Ursa Major Bowl
  124. Xvira 12.25 14   8 Virgo Cluster
  125. X/
  126. Xmayt 13.0  30   110 May Sky
  127. END_OF_FILE
  128. if test 3438 -ne `wc -c <'data/con.locs'`; then
  129.     echo shar: \"'data/con.locs'\" unpacked with wrong size!
  130. fi
  131. # end of 'data/con.locs'
  132. fi
  133. if test -f 'data/index.indx' -a "${1}" != "-c" ; then 
  134.   echo shar: Will not clobber existing file \"'data/index.indx'\"
  135. else
  136. echo shar: Extracting \"'data/index.indx'\" \(3504 characters\)
  137. sed "s/^X//" >'data/index.indx' <<'END_OF_FILE'
  138. X02.0    -30.0    00.0    -90.0  /usr/local/lib/ast/SAO/SAO00-90 lineread
  139. X04.0    -30.0    02.0    -90.0  /usr/local/lib/ast/SAO/SAO02-90 lineread
  140. X06.0    -30.0    04.0    -90.0  /usr/local/lib/ast/SAO/SAO04-90 lineread
  141. X08.0    -30.0    06.0    -90.0  /usr/local/lib/ast/SAO/SAO06-90 lineread
  142. X10.0    -30.0    08.0    -90.0  /usr/local/lib/ast/SAO/SAO08-90 lineread
  143. X12.0    -30.0    10.0    -90.0  /usr/local/lib/ast/SAO/SAO10-90 lineread
  144. X14.0    -30.0    12.0    -90.0  /usr/local/lib/ast/SAO/SAO12-90 lineread
  145. X16.0    -30.0    14.0    -90.0  /usr/local/lib/ast/SAO/SAO14-90 lineread
  146. X18.0    -30.0    16.0    -90.0  /usr/local/lib/ast/SAO/SAO16-90 lineread
  147. X20.0    -30.0    18.0    -90.0  /usr/local/lib/ast/SAO/SAO18-90 lineread
  148. X22.0    -30.0    20.0    -90.0  /usr/local/lib/ast/SAO/SAO20-90 lineread
  149. X24.0    -30.0    22.0    -90.0  /usr/local/lib/ast/SAO/SAO22-90 lineread
  150. X02.0     00.0    00.0    -30.0  /usr/local/lib/ast/SAO/SAO00-30 lineread
  151. X04.0     00.0    02.0    -30.0  /usr/local/lib/ast/SAO/SAO02-30 lineread
  152. X06.0     00.0    04.0    -30.0  /usr/local/lib/ast/SAO/SAO04-30 lineread
  153. X08.0     00.0    06.0    -30.0  /usr/local/lib/ast/SAO/SAO06-30 lineread
  154. X10.0     00.0    08.0    -30.0  /usr/local/lib/ast/SAO/SAO08-30 lineread
  155. X12.0     00.0    10.0    -30.0  /usr/local/lib/ast/SAO/SAO10-30 lineread
  156. X14.0     00.0    12.0    -30.0  /usr/local/lib/ast/SAO/SAO12-30 lineread
  157. X16.0     00.0    14.0    -30.0  /usr/local/lib/ast/SAO/SAO14-30 lineread
  158. X18.0     00.0    16.0    -30.0  /usr/local/lib/ast/SAO/SAO16-30 lineread
  159. X20.0     00.0    18.0    -30.0  /usr/local/lib/ast/SAO/SAO18-30 lineread
  160. X22.0     00.0    20.0    -30.0  /usr/local/lib/ast/SAO/SAO20-30 lineread
  161. X24.0     00.0    22.0    -30.0  /usr/local/lib/ast/SAO/SAO22-30 lineread
  162. X02.0     30.0    00.0     00.0  /usr/local/lib/ast/SAO/SAO00+00 lineread
  163. X04.0     30.0    02.0     00.0  /usr/local/lib/ast/SAO/SAO02+00 lineread
  164. X06.0     30.0    04.0     00.0  /usr/local/lib/ast/SAO/SAO04+00 lineread
  165. X08.0     30.0    06.0     00.0  /usr/local/lib/ast/SAO/SAO06+00 lineread
  166. X10.0     30.0    08.0     00.0  /usr/local/lib/ast/SAO/SAO08+00 lineread
  167. X12.0     30.0    10.0     00.0  /usr/local/lib/ast/SAO/SAO10+00 lineread
  168. X14.0     30.0    12.0     00.0  /usr/local/lib/ast/SAO/SAO12+00 lineread
  169. X16.0     30.0    14.0     00.0  /usr/local/lib/ast/SAO/SAO14+00 lineread
  170. X18.0     30.0    16.0     00.0  /usr/local/lib/ast/SAO/SAO16+00 lineread
  171. X20.0     30.0    18.0     00.0  /usr/local/lib/ast/SAO/SAO18+00 lineread
  172. X22.0     30.0    20.0     00.0  /usr/local/lib/ast/SAO/SAO20+00 lineread
  173. X24.0     30.0    22.0     00.0  /usr/local/lib/ast/SAO/SAO22+00 lineread
  174. X02.0     90.0    00.0     30.0  /usr/local/lib/ast/SAO/SAO00+30 lineread
  175. X04.0     90.0    02.0     30.0  /usr/local/lib/ast/SAO/SAO02+30 lineread
  176. X06.0     90.0    04.0     30.0  /usr/local/lib/ast/SAO/SAO04+30 lineread
  177. X08.0     90.0    06.0     30.0  /usr/local/lib/ast/SAO/SAO06+30 lineread
  178. X10.0     90.0    08.0     30.0  /usr/local/lib/ast/SAO/SAO08+30 lineread
  179. X12.0     90.0    10.0     30.0  /usr/local/lib/ast/SAO/SAO10+30 lineread
  180. X14.0     90.0    12.0     30.0  /usr/local/lib/ast/SAO/SAO12+30 lineread
  181. X16.0     90.0    14.0     30.0  /usr/local/lib/ast/SAO/SAO14+30 lineread
  182. X18.0     90.0    16.0     30.0  /usr/local/lib/ast/SAO/SAO16+30 lineread
  183. X20.0     90.0    18.0     30.0  /usr/local/lib/ast/SAO/SAO18+30 lineread
  184. X22.0     90.0    20.0     30.0  /usr/local/lib/ast/SAO/SAO20+30 lineread
  185. X24.0     90.0    22.0     30.0  /usr/local/lib/ast/SAO/SAO22+30 lineread
  186. END_OF_FILE
  187. if test 3504 -ne `wc -c <'data/index.indx'`; then
  188.     echo shar: \"'data/index.indx'\" unpacked with wrong size!
  189. fi
  190. # end of 'data/index.indx'
  191. fi
  192. if test -f 'data/reg_to_indx.perl' -a "${1}" != "-c" ; then 
  193.   echo shar: Will not clobber existing file \"'data/reg_to_indx.perl'\"
  194. else
  195. echo shar: Extracting \"'data/reg_to_indx.perl'\" \(2946 characters\)
  196. sed "s/^X//" >'data/reg_to_indx.perl' <<'END_OF_FILE'
  197. X#
  198. X# First extract the data from regions.tbl file using emacs
  199. X# to split the data beginning at 14401 into 9537 lines
  200. X# of 48 characters each.  an easier method is:
  201. X#    dd if=regions.tbl of=reg.txt cbs=48 conv=unblock ibs=2880 skip=5
  202. X# FOLLOWED by head -9537 reg.txt > reg.txt.final
  203. X#
  204. X# The resulting file was processed using this
  205. X# perl script to produce the index.indx file for the GSC CD-ROM.
  206. X# You will need to set the parent directory of the CD-ROM below.
  207. X# If you have two CD-ROM readers for the two CD-ROMs, see
  208. X# "TWO READERS" below.
  209. X#
  210. X# perl is a replacement for shell awk and sed scripts, developed by
  211. X# Larry Wall at jpl-devvax.jpl.nasa.gov, where the latest version is
  212. X# avaliable via anonymous ftp.
  213. X
  214. X
  215. X$, = ":";
  216. X$\ = "\n";
  217. Xwhile (<>) {
  218. X    $reg_no = substr($_,0,5);
  219. X    $ra_h_low = substr($_,7,2);
  220. X    $ra_m_low = substr($_,10,2);
  221. X    $ra_s_low = substr($_,13,5);
  222. X    $ra_h_hi = substr($_,19,2);
  223. X    $ra_m_hi = substr($_,22,2);
  224. X    $ra_s_hi = substr($_,25,5);
  225. X    $decsi_lo = substr($_,31,1);
  226. X    $dec_d_lo = substr($_,32,2);
  227. X    $dec_m_lo = substr($_,35,4);
  228. X    $decsi_hi = substr($_,40,1);
  229. X    $dec_d_hi = substr($_,41,2);
  230. X    $dec_m_hi = substr($_,44,4);
  231. X
  232. X
  233. X    $dec_hi = $dec_d_hi + $dec_m_hi/60.0;
  234. X    if ($decsi_hi eq "-") {$dec_hi *= -1;}
  235. X
  236. X    $dec_lo = $dec_d_lo + $dec_m_lo/60.0;
  237. X    if ($decsi_lo eq "-") {$dec_lo *= -1;}
  238. X
  239. X    $ra_hi = $ra_h_hi + $ra_m_hi/60.0 + $ra_s_hi / 3600.0;
  240. X    $ra_lo = $ra_h_low + $ra_m_low/60.0 + $ra_s_low / 3600.0;
  241. X
  242. X    if ($ra_hi == 0.0) {$ra_hi = 24.0;}
  243. X
  244. X    $dec_abs = $dec_lo;
  245. X    if ($dec_abs < 0.0) {$dec_abs = -$dec_abs;}
  246. X# Note: name of cdrom here should not be changed, change it below.
  247. X    $subdir = "/cdrom/gsc/";
  248. X    if ($decsi_hi eq "-") {
  249. X        $subdir .= "s";
  250. X    } else {
  251. X        $subdir .= "n";
  252. X    }
  253. X    
  254. X    if ($dec_abs < 7.5) {
  255. X        $subdir .= "0000";
  256. X    } elsif ($dec_abs < 15.00) {
  257. X        $subdir .= "0730";
  258. X    } elsif ($dec_abs < 22.50) {
  259. X        $subdir .= "1500";
  260. X    } elsif ($dec_abs < 30.00) {
  261. X        $subdir .= "2230";
  262. X    } elsif ($dec_abs < 37.50) {
  263. X        $subdir .= "3000";
  264. X    } elsif ($dec_abs < 45.00) {
  265. X        $subdir .= "3730";
  266. X    } elsif ($dec_abs < 52.50) {
  267. X        $subdir .= "4500";
  268. X    } elsif ($dec_abs < 60.00) {
  269. X        $subdir .= "5230";
  270. X    } elsif ($dec_abs < 67.50) {
  271. X        $subdir .= "6000";
  272. X    } elsif ($dec_abs < 75.00) {
  273. X        $subdir .= "6730";
  274. X    } elsif ($dec_abs < 82.50) {
  275. X        $subdir .= "7500";
  276. X    } else {
  277. X        $subdir .= "8230";
  278. X    }
  279. X
  280. X    $subdir .= "/";
  281. X
  282. X## TWO READERS
  283. X## At this point subdir should be modified if a second cdrom reader is
  284. X## to be used for the southern disk
  285. X#    if (($subdir =~ m"/s[0-9][0-9][0-9][0-9]/")
  286. X#        && ($subdir !~ m"/s0000/")) {
  287. X##            On second disk
  288. X#            $subdir =~ s"cdrom"cdrom2";
  289. X#    }
  290. X
  291. X# here, you can rename /cdrom/ to be the value appropriate for your
  292. X# site.
  293. X# e.g.:
  294. X#    $subdir =~ s"cdrom/"my/owncdrom/";
  295. X#    $subdir =~ s"cdrom2/"my/owncdrom2/";
  296. X
  297. X    if ($dec_hi < $dec_lo) {
  298. X        $dec_up = $dec_lo;
  299. X        $dec_dn = $dec_hi;
  300. X    } else {
  301. X        $dec_up = $dec_hi;
  302. X        $dec_dn = $dec_lo;
  303. X    }
  304. X
  305. X    printf "%9.6f %7.3f %9.6f %7.3f %s%04d.gsc gsc\n",
  306. X        $ra_hi, $dec_up,
  307. X        $ra_lo, $dec_dn,
  308. X        $subdir,
  309. X        $reg_no;
  310. X}
  311. X
  312. END_OF_FILE
  313. if test 2946 -ne `wc -c <'data/reg_to_indx.perl'`; then
  314.     echo shar: \"'data/reg_to_indx.perl'\" unpacked with wrong size!
  315. fi
  316. # end of 'data/reg_to_indx.perl'
  317. fi
  318. if test -f 'doc/starpost.1' -a "${1}" != "-c" ; then 
  319.   echo shar: Will not clobber existing file \"'doc/starpost.1'\"
  320. else
  321. echo shar: Extracting \"'doc/starpost.1'\" \(3253 characters\)
  322. sed "s/^X//" >'doc/starpost.1' <<'END_OF_FILE'
  323. X.TH STARCHART LOCAL "15 July 1989"
  324. X.ad b
  325. X.SH NAME
  326. Xstarpost \- print astronomical star charts.
  327. X.SH SYNOPSIS
  328. XArguments as in other starchart programs, with the special argument -a:
  329. X.br
  330. X.B \-a
  331. X"\fBm\fR
  332. X[
  333. X.I mag-1
  334. X:
  335. X.I mag0
  336. X:
  337. X.I mag1
  338. X:
  339. X.I mag2
  340. X:
  341. X.I ...
  342. X]
  343. X|
  344. X.B \-a
  345. X\fBs\fR
  346. X[
  347. X.I D0
  348. X[
  349. X.I v0
  350. X[
  351. X.I k
  352. X]]]
  353. X|
  354. X\fBn\fR
  355. X[
  356. X.I rad1
  357. X:
  358. X.I rad2
  359. X:
  360. X.I rad3
  361. X:
  362. X.I rad4
  363. X:
  364. X.I ...
  365. X]
  366. X|
  367. X.BI f " file"
  368. X|
  369. X.B c
  370. X|
  371. X\fBl\fR"
  372. X.br
  373. X
  374. X.SH DESCRIPTION
  375. XSee starchart(1) for details on the starchart programs in general.
  376. X.PP
  377. XThe additional argument controls include \fBm\fR for magnitude:
  378. Xwith \fBm\fR 0.1 magnitude quanta are used (the default is 1.0
  379. Xmagnitude, e.g. a 4.6 magnitude star is represented by the same symbol
  380. Xas a star of magnitude 5.4).  The rest of the argument string is
  381. Xoptional, and taken to be a list of floating point numbers separated
  382. Xby `:' or ` '.  These are taken to be the radii of the symbols for
  383. Xstars of magnitude -1, 0, 1, 2, 3 etc.  The sizes of symbols for stars
  384. Xwith magnitudes between these magnitudes are determined by linear
  385. Xinterpolation.  Note that the last value given is the value assigned
  386. Xto all magnitudes fainter than that magnitude. Current default sizes
  387. Xare "9 8 7 6 5 4 3.25 2.5 2 1.5 1 0.5".
  388. X.PP
  389. XThe \fBs\fR argument provides an alternative way of specifying
  390. Xmagnitude symbol sizes, using a formula proposed by Andrew Young in
  391. XSky and Telescope, March 1990, p. 311, D = D0 * 10^(k*(v0 - v)).
  392. XHe proposes a k of between 0.07 and 0.16, with 0.11 as probably the
  393. Xbest.  If \fBs\fR uses 0.1 magnitude quanta as does \fBm\fR.  The
  394. Xdefault values for D0, v0, and k are 0.5 (points), the limiting
  395. Xmagnitude of the main map, and 0.11, respectively.  These may be
  396. Xaltered with the optional arguments to \fBs\fR.
  397. X.PP
  398. XThe \fBn\fR argument is for ``notebook'' mode.  The chart is shifted
  399. Xto the right on the page, and the ``thumbnail'' map is replaced with
  400. Xprompts and space for recording observing conditions.  The rest of the
  401. Xargument string is taken to be a list of floating point numbers
  402. Xseparated by `:' or ` '.  These are taken to be the radii in degrees
  403. Xof fields of view of the instrument or finder.  Circles with these
  404. Xradii are drawn, centered on the center of the chart.
  405. X.PP
  406. X.BI f " file"
  407. Xmay be used to specify an output file, otherwise the postscript
  408. Xproduced is sent to the standard output.
  409. X.PP
  410. X.B c
  411. Xmay be used to produce color postscript output.
  412. X.PP
  413. X.B l
  414. Xmay be used to specify landscape mode (as opposed to the default
  415. Xportrait orientation).  Landscape mode can only used with a
  416. Xfullpage map.
  417. X.PP
  418. X.sp
  419. XSince the resolution of PostScript is much higher than other common
  420. Xdevices, ``mapwin'' files must be edited when transferred between
  421. Xstarpost and other drivers.  The controls for window width, height,
  422. Xx_offset and y_offset must be changed.
  423. X.PP
  424. XThe "\fB-a\fR p" or "\fB-a\fR l" option used with "starX11" or
  425. X"starXaw" can be used in producing a ``mapwin'' file which can be
  426. Xconverted for use in "starpost" through an "awk" script named
  427. X"postconv.awk", provided with the source to this program.
  428. X
  429. X.SH EXAMPLE
  430. Xstarpost -a "n 6:1.5:.5" -a "m9 8 7 6 5 4 3.5 2.5 2 1.5 1 0.5" -a "f orion.PS" -c ori -g 5 
  431. X.SH BUGS
  432. X.SH AUTHORS/EDITORS
  433. XCraig Counterman
  434. X.br
  435. XAlan Paeth, University of Waterloo <AWPaeth@watCGL>
  436. X.br
  437. XThanks also to
  438. X.br
  439. XPoul-Henning Kamp
  440. X
  441. END_OF_FILE
  442. if test 3253 -ne `wc -c <'doc/starpost.1'`; then
  443.     echo shar: \"'doc/starpost.1'\" unpacked with wrong size!
  444. fi
  445. # end of 'doc/starpost.1'
  446. fi
  447. if test -f 'observe/objcalc.c' -a "${1}" != "-c" ; then 
  448.   echo shar: Will not clobber existing file \"'observe/objcalc.c'\"
  449. else
  450. echo shar: Extracting \"'observe/objcalc.c'\" \(3256 characters\)
  451. sed "s/^X//" >'observe/objcalc.c' <<'END_OF_FILE'
  452. X/*
  453. X * objcalc.c
  454. X * read objects data file, calculate position in equinox 2000.0
  455. X *
  456. X * Copyright (c) 1990 by Craig Counterman. All rights reserved.
  457. X *
  458. X * This software may be redistributed freely, not sold.
  459. X * This copyright notice and disclaimer of warranty must remain
  460. X *    unchanged. 
  461. X *
  462. X * No representation is made about the suitability of this
  463. X * software for any purpose.  It is provided "as is" without express or
  464. X * implied warranty, to the extent permitted by applicable law.
  465. X *
  466. X */
  467. X
  468. X#ifndef  lint
  469. Xstatic char rcsid[] =
  470. X  "$Header: objcalc.c,v 1.9 90/03/06 00:08:40 ccount Exp $";
  471. X#endif
  472. X
  473. X
  474. X#include <stdio.h>
  475. X#include <math.h>
  476. X#ifndef SYSV
  477. X#include <strings.h>
  478. X#else
  479. X#include <string.h>
  480. X#endif
  481. X#include "observe.h"
  482. X#include "degree.h"
  483. X
  484. Xextern char *malloc();
  485. X
  486. X/* Format
  487. XName
  488. XR.A
  489. Xdec.
  490. Xmag type size epoch
  491. X*/
  492. X
  493. Xvoid read_objects(infile, objects, nobjects_p, maxobjects)
  494. X     FILE *infile;
  495. X     obj_data_t objects[];
  496. X     int *nobjects_p;
  497. X     int maxobjects;
  498. X{
  499. X  char in_line[1000], *linep;
  500. X  int i, j, nscanned;
  501. X  double ra1, ra2, ra3, ra;
  502. X  double dec1, dec2, dec3, dec;
  503. X  double alpha, delta, alpha2000, delta2000;
  504. X  char typestr[10];
  505. X
  506. X  j = 0;
  507. X  while (!feof(infile)) {
  508. X    linep = fgets(in_line, 1000, infile);
  509. X    if (linep != NULL) {
  510. X      /* remove trailing '\n' */
  511. X      linep[strlen(linep)-1] = '\0';
  512. X      objects[j].name = (char *) malloc((unsigned) strlen(linep)+1);
  513. X      if (objects[j].name != NULL)
  514. X    strcpy(objects[j].name, linep);
  515. X      else objects[j].name = "object";
  516. X      nscanned = 1;
  517. X    } else nscanned = 0;
  518. X    if (nscanned < 1) continue;
  519. X
  520. X    linep = fgets(in_line, 1000, infile);
  521. X    if (linep != NULL)
  522. X      nscanned = sscanf(linep, "%lf %lf %lf",
  523. X         &ra1, &ra2, &ra3);
  524. X    else nscanned = 0;
  525. X    if (nscanned < 1) continue;
  526. X
  527. X    ra = ra1 + ra2/60.0 + ra3/3600.0;
  528. X    objects[j].alpha = ra*15.0;
  529. X
  530. X    linep = fgets(in_line, 1000, infile);
  531. X    if (linep != NULL)
  532. X      nscanned = sscanf(linep, "%lf %lf %lf",
  533. X         &dec1, &dec2, &dec3);
  534. X    else nscanned = 0;
  535. X    if (nscanned < 1) continue;
  536. X
  537. X    dec1 = fabs(dec1);
  538. X    dec = dec1 + dec2/60.0 + dec3/3600.0;
  539. X    for (i=0; linep[i]; i++)
  540. X      if (linep[i] == '-') dec = -dec;
  541. X    objects[j].delta = dec;
  542. X
  543. X    linep = fgets(in_line, 1000, infile);
  544. X    objects[j].size = 0.0;
  545. X    objects[j].equinox = 2000.0;
  546. X    if (linep != NULL)
  547. X      nscanned = sscanf(linep, "%lf %2s %lf %lf",
  548. X            &objects[j].mag, typestr, &objects[j].size,
  549. X            &objects[j].equinox);
  550. X    else nscanned = 0;
  551. X    if (nscanned < 1) continue;
  552. X
  553. X    if (typestr[0]) {
  554. X      objects[j].type[0] = typestr[0];
  555. X      if (typestr[1])
  556. X    objects[j].type[1] = typestr[1];
  557. X      else
  558. X    objects[j].type[1] = ' ';
  559. X    } else {
  560. X      objects[j].type[0] = ' ';
  561. X      objects[j].type[1] = ' ';
  562. X    };
  563. X    objects[j].type[2] = '\0';
  564. X
  565. X    if (objects[j].equinox != 2000.0) {
  566. X      alpha = objects[j].alpha;
  567. X      delta = objects[j].delta;
  568. X
  569. X      precess(objects[j].equinox, 2000.0,
  570. X          alpha, delta, &alpha2000, &delta2000);
  571. X
  572. X      objects[j].alpha2000 = alpha2000;
  573. X      objects[j].delta2000 = delta2000;
  574. X    } else {
  575. X      objects[j].alpha2000 = objects[j].alpha;
  576. X      objects[j].delta2000 = objects[j].delta;
  577. X    };
  578. X
  579. X    j++;
  580. X  };
  581. X  *nobjects_p = j;
  582. X}
  583. X
  584. Xvoid obj_pos(jd, object)
  585. X     double jd;
  586. X     obj_data_t *object;
  587. X{
  588. X}
  589. X
  590. END_OF_FILE
  591. if test 3256 -ne `wc -c <'observe/objcalc.c'`; then
  592.     echo shar: \"'observe/objcalc.c'\" unpacked with wrong size!
  593. fi
  594. # end of 'observe/objcalc.c'
  595. fi
  596. if test -f 'observe/suncalc.c' -a "${1}" != "-c" ; then 
  597.   echo shar: Will not clobber existing file \"'observe/suncalc.c'\"
  598. else
  599. echo shar: Extracting \"'observe/suncalc.c'\" \(4002 characters\)
  600. sed "s/^X//" >'observe/suncalc.c' <<'END_OF_FILE'
  601. X/*
  602. X * suncalc.c
  603. X * Sun position calculations
  604. X *
  605. X * Copyright (c) 1990 by Craig Counterman. All rights reserved.
  606. X *
  607. X * This software may be redistributed freely, not sold.
  608. X * This copyright notice and disclaimer of warranty must remain
  609. X *    unchanged. 
  610. X *
  611. X * No representation is made about the suitability of this
  612. X * software for any purpose.  It is provided "as is" without express or
  613. X * implied warranty, to the extent permitted by applicable law.
  614. X *
  615. X */
  616. X
  617. X#ifndef  lint
  618. Xstatic char rcsid[] =
  619. X  "$Header: suncalc.c,v 1.4 90/02/19 17:21:48 ccount Exp $";
  620. X#endif
  621. X
  622. X
  623. X#include <math.h>
  624. X#include "observe.h"
  625. X#include "degree.h"
  626. X
  627. Xvoid sun_pos(jd, sun_data)
  628. X     double jd;
  629. X     sun_data_t *sun_data;
  630. X{
  631. X  double L, M, Theta, R;
  632. X  double A, B, C, D, E, H;
  633. X  double e, nu;
  634. X  double T;
  635. X  double epsilon;
  636. X  double alpha, delta, alpha2000, delta2000;
  637. X
  638. X  T =  (jd - 2415020.0)/36525.0;
  639. X
  640. X  M = into_range(358.47583 + 35999.04975*T - 0.000150*T*T - 0.0000033*T*T*T);
  641. X  e = 0.01675104 - 0.0000418*T - 0.000000126*T*T;
  642. X  L = into_range(279.69668 + 36000.76892*T + 0.0003025*T*T);
  643. X  anom_calc(M, e, &E, &nu);
  644. X  Theta = into_range(L + nu - M);
  645. X  R = 1.0000002*(1.0 - e * DCOS(E));
  646. X
  647. X  /* More accurate */
  648. X  A = into_range(153.23 + 22518.7541*T);
  649. X  B = into_range(216.57 + 45037.508184*T);
  650. X  C = into_range(312.69 + 32964.3577008*T);
  651. X  D = into_range(350.74 + 445267.1142*T - 0.00144*T*T);
  652. X  E = into_range(231.19 + 20.2*T);
  653. X  H = into_range(353.4  + 65928.715488*T);
  654. X
  655. X  Theta += 0.00134*DCOS(A)+0.00154*DCOS(B)+.002*DCOS(C)
  656. X    +.00179*DSIN(D)+ .00178*DSIN(E);
  657. X  R += 5.43e-06*DSIN(A)+1.575e-05*DSIN(B)+1.627e-05*DSIN(C)+
  658. X    3.076e-05*DCOS(D)+9.27e-06*DSIN(H);
  659. X
  660. X  sun_data->size = 1919.26/R;
  661. X  sun_data->R = R;
  662. X  sun_data->Theta = Theta;
  663. X  epsilon = 23.439291 - 0.0130042* T - 0.00000016* T*T - 0.000000504* T*T*T;
  664. X  alpha = sun_data->alpha
  665. X    = into_range(RAD_TO_DEG * atan2(DCOS(epsilon)*DSIN(Theta), DCOS(Theta)));
  666. X  delta = sun_data->delta = 
  667. X    RAD_TO_DEG * asin(DSIN(epsilon)*DSIN(Theta));
  668. X  precess(2000.0 - (2451545.0 - jd) / 365.25,
  669. X      2000.0, alpha, delta, &alpha2000, &delta2000);
  670. X
  671. X  sun_data->alpha2000 = alpha2000;
  672. X  sun_data->delta2000 = delta2000;
  673. X}
  674. X
  675. X/*
  676. X  alpha = RAD_TO_DEG * atan2(DCOS(epsilon)*DSIN(Theta), DCOS(Theta));
  677. X  delta = RAD_TO_DEG * asin(DSIN(epsilon)*DSIN(Theta));
  678. X*/
  679. X
  680. Xvoid sun_rect(T, equinox_year, R, Theta, X_p, Y_p, Z_p)
  681. Xdouble T, R, Theta, equinox_year;
  682. Xdouble *X_p, *Y_p, *Z_p;
  683. X{
  684. X  double epsilon;
  685. X  double T_eq;
  686. X  double X_0, Y_0, Z_0;
  687. X  double X_x, Y_x, Z_x;
  688. X  double X_y, Y_y, Z_y;
  689. X  double X_z, Y_z, Z_z;
  690. X  double zeta, Z, theta;
  691. X  double zeta_A_1, Z_A_1, theta_A_1;
  692. X  double zeta_A_2, Z_A_2, theta_A_2;
  693. X
  694. X
  695. X  epsilon = obl_jd(T);
  696. X  X_0 = R * DCOS(Theta);
  697. X  Y_0 = R * DSIN(Theta) * DCOS(epsilon);
  698. X  Z_0 = R * DSIN(Theta) * DSIN(epsilon);
  699. X
  700. X  /* Now precess from T to equinox */
  701. X  T_eq = (T - 2451545.0)/36525.0;
  702. X  zeta_A_1= 0.6406161* T_eq + 0.0000839* T_eq*T_eq + 0.0000050* T_eq*T_eq*T_eq;
  703. X  Z_A_1   = 0.6406161* T_eq + 0.0003041* T_eq*T_eq + 0.0000051* T_eq*T_eq*T_eq;
  704. X  theta_A_1=0.5567530* T_eq - 0.0001185* T_eq*T_eq + 0.0000116* T_eq*T_eq*T_eq;
  705. X
  706. X  T_eq = (equinox_year - 2000.0)/100.0;
  707. X  zeta_A_2= 0.6406161* T_eq + 0.0000839* T_eq*T_eq + 0.0000050* T_eq*T_eq*T_eq;
  708. X  Z_A_2   = 0.6406161* T_eq + 0.0003041* T_eq*T_eq + 0.0000051* T_eq*T_eq*T_eq;
  709. X  theta_A_2=0.5567530* T_eq - 0.0001185* T_eq*T_eq + 0.0000116* T_eq*T_eq*T_eq;
  710. X
  711. X  zeta = zeta_A_2 - zeta_A_1;
  712. X  Z = Z_A_2 - Z_A_1;
  713. X  theta = theta_A_2 - theta_A_1;
  714. X
  715. X
  716. X
  717. X  X_x = DCOS(zeta) * DCOS(Z) * DCOS(theta) - DSIN(zeta) * DSIN(zeta);
  718. X  X_y = DSIN(zeta) * DCOS(Z) + DCOS(zeta) * DSIN(Z) * DCOS(theta);
  719. X  X_z = DCOS(zeta) * DSIN(theta);
  720. X
  721. X  Y_x = -DCOS(zeta) * DSIN(Z) - DSIN(zeta) * DCOS(Z) * DCOS(theta);
  722. X  Y_y =  DCOS(zeta) * DCOS(Z) - DSIN(zeta) * DSIN(Z) * DCOS(theta);
  723. X  Y_z = -DSIN(zeta) * DSIN(theta);
  724. X
  725. X  Z_x = -DCOS(Z) * DSIN(theta);
  726. X  Z_y = -DSIN(Z) * DSIN(theta);
  727. X  Z_z = DCOS(theta);
  728. X
  729. X
  730. X  *X_p = X_x*X_0 + Y_x * Y_0 + Z_x * Z_0;
  731. X  *Y_p = X_y*X_0 + Y_y * Y_0 + Z_y * Z_0;
  732. X  *Z_p = X_z*X_0 + Y_z * Y_0 + Z_z * Z_0;
  733. X}
  734. X
  735. END_OF_FILE
  736. if test 4002 -ne `wc -c <'observe/suncalc.c'`; then
  737.     echo shar: \"'observe/suncalc.c'\" unpacked with wrong size!
  738. fi
  739. # end of 'observe/suncalc.c'
  740. fi
  741. if test -f 'samples/mess.obj' -a "${1}" != "-c" ; then 
  742.   echo shar: Will not clobber existing file \"'samples/mess.obj'\"
  743. else
  744. echo shar: Extracting \"'samples/mess.obj'\" \(2988 characters\)
  745. sed "s/^X//" >'samples/mess.obj' <<'END_OF_FILE'
  746. XM_1
  747. X05 34.5
  748. X+22 01
  749. X8.4 NP
  750. XM_2
  751. X21 33.5
  752. X-00 49
  753. X6.5 CG
  754. XM_3
  755. X13 42.2
  756. X+28 23
  757. X6.4 CG
  758. XM_4
  759. X16 23.6
  760. X-26 32
  761. X5.9 CG
  762. XM_5
  763. X15 18.6
  764. X+02 05
  765. X5.75 CG
  766. XM_6
  767. X17 40.1
  768. X-32 13
  769. X4.2 CO
  770. XM_7
  771. X17 53.9
  772. X-34 49
  773. X3.3 CO
  774. XM_8
  775. X18 03.1
  776. X-24 23
  777. X5 CO
  778. XM_9
  779. X17 19.2
  780. X-18 31
  781. X7.9 CG
  782. XM_10
  783. X16 57.1
  784. X-04 06
  785. X6.6 CG
  786. XM_11
  787. X18 51.1
  788. X-06 16
  789. X5.8 CO
  790. XM_12
  791. X16 47.2
  792. X-01 57
  793. X6.6 CG
  794. XM_13
  795. X16 41.7
  796. X+36 28
  797. X5.9 CG
  798. XM_14
  799. X17 37.6
  800. X-03 15
  801. X7.6 CG
  802. XM_15
  803. X21 30.0
  804. X+12 10
  805. X6.35 CG
  806. XM_16
  807. X18 18.8
  808. X-13 47
  809. X6 CO
  810. XM_17
  811. X18 20.8
  812. X-16 11
  813. X6 CO
  814. XM_18
  815. X18 19.9
  816. X-17 08
  817. X6.9 CO
  818. XM_19
  819. X17 02.6
  820. X-26 16
  821. X7.2 CG
  822. XM_20
  823. X18 02.3
  824. X-23 02
  825. X6.3 CO
  826. XM_21
  827. X18 04.6
  828. X-22 30
  829. X5.9 CO
  830. XM_22
  831. X18 36.4
  832. X-29 54
  833. X5.1 CG
  834. XM_23
  835. X17 56.8
  836. X-19 01
  837. X5.5 CO
  838. XM_24
  839. X18 17.0
  840. X-18 35
  841. X4 CO
  842. XM_25
  843. X18 31.6
  844. X-19 15
  845. X4.6 CO
  846. XM_26
  847. X18 45.2
  848. X-09 24
  849. X8 CO
  850. XM_27
  851. X19 59.6
  852. X+22 43
  853. X7.3 NP
  854. XM_28
  855. X18 24.5
  856. X-24 52
  857. X6.9 CG
  858. XM_29
  859. X20 23.9
  860. X+38 32
  861. X6.6 CO
  862. XM_30
  863. X21 40.4
  864. X-23 11
  865. X7.5 CG
  866. XM_31
  867. X00 42.8
  868. X+41 16
  869. X3.5 Gb
  870. XM_32
  871. X00 42.8
  872. X+40 52
  873. X8.2 G2
  874. XM_33
  875. X01 33.9
  876. X+30 40
  877. X7 Gc
  878. XM_34
  879. X02 42.0
  880. X+42 47
  881. X5.2 CO
  882. XM_35
  883. X06 08.9
  884. X+24 20
  885. X5.1 CO
  886. XM_36
  887. X05 36.1
  888. X+34 08
  889. X6 CO
  890. XM_37
  891. X05 52.4
  892. X+32 33
  893. X5.6 CO
  894. XM_38
  895. X05 28.7
  896. X+35 50
  897. X6.4 CO
  898. XM_39
  899. X21 32.2
  900. X+48 26
  901. X4.6 CO
  902. XM_40
  903. X12 21.9
  904. X+58 06
  905. X9 CO
  906. XM_41
  907. X06 47.0
  908. X-20 44
  909. X4.5 CO
  910. XM_42
  911. X05 35.3
  912. X-05 23
  913. X4 CO
  914. XM_43
  915. X05 35.5
  916. X-05 16
  917. X9 ND
  918. XM_44
  919. X08 40.1
  920. X+19 59
  921. X3.1 CO
  922. XM_45
  923. X03 47.0
  924. X+24 07
  925. X1.2 CO
  926. XM_46
  927. X07 41.8
  928. X-14 49
  929. X6.1 CO
  930. XM_47
  931. X07 36.6
  932. X-14 30
  933. X4.4 CO
  934. XM_48
  935. X08 13.8
  936. X-05 48
  937. X5.8 CO
  938. XM_49
  939. X12 29.8
  940. X+08 01
  941. X10.2 G4
  942. XM_50
  943. X07 03.2
  944. X-08 20
  945. X5.9 CO
  946. XM_51
  947. X13 30.0
  948. X+47 11
  949. X8.8 Gc
  950. XM_52
  951. X23 24.2
  952. X+61 35
  953. X6.9 CO
  954. XM_53
  955. X13 12.9
  956. X+18 10
  957. X7.7 CG
  958. XM_54
  959. X18 55.1
  960. X-30 29
  961. X7.7 CG
  962. XM_55
  963. X19 40.0
  964. X-30 58
  965. X7 CG
  966. XM_56
  967. X19 16.6
  968. X+30 11
  969. X8.3 CG
  970. XM_57
  971. X18 53.6
  972. X+33 02
  973. X9 NP
  974. XM_58
  975. X12 37.8
  976. X+11 50
  977. X11.5 Gb
  978. XM_59
  979. X12 42.1
  980. X+11 39
  981. X11 G3
  982. XM_60
  983. X12 43.7
  984. X+11 34
  985. X10.3 G1
  986. XM_61
  987. X12 22.0
  988. X+04 29
  989. X10.9 Gc
  990. XM_62
  991. X17 01.2
  992. X-30 07
  993. X6.6 CG
  994. XM_63
  995. X13 15.8
  996. X+42 02
  997. X9.7 Gb
  998. XM_64
  999. X12 56.7
  1000. X+21 41
  1001. X8.9 Ga
  1002. XM_65
  1003. X11 18.9
  1004. X+13 05
  1005. X9.6 G 
  1006. XM_66
  1007. X11 20.2
  1008. X+12 59
  1009. X8.9 Gb
  1010. XM_67
  1011. X08 50.4
  1012. X+11 49
  1013. X6.9 CO
  1014. XM_68
  1015. X12 39.5
  1016. X-26 45
  1017. X8.2 CG
  1018. XM_69
  1019. X18 34.4
  1020. X-32 21
  1021. X7.7 CG
  1022. XM_70
  1023. X18 43.2
  1024. X-32 18
  1025. X8.1 CG
  1026. XM_71
  1027. X19 53.8
  1028. X+18 47
  1029. X8.3 CG
  1030. XM_72
  1031. X20 53.5
  1032. X-12 32
  1033. X9.4 CG
  1034. XM_73
  1035. X20 59.0
  1036. X-12 38
  1037. X8.9 CO
  1038. XM_74
  1039. X01 36.6
  1040. X+15 48
  1041. X10.5 Gc
  1042. XM_75
  1043. X20 06.1
  1044. X-21 55
  1045. X8.6 CG
  1046. XM_76
  1047. X01 42.4
  1048. X+51 34
  1049. X11 NP
  1050. XM_76
  1051. X01 42.3
  1052. X+51 34
  1053. X11 NP
  1054. XM_77
  1055. X02 42.7
  1056. X-00 02
  1057. X10.5 GS
  1058. XM_78
  1059. X05 46.8
  1060. X+00 04
  1061. X8 ND
  1062. XM_79
  1063. X05 24.5
  1064. X-24 33
  1065. X8.4 CG
  1066. XM_80
  1067. X16 17.0
  1068. X-22 59
  1069. X7.2 CG
  1070. XM_81
  1071. X09 55.6
  1072. X+69 04
  1073. X8.1 Gb
  1074. XM_82
  1075. X09 55.8
  1076. X+69 41
  1077. X9.2 GI
  1078. XM_83
  1079. X13 37.1
  1080. X-29 52
  1081. X8.5 Gc
  1082. XM_84
  1083. X12 25.1
  1084. X+12 54
  1085. X10.8 G1
  1086. XM_85
  1087. X12 25.5
  1088. X+18 12
  1089. X10.2 G 
  1090. XM_86
  1091. X12 26.3
  1092. X+12 57
  1093. X10.9 G3
  1094. XM_87
  1095. X12 30.9
  1096. X+12 24
  1097. X10.4 G1
  1098. XM_88
  1099. X12 32.1
  1100. X+14 26
  1101. X10.6 G 
  1102. XM_89
  1103. X12 35.7
  1104. X+12 34
  1105. X11.1 G0
  1106. XM_90
  1107. X12 36.9
  1108. X+13 10
  1109. X11.8 Gb
  1110. XM_91
  1111. X12 35.5
  1112. X+14 30
  1113. X11.5 GB
  1114. XM_92
  1115. X17 17.1
  1116. X+43 08
  1117. X6.5 CG
  1118. XM_93
  1119. X07 44.6
  1120. X-23 52
  1121. X6.2 CO
  1122. XM_94
  1123. X12 50.9
  1124. X+41 08
  1125. X8.7 Gb
  1126. XM_95
  1127. X10 44.0
  1128. X+11 42
  1129. X11.2 GB
  1130. XM_96
  1131. X10 46.8
  1132. X+11 49
  1133. X10 Gb
  1134. XM_97
  1135. X11 14.8
  1136. X+55 01
  1137. X11 NP
  1138. XM_98
  1139. X12 13.9
  1140. X+14 55
  1141. X11 Gb
  1142. XM_99
  1143. X12 18.9
  1144. X+14 26
  1145. X10.2 Gc
  1146. XM_100
  1147. X12 23.0
  1148. X+15 50
  1149. X10.6 Gc
  1150. XM_101
  1151. X14 03.3
  1152. X+54 22
  1153. X8.7 Gc
  1154. XM_102?
  1155. X15 06.5
  1156. X+55 45
  1157. X11.1 G6
  1158. XM_103
  1159. X01 33.2
  1160. X+60 42
  1161. X7.4 CO
  1162. XM_104
  1163. X12 39.9
  1164. X-11 37
  1165. X9.3 Ga
  1166. XM_105
  1167. X10 47.8
  1168. X+12 35
  1169. X9.6 G1
  1170. XM_106
  1171. X12 18.9
  1172. X+47 19
  1173. X9.6 Gb
  1174. XM_107
  1175. X16 32.5
  1176. X-13 03
  1177. X8.1 CG
  1178. XM_108
  1179. X11 11.5
  1180. X+55 40
  1181. X10.7 Gc
  1182. XM_109
  1183. X11 57.6
  1184. X+53 23
  1185. X10.7 GB
  1186. XM_110
  1187. X00 40.4
  1188. X+41 41
  1189. X8 G6
  1190. END_OF_FILE
  1191. if test 2988 -ne `wc -c <'samples/mess.obj'`; then
  1192.     echo shar: \"'samples/mess.obj'\" unpacked with wrong size!
  1193. fi
  1194. # end of 'samples/mess.obj'
  1195. fi
  1196. if test -f 'samples/test.star1-5' -a "${1}" != "-c" ; then 
  1197.   echo shar: Will not clobber existing file \"'samples/test.star1-5'\"
  1198. else
  1199. echo shar: Extracting \"'samples/test.star1-5'\" \(3150 characters\)
  1200. sed "s/^X//" >'samples/test.star1-5' <<'END_OF_FILE'
  1201. X000000+0000100SSA1 A
  1202. X000000+0100110SSB1 B
  1203. X000000+0200120SSF1 C
  1204. X000000+0300130SSG1 D
  1205. X000000+0400140SSK1 E
  1206. X000000+0500150SSF1 F
  1207. X000000+0600160SSG1 G
  1208. X000000+0700170SSN1 H
  1209. X000000+0800180SSS1 I
  1210. X000000+0900190SSO2 J
  1211. X001000+0000200SSK2 K
  1212. X001000+0100210SSA2 L
  1213. X001000+0200220SSM2 M
  1214. X001000+0300230SSN2 N
  1215. X001000+0400240SSO2 O
  1216. X001000+0500250SSM2 P
  1217. X001000+0600260SSR2 Q
  1218. X001000+0700270SSR2 R
  1219. X001000+0800280SSS2 S
  1220. X001000+0900290SSO3 T
  1221. X002000+0000300SSB3 U
  1222. X002000+0100310SSA3 V
  1223. X002000+0200320SSF3 W
  1224. X002000+0300330SSG3 X
  1225. X002000+0400340SSK3 Y
  1226. X002000+0500350SSM3 Z
  1227. X002000+0600360SSR3 a
  1228. X002000+0700370SSN3 b
  1229. X002000+0800380SSS3 c
  1230. X002000+0900390SSO4 d
  1231. X003000+0000400SSB4 e
  1232. X003000+0100410SSA4 f
  1233. X003000+0200420SSF4 g
  1234. X003000+0300430SSG4 h
  1235. X003000+0400440SSK4 i
  1236. X003000+0500450SSM4 j
  1237. X003000+0600460SSR4 k
  1238. X003000+0700470SSN4 l
  1239. X003000+0800480SSS4 m
  1240. X003000+0900490SSO5 n
  1241. X004000+0000500SSB5 o
  1242. X004000+0100510SSA5 p
  1243. X004000+0200520SSF5 q
  1244. X004000+0300530SSG5 r
  1245. X004000+0400540SSK5 s
  1246. X004000+0500550SSM5 t
  1247. X004000+0600560SSR5 u
  1248. X004000+0700570SSN5 v
  1249. X004000+0800580SSS5 w
  1250. X004000+0900590SSO6 x
  1251. X000100+0000100SDB6 z
  1252. X000100+0100110SDA6A 
  1253. X000100+0200120SDF6B 
  1254. X000100+0300130SDG6C 
  1255. X000100+0400140SDK6D 
  1256. X000100+0500150SDM6E 
  1257. X000100+0600160SDR6F 
  1258. X000100+0700170SDN6G 
  1259. X000100+0800180SDS6H 
  1260. X000100+0900190SDO I 
  1261. X001100+0000200SDB J 
  1262. X001100+0100210SDA K 
  1263. X001100+0200220SDF L 
  1264. X001100+0300230SDG M 
  1265. X001100+0400240SDK N 
  1266. X001100+0500250SDM O 
  1267. X001100+0600260SDR P 
  1268. X001100+0700270SDN Q 
  1269. X001100+0800280SDS R 
  1270. X001100+0900290SDO S 
  1271. X002100+0000300SDB T 
  1272. X002100+0100310SDA U 
  1273. X002100+0200320SDF V 
  1274. X002100+0300330SDG W 
  1275. X002100+0400340SDK X 
  1276. X002100+0500350SDM Y 
  1277. X002100+0600360SDR Z 
  1278. X002100+0700370SDN a 
  1279. X002100+0800380SDS b 
  1280. X002100+0900390SDO c 
  1281. X003100+0000400SDB d 
  1282. X003100+0100410SDA e 
  1283. X003100+0200420SDF f 
  1284. X003100+0300430SDG g 
  1285. X003100+0400440SDK h 
  1286. X003100+0500450SDM i 
  1287. X003100+0600460SDR j 
  1288. X003100+0700470SDN k 
  1289. X003100+0800480SDS l 
  1290. X003100+0900490SDO m 
  1291. X004100+0000500SDB n 
  1292. X004100+0100510SDA o 
  1293. X004100+0200520SDF p 
  1294. X004100+0300530SDG q 
  1295. X004100+0400540SDK r 
  1296. X004100+0500550SDM s 
  1297. X004100+0600560SDR t 
  1298. X004100+0700570SDN u 
  1299. X004100+0800580SDS v 
  1300. X004100+0900590SDO w 
  1301. X000200+0000100SVB x 
  1302. X000200+0100110SVA y 
  1303. X000200+0200120SVF z 
  1304. X000200+0300130SVG A 
  1305. X000200+0400140SVK AA
  1306. X000200+0500150SVM AA
  1307. X000200+0600160SVR AA
  1308. X000200+0700170SVN AA
  1309. X000200+0800180SVS AA
  1310. X000200+0900190SVO AA
  1311. X001200+0000200SVB AA
  1312. X001200+0100210SVA AA
  1313. X001200+0200220SVF AA
  1314. X001200+0300230SVG AA
  1315. X001200+0400240SVK AA
  1316. X001200+0500250SVM AA
  1317. X001200+0600260SVR AA
  1318. X001200+0700270SVN AA
  1319. X001200+0800280SVS AA
  1320. X001200+0900290SVO AA
  1321. X002200+0000300SVB AA
  1322. X002200+0100310SVA AA
  1323. X002200+0200320SVF AA
  1324. X002200+0300330SVG AA
  1325. X002200+0400340SVK AA
  1326. X002200+0500350SVM AA
  1327. X002200+0600360SVR AA
  1328. X002200+0700370SVN AA
  1329. X002200+0800380SVS AA
  1330. X002200+0900390SVO AA
  1331. X003200+0000400SVB AA
  1332. X003200+0100410SVA AA
  1333. X003200+0200420SVF AA
  1334. X003200+0300430SVG AA
  1335. X003200+0400440SVK AA
  1336. X003200+0500450SVM AA
  1337. X003200+0600460SVR AA
  1338. X003200+0700470SVN AA
  1339. X003200+0800480SVS AA
  1340. X003200+0900490SVO AA
  1341. X004200+0000500SVB AA
  1342. X004200+0100510SVA AA
  1343. X004200+0200520SVF AA
  1344. X004200+0300530SVG AA
  1345. X004200+0400540SVK AA
  1346. X004200+0500550SVM AA
  1347. X004200+0600560SVR AA
  1348. X004200+0700570SVN AA
  1349. X004200+0800580SVS AA
  1350. X004200+0900590SVA AA
  1351. END_OF_FILE
  1352. if test 3150 -ne `wc -c <'samples/test.star1-5'`; then
  1353.     echo shar: \"'samples/test.star1-5'\" unpacked with wrong size!
  1354. fi
  1355. # end of 'samples/test.star1-5'
  1356. fi
  1357. if test -f 'starchart/README.st' -a "${1}" != "-c" ; then 
  1358.   echo shar: Will not clobber existing file \"'starchart/README.st'\"
  1359. else
  1360. echo shar: Extracting \"'starchart/README.st'\" \(3826 characters\)
  1361. sed "s/^X//" >'starchart/README.st' <<'END_OF_FILE'
  1362. XAtari ST support has been provided by Holger Zessel.  He reports that
  1363. Xthere is still a problem causing occasional crashing.  I believe this
  1364. Xis a small problem which we will have fixed soon.
  1365. X
  1366. XYou may wish to apply this small patch to starm2.c:
  1367. X================Cut here================
  1368. X***************
  1369. X*** 215,221
  1370. X        {
  1371. X          char tstr[20];
  1372. X          rastr(tstr, ras);
  1373. X!         D_fontsize(10, HELV);
  1374. X          D_text(xloc3+htext_xoff, yloc-htext_yoff, tstr, FALSE);
  1375. X        }
  1376. X        }
  1377. X
  1378. X--- 215,221 -----
  1379. X        {
  1380. X          char tstr[20];
  1381. X          rastr(tstr, ras);
  1382. X!         D_fontsize(7, HELV);
  1383. X          D_text(xloc3+htext_xoff, yloc-htext_yoff, tstr, FALSE);
  1384. X        }
  1385. X        }
  1386. X***************
  1387. X*** 246,252
  1388. X          {
  1389. X            char tstr[20];
  1390. X            declstr(tstr, dl);
  1391. X!           D_fontsize(10, HELV);
  1392. X            D_text(xloc3+vtext_xoff, yloc3+vtext_yoff, tstr, FALSE);
  1393. X          }
  1394. X      }
  1395. X
  1396. X--- 246,252 -----
  1397. X          {
  1398. X            char tstr[20];
  1399. X            declstr(tstr, dl);
  1400. X!           D_fontsize(7, HELV);
  1401. X            D_text(xloc3+vtext_xoff, yloc3+vtext_yoff, tstr, FALSE);
  1402. X          }
  1403. X      }
  1404. X================Cut here================
  1405. X
  1406. XHolger's comments follow:
  1407. X
  1408. XSome informations to the atari st driver:
  1409. X-----------------------------------------
  1410. XThe atari driver uses gdos, supports monochrome only at this time
  1411. Xand is *very *unstable. This has something to do with the last changes
  1412. Xto starsupp.c and I had not the time to find the bugs yet.
  1413. XI'll supply fixes as soon as I am able to do this. observe and dataconv
  1414. Xare ok in the atari version.
  1415. X
  1416. XThe atari special feature to commandline options is the driver option
  1417. X-a d<num>   .
  1418. XThis tells the driver to open physical workstation <num>.
  1419. X<num> must appear in assign.sys corresponding to an appropriate 
  1420. Xgdos driver. 31 has to be the handle for the metadevice driver.
  1421. Xstarst writes metafiles but an option for the metafile name 
  1422. Xis still missing. For now it is a constant name "gemfile.gem".
  1423. XIf I read the metafile into easydraw the whole chart is upside down.
  1424. XI don't know why this happens but it may depend on the NDC coordinates
  1425. X(see below). An easy workaround is to select all, group all, and to mirror it
  1426. Xhorizontally. After an ungroup everything can be edited as usual. This is
  1427. Xa big feature I think. Most other drivers are not able to offer an afterward
  1428. Xediting of charts.
  1429. X  I use amcgdos and NDC coordinates (virtual [0..32767,0..32767]) for all
  1430. Xdevices. There may be gdos versions which do not support NDC for screen
  1431. Xbut I cannot prove this. I added a little assembler file with a function
  1432. Xtelling whether gdos is loaded or not. This may be interesting for other
  1433. Xapplications too. But it is MWCas dialect.
  1434. XThe hole stuff is compilable with MWC3.06. I didn't try other versions.
  1435. X
  1436. X  I regret that it is so unstable but it was not one version before. I think
  1437. Xthe use of gdos is a very flexible solution as even people with
  1438. Xlaser printer are directly supported if they have a gdosdriver for their
  1439. Xprinter. Some time ago an atari version was posted already but it supported
  1440. Xonly color screens and furthermore screenhardcopies are not what I call
  1441. Xa finder chart. There are still many things to do with respect to the symbols
  1442. Xused to represent objects in sky. Object size is not yet optimal and
  1443. Xfor the font size this the case too. Fonts are a drawback of gdos as
  1444. Xone is not able to be absolutely device independent.
  1445. XThe release of the atari st stuff is thought as expandable in future and if
  1446. Xpeople have interest in making extensions they should feel free to do this.
  1447. XI suggest a second screen with an GEM interface...........
  1448. X
  1449. X--Holger
  1450. X----------------------------------------------------------------
  1451. XHolger Zessel, uucp: ...!uunet!unido!uklirb!incas!zessel
  1452. X    or    zessel@informatik.uni-kl.de
  1453. X    or    zessel%informatik.uni-kl.de@relay.cs.net (from usa)
  1454. XFachbereich Informatik, SFB124-D1
  1455. XUniversitaet Kaiserslautern, West-Germany
  1456. END_OF_FILE
  1457. if test 3826 -ne `wc -c <'starchart/README.st'`; then
  1458.     echo shar: \"'starchart/README.st'\" unpacked with wrong size!
  1459. fi
  1460. # end of 'starchart/README.st'
  1461. fi
  1462. if test -f 'starchart/icon.h' -a "${1}" != "-c" ; then 
  1463.   echo shar: Will not clobber existing file \"'starchart/icon.h'\"
  1464. else
  1465. echo shar: Extracting \"'starchart/icon.h'\" \(3355 characters\)
  1466. sed "s/^X//" >'starchart/icon.h' <<'END_OF_FILE'
  1467. X/* X11 icon */
  1468. X/*
  1469. X * 
  1470. X * $Header: icon.h,v 2.2 90/01/10 02:06:36 ccount Exp $
  1471. X * 
  1472. X*/
  1473. X
  1474. X
  1475. X#define icon_width 63
  1476. X#define icon_height 63
  1477. X#define icon_x_hot 31
  1478. X#define icon_y_hot 31
  1479. Xstatic char icon_bits[] = {
  1480. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  1481. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x1f, 0x00, 0x00, 0x00,
  1482. X   0x00, 0x00, 0xc0, 0xff, 0xff, 0x01, 0x00, 0x00, 0x00, 0x00, 0xf0, 0xff,
  1483. X   0xff, 0x07, 0x00, 0x00, 0x00, 0x00, 0xfc, 0xff, 0xff, 0x1f, 0x00, 0x00,
  1484. X   0x00, 0x00, 0xff, 0xff, 0xff, 0x7f, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xff,
  1485. X   0xff, 0xff, 0x01, 0x00, 0x00, 0xe0, 0xff, 0xbf, 0xff, 0xff, 0x03, 0x00,
  1486. X   0x00, 0xf0, 0xff, 0xff, 0xff, 0xff, 0x07, 0x00, 0x00, 0xf8, 0xbf, 0xff,
  1487. X   0xff, 0xff, 0x0f, 0x00, 0x00, 0xfc, 0xff, 0xff, 0xef, 0xdf, 0x1f, 0x00,
  1488. X   0x00, 0x7e, 0xff, 0xff, 0xff, 0xff, 0x3f, 0x00, 0x00, 0xff, 0xff, 0xff,
  1489. X   0xff, 0xff, 0x7f, 0x00, 0x80, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00,
  1490. X   0x80, 0xff, 0xff, 0xfd, 0xff, 0xff, 0xff, 0x00, 0xc0, 0xff, 0xff, 0xff,
  1491. X   0xff, 0xef, 0xff, 0x01, 0xc0, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x01,
  1492. X   0xe0, 0xff, 0xff, 0xff, 0xbf, 0xff, 0xbf, 0x03, 0xe0, 0xff, 0xff, 0xff,
  1493. X   0xff, 0xff, 0xff, 0x03, 0xf0, 0xf7, 0xff, 0xff, 0xff, 0xff, 0xff, 0x07,
  1494. X   0xf0, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xfb, 0x07, 0xf8, 0x7f, 0xff, 0xff,
  1495. X   0xff, 0xff, 0xff, 0x0f, 0xf8, 0xff, 0x7f, 0xff, 0xff, 0xef, 0xff, 0x0f,
  1496. X   0xf8, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x00, 0x00, 0x00,
  1497. X   0x00, 0x00, 0x00, 0x00, 0xfc, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x1f,
  1498. X   0xfc, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x1f, 0x3c, 0x06, 0x63, 0x38,
  1499. X   0x76, 0x63, 0x18, 0x1c, 0xdc, 0xdd, 0x5d, 0xd7, 0x75, 0x5d, 0x77, 0x1f,
  1500. X   0xdc, 0xdf, 0x5d, 0xd7, 0x77, 0x5d, 0x77, 0x1f, 0x3c, 0xde, 0x5d, 0xd8,
  1501. X   0x07, 0x5d, 0x78, 0x1f, 0xfc, 0xdd, 0x41, 0xd7, 0x77, 0x41, 0x77, 0x1f,
  1502. X   0xdc, 0xdd, 0x5d, 0xd7, 0x75, 0x5d, 0x77, 0x1f, 0x3c, 0xde, 0x5d, 0x37,
  1503. X   0x76, 0x5d, 0x77, 0x1f, 0xfc, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x1f,
  1504. X   0xfc, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x1f, 0x00, 0x00, 0x00, 0x00,
  1505. X   0x00, 0x00, 0x00, 0x00, 0xf8, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f,
  1506. X   0xf8, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x0f, 0xf8, 0xff, 0xff, 0xff,
  1507. X   0xff, 0xfd, 0xff, 0x0e, 0xf0, 0xff, 0xff, 0xef, 0xff, 0xff, 0xff, 0x07,
  1508. X   0xf0, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x07, 0xe0, 0xff, 0xff, 0xff,
  1509. X   0xff, 0xff, 0xff, 0x03, 0xe0, 0xfe, 0xff, 0xff, 0xff, 0xfe, 0xff, 0x03,
  1510. X   0xc0, 0xff, 0xfe, 0xff, 0xfb, 0xff, 0xff, 0x01, 0xc0, 0xff, 0xff, 0xfd,
  1511. X   0xff, 0x7f, 0xff, 0x01, 0x80, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00,
  1512. X   0x80, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00, 0x00, 0xff, 0xff, 0xff,
  1513. X   0xff, 0xff, 0x7f, 0x00, 0x00, 0xfe, 0xff, 0xff, 0xff, 0xff, 0x3f, 0x00,
  1514. X   0x00, 0xfc, 0xdf, 0xff, 0xbf, 0xff, 0x1f, 0x00, 0x00, 0xf8, 0xff, 0xff,
  1515. X   0xff, 0xff, 0x0f, 0x00, 0x00, 0xf0, 0xff, 0xff, 0xff, 0xff, 0x07, 0x00,
  1516. X   0x00, 0xe0, 0xff, 0xef, 0xff, 0xff, 0x03, 0x00, 0x00, 0xc0, 0xbf, 0xff,
  1517. X   0x7f, 0xff, 0x01, 0x00, 0x00, 0x00, 0xff, 0xff, 0xff, 0x7f, 0x00, 0x00,
  1518. X   0x00, 0x00, 0xfc, 0xff, 0xff, 0x1f, 0x00, 0x00, 0x00, 0x00, 0xf0, 0xff,
  1519. X   0xff, 0x07, 0x00, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xff, 0x01, 0x00, 0x00,
  1520. X   0x00, 0x00, 0x00, 0xfc, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
  1521. X   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
  1522. END_OF_FILE
  1523. if test 3355 -ne `wc -c <'starchart/icon.h'`; then
  1524.     echo shar: \"'starchart/icon.h'\" unpacked with wrong size!
  1525. fi
  1526. # end of 'starchart/icon.h'
  1527. fi
  1528. if test -f 'starchart/makefile.st' -a "${1}" != "-c" ; then 
  1529.   echo shar: Will not clobber existing file \"'starchart/makefile.st'\"
  1530. else
  1531. echo shar: Extracting \"'starchart/makefile.st'\" \(4266 characters\)
  1532. sed "s/^X//" >'starchart/makefile.st' <<'END_OF_FILE'
  1533. X#    Makefile for atari ST
  1534. X#
  1535. X#    $Header: makefile.st,v 1.1 90/03/08 20:14:24 ccount Exp $
  1536. X#
  1537. XTARGS= starst
  1538. X
  1539. X#SITE DEPENDENCIES
  1540. X#
  1541. XLOCAL=-DSYSV -DATARI_ST -Ic:\include\local -DREADMODE=\"rb\"
  1542. X
  1543. X
  1544. X# FOR ALL
  1545. X# define OLD_GREEK if you have the old yale.star file, with a
  1546. X#                slightly different greek encoding
  1547. X# To produce programs which allow keyboard user interaction with the -u flag, 
  1548. X#    see COBJ and starmain.o below.
  1549. X# FOR POSTSCRIPT
  1550. X# define USE_FINE_MACROS if you want to use finer macros than usual:
  1551. X#     star size varies continuously with magnitude.
  1552. X#        Needs printer with lots of available memory
  1553. X#
  1554. X#DEFINES= -DRELEASE3_FONTS -DUSE_X_DASHES -DUSE_FINE_MACROS
  1555. XDEFINES= -DRELEASE3_FONTS -DUSE_X_DASHES
  1556. X
  1557. X#destination for 'make install', otherwise not important
  1558. XBINDIR = "g:\starch32"
  1559. X
  1560. X#The following may be defined here to set default data file locations
  1561. X# filename    filetype    description
  1562. X# STARFILE    STARFTYPE    bright star data (yale)
  1563. X# INDEXFILE    INDEXFTYPE    index to fainter stars (SAO)
  1564. X# NEBFILE    NEBFTYPE    nebulae
  1565. X# BOUNDFILE    BOUNDFTYPE    constellation boundaries
  1566. X# PATTERNFILE    PATTFTYPE    constellation patterns
  1567. X# CNAMEFILE    CNAMEFTYPE    constellation names
  1568. X# PLANETFILE    PLANETFTYPE    planet positions
  1569. X
  1570. X# other files
  1571. X# CONSTFILE    constellation locations
  1572. X# RCFILE    resource file
  1573. X
  1574. X# Define as needed only
  1575. X# Remember, there are defaults in the code
  1576. X
  1577. X# Example
  1578. XFILEROOT=g:\\stardata
  1579. XSTAR="$(FILEROOT)\\yale.bin"
  1580. XSTART=BINFULL
  1581. XINDEX="$(FILEROOT)\\index.ind"
  1582. XINDEXT=INDEXTYPE
  1583. X# only currently valid index file type
  1584. XNEB="$(FILEROOT)\\deepsky.bin"
  1585. XNEBT=BINFULL
  1586. XBOUND="$(FILEROOT)\\boundaries.str"
  1587. XBOUNDT=LINEREAD
  1588. XPATT="$(FILEROOT)\\pattern.str"
  1589. XPATTTY=LINEREAD
  1590. XCNAME="$(FILEROOT)\\cnames.str"
  1591. XCNAMET=LINEREAD
  1592. XPLANET=".\\planet.str"
  1593. X# Planets move, so make it local
  1594. XPLANETTY=LINEREAD
  1595. XCONS="$(FILEROOT)\\con.loc"
  1596. XRC=".\\star.rc"
  1597. X
  1598. XFILEFLAGS= \
  1599. X        -DSTARFILE='$(STAR)' \
  1600. X        -DSTARFTYPE='$(START)' \
  1601. X        -DINDEXFILE='$(INDEX)' \
  1602. X        -DINDEXFTYPE='$(INDEXT)' \
  1603. X        -DNEBFILE='$(NEB)' \
  1604. X        -DNEBFTYPE='$(NEBT)' \
  1605. X        -DBOUNDFILE='$(BOUND)' \
  1606. X        -DBOUNDFTYPE='$(BOUNDT)' \
  1607. X        -DPATTERNFILE='$(PATT)' \
  1608. X        -DPATTFTYPE='$(PATTTY)' \
  1609. X        -DCNAMEFILE='$(CNAME)' \
  1610. X        -DCNAMEFTYPE='$(CNAMET)' \
  1611. X        -DPLANETFILE='$(PLANET)' \
  1612. X        -DPLANETFTYPE='$(PLANETTY)' \
  1613. X        -DCONSTFILE='$(CONS)' \
  1614. X        -DRCFILE='$(RC)'
  1615. X
  1616. X
  1617. Xall: $(TARGS)
  1618. X
  1619. X#CFLAGS= $(FILEFLAGS) $(LOCAL) $(DEFINES) -f68881
  1620. X#LDFLAGS = 
  1621. XCFLAGS= $(FILEFLAGS) $(LOCAL) $(DEFINES) -VCSD -f
  1622. XLDFLAGS = -VCSD -f
  1623. X
  1624. X
  1625. X#Include interact.o in COBJ to support keyboard user interaction
  1626. X#COBJ=starmain.o starm2.o starsupp.o readfile.o parse_input.o
  1627. XCOBJ=starmain.o starm2.o starsupp.o readfile.o parse_input.o interact.o 
  1628. XCOBJIM=$(COBJ) starimages.o
  1629. XCOBJIMA=$(COBJ) starimages_a.o
  1630. X
  1631. Xstarst: $(COBJ) starst.o starcust.o vqgdos.o
  1632. X    $(CC) $(LDFLAGS) $(COBJ) starst.o starcust.o vqgdos.o -lm -laes -lvdi\
  1633. X                                                     -o $@
  1634. X# use -DINTERACTIVE_CONTROL in starmain.o and starm2.o
  1635. X#     to allow keyboard user interaction
  1636. Xstarmain.o: starmain.c Makefile star3.h parse_input.h
  1637. X    $(CC) $(CFLAGS) -DINTERACTIVE_CONTROL -c starmain.c
  1638. X
  1639. Xstarm2.o: starm2.c Makefile star3.h
  1640. X    $(CC) $(CFLAGS) -DINTERACTIVE_CONTROL -c starm2.c
  1641. X
  1642. Xstarmain_i.o: starmain.c Makefile star3.h parse_input.h
  1643. X    -mv starmain.o starmain_n.o
  1644. X    $(CC) $(CFLAGS) -DINTERACTIVE_CONTROL -c starmain.c
  1645. X    mv starmain.o starmain_i.o
  1646. X    -mv starmain_n.o starmain.o
  1647. X
  1648. Xstarm2_i.o: starm2.c Makefile star3.h
  1649. X    -mv starm2.o starm2_n.o
  1650. X    $(CC) $(CFLAGS) -DINTERACTIVE_CONTROL -c starm2.c
  1651. X    mv starm2.o starm2_i.o
  1652. X    -mv starm2_n.o starm2.o
  1653. X
  1654. Xreadfile.o: readfile.c star3.h
  1655. X
  1656. Xstarimages.o: starimages.c star3.h
  1657. X    $(CC) $(CFLAGS) -c starimages.c
  1658. X
  1659. X#starimages_a.o defines area operations for drivers which otherwise don't
  1660. X#  support them
  1661. Xstarimages_a.o: Makefile starimages.c star3.h
  1662. X    -mv starimages.o starimages_n.o
  1663. X    $(CC) $(CFLAGS) -DAREAS -c starimages.c
  1664. X    mv starimages.o starimages_a.o
  1665. X    -mv starimages_n.o starimages.o
  1666. X
  1667. Xinteract.o: star3.h parse_input.h patchlevel.h
  1668. Xparse_input.o: star3.h parse_input.h
  1669. Xstarcust.o: star3.h 
  1670. Xstarsample.o: star3.h 
  1671. Xstarsupp.o: star3.h 
  1672. Xstarst.o: star3.h
  1673. X
  1674. X
  1675. Xinstall: all
  1676. X    strip $(TARGS)
  1677. X    mv $(TARGS) $(BINDIR)
  1678. X
  1679. Xdist:
  1680. X    cp $(FILES) $(DISTDIR)
  1681. X
  1682. Xclean:
  1683. X    rm -f $(OBJS) $(TARGS) a.out core
  1684. END_OF_FILE
  1685. if test 4266 -ne `wc -c <'starchart/makefile.st'`; then
  1686.     echo shar: \"'starchart/makefile.st'\" unpacked with wrong size!
  1687. fi
  1688. # end of 'starchart/makefile.st'
  1689. fi
  1690. if test -f 'starchart/starXawDlog.h' -a "${1}" != "-c" ; then 
  1691.   echo shar: Will not clobber existing file \"'starchart/starXawDlog.h'\"
  1692. else
  1693. echo shar: Extracting \"'starchart/starXawDlog.h'\" \(3578 characters\)
  1694. sed "s/^X//" >'starchart/starXawDlog.h' <<'END_OF_FILE'
  1695. X/* Header for Athena widgets dialogs */
  1696. X/*
  1697. X *
  1698. X * $Header: starXawDlog.h,v 1.5 90/02/19 17:58:10 ccount Exp $
  1699. X * 
  1700. X *
  1701. X * Copyright (c) 1990 by Craig Counterman. All rights reserved.
  1702. X *
  1703. X * This software may be redistributed freely, not sold.
  1704. X * This copyright notice and disclaimer of warranty must remain
  1705. X *    unchanged. 
  1706. X *
  1707. X * No representation is made about the suitability of this
  1708. X * software for any purpose.  It is provided "as is" without express or
  1709. X * implied warranty, to the extent permitted by applicable law.
  1710. X *
  1711. X */
  1712. X
  1713. X
  1714. X#ifndef MAXPATHLEN
  1715. X#define MAXPATHLEN 1025
  1716. X#endif
  1717. X
  1718. X
  1719. Xtypedef enum {
  1720. X  NoDialog,
  1721. X  ChartDialog,
  1722. X  TypeDialog,
  1723. X  MagnitudesDialog,
  1724. X  LayersDialog,
  1725. X  Map_filesDialog,
  1726. X  Projection_modeDialog,
  1727. X  Magnitude_labelsDialog,
  1728. X  GridDialog,
  1729. X  Edit_mapwinsDialog,
  1730. X  X_parmsDialog
  1731. X} DlogType;
  1732. X
  1733. X
  1734. X#define ChartStringLen 12
  1735. Xtypedef struct {
  1736. X  double ra, de, sc;
  1737. X  char ra_str[ChartStringLen], de_str[ChartStringLen], sc_str[ChartStringLen];
  1738. X  Widget ra_wid, de_wid, sc_wid;
  1739. X  char *title;
  1740. X  Widget title_wid;
  1741. X  char *constfile;
  1742. X  int all_invert;
  1743. X  int precess;
  1744. X  double to_precess;
  1745. X  char to_p_str[ChartStringLen];
  1746. X  Widget to_p_wid;
  1747. X} ChartD_S;
  1748. X
  1749. Xtypedef struct {
  1750. X  int chart_type;
  1751. X} TypeD_S;
  1752. X
  1753. X#define MagStringLen 12
  1754. Xtypedef struct {
  1755. X  double all_lbllim, all_maglim, all_gklim;
  1756. X  char all_lbllim_str[MagStringLen], all_maglim_str[MagStringLen],
  1757. X                  all_gklim_str[MagStringLen];
  1758. X  Widget all_lbllim_wid, all_maglim_wid, all_gklim_wid;
  1759. X} MagnitudesD_S;
  1760. X
  1761. Xtypedef struct {
  1762. X  int all_layer[MAXLAYRS];
  1763. X  int numlayers;
  1764. X
  1765. X  Widget wid[MAXLAYRS];
  1766. X  int laynum[MAXLAYRS];
  1767. X} LayersD_S;
  1768. X
  1769. Xtypedef struct {
  1770. X  char mapfiles[MAXMAPFILES][MAXPATHLEN];
  1771. X  int mapftypes[MAXMAPFILES];
  1772. X  int nummapfiles;
  1773. X
  1774. X  Widget file_wid[MAXMAPFILES];
  1775. X  Widget ftype_wid[MAXMAPFILES];
  1776. X  int mapnum[MAXMAPFILES];
  1777. X} Map_filesD_S;
  1778. X
  1779. Xtypedef struct {
  1780. X  int all_proj_mode;
  1781. X} Projection_modeD_S;
  1782. X
  1783. Xtypedef struct {
  1784. X  double all_vmin, all_vmax;
  1785. X  char all_vmin_str[MagStringLen], all_vmax_str[MagStringLen];
  1786. X  Widget all_vmin_wid, all_vmax_wid;
  1787. X  int use_vmin;
  1788. X  int nomaglbls;
  1789. X} Magnitude_labelsD_S;
  1790. X
  1791. X#define GridStringLen 12
  1792. Xtypedef struct {
  1793. X  double all_rstep, all_dstep;
  1794. X  char all_rstep_str[GridStringLen], all_dstep_str[GridStringLen];
  1795. X  Widget all_rstep_wid, all_dstep_wid;
  1796. X  int use_rstep;
  1797. X  double all_rstrt, all_dstrt;
  1798. X  char all_rstrt_str[GridStringLen], all_dstrt_str[GridStringLen];
  1799. X  Widget all_rstrt_wid, all_dstrt_wid;
  1800. X  int no_ra_grid;
  1801. X  int no_dec_grid;
  1802. X} GridD_S;
  1803. X
  1804. Xtypedef struct {
  1805. X  char *nothing;
  1806. X} Edit_mapwinsD_S;
  1807. X
  1808. X#define XParmStringLen 10
  1809. Xtypedef struct {
  1810. X  int post_preview;
  1811. X  int post_landscape;
  1812. X  int use_backup;
  1813. X  int is_color;
  1814. X  int fixed_size;
  1815. X  int fixed_width, fixed_height;
  1816. X  char fixed_width_str[XParmStringLen], fixed_height_str[XParmStringLen];
  1817. X  Widget fixed_width_wid, fixed_height_wid;
  1818. X} X_parmsD_S;
  1819. X
  1820. X
  1821. Xchar *proj_mode_strings[] = {
  1822. X  "Error        ",
  1823. X  "Sansons      ",
  1824. X  "Stereographic",
  1825. X  "Gnomonic     ",
  1826. X  "Orthographic ",
  1827. X  "Rectangular  ",
  1828. X};
  1829. X#define MAXPMODE 5
  1830. X
  1831. Xchar *lay_strings[] = {
  1832. X  "None                ",
  1833. X  "Outline             ",
  1834. X  "R.A. Grid           ",
  1835. X  "Dec. Grid           ",
  1836. X  "Ecliptic            ",
  1837. X  "Boundaries          ",
  1838. X  "Patterns            ",
  1839. X  "Constellation Names ",
  1840. X  "All Files           ",
  1841. X  "All Object Symbols  ",
  1842. X  "All Object Names    ",
  1843. X  "All Star Mag. labels",
  1844. X  "All Vectors         ",
  1845. X  "All Areas           ",
  1846. X  "Legends             "
  1847. X};
  1848. X#define MAXLAYNUM 14
  1849. X
  1850. Xchar *filetype_strings[] = {
  1851. X  "",
  1852. X  "LineRead ",
  1853. X  "IndexType",
  1854. X  "BinFull  ",
  1855. X  "BinObj   ",
  1856. X  "BinStar  ",
  1857. X  "SAOFormat"
  1858. X  };
  1859. X#define MAXFTYPES 6
  1860. X
  1861. END_OF_FILE
  1862. if test 3578 -ne `wc -c <'starchart/starXawDlog.h'`; then
  1863.     echo shar: \"'starchart/starXawDlog.h'\" unpacked with wrong size!
  1864. fi
  1865. # end of 'starchart/starXawDlog.h'
  1866. fi
  1867. echo shar: End of archive 3 \(of 32\).
  1868. cp /dev/null ark3isdone
  1869. MISSING=""
  1870. 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
  1871.     if test ! -f ark${I}isdone ; then
  1872.     MISSING="${MISSING} ${I}"
  1873.     fi
  1874. done
  1875. if test "${MISSING}" = "" ; then
  1876.     echo You have unpacked all 32 archives.
  1877.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1878. else
  1879.     echo You still need to unpack the following archives:
  1880.     echo "        " ${MISSING}
  1881. fi
  1882. ##  End of shell archive.
  1883. exit 0
  1884.  
  1885.  
  1886.