diff options
Diffstat (limited to 'Master/tlpkg/tlgs/lib/stcolor.ps')
-rw-r--r-- | Master/tlpkg/tlgs/lib/stcolor.ps | 169 |
1 files changed, 0 insertions, 169 deletions
diff --git a/Master/tlpkg/tlgs/lib/stcolor.ps b/Master/tlpkg/tlgs/lib/stcolor.ps deleted file mode 100644 index 105a6ec3949..00000000000 --- a/Master/tlpkg/tlgs/lib/stcolor.ps +++ /dev/null @@ -1,169 +0,0 @@ -% Copyright (C) 2001-2012 Artifex Software, Inc. -% 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. -% -% Refer to licensing information at http://www.artifex.com or contact -% Artifex Software, Inc., 7 Mt. Lassen Drive - Suite A-134, San Rafael, -% CA 94903, U.S.A., +1(415)492-9861, for further information. -% - -% stcolor.ps -% Epson Stylus-Color Printer-Driver - -% The purpose of this file is to configure the stcolor-printer driver - -% -% It is useless and dangerous to interpret the following code with anything -% else than Ghostscript, so this condition is verified first. If this fails -% a message is send to the output. If this message bothers you, remove it, -% but I prefer to know why the device-setup failed. - -statusdict begin product end -dup (Ghostscript) eq 1 index (Artifex Ghostscript) eq or -exch (AFPL Ghostscript) eq or{ - -% fetch the current device-parameters this is specific for Ghostscript. - - /STCold currentdevice getdeviceprops .dicttomark def - -% Any Ghostscript-Driver has a Name, verify that the selected device is -% stcolor, otherwise nothing than another message will be produced. - - STCold /Name get (stcolor) eq { - -% -% The main thing this file does, is to establish transfer-functions. -% Here are two predefined arrays for 360x360Dpi and for 720x720DpI. -% If resolution is 360x720 or 720x360 the average is used. You may -% want to define other arrays here. -% - - /STCdeftransfer [ 0.0 1.0 ] def - - /STCKtransfer360 [ - 0.0000 0.0034 0.0185 0.0377 0.0574 0.0769 0.0952 0.1147 - 0.1337 0.1540 0.1759 0.1985 0.2209 0.2457 0.2706 0.2949 - 0.3209 0.3496 0.3820 0.4145 0.4505 0.4907 0.5344 0.5840 - 0.6445 0.7093 0.8154 0.9816 0.9983 0.9988 0.9994 1.0000 - ] def - - /STCKtransfer720 [ - 0.0000 0.0011 0.0079 0.0151 0.0217 0.0287 0.0354 0.0425 - 0.0492 0.0562 0.0633 0.0700 0.0766 0.0835 0.0900 0.0975 - 0.1054 0.1147 0.1243 0.1364 0.1489 0.1641 0.1833 0.2012 - 0.2217 0.2492 0.2814 0.3139 0.3487 0.3996 0.4527 0.5195 - ] def - -% compute the resolution - - STCold /HWResolution get dup - 0 get exch 1 get mul sqrt /STCdpi exch def - -% pick the colormodel - STCold /ProcessColorModel get /STCcolor exch def - - mark % prepare stack for "putdeviceprops" - -% warn for BitsPerPixel=30 with fsrgb - STCcolor /DeviceRGB eq STCold /BitsPerPixel get 32 eq and - { - (%%[ stcolor.ps: inefficient RGB-setup, recommend BitsPerPixel=24 ]%%\n) - print - } if - -% if the Dithering-Method is default (gscmyk), change it to fscmyk -% this is achieved by pushing a name/value-pair onto the stack -% if the selected algorithm uses another ProcessColorModel, it is necessary -% to change the Value of STCcolor according to the new algorithm. - - STCold /Dithering get (gscmyk) eq - { - /Dithering (hscmyk) % preferred dithering-method - } if % might be necessary to change STCcolor too - -% -% select the array according to the resolution -% - STCdpi 359.0 lt - { STCdeftransfer } - { STCdpi 361.0 lt - { STCKtransfer360 } - { STCdpi 719.0 gt - { STCKtransfer720 } - { - STCKtransfer360 length STCKtransfer720 length eq - { - 0 1 STCKtransfer360 length 1 sub - { - dup dup - STCKtransfer360 exch get - exch STCKtransfer720 exch get - add 2.0 div - STCKtransfer360 3 1 roll put - } for - }if - STCKtransfer360 - } ifelse - }ifelse - } ifelse - /STCtransfer exch def - -% -% Add the arrays. With Version 1.17 and above, it seems to be -% a good idea, to use the transfer-arrays as coding-arrays too. -% - -% -% RGB-Model requires inversion of the transfer-arrays -% - STCcolor /DeviceRGB eq - { - /RGBtransfer STCtransfer length array def - 0 1 STCtransfer length 1 sub - { - dup RGBtransfer length 1 sub exch sub exch - STCtransfer exch get 1.0 exch sub - RGBtransfer 3 1 roll put - } for - - /Rtransfer RGBtransfer - /Gtransfer RGBtransfer - /Btransfer RGBtransfer - - /Rcoding RGBtransfer - /Gcoding RGBtransfer - /Bcoding RGBtransfer - - }{ - - /Ctransfer STCtransfer - /Mtransfer STCtransfer - /Ytransfer STCtransfer - /Ktransfer STCtransfer - - /Ccoding STCtransfer - /Mcoding STCtransfer - /Ycoding STCtransfer - /Kcoding STCtransfer - - } ifelse - - counttomark 0 ne - {currentdevice putdeviceprops pop}{cleartomark}ifelse - -% decativate predefined correction - - {} dup dup currenttransfer setcolortransfer - - }{ - (%%[ stcolor.ps: currentdevice is not stcolor - ignored ]%%\n) print - } ifelse -}{ - (%%[ stcolor.ps: not interpreted by AFPL Ghostscript - ignored ]%%\n) print -} ifelse |