home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume13 / starchart / patch1 next >
Encoding:
Internet Message Format  |  1988-01-30  |  23.7 KB
  1. Subject:  v13i024:  Starchart package, Patch1
  2. Newsgroups: comp.sources.unix
  3. Sender: sources
  4. Approved: rsalz@uunet.UU.NET
  5.  
  6. Submitted-by: "Alan W. Paeth" <awpaeth@watcgl.waterloo.edu>
  7. Posting-number: Volume 13, Issue 24
  8. Archive-name: starchart/patch1
  9.  
  10. [  The starchart software was posted in Volume 12.  **MAKE SURE TO UNPACK
  11.    THIS IN A SEPARATE DIRECTORY or you will wipe out existing files!**  --r$ ]
  12.  
  13. ! This is a parallel posting along with a submission to comp.sources.bugs.
  14. ! Whereas the latter is for quick dissemination of a rapidly evolving program,
  15. ! this copy to comp.sources.unix is intended to provide both archival storage
  16. ! of the software, plus wider distribution when it is eventually posted.
  17.  
  18. This posting is a complete upgrade/bug fix for my recent posting of
  19. StarChart. It fixes all reported bugs, both public and private.
  20. In addition, starchart.c has been significantly upgraded, and ver #2.1 is
  21. sent in complete form (not as a patch list). A nasty bug in planet.c has
  22. been squashed. Compile and run-time portability to sysV UNIX is added.
  23.  
  24. Bonus: new drivers have been written by the net: IRIS and Unix Plot(5) format.
  25.  
  26. # This is a shell archive.  Remove anything before this line,
  27. # then unpack it by saving it in a file and typing "sh file".
  28. #
  29. # Contents:  README Makefile patch-moonphase.c patch-planet.c patch-stardsp.c
  30. #    patch-starhp.c patch-starimages.c patch-starlaser.c patch-starpic.c
  31. #    patch-starpost.c patch-startek.c patch-yaleformat patchall
  32.  
  33. echo x - README
  34. sed 's/^@//' > "README" <<'@//E*O*F README//'
  35. This is the SOFTWARE update kit for StarChart version #2
  36. which was released in Nov/Dec 1987. The kit performs an upgrade to ver #2.1
  37. No upgrades to yale.star or other .star files occurs.
  38.  
  39. This kit updates StarChart version #2 software as it appeared in that release -
  40. no other patches should already be in place. Virgin copies of version #2 are
  41. available from the moderator of comp.sources.unix.
  42.  
  43.  
  44. Overview of Changes
  45.  
  46. More portability across sysV and IRIS UNIX installations.
  47. A particularly nasty bug in planet.c was removed.
  48. Two new device drivers were added (Unix Plot(5) and Iris).
  49. StarChart now performs full clipping of vectors.
  50. Additional flags for creating stylized output and larger displays.
  51. PostScript now has nicer symbols for non-stellar objects.
  52. More detailed patch and upgrade notes appear in the source code.
  53.  
  54. FILES
  55.  
  56. Name            Description/Instructions
  57. ----            ------------------------
  58. README            this file
  59. patch-*            patches for moonphase.c, planet.c, drivers, yaleformat
  60. patchall        runs the above patches on the originals
  61. starchart.1        new man page
  62. starchart.c        rewritten main driver (easier to reinstall then patch)
  63. starchart.h        accompanying new .h file for above (ditto)
  64. stariris.c        new IRIS driver        
  65. staruplot.c        new UNIX Plot(5) driver
  66. @//E*O*F README//
  67. chmod u=rw,g=r,o=r README
  68.  
  69. echo x - Makefile
  70. sed 's/^@//' > "Makefile" <<'@//E*O*F Makefile//'
  71. #
  72. # Author: Petri Launiainen, Intrinsic Oy, Tampere, FINLAND (pl@intrin.FI)
  73. #
  74. # Based on the work of Alan W. Paeth
  75. #
  76.  
  77. SHELL = /bin/sh
  78.  
  79. #SITE DEPENDENCIES
  80. #
  81. # Uncomment out the version appropriate for your site.
  82. # At present dependencies for sysV UNIX and Silicon Graphics IRIS exist
  83. #
  84. #LOCAL=-DSYSV -Dindex=strchr
  85. #LOCAL= -Zf
  86. #
  87. # put the Yale Star Catalog file path here: because the yale.star is
  88. # static (stars don't change so often :->), consider using some static
  89. # library path here - relative one is used for quick testing
  90.  
  91. #STAR = "/usr/lib/starchart/yale.star"
  92. STAR = "./yale.star"
  93.  
  94. # similarly assign the Messier file path:
  95.  
  96. #MESS = "/usr/lib/starchart/messier.star"
  97. MESS = "./messier.star"
  98.  
  99. # and the constellation finder file:
  100.  
  101. #CONS = "/usr/lib/starchart/con.locs"
  102. CONS = "./con.locs"
  103.  
  104. # put the planet position file path here: it should be preferably
  105. # relative, thus allowing everyone to change planet positions according
  106. # to their interests.  This file changes when the 'planet' program is
  107. # executed
  108.  
  109. PLANET = "./planet.star"
  110.  
  111. # notice that starchart.o and planet are made dependent on Makefile, due
  112. # to the STARFILE, MESSFILE, CONSTFILE and PLANETFILE definitions here
  113.  
  114. # put the installation directory here
  115.  
  116. BINDIR = "/usr/local/bin"
  117.  
  118. CFLAGS = -g -DSTARFILE='$(STAR)' -DPLANETFILE='$(PLANET)' -DCONSTFILE='$(CONS)' -DMESSFILE='$(MESS)'\
  119.     $(LOCAL)
  120. LFLAGS = -g
  121.  
  122. # star chart calculation routine file
  123.  
  124. COBJ = starchart.o
  125.  
  126. # default binary names: if you change these, change also the corresponding
  127. # make tags
  128.  
  129. BINS = epoch moonphase planet startek stardsp starpic staruplot starhp starlaser starpost
  130.  
  131. test:
  132.     stardsp -c ori
  133.  
  134. all:    \
  135.     planet\
  136.     starhp\
  137.     staruplot\
  138.     stardsp\
  139.     startek\
  140.     starpic\
  141.     starpost\
  142.     starlaser\
  143.     epoch\
  144.     moonphase
  145.  
  146. install: all
  147.     strip $(BINS)
  148.     mv $(BINS) $(BINDIR)
  149.  
  150. starchart.o: starchart.c Makefile starchart.h
  151.  
  152. moonphase: moonphase.o
  153.     cc $(LFLAGS) moonphase.o -lm -o $@
  154.  
  155. epoch: epoch.o
  156.     cc $(LFLAGS) epoch.o -lm -o $@
  157.  
  158. planet:    planet.o Makefile
  159.     cc $(LFLAGS) $(DEFINES) planet.o -lm -o $@
  160.  
  161. stardsp: $(COBJ) stardsp.o
  162.     cc $(LFLAGS) $(COBJ) stardsp.o -lm -o $@
  163.  
  164. starpic: $(COBJ) starpic.o
  165.     cc $(LFLAGS) $(COBJ) starpic.o -lm -o $@
  166.  
  167. staruplot: $(COBJ) staruplot.o starimages.o
  168.     cc $(LFLAGS) $(COBJ) staruplot.o starimages.o -lplot -lm -o $@
  169.  
  170. startek: $(COBJ) startek.o starimages.o
  171.     cc $(LFLAGS) $(COBJ) startek.o starimages.o -lm -o $@
  172.  
  173. starhp: $(COBJ) starhp.o starimages.o
  174.     cc $(LFLAGS) $(COBJ) starhp.o starimages.o -lm -o $@
  175.  
  176. starlaser: $(COBJ) starlaser.o starimages.o
  177.     cc $(LFLAGS) $(COBJ) starlaser.o starimages.o -lm -o $@
  178.  
  179. stariris: $(COBJ) stariris.o starimages.o
  180.     cc $(LFLAGS) $(COBJ) stariris.o starimages.o -Zf -Zg -lm -o $@
  181.  
  182. starpost: $(COBJ) starpost.o
  183.     cc $(LFLAGS) $(COBJ) starpost.o -lm -o $@
  184.  
  185. clean:
  186.     rm -f *.o mlog core
  187. @//E*O*F Makefile//
  188. chmod u=r,g=r,o=r Makefile
  189.  
  190. echo x - patch-moonphase.c
  191. sed 's/^@//' > "patch-moonphase.c" <<'@//E*O*F patch-moonphase.c//'
  192. 6c6
  193. <         by Duffett-Smith.
  194. ---
  195. >     by Duffett-Smith.
  196. 8c8
  197. <         of code was adapted from.
  198. ---
  199. >     of code was adapted from.
  200. 12c12,13
  201. <  ****************************************************************************/
  202. ---
  203. > ! modified by awpaeth@watcgl, December 1987 for sysV compatability
  204. > ****************************************************************************/
  205. 14a16
  206. > #ifndef SYSV
  207. 15a18,20
  208. > #else
  209. > #include <time.h>
  210. > #endif
  211. @//E*O*F patch-moonphase.c//
  212. chmod u=rw,g=r,o=r patch-moonphase.c
  213.  
  214. echo x - patch-planet.c
  215. sed 's/^@//' > "patch-planet.c" <<'@//E*O*F patch-planet.c//'
  216. 2c2
  217. <  *           A program to determine the position of
  218. ---
  219. >  *         A program to determine the position of
  220. 32a33,41
  221. >  ! Patched December, 1987 by Alan Paeth (awpaeth@watcgl),
  222. >  ! based on revisions by Kurt Horton (ihnp4!erc780!horton)
  223. >  ! and Stephen Kennedy <ihnp4!cbosgd!smk>
  224. >  ! et al.
  225. >  !
  226. >  ! [1] Mars and Saturn now plot as "m" and "s", not "M" and "S" (Mercury, Sol)
  227. >  ! [2] New guesses at magnitudes are now given, could someone compute them?
  228. >  ! [3] fixed a nasty bug which gave wrong sign for decl between -1 deg and 0.
  229. >  !
  230. 39c48,52
  231. < #include <sys/time.h>    /* for getting current GMT */
  232. ---
  233. > #ifndef SYSV
  234. > #include <sys/time.h>    /* for getting current GMT (generic Unix) */
  235. > #else
  236. > #include <time.h>    /* for getting current GMT (sysV version) */
  237. > #endif
  238. 49,51c62,64
  239. < #define MAGSOL 0
  240. < #define MAGMER 150
  241. < #define MAGVEN 0
  242. ---
  243. > #define MAGSOL -99
  244. > #define MAGMER -10
  245. > #define MAGVEN -20
  246. 102a116
  247. > #ifndef SYSV
  248. 106a121,124
  249. > #else
  250. >     long time();
  251. >     return(GMT1970 + (double)time((long *)0)/SECSPERDAY);
  252. > #endif
  253. 111a130
  254. > #ifndef SYSV
  255. 113a133
  256. > #endif
  257. 135a156
  258. > 
  259. 139,144c160,169
  260. <     gettimeofday(&tv, &tz);
  261. <     time = 0.0;                /* local time (0.0-23.999) */
  262. <     yy = CURYEAR;            /* local year */
  263. <     mm = 0;                /* local month */
  264. <     dd = 0;                /* local day of month */
  265. <     timez = tz.tz_minuteswest/60.0;    /* local time hrs west of Greenwich */
  266. ---
  267. > #ifndef SYSV
  268. >     gettimeofday(&tv, &tz);
  269. >     timez = tz.tz_minuteswest/60.0;    /* local time hrs west of Greenwich */
  270. > #else
  271. >     timez = timezone/3600+(daylight?1:0);
  272. > #endif
  273. >     time = 0.0;            /* local time (0.0-23.999) */
  274. >     yy = CURYEAR;            /* local year */
  275. >     mm = 0;                /* local month */
  276. >     dd = 0;                /* local day of month */
  277. 151c176
  278. <         die("unknown argument - %s", usage /*argv[j]*/ );
  279. ---
  280. >         die("unknown argument - %s\n%s", argv[j], usage);
  281. 159c184
  282. <         default:  die("unknown switch - %s", usage /* argv[j] */ );
  283. ---
  284. >         default:  die("unknown switch - %s\n%s", argv[j], usage );
  285. 428c453
  286. <     trans(r,b,ll,Stheta,Sr,epli, MAGMAR, "PM", "Mars");
  287. ---
  288. >     trans(r,b,ll,Stheta,Sr,epli, MAGMAR, "Pm", "Mars");
  289. 772c797
  290. < trans(r,b,ll,Stheta,Sr,epli, MAGSAT, "PS", "Saturn");
  291. ---
  292. > trans(r,b,ll,Stheta,Sr,epli, MAGSAT, "Ps", "Saturn");
  293. 1081a1107
  294. >     char decsign;
  295. 1092a1119,1124
  296. >     decsign = '+';
  297. >     if (dec<0)
  298. >         {
  299. >         dec = -dec;
  300. >         decsign = '-';
  301. >         }
  302. 1094c1126
  303. <     m   =(int)((dec - deg)*60);
  304. ---
  305. >     m   = (int)((dec - deg)*60);
  306. 1096,1104c1128
  307. <     if ( m < 0)
  308. <     {
  309. <         m = m * -1;
  310. <     }
  311. <     if (s < 0)
  312. <     {
  313. <         s = s * -1;
  314. <     }
  315. <     printf("   %+3ddeg %2dm %2ds ",deg,m,s);
  316. ---
  317. >     printf("   %c%2ddeg %2dm %2ds ",decsign,deg,m,s);
  318. 1106c1130
  319. <     fprintf(logfile, "%+03d%02d+%03d%s%s\n", deg, m, mag, sym, str);
  320. ---
  321. >     fprintf(logfile, "%c%02d%02d+%03d%s%s\n", decsign,deg,m,mag,sym,str);
  322. 1185,1186c1209,1210
  323. < die(a,b)
  324. <     char *a, *b;
  325. ---
  326. > die(a,b,c)
  327. >     char *a, *b, *c;
  328. 1189c1213
  329. <     fprintf(stderr,a,b);
  330. ---
  331. >     fprintf(stderr,a,b,c);
  332. @//E*O*F patch-planet.c//
  333. chmod u=rw,g=r,o=r patch-planet.c
  334.  
  335. echo x - patch-stardsp.c
  336. sed 's/^@//' > "patch-stardsp.c" <<'@//E*O*F patch-stardsp.c//'
  337. 4a5,12
  338. > /*
  339. >  ! patched December, 1987 by Alan Paeth (awpaeth@watcgl),
  340. >  !
  341. >  ! [1] formal/actual parmaters for drawNebu, drawPlan.. now agree
  342. >  ! [2] "bigmaster" chart layout now added
  343. >  !
  344. >  */
  345. > 
  346. 18c26
  347. <             3.0, 1.0, 420, 35, 480, 195, 0.0 };
  348. ---
  349. >             3.0, 1.0, 2.05, 420, 35, 480, 195, 0.0 };
  350. 21c29
  351. <             5.9, 2.0, 20, 265, 880, 500, 0.0 };
  352. ---
  353. >             5.9, 2.0, 2.05, 20, 265, 880, 500, 0.0 };
  354. 22a31,33
  355. > mapblock bigmaster =    { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
  356. >             5.9, 2.0, 2.05, 20, 65, 880, 700, 0.0 };
  357. > 
  358. 110c121,122
  359. < drawPlan(x, y)
  360. ---
  361. > drawPlan(x, y, mag, type, color)
  362. >     char type, *color;
  363. 160c172,173
  364. < drawGalx(x, y)
  365. ---
  366. > drawGalx(x, y, mag, type, color)
  367. >     char type, *color;
  368. 165c178,179
  369. < drawNebu(x, y)
  370. ---
  371. > drawNebu(x, y, mag, type, color)
  372. >     char type, *color;
  373. 170c184,185
  374. < drawClus(x, y)
  375. ---
  376. > drawClus(x, y, mag, type, color)
  377. >     char type, *color;
  378. @//E*O*F patch-stardsp.c//
  379. chmod u=rw,g=r,o=r patch-stardsp.c
  380.  
  381. echo x - patch-starhp.c
  382. sed 's/^@//' > "patch-starhp.c" <<'@//E*O*F patch-starhp.c//'
  383. 24a25,31
  384. >  ! patched December, 1987 by Alan Paeth (awpaeth@watcgl),
  385. >  !
  386. >  ! [1] "bigmaster" chart layout now added
  387. >  !
  388. >  */
  389. > 
  390. > /*
  391. 29c36
  392. <             3.2, 1.0, 420, 35, 480, 195, 0.0 };
  393. ---
  394. >             3.2, 1.0, 2.05, 420, 35, 480, 195, 0.0 };
  395. 32c39
  396. <             8.0, 3.0, 20, 265, 880, 500, 0.0 };
  397. ---
  398. >             8.0, 3.0, 2.05, 20, 265, 880, 500, 0.0 };
  399. 33a41,43
  400. > mapblock bigmaster =    { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
  401. >             8.0, 3.0, 2.05, 20,  65, 880, 700, 0.0 };
  402. > 
  403. 81c91
  404. <     
  405. ---
  406. > 
  407. @//E*O*F patch-starhp.c//
  408. chmod u=rw,g=r,o=r patch-starhp.c
  409.  
  410. echo x - patch-starimages.c
  411. sed 's/^@//' > "patch-starimages.c" <<'@//E*O*F patch-starimages.c//'
  412. 32c32
  413. < ** 
  414. ---
  415. > **
  416. 46c46
  417. <      ** this is a two state machine - first it just gathers ptr strings
  418. ---
  419. >     ** this is a two state machine - first it just gathers ptr strings
  420. 65c65
  421. <     retarea = (int *) calloc 
  422. ---
  423. >     retarea = (int *) calloc
  424. 110c110,111
  425. < drawPlan(x, y)
  426. ---
  427. > drawPlan(x, y, max, type, color)
  428. > char type, *color;
  429. 133c134
  430. < drawStar (x, y, mag, type, color)
  431. ---
  432. > drawStar(x, y, mag, type, color)
  433. 140,145c141,146
  434. <     case  0: draw0 (x, y); break;
  435. <     case  1: draw1 (x, y); break;
  436. <     case  2: draw2 (x, y); break;
  437. <     case  3: draw3 (x, y); break;
  438. <     case  4: draw4 (x, y); break;
  439. <     default: draw5 (x, y); break;
  440. ---
  441. >     case  0: drawS0 (x, y); break;
  442. >     case  1: drawS1 (x, y); break;
  443. >     case  2: drawS2 (x, y); break;
  444. >     case  3: drawS3 (x, y); break;
  445. >     case  4: drawS4 (x, y); break;
  446. >     default: drawS5 (x, y); break;
  447. 149c150
  448. < draw0(x, y)
  449. ---
  450. > drawS0(x, y)
  451. 157c158
  452. <        (void) cstar (" ***** ");
  453. ---
  454. >     (void) cstar (" ***** ");
  455. 165c166
  456. <         }
  457. ---
  458. >     }
  459. 168c169
  460. <         {
  461. ---
  462. >     {
  463. 174c175
  464. < draw1(x, y)
  465. ---
  466. > drawS1(x, y)
  467. 182c183
  468. <            (void) cstar (" *** ");
  469. ---
  470. >         (void) cstar (" *** ");
  471. 197c198
  472. < draw2(x, y)
  473. ---
  474. > drawS2(x, y)
  475. 205c206
  476. <            (void) cstar ("  *  ");
  477. ---
  478. >         (void) cstar ("  *  ");
  479. 220c221
  480. < draw3(x, y)
  481. ---
  482. > drawS3(x, y)
  483. 241c242
  484. < draw4(x, y)
  485. ---
  486. > drawS4(x, y)
  487. 262c263
  488. < draw5(x, y)
  489. ---
  490. > drawS5(x, y)
  491. 281c282
  492. < drawGalx(x, y)
  493. ---
  494. > drawGalx(x, y, mag, type, color)
  495. 282a284
  496. > char type, *color;
  497. 289c291
  498. <            (void) cstar (" *** ");
  499. ---
  500. >         (void) cstar (" *** ");
  501. 304c306
  502. < drawClus(x, y)
  503. ---
  504. > drawClus(x, y, mag, type, color)
  505. 305a308
  506. > char type, *color;
  507. 312c315
  508. <            (void) cstar (" * * ");
  509. ---
  510. >         (void) cstar (" * * ");
  511. 325c328
  512. < drawNebu(x, y)
  513. ---
  514. > drawNebu(x, y, mag, type, color)
  515. 326a330
  516. > char type, *color;
  517. 333c337
  518. <            (void) cstar (" ** ");
  519. ---
  520. >         (void) cstar (" ** ");
  521. @//E*O*F patch-starimages.c//
  522. chmod u=rw,g=r,o=r patch-starimages.c
  523.  
  524. echo x - patch-starlaser.c
  525. sed 's/^@//' > "patch-starlaser.c" <<'@//E*O*F patch-starlaser.c//'
  526. 13a14,21
  527. >  ! patched December, 1987 by Alan Paeth (awpaeth@watcgl),
  528. >  !
  529. >  ! [1] "bigmaster" chart layout now added
  530. >  ! [2] different XOFF and YOFF values adopted for better margins
  531. >  !
  532. >  */
  533. > 
  534. > /*
  535. 30,31c38,39
  536. < #define XOFF    1060        /* text centering offset (in decipoints) */
  537. < #define YOFF    (-80)
  538. ---
  539. > #define XOFF    520        /* text centering offset (in decipoints) */
  540. > #define YOFF    (-50)        /* previously, XOFF=1060; YOFF=(-80) */
  541. 41c49
  542. <             3.2, 1.0, 420, 35, 480, 195, 0.0 };
  543. ---
  544. >             3.2, 1.0, 2.05, 420, 35, 480, 195, 0.0 };
  545. 44c52
  546. <             8.0, 3.0, 20, 265, 880, 500, 0.0 };
  547. ---
  548. >             8.0, 3.0, 2.05, 20, 265, 880, 500, 0.0 };
  549. 45a54,56
  550. > mapblock bigmaster =    { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
  551. >             8.0, 3.0, 2.05, 20,  65, 880, 700, 0.0 };
  552. > 
  553. 94c105
  554. <     
  555. ---
  556. > 
  557. @//E*O*F patch-starlaser.c//
  558. chmod u=rw,g=r,o=r patch-starlaser.c
  559.  
  560. echo x - patch-starpic.c
  561. sed 's/^@//' > "patch-starpic.c" <<'@//E*O*F patch-starpic.c//'
  562. 4a5,12
  563. > /*
  564. >  ! patched December, 1987 by Alan Paeth (awpaeth@watcgl),
  565. >  !
  566. >  ! [1] formal/actual parmaters for drawNebu, drawPlan.. now agree
  567. >  ! [2] "bigmaster" chart layout now added
  568. >  !
  569. >  */
  570. > 
  571. 15c23
  572. < static float xold, yold;
  573. ---
  574. > static double xold, yold;
  575. 22c30
  576. <             3.2, 1.0, 480, 0, 480, 240, 0.0 };
  577. ---
  578. >             3.2, 1.0, 2.05, 480, 0, 480, 240, 0.0 };
  579. 25c33
  580. <             8.0, 3.0, 0, 370, 960, 960, 0.0 };
  581. ---
  582. >             8.0, 3.0, 2.05, 0, 370, 960, 960, 0.0 };
  583. 26a35,37
  584. > mapblock bigmaster =    { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
  585. >             8.0, 3.0, 2.05, 0, 80, 960, 1250, 0.0 };
  586. > 
  587. 35c46
  588. < float conv(i)
  589. ---
  590. > double conv(i)
  591. 114c125,126
  592. < drawGalx(x, y)
  593. ---
  594. > drawGalx(x, y, mag, type, color)
  595. >     char type, *color;
  596. 120c132,133
  597. < drawNebu(x, y)
  598. ---
  599. > drawNebu(x, y, mag, type, color)
  600. >     char type, *color;
  601. 126c139,140
  602. < drawClus(x, y)
  603. ---
  604. > drawClus(x, y, mag, type, color)
  605. >     char type, *color;
  606. 132c146,147
  607. < drawPlan(x, y)
  608. ---
  609. > drawPlan(x, y, mag, type, color)
  610. >     char type, *color;
  611. @//E*O*F patch-starpic.c//
  612. chmod u=rw,g=r,o=r patch-starpic.c
  613.  
  614. echo x - patch-starpost.c
  615. sed 's/^@//' > "patch-starpost.c" <<'@//E*O*F patch-starpost.c//'
  616. 4a5,16
  617. > /*
  618. >  ! patched December, 1987 by Alan Paeth (awpaeth@watcgl),
  619. >  ! based on revisions by Craig Counterman (ccount@royal.mit.edu)
  620. >  !
  621. >  ! [1] "bigmaster" chart layout now added
  622. >  ! [2] extensive rework and subclassing of non-stellar objects, e.g.
  623. >  !     galaxies, now have both spiral and irregular variants.
  624. >  ! [3] star sizes now extended to magnitude 10
  625. >  ! [4] white halo-ing of text overlays (by analogy to star haloing)
  626. >  !
  627. >  */
  628. > 
  629. 13c25
  630. <             3.2, 1.0, 480, 0, 480, 240, 0.0 };
  631. ---
  632. >             3.2, 1.0, 2.05, 480, 0, 480, 240, 0.0 };
  633. 16c28
  634. <             8.0, 3.0, 0, 370, 960, 960, 0.0 };
  635. ---
  636. >             8.0, 3.0, 2.05, 0, 370, 960, 960, 0.0 };
  637. 17a30,32
  638. > mapblock bigmaster =    { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
  639. >             8.0, 3.0, 2.05, 0, 30, 960, 1400, 0.0 };
  640. > 
  641. 32c47
  642. < float conv(i)
  643. ---
  644. > double conv(i)
  645. 66c81,84
  646. < out("/lshow {5 0 8#040 4 3 roll widthshow} def");
  647. ---
  648. > out("% The default lshow halos glyphs, but is slow. It is especially");
  649. > out("% useful when both the -a and -o switches are in effect (see man page)");
  650. > out("%/lshow {5 0 8#040 4 3 roll widthshow} def %fast version");
  651. > out("/lshow {true charpath gsave 1 setgray stroke grestore 0 setgray fill} def");
  652. 82,87d99
  653. < out("% non-stellar object macros (better designs most welcome)");
  654. < out("/planet  {2 copy 2.5 starcirc 3.5 starplus} def");
  655. < out("/galaxy  {2 copy 2.5 starcirc 3.5 starminus} def");
  656. < out("/nebula  {2 copy 1 setgray 2.5 starcirc 0 setgray [2] 0 setdash");
  657. < out("          2.5 starcirc [] 0 setdash} def");
  658. < out("/cluster {2.5 starcirc} def");
  659. 97,111c109,138
  660. < out("/s1 {3.8 s} def");
  661. < out("/d1 {3.8 d} def");
  662. < out("/v1 {3.8 v} def");
  663. < out("/s2 {3.1 s} def");
  664. < out("/d2 {3.1 d} def");
  665. < out("/v2 {3.1 v} def");
  666. < out("/s3 {2.4 s} def");
  667. < out("/d3 {2.4 d} def");
  668. < out("/v3 {2.4 v} def");
  669. < out("/s4 {1.7 s} def");
  670. < out("/d4 {1.7 d} def");
  671. < out("/v4 {1.7 v} def");
  672. < out("/s5 {1.0 s} def");
  673. < out("/d5 {1.0 d} def");
  674. < out("/v5 {1.0 v} def");
  675. ---
  676. > out("/s1 {4.0 s} def");
  677. > out("/d1 {4.0 d} def");
  678. > out("/v1 {4.0 v} def");
  679. > out("/s2 {3.5 s} def");
  680. > out("/d2 {3.5 d} def");
  681. > out("/v2 {3.5 v} def");
  682. > out("/s3 {3.0 s} def");
  683. > out("/d3 {3.0 d} def");
  684. > out("/v3 {3.0 v} def");
  685. > out("/s4 {2.5 s} def");
  686. > out("/d4 {2.5 d} def");
  687. > out("/v4 {2.5 v} def");
  688. > out("/s5 {2.0 s} def");
  689. > out("/d5 {2.0 d} def");
  690. > out("/v5 {2.0 v} def");
  691. > out("/s6 {1.7 s} def");
  692. > out("/d6 {1.7 d} def");
  693. > out("/v6 {1.7 v} def");
  694. > out("/s7 {1.5 s} def");
  695. > out("/d7 {1.5 d} def");
  696. > out("/v7 {1.5 v} def");
  697. > out("/s8 {1.3 s} def");
  698. > out("/d8 {1.3 d} def");
  699. > out("/v8 {1.3 v} def");
  700. > out("/s9 {1.1 s} def");
  701. > out("/d9 {1.1 d} def");
  702. > out("/v9 {1.1 v} def");
  703. > out("/s10 {1.0 s} def");
  704. > out("/d10 {1.0 d} def");
  705. > out("/v10 {1.0 v} def");
  706. 112a140,170
  707. > out("% non-stellar object macros (better designs most welcome)");
  708. > out("/planet  {2 copy 2.5 starcirc 3.5 starplus} def");
  709. > out("/asteroid { 2 copy newpath 1.5 0 360 arc closepath fill moveto");
  710. > out("        3 3 rmoveto -6 -6 rlineto 6 0 rmoveto -6 6 rlineto stroke } def");
  711. > out("/comet { 2 copy newpath 3 0 360 arc moveto 45 rotate");
  712. > out("  6 3 rmoveto -6 0 rlineto 3 -3 rmoveto 3 0 rlineto 0 -3 rmoveto");
  713. > out("  -6 0 rlineto   closepath stroke -45 rotate } def");
  714. > out("/nebulad  { newpath moveto 3 0 rmoveto -3 -3 rlineto -3 3 rlineto");
  715. > out("  3 3 rlineto 3 -3 rlineto stroke } def");
  716. > out("/nebulap { 2 copy newpath translate 30 rotate 1 .5 scale");
  717. > out("    0 0 3 0 360 arc closepath stroke");
  718. > out("    1 2 scale -30 rotate neg exch neg exch translate } def");
  719. > out("/galaxye { 2 copy newpath translate -30 rotate 1 .5 scale");
  720. > out("    0 0 3 0 360 arc closepath fill");
  721. > out("    1 2 scale 30 rotate neg exch neg exch translate } def");
  722. > out("/galaxys { 2 copy 2 copy newpath translate -30 rotate 1 .5 scale");
  723. > out("    0 0 3 0 360 arc closepath fill");
  724. > out("    -4 -3 moveto -3 0 lineto 4 3 moveto 3 0 lineto ");
  725. > out("    stroke  1 2 scale 30 rotate ");
  726. > out("    neg exch neg exch translate } def");
  727. > out("/galaxyq { 2 copy 2 copy newpath translate -30 rotate 1 .5 scale");
  728. > out("    0 0 3 0 360 arc closepath fill");
  729. > out("    1 2 scale 30 rotate ");
  730. > out("    -3 0 moveto 3 0 lineto 0 -3 moveto 0 3 lineto stroke");
  731. > out("    neg exch neg exch translate } def");
  732. > out("/clustero { 2 copy newpath 1 setgray 3 0 360 arc fill");
  733. > out("    [1 2] 0 setdash 0 setgray 3 0 360 arc stroke [] 0 setdash } def");
  734. > out("/clusterg { 2 copy 2 copy newpath 1 setgray 3 0 360 arc fill");
  735. > out("    [1 2] 0 setdash 0 setgray 3 0 360 arc stroke [] 0 setdash");
  736. > out("    1.5 0 360 arc closepath fill } def");
  737. > out("%");
  738. 178c236,237
  739. < drawPlan(x, y)
  740. ---
  741. > drawPlan(x, y, mag, type, color)
  742. >     char type, *color;
  743. 180c239,252
  744. <     printf("%.1f %.1f planet\n", conv(x), conv(y));
  745. ---
  746. >     switch(type)
  747. >     {
  748. >     case 'A': printf("%.1f %.1f asteroid\n", conv(x), conv(y)); break;
  749. >     case 'C': printf("%.1f %.1f comet\n", conv(x), conv(y)); break;
  750. >     case 'S':
  751. >     case 'M':
  752. >     case 'V':
  753. >     case 'm':
  754. >     case 'J':
  755. >     case 's':
  756. >     case 'U':
  757. >     case 'N':
  758. >     default:  printf("%.1f %.1f planet\n", conv(x), conv(y));
  759. >     }
  760. 183c255,256
  761. < drawGalx(x, y)
  762. ---
  763. > drawGalx(x, y, mag, type, color)
  764. >     char type, *color;
  765. 185c258,272
  766. <     printf("%.1f %.1f galaxy\n", conv(x), conv(y));
  767. ---
  768. >     switch(type)
  769. >     {
  770. >     case 'a':
  771. >     case 'b':
  772. >     case 'c':
  773. >     case 'd':
  774. >     case 'B':
  775. >     case 'S':
  776. >     case 'O': printf("%.1f %.1f galaxys\n", conv(x), conv(y)); break;
  777. >     case 'Q': printf("%.1f %.1f galaxyq\n", conv(x), conv(y)); break;
  778. >     case 'E':
  779. >     case 'I':
  780. >     case 'G':
  781. >     default:  printf("%.1f %.1f galaxye\n", conv(x), conv(y));
  782. >     }
  783. 188c275,276
  784. < drawNebu(x, y)
  785. ---
  786. > drawNebu(x, y, mag, type, color)
  787. >     char type, *color;
  788. 190c278,283
  789. <     printf("%.1f %.1f nebula\n", conv(x), conv(y));
  790. ---
  791. >     switch(type)
  792. >     {
  793. >     case 'P': printf("%.1f %.1f nebulap\n", conv(x), conv(y)); break;
  794. >     case 'D':
  795. >     default:  printf("%.1f %.1f nebulad\n", conv(x), conv(y));
  796. >     }
  797. 193c286,287
  798. < drawClus(x, y)
  799. ---
  800. > drawClus(x, y, mag, type, color)
  801. >     char type, *color;
  802. 195c289,294
  803. <     printf("%.1f %.1f cluster\n", conv(x), conv(y));
  804. ---
  805. >     switch(type)
  806. >     {
  807. >     case 'G': printf("%.1f %.1f clusterg\n", conv(x), conv(y)); break;
  808. >     case 'O':
  809. >     default:  printf("%.1f %.1f clustero\n", conv(x), conv(y));
  810. >     }
  811. 213c312
  812. <     if (mag>5) mag = 5;
  813. ---
  814. >     if (mag>10) mag = 10;
  815. @//E*O*F patch-starpost.c//
  816. chmod u=rw,g=r,o=r patch-starpost.c
  817.  
  818. echo x - patch-startek.c
  819. sed 's/^@//' > "patch-startek.c" <<'@//E*O*F patch-startek.c//'
  820. 4a5,10
  821. > /*
  822. >  ! patched December, 1987 by Alan Paeth (awpaeth@watcgl)
  823. >  !
  824. >  ! [1] "bigmaster" chart layout now added
  825. >  !
  826. >  */
  827. 38c44
  828. <             3.2, 1.0, 420, 35, 480, 195, 0.0 };
  829. ---
  830. >             3.2, 1.0, 2.05, 420, 35, 480, 195, 0.0 };
  831. 41c47
  832. <             8.0, 3.0, 20, 265, 880, 500, 0.0 };
  833. ---
  834. >             8.0, 3.0, 2.05, 20, 265, 880, 500, 0.0 };
  835. 42a49,51
  836. > mapblock bigmaster =    { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
  837. >             8.0, 3.0, 2.05, 20,  65, 880, 700, 0.0 };
  838. > 
  839. 84,92d92
  840. < 
  841. < vecsym(x, y, s)
  842. <     char s;
  843. <     {
  844. <     tekmove(x, y-11); /* center character strings */
  845. <     tekalpha();
  846. <     printf("%c",s);
  847. <     }
  848. < 
  849. 107d106
  850. < 
  851. @//E*O*F patch-startek.c//
  852. chmod u=rw,g=r,o=r patch-startek.c
  853.  
  854. echo x - patch-yaleformat
  855. sed 's/^@//' > "patch-yaleformat" <<'@//E*O*F patch-yaleformat//'
  856. 37c37
  857. < mag    12    3    {-}i    magnitude*100 -dd or -ddd
  858. ---
  859. > mag    12    3    {-}i    magnitude*100 (ddd) or -magnitude*10 (-dd)
  860. 120a121,137
  861. > 
  862. > ! Notes on Magnitude
  863. > !
  864. > ! Magnitudes on the range -9.9 through 9.99 are represented in the following
  865. > ! format: "-99" though "999". Thus, the three position magnitude field is
  866. > ! normally taken as mag*100, unless object is of negative magnitude, in which
  867. > ! case it represents a value mag*10. This costs us the "hundredths" position
  868. > ! for objects of negative magnitude, but this is not objectionable. For very
  869. > ! dim objects, 9.99 represents the current limiting magnitude. As there are
  870. > ! on the order of 1e6 stars to this brightness, the format provides adequate
  871. > ! representation. When used to chart small asteroids or very dim non-stellar
  872. > ! objects, magnitudes below +9.99 will occasionally be encountered; we suggest
  873. > ! coding such entries as "999", with this value then taken to mean >=9.99.
  874. > !
  875. > ! The old yale format which is supported for back compatability allows for
  876. > ! a larger four digit field, but its use is not advocated, as code operation
  877. > ! is not defined in presense of non-digits (such as leading blanks).
  878. @//E*O*F patch-yaleformat//
  879. chmod u=rw,g=r,o=r patch-yaleformat
  880.  
  881. echo x - patchall
  882. sed 's/^@//' > "patchall" <<'@//E*O*F patchall//'
  883. #
  884. #patch everything
  885. #
  886. patch moonphase.c patch-moonphase.c
  887. patch planet.c patch-planet.c
  888. patch stardsp.c patch-stardsp.c
  889. patch starhp.c patch-starhp.c
  890. patch starimages.c patch-starimages.c
  891. patch starlaser.c patch-starlaser.c
  892. patch starpic.c patch-starpic.c
  893. patch starpost.c patch-starpost.c
  894. patch startek.c patch-startek.c
  895. patch yaleformat patch-yaleformat
  896. @//E*O*F patchall//
  897. chmod u=rwx,g=rwx,o=rwx patchall
  898.  
  899. exit 0
  900.  
  901.  
  902.  
  903.  
  904.