Mercurial > emacs
comparison lisp/calendar/lunar.el @ 7777:c48a233494e1
(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") |