anchor.diff:  (defvar player-dir (vec 0 1))
   (defvar new-pos (vec 0 0))
   (defvar cam-pos (vec 0 50))
  -(defvar cam-size (vec 100 100))
  +(defvar cam-size (vec 50 50))
   (defvar circles (cast null (ptr vec3)))
   (defvar circle-cnt (cast 0 u64))
  +(add-to-list+ circles circle-cnt (vec 10 40 0.5))
  +(add-to-list+ circles circle-cnt (vec 10 40 1))
  +(add-to-list+ circles circle-cnt (vec 10 40 2))
  +(add-to-list+ circles circle-cnt (vec 10 40 3))
  +(add-to-list+ circles circle-cnt (vec 10 40 4))
  +(add-to-list+ circles circle-cnt (vec 10 40 5))
  +(add-to-list+ circles circle-cnt (vec 10 40 6))
  +(add-to-list+ circles circle-cnt (vec 10 40 7))
  +(add-to-list+ circles circle-cnt (vec 10 40 8))
  +(add-to-list+ circles circle-cnt (vec 10 40 9))
   (add-to-list+ circles circle-cnt (vec 10 40 10))
   (add-to-list+ circles circle-cnt (vec 10 50 20))
   (add-to-list+ circles circle-cnt (vec 10 60 30))
  
positive.code:   (vec2-length (- a b)))
  
  (let ((iteration 0)
        (speed 1.0))
    (while (< iteration 40000)
      (let ((ts (timestamp)))
        (let ((lastpt (deref (ptr+ points (cast (- points-cnt 1) i64)))))
  
negative.code: (load "gl-ext.lisp")
  
  (glfw:init)
  (defvar win (glfw:create-window 512 512 "Flowery!" null null))
  (glfw:make-current win)
  (defvar prog (gl:create-program))
  (defvar frag (gl:create-shader gl:fragment-shader))
  