anchor.diff:  (defvar game-tex (fs-blit:load-image backbuf gl:clamp-to-border))
   
   (defvar it-pos player-pos)
  +(defvar last-upper (make-point 1000 1000))
  +(defvar last-lower (make-point -1000 -1000))
  +(defvar last-lower-id enemy-cnt)
  +(defvar last-upper-id (+ 1 enemy-cnt))
  +(add-to-list+ enemy-pos enemy-cnt last-upper)
  +(add-to-list+ enemy-pos enemy-cnt last-lower)
   (defun run-game
       (let ((iteration 0)
   	  (w (cast (member backbuf width) f64))
  
positive.code:       (range iteration 0 10000
  	
  
  	(game-it)
  
  	(let ((cpos (deref (lookup-point (vec2-to-point player-pos) lv))))
  	  (when (or (eq cpos gameid:enemy) 
  		    (eq cpos gameid:wall))
  
negative.code:       (dealloc (cast buf (ptr void))))))
  
  
  (defvar lv (im:load-image "level3.png"))
  
  ;(defvar lv2 (im:load-image "level1.png"))
  (defvar backbuf (im:make 200 200 1))
  