;;; Data
(define stage-transition-times
- '(10 20 30 40 50))
- ;; (list (* 3600 24)
- ;; (* 3600 24 3)
- ;; (* 3600 24 10)
- ;; (* 3600 24 20)
- ;; (* 3600 24 30)))
+ ;; '(10 20 30 40 50)) ; for debugging
+ (list (* 3600 24)
+ (* 3600 24 3)
+ (* 3600 24 10)
+ (* 3600 24 20)
+ (* 3600 24 30)))
(define stages
'(seed seedling young mature flowering seed-bearing))