;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310DD\311\312\313\314\301\315\316&	\207" [require calendar solar cal-dst custom-declare-variable lunar-phase-names funcall function #[0 "\300\207" [("New Moon" "First Quarter Moon" "Full Moon" "Last Quarter Moon")] 1 ""] "List of names for the lunar phases." :type (list (string :tag "New Moon") (string :tag "First Quarter Moon") (string :tag "Full Moon") (string :tag "Last Quarter Moon")) :group :version "23.2"] 10)
#@257 Local date and time of lunar phase INDEX.
Integer below INDEX/4 gives the lunation number, counting from Jan 1, 1900;
remainder mod 4 gives the phase: 0 new moon, 1 first quarter, 2 full moon,
3 last quarter.  Returns a list (DATE TIME PHASE).

(fn INDEX)
(defalias 'lunar-phase #[257 "\301
\302\"
\303\245\211\304\245\305\306\211\307
8\262
\310
\311U\203!\312\313!\266\203\202_

\311V\203\227
S\262
\305\211\211@\262

\211A@\262
\307
8\262

\314S_\\\307V\203\202\211\315\302_\\\316\245Z\262

\211\311W\203c\317
!S\262
\211\302\246\311U\205y\211\320\246\311U?\206y\211\321\246\311U\262
\203\202\211T\262
\266\204\322_\302\245\320\245[\321\245%\266\203\202_
\317T!\262
\323\211\211@\262

\211A@\262
\307
8\262

\314S_\\\307V\203\364\211\315\302_\\\316\245Z\262

\211\311W\203\325\317
!S\262
\211\302\246\311U\205\353\211\320\246\311U?\206\353\211\321\246\311U\262
\203\364\211T\262
\266\204\322_\302\245\320\245[\321\245\324\211\211@\262

\211A@\262
\307
8\262

\314S_\\\307V\203Y
\211\315\302_\\\316\245Z\262

\211\311W\203:
\317
!S\262
\211\302\246\311U\205P
\211\320\246\311U?\206P
\211\321\246\311U\262
\203Y
\211T\262
\266\204&\266\203\325\326_\327__\330\331\211\211$\332\333\334\335\n_\\\336\n_\n_\\!_&\301\305\337\340_\341__\330\342\211\211$$\343\"\301\305\344\345_\346__\330\347	\211\211$$\343\"\301\305\350\351_\352__\330\353\n\211\211$$\343\"\354
\"\355>\203W\305\356\357_Z\333!_\360\333\307_!_\361\333!_\362\333\307	_!_\363\333\364\n_!_\365\333\307\n_!_\366\333\f\f\\!_\367\333

Z!_\370\333\307
_\\!_\363\333\307_Z!_\371\333\307_\\!_\372\333\307_Z!_\373\333\307_\\!_&
\202\364\305\374\370_Z\333!_\360\333\307_!_\375\333!_\376\333\307	_!_\363\333\364\n_!_\377\333\307\n_!_\201@\333\f\f\\!_\201A\333

Z!_\201B\333\307
_\\!_\363\333\307_Z!_\371\333\307_\\!_\360\333\307_Z!_\201B\333\307_\\!_\370\333\307_Z!_\201C\333\307_\\!_&\201D\363\201E!_\\\201B\201E!_\\	\201FU\203

\\\202(	\307U\203'

Z\202(

\\\211\201G\201H\201I\201J!!\307
8\262
!Z\201K\201L#\\\201M
\201J!Z_\201I\201J!!\201N
\"\211@\201O\201PA\"F\207" [calendar-time-zone mod 4 4.0 1236.85 + (1 0.5 1900) 2 nil 0 user-error "There was no year zero" 31 23 10 abs 100 400 365 - (12 31 -1) 0.75933 29.53058868 0.0001178 * -1.55e-07 0.00033 solar-sin-degrees 166.56 132.87 -0.009173 359.2242 29.105356 -3.33e-05 -3.47e-06 360.0 306.0253 385.81691806 0.0107306 1.236e-05 21.2964 390.67050646 -0.0016528 -2.39e-06 eclipse-check (0 2) 0.1734 0.000393 0.0021 -0.4068 0.0161 -0.0004 3 0.0104 -0.0051 -0.0074 0.0004 -0.0006 0.001 0.0005 0.1721 -0.628 0.0089 0.0079 -0.0119 -0.0047 0.0003 -0.0003 0.0028 solar-cosine-degrees 1 / solar-ephemeris-correction calendar-gregorian-from-absolute truncate 60.0 24.0 24 dst-adjust-time apply solar-time-string] 28 (#$ . 573)])
#@23 

(fn MOON-LAT PHASE)
(defalias 'eclipse-check #[514 "\301\245_\302
\303\245!_Z!\211\304V\203
Z\202\211\305U\203'\306\2022\307U\2031\310\2022\311
\312W\203=\313
\314Q\207
\304W\203H\313
\315Q\207\311\207" [float-pi 180 abs floor 0.37 0 "Solar" 2 "Lunar" "" 0.242600766 "** " " Eclipse **" " Eclipse possible **"] 9 (#$ . 3503)])
#@50 Mean number of lunar cycles per 365.25 day year.
(defconst lunar-cycles-per-year 12.3685 (#$ . 3856))
#@199 Return the lunar index for Gregorian date DATE.
This is 4 times the approximate number of new moons since 1 Jan 1900.
The factor of 4 allows (mod INDEX 4) to represent the four quarters.

(fn DATE)
(defalias 'lunar-index #[257 "\301\302\303
8\262
\211\211@\262

\211A@\262
\303
8\262

\304S_\\\303V\203_\211\305\301_\\\306\245Z\262

\211\307W\203@\310
!S\262
\211\301\246\307U\205V\211\311\246\307U?\206V\211\312\246\307U\262
\203_\211T\262
\266\204\313\245\\\314\\_!_\207" [lunar-cycles-per-year 4 truncate 2 31 23 10 0 abs 100 400 366.0 -1900] 14 (#$ . 3965)])
#@93 List of lunar phases for three months starting with Gregorian MONTH, YEAR.

(fn MONTH YEAR)
(defalias 'lunar-phase-list #[514 "\300\301E!\302
!\303\304W\203T\262\305\306_\307\310$\262
\311
\306\"T\262\211\306\245\262\211\304W\203=\301V\203=
S\262
\301W\203G
S\262\210
\301EC\266\202\303\304W\203ZT\262\305\306_\307\211$\262
\311
\306\"T\262\211\306\245\262\211\304W\203\201\301V\203\201S\262\301W\203\213S\262\210\211
\312U\203\303\211\211\304W\203\242\313
!S\262
\211\314\246\304U\205\270\211\315\246\304U?\206\270\211\316\246\304U\262
\203\303\266\317\202\311\320SH\266\202EC\303\321\"\203\356\321\"\203\342\322
C\"\262
T\262\302!\262\202\315\207" [lunar-index 1 lunar-phase nil 0 + 12 -1 3 mod 2 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] calendar-date-compare append] 12 (#$ . 4547)])
#@100 Name of lunar PHASE.
0 = new moon, 1 = first quarter, 2 = full moon, 3 = last quarter.

(fn PHASE)
(defalias 'lunar-phase-name #[257 "\2118\207" [lunar-phase-names] 3 (#$ . 5417)])
#@185 Create a buffer with the lunar phases for the current calendar window.
If EVENT is non-nil, it's an event indicating the buffer position to
use instead of point.

(fn &optional EVENT)
(defalias 'calendar-lunar-phases #[256 "r\211\203\305\306!\211@\262
!\202pq\210\307\310!\210		\311\312W\203'T\262\313\314_\315\211$\262
\316
\314\"T\262\211\314\245\262\211\312W\203N\317V\203NS\262\317W\203XS\262\210\311
\312W\203d
T\262\313\314_\315\317$\262
\316
\314\"T\262\211\314\245\262\211\312W\203\212\317V\203\212
S\262
\317W\203\224
S\262\210\320\n!q\210\321\322!\204\243\322 \210\311\323\324 \210\325\n!\210\326U\203\304\327\330\331!\331!$\202\323\327\332\331!\331!%!\210\333\334\335\"\336#c\210eb\210\337\311!\210\323\307\340!\266\204)\207" [displayed-month displayed-year lunar-phases-buffer buffer-read-only buffer-undo-list window-buffer event-start message "Computing phases of the moon..." nil 0 + 12 -1 mod 1 get-buffer-create derived-mode-p special-mode t erase-buffer display-buffer calendar-set-mode-line format "Phases of the Moon from %s to %s, %d%%-" calendar-month-name "Phases of the Moon from %s, %d to %s, %d%%-" mapconcat #[257 "\300\301\302@!\303\3048!A@\305!@%\207" [format "%s: %s %s %s" calendar-date-string lunar-phase-name 2 last] 8 "\n\n(fn X)"] lunar-phase-list "\n" set-buffer-modified-p "Computing phases of the moon...done"] 12 (#$ . 5606) (list last-nonmenu-event)])
#@231 Display the quarters of the moon for last month, this month, and next month.
If called with an optional prefix argument ARG, prompts for month and year.
This function is suitable for execution in an init file.

(fn &optional ARG)
(defalias 'lunar-phases #[256 "\212\211\203\303\304!\202
\305 \211\211@\262
\306
8\262
\307 ,\207" [date displayed-month displayed-year calendar-read-date t calendar-current-date 2 calendar-lunar-phases] 5 (#$ . 7072) "P"])
#@168 Moon phases diary entry.
An optional parameter MARK specifies a face or single-character string to
use when highlighting the day in the calendar.

(fn &optional MARK)
(defalias 'diary-lunar-phases #[256 "\301!\302
!\303
C\"\203
T\262\302!\262
\202\304
@\"\205.\305\3068!\307A@QB\207" [date lunar-index lunar-phase calendar-date-compare calendar-date-equal lunar-phase-name 2 " "] 7 (#$ . 7540)])
#@60 Astronomical (Julian) day number of K th new moon.

(fn K)
(defalias 'lunar-new-moon-time #[257 "\211\301\245\211
_
\211__
\211_\302\303\304_\305_\306_\307_%\310\311_Z\312_Z\302\313\314	_\315_\316_$\302\317\320\n_\321	_\322	_\323	_%\302\324\325_\326\n_\327\n_\330\n_%\302\331\332\f_\333_\334_$\335\336\f_\\\337\n_\\\340\341
_\\\342\343_\\\344\345_\\\346\347_\\\350\351_\\\352\353_\\\354\355_\\\356\357_\\\360\361_\\\362\363_\\\364\365_\\\366\367_\\\370\371_\\\302\372\373!_\374_\373!_\375\373\376_!_\377\373\376_!_\201@_\373Z!_\201A_\373\\!_\201B\201C\211\373\376_!$\201D\373\376_Z!_\201E\373\376_\\!_\201F_\373\376_\\!_\201G\373\201H_!_\201I_\373\376_\\!_\201J _\373 \376 _Z!_\201K!_\373\376!_\"Z!_\201L\373!_\201M\373\"\376%_\\!_\201N\373\376$_\376$_Z!_\201N\373\201H&_!_\201O\373%'\\\201P&_\\!_\201O\373\376'_\376'_\\!_\201Q\373')\\\376(_\\!_\201O\373(*Z\201P)_Z!_\201R\373)+Z\376*_Z!_\201R\373\201H+_,\\!_\201S\373\201T,_!_&\302\201U\373!_\201V\373!_\201W\373!_\201X\373!_\201Y\373!_\201Z\373!_\201[\373!_\201\\\373!_\201]\373!_\201^\373!_\201N\373!_\201_\373!_\201`\373!_\201a\373!_&\\
\\\211\201b\201c\201d\201e!!!\376
8\262
![\\\201f\201g\201h#\\\207" [calendar-time-zone 1236.85 + 2451550.09765 29.530588853 0.0001337 -1.5e-07 7.3e-10 1 0.002516 7.4e-06 2.5534 29.10535669 -2.18e-05 -1.1e-07 201.5643 385.81693528 0.0107438 1.239e-05 -5.8e-08 160.7108 390.67050274 -0.0016341 -2.27e-06 1.1e-08 124.7746 -1.5637558 0.0020691 2.15e-06 299.77 0.107408 -0.009173 251.88 0.016321 251.83 26.641886 349.42 36.412478 84.66 18.206239 141.74 53.303771 207.14 2.453732 154.84 7.30686 34.52 27.261239 207.19 0.121824 291.34 1.844379 161.72 24.198154 239.56 25.513099 331.55 3.592518 -0.4072 solar-sin-degrees 0.17241 0.01608 2 0.01039 0.00739 -0.00514 * 0.00208 -0.00111 -0.00057 0.00056 -0.00042 3 0.00042 0.00038 -0.00024 -0.00017 -7e-05 4e-05 3e-05 -2 -3e-05 -2e-05 2e-05 4 0.000325 0.000165 0.000164 0.000126 0.00011 6.2e-05 6e-05 5.6e-05 4.7e-05 4.2e-05 3.7e-05 3.5e-05 2.3e-05 solar-ephemeris-correction calendar-gregorian-from-absolute floor calendar-astro-to-absolute / 60.0 24.0] 54 (#$ . 7955)])
#@428 Julian day number of first new moon on or after Julian day number D.
The fractional part is the time of day.

The date and time are local time, including any daylight saving rules,
as governed by the values of `calendar-daylight-savings-starts',
`calendar-daylight-savings-starts-time', `calendar-daylight-savings-ends',
`calendar-daylight-savings-ends-time', `calendar-daylight-time-offset', and
`calendar-time-zone'.

(fn D)
(defalias 'lunar-new-moon-on-or-after #[257 "\301\302\303!!!\211\304
8\262

\211\211@\262

\211A@\262
\304
8\262

\305S_\\\304V\203c\211\306\307_\\\310\245Z\262

\211\311W\203D\312
!S\262
\211\307\246\311U\205Z\211\313\246\311U?\206Z\211\314\246\311U\262
\203c\211T\262
\266\204\315\245\\\302
\316Z_!\317
!\211W\203\204
T\262\317!\262
\202r\303
!\320
\321!Z_\301\321!!\322
\"\323
@\211\304
8\262
\324
\311U\203\257\325\326!\266\203\202\355

\311V\203%

S\262
\327\211\211@\262

\211A@\262
\304
8\262

\305S_\\\304V\203
\211\306\307_\\\310\245Z\262

\211\311W\203\361\312
!S\262
\211\307\246\311U\205
\211\313\246\311U?\206
\211\314\246\311U\262
\203
\211T\262
\266\204\330_\307\245\313\245[\314\245%\266\203\202\355
\312T!\262
\331\211\211@\262

\211A@\262
\304
8\262

\305S_\\\304V\203\202
\211\306\307_\\\310\245Z\262

\211\311W\203c
\312
!S\262
\211\307\246\311U\205y
\211\313\246\311U?\206y
\211\314\246\311U\262
\203\202
\211T\262
\266\204\330_\307\245\313\245[\314\245\332\211\211@\262

\211A@\262
\304
8\262

\305S_\\\304V\203\347
\211\306\307_\\\310\245Z\262

\211\311W\203\310
\312
!S\262
\211\307\246\311U\205\336
\211\313\246\311U?\206\336
\211\314\246\311U\262
\203\347
\211T\262
\266\204&\266\203A@\333\245\\!\207" [lunar-cycles-per-year calendar-gregorian-from-absolute floor calendar-astro-to-absolute 2 31 23 4 10 0 abs 100 400 365.25 2000.0 lunar-new-moon-time 24 truncate dst-adjust-time calendar-astro-from-absolute nil user-error "There was no year zero" + 365 - (12 31 -1) 24.0] 28 (#$ . 10284)])
(provide 'lunar)