Function: pong-display-options

pong-display-options is a byte-compiled function defined in pong.el.gz.

Signature

(pong-display-options)

Documentation

Computes display options (required by gamegrid for colors).

Source Code

;; Defined in /usr/src/emacs/lisp/play/pong.el.gz
;;; Fun stuff -- The code

(defun pong-display-options ()
  "Computes display options (required by gamegrid for colors)."
  (let ((options (make-vector 256 nil)))
    (dotimes (c 256)
      (aset options c
            (cond ((= c pong-blank)
                   pong-blank-options)
                  ((= c pong-bat)
                   pong-bat-options)
                  ((= c pong-ball)
                   pong-ball-options)
                  ((= c pong-border)
                   pong-border-options)
                  (t
                   '(nil nil nil)))))
    options))