anchor.diff:                            (pal:v (+ x 18) y)
                             (pal:v (+ x 18) (+ y 18))
                             (pal:v x (+ y 18)))
  -                    r g b                                  
  +                    r g b
                       255))
   
   
  
positive.code:       (with-slots (matrix phantoms pacman) game
          (pal:event-loop ()
            (case state
              
              (:ready
               (pal:test-keys            
                 ;;(:key-a (display-about))
                 (:key-s (setf state :playing))
                 (:key-q (return-from pal:event-loop))))
            
              (:paused
               (pal:test-keys
                 (:key-p (setf state :playing))
                 (:key-q (return-from pal:event-loop))))
            
              (:playing
               (pal:test-keys
                 (:key-p (setf state :paused))
  
negative.code: ;;;; Purpose:       A Pacman game.
  ;;;; Programmer:    Nicolas Lamirault <nicolas.lamirault@gmail.com>
  ;;;;
  ;;;; This file, part of clacman, is Copyright (c) 2007, 2015 by Nicolas Lamirault
  ;;;;
  ;;;; clacman users are granted the rights to distribute and use this software
  ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  