anchor.diff:      (p2dglu:translate2 position)
       (p2dglu:color4 color)
       (p2dglu:rotatez* orientation)
  -    (gl:scale 3 4 3)
  +    (gl:scale 4 6 4)
       (p2dglu:draw-triangle)))
   
   (defun draw-doodad (position orientation color)
  
positive.code: (defun make-default-player ()
    (make-instance 'player
                   :position (p2dm:make-vector-2d (/ p2d:*canvas-width* 2.0) (/ p2d:*canvas-height* 2.0))
                   :color (p2dg:make-color-4 1.0 0.0 0.0 1.0)))
  
  
  
negative.code: (defparameter +grazing-field-spawn-cooldown-max+ 14.0)
  (defparameter +max-simultaneous-food+ 20)
  
  (defparameter +sheep-house-color+ (p2dg:make-color-4 0.7 0.5 0 1))
  
  (defparameter +wolf-color+ (p2dg:make-color-4 0.0 0.0 0.0 1))
  (defparameter +wolf-size+ 3.0)
  (defparameter +wolf-eating-cooldown+ 3.0)
  (defparameter +wolf-eating-speed+ 1.0)
  