anchor.diff:  		 (when (pt-rect-collision r (deref (+ points (cast (- points-cnt 1) i64))))
   		   (gl:clear-color 1.0 0.0 0.0 0.0)
   		   (setf alive false)
  -		   ))))
  +		   )))
  +	
  +	)
   
         (gl:bind-buffer gl:array-buffer vbo)
         (gl:vertex-attrib-pointer 0 2 gl:float gl:false 0 null) 
  
positive.code:     (add-to-list+ circles circle-cnt (vec -10 30 10))
      (add-to-list+ circles circle-cnt (vec 20 30 10))
      (add-to-list+ circles circle-cnt (vec -10 40 8.5))
      (load-boxes)
      (gl:clear-color 0.8 0.8 1.0  1.0 )
      (clear-list+ points points-cnt)
      (add-to-list+ points points-cnt (vec 0 0))
      (add-to-list+ points points-cnt (vec 0 10.0))
  
      (load-points)
      ))
  
  
negative.code: (defun start-repl
      (repl))
  
  (defun close-callback (void (win (ptr void)))
    (exit 0))
  
  (glfw:set-window-close-callback win close-callback)  
  
  (defun run-game
  (let ((iteration 0)
        (height (cast 0.0 f64))
        (alive true)
  
        (dead-timer 0))
    (while (< iteration 40000)
      (gl:use-program prog)
  