316 |
(if (not (and rise-time set-time)) |
(if (not (and rise-time set-time)) |
317 |
(if (or (and (> latitude 0) solar-spring-or-summer-season) |
(if (or (and (> latitude 0) solar-spring-or-summer-season) |
318 |
(and (< latitude 0) (not solar-spring-or-summer-season))) |
(and (< latitude 0) (not solar-spring-or-summer-season))) |
319 |
(setq day-length 24) |
(setq day-length 0) |
320 |
(setq day-length 0)) |
(setq day-length 24)) |
321 |
(setq day-length (- set-time rise-time))) |
(setq day-length (- set-time rise-time))) |
322 |
(list (if rise-time (+ rise-time (/ calendar-time-zone 60.0)) nil) |
(list (if rise-time (+ rise-time (/ calendar-time-zone 60.0)) nil) |
323 |
(if set-time (+ set-time (/ calendar-time-zone 60.0)) nil) |
(if set-time (+ set-time (/ calendar-time-zone 60.0)) nil) |