anchor.diff:              (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)
  +                (handle-input frame_time)
   )
   
   (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:render-loop)
   
   (ogre:release-engine)
   
  
positive.code: #! /usr/local/bin/lisp-script
  (require 'ogre)
  
  (defparameter *windowhandle* nil)
  
negative.code: (defparameter *mouse* nil)
  (defparameter *keyboard* nil)
  (defparameter *timer* 0)
  (defparameter *use-mouse* T)
  
  
  (ogre:create-root "plugins.cfg" "ogre.cfg" "ogre.log")
  