;;; compiled by jimb@geech.gnu.ai.mit.edu on Sat May 15 21:58:55 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/lunar.el ;;; emacs version 19.5.19. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (byte-code "! !!!" [fboundp atan require lisp-float-type error "Lunar calculations impossible since floating point is unavailable." solar] 2) (defalias 'lunar-phase-list #[(month year) "   \" \\\\  \"T \")\n\" \\\\  \"T \") EC \n\"UR\n\"U[\n\"Ue Ueӂi SH\nEC  E@ EA@ EAA@S\"\\V\"\\\"Z \"U \"U \"UT,\"\\\\\"!\"!!#!\"!\"#!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 day 31 day-of-year 23 10 366.0 -1900 12.368499999999999162 index lunar-phase new-moon nil list calendar-date-compare append] 11 "\ List of lunar phases for three months starting with Gregorian MONTH, YEAR."]) (defalias 'lunar-phase #[(index) " \" \" \"        S\"\\ Vf \"\\\"Z \"UW \"Ua \"UfT, S\" S\" S\"[ S\"\\\\\\\\+ \"#$\"#\\\\!\"\\\\\\\\\\! \"#$\\\\\\\"( \"#$\\\\\\\". \"#$\\\\\\\"4 >\"Z(!\"(\\!!\".!\".\\!!\".\"!\"4\\!!\"(.\\!\"(.Z!\"4\\!(\\!@\"4\\!(Z!A\"4\\!.\\!B\"4\\!.Z!C\".\\!(\\!D\"\\\\\\\\\\\\\\\\\\\\\\\\΁EF\"Z(!\"(\\!!G\".!H\".\\!!I\".\"!J\"4\\!!K\"(.\\!L\"(.Z!M\"4\\!(\\!N\"4\\!(Z!O\"4\\!.\\!P\"4\\!.Z!Q\".\\!(\\!R\"(.\\!Z!S\"(\\!.\\!T\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\U΁V(!W\"΁V.!X\"Y\\\\Z UUZ\\ UUZZUU!U\\![\\]\\[^^[__[ [[`a!!!AA@ ^t_tb^!@b^!A@b^!AA@   b^!@ b^!A@ b^!AA@   S\"\\ V \"\\\"Z \"U \"U \"UT, S\" S\" S\"[ S\"\\\\\\\\+!Xt!b_!@b_!A@b_!AA@   b_!@ b_!A@ b_!AA@   S\"\\ VR \"\\\"Z \"UC \"UM \"URT, S\" S\" S\"[ S\"\\\\\\\\+Wc!cd[\\e\"āf !g\"[\\\\!!a!!Zh\"`a!!!![icj\\ia!klmknVknZkUnk\"oknY pqrlstkZd\"!\"ulsk\"kvbwx#! E." [% index 4 phase / 4.0 1236.8499999999999091 time 1 .5 1900 year day month * 31 day-of-year 2 23 10 0 100 400 365 29.530588680000001034 .00011779999999999999361 -1.55e-007 solar-sin-degrees 132.87000000000000455 -.0091730000000000000426 166.56000000000000227 .00033000000000000002665 .75932999999999992724 date solar-mod 29.105356000000000449 -3.3300000000000000711e-005 -3.4700000000000001954e-006 359.22419999999999618 360.0 sun-anomaly 385.81691805999997769 .010730599999999999028 1.2359999999999997655e-005 306.02530000000001564 360.0 moon-anomaly 390.67050646000001279 -.0016528000000000000469 -2.3899999999999996803e-006 21.296399999999998442 360.0 moon-lat (0 2) .17339999999999999858 .00039300000000000000711 .0020999999999999996447 -.40679999999999996163 .016100000000000001421 3 -.0004 .010400000000000000355 -.0050999999999999996447 -.0074000000000000012434 .0004 -.0004 -.00059999999999999982236 .001 .0005 .17210000000000000853 .0004 .0020999999999999996447 -.62800000000000002487 .0088999999999999985789 -.0004 .0079000000000000012434 -.011900000000000001776 -.0046999999999999992895 .00029999999999999991118 -.0004 -.00059999999999999982236 .0020999999999999996447 .00029999999999999991118 .0004 -.00029999999999999991118 adjustment solar-cosine-degrees -.0004 .00029999999999999991118 .0028000000000000003553 adj calendar-time-zone calendar-standard-time-zone-name "UT" calendar-daylight-savings-starts calendar-daylight-savings-ends calendar-gregorian-from-absolute truncate eval dst 60 1440.0 solar-ephemeris-correction 1440.0 24 time-zone calendar-daylight-time-zone-name 24-hours format "%d" 12 12-hours "pm" "am" am-pm "%02d" round minutes mapconcat calendar-time-display-form ""] 19 "\ 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-name #[(phase) "U‡UćUƇUȇ" [phase 0 "New Moon" 1 "First Quarter Moon" 2 "Full Moon" 3 "Last Quarter Moon"] 2 "\ Name of lunar PHASE. 0 = new moon, 1 = first quarter, 2 = full moon, 3 = last quarter."]) (defalias 'calendar-phases-of-moon #[nil "!\n \n  \" \\\\  \"T  \")\"\\  \"T \") !q !!%!  \"#ceb! !!-" [message "Computing phases of the moon..." displayed-month displayed-year "*Phases of Moon*" lunar-phases-buffer y2 m2 y1 m1 * 12 -2 macro-y % / get-buffer-create nil buffer-read-only calendar-set-mode-line format "Phases of the moon from %s, %d to %s, %d%%-" calendar-month-name erase-buffer mapconcat #[(x) "@A@AA@ ! !\n%+" [x phase time date concat calendar-date-string ": " lunar-phase-name " "] 6] lunar-phase-list "\n" set-buffer-modified-p t display-buffer "Computing phases of the moon...done"] 7 "\ Create a buffer with the lunar phases for the current calendar window." nil]) (defalias 'phases-of-moon #[(&optional arg) "  # \"\"$! !\"A% @ 9 AA@!#= AA@ -" [t completion-ignore-case calendar-current-date date arg assoc capitalize completing-read "Month name: " mapcar list append calendar-month-name-array nil calendar-make-alist displayed-month calendar-read "Year (>0): " (lambda (x) (> x 0)) int-to-string displayed-year calendar-phases-of-moon] 9 "\ 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." "P"]) (defalias 'diary-phases-of-moon #[nil "\nAA@\n@\nA@\nAA@ S\"\\ VU \"\\\"Z\"UF\"UP\"UUT,\"\\\\\"!\"!\nC\"T!j@\n\"AA@!A@Q*" [* truncate date / month day year 31 day-of-year 2 4 23 10 % 0 100 400 366.0 -1900 12.368499999999999162 index lunar-phase phase calendar-date-compare calendar-date-equal lunar-phase-name " "] 10 "\ Moon phases diary entry."]) (provide (quote lunar))