summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/gs_devpxl.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/lib/gs_devpxl.ps')
-rw-r--r--Master/tlpkg/tlgs/lib/gs_devpxl.ps78
1 files changed, 0 insertions, 78 deletions
diff --git a/Master/tlpkg/tlgs/lib/gs_devpxl.ps b/Master/tlpkg/tlgs/lib/gs_devpxl.ps
deleted file mode 100644
index 4f604f5d711..00000000000
--- a/Master/tlpkg/tlgs/lib/gs_devpxl.ps
+++ /dev/null
@@ -1,78 +0,0 @@
-% Copyright (C) 2002 Aladdin Enterprises. All rights reserved.
-%
-% This software is provided AS-IS with no warranty, either express or
-% implied.
-%
-% This software is distributed under license and may not be copied,
-% modified or distributed except as expressly authorized under the terms
-% of the license contained in the file LICENSE in this distribution.
-%
-% For more information about licensing, please refer to
-% http://www.ghostscript.com/licensing/. For information on
-% commercial licensing, go to http://www.artifex.com/licensing/ or
-% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
-% San Rafael, CA 94903, U.S.A., +1(415)492-9861.
-
-% $Id: gs_devpxl.ps 6300 2005-12-28 19:56:24Z giles $
-% DevicePixel color space method dictionaries.
-
-%
-% This file implements the DevicePixel color space. See gs_cspace.ps
-% for information.
-%
-% The DevicePixel color space includes a single parameter, the bit
-% depth of the device color representation. Color is expressed as
-% single integers in an opaque, device-specific format.
-%
-
-% verify that the DevicePixel color space is supported
-/.setdevicepixelspace where
- { pop }
- { currentfile closefile }
-ifelse
-
-
-.currentglobal true .setglobal
-
-.cspace_util begin
-
-
-colorspacedict
-/DevicePixel
- mark
- /cs_potential_indexed_base true
- /cs_potential_pattern_base true
- /cs_potential_alternate true
- /cs_potential_icc_alternate true
- /cs_get_ncomps //ncomps_1
- /cs_get_range { [ exch 1 get 1 exch bitshift 1 sub ] } bind
- /cs_get_default_color { pop 0 } bind % no good default
- /cs_get_currentgray //no_currentgray
- /cs_get_currentrgb //no_currentrgb
- /cs_get_currentcmyk //no_currentcmyk
-
- /cs_validate
- {
- //check_array exec
- dup 1 get dup type /integertype ne
- //setcspace_typecheck
- if
- dup 0 lt
- //setcspace_rangecheck
- if
- 31 gt % 31 bits is an implementation limit
- { /setcolorspace .systemvar /limitcheck signalerror }
- if
- }
- bind
-
- /cs_substitute //dup_1
- /cs_prepare {}
- /cs_install { .setdevicepixelspace } bind
- /cs_prepare_color //validate_1
- /cs_complete_setcolor //pop_1
- .dicttomark
-put
-
-end % .cspace_util
-.setglobal