anchor.diff:  
   (defmethod action ((instance game))
     (with-slots (scanner score state time belt level) instance
  +    (setf state :running)
       (let ((scan (scan scanner))
   	  (select (selection scanner)))
         (if (and (eql (first scan) (first select))
  
positive.code:      ,(hex-to-color "#c3423f")
       ,(hex-to-color "#404e4d")))
  
  (defparameter *font-face* (load-resource (sketch::relative-path "HKGrotesk-Regular.otf" 'qelt)))
  
  (defun color (idx)
    (aref *palette* (mod idx (array-dimension *palette* 0))))
  
negative.code: 	(:initial
  	 (when (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-space)
  	   (start game)))
  	((:starting :running)
  	 (cond ((sdl2:scancode= (sdl2:scancode-value keysym) :scancode-d) (move color-ring -1))
  	       ((sdl2:scancode= (sdl2:scancode-value keysym) :scancode-f) (move color-ring 1))
  	       ((sdl2:scancode= (sdl2:scancode-value keysym) :scancode-j) (move shape-ring -1))
  