Mercurial > emacs

comparison lisp/calendar/lunar.el @ 7777:c48a233494e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lunar-phase): Revised to use the rewritten and new fcns.
author Edward M. Reingold <reingold@emr.cs.iit.edu>
date Fri, 03 Jun 1994 20:25:44 +0000
parents 4edcac57a8f2
children d62e29b1d7a2
comparison
equal deleted inserted replaced
7776:f91e2cf8770b 7777:c48a233494e1
164 (extract-calendar-year 164 (extract-calendar-year
165 (calendar-gregorian-from-absolute 165 (calendar-gregorian-from-absolute
166 (truncate date))))) 166 (truncate date)))))
167 60.0 24.0))) 167 60.0 24.0)))
168 (time (* 24 (- date (truncate date)))) 168 (time (* 24 (- date (truncate date))))
169 (date (calendar-gregorian-from-absolute (truncate date)))) 169 (date (calendar-gregorian-from-absolute (truncate date)))
170 (list date (solar-time-string time date) phase))) 170 (adj (solar-adj-time-for-dst date time)))
171 (list (car adj) (apply 'solar-time-string (cdr adj)) phase)))
171 172
172 (defun lunar-phase-name (phase) 173 (defun lunar-phase-name (phase)
173 "Name of lunar PHASE. 174 "Name of lunar PHASE.
174 0 = new moon, 1 = first quarter, 2 = full moon, 3 = last quarter." 175 0 = new moon, 1 = first quarter, 2 = full moon, 3 = last quarter."
175 (cond ((= 0 phase) "New Moon") 176 (cond ((= 0 phase) "New Moon")