anchor.diff:    ;;setup data 
     
     (destructuring-bind (verts indicies) 
  -      (get-terrain-verts-and-indices (diamond-square :depth 5 
  -						     :random-start 2.0
  -						     :random-decay 0.9
  +      (get-terrain-verts-and-indices (diamond-square :depth 6
  +						     :random-start 50.0
  +						     :random-decay 0.54
   						     :corner-seed '(120.0 -130.0 0.0 50.0)) 20.0)
       (setf *vertex-data-list* verts)
       (setf *index-data-list* indicies))
  
positive.code:   `(,(/ r 255.0) ,(/ g 255.0) ,(/ b 255.0) 0.0))
  
  ;; (defun pick-color (height)
  ;;   (cond ((< height -0.0) (rgb 1.0 1.0 1.0))
  ;; 	((< height 7.0) (rgb 61.0 128.0 65.0))
  ;; 	(t (rgb 222.0 172.0 105.0))))
  
  (defun pick-color (x)
  
negative.code: ;; important to be left to magic!
  
  (in-package :cepl-examples)
  
  (setf *random-state* (make-random-state t))
  
  ;; Globals - Too damn many of them, but its in keeping with
  ;;           the tutorials online
  