Lines Matching +defs:color +defs:values
624 ;; `ebnf-terminal-border-color' Specify border color for terminal box.
643 ;; `ebnf-non-terminal-border-color' Specify border color for non-terminal
658 ;; `ebnf-special-border-color' Specify border color for special box.
669 ;; `ebnf-except-border-color' Specify border color for except box.
680 ;; `ebnf-repeat-border-color' Specify border color for repeat box.
688 ;; `ebnf-color-p' Non-nil means use color.
692 ;; `ebnf-line-color' Specify flow line color.
785 ;; variables and after use, set back the variables to the old values.
791 ;; values VALUES.
795 ;; `ebnf-merge-style' Merge values of style NAME with style VALUES.
1278 Valid values are:
1342 (defcustom ebnf-special-border-color "Black"
1343 "*Specify border color for special box."
1395 (defcustom ebnf-except-border-color "Black"
1396 "*Specify border color for except box."
1448 (defcustom ebnf-repeat-border-color "Black"
1449 "*Specify border color for repeat box."
1501 (defcustom ebnf-terminal-border-color "Black"
1502 "*Specify border color for terminal box."
1518 Valid values are:
1550 FOREGROUND is a foreground string color name; if it's nil, the default color is
1552 BACKGROUND is a background string color name; if it's nil, the default color is
1599 Valid values are:
1634 (defcustom ebnf-non-terminal-border-color "Black"
1635 "*Specify border color for non-terminal box."
1644 Valid values are:
1736 PostScript execution, *DON'T* modify the values of them. Instead, copy the
1737 values, if you need to modify them.
1751 Valid values are:
1900 ;; Printing color requires x-color-values.
1901 (defcustom ebnf-color-p (or (fboundp 'x-color-values) ; Emacs
1902 (fboundp 'color-instance-rgb-components)) ; XEmacs
1903 "*Non-nil means use color."
1916 (defcustom ebnf-line-color "Black"
1917 "*Specify flow line color."
2300 ebnf-special-border-color %S
2305 ebnf-except-border-color %S
2310 ebnf-repeat-border-color %S
2317 ebnf-terminal-border-color %S
2322 ebnf-non-terminal-border-color %S
2342 ebnf-color-p %S
2344 ebnf-line-color %S
2360 ebnf-special-border-color
2365 ebnf-except-border-color
2370 ebnf-repeat-border-color
2377 ebnf-terminal-border-color
2382 ebnf-non-terminal-border-color
2402 ebnf-color-p
2404 ebnf-line-color
2433 ebnf-special-border-color
2438 ebnf-except-border-color
2443 ebnf-repeat-border-color
2450 ebnf-terminal-border-color
2455 ebnf-non-terminal-border-color
2475 ebnf-color-p
2477 ebnf-line-color
2496 (ebnf-special-border-color . "Black")
2501 (ebnf-except-border-color . "Black")
2506 (ebnf-repeat-border-color . "Black")
2513 (ebnf-terminal-border-color . "Black")
2518 (ebnf-non-terminal-border-color . "Black")
2538 (ebnf-color-p . (or (fboundp 'x-color-values) ; Emacs
2539 (fboundp 'color-instance-rgb-components))) ; XEmacs
2541 (ebnf-line-color . "Black")
2611 (defun ebnf-insert-style (name inherits &rest values)
2612 "Insert a new style NAME with inheritance INHERITS and values VALUES.
2615 (interactive "SStyle name: \nSStyle inherits from: \nXStyle values: ")
2621 (cons (cons name (cons inherits (ebnf-check-style-values values)))
2643 (defun ebnf-merge-style (name &rest values)
2644 "Merge values of style NAME with style VALUES.
2647 (interactive "SStyle name: \nXStyle values: ")
2650 (merge (ebnf-check-style-values values))
2732 (defun ebnf-check-style-values (values)
2734 (while values
2735 (and (memq (caar values) ebnf-style-custom-list)
2736 (setq style (cons (car values) style)))
2737 (setq values (cdr values)))
2796 "Alist associating values for `ebnf-arrow-shape'.
2805 "Alist associating values from `ebnf-terminal-shape' to a bit vector.
2927 % set color: [R G B] SetRGB
2933 % filling color area: [R G B] FillRGB
3875 % and overall height; don't forget that these values have to be
4090 (defun ebnf-format-color (format-str color default)
4091 (let* ((the-color (or color default))
4092 (rgb (ps-color-scale the-color)))
4097 the-color)))
4206 (let* ((ps-color-p (and ebnf-color-p (ps-color-device)))
4207 (ps-print-color-scale (if ps-color-p
4208 (float (car (ps-color-values "white")))
4319 (let* ((ps-color-p (and ebnf-color-p (ps-color-device)))
4320 (ps-print-color-scale (if ps-color-p
4321 (float (car (ps-color-values "white")))
4999 (ebnf-format-color "/ForegroundP %s def %% %s\n"
5002 (ebnf-format-color "/BackgroundP %s def %% %s\n"
5011 (ebnf-format-color "/ForegroundT %s def %% %s\n"
5014 (ebnf-format-color "/BackgroundT %s def %% %s\n"
5021 (ebnf-format-color "/BorderColorT %s def %% %s\n"
5022 ebnf-terminal-border-color
5034 (ebnf-format-color "/ForegroundNT %s def %% %s\n"
5037 (ebnf-format-color "/BackgroundNT %s def %% %s\n"
5044 (ebnf-format-color "/BorderColorNT %s def %% %s\n"
5045 ebnf-non-terminal-border-color
5056 (ebnf-format-color "/ForegroundS %s def %% %s\n"
5059 (ebnf-format-color "/BackgroundS %s def %% %s\n"
5066 (ebnf-format-color "/BorderColorS %s def %% %s\n"
5067 ebnf-special-border-color
5078 (ebnf-format-color "/ForegroundE %s def %% %s\n"
5081 (ebnf-format-color "/BackgroundE %s def %% %s\n"
5088 (ebnf-format-color "/BorderColorE %s def %% %s\n"
5089 ebnf-except-border-color
5100 (ebnf-format-color "/ForegroundR %s def %% %s\n"
5103 (ebnf-format-color "/BackgroundR %s def %% %s\n"
5110 (ebnf-format-color "/BorderColorR %s def %% %s\n"
5111 ebnf-repeat-border-color
5127 (ebnf-format-color "/LineColor %s def %% %s\n"
5128 ebnf-line-color