;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Fri Jan 26 01:50:47 1996 ;;; from file /home/fsf/rms/e19/lisp/lunar.el ;;; emacs version 19.30.90.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`lunar.el' was compiled for Emacs 19.29 or later")) (byte-code "! !!!" [fboundp atan require lisp-float-type error "Lunar calculations impossible since floating point is unavailable." solar] 2) #@76 List of lunar phases for three months starting with Gregorian MONTH, YEAR. (defalias 'lunar-phase-list #[(month year) "  \f_ \\\\ƦTƥ)\n_ \\\\ƦTƥ) \fEC \nUb ̦UZ ΦU?Z ϦU)bЂfSH*\nEC  E@)A@)AA@)S_\\V_\\ڥZ ̦U ΦU? ϦU)T-ۥ\\\\_!_!! \"\f\"!C\"!T!!. " [month year start-year start-month end-year end-month 12 2 macro-y -2 1 end-date 4 0 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] start-date truncate 12.368499999999999 date day 31 day-of-year 23 10 366.0 -1900 index lunar-phase new-moon nil list calendar-date-compare append] 8 (#$ . 626)]) #@210 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. (defalias 'lunar-phase #[(index) " \" ĥťljAA@)S @)\nA@) AA@)\f \nS_\\\nV\n_\\ѥZ\f\f¦Uw\fӦU?w\fԦU)T- _\\ ¥\\ ӥ[\\ ԥ\\*\\ _\\__\\___\\_\\__\\!_\\ _\\__\\___\\\"$ _\\__\\___\\\"* _\\__\\___\\\"0 >_Z$!_$\\!_\\*!_\\*\\!_\\*_!_\\0\\!_\\$*\\!_\\$*Z!_\\0\\$\\!_\\0\\$Z!_\\0\\*\\!_\\0\\*Z!_\\@*\\$\\!_\\mAB_Z$!_C$\\!_\\D*!_\\E*\\!_\\F*_!_\\G0\\!_\\H$*\\!_\\I$*Z!_\\J0\\$\\!_\\K0\\$Z!_\\L0\\*\\!_\\M0\\*Z!_\\N*\\$\\!_\\O$*\\Z!_\\P$\\*\\!_\\QRST$!_\\UT*!_\\V WUQV\\ UQVZQQQ\\XYZ[!!AA@)!Z\\]\\[!Z^_Z[!!_\"V@`aVA\" E." [mod index 4 phase 4.0 1236.8499999999999 time (1 .5 1900) date prior-years month day year 31 day-of-year 2 23 10 0 100 400 365 .75932999999999993 29.530588680000001 .00011779999999999999 -1.55e-007 .00033000000000000003 solar-sin-degrees 166.56 132.87 -.009173 359.2242 29.105356 -3.3300000000000001e-005 -3.4700000000000002e-006 360.0 sun-anomaly 306.02530000000002 385.81691805999998 .010730599999999999 1.2359999999999998e-005 360.0 moon-anomaly 21.296399999999998 390.67050646000001 -.0016528 -2.3899999999999997e-006 360.0 moon-lat (0 2) .1734 .00039300000000000001 .0020999999999999996 -.40679999999999996 .016100000000000001 -.0004 3 .0104 -.0050999999999999996 -.0074000000000000012 .0004 -.0004 -.00059999999999999982 .001 .0005 .17210000000000001 .0004 .0020999999999999996 -.62800000000000002 .0088999999999999986 -.0004 .0079000000000000012 -.011900000000000002 -.0046999999999999993 .00029999999999999991 -.0004 -.00059999999999999982 .0020999999999999996 .00029999999999999991 .0004 -.00029999999999999991 adjustment .0028000000000000004 -.0004 solar-cosine-degrees .00029999999999999991 adj 1 calendar-time-zone solar-ephemeris-correction calendar-gregorian-from-absolute truncate 60.0 24.0 24 dst-adjust-time apply solar-time-string] 7 (#$ . 1340)]) #@88 Name of lunar PHASE. 0 = new moon, 1 = first quarter, 2 = full moon, 3 = last quarter. (defalias 'lunar-phase-name #[(phase) "U‡UćUƇUȇ" [phase 0 "New Moon" 1 "First Quarter Moon" 2 "Full Moon" 3 "Last Quarter Moon"] 2 (#$ . 3734)]) #@72 Create a buffer with the lunar phases for the current calendar window. (defalias 'calendar-phases-of-moon #[nil "!\n \n _\\\\\nȦT\nȥ)\f_ \\\\\\\nȦT\nȥ)!q\fU[! !\f$h! !\f%! \"#ceb!!!," [message "Computing phases of the moon..." displayed-month displayed-year y2 m2 y1 m1 12 -2 macro-y -1 1 get-buffer-create lunar-phases-buffer nil buffer-read-only 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%%-" erase-buffer mapconcat #[(x) "@A@AA@ ! !\n+" [x phase time date calendar-date-string ": " lunar-phase-name " "] 5] lunar-phase-list "\n" set-buffer-modified-p t display-buffer "Computing phases of the moon...done"] 8 (#$ . 3996) nil]) #@209 Display the quarters of the moon for last month, this month, and next month. If called with an optional prefix argument, prompts for month and year. This function is suitable for execution in a .emacs file. (defalias 'phases-of-moon #[(&optional arg) " ! @)\fAA@) ," [arg calendar-read-date t calendar-current-date date displayed-month displayed-year calendar-phases-of-moon] 3 (#$ . 4825) "P"]) #@26 Moon phases diary entry. (defalias 'diary-phases-of-moon #[nil "\nAA@)\n@)\nA@)\nAA@)\f S_\\ V[ _\\˥Z ɦUR ͦU?R ΦU)[T-ϥ\\\\_!_!\nC\"T!o@\n\"AA@!A@Q*" [truncate 12.368499999999999 date month day year 31 day-of-year 2 4 23 10 0 100 400 366.0 -1900 index lunar-phase phase calendar-date-compare calendar-date-equal lunar-phase-name " "] 8 (#$ . 5249)]) #@52 Astronomical (Julian) day number of K th new moon. (defalias 'lunar-new-moon-time #[(k) "_\n_\n_ __\\ _\\\f_\\ _\\ \n_Z _Z_\\ _\\\f_\\_\\ _\\\f_\\ _\\_\\ _\\\f_\\ _\\ _\\ _\\\f_\\%_\\ _\\)_\\,_\\/_\\2_\\5_\\8_\\;_\\>@_\\ABC_\\DEF_\\GHI_\\JKL_\\MNO_\\PQR!_S_R!_\\TR\\!_\\UR \\!_\\V_RZ!_\\W_R\\!_\\X__R\\!_\\YR \\Z!_\\ZR \\\\!_\\[_R\\\\!_\\\\R]_!_\\^_R \\\\!_\\__R \\Z!_\\`_R\\Z!_\\aR%!_\\bR\\\\!_\\cR\\ \\Z!_\\dR]_!_\\eR\\ f_\\!_\\gR\\ \\\\!_\\hR\\ \\\\!_\\iRZ f_Z!_\\jRZ \\Z!_\\kR]_\\!_\\lRm_!_\\noR)!_pR,!_\\qR/!_\\rR2!_\\sR5!_\\tR8!_\\uR;!_\\vR>!_\\wRA!_\\xRD!_\\yRG!_\\zRJ!_\\{RM!_\\|RP!_\\} n\\}\\~~!!!AA@)![\\\\." [k 1236.8499999999999 T T2 T3 T4 2451550.0976499999 29.530588853000001 .00013369999999999997 -1.5e-007 7.2999999999999972e-010 JDE 1 .0025160000000000005 7.4000000000000012e-006 E 2.5533999999999999 29.105356690000001 -2.1800000000000002e-005 -1.0999999999999999e-007 sun-anomaly 201.5643 385.81693528 .010743799999999999 1.2390000000000001e-005 -5.7999999999999998e-008 moon-anomaly 160.71080000000001 390.67050274000002 -.0016341000000000001 -2.2699999999999996e-006 1.0999999999999999e-008 moon-argument 124.77460000000001 -1.5637558 .0020691000000000002 2.1499999999999995e-006 omega 299.76999999999998 .10740799999999999 -.009173 A1 251.88 .016320999999999999 A2 251.83000000000001 26.641886 A3 349.42000000000002 36.412478 A4 84.659999999999997 18.206239 A5 141.74000000000001 53.303770999999998 A6 207.13999999999999 2.453732 A7 154.84 7.3068600000000004 A8 34.520000000000003 27.261239 A9 207.19 .121824 A10 291.33999999999997 1.844379 A11 161.72 24.198153999999999 A12 239.56 25.513099 A13 331.55000000000001 3.5925180000000001 A14 -.40720000000000001 solar-sin-degrees .17241 .016080000000000001 .010389999999999999 .0073899999999999988 -.0051399999999999988 .0020800000000000001 -.0011100000000000001 -.00057000000000000011 .00055999999999999996 -.00042000000000000011 3 .00042000000000000011 .00038000000000000007 -.00023999999999999999 -.00017000000000000002 -7e-005 4e-005 4e-005 3e-005 -2 3e-005 -3e-005 3e-005 -2e-005 -2e-005 2e-005 4 correction .000325 .00016500000000000002 .00016399999999999997 .000126 .00011000000000000001 6.2000000000000002e-005 6e-005 5.5999999999999996e-005 4.6999999999999993e-005 4.1999999999999993e-005 4e-005 3.7000000000000006e-005 3.5e-005 2.2999999999999998e-005 additional newJDE solar-ephemeris-correction calendar-gregorian-from-absolute floor calendar-absolute-from-astro date calendar-time-zone 60.0 24.0] 7 (#$ . 5692)]) #@440 Astronomical (Julian) day number of first new moon on or after astronomical (Julian) day number d. The fractional part is the time of day. The date and time are local time, including any daylight savings 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) " !!!AA@)\f@)\fA@)\fAA@) S_\\ Vh _\\ͥZ ˦U_ϦU?_ЦU)h T  -ѥ\\Z_!! WT!\f!!Z_!!\f\"@AA@)S\f@)\fA@)\fAA@) S_\\ V _\\ͥZ ˦UϦU?ЦU) T  -_\\˥\\ϥ[\\Х\\*A@ߥ\\!." [calendar-gregorian-from-absolute floor calendar-absolute-from-astro d date month day year 31 day-of-year 2 4 23 10 0 100 400 365.25 2000.0 12.368499999999999 k lunar-new-moon-time a-date truncate 24 time dst-adjust-time adj calendar-astro-from-absolute prior-years 365 24.0] 7 (#$ . 8641)]) (provide (quote lunar))