anchor.diff:  	   (vector
   	    (sb-cga:matrix*
   	     (sb-cga:translate (vec3 0.0 0.0 -2.0))
  -	     (sb-cga:rotate (vec3 1.0 0.0 0.0))
  +	     (sb-cga:rotate (vec3 *rotate-x* 0.0 0.0))
   	     (sb-cga:rotate (vec3 0.0 (mod (/ (sdl2:get-ticks) 5000.0) (* 2 3.14159)) 0.0)))))
   
       (uniform :mat :perspective-matrix
  
positive.code:      0.5 0.5 -0.5			;4
       0.5 -0.5 -0.5			;5
       -0.5 -0.5 -0.5			;6
       -0.5 0.5 -0.5)))			;7
  
  (defvar *cube-indices*
    (cffi:foreign-alloc
  
negative.code: 
  (defmethod mousewheel-event ((window test-window) ts x y)
    (with-slots (rotation) window
      (incf *rotate-x* 0.2)
      (print (list x y))
      (render window))
    ;; (format t "Mousewheel-event issued ts:~a x:~x y:~y" ts x y)
    )
  