anchor.diff:      (gl:clear-color 0.0 0.0 0.2 1)
       (gl:clear-depth 1.0)
       (gl:clear :color-buffer-bit :depth-buffer-bit)
  -
       (draw))
   
   (defparameter *fz-near* 1.0)
  
positive.code: 
  (defvar *white-diffuse-color*)
  (defvar *vertex-diffuse-color*)
  
  
  (defconstant +projection-block-index+ 2)
  
  
negative.code: 	(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
  
  	     ;; zoom in/out
  	     (when (= y 1)
  