anchor.diff:      (gl:translate (vec2-x pos) (vec2-y pos) 0.0)
       (gl:color 0.5 0.2 0.3)
       (gl:with-primitive :polygon
  -      (loop for x from 0 to 360 by 5
  +      (loop for x from 0 upto 360 by 5
   	 do (gl:vertex (* *snake-piece-half-size* (cos x))
   		       (* *snake-piece-half-size* (sin x)))))
       ;; Leaves
  
positive.code:       (gl:vertex (- *snake-piece-half-size*)  (- *snake-piece-half-size*))
        (gl:vertex 0.0 (- *snake-piece-half-size*))
        ;; Right arc
        (loop for x from -90 to 90 by 5
  	 do (gl:vertex (* *snake-piece-half-size* (cos x))
  		       (* *snake-piece-half-size* (sin x)))))
      ;; Eyes
  
negative.code:   (setf *last-fps-message-time* (sdl2:get-ticks))
    (setf *random-state* (make-random-state t))
  
    ;; Init game controllers
    (loop for i from 0 upto (- (sdl2:joystick-count) 1)
       do (when (sdl2:game-controller-p i)
  	  (format t "Found gamepad: ~a~%"
  		  (sdl2:game-controller-name-for-index i))
  	  ;; Will only be fetching the controllers.
  	  ;; Won't get joysticks because haptic systems
  	  ;; are not important right now
  	  (let ((controller (sdl2:game-controller-open i)))
  	    (setf *game-controllers* (acons i controller *game-controllers*)))))
    
    ;; Init snake
    (init-snake *snake*))
  
  