Function: ps-format-color

ps-format-color is a byte-compiled function defined in ps-print.el.gz.

Signature

(ps-format-color COLOR &optional DEFAULT)

Source Code

;; Defined in /usr/src/emacs/lisp/ps-print.el.gz
(defun ps-format-color (color &optional default)
  (let ((the-color (if (stringp color)
		       (ps-color-scale color)
		     color)))
    (if (and the-color (listp the-color))
	(concat "["
		(format ps-color-format
			(* (nth 0 the-color) 1.0) ; force float number
			(* (nth 1 the-color) 1.0) ; force float number
			(* (nth 2 the-color) 1.0)) ; force float number
		"] ")
      (ps-float-format (if (numberp the-color) the-color default)))))