%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/ |
Current File : //usr/local/share/emacs/27.2/lisp/color.elc |
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\204 \302\303\304\305!_!\210\300\207" [boundp float-pi (lambda (#1=#:def-tmp-var) (defconst float-pi #1# "The value of Pi (3.1415926...).")) 4 atan 1] 4) #@484 Convert COLOR string to a list of normalized RGB components. COLOR should be a color name (e.g. "white") or an RGB triplet string (e.g. "#ffff1122eecc"). Normally the return value is a list of three floating-point numbers, (RED GREEN BLUE), each between 0.0 and 1.0 inclusive. Optional argument FRAME specifies the frame where the color is to be displayed. If FRAME is omitted or nil, use the selected frame. If FRAME cannot display COLOR, return nil. (fn COLOR &optional FRAME) (defalias 'color-name-to-rgb #[513 "\300\301\302!@!\303\304\305\306\307\310!\311\"\312\313%\301\"\"\207" [float color-values "#ffffffffffff" mapcar make-byte-code 257 "\211\300\245\207" vconcat vector [] 3 "\n\n(fn X)"] 10 (#$ . 585)]) #@337 Return hexadecimal #RGB notation for the color specified by RED GREEN BLUE. RED, GREEN, and BLUE should be numbers between 0.0 and 1.0, inclusive. Optional argument DIGITS-PER-COMPONENT can be either 4 (the default) or 2; use the latter if you need a 24-bit specification of a color. (fn RED GREEN BLUE &optional DIGITS-PER-COMPONENT) (defalias 'color-rgb-to-hex #[1027 "\211\204 \300\262\211\301U\203 \302\202 \303\301U\203 \304\202 \305\306___$\207" [4 2 255 65535 "#%02x%02x%02x" "#%04x%04x%04x" format] 12 (#$ . 1315)]) #@206 Return the color that is the complement of COLOR-NAME. COLOR-NAME should be a string naming a color (e.g. "white"), or a string specifying a color's RGB components (e.g. "#ffff1212ecec"). (fn COLOR-NAME) (defalias 'color-complement #[257 "\300!\301@Z\302A@Z\303\3048ZE\207" [color-name-to-rgb 1.0 1.0 1.0 2] 7 (#$ . 1865)]) #@235 Return a list with STEP-NUMBER colors from START to STOP. The color list builds a color gradient starting at color START to color STOP. It does not include the START and STOP color in the resulting list. (fn START STOP STEP-NUMBER) (defalias 'color-gradient #[771 "@A@\3008\301T!@Z\245A@Z\245\3008Z\245\302\303\211W\203R \211\n\\\211\262\f\n\\\211\262\f\n\\\211\262\fEB\262\210\211T\262\202&