anchor.diff:                              (* scale top)
                               near
                               far)))
  -        (gl:load-matrix proj)))))
  -
  -;; ----------------------------------------------------------------------------
  -(defun model-view (mat eye)
  -  "Uses the matrix to set the model-view matris"
  -  (gl:matrix-mode :modelview) ; view
  +        (gl:load-matrix (sb-cga:matrix* proj Eye<-VWorld)))))
     (cond ((eq eye :right) (gl:draw-buffer :back-right))
  -        (t (gl:draw-buffer :back-left)))
  -  (gl:load-identity)
  -  (gl:mult-matrix mat))
  +        (t (gl:draw-buffer :back-left))))
   
   ;; -----------------------------------------------------------------------scene
  -(defmethod run ((self Scene))
  -  (with-slots (backgrounds navigationInfos viewpoints shapes transforms device) self
  -    (with-slots (screen head 2d-mouse) device
  +(defmethod run((self Scene))
  +  (with-slots (backgrounds navigationInfos viewpoints shapes transforms) self
       (let ((BACKGROUND (if (first backgrounds)
                             (first backgrounds)
                             (make-instance 'Background)))
  
positive.code:                          (first viewpoints)
                           (make-instance 'Viewpoint))))
        (run BACKGROUND)
        (let* ((width (width screen))
               (height (height screen))
               (ipd (iod head))
  
negative.code:         (if is-stereo
              (progn
                ;; Left pass
                (projection AlignedEyeLeft<-Screen
                            AlignedEyeLeft<-VWorld
                            width height
                            :eye :left)
                (run *SCENE*)
  
                ;; Right pass
                (projection AlignedEyeRight<-Screen
                            AlignedEyeRight<-VWorld
                            width height
                            :eye :right)
                (run *SCENE*))
              (progn                      ; No stereo (Center Eye)
                (projection AlignedEyeCenter<-Screen
                            AlignedEyeCenter<-VWorld
                            width height
                            :eye :center)
                (run *SCENE*)))))))
  
  ;; ---------------------------------------------------------------------grouping
  (defmethod run ((self Transform))
  