anchor.diff:        (%gl:uniform-4f (base-color-unif *uniform-color-tint*) 0.0 1.0 0.0 1.0)
         (framework:render *cone-mesh*)))
   
  -(defparameter *tree-data*
  +(defvar *tree-data*
     '((-45.0 -40.0 2.0 3.0)
       (-42.0 -35.0 2.0 3.0) 
       (-39.0 -29.0 2.0 4.0) 
  
positive.code:      do
         (glutil:with-transform (matrix-stack)
  	   :translate fx-pos 0.0 fz-pos
  	   (draw-tree matrix-stack trunk-height cone-height)))  )
  
  
  (defparameter *look-pt* (glm:vec3 0.0 0.0 0.0)) ; look at actual vertex of drawn object
  (defparameter *cam-pt* (glm:vec3 0.0 0.0 1.0))
  (defparameter *draw-look-at-point* nil)
  
  (defun draw ()
    (let ((cam-pos (resolve-cam-position))
  	(cam-matrix (make-instance 'glutil:matrix-stack))
  	(model-matrix (make-instance 'glutil:matrix-stack)))
  
negative.code:     ;;Draw the trees:
      (draw-forest model-matrix)
  
      ;;draw building
      (glutil:with-transform (model-matrix)
  	:translate 20.0 0.0 -10.0
  	(draw-parthenon model-matrix))
      ))
  
  
  