%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/SN46/SN46L00XX.PS 20130201
%%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/SN46/SN46.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2013020112000)
  /ModDate (D:20130210112000)
/DOCINFO pdfmark
[ /View [ /Fit ]
/DOCVIEW pdfmark
/sfgray {setgray} bind def %Early Frame File (f) definition
/sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def
%line 20******************************************************
%BEG GK0X->SN46/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->SN46/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201

%*****************************************************************************
%BEG GK0X->SN46/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201
%*****************************************************************************
%Data (ORS18_95, L*=18_95)

/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
[(ORS18_95, L*=18_95) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70)
 (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70)
 (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def

%ORS18_950_D65_ALM_GK00_G.DAT, Model or transfer to Real data, 55 lines, 141:195
ISRL*ioG 0 eq { %ISRL*ioG=0
/LAB*00 [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS18)
%LAB*                  %#1000 x (r g b  c m y 0)             (ORS18_95A_D65_ALM)
%047.94  65.31   52.07 %O   0
%090.37 -11.16   96.17 %Y   1
%050.90 -62.97   36.71 %L   2
%058.62 -30.63  -42.75 %C   3  %see TABle 1 of ISO/IEC 15775:1999-12
%025.72  31.45  -44.36 %V   4
%048.13  75.20  -6.80  %M   5
%018.01   0.50  -0.47  %N   7
%095.41  -0.99   4.76  %W   8
%From LUT_De740-7N_3_4_ORS18_95.DAT 20080625
%Data output of De74/10L/De740-7N.EPS -> De740_3_4_Model.log
%(ORS18_950_D65_ALM_GK00), line 15-34
%LAB*                %#1000 x (r g b  c m y 0) not adapted
%z04794 06531  05207 %O   0
%z09037 -1116  09617 %Y   1
%z05090 -6297  03671 %L   2
%z05862 -3063  -4275 %C   3  %see TABle 1 of ISO/IEC 15775:1999-12
%z02572 03145  -4436 %V   4
%z04813 07520  -0680 %M   5
%z01801 00050  -0047 %N   6
%z09541 -0099  00476 %W   7
%$
04794 06531  05207 %O   0
09037 -1116  09617 %Y   1
05090 -6297  03671 %L   2
05862 -3063  -4275 %C   3  %see TABle 1 of ISO/IEC 15775:1999-12
02572 03145  -4436 %V   4
04813 07520  -0680 %M   5
01801 00050  -0047 %N   6
09541 -0099  00476 %W   7
%$
%(ORS18_95A_D65_ALM_GK00), line 35-54
%LAB*a              %#1000 x (r g b  c m y 0), adapted
%04794 06537  05050 %#1000 0000 0000  0000 1000 1000 0000 %1074 l26 $O
%09036 -1026  09173 %#1000 1000 0000  0000 0000 1000 0000 %1076 m26 $Y
%05090 -6282  03495 %#0000 1000 0000  1000 0000 1000 0000 %1078 n26 $L
%05861 -3034  -4501 %#0000 1000 1000  1000 0000 0000 0000 %1075 l27 $C
%02572 03109  -4440 %#0000 0000 1000  1000 1000 0000 0000 %1077 m27 $V
%04813 07526  -0836 %#1000 0000 1000  0000 1000 0000 0000 %1079 n27 $M
%01802 00000  00000 %#0000 0000 0000  1000 1000 1000 0000 %1072 k26 $N
%09540 00000  00000 %#1000 1000 1000  0000 0000 0000 0000 %1073 k27 $W
%$
%04794 06537  05050 %#1000 0000 0000  0000 1000 1000 0000 %1074 l26 $O
%09036 -1026  09173 %#1000 1000 0000  0000 0000 1000 0000 %1076 m26 $Y
%05090 -6282  03495 %#0000 1000 0000  1000 0000 1000 0000 %1078 n26 $L
%05861 -3034  -4501 %#0000 1000 1000  1000 0000 0000 0000 %1075 l27 $C
%02572 03109  -4440 %#0000 0000 1000  1000 1000 0000 0000 %1077 m27 $V
%04813 07526  -0836 %#1000 0000 1000  0000 1000 0000 0000 %1079 n27 $M
%01802 00000  00000 %#0000 0000 0000  1000 1000 1000 0000 %1072 k26 $N
%09540 00000  00000 %#1000 1000 1000  0000 0000 0000 0000 %1073 k27 $W
%$
] 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 1.00 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 L*Z sub cf1 mul L*Z add 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

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.0 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.18 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 GK0X->SN46/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201
%BEG SN46/OUTLIN1Y2.PS Emty 20101101

%END SN46/OUTLIN1Y2.PS Emty 20101101
                                                                         
/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              % End for EPS file
 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
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

%%EndProlog

%***********************************************************
%%BeginPageSetup
/#copies 1 def
%A4querF
1.0 1.0 scale
/pgsave save def
%%EndPageSetup

/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

%*******************************************************************
/lanind1f 05 def /lanind2f 05 def /laninddf 01 def
/colorm1f 00 def /colorm2f 00 def /colormdf 01 def
/deintp1f 00 def /deintp2f 00 def /deintpdf 01 def
/xcolor1f 00 def /xcolor2f 01 def /xcolordf 01 def
/xchart1f 00 def /xchart2f 00 def /xchartdf 01 def
/xchart3f 01 def /xchart4f 00 def /xchart5f 00 def
/pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0
/colsep1f 00 def /colsep2f 00 def /colsepdf 01 def
/pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def
%/lanindf lanind1f def %
/lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def

%/colormf colorm1f def %
/colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def

%/deintpf deintp1f def %
/deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def

%/xcolorf xcolor1f def %
xcolor1f xcolordf xcolor2f {/xcolorf exch def

%/xchartf xchart1f def %
/xchartf xchart1f def %xchart1f xchartdf xchart2f {/xchartf exch def

%/pchartf pchart1f def %
/pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def

%/colsepf colsep1f def %
/colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def

/lanind lanindf def
/colorm colormf def
/deintp deintpf def
/xcolor xcolorf def
/xchart xchartf def   /xchartm xchart2f xchart1f sub 1 add def
/xchart3 xchart3f def /xchart4 xchart4f def
/pchart pchartf def
/colsep colsepf def

%/pmetamf pmetam1f def %
/pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def

/pmetam pmetamf def

%*************************************************************
/setgray {sfgray} bind def
/setrgbcolor {sfrgbcolor} bind def
/setcmykcolor {sfcmykcolor} bind def

%72 90 translate

%0.01 MM dup scale
%0 0 moveto 24600 0 rlineto 0 17220 rlineto
%          -24600 0 rlineto closepath stroke
%000 -240 moveto
%240 /Times-ISOL1 FS
%lanindf cvishow (-) show
%colormf cvishow
%deintpf cvishow
%xcolorf cvishow
%xchartf cvishow
%pchartf cvishow
%colsepf cvishow (-F) show pmetamf cvishow

%grestore
gsave

/GSS$ SS$ lanind get def
/GSC$ SC$ colorm get def
/GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def
/GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def
/GEX$ EX$ 0 get def
/GEY$ EY$ 0 get def

%01
%02
%03
%04
%05
%06
%07
%08
%09
%10
%11
%12
%13
%14
%15
%16
%17
%18

%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 SN460-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     (SN460-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 SN460-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     (SN460-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 SN460-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     (SN460-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 SN460-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     (SN460-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 SN460-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     (SN460-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 SN460-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     (SN460-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
 /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if
 28 MM 2 MM sub xt 0 eq {16 MM sub} if 20 MM xt 0 eq {12 MM sub} if 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 SN460-7N
%%BoundingBox: 70 82 785 580
 
%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: http://130.149.60.45/~farbmetrik/SN46/)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices, colour vision)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2013030112000)
  /ModDate (D:2013030112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END  PDFDE011

%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq 
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub 
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} bind def
 
% !Change to ISOLatin1 fonts
/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
 
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/TL {160 /Times-ISOL1 FS} bind def 
/TS {200 /Times-ISOL1 FS} bind def 
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIL {160 /TimesI-ISOL1 FS} bind def
/TIS {200 /TimesI-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
 
/TBL {160 /TimesB-ISOL1 FS} bind def
/TBS {200 /TimesB-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

/TBIL {160 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-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

/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

/colrecfi %x y width heigth c m y k
  {setcmykcolor rec fill} bind def

/colrecst %x y width heigth c m y k
  {setcmykcolor rec stroke} bind def

/LUT 10800 array def

/LUT_LAB0 10800 array def %10x1080
/LUT_LAB1 10800 array def %10x1080
/LUT_LAB2 10800 array def %10x1080
/LUT_LAB3 10800 array def %10x1080
/LUT_LAB4 10800 array def %10x1080
/LUT_LAB5 10800 array def %10x1080
/LUT_LAB6 10800 array def %10x1080
/LUT_LAB7 10800 array def %10x1080
/LAB*Fa0000 96 array def
/LAB*Fa0100 96 array def
/LAB*Fa1100 96 array def

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

/FileDataen (LAB_D65_Z45N_R243.DAT, 243 colours, 20080301, rgb*, adapted) def
/FileDatade (LAB_D65_Z45N_R243.DAT, 243 Farben, 20080301, rgb*, adaptiert) def

/LUT_LAB0 [
%Measurement, File: %Z45N_R243.DAT, 243 colours, 20080301, olv*, adapted
%Z45N_R243.DAT, 243 colours, 20080301, olv*
%100 x LAB*a         1000 x (r g b  c m y 0)            %nr.  pos
009494 000003 -00009 1000 1000 1000 0000 0000 0000 0000 %0729 b01
008899 -00854 000116 0875 1000 1000 0125 0000 0000 0000 %0730 b02
008355 -01483 -00003 0750 1000 1000 0250 0000 0000 0000 %0731 b03
007592 -02091 -00722 0625 1000 1000 0375 0000 0000 0000 %0732 b04
006991 -02491 -01457 0500 1000 1000 0500 0000 0000 0000 %0733 b05
006420 -02774 -02319 0375 1000 1000 0625 0000 0000 0000 %0734 b06
006020 -02965 -02833 0250 1000 1000 0750 0000 0000 0000 %0735 b07
005867 -02900 -03075 0125 1000 1000 0875 0000 0000 0000 %0736 b08
005812 -02894 -03136 0000 1000 1000 1000 0000 0000 0000 %0737 b09
008598 000753 000588 1000 0875 0875 0000 0125 0125 0000 %0738 c01
008335 -00088 000384 0875 0875 0875 0125 0125 0125 0000 %0739 c02
008243 -01031 000194 0750 0875 0875 0250 0125 0125 0000 %0740 c03
007700 -01841 -00376 0625 0875 0875 0375 0125 0125 0000 %0741 c04
006902 -02172 -01194 0500 0875 0875 0500 0125 0125 0000 %0742 c05
006236 -02527 -01928 0375 0875 0875 0625 0125 0125 0000 %0743 c06
005637 -02783 -02488 0250 0875 0875 0750 0125 0125 0000 %0744 c07
005410 -02816 -02635 0125 0875 0875 0875 0125 0125 0000 %0745 c08
005302 -02776 -02703 0000 0875 0875 1000 0125 0125 0000 %0746 c09
007703 001794 000820 1000 0750 0750 0000 0250 0250 0000 %0747 d01
007648 000825 000536 0875 0750 0750 0125 0250 0250 0000 %0748 d02
007456 -00148 000301 0750 0750 0750 0250 0250 0250 0000 %0749 d03
007151 -01165 -00118 0625 0750 0750 0375 0250 0250 0000 %0750 d04
006695 -01820 -00477 0500 0750 0750 0500 0250 0250 0000 %0751 d05
006031 -02280 -01200 0375 0750 0750 0625 0250 0250 0000 %0752 d06
005364 -02791 -01813 0250 0750 0750 0750 0250 0250 0000 %0753 d07
005131 -02776 -02048 0125 0750 0750 0875 0250 0250 0000 %0754 d08
005025 -02909 -02108 0000 0750 0750 1000 0250 0250 0000 %0755 d09
006992 002567 001376 1000 0625 0625 0000 0375 0375 0000 %0756 e01
006973 001686 001033 0875 0625 0625 0125 0375 0375 0000 %0757 e02
006665 000735 000743 0750 0625 0625 0250 0375 0375 0000 %0758 e03
006185 -00239 000347 0625 0625 0625 0375 0375 0375 0000 %0759 e04
006117 -01205 000039 0500 0625 0625 0500 0375 0375 0000 %0760 e05
005637 -01832 -00423 0375 0625 0625 0625 0375 0375 0000 %0761 e06
004957 -02496 -01148 0250 0625 0625 0750 0375 0375 0000 %0762 e07
004693 -02683 -01438 0125 0625 0625 0875 0375 0375 0000 %0763 e08
004616 -02699 -01523 0000 0625 0625 1000 0375 0375 0000 %0764 e09
006243 003486 002155 1000 0500 0500 0000 0500 0500 0000 %0765 f01
006096 002777 001610 0875 0500 0500 0125 0500 0500 0000 %0766 f02
005847 001919 001199 0750 0500 0500 0250 0500 0500 0000 %0767 f03
005397 000699 000586 0625 0500 0500 0375 0500 0500 0000 %0768 f04
005294 -00397 000412 0500 0500 0500 0500 0500 0500 0000 %0769 f05
005119 -01353 000079 0375 0500 0500 0625 0500 0500 0000 %0770 f06
004594 -02065 -00540 0250 0500 0500 0750 0500 0500 0000 %0771 f07
004219 -02353 -00954 0125 0500 0500 0875 0500 0500 0000 %0772 f08
004102 -02490 -01067 0000 0500 0500 1000 0500 0500 0000 %0773 f09
005424 004809 002633 1000 0375 0375 0000 0625 0625 0000 %0774 g01
005228 003857 002198 0875 0375 0375 0125 0625 0625 0000 %0775 g02
005086 003139 001648 0750 0375 0375 0250 0625 0625 0000 %0776 g03
004756 001756 001111 0625 0375 0375 0375 0625 0625 0000 %0777 g04
004429 000766 000516 0500 0375 0375 0500 0625 0625 0000 %0778 g05
004290 -00260 000290 0375 0375 0375 0625 0625 0625 0000 %0779 g06
004085 -01377 000012 0250 0375 0375 0750 0625 0625 0000 %0780 g07
003711 -01941 -00393 0125 0375 0375 0875 0625 0625 0000 %0781 g08
003612 -02012 -00662 0000 0375 0375 1000 0625 0625 0000 %0782 g09
005013 005385 003448 1000 0250 0250 0000 0750 0750 0000 %0783 h01
004759 004589 002896 0875 0250 0250 0125 0750 0750 0000 %0784 h02
004412 003951 002323 0750 0250 0250 0250 0750 0750 0000 %0785 h03
003980 002908 001596 0625 0250 0250 0375 0750 0750 0000 %0786 h04
003607 001955 000957 0500 0250 0250 0500 0750 0750 0000 %0787 h05
003386 000774 000519 0375 0250 0250 0625 0750 0750 0000 %0788 h06
003053 -00324 000168 0250 0250 0250 0750 0750 0750 0000 %0789 h07
002889 -01096 -00177 0125 0250 0250 0875 0750 0750 0000 %0790 h08
002782 -01366 -00310 0000 0250 0250 1000 0750 0750 0000 %0791 h09
004854 005485 004539 1000 0125 0125 0000 0875 0875 0000 %0792 i01
004512 004825 003974 0875 0125 0125 0125 0875 0875 0000 %0793 i02
004144 004141 003365 0750 0125 0125 0250 0875 0875 0000 %0794 i03
003723 003201 002410 0625 0125 0125 0375 0875 0875 0000 %0795 i04
003317 002529 001682 0500 0125 0125 0500 0875 0875 0000 %0796 i05
002840 001548 000898 0375 0125 0125 0625 0875 0875 0000 %0797 i06
002380 000761 000334 0250 0125 0125 0750 0875 0875 0000 %0798 i07
002058 -00169 000102 0125 0125 0125 0875 0875 0875 0000 %0799 i08
002024 -00652 -00058 0000 0125 0125 1000 0875 0875 0000 %0800 i09
004767 005569 004800 1000 0000 0000 0000 1000 1000 0000 %0801 j01
004433 004878 004109 0875 0000 0000 0125 1000 1000 0000 %0802 j02
004085 004293 003461 0750 0000 0000 0250 1000 1000 0000 %0803 j03
003777 003773 002976 0625 0000 0000 0375 1000 1000 0000 %0804 j04
003323 002880 002014 0500 0000 0000 0500 1000 1000 0000 %0805 j05
002861 002107 001226 0375 0000 0000 0625 1000 1000 0000 %0806 j06
002223 001193 000574 0250 0000 0000 0750 1000 1000 0000 %0807 j07
001780 000216 000188 0125 0000 0000 0875 1000 1000 0000 %0808 j08
001758 -00004 -00005 0000 0000 0000 1000 1000 1000 0000 %0809 j09

009489 -00007 000016 1000 1000 1000 0000 0000 0000 0000 %0810 b10
008281 000383 -01002 0875 0875 1000 0125 0125 0000 0000 %0811 b11
007218 000537 -01778 0750 0750 1000 0250 0250 0000 0000 %0812 b12
006174 000692 -02497 0625 0625 1000 0375 0375 0000 0000 %0813 b13
005287 000756 -03064 0500 0500 1000 0500 0500 0000 0000 %0814 b14
004511 000721 -03577 0375 0375 1000 0625 0625 0000 0000 %0815 b15
004012 000476 -03931 0250 0250 1000 0750 0750 0000 0000 %0816 b16
003832 000561 -03973 0125 0125 1000 0875 0875 0000 0000 %0817 b17
003649 000498 -04088 0000 0000 1000 1000 1000 0000 0000 %0818 b18
009394 -00587 001520 1000 1000 0875 0000 0000 0125 0000 %0819 c10
008358 -00054 000274 0875 0875 0875 0125 0125 0125 0000 %0820 c11
007651 000282 -00965 0750 0750 0875 0250 0250 0125 0000 %0821 c12
006480 000678 -02258 0625 0625 0875 0375 0375 0125 0000 %0822 c13
005388 000927 -02916 0500 0500 0875 0500 0500 0125 0000 %0823 c14
004492 000856 -03462 0375 0375 0875 0625 0625 0125 0000 %0824 c15
003868 000701 -03902 0250 0250 0875 0750 0750 0125 0000 %0825 c16
003517 000892 -04081 0125 0125 0875 0875 0875 0125 0000 %0826 c17
003436 000932 -04088 0000 0000 0875 1000 1000 0125 0000 %0827 c18
009315 -01058 003075 1000 1000 0750 0000 0000 0250 0000 %0828 d10
008297 -00525 001486 0875 0875 0750 0125 0125 0250 0000 %0829 d11
007540 -00133 000253 0750 0750 0750 0250 0250 0250 0000 %0830 d12
006526 000213 -01052 0625 0625 0750 0375 0375 0250 0000 %0831 d13
005574 000726 -02377 0500 0500 0750 0500 0500 0250 0000 %0832 d14
004607 001044 -03316 0375 0375 0750 0625 0625 0250 0000 %0833 d15
003693 000927 -03870 0250 0250 0750 0750 0750 0250 0000 %0834 d16
003257 001224 -04063 0125 0125 0750 0875 0875 0250 0000 %0835 d17
003043 001430 -04149 0000 0000 0750 1000 1000 0250 0000 %0836 d18
009251 -01375 004511 1000 1000 0625 0000 0000 0375 0000 %0837 e10
008277 -01099 003054 0875 0875 0625 0125 0125 0375 0000 %0838 e11
007420 -00702 001892 0750 0750 0625 0250 0250 0375 0000 %0839 e12
006262 -00244 000302 0625 0625 0625 0375 0375 0375 0000 %0840 e13
005463 000155 -01146 0500 0500 0625 0500 0500 0375 0000 %0841 e14
004502 000743 -02513 0375 0375 0625 0625 0625 0375 0000 %0842 e15
003465 000925 -03471 0250 0250 0625 0750 0750 0375 0000 %0843 e16
002985 001511 -03945 0125 0125 0625 0875 0875 0375 0000 %0844 e17
002881 001648 -04064 0000 0000 0625 1000 1000 0375 0000 %0845 e18
009166 -01638 006263 1000 1000 0500 0000 0000 0500 0000 %0846 f10
008170 -01349 004479 0875 0875 0500 0125 0125 0500 0000 %0847 f11
007328 -01087 003190 0750 0750 0500 0250 0250 0500 0000 %0848 f12
006361 -00752 001671 0625 0625 0500 0375 0375 0500 0000 %0849 f13
005363 -00376 000467 0500 0500 0500 0500 0500 0500 0000 %0850 f14
004407 000180 -01183 0375 0375 0500 0625 0625 0500 0000 %0851 f15
003536 000666 -02640 0250 0250 0500 0750 0750 0500 0000 %0852 f16
002804 001518 -03633 0125 0125 0500 0875 0875 0500 0000 %0853 f17
002589 001696 -03858 0000 0000 0500 1000 1000 0500 0000 %0854 f18
009119 -01728 007296 1000 1000 0375 0000 0000 0625 0000 %0855 g10
008077 -01458 005776 0875 0875 0375 0125 0125 0625 0000 %0856 g11
007281 -01359 004612 0750 0750 0375 0250 0250 0625 0000 %0857 g12
006267 -01147 003222 0625 0625 0375 0375 0375 0625 0000 %0858 g13
005161 -00816 001790 0500 0500 0375 0500 0500 0625 0000 %0859 g14
004318 -00266 000335 0375 0375 0375 0625 0625 0625 0000 %0860 g15
003318 000070 -01235 0250 0250 0375 0750 0750 0625 0000 %0861 g16
002647 000845 -02618 0125 0125 0375 0875 0875 0625 0000 %0862 g17
002316 001456 -03210 0000 0000 0375 1000 1000 0625 0000 %0863 g18
009065 -01782 008492 1000 1000 0250 0000 0000 0750 0000 %0864 h10
008045 -01509 007031 0875 0875 0250 0125 0125 0750 0000 %0865 h11
007153 -01526 006068 0750 0750 0250 0250 0250 0750 0000 %0866 h12
006124 -01309 004452 0625 0625 0250 0375 0375 0750 0000 %0867 h13
005121 -01030 003167 0500 0500 0250 0500 0500 0750 0000 %0868 h14
004110 -00701 001569 0375 0375 0250 0625 0625 0750 0000 %0869 h15
003086 -00309 000235 0250 0250 0250 0750 0750 0750 0000 %0870 h16
002355 000082 -01012 0125 0125 0250 0875 0875 0750 0000 %0871 h17
001947 000559 -01828 0000 0000 0250 1000 1000 0750 0000 %0872 h18
009038 -01787 009055 1000 1000 0125 0000 0000 0875 0000 %0873 i10
007974 -01525 007734 0875 0875 0125 0125 0125 0875 0000 %0874 i11
007069 -01535 006550 0750 0750 0125 0250 0250 0875 0000 %0875 i12
005954 -01344 005099 0625 0625 0125 0375 0375 0875 0000 %0876 i13
004982 -01141 003833 0500 0500 0125 0500 0500 0875 0000 %0877 i14
003879 -00973 002509 0375 0375 0125 0625 0625 0875 0000 %0878 i15
002926 -00660 001305 0250 0250 0125 0750 0750 0875 0000 %0879 i16
002096 -00185 000112 0125 0125 0125 0875 0875 0875 0000 %0880 i17
001530 000118 -00525 0000 0000 0125 1000 1000 0875 0000 %0881 i18
009022 -01761 009043 1000 1000 0000 0000 0000 1000 0000 %0882 j10
007790 -01555 007616 0875 0875 0000 0125 0125 1000 0000 %0883 j11
006806 -01458 006542 0750 0750 0000 0250 0250 1000 0000 %0884 j12
005840 -01342 005183 0625 0625 0000 0375 0375 1000 0000 %0885 j13
004934 -01098 004110 0500 0500 0000 0500 0500 1000 0000 %0886 j14
003904 -00880 002834 0375 0375 0000 0625 0625 1000 0000 %0887 j15
002960 -00789 001810 0250 0250 0000 0750 0750 1000 0000 %0888 j16
002267 -00363 000579 0125 0125 0000 0875 0875 1000 0000 %0889 j17
001669 000000 000002 0000 0000 0000 1000 1000 1000 0000 %0890 j18

009498 000003 -00007 1000 1000 1000 0000 0000 0000 0000 %0891 b19
008599 001211 -00384 1000 0875 1000 0000 0125 0000 0000 %0892 b20
007778 002310 -00570 1000 0750 1000 0000 0250 0000 0000 %0893 b21
007047 003307 -00670 1000 0625 1000 0000 0375 0000 0000 %0894 b22
006205 004573 -00762 1000 0500 1000 0000 0500 0000 0000 %0895 b23
005454 005786 -00717 1000 0375 1000 0000 0625 0000 0000 %0896 b24
005096 006318 -00567 1000 0250 1000 0000 0750 0000 0000 %0897 b25
005051 006356 -00509 1000 0125 1000 0000 0875 0000 0000 %0898 b26
004985 006445 -00451 1000 0000 1000 0000 1000 0000 0000 %0899 b27
008774 -01312 001057 0875 1000 0875 0125 0000 0125 0000 %0900 c19
008337 -00087 000360 0875 0875 0875 0125 0125 0125 0000 %0901 c20
007784 001276 -00815 0875 0750 0875 0125 0250 0125 0000 %0902 c21
006780 002132 -01395 0875 0625 0875 0125 0375 0125 0000 %0903 c22
005802 003158 -01562 0875 0500 0875 0125 0500 0125 0000 %0904 c23
004996 004530 -01598 0875 0375 0875 0125 0625 0125 0000 %0905 c24
004596 005330 -01356 0875 0250 0875 0125 0750 0125 0000 %0906 c25
004518 005506 -01289 0875 0125 0875 0125 0875 0125 0000 %0907 c26
004592 005583 -01181 0875 0000 0875 0125 1000 0125 0000 %0908 c27
008144 -02286 001994 0750 1000 0750 0250 0000 0250 0000 %0909 d19
008159 -01486 001414 0750 0875 0750 0250 0125 0250 0000 %0910 d20
007523 -00119 000318 0750 0750 0750 0250 0250 0250 0000 %0911 d21
006795 001270 -00669 0750 0625 0750 0250 0375 0250 0000 %0912 d22
005903 002691 -01626 0750 0500 0750 0250 0500 0250 0000 %0913 d23
005053 003814 -01841 0750 0375 0750 0250 0625 0250 0000 %0914 d24
004386 004761 -01817 0750 0250 0750 0250 0750 0250 0000 %0915 d25
004329 004807 -01655 0750 0125 0750 0250 0875 0250 0000 %0916 d26
004160 005002 -01648 0750 0000 0750 0250 1000 0250 0000 %0917 d27
007369 -03294 002773 0625 1000 0625 0375 0000 0375 0000 %0918 e19
007620 -02880 002315 0625 0875 0625 0375 0125 0375 0000 %0919 e20
007169 -01790 001590 0625 0750 0625 0375 0250 0375 0000 %0920 e21
006172 -00181 000342 0625 0625 0625 0375 0375 0375 0000 %0921 e22
005561 001337 -00991 0625 0500 0625 0375 0500 0375 0000 %0922 e23
005001 002673 -01740 0625 0375 0625 0375 0625 0375 0000 %0923 e24
004177 003882 -01951 0625 0250 0625 0375 0750 0375 0000 %0924 e25
003933 004155 -02034 0625 0125 0625 0375 0875 0375 0000 %0925 e26
003899 004258 -02015 0625 0000 0625 0375 1000 0375 0000 %0926 e27
006786 -04083 003457 0500 1000 0500 0500 0000 0500 0000 %0927 f19
006938 -03848 003211 0500 0875 0500 0500 0125 0500 0000 %0928 f20
006852 -03099 002856 0500 0750 0500 0500 0250 0500 0000 %0929 f21
006070 -01857 001617 0500 0625 0500 0500 0375 0500 0000 %0930 f22
005304 -00347 000460 0500 0500 0500 0500 0500 0500 0000 %0931 f23
004582 001270 -00836 0500 0375 0500 0500 0625 0500 0000 %0932 f24
003818 002874 -01753 0500 0250 0500 0500 0750 0500 0000 %0933 f25
003526 003407 -02052 0500 0125 0500 0500 0875 0500 0000 %0934 f26
003376 003592 -02245 0500 0000 0500 0500 1000 0500 0000 %0935 f27
006266 -04801 003953 0375 1000 0375 0625 0000 0625 0000 %0936 g19
006353 -04680 003922 0375 0875 0375 0625 0125 0625 0000 %0937 g20
006174 -04113 003544 0375 0750 0375 0625 0250 0625 0000 %0938 g21
005683 -03309 002514 0375 0625 0375 0625 0375 0625 0000 %0939 g22
004878 -01987 001476 0375 0500 0375 0625 0500 0625 0000 %0940 g23
004252 -00212 000358 0375 0375 0375 0625 0625 0625 0000 %0941 g24
003618 001233 -00805 0375 0250 0375 0625 0750 0625 0000 %0942 g25
003085 002439 -01825 0375 0125 0375 0625 0875 0625 0000 %0943 g26
002904 002701 -02142 0375 0000 0375 0625 1000 0625 0000 %0944 g27
005955 -05214 004403 0250 1000 0250 0750 0000 0750 0000 %0945 h19
005913 -05011 004302 0250 0875 0250 0750 0125 0750 0000 %0946 h20
005564 -04602 003894 0250 0750 0250 0750 0250 0750 0000 %0947 h21
005117 -04164 003265 0250 0625 0250 0750 0375 0750 0000 %0948 h22
004499 -03251 002484 0250 0500 0250 0750 0500 0750 0000 %0949 h23
003908 -01847 001425 0250 0375 0250 0750 0625 0750 0000 %0950 h24
003058 -00282 000263 0250 0250 0250 0750 0750 0750 0000 %0951 h25
002432 001088 -00871 0250 0125 0250 0750 0875 0750 0000 %0952 h26
002268 001770 -01507 0250 0000 0250 0750 1000 0750 0000 %0953 h27
005692 -05510 004320 0125 1000 0125 0875 0000 0875 0000 %0954 i19
005429 -05286 004125 0125 0875 0125 0875 0125 0875 0000 %0955 i20
005131 -04968 003733 0125 0750 0125 0875 0250 0875 0000 %0956 i21
004647 -04599 003248 0125 0625 0125 0875 0375 0875 0000 %0957 i22
004150 -03855 002698 0125 0500 0125 0875 0500 0875 0000 %0958 i23
003570 -02859 002128 0125 0375 0125 0875 0625 0875 0000 %0959 i24
002635 -01550 001012 0125 0250 0125 0875 0750 0875 0000 %0960 i25
002052 -00215 000132 0125 0125 0125 0875 0875 0875 0000 %0961 i26
001783 000552 -00459 0125 0000 0125 0875 1000 0875 0000 %0962 i27
005605 -05557 004282 0000 1000 0000 1000 0000 1000 0000 %0963 j19
005325 -05217 004141 0000 0875 0000 1000 0125 1000 0000 %0964 j20
004945 -04880 003666 0000 0750 0000 1000 0250 1000 0000 %0965 j21
004528 -04648 003257 0000 0625 0000 1000 0375 1000 0000 %0966 j22
004141 -04069 002780 0000 0500 0000 1000 0500 1000 0000 %0967 j23
003632 -03192 002268 0000 0375 0000 1000 0625 1000 0000 %0968 j24
002822 -01974 001419 0000 0250 0000 1000 0750 1000 0000 %0969 j25
002186 -00810 000500 0000 0125 0000 1000 0875 1000 0000 %0970 j26
001799 000004 000002 0000 0000 0000 1000 1000 1000 0000 %0971 j27
] def

/LAB*Fa0100 [
%Z45N_R243.DAT, 243 colours, 20080301, rgb*
%100 x LAB*a         1000 x (r g b  c m y 0)            %nr.  pos
%004838 005542 004827 1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0
%009023 -01768 009338 1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1
%005646 -05432 004631 0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2
%005696 -02852 -03308 0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3
%003652 000477 -04142 0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4
%005004 006479 -00467 1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5
%001614 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6
%009478 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7
%$
004767 005569 004800 1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0
009022 -01761 009043 1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y2 1
005605 -05557 004282 0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2
005812 -02894 -03136 0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C2 3
003649 000498 -04088 0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4
004985 006445 -00451 1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5
001742 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6
009494 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7
%$
] def %END Z45N_R243.DAT
/FileData0Na (R_LRS18_Z45N_3) def

/FileData1en (Z45F_R243.DAT, 243 colours, 20080301, olv*, adapted) def
/FileData1de (Z45F_R243.DAT, 243 Farben, 20080301, olv*, adaptiert) def
/LUT_LAB1 [
%Measurement data: LAB_D65_%Z45F_R243.DAT, 243 colours, 20080301, olv*, adapted
%Z45F_R243.DAT, 243 colours, 20080301, olv*
%100 x LAB*a         1000 x (r g b  c m y 0)            %nr.  pos
009505 000001 -00007 1000 1000 1000 0000 0000 0000 0000 %0729 b01
008937 -00720 000014 0875 1000 1000 0125 0000 0000 0000 %0730 b02
008036 -00414 -01015 0750 1000 1000 0250 0000 0000 0000 %0731 b03
007595 -00977 -01442 0625 1000 1000 0375 0000 0000 0000 %0732 b04
007179 -01299 -01765 0500 1000 1000 0500 0000 0000 0000 %0733 b05
006694 -01710 -02295 0375 1000 1000 0625 0000 0000 0000 %0734 b06
006367 -02343 -02408 0250 1000 1000 0750 0000 0000 0000 %0735 b07
005770 -02661 -03025 0125 1000 1000 0875 0000 0000 0000 %0736 b08
005399 -02894 -03467 0000 1000 1000 1000 0000 0000 0000 %0737 b09
008612 000744 000572 1000 0875 0875 0000 0125 0125 0000 %0738 c01
008525 -00049 000009 0875 0875 0875 0125 0125 0125 0000 %0739 c02
007884 -00209 -00467 0750 0875 0875 0250 0125 0125 0000 %0740 c03
007225 -00819 -00830 0625 0875 0875 0375 0125 0125 0000 %0741 c04
006688 -01191 -01143 0500 0875 0875 0500 0125 0125 0000 %0742 c05
006301 -01582 -01761 0375 0875 0875 0625 0125 0125 0000 %0743 c06
005874 -01797 -02087 0250 0875 0875 0750 0125 0125 0000 %0744 c07
005394 -02141 -02618 0125 0875 0875 0875 0125 0125 0000 %0745 c08
004844 -02431 -03084 0000 0875 0875 1000 0125 0125 0000 %0746 c09
008131 001118 001179 1000 0750 0750 0000 0250 0250 0000 %0747 d01
007821 000795 000700 0875 0750 0750 0125 0250 0250 0000 %0748 d02
007361 000194 -00005 0750 0750 0750 0250 0250 0250 0000 %0749 d03
006744 -00352 -00506 0625 0750 0750 0375 0250 0250 0000 %0750 d04
006315 -00651 -00884 0500 0750 0750 0500 0250 0250 0000 %0751 d05
005889 -01011 -01288 0375 0750 0750 0625 0250 0250 0000 %0752 d06
005357 -01242 -01670 0250 0750 0750 0750 0250 0250 0000 %0753 d07
004767 -01658 -02231 0125 0750 0750 0875 0250 0250 0000 %0754 d08
004356 -02037 -02674 0000 0750 0750 1000 0250 0250 0000 %0755 d09
007470 001751 001872 1000 0625 0625 0000 0375 0375 0000 %0756 e01
007143 001600 001397 0875 0625 0625 0125 0375 0375 0000 %0757 e02
006654 000958 000697 0750 0625 0625 0250 0375 0375 0000 %0758 e03
006149 000024 -00117 0625 0625 0625 0375 0375 0375 0000 %0759 e04
005598 -00278 -00466 0500 0625 0625 0500 0375 0375 0000 %0760 e05
005308 -00620 -00850 0375 0625 0625 0625 0375 0375 0000 %0761 e06
004781 -00986 -01212 0250 0625 0625 0750 0375 0375 0000 %0762 e07
004158 -01528 -01802 0125 0625 0625 0875 0375 0375 0000 %0763 e08
003731 -01605 -02162 0000 0625 0625 1000 0375 0375 0000 %0764 e09
006801 002541 002539 1000 0500 0500 0000 0500 0500 0000 %0765 f01
006588 002301 002098 0875 0500 0500 0125 0500 0500 0000 %0766 f02
006131 001520 001423 0750 0500 0500 0250 0500 0500 0000 %0767 f03
005592 000647 000636 0625 0500 0500 0375 0500 0500 0000 %0768 f04
005040 000074 -00026 0500 0500 0500 0500 0500 0500 0000 %0769 f05
004708 -00234 -00317 0375 0500 0500 0625 0500 0500 0000 %0770 f06
004296 -00680 -00819 0250 0500 0500 0750 0500 0500 0000 %0771 f07
003757 -01132 -01343 0125 0500 0500 0875 0500 0500 0000 %0772 f08
003277 -01183 -01791 0000 0500 0500 1000 0500 0500 0000 %0773 f09
005954 003706 003554 1000 0375 0375 0000 0625 0625 0000 %0774 g01
005852 003218 002617 0875 0375 0375 0125 0625 0625 0000 %0775 g02
005556 002464 001853 0750 0375 0375 0250 0625 0625 0000 %0776 g03
005040 001630 001152 0625 0375 0375 0375 0625 0625 0000 %0777 g04
004340 001089 000428 0500 0375 0375 0500 0625 0625 0000 %0778 g05
004107 000270 000006 0375 0375 0375 0625 0625 0625 0000 %0779 g06
003600 -00118 -00604 0250 0375 0375 0750 0625 0625 0000 %0780 g07
003187 -00331 -01015 0125 0375 0375 0875 0625 0625 0000 %0781 g08
002834 -00821 -01321 0000 0375 0375 1000 0625 0625 0000 %0782 g09
005721 004082 003804 1000 0250 0250 0000 0750 0750 0000 %0783 h01
005350 003844 003241 0875 0250 0250 0125 0750 0750 0000 %0784 h02
005007 003063 002398 0750 0250 0250 0250 0750 0750 0000 %0785 h03
004384 002411 001852 0625 0250 0250 0375 0750 0750 0000 %0786 h04
003913 001749 001082 0500 0250 0250 0500 0750 0750 0000 %0787 h05
003661 000912 000450 0375 0250 0250 0625 0750 0750 0000 %0788 h06
003243 000205 -00162 0250 0250 0250 0750 0750 0750 0000 %0789 h07
002787 -00194 -00609 0125 0250 0250 0875 0750 0750 0000 %0790 h08
002362 -00506 -00951 0000 0250 0250 1000 0750 0750 0000 %0791 h09
005143 005055 004414 1000 0125 0125 0000 0875 0875 0000 %0792 i01
004563 004767 003537 0875 0125 0125 0125 0875 0875 0000 %0793 i02
003946 003854 003074 0750 0125 0125 0250 0875 0875 0000 %0794 i03
003823 003121 002256 0625 0125 0125 0375 0875 0875 0000 %0795 i04
003425 002384 001691 0500 0125 0125 0500 0875 0875 0000 %0796 i05
003017 001796 000991 0375 0125 0125 0625 0875 0875 0000 %0797 i06
002618 000811 000418 0250 0125 0125 0750 0875 0875 0000 %0798 i07
002380 000008 000033 0125 0125 0125 0875 0875 0875 0000 %0799 i08
001973 -00292 -00433 0000 0125 0125 1000 0875 0875 0000 %0800 i09
004612 005866 004699 1000 0000 0000 0000 1000 1000 0000 %0801 j01
004178 005104 003944 0875 0000 0000 0125 1000 1000 0000 %0802 j02
003855 004359 003347 0750 0000 0000 0250 1000 1000 0000 %0803 j03
003509 003460 002795 0625 0000 0000 0375 1000 1000 0000 %0804 j04
003186 002441 002117 0500 0000 0000 0500 1000 1000 0000 %0805 j05
002765 001449 001438 0375 0000 0000 0625 1000 1000 0000 %0806 j06
002423 000744 000851 0250 0000 0000 0750 1000 1000 0000 %0807 j07
001958 000570 000252 0125 0000 0000 0875 1000 1000 0000 %0808 j08
001710 000003 000000 0000 0000 0000 1000 1000 1000 0000 %0809 j09

009503 000002 -00003 1000 1000 1000 0000 0000 0000 0000 %0810 b10
008607 000045 -00605 0875 0875 1000 0125 0125 0000 0000 %0811 b11
007978 000314 -01277 0750 0750 1000 0250 0250 0000 0000 %0812 b12
007137 000432 -01972 0625 0625 1000 0375 0375 0000 0000 %0813 b13
006388 000460 -02361 0500 0500 1000 0500 0500 0000 0000 %0814 b14
005676 000466 -02684 0375 0375 1000 0625 0625 0000 0000 %0815 b15
005003 000634 -03007 0250 0250 1000 0750 0750 0000 0000 %0816 b16
004138 000580 -03673 0125 0125 1000 0875 0875 0000 0000 %0817 b17
003280 000799 -04167 0000 0000 1000 1000 1000 0000 0000 %0818 b18
009293 -00381 001348 1000 1000 0875 0000 0000 0125 0000 %0819 c10
008545 -00060 000032 0875 0875 0875 0125 0125 0125 0000 %0820 c11
007618 000137 -00591 0750 0750 0875 0250 0250 0125 0000 %0821 c12
006882 000105 -01111 0625 0625 0875 0375 0375 0125 0000 %0822 c13
006128 000261 -01566 0500 0500 0875 0500 0500 0125 0000 %0823 c14
005495 000446 -01972 0375 0375 0875 0625 0625 0125 0000 %0824 c15
004578 000742 -02492 0250 0250 0875 0750 0750 0125 0000 %0825 c16
003806 000567 -03071 0125 0125 0875 0875 0875 0125 0000 %0826 c17
003063 000538 -03566 0000 0000 0875 1000 1000 0125 0000 %0827 c18
009155 -00559 002248 1000 1000 0750 0000 0000 0250 0000 %0828 d10
008416 -00213 001343 0875 0875 0750 0125 0125 0250 0000 %0829 d11
007374 000163 000019 0750 0750 0750 0250 0250 0250 0000 %0830 d12
006558 000209 -00728 0625 0625 0750 0375 0375 0250 0000 %0831 d13
005849 000164 -01153 0500 0500 0750 0500 0500 0250 0000 %0832 d14
005018 000435 -01546 0375 0375 0750 0625 0625 0250 0000 %0833 d15
004258 000694 -02063 0250 0250 0750 0750 0750 0250 0000 %0834 d16
003528 000433 -02677 0125 0125 0750 0875 0875 0250 0000 %0835 d17
002762 000556 -03051 0000 0000 0750 1000 1000 0250 0000 %0836 d18
009020 -00820 003590 1000 1000 0625 0000 0000 0375 0000 %0837 e10
008295 -00470 002673 0875 0875 0625 0125 0125 0375 0000 %0838 e11
007303 -00062 001227 0750 0750 0625 0250 0250 0375 0000 %0839 e12
006253 000076 -00081 0625 0625 0625 0375 0375 0375 0000 %0840 e13
005425 000099 -00514 0500 0500 0625 0500 0500 0375 0000 %0841 e14
004724 000340 -00993 0375 0375 0625 0625 0625 0375 0000 %0842 e15
004043 000485 -01514 0250 0250 0625 0750 0750 0375 0000 %0843 e16
003456 000424 -02161 0125 0125 0625 0875 0875 0375 0000 %0844 e17
002557 000428 -02654 0000 0000 0625 1000 1000 0375 0000 %0845 e18
008962 -01009 004695 1000 1000 0500 0000 0000 0500 0000 %0846 f10
008226 -00637 003739 0875 0875 0500 0125 0125 0500 0000 %0847 f11
007237 -00269 002483 0750 0750 0500 0250 0250 0500 0000 %0848 f12
006194 -00192 001160 0625 0625 0500 0375 0375 0500 0000 %0849 f13
005080 000154 -00054 0500 0500 0500 0500 0500 0500 0000 %0850 f14
004492 000417 -00429 0375 0375 0500 0625 0625 0500 0000 %0851 f15
003777 000260 -01019 0250 0250 0500 0750 0750 0500 0000 %0852 f16
003087 000330 -01677 0125 0125 0500 0875 0875 0500 0000 %0853 f17
002365 000319 -02163 0000 0000 0500 1000 1000 0500 0000 %0854 f18
008948 -01260 006026 1000 1000 0375 0000 0000 0625 0000 %0855 g10
008153 -00899 005130 0875 0875 0375 0125 0125 0625 0000 %0856 g11
007178 -00452 003587 0750 0750 0375 0250 0250 0625 0000 %0857 g12
006068 -00469 002294 0625 0625 0375 0375 0375 0625 0000 %0858 g13
005043 -00069 001165 0500 0500 0375 0500 0500 0625 0000 %0859 g14
004162 000347 000009 0375 0375 0375 0625 0625 0625 0000 %0860 g15
003388 000384 -00543 0250 0250 0375 0750 0750 0625 0000 %0861 g16
002826 000169 -01060 0125 0125 0375 0875 0875 0625 0000 %0862 g17
002138 000203 -01486 0000 0000 0375 1000 1000 0625 0000 %0863 g18
008886 -01381 007366 1000 1000 0250 0000 0000 0750 0000 %0864 h10
008089 -01047 006324 0875 0875 0250 0125 0125 0750 0000 %0865 h11
007119 -00703 004685 0750 0750 0250 0250 0250 0750 0000 %0866 h12
006050 -00633 003423 0625 0625 0250 0375 0375 0750 0000 %0867 h13
005058 -00375 002211 0500 0500 0250 0500 0500 0750 0000 %0868 h14
004085 000194 001125 0375 0375 0250 0625 0625 0750 0000 %0869 h15
003246 000262 -00048 0250 0250 0250 0750 0750 0750 0000 %0870 h16
002550 000142 -00486 0125 0125 0250 0875 0875 0750 0000 %0871 h17
001864 000169 -01006 0000 0000 0250 1000 1000 0750 0000 %0872 h18
008938 -01563 008545 1000 1000 0125 0000 0000 0875 0000 %0873 i10
007939 -01267 007479 0875 0875 0125 0125 0125 0875 0000 %0874 i11
006983 -00975 005714 0750 0750 0125 0250 0250 0875 0000 %0875 i12
005924 -00917 004560 0625 0625 0125 0375 0375 0875 0000 %0876 i13
004976 -00637 003376 0500 0500 0125 0500 0500 0875 0000 %0877 i14
003956 000065 001970 0375 0375 0125 0625 0625 0875 0000 %0878 i15
003185 -00049 000968 0250 0250 0125 0750 0750 0875 0000 %0879 i16
002342 000009 000058 0125 0125 0125 0875 0875 0875 0000 %0880 i17
001651 000087 -00457 0000 0000 0125 1000 1000 0875 0000 %0881 i18
009002 -01714 009751 1000 1000 0000 0000 0000 1000 0000 %0882 j10
008067 -01565 008404 0875 0875 0000 0125 0125 1000 0000 %0883 j11
006917 -01246 006932 0750 0750 0000 0250 0250 1000 0000 %0884 j12
005799 -01019 005590 0625 0625 0000 0375 0375 1000 0000 %0885 j13
004981 -00707 004432 0500 0500 0000 0500 0500 1000 0000 %0886 j14
003905 -00370 002976 0375 0375 0000 0625 0625 1000 0000 %0887 j15
003154 -00351 001955 0250 0250 0000 0750 0750 1000 0000 %0888 j16
002448 -00215 000590 0125 0125 0000 0875 0875 1000 0000 %0889 j17
001589 000003 -00006 0000 0000 0000 1000 1000 1000 0000 %0890 j18

009499 -00003 000010 1000 1000 1000 0000 0000 0000 0000 %0891 b19
008785 000965 -00287 1000 0875 1000 0000 0125 0000 0000 %0892 b20
008301 001615 -00440 1000 0750 1000 0000 0250 0000 0000 %0893 b21
007472 002105 -00840 1000 0625 1000 0000 0375 0000 0000 %0894 b22
006945 003474 -00661 1000 0500 1000 0000 0500 0000 0000 %0895 b23
006214 004225 -00208 1000 0375 1000 0000 0625 0000 0000 %0896 b24
006122 004686 -00688 1000 0250 1000 0000 0750 0000 0000 %0897 b25
005396 005661 -00131 1000 0125 1000 0000 0875 0000 0000 %0898 b26
004751 006793 -00244 1000 0000 1000 0000 1000 0000 0000 %0899 b27
008922 -00842 000609 0875 1000 0875 0125 0000 0125 0000 %0900 c19
008569 -00062 000002 0875 0875 0875 0125 0125 0125 0000 %0901 c20
007830 000762 000057 0875 0750 0875 0125 0250 0125 0000 %0902 c21
007260 001857 -00080 0875 0625 0875 0125 0375 0125 0000 %0903 c22
006693 002711 -00142 0875 0500 0875 0125 0500 0125 0000 %0904 c23
006107 003463 -00010 0875 0375 0875 0125 0625 0125 0000 %0905 c24
005555 004217 -00142 0875 0250 0875 0125 0750 0125 0000 %0906 c25
004778 005389 -00191 0875 0125 0875 0125 0875 0125 0000 %0907 c26
004352 006005 -00108 0875 0000 0875 0125 1000 0125 0000 %0908 c27
008582 -01543 001309 0750 1000 0750 0250 0000 0250 0000 %0909 d19
007923 -00544 000506 0750 0875 0750 0250 0125 0250 0000 %0910 d20
007398 000174 000022 0750 0750 0750 0250 0250 0250 0000 %0911 d21
006789 001011 -00118 0750 0625 0750 0250 0375 0250 0000 %0912 d22
006278 001733 -00083 0750 0500 0750 0250 0500 0250 0000 %0913 d23
005664 002538 -00171 0750 0375 0750 0250 0625 0250 0000 %0914 d24
005227 003294 -00278 0750 0250 0750 0250 0750 0250 0000 %0915 d25
004435 004483 -00245 0750 0125 0750 0250 0875 0250 0000 %0916 d26
003852 004971 -00210 0750 0000 0750 0250 1000 0250 0000 %0917 d27
008034 -02280 001925 0625 1000 0625 0375 0000 0375 0000 %0918 e19
007291 -01399 001235 0625 0875 0625 0375 0125 0375 0000 %0919 e20
006762 -00749 000663 0625 0750 0625 0375 0250 0375 0000 %0920 e21
006221 000056 -00051 0625 0625 0625 0375 0375 0375 0000 %0921 e22
005616 000865 -00027 0625 0500 0625 0375 0500 0375 0000 %0922 e23
005091 001809 -00065 0625 0375 0625 0375 0625 0375 0000 %0923 e24
004505 002833 -00124 0625 0250 0625 0375 0750 0375 0000 %0924 e25
003939 003548 -00146 0625 0125 0625 0375 0875 0375 0000 %0925 e26
003537 004245 000029 0625 0000 0625 0375 1000 0375 0000 %0926 e27
007344 -02827 002317 0500 1000 0500 0500 0000 0500 0000 %0927 f19
006755 -02176 001758 0500 0875 0500 0500 0125 0500 0000 %0928 f20
006300 -01397 001179 0500 0750 0500 0500 0250 0500 0000 %0929 f21
005615 -00634 000585 0500 0625 0500 0500 0375 0500 0000 %0930 f22
005062 000129 -00004 0500 0500 0500 0500 0500 0500 0000 %0931 f23
004507 001112 000020 0500 0375 0500 0500 0625 0500 0000 %0932 f24
003972 001962 -00158 0500 0250 0500 0500 0750 0500 0000 %0933 f25
003436 002871 -00230 0500 0125 0500 0500 0875 0500 0000 %0934 f26
003128 003247 000065 0500 0000 0500 0500 1000 0500 0000 %0935 f27
006846 -03646 003027 0375 1000 0375 0625 0000 0625 0000 %0936 g19
006243 -02889 002347 0375 0875 0375 0625 0125 0625 0000 %0937 g20
005640 -02030 001578 0375 0750 0375 0625 0250 0625 0000 %0938 g21
005106 -01288 001005 0375 0625 0375 0625 0375 0625 0000 %0939 g22
004659 -00460 000445 0375 0500 0375 0625 0500 0625 0000 %0940 g23
004131 000305 000028 0375 0375 0375 0625 0625 0625 0000 %0941 g24
003611 001085 -00113 0375 0250 0375 0625 0750 0625 0000 %0942 g25
003059 002016 -00175 0375 0125 0375 0625 0875 0625 0000 %0943 g26
002789 002281 -00297 0375 0000 0375 0625 1000 0625 0000 %0944 g27
006257 -04368 003099 0250 1000 0250 0750 0000 0750 0000 %0945 h19
005737 -03509 002464 0250 0875 0250 0750 0125 0750 0000 %0946 h20
005279 -02661 002056 0250 0750 0250 0750 0250 0750 0000 %0947 h21
004662 -01857 001453 0250 0625 0250 0750 0375 0750 0000 %0948 h22
004210 -01245 000981 0250 0500 0250 0750 0500 0750 0000 %0949 h23
003740 -00524 000419 0250 0375 0250 0750 0625 0750 0000 %0950 h24
003245 000192 -00114 0250 0250 0250 0750 0750 0750 0000 %0951 h25
002759 000916 -00150 0250 0125 0250 0750 0875 0750 0000 %0952 h26
002271 001488 -00036 0250 0000 0250 0750 1000 0750 0000 %0953 h27
005653 -05075 003546 0125 1000 0125 0875 0000 0875 0000 %0954 i19
005161 -04444 003024 0125 0875 0125 0875 0125 0875 0000 %0955 i20
004705 -03677 002478 0125 0750 0125 0875 0250 0875 0000 %0956 i21
004217 -02995 002103 0125 0625 0125 0875 0375 0875 0000 %0957 i22
003769 -02197 001489 0125 0500 0125 0875 0500 0875 0000 %0958 i23
003185 -01232 000875 0125 0375 0125 0875 0625 0875 0000 %0959 i24
002811 -00611 000471 0125 0250 0125 0875 0750 0875 0000 %0960 i25
002376 000009 000051 0125 0125 0125 0875 0875 0875 0000 %0961 i26
001884 000690 000038 0125 0000 0125 0875 1000 0875 0000 %0962 i27
005104 -05867 003918 0000 1000 0000 1000 0000 1000 0000 %0963 j19
004574 -05124 003248 0000 0875 0000 1000 0125 1000 0000 %0964 j20
004089 -04369 002791 0000 0750 0000 1000 0250 1000 0000 %0965 j21
003652 -03535 002320 0000 0625 0000 1000 0375 1000 0000 %0966 j22
003227 -02778 001860 0000 0500 0000 1000 0500 1000 0000 %0967 j23
002803 -01902 001369 0000 0375 0000 1000 0625 1000 0000 %0968 j24
002394 -01176 000696 0000 0250 0000 1000 0750 1000 0000 %0969 j25
001864 -00408 000261 0000 0125 0000 1000 0875 1000 0000 %0970 j26
001660 -00007 000005 0000 0000 0000 1000 1000 1000 0000 %0971 j27
] def

% XE93-7: Measurement data: LAB_D65_%Z45F_R243.DAT, 243 colours, 20080301, olv*, adapted

/LAB*Fa1100 [
%Z45F_R243.DAT, 243 colours, 20080301, olv*
%100 x LAB*a         1000 x (r g b  c m y 0)            %nr.  pos
004612 005866 004699 1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0
009002 -01714 009751 1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1
005104 -05867 003918 0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2
005399 -02894 -03467 0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3
003280 000799 -04167 0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4
004751 006793 -00244 1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5
001653 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6
009503 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7
] def %Z45F_R243.DAT, 243 colours, 20080301, olv*, adapted
/FileData1Na (R_LRS16_Z45F_3) def

/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

/LAB*ioLmod {%BEG Procedure LAB*ioLmod

%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* 84 array def %12x3=36 including N,W + 16x3=48 elementary system
/LAB*a 84 array def


0 1 11 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        sISO 7 le { %sISO=0,7
        LAB* i30 LAB*02 i30 get put
        LAB* i31 LAB*02 i31 get put
        LAB* i32 LAB*02 i32 get put
       } %sISO=0,7
       {%sISO=8,11
        %Definition 8 to 11
        /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
        
%        %Definition 12 to 24 (36 to 72)
%        /jISO0 sISO 8 sub def
%        sISO 11 eq {/jISO1 0 def}
%                   {/jISO1 jISO0 1 add def} ifelse
%        0 1 3 {/ij exch def
%               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
%               LAB* 36 jISO0 12 mul add ij 3 mul add
%               RJGBLAB* jISO0 3 mul get       a0 mul
%               RJGBLAB* jISO1 3 mul get       b0 mul add put
%               LAB* 37 jISO0 12 mul add ij 3 mul add
%               RJGBLAB* jISO0 3 mul 1 add get      a0 mul
%               RJGBLAB* jISO1 3 mul 1 add get      b0 mul add put
%               LAB* 38 jISO0 12 mul add ij 3 mul add
%               RJGBLAB* jISO0 3 mul 2 add get      a0 mul
%               RJGBLAB* jISO1 3 mul 2 add get      b0 mul add put
%              } for

       } ifelse %sISO=0,7 and 8,11

       } for

/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

/A*Dio A*Wio A*Nio sub def
/B*Dio B*Wio B*Nio sub def
icolor 0 eq {/cf1 1 def}{/cf1 0.90 def} ifelse
0 1 11 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        /l*CIE LAB* i30 get L*Nio sub L*Wio L*Nio sub div def %system rel. lightn.
        /a*s A*Wio A*Nio sub l*CIE mul def
        /b*s B*Wio B*Nio sub l*CIE mul def
        /L*Z L*Nio L*Wio L*Nio sub 0.5 mul add def
        LAB*a i30 LAB* i30 get L*Z sub cf1 mul L*Z add put
        LAB*a i31 LAB* i31 get A*Nio sub a*s sub cf1 mul put
        LAB*a i32 LAB* i32 get B*Nio sub b*s sub cf1 mul put
       } for
/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

} def %END Procedure LAB*ioLmod

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

/proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL {
%BEG procedure proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL
%only for calculation without hue tables

%input  LAB*Fa
%input  LAB*a (6 adapted colours OYLCVM)
%input  nLAB*s0 (colour white N for calculation of lab*l)
%input  wLAB*s0 (colour white W for achromatic axis)

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

/UXF1a wLAB*s0 1 get B*Fa mul wLAB*s0 2 get A*Fa mul sub def
/UXF2a wLAB*s0 2 get L*Fa mul wLAB*s0 0 get B*Fa mul sub def
/UXF3a wLAB*s0 0 get A*Fa mul wLAB*s0 1 get L*Fa 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

/ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def
ia 0 eq {/c3*Ma   0 def %L, c*=0, sector O->Y
         /m3*Ma iam def %L, m*=1->0
         /y3*Ma   1 def %L, y*=1
        } if
ia 1 eq {/c3*Ma iap def %L, c*=0->1, sector Y->L
         /m3*Ma   0 def %L, m*=0
         /y3*Ma   1 def %L, y*=1
        } if
ia 2 eq {/c3*Ma   1 def %L, c*=1, sector L->C
         /m3*Ma   0 def %L, m*=0
         /y3*Ma iam def %L, y*=1->0
        } if
ia 3 eq {/c3*Ma   1 def %L, c*=1, sector C->V
         /m3*Ma iap def %L, m*=1->0
         /y3*Ma   0 def %L, y*=0
        } if
ia 4 eq {/c3*Ma iam def %L, c*=1->0, sector V->M
         /m3*Ma   1 def %L, m*=1
         /y3*Ma   0 def %L, y*=0
        } if
ia 5 eq {/c3*Ma   0 def %L, c*=0, sector M->O
         /m3*Ma   1 def %L, m*=1
         /y3*Ma iap def %L, y*=0->1
        } if

/o3*Ma 1 c3*Ma sub def
/l3*Ma 1 m3*Ma sub def
/v3*Ma 1 y3*Ma sub def
/i3*Ma 1 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_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL

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

/proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL {
%BEG procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL
%only for calculation without hue tables

%input  LAB*Fae
%input  LAB*a (4 adapted colours RJGB, No. 8 to 11)
%input  nLAB*s0 (colour white N for calculation of lab*l)
%input  wLAB*s0 (colour white W for achromatic axis)

%output LAB*Mae
%output olvi3*Mae
%output cmyn3*Mae

/UXF1a wLAB*s0 1 get B*Fae mul wLAB*s0 2 get A*Fae mul sub def
/UXF2a wLAB*s0 2 get L*Fae mul wLAB*s0 0 get B*Fae mul sub def
/UXF3a wLAB*s0 0 get A*Fae mul wLAB*s0 1 get L*Fae 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*Mae ALPH L*11a mul 1 ALPH sub L*21a mul add def
/A*Mae ALPH A*11a mul 1 ALPH sub A*21a mul add def
/B*Mae ALPH B*11a mul 1 ALPH sub B*21a mul add def
/C*Mae A*Mae dup mul B*Mae dup mul add 0.000001 add sqrt def
/H*Mae B*Mae A*Mae 0.0001 add atan def

/ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def
ia 0 eq {/c3*Mae   0 def %L, c*=0, sector O->Y
         /m3*Mae iam def %L, m*=1->0
         /y3*Mae   1 def %L, y*=1
        } if
ia 1 eq {/c3*Mae iap def %L, c*=0->1, sector Y->L
         /m3*Mae   0 def %L, m*=0
         /y3*Mae   1 def %L, y*=1
        } if
ia 2 eq {/c3*Mae   1 def %L, c*=1, sector L->C
         /m3*Mae   0 def %L, m*=0
         /y3*Mae iam def %L, y*=1->0
        } if
ia 3 eq {/c3*Mae   1 def %L, c*=1, sector C->V
         /m3*Mae iap def %L, m*=1->0
         /y3*Mae   0 def %L, y*=0
        } if
ia 4 eq {/c3*Mae iam def %L, c*=1->0, sector V->M
         /m3*Mae   1 def %L, m*=1
         /y3*Mae   0 def %L, y*=0
        } if
ia 5 eq {/c3*Mae   0 def %L, c*=0, sector M->O
         /m3*Mae   1 def %L, m*=1
         /y3*Mae iap def %L, y*=0->1
        } if

/o3*Mae 1 c3*Mae sub def
/l3*Mae 1 m3*Mae sub def
/v3*Mae 1 y3*Mae sub def
/i3*Mae 1 def

/lab*nMae 0.00 def
/lab*cMae 1.00 def
/lab*wMae 0.00 def
/lab*tMae 0.50 def
/lab*hMae H*Mae 360 div def
/lab*lMae L*Mae nLAB*s0 0 get sub
          wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def

} bind def
%END procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL

/ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBK} bind def
/ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBK} bind def
/ishown  {TS  -50 -50 rmoveto show 0 50 rmoveto TK } bind def
/ishow0  {TS  -00 -50 rmoveto show 0 50 rmoveto TK } bind def

/ibshownL {TBL -50 -50 rmoveto show 0 50 rmoveto TBS} bind def
/ibshow0L {TBL -00 -50 rmoveto show 0 50 rmoveto TBS} bind def
/ishownL  {TL  -50 -50 rmoveto show 0 50 rmoveto TS } bind def
/ishow0L  {TL  -00 -50 rmoveto show 0 50 rmoveto TS } bind def

%%EndProlog
gsave

%LANINDL2 START  20090901
/lanind 0 def
/lantex [(G) (E) (S) (F) (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
/showea {1 lanind le {show} {pop} ifelse} bind def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 5 def /lanind2 5 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def
                    /xcolorm xcolor2f xcolor1f sub 1 add def}
               {/xcolor1 0 def /xcolorm 1 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
%xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output

%STOP1

/cvi100show {100 mul cvi /xi exch def
             xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse
             /xia xi abs def
             vorz -1 eq {(\255) show} {(0) show} ifelse
             xia    0 ge xia    9 le     {(000) show} if
             xia   10 ge xia   99 le and {(00) show} if
             xia  100 ge xia  999 le and {(0) show} if
%             xia 1000 ge xia 9999 le and {() show} if
             xia cvishow ( ) show
            } bind def

/LUTL* 247 array def %243+4=247
/LUTA* 247 array def
/LUTB* 247 array def

/LUTr* 247 array def
/LUTg* 247 array def
/LUTb* 247 array def
/C*ab  247 array def
/L*    247 array def

/LUTl*  247 array def %243+4=247
/LUTc1* 247 array def
/LUTc2* 247 array def
/LUTt1* 247 array def
/LUTt2* 247 array def
/LUTc*rgb 247 array def
/LUTt*rgb 247 array def

/l1* 247 array def %243+4=247
/l2* 247 array def %l* not possible allread used olv*
/c1* 247 array def
/c2* 247 array def
/t1* 247 array def
/t2* 247 array def
/c1*rgb 247 array def
/c2*rgb 247 array def
/t1*rgb 247 array def
/t2*rgb 247 array def

/ColNames [(O) (Y) (L) (C) (V) (M) (N) (W)
           (R) (J) (G) (B)
           (R) (R25J) (R50J) (R75J)
           (J) (J25G) (J50G) (J75G)
           (G) (G25B) (G50B) (G75B)
           (B) (B25R) (B50R) (B75R) (R)
          ] def

/o3Ma [1 1 0 0 0 1 0 1
       1 1 0 0
       1 1.00 1.00 1.00
       1 0.75 0.50 0.25
       0 0.00 0.00 0.00
       0 0.50 1.00 1.00 1] def
/l3Ma [0 1 1 1 0 0 0 1
       0 1 1 0
       0 0.25 0.50 0.75
       1 1.00 1.00 1.00
       1 1.00 1.00 0.50
       0 0.00 0.00 0.00 0] def
/v3Ma [0 0 0 1 1 1 0 1
       0 0 0 1
       0 0.00 0.00 0.00
       0 0.00 0.00 0.00
       0 0.50 1.00 1.00
       1 1.00 1.00 0.50 0] def
          
/yd 340 def %y-Zeilenabstand
%Spalten
/S1 20 def
/S2 450 def
/S3 1550 def
/S4 2650 def
/S5 3750 def
/S6 4650 def
/S7 5350 def
/S8 6400 def
/S9 7200 def
/S10 8000 def
/S11 8800 def
/S12 9600 def

/yu1 4650 def
/yu2 3800 4000 add def

/nshow {300 /Times-ISOL1 FS  show} bind def
/kshow {300 /TimesI-ISOL1 FS  show} bind def
/bshow {300 /TimesB-ISOL1 FS  show} bind def
/jshow {300 /TimesBI-ISOL1 FS  show} bind def
/sshow {300 /Symbol FS  show} bind def
/ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def
/eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def

72 90 translate

0.01 MM dup scale

/L*olv 8 array def
/A*olv 8 array def
/B*olv 8 array def
/C*olv 8 array def
/H*olv 8 array def
/N*olv 8 array def
/o*olv 8 array def
/l*olv 8 array def
/v*olv 8 array def

/L*rgb 8 array def
/A*rgb 8 array def
/B*rgb 8 array def
/C*rgb 8 array def
/H*rgb 8 array def
/N*rgb 8 array def
/o*rgb 8 array def
/l*rgb 8 array def
/v*rgb 8 array def

/angle_olv    7 array def
/angle_olvG01 7 array def
/angle_olvG11 7 array def
/angle_rgb    7 array def
/angle_olv [38 96 151 236 305 354 398] def %standard offset
/angle_rgb [26 92 162 217 272 329 386] def %CIE-test colors

/angle_olvi    28 array def %shift by 00,25,50,75%
/angle_olvG01i 28 array def %shift by 00,25,50,75%
/angle_olvG11i 28 array def %shift by 00,25,50,75%
/angle_rgbi    28 array def %shift by 00,25,50,75%

0 1 23 {/i exch def
        LAB*Fa0100 i LAB*Fa0100 i get 100 div put
        LAB*Fa1100 i LAB*Fa1100 i get 100 div put
       } for


/LAB*FaG0100 24 array def
/LAB*FaG1100 24 array def
/LAB*FaG0000 24 array def

0 1 23 {/i exch def
        LAB*FaG0100 i LAB*Fa0100 i get put
        LAB*FaG1100 i LAB*Fa1100 i get put
       } for

%00 1 1 {/xcolor exch def %xcolor=0,1

gsave
/icolor xcolor xcolor 2 idiv 2 mul sub def %icolor=0 or 1
            
%0 1 9719 {/i exch def %i=0,09719 %972*10-1=9719
0 1 2429 {/i exch def %i=0,2429
           LUT i
           xcolor 0 eq {LUT_LAB0 i get} if
           xcolor 1 eq {LUT_LAB1 i get} if
           xcolor 2 eq {LUT_LAB2 i get} if
           xcolor 3 eq {LUT_LAB3 i get} if
           xcolor 4 eq {LUT_LAB4 i get} if
           xcolor 5 eq {LUT_LAB5 i get} if
           xcolor 6 eq {LUT_LAB6 i get} if
           xcolor 7 eq {LUT_LAB7 i get} if
           put
          } for %i=0,09719

0 1 23 {/i exch def
        LAB*Fa0000 i
        icolor 0 eq {LAB*Fa0100 i get}
                    {LAB*Fa1100 i get} ifelse
        put
       } for

0 1 23 {/i exch def
        LAB*FaG0000 i
        icolor 0 eq {LAB*FaG0100 i get}
                    {LAB*FaG1100 i get} ifelse
        put
       } for

0 1 05 {/i exch def %i=0,5
        /A*Fa LAB*FaG0100 i 3 mul 1 add get def
        /B*Fa LAB*FaG0100 i 3 mul 2 add get def
        /H*Fa B*Fa A*Fa 0.0001 add atan def
        angle_olvG01 i H*Fa put
        i 0 eq {angle_olvG01 6 H*Fa 360 add put} if
        
        /A*Fa LAB*FaG1100 i 3 mul 1 add get def
        /B*Fa LAB*FaG1100 i 3 mul 2 add get def
        /H*Fa B*Fa A*Fa 0.0001 add atan def
        angle_olvG11 i H*Fa put
        i 0 eq {angle_olvG11 6 H*Fa 360 add put} if
       } for %i=0,5

0 1 5 {/i exch def /i1 i 1 add def %i=0,5       
       /angle_olvG01_dif angle_olvG01 i1 get angle_olvG01 i get sub def
       angle_olvG01i i angle_olvG01 i get put
       angle_olvG01i i 07 add angle_olvG01 i get angle_olvG01_dif 0.25 mul add put
       angle_olvG01i i 14 add angle_olvG01 i get angle_olvG01_dif 0.50 mul add put
       angle_olvG01i i 21 add angle_olvG01 i get angle_olvG01_dif 0.75 mul add put
       
       /angle_olvG11_dif angle_olvG11 i1 get angle_olvG11 i get sub def
       angle_olvG11i i angle_olvG11 i get put
       angle_olvG11i i 07 add angle_olvG11 i get angle_olvG11_dif 0.25 mul add put
       angle_olvG11i i 14 add angle_olvG11 i get angle_olvG11_dif 0.50 mul add put
       angle_olvG11i i 21 add angle_olvG11 i get angle_olvG11_dif 0.75 mul add put
      } for %i=0,5

/LAB*02 24 array def
%/j0 0 def
/j0 729 def
729 1 971 {/jj exch def %jj=729,971
           /j jj j0 sub def
           %necessary in both cases
         jj 963 eq {%RGB*02 02 RGBCMY0*tx j get put %963 0-8-0 L 2
                   LAB*02 06 LUT j 10 mul 0 add get put
                   LAB*02 07 LUT j 10 mul 1 add get put
                   LAB*02 08 LUT j 10 mul 2 add get put} if
         jj 737 eq {%RGB*02 03 RGBCMY0*tx j get put %737 0-8-8 C 3
                   LAB*02 09 LUT j 10 mul 0 add get put
                   LAB*02 10 LUT j 10 mul 1 add get put
                   LAB*02 11 LUT j 10 mul 2 add get put} if
         jj 818 eq {%RGB*02 04 RGBCMY0*tx j get put %818 0-0-8 V 4
                   LAB*02 12 LUT j 10 mul 0 add get put
                   LAB*02 13 LUT j 10 mul 1 add get put
                   LAB*02 14 LUT j 10 mul 2 add get put} if
         jj 809 eq {%RGB*02 06 RGBCMY0*tx j get put %809 or 890 or 971 0-0-0 N 6
                   LAB*02 18 LUT j          10 mul 0 add get
                             LUT 890 j0 sub 10 mul 0 add get add
                             LUT 971 j0 sub 10 mul 0 add get add 3 div put
                   LAB*02 19 LUT j          10 mul 1 add get
                             LUT 890 j0 sub 10 mul 1 add get add
                             LUT 971 j0 sub 10 mul 1 add get add 3 div put
                   LAB*02 20 LUT j          10 mul 2 add get
                             LUT 890 j0 sub 10 mul 2 add get add
                             LUT 971 j0 sub 10 mul 2 add get add 3 div put} if
         jj 801 eq {%RGB*02 00 RGBCMY0*tx j get put %801 8-0-0 O 0
                   LAB*02 00 LUT j 10 mul 0 add get put
                   LAB*02 01 LUT j 10 mul 1 add get put
                   LAB*02 02 LUT j 10 mul 2 add get put} if
         jj 882 eq {%RGB*02 01 RGBCMY0*tx j get put %882 8-8-0 Y 1
                   LAB*02 03 LUT j 10 mul 0 add get put
                   LAB*02 04 LUT j 10 mul 1 add get put
                   LAB*02 05 LUT j 10 mul 2 add get put} if
         jj 899 eq {%RGB*02 05 RGBCMY0*tx j get put %899 8-0-8 M 5
                   LAB*02 15 LUT j 10 mul 0 add get put
                   LAB*02 16 LUT j 10 mul 1 add get put
                   LAB*02 17 LUT j 10 mul 2 add get put} if
         jj 729 eq {%RGB*02 07 RGBCMY0*tx j get put %729 or 810 or 891 8-8-8 W 7
                   LAB*02 21 LUT j          10 mul 0 add get
                             LUT 810 j0 sub 10 mul 0 add get add
                             LUT 891 j0 sub 10 mul 0 add get add 3 div put
                   LAB*02 22 LUT j          10 mul 1 add get
                             LUT 810 j0 sub 10 mul 1 add get add
                             LUT 891 j0 sub 10 mul 1 add get add 3 div put
                   LAB*02 23 LUT j          10 mul 2 add get
                             LUT 810 j0 sub 10 mul 2 add get add
                             LUT 891 j0 sub 10 mul 2 add get add 3 div put} if
        } for %jj=729,971


0 1 23 {/j exch def %j=0,23
        LAB*02 j LAB*02 j get 100 div put
       } for %j=0,23

/ISRL*ioL 0 def %standard colours
/ISIO*ioL 2 def %special for LAB*02 TLS70


LAB*ioLmod

0 1 1 {/ibild exch def %ibild=0,1

ibild 0 eq {%BEG ibild=0
0 1 05 {/ic exch def %ic=0,11
        S1 20 add yu2 yd ic mul sub moveto
        ( ) nshow
        N*olv ic ColNames ic get put
       } for %ic=0,11
0 1 05 {/i exch def %i=0,11
       /ya yu2 yd i mul sub def
       /L*Fa LAB*a i 3 mul get def
       /A*Fa LAB*a i 3 mul 1 add get def
       /B*Fa LAB*a i 3 mul 2 add get def
       /C*Fa A*Fa dup mul B*Fa dup mul add sqrt def
       /H*Fa B*Fa A*Fa 0.0001 add atan def
       L*olv i L*Fa put
       A*olv i A*Fa put
       B*olv i B*Fa put
       C*olv i C*Fa put
       H*olv i H*Fa put
       o*olv i o3Ma i get put
       l*olv i l3Ma i get put
       v*olv i v3Ma i get put
       i 5 eq {L*olv 6 L*olv 0 get put
               A*olv 6 A*olv 0 get put
               B*olv 6 B*olv 0 get put
               A*olv 6 A*olv 0 get put
               C*olv 6 C*olv 0 get put
               H*olv 6 H*olv 0 get put
               o*olv 6 o*olv 0 get put
               l*olv 6 l*olv 0 get put
               v*olv 6 v*olv 0 get put
              } if
       
       } for %i=0,11
        }%END ibild=0
        {%BEG ibild=1
12 2 27 {/ic exch def %ic=12,27
         N*rgb ic 12 sub 2 idiv ColNames ic get put
        } for %ic=12,27

%calculation of intermediate elementary colours
%/proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL {
%BEG procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL
%only for calculation without hue tables

%input  LAB*Fae
%input  LAB*a (4 adapted colours RJGB, No. 8 to 11)
%input  nLAB*s0 (colour white N for calculation of lab*l)
%input  wLAB*s0 (colour white W for achromatic axis)

%output LAB*Mae
%output olvi3*Mae
%output cmyn3*Mae

0 1 3 {/j exch def %j=0,3
       /L*Fae0 LAB*a j 8 add 3 mul 0 add get def
       /A*Fae0 LAB*a j 8 add 3 mul 1 add get def
       /B*Fae0 LAB*a j 8 add 3 mul 2 add get def
       /H*Fae0 B*Fae0 A*Fae0 0.0001 add atan def
       j 2 le {/L*Fae1 LAB*a j 1 add 8 add 3 mul 0 add get def
               /A*Fae1 LAB*a j 1 add 8 add 3 mul 1 add get def
               /B*Fae1 LAB*a j 1 add 8 add 3 mul 2 add get def
               /H*Fae1 B*Fae1 A*Fae1 0.0001 add atan def
              }
              {/L*Fae1 LAB*a 0       8 add 3 mul 0 add get def
               /A*Fae1 LAB*a 0       8 add 3 mul 1 add get def
               /B*Fae1 LAB*a 0       8 add 3 mul 2 add get def
               /H*Fae1 B*Fae1 A*Fae1 0.0001 add atan 360 add def
              } ifelse
0 1 1 {/i exch def %i=0,3
       /n j 2 mul i add def
       /ya yu2 yd n mul sub 8000 add def
       /alph i 2 div def /beta 1 alph sub def
       /L*Fae L*Fae0 beta mul L*Fae1 alph mul add def
       /H*Fae H*Fae0 beta mul H*Fae1 alph mul add def
       /A*Fae 100 H*Fae cos mul def
       /B*Fae 100 H*Fae sin mul def
       
       proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL
       
         n 0 ge {/ineu n       def} if
         n 2 ge {/ineu n 1 sub def} if
         n 4 ge {/ineu n 2 sub def} if
         L*rgb ineu L*Mae put
         A*rgb ineu A*Mae put
         B*rgb ineu B*Mae put
         C*rgb ineu C*Mae put
         H*rgb ineu H*Mae put
         n 7 eq {/ineu 6 def %ineu=6
         L*rgb ineu L*rgb 0 get put
         A*rgb ineu A*rgb 0 get put
         B*rgb ineu B*rgb 0 get put
         C*rgb ineu C*rgb 0 get put
         H*rgb ineu H*rgb 0 get put
                 } if %ineu=6

      } for %i=0,1 
      
      } for %j=0,3 
        
        } ifelse %END ibild=1

} for %ibild=0,1

%00 1 15 {/xchart exch def %xchart=0,15

/xchartl xchart def

gsave

200 /Times-ISOL1 FS
0 setgray
100 -200 moveto (SN460-7N: ) show
(Messung: ) showde
(Measurement: ) showea
xcolor 0 eq { FileData0Na show} if
xcolor 1 eq { FileData1Na show} if
xcolor 2 eq { FileData2Na show} if
xcolor 3 eq { FileData3Na show} if
xcolor 4 eq { FileData4Na show} if
xcolor 5 eq { FileData5Na show} if
xcolor 6 eq { FileData6Na show} if
xcolor 7 eq { FileData7Na show} if
lanind 0 eq {FileDatade show} {FileDataen show} ifelse
(, Seite ) showde                                               %0SN46X-Y 2200#
(, page ) showen                                                %1SN46X-Y 2200#
(, p\341gina ) showes                                           %2SN46X-Y 2200#
(, page ) showfr                                                %3SN46X-Y 2200#
(, pagina ) showit                                              %4SN46X-Y 2200#
(, page ) showjp                                                %5SN46X-Y 2200#
xcolor 1 add cvishow (/) show
2 cvishow

20 setlinewidth
0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey

0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz

0 1 15 {/xchartl   exch def %xchartl=0,11

%special space for 'xm03'PROZ0.COM 2x before/after xchartl
  xchartl   0 eq {  100 13000 translate} if
  xchartl   1 eq { 6100 13000 translate} if
  xchartl   2 eq {  100 08750 translate} if
  xchartl   3 eq { 6100 08750 translate} if

  xchartl   4 eq {  100  4500 translate} if
  xchartl   5 eq { 6100  4500 translate} if
  xchartl   6 eq {  100  0250 translate} if
  xchartl   7 eq { 6100  0250 translate} if

  xchartl   8 eq {13500 13000 translate} if
  xchartl   9 eq {19500 13000 translate} if
  xchartl   10 eq {13500 08750 translate} if
  xchartl   11 eq {19500 08750 translate} if

  xchartl   12 eq {13500  4500 translate} if
  xchartl   13 eq {19500  4500 translate} if
  xchartl   14 eq {13500  0250 translate} if
  xchartl   15 eq {19500  0250 translate} if


/xwidth 5400 def
/ywidth 4000 def

0 0 xwidth ywidth 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau

20 setlinewidth

0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz

150 /Times-ISOL1 FS
0 setgray /Param (; cf1=0.90; nt=0.18; nx=1.0) def
300 -150 moveto 
xchartl 5 le {(SN460-) show} 
             {(SN461-) show} ifelse
xchartl 0 ge xchartl   7 le and {xchartl 1 add cvishow} if
xchartl 8 ge xchartl  15 le and {xchartl 7 sub cvishow} if
(N) show %N
(, ) show xcolor 1 add cvishow Param show

2600 0300 translate


gsave
0.8 0.8 scale

1 setgray
-3200   4175   moveto
TBS (System: ) show
xcolor 0 eq {FileData0Na show} if
xcolor 1 eq {FileData1Na show} if
xcolor 2 eq {FileData2Na show} if
xcolor 3 eq {FileData3Na show} if
xcolor 4 eq {FileData4Na show} if
xcolor 5 eq {FileData5Na show} if
xcolor 6 eq {FileData6Na show} if
xcolor 7 eq {FileData7Na show} if

/x800 800 def
/X850 850 def

0 1 5 {/i exch def /i1 i 1 add def %i=0,5
       /angle_olv_dif angle_olv i1 get angle_olv i get sub def
       angle_olvi i angle_olv i get put
       angle_olvi i 07 add angle_olv i get angle_olv_dif 0.25 mul add put
       angle_olvi i 14 add angle_olv i get angle_olv_dif 0.50 mul add put
       angle_olvi i 21 add angle_olv i get angle_olv_dif 0.75 mul add put

       /angle_rgb_dif angle_rgb i1 get angle_rgb i get sub def
       angle_rgbi i angle_rgb i get put
       angle_rgbi i 07 add angle_rgb i get angle_rgb_dif 0.25 mul add put
       angle_rgbi i 14 add angle_rgb i get angle_rgb_dif 0.50 mul add put
       angle_rgbi i 21 add angle_rgb i get angle_rgb_dif 0.75 mul add put
      } for %i=0,5

/angle6   7 array def
/angle6i 28 array def

/cfarb_olv_o 7 array def
/cfarb_olv_l 7 array def
/cfarb_olv_v 7 array def

/cfarb_rgb_r 7 array def
/cfarb_rgb_g 7 array def
/cfarb_rgb_b 7 array def

/cfarb_olv00_o 7 array def
/cfarb_olv00_l 7 array def
/cfarb_olv00_v 7 array def
/cfarb_olv25_o 7 array def
/cfarb_olv25_l 7 array def
/cfarb_olv25_v 7 array def
/cfarb_olv50_o 7 array def
/cfarb_olv50_l 7 array def
/cfarb_olv50_v 7 array def
/cfarb_olv75_o 7 array def
/cfarb_olv75_l 7 array def
/cfarb_olv75_v 7 array def

/cfarb_rgb00_r 7 array def
/cfarb_rgb00_g 7 array def
/cfarb_rgb00_b 7 array def
/cfarb_rgb25_r 7 array def
/cfarb_rgb25_g 7 array def
/cfarb_rgb25_b 7 array def
/cfarb_rgb50_r 7 array def
/cfarb_rgb50_g 7 array def
/cfarb_rgb50_b 7 array def
/cfarb_rgb75_r 7 array def
/cfarb_rgb75_g 7 array def
/cfarb_rgb75_b 7 array def

/cname_olv [(R) (Y) (G) (C) (B) (M) (R)] def
/cfarb_olv_o [1 1 0 0 0 1 1] def
/cfarb_olv_l [0 1 1 1 0 0 0] def
/cfarb_olv_v [0 0 0 1 1 1 0] def
/cname_rgb [(R) (Y) (G) (C) (B) (M) (R)] def
/cfarb_rgb_r [1 1 0 0 0 1 1] def
/cfarb_rgb_g [0 1 1 1 0 0 0] def
/cfarb_rgb_g [0 0 0 1 1 1 0] def

/cname_olv00 [(R00Y) (Y00G) (G00C) (C00B) (B00M) (M00R) (R00Y)] def
/cfarb_olv00_o [1 1 0 0 0 1 1] def
/cfarb_olv00_l [0 1 1 1 0 0 0] def
/cfarb_olv00_v [0 0 0 1 1 1 0] def
/cname_olv25 [(R25Y) (Y25G) (G25C) (C25B) (B25M) (M25R) (R25Y)] def
/cfarb_olv25_o [1.00 0.75 0.00 0.00 0.25 1.00 1.00] def
/cfarb_olv25_l [0.25 1.00 1.00 0.75 0.00 0.00 0.25] def
/cfarb_olv25_v [0.00 0.00 0.25 1.00 1.00 0.75 0.00] def
/cname_olv50 [(R50Y) (Y50G) (G50C) (C50B) (B50M) (M50R) (R50Y)] def
/cfarb_olv50_o [1.00 0.50 0.00 0.00 0.50 1.00 1.00] def
/cfarb_olv50_l [0.50 1.00 1.00 0.50 0.00 0.00 0.50] def
/cfarb_olv50_v [0.00 0.00 0.50 1.00 1.00 0.50 0.00] def
/cname_olv75 [(R75Y) (Y75G) (G75C) (C75B) (B75M) (M75R) (R75Y)] def
/cfarb_olv75_o [1.00 0.25 0.00 0.00 0.75 1.00 1.00] def
/cfarb_olv75_l [0.75 1.00 1.00 0.25 0.00 0.00 0.75] def
/cfarb_olv75_v [0.00 0.00 0.75 1.00 1.00 0.25 0.00] def

/cname_rgb00 [(R00Y) (Y00G) (G00B) (G50B) (B00R) (B50R) (R00Y)] def
/cfarb_rgb00_r [1 1 0 0 0 1 1] def
/cfarb_rgb00_g [0 1 1 1 0 0 0] def
/cfarb_rgb00_b [0 0 0 1 1 1 0] def
/cname_rgb25 [(R25Y) (Y25G) (G13B) (G62B) (B12R) (B63R) (R25Y)] def
/cfarb_rgb25_r [1.00 0.75 0.00 0.00 0.25 1.00 1.00] def
/cfarb_rgb25_g [0.25 1.00 1.00 0.75 0.00 0.00 0.25] def
/cfarb_rgb25_b [0.00 0.00 0.25 1.00 1.00 0.75 0.00] def
/cname_rgb50 [(R50Y) (Y50G) (G25B) (G75B) (B25R) (B75R) (R50Y)] def
/cfarb_rgb50_r [1.00 0.50 0.00 0.00 0.50 1.00 1.00] def
/cfarb_rgb50_g [0.50 1.00 1.00 0.50 0.00 0.00 0.50] def
/cfarb_rgb50_b [0.00 0.00 0.50 1.00 1.00 0.50 0.00] def
/cname_rgb75 [(R75Y) (Y75G) (G38B) (G88B) (B38R) (B88R) (R75Y)] def
/cfarb_rgb75_r [1.00 0.25 0.00 0.00 0.75 1.00 1.00] def
/cfarb_rgb75_g [0.75 1.00 1.00 0.25 0.00 0.00 0.75] def
/cfarb_rgb75_b [0.00 0.00 0.75 1.00 1.00 0.25 0.00] def

/cname6 7 array def

/olvrgb 0 def

0 1 6 {/i exch def
       cname6 i
                    xcolor 0 eq xcolor 1 eq or {cname_rgb00 i get} if
                    xcolor 2 eq xcolor 3 eq or {cname_rgb25 i get} if
                    xcolor 4 eq xcolor 5 eq or {cname_rgb50 i get} if
                    xcolor 6 eq xcolor 7 eq or {cname_rgb75 i get} if
       put

       angle6 i
       olvrgb 0 eq {%olvrgb=0
                    xcolor 0 eq xcolor 1 eq or {angle_olvi i get} if
                    xcolor 2 eq xcolor 3 eq or {angle_olvi i 07 add get} if
                    xcolor 4 eq xcolor 5 eq or {angle_olvi i 14 add get} if
                    xcolor 6 eq xcolor 7 eq or {angle_olvi i 21 add get} if
                   }
                   {%olvrgb=1
                    xcolor 0 eq xcolor 1 eq or {angle_rgbi i get} if
                    xcolor 2 eq xcolor 3 eq or {angle_rgbi i 07 add get} if
                    xcolor 4 eq xcolor 5 eq or {angle_rgbi i 14 add get} if
                    xcolor 6 eq xcolor 7 eq or {angle_rgbi i 21 add get} if
                   } ifelse
       put
      } for
             

xchartl 0 eq xchartl 4 eq or xchartl 8  eq or xchartl 12 eq or {/jbild 0 def} if
xchartl 1 eq xchartl 5 eq or xchartl 9  eq or xchartl 13 eq or {/jbild 1 def} if
xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/jbild 2 def} if
xchartl 3 eq xchartl 7 eq or xchartl 11 eq or xchartl 15 eq or {/jbild 3 def} if

jbild 3 ne {%jbild#3
-3200   3900   moveto
TBS lanind 0 eq {(Buntton: )} {(Hue: )} ifelse show
TBIS (h) show (ab,) ibshow0L
TBL 0 -50 rmoveto
jbild 0 eq {cname6 0 get show Txx show} if
jbild 1 eq {cname6 1 get show Txx show} if
jbild 2 eq {cname6 2 get show Txx show} if
0 50 rmoveto
TBS (=) show
jbild 0 eq {angle6 0 get cvishow} if
jbild 1 eq {angle6 1 get cvishow} if
jbild 2 eq {angle6 2 get cvishow} if
(/360; ) show
TBIS (h) show (ab,) ibshow0L
TBL 0 -50 rmoveto
jbild 0 eq {cname6 3 get show Txx show} if
jbild 1 eq {cname6 4 get show Txx show} if
jbild 2 eq {cname6 5 get show Txx show} if
0 50 rmoveto
TBS (=) show
jbild 0 eq {angle6 3 get cvishow} if
jbild 1 eq {angle6 4 get cvishow} if
jbild 2 eq {angle6 5 get cvishow} if
(/360) show
         } if %jbild#3

xchartl 12 ge {%xchartl>=12
-3200  3625  xchartl 15 eq {300 add} if moveto
TBS lanind 0 eq {(Ergebnis: )} {(Result: )} ifelse show
TBIS (c*) show (rgb*) ibshownL
TBS (=) show
TBIS (c*) show %(rgb*) ibshownL
TBS (; ) show
TBIS (t*) show (rgb*) ibshownL
TBS (=) show
TBIS (t*) show
             } if %xchartl>=12

xchartl   0 ge xchartl   3 le and {%0<=xchartl<=3
-3200 4400 moveto
TBS (Linear relation ) showea (Beziehung ) showde
TBS (CIELAB \050) show
TBIS (L*, a*, b*) show
TBS (\051) show
TBS ( and ) showea ( und ) showde
TBIS (adapted (a) ) showea (adaptiertes (a) ) showde 
TBS (CIELAB \050) show
TBIS (C*) show (ab,a) ibshownL
TBS (, ) show
TBIS (L*) show
TBS (\051) show

x800 4100 moveto
TBIS (l*) show
TBS (=\050 ) show 
TBIS (L*) show TBS ( - ) show  TBIS (L*) show (N) ibshownL
TBS ( \051 / \050) show TBIS (L*) show (W) ibshownL
( - ) show  TBIS (L*) show (N) ibshownL
TBS ( \051) show

x800 3800 moveto
TBIS (a*) show (a) ibshownL
TBS (=) show 
TBIS (a*) show
TBS ( - ) show 
TBIS (a*) show (N) ibshownL
TBS ( - ) show 
TBIS (l*) show
TBS ( [ ) show
TBIS (a*) show (W) ibshownL
TBS ( - ) show
TBIS (a*) show (N) ibshownL
TBS ( ]) show

x800 3500 moveto
TBIS (b*) show (a) ibshownL
TBS (=) show 
TBIS (b*) show
TBS ( - ) show 
TBIS (b*) show (N) ibshownL
TBS ( - ) show 
TBIS (l*) show
TBS ( [ ) show
TBIS (b*) show (W) ibshownL
TBS ( - ) show
TBIS (b*) show (N) ibshownL
TBS ( ]) show

x800 500 add 3200 moveto
TBIS (C*) show (ab,a) ibshownL
TBS (=[ ) show 
TBIS (a*) show (a) ibshownL
0 100 rmoveto TBL (2) show 0 -100 rmoveto

TBS ( + ) show 
TBIS (b*) show (a) ibshownL
0 100 rmoveto TBL (2) show 0 -100 rmoveto
TBS ( ] ) show
0 100 rmoveto TBL (1/2) show 0 -100 rmoveto

                            } if %0<=xchartl<=3

xchartl   4 ge xchartl   7 le and {%4<=xchartl<=7
-3200 4400 moveto
%TBS (Linear relation ) showea (Beziehung ) showde
TBIS (Adapted (a) ) showea (Adaptiertes (a) ) showde
TBS (CIELAB \050) show
TBIS (C*) show (ab,a) ibshownL
TBS (, ) show
TBIS (L*) show
TBS (\051) show
TBS ( and ) showea ( und ) showde
TBIS (relative ) showea (relatives ) showde 
TBS (CIELAB \050) show
TBIS (c*) show
TBS (, ) show
TBIS (l*) show
TBS (\051) show

X850 4100 moveto
TBIS (l*) show
TBS (=\050 ) show 
TBIS (L*) show TBS ( - ) show  TBIS (L*) show (N) ibshownL
TBS ( \051 / \050) show TBIS (L*) show (W) ibshownL
( - ) show  TBIS (L*) show (N) ibshownL
TBS ( \051) show

X850 3800 moveto
TBIS (c*) show
TBS (=) show 
TBIS (C*) show (ab,a) ibshownL
TBS ( / ) show
TBIS (C*) show (ab,a,M) ibshownL

X850 3500 moveto
TBIS (M) show
TBS (=Maximum colour) showea (=Maximalfarbe) showde
                            } if %4<=xchartl<=7
                            
xchartl   8 ge xchartl  11 le and {%8<=xchartl<=11
-3200 4400 moveto
TBS (Linear relation ) showea (Beziehung ) showde
TBIS (adapted (a) ) showea (adaptiertes (a) ) showde
TBS (CIELAB \050) show
TBIS (C*) show (ab,a) ibshownL
TBS (, ) show
TBIS (L*) show
TBS (\051) show
TBS ( and ) showea ( und ) showde
TBIS (relative ) showea (relatives ) showde 
TBS (CIELAB \050) show
TBIS (c*) show
TBS (, ) show
TBIS (t*) show
TBS (\051) show

X850 4100 moveto
TBIS (l*) show (M) ibshownL
TBS (=\050) show 
TBIS (L*) show (M) ibshownL
TBS ( - ) show  TBIS (L*) show (N) ibshownL
TBS (\051 / \050) show TBIS (L*) show (W) ibshownL
( - ) show  TBIS (L*) show (N) ibshownL
TBS (\051) show

X850 3800 moveto
TBIS (t*) show 
TBS (=) show 
TBIS (l*) show
TBS ( - ) show  TBIS (c*) show
TBS ( [ ) show TBIS (l*) show
0 -50 rmoveto TBL (M) show 0 50 rmoveto
TBS ( - 0,5 ]) show

X850 3500 moveto
TBIS (c*) show
TBS (=) show 
TBIS (C*) show (ab,a) ibshownL
TBS ( / ) show
TBIS (C*) show (ab,a,M) ibshownL

X850 3200 moveto
TBIS (M) show
TBS (=Maximum colour) showea (=Maximalfarbe) showde
                            } if %8<=xchartl<=11
                            
xchartl   12 ge xchartl   15 le and {%12<=xchartl<=15
-3200 4400 moveto
TBS (Linear relation ) showea (Beziehung ) showde
TBIS (rgb*) show
TBS ( and ) showea ( und ) showde
TBIS (relative ) show
TBS (chroma ) showea
    (Buntheit ) showde
TBIS (c*) show (rgb*) ibshownL

xchartl 03 ne
xchartl 07 ne and
xchartl 11 ne and
xchartl 15 ne and {%xchart #3,7,11,15 or =3,7,11,15
TBS ( and triangle lightness ) showea
    ( und Dreiecks\255Helligkeit ) showde
TBIS (t*) show
TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto

        } %xchart #3,7,11,15
%*********************************************************************************
        { %xchart =3,7,11,15
TBS ( or chroma ) showea
    ( oder Buntheit ) showde
TBIS (a) show
xchartl 12 ge {(*) show} if (rgb*) ibshownL

TBS (, ) show
TBIS (b) show
xchartl 12 ge {(*) show} if (rgb*) ibshownL

        } ifelse %xchart #3,7,11,15 or =3,7,11,15

X850 4100 moveto
TBIS (c*) show (rgb*) ibshownL
TBS (=max\050) show 
TBIS (rgb*) show 
TBS (\051 - min\050) show 
TBIS (rgb*) show
TBS (\051) show

X850 3800 moveto
TBIS (n*) show %(rgb*) ibshownL
TBS (=1 - max\050) show 
TBIS (rgb*) show 
TBS (\051) show
TBS (= 1 - ) show
TBIS (i*) show %(rgb*) ibshownL

X850 3500 moveto
TBIS (w*) show %(rgb*) ibshownL
TBS (=min\050) show 
TBIS (rgb*) show 
TBS (\051) show
TBS (= 1 - ) show
TBIS (d*) show %(rgb*) ibshownL

X850 3200 moveto
TBIS (t*) show (rgb*) ibshownL
TBS (=) show 
TBIS (w*) show %(rgb*) ibshownL
TBS ( + 0,5 ) show 
TBIS (c*) show (rgb*) ibshownL

xchartl 14 le {
X850 2900 moveto
TBIS (M) show
TBS (=Maximum colour) showea (=Maximalfarbe) showde
             } if

                            } if %12<=xchartl<=15

xchartl   2 le {
1500   150   moveto TBK (chroma) showea (Buntheit) showde
2500   150   moveto TBIK (C*) show 
TS 0 -50 rmoveto (ab,a) show

-1600 3100 moveto TBK (lightness) showea (Helligkeit) showde
-350   3100   moveto TBIK (L*) show
            } if

grestore
gsave

xchart 3 le {0.75 dup scale} {0.80 dup scale} ifelse

xchartl 03 ne
xchartl 07 ne and
xchartl 11 ne and
xchartl 15 ne and {%xchart #3,7,11,15 or =3,7,11,15

xchartl 1 eq xcolor 2 eq xcolor 3 eq or and { 200 0 translate} if %special shift for J-B
xchartl 1 eq xcolor 4 eq xcolor 5 eq or and {-300 0 translate} if %special shift for J-B
xchartl 1 eq xcolor 6 eq xcolor 7 eq or and { 200 0 translate} if %special shift for J-B

/j729 729 def
xchartl   0 eq xchartl   4 eq or xchartl   8 eq or xchartl   12 eq or
{/j1 729 j729 sub         10 mul def} if %series O-C
xchartl   1 eq xchartl   5 eq or xchartl   9 eq or xchartl   13 eq or
{/j1 729 j729 sub 081 add 10 mul def} if %series Y-V
xchartl   2 eq xchartl   6 eq or xchartl  10 eq or xchartl   14 eq or
{/j1 729 j729 sub 162 add 10 mul def} if %series L-M

0 1 080 {/i exch def %i=0,080
         /i10 j1 i 10 mul add def
         LUTL* i LUT i10 0 add get  100 div put 
         LUTA* i LUT i10 1 add get  100 div put
         LUTB* i LUT i10 2 add get  100 div put
         LUTr* i LUT i10 3 add get 1000 div put
         LUTg* i LUT i10 4 add get 1000 div put
         LUTb* i LUT i10 5 add get 1000 div put
         C*ab  i LUTA* i get dup mul
                 LUTB* i get dup mul add 0.000001 add sqrt put
         L*    i LUTL* i get put
        } for %i=0,080
        
%       801 737 809 729  882 818 890 810  963 899 971 891
%       j01 b09 j09 b01  j10 b18 j18 b10  j19 b27 j27 b19
%       O   C   N1  W1   Y   V   N2  W2   L   M   N3  W3

       xchartl 0 eq xchartl   4 eq or xchartl   8 eq or xchartl  12 eq or
       {/index [801 737 809 729] def} if %O,C,N1,W1
       xchartl 1 eq xchartl   5 eq or xchartl   9 eq or xchartl  13 eq or
       {/index [882 818 890 810] def} if %Y,V,N2,W2
       xchartl 2 eq xchartl   6 eq or xchartl  10 eq or xchartl  14 eq or
       {/index [963 899 971 891] def} if %L,M,N1,W2

0 1 3 {/i exch def %i=0,3 %standard colours at the end
       /i10 index i get j729 sub 10 mul def
       /i81 81 i add def
       LUTL* i81 LUT i10 0 add get 100 div put
       LUTA* i81 LUT i10 1 add get 100 div put
       LUTB* i81 LUT i10 2 add get 100 div put
       LUTr* i81 LUT i10 3 add get 1000 div put
       LUTg* i81 LUT i10 4 add get 1000 div put
       LUTb* i81 LUT i10 5 add get 1000 div put
       C*ab  i81 LUTA* i81 get dup mul
                 LUTB* i81 get dup mul add 0.000001 add sqrt put
       L*    i81 LUTL* i81 get put
      } for %i=0,3

/L*WN LUTL* 84 get LUTL* 83 get sub def

0 1 084 {/i exch def %i=0,084
         LUTl*  i LUTL* i get LUTL* 83 get sub 
                  L*WN 0.000001 add div put
         LUTc1* i C*ab i get C*ab 81 get 0.000001 add div put
         LUTc2* i C*ab i get C*ab 82 get 0.000001 add div put
         LUTt1* i LUTl* i get LUTc1* i get 
                  L* 81 get L* 83 get sub L*WN
                  0.000001 add div 0.5 sub mul sub put
         LUTt2* i LUTl* i get LUTc2* i get
                  L* 82 get L* 83 get sub L*WN
                  0.000001 add div 0.5 sub mul sub put
                  LUTr* i get 0 lt {LUTr* i 0 put} if
         LUTg* i get 0 lt {LUTg* i 0 put} if
         LUTb* i get 0 lt {LUTb* i 0 put} if
         LUTr* i get 1 gt {LUTr* i 1 put} if
         LUTg* i get 1 gt {LUTg* i 1 put} if
         LUTb* i get 1 gt {LUTb* i 1 put} if
         %maximum
         /max LUTr* i get def %rgb brilliantness
         LUTg* i get max gt {/max LUTg* i get def} if
         LUTb* i get max gt {/max LUTb* i get def} if
         %minimum
         /min LUTr* i get def %rgb whiteness
         LUTg* i get min lt {/min LUTg* i get def} if
         LUTb* i get min lt {/min LUTb* i get def} if         
         LUTc*rgb i max min sub put %rgb chroma
         LUTt*rgb i min max min sub 0.5 mul add put %rgb triangle lightness
        } for %i=0,084
        
%axis and scales
1 setgray
-3000 0 moveto 6250  0 rlineto stroke
0 -080  moveto 0 3600  rlineto stroke
 3250 100 sub 50 moveto 100 -50 rlineto
                       -100 -50 rlineto closepath fill
0 50 sub 3600 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill

0 setgray
TS
/xt001 9 array def
/xt001 [(  1,0) () (  0,5) ( ) (  0) () (  0,5) () () ] def %(  1,0)] def
/yt001 5 array def
/yt001 [( ) () (0,5) ( ) (1,0)] def

/xt100 9 array def
/xt100 [(  100) () (   50) ( ) (     0) () (  50) () (100)] def
/yt100 5 array def
/yt100 [( ) () (50) ( ) (100)] def

0 1 8 {/i exch def %i=0,8
        -3000   i 750   mul add  -50 moveto 0 100 rlineto stroke
        -3200   i 750   mul add -250   moveto
        xchartl 3 le {xt100}{xt001} ifelse i get show
       } for %i=0,8

0 1 4 {/i exch def %i=0,4
       -75 0 i 750 mul    add moveto 150 0 rlineto stroke
        30 50 i 750 mul   add moveto
        xchartl 3 le {yt100}{yt001} ifelse i get show
      } for %i=0,4

xchartl   4 ge xchartl 7 le and {
1 setgray
-2800   3100   moveto TBIK (relative ) show
TBK (lightness) showea (Helligkeit) showde
-600   3100   moveto TBIK (l*) show
xchartl 11 le {TS 0 -50 rmoveto () show 0 50 rmoveto} if
               } if

xchartl   8 ge {
1 setgray
-2800   3100   moveto TBK (triangle lightness) showea
                          (Dreiecks\255Helligkeit) showde
-600   3100   moveto TBIK (t*) show
xchartl 11 le {TS 0 -50 rmoveto () show 0 50 rmoveto} if
xchartl 12 ge {TS 0 -50 rmoveto (rgb*) show 0 50 rmoveto} if
               } if

xchartl    4 ge {
1000   150   moveto TBIK (relative ) show
TBK (chroma) showea (Buntheit) showde
2800   150   moveto TBIK (c*) show
xchartl 11 le {TS 0 -50 rmoveto () show 0 50 rmoveto} if
xchartl 12 ge {TS 0 -50 rmoveto (rgb*) show 0 50 rmoveto} if
            } if

xchartl 12 ge {
1500 2350 moveto
TBIS (n*) show
%TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto
TBS (=0; ) show 
TBIS (i*) show
%TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto
TBS (=1) show

1500 0550 moveto
TBIS (w*) show
%TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto
TBS (=0; ) show 
TBIS (d*) show
%TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto
TBS (=1) show
            } if

/fakt  30 def
/fakt2 3000 def
100 /Times-ISOL1 FS
/j1 0 def
/k1 0 def
/k2 3 def


xchartl   0 ge xchartl   2 le and {%0<=xchartl  <=2
%**********************************************************************
100 /Times-ISOL1 FS

%only once:
%spalte e05 bis e05: W-C
/Vorz -1 def
0 1 0 {/j exch def %j=0,0 %lines
       /ja j 40 add def
       L*   j LUTL* ja get put
       C*ab j LUTA* ja get dup mul
              LUTB* ja get dup mul add sqrt Vorz mul put
       newpath
       LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
       C*ab j get fakt mul
       L*   j get fakt mul
       030 0 360 arc fill
       newpath
      } for %j=0,0

%**********************************************************************
/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N
         k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N
         k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N
         k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N
       
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j add def
         L*   j LUTL* ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt Vorz mul put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         C*ab j get fakt mul
         L*   j get fakt mul
         050 0 360 arc fill
         j 1 ge {
                 C*ab j 1 sub get fakt mul
                 L*   j 1 sub get fakt mul moveto
                 C*ab j get fakt mul
                 L*   j get fakt mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         C*ab j get fakt mul
                         L*   j get fakt mul moveto
                         C*ab 0 get fakt mul
                         L*   0 get fakt mul lineto stroke
                        } if %k=0
                 } if
       } for %j=j1,j2
       
       } for %k=0,3

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

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O
         k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O
         k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O
         k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O
         
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         L*   j LUTL* ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt Vorz mul put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         C*ab j get fakt mul
         L*   j get fakt mul
         050 0 360 arc fill
         j 1 ge {C*ab j 1 sub get fakt mul
                 L*   j 1 sub get fakt mul moveto
                 C*ab j get fakt mul
                 L*   j get fakt mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         C*ab j get fakt mul
                         L*   j get fakt mul moveto
                         C*ab 0 get fakt mul
                         L*   0 get fakt mul lineto stroke
                         C*ab j get fakt mul
                         L*   j get fakt mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 C*ab j get fakt mul xadd0 xchartl get add
                 L*   j get fakt mul yadd0 xchartl get add
                 moveto
                 cname6 xchartl get show Txx ibshow0
                 newpath
                 1 setgray
                 C*ab  j     get fakt mul 580 sub
                 L*  j       get fakt mul 700 sub 150 sub moveto
                 TBS (\050) show TBIS (C*) show (ab,a,M) ibshown
                 TBIS (,) show
                 TBIS ( L*) show (M) ibshown
                 TBS (\051) show 
                 newpath
                } if
        } for %j=j1,j2

        } for %k=0,3

%**********************************************************************
/Vorz -1 def

k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N
         k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N
         k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N
         k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N

j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         L*   j LUTL* ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt Vorz mul put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         C*ab j get fakt mul
         L*   j get fakt mul
         050 0 360 arc fill
         j 1 ge {C*ab j 1 sub get fakt mul
                 L*   j 1 sub get fakt mul moveto
                 C*ab j get fakt mul
                 L*   j get fakt mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         C*ab j get fakt mul
                         L*   j get fakt mul moveto
                         C*ab 0 get fakt mul
                         L*   0 get fakt mul lineto stroke
                        } if %k=0
                 } if
        } for %j=j1,j2
        
        } for %k=0,3

%**********************************************************************
/Vorz -1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C
         k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C
         k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C
         k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C

j1 1 j2 {/j exch def %j=j1,j2 %rows
         /ja j0 j add def
         L*   j LUTL* ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt Vorz mul put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         C*ab j get fakt mul
         L*   j get fakt mul
         050 0 360 arc fill
         j 1 ge {C*ab j 1 sub get fakt mul
                 L*   j 1 sub get fakt mul moveto
                 C*ab j get fakt mul
                 L*   j get fakt mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         C*ab j get fakt mul
                         L*   j get fakt mul moveto
                         C*ab 0 get fakt mul
                         L*   0 get fakt mul lineto stroke
                         C*ab j get fakt mul
                         L*   j get fakt mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 C*ab j get fakt mul xadd0 xchartl get add
                 L*   j get fakt mul yadd0 xchartl get add
                 moveto
                 cname6 3 xchartl add get show Txx ibshow0
                 newpath
                } if
        } for %j=j1,j2
        
        } for %k=0,3
        
/fakt 30 def
icolor 1 eq {%icolor=1    
0 0 0 setrgbcolor
/i24 xcolor 2 idiv 24 mul def
/C*abW 0 def
/C*abN 0 def
/L*aN LAB*Fa0100 6 3 mul i24 add get def
/L*aW LAB*Fa0100 7 3 mul i24 add get def
/j xchartl def
/j30 j 3 mul i24 add def /j31 j30 1 add def /j32 j30 2 add def
/C*abM LAB*Fa0100 j31 get dup mul
       LAB*Fa0100 j32 get dup mul add 0.0001 add sqrt def
%C*abN fakt mul L*aN fakt mul moveto
%C*abM fakt mul LAB*Fa0100 j30 get fakt mul lineto
%C*abW fakt mul L*aW fakt mul lineto
%stroke
/j xchartl 3 add def
/j30 j 3 mul i24 add def /j31 j30 1 add def /j32 j30 2 add def
/C*abM LAB*Fa0100 j31 get dup mul
       LAB*Fa0100 j32 get dup mul add 0.0001 add sqrt def
%C*abN fakt mul neg L*aN fakt mul moveto
%C*abM fakt mul neg LAB*Fa0100 j30 get fakt mul lineto
%C*abW fakt mul neg L*aW fakt mul lineto
%stroke
} if %icolor=1

%**********************************************************************
} if %0<=xchartl  <=2

xchartl   4 ge xchartl   6 le and {%4<=xchartl  <=6
%**********************************************************************
100 /Times-ISOL1 FS

%only once:
%spalte e05 bis e05: W-C
0 1 0 {/j exch def %j=0,0 %lines
       /ja j 40 add def
       l1* j LUTl*  ja get put
       c1* j LUTc1* ja get put
       newpath
       LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
       c1* j get fakt2 mul
       l1* j get fakt2 mul
       030 0 360 arc fill
       newpath
      } for %j=0,0

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

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N
         k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N
         k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N
         k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N
       
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j add def
         l1* j LUTl*  ja get put
         c1* j LUTc1* ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c1* j get fakt2 mul Vorz mul
         l1* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c1*  j 1 sub get fakt2 mul Vorz mul
                 l1*  j 1 sub get fakt2 mul moveto
                 c1*  j       get fakt2 mul Vorz mul
                 l1*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c1* j get fakt2 mul Vorz mul
                         l1* j get fakt2 mul moveto
                         c1* 0 get fakt2 mul Vorz mul
                         l1* 0 get fakt2 mul lineto stroke
                        } if %k=0
                 } if
       } for %j=j1,j2
       
       } for %k=0,3

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

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O
         k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O
         k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O
         k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O
         
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         l1* j LUTl*  ja get put
         c1* j LUTc1* ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c1* j get fakt2 mul Vorz mul
         l1* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c1*  j 1 sub get fakt2 mul Vorz mul
                 l1*  j 1 sub get fakt2 mul moveto
                 c1*  j       get fakt2 mul Vorz mul
                 l1*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c1* j get fakt2 mul Vorz mul
                         l1* j get fakt2 mul moveto
                         c1* 0 get fakt2 mul Vorz mul
                         l1* 0 get fakt2 mul lineto stroke
                         c1* j get fakt2 mul Vorz mul
                         l1* j get fakt2 mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 c1*  j get fakt2 mul Vorz mul xadd0 xchartl 4 sub get add
                 l1*  j get fakt2 mul          yadd0 xchartl 4 sub get add
                 moveto
                 cname6 xchartl 4 sub get show Txx ibshow0
                 newpath
                 1 setgray
                 c1*  j       get fakt2 mul Vorz mul 580 sub
                 l1*  j       get fakt2 mul 600 sub moveto
                 TBS (\050) show TBIS (c*) show 
                 0 -50 rmoveto TBL (M) show 0 50 rmoveto
                 TBIS (, l*) show
                 0 -50 rmoveto TBL (M) show 0 50 rmoveto
                 TBS (\051) show 
                 newpath
                } if
        } for %j=j1,j2

        } for %k=0,3


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

/Vorz -1 def

k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N
         k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N
         k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N
         k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N

j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         l2* j LUTl*  ja get put
         c2* j LUTc2* ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c2* j get fakt2 mul Vorz mul
         l2* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c2*  j 1 sub get fakt2 mul Vorz mul
                 l2*  j 1 sub get fakt2 mul moveto
                 c2*  j       get fakt2 mul Vorz mul
                 l2*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c2* j get fakt2 mul Vorz mul
                         l2* j get fakt2 mul moveto
                         c2* 0 get fakt2 mul Vorz mul
                         l2* 0 get fakt2 mul lineto stroke
                        } if %k=0
                 } if
        } for %j=j1,j2
        
        } for %k=0,3
%**********************************************************************

/Vorz -1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C
         k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C
         k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C
         k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C

j1 1 j2 {/j exch def %j=j1,j2 %rows
         /ja j0 j add def
         l2* j LUTl*  ja get put
         c2* j LUTc2* ja get put

         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c2* j get fakt2 mul Vorz mul
         l2* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c2*  j 1 sub get fakt2 mul Vorz mul
                 l2*  j 1 sub get fakt2 mul moveto
                 c2*  j       get fakt2 mul Vorz mul
                 l2*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c2* j get fakt2 mul Vorz mul
                         l2* j get fakt2 mul moveto
                         c2* 0 get fakt2 mul Vorz mul
                         l2* 0 get fakt2 mul lineto stroke
                         c2* j get fakt2 mul Vorz mul
                         l2* j get fakt2 mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 c2*  j get fakt2 mul Vorz mul xadd0 xchartl 4 sub get add
                 l2*  j get fakt2 mul          yadd0 xchartl 4 sub get add
                 moveto
                 cname6 xchartl 4 sub 3 add get show Txx ibshow0
                 newpath
                } if
        } for %j=j1,j2
        
        } for %k=0,3

%**********************************************************************
} if %4<=xchartl  <=6

xchartl   8 ge xchartl  10 le and {%8<=xchartl  <=10
%**********************************************************************
100 /Times-ISOL1 FS

%only once:
%spalte e05 bis e05: W-C
0 1 0 {/j exch def %j=0,0 %lines
       /ja j 40 add def
       t1* j LUTt1* ja get put
       c1* j LUTc1* ja get put
       newpath
       LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
       c1* j get fakt2 mul
       t1* j get fakt2 mul
       030 0 360 arc fill
       newpath
      } for %j=0,0

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

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N
         k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N
         k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N
         k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N
       
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j add def
         t1* j LUTt1* ja get put
         c1* j LUTc1* ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c1* j get fakt2 mul Vorz mul
         t1* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c1*  j 1 sub get fakt2 mul Vorz mul
                 t1*  j 1 sub get fakt2 mul moveto
                 c1*  j       get fakt2 mul Vorz mul
                 t1*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c1* j get fakt2 mul Vorz mul
                         t1* j get fakt2 mul moveto
                         c1* 0 get fakt2 mul Vorz mul
                         t1* 0 get fakt2 mul lineto stroke
                        } if %k=0
                 } if
       } for %j=j1,j2
       
       } for %k=0,3

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

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O
         k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O
         k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O
         k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O
         
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         t1* j LUTt1* ja get put
         c1* j LUTc1* ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c1* j get fakt2 mul Vorz mul
         t1* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c1*  j 1 sub get fakt2 mul Vorz mul
                 t1*  j 1 sub get fakt2 mul moveto
                 c1*  j       get fakt2 mul Vorz mul
                 t1*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c1* j get fakt2 mul Vorz mul
                         t1* j get fakt2 mul moveto
                         c1* 0 get fakt2 mul Vorz mul
                         t1* 0 get fakt2 mul lineto stroke
                         c1* j get fakt2 mul Vorz mul
                         t1* j get fakt2 mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 c1*  j get fakt2 mul Vorz mul xadd0 xchartl 8 sub get add
                 t1*  j get fakt2 mul          yadd0 xchartl 8 sub get add
                 moveto
                 cname6 xchartl 8 sub get show
                 1 setgray
                 c1*  j       get fakt2 mul Vorz mul 580 sub
                 t1*  j       get fakt2 mul 600 sub moveto
                 TBS (\050) show TBIS (c*) show 
                 0 -50 rmoveto TBL (M) show 0 50 rmoveto
                 TBIS (, t*) show
                 0 -50 rmoveto TBL (M) show 0 50 rmoveto
                 TBS (\051) show 
                 newpath
                } if
        } for %j=j1,j2

        } for %k=0,3

%**********************************************************************
/Vorz -1 def

k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N
         k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N
         k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N
         k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N

j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         t2* j LUTt2* ja get put
         c2* j LUTc2* ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c2* j get fakt2 mul Vorz mul
         t2* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c2*  j 1 sub get fakt2 mul Vorz mul
                 t2*  j 1 sub get fakt2 mul moveto
                 c2*  j       get fakt2 mul Vorz mul
                 t2*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c2* j get fakt2 mul Vorz mul
                         t2* j get fakt2 mul moveto
                         c2* 0 get fakt2 mul Vorz mul
                         t2* 0 get fakt2 mul lineto stroke
                        } if %k=0
                 } if
        } for %j=j1,j2
        
        } for %k=0,3
%**********************************************************************
/Vorz -1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C
         k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C
         k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C
         k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C

j1 1 j2 {/j exch def %j=j1,j2 %rows
         /ja j0 j add def
         t2* j LUTt2* ja get put
         c2* j LUTc2* ja get put

         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c2* j get fakt2 mul Vorz mul
         t2* j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c2*  j 1 sub get fakt2 mul Vorz mul
                 t2*  j 1 sub get fakt2 mul moveto
                 c2*  j       get fakt2 mul Vorz mul
                 t2*  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c2* j get fakt2 mul Vorz mul
                         t2* j get fakt2 mul moveto
                         c2* 0 get fakt2 mul Vorz mul
                         t2* 0 get fakt2 mul lineto stroke
                         c2* j get fakt2 mul Vorz mul
                         t2* j get fakt2 mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 c2*  j get fakt2 mul Vorz mul xadd0 xchartl 8 sub get add
                 t2*  j get fakt2 mul          yadd0 xchartl 8 sub get add
                 moveto
                 cname6 xchartl 8 sub 3 add get show Txx ibshow0
                 newpath
                } if
        } for %j=j1,j2
        
        } for %k=0,3

%**********************************************************************
} if %8<=xchartl  <=10

xchartl   12 ge xchartl   14 le and {%12<=xchartl  <=14
%**********************************************************************
100 /Times-ISOL1 FS

%only once:
%spalte e05 bis e05: W-C
0 1 0 {/j exch def %j=0,0 %lines
       /ja j 40 add def
       t1*rgb j LUTt*rgb ja get put
       c1*rgb j LUTc*rgb ja get put
       newpath
       LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
       c1*rgb j get fakt2 mul
       t1*rgb j get fakt2 mul
       030 0 360 arc fill
       newpath
      } for %j=0,0

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

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N
         k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N
         k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N
         k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N
       
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j add def
         t1*rgb j LUTt*rgb ja get put
         c1*rgb j LUTc*rgb ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c1*rgb j get fakt2 mul Vorz mul
         t1*rgb j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c1*rgb  j 1 sub get fakt2 mul Vorz mul
                 t1*rgb  j 1 sub get fakt2 mul moveto
                 c1*rgb  j       get fakt2 mul Vorz mul
                 t1*rgb  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c1*rgb j get fakt2 mul Vorz mul
                         t1*rgb j get fakt2 mul moveto
                         c1*rgb 0 get fakt2 mul Vorz mul
                         t1*rgb 0 get fakt2 mul lineto stroke
                        } if %k=0
                 } if
       } for %j=j1,j2
       
       } for %k=0,3

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

/Vorz 1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O
         k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O
         k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O
         k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O
         
j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         t1*rgb j LUTt*rgb ja get put
         c1*rgb j LUTc*rgb ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c1*rgb j get fakt2 mul Vorz mul
         t1*rgb j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c1*rgb  j 1 sub get fakt2 mul Vorz mul
                 t1*rgb  j 1 sub get fakt2 mul moveto
                 c1*rgb  j       get fakt2 mul Vorz mul
                 t1*rgb  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c1*rgb j get fakt2 mul Vorz mul
                         t1*rgb j get fakt2 mul moveto
                         c1*rgb 0 get fakt2 mul Vorz mul
                         t1*rgb 0 get fakt2 mul lineto stroke
                         c1*rgb j get fakt2 mul Vorz mul
                         t1*rgb j get fakt2 mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 c1*rgb  j get fakt2 mul Vorz mul xadd0 xchartl 12 sub get add
                 t1*rgb  j get fakt2 mul          yadd0 xchartl 12 sub get add
                 moveto
                 cname6 xchartl 12 sub get show
                 1 setgray
                 c1*rgb  j       get fakt2 mul Vorz mul 580 sub
                 t1*rgb  j       get fakt2 mul 600 sub moveto
                 TBS (\050) show TBIS (c*) show 
                 0 -50 rmoveto TBL (M) show 0 50 rmoveto
                 TBIS (, t*) show
                 0 -50 rmoveto TBL (M) show 0 50 rmoveto
                 TBS (\051) show 
                 newpath
                } if
        } for %j=j1,j2

        } for %k=0,3


%**********************************************************************
/Vorz -1 def

k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N
         k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N
         k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N
         k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N

j1 1 j2 {/j exch def %j=j1,j2 %lines
         /ja j0 j 9 mul add def
         t2*rgb j LUTt*rgb ja get put
         c2*rgb j LUTc*rgb ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c2*rgb j get fakt2 mul Vorz mul
         t2*rgb j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c2*rgb  j 1 sub get fakt2 mul Vorz mul
                 t2*rgb  j 1 sub get fakt2 mul moveto
                 c2*rgb  j       get fakt2 mul Vorz mul
                 t2*rgb  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c2*rgb j get fakt2 mul Vorz mul
                         t2*rgb j get fakt2 mul moveto
                         c2*rgb 0 get fakt2 mul Vorz mul
                         t2*rgb 0 get fakt2 mul lineto stroke
                        } if %k=0
                 } if
        } for %j=j1,j2
        
        } for %k=0,3
%**********************************************************************
/Vorz -1 def
k1 1 k2 {/k exch def %k=0,3
         k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C
         k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C
         k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C
         k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C

j1 1 j2 {/j exch def %j=j1,j2 %rows
         /ja j0 j add def
         t2*rgb j LUTt*rgb ja get put
         c2*rgb j LUTc*rgb ja get put
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         c2*rgb j get fakt2 mul Vorz mul
         t2*rgb j get fakt2 mul
         050 0 360 arc fill
         j 1 ge {c2*rgb  j 1 sub get fakt2 mul Vorz mul
                 t2*rgb  j 1 sub get fakt2 mul moveto
                 c2*rgb  j       get fakt2 mul Vorz mul
                 t2*rgb  j       get fakt2 mul lineto stroke
                } if
         j 8 eq {k 0 eq {%k=0
                         icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor
                         c2*rgb j get fakt2 mul Vorz mul
                         t2*rgb j get fakt2 mul moveto
                         c2*rgb 0 get fakt2 mul Vorz mul
                         t2*rgb 0 get fakt2 mul lineto stroke
                         c2*rgb j get fakt2 mul Vorz mul
                         t2*rgb j get fakt2 mul
                         070 0 360 arc stroke
                        } if %k=0
                 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                 newpath 250 /TimesBI-ISOL1 FS
                 /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def
                 c2*rgb  j get fakt2 mul Vorz mul xadd0 xchartl 12 sub get add
                 t2*rgb  j get fakt2 mul          yadd0 xchartl 12 sub get add
                 moveto
                 cname6 xchartl 12 sub 3 add get show Txx ibshow0
                 newpath
                } if
        } for %j=j1,j2
        
        } for %k=0,3

%**********************************************************************
} if %12<=xchartl  <=14

xchartl 1 eq xcolor 2 eq xcolor 3 eq or and {-200 0 translate} if %special shift for J-B TLS00a
xchartl 1 eq xcolor 4 eq xcolor 5 eq or and { 300 0 translate} if %special shift for J-B FRS06a
xchartl 1 eq xcolor 6 eq xcolor 7 eq or and {-200 0 translate} if %special shift for J-B TLS18a

%**********************************************************************
        } %xchart #3,7,11,15
%*********************************************************************************
        { %xchart =3,7,11,15

1 setgray        
%xchartl 3 eq {
-3400  4175 moveto
TBS (CIELAB) show
(\255Bunttonwinkel: ) showde ( hue angles: ) showea
%              } if

xchartl 11 le {
-3400 xchartl 7 ge {200 add} if 3900 moveto
TBIS (h) show
0 -50 rmoveto TBL (ab,d) show 0 50 rmoveto
TBS (=[) show
0 1 5 {/i exch def %i=0,5
       angle_olvG11i i get cvishow
       i 5 ne {(, ) show} if
      } for %i=0,5
(]) show

-3400 xchartl 7 ge {200 add} if 3625 moveto
TBIS (h) show
0 -50 rmoveto TBL (ab,dx) show 0 50 rmoveto
TBS (=[) show
0 1 5 {/i exch def %i=0,5
       H*olv i get cvishow
       i 5 ne {(, ) show} if
      } for %i=0,5
(]) show
} if %xchartl,<=11

olvrgb 1 eq {%olvrgb=1
-3400 xchartl 7 ge {200 add} if 3350 moveto
TBIS (h) show
0 -50 rmoveto TBL (ab,e) show 0 50 rmoveto
TBS (=[) show
0 1 5 {/i exch def %i=0,5
       angle_rgb i get cvishow
       i 5 ne {(, ) show} if
      } for %i=0,5
(]) show
           } if %olvrgb=1

1600 200 add 2900 moveto %xchartl 3 eq {200 sub} if 2900 moveto
TBIS (a*) show
TBL 0 -50 rmoveto
xchartl  0 ge xchartl  3 le and {(a) show} if
xchartl  4 ge xchartl  7 le and {() show} if
xchartl  8 ge xchartl 11 le and {() show} if
xchartl 12 ge xchartl 15 le and {(rgb*) show} if
TBL 0 50 rmoveto
TBS (=) show
xchartl 4 le {
              TBIS (C*) show
              TBL 0 -50 rmoveto (ab,a) show TBL 0 50 rmoveto
             }
             {
              TBIS (c*) show
              TBL 0 -50 rmoveto
              xchartl 4  ge xchartl  7 le and {() show} if
              xchartl 8  ge xchartl 11 le and {() show} if
              xchartl 12 ge xchartl 15 le and {(rgb*) show} if
              TBL 0 50 rmoveto
             } ifelse
TBIS ( cos h) show
0 -50 rmoveto TBL (ab) show 0 50 rmoveto
 

1600 200 add 2600 moveto %xchartl 3 eq {200 sub} if 2600 moveto
TBIS (b*) show
TBL 0 -50 rmoveto
xchartl  0 ge xchartl  3 le and {(a) show} if
xchartl  4 ge xchartl  7 le and {() show} if
xchartl  8 ge xchartl 11 le and {() show} if
xchartl 12 ge xchartl 15 le and {(rgb*) show} if
TBL 0 50 rmoveto
TBS (=) show
xchartl 4 le {
              TBIS (C*) show
              TBL 0 -50 rmoveto (ab,a) show TBL 0 50 rmoveto
             }
             {
              TBIS (c*) show
              TBL 0 -50 rmoveto
              xchartl 4  ge xchartl  7 le and {() show} if
              xchartl 8  ge xchartl 11 le and {() show} if
              xchartl 12 ge xchartl 15 le and {(rgb*) show} if
              TBL 0 50 rmoveto
             } ifelse
TBIS ( sin h) show
0 -50 rmoveto TBL (ab) show 0 50 rmoveto

-400 200 add 3800 moveto %xchartl 11 le {300 add} if 3500 moveto
TBIK (b*) show
TBS 0 -50 rmoveto
xchartl  0 ge xchartl  3 le and {(a) show} if
xchartl  4 ge xchartl  7 le and {() show} if
xchartl  8 ge xchartl 11 le and {() show} if
xchartl 12 ge xchartl 15 le and {(rgb*) show} if
TBS 0 50 rmoveto

1800 xchartl 3 le {700 add } if 1900 moveto
xchartl 4 ge {TBIK (relative ) show} if
TBK
(Buntheit ) showde
(chroma ) showea

2700 1650 moveto
TBIK (a*) show
TBS 0 -50 rmoveto
xchartl  0 ge xchartl  3 le and {(a) show} if
xchartl  4 ge xchartl  7 le and {() show} if
xchartl  8 ge xchartl 11 le and {() show} if
xchartl 12 ge xchartl 15 le and {(rgb*) show} if
TBS 0 50 rmoveto

          
%new shift in middle
0 1500 translate

%axis and scales
1 setgray
-3000 0 moveto 6300  0 rlineto stroke
0 -1880  moveto 0 3600  rlineto stroke
3300 100 sub 50 moveto 100 -50 rlineto
                      -100 -50 rlineto closepath fill
0 50 sub 1800 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill
0 setgray
TS
/xt001 9 array def
/xt001 [(-2,0) () (-1,0) ( ) (  ) () () () () ]def %(  1,0) () (  2,0)] def
/yt001 5 array def
/yt001 [(-1,0 ) () ( ) ( ) (1,0)] def

/xt100 9 array def
/xt100 [(-200) () (-100) ( ) (  ) () (  100) () (  200)] def
/yt100 5 array def
/yt100 [(-100 ) () ( ) ( ) (100)] def

2 1 6 {/i exch def %i=2,6
        -3000   i 750   mul add  -50 moveto 0 100 rlineto stroke
        -3650   i 850   mul add -200   moveto
        xchartl 3 le {xt100} {xt001} ifelse i get show
       } for %i=2,6
      
0 1 4 {/i exch def %i=0,4
       -75 -1500 i 750 mul    add moveto 150 0 rlineto stroke
       100 -1650 i 800 mul    add moveto
       xchartl 3 le {yt100} {yt001} ifelse i get show
       } for %i=0,4
newpath

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

/HUE03_15 0 def

HUE03_15 1 eq {%HUE03_15=1

%For all xchartl=3,7,11,15
%Variable hue series O00Y-O83Y, Y00L-Y83L, L00C-L83C,
%                    C00V-C83V, C00V-C83V, C00V-C83V-O00Y
250 /TimesBI-ISOL1 FS
/fcolor1 1.10 def
/fcolor2 1.20 def

/j729 0 def
0 1 5 {/xtonj exch def %xton=0,5

0 1 7 {/j exch def %i=0,08
       xtonj 0 eq {/j10 648 j729 sub j 09 mul add 10 mul def} if %series O00Y-O83Y, -09
       xtonj 1 eq {/j10 720 j729 sub j 81 mul sub 10 mul def} if %series Y00L-Y83L, -81
       xtonj 2 eq {/j10 072 j729 sub j        add 10 mul def} if %series L00C-L83C, +01
       xtonj 3 eq {/j10 080 j729 sub j 09 mul sub 10 mul def} if %series C00V-C83V, -09
       xtonj 4 eq {/j10 008 j729 sub j 81 mul add 10 mul def} if %series C00V-C83V, -81
       xtonj 5 eq {/j10 656 j729 sub j        sub 10 mul def} if %series C00V-C83V, +01
       LUTL* j LUT j10 0 add get  100 div put 
       LUTA* j LUT j10 1 add get  100 div put
       LUTB* j LUT j10 2 add get  100 div put
       LUTr* j LUT j10 3 add get 1000 div put
       LUTg* j LUT j10 4 add get 1000 div put
       LUTb* j LUT j10 5 add get 1000 div put
       C*ab  j LUTA* j get dup mul
               LUTB* j get dup mul add 0.000001 add sqrt put
       L*    j LUTL* j get put
       LUTc*rgb j 1000 put
      } for %j=0,08

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

/j0 0 def /j1 0 def /j2 8 def /k 0 def
/fakt  30 def
/fakt1  15 def
/fakt2 1500 def

 0 1 7  {/j exch def %j=0,8 %lines
         /ja j0 j add def
         c1*rgb j LUTc*rgb ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt put
         /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         xchartl 3 le {%xchart=3
                       newpath
                       C*ab j get fakt1 mul angleWO cos mul
                       C*ab j get fakt1 mul angleWO sin mul moveto
                       C*ab j get fakt1 mul angleWO cos mul
                       C*ab j get fakt1 mul angleWO sin mul
                       050 0 360 arc fill
                      }
                      {%xchart>=7
                       newpath
                       c1*rgb j get fakt2 mul angleWO cos mul
                       c1*rgb j get fakt2 mul angleWO sin mul moveto
                       c1*rgb j get fakt2 mul angleWO cos mul
                       c1*rgb j get fakt2 mul angleWO sin mul
                       050 0 360 arc fill
                      } ifelse %xchart=3,>=7
        } for %j=0,8

} for %xton=0,5

%END for all xchartl=3,7,11,15

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

%For all xchartl=3,7,11,15
%Constant hue series
250 /TimesBI-ISOL1 FS
/fcolor1 1.10 def
/fcolor2 1.20 def

xcolor 1 le {/j729 729 def}{/j729 729 def} ifelse
0 1 2 {/xtonj exch def %xton=0,2

       xtonj 0 eq {/j1 729 j729 sub         10 mul def} if %series O-C
       xtonj 1 eq {/j1 729 j729 sub 081 add 10 mul def} if %series Y-V
       xtonj 2 eq {/j1 729 j729 sub 162 add 10 mul def} if %series L-M

       0 1 080 {/i exch def %i=0,080
                /i10 j1 i 10 mul add def
                LUTL* i LUT i10 0 add get  100 div put 
                LUTA* i LUT i10 1 add get  100 div put
                LUTB* i LUT i10 2 add get  100 div put
                LUTr* i LUT i10 3 add get 1000 div put
                LUTg* i LUT i10 4 add get 1000 div put
                LUTb* i LUT i10 5 add get 1000 div put
                C*ab  i LUTA* i get dup mul
                        LUTB* i get dup mul add 0.000001 add sqrt put
                L*    i LUTL* i get put
               } for %i=0,080
        
          %       801 737 809 729  882 818 890 810  963 899 971 891
          %       j01 b09 j09 b01  j10 b18 j18 b10  j19 b27 j27 b19
          %       O   C   N1  W1   Y   V   N2  W2   L   M   N3  W3

          xtonj 0 eq {/index [801 737 809 729] def} if %O,C,N1,W1
          xtonj 1 eq {/index [882 818 890 810] def} if %Y,V,N2,W2
          xtonj 2 eq {/index [963 899 971 891] def} if %L,M,N1,W2

          0 1 3 {/i exch def %i=0,3 %standard colours at the end
                 /i10 index i get j729 sub 10 mul def
                 /i81 81 i add def
                 LUTL* i81 LUT i10 0 add get 100 div put
                 LUTA* i81 LUT i10 1 add get 100 div put
                 LUTB* i81 LUT i10 2 add get 100 div put
                 LUTr* i81 LUT i10 3 add get 1000 div put
                 LUTg* i81 LUT i10 4 add get 1000 div put
                 LUTb* i81 LUT i10 5 add get 1000 div put
                 C*ab  i81 LUTA* i81 get dup mul
                           LUTB* i81 get dup mul add 0.000001 add sqrt put
                 L*    i81 LUTL* i81 get put
                } for %i=0,3

          /L*WN LUTL* 84 get LUTL* 83 get sub def

          0 1 084 {/i exch def %i=0,084
                   LUTl*  i LUTL* i get LUTL* 83 get sub 
                            L*WN 0.000001 add div put
                   LUTc1* i C*ab i get C*ab 81 get 0.000001 add div put
                   LUTc2* i C*ab i get C*ab 82 get 0.000001 add div put
                   LUTt1* i LUTl* i get LUTc1* i get 
                            L* 81 get L* 83 get sub L*WN
                            0.000001 add div 0.5 sub mul sub put
                   LUTt2* i LUTl* i get LUTc2* i get
                            L* 82 get L* 83 get sub L*WN
                            0.000001 add div 0.5 sub mul sub put
                   LUTr* i get 0 lt {LUTr* i 0 put} if
                   LUTg* i get 0 lt {LUTg* i 0 put} if
                   LUTb* i get 0 lt {LUTb* i 0 put} if
                   LUTr* i get 1 gt {LUTr* i 1 put} if
                   LUTg* i get 1 gt {LUTg* i 1 put} if
                   LUTb* i get 1 gt {LUTb* i 1 put} if
                   %maximum
                   /max LUTr* i get def %rgb brilliantness
                   LUTg* i get max gt {/max LUTg* i get def} if
                   LUTb* i get max gt {/max LUTb* i get def} if
                   %minimum
                   /min LUTr* i get def %rgb whiteness
                   LUTg* i get min lt {/min LUTg* i get def} if
                   LUTb* i get min lt {/min LUTb* i get def} if         
                   LUTc*rgb i max min sub put %rgb chroma
                   LUTt*rgb i min max min sub 0.5 mul add put %rgb triangle lightness
                  } for %i=0,084

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

/j0 0 def /j1 0 def /j2 8 def /k 0 def
/fakt  30 def
/fakt1  15 def
/fakt2 1500 def

 0 1 8  {/j exch def %j=0,8 %lines
         /ja j0 j 9 mul add def
         c1*rgb j LUTc*rgb ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt put
         /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         xchartl 3 le {%xchart=3
                       C*ab j get fakt1 mul angleWO cos mul
                       C*ab j get fakt1 mul angleWO sin mul
                       050 0 360 arc fill
                       j j2 eq {%j=j2
                                0 0 0 setrgbcolor
                                C*ab j get fakt1 mul angleWO cos mul
                                C*ab j get fakt1 mul angleWO sin mul
                                065 0 360 arc stroke
                                LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                                /xadd1 [ 100 -500 -800 -800 -200  100] def
                                /yadd1 [-100  100 -200 -200 -200 -200] def
                                C*ab j get fakt1 mul fcolor2 mul angleWO cos mul 
                                xadd1 xtonj get add
                                C*ab j get fakt1 mul fcolor2 mul angleWO sin mul
                                yadd1 xtonj get add moveto
                                cname6 xtonj get show Txx ibshow0
                                icolor 1 eq {1 0 0 setrgbcolor
                                             0 0 moveto
                                             C*ab j get fakt1 mul angleWO cos mul
                                             C*ab j get fakt1 mul angleWO sin mul
                                             lineto stroke
                                            } if
                                } if %j=j2
                      }
                      {%xchart>=7
                       c1*rgb j get fakt2 mul angleWO cos mul
                       c1*rgb j get fakt2 mul angleWO sin mul
                       050 0 360 arc fill
                       j j2 eq {%j=j2
                                0 0 0 setrgbcolor
                                c1*rgb j get fakt2 mul angleWO cos mul
                                c1*rgb j get fakt2 mul angleWO sin mul
                                065 0 360 arc stroke
                                LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                                /xadd1 [ 100 -500 -800 -800 -200  100] def
                                /yadd1 [-100  100 -200 -200 -100 -200] def
                                c1*rgb j get fakt2 mul fcolor2 mul angleWO cos mul
                                xadd1 xtonj get add
                                c1*rgb j get fakt2 mul fcolor2 mul angleWO sin mul
                                yadd1 xtonj get add moveto
                                cname6 xtonj get show Txx ibshow0
                                icolor 1 eq {1 0 0 setrgbcolor %icolor=1
                                             0 0 moveto
                                             c1*rgb j get fakt2 mul angleWO cos mul
                                             c1*rgb j get fakt2 mul angleWO sin mul
                                             lineto stroke
                                            } if %icolor=1
                               } if %j=j2
                      } ifelse %xchart=3,>=7
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         j 1 ge {xchartl 3 eq {olvrgb 0 eq {C*ab j 1 sub get fakt1 mul angleWO cos mul
                                            C*ab j 1 sub get fakt1 mul angleWO sin mul moveto
                                            C*ab j       get fakt1 mul angleWO cos mul
                                            C*ab j       get fakt1 mul angleWO sin mul lineto stroke
                                           } if
                              }
                              {c1*rgb  j 1 sub get fakt2 mul angleWO cos mul
                               c1*rgb  j 1 sub get fakt2 mul angleWO sin mul moveto
                               c1*rgb  j       get fakt2 mul angleWO cos mul
                               c1*rgb  j       get fakt2 mul angleWO sin mul lineto stroke
                              } ifelse
                } if
        } for %j=0,8

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

 0 1 8  {/j exch def %j=0,8 %lines
         /ja j0 j add def
         c2*rgb j LUTc*rgb ja get put
         C*ab j LUTA* ja get dup mul
                LUTB* ja get dup mul add sqrt put
         /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         xchartl 3 le {%xchart=3
                       C*ab j get fakt1 mul angleWO cos mul
                       C*ab j get fakt1 mul angleWO sin mul
                       050 0 360 arc fill
                       j j2 eq {%j=j2
                                0 0 0 setrgbcolor
                                C*ab j get fakt1 mul angleWO cos mul
                                C*ab j get fakt1 mul angleWO sin mul
                                065 0 360 arc stroke
                                LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                                /xadd1 [ 100 -500 -800 -800 -200  100] def
                                /yadd1 [-100  100 -200 -200 -100 -200] def
                                C*ab j get fakt1 mul fcolor2 mul angleWO cos mul
                                xadd1 xtonj 3 add get add
                                C*ab j get fakt1 mul fcolor2 mul angleWO sin mul
                                yadd1 xtonj 3 add get add moveto
                                cname6 xtonj 3 add get show Txx ibshow0
                                icolor 1 eq {1 0 0 setrgbcolor
                                             0 0 moveto
                                             C*ab j get fakt1 mul angleWO cos mul
                                             C*ab j get fakt1 mul angleWO sin mul
                                             lineto stroke
                                            } if
                               } if %j=j2
                      }
                      {%xchart=7
                       c2*rgb j get fakt2 mul angleWO cos mul
                       c2*rgb j get fakt2 mul angleWO sin mul
                       050 0 360 arc fill
                       j j2 eq {%j=j2
                                0 0 0 setrgbcolor
                                c2*rgb j get fakt2 mul angleWO cos mul
                                c2*rgb j get fakt2 mul angleWO sin mul
                                065 0 360 arc stroke
                                LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
                                /xadd1 [ 100 -500 -800 -800 -200  100] def
                                /yadd1 [-100  100 -200 -200 -100 -200] def
                                c2*rgb j get fakt2 mul fcolor2 mul angleWO cos mul
                                xadd1 xtonj 3 add get add
                                c2*rgb j get fakt2 mul fcolor2 mul angleWO sin mul
                                yadd1 xtonj 3 add get add moveto
                                cname6 xtonj 3 add get show Txx ibshow0
                                icolor 1 eq {1 0 0 setrgbcolor %icolor=1
                                             0 0 moveto
                                             c2*rgb j get fakt2 mul angleWO cos mul
                                             c2*rgb j get fakt2 mul angleWO sin mul
                                             lineto stroke
                                            } if %icolor=1
                               } if %j=j2
                      } ifelse %xchart=3, %xchart>=7
         LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor
         j 1 ge {xchartl 3 le {C*ab j 1 sub get fakt1 mul angleWO cos mul
                               C*ab j 1 sub get fakt1 mul angleWO sin mul moveto
                               C*ab j       get fakt1 mul angleWO cos mul
                               C*ab j       get fakt1 mul angleWO sin mul lineto stroke
                              }
                              {c2*rgb  j 1 sub get fakt2 mul angleWO cos mul
                               c2*rgb  j 1 sub get fakt2 mul angleWO sin mul moveto
                               c2*rgb  j       get fakt2 mul angleWO cos mul
                               c2*rgb  j       get fakt2 mul angleWO sin mul lineto stroke
                              } ifelse
                } if
        } for %j=00,08

%xtonj=0 %series O-C
%xtonj=1 %series Y-V
%xtonj=2 %series L-M

} for %xton=0,2

%END for all xchartl=3,7,11,15

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

xchartl 3 eq {%xchartl=3 only

%BEG Hexagon
%       801 737 809 729  882 818 890 810  963 899 971 891
%       j01 b09 j09 b01  j10 b18 j18 b10  j19 b27 j27 b19
%       O   C   N1  W1   Y   V   N2  W2   L   M   N3  W3

/fakt1  15 def
/indexX 7 array def
/indexX [801 882 963 737 818 899 801] def
/LUTL*X 7 array def
/LUTA*X 7 array def
/LUTB*X 7 array def

0 setgray
/fcolor1 1.10 def
/fcolor2 1.20 def
250 /TimesBI-ISOL1 FS

/j729 729 def
0 1 6 {/iX exch def %iX=0,6 %hexagon standard colours at the end
       /i10 indexX iX get j729 sub 10 mul def
                    LUTL*X iX LUT i10 0 add get 100 div put
                    LUTA*X iX LUT i10 1 add get 100 div put
                    LUTB*X iX LUT i10 2 add get 100 div put
                    LUTr* iX LUT i10 3 add get 1000 div put
                    LUTg* iX LUT i10 4 add get 1000 div put
                    LUTb* iX LUT i10 5 add get 1000 div put

       iX 5 le {0 0 0 setrgbcolor
                0 0 moveto
                LUTA*X iX get fakt1 mul fcolor1 mul cf1 div
                LUTB*X iX get fakt1 mul fcolor1 mul cf1 div lineto stroke
                /xadd1 [ 100 -500 -800 -800 -200  100] def
                /yadd1 [-100  100 -200 -200 -300 -200] def
                LUTA*X iX get fakt1 mul fcolor2 mul cf1 div xadd1 iX get add
                LUTB*X iX get fakt1 mul fcolor2 mul cf1 div yadd1 iX get add moveto
                xcolor 2 ge {%xcolor>=2
                             0 0 0 setrgbcolor
                             cname_olv00 iX get show
                            } if %xcolor>=2
               } if
       iX 5 le icolor 1 eq and {xcolor 2 ge {0 0 0}{1 0 0} ifelse setrgbcolor
                                0 0 moveto
                                LUTA*X iX get fakt1 mul
                                LUTB*X iX get fakt1 mul lineto stroke
                               } if
                       
       iX 1 ge {0 0 0 setrgbcolor
                LUTA*X iX 1 sub get fakt1 mul cf1 div
                LUTB*X iX 1 sub get fakt1 mul cf1 div moveto
                LUTA*X iX get fakt1 mul cf1 div
                LUTB*X iX get fakt1 mul cf1 div lineto stroke
               } if
       iX 1 ge icolor 1 eq and {1 0 0 setrgbcolor
                                LUTA*X iX 1 sub get fakt1 mul
                                LUTB*X iX 1 sub get fakt1 mul moveto
                                LUTA*X iX get fakt1 mul
                                LUTB*X iX get fakt1 mul lineto stroke
                               } if
      } for  %iX=0,6 %hexagon
      
} if %xchartl=3

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

xchartl 7 ge {%xchart>=7

%circle
icolor 0 eq {0 0 0 setrgbcolor} {1 0 0 setrgbcolor} ifelse
0 1500 moveto
newpath
0 0 1500  0 360 arc stroke

%BEG Hexagon
%       801 737 809 729  882 818 890 810  963 899 971 891
%       j01 b09 j09 b01  j10 b18 j18 b10  j19 b27 j27 b19
%       O   C   N1  W1   Y   V   N2  W2   L   M   N3  W3

/fakt1  15 def
/indexX 7 array def
/indexX [801 882 963 737 818 899 801] def
/LUTL*X 7 array def
/LUTA*X 7 array def
/LUTB*X 7 array def

0 setgray
/fcolor1 1.10 def
/fcolor2 1.20 def
/c1000 1 fakt2 mul def
250 /TimesBI-ISOL1 FS

/j729 729 def
0 1 6 {/iX exch def %iX=0,5 %hexagon standard colours at the end
       /i10 indexX iX get j729 sub 10 mul def
                    
       LUTL*X iX LUT i10 0 add get 100 div put
       LUTA*X iX LUT i10 1 add get 100 div put
       LUTB*X iX LUT i10 2 add get 100 div put
       LUTr* iX LUT i10 3 add get 1000 div put
       LUTg* iX LUT i10 4 add get 1000 div put
       LUTb* iX LUT i10 5 add get 1000 div put
       /angleOLV LUTB*X iX get LUTA*X iX get 0.0001 add atan def

       iX 5 le {0 0 0 setrgbcolor
                0 0 moveto
                c1000 angleOLV cos mul fcolor2 mul 
                c1000 angleOLV sin mul fcolor2 mul 
                lineto stroke
                /xadd1 [ 100 -500 -800 -800 -200  100] def
                /yadd1 [-100  100 -200 -200 -100 -200] def
                c1000 angleOLV cos mul fcolor2 mul xadd1 iX get add
                c1000 angleOLV sin mul fcolor2 mul yadd1 iX get add moveto
                xcolor 2 ge {%xcolor>=2
                             0 0 0 setrgbcolor
                             cname_olv00 iX get show
                            } if %xcolor>=2
               } if
       iX 5 le icolor 1 eq and {xcolor 2 ge {0 0 0}{1 0 0} ifelse setrgbcolor
                                0 0 moveto
                                c1000 angleOLV cos mul fcolor2 mul
                                c1000 angleOLV sin mul fcolor2 mul lineto stroke
                               } if
      } for  %iX=0,6 %hexagon

} if %xchartl>=7

} if %HUE03_15=1

%**********************************************************************
          
          0 1500 neg translate
        } ifelse %xchart #3,7,11,15 or =3,7,11,15

grestore

2600 neg 0300 neg translate

%special space for 'xm03'PROZ0.COM 2x before/after xchartl
  xchartl    0 eq {  100 neg 13000 neg translate} if
  xchartl    1 eq { 6100 neg 13000 neg translate} if
  xchartl    2 eq {  100 neg 08750 neg translate} if
  xchartl    3 eq { 6100 neg 08750 neg translate} if

  xchartl    4 eq {  100 neg  4500 neg translate} if
  xchartl    5 eq { 6100 neg  4500 neg translate} if
  xchartl    6 eq {  100 neg  0250 neg translate} if
  xchartl    7 eq { 6100 neg  0250 neg translate} if

  xchartl    8 eq {13500 neg 13000 neg translate} if
  xchartl    9 eq {19500 neg 13000 neg translate} if
  xchartl   10 eq {13500 neg 08750 neg translate} if
  xchartl   11 eq {19500 neg 08750 neg translate} if

  xchartl   12 eq {13500 neg  4500 neg translate} if
  xchartl   13 eq {19500 neg  4500 neg translate} if
  xchartl   14 eq {13500 neg  0250 neg translate} if
  xchartl   15 eq {19500 neg  0250 neg translate} if

} for % xchartl=0,15

showpage
grestore

%} for %xchart=0,15

grestore

%} for %xcolor=0,1

%%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 SN460-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     (SN460-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 08 MM sub 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 SN461-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     (SN461-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
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 SN461-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     (SN461-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 08 MM sub 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 SN461-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     (SN461-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 SN461-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     (SN461-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 08 MM sub 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 SN461-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     (SN461-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 SN461-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     (SN461-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
161 MM 08 MM sub 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 SN461-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     (SN461-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 SN461-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     (SN461-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 20070101
%%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
/showea {1 lanind le {show} {pop} ifelse} bind def

/lanind1 01 def /lanind2 01 def /lanindd 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def
/pchart1 00 def /pchart2 00 def /pchartd 01 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def} if
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def} if
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 1 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def} if
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def} if
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def} if

/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

/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 0 def
/i*ptrsc 0 def

gsave

0 setgray

1.0 1.0  scale

0.0 MM 0.0 MM translate

0.15 MM setlinewidth

/x 20 array def
/y 20 array def
/d 20 array def

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

colorm 0 eq deintp 0 eq and {/Txx (d) def  /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def  /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart xchart3 lt {/Txx (-) def /Fxx (-) def} if

xchart xchart3 ge {%xchart>=xchart3

/i0 12 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
2.5 MM /Times-ISOL1 FS
x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-F) show pmetam cvishow

} if %xchart>=xchart3

/xt 1 def
xchart 1 eq {/xt 1 def} if

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
2.5 MM /Times-ISOL1 FS
x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto
(http://130.149.60.45/~farbmetrik/SN46/SN46) show
colorm cvishow deintp cvishow
colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF  & ) show
(http://130.149.60.45/~farbmetrik/SN46/SN46) show
colorm cvishow deintp cvishow
colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT  & ) show
(http://130.149.60.45/~farbmetrik/SN46/SN46.HTM) 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
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y 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 {tzccmy0* setcmykcolor} if
         j0 1 eq {0 setgray} if
         j0 2 eq {tzmcmy0* setcmykcolor} if
         j0 3 eq {0 setgray} if
         j0 4 eq {tzycmy0* setcmykcolor} if
         j0 5 eq {0 setgray} if
         j0 6 eq {tzocmy0* setcmykcolor} if
         j0 7 eq {0 setgray} if
         j0 8 eq {tzlcmy0* setcmykcolor} if
         j0 9 eq {0 setgray} if
         j0 10 eq {tzvcmy0* setcmykcolor} 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

x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto
x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke

x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto
x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke

x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto
x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke

x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto
x i3 get MM y i3 get d 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 {tzan j get dup dup 0 setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              tzan j get dup dup 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 {1 tzan j get 1 sub dup dup setrgbcolor %N
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              1 tzan j get sub dup dup setrgbcolor %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 {0 0 0 tzan j get setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              0 0 0 tzan j get setcmykcolor
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=6

i*ptrsc 7 eq {%i*ptrsc=7 w* setgray
              j 16 eq {1 tzan j get sub setgray
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              1 tzan j get sub 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.5 MM  moveto
61 MM 13.5 MM  moveto
(TUB\255Pr\374fvorlage SN46; ) showde                           %0SN46X-Y 0000#
(TUB\255test chart SN46; ) showen                               %1SN46X-Y 0000#
(gr\341fico TUB\255SN46; ) showes                               %2SN46X-Y 0000#
(TUB\255test graphique SN46; ) showfr                           %3SN46X-Y 0000#
(grafico TUB\255SN46; ) showit                                  %4SN46X-Y 0000#
(TUB\255test chart SN46; ) showjp                               %5SN46X-Y 0000#

xchart4 0 eq {%xchart4=0
(Laser\255Drucker L) showde                                     %0SN46X-Y 0100#
(Laser printer L) showea                                        %ASN46X-Y 0100#
             } if %xchart4=0

xchart4 1 eq {() show} if
xchart4 2 eq {() show} if

61 MM 09.5 MM  moveto
xchart4 0 eq {%xchart4=0
12 /Times-ISOL1 FS
(Ausgabe rgbd; LRS16_95; Start- & 3D-linearisiert) showde       %0SN46X-Y 0200#
(output rgbd; LRS16_95; start and 3D-linearized) showea         %ASN46X-Y 0200#
             } if %xchart4=0

xchart4 1 eq {
12 /Times-ISOL1 FS
(Chromatische Pr\374fvorlage) showde                            %0SN46X-Y 0300#
(chromatic test chart) showen                                   %1SN46X-Y 0300#
(test crom\341tico gr\341fico) showes                           %2SN46X-Y 0300#
(chromatic graphique de test) showfr                            %3SN46X-Y 0300#
(prova cromatica grafico) showit                                %4SN46X-Y 0300#
(chromatic test chart) showjp                                   %5SN46X-Y 0300#
12 /TimesI-ISOL1 FS
( RGB) show
             } if

xchart4 2 eq {
12 /Times-ISOL1 FS
(Chromatische Pr\374fvorlage) showde                            %0SN46X-Y 0400#
(chromatic test chart) showen                                   %1SN46X-Y 0400#
(test crom\341tico gr\341fico) showes                           %2SN46X-Y 0400#
(chromatic graphique de test) showfr                            %3SN46X-Y 0400#
(prova cromatica grafico) showit                                %4SN46X-Y 0400#
(chromatic test chart) showjp                                   %5SN46X-Y 0400#
12 /TimesI-ISOL1 FS
( CMY) show
             } if

xchart xchart3 ge {%xchart>=xchart3
12 /Times-ISOL1 FS
(, 3D=) show colorm cvishow
(, de=) show deintp cvishow

12 /TimesI-ISOL1 FS
xchart5f 0 eq {(, sRGB) show} if
xchart5f 1 eq {(, cmyk) show} if
xchart5f 2 eq {(, cmy0)  show} if
xchart5f 3 eq {(, cmyk) show} if
colorm 1 eq {(*) show} if
} if %xchart>=xchart3

12 /Times-ISOL1 FS
165 MM 13 MM moveto
(Eingabe: ) showde                                              %0SN46X-Y 0500#
(input: ) showen                                                %1SN46X-Y 0500#
(entrada: ) showes                                              %2SN46X-Y 0500#
(entr\351e: ) showfr                                            %3SN46X-Y 0500#
(immettere: ) showit                                            %4SN46X-Y 0500#
(input: ) showjp                                                %5SN46X-Y 0500#
12 /TimesI-ISOL1 FS
(w/rgb/cmyk -> ) show
xchart xchart3 lt {(w/rgb/cmyk) show
                  } if
xchart xchart3 ge {%xchart>=xchart3
                   (rgb) show
                  } if %xchart>=xchart3

10 /Times-ISOL1 FS
0 -2 rmoveto Txx show 0 2 rmoveto
12 /Times-ISOL1 FS

12 /Times-ISOL1 FS
165 MM 9 MM moveto
(Ausgabe: ) showde                                              %0SN46X-Y 0600#
(output: ) showen                                               %1SN46X-Y 0600#
(salida: ) showes                                               %2SN46X-Y 0600#
(sortie: ) showfr                                               %3SN46X-Y 0600#
(uscita: ) showit                                               %4SN46X-Y 0600#
(output: ) showjp                                               %5SN46X-Y 0600#

%colorm=0,1!
12 /Times-ISOL1 FS
xchart 0 eq {%xchart=0,#0
             12 /Times-ISOL1 FS
(keine \304nderung) showde                                      %0SN46X-Y 0700#
(no change) showen                                              %1SN46X-Y 0700#
(ning\372n cambio) showes                                       %2SN46X-Y 0700#
(aucun changement) showfr                                       %3SN46X-Y 0700#
(nessun cambiamento) showit                                     %4SN46X-Y 0700#
(no change compared) showjp                                     %5SN46X-Y 0700#
            }%xchart=0

            {%xchart#0
             12 /Times-ISOL1 FS
             colorm 0 eq {%colorm=0
(Transfer nach ) showde                                         %0SN46X-Y 0800#
(transfer to ) showen                                           %1SN46X-Y 0800#
(transfiera a ) showes                                          %2SN46X-Y 0800#
(transf\351rer \340 ) showfr                                    %3SN46X-Y 0800#
(trasferire a ) showit                                          %4SN46X-Y 0800#
(transfer to ) showjp                                           %5SN46X-Y 0800#
                         }%colorm=0
                         {%colorm=1
(3D\255Linearisierung ) showde                                  %0SN46X-Y 0900#
(3D\255linearization to ) showen                                %1SN46X-Y 0900#
(3D\255linealizaci\363n a ) showes                              %2SN46X-Y 0900#
(linearisation 3D selon ) showfr                                %3SN46X-Y 0900#
(3D\255linearizzazione a ) showit                               %4SN46X-Y 0900#
(3D\255linearization to ) showjp                                %5SN46X-Y 0900#
                         } ifelse %colorm=1
12 /TimesI-ISOL1 FS
xchart5f 0 eq {(rgb)  show} if
xchart5f 1 eq {(cmyk) show} if
xchart5f 2 eq {(cmy0) show} if
xchart5f 3 eq {(cmyk) show} if
colorm 1 eq {(*) show} if
10 /Times-ISOL1 FS
0 -2 rmoveto Txx show 0 2 rmoveto
12 /Times-ISOL1 FS
} ifelse %xchart=0,#0

%0 setgray %end white and unvisible

12 /Times-ISOL1 FS

 62 MM 198.5 MM  moveto
(http://130.149.60.45/~farbmetrik/SN46/SN46L) show
(0) show
LSC$ show LEX$ show

%1 setgray %start white and unvisible
(; ) show
xchart 0 eq {
(Start\255Ausgabe) showde                                       %0SN46X-Y 1000#
(start output) showen                                           %1SN46X-Y 1000#
(comience salida) showes                                        %2SN46X-Y 1000#
(sortie de production) showfr                                   %3SN46X-Y 1000#
(cominciare l'uscita) showit                                    %4SN46X-Y 1000#
(start output) showjp                                           %5SN46X-Y 1000#
           } if
LSC$ (C) eq {
(Start\255Ausgabe) showde                                       %0SN46X-Y 1100#
(start output) showen                                           %1SN46X-Y 1100#
(comience salida) showes                                        %2SN46X-Y 1100#
(sortie de production) showfr                                   %3SN46X-Y 1100#
(cominciare l'uscita) showit                                    %4SN46X-Y 1100#
(start output) showjp                                           %5SN46X-Y 1100#
           } if
xchart xchart3 ge {%xchart>=xchart3
colorm 0 eq {%colorm=0,1
(Transfer Ausgabe) showde                                       %0SN46X-Y 1200#
(transfer output) showen                                        %1SN46X-Y 1200#
(salida de transferencia) showes                                %2SN46X-Y 1200#
(sortie de transfert) showfr                                    %3SN46X-Y 1200#
(uscita di trasferimento) showit                                %4SN46X-Y 1200#
(transfer output) showjp                                        %5SN46X-Y 1200#
            }%colorm=0
            {%colorm=1
(3D\255Linearisierung) showde                                   %0SN46X-Y 1300#
(3D\255linearization) showen                                    %1SN46X-Y 1300#
(3D\255linealizaci\363n) showes                                 %2SN46X-Y 1300#
(linearisation 3D) showfr                                       %3SN46X-Y 1300#
(3D\255linearizzzazione) showit                                 %4SN46X-Y 1300#
(3D\255linearization) showjp                                    %5SN46X-Y 1300#
            } ifelse %colorm=0,1
            } if %xchart>=xchart3

 62 MM 194 MM  moveto
LSC$ (N) eq LSC$ (C) eq or {
(N: Keine 3D\255Linearisierung (OL) ) showde                    %0SN46X-Y 1400#
(N: no 3D\255linearization (OL) ) showen                        %1SN46X-Y 1400#
(N: ninguna 3D\255linealizaci\363n (OL) ) showes                %2SN46X-Y 1400#
(N: aucun linearisation 3D (OL) ) showfr                        %3SN46X-Y 1400#
(N: nessun 3D\255linearizzazione (OL) ) showit                  %4SN46X-Y 1400#
(N: no 3D\255linearization (OL) ) showjp                        %5SN46X-Y 1400#

(in Datei (F) oder PS\255Startup (S)) showde                    %0SN46X-Y 1500#
(in file (F) or PS\255startup (S)) showen                       %1SN46X-Y 1500#
(en archivo (F) o PS\255startup (S)) showes                     %2SN46X-Y 1500#
(dans fichier (F) ou PS\255startup (S)) showfr                  %3SN46X-Y 1500#
(nel file (F) o PS\255startup (S)) showit                       %4SN46X-Y 1500#
(in file (F) or PS\255startup (S)) showjp                       %5SN46X-Y 1500#
           }
           {LSC$ show (: ) show
(3D\255Linearisierung) showde                                   %0SN46X-Y 1600#
(3D\255linearization) showen                                    %1SN46X-Y 1600#
(3D\255linealizaci\363n) showes                                 %2SN46X-Y 1600#
(linearisation 3D) showfr                                       %3SN46X-Y 1600#
(3D\255linearizzzazione) showit                                 %4SN46X-Y 1600#
(3D\255linearization) showjp                                    %5SN46X-Y 1600#
( SN46/SN46L) show
LSS$ show LSX$ show (0) show
LSC$ show LEY$ show
          } ifelse
LSC$ (F) eq {
( in Datei (F)) showde                                          %0SN46X-Y 1700#
( in file (F)) showen                                           %1SN46X-Y 1700#
( en archivo (F)) showes                                        %2SN46X-Y 1700#
( dans fichier (F)) showfr                                      %3SN46X-Y 1700#
( nel file (F)) showit                                          %4SN46X-Y 1700#
( in file (F)) showjp                                           %5SN46X-Y 1700#
           } if
LSC$ (S) eq {
( im Distiller Startup (S) Directory) showde                    %0SN46X-Y 1800#
( in Distiller Startup (S) Directory) showen                    %1SN46X-Y 1800#
( en el Distiller Startup (S) Directory) showes                 %2SN46X-Y 1800#
( dans le Distiller Startup (S) Directory) showfr               %3SN46X-Y 1800#
( nel Distiller Startup (S) Directory) showit                   %4SN46X-Y 1800#
( in Distiller Startup (S) Directory) showjp                    %5SN46X-Y 1800#
           } if
LSC$ (D) eq {
( in PS\255Device (D)) showde                                   %0SN46X-Y 1900#
( in PS\255device (D)) showen                                   %1SN46X-Y 1900#
( en el PS\255device (D)) showes                                %2SN46X-Y 1900#
( dans l'appareil PS (D)) showfr                                %3SN46X-Y 1900#
( nel PS\255dispositivo (D)) showit                             %4SN46X-Y 1900#
( in PS\255Device (D)) showjp                                   %5SN46X-Y 1900#
           } if
LSC$ (T) eq {
( im Distiller Startup (S) Directory) showde                    %0SN46X-Y 2000#
( in Distiller Startup (S) Directory) showen                    %1SN46X-Y 2000#
( en el Distiller Startup (S) Directory) showes                 %2SN46X-Y 2000#
( dans le Distiller Startup (S) Directory) showfr               %3SN46X-Y 2000#
( nel Distiller Startup (S) Directory) showit                   %4SN46X-Y 2000#
( in Distiller Startup (S) Directory) showjp                    %5SN46X-Y 2000#
           } if
LSC$ (E) eq {
( in PS\255Device (D)) showde                                   %0SN46X-Y 2100#
( in PS\255device (D)) showen                                   %1SN46X-Y 2100#
( en el PS\255device (D)) showes                                %2SN46X-Y 2100#
( dans appareil PS (D)) showfr                                  %3SN46X-Y 2100#
( nel PS\255dispositivo (D)) showit                             %4SN46X-Y 2100#
( in PS\255Device (D)) showjp                                   %5SN46X-Y 2100#
           } if
%0 setgray %end white and unvisible

(, Seite ) showde                                               %0SN46X-Y 2200#
(, page ) showen                                                %1SN46X-Y 2200#
(, p\341gina ) showes                                           %2SN46X-Y 2200#
(, page ) showfr                                                %3SN46X-Y 2200#
(, pagina ) showit                                              %4SN46X-Y 2200#
(, page ) showjp                                                %5SN46X-Y 2200#
xcolor 1 add cvishow (/) show
2 cvishow

 16 MM 185 MM moveto
-90 rotate
(Siehe \344hnliche Dateien: ) showde                            %0SN46X-Y 2300#
(see similar files: ) showen                                    %1SN46X-Y 2300#
(vea archivos semejantes: ) showes                              %2SN46X-Y 2300#
(voir des fichiers similaires: ) showfr                         %3SN46X-Y 2300#
(vedere dei file simili: ) showit                               %4SN46X-Y 2300#
(see similar files: ) showjp                                    %5SN46X-Y 2300#
(http://130.149.60.45/~farbmetrik/SN46/SN46.HTM) show
%(0) show
%LSC$ show LEX$ show
90 rotate

 12 MM 185 MM moveto
-90 rotate
(Technische Information: ) showde                               %0SN46X-Y 2400#
(technical information: ) showen                                %1SN46X-Y 2400#
(informaci\363n t\351cnica: ) showes                            %2SN46X-Y 2400#
(informations techniques: ) showfr                              %3SN46X-Y 2400#
(informazioni tecniche: ) showit                                %4SN46X-Y 2400#
(technical information: ) showjp                                %5SN46X-Y 2400#
(http://www.ps.bam.de) show
( oder ) showde                                                 %0SN46X-Y 2500#
( or ) showen                                                   %1SN46X-Y 2500#
( o ) showes                                                    %2SN46X-Y 2500#
( ou ) showfr                                                   %3SN46X-Y 2500#
( o ) showit                                                    %4SN46X-Y 2500#
( or ) showjp                                                   %5SN46X-Y 2500#
(http://130.149.60.45/~farbmetrik) show
 90 rotate

281 MM 185 MM moveto
-90 rotate
(TUB\255Registrierung: 20130201\255SN46/SN46L) showde           %0SN46X-Y 2600#
(TUB registration: 20130201\255SN46/SN46L) showen               %1SN46X-Y 2600#
(TUB matr\355cula: 20130201\255SN46/SN46L) showes               %2SN46X-Y 2600#
(TUB enregistrement: 20130201\255SN46/SN46L) showfr             %3SN46X-Y 2600#
(TUB iscrizione: 20130201\255SN46/SN46L) showit                 %4SN46X-Y 2600#
(TUB registration: 20130201\255SN46/SN46L) showjp               %5SN46X-Y 2600#
(0) show
LSC$ show LEX$ show
90 rotate

281 MM 74 MM moveto
-90 rotate
(TUB\255Material: Code=rha4ta) showde                           %0SN46X-Y 2700#
(TUB material: code=rha4ta) showen                              %1SN46X-Y 2700#
(TUB material: code=rha4ta) showes                              %2SN46X-Y 2700#
(TUB mat\351riel: code=rha4ta) showfr                           %3SN46X-Y 2700#
(TUB materiale: code=rha4ta) showit                             %4SN46X-Y 2700#
(TUB material: code=rha4ta) showjp                              %5SN46X-Y 2700#
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 Messung ) showde                             %0SN46X-Y 2800#
( application for measurement ) showen                          %1SN46X-Y 2800#
( aplicaci\363n para la medida ) showes                         %2SN46X-Y 2800#
( application pour la mesure ) showfr                           %3SN46X-Y 2800#
( la domanda per la misura ) showit                             %4SN46X-Y 2800#
( application for measurement ) showjp                          %5SN46X-Y 2800#

xchart5f 0 eq {%xchart5f=0
(von Display-Ausgabe) showde                                    %0SN46X-Y 2900#
(of display output) showen                                      %1SN46X-Y 2900#
(de display output) showes                                      %2SN46X-Y 2900#
(de sortie sur \350cran) showfr                                 %3SN46X-Y 2900#
(di stampa di display) showit                                   %4SN46X-Y 2900#
(of display output) showjp                                      %5SN46X-Y 2900#
} if %xchart5f=0

xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2
(von Offsetdruck\255Ausgabe) showde                             %0SN46X-Y 3000#
(of offset print output) showen                                 %1SN46X-Y 3000#
(salida en la impressi\363n offset) showes                      %2SN46X-Y 3000#
(des sorties sur offset) showfr                                 %3SN46X-Y 3000#
(uscita nella stampa di offset) showit                          %4SN46X-Y 3000#
(of offset print output) showjp                                 %5SN46X-Y 3000#
} if %xchart5f=1,2

xchart5f 3 eq {%xchart5f=3
(von Laserdrucker\255Ausgabe) showde                            %0SN46X-Y 3100#
(of laser printer output) showen                                %1SN46X-Y 3100#
(salida de impresora l\341ser) showes                           %2SN46X-Y 3100#
(des sorties sur imprimante laser) showfr                       %3SN46X-Y 3100#
(di uscita della stampante laser) showit                        %4SN46X-Y 3100#
(of laser printer output) showjp                                %5SN46X-Y 3100#
} if %xchart5f=3

xchart xchart3 ge {%xchart>=xchart3
xchart5f 0 eq {%xchart5f=0
(, keine Separation) showde                                     %0SN46X-Y 3200#
(, no separation) showen                                        %1SN46X-Y 3200#
(, ninguna separaci\363n) showes                                %2SN46X-Y 3200#
(, aucune s\351paration) showfr                                 %3SN46X-Y 3200#
(, nessuna separazione) showit                                  %4SN46X-Y 3200#
(, no separation) showjp                                        %5SN46X-Y 3200#
} if %chart5f=0

xchart5f 1 ge {%xchart5f>=1
(, Separation) showde                                           %0SN46X-Y 3300#
(, separation) showen                                           %1SN46X-Y 3300#
(, separaci\363n) showes                                        %2SN46X-Y 3300#
(, s\351paration) showfr                                        %3SN46X-Y 3300#
(, separazione) showit                                          %4SN46X-Y 3300#
(, separation) showjp                                           %5SN46X-Y 3300#
xchart5f 1 eq xchart5f 3 eq or {(cmyn6) show} if
xchart5f 2 eq                  {(cmy0)  show} if
colorm 1 eq {(*) show} if
colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show
} if %xchart5f>=1

            } if %xchart>=xchart3

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
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke

%/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=1

grestore
gsave

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

%%Trailer

%%EndDocument
EndEPSF grestore gsave

showpage
grestore

%} for %colsepf=0,1

%} for %pchartf=0,0

%} for %xchartf=0,1

} for %xcolorf=0,1

%} for %deintpf=0,1

%} for %colormf=0,1

%} for %lanindf=0,0

%%Trailer