Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/calendar/lunar.elc

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

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\301\313\314&	\207" [require calendar solar cal-dst custom-declare-variable lunar-phase-names '("New Moon" "First Quarter Moon" "Full Moon" "Last Quarter Moon") "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)
#@245 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).
(defalias 'lunar-phase #[(index) "\306\307\"\310\245\211\311\245\312\313\211\314
8\262
\315
\316U\203\"\317\320!\202\\

\316V\203\226
S\262
\312\211\211@\262

\211A@\262
\314
8\262

\321S_\\\314V\203\203\211\322\307_\\\323\245Z\262

\211\316W\203d\324
!S\262
\211\307\246\316U\205z\211\325\246\316U?\206z\211\326\246\316U\262
\203\203\211T\262
\266\204\327_\307\245\325\245[\326\245%\202\\
\324T!\262
\330\211\211@\262

\211A@\262
\314
8\262

\321S_\\\314V\203\363\211\322\307_\\\323\245Z\262

\211\316W\203\324\324
!S\262
\211\307\246\316U\205\352\211\325\246\316U?\206\352\211\326\246\316U\262
\203\363\211T\262
\266\204\327_\307\245\325\245[\326\245\331\211\211@\262

\211A@\262
\314
8\262

\321S_\\\314V\203X
\211\322\307_\\\323\245Z\262

\211\316W\2039
\324
!S\262
\211\307\246\316U\205O
\211\325\246\316U?\206O
\211\326\246\316U\262
\203X
\211T\262
\266\204&\266\203\332\333_\334\335\n\211#\334\336\n\211\211$\337\340\312\341\342\n_\334\343\n\211##!_&\306\312\344\345_\334\346\n\211#\334\347\n\211\211$$\350\"\306\312\351\352_\334\353\n\211#\334\354\n\211\211$$\355\"\306\312\356\357_\334\360\n\211#\334\361\n\211\211$$\362\"@	\363>\203;\312\364\365\n_Z\340\f!_\366\340\314\f_!_\367\340
!_\370\340\314
_!_\371\340\372
_!_\373\340\314@_!_\374\340\f
\\!_\375\340\f
Z!_\376\340\314@_\f\\!_\377\340\314@_\fZ!_\201D\340\314@_
\\!_\201E\340\314@_
Z!_\201F\340\314
_\f\\!_&
\202\332\312\201G\201H\n_Z\340\f!_\201I\340\314\f_!_\201J\340
!_\201K\340\314
_!_\201L\340\372
_!_\201M\340\314@_!_\201N\340\f
\\!_\201O\340\f
Z!_\201P\340\314@_\f\\!_\201Q\340\314@_\fZ!_\201R\340\314@_
\\!_\201S\340\314@_
Z!_\201T\340\314
_\f\\!_\201U\340\f\314
_Z!_\201V\340\314\f_
\\!_&A\312\201W\201X\201Y\f!_\201Z\201Y
!_#B	\201[U\203AB\\\202	\314U\203ABZ\202AAA\\\211\201\\C\201]\201^\201_!!\314
8\262
!Z\201`\201a#\\\201b\201_!Z_\201^\201_!!\201c\n\"\211B@\201d\201eBA\"	E.\207" [index phase time date sun-anomaly moon-anomaly 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 360.0 21.2964 390.67050646 -0.0016528 -2.39e-06 360.0 (0 2) 0.1734 0.000393 0.0021 -0.4068 0.0161 -0.0004 3 0.0104 -0.0051 -0.0074 0.0004 -0.0004 moon-lat adjustment adj calendar-time-zone -0.0006 0.001 0.0005 0.1721 0.0004 0.0021 -0.628 0.0089 -0.0004 0.0079 -0.0119 -0.0047 0.0003 -0.0004 -0.0006 0.0021 0.0003 0.0004 -0.0003 0.0028 -0.0004 solar-cosine-degrees 0.0003 1 / solar-ephemeris-correction calendar-gregorian-from-absolute truncate 60.0 24.0 24 dst-adjust-time apply solar-time-string] 20 (#$ . 848)])
#@50 Mean number of lunar cycles per 365.25 day year.
(defconst lunar-cycles-per-year 12.3685 (#$ . 3948))
#@188 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.
(defalias 'lunar-index #[(date) "\302\303\304	\305
8\262
	\211\211@\262

\211A@\262
\305
8\262

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

\211\311W\203A\312
!S\262
\211\302\246\311U\205W\211\313\246\311U?\206W\211\314\246\311U\262
\203`\211T\262
\266\204\315\245\316#_!_\207" [lunar-cycles-per-year date 4 truncate + 2 31 23 10 0 abs 100 400 366.0 -1900] 14 (#$ . 4057)])
#@76 List of lunar phases for three months starting with Gregorian MONTH, YEAR.
(defalias 'lunar-phase-list #[(month year) "\306\307	E!\310\n!	\311\312\f\313W\203\fT\314\f_
\315\316$\317\"T\245\313W\203G
\307V\203G\fS\f\307W\203P\fS*
\307\fE*C\311\312	\313W\203h	T\314	_\315\211$\317\"T\245\313W\203\221\307V\203\221	S	\307W\203\232	S*\211	
\320U\203\322\211\211\313W\203\261\321
!S\262
\211\322\246\313U\205\307\211\323\246\313U?\206\307\211\324\246\313U\262
\203\322\325\266\202\202\330\326SH\266\202	EC\312\327\"\203
\327\"\203\370\330C\"\nT\310\n!\202\340-\207" [month year index new-moon end-year end-month lunar-index 1 lunar-phase 12 nil 0 + -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 macro-y nmonths end-date start-date list] 6 (#$ . 4639)])
#@88 Name of lunar PHASE.
0 = new moon, 1 = first quarter, 2 = full moon, 3 = last quarter.
(defalias 'lunar-phase-name #[(phase) "	8\207" [phase lunar-phase-names] 2 (#$ . 5537)])
#@163 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.
(defalias 'calendar-lunar-phases #[(&optional event) "r\203\306\307!\211@\262
!\202pq\210\310\311!\210	\n	\n\"\312\313#$
\314W\2030
T\315
$_\"\316\211$#\317#$\"T\"#$\245#\314W\203\\\"\320V\203\\
S
\320W\203e
S*\312\313#$\314W\203uT\315$_\f\316\320$#\317#$\"T#$\245#\314W\203\236\f\320V\203\236S\320W\203\247S*\321%!q\210\322\323!\204\267\323 \210\313&\324'\325 \210\326%!\210\327
U\203\332\330\331\332\"!\332\f!$\202\346\330\333\332\"!
\332\f!%!\210\334\335\336\"
\"\337#c\210eb\210\340\313!\210\324&\310\341!-\207" [event displayed-month displayed-year y2 m2 y1 window-buffer event-start message "Computing phases of the moon..." 12 nil 0 + -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 #[(x) "\301\302\303@!\304\3058!A@$\207" [x format "%s: %s %s" calendar-date-string lunar-phase-name 2] 6] lunar-phase-list "\n" set-buffer-modified-p "Computing phases of the moon...done" m1 macro-y nmonths lunar-phases-buffer buffer-read-only buffer-undo-list] 7 (#$ . 5721) (list last-nonmenu-event)])
#@211 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.
(defalias 'lunar-phases #[(&optional arg) "\212\203\304\305!\202
\306 \211\211@\262
	\307
8\262
\310 ,\207" [arg date displayed-month displayed-year calendar-read-date t calendar-current-date 2 calendar-lunar-phases] 4 (#$ . 7140) "P"])
#@147 Moon phases diary entry.
An optional parameter MARK specifies a face or single-character string to
use when highlighting the day in the calendar.
(defalias 'diary-lunar-phases #[(&optional mark) "\304!\305	!\306\nC\"\203	T\305	!\202\307\n@\"\205.\310\311\n8!\312\nA@QB*\207" [date index phase mark lunar-index lunar-phase calendar-date-compare calendar-date-equal lunar-phase-name 2 " "] 4 (#$ . 7601)])
#@52 Astronomical (Julian) day number of K th new moon.
(defalias 'lunar-new-moon-time #[(k) "\306\245\211\211_\307	\211\211#\n\211_\310\311\312_\313\n_\314_\315\f_%\316\317\320	_\321\n_#@\310\322\323_\324\n_\325_$A\310\326\327_\330\n_\331_\332\f_%B\310\333\334_\335\n_\336_\337\f_%C\310\340\341_\342\n_\343_$D\310\344\345_\346\n_#E\347\350_\\F\351\352_\\G\353\354_\\H\355\356_\\I\357\360_\\J\361\362_\\K\363\364_\\L\365\366_\\M\367\370_\\N\371\372_\\O\373\374_\\P\375\376_\\Q\377\201W_\\R\310\201X\201YB!_\307\201Z@\201YA!#\201[\201Y\201\\B_!_\201]\201Y\201\\C_!_\307\201^@\201YBAZ!#\307\201_@\201YBA\\!#\307\201`@\211\201Y\201\\A_!$\201a\201YB\201\\C_Z!_\201b\201YB\201\\C_\\!_\307\201c@\201Y\201\\B_A\\!#\201d\201Y\201eB_!_\307\201f@\201YA\201\\C_\\!#\307\201g@\201YA\201\\C_Z!#\307\201h@\201Y\201\\B_AZ!#\201i\201YD!_\201j\201YB\201\\A_\\!_\201k\201Y\201\\B_\201\\C_Z!_\201l\201Y\201eA_!_\201m\201Y\310BA\201nC_#!_\201o\201Y\201\\B_\201\\C_\\!_\201p\201Y\310BA\201\\C_#!_\201q\201Y\316BA\201nC_#!_\201r\201Y\316BA\201\\C_#!_\201s\201Y\201eB_A\\!_\201t\201Y\201uB_!_&S\310\201v\201YE!_\201w\201YF!_\201x\201YG!_\201y\201YH!_\201z\201YI!_\201{\201YJ!_\201|\201YK!_\201}\201YL!_\201~\201YM!_\201\201YN!_\201\200\201YO!_\201\201\201YP!_\201\202\201YQ!_\201\203\201YR!_&T\310
ST#U\310U\201\204\201\205\201\206\201\207U!!!\201\\
8\262
![\201\210V\201\211\201\212##.\207" [k T T2 T3 T4 JDE 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 E sun-anomaly moon-anomaly moon-argument omega A1 A2 A3 A4 A5 A6 A7 A8 A9 A10 A11 A12 A13 A14 correction additional newJDE calendar-time-zone 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 4e-05 3e-05 -2 3e-05 -3e-05 3e-05 -2e-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 4e-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] 31 (#$ . 8024)])
#@420 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'.
(defalias 'lunar-new-moon-on-or-after #[(d) "\306\307\310!!!\211\311
8\262
	\211\211@\262

\211A@\262
\311
8\262

\312S_\\\311V\203d\211\313\314_\\\315\245Z\262

\211\316W\203E\317
!S\262
\211\314\246\316U\205[\211\320\246\316U?\206[\211\321\246\316U\262
\203d\211T\262
\266\204\322\245\\\307\n\323Z_!\324\f!\211W\203\207\fT\324\f!\211\202w\310	!\325
\326
!Z_!\306\326
!!\327	!\"\"\330\"@\211\311
8\262
\331
\316U\203\270\332\333!\202\362

\316V\203,

S\262
\334\211\211@\262

\211A@\262
\311
8\262

\312S_\\\311V\203
\211\313\314_\\\315\245Z\262

\211\316W\203\372\317
!S\262
\211\314\246\316U\205
\211\320\246\316U?\206
\211\321\246\316U\262
\203
\211T\262
\266\204\335_\314\245\320\245[\321\245%\202\362
\317T!\262
\336\211\211@\262

\211A@\262
\311
8\262

\312S_\\\311V\203\211
\211\313\314_\\\315\245Z\262

\211\316W\203j
\317
!S\262
\211\314\246\316U\205\200
\211\320\246\316U?\206\200
\211\321\246\316U\262
\203\211
\211T\262
\266\204\335_\314\245\320\245[\321\245\337\211\211@\262

\211A@\262
\311
8\262

\312S_\\\311V\203\356
\211\313\314_\\\315\245Z\262

\211\316W\203\317
\317
!S\262
\211\314\246\316U\205\345
\211\320\246\316U?\206\345
\211\321\246\316U\262
\203\356
\211T\262
\266\204&\266\203\"A@\340\245\\!.\207" [d date year lunar-cycles-per-year k a-date 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 time adj] 20 (#$ . 10748)])
(provide 'lunar)