%!PS-Adobe-3.0 EPSF-3.0 130.149.60.45/~farbmetrik/HG46/HG46L00XX.PS 20091101
%%BoundingBox: 14 08 828 584

/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put
     } if
[ /Title (PostScript pictures: www.ps.bam.de/HG46/HG46.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik)
  /Keywords (image reproduction, colour devices, colour vision, colorimetry)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2009110112000)
  /ModDate (D:2009110112000)
/DOCINFO pdfmark

[ /View [ /Fit ]
/DOCVIEW pdfmark
/ColSpxG 1 def /ColSpx ColSpxG def /DEintp 1 def /rgb_cmy 0 def
%BEG HK0X->HG46/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201

%Early Binding: needed for colour separation
/sgcmykcolor {setcmykcolor} bind def
/sggray {setgray} bind def
/sgrgbcolor {setrgbcolor} bind def
%FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00
 /IMES 0 def %0=LAB* used, no reflection factor necessary
%/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection
%/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor
 /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray
%/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor
%/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor
%/i*ptrsc 4 def %LAB* setcolor to lab* setcolor
%/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor
%/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor
%/i*ptrsc 7 def %LAB* setcolor to w* setgray
 /ISIN*ioG 0 def %default input  for Offset Reflective System (ORS18/FRS09)
 /ISOU*ioG 0 def %default output dto.
%/ISIN*ioG 1 def %input  for Television Luminous System (TLS00)
%/ISOU*ioG 1 def %output dto.
%/ISIN*ioG 2 def %input  for Device Reflective measurement system (FRS09)
%/ISOU*ioG 2 def %output dto.
%/ISIN*ioG 3 def %input  for Television Luminous Reflection System (TLS18)
%/ISOU*ioG 3 def %output dto.
%/ISIN*ioG 4 def %input  for Natural Luminous System (NLS00)
%/ISOU*ioG 4 def %output dto.
%/ISIN*ioG 5 def %input  for Natural Reflective System (NRS11)
%/ISOU*ioG 5 def %output dto.
%/ISIN*ioG 6 def %input  for Standard Reflective System (CIE18)
%/ISOU*ioG 6 def %output dto.
%/ISIN*ioG 7 def %input  for Standard Reflective System (TLS70)
%/ISOU*ioG 7 def %output dto.
 /iLAB 0 def /ISIO*ioG 0 def /ISRL*ioG 0 def % for io-System, only once
 /auszg 8 def /ausz 8 def
%END GK0X->HG46/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201

%*****************************************************************************
%BEG HK0X->HG46/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201
%*****************************************************************************
%Data (HRS16_96, L*=16_96)

/proc_LAB*ioG {%BEG Procedure proc_LAB*ioG

%requires ISRL*ioG=0,1,3

/RJGBLAB* 12 array def
/RJGBLAB*[
  39.92  58.74  27.99 % R CIE No.09 elementary colours in LAB, D65
  81.26  -2.89  71.56 % J CIE No.10
  52.23 -42.42  13.60 % G CIE No.11
  30.57   1.41 -46.47 % B CIE No.12
] def

/LAB*  132 array def %12x3=36 including N,W + 16x3=48 elementary system + 16x3=48 device system
/LAB*a 132 array def
/LAB*Hx 13 array def %0_to_6 8_to_12 for device and elemetary colours

/LAB*00 24 array def
/LAB*01 24 array def
/LAB*02 24 array def
/LAB*03 24 array def
/LAB*04 24 array def
/LAB*05 24 array def
/LAB*06 24 array def
/LAB*07 24 array def

/LAB*TE %used in file and frame
[(HRS16_96, L*=16_96) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70)
 (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70)
 (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def

%FRS09_920_D65_ALM_HK0X.DAT, Model data are not adapted here, 55 lines, 141:195
ISRL*ioG 0 eq { %ISRL*ioG=0
/LAB*00 [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS18)
%LAB*a             %#1000 x (r g b c m y 0) %nr. pos          (ORS18_95aM)
%47.94  65.31  52.07 %O   0
%90.37 -11.16  96.17 %Y   1
%50.90 -62.97  36.71 %L   2
%58.62 -30.63 -42.75 %C   3  %see TABle 1 of ISO/IEC 15775:1999-12
%25.72  31.45 -44.36 %V   4 
%48.13  75.20 -6.80  %M   5
%18.01  0.50  -0.47  %N   7 
%95.41 -0.99   4.76  %W   8

%From LUT_De740-7N_3_4_FRS09_92DAT 20080625
%BEG GE26_22_REM.TXT, Separation cmyn62*, D65, not adapted
%100 x LAB*           %#1000 x (r g b  c m y 0)            %nr.  pos
004597 006173 003997 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0
009160 -01483 008571 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1
005688 -06367 003728 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2
005173 -03406 -03747 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3
003080 002420 -04187 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4
004532 007077 -01136 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5
001501 000031 000132 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6
009730 -00099 000209 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7
%$
%z004573 006120 003784 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0
%z009151 -01492 008587 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1
%z005696 -06168 003517 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2
%z005120 -03377 -03789 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3
%z003056 002547 -04139 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4
%z004480 007076 -01043 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5
%z001518 000043 000098 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6
%z009737 -00099 000200 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7
%$

%BEG GE26_22_REM.TXT, Separation cmyn62*, D65, adapted
%100 x LAB*a          %#1000 x (r g b  c m y 0)            %nr.  pos
%z004597 006191 003836 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0
%z009160 -01393 008367 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1
%z005688 -06332 003556 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2
%z005173 -03379 -03914 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3
%z003080 002413 -04334 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4
%z004532 007094 -01297 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5
%z001501 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6
%z009730 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7
%$
%z004573 006130 003648 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0
%z009151 -01403 008393 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1
%z005696 -06138 003367 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2
%z005120 -03358 -03932 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3
%z003056 002531 -04256 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4
%z004480 007084 -01178 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5
%z001518 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6
%z009737 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7
] def %OYLCVMO+NW



/LAB*01 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS00)
50.50  76.92  64.55 %O   0
92.66 -20.70  90.75 %Y   1
83.63 -82.76  79.90 %L   2
86.88 -46.17 -13.56 %C   3  %see TABle 1 of ISO/IEC 15775:1999-12
30.39  76.06 -103.6 %V   4 corected
57.30  94.35 -58.42 %M   5 corected
00.01   0.00   0.00 %N   7 corected
95.41   0.00   0.00 %W   8
] def %OYLCVMO+NW

/LAB*02 [%D=Device OYLCVMO+NW %for Device Reflective System (FRS06. FUJI)
32.57  61.14  43.72 %8-0-0 O-W 0 olv* setrgbcolor  64
82.73  -3.51 109.24 %8-8-0 Y-W 1 olv* setrgbcolor  32
39.43 -62.87  42.80 %0-8-0 L-W 2 olv* setrgbcolor  80
47.86 -27.73 -37.62 %0-8-8 C-W 3 olv* setrgbcolor   0 actual printer
10.16  53.56 -62.92 %0-0-8 V-W 4 olv* setrgbcolor  96
34.50  79.53 -36.77 %8-0-8 M-W 5 olv* setrgbcolor  16
06.25  -1.63  -1.73 %0-0-0 N-W 6 olv* setrgbcolor  48
91.97  -0.18  -5.11 %8-8-8 A-W 7 olv* setrgbcolor
] def %OYLCVMO+NW

/LAB*03 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS18)
52.76  71.63  49.88 %O   0
92.74 -20.03  84.97 %Y   1
84.00 -78.99  73.94 %L   2
87.14 -44.42 -13.12 %C   3 %see TABle 1 of ISO/IEC 15775:1999-12
35.47  64.92 -95.07 %V   4 %see TABle X of ISO/IEC TR 24705:2005-10
59.01  89.33 -55.68 %M   5 %see Annex A, www.ps.bam.de/RLABE.PDF
18.01   0.00   0.00 %N   6 Yr=2.52
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*04 [%Natural symmetric Luminous System OYLCVMO+NW (NLS00)
31.81  82.62  47.70 %O   0 95.40/2 = 47.70
63.61  00.00  95.40 %Y   1 C*ab = 95.40
31.81 -82.62  47.70 %L   2 0.866 C*ab = 0.866 * 95.40 = 82.62
63.61 -82.62 -47.70 %C   3 delta L*=25.8
31.81  00.00 -95.40 %V   4 43.81=00.01+31.80
63.61  82.62 -47.70 %M   5 69.61=00.01+2*31.80
00.01   0.00   0.00 %N   6 95.40/3 = 31.80
95.41   0.00   0.00 %W   7 95.40*(2/3) = 63.60
] def %CVMOYLC+NW

/LAB*05 [%Natural symmetric Luminous System OYLCVMO+NW (NLS18)
43.81  67.03  38.70 %O   0 77.40/2 = 38.70
69.61  00.00  77.40 %Y   1 C*ab = 77.40
43.81 -67.03  38.70 %L   2 0.866 C*ab = 67.03
69.61 -67.03 -38.70 %C   3 delta L*=25.8
43.81  00.00 -77.40 %V   4 43.81=18.01+25.80
69.61  67.03 -38.70 %M   5 69.61=18.01+2*25.80
18.01   0.00   0.00 %N   6 18.01+77.40/3 = 18.01+25.80=43.81
95.41   0.00   0.00 %W   7 18.01+77.40*(2/3) = 18.01+51.60=69.61
] def %CVMOYLC+NW

/LAB*06 [%Symmetric Reflective System OYLCVMO+NW (SRS18) 
56.71  67.03  38.70 %O   0 18.01 + 77.40*0.5 = 18.01 + 38.70 = 56.71
56.71  00.00  77.40 %Y   1 C*ab = 77.40
56.71 -67.03  38.70 %L   2 0.866 C*ab = 67.03
56.71 -67.03 -38.70 %C   3 delta L*=25.8
56.71  00.00 -77.40 %V   4 43.81=18.01+25.80
56.71  67.03 -38.70 %M   5 69.61=18.01+2*25.80
18.01   0.00   0.00 %N   6
95.41   0.00   0.00 %W   7 95.41=18.01+3*25.80
] def %CVMOYLC+NW

/LAB*07 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS70)
76.43  26.27  10.57 %O   0
93.93 -10.77  34.63 %Y   1
89.32 -35.81  27.64 %L   2
90.93 -21.96  -7.08 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
72.10  15.76 -35.64 %V   4
78.50  37.52 -25.24 %M   5
69.70   0.00   0.00 %N   6 Yr=40.32
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

} if %ISRL*ioG=0

ISRL*ioG 1 eq { %ISRL*ioG=1

/LAB*00 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS00)
50.50  76.91  64.55 %O   0
92.66 -20.68  90.75 %Y   1
83.62 -82.74  79.90 %L   2
86.88 -46.15 -13.54 %C   3 %see TABle 1 of ISO/IEC 15775:1999-12
30.39  76.06 -103.6 %V   4 %see TABle X of ISO/IEC TR 24705:2005-10
57.31  94.35 -58.40 %M   5 %see Annex A, www.ps.bam.de/RLABE.PDF
00.01   0.00   0.00 %N   6 Yr=0.00
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*01 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS06)
51.08  75.54  59.69 %O   0
92.68 -20.51  89.24 %Y   1
83.72 -81.79  78.32 %L   2
86.94 -45.72 -13.43 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
31.77  72.91 -101.3 %V   4
57.74  93.06 -57.71 %M   5 
05.69   0.00   0.00 %N   6 Yr=0.63
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*02 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS11)
51.65  74.20  55.83 %O   0
92.70 -20.35  87.77 %Y   1
83.81 -80.85  76.81 %L   2
87.01 -45.28 -13.33 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
33.06  70.03 -99.09 %V   4
58.17  91.80 -57.03 %M   5 
10.99   0.00   0.00 %N   6 Yr=1.26
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*03 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS18)
52.76  71.63  49.88 %O   0
92.74 -20.03  84.97 %Y   1
84.00 -78.99  73.94 %L   2
87.14 -44.42 -13.12 %C   3 %see TABle 1 of ISO/IEC 15775:1999-12
35.47  64.92 -95.07 %V   4 %see TABle X of ISO/IEC TR 24705:2005-10
59.01  89.33 -55.68 %M   5 %see Annex A, www.ps.bam.de/RLABE.PDF
18.01   0.00   0.00 %N   6 Yr=2.52
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*04 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS27)
54.88  66.84  41.69 %O   0
92.82 -19.39  79.81 %Y   1
84.37 -75.39  68.76 %L   2
87.40 -42.72 -12.70 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
39.70  56.66 -88.02 %V   4
60.64  84.61 -53.08 %M   5 
26.85   0.00   0.00 %N   6 Yr=5.04
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*05 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS38)
58.77  58.45  31.73 %O   0
92.98 -18.11  70.81 %Y   1
85.11 -68.58  60.02 %L   2
87.92 -39.42 -11.87 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
46.64  44.93 -76.56 %V   4
63.71  75.92 -48.22 %M   5 
37.99   0.00   0.00 %N   6 Yr=10.08
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*06 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS52)
65.53  45.06  20.98 %O   0
93.30 -15.61  56.27 %Y   1
86.55 -56.31  46.52 %L   2
88.94 -33.19 -10.24 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
57.17  30.66 -59.40 %V   4
69.22  60.95 -39.57 %M   5
52.02   0.00   0.00 %N   6 Yr=20.16
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*07 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS70)
76.43  26.27  10.57 %O   0
93.93 -10.77  34.63 %Y   1
89.32 -35.81  27.64 %L   2
90.93 -21.96  -7.08 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
72.10  15.76 -35.64 %V   4
78.50  37.52 -25.24 %M   5 
69.70   0.00   0.00 %N   6 Yr=40.32
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

} if %ISRL*ioG=1

ISRL*ioG 2 eq { %ISRL*ioG=2

/LAB*00 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS00)
45.14  71.37  75.54 %O   0
90.22 -10.60  99.51 %Y   1
48.45 -73.19  42.21 %L   2
56.88 -33.11 -47.41 %C   3 %see TABle 1 of ISO/IEC 15775:1999-12
16.48  45.84 -56.22 %V   4 %see TABle X of ISO/IEC TR 24705:2005-10
45.36  81.85  -9.29 %M   5 %see Annex A, www.ps.bam.de/RLABE.PDF
00.01   0.00   0.00 %N   6 Yr=0.00
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*01 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS06)
45.87  69.79  66.99 %O   0
90.25 -10.51  97.42 %Y   1
49.08 -70.28  40.08 %L   2
57.33 -32.38 -46.80 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
19.26  40.73 -52.47 %V   4
46.07  80.12  -9.04 %M   5
05.69   0.00   0.00 %N   6 Yr=0.63
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*02 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS11)
46.57  68.27  59.62 %O   0
90.29 -10.43  95.45 %Y   1
49.70 -67.60  38.19 %L   2
57.76 -31.68 -46.19 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
21.67  36.81 -49.37 %V   4
46.77  78.45  -8.80 %M   5
10.99   0.00   0.00 %N   6 Yr=1.26
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*03 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS18)
47.94  65.39  50.52 %O   0
90.37 -10.26  91.75 %Y   1
50.90 -62.83  34.96 %L   2
58.62 -30.34 -45.01 %C   3 %see TABle 1 of ISO/IEC 15775:1999-12
25.72  31.10 -44.40 %V   4 %see TABle X of ISO/IEC TR 24705:2005-10
48.13  75.28  -8.36 %M   5 %see Annex A, www.ps.bam.de/RLABE.PDF
18.01   0.00   0.00 %N   6 Yr=2.52
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*04 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS27)
50.51  60.17  40.13 %O   0
90.52  -9.92  85.20 %Y   1
53.18 -55.04  30.00 %L   2
60.28 -27.91 -42.75 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
32.06  24.02 -37.32 %V   4
50.68  69.50  -7.57 %M   5 
26.85   0.00   0.00 %N   6 Yr=5.04
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*05 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS38)
55.13  51.42  29.16 %O   0
90.83  -9.25  74.37 %Y   1
57.35 -43.84  23.35 %L   2
63.39 -23.83 -38.56 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
41.26  16.67 -28.49 %V   4
55.27  59.74  -6.32 %M   5 
37.99   0.00   0.00 %N   6 Yr=10.08
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*06 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS52)
62.90  38.38  18.55 %O   0
91.44  -7.95  57.91 %Y   1
64.49 -30.06  15.67 %L   2
68.98 -17.74 -31.24 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
53.87  10.09 -18.84 %V   4
63.00  44.96  -4.56 %M   5
52.02   0.00   0.00 %N   6 Yr=20.16
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*07 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS70)
75.01  21.53   9.07 %O   0
92.64  -5.45  34.85 %Y   1
75.86 -15.50   7.96 %L   2
78.37  -9.90 -19.51 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
70.54   4.74  -9.47 %V   4
75.07  25.47  -2.46 %M   5 
69.70   0.00   0.00 %N   6 Yr=40.32
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

} if %ISRL*ioG=2

0 1 11 {/sISO exch def %sISO=0,11
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        sISO 7 le { %sISO=0,7
        ISIO*ioG 0 eq { %ORS18/TLS00/OLS00
        LAB* i30 LAB*00 i30 get 100 div put
        LAB* i31 LAB*00 i31 get 100 div put
        LAB* i32 LAB*00 i32 get 100 div put
                    } if
        ISIO*ioG 1 eq { %TLS00/TLS06/OLS06
        LAB* i30 LAB*01 i30 get put
        LAB* i31 LAB*01 i31 get put
        LAB* i32 LAB*01 i32 get put
                    } if
        ISIO*ioG 2 eq { %FRS06/TLS11/OLS11
        LAB* i30 LAB*02 i30 get put
        LAB* i31 LAB*02 i31 get put
        LAB* i32 LAB*02 i32 get put
                    } if
        ISIO*ioG 3 eq { %TLS18/TLS18/OLS18
        LAB* i30 LAB*03 i30 get put
        LAB* i31 LAB*03 i31 get put
        LAB* i32 LAB*03 i32 get put
                    } if
        ISIO*ioG 4 eq { %NLS00/TSL28/OLS28
        LAB* i30 LAB*04 i30 get put
        LAB* i31 LAB*04 i31 get put
        LAB* i32 LAB*04 i32 get put
                    } if
        ISIO*ioG 5 eq { %NRS18/TLS38/OLS38
        LAB* i30 LAB*05 i30 get put
        LAB* i31 LAB*05 i31 get put
        LAB* i32 LAB*05 i32 get put
                    } if
        ISIO*ioG 6 eq { %SRS18/TLS50/OLS50
        LAB* i30 LAB*06 i30 get put
        LAB* i31 LAB*06 i31 get put
        LAB* i32 LAB*06 i32 get put
                    } if
        ISIO*ioG 7 eq { %TLS70/TLS70/OLS70
        LAB* i30 LAB*07 i30 get put
        LAB* i31 LAB*07 i31 get put
        LAB* i32 LAB*07 i32 get put
                    } if
       } %sISO=0,7
       {%sISO=8,11
        %Definition 8 to 11 (24 to 35=33+2)
        /jISO sISO 8 sub def /j30 jISO 3 mul def 
        /j31 j30 1 add def /j32 j30 2 add def
        LAB* i30 RJGBLAB* j30 get put
        LAB* i31 RJGBLAB* j31 get put
        LAB* i32 RJGBLAB* j32 get put
        LAB*a i30 LAB* i30 get put
        LAB*a i31 LAB* i31 get put
        LAB*a i32 LAB* i32 get put
       } ifelse
       } for %sISO=0,11

% possible change of LAB*a according to reduced gamut
%LAB* = 20 for Black N
%LAB* = 95 for White W
%cfakt = (95 - 20)/(95.41 - 18.01) = 0.969
%LAB*L*Nn = 20 for Black N instead of LAB*L*N = 18,01
%LAB*L*Wn = 95 for White W instead of LAB*L*W = 95,41
%LAB*L*Zn = 20+(95-20)/2=57,5 for Grey Z instead of
%LAB*L*Z  = 18,01+(95,41-18,01)/2=56,71
%L*neu = L*alt + (1 - cfakt
%For achromatic
%deltaLmean = 57,5 (1-c*neu); 56,71 (1-c*alt)
%deltaLmimu = 20,0 (1-c*neu); 18,01 (1-c*alt)
%deltaLplus = 95,0 (1-c*neu); 95,41 (1-c*alt)
%For chromatic M
%deltaLmean = L*Ma,neu; L*Ma,alt = known
%C*Ma,alt known, C*Ma,neu known

/L*Nio LAB* 18 get def
/A*Nio LAB* 19 get def
/B*Nio LAB* 20 get def
/L*Wio LAB* 21 get def
/A*Wio LAB* 22 get def
/B*Wio LAB* 23 get def

/L*Wioref 95.0 def
/L*Nioref 18.0 def
/cfakt 1 def
%/cfakt L*Wioref L*Nioref sub L*Wio L*Nio sub div def

cfakt 1 ne {%cfakt#1
%change of lightness for Maximum colour
/l*CIEN L*Nioref L*Nio sub L*Wio L*Nio sub div def
/l*CIEW L*Wioref L*Nio sub L*Wio L*Nio sub div def
%LAB* 18 L*Nioref put %defined change of lightness and chroma a*,b* for N
LAB* 19 A*Nio A*Wio A*Nio sub l*CIEN  mul add put
LAB* 20 B*Nio B*Wio B*Nio sub l*CIEN  mul add put
%LAB* 21 L*Wioref put %defined change of lightness and chroma a*,b* for W
LAB* 22 A*Nio A*Wio A*Nio sub l*CIEW  mul add put
LAB* 23 B*Nio B*Wio B*Nio sub l*CIEW  mul add put

%change of chroma by factor cfakt
0 1 07 {/iISO exch def
        /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        /l*CIEL LAB* i30 get L*Nio sub L*Wio L*Nio sub div def
        LAB* i30 L*Nioref L*Wioref L*Nioref sub l*CIEL mul add put
        LAB* i31 LAB* i31 get cfakt mul put
        LAB* i32 LAB* i32 get cfakt mul put
       } for
} if %cfakt#1
/L*Nior LAB* 18 get def %r=reference for reverse transform
/A*Nior LAB* 19 get def
/B*Nior LAB* 20 get def
/L*Wior LAB* 21 get def
/A*Wior LAB* 22 get def
/B*Wior LAB* 23 get def
/cf1 0.90 def
0 1 7 {/iISO exch def %iISO=0,7
       /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
       /l*CIE LAB* i30 get L*Nior sub L*Wior L*Nior sub div def
       /a*sr A*Wior A*Nior sub l*CIE mul def
       /b*sr B*Wior B*Nior sub l*CIE mul def
       /L*Z L*Nior L*Wior L*Nior sub 0.5 mul add def
       LAB*a i30 LAB* i30 get iISO 7 le {L*Z sub cf1 mul L*Z add} if put
       LAB*a i31 LAB* i31 get A*Nior sub a*sr sub cf1 mul put
       LAB*a i32 LAB* i32 get B*Nior sub b*sr sub cf1 mul put
      } for
/L*Nio LAB*a 18 get def %=18.01
/A*Nio LAB*a 19 get def %=0
/B*Nio LAB*a 20 get def %=0

/L*Wio LAB*a 21 get def %=95.41
/A*Wio LAB*a 22 get def %=0
/B*Wio LAB*a 23 get def %=0

/A*Dio A*Wio A*Nio sub def %=0
/B*Dio B*Wio B*Nio sub def %=0

/cLAB*s0 3 array def %C cyan blue
/vLAB*s0 3 array def %V violet blue
/mLAB*s0 3 array def %M magenta red
/oLAB*s0 3 array def %O orange red
/yLAB*s0 3 array def %Y yellow
/lLAB*s0 3 array def %L leaf green
/nLAB*s0 3 array def %N black
/wLAB*s0 3 array def %W white
/rLAB*s0 3 array def %R elementary red
/jLAB*s0 3 array def %J elementary yellow
/gLAB*s0 3 array def %G elementary green
/bLAB*s0 3 array def %B elementary blue

%Determine Matrix data input or output data
oLAB*s0 0 LAB*a  0 get L*Nio sub put
oLAB*s0 1 LAB*a  1 get put
oLAB*s0 2 LAB*a  2 get put

yLAB*s0 0 LAB*a  3 get L*Nio sub put
yLAB*s0 1 LAB*a  4 get put
yLAB*s0 2 LAB*a  5 get put

lLAB*s0 0 LAB*a  6 get L*Nio sub put
lLAB*s0 1 LAB*a  7 get put
lLAB*s0 2 LAB*a  8 get put

cLAB*s0 0 LAB*a  9 get L*Nio sub put
cLAB*s0 1 LAB*a 10 get put 
cLAB*s0 2 LAB*a 11 get put 

vLAB*s0 0 LAB*a 12 get L*Nio sub put
vLAB*s0 1 LAB*a 13 get put 
vLAB*s0 2 LAB*a 14 get put 

mLAB*s0 0 LAB*a 15 get L*Nio sub put 
mLAB*s0 1 LAB*a 16 get put 
mLAB*s0 2 LAB*a 17 get put 

nLAB*s0 0 LAB*a 18 get L*Nio sub put 
nLAB*s0 1 LAB*a 19 get put 
nLAB*s0 2 LAB*a 20 get put 

wLAB*s0 0 LAB*a 21 get L*Nio sub put 
wLAB*s0 1 LAB*a 22 get put 
wLAB*s0 2 LAB*a 23 get put

rLAB*s0 0 LAB*a 24 get L*Nio sub put
rLAB*s0 1 LAB*a 25 get put 
rLAB*s0 2 LAB*a 26 get put 

jLAB*s0 0 LAB*a 27 get L*Nio sub put 
jLAB*s0 1 LAB*a 28 get put 
jLAB*s0 2 LAB*a 29 get put 

gLAB*s0 0 LAB*a 30 get L*Nio sub put 
gLAB*s0 1 LAB*a 31 get put 
gLAB*s0 2 LAB*a 32 get put 

bLAB*s0 0 LAB*a 33 get L*Nio sub put 
bLAB*s0 1 LAB*a 34 get put 
bLAB*s0 2 LAB*a 35 get put

% Determine the input or output angle in the A* B* plane
% of each of the colours defined above
/C*Ang cLAB*s0 2 get cLAB*s0 1 get 0.0001 add atan def
/V*Ang vLAB*s0 2 get vLAB*s0 1 get 0.0001 add atan def
/M*Ang mLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def
/O*Ang oLAB*s0 2 get oLAB*s0 1 get 0.0001 add atan def
/Y*Ang yLAB*s0 2 get yLAB*s0 1 get 0.0001 add atan def
/L*Ang lLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def
/N*Ang 0 def
/W*Ang 0 def
/R*Ang rLAB*s0 2 get rLAB*s0 1 get 0.0001 add atan def
/J*Ang jLAB*s0 2 get jLAB*s0 1 get 0.0001 add atan def
/G*Ang gLAB*s0 2 get gLAB*s0 1 get 0.0001 add atan def
/B*Ang bLAB*s0 2 get bLAB*s0 1 get 0.0001 add atan def

%6+1 hue angles for 6 device colour      (index 0 to 06)
%4+1 hue angles for 4 elementary colours (index 8 to 12)
%no. 6 and 7 originaly achromatic
0 1 11 {/iHx exch def
        /i1x iHx 3 mul 1 add def
        /i2x i1x 1 add def
        LAB*Hx iHx LAB*a i2x get LAB*a i1x get 0.000001 add atan put
       } for
LAB*Hx 06 LAB*Hx 00 get 360 add put
LAB*Hx 12 LAB*Hx 08 get 360 add put

%6 Hue angles of elementary and intermediate colours e=RJGCgbBMbr
/LAB*He 7 array def
LAB*He 0 LAB*Hx 08 get put %R
LAB*He 1 LAB*Hx 09 get put %J
LAB*He 2 LAB*Hx 10 get put %G
LAB*He 3 LAB*Hx 10 get LAB*Hx 11 get add 0.5 mul put %Cgb
LAB*He 4 LAB*Hx 11 get put %B
LAB*He 5 LAB*Hx 11 get LAB*Hx 08 get 360 add add 0.5 mul put %Mbr
LAB*He 6 LAB*Hx 08 get 360 add put %R(+360)

%6 Hue angles of device and intermediate colours d=OYLCVMO
/LAB*Hd 7 array def
LAB*Hd 0 LAB*Hx 00 get put %O
LAB*Hd 1 LAB*Hx 01 get put %Y
LAB*Hd 2 LAB*Hx 02 get put %L
LAB*Hd 3 LAB*Hx 03 get put %C
LAB*Hd 4 LAB*Hx 04 get put %V
LAB*Hd 5 LAB*Hx 05 get put %M
LAB*Hd 6 LAB*Hx 00 get 360 add put %O(+360)

/ColeiNames 16 array def
/ColeiNames [(r00j) (r25j) (r50j) (r75j)
             (j00g) (j25g) (j50g) (j75g)
             (g00b) (g25b) (g50b) (g75b)
             (b00r) (b25r) (b50r) (b75r)
            ] def
          
/ColdiNames 16 array def
/ColdiNames [(o00y) (o25y) (o50y) (o75y)
             (y00l) (y25l) (y50l) (y75l)
             (l00c) (l50c) (c00v) (c50v)
             (v00m) (v50m) (m00o) (m50o)
            ] def

/L*diMa 16 array def %LAB*diMa
/A*diMa 16 array def
/B*diMa 16 array def
/o3*ddiMa 16 array def %olv3*ddiMa
/l3*ddiMa 16 array def
/v3*ddiMa 16 array def
/u*ddiMa1 16 array def %u*ddiMax
/u*ddiMai 16 array def
/u*ddiMa2 16 array def
/o3*deiMa 16 array def %olv3*deiMa
/l3*deiMa 16 array def
/v3*deiMa 16 array def
/u*deiMa1 16 array def %u*deiMax
/u*deiMai 16 array def
/u*deiMa2 16 array def

/L*eiMa 16 array def %LAB*eiMa
/A*eiMa 16 array def
/B*eiMa 16 array def
/o3*eeiMa 16 array def %olv3*eeiMa
/l3*eeiMa 16 array def
/v3*eeiMa 16 array def
/u*eeiMa1 16 array def %u*eeiMax
/u*eeiMai 16 array def
/u*eeiMa2 16 array def
/o3*ediMa 16 array def %olv3*ediMa
/l3*ediMa 16 array def
/v3*ediMa 16 array def
/u*ediMa1 16 array def %u*ediMax
/u*ediMai 16 array def
/u*ediMa2 16 array def

%/L*xiMa 16 array def %LAB*xiMa x=d/e
%/A*xiMa 16 array def
%/B*xiMa 16 array def
%/o3*xxiMa 16 array def %olv3*xxiMa xx=dd/ee
%/l3*xxiMa 16 array def
%/v3*xxiMa 16 array def
/u*xxiMa1 16 array def %u*xxiMax xx=dd/ee
/u*xxiMai 16 array def
/u*xxiMa2 16 array def
%/o3*xyiMa 16 array def %olv3*xxiMa xy=de/ed
%/l3*xyiMa 16 array def
%/v3*xyiMa 16 array def
%/u*xyiMa1 16 array def %u*xxiMax xy=de/ed
%/u*xyiMai 16 array def
%/u*xyiMa2 16 array def

%Definition LAB*diMa, olv3*deiMa, u*deiMax (all 00 to 15) by equal device (d) hue angle difference
%between O and Y, Y and L, L and C, C and V, V and M, and M and O
%Definition of OYLCVMO, 4 steps between OYL, 2 steps between LCVMO
0 1 15 {/iinx exch def %iinx=0,15
        %define device hue angle H*M of 16 hues
        iinx 00 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan def} if
        iinx 01 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.75 mul
                         LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.25 mul
                         add def} if
        iinx 02 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.50 mul
                         LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.50 mul
                         add def} if
        iinx 03 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.25 mul
                         LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.75 mul
                         add def} if
        iinx 04 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan def} if
        iinx 05 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.75 mul
                         LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.25 mul
                         add def} if
        iinx 06 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.50 mul
                         LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.50 mul
                         add def} if
        iinx 07 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.25 mul
                         LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.75 mul
                         add def} if
        iinx 08 eq {/H*M LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan def} if
        iinx 09 eq {/H*M LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.5 mul
                         LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan 0.5 mul
                         add def} if
        iinx 10 eq {/H*M LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan def} if
        iinx 11 eq {/H*M LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan 0.5 mul
                         LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan 0.5 mul
                         add def} if
        iinx 12 eq {/H*M LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan def} if
        iinx 13 eq {/H*M LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan 0.5 mul
                         LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan 0.5 mul
                         add def} if
        iinx 14 eq {/H*M LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan def} if
        iinx 15 eq {/H*M LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan 0.5 mul
                         LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 360 add 0.5 mul
                         add def} if
        proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG
        %stores LAB*diMa
        L*diMa iinx L*Ma put
        A*diMa iinx A*Ma put
        B*diMa iinx B*Ma put
        %stores olv3*ddiMa 
        o3*ddiMa iinx o3*ddMa put
        l3*ddiMa iinx l3*ddMa put
        v3*ddiMa iinx v3*ddMa put 
        %stores u*ddiMax 
        u*ddiMa1 iinx u*ddMa1 put
        u*ddiMai iinx u*ddMai put
        u*ddiMa2 iinx u*ddMa2 put
        %stores olv3*deiMa 
        o3*deiMa iinx o3*deMa put
        l3*deiMa iinx l3*deMa put
        v3*deiMa iinx v3*deMa put 
        %stores u*deiMax 
        u*deiMa1 iinx u*deMa1 put
        u*deiMai iinx u*deMai put
        u*deiMa2 iinx u*deMa2 put
       } for %iinx=0,15

%Definition LAB*eiMa, olv3*ediMa, u*ediMax (all 00 to 15) by equal elementary (e) hue angle difference
%between R and J, J and G, G and B, and B and R
 0 1 03 {/ik exch def %ik=0,3
         /H*1 RJGBLAB* ik 3 mul 2 add get
              RJGBLAB* ik 3 mul 1 add get 0.00001 add atan def
         ik 2 le {/ik2b ik 3 mul 5 add def} {/ik2b 2 def} ifelse
         /ik2a ik2b 1 sub def  
         /H*2 RJGBLAB* ik2b get RJGBLAB* ik2a get 0.00001 add atan def
         ik 3 eq {/H*2 H*2 360 add def} if
 0 1 03 {/ij exch def %ij=1,3
         ij 0 eq {/a0 1.00 def /b0 0.00 def} if
         ij 1 eq {/a0 0.75 def /b0 0.25 def} if
         ij 2 eq {/a0 0.50 def /b0 0.50 def} if
         ij 3 eq {/a0 0.25 def /b0 0.75 def} if
         /H*M a0 H*1 mul b0 H*2 mul add def
         H*M 360 ge {/H*M H*M 360 sub def} if
         proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG
         /iinx ik 4 mul ij add def
         %stores LAB*eiMa
         L*eiMa iinx L*Ma put
         A*eiMa iinx A*Ma put
         B*eiMa iinx B*Ma put
         %stores olv3*eeiMa 
         o3*eeiMa iinx o3*deMa put
         l3*eeiMa iinx l3*deMa put
         v3*eeiMa iinx v3*deMa put 
         %stores u*eeiMax 
         u*eeiMa1 iinx u*deMa1 put
         u*eeiMai iinx u*deMai put
         u*eeiMa2 iinx u*deMa2 put
         %stores olv3*ediMa 
         o3*ediMa iinx o3*ddMa put
         l3*ediMa iinx l3*ddMa put
         v3*ediMa iinx v3*ddMa put 
         %stores u*eeiMax 
         u*ediMa1 iinx u*ddMa1 put
         u*ediMai iinx u*ddMai put
         u*ediMa2 iinx u*ddMa2 put
        } for %ik=0,3
        } for %ij=0,3

0 1 15 {/i exch def %i=0,15
%L*xiMa i DEintp 0 eq {L*diMa}{L*eiMa} ifelse i get put %LAB*xiMa x=d/e
%A*xiMa i DEintp 0 eq {A*diMa}{A*eiMa} ifelse i get put
%B*xiMa i DEintp 0 eq {B*diMa}{B*eiMa} ifelse i get put
%o3*xxiMa i DEintp 0 eq {o3*ddiMa}{o3*eeiMa} ifelse i get put %olv3*xxiMa xx=dd/ee
%l3*xxiMa i DEintp 0 eq {l3*ddiMa}{l3*eeiMa} ifelse i get put
%v3*xxiMa i DEintp 0 eq {v3*ddiMa}{v3*eeiMa} ifelse i get put
u*xxiMa1 i DEintp 0 eq {u*ddiMa1}{u*eeiMa1} ifelse i get put %u*xxiMax xx=dd/ee
u*xxiMai i DEintp 0 eq {u*ddiMai}{u*eeiMai} ifelse i get put
u*xxiMa2 i DEintp 0 eq {u*ddiMa2}{u*eeiMa2} ifelse i get put
%o3*xyiMa i DEintp 0 eq {o3*deiMa}{o3*ediMa} ifelse i get put %olv3*xxiMa xy=de/ed
%l3*xyiMa i DEintp 0 eq {l3*deiMa}{l3*ediMa} ifelse i get put
%v3*xyiMa i DEintp 0 eq {v3*deiMa}{v3*ediMa} ifelse i get put
%u*xyiMa1 i DEintp 0 eq {u*deiMa1}{u*ediMa1} ifelse i get put %u*xxiMax xy=de/ed
%u*xyiMai i DEintp 0 eq {u*deiMai}{u*ediMai} ifelse i get put
%u*xyiMa2 i DEintp 0 eq {u*deiMa2}{u*ediMa2} ifelse i get put
       } for %i=0,15

} bind def %END Procedure proc_LAB*ioG

%***********************************************************

/proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG {
%BEG procedure proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG
%only for calculation without hue tables

%input  H*M (only hue (H) of Fa/Ma)
%input  LAB*a (6 adapted colours OYLCVM)
%input  nLAB*s0 (colour Black N for calculation of lab*l)
%input  wLAB*s0 (colour White W for achromatic axis)

%output LAB*Ma
%output olvi3*Ma
%output cmyn3*Ma

/L*Ha 50 def
/A*Ha 75 H*M cos mul def
/B*Ha 75 H*M sin mul def
/UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def
/UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def
/UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def

/T1 0 def
/T2 0 def
0 1 5 {/ia exch def
       /ia30 ia 3 mul def
       ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse
       /T1 LAB*a ia30       get UXF1a mul
           LAB*a ia30 1 add get UXF2a mul add
           LAB*a ia30 2 add get UXF3a mul add def
       /T2 LAB*a ia31       get UXF1a mul
           LAB*a ia31 1 add get UXF2a mul add
           LAB*a ia31 2 add get UXF3a mul add def
       T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse
       T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse
       T1 0 le T2 0 gt and {/ia3END ia30 def exit} if
      } for

/L*11a LAB*a ia3END       get def
/A*11a LAB*a ia3END 1 add get def
/B*11a LAB*a ia3END 2 add get def
ia3END 15 ge {/ia3END -3 def} if
/L*21a LAB*a ia3END 3 add get def
/A*21a LAB*a ia3END 4 add get def
/B*21a LAB*a ia3END 5 add get def

/NENNER L*21a L*11a sub UXF1a mul
        A*21a A*11a sub UXF2a mul add
        B*21a B*11a sub UXF3a mul add def
/ZAEHLE L*21a UXF1a mul
        A*21a UXF2a mul add
        B*21a UXF3a mul add def
NENNER 0 ne {/ALPH ZAEHLE NENNER div def}
            {/ALPH 99999} ifelse

/L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def
/A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def
/B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def
/C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def
/H*Ma B*Ma A*Ma atan def

/H*abd B*Ha A*Ha 0.0001 add atan def
/H*abe H*abd def

%faktor and section in actual System (for example ORS18)
/jsecd -1 def

%main equations
%faktd = [col_angh - LAB*Hd(n)]/[LAB*Hd(n+1) - LAB*Hd(n)]
%col_angh = faktd [LAB*Hd(n+1) - LAB*Hd(n)] + LAB*Hd(n)

H*abd LAB*Hd 0 get lt {/H*abd H*abd 360 add def} if

0 1 5 {/nx exch def
       /np nx 1 add def
       H*abd LAB*Hd nx get ge 
       H*abd LAB*Hd np get lt and {/jsecd nx def
                                   /faktd H*abd LAB*Hd nx get sub
                                   LAB*Hd np get LAB*Hd nx get sub div def} if
      } for %nx=0,5

%1 0 0 %O  jsecd=0
%1 1 0 %Y  jsecd=1
%0 1 0 %L  jsecd=2
%0 1 1 %C  jsecd=3
%0 0 1 %V  jsecd=4
%1 0 1 %M  jsecd=5

jsecd -1 eq {STOPjsecd} if

/fakmd 1 faktd sub def
/o3*ddMa -1 def /l3*ddMa -1 def /v3*ddMa -1 def

jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0
            /o3*ddMa 1 def     /l3*ddMa faktd def /v3*ddMa 0 def
            /u*ddMa1 (o) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (y) def} if
jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0
            /o3*ddMa fakmd def /l3*ddMa 1 def     /v3*ddMa 0 def
            /u*ddMa1 (y) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (l) def} if
jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1
            /o3*ddMa 0 def     /l3*ddMa 1 def     /v3*ddMa faktd def
            /u*ddMa1 (l) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (c) def} if
jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1
            /o3*ddMa 0 def     /l3*ddMa fakmd def /v3*ddMa 1 def
            /u*ddMa1 (c) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (v) def} if
jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1
            /o3*ddMa faktd def /l3*ddMa 0 def     /v3*ddMa 1 def
            /u*ddMa1 (v) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (m) def} if
jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0
            /o3*ddMa 1 def     /l3*ddMa 0 def     /v3*ddMa fakmd def
            /u*ddMa1 (m) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (o) def} if

o3*ddMa -1 eq {STOPo3*ddMa1} if
l3*ddMa -1 eq {STOPl3*ddMa1} if
v3*ddMa -1 eq {STOPv3*ddMa1} if

/i3*ddMa 1 def
/c3*ddMa 1 o3*ddMa sub def
/m3*ddMa 1 l3*ddMa sub def
/y3*ddMa 1 v3*ddMa sub def
/n3*ddMa 0 def

%calculations for elementary (e) system:
%faktor and section in actual System (for example ORS18)
/jsece -1 def

%main equations
%fakte = [col_angh - LAB*He(n)]/[LAB*He(n+1) - LAB*He(n)]
%col_angh = fakte [LAB*He(n+1) - LAB*He(n)] + LAB*He(n)

H*abe LAB*He 0 get lt {/H*abe H*abe 360 add def} if

0 1 5 {/nx exch def
       /np nx 1 add def
       H*abe LAB*He nx get ge 
       H*abe LAB*He np get lt and {/jsece nx def
                                   /fakte H*abe LAB*He nx get sub
                                   LAB*He np get LAB*He nx get sub div def} if
      } for %nx=0,5

%1 0 0 %R  jsece=0
%1 1 0 %J  jsece=1
%0 1 0 %G  jsece=2
%0 1 1 %C'  jsece=3
%0 0 1 %B  jsece=4
%1 0 1 %R  jsece=5

jsece -1 eq {STOPjsece} if

/fakme 1 fakte sub def
/o3*deMa -1 def /l3*deMa -1 def /v3*deMa -1 def

jsece 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0
            /o3*deMa 1 def     /l3*deMa fakte def /v3*deMa 0 def
            /u*dtMa1 (r) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (j) def
            /u*deMa1 (r) def /u*deMai fakte 99 mul cviht def /u*deMa2 (j) def} if
jsece 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0
            /o3*deMa fakme def /l3*deMa 1 def     /v3*deMa 0 def
            /u*dtMa1 (j) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (g) def
            /u*deMa1 (j) def /u*deMai fakte 99 mul cviht def /u*deMa2 (g) def} if
jsece 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1
            /o3*deMa 0 def     /l3*deMa 1 def     /v3*deMa fakte def
            /u*dtMa1 (g) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (c') def
            /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (b) def} if
jsece 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1
            /o3*deMa 0 def     /l3*deMa fakme def /v3*deMa 1 def
            /u*dtMa1 (c') def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (b) def
            /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (b) def} if
jsece 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1
            /o3*deMa fakte def /l3*deMa 0 def     /v3*deMa 1 def
            /u*dtMa1 (b) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (m') def
            /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (r) def} if
jsece 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0
            /o3*deMa 1 def     /l3*deMa 0 def     /v3*deMa fakme def
            /u*dtMa1 (m') def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (r) def
            /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (r) def} if

o3*deMa -1 eq {STOPo3*Ma0} if
l3*deMa -1 eq {STOPl3*Ma0} if
v3*deMa -1 eq {STOPv3*Ma0} if

/i3*deMa 1 def
/c3*deMa 1 o3*deMa sub def
/m3*deMa 1 l3*deMa sub def
/y3*deMa 1 v3*deMa sub def
/n3*deMa 0 def

/lab*nMa 0.00 def
/lab*cMa 1.00 def
/lab*wMa 0.00 def
/lab*tMa 0.50 def
/lab*hMa H*Ma 360 div def
/lab*lMa L*Ma nLAB*s0 0 get sub
         wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def

} bind def
%END procedure proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG

%*************************************************************

/proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG {
%BEG Procedure proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
%transfer from elementary data to device (ed) and elementary data (ee)
%For tLAB=1 Transfer to LAB*Ma and LAB*Fa

/v*s exch def /l*s exch def /o*s exch def

/i*p 0 def

%test if achromatic %W special case
%W: o*s, l*s, v*s = 1.00
1.0 o*s sub abs 0.001 le
1.0 l*s sub abs 0.001 le and
1.0 v*s sub abs 0.001 le and %W special case
{/i*p 6 def %W
 /c*rs 0 def /n*s 0 def /w*s 1 def /t*s 1 def
} if

%Test if achromatic %N special case
%N: o*n, l*n, v*n <= 0.01
o*s abs 0.001 le
l*s abs 0.001 le and
v*s abs 0.001 le and %N special case
{/i*p 6 def %N
 /c*rs 0 def /n*s 1 def /w*s 0 def /t*s 0 def
} if

%test if achromatic Grey sample
o*s l*s sub abs 0.001 le
l*s v*s sub abs 0.001 le and %Achromatic grey special case
{/i*p 6 def %Grey
 /c*rs 0 def /n*s 1 o*s sub def /w*s o*s def /t*s 1 n*s sub c*rs 0.5 mul sub def
} if

i*p 6 eq {%achromatic,chromatic colours
          /o3*edMa 1 def
          /l3*edMa 1 def
          /v3*edMa 1 def
          /o3*eeMa 1 def
          /l3*eeMa 1 def
          /v3*eeMa 1 def
          /u*edMa1 (o) def /u*edMai 0 def /u*edMa2 (y) def
          /u*etMa1 (r) def /u*etMai 0 def /u*etMa2 (j) def
          /u*eeMa1 (r) def /u*eeMai 0 def /u*eeMa2 (j) def
          /o3*ed o*s def
          /l3*ed l*s def
          /v3*ed v*s def
          /o3*ee o*s def
          /l3*ee l*s def
          /v3*ee v*s def
          } %achromatic i*p=6
          { %chromatic  i*p#6

o*s l*s ge o*s v*s ge and {/olv*smax o*s def
                           l*s v*s ge {%sector O->Y, o3*=1, l3*=0->1, v3*=0
                                       /olv*smin v*s def /olv*smean l*s def /jsecs 0 def}
                                      {%sector M->O, o3*=1, l3*=0, v3*=1->0
                                       /olv*smin l*s def /olv*smean v*s def /jsecs 5 def} ifelse
                          } if
l*s v*s ge l*s o*s ge and {/olv*smax l*s def
                           v*s o*s ge {%sector L->C, o3*=0, l3*=1, v3*=0->1
                                       /olv*smin o*s def /olv*smean v*s def /jsecs 2 def}
                                      {%sector Y->L, o3*=1->0, l3*=1, v3*=0
                                       /olv*smin v*s def /olv*smean o*s def /jsecs 1 def} ifelse
                          } if
v*s o*s ge v*s l*s ge and {/olv*smax v*s def
                           o*s l*s ge {%sector V->M, o3*=0->1, l3*=0, v3*=1
                                       /olv*smin l*s def /olv*smean o*s def /jsecs 4 def}
                                      {%sector C->V, o3*=0, l3*=0->1, v3*=1
                                       /olv*smin o*s def /olv*smean l*s def /jsecs 3 def
                                      } ifelse
                          } if

/c*rs olv*smax olv*smin sub def
/n*s 1 olv*smax sub def
/w*s 1 n*s sub c*rs sub def
/t*s 1 n*s sub c*rs 0.5 mul sub def
/b_a olv*smean olv*smax div def
/c_a olv*smin  olv*smax div def
/alpha 1 c_a sub def
/fakts b_a c_a sub alpha 0.00001 add div def
/fakms 1 fakts sub def
%jsecs interpreted as elementary hue angle
jsecs 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0
            /o3*eeMa 1 def     /l3*eeMa fakts def /v3*eeMa 0 def
            /H*Me LAB*He 0 get LAB*He 1 get LAB*He 0 get sub fakts mul add def
            /u*eeMa1 (r) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (j) def} if
jsecs 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0
            /o3*eeMa fakts def /l3*eeMa 1 def     /v3*eeMa 0 def
            /H*Me LAB*He 1 get LAB*He 2 get LAB*He 1 get sub fakms mul add def
            /u*eeMa1 (j) def /u*eeMai fakms 99 mul cviht def /u*eeMa2 (g) def} if
jsecs 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1
            /o3*eeMa 0 def     /l3*eeMa 1 def     /v3*eeMa fakts def
            /H*Me LAB*He 2 get LAB*He 3 get LAB*He 2 get sub fakts mul add def
            /u*etMa1 (g) def /u*etMai fakts 99 mul cviht def /u*etMa2 (C) def
            /u*eeMa1 (g) def /u*eeMai fakts 99 mul 0.5 mul cviht def /u*eeMa2 (b) def} if
jsecs 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1
            /o3*eeMa 0 def     /l3*eeMa fakts def /v3*eeMa 1 def
            /H*Me LAB*He 3 get LAB*He 4 get LAB*He 3 get sub fakms mul add def
            /u*etMa1 (C) def /u*etMai fakms 99 mul cviht def /u*etMa2 (b) def
            /u*eeMa1 (g) def /u*eeMai fakms 99 mul 0.5 mul 50 add cviht def /u*eeMa2 (b) def} if
jsecs 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1
            /o3*eeMa fakts def /l3*eeMa 0 def     /v3*eeMa 1 def
            /H*Me LAB*He 4 get LAB*He 5 get LAB*He 4 get sub fakts mul add def
            /u*etMa1 (b) def /u*etMai fakts 99 mul cviht def /u*etMa2 (M) def
            /u*eeMa1 (b) def /u*eeMai fakts 99 mul 0.5 mul cviht def /u*eeMa2 (r) def} if
jsecs 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0
            /o3*eeMa 1 def     /l3*eeMa 0 def     /v3*eeMa fakts def
            /H*Me LAB*He 5 get LAB*He 6 get LAB*He 5 get sub fakms mul add def
            /u*etMa1 (M) def /u*etMai fakms 99 mul cviht def /u*etMa2 (r) def
            /u*eeMa1 (b) def /u*eeMai fakms 99 mul 0.5 mul 50 add cviht def /u*eeMa2 (r) def} if
/i3*eeMa 1 def
/c3*eeMa 1 o3*eeMa sub def
/m3*eeMa 1 l3*eeMa sub def
/y3*eeMa 1 v3*eeMa sub def
/n3*eeMa 0 def

H*Me 360 ge {/H*Me H*Me 360 sub def} if

%H*Me = H*abd = H*abe for all hue angles
/H*abd H*Me def

%calculations for device (d) system:
%faktor and section in actual System (for example ORS18)
/jsece -1 def

%main equations
%faktd = [col_angh - LAB*Hd(n)]/[LAB*Hd(n+1) - LAB*Hd(n)]
%col_angh = faktd [LAB*Hd(n+1) - LAB*Hd(n)] + LAB*Hd(n)

H*abd LAB*Hd 0 get lt {/H*abd H*abd 360 add def} if

0 1 5 {/nx exch def
       /np nx 1 add def
       H*abd LAB*Hd nx get ge 
       H*abd LAB*Hd np get lt and {/jsecd nx def
                                   /faktd H*abd LAB*Hd nx get sub
                                   LAB*Hd np get LAB*Hd nx get sub div def} if
      } for %nx=0,5

%1 0 0 %O  jsecd=0
%1 1 0 %Y  jsecd=1
%0 1 0 %L  jsecd=2
%0 1 1 %C  jsecd=3
%0 0 1 %V  jsecd=4
%1 0 1 %O  jsecd=5

jsecd -1 eq {STOPjsecd} if

/fakmd 1 faktd sub def
/o3*edMa -1 def /l3*edMa -1 def /v3*edMa -1 def

jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0
            /o3*edMa 1 def     /l3*edMa faktd def /v3*edMa 0 def
            /u*dtMa1 (o) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (y) def
            /u*edMa1 (o) def /u*edMai faktd 99 mul cviht def /u*edMa2 (y) def} if
jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0
            /o3*edMa fakmd def /l3*edMa 1 def     /v3*edMa 0 def
            /u*dtMa1 (y) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (l) def
            /u*edMa1 (y) def /u*edMai faktd 99 mul cviht def /u*edMa2 (l) def} if
jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1
            /o3*edMa 0 def     /l3*edMa 1 def     /v3*edMa faktd def
            /u*dtMa1 (l) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (c) def
            /u*edMa1 (l) def /u*edMai faktd 99 mul cviht def /u*edMa2 (c) def} if
jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1
            /o3*edMa 0 def     /l3*edMa fakmd def /v3*edMa 1 def
            /u*dtMa1 (c) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (v) def
            /u*edMa1 (c) def /u*edMai faktd 99 mul cviht def /u*edMa2 (v) def} if
jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1
            /o3*edMa faktd def /l3*edMa 0 def     /v3*edMa 1 def
            /u*dtMa1 (v) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (m) def
            /u*edMa1 (v) def /u*edMai faktd 99 mul cviht def /u*edMa2 (m) def} if
jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0
            /o3*edMa 1 def     /l3*edMa 0 def     /v3*edMa fakmd def
            /u*dtMa1 (m) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (o) def
            /u*edMa1 (v) def /u*edMai faktd 99 mul cviht def /u*edMa2 (o) def} if

o3*edMa -1 eq {STOPo3*Ma0} if
l3*edMa -1 eq {STOPl3*Ma0} if
v3*edMa -1 eq {STOPv3*Ma0} if

/i3*edMa 1 def
/c3*edMa 1 o3*edMa sub def
/m3*edMa 1 l3*edMa sub def
/y3*edMa 1 v3*edMa sub def
/n3*edMa 0 def

/lab*nMa 0.00 def
/lab*cMa 1.00 def
/lab*wMa 0.00 def
/lab*tMa 0.50 def
/lab*hMa H*Ma 360 div def
/lab*lMa L*Ma nLAB*s0 0 get sub
         wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def

%/o3*ee o*s def %/o3*ee w*s o3*eeMa c*rs mul add def
%/l3*ee l*s def %/l3*ee w*s l3*eeMa c*rs mul add def
%/v3*ee v*s def %/v3*ee w*s v3*eeMa c*rs mul add def

/o3*ee w*s o3*eeMa c*rs mul add def
/l3*ee w*s l3*eeMa c*rs mul add def
/v3*ee w*s v3*eeMa c*rs mul add def

/o3*ed w*s o3*edMa c*rs mul add def
/l3*ed w*s l3*edMa c*rs mul add def
/v3*ed w*s v3*edMa c*rs mul add def

} ifelse %chromatic colour i*p#6

%For tLAB=1 Transfer to LAB*Ma and LAB*Fa
tLAB 1 eq {%tLAB = 1
i*p 6 eq
{ %achromatic,chromatic colours
/L*Ma L*Wio def
/A*Ma 0 def
/B*Ma 0 def
/H*Ma B*Ma A*Ma 0.0001 add atan def
/C*Ma 0 def
/L*Fa L*Nio L*Wio L*Nio sub w*s mul add def
/A*Fa 0 def
/B*Fa 0 def
/H*Fa B*Fa A*Fa 0.0001 add atan def
/C*Fa 0 def /l*rs w*s def
} %achromatic i*p=6
{%chromatic  i*p#6
/H*M H*Me def %H*M allready defined
/L*Ha 50 def
/A*Ha 75 H*M cos mul def
/B*Ha 75 H*M sin mul def
/UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def
/UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def
/UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def

/T1 0 def
/T2 0 def
0 1 5 {/ia exch def
       /ia30 ia 3 mul def
       ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse
       /T1 LAB*a ia30       get UXF1a mul
           LAB*a ia30 1 add get UXF2a mul add
           LAB*a ia30 2 add get UXF3a mul add def
       /T2 LAB*a ia31       get UXF1a mul
           LAB*a ia31 1 add get UXF2a mul add
           LAB*a ia31 2 add get UXF3a mul add def
       T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse
       T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse
       T1 0 le T2 0 gt and {/ia3END ia30 def exit} if
      } for

/L*11a LAB*a ia3END       get def
/A*11a LAB*a ia3END 1 add get def
/B*11a LAB*a ia3END 2 add get def
ia3END 15 ge {/ia3END -3 def} if
/L*21a LAB*a ia3END 3 add get def
/A*21a LAB*a ia3END 4 add get def
/B*21a LAB*a ia3END 5 add get def

/NENNER L*21a L*11a sub UXF1a mul
        A*21a A*11a sub UXF2a mul add
        B*21a B*11a sub UXF3a mul add def
/ZAEHLE L*21a UXF1a mul
        A*21a UXF2a mul add
        B*21a UXF3a mul add def
NENNER 0 ne {/ALPH ZAEHLE NENNER div def}
            {/ALPH 99999} ifelse

/L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def
/A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def
/B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def
/C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def
/H*Ma B*Ma A*Ma 0.0001 add atan def

%equations
%/c*rs olv*smax olv*smin sub def
%/n*s 1 olv*smax sub def
%/w*s 1 n*s sub c*rs sub def
%/t*s 1 n*s sub c*rs 0.5 mul sub def
%l* = t* + c* [L*M - L*N]/[L*W - L*N] - 0.5 c*
%l* = (L*Fa - L*Na) / (L*Wa - L*Na)
%L*Fa = l* (L*Wa - L*Na) + L*Na
%given L*Nio, L*Wio

/l*rs t*s L*Ma L*Nio sub L*Wio L*Nio sub div c*rs mul add c*rs 0.5 mul sub def
/L*Fa L*Nio L*Wio L*Nio sub l*rs mul add def
/C*Fa C*Ma c*rs mul def
/H*Fa H*Ma def
/A*Fa C*Fa H*Ma cos mul def
/B*Fa C*Fa H*Ma sin mul def

} ifelse %chromatic colour i*p#6
} if %tLAB = 1

} bind def %END Procedure proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG

%********************************************************************

/proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG { 
%BEG Procedure proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG
%transfer from device data to device (dd) and elementary data (de)
%For tLAB=1 Transfer to LAB*Ma and LAB*Fa

/v*s exch def /l*s exch def /o*s exch def

/i*p 0 def

%test if achromatic %W special case
%W: o*s, l*s, v*s = 1.00
1.0 o*s sub abs 0.001 le
1.0 l*s sub abs 0.001 le and
1.0 v*s sub abs 0.001 le and %W special case
{/i*p 6 def %W
 /c*rs 0 def /n*s 0 def /w*s 1 def /t*s 1 def
} if

%Test if achromatic %N special case
%N: o*n, l*n, v*n <= 0.01
o*s abs 0.001 le
l*s abs 0.001 le and
v*s abs 0.001 le and %N special case
{/i*p 6 def %N
 /c*rs 0 def /n*s 1 def /w*s 0 def /t*s 0 def
} if

%test if achromatic Grey sample
o*s l*s sub abs 0.001 le
l*s v*s sub abs 0.001 le and %Achromatic grey special case
{/i*p 6 def %Grey
 /c*rs 0 def /n*s 1 o*s sub def /w*s o*s def /t*s 1 n*s sub c*rs 0.5 mul sub def
} if

i*p 6 eq {%achromatic,chromatic colours
          /o3*ddMa 1 def
          /l3*ddMa 1 def
          /v3*ddMa 1 def
          /o3*deMa 1 def
          /l3*deMa 1 def
          /v3*deMa 1 def
          /u*ddMa1 (o) def /u*ddMai 0 def /u*ddMa2 (y) def
          /u*dtMa1 (r) def /u*dtMai 0 def /u*dtMa2 (j) def
          /u*deMa1 (r) def /u*deMai 0 def /u*deMa2 (j) def
          /o3*dd o*s def
          /l3*dd l*s def
          /v3*dd v*s def
          /o3*de o*s def
          /l3*de l*s def
          /v3*de v*s def
          } %achromatic i*p=6
          { %chromatic  i*p#6

o*s l*s ge o*s v*s ge and {/olv*smax o*s def
                           l*s v*s ge {%sector O->Y, o3*=1, l3*=0->1, v3*=0
                                       /olv*smin v*s def /olv*smean l*s def /jsecd 0 def}
                                      {%sector M->O, o3*=1, l3*=0, v3*=1->0
                                       /olv*smin l*s def /olv*smean v*s def /jsecd 5 def} ifelse
                          } if
l*s v*s ge l*s o*s ge and {/olv*smax l*s def
                           v*s o*s ge {%sector L->C, o3*=0, l3*=1, v3*=0->1
                                       /olv*smin o*s def /olv*smean v*s def /jsecd 2 def}
                                      {%sector Y->L, o3*=1->0, l3*=1, v3*=0
                                       /olv*smin v*s def /olv*smean o*s def /jsecd 1 def} ifelse
                          } if
v*s o*s ge v*s l*s ge and {/olv*smax v*s def
                           o*s l*s ge {%sector V->M, o3*=0->1, l3*=0, v3*=1
                                       /olv*smin l*s def /olv*smean o*s def /jsecd 4 def}
                                      {%sector C->V, o3*=0, l3*=0->1, v3*=1
                                       /olv*smin o*s def /olv*smean l*s def /jsecd 3 def
                                      } ifelse
                          } if

/c*rs olv*smax olv*smin sub def
/n*s 1 olv*smax sub def
/w*s 1 n*s sub c*rs sub def
/t*s 1 n*s sub c*rs 0.5 mul sub def

/b_a olv*smean olv*smax div def
/c_a olv*smin  olv*smax div def
/alpha 1 c_a sub def
/faktd b_a c_a sub alpha 0.00001 add div def
/fakmd 1 faktd sub def

%jsecd interpreted as device angle

jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0
            /o3*ddMa 1 def     /l3*ddMa faktd def /v3*ddMa 0 def
            /H*M LAB*Hd 0 get LAB*Hd 1 get LAB*Hd 0 get sub faktd mul add def
            /u*ddMa1 (o) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (y) def} if
jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0
            /o3*ddMa faktd def /l3*ddMa 1 def     /v3*ddMa 0 def
            /H*M LAB*Hd 1 get LAB*Hd 2 get LAB*Hd 1 get sub fakmd mul add def
            /u*ddMa1 (y) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (l) def} if
jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1
            /o3*ddMa 0 def     /l3*ddMa 1 def     /v3*ddMa faktd def
            /H*M LAB*Hd 2 get LAB*Hd 3 get LAB*Hd 2 get sub faktd mul add def
            /u*ddMa1 (l) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (c) def} if
jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1
            /o3*ddMa 0 def     /l3*ddMa faktd def /v3*ddMa 1 def
            /H*M LAB*Hd 3 get LAB*Hd 4 get LAB*Hd 3 get sub fakmd mul add def
            /u*ddMa1 (c) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (v) def} if
jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1
            /o3*ddMa faktd def /l3*ddMa 0 def     /v3*ddMa 1 def
            /H*M LAB*Hd 4 get LAB*Hd 5 get LAB*Hd 4 get sub faktd mul add def
            /u*ddMa1 (v) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (m) def} if
jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0
            /o3*ddMa 1 def     /l3*ddMa 0 def     /v3*ddMa faktd def
            /H*M LAB*Hd 5 get LAB*Hd 6 get LAB*Hd 5 get sub fakmd mul add def
            /u*ddMa1 (m) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (o) def} if
            
/i3*ddMa 1 def
/c3*ddMa 1 o3*ddMa sub def
/m3*ddMa 1 l3*ddMa sub def
/y3*ddMa 1 v3*ddMa sub def
/n3*ddMa 0 def

H*M 360 ge {/H*M H*M 360 sub def} if

%H*M = H*abd = H*abe for all hue angles
/H*abe H*M def

%calculations for elementary (e) system:
%faktor and section in actual System (for example ORS18)
/jsece -1 def

%main equations
%fakte = [col_angh - LAB*He(n)]/[LAB*He(n+1) - LAB*He(n)]
%col_angh = fakte [LAB*He(n+1) - LAB*He(n)] + LAB*He(n)

H*abe LAB*He 0 get lt {/H*abe H*abe 360 add def} if

0 1 5 {/nx exch def
       /np nx 1 add def
       H*abe LAB*He nx get ge 
       H*abe LAB*He np get lt and {/jsece nx def
                                   /fakte H*abe LAB*He nx get sub
                                   LAB*He np get LAB*He nx get sub div def} if
      } for %nx=0,5

%1 0 0 %R  jsece=0
%1 1 0 %J  jsece=1
%0 1 0 %G  jsece=2
%0 1 1 %C'  jsece=3
%0 0 1 %B  jsece=4
%1 0 1 %R  jsece=5

jsece -1 eq {STOPjsece} if

/fakme 1 fakte sub def
/o3*deMa -1 def /l3*deMa -1 def /v3*deMa -1 def

jsece 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0
            /o3*deMa 1 def     /l3*deMa fakte def /v3*deMa 0 def
            /u*dtMa1 (r) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (j) def
            /u*deMa1 (r) def /u*deMai fakte 99 mul cviht def /u*deMa2 (j) def} if
jsece 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0
            /o3*deMa fakme def /l3*deMa 1 def     /v3*deMa 0 def
            /u*dtMa1 (j) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (g) def
            /u*deMa1 (j) def /u*deMai fakte 99 mul cviht def /u*deMa2 (g) def} if
jsece 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1
            /o3*deMa 0 def     /l3*deMa 1 def     /v3*deMa fakte def
            /u*dtMa1 (g) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (C) def
            /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (b) def} if
jsece 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1
            /o3*deMa 0 def     /l3*deMa fakme def /v3*deMa 1 def
            /u*dtMa1 (C) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (b) def
            /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (b) def} if
jsece 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1
            /o3*deMa fakte def /l3*deMa 0 def     /v3*deMa 1 def
            /u*dtMa1 (b) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (M) def
            /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (r) def} if
jsece 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0
            /o3*deMa 1 def     /l3*deMa 0 def     /v3*deMa fakme def
            /u*dtMa1 (M) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (r) def
            /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (r) def} if

o3*deMa -1 eq {STOPo3*Ma0} if
l3*deMa -1 eq {STOPl3*Ma0} if
v3*deMa -1 eq {STOPv3*Ma0} if

/i3*deMa 1 def
/c3*deMa 1 o3*deMa sub def
/m3*deMa 1 l3*deMa sub def
/y3*deMa 1 v3*deMa sub def
/n3*deMa 0 def

/lab*nMa 0.00 def
/lab*cMa 1.00 def
/lab*wMa 0.00 def
/lab*tMa 0.50 def
/lab*hMa H*Ma 360 div def
/lab*lMa L*Ma nLAB*s0 0 get sub
         wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def

/o3*dd o*s def /o3*dd w*s o3*ddMa c*rs mul add def
/l3*dd l*s def /l3*dd w*s l3*ddMa c*rs mul add def
/v3*dd v*s def /v3*dd w*s v3*ddMa c*rs mul add def

/o3*de w*s o3*deMa c*rs mul add def
/l3*de w*s l3*deMa c*rs mul add def
/v3*de w*s v3*deMa c*rs mul add def

} ifelse %chromatic colour i*p#6

%For tLAB=1 Transfer to LAB*Ma and LAB*Fa
tLAB 1 eq {%tLAB = 1
i*p 6 eq
{%achromatic,chromatic colours
/L*Ma L*Wio def
/A*Ma 0 def
/B*Ma 0 def
/H*Ma B*Ma A*Ma 0.0001 add atan def
/C*Ma 0 def
/L*Fa L*Nio L*Wio L*Nio sub w*s mul add def
/A*Fa 0 def
/B*Fa 0 def
/H*Fa B*Fa A*Fa 0.0001 add atan def
/C*Fa 0 def /l*rs w*s def
} %achromatic i*p=6
{ %chromatic  i*p#6
%H*M allready defined
/L*Ha 50 def
/A*Ha 75 H*M cos mul def
/B*Ha 75 H*M sin mul def
/UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def
/UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def
/UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def

/T1 0 def
/T2 0 def
0 1 5 {/ia exch def
       /ia30 ia 3 mul def
       ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse
       /T1 LAB*a ia30       get UXF1a mul
           LAB*a ia30 1 add get UXF2a mul add
           LAB*a ia30 2 add get UXF3a mul add def
       /T2 LAB*a ia31       get UXF1a mul
           LAB*a ia31 1 add get UXF2a mul add
           LAB*a ia31 2 add get UXF3a mul add def
       T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse
       T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse
       T1 0 le T2 0 gt and {/ia3END ia30 def exit} if
      } for

/L*11a LAB*a ia3END       get def
/A*11a LAB*a ia3END 1 add get def
/B*11a LAB*a ia3END 2 add get def
ia3END 15 ge {/ia3END -3 def} if
/L*21a LAB*a ia3END 3 add get def
/A*21a LAB*a ia3END 4 add get def
/B*21a LAB*a ia3END 5 add get def

/NENNER L*21a L*11a sub UXF1a mul
        A*21a A*11a sub UXF2a mul add
        B*21a B*11a sub UXF3a mul add def
/ZAEHLE L*21a UXF1a mul
        A*21a UXF2a mul add
        B*21a UXF3a mul add def
NENNER 0 ne {/ALPH ZAEHLE NENNER div def}
            {/ALPH 99999} ifelse

/L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def
/A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def
/B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def
/C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def
/H*Ma B*Ma A*Ma 0.0001 add atan def

%equations
%/c*rs olv*smax olv*smin sub def
%/n*s 1 olv*smax sub def
%/w*s 1 n*s sub c*rs sub def
%/t*s 1 n*s sub c*rs 0.5 mul sub def
%l* = t* + c* [L*M - L*N]/[L*W - L*N] - 0.5 c*
%l* = (L*Fa - L*Na) / (L*Wa - L*Na)
%L*Fa = l* (L*Wa - L*Na) + L*Na
%given L*Nio, L*Wio

/l*rs t*s L*Ma L*Nio sub L*Wio L*Nio sub div c*rs mul add c*rs 0.5 mul sub def
/L*Fa L*Nio L*Wio L*Nio sub l*rs mul add def
/C*Fa C*Ma c*rs mul def
/H*Fa H*Ma def
/A*Fa C*Fa H*Ma cos mul def
/B*Fa C*Fa H*Ma sin mul def
} ifelse %chromatic colour i*p#6
} if %tLAB = 1

} bind def %END Procedure proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG

%******************************************************************* from De990-7N04.PS

/proc_ColSep*ioG {%BEG Procedure proc_ColSep*ioG ColourSeparation for NP-file 20090201
 
/setgc {pop pop pop 1 exch sub sggray} bind def
/setgm {pop pop 1 exch sub sggray pop} bind def
/setgy {pop 1 exch sub sggray pop pop} bind def
/setgn {1 exch sub sggray pop pop pop} bind def
/setgf {/ncolor exch def /ycolor exch def
        /mcolor exch def /ccolor exch def
        0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub sggray}
                    {1 ccolor sub 0.71 mul
                     1 mcolor sub 0.22 mul add
                     1 ycolor sub 0.07 mul add sggray} ifelse
       } bind def

/setcmykcolorf { sgcmykcolor} bind def %fuer PSL1/2-Farbgeraet

/setcmyknew { %Ersatz setcolornew durch setcmykcolor1
 ausz 1 eq {setgc} if                %C
 ausz 2 eq {setgm} if                %M
 ausz 3 eq {setgy} if                %Y
 ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgc}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Cbunt
 ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgm}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Mbunt
 ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgy}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Ybunt
 ausz 7 eq {setgn} if                %N
 ausz 8 ge {
            /setcmykcolor where        %Abfrage Farb-/SW-Geraet
            {pop setcmykcolorf}       %PSL1/2-Farb-Geraet
            {setgf}                     %PSL1-SW-Geraet
            ifelse
           } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker
 
 } bind def

%*********************************************************************

/rgb_LAB_Interp_olv*ioG {%BEG Procedure rgb_LAB_Interp_olv*ioG zm60'LABINPLT.PS
%assumes input of rgb, LAB_Interpolation and calculation of olv*

%split in chromatic and achromatic colours
%two special cases black N and white W

/b exch def /g exch def /r exch def
%For N and W interpolation for cf1#1
%r g sub abs 0.001 le
%r b sub abs 0.001 le and {%achromatic case
%                          /Case 0 def
%                          r abs 0.001 le
%                          g abs 0.001 le and
%                          b abs 0.001 le and {%N special case
%                                              /Case 1 def 
%                                             } if %N special case
%
%                          1 r sub abs 0.001 le
%                          1 g sub abs 0.001 le and
%                          1 b sub abs 0.001 le and {%W special case
%                                                    /Case 2 def
%                                                   } if
%                         }%achromatic
%                         {%chromatic
%                          /Case 3 def
%                         } ifelse %chromatic
%Case 1 eq {%Black N
%           /o* 0 def
%           /l* 0 def
%           /v* 0 def
%          } if %N special case
%Case 2 eq {%White W
%           /o* 1 def
%           /l* 1 def
%           /v* 1 def
%          } if %W special case
%
%Case 0 eq Case 3 eq or {%chromatic or gray
                        /tLAB 1 def r g b
                        proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG
                        L*Fa A*Fa B*Fa
                        Lab2RGBinterpolation
                        /v* exch def /l* exch def /o* exch def
%                       } if %chromatic or gray

} bind def %END Procedure rgb_LAB_Interp_olv*ioG 'zm60'LABINPLT.PS

%*********************************************************************

/trans_rgb3*_cmyn4*ioG {%BEG Procedure trans_rgb3*_cmyn4*ioG
%assumes input of olv*

o* 0 le {/o* 0.0000 def} if
l* 0 le {/l* 0.0000 def} if
v* 0 le {/v* 0.0000 def} if
o* 1 ge {/o* 1.0000 def} if
l* 1 ge {/l* 1.0000 def} if
v* 1 ge {/v* 1.0000 def} if

/tdel 0 def

v* l* ge l* o* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c*
%sector C-V of C-M, C>=M: i*p=0
   {/n*n 1 v* sub def
    /w*w o* def
    /tdel 1 def
   } if % v* >= l* >= o*

v* o* ge o* l* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m*
%sector V-M of C-M, M>=C: i*p=1
   {/n*n 1 v* sub def
    /w*w l* def
    /tdel 1 def
   } if % v* >= o* >= l*
   
o* v* ge v* l* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m*
%sector M-O of M-Y, M>=Y: i*p=2
   {/n*n 1 o* sub def
    /w*w l* def
    /tdel 1 def
   } if % o* >= v* >= l*
    
o* l* ge l* v* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y*
%sector O-Y of M-Y, Y>=M: i*p=3   
   {/n*n 1 o* sub def
    /w*w v* def
    /tdel 1 def
   } if % o* >= l* >= v*

l* o* ge o* v* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y*
%sector Y-L of Y-C, Y>=C: i*p=4
   {/n*n 1 l* sub def
    /w*w v* def
    /tdel 1 def
   } if % l* >= o* >= v*

l* v* ge v* o* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c*
%sector L-C of Y-C, C>=Y: i*p=5
   {/n*n 1 l* sub def
    /w*w o* def
    /tdel 1 def
   } if % l* >= v* >= o*
   
%achromatic
%W: o*, l*, v* = 1.00
1.0 o* sub abs 0.001 le
1.0 l* sub abs 0.001 le and
1.0 v* sub abs 0.001 le and %W special case
{/n*n 0 def /w*w 1 def %W
} if

%N: o*, l*, v* <= 0.001
o* abs 0.001 le
l* abs 0.001 le and
v* abs 0.001 le and %N special case
{/n*n 1 def /w*w 0 def %N
} if

%Achromatic
o* l* sub abs 0.001 le
l* v* sub abs 0.001 le and %Achromatic special case
{/n*n 1 o* sub def /w*w o* def %grey
} if

/lab*wFa w*w def
/lab*nFa n*n def

/c3*Fa 1 o* sub def
/m3*Fa 1 l* sub def
/y3*Fa 1 v* sub def

/c4*Fa c3*Fa lab*nFa sub def %at least one of cmy will be cero
/m4*Fa m3*Fa lab*nFa sub def
/y4*Fa y3*Fa lab*nFa sub def
/n4*Fa lab*nFa def %cmyn4*

/o4*Fa 1 c4*Fa sub def
/l4*Fa 1 m4*Fa sub def
/v4*Fa 1 y4*Fa sub def
/i4*Fa 1 n4*Fa sub def

} bind def %END Procedure trans_rgb3*_cmyn4*ioG

%*******************************************************************

/trans_rgb3*_cmyn5*ioG {%BEG Procedure trans_rgb3*_cmyn5*ioG
%assumes input of olv*, 'zm60'CMYN559LT.PS

o* 0 le {/o* 0.0000 def} if
l* 0 le {/l* 0.0000 def} if
v* 0 le {/v* 0.0000 def} if
o* 1 ge {/o* 1.0000 def} if
l* 1 ge {/l* 1.0000 def} if
v* 1 ge {/v* 1.0000 def} if

/ok* o* def /lk* l* def /vk* v* def

/tdel 0 def

vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c*
%sector C-V of C-M, C>=M: i*p=0
   {/n*n 1 vk* sub def
    /w*w ok* def
    /m*w lk* def
    /tdel 1 def
    /isec 3 def
   } if % v* >= l* >= o*

vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m*
%sector V-M of C-M, M>=C: i*p=1
   {/n*n 1 vk* sub def
    /w*w lk* def
    /m*w ok* def
    /tdel 1 def
    /isec 4 def
   } if % v* >= o* >= l*
   
ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m*
%sector M-O of M-Y, M>=Y: i*p=2
   {/n*n 1 ok* sub def
    /w*w lk* def
    /m*w vk* def
    /tdel 1 def
    /isec 5 def
   } if % o* >= v* >= l*
    
ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y*
%sector O-Y of M-Y, Y>=M: i*p=3   
   {/n*n 1 ok* sub def
    /w*w vk* def
    /m*w lk* def
    /tdel 1 def
    /isec 0 def
   } if % o* >= l* >= v*

lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y*
%sector Y-L of Y-C, Y>=C: i*p=4
   {/n*n 1 lk* sub def
    /w*w vk* def
    /m*w ok* def
    /tdel 1 def
    /isec 1 def
   } if % l* >= o* >= v*

lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c*
%sector L-C of Y-C, C>=Y: i*p=5
   {/n*n 1 lk* sub def
    /w*w ok* def
    /m*w vk* def
    /tdel 1 def
    /isec 2 def
   } if % l* >= v* >= o*
   
%achromatic
%W: ok*, lk*, vk* = 1.00
1.0 ok* sub abs 0.001 le
1.0 lk* sub abs 0.001 le and
1.0 vk* sub abs 0.001 le and %W special case
{/n*n 0 def /w*w 1 def /m*w 1 def %W
    /isec 6 def
} if

%N: ok*, lk*, vk* <= 0.001
ok* abs 0.001 le
lk* abs 0.001 le and
vk* abs 0.001 le and %N special case
{/n*n 1 def /w*w 0 def /m*w 0 def %N
    /isec 6 def
} if

%Achromatic
ok* lk* sub abs 0.001 le
lk* vk* sub abs 0.001 le and %Achromatic special case
{/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey
    /isec 6 def
} if

/lab*wFa w*w def
/lab*nFa n*n def
/lab*cFa 1 n*n sub w*w sub def

/argb 1 lab*nFa sub def
/brgb m*w def
/crgb lab*wFa def
/c*   lab*cFa def
/lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def

isec 6 eq {%BEG isec=6 achromatic
           /o*1 1 def
           /l*1 1 def
           /v*1 1 def
          }%END isec=6 achromatic
          {%BEG isec#6 chromatic
           /o*1 ok* argb 0.000001 add div def
           /l*1 lk* argb 0.000001 add div def
           /v*1 vk* argb 0.000001 add div def
          } ifelse %END isec#6

/c3*Fa 1 o*1 sub def
/m3*Fa 1 l*1 sub def
/y3*Fa 1 v*1 sub def

/c4*Fa c3*Fa def %at least one of cmy will be cero
/m4*Fa m3*Fa def
/y4*Fa y3*Fa def
/n4*Fa lab*nFa def %cmyn5*

/o4*Fa 1 c4*Fa sub def
/l4*Fa 1 m4*Fa sub def
/v4*Fa 1 y4*Fa sub def
/i4*Fa 1 n4*Fa sub def
              
} bind def %END Procedure trans_rgb3*_cmyn5*ioG 'zm60'CMYN559LT.PS

%*********************************************************************

/trans_rgb3*_cmyn6*ioG {%BEG Procedure trans_rgb3*_cmyn6*ioG
%assumes input of olv*, 'zm60'CMYN559LT.PS

o* 0 le {/o* 0.0000 def} if
l* 0 le {/l* 0.0000 def} if
v* 0 le {/v* 0.0000 def} if
o* 1 ge {/o* 1.0000 def} if
l* 1 ge {/l* 1.0000 def} if
v* 1 ge {/v* 1.0000 def} if

/ok* o* def /lk* l* def /vk* v* def

/tdel 0 def

vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c*
%sector C-V of C-M, C>=M: i*p=0
   {/n*n 1 vk* sub def
    /w*w ok* def
    /m*w lk* def
    /tdel 1 def
    /isec 3 def
   } if % v* >= l* >= o*

vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m*
%sector V-M of C-M, M>=C: i*p=1
   {/n*n 1 vk* sub def
    /w*w lk* def
    /m*w ok* def
    /tdel 1 def
    /isec 4 def
   } if % v* >= o* >= l*
   
ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m*
%sector M-O of M-Y, M>=Y: i*p=2
   {/n*n 1 ok* sub def
    /w*w lk* def
    /m*w vk* def
    /tdel 1 def
    /isec 5 def
   } if % o* >= v* >= l*
    
ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y*
%sector O-Y of M-Y, Y>=M: i*p=3   
   {/n*n 1 ok* sub def
    /w*w vk* def
    /m*w lk* def
    /tdel 1 def
    /isec 0 def
   } if % o* >= l* >= v*

lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y*
%sector Y-L of Y-C, Y>=C: i*p=4
   {/n*n 1 lk* sub def
    /w*w vk* def
    /m*w ok* def
    /tdel 1 def
    /isec 1 def
   } if % l* >= o* >= v*

lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c*
%sector L-C of Y-C, C>=Y: i*p=5
   {/n*n 1 lk* sub def
    /w*w ok* def
    /m*w vk* def
    /tdel 1 def
    /isec 2 def
   } if % l* >= v* >= o*
   
%achromatic
%W: ok*, lk*, vk* = 1.00
1.0 ok* sub abs 0.001 le
1.0 lk* sub abs 0.001 le and
1.0 vk* sub abs 0.001 le and %W special case
{/n*n 0 def /w*w 1 def /m*w 1 def %W
    /isec 6 def
} if

%N: ok*, lk*, vk* <= 0.001
ok* abs 0.001 le
lk* abs 0.001 le and
vk* abs 0.001 le and %N special case
{/n*n 1 def /w*w 0 def /m*w 0 def %N
    /isec 6 def
} if

%Achromatic
ok* lk* sub abs 0.001 le
lk* vk* sub abs 0.001 le and %Achromatic special case
{/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey
    /isec 6 def
} if

/lab*wFa w*w def
/lab*nFa n*n def
/lab*cFa 1 n*n sub w*w sub def

/argb 1 lab*nFa sub def
/brgb m*w def
/crgb lab*wFa def
/c*   lab*cFa def
/lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def

isec 6 eq {%BEG isec=6 achromatic
           /o*1 1 def
           /l*1 1 def
           /v*1 1 def
          }%END isec=6 achromatic
          {%BEG isec#6 chromatic
           /o*1 ok* argb 0.000001 add div def
           /l*1 lk* argb 0.000001 add div def
           /v*1 vk* argb 0.000001 add div def
          } ifelse %END isec#6

/c3*Fa 1 o*1 sub def
/m3*Fa 1 l*1 sub def
/y3*Fa 1 v*1 sub def

/c41*Fa c3*Fa def %at least one of cmy will be cero
/m41*Fa m3*Fa def
/y41*Fa y3*Fa def
/n4*Fa lab*nFa 1.3 exp def %cmyn6*

%change by deepness difference delta d* = c*S1 - c*S2
%use lab*cFa, lab*tFa for correction
%equations of three lines
%t* = 1 - 0.5 c*
%t* = [t* / c*] c*
%t* = [(t* + 0,18) / c*] c* - 0,18
%cut point S1 for nt=0,18:
%c*s1 = 1 /[ t*F / c*F + 0,5 ]
%cut point S2 for n=0,18:
%c*s1 = (1 + nt) / [ (t*F + nt) / c*F + 0,5 ]

%special case lab*cFa=0 and n=0,18
/nt 0.01 def
lab*cFa 0 eq { %lab*cFa=0,#0
              /c*S1 0 def
              /c*S2 0 def
             } %lab*cFa=0
             { %lab*cFa#0
              /c*S1 1 lab*tFa lab*cFa div 0.5 add div def
              /c*S2 1 nt add lab*tFa nt add lab*cFa div 0.5 add div def
             } ifelse %lab*cFa=0,#0

/c4*Fa c41*Fa c41*Fa c*S1 c*S2 sub mul sub def
/m4*Fa m41*Fa m41*Fa c*S1 c*S2 sub mul sub def
/y4*Fa y41*Fa y41*Fa c*S1 c*S2 sub mul sub def

/o4*Fa 1 c4*Fa sub def
/l4*Fa 1 m4*Fa sub def
/v4*Fa 1 y4*Fa sub def
/i4*Fa 1 n4*Fa sub def
              
} bind def %END Procedure trans_rgb3*_cmyn6*ioG 'zm60'CMYN559LT.PS

%*********************************************************************

%BEG 'zm60'COLM57_590415LT.PS 20090201

ColSpx 0 eq {%ColSpx=0
/tLAB 0 def
xcharti 1 ge {%xcharti>=1 'zm60'COLM57LT.PS cmy0* 20090201
colorm 0 eq {%BEG colorm=0
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG 
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           %standard cmy0* for input
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew}
                                        {o* l* v* sgrgbcolor} ifelse
                          } def
             /setgray {dup dup
                       /v* exch def /l* exch def /o* exch def
                       %DEintp 1 eq {o* l* v*
                       %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                       %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                       %standard cmy0* for input
                       /c4*Fa 1 o* sub def
                       /m4*Fa 1 l* sub def
                       /y4*Fa 1 v* sub def
                       /n4*Fa 0 def
                       rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew}
                                    {o* l* v* sgrgbcolor} ifelse
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def
                                      /i* 0 def
                                     }
                                     {/o* 1 n*n sub def
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def
                                      /i* 0 def
                                     } ifelse
                            %DEintp 1 eq {o* l* v*
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            /c4*Fa 1 o* sub def
                            /m4*Fa 1 l* sub def
                            /y4*Fa 1 v* sub def
                            /n4*Fa 0 def
                            rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew}
                                         {o* l* v* sgrgbcolor} ifelse
                           } def
            }%END colorm=0
            {%BEG colorm=1
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           o* l* v*
                           rgb_LAB_Interp_olv*ioG
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew}
                                        {o* l* v* sgrgbcolor} ifelse
                          } def
            /setgray {/w*w exch def
                      /o* w*w def /l* w*w def /v* w*w def
                      %DEintp 1 eq {o* l* v*
                      %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                      %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                      o* l* v*
                      rgb_LAB_Interp_olv*ioG
                      /c4*Fa 1 o* sub def
                      /m4*Fa 1 l* sub def
                      /y4*Fa 1 v* sub def
                      /n4*Fa 0 def
                      rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew}
                                   {o* l* v* sgrgbcolor} ifelse
                      } def
            /setcmykcolor {/n*n exch def /y*n exch def
                           /m*n exch def /c*n exch def
                           %standard cmy0* or 000n* for input
                           n*n 0 eq {/o* 1 c*n sub def
                                     /l* 1 m*n sub def 
                                     /v* 1 y*n sub def}
                                    {/o* 1 n*n sub def
                                     /l* 1 n*n sub def 
                                     /v* 1 n*n sub def} ifelse
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           o* l* v*
                           rgb_LAB_Interp_olv*ioG
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew}
                                        {o* l* v* sgrgbcolor} ifelse
                          } def
             } ifelse %END colorm=1
             }%END %xcharti>=1
             {%BEG %xcharti=0
              /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           o* l* v*
                           sgrgbcolor
                          } def
             /setgray {dup dup
                       /v* exch def /l* exch def /o* exch def
                       /c4*Fa 1 o* sub def
                       /m4*Fa 1 l* sub def
                       /y4*Fa 1 v* sub def
                       /n4*Fa 0 def
                       o*
                       sggray
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def
                                      /n4*Fa 0 def}
                                     {/o* 1 def
                                      /l* 1 def
                                      /v* 1 def
                                      /n4*Fa n*n def} ifelse
                            /c4*Fa 1 o* sub def
                            /m4*Fa 1 l* sub def
                            /y4*Fa 1 v* sub def
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            sgcmykcolor
                          } def
             } ifelse %END %xcharti=0 'zm60'COLM57LT.PS cmy0* 20090201

} if %ColSpx=0

%*********************************************************************

ColSpx 1 eq {%ColSpx=1
/tLAB 0 def
xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn6* 20080201
colorm 0 eq {%BEG colorm=0
             /olvtrans 1 def %changes olv* to olvk*
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6
                           c4*Fa m4*Fa y4*Fa n4*Fa
                           setcmyknew
                          } def
             /setgray {/w*w exch def /v* w*w def /l* w*w def /o* w*w def
                       %DEintp 1 eq {o* l* v*
                       %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                       %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                       trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6
                       c4*Fa m4*Fa y4*Fa n4*Fa
                       setcmyknew
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* or 000n* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def}
                                     {/o* 1 n*n sub def 
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def} ifelse
                            %DEintp 1 eq {o* l* v*
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            setcmyknew
                           } def
            }%END colorm=0
            {%BEG colorm=1
             /olvtrans 0 def %no change of olv*
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           o* l* v*
                           rgb_LAB_Interp_olv*ioG
                           trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6
                           c4*Fa m4*Fa y4*Fa n4*Fa
                           setcmyknew
                          } def
            /setgray {dup dup
                      /v* exch def /l* exch def /o* exch def
                      %DEintp 1 eq {o* l* v*
                      %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                      %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                      o* l* v*
                      rgb_LAB_Interp_olv*ioG
                      trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6
                      c4*Fa m4*Fa y4*Fa n4*Fa
                      setcmyknew
                     } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* or 000n* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def}
                                     {/o* 1 n*n sub def 
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def} ifelse
                            %DEintp 1 eq {o* l* v*
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            o* l* v*
                            rgb_LAB_Interp_olv*ioG
                            trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            setcmyknew
                           } def
             } ifelse %END colorm=1
             }%END %xcharti>=0
             {%BEG %xcharti=0
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           o* l* v*
                           sgrgbcolor
                          } def
             /setgray {dup dup
                       /v* exch def /l* exch def /o* exch def
                       /c4*Fa 1 o* sub def
                       /m4*Fa 1 l* sub def
                       /y4*Fa 1 v* sub def
                       /n4*Fa 0 def
                       o*
                       sggray
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def
                                      /n4*Fa 0 def}
                                     {/o* 1 def
                                      /l* 1 def
                                      /v* 1 def
                                      /n4*Fa n*n def} ifelse
                            /c4*Fa 1 o* sub def
                            /m4*Fa 1 l* sub def
                            /y4*Fa 1 v* sub def
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            sgcmykcolor
                           } def
             } ifelse %END %xcharti=0 'zm60'COLM559LT.PS cmyn6* 20080201

} if %ColSpx=1

%***************************************************************

ColSpx 2 eq {%ColSpx=2
/tLAB 0 def
xcharti 1 ge {%xcharti>=1 'zm60'COLM58LT.PS cmyn4* 20090201
colorm 0 eq {%BEG colorm=0
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4
                           c4*Fa m4*Fa y4*Fa n4*Fa
                           setcmyknew
                          } def
             /setgray {dup dup /v* exch def /l* exch def /o* exch def
                       %DEintp 1 eq {o* l* v*
                       %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                       %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                       trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4
                       c4*Fa m4*Fa y4*Fa n4*Fa
                       setcmyknew
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* or 000n* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def}
                                     {/o* 1 n*n sub def 
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def} ifelse
                            %DEintp 1 eq {o* l* v*
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            setcmyknew
                           } def
            }%END colorm=0
            {%BEG colorm=1
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           o* l* v*
                           rgb_LAB_Interp_olv*ioG
                           trans_rgb3*_cmyn4*ioG %needs olv* for input
                           %produces cmyn4*ioG as output
                           c4*Fa m4*Fa y4*Fa n4*Fa
                           setcmyknew
                          } def
            /setgray {dup dup /v* exch def /l* exch def /o* exch def
                      %DEintp 1 eq {o* l* v*
                      %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                      %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                      o* l* v*
                      rgb_LAB_Interp_olv*ioG
                      trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4
                      c4*Fa m4*Fa y4*Fa n4*Fa
                      setcmyknew
                     } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* or 000n* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def}
                                     {/o* 1 n*n sub def 
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def} ifelse
                            %DEintp 1 eq {o* l* v*
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            o* l* v*
                            rgb_LAB_Interp_olv*ioG
                            trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            setcmyknew
                           } def
             } ifelse %END colorm=1
             }%END %xcharti>=0
             {%BEG %xcharti=0
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           o* l* v*
                           sgrgbcolor
                          } def
             /setgray {dup dup /v* exch def /l* exch def /o* exch def
                       /c4*Fa 1 o* sub def
                       /m4*Fa 1 l* sub def
                       /y4*Fa 1 v* sub def
                       /n4*Fa 0 def
                       o*
                       sggray
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def
                                      /n4*Fa 0 def}
                                     {/o* 1 def
                                      /l* 1 def
                                      /v* 1 def
                                      /n4*Fa n*n def} ifelse
                            /c4*Fa 1 o* sub def
                            /m4*Fa 1 l* sub def
                            /y4*Fa 1 v* sub def
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            sgcmykcolor
                           } def
             } ifelse %END %xcharti=0 'zm60'COLM58LT.PS cmyn4* 20090201

} if %ColSpx=2

%*************************************************************

ColSpx 3 eq {%ColSpx=3
/tLAB 0 def
xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn5* 20090201
colorm 0 eq {%BEG colorm=0
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5
                           c4*Fa m4*Fa y4*Fa n4*Fa
                           setcmyknew
                          } def
             /setgray {dup dup /v* exch def /l* exch def /o* exch def
                       %DEintp 1 eq {o* l* v*
                       %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                       %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                       trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5
                       c4*Fa m4*Fa y4*Fa n4*Fa
                       setcmyknew
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* or 000n* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def}
                                     {/o* 1 n*n sub def 
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def} ifelse
                            %DEintp 1 eq {o* l* v*
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            setcmyknew
                           } def
            }%END colorm=0
            {%BEG colorm=1
             /olvtrans 0 def %no change of olv*
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           o* l* v*
                           rgb_LAB_Interp_olv*ioG
                           trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5
                           c4*Fa m4*Fa y4*Fa n4*Fa
                           setcmyknew
                          } def
            /setgray {dup dup /v* exch def /l* exch def /o* exch def
                      %DEintp 1 eq {o* l* v*
                      %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                      %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                      o* l* v*
                      rgb_LAB_Interp_olv*ioG
                      trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5
                      c4*Fa m4*Fa y4*Fa n4*Fa
                      setcmyknew
                     } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* or 000n* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def}
                                     {/o* 1 n*n sub def 
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def} ifelse
                            %DEintp 1 eq {o* l* v* 
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            o* l* v*
                            rgb_LAB_Interp_olv*ioG
                            trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            setcmyknew
                           } def
             } ifelse %END colorm=1
             }%END %xcharti>=0
             {%BEG %xcharti=0
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           o* l* v*
                           sgrgbcolor
                          } def
             /setgray {dup dup /v* exch def /l* exch def /o* exch def
                       /c4*Fa 1 o* sub def
                       /m4*Fa 1 l* sub def
                       /y4*Fa 1 v* sub def
                       /n4*Fa 0 def
                       o*
                       sggray
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def
                                      /n4*Fa 0 def}
                                     {/o* 1 def
                                      /l* 1 def
                                      /v* 1 def
                                      /n4*Fa n*n def} ifelse
                            /c4*Fa 1 o* sub def
                            /m4*Fa 1 l* sub def
                            /y4*Fa 1 v* sub def
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            sgcmykcolor
                           } def
             } ifelse %END %xcharti=0 'zm60'COLM559LT.PS cmyn5* 20090201

} if  %ColSpx=3

} bind def %BEG Procedure proc_ColSep*ioG ColourSeparation for NP-file 20090201
%*****************************************************************************
%END HK0X->HG46/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201
/CFilenameS1g                                  %START output of step S1g
(http://130.149.60.45/~farbmetrik/HG46/HG46L0N) def           %Link file name for data
/CDateS1g (2006-01-01, Name) def               %Date of calculation, Tester
/CDeviceS1g (unknown ) def                     %Device name
/CMeasS1g (HG46/HG46L0N) def               %File name measured in step S1g

%change scount2g from  2 to  10 for 10 series
%change pcount2g from  8 to 240 for 240 pages of each series
/scount1g 1 def /scount2g   1 def /scountg 1 def
/pcount1g 1 def /pcount2g  10 def /pcountg 1 def %start=1, one more 9+1!
/xchart1g 0 def /xchart2g   9 def /xchartg 0 def

/BeginEPSF {            % def   % Prepare for EPS file
/b4_Inc_state save def          % Save state for cleanup
/dict_count countdictstack def
/op_count count 1 sub def       % Count objects on op stack
userdict begin                  % Make userdict current dict
/showpage {} def
0 setgray 0 setlinecap
1 setlinewidth 0 setlinejoin
10 setmiterlimit [] 0 setdash newpath
/languagelevel where            % If level not equal to 1 then
 {pop languagelevel where       % If level not equal to 1 then
 1 ne
 {false setstrokeadjust false setoverprint
 } if
} if
} bind def

/EndEPSF {	% def
 count op_count sub {pop} repeat
 countdictstack dict_count sub {end} repeat	% Clean up dict stack
 b4_Inc_state restore
} bind def
         
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def
                                                    
% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I
 
/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/Times-ISOL1 exch definefont pop
 
/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesI-ISOL1 exch definefont pop
 
/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesB-ISOL1 exch definefont pop
 
/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesBI-ISOL1 exch definefont pop
 
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
 
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
 
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
 
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
 
%ANFA CMYKDEF
%CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97
/tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000] def
/tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000] def
%ENDE CMYKD
 
/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def
 
/colrecfiLAB* %x y width heigth LAB*
  { setcolor rec fill} bind def

/colrecstLAB* %x y width heigth LAB*
  { setcolor rec stroke} bind def

/colrecficmyn* %x y width heigth cmy0* or 000n*
  { setcmykcolor rec fill} bind def
 
/colrecstcmyn* %x y width heigth cmy0* or 000n*
  { setcmykcolor rec stroke} bind def

/colrecfiw* %x y width heigth w*
  { setgray rec fill} bind def

/colrecstw* %x y width heigth w*
  { setgray rec stroke} bind def

/colrecfiolv* %x y width heigth olv*
  { setrgbcolor rec fill} bind def

/colrecstolv* %x y width heigth olv*
  { setrgbcolor rec stroke} bind def
 
/tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours
/tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor
/tzvcmy0* {1.0 1.0 0.0 0.0} bind def
/tzccmy0* {1.0 0.0 0.0 0.0} bind def
/tzmcmy0* {0.0 1.0 0.0 0.0} bind def
/tzycmy0* {0.0 0.0 1.0 0.0} bind def

/tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours
/tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor
/tzvolv* {0.0 0.0 1.0} bind def
/tzcolv* {0.0 1.0 1.0} bind def
/tzmolv* {1.0 0.0 1.0} bind def
/tzyolv* {1.0 1.0 0.0} bind def
 
/tzoLAB* [53.34  72.46  50.66] def %Reproduction colours
/tzlLAB* [84.93 -79.83  74.80] def %LAB* setcolor
/tzvLAB* [32.20  24.88 -37.89] def
/tzcLAB* [88.10 -44.88 -13.36] def
/tzmLAB* [59.66  90.32 -19.65] def
/tzyLAB* [93.76 -20.24  85.93] def

/tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series
/tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor
/tzzcmy0* {0.50 0.50 0.50 0.00} bind def
/tzhcmy0* {0.25 0.25 0.25 0.00} bind def
/tzwcmy0* {0.00 0.00 0.00 0.00} bind def
 
/tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n*
/tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor
/tzz000n* {0.00 0.00 0.00 0.50} bind def
/tzh000n* {0.00 0.00 0.00 0.25} bind def
/tzw000n* {0.00 0.00 0.00 0.00} bind def

/tznw* {0.00} bind def %grey series
/tzdw* {0.25} bind def %w* setgray
/tzzw* {0.50} bind def
/tzhw* {0.75} bind def
/tzww* {1.00} bind def

/tznolv* {0.00 0.00 0.00} bind def %grey series
/tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor
/tzzolv* {0.50 0.50 0.50} bind def
/tzholv* {0.75 0.75 0.75} bind def
/tzwolv* {1.00 1.00 1.00} bind def

/tznLAB* [18.01 0.00 0.00] def %grey series
/tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor
/tzzLAB* [56.71 0.00 0.00] def
/tzhLAB* [76.06 0.00 0.00] def
/tzwLAB* [95.41 0.00 0.00] def

/tfn {0 setgray} bind def
/tfw {1 setgray} bind def
 /A4quer {598 0 translate 90 rotate} def
/cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def
/cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def
/cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse
           10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse
           100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse
           1000 mul cvi 0.001 mul 7 string cvs show} def
/tzank [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
        0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
        1.000 0.750 0.500 0.250 0.000] def 

%BEG xx lines comment
%1
%2
%3

%END 38 lines comment or new PS operators possible
%%EndProlog

%%BeginPageSetup
/#copies 1 def
%A4quer
1.0 1.0 scale

/pgsave save def
%%EndPageSetup
0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter
gsave
/LAB*TE [(HRS16_96, L*=16_96)] def
/SS$ [(g) (e) (s) (f) (i) (j) (m)] def
/SC$ [(N) (F) (S) (D) (T) (E) (C)] def
/SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def
/SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def
%       0           1            2            3            4            5
%       6           7            8         
/EX$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS)
      (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def
/EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT)
      (P.DAT) (T.DAT)] def
/lanindg1 0 def /lanindg2 0 def
/colormg1 0 def /colormg2 0 def
/xcolorg1 0 def /xcolorg2 0 def
/xchartg1 0 def /xchartg2 0 def
/lanindg lanindg1 def %no loops
/colormg colormg1 def
/xcolorg xcolorg1 def
/xchartg xchartg1 def

/pcount2x pcount2g xchart2g sub 2 add def

%scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10
%pcount1g 1 pcount2x {/pcountg exch def %p=page, e. g. 1,1,250
/xchart10 0 def /xchart20 29 def %29x1=29 orig, trans+1, 4 sep, 9+2x7 colour data
%pcountg pcount1g eq {/xchart10 17 def /xchart20  0 def}
%                    {/xchart10 1 def /xchart20  1 def} ifelse
%pcountg pcount2x eq {/xchart10 2 def /xchart20  9 def} if
/xchartg 0 def %xchart10 1 xchart20 {/xchartg exch def

/xcharti xchartg def

xcharti 0 eq {/ausz 8 def /xchartt (A) def} if
xcharti 1 eq {/ausz 8 def /xchartt (F) def} if
xcharti 2 eq {/ausz 8 def /xchartt (F) def} if
xcharti 3 eq {/ausz 1 def /xchartt (C) def} if
xcharti 4 eq {/ausz 2 def /xchartt (M) def} if
xcharti 5 eq {/ausz 3 def /xchartt (Y) def} if
xcharti 6 eq {/ausz 7 def /xchartt (N) def} if
xcharti 7 ge {/ausz 8 def /xchartt (F) def} if

/xchartg0 0 def

/colorm colormg def /xchart xcharti xchartg0 sub def

%LAB*ioL, ColSep*ioL, and procedures (*ioL) are only in Y10-7N.EPS
%proc_LAB*ioG, proc_ColSep*ioG, and procedures (*ioG) are only in HG46L0NP.PS6.PS and OUTLIN1X
%for colorm=0, default rgb/cmyk-values are used for Frame
%for colorm=1, rgb/cmyk-values of proc_LAB*ioG, proc_ColSep*ioG are used for Frame
%for colorm=0, rgb/cmyk-values of LAB*ioL, ColSep*ioL are used in Y10-7N
%for colorm=1, rgb/cmyk-values of proc_LAB*ioG, proc_ColSep*ioG are used in Y10-7N
%for consistancy use same procedures in Y10-7N and HG46L0NP.PS6.PS

colorm 1 eq {proc_LAB*ioG proc_ColSep*ioG} if %LAB*ioL, ColSep*ioL only in Y10-7!

%2 MM /Times-Roman FS
%274 MM 82 MM moveto -90 rotate (/HG46/  ) show (Form: ) show
%xchartg 1 add cvi 6 string cvs show (/) show
%xchart2g 1 add cvi 6 string cvs show (,) show 90 rotate
%274 MM 65 MM moveto -90 rotate (Serie: ) show
%scountg cvi 6 string cvs show (/) show
%scount2g cvi 6 string cvs show (,) show 90 rotate
%274 MM 55 MM moveto -90 rotate
%lanindg 0 eq {(Seite: )}{(Page: )} ifelse show
%pcountg xchartg xchart10 sub add cvi 6 string cvs show 90 rotate

%274 MM 45 MM moveto
%-90 rotate
%lanindg 0 eq {(Seitenz\344hlung )}{(Page: count: )} ifelse show
%scountg 1 sub pcount2g mul pcountg add
%pcountg pcount2x eq {xchartg add pcount1g pcount2x ne {2 sub } if} if
%cvi 6 string cvs show
%90 rotate
/GSS$ SS$ lanindg get def
/GSC$ SC$ colormg get def
/GSX$ SX$ xcolorg get def
/GSY$ SY$ 0 get def
/GEX$ EX$ 6 get def
/GEY$ EY$ 6 get def

%gsave
BeginEPSF
 28 MM 197 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 10

%line 329

%%EndDocument
EndEPSF grestore gsave
                    
BeginEPSF
 28 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 11

%line 339
%!PS-Adobe-3.0 EPSF-3.0 HG460-1,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG460-1,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 12

%line 349
%!PS-Adobe-3.0 EPSF-3.0 HG460-2,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG460-2,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
 28 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 13

%line 359
%!PS-Adobe-3.0 EPSF-3.0 HG460-3,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG460-3,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
 86 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 14

%line 369
%!PS-Adobe-3.0 EPSF-3.0 HG460-4,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG460-4,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
 28 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 15

%line 379
%!PS-Adobe-3.0 EPSF-3.0 HG460-5,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG460-5,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 16

%line 389
%!PS-Adobe-3.0 EPSF-3.0 HG460-6,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG460-6,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
BeginEPSF
28 MM xcharti 1 le {19}{01} ifelse MM add
20 MM xcharti 1 le {27}{15.5} ifelse MM add translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 17

%line 399
%!PS-Adobe-3.0 EPSF-3.0 HG460-7N.EPS
%%BoundingBox: 14 10 820 572

%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: Image Technology)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://xxx)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2009020112000)
  /ModDate (D:2009020112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END  PDFDE011

/ColSpxL 1 def /DEintp 1 def /rgb_cmy 0 def %Early binding
/sggray where      {pop /slgray {sggray} bind def}
                       {/slgray {setgray} bind def} ifelse
/sgcmykcolor where {pop /slcmykcolor {sgcmykcolor} bind def}
                       {/slcmykcolor {setcmykcolor} bind def} ifelse
/sgrgbcolor where  {pop /slrgbcolor {sgrgbcolor} bind def}
                       {/slrgbcolor {setrgbcolor} bind def} ifelse
/ColSpxG where  {pop /ColSpx {ColSpxG} bind def}
                    {/ColSpx {ColSpxL} bind def} ifelse
                  
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end

/Times-ISOL1 exch definefont pop

/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesI-ISOL1 exch definefont pop

/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesB-ISOL1 exch definefont pop

/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse } forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesBI-ISOL1 exch definefont pop

/Courier findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/Courier-ISOL1 exch definefont pop

/Courier-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/CourierB-ISOL1 exch definefont pop

/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/CKK {200 /Courier-ISOL1 FS} bind def
/CK {250 /Courier-ISOL1 FS} bind def
/CM {300 /Courier-ISOL1 FS} bind def
/CG {350 /Courier-ISOL1 FS} bind def

/CBKK {200 /CourierB-ISOL1 FS} bind def
/CBK {250 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def

%*****************************************************************************
%BEG HK0X->HG46/Y10-7N.EPS, ident. for NP-(*ioL), FP-files (*ioL) 20090201
%*****************************************************************************
%Data (HRS16_96, L*=16_96)

/proc_LAB*ioL {%BEG Procedure proc_LAB*ioL

%requires ISRL*ioL=0,1,3

/RJGBLAB* 12 array def
/RJGBLAB*[
  39.92  58.74  27.99 % R CIE No.09 elementary colours in LAB, D65
  81.26  -2.89  71.56 % J CIE No.10
  52.23 -42.42  13.60 % G CIE No.11
  30.57   1.41 -46.47 % B CIE No.12
] def

/LAB*  132 array def %12x3=36 including N,W + 16x3=48 elementary system + 16x3=48 device system
/LAB*a 132 array def
/LAB*Hx 13 array def %0_to_6 8_to_12 for device and elemetary colours

/LAB*00 24 array def
/LAB*01 24 array def
/LAB*02 24 array def
/LAB*03 24 array def
/LAB*04 24 array def
/LAB*05 24 array def
/LAB*06 24 array def
/LAB*07 24 array def

/LAB*TE %used in file and frame
[(HRS16_96, L*=16_96) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70)
 (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70)
 (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def

%FRS09_920_D65_ALM_HK0X.DAT, Model data are not adapted here, 55 lines, 141:195
ISRL*ioL 0 eq { %ISRL*ioL=0
/LAB*00 [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS18)
%LAB*a             %#1000 x (r g b c m y 0) %nr. pos          (ORS18_95aM)
%47.94  65.31  52.07 %O   0
%90.37 -11.16  96.17 %Y   1
%50.90 -62.97  36.71 %L   2
%58.62 -30.63 -42.75 %C   3  %see TABle 1 of ISO/IEC 15775:1999-12
%25.72  31.45 -44.36 %V   4 
%48.13  75.20 -6.80  %M   5
%18.01  0.50  -0.47  %N   7 
%95.41 -0.99   4.76  %W   8

%From LUT_De740-7N_3_4_FRS09_92DAT 20080625
%BEG GE26_22_REM.TXT, Separation cmyn62*, D65, not adapted
%100 x LAB*           %#1000 x (r g b  c m y 0)            %nr.  pos
004597 006173 003997 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0
009160 -01483 008571 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1
005688 -06367 003728 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2
005173 -03406 -03747 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3
003080 002420 -04187 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4
004532 007077 -01136 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5
001501 000031 000132 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6
009730 -00099 000209 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7
%$
%z004573 006120 003784 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0
%z009151 -01492 008587 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1
%z005696 -06168 003517 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2
%z005120 -03377 -03789 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3
%z003056 002547 -04139 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4
%z004480 007076 -01043 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5
%z001518 000043 000098 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6
%z009737 -00099 000200 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7
%$

%BEG GE26_22_REM.TXT, Separation cmyn62*, D65, adapted
%100 x LAB*a          %#1000 x (r g b  c m y 0)            %nr.  pos
%z004597 006191 003836 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0
%z009160 -01393 008367 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1
%z005688 -06332 003556 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2
%z005173 -03379 -03914 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3
%z003080 002413 -04334 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4
%z004532 007094 -01297 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5
%z001501 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6
%z009730 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7
%$
%z004573 006130 003648 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0
%z009151 -01403 008393 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1
%z005696 -06138 003367 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2
%z005120 -03358 -03932 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3
%z003056 002531 -04256 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4
%z004480 007084 -01178 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5
%z001518 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6
%z009737 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7
] def %OYLCVMO+NW



/LAB*01 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS00)
50.50  76.92  64.55 %O   0
92.66 -20.70  90.75 %Y   1
83.63 -82.76  79.90 %L   2
86.88 -46.17 -13.56 %C   3  %see TABle 1 of ISO/IEC 15775:1999-12
30.39  76.06 -103.6 %V   4 corected
57.30  94.35 -58.42 %M   5 corected
00.01   0.00   0.00 %N   7 corected
95.41   0.00   0.00 %W   8
] def %OYLCVMO+NW

/LAB*02 [%D=Device OYLCVMO+NW %for Device Reflective System (FRS06. FUJI)
32.57  61.14  43.72 %8-0-0 O-W 0 olv* setrgbcolor  64
82.73  -3.51 109.24 %8-8-0 Y-W 1 olv* setrgbcolor  32
39.43 -62.87  42.80 %0-8-0 L-W 2 olv* setrgbcolor  80
47.86 -27.73 -37.62 %0-8-8 C-W 3 olv* setrgbcolor   0 actual printer
10.16  53.56 -62.92 %0-0-8 V-W 4 olv* setrgbcolor  96
34.50  79.53 -36.77 %8-0-8 M-W 5 olv* setrgbcolor  16
06.25  -1.63  -1.73 %0-0-0 N-W 6 olv* setrgbcolor  48
91.97  -0.18  -5.11 %8-8-8 A-W 7 olv* setrgbcolor
] def %OYLCVMO+NW

/LAB*03 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS18)
52.76  71.63  49.88 %O   0
92.74 -20.03  84.97 %Y   1
84.00 -78.99  73.94 %L   2
87.14 -44.42 -13.12 %C   3 %see TABle 1 of ISO/IEC 15775:1999-12
35.47  64.92 -95.07 %V   4 %see TABle X of ISO/IEC TR 24705:2005-10
59.01  89.33 -55.68 %M   5 %see Annex A, www.ps.bam.de/RLABE.PDF
18.01   0.00   0.00 %N   6 Yr=2.52
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*04 [%Natural symmetric Luminous System OYLCVMO+NW (NLS00)
31.81  82.62  47.70 %O   0 95.40/2 = 47.70
63.61  00.00  95.40 %Y   1 C*ab = 95.40
31.81 -82.62  47.70 %L   2 0.866 C*ab = 0.866 * 95.40 = 82.62
63.61 -82.62 -47.70 %C   3 delta L*=25.8
31.81  00.00 -95.40 %V   4 43.81=00.01+31.80
63.61  82.62 -47.70 %M   5 69.61=00.01+2*31.80
00.01   0.00   0.00 %N   6 95.40/3 = 31.80
95.41   0.00   0.00 %W   7 95.40*(2/3) = 63.60
] def %CVMOYLC+NW

/LAB*05 [%Natural symmetric Luminous System OYLCVMO+NW (NLS18)
43.81  67.03  38.70 %O   0 77.40/2 = 38.70
69.61  00.00  77.40 %Y   1 C*ab = 77.40
43.81 -67.03  38.70 %L   2 0.866 C*ab = 67.03
69.61 -67.03 -38.70 %C   3 delta L*=25.8
43.81  00.00 -77.40 %V   4 43.81=18.01+25.80
69.61  67.03 -38.70 %M   5 69.61=18.01+2*25.80
18.01   0.00   0.00 %N   6 18.01+77.40/3 = 18.01+25.80=43.81
95.41   0.00   0.00 %W   7 18.01+77.40*(2/3) = 18.01+51.60=69.61
] def %CVMOYLC+NW

/LAB*06 [%Symmetric Reflective System OYLCVMO+NW (SRS18) 
56.71  67.03  38.70 %O   0 18.01 + 77.40*0.5 = 18.01 + 38.70 = 56.71
56.71  00.00  77.40 %Y   1 C*ab = 77.40
56.71 -67.03  38.70 %L   2 0.866 C*ab = 67.03
56.71 -67.03 -38.70 %C   3 delta L*=25.8
56.71  00.00 -77.40 %V   4 43.81=18.01+25.80
56.71  67.03 -38.70 %M   5 69.61=18.01+2*25.80
18.01   0.00   0.00 %N   6
95.41   0.00   0.00 %W   7 95.41=18.01+3*25.80
] def %CVMOYLC+NW

/LAB*07 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS70)
76.43  26.27  10.57 %O   0
93.93 -10.77  34.63 %Y   1
89.32 -35.81  27.64 %L   2
90.93 -21.96  -7.08 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
72.10  15.76 -35.64 %V   4
78.50  37.52 -25.24 %M   5
69.70   0.00   0.00 %N   6 Yr=40.32
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

} if %ISRL*ioL=0

ISRL*ioL 1 eq { %ISRL*ioL=1

/LAB*00 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS00)
50.50  76.91  64.55 %O   0
92.66 -20.68  90.75 %Y   1
83.62 -82.74  79.90 %L   2
86.88 -46.15 -13.54 %C   3 %see TABle 1 of ISO/IEC 15775:1999-12
30.39  76.06 -103.6 %V   4 %see TABle X of ISO/IEC TR 24705:2005-10
57.31  94.35 -58.40 %M   5 %see Annex A, www.ps.bam.de/RLABE.PDF
00.01   0.00   0.00 %N   6 Yr=0.00
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*01 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS06)
51.08  75.54  59.69 %O   0
92.68 -20.51  89.24 %Y   1
83.72 -81.79  78.32 %L   2
86.94 -45.72 -13.43 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
31.77  72.91 -101.3 %V   4
57.74  93.06 -57.71 %M   5 
05.69   0.00   0.00 %N   6 Yr=0.63
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*02 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS11)
51.65  74.20  55.83 %O   0
92.70 -20.35  87.77 %Y   1
83.81 -80.85  76.81 %L   2
87.01 -45.28 -13.33 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
33.06  70.03 -99.09 %V   4
58.17  91.80 -57.03 %M   5 
10.99   0.00   0.00 %N   6 Yr=1.26
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*03 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS18)
52.76  71.63  49.88 %O   0
92.74 -20.03  84.97 %Y   1
84.00 -78.99  73.94 %L   2
87.14 -44.42 -13.12 %C   3 %see TABle 1 of ISO/IEC 15775:1999-12
35.47  64.92 -95.07 %V   4 %see TABle X of ISO/IEC TR 24705:2005-10
59.01  89.33 -55.68 %M   5 %see Annex A, www.ps.bam.de/RLABE.PDF
18.01   0.00   0.00 %N   6 Yr=2.52
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*04 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS27)
54.88  66.84  41.69 %O   0
92.82 -19.39  79.81 %Y   1
84.37 -75.39  68.76 %L   2
87.40 -42.72 -12.70 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
39.70  56.66 -88.02 %V   4
60.64  84.61 -53.08 %M   5 
26.85   0.00   0.00 %N   6 Yr=5.04
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*05 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS38)
58.77  58.45  31.73 %O   0
92.98 -18.11  70.81 %Y   1
85.11 -68.58  60.02 %L   2
87.92 -39.42 -11.87 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
46.64  44.93 -76.56 %V   4
63.71  75.92 -48.22 %M   5 
37.99   0.00   0.00 %N   6 Yr=10.08
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*06 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS52)
65.53  45.06  20.98 %O   0
93.30 -15.61  56.27 %Y   1
86.55 -56.31  46.52 %L   2
88.94 -33.19 -10.24 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
57.17  30.66 -59.40 %V   4
69.22  60.95 -39.57 %M   5
52.02   0.00   0.00 %N   6 Yr=20.16
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

/LAB*07 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS70)
76.43  26.27  10.57 %O   0
93.93 -10.77  34.63 %Y   1
89.32 -35.81  27.64 %L   2
90.93 -21.96  -7.08 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
72.10  15.76 -35.64 %V   4
78.50  37.52 -25.24 %M   5 
69.70   0.00   0.00 %N   6 Yr=40.32
95.41   0.00   0.00 %W   7
] def %CVMOYLC+NW

} if %ISRL*ioL=1

ISRL*ioL 2 eq { %ISRL*ioL=2

/LAB*00 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS00)
45.14  71.37  75.54 %O   0
90.22 -10.60  99.51 %Y   1
48.45 -73.19  42.21 %L   2
56.88 -33.11 -47.41 %C   3 %see TABle 1 of ISO/IEC 15775:1999-12
16.48  45.84 -56.22 %V   4 %see TABle X of ISO/IEC TR 24705:2005-10
45.36  81.85  -9.29 %M   5 %see Annex A, www.ps.bam.de/RLABE.PDF
00.01   0.00   0.00 %N   6 Yr=0.00
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*01 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS06)
45.87  69.79  66.99 %O   0
90.25 -10.51  97.42 %Y   1
49.08 -70.28  40.08 %L   2
57.33 -32.38 -46.80 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
19.26  40.73 -52.47 %V   4
46.07  80.12  -9.04 %M   5
05.69   0.00   0.00 %N   6 Yr=0.63
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*02 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS11)
46.57  68.27  59.62 %O   0
90.29 -10.43  95.45 %Y   1
49.70 -67.60  38.19 %L   2
57.76 -31.68 -46.19 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
21.67  36.81 -49.37 %V   4
46.77  78.45  -8.80 %M   5
10.99   0.00   0.00 %N   6 Yr=1.26
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*03 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS18)
47.94  65.39  50.52 %O   0
90.37 -10.26  91.75 %Y   1
50.90 -62.83  34.96 %L   2
58.62 -30.34 -45.01 %C   3 %see TABle 1 of ISO/IEC 15775:1999-12
25.72  31.10 -44.40 %V   4 %see TABle X of ISO/IEC TR 24705:2005-10
48.13  75.28  -8.36 %M   5 %see Annex A, www.ps.bam.de/RLABE.PDF
18.01   0.00   0.00 %N   6 Yr=2.52
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*04 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS27)
50.51  60.17  40.13 %O   0
90.52  -9.92  85.20 %Y   1
53.18 -55.04  30.00 %L   2
60.28 -27.91 -42.75 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
32.06  24.02 -37.32 %V   4
50.68  69.50  -7.57 %M   5 
26.85   0.00   0.00 %N   6 Yr=5.04
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*05 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS38)
55.13  51.42  29.16 %O   0
90.83  -9.25  74.37 %Y   1
57.35 -43.84  23.35 %L   2
63.39 -23.83 -38.56 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
41.26  16.67 -28.49 %V   4
55.27  59.74  -6.32 %M   5 
37.99   0.00   0.00 %N   6 Yr=10.08
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*06 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS52)
62.90  38.38  18.55 %O   0
91.44  -7.95  57.91 %Y   1
64.49 -30.06  15.67 %L   2
68.98 -17.74 -31.24 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
53.87  10.09 -18.84 %V   4
63.00  44.96  -4.56 %M   5
52.02   0.00   0.00 %N   6 Yr=20.16
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

/LAB*07 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS70)
75.01  21.53   9.07 %O   0
92.64  -5.45  34.85 %Y   1
75.86 -15.50   7.96 %L   2
78.37  -9.90 -19.51 %C   3 %see Annex A, www.ps.bam.de/RLABE.PDF
70.54   4.74  -9.47 %V   4
75.07  25.47  -2.46 %M   5 
69.70   0.00   0.00 %N   6 Yr=40.32
95.41   0.00   0.00 %W   7
] def %OYLCVMO+NW

} if %ISRL*ioL=2

0 1 11 {/sISO exch def %sISO=0,11
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        sISO 7 le { %sISO=0,7
        ISIO*ioL 0 eq { %ORS18/TLS00/OLS00
        LAB* i30 LAB*00 i30 get 100 div put
        LAB* i31 LAB*00 i31 get 100 div put
        LAB* i32 LAB*00 i32 get 100 div put
                    } if
        ISIO*ioL 1 eq { %TLS00/TLS06/OLS06
        LAB* i30 LAB*01 i30 get put
        LAB* i31 LAB*01 i31 get put
        LAB* i32 LAB*01 i32 get put
                    } if
        ISIO*ioL 2 eq { %FRS06/TLS11/OLS11
        LAB* i30 LAB*02 i30 get put
        LAB* i31 LAB*02 i31 get put
        LAB* i32 LAB*02 i32 get put
                    } if
        ISIO*ioL 3 eq { %TLS18/TLS18/OLS18
        LAB* i30 LAB*03 i30 get put
        LAB* i31 LAB*03 i31 get put
        LAB* i32 LAB*03 i32 get put
                    } if
        ISIO*ioL 4 eq { %NLS00/TSL28/OLS28
        LAB* i30 LAB*04 i30 get put
        LAB* i31 LAB*04 i31 get put
        LAB* i32 LAB*04 i32 get put
                    } if
        ISIO*ioL 5 eq { %NRS18/TLS38/OLS38
        LAB* i30 LAB*05 i30 get put
        LAB* i31 LAB*05 i31 get put
        LAB* i32 LAB*05 i32 get put
                    } if
        ISIO*ioL 6 eq { %SRS18/TLS50/OLS50
        LAB* i30 LAB*06 i30 get put
        LAB* i31 LAB*06 i31 get put
        LAB* i32 LAB*06 i32 get put
                    } if
        ISIO*ioL 7 eq { %TLS70/TLS70/OLS70
        LAB* i30 LAB*07 i30 get put
        LAB* i31 LAB*07 i31 get put
        LAB* i32 LAB*07 i32 get put
                    } if
       } %sISO=0,7
       {%sISO=8,11
        %Definition 8 to 11 (24 to 35=33+2)
        /jISO sISO 8 sub def /j30 jISO 3 mul def 
        /j31 j30 1 add def /j32 j30 2 add def
        LAB* i30 RJGBLAB* j30 get put
        LAB* i31 RJGBLAB* j31 get put
        LAB* i32 RJGBLAB* j32 get put
        LAB*a i30 LAB* i30 get put
        LAB*a i31 LAB* i31 get put
        LAB*a i32 LAB* i32 get put
       } ifelse
       } for %sISO=0,11

% possible change of LAB*a according to reduced gamut
%LAB* = 20 for Black N
%LAB* = 95 for White W
%cfakt = (95 - 20)/(95.41 - 18.01) = 0.969
%LAB*L*Nn = 20 for Black N instead of LAB*L*N = 18,01
%LAB*L*Wn = 95 for White W instead of LAB*L*W = 95,41
%LAB*L*Zn = 20+(95-20)/2=57,5 for Grey Z instead of
%LAB*L*Z  = 18,01+(95,41-18,01)/2=56,71
%L*neu = L*alt + (1 - cfakt
%For achromatic
%deltaLmean = 57,5 (1-c*neu); 56,71 (1-c*alt)
%deltaLmimu = 20,0 (1-c*neu); 18,01 (1-c*alt)
%deltaLplus = 95,0 (1-c*neu); 95,41 (1-c*alt)
%For chromatic M
%deltaLmean = L*Ma,neu; L*Ma,alt = known
%C*Ma,alt known, C*Ma,neu known

/L*Nio LAB* 18 get def
/A*Nio LAB* 19 get def
/B*Nio LAB* 20 get def
/L*Wio LAB* 21 get def
/A*Wio LAB* 22 get def
/B*Wio LAB* 23 get def

/L*Wioref 95.0 def
/L*Nioref 18.0 def
/cfakt 1 def
%/cfakt L*Wioref L*Nioref sub L*Wio L*Nio sub div def

cfakt 1 ne {%cfakt#1
%change of lightness for Maximum colour
/l*CIEN L*Nioref L*Nio sub L*Wio L*Nio sub div def
/l*CIEW L*Wioref L*Nio sub L*Wio L*Nio sub div def
%LAB* 18 L*Nioref put %defined change of lightness and chroma a*,b* for N
LAB* 19 A*Nio A*Wio A*Nio sub l*CIEN  mul add put
LAB* 20 B*Nio B*Wio B*Nio sub l*CIEN  mul add put
%LAB* 21 L*Wioref put %defined change of lightness and chroma a*,b* for W
LAB* 22 A*Nio A*Wio A*Nio sub l*CIEW  mul add put
LAB* 23 B*Nio B*Wio B*Nio sub l*CIEW  mul add put

%change of chroma by factor cfakt
0 1 07 {/iISO exch def
        /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        /l*CIEL LAB* i30 get L*Nio sub L*Wio L*Nio sub div def
        LAB* i30 L*Nioref L*Wioref L*Nioref sub l*CIEL mul add put
        LAB* i31 LAB* i31 get cfakt mul put
        LAB* i32 LAB* i32 get cfakt mul put
       } for
} if %cfakt#1
/L*Nior LAB* 18 get def %r=reference for reverse transform
/A*Nior LAB* 19 get def
/B*Nior LAB* 20 get def
/L*Wior LAB* 21 get def
/A*Wior LAB* 22 get def
/B*Wior LAB* 23 get def
/cf1 0.90 def
0 1 7 {/iISO exch def %iISO=0,7
       /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
       /l*CIE LAB* i30 get L*Nior sub L*Wior L*Nior sub div def
       /a*sr A*Wior A*Nior sub l*CIE mul def
       /b*sr B*Wior B*Nior sub l*CIE mul def
       /L*Z L*Nior L*Wior L*Nior sub 0.5 mul add def
       LAB*a i30 LAB* i30 get iISO 7 le {L*Z sub cf1 mul L*Z add} if put
       LAB*a i31 LAB* i31 get A*Nior sub a*sr sub cf1 mul put
       LAB*a i32 LAB* i32 get B*Nior sub b*sr sub cf1 mul put
      } for
/L*Nio LAB*a 18 get def %=18.01
/A*Nio LAB*a 19 get def %=0
/B*Nio LAB*a 20 get def %=0

/L*Wio LAB*a 21 get def %=95.41
/A*Wio LAB*a 22 get def %=0
/B*Wio LAB*a 23 get def %=0

/A*Dio A*Wio A*Nio sub def %=0
/B*Dio B*Wio B*Nio sub def %=0

/cLAB*s0 3 array def %C cyan blue
/vLAB*s0 3 array def %V violet blue
/mLAB*s0 3 array def %M magenta red
/oLAB*s0 3 array def %O orange red
/yLAB*s0 3 array def %Y yellow
/lLAB*s0 3 array def %L leaf green
/nLAB*s0 3 array def %N black
/wLAB*s0 3 array def %W white
/rLAB*s0 3 array def %R elementary red
/jLAB*s0 3 array def %J elementary yellow
/gLAB*s0 3 array def %G elementary green
/bLAB*s0 3 array def %B elementary blue

%Determine Matrix data input or output data
oLAB*s0 0 LAB*a  0 get L*Nio sub put
oLAB*s0 1 LAB*a  1 get put
oLAB*s0 2 LAB*a  2 get put

yLAB*s0 0 LAB*a  3 get L*Nio sub put
yLAB*s0 1 LAB*a  4 get put
yLAB*s0 2 LAB*a  5 get put

lLAB*s0 0 LAB*a  6 get L*Nio sub put
lLAB*s0 1 LAB*a  7 get put
lLAB*s0 2 LAB*a  8 get put

cLAB*s0 0 LAB*a  9 get L*Nio sub put
cLAB*s0 1 LAB*a 10 get put 
cLAB*s0 2 LAB*a 11 get put 

vLAB*s0 0 LAB*a 12 get L*Nio sub put
vLAB*s0 1 LAB*a 13 get put 
vLAB*s0 2 LAB*a 14 get put 

mLAB*s0 0 LAB*a 15 get L*Nio sub put 
mLAB*s0 1 LAB*a 16 get put 
mLAB*s0 2 LAB*a 17 get put 

nLAB*s0 0 LAB*a 18 get L*Nio sub put 
nLAB*s0 1 LAB*a 19 get put 
nLAB*s0 2 LAB*a 20 get put 

wLAB*s0 0 LAB*a 21 get L*Nio sub put 
wLAB*s0 1 LAB*a 22 get put 
wLAB*s0 2 LAB*a 23 get put

rLAB*s0 0 LAB*a 24 get L*Nio sub put
rLAB*s0 1 LAB*a 25 get put 
rLAB*s0 2 LAB*a 26 get put 

jLAB*s0 0 LAB*a 27 get L*Nio sub put 
jLAB*s0 1 LAB*a 28 get put 
jLAB*s0 2 LAB*a 29 get put 

gLAB*s0 0 LAB*a 30 get L*Nio sub put 
gLAB*s0 1 LAB*a 31 get put 
gLAB*s0 2 LAB*a 32 get put 

bLAB*s0 0 LAB*a 33 get L*Nio sub put 
bLAB*s0 1 LAB*a 34 get put 
bLAB*s0 2 LAB*a 35 get put

% Determine the input or output angle in the A* B* plane
% of each of the colours defined above
/C*Ang cLAB*s0 2 get cLAB*s0 1 get 0.0001 add atan def
/V*Ang vLAB*s0 2 get vLAB*s0 1 get 0.0001 add atan def
/M*Ang mLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def
/O*Ang oLAB*s0 2 get oLAB*s0 1 get 0.0001 add atan def
/Y*Ang yLAB*s0 2 get yLAB*s0 1 get 0.0001 add atan def
/L*Ang lLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def
/N*Ang 0 def
/W*Ang 0 def
/R*Ang rLAB*s0 2 get rLAB*s0 1 get 0.0001 add atan def
/J*Ang jLAB*s0 2 get jLAB*s0 1 get 0.0001 add atan def
/G*Ang gLAB*s0 2 get gLAB*s0 1 get 0.0001 add atan def
/B*Ang bLAB*s0 2 get bLAB*s0 1 get 0.0001 add atan def

%6+1 hue angles for 6 device colour      (index 0 to 06)
%4+1 hue angles for 4 elementary colours (index 8 to 12)
%no. 6 and 7 originaly achromatic
0 1 11 {/iHx exch def
        /i1x iHx 3 mul 1 add def
        /i2x i1x 1 add def
        LAB*Hx iHx LAB*a i2x get LAB*a i1x get 0.000001 add atan put
       } for
LAB*Hx 06 LAB*Hx 00 get 360 add put
LAB*Hx 12 LAB*Hx 08 get 360 add put

%6 Hue angles of elementary and intermediate colours e=RJGCgbBMbr
/LAB*He 7 array def
LAB*He 0 LAB*Hx 08 get put %R
LAB*He 1 LAB*Hx 09 get put %J
LAB*He 2 LAB*Hx 10 get put %G
LAB*He 3 LAB*Hx 10 get LAB*Hx 11 get add 0.5 mul put %Cgb
LAB*He 4 LAB*Hx 11 get put %B
LAB*He 5 LAB*Hx 11 get LAB*Hx 08 get 360 add add 0.5 mul put %Mbr
LAB*He 6 LAB*Hx 08 get 360 add put %R(+360)

%6 Hue angles of device and intermediate colours d=OYLCVMO
/LAB*Hd 7 array def
LAB*Hd 0 LAB*Hx 00 get put %O
LAB*Hd 1 LAB*Hx 01 get put %Y
LAB*Hd 2 LAB*Hx 02 get put %L
LAB*Hd 3 LAB*Hx 03 get put %C
LAB*Hd 4 LAB*Hx 04 get put %V
LAB*Hd 5 LAB*Hx 05 get put %M
LAB*Hd 6 LAB*Hx 00 get 360 add put %O(+360)

/ColeiNames 16 array def
/ColeiNames [(r00j) (r25j) (r50j) (r75j)
             (j00g) (j25g) (j50g) (j75g)
             (g00b) (g25b) (g50b) (g75b)
             (b00r) (b25r) (b50r) (b75r)
            ] def
          
/ColdiNames 16 array def
/ColdiNames [(o00y) (o25y) (o50y) (o75y)
             (y00l) (y25l) (y50l) (y75l)
             (l00c) (l50c) (c00v) (c50v)
             (v00m) (v50m) (m00o) (m50o)
            ] def

/L*diMa 16 array def %LAB*diMa
/A*diMa 16 array def
/B*diMa 16 array def
/o3*ddiMa 16 array def %olv3*ddiMa
/l3*ddiMa 16 array def
/v3*ddiMa 16 array def
/u*ddiMa1 16 array def %u*ddiMax
/u*ddiMai 16 array def
/u*ddiMa2 16 array def
/o3*deiMa 16 array def %olv3*deiMa
/l3*deiMa 16 array def
/v3*deiMa 16 array def
/u*deiMa1 16 array def %u*deiMax
/u*deiMai 16 array def
/u*deiMa2 16 array def

/L*eiMa 16 array def %LAB*eiMa
/A*eiMa 16 array def
/B*eiMa 16 array def
/o3*eeiMa 16 array def %olv3*eeiMa
/l3*eeiMa 16 array def
/v3*eeiMa 16 array def
/u*eeiMa1 16 array def %u*eeiMax
/u*eeiMai 16 array def
/u*eeiMa2 16 array def
/o3*ediMa 16 array def %olv3*ediMa
/l3*ediMa 16 array def
/v3*ediMa 16 array def
/u*ediMa1 16 array def %u*ediMax
/u*ediMai 16 array def
/u*ediMa2 16 array def

%/L*xiMa 16 array def %LAB*xiMa x=d/e
%/A*xiMa 16 array def
%/B*xiMa 16 array def
%/o3*xxiMa 16 array def %olv3*xxiMa xx=dd/ee
%/l3*xxiMa 16 array def
%/v3*xxiMa 16 array def
/u*xxiMa1 16 array def %u*xxiMax xx=dd/ee
/u*xxiMai 16 array def
/u*xxiMa2 16 array def
%/o3*xyiMa 16 array def %olv3*xxiMa xy=de/ed
%/l3*xyiMa 16 array def
%/v3*xyiMa 16 array def
%/u*xyiMa1 16 array def %u*xxiMax xy=de/ed
%/u*xyiMai 16 array def
%/u*xyiMa2 16 array def

%Definition LAB*diMa, olv3*deiMa, u*deiMax (all 00 to 15) by equal device (d) hue angle difference
%between O and Y, Y and L, L and C, C and V, V and M, and M and O
%Definition of OYLCVMO, 4 steps between OYL, 2 steps between LCVMO
0 1 15 {/iinx exch def %iinx=0,15
        %define device hue angle H*M of 16 hues
        iinx 00 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan def} if
        iinx 01 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.75 mul
                         LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.25 mul
                         add def} if
        iinx 02 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.50 mul
                         LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.50 mul
                         add def} if
        iinx 03 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.25 mul
                         LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.75 mul
                         add def} if
        iinx 04 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan def} if
        iinx 05 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.75 mul
                         LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.25 mul
                         add def} if
        iinx 06 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.50 mul
                         LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.50 mul
                         add def} if
        iinx 07 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.25 mul
                         LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.75 mul
                         add def} if
        iinx 08 eq {/H*M LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan def} if
        iinx 09 eq {/H*M LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.5 mul
                         LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan 0.5 mul
                         add def} if
        iinx 10 eq {/H*M LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan def} if
        iinx 11 eq {/H*M LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan 0.5 mul
                         LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan 0.5 mul
                         add def} if
        iinx 12 eq {/H*M LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan def} if
        iinx 13 eq {/H*M LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan 0.5 mul
                         LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan 0.5 mul
                         add def} if
        iinx 14 eq {/H*M LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan def} if
        iinx 15 eq {/H*M LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan 0.5 mul
                         LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 360 add 0.5 mul
                         add def} if
        proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioL
        %stores LAB*diMa
        L*diMa iinx L*Ma put
        A*diMa iinx A*Ma put
        B*diMa iinx B*Ma put
        %stores olv3*ddiMa 
        o3*ddiMa iinx o3*ddMa put
        l3*ddiMa iinx l3*ddMa put
        v3*ddiMa iinx v3*ddMa put 
        %stores u*ddiMax 
        u*ddiMa1 iinx u*ddMa1 put
        u*ddiMai iinx u*ddMai put
        u*ddiMa2 iinx u*ddMa2 put
        %stores olv3*deiMa 
        o3*deiMa iinx o3*deMa put
        l3*deiMa iinx l3*deMa put
        v3*deiMa iinx v3*deMa put 
        %stores u*deiMax 
        u*deiMa1 iinx u*deMa1 put
        u*deiMai iinx u*deMai put
        u*deiMa2 iinx u*deMa2 put
       } for %iinx=0,15

%Definition LAB*eiMa, olv3*ediMa, u*ediMax (all 00 to 15) by equal elementary (e) hue angle difference
%between R and J, J and G, G and B, and B and R
 0 1 03 {/ik exch def %ik=0,3
         /H*1 RJGBLAB* ik 3 mul 2 add get
              RJGBLAB* ik 3 mul 1 add get 0.00001 add atan def
         ik 2 le {/ik2b ik 3 mul 5 add def} {/ik2b 2 def} ifelse
         /ik2a ik2b 1 sub def  
         /H*2 RJGBLAB* ik2b get RJGBLAB* ik2a get 0.00001 add atan def
         ik 3 eq {/H*2 H*2 360 add def} if
 0 1 03 {/ij exch def %ij=1,3
         ij 0 eq {/a0 1.00 def /b0 0.00 def} if
         ij 1 eq {/a0 0.75 def /b0 0.25 def} if
         ij 2 eq {/a0 0.50 def /b0 0.50 def} if
         ij 3 eq {/a0 0.25 def /b0 0.75 def} if
         /H*M a0 H*1 mul b0 H*2 mul add def
         H*M 360 ge {/H*M H*M 360 sub def} if
         proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioL
         /iinx ik 4 mul ij add def
         %stores LAB*eiMa
         L*eiMa iinx L*Ma put
         A*eiMa iinx A*Ma put
         B*eiMa iinx B*Ma put
         %stores olv3*eeiMa 
         o3*eeiMa iinx o3*deMa put
         l3*eeiMa iinx l3*deMa put
         v3*eeiMa iinx v3*deMa put 
         %stores u*eeiMax 
         u*eeiMa1 iinx u*deMa1 put
         u*eeiMai iinx u*deMai put
         u*eeiMa2 iinx u*deMa2 put
         %stores olv3*ediMa 
         o3*ediMa iinx o3*ddMa put
         l3*ediMa iinx l3*ddMa put
         v3*ediMa iinx v3*ddMa put 
         %stores u*eeiMax 
         u*ediMa1 iinx u*ddMa1 put
         u*ediMai iinx u*ddMai put
         u*ediMa2 iinx u*ddMa2 put
        } for %ik=0,3
        } for %ij=0,3

0 1 15 {/i exch def %i=0,15
%L*xiMa i DEintp 0 eq {L*diMa}{L*eiMa} ifelse i get put %LAB*xiMa x=d/e
%A*xiMa i DEintp 0 eq {A*diMa}{A*eiMa} ifelse i get put
%B*xiMa i DEintp 0 eq {B*diMa}{B*eiMa} ifelse i get put
%o3*xxiMa i DEintp 0 eq {o3*ddiMa}{o3*eeiMa} ifelse i get put %olv3*xxiMa xx=dd/ee
%l3*xxiMa i DEintp 0 eq {l3*ddiMa}{l3*eeiMa} ifelse i get put
%v3*xxiMa i DEintp 0 eq {v3*ddiMa}{v3*eeiMa} ifelse i get put
u*xxiMa1 i DEintp 0 eq {u*ddiMa1}{u*eeiMa1} ifelse i get put %u*xxiMax xx=dd/ee
u*xxiMai i DEintp 0 eq {u*ddiMai}{u*eeiMai} ifelse i get put
u*xxiMa2 i DEintp 0 eq {u*ddiMa2}{u*eeiMa2} ifelse i get put
%o3*xyiMa i DEintp 0 eq {o3*deiMa}{o3*ediMa} ifelse i get put %olv3*xxiMa xy=de/ed
%l3*xyiMa i DEintp 0 eq {l3*deiMa}{l3*ediMa} ifelse i get put
%v3*xyiMa i DEintp 0 eq {v3*deiMa}{v3*ediMa} ifelse i get put
%u*xyiMa1 i DEintp 0 eq {u*deiMa1}{u*ediMa1} ifelse i get put %u*xxiMax xy=de/ed
%u*xyiMai i DEintp 0 eq {u*deiMai}{u*ediMai} ifelse i get put
%u*xyiMa2 i DEintp 0 eq {u*deiMa2}{u*ediMa2} ifelse i get put
       } for %i=0,15

} bind def %END Procedure proc_LAB*ioL

%***********************************************************

/proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioL {
%BEG procedure proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioL
%only for calculation without hue tables

%input  H*M (only hue (H) of Fa/Ma)
%input  LAB*a (6 adapted colours OYLCVM)
%input  nLAB*s0 (colour Black N for calculation of lab*l)
%input  wLAB*s0 (colour White W for achromatic axis)

%output LAB*Ma
%output olvi3*Ma
%output cmyn3*Ma

/L*Ha 50 def
/A*Ha 75 H*M cos mul def
/B*Ha 75 H*M sin mul def
/UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def
/UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def
/UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def

/T1 0 def
/T2 0 def
0 1 5 {/ia exch def
       /ia30 ia 3 mul def
       ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse
       /T1 LAB*a ia30       get UXF1a mul
           LAB*a ia30 1 add get UXF2a mul add
           LAB*a ia30 2 add get UXF3a mul add def
       /T2 LAB*a ia31       get UXF1a mul
           LAB*a ia31 1 add get UXF2a mul add
           LAB*a ia31 2 add get UXF3a mul add def
       T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse
       T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse
       T1 0 le T2 0 gt and {/ia3END ia30 def exit} if
      } for

/L*11a LAB*a ia3END       get def
/A*11a LAB*a ia3END 1 add get def
/B*11a LAB*a ia3END 2 add get def
ia3END 15 ge {/ia3END -3 def} if
/L*21a LAB*a ia3END 3 add get def
/A*21a LAB*a ia3END 4 add get def
/B*21a LAB*a ia3END 5 add get def

/NENNER L*21a L*11a sub UXF1a mul
        A*21a A*11a sub UXF2a mul add
        B*21a B*11a sub UXF3a mul add def
/ZAEHLE L*21a UXF1a mul
        A*21a UXF2a mul add
        B*21a UXF3a mul add def
NENNER 0 ne {/ALPH ZAEHLE NENNER div def}
            {/ALPH 99999} ifelse

/L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def
/A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def
/B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def
/C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def
/H*Ma B*Ma A*Ma atan def

/H*abd B*Ha A*Ha 0.0001 add atan def
/H*abe H*abd def

%faktor and section in actual System (for example ORS18)
/jsecd -1 def

%main equations
%faktd = [col_angh - LAB*Hd(n)]/[LAB*Hd(n+1) - LAB*Hd(n)]
%col_angh = faktd [LAB*Hd(n+1) - LAB*Hd(n)] + LAB*Hd(n)

H*abd LAB*Hd 0 get lt {/H*abd H*abd 360 add def} if

0 1 5 {/nx exch def
       /np nx 1 add def
       H*abd LAB*Hd nx get ge 
       H*abd LAB*Hd np get lt and {/jsecd nx def
                                   /faktd H*abd LAB*Hd nx get sub
                                   LAB*Hd np get LAB*Hd nx get sub div def} if
      } for %nx=0,5

%1 0 0 %O  jsecd=0
%1 1 0 %Y  jsecd=1
%0 1 0 %L  jsecd=2
%0 1 1 %C  jsecd=3
%0 0 1 %V  jsecd=4
%1 0 1 %M  jsecd=5

jsecd -1 eq {STOPjsecd} if

/fakmd 1 faktd sub def
/o3*ddMa -1 def /l3*ddMa -1 def /v3*ddMa -1 def

jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0
            /o3*ddMa 1 def     /l3*ddMa faktd def /v3*ddMa 0 def
            /u*ddMa1 (o) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (y) def} if
jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0
            /o3*ddMa fakmd def /l3*ddMa 1 def     /v3*ddMa 0 def
            /u*ddMa1 (y) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (l) def} if
jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1
            /o3*ddMa 0 def     /l3*ddMa 1 def     /v3*ddMa faktd def
            /u*ddMa1 (l) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (c) def} if
jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1
            /o3*ddMa 0 def     /l3*ddMa fakmd def /v3*ddMa 1 def
            /u*ddMa1 (c) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (v) def} if
jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1
            /o3*ddMa faktd def /l3*ddMa 0 def     /v3*ddMa 1 def
            /u*ddMa1 (v) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (m) def} if
jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0
            /o3*ddMa 1 def     /l3*ddMa 0 def     /v3*ddMa fakmd def
            /u*ddMa1 (m) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (o) def} if

o3*ddMa -1 eq {STOPo3*ddMa1} if
l3*ddMa -1 eq {STOPl3*ddMa1} if
v3*ddMa -1 eq {STOPv3*ddMa1} if

/i3*ddMa 1 def
/c3*ddMa 1 o3*ddMa sub def
/m3*ddMa 1 l3*ddMa sub def
/y3*ddMa 1 v3*ddMa sub def
/n3*ddMa 0 def

%calculations for elementary (e) system:
%faktor and section in actual System (for example ORS18)
/jsece -1 def

%main equations
%fakte = [col_angh - LAB*He(n)]/[LAB*He(n+1) - LAB*He(n)]
%col_angh = fakte [LAB*He(n+1) - LAB*He(n)] + LAB*He(n)

H*abe LAB*He 0 get lt {/H*abe H*abe 360 add def} if

0 1 5 {/nx exch def
       /np nx 1 add def
       H*abe LAB*He nx get ge 
       H*abe LAB*He np get lt and {/jsece nx def
                                   /fakte H*abe LAB*He nx get sub
                                   LAB*He np get LAB*He nx get sub div def} if
      } for %nx=0,5

%1 0 0 %R  jsece=0
%1 1 0 %J  jsece=1
%0 1 0 %G  jsece=2
%0 1 1 %C'  jsece=3
%0 0 1 %B  jsece=4
%1 0 1 %R  jsece=5

jsece -1 eq {STOPjsece} if

/fakme 1 fakte sub def
/o3*deMa -1 def /l3*deMa -1 def /v3*deMa -1 def

jsece 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0
            /o3*deMa 1 def     /l3*deMa fakte def /v3*deMa 0 def
            /u*dtMa1 (r) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (j) def
            /u*deMa1 (r) def /u*deMai fakte 99 mul cviht def /u*deMa2 (j) def} if
jsece 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0
            /o3*deMa fakme def /l3*deMa 1 def     /v3*deMa 0 def
            /u*dtMa1 (j) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (g) def
            /u*deMa1 (j) def /u*deMai fakte 99 mul cviht def /u*deMa2 (g) def} if
jsece 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1
            /o3*deMa 0 def     /l3*deMa 1 def     /v3*deMa fakte def
            /u*dtMa1 (g) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (c') def
            /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (b) def} if
jsece 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1
            /o3*deMa 0 def     /l3*deMa fakme def /v3*deMa 1 def
            /u*dtMa1 (c') def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (b) def
            /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (b) def} if
jsece 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1
            /o3*deMa fakte def /l3*deMa 0 def     /v3*deMa 1 def
            /u*dtMa1 (b) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (m') def
            /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (r) def} if
jsece 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0
            /o3*deMa 1 def     /l3*deMa 0 def     /v3*deMa fakme def
            /u*dtMa1 (m') def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (r) def
            /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (r) def} if

o3*deMa -1 eq {STOPo3*Ma0} if
l3*deMa -1 eq {STOPl3*Ma0} if
v3*deMa -1 eq {STOPv3*Ma0} if

/i3*deMa 1 def
/c3*deMa 1 o3*deMa sub def
/m3*deMa 1 l3*deMa sub def
/y3*deMa 1 v3*deMa sub def
/n3*deMa 0 def

/lab*nMa 0.00 def
/lab*cMa 1.00 def
/lab*wMa 0.00 def
/lab*tMa 0.50 def
/lab*hMa H*Ma 360 div def
/lab*lMa L*Ma nLAB*s0 0 get sub
         wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def

} bind def
%END procedure proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioL

%*************************************************************

/proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL {
%BEG Procedure proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
%transfer from elementary data to device (ed) and elementary data (ee)
%For tLAB=1 Transfer to LAB*Ma and LAB*Fa

/v*s exch def /l*s exch def /o*s exch def

/i*p 0 def

%test if achromatic %W special case
%W: o*s, l*s, v*s = 1.00
1.0 o*s sub abs 0.001 le
1.0 l*s sub abs 0.001 le and
1.0 v*s sub abs 0.001 le and %W special case
{/i*p 6 def %W
 /c*rs 0 def /n*s 0 def /w*s 1 def /t*s 1 def
} if

%Test if achromatic %N special case
%N: o*n, l*n, v*n <= 0.01
o*s abs 0.001 le
l*s abs 0.001 le and
v*s abs 0.001 le and %N special case
{/i*p 6 def %N
 /c*rs 0 def /n*s 1 def /w*s 0 def /t*s 0 def
} if

%test if achromatic Grey sample
o*s l*s sub abs 0.001 le
l*s v*s sub abs 0.001 le and %Achromatic grey special case
{/i*p 6 def %Grey
 /c*rs 0 def /n*s 1 o*s sub def /w*s o*s def /t*s 1 n*s sub c*rs 0.5 mul sub def
} if

i*p 6 eq {%achromatic,chromatic colours
          /o3*edMa 1 def
          /l3*edMa 1 def
          /v3*edMa 1 def
          /o3*eeMa 1 def
          /l3*eeMa 1 def
          /v3*eeMa 1 def
          /u*edMa1 (o) def /u*edMai 0 def /u*edMa2 (y) def
          /u*etMa1 (r) def /u*etMai 0 def /u*etMa2 (j) def
          /u*eeMa1 (r) def /u*eeMai 0 def /u*eeMa2 (j) def
          /o3*ed o*s def
          /l3*ed l*s def
          /v3*ed v*s def
          /o3*ee o*s def
          /l3*ee l*s def
          /v3*ee v*s def
          } %achromatic i*p=6
          { %chromatic  i*p#6

o*s l*s ge o*s v*s ge and {/olv*smax o*s def
                           l*s v*s ge {%sector O->Y, o3*=1, l3*=0->1, v3*=0
                                       /olv*smin v*s def /olv*smean l*s def /jsecs 0 def}
                                      {%sector M->O, o3*=1, l3*=0, v3*=1->0
                                       /olv*smin l*s def /olv*smean v*s def /jsecs 5 def} ifelse
                          } if
l*s v*s ge l*s o*s ge and {/olv*smax l*s def
                           v*s o*s ge {%sector L->C, o3*=0, l3*=1, v3*=0->1
                                       /olv*smin o*s def /olv*smean v*s def /jsecs 2 def}
                                      {%sector Y->L, o3*=1->0, l3*=1, v3*=0
                                       /olv*smin v*s def /olv*smean o*s def /jsecs 1 def} ifelse
                          } if
v*s o*s ge v*s l*s ge and {/olv*smax v*s def
                           o*s l*s ge {%sector V->M, o3*=0->1, l3*=0, v3*=1
                                       /olv*smin l*s def /olv*smean o*s def /jsecs 4 def}
                                      {%sector C->V, o3*=0, l3*=0->1, v3*=1
                                       /olv*smin o*s def /olv*smean l*s def /jsecs 3 def
                                      } ifelse
                          } if

/c*rs olv*smax olv*smin sub def
/n*s 1 olv*smax sub def
/w*s 1 n*s sub c*rs sub def
/t*s 1 n*s sub c*rs 0.5 mul sub def
/b_a olv*smean olv*smax div def
/c_a olv*smin  olv*smax div def
/alpha 1 c_a sub def
/fakts b_a c_a sub alpha 0.00001 add div def
/fakms 1 fakts sub def
%jsecs interpreted as elementary hue angle
jsecs 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0
            /o3*eeMa 1 def     /l3*eeMa fakts def /v3*eeMa 0 def
            /H*Me LAB*He 0 get LAB*He 1 get LAB*He 0 get sub fakts mul add def
            /u*eeMa1 (r) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (j) def} if
jsecs 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0
            /o3*eeMa fakts def /l3*eeMa 1 def     /v3*eeMa 0 def
            /H*Me LAB*He 1 get LAB*He 2 get LAB*He 1 get sub fakms mul add def
            /u*eeMa1 (j) def /u*eeMai fakms 99 mul cviht def /u*eeMa2 (g) def} if
jsecs 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1
            /o3*eeMa 0 def     /l3*eeMa 1 def     /v3*eeMa fakts def
            /H*Me LAB*He 2 get LAB*He 3 get LAB*He 2 get sub fakts mul add def
            /u*etMa1 (g) def /u*etMai fakts 99 mul cviht def /u*etMa2 (C) def
            /u*eeMa1 (g) def /u*eeMai fakts 99 mul 0.5 mul cviht def /u*eeMa2 (b) def} if
jsecs 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1
            /o3*eeMa 0 def     /l3*eeMa fakts def /v3*eeMa 1 def
            /H*Me LAB*He 3 get LAB*He 4 get LAB*He 3 get sub fakms mul add def
            /u*etMa1 (C) def /u*etMai fakms 99 mul cviht def /u*etMa2 (b) def
            /u*eeMa1 (g) def /u*eeMai fakms 99 mul 0.5 mul 50 add cviht def /u*eeMa2 (b) def} if
jsecs 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1
            /o3*eeMa fakts def /l3*eeMa 0 def     /v3*eeMa 1 def
            /H*Me LAB*He 4 get LAB*He 5 get LAB*He 4 get sub fakts mul add def
            /u*etMa1 (b) def /u*etMai fakts 99 mul cviht def /u*etMa2 (M) def
            /u*eeMa1 (b) def /u*eeMai fakts 99 mul 0.5 mul cviht def /u*eeMa2 (r) def} if
jsecs 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0
            /o3*eeMa 1 def     /l3*eeMa 0 def     /v3*eeMa fakts def
            /H*Me LAB*He 5 get LAB*He 6 get LAB*He 5 get sub fakms mul add def
            /u*etMa1 (M) def /u*etMai fakms 99 mul cviht def /u*etMa2 (r) def
            /u*eeMa1 (b) def /u*eeMai fakms 99 mul 0.5 mul 50 add cviht def /u*eeMa2 (r) def} if
/i3*eeMa 1 def
/c3*eeMa 1 o3*eeMa sub def
/m3*eeMa 1 l3*eeMa sub def
/y3*eeMa 1 v3*eeMa sub def
/n3*eeMa 0 def

H*Me 360 ge {/H*Me H*Me 360 sub def} if

%H*Me = H*abd = H*abe for all hue angles
/H*abd H*Me def

%calculations for device (d) system:
%faktor and section in actual System (for example ORS18)
/jsece -1 def

%main equations
%faktd = [col_angh - LAB*Hd(n)]/[LAB*Hd(n+1) - LAB*Hd(n)]
%col_angh = faktd [LAB*Hd(n+1) - LAB*Hd(n)] + LAB*Hd(n)

H*abd LAB*Hd 0 get lt {/H*abd H*abd 360 add def} if

0 1 5 {/nx exch def
       /np nx 1 add def
       H*abd LAB*Hd nx get ge 
       H*abd LAB*Hd np get lt and {/jsecd nx def
                                   /faktd H*abd LAB*Hd nx get sub
                                   LAB*Hd np get LAB*Hd nx get sub div def} if
      } for %nx=0,5

%1 0 0 %O  jsecd=0
%1 1 0 %Y  jsecd=1
%0 1 0 %L  jsecd=2
%0 1 1 %C  jsecd=3
%0 0 1 %V  jsecd=4
%1 0 1 %O  jsecd=5

jsecd -1 eq {STOPjsecd} if

/fakmd 1 faktd sub def
/o3*edMa -1 def /l3*edMa -1 def /v3*edMa -1 def

jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0
            /o3*edMa 1 def     /l3*edMa faktd def /v3*edMa 0 def
            /u*dtMa1 (o) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (y) def
            /u*edMa1 (o) def /u*edMai faktd 99 mul cviht def /u*edMa2 (y) def} if
jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0
            /o3*edMa fakmd def /l3*edMa 1 def     /v3*edMa 0 def
            /u*dtMa1 (y) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (l) def
            /u*edMa1 (y) def /u*edMai faktd 99 mul cviht def /u*edMa2 (l) def} if
jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1
            /o3*edMa 0 def     /l3*edMa 1 def     /v3*edMa faktd def
            /u*dtMa1 (l) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (c) def
            /u*edMa1 (l) def /u*edMai faktd 99 mul cviht def /u*edMa2 (c) def} if
jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1
            /o3*edMa 0 def     /l3*edMa fakmd def /v3*edMa 1 def
            /u*dtMa1 (c) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (v) def
            /u*edMa1 (c) def /u*edMai faktd 99 mul cviht def /u*edMa2 (v) def} if
jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1
            /o3*edMa faktd def /l3*edMa 0 def     /v3*edMa 1 def
            /u*dtMa1 (v) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (m) def
            /u*edMa1 (v) def /u*edMai faktd 99 mul cviht def /u*edMa2 (m) def} if
jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0
            /o3*edMa 1 def     /l3*edMa 0 def     /v3*edMa fakmd def
            /u*dtMa1 (m) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (o) def
            /u*edMa1 (v) def /u*edMai faktd 99 mul cviht def /u*edMa2 (o) def} if

o3*edMa -1 eq {STOPo3*Ma0} if
l3*edMa -1 eq {STOPl3*Ma0} if
v3*edMa -1 eq {STOPv3*Ma0} if

/i3*edMa 1 def
/c3*edMa 1 o3*edMa sub def
/m3*edMa 1 l3*edMa sub def
/y3*edMa 1 v3*edMa sub def
/n3*edMa 0 def

/lab*nMa 0.00 def
/lab*cMa 1.00 def
/lab*wMa 0.00 def
/lab*tMa 0.50 def
/lab*hMa H*Ma 360 div def
/lab*lMa L*Ma nLAB*s0 0 get sub
         wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def

%/o3*ee o*s def %/o3*ee w*s o3*eeMa c*rs mul add def
%/l3*ee l*s def %/l3*ee w*s l3*eeMa c*rs mul add def
%/v3*ee v*s def %/v3*ee w*s v3*eeMa c*rs mul add def

/o3*ee w*s o3*eeMa c*rs mul add def
/l3*ee w*s l3*eeMa c*rs mul add def
/v3*ee w*s v3*eeMa c*rs mul add def

/o3*ed w*s o3*edMa c*rs mul add def
/l3*ed w*s l3*edMa c*rs mul add def
/v3*ed w*s v3*edMa c*rs mul add def

} ifelse %chromatic colour i*p#6

%For tLAB=1 Transfer to LAB*Ma and LAB*Fa
tLAB 1 eq {%tLAB = 1
i*p 6 eq
{ %achromatic,chromatic colours
/L*Ma L*Wio def
/A*Ma 0 def
/B*Ma 0 def
/H*Ma B*Ma A*Ma 0.0001 add atan def
/C*Ma 0 def
/L*Fa L*Nio L*Wio L*Nio sub w*s mul add def
/A*Fa 0 def
/B*Fa 0 def
/H*Fa B*Fa A*Fa 0.0001 add atan def
/C*Fa 0 def /l*rs w*s def
} %achromatic i*p=6
{%chromatic  i*p#6
/H*M H*Me def %H*M allready defined
/L*Ha 50 def
/A*Ha 75 H*M cos mul def
/B*Ha 75 H*M sin mul def
/UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def
/UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def
/UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def

/T1 0 def
/T2 0 def
0 1 5 {/ia exch def
       /ia30 ia 3 mul def
       ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse
       /T1 LAB*a ia30       get UXF1a mul
           LAB*a ia30 1 add get UXF2a mul add
           LAB*a ia30 2 add get UXF3a mul add def
       /T2 LAB*a ia31       get UXF1a mul
           LAB*a ia31 1 add get UXF2a mul add
           LAB*a ia31 2 add get UXF3a mul add def
       T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse
       T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse
       T1 0 le T2 0 gt and {/ia3END ia30 def exit} if
      } for

/L*11a LAB*a ia3END       get def
/A*11a LAB*a ia3END 1 add get def
/B*11a LAB*a ia3END 2 add get def
ia3END 15 ge {/ia3END -3 def} if
/L*21a LAB*a ia3END 3 add get def
/A*21a LAB*a ia3END 4 add get def
/B*21a LAB*a ia3END 5 add get def

/NENNER L*21a L*11a sub UXF1a mul
        A*21a A*11a sub UXF2a mul add
        B*21a B*11a sub UXF3a mul add def
/ZAEHLE L*21a UXF1a mul
        A*21a UXF2a mul add
        B*21a UXF3a mul add def
NENNER 0 ne {/ALPH ZAEHLE NENNER div def}
            {/ALPH 99999} ifelse

/L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def
/A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def
/B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def
/C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def
/H*Ma B*Ma A*Ma 0.0001 add atan def

%equations
%/c*rs olv*smax olv*smin sub def
%/n*s 1 olv*smax sub def
%/w*s 1 n*s sub c*rs sub def
%/t*s 1 n*s sub c*rs 0.5 mul sub def
%l* = t* + c* [L*M - L*N]/[L*W - L*N] - 0.5 c*
%l* = (L*Fa - L*Na) / (L*Wa - L*Na)
%L*Fa = l* (L*Wa - L*Na) + L*Na
%given L*Nio, L*Wio

/l*rs t*s L*Ma L*Nio sub L*Wio L*Nio sub div c*rs mul add c*rs 0.5 mul sub def
/L*Fa L*Nio L*Wio L*Nio sub l*rs mul add def
/C*Fa C*Ma c*rs mul def
/H*Fa H*Ma def
/A*Fa C*Fa H*Ma cos mul def
/B*Fa C*Fa H*Ma sin mul def

} ifelse %chromatic colour i*p#6
} if %tLAB = 1

} bind def %END Procedure proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL

%********************************************************************

/proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL { 
%BEG Procedure proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL
%transfer from device data to device (dd) and elementary data (de)
%For tLAB=1 Transfer to LAB*Ma and LAB*Fa

/v*s exch def /l*s exch def /o*s exch def

/i*p 0 def

%test if achromatic %W special case
%W: o*s, l*s, v*s = 1.00
1.0 o*s sub abs 0.001 le
1.0 l*s sub abs 0.001 le and
1.0 v*s sub abs 0.001 le and %W special case
{/i*p 6 def %W
 /c*rs 0 def /n*s 0 def /w*s 1 def /t*s 1 def
} if

%Test if achromatic %N special case
%N: o*n, l*n, v*n <= 0.01
o*s abs 0.001 le
l*s abs 0.001 le and
v*s abs 0.001 le and %N special case
{/i*p 6 def %N
 /c*rs 0 def /n*s 1 def /w*s 0 def /t*s 0 def
} if

%test if achromatic Grey sample
o*s l*s sub abs 0.001 le
l*s v*s sub abs 0.001 le and %Achromatic grey special case
{/i*p 6 def %Grey
 /c*rs 0 def /n*s 1 o*s sub def /w*s o*s def /t*s 1 n*s sub c*rs 0.5 mul sub def
} if

i*p 6 eq {%achromatic,chromatic colours
          /o3*ddMa 1 def
          /l3*ddMa 1 def
          /v3*ddMa 1 def
          /o3*deMa 1 def
          /l3*deMa 1 def
          /v3*deMa 1 def
          /u*ddMa1 (o) def /u*ddMai 0 def /u*ddMa2 (y) def
          /u*dtMa1 (r) def /u*dtMai 0 def /u*dtMa2 (j) def
          /u*deMa1 (r) def /u*deMai 0 def /u*deMa2 (j) def
          /o3*dd o*s def
          /l3*dd l*s def
          /v3*dd v*s def
          /o3*de o*s def
          /l3*de l*s def
          /v3*de v*s def
          } %achromatic i*p=6
          { %chromatic  i*p#6

o*s l*s ge o*s v*s ge and {/olv*smax o*s def
                           l*s v*s ge {%sector O->Y, o3*=1, l3*=0->1, v3*=0
                                       /olv*smin v*s def /olv*smean l*s def /jsecd 0 def}
                                      {%sector M->O, o3*=1, l3*=0, v3*=1->0
                                       /olv*smin l*s def /olv*smean v*s def /jsecd 5 def} ifelse
                          } if
l*s v*s ge l*s o*s ge and {/olv*smax l*s def
                           v*s o*s ge {%sector L->C, o3*=0, l3*=1, v3*=0->1
                                       /olv*smin o*s def /olv*smean v*s def /jsecd 2 def}
                                      {%sector Y->L, o3*=1->0, l3*=1, v3*=0
                                       /olv*smin v*s def /olv*smean o*s def /jsecd 1 def} ifelse
                          } if
v*s o*s ge v*s l*s ge and {/olv*smax v*s def
                           o*s l*s ge {%sector V->M, o3*=0->1, l3*=0, v3*=1
                                       /olv*smin l*s def /olv*smean o*s def /jsecd 4 def}
                                      {%sector C->V, o3*=0, l3*=0->1, v3*=1
                                       /olv*smin o*s def /olv*smean l*s def /jsecd 3 def
                                      } ifelse
                          } if

/c*rs olv*smax olv*smin sub def
/n*s 1 olv*smax sub def
/w*s 1 n*s sub c*rs sub def
/t*s 1 n*s sub c*rs 0.5 mul sub def

/b_a olv*smean olv*smax div def
/c_a olv*smin  olv*smax div def
/alpha 1 c_a sub def
/faktd b_a c_a sub alpha 0.00001 add div def
/fakmd 1 faktd sub def

%jsecd interpreted as device angle

jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0
            /o3*ddMa 1 def     /l3*ddMa faktd def /v3*ddMa 0 def
            /H*M LAB*Hd 0 get LAB*Hd 1 get LAB*Hd 0 get sub faktd mul add def
            /u*ddMa1 (o) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (y) def} if
jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0
            /o3*ddMa faktd def /l3*ddMa 1 def     /v3*ddMa 0 def
            /H*M LAB*Hd 1 get LAB*Hd 2 get LAB*Hd 1 get sub fakmd mul add def
            /u*ddMa1 (y) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (l) def} if
jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1
            /o3*ddMa 0 def     /l3*ddMa 1 def     /v3*ddMa faktd def
            /H*M LAB*Hd 2 get LAB*Hd 3 get LAB*Hd 2 get sub faktd mul add def
            /u*ddMa1 (l) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (c) def} if
jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1
            /o3*ddMa 0 def     /l3*ddMa faktd def /v3*ddMa 1 def
            /H*M LAB*Hd 3 get LAB*Hd 4 get LAB*Hd 3 get sub fakmd mul add def
            /u*ddMa1 (c) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (v) def} if
jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1
            /o3*ddMa faktd def /l3*ddMa 0 def     /v3*ddMa 1 def
            /H*M LAB*Hd 4 get LAB*Hd 5 get LAB*Hd 4 get sub faktd mul add def
            /u*ddMa1 (v) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (m) def} if
jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0
            /o3*ddMa 1 def     /l3*ddMa 0 def     /v3*ddMa faktd def
            /H*M LAB*Hd 5 get LAB*Hd 6 get LAB*Hd 5 get sub fakmd mul add def
            /u*ddMa1 (m) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (o) def} if
            
/i3*ddMa 1 def
/c3*ddMa 1 o3*ddMa sub def
/m3*ddMa 1 l3*ddMa sub def
/y3*ddMa 1 v3*ddMa sub def
/n3*ddMa 0 def

H*M 360 ge {/H*M H*M 360 sub def} if

%H*M = H*abd = H*abe for all hue angles
/H*abe H*M def

%calculations for elementary (e) system:
%faktor and section in actual System (for example ORS18)
/jsece -1 def

%main equations
%fakte = [col_angh - LAB*He(n)]/[LAB*He(n+1) - LAB*He(n)]
%col_angh = fakte [LAB*He(n+1) - LAB*He(n)] + LAB*He(n)

H*abe LAB*He 0 get lt {/H*abe H*abe 360 add def} if

0 1 5 {/nx exch def
       /np nx 1 add def
       H*abe LAB*He nx get ge 
       H*abe LAB*He np get lt and {/jsece nx def
                                   /fakte H*abe LAB*He nx get sub
                                   LAB*He np get LAB*He nx get sub div def} if
      } for %nx=0,5

%1 0 0 %R  jsece=0
%1 1 0 %J  jsece=1
%0 1 0 %G  jsece=2
%0 1 1 %C'  jsece=3
%0 0 1 %B  jsece=4
%1 0 1 %R  jsece=5

jsece -1 eq {STOPjsece} if

/fakme 1 fakte sub def
/o3*deMa -1 def /l3*deMa -1 def /v3*deMa -1 def

jsece 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0
            /o3*deMa 1 def     /l3*deMa fakte def /v3*deMa 0 def
            /u*dtMa1 (r) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (j) def
            /u*deMa1 (r) def /u*deMai fakte 99 mul cviht def /u*deMa2 (j) def} if
jsece 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0
            /o3*deMa fakme def /l3*deMa 1 def     /v3*deMa 0 def
            /u*dtMa1 (j) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (g) def
            /u*deMa1 (j) def /u*deMai fakte 99 mul cviht def /u*deMa2 (g) def} if
jsece 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1
            /o3*deMa 0 def     /l3*deMa 1 def     /v3*deMa fakte def
            /u*dtMa1 (g) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (C) def
            /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (b) def} if
jsece 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1
            /o3*deMa 0 def     /l3*deMa fakme def /v3*deMa 1 def
            /u*dtMa1 (C) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (b) def
            /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (b) def} if
jsece 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1
            /o3*deMa fakte def /l3*deMa 0 def     /v3*deMa 1 def
            /u*dtMa1 (b) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (M) def
            /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (r) def} if
jsece 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0
            /o3*deMa 1 def     /l3*deMa 0 def     /v3*deMa fakme def
            /u*dtMa1 (M) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (r) def
            /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (r) def} if

o3*deMa -1 eq {STOPo3*Ma0} if
l3*deMa -1 eq {STOPl3*Ma0} if
v3*deMa -1 eq {STOPv3*Ma0} if

/i3*deMa 1 def
/c3*deMa 1 o3*deMa sub def
/m3*deMa 1 l3*deMa sub def
/y3*deMa 1 v3*deMa sub def
/n3*deMa 0 def

/lab*nMa 0.00 def
/lab*cMa 1.00 def
/lab*wMa 0.00 def
/lab*tMa 0.50 def
/lab*hMa H*Ma 360 div def
/lab*lMa L*Ma nLAB*s0 0 get sub
         wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def

/o3*dd o*s def /o3*dd w*s o3*ddMa c*rs mul add def
/l3*dd l*s def /l3*dd w*s l3*ddMa c*rs mul add def
/v3*dd v*s def /v3*dd w*s v3*ddMa c*rs mul add def

/o3*de w*s o3*deMa c*rs mul add def
/l3*de w*s l3*deMa c*rs mul add def
/v3*de w*s v3*deMa c*rs mul add def

} ifelse %chromatic colour i*p#6

%For tLAB=1 Transfer to LAB*Ma and LAB*Fa
tLAB 1 eq {%tLAB = 1
i*p 6 eq
{%achromatic,chromatic colours
/L*Ma L*Wio def
/A*Ma 0 def
/B*Ma 0 def
/H*Ma B*Ma A*Ma 0.0001 add atan def
/C*Ma 0 def
/L*Fa L*Nio L*Wio L*Nio sub w*s mul add def
/A*Fa 0 def
/B*Fa 0 def
/H*Fa B*Fa A*Fa 0.0001 add atan def
/C*Fa 0 def /l*rs w*s def
} %achromatic i*p=6
{ %chromatic  i*p#6
%H*M allready defined
/L*Ha 50 def
/A*Ha 75 H*M cos mul def
/B*Ha 75 H*M sin mul def
/UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def
/UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def
/UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def

/T1 0 def
/T2 0 def
0 1 5 {/ia exch def
       /ia30 ia 3 mul def
       ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse
       /T1 LAB*a ia30       get UXF1a mul
           LAB*a ia30 1 add get UXF2a mul add
           LAB*a ia30 2 add get UXF3a mul add def
       /T2 LAB*a ia31       get UXF1a mul
           LAB*a ia31 1 add get UXF2a mul add
           LAB*a ia31 2 add get UXF3a mul add def
       T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse
       T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse
       T1 0 le T2 0 gt and {/ia3END ia30 def exit} if
      } for

/L*11a LAB*a ia3END       get def
/A*11a LAB*a ia3END 1 add get def
/B*11a LAB*a ia3END 2 add get def
ia3END 15 ge {/ia3END -3 def} if
/L*21a LAB*a ia3END 3 add get def
/A*21a LAB*a ia3END 4 add get def
/B*21a LAB*a ia3END 5 add get def

/NENNER L*21a L*11a sub UXF1a mul
        A*21a A*11a sub UXF2a mul add
        B*21a B*11a sub UXF3a mul add def
/ZAEHLE L*21a UXF1a mul
        A*21a UXF2a mul add
        B*21a UXF3a mul add def
NENNER 0 ne {/ALPH ZAEHLE NENNER div def}
            {/ALPH 99999} ifelse

/L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def
/A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def
/B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def
/C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def
/H*Ma B*Ma A*Ma 0.0001 add atan def

%equations
%/c*rs olv*smax olv*smin sub def
%/n*s 1 olv*smax sub def
%/w*s 1 n*s sub c*rs sub def
%/t*s 1 n*s sub c*rs 0.5 mul sub def
%l* = t* + c* [L*M - L*N]/[L*W - L*N] - 0.5 c*
%l* = (L*Fa - L*Na) / (L*Wa - L*Na)
%L*Fa = l* (L*Wa - L*Na) + L*Na
%given L*Nio, L*Wio

/l*rs t*s L*Ma L*Nio sub L*Wio L*Nio sub div c*rs mul add c*rs 0.5 mul sub def
/L*Fa L*Nio L*Wio L*Nio sub l*rs mul add def
/C*Fa C*Ma c*rs mul def
/H*Fa H*Ma def
/A*Fa C*Fa H*Ma cos mul def
/B*Fa C*Fa H*Ma sin mul def
} ifelse %chromatic colour i*p#6
} if %tLAB = 1

} bind def %END Procedure proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL

%******************************************************************* from De990-7N04.PS

/proc_ColSep*ioL {%BEG Procedure proc_ColSep*ioL ColourSeparation for NP-file 20090201
 
/setgc {pop pop pop 1 exch sub slgray} bind def
/setgm {pop pop 1 exch sub slgray pop} bind def
/setgy {pop 1 exch sub slgray pop pop} bind def
/setgn {1 exch sub slgray pop pop pop} bind def
/setgf {/ncolor exch def /ycolor exch def
        /mcolor exch def /ccolor exch def
        0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub slgray}
                    {1 ccolor sub 0.71 mul
                     1 mcolor sub 0.22 mul add
                     1 ycolor sub 0.07 mul add slgray} ifelse
       } bind def

/setcmykcolorf { slcmykcolor} bind def %fuer PSL1/2-Farbgeraet

/setcmyknew { %Ersatz setcolornew durch setcmykcolor1
 ausz 1 eq {setgc} if                %C
 ausz 2 eq {setgm} if                %M
 ausz 3 eq {setgy} if                %Y
 ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgc}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Cbunt
 ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgm}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Mbunt
 ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgy}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Ybunt
 ausz 7 eq {setgn} if                %N
 ausz 8 ge {
            /setcmykcolor where        %Abfrage Farb-/SW-Geraet
            {pop setcmykcolorf}       %PSL1/2-Farb-Geraet
            {setgf}                     %PSL1-SW-Geraet
            ifelse
           } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker
 
 } bind def

%*********************************************************************

/rgb_LAB_Interp_olv*ioL {%BEG Procedure rgb_LAB_Interp_olv*ioL zm60'LABINPLT.PS
%assumes input of rgb, LAB_Interpolation and calculation of olv*

%split in chromatic and achromatic colours
%two special cases black N and white W

/b exch def /g exch def /r exch def
%For N and W interpolation for cf1#1
%r g sub abs 0.001 le
%r b sub abs 0.001 le and {%achromatic case
%                          /Case 0 def
%                          r abs 0.001 le
%                          g abs 0.001 le and
%                          b abs 0.001 le and {%N special case
%                                              /Case 1 def 
%                                             } if %N special case
%
%                          1 r sub abs 0.001 le
%                          1 g sub abs 0.001 le and
%                          1 b sub abs 0.001 le and {%W special case
%                                                    /Case 2 def
%                                                   } if
%                         }%achromatic
%                         {%chromatic
%                          /Case 3 def
%                         } ifelse %chromatic
%Case 1 eq {%Black N
%           /o* 0 def
%           /l* 0 def
%           /v* 0 def
%          } if %N special case
%Case 2 eq {%White W
%           /o* 1 def
%           /l* 1 def
%           /v* 1 def
%          } if %W special case
%
%Case 0 eq Case 3 eq or {%chromatic or gray
                        /tLAB 1 def r g b
                        proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL
                        L*Fa A*Fa B*Fa
                        Lab2RGBinterpolation
                        /v* exch def /l* exch def /o* exch def
%                       } if %chromatic or gray

} bind def %END Procedure rgb_LAB_Interp_olv*ioL 'zm60'LABINPLT.PS

%*********************************************************************

/trans_rgb3*_cmyn4*ioL {%BEG Procedure trans_rgb3*_cmyn4*ioL
%assumes input of olv*

o* 0 le {/o* 0.0000 def} if
l* 0 le {/l* 0.0000 def} if
v* 0 le {/v* 0.0000 def} if
o* 1 ge {/o* 1.0000 def} if
l* 1 ge {/l* 1.0000 def} if
v* 1 ge {/v* 1.0000 def} if

/tdel 0 def

v* l* ge l* o* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c*
%sector C-V of C-M, C>=M: i*p=0
   {/n*n 1 v* sub def
    /w*w o* def
    /tdel 1 def
   } if % v* >= l* >= o*

v* o* ge o* l* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m*
%sector V-M of C-M, M>=C: i*p=1
   {/n*n 1 v* sub def
    /w*w l* def
    /tdel 1 def
   } if % v* >= o* >= l*
   
o* v* ge v* l* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m*
%sector M-O of M-Y, M>=Y: i*p=2
   {/n*n 1 o* sub def
    /w*w l* def
    /tdel 1 def
   } if % o* >= v* >= l*
    
o* l* ge l* v* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y*
%sector O-Y of M-Y, Y>=M: i*p=3   
   {/n*n 1 o* sub def
    /w*w v* def
    /tdel 1 def
   } if % o* >= l* >= v*

l* o* ge o* v* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y*
%sector Y-L of Y-C, Y>=C: i*p=4
   {/n*n 1 l* sub def
    /w*w v* def
    /tdel 1 def
   } if % l* >= o* >= v*

l* v* ge v* o* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c*
%sector L-C of Y-C, C>=Y: i*p=5
   {/n*n 1 l* sub def
    /w*w o* def
    /tdel 1 def
   } if % l* >= v* >= o*
   
%achromatic
%W: o*, l*, v* = 1.00
1.0 o* sub abs 0.001 le
1.0 l* sub abs 0.001 le and
1.0 v* sub abs 0.001 le and %W special case
{/n*n 0 def /w*w 1 def %W
} if

%N: o*, l*, v* <= 0.001
o* abs 0.001 le
l* abs 0.001 le and
v* abs 0.001 le and %N special case
{/n*n 1 def /w*w 0 def %N
} if

%Achromatic
o* l* sub abs 0.001 le
l* v* sub abs 0.001 le and %Achromatic special case
{/n*n 1 o* sub def /w*w o* def %grey
} if

/lab*wFa w*w def
/lab*nFa n*n def

/c3*Fa 1 o* sub def
/m3*Fa 1 l* sub def
/y3*Fa 1 v* sub def

/c4*Fa c3*Fa lab*nFa sub def %at least one of cmy will be cero
/m4*Fa m3*Fa lab*nFa sub def
/y4*Fa y3*Fa lab*nFa sub def
/n4*Fa lab*nFa def %cmyn4*

/o4*Fa 1 c4*Fa sub def
/l4*Fa 1 m4*Fa sub def
/v4*Fa 1 y4*Fa sub def
/i4*Fa 1 n4*Fa sub def

} bind def %END Procedure trans_rgb3*_cmyn4*ioL

%*******************************************************************

/trans_rgb3*_cmyn5*ioL {%BEG Procedure trans_rgb3*_cmyn5*ioL
%assumes input of olv*, 'zm60'CMYN559LT.PS

o* 0 le {/o* 0.0000 def} if
l* 0 le {/l* 0.0000 def} if
v* 0 le {/v* 0.0000 def} if
o* 1 ge {/o* 1.0000 def} if
l* 1 ge {/l* 1.0000 def} if
v* 1 ge {/v* 1.0000 def} if

/ok* o* def /lk* l* def /vk* v* def

/tdel 0 def

vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c*
%sector C-V of C-M, C>=M: i*p=0
   {/n*n 1 vk* sub def
    /w*w ok* def
    /m*w lk* def
    /tdel 1 def
    /isec 3 def
   } if % v* >= l* >= o*

vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m*
%sector V-M of C-M, M>=C: i*p=1
   {/n*n 1 vk* sub def
    /w*w lk* def
    /m*w ok* def
    /tdel 1 def
    /isec 4 def
   } if % v* >= o* >= l*
   
ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m*
%sector M-O of M-Y, M>=Y: i*p=2
   {/n*n 1 ok* sub def
    /w*w lk* def
    /m*w vk* def
    /tdel 1 def
    /isec 5 def
   } if % o* >= v* >= l*
    
ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y*
%sector O-Y of M-Y, Y>=M: i*p=3   
   {/n*n 1 ok* sub def
    /w*w vk* def
    /m*w lk* def
    /tdel 1 def
    /isec 0 def
   } if % o* >= l* >= v*

lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y*
%sector Y-L of Y-C, Y>=C: i*p=4
   {/n*n 1 lk* sub def
    /w*w vk* def
    /m*w ok* def
    /tdel 1 def
    /isec 1 def
   } if % l* >= o* >= v*

lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c*
%sector L-C of Y-C, C>=Y: i*p=5
   {/n*n 1 lk* sub def
    /w*w ok* def
    /m*w vk* def
    /tdel 1 def
    /isec 2 def
   } if % l* >= v* >= o*
   
%achromatic
%W: ok*, lk*, vk* = 1.00
1.0 ok* sub abs 0.001 le
1.0 lk* sub abs 0.001 le and
1.0 vk* sub abs 0.001 le and %W special case
{/n*n 0 def /w*w 1 def /m*w 1 def %W
    /isec 6 def
} if

%N: ok*, lk*, vk* <= 0.001
ok* abs 0.001 le
lk* abs 0.001 le and
vk* abs 0.001 le and %N special case
{/n*n 1 def /w*w 0 def /m*w 0 def %N
    /isec 6 def
} if

%Achromatic
ok* lk* sub abs 0.001 le
lk* vk* sub abs 0.001 le and %Achromatic special case
{/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey
    /isec 6 def
} if

/lab*wFa w*w def
/lab*nFa n*n def
/lab*cFa 1 n*n sub w*w sub def

/argb 1 lab*nFa sub def
/brgb m*w def
/crgb lab*wFa def
/c*   lab*cFa def
/lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def

isec 6 eq {%BEG isec=6 achromatic
           /o*1 1 def
           /l*1 1 def
           /v*1 1 def
          }%END isec=6 achromatic
          {%BEG isec#6 chromatic
           /o*1 ok* argb 0.000001 add div def
           /l*1 lk* argb 0.000001 add div def
           /v*1 vk* argb 0.000001 add div def
          } ifelse %END isec#6

/c3*Fa 1 o*1 sub def
/m3*Fa 1 l*1 sub def
/y3*Fa 1 v*1 sub def

/c4*Fa c3*Fa def %at least one of cmy will be cero
/m4*Fa m3*Fa def
/y4*Fa y3*Fa def
/n4*Fa lab*nFa def %cmyn5*

/o4*Fa 1 c4*Fa sub def
/l4*Fa 1 m4*Fa sub def
/v4*Fa 1 y4*Fa sub def
/i4*Fa 1 n4*Fa sub def
              
} bind def %END Procedure trans_rgb3*_cmyn5*ioL 'zm60'CMYN559LT.PS

%*********************************************************************

/trans_rgb3*_cmyn6*ioL {%BEG Procedure trans_rgb3*_cmyn6*ioL
%assumes input of olv*, 'zm60'CMYN559LT.PS

o* 0 le {/o* 0.0000 def} if
l* 0 le {/l* 0.0000 def} if
v* 0 le {/v* 0.0000 def} if
o* 1 ge {/o* 1.0000 def} if
l* 1 ge {/l* 1.0000 def} if
v* 1 ge {/v* 1.0000 def} if

/ok* o* def /lk* l* def /vk* v* def

/tdel 0 def

vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c*
%sector C-V of C-M, C>=M: i*p=0
   {/n*n 1 vk* sub def
    /w*w ok* def
    /m*w lk* def
    /tdel 1 def
    /isec 3 def
   } if % v* >= l* >= o*

vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m*
%sector V-M of C-M, M>=C: i*p=1
   {/n*n 1 vk* sub def
    /w*w lk* def
    /m*w ok* def
    /tdel 1 def
    /isec 4 def
   } if % v* >= o* >= l*
   
ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m*
%sector M-O of M-Y, M>=Y: i*p=2
   {/n*n 1 ok* sub def
    /w*w lk* def
    /m*w vk* def
    /tdel 1 def
    /isec 5 def
   } if % o* >= v* >= l*
    
ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y*
%sector O-Y of M-Y, Y>=M: i*p=3   
   {/n*n 1 ok* sub def
    /w*w vk* def
    /m*w lk* def
    /tdel 1 def
    /isec 0 def
   } if % o* >= l* >= v*

lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y*
%sector Y-L of Y-C, Y>=C: i*p=4
   {/n*n 1 lk* sub def
    /w*w vk* def
    /m*w ok* def
    /tdel 1 def
    /isec 1 def
   } if % l* >= o* >= v*

lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c*
%sector L-C of Y-C, C>=Y: i*p=5
   {/n*n 1 lk* sub def
    /w*w ok* def
    /m*w vk* def
    /tdel 1 def
    /isec 2 def
   } if % l* >= v* >= o*
   
%achromatic
%W: ok*, lk*, vk* = 1.00
1.0 ok* sub abs 0.001 le
1.0 lk* sub abs 0.001 le and
1.0 vk* sub abs 0.001 le and %W special case
{/n*n 0 def /w*w 1 def /m*w 1 def %W
    /isec 6 def
} if

%N: ok*, lk*, vk* <= 0.001
ok* abs 0.001 le
lk* abs 0.001 le and
vk* abs 0.001 le and %N special case
{/n*n 1 def /w*w 0 def /m*w 0 def %N
    /isec 6 def
} if

%Achromatic
ok* lk* sub abs 0.001 le
lk* vk* sub abs 0.001 le and %Achromatic special case
{/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey
    /isec 6 def
} if

/lab*wFa w*w def
/lab*nFa n*n def
/lab*cFa 1 n*n sub w*w sub def

/argb 1 lab*nFa sub def
/brgb m*w def
/crgb lab*wFa def
/c*   lab*cFa def
/lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def

isec 6 eq {%BEG isec=6 achromatic
           /o*1 1 def
           /l*1 1 def
           /v*1 1 def
          }%END isec=6 achromatic
          {%BEG isec#6 chromatic
           /o*1 ok* argb 0.000001 add div def
           /l*1 lk* argb 0.000001 add div def
           /v*1 vk* argb 0.000001 add div def
          } ifelse %END isec#6

/c3*Fa 1 o*1 sub def
/m3*Fa 1 l*1 sub def
/y3*Fa 1 v*1 sub def

/c41*Fa c3*Fa def %at least one of cmy will be cero
/m41*Fa m3*Fa def
/y41*Fa y3*Fa def
/n4*Fa lab*nFa 1.3 exp def %cmyn6*

%change by deepness difference delta d* = c*S1 - c*S2
%use lab*cFa, lab*tFa for correction
%equations of three lines
%t* = 1 - 0.5 c*
%t* = [t* / c*] c*
%t* = [(t* + 0,18) / c*] c* - 0,18
%cut point S1 for nt=0,18:
%c*s1 = 1 /[ t*F / c*F + 0,5 ]
%cut point S2 for n=0,18:
%c*s1 = (1 + nt) / [ (t*F + nt) / c*F + 0,5 ]

%special case lab*cFa=0 and n=0,18
/nt 0.01 def
lab*cFa 0 eq { %lab*cFa=0,#0
              /c*S1 0 def
              /c*S2 0 def
             } %lab*cFa=0
             { %lab*cFa#0
              /c*S1 1 lab*tFa lab*cFa div 0.5 add div def
              /c*S2 1 nt add lab*tFa nt add lab*cFa div 0.5 add div def
             } ifelse %lab*cFa=0,#0

/c4*Fa c41*Fa c41*Fa c*S1 c*S2 sub mul sub def
/m4*Fa m41*Fa m41*Fa c*S1 c*S2 sub mul sub def
/y4*Fa y41*Fa y41*Fa c*S1 c*S2 sub mul sub def

/o4*Fa 1 c4*Fa sub def
/l4*Fa 1 m4*Fa sub def
/v4*Fa 1 y4*Fa sub def
/i4*Fa 1 n4*Fa sub def
              
} bind def %END Procedure trans_rgb3*_cmyn6*ioL 'zm60'CMYN559LT.PS

%*********************************************************************

%BEG 'zm60'COLM57_590415LT.PS 20090201

ColSpx 0 eq {%ColSpx=0
/tLAB 0 def
xcharti 1 ge {%xcharti>=1 'zm60'COLM57LT.PS cmy0* 20090201
colorm 0 eq {%BEG colorm=0
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL 
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           %standard cmy0* for input
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew}
                                        {o* l* v* slrgbcolor} ifelse
                          } def
             /setgray {dup dup
                       /v* exch def /l* exch def /o* exch def
                       %DEintp 1 eq {o* l* v*
                       %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                       %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                       %standard cmy0* for input
                       /c4*Fa 1 o* sub def
                       /m4*Fa 1 l* sub def
                       /y4*Fa 1 v* sub def
                       /n4*Fa 0 def
                       rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew}
                                    {o* l* v* slrgbcolor} ifelse
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def
                                      /i* 0 def
                                     }
                                     {/o* 1 n*n sub def
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def
                                      /i* 0 def
                                     } ifelse
                            %DEintp 1 eq {o* l* v*
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            /c4*Fa 1 o* sub def
                            /m4*Fa 1 l* sub def
                            /y4*Fa 1 v* sub def
                            /n4*Fa 0 def
                            rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew}
                                         {o* l* v* slrgbcolor} ifelse
                           } def
            }%END colorm=0
            {%BEG colorm=1
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           o* l* v*
                           rgb_LAB_Interp_olv*ioL
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew}
                                        {o* l* v* slrgbcolor} ifelse
                          } def
            /setgray {/w*w exch def
                      /o* w*w def /l* w*w def /v* w*w def
                      %DEintp 1 eq {o* l* v*
                      %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                      %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                      o* l* v*
                      rgb_LAB_Interp_olv*ioL
                      /c4*Fa 1 o* sub def
                      /m4*Fa 1 l* sub def
                      /y4*Fa 1 v* sub def
                      /n4*Fa 0 def
                      rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew}
                                   {o* l* v* slrgbcolor} ifelse
                      } def
            /setcmykcolor {/n*n exch def /y*n exch def
                           /m*n exch def /c*n exch def
                           %standard cmy0* or 000n* for input
                           n*n 0 eq {/o* 1 c*n sub def
                                     /l* 1 m*n sub def 
                                     /v* 1 y*n sub def}
                                    {/o* 1 n*n sub def
                                     /l* 1 n*n sub def 
                                     /v* 1 n*n sub def} ifelse
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           o* l* v*
                           rgb_LAB_Interp_olv*ioL
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew}
                                        {o* l* v* slrgbcolor} ifelse
                          } def
             } ifelse %END colorm=1
             }%END %xcharti>=1
             {%BEG %xcharti=0
              /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           o* l* v*
                           slrgbcolor
                          } def
             /setgray {dup dup
                       /v* exch def /l* exch def /o* exch def
                       /c4*Fa 1 o* sub def
                       /m4*Fa 1 l* sub def
                       /y4*Fa 1 v* sub def
                       /n4*Fa 0 def
                       o*
                       slgray
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def
                                      /n4*Fa 0 def}
                                     {/o* 1 def
                                      /l* 1 def
                                      /v* 1 def
                                      /n4*Fa n*n def} ifelse
                            /c4*Fa 1 o* sub def
                            /m4*Fa 1 l* sub def
                            /y4*Fa 1 v* sub def
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            slcmykcolor
                          } def
             } ifelse %END %xcharti=0 'zm60'COLM57LT.PS cmy0* 20090201

} if %ColSpx=0

%*********************************************************************

ColSpx 1 eq {%ColSpx=1
/tLAB 0 def
xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn6* 20080201
colorm 0 eq {%BEG colorm=0
             /olvtrans 1 def %changes olv* to olvk*
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6
                           c4*Fa m4*Fa y4*Fa n4*Fa
                           setcmyknew
                          } def
             /setgray {/w*w exch def /v* w*w def /l* w*w def /o* w*w def
                       %DEintp 1 eq {o* l* v*
                       %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                       %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                       trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6
                       c4*Fa m4*Fa y4*Fa n4*Fa
                       setcmyknew
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* or 000n* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def}
                                     {/o* 1 n*n sub def 
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def} ifelse
                            %DEintp 1 eq {o* l* v*
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            setcmyknew
                           } def
            }%END colorm=0
            {%BEG colorm=1
             /olvtrans 0 def %no change of olv*
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           o* l* v*
                           rgb_LAB_Interp_olv*ioL
                           trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6
                           c4*Fa m4*Fa y4*Fa n4*Fa
                           setcmyknew
                          } def
            /setgray {dup dup
                      /v* exch def /l* exch def /o* exch def
                      %DEintp 1 eq {o* l* v*
                      %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                      %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                      o* l* v*
                      rgb_LAB_Interp_olv*ioL
                      trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6
                      c4*Fa m4*Fa y4*Fa n4*Fa
                      setcmyknew
                     } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* or 000n* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def}
                                     {/o* 1 n*n sub def 
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def} ifelse
                            %DEintp 1 eq {o* l* v*
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            o* l* v*
                            rgb_LAB_Interp_olv*ioL
                            trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            setcmyknew
                           } def
             } ifelse %END colorm=1
             }%END %xcharti>=0
             {%BEG %xcharti=0
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           o* l* v*
                           slrgbcolor
                          } def
             /setgray {dup dup
                       /v* exch def /l* exch def /o* exch def
                       /c4*Fa 1 o* sub def
                       /m4*Fa 1 l* sub def
                       /y4*Fa 1 v* sub def
                       /n4*Fa 0 def
                       o*
                       slgray
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def
                                      /n4*Fa 0 def}
                                     {/o* 1 def
                                      /l* 1 def
                                      /v* 1 def
                                      /n4*Fa n*n def} ifelse
                            /c4*Fa 1 o* sub def
                            /m4*Fa 1 l* sub def
                            /y4*Fa 1 v* sub def
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            slcmykcolor
                           } def
             } ifelse %END %xcharti=0 'zm60'COLM559LT.PS cmyn6* 20080201

} if %ColSpx=1

%***************************************************************

ColSpx 2 eq {%ColSpx=2
/tLAB 0 def
xcharti 1 ge {%xcharti>=1 'zm60'COLM58LT.PS cmyn4* 20090201
colorm 0 eq {%BEG colorm=0
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4
                           c4*Fa m4*Fa y4*Fa n4*Fa
                           setcmyknew
                          } def
             /setgray {dup dup /v* exch def /l* exch def /o* exch def
                       %DEintp 1 eq {o* l* v*
                       %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                       %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                       trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4
                       c4*Fa m4*Fa y4*Fa n4*Fa
                       setcmyknew
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* or 000n* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def}
                                     {/o* 1 n*n sub def 
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def} ifelse
                            %DEintp 1 eq {o* l* v*
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            setcmyknew
                           } def
            }%END colorm=0
            {%BEG colorm=1
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           o* l* v*
                           rgb_LAB_Interp_olv*ioL
                           trans_rgb3*_cmyn4*ioL %needs olv* for input
                           %produces cmyn4*ioL as output
                           c4*Fa m4*Fa y4*Fa n4*Fa
                           setcmyknew
                          } def
            /setgray {dup dup /v* exch def /l* exch def /o* exch def
                      %DEintp 1 eq {o* l* v*
                      %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                      %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                      o* l* v*
                      rgb_LAB_Interp_olv*ioL
                      trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4
                      c4*Fa m4*Fa y4*Fa n4*Fa
                      setcmyknew
                     } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* or 000n* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def}
                                     {/o* 1 n*n sub def 
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def} ifelse
                            %DEintp 1 eq {o* l* v*
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            o* l* v*
                            rgb_LAB_Interp_olv*ioL
                            trans_rgb3*_cmyn4*ioL %in: olv*, out: cmyn4
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            setcmyknew
                           } def
             } ifelse %END colorm=1
             }%END %xcharti>=0
             {%BEG %xcharti=0
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           o* l* v*
                           slrgbcolor
                          } def
             /setgray {dup dup /v* exch def /l* exch def /o* exch def
                       /c4*Fa 1 o* sub def
                       /m4*Fa 1 l* sub def
                       /y4*Fa 1 v* sub def
                       /n4*Fa 0 def
                       o*
                       slgray
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def
                                      /n4*Fa 0 def}
                                     {/o* 1 def
                                      /l* 1 def
                                      /v* 1 def
                                      /n4*Fa n*n def} ifelse
                            /c4*Fa 1 o* sub def
                            /m4*Fa 1 l* sub def
                            /y4*Fa 1 v* sub def
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            slcmykcolor
                           } def
             } ifelse %END %xcharti=0 'zm60'COLM58LT.PS cmyn4* 20090201

} if %ColSpx=2

%*************************************************************

ColSpx 3 eq {%ColSpx=3
/tLAB 0 def
xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn5* 20090201
colorm 0 eq {%BEG colorm=0
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5
                           c4*Fa m4*Fa y4*Fa n4*Fa
                           setcmyknew
                          } def
             /setgray {dup dup /v* exch def /l* exch def /o* exch def
                       %DEintp 1 eq {o* l* v*
                       %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                       %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                       trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5
                       c4*Fa m4*Fa y4*Fa n4*Fa
                       setcmyknew
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* or 000n* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def}
                                     {/o* 1 n*n sub def 
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def} ifelse
                            %DEintp 1 eq {o* l* v*
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            setcmyknew
                           } def
            }%END colorm=0
            {%BEG colorm=1
             /olvtrans 0 def %no change of olv*
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           %DEintp 1 eq {o* l* v*
                           %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                           %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                           o* l* v*
                           rgb_LAB_Interp_olv*ioL
                           trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5
                           c4*Fa m4*Fa y4*Fa n4*Fa
                           setcmyknew
                          } def
            /setgray {dup dup /v* exch def /l* exch def /o* exch def
                      %DEintp 1 eq {o* l* v*
                      %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                      %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                      o* l* v*
                      rgb_LAB_Interp_olv*ioL
                      trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5
                      c4*Fa m4*Fa y4*Fa n4*Fa
                      setcmyknew
                     } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            %standard cmy0* or 000n* for input
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def}
                                     {/o* 1 n*n sub def 
                                      /l* 1 n*n sub def
                                      /v* 1 n*n sub def} ifelse
                            %DEintp 1 eq {o* l* v* 
                            %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
                            %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if
                            o* l* v*
                            rgb_LAB_Interp_olv*ioL
                            trans_rgb3*_cmyn5*ioL %in: olv*, out: cmyn5
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            setcmyknew
                           } def
             } ifelse %END colorm=1
             }%END %xcharti>=0
             {%BEG %xcharti=0
             /setrgbcolor {/v* exch def /l* exch def /o* exch def
                           /c4*Fa 1 o* sub def
                           /m4*Fa 1 l* sub def
                           /y4*Fa 1 v* sub def
                           /n4*Fa 0 def
                           o* l* v*
                           slrgbcolor
                          } def
             /setgray {dup dup /v* exch def /l* exch def /o* exch def
                       /c4*Fa 1 o* sub def
                       /m4*Fa 1 l* sub def
                       /y4*Fa 1 v* sub def
                       /n4*Fa 0 def
                       o*
                       slgray
                      } def
             /setcmykcolor {/n*n exch def /y*n exch def
                            /m*n exch def /c*n exch def
                            n*n 0 eq {/o* 1 c*n sub def
                                      /l* 1 m*n sub def
                                      /v* 1 y*n sub def
                                      /n4*Fa 0 def}
                                     {/o* 1 def
                                      /l* 1 def
                                      /v* 1 def
                                      /n4*Fa n*n def} ifelse
                            /c4*Fa 1 o* sub def
                            /m4*Fa 1 l* sub def
                            /y4*Fa 1 v* sub def
                            c4*Fa m4*Fa y4*Fa n4*Fa
                            slcmykcolor
                           } def
             } ifelse %END %xcharti=0 'zm60'COLM559LT.PS cmyn5* 20090201

} if  %ColSpx=3

} bind def %BEG Procedure proc_ColSep*ioL ColourSeparation for NP-file 20090201
%*****************************************************************************
%END HK0X->HG46/Y10-7N.EPS, ident. for NP-(*ioL), FP-files (*ioL) 20090201
%*****************************************************************************

/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/rem %x0, y0 width heigth
  {/heigth exch def /width exch def /y0 exch def /x0 exch def
   x0 width 0.5 mul add y0 heigth 0.5 mul add moveto
   width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def
/cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse
          cvi 6 string cvs show} def
/cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse
           10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse
           100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse
           1000 mul cvi 0.001 mul 7 string cvs show} def
    
/A4quer {598 0 tl 90 rotate} def
%%ENDProlog
gsave

/lanind 0 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
               {/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
               {/xcolor1 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
               {/xchart1 0 def /xchart2 0 def} ifelse
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showPage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showPage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showPage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showPage

/GSS$ where {pop /LSS$ GSS$ def}
            {/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
            {/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
            {/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
            {/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
            {/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
            }
            {/IMES 0 def} ifelse

/xchartg where {pop /xchartx   xchartg def} {/xchartx   0 def} ifelse
/colormg where {pop /colorm    colormg def} {/colorm    0 def} ifelse

/IMODE 0 def
/xs 1000 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def
/xs5x xs 5.4 mul def /ys5x ys 5.4 mul def
/x xs 0.15 mul  def
/y ys 12.0 mul def

/nr1 27 array def
/tx1 52 array def

/nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10)
      (11) (12) (13) (14) (15) (16) (17) (18) (19) (20)
      (21) (22) (23) (24) (25) (26) (27)] def
/tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J)
      (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T)
      (U) (V) (W) (X) (Y) (Z) (a) (b) (c) (d)
      (e) (f) (g) (h) (i) (j) (k) (l) (m) (n)
      (o) (p) (q) (r) (s) (t) (u) (v) (w) (x)
      (y) (z)] def

/ColNamesrgb* 30 array def
/ColNamesrgb* [(O) (Y) (L) (C) (V) (M) (N) (W)
               (R) (J) (G) (B)
               (r00j) (r25j) (r50j) (r75j)
               (j00g) (j25g) (j50g) (j75g)
               (g00b) (g25b) (g50b) (g75b)
               (b00r) (b25r) (b50r) (b75r) (R = r00j) (r25j)
              ] def
          
/ColNamesolv* 30 array def
/ColNamesolv* [(O) (Y) (L) (C) (V) (M) (N) (W)
               (O) (Y) (L) (V)
               (o00y) (o25y) (o50y) (o75y)
               (y00l) (y25l) (y50l) (y75l)
               (l00c) (l50c) (c00v) (c50v)
               (v00m) (v50m) (m00o) (m50o) (O = o00y) (o25y)
              ] def
              
/ColNames 30 array def
0 1 29 {/iintp exch def %iintp=0,29
        ColNames iintp
        DEintp 0 eq {ColNamesolv* iintp get}
                    {ColNamesrgb* iintp get} ifelse
        put
       } for %iintp=0,29 

/AngsTabt 68 array def
/AngsTabt [%31 angles = 360/22,5 + 1 = 16 + 1
000.0 1.00 0.00 0.00 %r00j
022.5 1.00 0.25 0.00
045.0 1.00 0.50 0.00 %r50j
067.5 1.00 0.75 0.00
090.0 1.00 1.00 0.00 %j00g
112.5 0.75 1.00 0.00
135.0 0.50 1.00 0.00 %j50g
157.5 0.25 1.00 0.00
180.0 0.00 1.00 0.00 %g00b
202.5 0.00 1.00 0.50
225.0 0.00 1.00 1.00 %g50b
247.5 0.00 0.50 1.00
270.0 0.00 0.00 1.00 %b00r
292.5 0.50 0.00 1.00
315.0 1.00 0.00 1.00 %b50r
337.5 1.00 0.00 0.50
360.0 1.00 0.00 0.00 %r00j
] def

/XD65  95.05 def /YD65 100.0 def /ZD65 108.90 def
/XD50  96.42 def /YD50 100.0 def /ZD50  82.49 def
/XLI 0 def
XLI 0 eq {/XLIx XD65 def /YLIx YD65 def /ZLIx ZD65 def}
         {/XLIx XD50 def /YLIx YD50 def /ZLIx ZD50 def} ifelse

/xd 800 def
/yd 800 def
/xd5x xs5x 200 sub def
/yd5x ys5x 200 sub def
/j 0 def /i 0 def
/xds 600 def

/xmin  0000 def
/xmax 10000 def
/ymin  0000 def
/ymax 10000 def

/ISIN*ioG where {pop /ISIN*ioL ISIN*ioG def} {/ISIN*ioL 0 def} ifelse
/ISOU*ioG where {pop /ISOU*ioL ISOU*ioG def} {/ISOU*ioL 0 def} ifelse
/ISRL*ioL 0 def

/ISIO*ioL ISIN*ioL def
/ISIO*ioG where {pop /ISIO*ioG ISIO*ioL def} if
/ISRL*ioG where {pop /ISRL*ioG ISRL*ioL def} if

/xcharts xchartx def %needed for steering output in proc_ColSep*io

/XYZa 24 array def
/XYZaicc 24 array def
/LAB*aicc 24 array def

/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} bind def

/xcharti xchartx def

%00 1 29 {/xcharti exch def %BEG xcharti=00,29

0 setgray

gsave

16 16 translate

xcharti 1 le                  {0.0100 MM dup scale} if %with Frame
xcharti 2 ge xcharti 6 le and {0.0108 MM dup scale} if %for measuerement
xcharti 7 ge                  {0.0115 MM dup scale} if %tables

colorm 1 eq {proc_LAB*ioG proc_ColSep*ioG} {proc_LAB*ioL proc_ColSep*ioL} ifelse

xcharti 0 eq {/ausz 8 def /xchartt (A) def} if
xcharti 1 eq {/ausz 8 def /xchartt (F) def} if
xcharti 2 eq {/ausz 8 def /xchartt (F) def} if
xcharti 3 eq {/ausz 1 def /xchartt (C) def} if
xcharti 4 eq {/ausz 2 def /xchartt (M) def} if
xcharti 5 eq {/ausz 3 def /xchartt (Y) def} if
xcharti 6 eq {/ausz 7 def /xchartt (N) def} if 
xcharti 7 ge {/ausz 8 def /xchartt (F) def} if

TK
0 setgray /Param (; cf1=0.90; nt=0.01; nx=1.3) def
%200 -300 moveto (HG460-7) show colorm 0 eq {(A_O, ) show} {(F_O, ) show} ifelse
%(Page ) showen (Seite ) showde xcharti 1 add cvishow (/30, ) show LAB*TE 0 get show Param show

/xss 600 def /yss xss def

/xmins 650 3 div 2.2 mul def
/ymaxs 15800 def
/xds 600 def
/xsd xss xds sub 0.5 mul def
/ysd xss xds sub 0.5 mul def

xcharti 15 le {0.5 0.5 0.5 setrgbcolor
               0 0 moveto 24500     0 rlineto 0 17000 rlineto
               24500 neg 0 rlineto closepath fill}
              {1 1 1 setrgbcolor
               0 0 moveto 24500     0 rlineto 0 17000 rlineto
               24500 neg 0 rlineto closepath fill
               0 0 0 setrgbcolor
               0 0 moveto 24500     0 rlineto 0 17000 rlineto
               24500 neg 0 rlineto closepath stroke} ifelse

0 0 0 setrgbcolor
20 setlinewidth

xcharti 15 le {%xcharti<=15
               500 3 div 2 mul /Times-ISOL1 FS
               1 1 27 {/i exch def %i=1,27
                       /x xss 0.15 mul def
                       /y 27.6 yss mul yss i mul sub def
                       x y moveto nr1 i 1 sub get show
                      } for %i=1,27
               xcharti 6 le {/im 40 def} {/im 37 def} ifelse
               1 1 im {/i exch def %i=1,im
                       /x xss i mul 000 add def
                       /y 27.5 yss mul def
                       x y moveto tx1 i 1 sub get show
                      } for %i=1,im
              } if %xcharti<=15

xcharti 16 ge {%xcharti>=16 %long loop

0 1 7 {/k exch def %k=0,7
       /xank 2750 k 1 add mul def
       xank 16600 moveto 0 -16300 rlineto stroke
      } for %k=0,7

/xp 200 def /yp 16700 def
CBK

xcharti 16 eq 
xcharti 17 eq or {xp yp moveto (% olv*_8bit, 9x9x9 grid) show} if

xcharti 18 ge xcharti 25 le and {%long loop 18<=xcharti<=25

xcharti 18 eq 
xcharti 19 eq or {xp 150 sub yp moveto (%LAB*a,CIE) show} if
xcharti 20 eq
xcharti 21 eq or {xp 150 sub yp moveto (%LAB*a,ICC) show} if
xcharti 22 eq 
xcharti 23 eq or {xp 150 sub yp moveto (%LAB*a_8bit,CIE) show} if
xcharti 24 eq 
xcharti 25 eq or {xp 150 sub yp moveto (%LAB*a_8bit,ICC) show} if

0 1 07 {/i exch def %i=0,7
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        /X* {LAB*a  i30 get 16 add 116 div
             LAB*a  i31 get 500 div add} bind def
        /Y* {LAB*a  i30 get 16 add 116 div} bind def
        /Z* {LAB*a  i30 get 16 add 116 div
             LAB*a  i32 get 200 div sub} bind def
        XYZa i30 X* DecodeXYZ* XLIx mul put
        XYZa i31 Y* DecodeXYZ* YLIx mul put
        XYZa i32 Z* DecodeXYZ* ZLIx mul put
       } for %i=0,7

0 1 07 {/i exch def %i=0,7
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        /Xnmw XYZa 21 get def
        /Ynmw XYZa 22 get def
        /Znmw XYZa 23 get def

        XYZaicc i30 XYZa i30 get Xnmw div XLIx mul put
        XYZaicc i31 XYZa i31 get Ynmw div YLIx mul put
        XYZaicc i32 XYZa i32 get Znmw div ZLIx mul put

        /XQ XYZaicc i30 get XLIx div def
        /YQ XYZaicc i31 get YLIx div def
        /ZQ XYZaicc i32 get ZLIx div def
        XQ 0 lt {/XQ 0.00000001 def} if
        YQ 0 lt {/YQ 0.00000001 def} if
        ZQ 0 lt {/ZQ 0.00000001 def} if
        LAB*aicc i30 YQ 0.008856 lt {903.3 YQ mul}
                    {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
        LAB*aicc i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                    {XQ 0.33333333 exp} ifelse
                     YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                    {YQ 0.33333333 exp} ifelse sub 500 mul put
        LAB*aicc i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                    {YQ 0.33333333 exp} ifelse
                     ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                    {ZQ 0.33333333 exp} ifelse sub 200 mul put

       } for %i=0,7

%first line LAB*
0 1 7 {/k exch def %k=0,7
       /xani k 1 add 2750 mul def
       xani 100 sub yp moveto
       ColNamesolv* k get show (:) show
       /xani 200 k 1 add 2750 mul add def
       /i30 k 3 mul def /i31 i30 1 add def /i32 i30 2 add def

       xcharti 18 eq 
       xcharti 19 eq or {%xcharti=18,19
                      xani 0000 add yp moveto LAB*a i30 get cvsshow1
                      xani 0800 add yp moveto LAB*a i31 get cvsshow1
                      xani 1600 add yp moveto LAB*a i32 get cvsshow1
                     } if %xcharti=18,19

       xcharti 20 eq 
       xcharti 21 eq or {%xcharti=20,21
                      xani 0000 add yp moveto LAB*aicc i30 get cvsshow1
                      xani 0800 add yp moveto LAB*aicc i31 get cvsshow1
                      xani 1600 add yp moveto LAB*aicc i32 get cvsshow1
                     } if %xcharti=20,21

       xcharti 22 eq 
       xcharti 23 eq or {%xcharti=22,23
                      xani 0000 add yp moveto LAB*a i30 get
                      2.55 mul cvishow
                      xani 0800 add yp moveto LAB*a i31 get
                      1.28 mul 128 add cvishow
                      xani 1600 add yp moveto LAB*a i32 get
                      1.28 mul 128 add cvishow          
                     } if %xcharti=22,23

       xcharti 24 eq 
       xcharti 25 eq or {%xcharti=24,25
                      xani 0000 add yp moveto LAB*aicc i30 get
                      2.55 mul cvishow
                      xani 0800 add yp moveto LAB*aicc i31 get
                      1.28 mul 128 add cvishow
                      xani 1600 add yp moveto LAB*aicc i32 get
                      1.28 mul 128 add cvishow
                     } if %xcharti=24,25

     } for %k=0,7

%last line XYZ
/yp 16400 81 202 mul sub def
xcharti 18 eq 
xcharti 19 eq or {xp yp moveto (%XYZa,CIE) show} if
xcharti 20 eq 
xcharti 21 eq or {xp yp moveto (%XYZa,ICC) show} if
xcharti 22 eq
xcharti 23 eq or {xp yp moveto (%XYZa_8bit,CIE) show} if
xcharti 24 eq
xcharti 25 eq or {xp yp moveto (%XYZa_8bit,ICC) show} if

0 1 7 {/i exch def %i=0,7
       /xani i 1 add 2750 mul def
       xani 100 sub yp moveto
       ColNamesolv* i get show (:) show
       /xani 200 i 1 add 2750 mul add def
       /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def

       xcharti 18 eq 
       xcharti 19 eq or {%xcharti=18,19
                         xani 0000 add yp moveto XYZa i30 get cvsshow1
                         xani 0800 add yp moveto XYZa i31 get cvsshow1
                         xani 1600 add yp moveto XYZa i32 get cvsshow1
                       } if %xcharti=18,19

       xcharti 20 eq 
       xcharti 21 eq or {%xcharti=20,21
                         xani 0000 add yp moveto XYZaicc i30 get cvsshow1
                         xani 0800 add yp moveto XYZaicc i31 get cvsshow1
                         xani 1600 add yp moveto XYZaicc i32 get cvsshow1
                        } if %xcharti=20,21

       xcharti 22 eq 
       xcharti 23 eq or {%xcharti=22,23
                         xani 0000 add yp moveto XYZa i30 get 2.55 mul cvishow
                         xani 0800 add yp moveto XYZa i31 get 2.55 mul cvishow
                         xani 1600 add yp moveto XYZa i32 get 2.55 mul cvishow
                        } if %xcharti=22,23

      xcharti 24 eq 
      xcharti 25 eq or {%xcharti=24,25
                        xani 0000 add yp moveto XYZaicc i30 get 2.55 mul cvishow
                        xani 0800 add yp moveto XYZaicc i31 get 2.55 mul cvishow
                        xani 1600 add yp moveto XYZaicc i32 get 2.55 mul cvishow
                       } if %xcharti=24,25

     } for %i=0,7                             

} if %long loop 18<=xcharti<=25

               xcharti 26 eq
               xcharti 27 eq or {xp yp moveto 
                                 (% olv'*_8bit, 9x9x9 grid) show} if
               xcharti 28 eq 
               xcharti 29 eq or {xp yp moveto
                                 (% cmyn'*_8bit, 9x9x9 grid) show} if

} if %xcharti>=16 %long loop


CBK
%3x rgb_cmy

0 1 3 {/kx exch def %kx=0,3

/id 1 8 div def
/rijn 81 array def %for intermediate storage
/gijn 81 array def /bijn 81 array def
/lmax 2 def
/kx025 kx 0.25 mul def

/n kx 243 mul 1 sub def

0 1 lmax {/l exch def %beg k=0,kmax
          /xadd kx xss 9 mul mul def
          /yadd l yss 9 mul mul def

%for intermediate storage of l=0,lmax
0 1 01 {/jchart exch def %jchart=0,1
        /xchartj l jchart 3 mul add def
0 1 08 {/j exch def %j=0,7
        /im 8 j sub def
jchart 1 im {/i exch def %i=0,8
        /ia 1 id j mul sub def
        /argb ia def /brgb ia i id mul sub def
        
        xchartj 0 eq {/r argb def /g brgb argb brgb sub kx025 mul add def /b brgb def} if
        xchartj 1 eq {/r argb brgb argb sub kx025 mul add def /g argb def /b brgb def} if
        
        xchartj 2 eq {/r brgb def /g argb def /b brgb argb brgb sub kx025 mul add def} if
        xchartj 3 eq {/r brgb def /g argb brgb argb sub kx025 mul add def /b argb def} if
        
        xchartj 4 eq {/r brgb argb brgb sub kx025 mul add def /g brgb def /b argb def} if
        xchartj 5 eq {/r argb def /g brgb def /b argb brgb argb sub kx025 mul add def} if
        
        jchart 0 eq {/in i j add def /jn j def}
                    {/in j def /jn i j add def} ifelse
                     rijn in 9 mul jn add r put
                     gijn in 9 mul jn add g put
                     bijn in 9 mul jn add b put
        } for %i=0,7
        } for %j=0,8
        } for %jchart=0,1
        
%for output of l=0,lmax
0 1 08 {/j exch def %j=0,8
0 1 08 {/i exch def %i=0,8
        /r*x rijn i j 9 mul add get def
        /g*x gijn i j 9 mul add get def
        /b*x bijn i j 9 mul add get def
        /xa xmins xss j mul add xadd add xsd add def
        /ya ymaxs xss i mul sub yadd sub ysd add def
          
        /tLAB 1 def
        
        %interpretation as rgb*
        r*x g*x b*x
        proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
        /o3*ed0 o3*ed def
        /l3*ed0 l3*ed def
        /v3*ed0 v3*ed def
        /o3*ee0 o3*ee def
        /l3*ee0 l3*ee def
        /v3*ee0 v3*ee def
        /L*Fa0e L*Fa def
        /A*Fa0e A*Fa def
        /B*Fa0e B*Fa def
        /C*Fa0e C*Fa def
        /H*Fa0e H*Fa def
        /u*edMa10 u*edMa1 def /u*eeMa10 u*eeMa1 def
        /u*edMai0 u*edMai def /u*eeMai0 u*eeMai def
        /u*edMa20 u*edMa2 def /u*eeMa20 u*eeMa2 def
        
        %interpretation as olv*
        r*x g*x b*x
        proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL
        /o3*dd0 o3*dd def
        /l3*dd0 l3*dd def
        /v3*dd0 v3*dd def
        /o3*de0 o3*de def
        /l3*de0 l3*de def
        /v3*de0 v3*de def
        /L*Fa0 L*Fa def
        /A*Fa0 A*Fa def
        /B*Fa0 B*Fa def
        /C*Fa0 C*Fa def
        /H*Fa0 H*Fa def
        /u*ddMa10 u*ddMa1 def /u*deMa10 u*deMa1 def
        /u*ddMai0 u*ddMai def /u*deMai0 u*deMai def
        /u*ddMa20 u*ddMa2 def /u*deMa20 u*deMa2 def
          
        /c*rs0 c*rs def
        /t*s0 t*s def
        /l*s0 l*rs def
        /h*s0 H*Fa0 360 div def
        /i*s0 1 n*s sub def
          
        /a*sr A*Wior A*Nior sub l*s0 mul def
        /b*sr B*Wior B*Nior sub l*s0 mul def
        /L*Fa0x L*Fa0 def
        /A*Fa0x A*Fa0 A*Nior add a*sr add def
        /B*Fa0x B*Fa0 B*Nior add b*sr add def

        /r*x DEintp 0 eq {o3*dd0} {o3*ed0} ifelse def
        /g*x DEintp 0 eq {l3*dd0} {l3*ed0} ifelse def
        /b*x DEintp 0 eq {v3*dd0} {v3*ed0} ifelse def
          
        r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 for elementary or device
        /os3*Fa0 o* def
        /ls3*Fa0 l* def
        /vs3*Fa0 v* def
        /cs4*Fa0 c4*Fa def
        /ms4*Fa0 m4*Fa def
        /ys4*Fa0 y4*Fa def
        /ns4*Fa0 n4*Fa def
          
        xcharti 6 le {r*x g*x b*x setrgbcolor
                      xa ya xds dup rec fill
                      1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor
                      xa ya xds 0.5 mul dup rem fill} if
        xcharti 7 ge xcharti 15 le and 
                     {1 1 1 setrgbcolor xa ya xds xds rec fill
                      0 0 0 setrgbcolor xa ya xds xds rec stroke} if
        xcharti 0 eq {%xcharti=0
                      [100 300] 0 setdash
                      r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray}
                                                         {0 setgray} ifelse
                      xa ya xds 0.5 mul dup rem stroke
                      [ ] 0 setdash
                     } if %xcharti=0
        xcharti 7 ge xcharti 15 le and 
                     {0 0 0 setrgbcolor
                      /xan xa xds 0.00 mul sub def
                      /yan ya xds 0.25 mul sub def} if
        xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse cvsshow2
                      xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse cvsshow2
                      xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse cvsshow2} if
        xcharti 8 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*dd0} ifelse cvsshow2
                      xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*dd0} ifelse cvsshow2
                      xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*dd0} ifelse cvsshow2} if
        xcharti 9 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1
                      xan yan 400 add moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1
                      xan yan 200 add moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse cvsshow1} if
        xcharti 10 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1
                       xan yan 400 add moveto DEintp 0 eq {C*Fa0}{C*Fa0e} ifelse cvsshow1
                       xan yan 200 add moveto DEintp 0 eq {H*Fa0}{H*Fa0e} ifelse cvishow} if
        xcharti 11 eq {xan yan 600 add moveto t*s0 cvsshow2
                       xan yan 400 add moveto c*rs0 cvsshow2
                       xan yan 200 add moveto h*s0 cvsshow2} if
        xcharti 12 eq {xan yan 600 add moveto i*s0 cvsshow2
                       xan yan 400 add moveto c*rs0 cvsshow2
                       xan yan 200 add moveto
                       DEintp 0 eq {u*ddMa10 show u*ddMai0 9 le {(0) show} if
                                    u*ddMai0 cvishow u*ddMa20 show}
                                   {u*eeMa10 show u*eeMai0 9 le {(0) show} if
                                    u*eeMai0 cvishow u*eeMa20 show} ifelse
                      } if
        xcharti 13 eq {xan yan 600 add moveto L*Fa0x cvsshow1
                       xan yan 400 add moveto A*Fa0x cvsshow1
                       xan yan 200 add moveto B*Fa0x cvishow} if
        xcharti 14 eq {xan yan 600 add moveto os3*Fa0 cvsshow2
                       xan yan 400 add moveto ls3*Fa0 cvsshow2
                       xan yan 200 add moveto vs3*Fa0 cvsshow2} if
        xcharti 15 eq {CBKK
                       xan yan 610 add moveto cs4*Fa0 cvsshow2
                       xan yan 460 add moveto ms4*Fa0 cvsshow2
                       xan yan 320 add moveto ys4*Fa0 cvsshow2
                       xan yan 180 add moveto ns4*Fa0 cvsshow2
                       CBK} if

CBK
/k l def
0 0 0 setrgbcolor
/ijtab i j 9 mul add def
/xani 200 k kx 3 eq {0}{kx} ifelse 3 mul add 2750 mul add def
/yani 16400 ijtab 202 mul sub def

xcharti 16 eq kx 2 le and
xcharti 17 eq kx 3 eq and or {%xcharti=16; %xcharti=17 or
               xani 0000 add yani moveto
               DEintp 0 eq {o3*dd0}{o3*ed0} ifelse 255 mul cvishow
               xani 0800 add yani moveto
               DEintp 0 eq {l3*dd0}{l3*ed0} ifelse 255 mul cvishow
               xani 1600 add yani moveto
               DEintp 0 eq {v3*dd0}{v3*ed0} ifelse 255 mul cvishow
              } if %xcharti=16; %xcharti=17 or
              
xcharti 18 eq kx 2 le and
xcharti 19 eq kx 3 eq and or {%xcharti=18; %xcharti=19 or
               xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1
               xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse  cvsshow1
               xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse  cvsshow1
              } if %xcharti=18; %xcharti=19 or

xcharti 22 eq kx 2 le and
xcharti 23 eq kx 3 eq and or {%xcharti=22; %xcharti=23 or
               xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse 2.55 mul cvishow
               xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse 1.28 mul 128 add cvishow
               xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse 1.28 mul 128 add cvishow
              } if %xcharti=22; %xcharti=23 or

xcharti 20 eq kx 2 le and
xcharti 21 eq kx 3 eq and or
xcharti 24 eq kx 2 le and
xcharti 25 eq kx 3 eq and or or {%xcharti=20,21 or 24,25

/X* {L*Fa0 16 add 116 div
     A*Fa0 500 div add} bind def
/Y* {L*Fa0 16 add 116 div} bind def
/Z* {L*Fa0 16 add 116 div
     B*Fa0 200 div sub} bind def

/Xacie X* DecodeXYZ* XLIx mul def
/Yacie Y* DecodeXYZ* YLIx mul def
/Zacie Z* DecodeXYZ* ZLIx mul def
       
/Xnmw XYZa 21 get def
/Ynmw XYZa 22 get def
/Znmw XYZa 23 get def

/Xaicc Xacie Xnmw div XLIx mul def
/Yaicc Yacie Ynmw div YLIx mul def
/Zaicc Zacie Znmw div ZLIx mul def

/XQ Xaicc XLIx div def
/YQ Yaicc YLIx div def
/ZQ Zaicc ZLIx div def

XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if

/L*aicc YQ 0.008856 lt {903.3 YQ mul}
                       {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/A*aicc XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                       {XQ 0.33333333 exp} ifelse
                        YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                       {YQ 0.33333333 exp} ifelse sub 500 mul def
/B*aicc YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                       {YQ 0.33333333 exp} ifelse
                        ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                       {ZQ 0.33333333 exp} ifelse sub 200 mul def

xcharti 20 eq kx 2 le and
xcharti 21 eq kx 3 eq and or {%xcharti=20, %xcharti=21 or
               xani 0000 add yani moveto L*aicc cvsshow1
               xani 0800 add yani moveto A*aicc cvsshow1
               xani 1600 add yani moveto B*aicc cvsshow1
              } if %xcharti=20, %xcharti=21, kx=0 or

xcharti 24 eq kx 2 le and
xcharti 25 eq kx 3 eq and or {%xcharti=24, %xcharti=25 or
               xani 0000 add yani moveto L*aicc 2.55 mul cvishow
               xani 0800 add yani moveto A*aicc 1.28 mul 128 add cvishow
               xani 1600 add yani moveto B*aicc 1.28 mul 128 add cvishow
              } if %xcharti=24, %xcharti=21, kx=0 or

} if %xcharti=20,21 or 24,25

xcharti 26 eq kx 2 le and
xcharti 27 eq kx 3 eq and or {%xcharti=26, %xcharti=27 or
               xani 0000 add yani moveto os3*Fa0 255 mul cvishow
               xani 0800 add yani moveto ls3*Fa0 255 mul cvishow
               xani 1600 add yani moveto vs3*Fa0 255 mul cvishow
              } if %xcharti=26, %xcharti=27, kx=0 or

xcharti 28 eq kx 2 le and
xcharti 29 eq kx 3 eq and or {%xcharti=28, %xcharti=29 or
               xani 0000 add yani moveto cs4*Fa0 255 mul cvishow
               xani 0600 add yani moveto ms4*Fa0 255 mul cvishow
               xani 1200 add yani moveto ys4*Fa0 255 mul cvishow
               xani 1800 add yani moveto ns4*Fa0 255 mul cvishow
              } if %xcharti=28, %xcharti=29

        } for %i=0,7
        } for %j=0,8

        } for %end l=0,lmax

        } for %kx=0,3

%6wrgbcmy
/n 971
/lmax 03 def %4 rows with geys
/kmax 1 def %9 or 16 steps
0 1 kmax {/k exch def %
          k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse
0 1 lmax {/l exch def %beg l=0,lmax
          /xadd 36 l add xss mul def
          /yadd k 9 xss mul mul def
          /j1 l 36 add def
          /j1$ tx1 j1 get def
0 1 jmax {/j exch def %j=0,08
          /n n 1 add def
          /i1 j k 9 mul add 1 add def %9 steps, 16 steps
          /argb j jmax div def
          /xa xmins xadd add xsd add def
          /ya ymaxs xss j mul sub yadd sub ysd add def
          /r*x argb def /g*x argb def /b*x argb def
          
        /tLAB 1 def
        
        %interpretation as rgb*
        r*x g*x b*x
        proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
        /o3*ed0 o3*ed def
        /l3*ed0 l3*ed def
        /v3*ed0 v3*ed def
        /o3*ee0 o3*ee def
        /l3*ee0 l3*ee def
        /v3*ee0 v3*ee def
        /L*Fa0e L*Fa def
        /A*Fa0e A*Fa def
        /B*Fa0e B*Fa def
        /C*Fa0e C*Fa def
        /H*Fa0e H*Fa def
        /u*edMa10 u*edMa1 def /u*eeMa10 u*eeMa1 def
        /u*edMai0 u*edMai def /u*eeMai0 u*eeMai def
        /u*edMa20 u*edMa2 def /u*eeMa20 u*eeMa2 def
        
        %interpretation as olv*
        r*x g*x b*x
        proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL
        /o3*dd0 o3*dd def
        /l3*dd0 l3*dd def
        /v3*dd0 v3*dd def
        /o3*de0 o3*de def
        /l3*de0 l3*de def
        /v3*de0 v3*de def
        /L*Fa0 L*Fa def
        /A*Fa0 A*Fa def
        /B*Fa0 B*Fa def
        /C*Fa0 C*Fa def
        /H*Fa0 H*Fa def
        /u*ddMa10 u*ddMa1 def /u*deMa10 u*deMa1 def
        /u*ddMai0 u*ddMai def /u*deMai0 u*deMai def
        /u*ddMa20 u*ddMa2 def /u*deMa20 u*deMa2 def
          
        /c*rs0 c*rs def
        /t*s0 t*s def
        /l*s0 l*rs def
        /h*s0 H*Fa0 360 div def
        /i*s0 1 n*s sub def
          
        /a*sr A*Wior A*Nior sub l*s0 mul def
        /b*sr B*Wior B*Nior sub l*s0 mul def
        /L*Fa0x L*Fa0 def
        /A*Fa0x A*Fa0 A*Nior add a*sr add def
        /B*Fa0x B*Fa0 B*Nior add b*sr add def

        /r*x DEintp 0 eq {o3*dd0} {o3*ed0} ifelse def
        /g*x DEintp 0 eq {l3*dd0} {l3*ed0} ifelse def
        /b*x DEintp 0 eq {v3*dd0} {v3*ed0} ifelse def
          
        r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 for elementary or device
        /os3*Fa0 o* def
        /ls3*Fa0 l* def
        /vs3*Fa0 v* def
        /cs4*Fa0 c4*Fa def
        /ms4*Fa0 m4*Fa def
        /ys4*Fa0 y4*Fa def
        /ns4*Fa0 n4*Fa def
          
        xcharti 6 le {/xrgb r*x def
                      l 0 eq {0 0 0 1 xrgb sub setcmykcolor} if
                      l 1 eq {xrgb setgray} if
                      l 2 eq {1 xrgb sub dup dup 0 setcmykcolor} if
                      l 3 eq {xrgb dup dup setrgbcolor} if
                      xa ya xds dup rec fill
                      1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor
                      xa ya xds 0.5 mul dup rem fill} if
        xcharti 7 ge xcharti 15 le and 
                     {1 1 1 setrgbcolor xa ya xds xds rec fill
                      0 0 0 setrgbcolor xa ya xds xds rec stroke} if
        xcharti 0 eq {%xcharti=0
                      [100 300] 0 setdash
                      r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray}
                                                         {0 setgray} ifelse
                      xa ya xds 0.5 mul dup rem stroke
                      [ ] 0 setdash
                     } if %xcharti=0
        xcharti 7 ge xcharti 15 le and
                     {0 0 0 setrgbcolor
                      /xan xa xds 0.00 mul sub def
                      /yan ya xds 0.25 mul sub def} if
        xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse cvsshow2
                      xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse cvsshow2
                      xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse cvsshow2} if
        xcharti 8 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*dd0} ifelse cvsshow2
                      xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*dd0} ifelse cvsshow2
                      xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*dd0} ifelse cvsshow2} if
        xcharti 9 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1
                      xan yan 400 add moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1
                      xan yan 200 add moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse cvsshow1} if
        xcharti 10 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1
                       xan yan 400 add moveto DEintp 0 eq {C*Fa0}{C*Fa0e} ifelse cvsshow1
                       xan yan 200 add moveto DEintp 0 eq {H*Fa0}{H*Fa0e} ifelse cvishow} if
        xcharti 11 eq {xan yan 600 add moveto t*s0 cvsshow2
                       xan yan 400 add moveto c*rs0 cvsshow2
                       xan yan 200 add moveto h*s0 cvsshow2} if
        xcharti 12 eq {xan yan 600 add moveto i*s0 cvsshow2
                       xan yan 400 add moveto c*rs0 cvsshow2
                       xan yan 200 add moveto
                       DEintp 0 eq {u*ddMa10 show u*ddMai0 9 le {(0) show} if
                                    u*ddMai0 cvishow u*ddMa20 show}
                                   {u*eeMa10 show u*eeMai0 9 le {(0) show} if
                                    u*eeMai0 cvishow u*eeMa20 show} ifelse
                      } if
        xcharti 13 eq {xan yan 600 add moveto L*Fa0x cvsshow1
                       xan yan 400 add moveto A*Fa0x cvsshow1
                       xan yan 200 add moveto B*Fa0x cvishow} if
        xcharti 14 eq {xan yan 600 add moveto os3*Fa0 cvsshow2
                      xan yan 400 add moveto ls3*Fa0 cvsshow2
                      xan yan 200 add moveto vs3*Fa0 cvsshow2} if
        xcharti 15 eq {CBKK
                      xan yan 610 add moveto cs4*Fa0 cvsshow2
                      xan yan 460 add moveto ms4*Fa0 cvsshow2
                      xan yan 320 add moveto ys4*Fa0 cvsshow2
                      xan yan 180 add moveto ns4*Fa0 cvsshow2
                      CBK} if

CBK
/kx 3 k add def
/jmax1 jmax 1 add def
0 0 0 setrgbcolor
xcharti 17 eq {%xcharti=17
               /ijtab j l jmax1 mul add def
               /xani 200 kx 2750 mul add def
               /yani 16400 ijtab 202 mul sub def
               xani 0000 add yani moveto
               DEintp 0 eq {o3*dd0}{o3*ed0} ifelse 255 mul cvishow
               xani 0800 add yani moveto
               DEintp 0 eq {l3*dd0}{l3*ed0} ifelse 255 mul cvishow
               xani 1600 add yani moveto
               DEintp 0 eq {v3*dd0}{v3*ed0} ifelse 255 mul cvishow
              } if %xcharti=17

xcharti 19 eq {%xcharti=19
               /ijtab j l jmax1 mul add def
               /xani 200 kx 2750 mul add def
               /yani 16400 ijtab 202 mul sub def
               xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1
               xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1
               xani 1600 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1
              } if %xcharti=19

xcharti 23 eq {%xcharti=23
               /ijtab j l jmax1 mul add def
               /xani 200 kx 2750 mul add def
               /yani 16400 ijtab 202 mul sub def
               xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse  2.55 mul cvishow
               xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse 1.28 mul 128 add cvishow
               xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse 1.28 mul 128 add cvishow
              } if %xcharti=23

xcharti 21 eq xcharti 25 eq or {%xcharti=21 or 25

/ijtab j l jmax1 mul add def
/xani 200 kx 2750 mul add def
/yani 16400 ijtab 202 mul sub def
/X* {L*Fa0 16 add 116 div
     A*Fa0 500 div add} bind def
/Y* {L*Fa0 16 add 116 div} bind def
/Z* {L*Fa0 16 add 116 div
     B*Fa0 200 div sub} bind def

/Xacie X* DecodeXYZ* XLIx mul def
/Yacie Y* DecodeXYZ* YLIx mul def
/Zacie Z* DecodeXYZ* ZLIx mul def
       
/Xnmw XYZa 21 get def
/Ynmw XYZa 22 get def
/Znmw XYZa 23 get def

/Xaicc Xacie Xnmw div XLIx mul def
/Yaicc Yacie Ynmw div YLIx mul def
/Zaicc Zacie Znmw div ZLIx mul def

/XQ Xaicc XLIx div def
/YQ Yaicc YLIx div def
/ZQ Zaicc ZLIx div def

XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if

/L*aicc YQ 0.008856 lt {903.3 YQ mul}
                       {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/A*aicc XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                       {XQ 0.33333333 exp} ifelse
                        YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                       {YQ 0.33333333 exp} ifelse sub 500 mul def
/B*aicc YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                       {YQ 0.33333333 exp} ifelse
                        ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                       {ZQ 0.33333333 exp} ifelse sub 200 mul def

xcharti 21 eq {%xcharti=21
               xani 0000 add yani moveto L*aicc cvsshow1
               xani 0800 add yani moveto A*aicc cvsshow1
               xani 1600 add yani moveto B*aicc cvsshow1
              } if %xcharti=21

xcharti 25 eq {%xcharti=25
               xani 0000 add yani moveto L*aicc 2.55 mul cvishow
               xani 0800 add yani moveto A*aicc 1.28 mul 128 add cvishow
               xani 1600 add yani moveto B*aicc 1.28 mul 128 add cvishow
              } if %xcharti=25

} if %xcharti=21 or 25

xcharti 27 eq {%xcharti=27
               /ijtab j l jmax1 mul add def
               /xani 200 kx 2750 mul add def
               /yani 16400 ijtab 202 mul sub def
               xani 0000 add yani moveto os3*Fa0 255 mul cvishow
               xani 0800 add yani moveto ls3*Fa0 255 mul cvishow
               xani 1600 add yani moveto vs3*Fa0 255 mul cvishow
              } if %xcharti=27

xcharti 29 eq {%xcharti=29
               /ijtab j l jmax1 mul add def
               /xani 200 kx 2750 mul add def
               /yani 16400 ijtab 202 mul sub def
               xani 0000 add yani moveto cs4*Fa0 255 mul cvishow
               xani 0600 add yani moveto ms4*Fa0 255 mul cvishow
               xani 1200 add yani moveto ys4*Fa0 255 mul cvishow
               xani 1800 add yani moveto ns4*Fa0 255 mul cvishow
              } if %xcharti=29

         } for %j=0,jmax
       
         } for %l=0,lmax
       
         } for %k=0,kmax

%basic colours 1072 - 1080
/basrgb 24 array def
/basrgb
[0 0 0 1 1 1
 1 0 0 0 1 1
 1 1 0 0 0 1
 0 1 0 1 0 1
] def
/n 1071 def
0 1 7 {/i exch def %i=0,7
       /n n 1 add def
       /i3 i 3 mul def
       /xadd 36 xss mul def
       /yadd 25 xss mul def
       i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if
       i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if
       i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if
       i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if
       i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if
       i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if
       i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if
       i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if
       /xa xmins xss l mul add xadd add xsd add def
       /ya ymaxs xss j mul sub yadd sub ysd add def
       /r*x basrgb i3       get def
       /g*x basrgb i3 1 add get def
       /b*x basrgb i3 2 add get def
          
        /tLAB 1 def
        
        %interpretation as rgb*
        r*x g*x b*x
        proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioL
        /o3*ed0 o3*ed def
        /l3*ed0 l3*ed def
        /v3*ed0 v3*ed def
        /o3*ee0 o3*ee def
        /l3*ee0 l3*ee def
        /v3*ee0 v3*ee def
        /L*Fa0e L*Fa def
        /A*Fa0e A*Fa def
        /B*Fa0e B*Fa def
        /C*Fa0e C*Fa def
        /H*Fa0e H*Fa def
        /u*edMa10 u*edMa1 def /u*eeMa10 u*eeMa1 def
        /u*edMai0 u*edMai def /u*eeMai0 u*eeMai def
        /u*edMa20 u*edMa2 def /u*eeMa20 u*eeMa2 def
        
        %interpretation as olv*
        r*x g*x b*x
        proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioL
        /o3*dd0 o3*dd def
        /l3*dd0 l3*dd def
        /v3*dd0 v3*dd def
        /o3*de0 o3*de def
        /l3*de0 l3*de def
        /v3*de0 v3*de def
        /L*Fa0 L*Fa def
        /A*Fa0 A*Fa def
        /B*Fa0 B*Fa def
        /C*Fa0 C*Fa def
        /H*Fa0 H*Fa def
        /u*ddMa10 u*ddMa1 def /u*deMa10 u*deMa1 def
        /u*ddMai0 u*ddMai def /u*deMai0 u*deMai def
        /u*ddMa20 u*ddMa2 def /u*deMa20 u*deMa2 def
          
        /c*rs0 c*rs def
        /t*s0 t*s def
        /l*s0 l*rs def
        /h*s0 H*Fa0 360 div def
        /i*s0 1 n*s sub def
          
        /a*sr A*Wior A*Nior sub l*s0 mul def
        /b*sr B*Wior B*Nior sub l*s0 mul def
        /L*Fa0x L*Fa0 def
        /A*Fa0x A*Fa0 A*Nior add a*sr add def
        /B*Fa0x B*Fa0 B*Nior add b*sr add def

        /r*x DEintp 0 eq {o3*dd0} {o3*ed0} ifelse def
        /g*x DEintp 0 eq {l3*dd0} {l3*ed0} ifelse def
        /b*x DEintp 0 eq {v3*dd0} {v3*ed0} ifelse def
          
        r*x g*x b*x setrgbcolor %only to calculate olv'*3, cmyn'*4 for elementary or device
        /os3*Fa0 o* def
        /ls3*Fa0 l* def
        /vs3*Fa0 v* def
        /cs4*Fa0 c4*Fa def
        /ms4*Fa0 m4*Fa def
        /ys4*Fa0 y4*Fa def
        /ns4*Fa0 n4*Fa def
          
        xcharti 6 le {r*x g*x b*x setrgbcolor
                      xa ya xds dup rec fill
                      1 r*x sub 1 g*x sub 1 b*x sub 0 setcmykcolor
                      xa ya xds 0.5 mul dup rem fill} if
        xcharti 7 ge xcharti 15 le and
                     {1 1 1 setrgbcolor xa ya xds xds rec fill
                      0 0 0 setrgbcolor xa ya xds xds rec stroke} if
        xcharti 0 eq {%xcharti=0
                      [100 300] 0 setdash
                      r*x 0 eq g*x 0 eq and b*x 0 eq and {1 setgray}
                                                         {0 setgray} ifelse
                      xa ya xds 0.5 mul dup rem stroke
                      [ ] 0 setdash
                     } if %xcharti=0
        xcharti 7 ge xcharti 15 le and
                     {0 0 0 setrgbcolor
                      /xan xa xds 0.00 mul sub def
                      /yan ya xds 0.25 mul sub def} if
        xcharti 7 eq {xan yan 600 add moveto DEintp 0 eq {o3*dd0}{o3*ed0} ifelse cvsshow2
                      xan yan 400 add moveto DEintp 0 eq {l3*dd0}{l3*ed0} ifelse cvsshow2
                      xan yan 200 add moveto DEintp 0 eq {v3*dd0}{v3*ed0} ifelse cvsshow2} if
        xcharti 8 eq {xan yan 600 add moveto DEintp 0 eq {o3*de0}{o3*dd0} ifelse cvsshow2
                      xan yan 400 add moveto DEintp 0 eq {l3*de0}{l3*dd0} ifelse cvsshow2
                      xan yan 200 add moveto DEintp 0 eq {v3*de0}{v3*dd0} ifelse cvsshow2} if
        xcharti 9 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1
                      xan yan 400 add moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1
                      xan yan 200 add moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse cvsshow1} if
        xcharti 10 eq {xan yan 600 add moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1
                       xan yan 400 add moveto DEintp 0 eq {C*Fa0}{C*Fa0e} ifelse cvsshow1
                       xan yan 200 add moveto DEintp 0 eq {H*Fa0}{H*Fa0e} ifelse cvishow} if
        xcharti 11 eq {xan yan 600 add moveto t*s0 cvsshow2
                       xan yan 400 add moveto c*rs0 cvsshow2
                       xan yan 200 add moveto h*s0 cvsshow2} if
        xcharti 12 eq {xan yan 600 add moveto i*s0 cvsshow2
                       xan yan 400 add moveto c*rs0 cvsshow2
                       xan yan 200 add moveto
                       DEintp 0 eq {u*ddMa10 show u*ddMai0 9 le {(0) show} if
                                    u*ddMai0 cvishow u*ddMa20 show}
                                   {u*eeMa10 show u*eeMai0 9 le {(0) show} if
                                    u*eeMai0 cvishow u*eeMa20 show} ifelse
                      } if
        xcharti 13 eq {xan yan 600 add moveto L*Fa0x cvsshow1
                       xan yan 400 add moveto A*Fa0x cvsshow1
                       xan yan 200 add moveto B*Fa0x cvishow} if
        xcharti 14 eq {xan yan 600 add moveto os3*Fa0 cvsshow2
                      xan yan 400 add moveto ls3*Fa0 cvsshow2
                      xan yan 200 add moveto vs3*Fa0 cvsshow2} if
        xcharti 15 eq {CBKK
                      xan yan 610 add moveto cs4*Fa0 cvsshow2
                      xan yan 460 add moveto ms4*Fa0 cvsshow2
                      xan yan 320 add moveto ys4*Fa0 cvsshow2
                      xan yan 180 add moveto ns4*Fa0 cvsshow2
                      CBK} if


CBK
/kx 5 def
0 0 0 setrgbcolor
xcharti 17 eq {%xcharti=17
               /ijtab i def
               /xani 200 kx 2750 mul add def
               /yani 16400 ijtab 202 mul sub def
               xani 0000 add yani moveto
               DEintp 0 eq {o3*dd0}{o3*ed0} ifelse 255 mul cvishow
               xani 0800 add yani moveto
               DEintp 0 eq {l3*dd0}{l3*ed0} ifelse 255 mul cvishow
               xani 1600 add yani moveto
               DEintp 0 eq {v3*dd0}{v3*ed0} ifelse 255 mul cvishow
              } if %xcharti=17

xcharti 19 eq {%xcharti=19
               /ijtab i def
               /xani 200 kx 2750 mul add def
               /yani 16400 ijtab 202 mul sub def
               xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse cvsshow1
               xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1
               xani 1600 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse cvsshow1
              } if %xcharti=19

xcharti 23 eq {%xcharti=23
               /ijtab i def
               /xani 200 kx 2750 mul add def
               /yani 16400 ijtab 202 mul sub def
               xani 0000 add yani moveto DEintp 0 eq {L*Fa0}{L*Fa0e} ifelse 2.55 mul cvishow
               xani 0800 add yani moveto DEintp 0 eq {A*Fa0}{A*Fa0e} ifelse 1.28 mul 128 add cvishow
               xani 1600 add yani moveto DEintp 0 eq {B*Fa0}{B*Fa0e} ifelse 1.28 mul 128 add cvishow
              } if %xcharti=23

xcharti 21 eq xcharti 25 eq or {%xcharti=21 or 25

/ijtab i def
/xani 200 kx 2750 mul add def
/yani 16400 ijtab 202 mul sub def
/X* {L*Fa0 16 add 116 div
     A*Fa0 500 div add} bind def
/Y* {L*Fa0 16 add 116 div} bind def
/Z* {L*Fa0 16 add 116 div
     B*Fa0 200 div sub} bind def

/Xacie X* DecodeXYZ* XLIx mul def
/Yacie Y* DecodeXYZ* YLIx mul def
/Zacie Z* DecodeXYZ* ZLIx mul def
       
/Xnmw XYZa 21 get def
/Ynmw XYZa 22 get def
/Znmw XYZa 23 get def

/Xaicc Xacie Xnmw div XLIx mul def
/Yaicc Yacie Ynmw div YLIx mul def
/Zaicc Zacie Znmw div ZLIx mul def

/XQ Xaicc XLIx div def
/YQ Yaicc YLIx div def
/ZQ Zaicc ZLIx div def

XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if

/L*aicc YQ 0.008856 lt {903.3 YQ mul}
                       {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/A*aicc XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                       {XQ 0.33333333 exp} ifelse
                        YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                       {YQ 0.33333333 exp} ifelse sub 500 mul def
/B*aicc YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                       {YQ 0.33333333 exp} ifelse
                        ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                       {ZQ 0.33333333 exp} ifelse sub 200 mul def

xcharti 21 eq {%xcharti=21
               xani 0000 add yani moveto L*aicc cvsshow1
               xani 0800 add yani moveto A*aicc cvsshow1
               xani 1600 add yani moveto B*aicc cvsshow1
              } if %xcharti=21

xcharti 25 eq {%xcharti=25
               xani 0000 add yani moveto L*aicc 2.55 mul cvishow
               xani 0800 add yani moveto A*aicc 1.28 mul 128 add cvishow
               xani 1600 add yani moveto B*aicc 1.28 mul 128 add cvishow
              } if %xcharti=25

} if %xcharti=21 or 25

xcharti 27 eq {%xcharti=27
               /ijtab i def
               /xani 200 kx 2750 mul add def
               /yani 16400 ijtab 202 mul sub def
               xani 0000 add yani moveto os3*Fa0 255 mul cvishow
               xani 0800 add yani moveto ls3*Fa0 255 mul cvishow
               xani 1600 add yani moveto vs3*Fa0 255 mul cvishow
              } if %xcharti=27

xcharti 29 eq {%xcharti=29
               /ijtab i def
               /xani 200 kx 2750 mul add def
               /yani 16400 ijtab 202 mul sub def
               xani 0000 add yani moveto cs4*Fa0 255 mul cvishow
               xani 0600 add yani moveto ms4*Fa0 255 mul cvishow
               xani 1200 add yani moveto ys4*Fa0 255 mul cvishow
               xani 1800 add yani moveto ns4*Fa0 255 mul cvishow
              } if %xcharti=29

      } for %i=0,7

xcharti 15 le {%xchart<=15
40 3 div 2 mul setlinewidth
/xtmin xmins def
/ytmax ymaxs xss 01 mul add def
/ytmin ytmax xss 27 mul sub def
/xtmax xtmin xss 36 mul add def
/ytmean1 ytmin ytmax ytmin sub 0.3333 mul add def
/ytmean2 ytmin ytmax ytmin sub 0.6667 mul add def
1 0 0 setrgbcolor
1 1 4 {/k exch def
       /xta xtmin xss 9 mul k mul add def
       xta ytmin 100 sub moveto xta ytmax 100 add lineto stroke
      } for
xtmin 100 sub ytmean1 moveto xtmax ytmean1 lineto stroke
xtmin 100 sub ytmean2 moveto xtmax xss 4 mul add 100 add ytmean2 lineto stroke
/ytmean3 ytmin 2 xss mul add def
xtmax ytmean3 moveto xtmax xss 4 mul add 100 add ytmean3 lineto stroke

0 0 0 setrgbcolor
TBIG
22500 16500 moveto
xcharti 7 eq {(lab*olv*) show} if
xcharti 8 eq {(lab*rgb*) show} if
xcharti 9 eq {(LAB*LAB*) show -20 -50 rmoveto TBM (a) show DEintp 1 eq {(e) show} if 0 50 rmoveto TBIG} if
xcharti 10 eq {(LAB*LCH*) show -20 -50 rmoveto TBM (a) show DEintp 1 eq {(e) show} if 0 50 rmoveto TBIG} if
xcharti 11 eq {(lab*tch*) show} if
xcharti 12 eq {(lab*icu*) show TBM 0 -50 rmoveto DEintp 0 eq {(d)} {(e)} ifelse show 0 50 rmoveto TBIG} if
xcharti 13 eq {(LAB*LAB*) show DEintp 1 eq {(e) show} if} if
xcharti 14 eq {(lab*) show (olv'*) show} if %DEintp 0 eq {(olv'*) show} {(rgb'*) show} ifelse} if
xcharti 15 eq {(lab*) show (cmyn'*) show} if %DEintp 0 eq {(cmyn'*) show} {(cmjn'*) show} ifelse} if

ColSpx 0 eq rgb_cmy 1 eq and xcharti 6 eq and {
/ausz 8 def
0 0 0 setrgbcolor
8000 6000 moveto
700 /TimesBI-ISOL1 FS
30 rotate
(Black separation empty) showen
(Schwarz-Separation leer) showde
-30 rotate
/ausz 7 def
           } if

ColSpx 0 eq rgb_cmy 0 eq and
xcharti 3 ge xcharti 6 le and and {
/ausz 8 def
0 0 0 setrgbcolor
8000 6000 moveto
700 /TimesBI-ISOL1 FS
30 rotate
(olv* data, No cmyn* separation) showen
(olv*\255Daten, keine cmyn*\255Separation) showde
-30 rotate
/ausz 7 def
           } if

} if %xcharti<=11

showpage
grestore


%} for %xcharti END xcharti=00,29

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF  86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM  moveto
( ) show
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 18

%line 409
%!PS-Adobe-3.0 EPSF-3.0 HG460-8,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG460-8,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 197 MM translate
  10 /Times-ISOL1 FS  1 1 scale  -77 -91 translate
%%BeginDocument: Bild 12

%line 419

%%EndDocument
EndEPSF grestore gsave
                                        
BeginEPSF
161 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 21

%line 429
%!PS-Adobe-3.0 EPSF-3.0 HG461-1,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG461-1,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 22

%line 439
%!PS-Adobe-3.0 EPSF-3.0 HG461-2,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG461-2,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
161 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 23

%line 449
%!PS-Adobe-3.0 EPSF-3.0 HG461-3,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG461-3,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
219 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 24

%line 459
%!PS-Adobe-3.0 EPSF-3.0 HG461-4,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG461-4,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
              
BeginEPSF
161 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 25

%line 469
%!PS-Adobe-3.0 EPSF-3.0 HG461-5,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG461-5,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 26

%line 479
%!PS-Adobe-3.0 EPSF-3.0 HG461-6,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG461-6,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
251 MM 020 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 27

%line 489
%!PS-Adobe-3.0 EPSF-3.0 HG461-7,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG461-7,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM  moveto ( ) show
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 28

%line 499
%!PS-Adobe-3.0 EPSF-3.0 HG461-8,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (HG461-8,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen
  10 /Times-ISOL1 FS  53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate
%%BeginDocument: Bild 29 Teststreifen Ueberlaenge

%line 509

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
-0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen%

%%BeginDocument: Bild 30 %Rechteckrahmen

%line 519
%!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20091101
%%BoundingBox: 0 0 598 845

%%EndProlog
gsave

/lanind 1 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
               {/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
               {/xcolor1 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
               {/xchart1 0 def /xchart2 0 def} ifelse
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage

/GSS$ where {pop /LSS$ GSS$ def}
            {/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
            {/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
            {/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
            {/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
            {/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
            }
            {/IMES 0 def} ifelse
/i*ptrsc where {pop %/i*ptrsc i*ptrsc def
               }
               {/i*ptrsc 0 def} ifelse
gsave

/xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse
/colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse
/ISRL*ioG where {pop}{/ISRL*ioG 0 def} ifelse
/ISIN*ioG where {pop}{/ISIN*ioG 0 def} ifelse
/ISOU*ioG where {pop}{/ISOU*ioG 0 def} ifelse

/xcharti xchartx def

xcharti 0 eq {/ausz 8 def /xchartt (A) def} if
xcharti 1 eq {/ausz 8 def /xchartt (F) def} if
xcharti 2 eq {/ausz 8 def /xchartt (F) def} if
xcharti 3 eq {/ausz 1 def /xchartt (C) def} if
xcharti 4 eq {/ausz 2 def /xchartt (M) def} if
xcharti 5 eq {/ausz 3 def /xchartt (Y) def} if
xcharti 6 eq {/ausz 7 def /xchartt (N) def} if
xcharti 7 ge {/ausz 8 def /xchartt (F) def} if

%LAB*ioL, ColSep*ioL, and procedures (*ioL) are only in Y10-7N.EPS
%proc_LAB*ioG, proc_ColSep*ioG, and procedures (*ioG) are only in HG46L0NP.PS6.PS and OUTLIN1X
%for colorm=0, default rgb/cmyk-values are used for Frame
%for colorm=1, rgb/cmyk-values of proc_LAB*ioG, proc_ColSep*ioG are used for Frame
%for colorm=0, rgb/cmyk-values of LAB*ioL, ColSep*ioL are used in Y10-7N
%for colorm=1, rgb/cmyk-values of proc_LAB*ioG, proc_ColSep*ioG are used in Y10-7N
%for consistancy use same procedures in Y10-7N and HG46L0NP.PS6.PS

colorm 1 eq {proc_LAB*ioG proc_ColSep*ioG} if %LAB*ioL, ColSep*ioL only in Y10-7!

0 setgray

1.0 1.0  scale

0.0 MM 0.0 MM translate

0.15 MM setlinewidth

/xx 20 array def
/yy 20 array def
/dd 20 array def

/xx [000 296 296 000  002 294 294 002  005 291 291 005 %speziell
     006 290 290 006  008 288 288 008 ] def
/yy [000 000 210 210  002 002 208 208  005 005 205 205 %speziell
     006 006 204 204  008 008 202 202 ] def
/dd [060 017 -60 -17  058 015 -58 -15  056 013 -56 -13
     054 011 -54 -11  052 009 -52 -09 ] def

xcharti 1 le {/xt 1 def} {/xt 0 def} ifelse %without/with frame

xt 0 eq {%xt=0,1 ifelse

/i0 12 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
%xx i0 get MM yy i0 get MM moveto xx i1 get MM yy i1 get MM lineto
%xx i2 get MM yy i2 get MM lineto xx i3 get MM yy i3 get MM lineto
%xx i0 get MM yy i0 get MM lineto stroke

3.0 MM /Times-ISOL1 FS
xx i0 get MM 50 MM add yy i0 get MM 0 MM sub moveto
(http://130.149.60.45/~farbmetrik/HG46/HG46L) show
(0) show
LSC$ show LEX$ show
(, Page ) showen
(, Seite ) showde
xcharti 1 add cvishow (/30) show
(; ) show LAB*TE 0 get show
(; cf1=0.90; nt=0.01; nx=1.3) show
} %xt=0

{ %xt=1

/xlu 017 MM def /ylu 017 MM def
/xro 279 MM def /yro 193 MM def
/xlo 017 MM def /ylo 193 MM def
/xru 279 MM def /yru 017 MM def

xlu 8 MM sub ylu moveto  16 MM 0 rlineto stroke
xlu ylu 8 MM sub moveto 0  16 MM rlineto stroke
xro 8 MM add yro moveto -16 MM 0 rlineto stroke
xro yro 8 MM add moveto 0 -16 MM rlineto stroke

xru 8 MM sub yru moveto  16 MM 0 rlineto stroke
xru yru 8 MM sub moveto 0  16 MM rlineto stroke
xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke
xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke

1 2 7 {/i exch def %Zentrierkreise
xlu ylu i MM 0 360 arc stroke
xro yro i MM 0 360 arc stroke
xru yru i MM 0 360 arc stroke
xlo ylo i MM 0 360 arc stroke
      } for %i

12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
        /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def

i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse

0 setgray        
xx i0 get MM yy i0 get MM moveto xx i1 get MM yy i1 get MM lineto
xx i2 get MM yy i2 get MM lineto xx i3 get MM yy i3 get MM lineto
xx i0 get MM yy i0 get MM lineto stroke

i 16 eq {6 /Times-ISOL1 FS
         /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def  
         /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def
         x00 xdif 0 mul add MM y0o MM moveto (V) show
         x00 xdif 0 mul add MM y0u MM moveto (C) show
         x00 xdif 1 mul add MM y0o MM moveto (L) show
         x00 xdif 1 mul add MM y0u MM moveto (M) show
         x00 xdif 2 mul add MM y0o MM moveto (O) show
         x00 xdif 2 mul add MM y0u MM moveto (Y) show
         x00 xdif 3 mul add MM y0o MM moveto (Y) show
         x00 xdif 3 mul add MM y0u MM moveto (O) show
         x00 xdif 4 mul add MM y0o MM moveto (M) show
         x00 xdif 4 mul add MM y0u MM moveto (L) show
         x00 xdif 5 mul add MM y0o MM moveto (C) show
         x00 xdif 5 mul add MM y0u MM moveto (V) show

         x0l MM y00 ydif 0 mul add MM moveto (V) show
         x0r MM y00 ydif 0 mul add MM moveto (C) show
         x0l MM y00 ydif 1 mul add MM moveto (L) show
         x0r MM y00 ydif 1 mul add MM moveto (M) show
         x0l MM y00 ydif 2 mul add MM moveto (O) show
         x0r MM y00 ydif 2 mul add MM moveto (Y) show
         x0l MM y00 ydif 3 mul add MM moveto (Y) show
         x0r MM y00 ydif 3 mul add MM moveto (O) show
         x0l MM y00 ydif 4 mul add MM moveto (M) show
         x0r MM y00 ydif 4 mul add MM moveto (L) show
         x0l MM y00 ydif 5 mul add MM moveto (C) show
         x0r MM y00 ydif 5 mul add MM moveto (V) show
        } if

       } for %i=0,16

0 1 10 {/j0 exch def /j1 j0 1 add def %j0
 
         j0 0 eq {tzcolv* setrgbcolor} if
         j0 1 eq {0 setgray} if
         j0 2 eq {tzmolv* setrgbcolor} if
         j0 3 eq {0 setgray} if
         j0 4 eq {tzyolv* setrgbcolor} if
         j0 5 eq {0 setgray} if
         j0 6 eq {tzoolv* setrgbcolor} if
         j0 7 eq {0 setgray} if
         j0 8 eq {tzlolv* setrgbcolor} if
         j0 9 eq {0 setgray} if
         j0 10 eq {tzvolv* setrgbcolor} if

12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
        /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def

i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse         

xx i0 get dd i0 get add 16 j0 mul add MM yy i0 get MM moveto
xx i0 get dd i0 get add 16 j1 mul add MM yy i0 get MM lineto stroke

xx i1 get MM yy i1 get dd i1 get add 16 j0 mul add MM moveto
xx i1 get MM yy i1 get dd i1 get add 16 j1 mul add MM lineto stroke

xx i2 get dd i2 get add 16 j0 mul sub MM yy i2 get MM moveto
xx i2 get dd i2 get add 16 j1 mul sub MM yy i2 get MM lineto stroke

xx i3 get MM yy i3 get dd i3 get add 16 j0 mul sub MM moveto
xx i3 get MM yy i3 get dd i3 get add 16 j1 mul sub MM lineto stroke

       } for %i=0,16

       } for %j0

0.15 MM setlinewidth
/s 7 MM def /s1 8 MM def /s5 36 MM def
16 1 20 {/j exch def /j0 j 16 sub def %j=16,20
         /ix0 xlu  8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def

0 1 3 {/ij exch def %ij=0,3

 ij 0 eq {/ix0 xlu  8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if
 ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if
 ij 2 eq {/ix0 xlo  8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if
 ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if

i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor
              j 16 eq {/ng tzan j get def
                       ng ng ng 0 setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              /ng tzan j get def
              ng ng ng 0 setcmykcolor
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=0,2
             
i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor
              j 16 eq {/wg 1 tzan j get sub def
                       wg
                       setgray %N
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              /wg 1 tzan j get sub def
              wg
              setgray %N
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=1,3
             
i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5
  [/CIEBasedABC <<    %Farbraum und Grenzen fuer D65
  /RangeABC [0 100 -128 127 -128 127]
  /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
  /MatrixABC [1 1 1 1 0 0 0 0 -1]
  /DecodeLMN
    [{dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind]
    /WhitePoint  [0.9505 1 1.089]                %CIEXYZ fuer D65
 >>] setcolorspace

 j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
          tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
          tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
          setcolor %N
          ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
          tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
          tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
          tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
          setcolor %N
          ix0 iy0 s s  rec fill
             } if %i*ptrsc=4,5

i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor
              j 16 eq {/ng tzan j get def
                       0 0 0 ng setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              /ng tzan j get def
              0 0 0 ng setcmykcolor
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=6

i*ptrsc 7 eq {%i*ptrsc=7 w* setgray
              j 16 eq {/wg 1 tzan j get sub def
                       wg setgray
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              /wg 1 tzan j get sub def
              wg setgray
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=7

      } for %ij=0,3

        } for %j=16,20
                                                      
0 setgray
018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show

276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show

018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show

276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show

0 setgray
12 /Times-ISOL1 FS
61 MM 13 MM  moveto
(TUB\255Pr\374fvorlage HG46; Relatives Elementar\255Farbsystem O) showde
(TUB\255test chart HG46; Relative Elementary Colour System O) showen
%(, Page ) showen
%(, Seite ) showde
%xcharti 1 add cvishow (/30) show

61 MM 09 MM  moveto (D65: ) show
(1080 Normfarben, Separationen und 23 Datentabellen) showde
(1080 standard colours, separations and 23 data tables) showen

12 /Times-ISOL1 FS
168 MM 13 MM moveto
(    input: ) showen
(Eingabe: ) showde
12 /TimesI-ISOL1 FS
(000n / w / nnn0 / www set... ) show

12 /Times-ISOL1 FS
168 MM 9 MM moveto
(    output: ) showen
(Ausgabe: ) showde

LSC$ (N) eq {%LSC$=N
12 /Times-ISOL1 FS
xcharti 0 eq {(no change compared to input) showen
              (keine Eingabe\344nderung) showde}
             {12 /TimesI-ISOL1 FS (->cmyn62* setcmykcolor) show
              12 /Times-ISOL1 FS} ifelse
             } if %LSC$=N

LSC$ (S) eq {
(Startup (S) data dependend) showen
(Startup(S)Daten abh\344ngig) showde
            } if
                 
LSC$ (F) eq {
12 /TimesI-ISOL1 FS
             i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if
             i*ptrsc 1 eq {xcharti 0 eq {12 /Times-ISOL1 FS
                                         (no change compared to input) showen
                                         (keine Eingabe\344nderung) showde
                                        }
                                        {(->LAB*->cmyn62* setcmyk) show
                                        } ifelse
                          } if
             i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if
             i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if
             i*ptrsc 4 eq {(lab* setcolor) show} if
             i*ptrsc 5 eq {(LAB* setcolor) show} if
             i*ptrsc 6 eq {(000n* setcmykcolor) show} if
             i*ptrsc 7 eq {(w* setgray) show} if
            } if
%0 setgray %end white and unvisible

12 /Times-ISOL1 FS

62 MM 198.5 MM  moveto
(http://130.149.60.45/~farbmetrik/HG46/HG46L) show
(0) show
LSC$ show LEX$ show
(, Page ) showen
(, Seite ) showde
xcharti 1 add cvishow (/30) show
(; ) show LAB*TE 0 get show

%1 setgray %start white and unvisible
%(; ) show
%LSC$ (N) eq {
%xcharti 0 eq {(Start\255Ausgabe) showde (start output) showen}
%             {(Transfer und Ausgabe) showde (transfer and output) showen} ifelse
%(start) showes
%(start) showfr
%(start) showit
%(start) showjp
%(start) showm
%           } if
%LSC$ (C) eq {
%(Start) showde
%(start) showen
%(start) showes
%(start) showfr
%(start) showit
%(start) showjp
%(start) showm
%           } if
%LSC$ (F) eq {
%xcharti 0 eq {(Start\255Ausgabe) showde (start output) showen}
%             {(Linearisierte Ausgabe) showde (linearized output) showen} ifelse
%(linearized) showes
%(linearized) showfr
%(linearized) showit
%(linearized) showjp
%(linearized) showm
%           } if

 62 MM 194 MM  moveto
LSC$ (N) eq LSC$ (C) eq or {
(N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm
           }
           {LSC$ show (: ) show
(Linearisierte\255Ausgabe) showde
(linearized output) showen
(linearized output) showes
(linearized output) showfr
(linearized output) showit
(linearized output) showjp
(linearized output) showm
%(HG46/HG46L) show
%(0) show
%LSC$ show LEY$ show
          } ifelse
LSC$ (F) eq {
( in der Datei (F)) showde
( in File (F)) showen
( in File (F)) showes
( in File (F)) showfr
( in File (F)) showit
( in File (F)) showjp
( in File (F)) showm
           } if
LSC$ (S) eq {
( im Distiller Startup (S) Directory) showde
( in Distiller Startup (S) Directory) showen
( in Distiller Startup (S) Directory) showes
( in Distiller Startup (S) Directory) showfr
( in Distiller Startup (S) Directory) showit
( in Distiller Startup (S) Directory) showjp
( in Distiller Startup (S) Directory) showm
           } if
LSC$ (D) eq {
( in PostScript Device (D)) showde
( in PostScript Device (D)) showen
( in PostScript Device (D)) showes
( in PostScript Device (D)) showfr
( in PostScript Device (D)) showit
( in PostScript Device (D)) showjp
( in PostScript Device (D)) showm
           } if
LSC$ (T) eq {
( von Distiller Startup (S) Directory) showde
( of Distiller Startup (S) Directory) showen
( of Distiller Startup (S) Directory) showes
( of Distiller Startup (S) Directory) showfr
( of Distiller Startup (S) Directory) showit
( of Distiller Startup (S) Directory) showjp
( of Distiller Startup (S) Directory) showm
           } if
LSC$ (E) eq {
( von PostScript Device (D)) showde
( of PostScript Device (D)) showen
( of PostScript Device (D)) showes
( of PostScript Device (D)) showfr
( of PostScript Device (D)) showit
( of PostScript Device (D)) showjp
( of PostScript Device (D)) showm
           } if
%xcharti 2 ge xcharti 5 le and {(; Separation: ) show
%              tzcolv* setrgbcolor (c) show
%              tzmolv* setrgbcolor (m) show
%              tzyolv* setrgbcolor (y) show
%              tznolv* setrgbcolor (n) show
%              LSC$ (F) eq {tznolv* setrgbcolor (*) show} if
%             } if
%0 setgray %end white and unvisible

 16 MM 185 MM moveto
-90 rotate
(Siehe Original/Kopie: ) showde
(See original or copy: ) showen
(http://web.me.com/klaus.richter/HG46/HG46L) show
(0) show
LSC$ show LEX$ show
90 rotate

 12 MM 185 MM moveto
-90 rotate
(Technische Information: ) showde
(Technical information: ) showen
(http://www.ps.bam.de) show
%( or ) showen ( oder ) showde
%(http://130.149.60.45/~farbmetrik) show
 90 rotate

281 MM 185 MM moveto
-90 rotate
(TUB\255Registrierung: 20091101\255HG46/HG46L) showde
(TUB registration: 20091101\255HG46/HG46L) showen
(0) show
LSC$ show LEX$ show
90 rotate

281 MM 74 MM moveto
-90 rotate
(TUB\255Material: Code=rha4ta) showde
(TUB material: code=rha4ta) showen
90 rotate

 12 MM 105 MM moveto
-90 rotate
(V 2.1, io=1,) show
LSC$ (N) eq {(1) show} if
LSC$ (S) eq {(1?) show} if
LSC$ (D) eq {(1?) show} if
%LSC$ (F) eq {i*ptrsc cvishow
%             IMES 0 eq {(, CIELAB) show}
%                       {(, CIEXYZ) show} ifelse
%            } if
(, Cx=) show ColSpx cvishow
(; cf1=0.90; nt=0.01; nx=1.3) show
 90 rotate

277 MM 185 MM moveto
-90 rotate
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def

( Anwendung f\374r Beurteilung und Messung von Drucker- oder Monitorsystemen) showde
( application for evaluation and measurement of printer or monitor systems) showen
( application for evaluation and measurement of printer or monitor systems) showes
( application for evaluation and measurement of printer or monitor systems) showfr
( application for evaluation and measurement of printer or monitor systems) showit
( application for evaluation and measurement of printer or monitor systems) showjp
( application for evaluation and measurement of printer or monitor systems) showm

IMES 1 eq LSC$ (N) ne and { %IMES=1
             (, Yr=) show Yre cvsshow1 (, XYZ) show
          } if %IMES=1
90 rotate

/i0 8 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
0.30 MM setlinewidth
0 setgray
xx i0 get MM yy i0 get MM moveto xx i1 get MM yy i1 get MM lineto
xx i2 get MM yy i2 get MM lineto xx i3 get MM yy i3 get MM lineto
xx i0 get MM yy i0 get MM lineto stroke

%} if %end if xcharti=0

%/xlu1 013 MM def /ylu1 010 MM def
%/xro1 283 MM def /yro1 200 MM def
%/xlo1 013 MM def /ylo1 200 MM def
%/xru1 283 MM def /yru1 010 MM def

%xlu1 4 MM sub ylu1 moveto  8 MM 0 rlineto stroke
%xlu1 ylu1 4 MM sub moveto 0  8 MM rlineto stroke
%xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke
%xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke

%xru1 4 MM sub yru1 moveto  8 MM 0 rlineto stroke
%xru1 yru1 4 MM sub moveto 0  8 MM rlineto stroke
%xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke
%xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke

} ifelse %xt=0,1 ifelse

%} for %output with colorm end
%} for %output with xcolor end
%} for %output with lanind end

%%Trailer

%%EndDocument
EndEPSF grestore gsave
                                                        
showpage
grestore

%} for %end for xchartg=xchartg1,xchartg2
%} for %end for pcountg=pcountg1,pcount2g
%} for %end for scountg=scountg1,scount2g

%%Trailer