anchor.diff:  ;; 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
  
positive.code:                                             (* random-start 
                                                 random-decay 
                                                 x)
                                              terrain)))))
      terrain))
  
  
  
negative.code:   ;;setup data 
    
    (destructuring-bind (verts indicies) 
        (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))
  