anchor.diff:                                      :owner *gui-owner*
                                       :units (copy-seq *selected-entities*))
                         pos)))
  -                                    
  -    
  +
  +
   
   
   (defun selection-box (start end)
  
positive.code:                                    (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* () 
          *thinking-entities* ()
          *buildings* ()
          *gui-things* ()
  
negative.code:                                         ;   (gl:use-program shader)
                                          ;   (gl:uniformi (gl:get-uniform-location shader "TIME_FROM_INIT") *gl-ticks*)
                                          ;   (gl:use-program *current-shader*))
  
  
    (when (not *textures-done*)
      (generate-textures)
  