19 -1.3572, 231, 50, "Quadrantid",
20 0.7620, 336, 0, "Eta aquarid",
21 1.5497, 260, -20, "Ophiuchid",
22 2.1324, 315, -15, "Capricornid",
23 2.1991, 339, -17, "Delta aquarid",
24 2.2158, 340, -30, "Pisces australid",
25 2.4331, 46, 58, "Perseid",
26 -2.6578, 95, 15, "Orionid",
27 -1.8678, 15, -55, "Phoenicid",
28 -1.7260, 113, 32, "Geminid",
39 for(i=0; objlst[i]; i++) {
45 event("%s rises at ", p->name, "", t,
46 i==0? PTIME: PTIME|DARK);
49 event("%s sets at ", p->name, "", t,
50 i==0? PTIME: PTIME|DARK);
55 event("%s at ", solstr[j], "", t,
58 for(j=0; bettab[j].beta!=0; j++) {
59 t = betcross(bettab[j].beta);
61 event("%s meeteeor shouwer",
62 bettab[j].betstr, "", t, SIGNIF);
66 event("Twilight starts at ", "", "", t, PTIME);
69 event("Twilight ends at ", "", "", t, PTIME);
72 for(j=0; j<NPTS; j++) {
73 if(p->point[j].mag > .75 && p->point[j+1].mag < .25)
74 event("New moon", "", "", 0, 0);
75 if(p->point[j].mag <= .25 && p->point[j+1].mag > .25)
76 event("First quarter moon", "", "", 0, 0);
77 if(p->point[j].mag <= .50 && p->point[j+1].mag > .50)
78 event("Full moon", "", "", 0, 0);
79 if(p->point[j].mag <= .75 && p->point[j+1].mag > .75)
80 event("Last quarter moon", "", "", 0, 0);
82 if(p == &omerc || p == &ovenus) {
85 t = rise(p, 0) - rise(&osun, 0);
91 event("Morning elongation of %s", p->name,
94 event("Evening elongation of %s", p->name,
98 for(j=i; objlst[j]; j++) {
102 if(p == &omoon || q == &omoon) {
106 if(p == &osun || q == &oshad) {
108 event("Partial eclipse of %s begins at ", p->name, "",
109 occ.t1, SIGNIF|PTIME);
111 event("Total eclipse of %s begins at ", p->name, "",
112 occ.t2, SIGNIF|PTIME);
114 event("Total eclipse of %s ends at ", p->name, "",
115 occ.t4, SIGNIF|PTIME);
117 event("Partial eclipse of %s ends at ", p->name, "",
118 occ.t5, SIGNIF|PTIME);
121 event("Occultation of %s begins at ", q->name, "",
122 occ.t1, SIGNIF|PTIME);
124 event("Occultation of %s ends at ", q->name, "",
125 occ.t5, SIGNIF|PTIME);
130 if(q != &omerc && q != &ovenus)
135 event("Transit of %s begins at ", q->name, "",
136 occ.t1, SIGNIF|LIGHT|PTIME);
138 event("Transit of %s ends at ", q->name, "",
139 occ.t5, SIGNIF|LIGHT|PTIME);
143 t = dist(&p->point[0], &q->point[0]);
146 event("%s is in the house of %s",
147 p->name, q->name, 0, 0);