Mercurial > emacs
comparison lisp/calendar/solar.el @ 40935:c991c9834a24
(solar-sunrise-and-sunset): Exchange the two extreme values of day-length.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 11 Nov 2001 20:14:47 +0000 |
| parents | 7a94f1c588c4 |
| children | be541feb06cc |
comparison
equal
deleted
inserted
replaced
| 40934:79d4aae20aa3 | 40935:c991c9834a24 |
|---|---|
| 314 (set-time (solar-moment 1 latitude longitude time)) | 314 (set-time (solar-moment 1 latitude longitude time)) |
| 315 (day-length)) | 315 (day-length)) |
| 316 (if (not (and rise-time set-time)) | 316 (if (not (and rise-time set-time)) |
| 317 (if (or (and (> latitude 0) solar-spring-or-summer-season) | 317 (if (or (and (> latitude 0) solar-spring-or-summer-season) |
| 318 (and (< latitude 0) (not solar-spring-or-summer-season))) | 318 (and (< latitude 0) (not solar-spring-or-summer-season))) |
| 319 (setq day-length 24) | 319 (setq day-length 0) |
| 320 (setq day-length 0)) | 320 (setq day-length 24)) |
| 321 (setq day-length (- set-time rise-time))) | 321 (setq day-length (- set-time rise-time))) |
| 322 (list (if rise-time (+ rise-time (/ calendar-time-zone 60.0)) nil) | 322 (list (if rise-time (+ rise-time (/ calendar-time-zone 60.0)) nil) |
| 323 (if set-time (+ set-time (/ calendar-time-zone 60.0)) nil) | 323 (if set-time (+ set-time (/ calendar-time-zone 60.0)) nil) |
| 324 day-length))) | 324 day-length))) |
| 325 | 325 |