Emacs上でポリゴンショックします。

polygon-shock.el

(defvar polygon-flag nil)

(defun polygon-shock ()
 (interactive)
 (cond 
  (polygon-flag
   (custom-set-faces
    '(default ((t (:background "red" :foreground "white")))))
   (setq polygon-flag nil))
  (t
   (custom-set-faces
    '(default ((t (:background "blue" :foreground "white")))))
   (setq polygon-flag t))))

(defun polygon-shock-start ()
 (interactive)
 (setq polygon-process (run-with-timer t 0.1 'polygon-shock))
 (setq polygon-shock-mode t)
 (global-set-key "\C-g" 'polygon-shock-stop))

(defun polygon-shock-stop ()
 (interactive)
 (cancel-timer polygon-process)
 (setq polygon-shock-mode nil)
 (global-set-key "\C-g" 'keyboard-quit)
 (custom-set-faces
  '(default ((t (:background "black" :foreground "white"))))))