Mercurial > hg > xemacs-beta

comparison lisp/packages/ps-print.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 4103f0995bd7
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
1 ;;; ps-print.el --- Jim's Pretty-Good PostScript Generator for Emacs 19. 1 ;;; ps-print.el --- Jim's Pretty-Good PostScript Generator for Emacs 19.
2 2
3 ;; Copyright (C) 1993, 1994, 1995, 1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
4 4
5 ;; Author: Jim Thompson (was <thompson@wg2.waii.com>) 5 ;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
6 ;; Maintainer: Jacques Duthen <duthen@cegelec-red.fr> 6 ;; Maintainer: Jacques Duthen <duthen@club-internet.fr>
7 ;; Keywords: print, PostScript 7 ;; Keywords: print, PostScript
8 ;; Time-stamp: <97/01/29 23:21:25 tjchol01> 8 ;; Time-stamp: <97/01/29 23:21:25 tjchol01>
9 ;; Version: 3.05 9 ;; Version: 3.05
10 10
11 (defconst ps-print-version "3.05" 11 (defconst ps-print-version "3.05"
2443 (defun ps-color-value (x-color-value) 2443 (defun ps-color-value (x-color-value)
2444 ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval. 2444 ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval.
2445 (/ x-color-value ps-print-color-scale)) 2445 (/ x-color-value ps-print-color-scale))
2446 2446
2447 (defun ps-color-values (x-color) 2447 (defun ps-color-values (x-color)
2448 (cond ((fboundp 'x-color-values) 2448 (cond ((fboundp 'color-instance-rgb-components)
2449 (if (ps-color-device)
2450 (color-instance-rgb-components
2451 (if (color-instance-p x-color) x-color
2452 (if (color-specifier-p x-color)
2453 (make-color-instance (color-name x-color))
2454 (make-color-instance x-color))))
2455 (error "No available function to determine X color values.")))
2456 ((fboundp 'x-color-values)
2449 (x-color-values x-color)) 2457 (x-color-values x-color))
2450 ((and (fboundp 'color-instance-rgb-components)
2451 (ps-color-device))
2452 (color-instance-rgb-components
2453 (if (color-instance-p x-color) x-color
2454 (if (color-specifier-p x-color)
2455 (make-color-instance (color-name x-color))
2456 (make-color-instance x-color)))))
2457 (t (error "No available function to determine X color values.")))) 2458 (t (error "No available function to determine X color values."))))
2458 2459
2459 (defun ps-face-attributes (face) 2460 (defun ps-face-attributes (face)
2460 (let ((differs (face-differs-from-default-p face))) 2461 (let ((differs (face-differs-from-default-p face)))
2461 (list (memq face ps-ref-bold-faces) 2462 (list (memq face ps-ref-bold-faces)