 (defvar evolution-animals
   (list (make-animal :x      (ash evolution-width -1)
                      :y      (ash evolution-height -1)
-                     :energy 1000
+                     :energy 400
                      :dir    0
                      :genes  (loop repeat 8
                                    collecting (1+ (random 10))))))


(define-derived-mode evolution-mode
  special-mode "Evolution"
  "Major mode for doing evolution.
\\{evolution-mode-map}"
  :group "Evolution"
  (define-key evolution-mode-map (kbd "SPC") 'evolution-start))

;;;; insert colored and/or bright text
(defun insert-colored-text (str clr bright)

(defvar evolution-width 80)
(defvar evolution-height 30)
(defvar evolution-jungle-rectangle '(45 10 10 10))
(defvar evolution-plant-energy 20)

(defvar evolution-plants (make-hash-table :test #'equal))

