anchor.diff:      (init)
       (setf *init-done* t))
   
  -  
  +
     (let ((now (get-internal-real-time)))
       (when (> now
                (+ *last-idle*
  
positive.code: 
  (defmethod glut:special ((w storm-window) key x y)
     (handle-key key x y))
    
  
  (defmethod glut:keyboard ((w storm-window) key x y)
    (handle-key key x y))
  
negative.code:                *fps-counter*))
        (setf *fps-counter* 0)
        (setf *last-fps-time* now)
  
  
        (glut:post-redisplay))))
  
  (defparameter *before-cursor* "")
  