anchor.diff:                                     (make-point (x drag-end) (y *drag-start*)))
                                :scale-elements (/ *zoom* 100))
                 nil))))
  -                                                 
  +
   
   (defun initialize-state ()
     (setf *units* ()
           *ground-units* ()
           *entities* ()
           *independent-entities* ()
  -        *moving-entities* () 
  +        *moving-entities* ()
           *thinking-entities* ()
           *buildings* ()
           *gui-things* ()
  
positive.code:   (setf *aspect-ratio* (/ width height)
  	*viewport-size* (make-point width height))
    (set-projection))
    
  
  (defmethod glut:display ((w storm-window))
   ; (format t ".")
  
negative.code:     (incf *fps-counter*))
    (glut:swap-buffers))
  
  
  (defmethod glut:idle ((w storm-window))
                                          ;(gl:use-program *program*)
                                          ;TODO
  