 ; Pang - screen shaker.
 ; Copyright 2001 by Rocket Software Ltd.
 ; No, it doesn't bother me at all.
 (DEFUN C:PANG (/ pa rad)
  (setq rad (/ (getvar "viewsize") 100))
  (setq pa '(0 0))
  (command ".pan" pa (polar pa 0 rad))
  (command ".pan" pa (polar pa pi (* 2 rad)))
  (command ".pan" pa (polar pa 0 rad))
  (command ".pan" pa (polar pa (/ pi 2) rad))
  (command ".pan" pa (polar pa (* pi 1.5) (* 2 rad)))
  (command ".pan" pa (polar pa (/ pi 2) rad))
 (princ))