anchor.diff:  (defparameter *mouse* nil)
   (defparameter *keyboard* nil)
   (defparameter *timer* 0)
  +(defparameter *use-mouse* T)
   
   
   (ogre:create-root "plugins.cfg" "ogre.cfg" "ogre.log")
  
positive.code:             (z (* (sin *timer*) 100.0)))
                  (ogre:camera-set-position *camerahandle* x y z)
                  (ogre::camera-lookat *camerahandle* 0.0 0.0 0.0))
      (if (= (ogre:keyboard-is-key-down *keyboard* :+KC-ESCAPE+) 1) 0 1)
  )
  
  (ogre:add-frame-listener (cffi:callback framequeued) 2)
  
  ;;(ogre:render-loop)
  
  (loop
      (if (= (ogre:keyboard-is-key-down *keyboard* :+KC-ESCAPE+) 1) (return))
      (ogre:keyboard-capture *keyboard*)
      (ogre:pump-messages)
      (ogre:render-one-frame)
  )
  
  (ogre:release-engine)
  
  
negative.code: 
  (setq *keyboard* (ogre:create-keyboard-object 0))
  
  (if *use-mouse*
      (setq *mouse* (ogre:create-mouse-object 0)))
  
  
  (defun handle-input (frametime)
      (ogre:keyboard-capture *keyboard*)
      (if *use-mouse*
          (ogre:mouse-capture *mouse*))
      (if (= (ogre:keyboard-is-key-down *keyboard* :+KC-ESCAPE+) 1) 0 1))
  
  (cffi:defcallback framequeued :int
      ((evt_time :float)
  