anchor.diff:  (defun update-player(void (data (ptr void)))
     (while true
       (unless (vec2-eq player-pos new-pos)
  -      (print "ok")
         (let ((x (cast (member new-pos x) i64))
   	    (y (cast (member new-pos y) i64)))
         
  
positive.code:     (let ((col 0) (row 0)
  	  (offset (deref (ptr+ offsets (cast arg i64)))))
        (while true
  	(for ci 0 (< ci 25) (+ ci 1)
  	     (for ri 0 (< ri 25) (+ ri 1)
  		  (setf col (+ ci (cast (member offset x) i64)))
  		  (setf row (+ ri (cast (member offset y) i64)))
  		  (update-cell col row)
  		  (unless (eq (i64% (rand) 3) 0)
  		    (ccwait 0.1))))
  	))))
  
  (ccthread cc  (deref tileupdater) null)
  (for it 0 (< it 200) (+ it 1) (ccstep cc))
  (ccthread cc  (deref tileupdater) (cast 1 (ptr void)))
  (for it 0 (< it 200) (+ it 1) (ccstep cc))
  (ccthread cc  (deref tileupdater) (cast 2 (ptr void)))
  (for it 0 (< it 200) (+ it 1) (ccstep cc))
  (ccthread cc  (deref tileupdater) (cast 3 (ptr void)))
  (for it 0 (< it 200) (+ it 1) (ccstep cc))
  (ccthread cc  (deref tileupdater) (cast 4 (ptr void)))
  (for it 0 (< it 200) (+ it 1) (ccstep cc))
  (ccthread cc  (deref tileupdater) (cast 5 (ptr void)))
  (for it 0 (< it 200) (+ it 1) (ccstep cc))
  (ccthread cc  (deref tileupdater) (cast 6 (ptr void)))
  
  (while (< iteration 4000)
  
    (gl:uniform cam-size-loc cam-size)
    (gl:uniform cam-loc cam-pos)
  
negative.code: 	  (let ((tile (get-tile x y)))
  	    
  	    (unless (eq (deref tile) 0)
  	      (setf player-pos new-pos)
  	      (setf (deref tile) 0)))))
        (setf new-pos player-pos))
      (ccyield)))
  
  