Na}{

Path: ~//usr/share/ghostscript/lib/

File Content: `docie.ps`

% Copyright (C) 2001-2018 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.,  1305 Grant Avenue - Suite 200, Novato,
% CA 94945, U.S.A., +1(415)492-9861, for further information.
%

% docie.ps
% Emulate CIE algorithms in PostScript.

% ---------------- Auxiliary procedures ---------------- %

/r1default [0 1] def
/r3default [0 1 0 1 0 1] def

/apply3		% <u> <v> <w> [<pu> <pv> <pw>] apply3 <u'> <v'> <w'>
 {  { 4 -1 roll exch exec } forall
 } bind def

/restrict	% <u> <min> <max> restrict <u'>
 { 3 1 roll .max .min
 } bind def

/restrict3	% <u> <v> <w> [<minu> ... <maxw>] restrict3 <u'> <v'> <w'>
 { aload pop
   7 -1 roll 3 1 roll restrict 7 1 roll
   5 -1 roll 3 1 roll restrict 5 1 roll
   restrict 3 1 roll
 } bind def

/rescale	% <u> <min> <max> rescale <u'>
 { 1 index sub 3 1 roll sub exch div 0 .max 1 .min
 } bind def

/rescale3	% <u> <v> <w> [<minu> ... <maxw>] rescale3 <u'> <v'> <w'>
 { aload pop
   7 -1 roll 3 1 roll rescale 7 1 roll
   5 -1 roll 3 1 roll rescale 5 1 roll
   rescale 3 1 roll
 } bind def

/mmult3		% <u> <v> <w> [<uu> <uv> ... <wv> <ww>] mmult3
                %   <u'> <v'> <w'>
 { 4 -1 roll dup dup 6 -1 roll dup dup 8 -1 roll dup dup
   10 -1 roll { 10 -1 roll mul } forall
                % Stack: u1 v1 w1 u2 v2 w2 u3 v3 w3
   4 -1 roll add 6 -1 roll add
                % Stack: u1 v1 u2 v2 u3 v3 w'
   7 1 roll 3 -1 roll add 4 -1 roll add
                % Stack: w' u1 u2 u3 v'
   5 1 roll add add 3 1 roll
 } bind def

/minvert3	% [<uu> <uv> ... <wv> <ww>] minvert3
                %   [<uu'> <uv'> ... <wv'> <ww'>]
 { 16 dict begin
   aload pop { I H G F E D C B A } { exch def } forall
   /coa E I mul F H mul sub def
   /cob F G mul D I mul sub def
   /coc D H mul E G mul sub def
   /det A coa mul B cob mul add C coc mul add def
   [ coa det div
     C H mul B I mul sub det div
     B F mul C E mul sub det div
     cob det div
     A I mul C G mul sub det div
     C D mul A F mul sub det div
     coc det div
     B G mul A H mul sub det div
     A E mul B D mul sub det div
   ]
   end
 } bind def

/print1
 { print dup ==
 } bind def

/print3
 { print 3 array astore dup == aload pop
 } bind def

% ---------------- Mapping to XYZ ---------------- %

/csmap		% <csdict> <l> <m> <n> csmap <csdict> <x> <y> <z>
 { 3 index /RangeLMN .knownget not { r3default } if restrict3
DOCIEDEBUG { (After RangeLMN Decode: ) print3 } if
   3 index /DecodeLMN .knownget { apply3 } if
DOCIEDEBUG { (After DecodeLMN Decode: ) print3 } if
   3 index /MatrixLMN .knownget { mmult3 } if
DOCIEDEBUG { (After MatrixLMN Decode: ) print3 } if
 } bind def

/csciea		% <csdict> <a> csciea <csdict> <x> <y> <z>
 { 1 index /RangeA .knownget not { r1default aload pop } if restrict
DOCIEDEBUG { (After RangeA Decode: ) print1 } if
   1 index /DecodeA .knownget { exec } if
DOCIEDEBUG { (After DecodeA Decode: ) print1 } if
   1 index /MatrixA .knownget
    { { 1 index mul exch } forall pop }
    { dup dup }
   ifelse
DOCIEDEBUG { (After MatrixA Decode: ) print3 } if
   csmap
 } bind def

/cscieabc	% <csdict> <a> <b> <c> cscieabc <csdict> <x> <y> <z>
 { 3 index /RangeABC .knownget not { r3default } if restrict3
DOCIEDEBUG { (After RangeABC Decode: ) print3 } if
   3 index /DecodeABC .knownget { apply3 } if
DOCIEDEBUG { (After DecodeABC Decode: ) print3 } if
   3 index /MatrixABC .knownget { mmult3 } if
DOCIEDEBUG { (After MatrixABC Decode: ) print3 } if
   csmap
 } bind def

% ---------------- Rendering from XYZ ---------------- %

/lookup3	% <rtable> <a[0..1]> <b[0..1]> <c[0..1]> lookup3
                %   <rtable> <bytes>
 { 3 -1 roll 3 index 0 get 1 sub mul
   3 -1 roll 3 index 1 get 1 sub mul
   3 -1 roll 3 index 2 get 1 sub mul
                % Stack: rtable ia ib ic
DOCIEDEBUG { (RenderTable indices: ) print3 mark 5 1 roll } if
   3 -1 roll round cvi 3 index 3 get exch get
                % Stack: rtable ib ic string
   3 -1 roll round cvi 3 index 2 get mul
                % Stack: rtable ic string ib*nc
   3 -1 roll round cvi add 2 index 4 get mul
                % Stack: rtable string index
   2 index 4 get getinterval
                % Stack: rtable bytes
DOCIEDEBUG { (RenderTable values: ) print (<) print (%stdout) (w) file 1 index writehexstring (>) = } if
 } bind def

/bpdefault [0 0 0] def

/crmap		% <csdict> <crdict> <x> <y> <z> crmap <v1> ...
 {
DOCIEDEBUG { (CIE XYZ = ) print3 } if
   3 index /MatrixPQR .knownget { mmult3 } if
DOCIEDEBUG { (After MatrixPQR: ) print3 } if
   4 index /WhitePoint get
   5 index /BlackPoint .knownget not { bpdefault } if
   5 index /WhitePoint get
   6 index /BlackPoint .knownget not { bpdefault } if
   4
     { 4 -1 roll aload pop
                        % Stack: csdict crdict x y z pt pt pt px py pz
       3 copy 12 index /MatrixPQR .knownget { mmult3 } if 6 array astore
     }
   repeat
                        % Stack: csdict crdict x y z wps+ bps+ wpd+ bpd+
   9 -1 roll pop		% get rid of csdict
   7 4 roll
   7 index /TransformPQR get
    {			% Stack: crdict wps+ bps+ wpd+ bpd+ u v w proc
      8 copy exch pop exch pop
      exec exch pop 4 -1 roll pop
    }
   forall
   7 3 roll pop pop pop pop	% get rid of White/BlackPoints
DOCIEDEBUG { (After TransformPQR: ) print3 } if
   3 index /MatrixPQR .knownget { minvert3 mmult3 } if
DOCIEDEBUG { (After MatrixPQR': ) print3 } if
   3 index /MatrixLMN .knownget { mmult3 } if
DOCIEDEBUG { (After MatrixLMN Encode: ) print3 } if
   3 index /EncodeLMN .knownget { apply3 } if
DOCIEDEBUG { (After EncodeLMN Encode: ) print3 } if
   3 index /RangeLMN .knownget not { r3default } if restrict3
DOCIEDEBUG { (After RangeLMN Encode: ) print3 } if
   3 index /MatrixABC .knownget { mmult3 } if
DOCIEDEBUG { (After MatrixABC Encode: ) print3 } if
   3 index /EncodeABC .knownget { apply3 } if
DOCIEDEBUG { (After EncodeABC Encode: ) print3 } if
   3 index /RangeABC .knownget not { r3default } if
   5 -1 roll /RenderTable .knownget
    {		% Stack: u v w ranges rtable
      5 1 roll rescale3
DOCIEDEBUG { (Rescaled ABC: ) print3 } if
                % Stack: rtable a b c
      lookup3
                % Stack: rtable bytes
      0 1 3 index 4 get 1 sub
       {	% Stack: values rtable bytes c
         2 copy get 255 div
                % Stack: values rtable bytes c v
         3 index 3 -1 roll 5 add get exec 3 1 roll
       }
      for pop pop
DOCIEDEBUG { (After RenderTableT: ) print ] dup == aload pop } if
    }
    { restrict3
DOCIEDEBUG { (After RangeABC Encode: ) print3 } if
    }
   ifelse
 } bind def

% ---------------- Top level control ---------------- %

/mapdict mark
  /CIEBasedA { 1 get exch csciea currentcolorrendering 4 1 roll crmap } bind
  /DeviceGray { pop /DefaultGray /ColorSpace findresource 1 get exch csciea currentcolorrendering 4 1 roll crmap } bind
  /CIEBasedABC { 1 get 4 1 roll cscieabc currentcolorrendering 4 1 roll crmap } bind
  /DeviceRGB { pop /DefaultRGB /ColorSpace findresource 1 get 4 1 roll cscieabc currentcolorrendering 4 1 roll crmap } bind
.dicttomark def
/mapcie		% <a> mapcie <v1> ...
                % <a> <b> <c> mapcie <v1> ...
 { currentcolorspace dup 0 get //mapdict exch get exec
 } bind def

Edit Rename Chmod Delete

FILE FOLDER

Name	Size	Permission
PDFA_def.ps	1276 bytes	0644
PDFX_def.ps	1812 bytes	0644
PM760p.upp	1160 bytes	0644
PM760pl.upp	1124 bytes	0644
PM820p.upp	1142 bytes	0644
PM820pl.upp	1117 bytes	0644
Stc670p.upp	1159 bytes	0644
Stc670pl.upp	1124 bytes	0644
Stc680p.upp	1140 bytes	0644
Stc680pl.upp	1115 bytes	0644
Stc740p.upp	1039 bytes	0644
Stc740pl.upp	1115 bytes	0644
Stc760p.upp	1141 bytes	0644
Stc760pl.upp	1115 bytes	0644
Stc777p.upp	1140 bytes	0644
Stc777pl.upp	1115 bytes	0644
Stp720p.upp	1158 bytes	0644
Stp720pl.upp	1115 bytes	0644
Stp870p.upp	1140 bytes	0644
Stp870pl.upp	1115 bytes	0644
acctest.ps	4269 bytes	0644
align.ps	2156 bytes	0644
bj8.rpd	639 bytes	0644
bj8gc12f.upp	1532 bytes	0644
bj8hg12f.upp	1531 bytes	0644
bj8oh06n.upp	1517 bytes	0644
bj8pa06n.upp	1525 bytes	0644
bj8pp12f.upp	1542 bytes	0644
bj8ts06n.upp	1530 bytes	0644
bjc6000a1.upp	1660 bytes	0644
bjc6000b1.upp	1660 bytes	0644
bjc610a0.upp	1527 bytes	0644
bjc610a1.upp	1516 bytes	0644
bjc610a2.upp	1517 bytes	0644
bjc610a3.upp	1522 bytes	0644
bjc610a4.upp	1530 bytes	0644
bjc610a5.upp	1517 bytes	0644
bjc610a6.upp	1517 bytes	0644
bjc610a7.upp	1520 bytes	0644
bjc610a8.upp	1526 bytes	0644
bjc610b1.upp	1516 bytes	0644
bjc610b2.upp	1517 bytes	0644
bjc610b3.upp	1522 bytes	0644
bjc610b4.upp	1530 bytes	0644
bjc610b6.upp	1517 bytes	0644
bjc610b7.upp	1521 bytes	0644
bjc610b8.upp	1526 bytes	0644
caption.ps	1759 bytes	0644
cbjc600.ppd	11148 bytes	0644
cbjc800.ppd	11491 bytes	0644
cdj550.upp	1690 bytes	0644
cdj690.upp	1999 bytes	0644
cdj690ec.upp	2060 bytes	0644
cid2code.ps	4491 bytes	0644
dmp_init.ps	7246 bytes	0644
dmp_site.ps	459 bytes	0644
dnj750c.upp	2808 bytes	0644
dnj750m.upp	1975 bytes	0644
docie.ps	7498 bytes	0644
escp_24.src	350 bytes	0644
font2pcl.ps	18439 bytes	0644
ghostpdf.ppd	25643 bytes	0644
gs_ce_e.ps	2219 bytes	0644
gs_il2_e.ps	2631 bytes	0644
gs_kanji.ps	4007 bytes	0644
gs_ksb_e.ps	3145 bytes	0644
gs_l.xbm	1945 bytes	0644
gs_l.xpm	2751 bytes	0644
gs_l_m.xbm	1955 bytes	0644
gs_lgo_e.ps	2734 bytes	0644
gs_lgx_e.ps	1766 bytes	0644
gs_m.xbm	945 bytes	0644
gs_m.xpm	1437 bytes	0644
gs_m_m.xbm	955 bytes	0644
gs_s.xbm	594 bytes	0644
gs_s.xpm	957 bytes	0644
gs_s_m.xbm	604 bytes	0644
gs_t.xbm	345 bytes	0644
gs_t.xpm	605 bytes	0644
gs_t_m.xbm	355 bytes	0644
gs_wl1_e.ps	2495 bytes	0644
gs_wl2_e.ps	2494 bytes	0644
gs_wl5_e.ps	2512 bytes	0644
gslp.ps	20727 bytes	0644
gsnup.ps	2634 bytes	0644
ht_ccsto.ps	228143 bytes	0644
image-qa.ps	73050 bytes	0644
jispaper.ps	784 bytes	0644
landscap.ps	1468 bytes	0644
lines.ps	3736 bytes	0644
mkcidfm.ps	22321 bytes	0644
necp2x.upp	1045 bytes	0644
necp2x6.upp	1069 bytes	0644
pdf2dsc.ps	8063 bytes	0644
pf2afm.ps	15294 bytes	0644
pfbtopfa.ps	995 bytes	0644
ppath.ps	1819 bytes	0644
pphs.ps	6843 bytes	0644
prfont.ps	7213 bytes	0644
printafm.ps	4896 bytes	0644
ps2ai.ps	22306 bytes	0644
ps2epsi.ps	8540 bytes	0644
ras1.upp	215 bytes	0644
ras24.upp	219 bytes	0644
ras3.upp	214 bytes	0644
ras32.upp	196 bytes	0644
ras4.upp	220 bytes	0644
ras8m.upp	209 bytes	0644
rollconv.ps	12525 bytes	0644
s400a1.upp	1454 bytes	0644
s400b1.upp	1603 bytes	0644
sharp.upp	1936 bytes	0644
sipixa6.upp	529 bytes	0644
st640ih.upp	2281 bytes	0644
st640ihg.upp	1508 bytes	0644
st640p.upp	1914 bytes	0644
st640pg.upp	1141 bytes	0644
st640pl.upp	1878 bytes	0644
st640plg.upp	1105 bytes	0644
stc.upp	1923 bytes	0644
stc1520h.upp	2154 bytes	0644
stc2.upp	1904 bytes	0644
stc200_h.upp	1848 bytes	0644
stc2_h.upp	1879 bytes	0644
stc2s_h.upp	2272 bytes	0644
stc300.upp	2136 bytes	0644
stc300bl.upp	1341 bytes	0644
stc300bm.upp	1430 bytes	0644
stc500p.upp	1903 bytes	0644
stc500ph.upp	1903 bytes	0644
stc600ih.upp	2281 bytes	0644
stc600p.upp	1151 bytes	0644
stc600pl.upp	1115 bytes	0644
stc640p.upp	1095 bytes	0644
stc740ih.upp	2123 bytes	0644
stc800ih.upp	2158 bytes	0644
stc800p.upp	1115 bytes	0644
stc800pl.upp	1097 bytes	0644
stc_h.upp	1913 bytes	0644
stc_l.upp	734 bytes	0644
stcany.upp	673 bytes	0644
stcany_h.upp	681 bytes	0644
stcinfo.ps	25517 bytes	0644
stcolor.ps	5065 bytes	0644
stocht.ps	2494 bytes	0644
traceimg.ps	1382 bytes	0644
traceop.ps	2572 bytes	0644
uninfo.ps	5986 bytes	0644
viewcmyk.ps	1983 bytes	0644
viewgif.ps	5395 bytes	0644
viewjpeg.ps	5691 bytes	0644
viewmiff.ps	4253 bytes	0644
viewpbm.ps	10281 bytes	0644
viewpcx.ps	5231 bytes	0644
viewps2a.ps	1136 bytes	0644
winmaps.ps	3605 bytes	0644
zeroline.ps	2317 bytes	0644

File Content: docie.ps

File Content: `docie.ps`