anchor.diff:      (gl:bind-vertex-array vao)
       ;;VBO
       (gl:bind-buffer :array-buffer vbo)
  -    (%gl:buffer-data :array-buffer (* 24 4 3) *cube-data* :static-draw)
  +    ;;VBO - positions
  +    (%gl:buffer-data :array-buffer (* 24 4 3 2) *cube-data* :static-draw)
       (%gl:enable-vertex-attrib-array 0)
  -    ;;                           v-TODO this means 3 floats make up a vertex, right?
       (%gl:vertex-attrib-pointer 0 3 :float :false 0 0)
  +    ;;VBO - colors
  +    (%gl:buffer-sub-data :array-buffer (* 24 4 3) (* 24 4 3) *cube-colors*)
  +    (%gl:enable-vertex-attrib-array 1)
  +    (%gl:vertex-attrib-pointer 1 3 :float :false 0 0)
  +    
       ;;IBO
       (gl:bind-buffer :element-array-buffer ibo)
       (%gl:buffer-data :element-array-buffer (* 36 2) *cube-indices* :static-draw)
  
positive.code:   (gl:use-program 0))
  
  
  (defun draw-cube ()
    (gl:bind-vertex-array *vao*)
    (use-program *programs-dict* :basic-projection)
  
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)
    )
  