Import sources from 2011-03-30 iso image - sys/lib

1 files changed, 78 insertions, 0 deletions

diff --git a/sys/lib/ghostscript/gs_devpxl.ps b/sys/lib/ghostscript/gs_devpxl.ps
new file mode 100755
index 000000000..90d90ed88
--- /dev/null
+++ b/sys/lib/ghostscript/gs_devpxl.ps
@@ -0,0 +1,78 @@
+%    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,v 1.1 2002/08/22 07:12:28 henrys Exp $
+% 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 cvx /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