;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:45:22 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/lunar.el ;;; emacs version 19.28.90.26. ;;; 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"))) (error "`/gd/gnu/emacs/19.0/lisp/lunar.el' was compiled for Emacs 19")) (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 date day 31 day-of-year 23 10 366.0 -1900 12.368499999999999 index lunar-phase new-moon nil list calendar-date-compare append] 7 (#$ . 637)]) #@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- _ ¥ ӥ[ ԥ\\\\\\\\* _________\\\\_!)_\\\\\\\\\\ ______\\\\\\\"& ______\\\\\\\", ______\\\\\\\"2 >_Z&_!)_&\\_!)_,_!)_,\\_!)_,__!)_2\\_!)_&,\\_!)_&,Z_!)_2\\&\\_!)_2\\&Z_!)_2\\,\\_!)@_2\\,Z_!)A_,\\&\\_!)B_\\\\\\\\\\\\\\\\\\\\\\\\/CD_Z&_!)_&\\_!)E_,_!)F_,\\_!)G_,__!)H_2\\_!)I_&,\\_!)J_&,Z_!)K_2\\&\\_!)L_2\\&Z_!)M_2\\,\\_!)N_2\\,Z_!)O_,\\&\\_!)P_&,\\Z_!)Q_&\\,\\_!)R_\\\\\\\\\\\\\\\\\\\\\\\\\\\\S&TU_!)V_,TU_!)W_X\\\\Y ZUnSY\\~ U|SYZ~SSS\\[\\]^!!AA@)!Z_\\^!Z`_]^!!a\"Y@bcYA\" E." [mod index 4 phase 4.0 1236.8499999999999 time (1 0.5 1900) date prior-years month day year 31 day-of-year 2 23 10 0 100 400 365 29.530588680000001 0.0001178 -1.55e-07 132.87 -0.0091730000000000000 166.56 x sin 0.017453292519943280 0.00033 0.75932999999999995 29.105356 -3.3300000000000003e-05 -3.4699999999999998e-06 359.2242 360.0 sun-anomaly 385.81691805999998 0.0107306 1.236e-05 306.02530000000002 360.0 moon-anomaly 390.67050646000001 -0.0016528000000000000 -2.39e-06 21.296399999999998 360.0 moon-lat (0 2) 0.1734 0.00039300000000000000 0.0020999999999999900 -0.40679999999999999 0.0161 3 -0.00040000000000000000 0.0104 -0.0051000000000000000 -0.0074000000000000000 0.00040000000000000000 -0.00040000000000000000 -0.00059999999999999000 0.001 0.00050000000000000000 0.1721 0.00040000000000000000 0.0020999999999999900 -0.628 0.0088999999999999900 -0.00040000000000000000 0.0079000000000000000 -0.011900000000000000 -0.0047000000000000000 0.00029999999999999000 -0.00040000000000000000 -0.00059999999999999000 0.0020999999999999900 0.00029999999999999000 0.00040000000000000000 -0.00029999999999999000 adjustment cos 0.017453292519943280 -0.00040000000000000000 0.00029999999999999000 0.0028 adj 1 calendar-time-zone solar-ephemeris-correction calendar-gregorian-from-absolute truncate 1440.0 24 solar-adj-time-for-dst apply solar-time-string] 18 (#$ . 1351)]) #@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 (#$ . 4053)]) #@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ȥ)\f!q\fUW! !\f$d! !\f%! \"#ceb!\f!!," [message "Computing phases of the moon..." displayed-month displayed-year y2 m2 y1 m1 12 -2 macro-y 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 (#$ . 4315) 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 (#$ . 5135) "P"]) #@26 Moon phases diary entry. (defalias 'diary-phases-of-moon #[nil " AA@) @) A@) AA@) \nS_\\\nVZ\n_\\ʥZ\fȦUQ\f̦U?Q\fͦU)ZT-Υ\\\\_!_! C\"T!o@ \"AA@!A@Q*" [truncate date month day year 31 day-of-year 2 4 23 10 0 100 400 366.0 -1900 12.368499999999999 index lunar-phase phase calendar-date-compare calendar-date-equal lunar-phase-name " "] 7 (#$ . 5559)]) (provide (quote lunar))