anchor.diff:      (intro/enter)))
   
   (defun defeat/draw ()
  +  ;; TODO draw a full-screen dark quad
     (p2dg:with-color (0 0 0 1)
       (p2dg::draw-text "You lose."
                        :font *default-mono-font*
  
positive.code:     (get-ready/enter)))
  
  (defun victory/draw ()
    (p2dg:with-color (0 0 0 1)
      (p2dg::draw-text "You win."
                       :font *default-mono-font*
  
negative.code:   (setf *screen-keyboard-handler* nil
          *screen-mouse-handler* nil
          *screen-update-handler* #'defeat/update
          *screen-render-handler* (lambda ()
                                    (main-game/draw)
                                    (defeat/draw))))
  
  (defun defeat/update (dt)
    (decf *screen-switch-countdown* dt)
  