anchor.diff:  	(sdl2:with-gl-context (gl-context win)
   	  ;; INIT code:
   	  (init)
  -	  
   	  ;; TODO: callback for reshape; for now used to setup cam-to-clip-space matrix
   	  (reshape 500.0 500.0)
   	  (sdl2:with-event-loop (:method :poll)
   	    (:mousewheel
  -	     (:y y) ; stores the vertical mousewheel motion
  +	     (:y y)			; stores the vertical mousewheel motion
   
   	     ;; zoom in/out
   	     (when (= y 1)
  
positive.code: 
  (defvar *white-diffuse-color*)
  (defvar *vertex-diffuse-color*)
  
  
  (defconstant +projection-block-index+ 2)
  
  
negative.code: 		 (:camera-relative (setf (glutil::trans-relative-to *view-pole*)
  					 :1st-person))))
  
  	     (when (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-space)
  	       (if *draw-colored-cyl*
  		   (setf *draw-colored-cyl* NIL)
  