%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/SF61/SF61L00XX.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/SF61/SF61.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->SF61/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->SF61/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201

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

%END SF61/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 03 def /lanind2f 03 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 00 def /xcolordf 01 def
/xchart1f 00 def /xchart2f 03 def /xchartdf 01 def
/xchart3f 04 def /xchart4f 00 def /xchart5f 00 def %04 pages=3+1
/pchart1f 00 def /pchart2f 00 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 %
/xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch 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 SF610-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     (SF610-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 SF610-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     (SF610-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 SF610-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     (SF610-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 SF610-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     (SF610-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 SF610-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     (SF610-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 SF610-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     (SF610-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 02 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 SF610-7N.EPS
%%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/SF61/)
  /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:2013090112000)
  /ModDate (D:2013090112000)
/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
 
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

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

/Times-ISOL1 exch definefont pop

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

/TimesI-ISOL1 exch definefont pop

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

/TimesB-ISOL1 exch definefont pop

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

/TimesBI-ISOL1 exch definefont pop

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

/CourierB-ISOL1 exch definefont pop

/TK {200 /Times-ISOL1 FS} bind def
/TM {270 /Times-ISOL1 FS} bind def
/TG {320 /Times-ISOL1 FS} bind def

/TIK {200 /TimesI-ISOL1 FS} bind def
/TIM {270 /TimesI-ISOL1 FS} bind def
/TIG {320 /TimesI-ISOL1 FS} bind def

/TBK {200 /TimesB-ISOL1 FS} bind def
/TBM {270 /TimesB-ISOL1 FS} bind def
/TBG {320 /TimesB-ISOL1 FS} bind def

/TBIK {200 /TimesBI-ISOL1 FS} bind def
/TBIM {270 /TimesBI-ISOL1 FS} bind def
/TBIG {320 /TimesBI-ISOL1 FS} bind def

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

/TSK {200 /Symbol FS} bind def
/TSM {270 /Symbol FS} bind def
/TSG {320 /Symbol FS} bind def

/xyY0 7560 array def %1080x7
/LAB*TE [(LCED_low_gloss_100828_1)] def
/xyY0 [
%produced with the settings of the LED-LCD (LECD) monitor; full white used
%FILE LMT_1080_100828_1.TXT
%no. r g b x y Y. Apple low glossy display. measurement 1
1 0.00000 0.00000 0.00000 0.3097 0.3049  45.10E-01
2 0.00000 0.00000 0.12549 0.1955 0.1229   6.00E+00
3 0.00000 0.00000 0.25098 0.1711 0.0840   8.03E+00
4 0.00000 0.00000 0.37647 0.1619 0.0697   1.08E+01
5 0.00000 0.00000 0.50196 0.1569 0.0627   1.39E+01
6 0.00000 0.00000 0.62353 0.1545 0.0604   1.65E+01
7 0.00000 0.00000 0.74902 0.1528 0.0584   1.93E+01
8 0.00000 0.00000 0.87451 0.1510 0.0573   2.45E+01
9 0.00000 0.00000 1.00000 0.1494 0.0566   3.13E+01
10 0.00000 0.12549 0.00000 0.2985 0.5380  25.76E+00
11 0.00000 0.12549 0.12549 0.2352 0.3339  27.47E+00
12 0.00000 0.12549 0.25098 0.2028 0.2291  29.58E+00
13 0.00000 0.12549 0.37647 0.1854 0.1721   3.25E+01
14 0.00000 0.12549 0.50196 0.1748 0.1392   3.56E+01
15 0.00000 0.12549 0.62353 0.1698 0.1242   3.81E+01
16 0.00000 0.12549 0.74902 0.1660 0.1125   4.10E+01
17 0.00000 0.12549 0.87451 0.1616 0.1001   4.62E+01
18 0.00000 0.12549 1.00000 0.1578 0.0906   5.32E+01
19 0.00000 0.25098 0.00000 0.2971 0.5810  48.04E+00
20 0.00000 0.25098 0.12549 0.2532 0.4257  49.98E+00
21 0.00000 0.25098 0.25098 0.2227 0.3173  52.18E+00
22 0.00000 0.25098 0.37647 0.2026 0.2459   5.51E+01
23 0.00000 0.25098 0.50196 0.1896 0.2002   5.83E+01
24 0.00000 0.25098 0.62353 0.1831 0.1778   6.09E+01
25 0.00000 0.25098 0.74902 0.1775 0.1595   6.38E+01
26 0.00000 0.25098 0.87451 0.1709 0.1390   6.91E+01
27 0.00000 0.25098 1.00000 0.1657 0.1225   7.63E+01
28 0.00000 0.37647 0.00000 0.2975 0.6013  76.76E+00
29 0.00000 0.37647 0.12549 0.2658 0.4850  78.95E+00
30 0.00000 0.37647 0.25098 0.2391 0.3870  81.25E+00
31 0.00000 0.37647 0.37647 0.2190 0.3123   8.43E+01
32 0.00000 0.37647 0.50196 0.2042 0.2596   8.75E+01
33 0.00000 0.37647 0.62353 0.1966 0.2319   9.00E+01
34 0.00000 0.37647 0.74902 0.1900 0.2086   9.30E+01
35 0.00000 0.37647 0.87451 0.1819 0.1811   9.84E+01
36 0.00000 0.37647 1.00000 0.1749 0.1582  10.59E+01
37 0.00000 0.50196 0.00000 0.2986 0.6088   9.93E+01
38 0.00000 0.50196 0.12549 0.2725 0.5118  10.16E+01
39 0.00000 0.50196 0.25098 0.2483 0.4233  10.40E+01
40 0.00000 0.50196 0.37647 0.2286 0.3501  10.69E+01
41 0.00000 0.50196 0.50196 0.2136 0.2958  11.02E+01
42 0.00000 0.50196 0.62353 0.2053 0.2662  11.28E+01
43 0.00000 0.50196 0.74902 0.1982 0.2403  11.57E+01
44 0.00000 0.50196 0.87451 0.1891 0.2093  12.12E+01
45 0.00000 0.50196 1.00000 0.1814 0.1826  12.88E+01
46 0.00000 0.62353 0.00000 0.2997 0.6137  12.04E+01
47 0.00000 0.62353 0.12549 0.2768 0.5300  12.29E+01
48 0.00000 0.62353 0.25098 0.2547 0.4489  12.53E+01
49 0.00000 0.62353 0.37647 0.2359 0.3785  12.82E+01
50 0.00000 0.62353 0.50196 0.2209 0.3241  13.16E+01
51 0.00000 0.62353 0.62353 0.2125 0.2932  13.41E+01
52 0.00000 0.62353 0.74902 0.2050 0.2663  13.72E+01
53 0.00000 0.62353 0.87451 0.1954 0.2326  14.25E+01
54 0.00000 0.62353 1.00000 0.1870 0.2034  15.03E+01
55 0.00000 0.74902 0.00000 0.3006 0.6185  15.35E+01
56 0.00000 0.74902 0.12549 0.2820 0.5496  15.61E+01
57 0.00000 0.74902 0.25098 0.2629 0.4784  15.85E+01
58 0.00000 0.74902 0.37647 0.2453 0.4129  16.14E+01
59 0.00000 0.74902 0.50196 0.2306 0.3595  16.48E+01
60 0.00000 0.74902 0.62353 0.2221 0.3284  16.74E+01
61 0.00000 0.74902 0.74902 0.2143 0.3003  17.04E+01
62 0.00000 0.74902 0.87451 0.2040 0.2645  17.59E+01
63 0.00000 0.74902 1.00000 0.1948 0.2320  18.36E+01
64 0.00000 0.87451 0.00000 0.3029 0.6223  20.22E+01
65 0.00000 0.87451 0.12549 0.2880 0.5680  20.47E+01
66 0.00000 0.87451 0.25098 0.2716 0.5077  20.71E+01
67 0.00000 0.87451 0.37647 0.2557 0.4493  21.00E+01
68 0.00000 0.87451 0.50196 0.2418 0.3989  21.33E+01
69 0.00000 0.87451 0.62353 0.2334 0.3684  21.59E+01
70 0.00000 0.87451 0.74902 0.2255 0.3400  21.89E+01
71 0.00000 0.87451 0.87451 0.2149 0.3026  22.43E+01
72 0.00000 0.87451 1.00000 0.2049 0.2674  23.20E+01
73 0.00000 1.00000 0.00000 0.3051 0.6255  26.47E+01
74 0.00000 1.00000 0.12549 0.2930 0.5823  26.63E+01
75 0.00000 1.00000 0.25098 0.2795 0.5320  26.82E+01
76 0.00000 1.00000 0.37647 0.2653 0.4809  27.10E+01
77 0.00000 1.00000 0.50196 0.2527 0.4346  27.40E+01
78 0.00000 1.00000 0.62353 0.2445 0.4057  27.65E+01
79 0.00000 1.00000 0.74902 0.2367 0.3781  27.95E+01
80 0.00000 1.00000 0.87451 0.2260 0.3402  28.45E+01
81 0.00000 1.00000 1.00000 0.2154 0.3032  29.14E+01
82 0.12549 0.00000 0.00000 0.5234 0.3247  12.74E+00
83 0.12549 0.00000 0.12549 0.3467 0.1931  14.25E+00
84 0.12549 0.00000 0.25098 0.2680 0.1345  16.31E+00
85 0.12549 0.00000 0.37647 0.2280 0.1052   1.91E+01
86 0.12549 0.00000 0.50196 0.2055 0.0895   2.23E+01
87 0.12549 0.00000 0.62353 0.1953 0.0825   2.48E+01
88 0.12549 0.00000 0.74902 0.1869 0.0774   2.77E+01
89 0.12549 0.00000 0.87451 0.1779 0.0721   3.28E+01
90 0.12549 0.00000 1.00000 0.1707 0.0686   3.96E+01
91 0.12549 0.12549 0.00000 0.4192 0.4693  34.11E+00
92 0.12549 0.12549 0.12549 0.3310 0.3331  35.84E+00
93 0.12549 0.12549 0.25098 0.2743 0.2447  37.98E+00
94 0.12549 0.12549 0.37647 0.2384 0.1897   4.09E+01
95 0.12549 0.12549 0.50196 0.2164 0.1557   4.41E+01
96 0.12549 0.12549 0.62353 0.2053 0.1393   4.66E+01
97 0.12549 0.12549 0.74902 0.1965 0.1261   4.95E+01
98 0.12549 0.12549 0.87451 0.1863 0.1118   5.47E+01
99 0.12549 0.12549 1.00000 0.1778 0.1007   6.16E+01
100 0.12549 0.25098 0.00000 0.3793 0.5245  56.45E+00
101 0.12549 0.25098 0.12549 0.3223 0.4088  58.42E+00
102 0.12549 0.25098 0.25098 0.2783 0.3181  60.65E+00
103 0.12549 0.25098 0.37647 0.2467 0.2531   6.36E+01
104 0.12549 0.25098 0.50196 0.2252 0.2095   6.68E+01
105 0.12549 0.25098 0.62353 0.2143 0.1873   6.94E+01
106 0.12549 0.25098 0.74902 0.2049 0.1691   7.24E+01
107 0.12549 0.25098 0.87451 0.1937 0.1480   7.77E+01
108 0.12549 0.25098 1.00000 0.1845 0.1307   8.47E+01
109 0.12549 0.37647 0.00000 0.3554 0.5581  85.21E+00
110 0.12549 0.37647 0.12549 0.3167 0.4642  87.43E+00
111 0.12549 0.37647 0.25098 0.2823 0.3799  89.77E+00
112 0.12549 0.37647 0.37647 0.2548 0.3127   9.29E+01
113 0.12549 0.37647 0.50196 0.2346 0.2634   9.61E+01
114 0.12549 0.37647 0.62353 0.2233 0.2373   9.88E+01
115 0.12549 0.37647 0.74902 0.2139 0.2145  10.17E+01
116 0.12549 0.37647 0.87451 0.2022 0.1873  10.70E+01
117 0.12549 0.37647 1.00000 0.1921 0.1647  11.44E+01
118 0.12549 0.50196 0.00000 0.3456 0.5731  10.78E+01
119 0.12549 0.50196 0.12549 0.3143 0.4920  11.02E+01
120 0.12549 0.50196 0.25098 0.2851 0.4137  11.26E+01
121 0.12549 0.50196 0.37647 0.2598 0.3473  11.55E+01
122 0.12549 0.50196 0.50196 0.2404 0.2966  11.88E+01
123 0.12549 0.50196 0.62353 0.2296 0.2686  12.14E+01
124 0.12549 0.50196 0.74902 0.2200 0.2442  12.45E+01
125 0.12549 0.50196 0.87451 0.2081 0.2140  12.99E+01
126 0.12549 0.50196 1.00000 0.1975 0.1880  13.73E+01
127 0.12549 0.62353 0.00000 0.3394 0.5825  12.89E+01
128 0.12549 0.62353 0.12549 0.3131 0.5105  13.14E+01
129 0.12549 0.62353 0.25098 0.2870 0.4382  13.39E+01
130 0.12549 0.62353 0.37647 0.2639 0.3737  13.68E+01
131 0.12549 0.62353 0.50196 0.2453 0.3230  14.02E+01
132 0.12549 0.62353 0.62353 0.2347 0.2940  14.28E+01
133 0.12549 0.62353 0.74902 0.2252 0.2684  14.59E+01
134 0.12549 0.62353 0.87451 0.2131 0.2362  15.13E+01
135 0.12549 0.62353 1.00000 0.2023 0.2079  15.89E+01
136 0.12549 0.74902 0.00000 0.3330 0.5925  16.21E+01
137 0.12549 0.74902 0.12549 0.3118 0.5316  16.47E+01
138 0.12549 0.74902 0.25098 0.2897 0.4669  16.71E+01
139 0.12549 0.74902 0.37647 0.2691 0.4065  17.01E+01
140 0.12549 0.74902 0.50196 0.2519 0.3566  17.34E+01
141 0.12549 0.74902 0.62353 0.2416 0.3273  17.61E+01
142 0.12549 0.74902 0.74902 0.2324 0.3006  17.91E+01
143 0.12549 0.74902 0.87451 0.2201 0.2664  18.46E+01
144 0.12549 0.74902 1.00000 0.2089 0.2353  19.22E+01
145 0.12549 0.87451 0.00000 0.3277 0.6021  21.09E+01
146 0.12549 0.87451 0.12549 0.3115 0.5523  21.33E+01
147 0.12549 0.87451 0.25098 0.2932 0.4967  21.58E+01
148 0.12549 0.87451 0.37647 0.2753 0.4420  21.87E+01
149 0.12549 0.87451 0.50196 0.2598 0.3945  22.20E+01
150 0.12549 0.87451 0.62353 0.2501 0.3655  22.46E+01
151 0.12549 0.87451 0.74902 0.2412 0.3386  22.77E+01
152 0.12549 0.87451 0.87451 0.2290 0.3030  23.31E+01
153 0.12549 0.87451 1.00000 0.2176 0.2694  24.06E+01
154 0.12549 1.00000 0.00000 0.3246 0.6092  27.33E+01
155 0.12549 1.00000 0.12549 0.3119 0.5686  27.47E+01
156 0.12549 1.00000 0.25098 0.2970 0.5216  27.68E+01
157 0.12549 1.00000 0.37647 0.2815 0.4731  27.95E+01
158 0.12549 1.00000 0.50196 0.2675 0.4292  28.27E+01
159 0.12549 1.00000 0.62353 0.2586 0.4016  28.52E+01
160 0.12549 1.00000 0.74902 0.2502 0.3752  28.81E+01
161 0.12549 1.00000 0.87451 0.2383 0.3392  29.32E+01
162 0.12549 1.00000 1.00000 0.2266 0.3041  30.00E+01
163 0.25098 0.00000 0.00000 0.5690 0.3289  19.93E+00
164 0.25098 0.00000 0.12549 0.4151 0.2251  21.44E+00
165 0.25098 0.00000 0.25098 0.3253 0.1646  23.52E+00
166 0.25098 0.00000 0.37647 0.2724 0.1298   2.64E+01
167 0.25098 0.00000 0.50196 0.2405 0.1088   2.95E+01
168 0.25098 0.00000 0.62353 0.2255 0.0993   3.20E+01
169 0.25098 0.00000 0.74902 0.2131 0.0918   3.49E+01
170 0.25098 0.00000 0.87451 0.1992 0.0841   4.01E+01
171 0.25098 0.00000 1.00000 0.1880 0.0780   4.67E+01
172 0.25098 0.12549 0.00000 0.4728 0.4389  41.39E+00
173 0.25098 0.12549 0.12549 0.3846 0.3335  43.13E+00
174 0.25098 0.12549 0.25098 0.3203 0.2556  45.28E+00
175 0.25098 0.12549 0.37647 0.2764 0.2028   4.82E+01
176 0.25098 0.12549 0.50196 0.2474 0.1682   5.14E+01
177 0.25098 0.12549 0.62353 0.2325 0.1510   5.39E+01
178 0.25098 0.12549 0.74902 0.2202 0.1372   5.69E+01
179 0.25098 0.12549 0.87451 0.2061 0.1212   6.20E+01
180 0.25098 0.12549 1.00000 0.1941 0.1089   6.90E+01
181 0.25098 0.25098 0.00000 0.4251 0.4930  63.75E+00
182 0.25098 0.25098 0.12549 0.3658 0.3990  65.73E+00
183 0.25098 0.25098 0.25098 0.3164 0.3197  67.98E+00
184 0.25098 0.25098 0.37647 0.2789 0.2595   7.10E+01
185 0.25098 0.25098 0.50196 0.2525 0.2173   7.42E+01
186 0.25098 0.25098 0.62353 0.2385 0.1955   7.68E+01
187 0.25098 0.25098 0.74902 0.2264 0.1769   7.97E+01
188 0.25098 0.25098 0.87451 0.2119 0.1553   8.50E+01
189 0.25098 0.25098 1.00000 0.1997 0.1375   9.21E+01
190 0.25098 0.37647 0.00000 0.3930 0.5303   9.27E+01
191 0.25098 0.37647 0.12549 0.3519 0.4506   9.49E+01
192 0.25098 0.37647 0.25098 0.3135 0.3761   9.73E+01
193 0.25098 0.37647 0.37647 0.2817 0.3140  10.02E+01
194 0.25098 0.37647 0.50196 0.2580 0.2673  10.35E+01
195 0.25098 0.37647 0.62353 0.2446 0.2419  10.61E+01
196 0.25098 0.37647 0.74902 0.2332 0.2197  10.91E+01
197 0.25098 0.37647 0.87451 0.2188 0.1927  11.44E+01
198 0.25098 0.37647 1.00000 0.2062 0.1699  12.17E+01
199 0.25098 0.50196 0.00000 0.3776 0.5481  11.51E+01
200 0.25098 0.50196 0.12549 0.3442 0.4779  11.76E+01
201 0.25098 0.50196 0.25098 0.3122 0.4076  12.00E+01
202 0.25098 0.50196 0.37647 0.2840 0.3463  12.29E+01
203 0.25098 0.50196 0.50196 0.2618 0.2984  12.62E+01
204 0.25098 0.50196 0.62353 0.2491 0.2714  12.88E+01
205 0.25098 0.50196 0.74902 0.2376 0.2476  13.18E+01
206 0.25098 0.50196 0.87451 0.2235 0.2181  13.72E+01
207 0.25098 0.50196 1.00000 0.2108 0.1923  14.47E+01
208 0.25098 0.62353 0.00000 0.3673 0.5604  13.64E+01
209 0.25098 0.62353 0.12549 0.3395 0.4970  13.89E+01
210 0.25098 0.62353 0.25098 0.3113 0.4312  14.13E+01
211 0.25098 0.62353 0.37647 0.2855 0.3713  14.42E+01
212 0.25098 0.62353 0.50196 0.2647 0.3234  14.76E+01
213 0.25098 0.62353 0.62353 0.2527 0.2956  15.02E+01
214 0.25098 0.62353 0.74902 0.2417 0.2708  15.33E+01
215 0.25098 0.62353 0.87451 0.2276 0.2392  15.86E+01
216 0.25098 0.62353 1.00000 0.2148 0.2115  16.63E+01
217 0.25098 0.74902 0.00000 0.3565 0.5738  16.95E+01
218 0.25098 0.74902 0.12549 0.3343 0.5188  17.21E+01
219 0.25098 0.74902 0.25098 0.3105 0.4592  17.45E+01
220 0.25098 0.74902 0.37647 0.2881 0.4027  17.75E+01
221 0.25098 0.74902 0.50196 0.2690 0.3554  18.09E+01
222 0.25098 0.74902 0.62353 0.2577 0.3274  18.36E+01
223 0.25098 0.74902 0.74902 0.2472 0.3016  18.66E+01
224 0.25098 0.74902 0.87451 0.2334 0.2682  19.19E+01
225 0.25098 0.74902 1.00000 0.2206 0.2380  19.96E+01
226 0.25098 0.87451 0.00000 0.3469 0.5864  21.82E+01
227 0.25098 0.87451 0.12549 0.3298 0.5404  22.07E+01
228 0.25098 0.87451 0.25098 0.3105 0.4887  22.32E+01
229 0.25098 0.87451 0.37647 0.2913 0.4371  22.61E+01
230 0.25098 0.87451 0.50196 0.2743 0.3920  22.95E+01
231 0.25098 0.87451 0.62353 0.2640 0.3642  23.21E+01
232 0.25098 0.87451 0.74902 0.2541 0.3383  23.51E+01
233 0.25098 0.87451 0.87451 0.2407 0.3037  24.05E+01
234 0.25098 0.87451 1.00000 0.2280 0.2711  24.81E+01
235 0.25098 1.00000 0.00000 0.3401 0.5963  28.07E+01
236 0.25098 1.00000 0.12549 0.3269 0.5584  28.22E+01
237 0.25098 1.00000 0.25098 0.3112 0.5138  28.42E+01
238 0.25098 1.00000 0.37647 0.2949 0.4678  28.70E+01
239 0.25098 1.00000 0.50196 0.2800 0.4258  29.02E+01
240 0.25098 1.00000 0.62353 0.2704 0.3993  29.27E+01
241 0.25098 1.00000 0.74902 0.2613 0.3739  29.56E+01
242 0.25098 1.00000 0.87451 0.2486 0.3389  30.07E+01
243 0.25098 1.00000 1.00000 0.2359 0.3048  30.75E+01
244 0.37647 0.00000 0.00000 0.5902 0.3307  26.72E+00
245 0.37647 0.00000 0.12549 0.4566 0.2444  28.24E+00
246 0.37647 0.00000 0.25098 0.3658 0.1858  30.33E+00
247 0.37647 0.00000 0.37647 0.3068 0.1483   3.32E+01
248 0.37647 0.00000 0.50196 0.2692 0.1245   3.63E+01
249 0.37647 0.00000 0.62353 0.2506 0.1133   3.89E+01
250 0.37647 0.00000 0.74902 0.2353 0.1043   4.18E+01
251 0.37647 0.00000 0.87451 0.2176 0.0943   4.69E+01
252 0.37647 0.00000 1.00000 0.2032 0.0864   5.35E+01
253 0.37647 0.12549 0.00000 0.5050 0.4206  48.27E+00
254 0.37647 0.12549 0.12549 0.4213 0.3337  50.02E+00
255 0.37647 0.12549 0.25098 0.3546 0.2638  52.18E+00
256 0.37647 0.12549 0.37647 0.3061 0.2134   5.52E+01
257 0.37647 0.12549 0.50196 0.2727 0.1786   5.83E+01
258 0.37647 0.12549 0.62353 0.2553 0.1611   6.09E+01
259 0.37647 0.12549 0.74902 0.2406 0.1465   6.38E+01
260 0.37647 0.12549 0.87451 0.2232 0.1296   6.90E+01
261 0.37647 0.12549 1.00000 0.2086 0.1160   7.59E+01
262 0.37647 0.25098 0.00000 0.4563 0.4717  70.67E+00
263 0.37647 0.25098 0.12549 0.3976 0.3920  72.64E+00
264 0.37647 0.25098 0.25098 0.3459 0.3210  74.91E+00
265 0.37647 0.25098 0.37647 0.3049 0.2649   7.80E+01
266 0.37647 0.25098 0.50196 0.2750 0.2239   8.11E+01
267 0.37647 0.25098 0.62353 0.2589 0.2024   8.38E+01
268 0.37647 0.25098 0.74902 0.2450 0.1839   8.67E+01
269 0.37647 0.25098 0.87451 0.2279 0.1619   9.20E+01
270 0.37647 0.25098 1.00000 0.2133 0.1435   9.91E+01
271 0.37647 0.37647 0.00000 0.4197 0.5102   9.97E+01
272 0.37647 0.37647 0.12549 0.3785 0.4407  10.19E+01
273 0.37647 0.37647 0.25098 0.3381 0.3732  10.43E+01
274 0.37647 0.37647 0.37647 0.3041 0.3153  10.72E+01
275 0.37647 0.37647 0.50196 0.2778 0.2705  11.04E+01
276 0.37647 0.37647 0.62353 0.2629 0.2458  11.30E+01
277 0.37647 0.37647 0.74902 0.2498 0.2243  11.61E+01
278 0.37647 0.37647 0.87451 0.2334 0.1976  12.14E+01
279 0.37647 0.37647 1.00000 0.2187 0.1746  12.87E+01
280 0.37647 0.50196 0.00000 0.4020 0.5295  12.21E+01
281 0.37647 0.50196 0.12549 0.3682 0.4668  12.45E+01
282 0.37647 0.50196 0.25098 0.3345 0.4027  12.69E+01
283 0.37647 0.50196 0.37647 0.3040 0.3455  12.98E+01
284 0.37647 0.50196 0.50196 0.2797 0.3000  13.32E+01
285 0.37647 0.50196 0.62353 0.2657 0.2740  13.58E+01
286 0.37647 0.50196 0.74902 0.2531 0.2509  13.89E+01
287 0.37647 0.50196 0.87451 0.2370 0.2218  14.43E+01
288 0.37647 0.50196 1.00000 0.2226 0.1962  15.17E+01
289 0.37647 0.62353 0.00000 0.3897 0.5432  14.33E+01
290 0.37647 0.62353 0.12549 0.3611 0.4857  14.58E+01
291 0.37647 0.62353 0.25098 0.3314 0.4253  14.82E+01
292 0.37647 0.62353 0.37647 0.3041 0.3693  15.12E+01
293 0.37647 0.62353 0.50196 0.2814 0.3237  15.46E+01
294 0.37647 0.62353 0.62353 0.2683 0.2970  15.72E+01
295 0.37647 0.62353 0.74902 0.2561 0.2728  16.02E+01
296 0.37647 0.62353 0.87451 0.2404 0.2423  16.57E+01
297 0.37647 0.62353 1.00000 0.2261 0.2146  17.32E+01
298 0.37647 0.74902 0.00000 0.3759 0.5582  17.64E+01
299 0.37647 0.74902 0.12549 0.3529 0.5081  17.91E+01
300 0.37647 0.74902 0.25098 0.3283 0.4527  18.15E+01
301 0.37647 0.74902 0.37647 0.3043 0.3994  18.44E+01
302 0.37647 0.74902 0.50196 0.2839 0.3545  18.79E+01
303 0.37647 0.74902 0.62353 0.2716 0.3275  19.05E+01
304 0.37647 0.74902 0.74902 0.2602 0.3026  19.35E+01
305 0.37647 0.74902 0.87451 0.2451 0.2702  19.90E+01
306 0.37647 0.74902 1.00000 0.2309 0.2404  20.66E+01
307 0.37647 0.87451 0.00000 0.3630 0.5733  22.52E+01
308 0.37647 0.87451 0.12549 0.3452 0.5308  22.77E+01
309 0.37647 0.87451 0.25098 0.3252 0.4819  23.01E+01
310 0.37647 0.87451 0.37647 0.3050 0.4330  23.31E+01
311 0.37647 0.87451 0.50196 0.2872 0.3899  23.65E+01
312 0.37647 0.87451 0.62353 0.2761 0.3633  23.91E+01
313 0.37647 0.87451 0.74902 0.2656 0.3380  24.21E+01
314 0.37647 0.87451 0.87451 0.2513 0.3044  24.75E+01
315 0.37647 0.87451 1.00000 0.2374 0.2726  25.51E+01
316 0.37647 1.00000 0.00000 0.3533 0.5854  28.76E+01
317 0.37647 1.00000 0.12549 0.3395 0.5495  28.92E+01
318 0.37647 1.00000 0.25098 0.3235 0.5072  29.13E+01
319 0.37647 1.00000 0.37647 0.3066 0.4633  29.39E+01
320 0.37647 1.00000 0.50196 0.2909 0.4230  29.72E+01
321 0.37647 1.00000 0.62353 0.2809 0.3974  29.96E+01
322 0.37647 1.00000 0.74902 0.2713 0.3728  30.26E+01
323 0.37647 1.00000 0.87451 0.2578 0.3388  30.77E+01
324 0.37647 1.00000 1.00000 0.2445 0.3054  31.44E+01
325 0.50196 0.00000 0.00000 0.6010 0.3317  32.27E+00
326 0.50196 0.00000 0.12549 0.4812 0.2558  33.79E+00
327 0.50196 0.00000 0.25098 0.3921 0.1995  35.89E+00
328 0.50196 0.00000 0.37647 0.3303 0.1612   3.88E+01
329 0.50196 0.00000 0.50196 0.2898 0.1358   4.19E+01
330 0.50196 0.00000 0.62353 0.2690 0.1234   4.44E+01
331 0.50196 0.00000 0.74902 0.2520 0.1133   4.73E+01
332 0.50196 0.00000 0.87451 0.2317 0.1019   5.24E+01
333 0.50196 0.00000 1.00000 0.2149 0.0930   5.91E+01
334 0.50196 0.12549 0.00000 0.5238 0.4100  53.88E+00
335 0.50196 0.12549 0.12549 0.4444 0.3340  55.64E+00
336 0.50196 0.12549 0.25098 0.3777 0.2694  57.80E+00
337 0.50196 0.12549 0.37647 0.3272 0.2204   6.07E+01
338 0.50196 0.12549 0.50196 0.2909 0.1864   6.40E+01
339 0.50196 0.12549 0.62353 0.2720 0.1684   6.65E+01
340 0.50196 0.12549 0.74902 0.2559 0.1533   6.94E+01
341 0.50196 0.12549 0.87451 0.2363 0.1358   7.46E+01
342 0.50196 0.12549 1.00000 0.2197 0.1215   8.15E+01
343 0.50196 0.25098 0.00000 0.4761 0.4581  76.30E+00
344 0.50196 0.25098 0.12549 0.4186 0.3874  78.28E+00
345 0.50196 0.25098 0.25098 0.3663 0.3219  80.55E+00
346 0.50196 0.25098 0.37647 0.3238 0.2686   8.36E+01
347 0.50196 0.25098 0.50196 0.2916 0.2288   8.68E+01
348 0.50196 0.25098 0.62353 0.2741 0.2075   8.94E+01
349 0.50196 0.25098 0.74902 0.2587 0.1891   9.24E+01
350 0.50196 0.25098 0.87451 0.2401 0.1666   9.75E+01
351 0.50196 0.25098 1.00000 0.2236 0.1480  10.47E+01
352 0.50196 0.37647 0.00000 0.4387 0.4962  10.53E+01
353 0.50196 0.37647 0.12549 0.3969 0.4336  10.75E+01
354 0.50196 0.37647 0.25098 0.3558 0.3710  11.00E+01
355 0.50196 0.37647 0.37647 0.3204 0.3160  11.28E+01
356 0.50196 0.37647 0.50196 0.2925 0.2730  11.61E+01
357 0.50196 0.37647 0.62353 0.2766 0.2489  11.87E+01
358 0.50196 0.37647 0.74902 0.2623 0.2277  12.18E+01
359 0.50196 0.37647 0.87451 0.2443 0.2013  12.71E+01
360 0.50196 0.37647 1.00000 0.2284 0.1782  13.44E+01
361 0.50196 0.50196 0.00000 0.4188 0.5166  12.78E+01
362 0.50196 0.50196 0.12549 0.3850 0.4591  13.02E+01
363 0.50196 0.50196 0.25098 0.3505 0.3993  13.26E+01
364 0.50196 0.50196 0.37647 0.3187 0.3452  13.56E+01
365 0.50196 0.50196 0.50196 0.2933 0.3013  13.89E+01
366 0.50196 0.50196 0.62353 0.2783 0.2760  14.15E+01
367 0.50196 0.50196 0.74902 0.2648 0.2534  14.46E+01
368 0.50196 0.50196 0.87451 0.2475 0.2246  14.99E+01
369 0.50196 0.50196 1.00000 0.2317 0.1992  15.74E+01
370 0.50196 0.62353 0.00000 0.4054 0.5308  14.90E+01
371 0.50196 0.62353 0.12549 0.3764 0.4776  15.15E+01
372 0.50196 0.62353 0.25098 0.3460 0.4212  15.40E+01
373 0.50196 0.62353 0.37647 0.3176 0.3681  15.69E+01
374 0.50196 0.62353 0.50196 0.2941 0.3240  16.03E+01
375 0.50196 0.62353 0.62353 0.2800 0.2981  16.29E+01
376 0.50196 0.62353 0.74902 0.2671 0.2746  16.59E+01
377 0.50196 0.62353 0.87451 0.2503 0.2443  17.13E+01
378 0.50196 0.62353 1.00000 0.2348 0.2172  17.90E+01
379 0.50196 0.74902 0.00000 0.3900 0.5472  18.21E+01
380 0.50196 0.74902 0.12549 0.3665 0.5000  18.47E+01
381 0.50196 0.74902 0.25098 0.3412 0.4480  18.72E+01
382 0.50196 0.74902 0.37647 0.3165 0.3973  19.02E+01
383 0.50196 0.74902 0.50196 0.2952 0.3537  19.35E+01
384 0.50196 0.74902 0.62353 0.2824 0.3276  19.62E+01
385 0.50196 0.74902 0.74902 0.2702 0.3034  19.93E+01
386 0.50196 0.74902 0.87451 0.2542 0.2715  20.46E+01
387 0.50196 0.74902 1.00000 0.2390 0.2422  21.23E+01
388 0.50196 0.87451 0.00000 0.3750 0.5637  23.09E+01
389 0.50196 0.87451 0.12549 0.3569 0.5232  23.34E+01
390 0.50196 0.87451 0.25098 0.3364 0.4767  23.58E+01
391 0.50196 0.87451 0.37647 0.3156 0.4300  23.88E+01
392 0.50196 0.87451 0.50196 0.2971 0.3882  24.21E+01
393 0.50196 0.87451 0.62353 0.2854 0.3624  24.48E+01
394 0.50196 0.87451 0.74902 0.2744 0.3379  24.78E+01
395 0.50196 0.87451 0.87451 0.2593 0.3050  25.32E+01
396 0.50196 0.87451 1.00000 0.2448 0.2737  26.08E+01
397 0.50196 1.00000 0.00000 0.3634 0.5770  29.33E+01
398 0.50196 1.00000 0.12549 0.3494 0.5429  29.49E+01
399 0.50196 1.00000 0.25098 0.3330 0.5023  29.70E+01
400 0.50196 1.00000 0.37647 0.3155 0.4599  29.97E+01
401 0.50196 1.00000 0.50196 0.2994 0.4208  30.29E+01
402 0.50196 1.00000 0.62353 0.2891 0.3959  30.54E+01
403 0.50196 1.00000 0.74902 0.2790 0.3718  30.82E+01
404 0.50196 1.00000 0.87451 0.2651 0.3387  31.34E+01
405 0.50196 1.00000 1.00000 0.2511 0.3058  32.01E+01
406 0.62353 0.00000 0.00000 0.6093 0.3325  38.17E+00
407 0.62353 0.00000 0.12549 0.5015 0.2652  39.70E+00
408 0.62353 0.00000 0.25098 0.4153 0.2116  41.81E+00
409 0.62353 0.00000 0.37647 0.3524 0.1729   4.47E+01
410 0.62353 0.00000 0.50196 0.3093 0.1465   4.78E+01
411 0.62353 0.00000 0.62353 0.2868 0.1332   5.03E+01
412 0.62353 0.00000 0.74902 0.2681 0.1222   5.32E+01
413 0.62353 0.00000 0.87451 0.2456 0.1098   5.84E+01
414 0.62353 0.00000 1.00000 0.2268 0.0995   6.50E+01
415 0.62353 0.12549 0.00000 0.5393 0.4014  59.83E+00
416 0.62353 0.12549 0.12549 0.4645 0.3341  61.59E+00
417 0.62353 0.12549 0.25098 0.3987 0.2744  63.77E+00
418 0.62353 0.12549 0.37647 0.3467 0.2274   6.67E+01
419 0.62353 0.12549 0.50196 0.3088 0.1934   6.99E+01
420 0.62353 0.12549 0.62353 0.2883 0.1754   7.24E+01
421 0.62353 0.12549 0.74902 0.2710 0.1600   7.53E+01
422 0.62353 0.12549 0.87451 0.2493 0.1421   8.06E+01
423 0.62353 0.12549 1.00000 0.2309 0.1269   8.74E+01
424 0.62353 0.25098 0.00000 0.4935 0.4464   8.24E+01
425 0.62353 0.25098 0.12549 0.4378 0.3833   8.44E+01
426 0.62353 0.25098 0.25098 0.3852 0.3230   8.67E+01
427 0.62353 0.25098 0.37647 0.3413 0.2721   8.96E+01
428 0.62353 0.25098 0.50196 0.3077 0.2336   9.28E+01
429 0.62353 0.25098 0.62353 0.2889 0.2125   9.54E+01
430 0.62353 0.25098 0.74902 0.2727 0.1941   9.83E+01
431 0.62353 0.25098 0.87451 0.2523 0.1717  10.36E+01
432 0.62353 0.25098 1.00000 0.2342 0.1526  11.06E+01
433 0.62353 0.37647 0.00000 0.4552 0.4839  11.13E+01
434 0.62353 0.37647 0.12549 0.4139 0.4271  11.36E+01
435 0.62353 0.37647 0.25098 0.3729 0.3688  11.59E+01
436 0.62353 0.37647 0.37647 0.3363 0.3168  11.88E+01
437 0.62353 0.37647 0.50196 0.3069 0.2755  12.21E+01
438 0.62353 0.37647 0.62353 0.2901 0.2519  12.47E+01
439 0.62353 0.37647 0.74902 0.2748 0.2310  12.77E+01
440 0.62353 0.37647 0.87451 0.2556 0.2048  13.30E+01
441 0.62353 0.37647 1.00000 0.2382 0.1819  14.04E+01
442 0.62353 0.50196 0.00000 0.4349 0.5043  13.37E+01
443 0.62353 0.50196 0.12549 0.4011 0.4516  13.61E+01
444 0.62353 0.50196 0.25098 0.3658 0.3961  13.86E+01
445 0.62353 0.50196 0.37647 0.3334 0.3446  14.15E+01
446 0.62353 0.50196 0.50196 0.3065 0.3025  14.49E+01
447 0.62353 0.50196 0.62353 0.2909 0.2777  14.74E+01
448 0.62353 0.50196 0.74902 0.2766 0.2557  15.05E+01
449 0.62353 0.50196 0.87451 0.2581 0.2275  15.59E+01
450 0.62353 0.50196 1.00000 0.2410 0.2023  16.34E+01
451 0.62353 0.62353 0.00000 0.4203 0.5191  15.50E+01
452 0.62353 0.62353 0.12549 0.3913 0.4701  15.74E+01
453 0.62353 0.62353 0.25098 0.3603 0.4172  15.99E+01
454 0.62353 0.62353 0.37647 0.3311 0.3666  16.29E+01
455 0.62353 0.62353 0.50196 0.3063 0.3243  16.62E+01
456 0.62353 0.62353 0.62353 0.2916 0.2993  16.89E+01
457 0.62353 0.62353 0.74902 0.2780 0.2763  17.19E+01
458 0.62353 0.62353 0.87451 0.2602 0.2467  17.74E+01
459 0.62353 0.62353 1.00000 0.2437 0.2197  18.49E+01
460 0.62353 0.74902 0.00000 0.4035 0.5364  18.81E+01
461 0.62353 0.74902 0.12549 0.3796 0.4925  19.07E+01
462 0.62353 0.74902 0.25098 0.3540 0.4432  19.32E+01
463 0.62353 0.74902 0.37647 0.3286 0.3949  19.61E+01
464 0.62353 0.74902 0.50196 0.3064 0.3531  19.96E+01
465 0.62353 0.74902 0.62353 0.2930 0.3278  20.22E+01
466 0.62353 0.74902 0.74902 0.2803 0.3042  20.53E+01
467 0.62353 0.74902 0.87451 0.2634 0.2730  21.07E+01
468 0.62353 0.74902 1.00000 0.2473 0.2441  21.83E+01
469 0.62353 0.87451 0.00000 0.3867 0.5542  23.69E+01
470 0.62353 0.87451 0.12549 0.3682 0.5161  23.94E+01
471 0.62353 0.87451 0.25098 0.3475 0.4718  24.18E+01
472 0.62353 0.87451 0.37647 0.3261 0.4269  24.48E+01
473 0.62353 0.87451 0.50196 0.3069 0.3867  24.81E+01
474 0.62353 0.87451 0.62353 0.2948 0.3616  25.08E+01
475 0.62353 0.87451 0.74902 0.2834 0.3378  25.38E+01
476 0.62353 0.87451 0.87451 0.2676 0.3056  25.92E+01
477 0.62353 0.87451 1.00000 0.2523 0.2749  26.68E+01
478 0.62353 1.00000 0.00000 0.3732 0.5690  29.94E+01
479 0.62353 1.00000 0.12549 0.3591 0.5363  30.09E+01
480 0.62353 1.00000 0.25098 0.3424 0.4973  30.30E+01
481 0.62353 1.00000 0.37647 0.3246 0.4564  30.57E+01
482 0.62353 1.00000 0.50196 0.3079 0.4187  30.89E+01
483 0.62353 1.00000 0.62353 0.2973 0.3944  31.14E+01
484 0.62353 1.00000 0.74902 0.2870 0.3710  31.43E+01
485 0.62353 1.00000 0.87451 0.2725 0.3385  31.94E+01
486 0.62353 1.00000 1.00000 0.2579 0.3063  32.61E+01
487 0.74902 0.00000 0.00000 0.6186 0.3334  47.84E+00
488 0.74902 0.00000 0.12549 0.5262 0.2767  49.38E+00
489 0.74902 0.00000 0.25098 0.4458 0.2278   5.17E+01
490 0.74902 0.00000 0.37647 0.3829 0.1890   5.43E+01
491 0.74902 0.00000 0.50196 0.3372 0.1618   5.75E+01
492 0.74902 0.00000 0.62353 0.3129 0.1475   6.00E+01
493 0.74902 0.00000 0.74902 0.2920 0.1354   6.29E+01
494 0.74902 0.00000 0.87451 0.2666 0.1213   6.80E+01
495 0.74902 0.00000 1.00000 0.2449 0.1095   7.47E+01
496 0.74902 0.12549 0.00000 0.5584 0.3911   6.97E+01
497 0.74902 0.12549 0.12549 0.4902 0.3347   7.15E+01
498 0.74902 0.12549 0.25098 0.4270 0.2813   7.36E+01
499 0.74902 0.12549 0.37647 0.3742 0.2370   7.64E+01
500 0.74902 0.12549 0.50196 0.3343 0.2039   7.96E+01
501 0.74902 0.12549 0.62353 0.3121 0.1859   8.22E+01
502 0.74902 0.12549 0.74902 0.2927 0.1705   8.52E+01
503 0.74902 0.12549 0.87451 0.2689 0.1514   9.03E+01
504 0.74902 0.12549 1.00000 0.2480 0.1353   9.71E+01
505 0.74902 0.25098 0.00000 0.5152 0.4319   9.22E+01
506 0.74902 0.25098 0.12549 0.4631 0.3776   9.41E+01
507 0.74902 0.25098 0.25098 0.4116 0.3241   9.64E+01
508 0.74902 0.25098 0.37647 0.3665 0.2771   9.93E+01
509 0.74902 0.25098 0.50196 0.3312 0.2405  10.26E+01
510 0.74902 0.25098 0.62353 0.3112 0.2198  10.51E+01
511 0.74902 0.25098 0.74902 0.2932 0.2017  10.81E+01
512 0.74902 0.25098 0.87451 0.2706 0.1792  11.33E+01
513 0.74902 0.25098 1.00000 0.2504 0.1597  12.04E+01
514 0.74902 0.37647 0.00000 0.4772 0.4679  12.11E+01
515 0.74902 0.37647 0.12549 0.4376 0.4180  12.33E+01
516 0.74902 0.37647 0.25098 0.3967 0.3659  12.56E+01
517 0.74902 0.37647 0.37647 0.3587 0.3182  12.86E+01
518 0.74902 0.37647 0.50196 0.3282 0.2791  13.19E+01
519 0.74902 0.37647 0.62353 0.3101 0.2565  13.45E+01
520 0.74902 0.37647 0.74902 0.2938 0.2362  13.75E+01
521 0.74902 0.37647 0.87451 0.2725 0.2105  14.29E+01
522 0.74902 0.37647 1.00000 0.2533 0.1875  15.02E+01
523 0.74902 0.50196 0.00000 0.4565 0.4881  14.35E+01
524 0.74902 0.50196 0.12549 0.4231 0.4416  14.59E+01
525 0.74902 0.50196 0.25098 0.3880 0.3914  14.83E+01
526 0.74902 0.50196 0.37647 0.3543 0.3440  15.13E+01
527 0.74902 0.50196 0.50196 0.3263 0.3043  15.47E+01
528 0.74902 0.50196 0.62353 0.3097 0.2808  15.73E+01
529 0.74902 0.50196 0.74902 0.2943 0.2595  16.04E+01
530 0.74902 0.50196 0.87451 0.2740 0.2319  16.57E+01
531 0.74902 0.50196 1.00000 0.2554 0.2069  17.31E+01
532 0.74902 0.62353 0.00000 0.4411 0.5031  16.47E+01
533 0.74902 0.62353 0.12549 0.4122 0.4595  16.72E+01
534 0.74902 0.62353 0.25098 0.3810 0.4113  16.97E+01
535 0.74902 0.62353 0.37647 0.3507 0.3647  17.27E+01
536 0.74902 0.62353 0.50196 0.3250 0.3248  17.60E+01
537 0.74902 0.62353 0.62353 0.3092 0.3010  17.87E+01
538 0.74902 0.62353 0.74902 0.2948 0.2788  18.17E+01
539 0.74902 0.62353 0.87451 0.2755 0.2501  18.72E+01
540 0.74902 0.62353 1.00000 0.2573 0.2236  19.47E+01
541 0.74902 0.74902 0.00000 0.4226 0.5213  19.79E+01
542 0.74902 0.74902 0.12549 0.3990 0.4816  20.05E+01
543 0.74902 0.74902 0.25098 0.3727 0.4366  20.30E+01
544 0.74902 0.74902 0.37647 0.3465 0.3916  20.60E+01
545 0.74902 0.74902 0.50196 0.3234 0.3521  20.93E+01
546 0.74902 0.74902 0.62353 0.3091 0.3280  21.20E+01
547 0.74902 0.74902 0.74902 0.2956 0.3054  21.51E+01
548 0.74902 0.74902 0.87451 0.2775 0.2752  22.05E+01
549 0.74902 0.74902 1.00000 0.2601 0.2470  22.81E+01
550 0.74902 0.87451 0.00000 0.4036 0.5405  24.67E+01
551 0.74902 0.87451 0.12549 0.3851 0.5055  24.91E+01
552 0.74902 0.87451 0.25098 0.3639 0.4645  25.16E+01
553 0.74902 0.87451 0.37647 0.3419 0.4225  25.46E+01
554 0.74902 0.87451 0.50196 0.3218 0.3844  25.80E+01
555 0.74902 0.87451 0.62353 0.3093 0.3604  26.06E+01
556 0.74902 0.87451 0.74902 0.2971 0.3376  26.36E+01
557 0.74902 0.87451 0.87451 0.2804 0.3065  26.90E+01
558 0.74902 0.87451 1.00000 0.2640 0.2766  27.65E+01
559 0.74902 1.00000 0.00000 0.3881 0.5567  30.91E+01
560 0.74902 1.00000 0.12549 0.3737 0.5264  31.06E+01
561 0.74902 1.00000 0.25098 0.3565 0.4900  31.28E+01
562 0.74902 1.00000 0.37647 0.3382 0.4514  31.55E+01
563 0.74902 1.00000 0.50196 0.3210 0.4154  31.87E+01
564 0.74902 1.00000 0.62353 0.3100 0.3922  32.11E+01
565 0.74902 1.00000 0.74902 0.2990 0.3698  32.41E+01
566 0.74902 1.00000 0.87451 0.2839 0.3383  32.92E+01
567 0.74902 1.00000 1.00000 0.2684 0.3072  33.59E+01
568 0.87451 0.00000 0.00000 0.6269 0.3344   6.14E+01
569 0.87451 0.00000 0.12549 0.5499 0.2877   6.29E+01
570 0.87451 0.00000 0.25098 0.4768 0.2436   6.50E+01
571 0.87451 0.00000 0.37647 0.4155 0.2068   6.77E+01
572 0.87451 0.00000 0.50196 0.3689 0.1793   7.09E+01
573 0.87451 0.00000 0.62353 0.3431 0.1642   7.34E+01
574 0.87451 0.00000 0.74902 0.3205 0.1512   7.63E+01
575 0.87451 0.00000 0.87451 0.2923 0.1354   8.14E+01
576 0.87451 0.00000 1.00000 0.2675 0.1220   8.81E+01
577 0.87451 0.12549 0.00000 0.5760 0.3813   8.30E+01
578 0.87451 0.12549 0.12549 0.5162 0.3349   8.48E+01
579 0.87451 0.12549 0.25098 0.4569 0.2887   8.70E+01
580 0.87451 0.12549 0.37647 0.4047 0.2477   8.97E+01
581 0.87451 0.12549 0.50196 0.3635 0.2160   9.30E+01
582 0.87451 0.12549 0.62353 0.3403 0.1981   9.55E+01
583 0.87451 0.12549 0.74902 0.3194 0.1825   9.85E+01
584 0.87451 0.12549 0.87451 0.2930 0.1628  10.36E+01
585 0.87451 0.12549 1.00000 0.2693 0.1458  11.04E+01
586 0.87451 0.25098 0.00000 0.5372 0.4170  10.55E+01
587 0.87451 0.25098 0.12549 0.4894 0.3720  10.74E+01
588 0.87451 0.25098 0.25098 0.4402 0.3254  10.97E+01
589 0.87451 0.25098 0.37647 0.3952 0.2827  11.25E+01
590 0.87451 0.25098 0.50196 0.3585 0.2485  11.59E+01
591 0.87451 0.25098 0.62353 0.3373 0.2285  11.84E+01
592 0.87451 0.25098 0.74902 0.3179 0.2108  12.14E+01
593 0.87451 0.25098 0.87451 0.2931 0.1884  12.67E+01
594 0.87451 0.25098 1.00000 0.2705 0.1685  13.37E+01
595 0.87451 0.37647 0.00000 0.5012 0.4506  13.44E+01
596 0.87451 0.37647 0.12549 0.4634 0.4084  13.66E+01
597 0.87451 0.37647 0.25098 0.4233 0.3627  13.90E+01
598 0.87451 0.37647 0.37647 0.3851 0.3196  14.19E+01
599 0.87451 0.37647 0.50196 0.3532 0.2834  14.52E+01
600 0.87451 0.37647 0.62353 0.3343 0.2619  14.78E+01
601 0.87451 0.37647 0.74902 0.3167 0.2424  15.08E+01
602 0.87451 0.37647 0.87451 0.2937 0.2172  15.61E+01
603 0.87451 0.37647 1.00000 0.2723 0.1946  16.35E+01
604 0.87451 0.50196 0.00000 0.4801 0.4702  15.69E+01
605 0.87451 0.50196 0.12549 0.4480 0.4304  15.93E+01
606 0.87451 0.50196 0.25098 0.4131 0.3861  16.17E+01
607 0.87451 0.50196 0.37647 0.3790 0.3431  16.46E+01
608 0.87451 0.50196 0.50196 0.3500 0.3064  16.80E+01
609 0.87451 0.50196 0.62353 0.3323 0.2843  17.06E+01
610 0.87451 0.50196 0.74902 0.3159 0.2639  17.37E+01
611 0.87451 0.50196 0.87451 0.2939 0.2372  17.90E+01
612 0.87451 0.50196 1.00000 0.2735 0.2127  18.64E+01
613 0.87451 0.62353 0.00000 0.4642 0.4854  17.81E+01
614 0.87451 0.62353 0.12549 0.4362 0.4473  18.05E+01
615 0.87451 0.62353 0.25098 0.4050 0.4046  18.30E+01
616 0.87451 0.62353 0.37647 0.3742 0.3623  18.60E+01
617 0.87451 0.62353 0.50196 0.3474 0.3254  18.94E+01
618 0.87451 0.62353 0.62353 0.3308 0.3030  19.21E+01
619 0.87451 0.62353 0.74902 0.3154 0.2820  19.51E+01
620 0.87451 0.62353 0.87451 0.2944 0.2543  20.05E+01
621 0.87451 0.62353 1.00000 0.2746 0.2285  20.80E+01
622 0.87451 0.74902 0.00000 0.4448 0.5039  21.12E+01
623 0.87451 0.74902 0.12549 0.4212 0.4691  21.38E+01
624 0.87451 0.74902 0.25098 0.3947 0.4286  21.63E+01
625 0.87451 0.74902 0.37647 0.3678 0.3876  21.94E+01
626 0.87451 0.74902 0.50196 0.3439 0.3510  22.27E+01
627 0.87451 0.74902 0.62353 0.3290 0.3282  22.53E+01
628 0.87451 0.74902 0.74902 0.3146 0.3070  22.85E+01
629 0.87451 0.74902 0.87451 0.2952 0.2781  23.39E+01
630 0.87451 0.74902 1.00000 0.2764 0.2508  24.15E+01
631 0.87451 0.87451 0.00000 0.4238 0.5242  26.00E+01
632 0.87451 0.87451 0.12549 0.4053 0.4930  26.25E+01
633 0.87451 0.87451 0.25098 0.3836 0.4557  26.49E+01
634 0.87451 0.87451 0.37647 0.3610 0.4170  26.80E+01
635 0.87451 0.87451 0.50196 0.3403 0.3815  27.13E+01
636 0.87451 0.87451 0.62353 0.3270 0.3591  27.40E+01
637 0.87451 0.87451 0.74902 0.3143 0.3374  27.69E+01
638 0.87451 0.87451 0.87451 0.2964 0.3078  28.24E+01
639 0.87451 0.87451 1.00000 0.2789 0.2789  28.99E+01
640 0.87451 1.00000 0.00000 0.4059 0.5423  32.23E+01
641 0.87451 1.00000 0.12549 0.3913 0.5144  32.39E+01
642 0.87451 1.00000 0.25098 0.3737 0.4810  32.61E+01
643 0.87451 1.00000 0.37647 0.3551 0.4450  32.87E+01
644 0.87451 1.00000 0.50196 0.3373 0.4113  33.20E+01
645 0.87451 1.00000 0.62353 0.3257 0.3895  33.45E+01
646 0.87451 1.00000 0.74902 0.3144 0.3681  33.73E+01
647 0.87451 1.00000 0.87451 0.2982 0.3383  34.26E+01
648 0.87451 1.00000 1.00000 0.2819 0.3082  34.92E+01
649 1.00000 0.00000 0.00000 0.6340 0.3345   7.86E+01
650 1.00000 0.00000 0.12549 0.5703 0.2964   8.01E+01
651 1.00000 0.00000 0.25098 0.5055 0.2581   8.23E+01
652 1.00000 0.00000 0.37647 0.4476 0.2237   8.50E+01
653 1.00000 0.00000 0.50196 0.4014 0.1965   8.81E+01
654 1.00000 0.00000 0.62353 0.3749 0.1813   9.07E+01
655 1.00000 0.00000 0.74902 0.3510 0.1678   9.36E+01
656 1.00000 0.00000 0.87451 0.3208 0.1508   9.86E+01
657 1.00000 0.00000 1.00000 0.2935 0.1361  10.52E+01
658 1.00000 0.12549 0.00000 0.5915 0.3727  10.00E+01
659 1.00000 0.12549 0.12549 0.5398 0.3344  10.16E+01
660 1.00000 0.12549 0.25098 0.4853 0.2947  10.39E+01
661 1.00000 0.12549 0.37647 0.4350 0.2576  10.66E+01
662 1.00000 0.12549 0.50196 0.3939 0.2278  10.99E+01
663 1.00000 0.12549 0.62353 0.3696 0.2104  11.24E+01
664 1.00000 0.12549 0.74902 0.3477 0.1950  11.54E+01
665 1.00000 0.12549 0.87451 0.3193 0.1751  12.05E+01
666 1.00000 0.12549 1.00000 0.2935 0.1576  12.73E+01
667 1.00000 0.25098 0.00000 0.5575 0.4036  12.24E+01
668 1.00000 0.25098 0.12549 0.5140 0.3666  12.44E+01
669 1.00000 0.25098 0.25098 0.4679 0.3262  12.66E+01
670 1.00000 0.25098 0.37647 0.4239 0.2879  12.94E+01
671 1.00000 0.25098 0.50196 0.3870 0.2562  13.28E+01
672 1.00000 0.25098 0.62353 0.3650 0.2373  13.53E+01
673 1.00000 0.25098 0.74902 0.3448 0.2203  13.83E+01
674 1.00000 0.25098 0.87451 0.3182 0.1982  14.35E+01
675 1.00000 0.25098 1.00000 0.2936 0.1784  15.05E+01
676 1.00000 0.37647 0.00000 0.5241 0.4340  15.12E+01
677 1.00000 0.37647 0.12549 0.4886 0.3987  15.35E+01
678 1.00000 0.37647 0.25098 0.4499 0.3593  15.59E+01
679 1.00000 0.37647 0.37647 0.4122 0.3203  15.87E+01
680 1.00000 0.37647 0.50196 0.3797 0.2873  16.21E+01
681 1.00000 0.37647 0.62353 0.3599 0.2674  16.48E+01
682 1.00000 0.37647 0.74902 0.3414 0.2488  16.77E+01
683 1.00000 0.37647 0.87451 0.3170 0.2246  17.30E+01
684 1.00000 0.37647 1.00000 0.2939 0.2024  18.02E+01
685 1.00000 0.50196 0.00000 0.5035 0.4527  17.37E+01
686 1.00000 0.50196 0.12549 0.4726 0.4189  17.61E+01
687 1.00000 0.50196 0.25098 0.4386 0.3802  17.85E+01
688 1.00000 0.50196 0.37647 0.4048 0.3417  18.15E+01
689 1.00000 0.50196 0.50196 0.3750 0.3082  18.49E+01
690 1.00000 0.50196 0.62353 0.3566 0.2876  18.75E+01
691 1.00000 0.50196 0.74902 0.3395 0.2685  19.05E+01
692 1.00000 0.50196 0.87451 0.3163 0.2430  19.59E+01
693 1.00000 0.50196 1.00000 0.2942 0.2194  20.32E+01
694 1.00000 0.62353 0.00000 0.4875 0.4674  19.49E+01
695 1.00000 0.62353 0.12549 0.4603 0.4350  19.74E+01
696 1.00000 0.62353 0.25098 0.4295 0.3973  19.99E+01
697 1.00000 0.62353 0.37647 0.3988 0.3593  20.28E+01
698 1.00000 0.62353 0.50196 0.3711 0.3257  20.63E+01
699 1.00000 0.62353 0.62353 0.3541 0.3047  20.89E+01
700 1.00000 0.62353 0.74902 0.3379 0.2850  21.19E+01
701 1.00000 0.62353 0.87451 0.3157 0.2588  21.73E+01
702 1.00000 0.62353 1.00000 0.2944 0.2341  22.48E+01
703 1.00000 0.74902 0.00000 0.4675 0.4860  22.79E+01
704 1.00000 0.74902 0.12549 0.4443 0.4557  23.06E+01
705 1.00000 0.74902 0.25098 0.4180 0.4197  23.30E+01
706 1.00000 0.74902 0.37647 0.3908 0.3827  23.61E+01
707 1.00000 0.74902 0.50196 0.3662 0.3493  23.95E+01
708 1.00000 0.74902 0.62353 0.3506 0.3282  24.22E+01
709 1.00000 0.74902 0.74902 0.3357 0.3082  24.53E+01
710 1.00000 0.74902 0.87451 0.3151 0.2809  25.06E+01
711 1.00000 0.74902 1.00000 0.2951 0.2549  25.81E+01
712 1.00000 0.87451 0.00000 0.4452 0.5071  27.67E+01
713 1.00000 0.87451 0.12549 0.4268 0.4793  27.91E+01
714 1.00000 0.87451 0.25098 0.4048 0.4459  28.16E+01
715 1.00000 0.87451 0.37647 0.3818 0.4105  28.46E+01
716 1.00000 0.87451 0.50196 0.3605 0.3779  28.80E+01
717 1.00000 0.87451 0.62353 0.3468 0.3569  29.06E+01
718 1.00000 0.87451 0.74902 0.3334 0.3367  29.36E+01
719 1.00000 0.87451 0.87451 0.3147 0.3088  29.90E+01
720 1.00000 0.87451 1.00000 0.2961 0.2816  30.65E+01
721 1.00000 1.00000 0.00000 0.4251 0.5266  33.88E+01
722 1.00000 1.00000 0.12549 0.4105 0.5014  34.03E+01
723 1.00000 1.00000 0.25098 0.3928 0.4707  34.24E+01
724 1.00000 1.00000 0.37647 0.3735 0.4376  34.52E+01
725 1.00000 1.00000 0.50196 0.3553 0.4062  34.83E+01
726 1.00000 1.00000 0.62353 0.3432 0.3859  35.09E+01
727 1.00000 1.00000 0.74902 0.3314 0.3659  35.38E+01
728 1.00000 1.00000 0.87451 0.3145 0.3377  35.89E+01
729 1.00000 1.00000 1.00000 0.2974 0.3093  36.55E+01
730 1.00000 1.00000 1.00000 0.2974 0.3093  36.54E+01
731 0.87451 1.00000 1.00000 0.2819 0.3082  34.92E+01
732 0.74902 1.00000 1.00000 0.2684 0.3071  33.59E+01
733 0.62353 1.00000 1.00000 0.2579 0.3063  32.62E+01
734 0.50196 1.00000 1.00000 0.2511 0.3058  32.02E+01
735 0.37647 1.00000 1.00000 0.2444 0.3053  31.45E+01
736 0.25098 1.00000 1.00000 0.2360 0.3047  30.75E+01
737 0.12549 1.00000 1.00000 0.2266 0.3040  30.01E+01
738 0.00000 1.00000 1.00000 0.2155 0.3031  29.15E+01
739 1.00000 0.87451 0.87451 0.3147 0.3088  29.90E+01
740 0.87451 0.87451 0.87451 0.2965 0.3078  28.24E+01
741 0.74902 0.87451 0.87451 0.2803 0.3066  26.90E+01
742 0.62353 0.87451 0.87451 0.2676 0.3056  25.93E+01
743 0.50196 0.87451 0.87451 0.2593 0.3050  25.33E+01
744 0.37647 0.87451 0.87451 0.2512 0.3044  24.76E+01
745 0.25098 0.87451 0.87451 0.2406 0.3037  24.07E+01
746 0.12549 0.87451 0.87451 0.2290 0.3029  23.32E+01
747 0.00000 0.87451 0.87451 0.2150 0.3025  22.44E+01
748 1.00000 0.74902 0.74902 0.3357 0.3082  24.52E+01
749 0.87451 0.74902 0.74902 0.3147 0.3070  22.85E+01
750 0.74902 0.74902 0.74902 0.2956 0.3054  21.51E+01
751 0.62353 0.74902 0.74902 0.2804 0.3041  20.53E+01
752 0.50196 0.74902 0.74902 0.2702 0.3033  19.93E+01
753 0.37647 0.74902 0.74902 0.2602 0.3027  19.37E+01
754 0.25098 0.74902 0.74902 0.2472 0.3016  18.67E+01
755 0.12549 0.74902 0.74902 0.2324 0.3006  17.93E+01
756 0.00000 0.74902 0.74902 0.2143 0.3002  17.05E+01
757 1.00000 0.62353 0.62353 0.3541 0.3046  20.88E+01
758 0.87451 0.62353 0.62353 0.3308 0.3029  19.20E+01
759 0.74902 0.62353 0.62353 0.3093 0.3009  17.87E+01
760 0.62353 0.62353 0.62353 0.2916 0.2992  16.90E+01
761 0.50196 0.62353 0.62353 0.2799 0.2982  16.31E+01
762 0.37647 0.62353 0.62353 0.2682 0.2969  15.73E+01
763 0.25098 0.62353 0.62353 0.2526 0.2955  15.03E+01
764 0.12549 0.62353 0.62353 0.2347 0.2940  14.29E+01
765 0.00000 0.62353 0.62353 0.2124 0.2932  13.43E+01
766 1.00000 0.50196 0.50196 0.3750 0.3081  18.48E+01
767 0.87451 0.50196 0.50196 0.3499 0.3063  16.80E+01
768 0.74902 0.50196 0.50196 0.3263 0.3041  15.47E+01
769 0.62353 0.50196 0.50196 0.3066 0.3024  14.50E+01
770 0.50196 0.50196 0.50196 0.2932 0.3010  13.89E+01
771 0.37647 0.50196 0.50196 0.2797 0.3000  13.33E+01
772 0.25098 0.50196 0.50196 0.2616 0.2984  12.64E+01
773 0.12549 0.50196 0.50196 0.2403 0.2967  11.90E+01
774 0.00000 0.50196 0.50196 0.2135 0.2957  11.04E+01
775 1.00000 0.37647 0.37647 0.4121 0.3204  15.87E+01
776 0.87451 0.37647 0.37647 0.3852 0.3195  14.19E+01
777 0.74902 0.37647 0.37647 0.3588 0.3180  12.86E+01
778 0.62353 0.37647 0.37647 0.3362 0.3167  11.89E+01
779 0.50196 0.37647 0.37647 0.3204 0.3159  11.29E+01
780 0.37647 0.37647 0.37647 0.3042 0.3150  10.73E+01
781 0.25098 0.37647 0.37647 0.2817 0.3138  10.04E+01
782 0.12549 0.37647 0.37647 0.2548 0.3126   9.30E+01
783 0.00000 0.37647 0.37647 0.2186 0.3122   8.44E+01
784 1.00000 0.25098 0.25098 0.4678 0.3261  12.66E+01
785 0.87451 0.25098 0.25098 0.4398 0.3254  10.98E+01
786 0.74902 0.25098 0.25098 0.4115 0.3242   9.65E+01
787 0.62353 0.25098 0.25098 0.3853 0.3228   8.67E+01
788 0.50196 0.25098 0.25098 0.3664 0.3222   8.08E+01
789 0.37647 0.25098 0.25098 0.3458 0.3209  75.00E+00
790 0.25098 0.25098 0.25098 0.3163 0.3196  68.11E+00
791 0.12549 0.25098 0.25098 0.2782 0.3180  60.79E+00
792 0.00000 0.25098 0.25098 0.2227 0.3172  52.32E+00
793 1.00000 0.12549 0.12549 0.5395 0.3345  10.17E+01
794 0.87451 0.12549 0.12549 0.5162 0.3349   8.48E+01
795 0.74902 0.12549 0.12549 0.4902 0.3347   7.15E+01
796 0.62353 0.12549 0.12549 0.4644 0.3341  61.63E+00
797 0.50196 0.12549 0.12549 0.4443 0.3339  55.69E+00
798 0.37647 0.12549 0.12549 0.4211 0.3337  50.09E+00
799 0.25098 0.12549 0.12549 0.3846 0.3334  43.22E+00
800 0.12549 0.12549 0.12549 0.3310 0.3331  35.94E+00
801 0.00000 0.12549 0.12549 0.2352 0.3339  27.55E+00
802 1.00000 0.00000 0.00000 0.6340 0.3345   7.86E+01
803 0.87451 0.00000 0.00000 0.6272 0.3341   6.13E+01
804 0.74902 0.00000 0.00000 0.6187 0.3333  47.84E+00
805 0.62353 0.00000 0.00000 0.6093 0.3325  38.19E+00
806 0.50196 0.00000 0.00000 0.6010 0.3318  32.30E+00
807 0.37647 0.00000 0.00000 0.5902 0.3308  26.75E+00
808 0.25098 0.00000 0.00000 0.5691 0.3288  19.95E+00
809 0.12549 0.00000 0.00000 0.5236 0.3246  12.77E+00
810 0.00000 0.00000 0.00000 0.3097 0.3050  45.18E-01
811 1.00000 1.00000 1.00000 0.2974 0.3092  36.55E+01
812 0.87451 0.87451 1.00000 0.2788 0.2789  28.99E+01
813 0.74902 0.74902 1.00000 0.2602 0.2470  22.81E+01
814 0.62353 0.62353 1.00000 0.2437 0.2197  18.50E+01
815 0.50196 0.50196 1.00000 0.2318 0.1992  15.75E+01
816 0.37647 0.37647 1.00000 0.2187 0.1748  12.89E+01
817 0.25098 0.25098 1.00000 0.1997 0.1375   9.22E+01
818 0.12549 0.12549 1.00000 0.1780 0.1007   6.17E+01
819 0.00000 0.00000 1.00000 0.1495 0.0566   3.13E+01
820 1.00000 1.00000 0.87451 0.3144 0.3377  35.88E+01
821 0.87451 0.87451 0.87451 0.2964 0.3078  28.24E+01
822 0.74902 0.74902 0.87451 0.2774 0.2753  22.06E+01
823 0.62353 0.62353 0.87451 0.2603 0.2467  17.75E+01
824 0.50196 0.50196 0.87451 0.2475 0.2246  15.00E+01
825 0.37647 0.37647 0.87451 0.2332 0.1976  12.15E+01
826 0.25098 0.25098 0.87451 0.2119 0.1553   8.51E+01
827 0.12549 0.12549 0.87451 0.1864 0.1119   5.48E+01
828 0.00000 0.00000 0.87451 0.1509 0.0572   2.45E+01
829 1.00000 1.00000 0.74902 0.3313 0.3659  35.37E+01
830 0.87451 0.87451 0.74902 0.3142 0.3375  27.70E+01
831 0.74902 0.74902 0.74902 0.2957 0.3055  21.52E+01
832 0.62353 0.62353 0.74902 0.2780 0.2764  17.21E+01
833 0.50196 0.50196 0.74902 0.2649 0.2534  14.47E+01
834 0.37647 0.37647 0.74902 0.2498 0.2243  11.62E+01
835 0.25098 0.25098 0.74902 0.2263 0.1771   7.99E+01
836 0.12549 0.12549 0.74902 0.1965 0.1262   4.96E+01
837 0.00000 0.00000 0.74902 0.1530 0.0583   1.93E+01
838 1.00000 1.00000 0.62353 0.3431 0.3859  35.08E+01
839 0.87451 0.87451 0.62353 0.3270 0.3590  27.39E+01
840 0.74902 0.74902 0.62353 0.3090 0.3281  21.21E+01
841 0.62353 0.62353 0.62353 0.2916 0.2992  16.90E+01
842 0.50196 0.50196 0.62353 0.2784 0.2759  14.16E+01
843 0.37647 0.37647 0.62353 0.2628 0.2459  11.32E+01
844 0.25098 0.25098 0.62353 0.2382 0.1955   7.69E+01
845 0.12549 0.12549 0.62353 0.2055 0.1393   4.67E+01
846 0.00000 0.00000 0.62353 0.1545 0.0600   1.64E+01
847 1.00000 1.00000 0.50196 0.3552 0.4063  34.82E+01
848 0.87451 0.87451 0.50196 0.3403 0.3815  27.13E+01
849 0.74902 0.74902 0.50196 0.3234 0.3521  20.94E+01
850 0.62353 0.62353 0.50196 0.3063 0.3242  16.64E+01
851 0.50196 0.50196 0.50196 0.2931 0.3012  13.89E+01
852 0.37647 0.37647 0.50196 0.2777 0.2706  11.06E+01
853 0.25098 0.25098 0.50196 0.2521 0.2176   7.44E+01
854 0.12549 0.12549 0.50196 0.2163 0.1557   4.42E+01
855 0.00000 0.00000 0.50196 0.1569 0.0629   1.40E+01
856 1.00000 1.00000 0.37647 0.3734 0.4376  34.51E+01
857 0.87451 0.87451 0.37647 0.3610 0.4170  26.80E+01
858 0.74902 0.74902 0.37647 0.3464 0.3914  20.60E+01
859 0.62353 0.62353 0.37647 0.3309 0.3665  16.29E+01
860 0.50196 0.50196 0.37647 0.3187 0.3450  13.56E+01
861 0.37647 0.37647 0.37647 0.3040 0.3151  10.73E+01
862 0.25098 0.25098 0.37647 0.2787 0.2597   7.11E+01
863 0.12549 0.12549 0.37647 0.2389 0.1894   4.09E+01
864 0.00000 0.00000 0.37647 0.1616 0.0702   1.09E+01
865 1.00000 1.00000 0.25098 0.3927 0.4706  34.23E+01
866 0.87451 0.87451 0.25098 0.3836 0.4558  26.50E+01
867 0.74902 0.74902 0.25098 0.3726 0.4365  20.30E+01
868 0.62353 0.62353 0.25098 0.3604 0.4170  16.00E+01
869 0.50196 0.50196 0.25098 0.3503 0.3993  13.27E+01
870 0.37647 0.37647 0.25098 0.3381 0.3731  10.44E+01
871 0.25098 0.25098 0.25098 0.3163 0.3196  68.07E+00
872 0.12549 0.12549 0.25098 0.2742 0.2446  38.06E+00
873 0.00000 0.00000 0.25098 0.1711 0.0840   8.05E+00
874 1.00000 1.00000 0.12549 0.4104 0.5013  34.02E+01
875 0.87451 0.87451 0.12549 0.4052 0.4929  26.25E+01
876 0.74902 0.74902 0.12549 0.3990 0.4816  20.05E+01
877 0.62353 0.62353 0.12549 0.3910 0.4701  15.75E+01
878 0.50196 0.50196 0.12549 0.3850 0.4590  13.03E+01
879 0.37647 0.37647 0.12549 0.3784 0.4406  10.20E+01
880 0.25098 0.25098 0.12549 0.3657 0.3990  65.82E+00
881 0.12549 0.12549 0.12549 0.3309 0.3330  35.92E+00
882 0.00000 0.00000 0.12549 0.1955 0.1230   6.02E+00
883 1.00000 1.00000 0.00000 0.4251 0.5267  33.86E+01
884 0.87451 0.87451 0.00000 0.4240 0.5242  25.99E+01
885 0.74902 0.74902 0.00000 0.4228 0.5213  19.79E+01
886 0.62353 0.62353 0.00000 0.4204 0.5193  15.50E+01
887 0.50196 0.50196 0.00000 0.4192 0.5166  12.78E+01
888 0.37647 0.37647 0.00000 0.4202 0.5102   9.98E+01
889 0.25098 0.25098 0.00000 0.4251 0.4931  63.86E+00
890 0.12549 0.12549 0.00000 0.4192 0.4695  34.20E+00
891 0.00000 0.00000 0.00000 0.3097 0.3051  45.16E-01
892 1.00000 1.00000 1.00000 0.2974 0.3093  36.56E+01
893 1.00000 0.87451 1.00000 0.2961 0.2815  30.64E+01
894 1.00000 0.74902 1.00000 0.2951 0.2549  25.81E+01
895 1.00000 0.62353 1.00000 0.2945 0.2341  22.47E+01
896 1.00000 0.50196 1.00000 0.2941 0.2194  20.32E+01
897 1.00000 0.37647 1.00000 0.2938 0.2024  18.02E+01
898 1.00000 0.25098 1.00000 0.2936 0.1784  15.05E+01
899 1.00000 0.12549 1.00000 0.2934 0.1575  12.72E+01
900 1.00000 0.00000 1.00000 0.2935 0.1361  10.52E+01
901 0.87451 1.00000 0.87451 0.2982 0.3382  34.25E+01
902 0.87451 0.87451 0.87451 0.2964 0.3078  28.24E+01
903 0.87451 0.74902 0.87451 0.2952 0.2781  23.39E+01
904 0.87451 0.62353 0.87451 0.2944 0.2542  20.05E+01
905 0.87451 0.50196 0.87451 0.2939 0.2372  17.91E+01
906 0.87451 0.37647 0.87451 0.2936 0.2171  15.61E+01
907 0.87451 0.25098 0.87451 0.2932 0.1884  12.67E+01
908 0.87451 0.12549 0.87451 0.2929 0.1629  10.37E+01
909 0.87451 0.00000 0.87451 0.2922 0.1355   8.15E+01
910 0.74902 1.00000 0.74902 0.2991 0.3696  32.40E+01
911 0.74902 0.87451 0.74902 0.2971 0.3376  26.37E+01
912 0.74902 0.74902 0.74902 0.2957 0.3054  21.51E+01
913 0.74902 0.62353 0.74902 0.2947 0.2789  18.18E+01
914 0.74902 0.50196 0.74902 0.2942 0.2594  16.04E+01
915 0.74902 0.37647 0.74902 0.2937 0.2362  13.75E+01
916 0.74902 0.25098 0.74902 0.2931 0.2018  10.82E+01
917 0.74902 0.12549 0.74902 0.2928 0.1702   8.51E+01
918 0.74902 0.00000 0.74902 0.2920 0.1354   6.29E+01
919 0.62353 1.00000 0.62353 0.2973 0.3943  31.14E+01
920 0.62353 0.87451 0.62353 0.2949 0.3616  25.09E+01
921 0.62353 0.74902 0.62353 0.2929 0.3277  20.23E+01
922 0.62353 0.62353 0.62353 0.2916 0.2992  16.90E+01
923 0.62353 0.50196 0.62353 0.2909 0.2779  14.76E+01
924 0.62353 0.37647 0.62353 0.2901 0.2520  12.48E+01
925 0.62353 0.25098 0.62353 0.2890 0.2124   9.54E+01
926 0.62353 0.12549 0.62353 0.2882 0.1755   7.25E+01
927 0.62353 0.00000 0.62353 0.2869 0.1333   5.04E+01
928 0.50196 1.00000 0.50196 0.2994 0.4206  30.29E+01
929 0.50196 0.87451 0.50196 0.2970 0.3881  24.22E+01
930 0.50196 0.74902 0.50196 0.2952 0.3538  19.37E+01
931 0.50196 0.62353 0.50196 0.2939 0.3238  16.03E+01
932 0.50196 0.50196 0.50196 0.2932 0.3012  13.90E+01
933 0.50196 0.37647 0.50196 0.2925 0.2730  11.62E+01
934 0.50196 0.25098 0.50196 0.2915 0.2289   8.69E+01
935 0.50196 0.12549 0.50196 0.2910 0.1862   6.40E+01
936 0.50196 0.00000 0.50196 0.2894 0.1360   4.20E+01
937 0.37647 1.00000 0.37647 0.3065 0.4631  29.40E+01
938 0.37647 0.87451 0.37647 0.3050 0.4329  23.32E+01
939 0.37647 0.74902 0.37647 0.3042 0.3994  18.46E+01
940 0.37647 0.62353 0.37647 0.3037 0.3694  15.14E+01
941 0.37647 0.50196 0.37647 0.3038 0.3456  13.00E+01
942 0.37647 0.37647 0.37647 0.3040 0.3151  10.73E+01
943 0.37647 0.25098 0.37647 0.3047 0.2647   7.80E+01
944 0.37647 0.12549 0.37647 0.3059 0.2132   5.52E+01
945 0.37647 0.00000 0.37647 0.3064 0.1481   3.32E+01
946 0.25098 1.00000 0.25098 0.3110 0.5137  28.43E+01
947 0.25098 0.87451 0.25098 0.3105 0.4884  22.32E+01
948 0.25098 0.74902 0.25098 0.3106 0.4591  17.47E+01
949 0.25098 0.62353 0.25098 0.3114 0.4308  14.14E+01
950 0.25098 0.50196 0.25098 0.3119 0.4077  12.01E+01
951 0.25098 0.37647 0.25098 0.3134 0.3759   9.74E+01
952 0.25098 0.25098 0.25098 0.3163 0.3195  68.08E+00
953 0.25098 0.12549 0.25098 0.3202 0.2556  45.37E+00
954 0.25098 0.00000 0.25098 0.3252 0.1645  23.55E+00
955 0.12549 1.00000 0.12549 0.3120 0.5685  27.48E+01
956 0.12549 0.87451 0.12549 0.3114 0.5521  21.35E+01
957 0.12549 0.74902 0.12549 0.3119 0.5316  16.48E+01
958 0.12549 0.62353 0.12549 0.3129 0.5107  13.17E+01
959 0.12549 0.50196 0.12549 0.3146 0.4915  11.03E+01
960 0.12549 0.37647 0.12549 0.3167 0.4641  87.56E+00
961 0.12549 0.25098 0.12549 0.3223 0.4087  58.54E+00
962 0.12549 0.12549 0.12549 0.3310 0.3331  35.93E+00
963 0.12549 0.00000 0.12549 0.3466 0.1931  14.29E+00
964 0.00000 1.00000 0.00000 0.3051 0.6254  26.48E+01
965 0.00000 0.87451 0.00000 0.3030 0.6226  20.24E+01
966 0.00000 0.74902 0.00000 0.3010 0.6185  15.37E+01
967 0.00000 0.62353 0.00000 0.2994 0.6141  12.06E+01
968 0.00000 0.50196 0.00000 0.2984 0.6097   9.95E+01
969 0.00000 0.37647 0.00000 0.2975 0.6013  76.90E+00
970 0.00000 0.25098 0.00000 0.2972 0.5811  48.16E+00
971 0.00000 0.12549 0.00000 0.2985 0.5382  25.84E+00
972 0.00000 0.00000 0.00000 0.3097 0.3051  45.14E-01
973 0.00000 0.00000 0.00000 0.3098 0.3050  45.15E-01
974 0.12549 0.12549 0.12549 0.3310 0.3331  35.91E+00
975 0.25098 0.25098 0.25098 0.3163 0.3196  68.09E+00
976 0.37647 0.37647 0.37647 0.3042 0.3150  10.73E+01
977 0.50196 0.50196 0.50196 0.2932 0.3012  13.90E+01
978 0.62353 0.62353 0.62353 0.2916 0.2992  16.90E+01
979 0.74902 0.74902 0.74902 0.2956 0.3054  21.51E+01
980 0.87451 0.87451 0.87451 0.2965 0.3077  28.23E+01
981 1.00000 1.00000 1.00000 0.2974 0.3092  36.53E+01
982 0.00000 0.00000 0.00000 0.3098 0.3050  45.14E-01
983 0.12549 0.12549 0.12549 0.3310 0.3330  35.91E+00
984 0.25098 0.25098 0.25098 0.3163 0.3196  68.07E+00
985 0.37647 0.37647 0.37647 0.3041 0.3149  10.73E+01
986 0.50196 0.50196 0.50196 0.2932 0.3012  13.90E+01
987 0.62353 0.62353 0.62353 0.2916 0.2992  16.90E+01
988 0.74902 0.74902 0.74902 0.2956 0.3054  21.51E+01
989 0.87451 0.87451 0.87451 0.2965 0.3077  28.23E+01
990 1.00000 1.00000 1.00000 0.2973 0.3093  36.54E+01
991 0.00000 0.00000 0.00000 0.3098 0.3050  45.14E-01
992 0.12549 0.12549 0.12549 0.3309 0.3330  35.91E+00
993 0.25098 0.25098 0.25098 0.3163 0.3196  68.08E+00
994 0.37647 0.37647 0.37647 0.3041 0.3149  10.73E+01
995 0.50196 0.50196 0.50196 0.2932 0.3013  13.90E+01
996 0.62353 0.62353 0.62353 0.2917 0.2992  16.90E+01
997 0.74902 0.74902 0.74902 0.2956 0.3054  21.51E+01
998 0.87451 0.87451 0.87451 0.2965 0.3077  28.23E+01
999 1.00000 1.00000 1.00000 0.2973 0.3093  36.54E+01
1000 0.00000 0.00000 0.00000 0.3098 0.3050  45.14E-01
1001 0.12549 0.12549 0.12549 0.3310 0.3330  35.91E+00
1002 0.25098 0.25098 0.25098 0.3163 0.3196  68.08E+00
1003 0.37647 0.37647 0.37647 0.3041 0.3149  10.73E+01
1004 0.50196 0.50196 0.50196 0.2932 0.3012  13.90E+01
1005 0.62353 0.62353 0.62353 0.2916 0.2992  16.90E+01
1006 0.74902 0.74902 0.74902 0.2956 0.3054  21.51E+01
1007 0.87451 0.87451 0.87451 0.2965 0.3077  28.23E+01
1008 1.00000 1.00000 1.00000 0.2973 0.3093  36.53E+01
1009 0.00000 0.00000 0.00000 0.3097 0.3050  45.13E-01
1010 0.06667 0.06667 0.06667 0.3403 0.3353  21.42E+00
1011 0.13333 0.13333 0.13333 0.3302 0.3312  37.55E+00
1012 0.20000 0.20000 0.20000 0.3224 0.3246  54.66E+00
1013 0.26667 0.26667 0.26667 0.3141 0.3184  73.26E+00
1014 0.33333 0.33333 0.33333 0.3088 0.3159   9.33E+01
1015 0.40000 0.40000 0.40000 0.3014 0.3108  11.27E+01
1016 0.46667 0.46667 0.46667 0.2946 0.3025  13.03E+01
1017 0.53333 0.53333 0.53333 0.2924 0.3010  14.66E+01
1018 0.60000 0.60000 0.60000 0.2907 0.2996  16.25E+01
1019 0.66667 0.66667 0.66667 0.2929 0.2995  18.08E+01
1020 0.73333 0.73333 0.73333 0.2963 0.3056  20.86E+01
1021 0.80000 0.80000 0.80000 0.2958 0.3065  23.99E+01
1022 0.86667 0.86667 0.86667 0.2966 0.3070  27.64E+01
1023 0.93333 0.93333 0.93333 0.2993 0.3114  32.59E+01
1024 1.00000 1.00000 1.00000 0.2974 0.3092  36.53E+01
1025 0.00000 0.00000 0.00000 0.3098 0.3050  45.14E-01
1026 0.06667 0.06667 0.06667 0.3403 0.3354  21.43E+00
1027 0.13333 0.13333 0.13333 0.3303 0.3312  37.54E+00
1028 0.20000 0.20000 0.20000 0.3224 0.3246  54.66E+00
1029 0.26667 0.26667 0.26667 0.3141 0.3185  73.25E+00
1030 0.33333 0.33333 0.33333 0.3089 0.3161   9.33E+01
1031 0.40000 0.40000 0.40000 0.3014 0.3111  11.28E+01
1032 0.46667 0.46667 0.46667 0.2946 0.3025  13.03E+01
1033 0.53333 0.53333 0.53333 0.2925 0.3010  14.66E+01
1034 0.60000 0.60000 0.60000 0.2909 0.2995  16.24E+01
1035 0.66667 0.66667 0.66667 0.2930 0.2994  18.07E+01
1036 0.73333 0.73333 0.73333 0.2962 0.3056  20.86E+01
1037 0.80000 0.80000 0.80000 0.2958 0.3065  23.99E+01
1038 0.86667 0.86667 0.86667 0.2966 0.3070  27.64E+01
1039 0.93333 0.93333 0.93333 0.2993 0.3114  32.59E+01
1040 1.00000 1.00000 1.00000 0.2974 0.3092  36.53E+01
1041 0.00000 0.00000 0.00000 0.3098 0.3050  45.13E-01
1042 0.06667 0.06667 0.06667 0.3404 0.3354  21.42E+00
1043 0.13333 0.13333 0.13333 0.3303 0.3311  37.53E+00
1044 0.20000 0.20000 0.20000 0.3224 0.3246  54.65E+00
1045 0.26667 0.26667 0.26667 0.3141 0.3184  73.24E+00
1046 0.33333 0.33333 0.33333 0.3089 0.3161   9.33E+01
1047 0.40000 0.40000 0.40000 0.3012 0.3109  11.27E+01
1048 0.46667 0.46667 0.46667 0.2945 0.3026  13.03E+01
1049 0.53333 0.53333 0.53333 0.2925 0.3010  14.66E+01
1050 0.60000 0.60000 0.60000 0.2908 0.2996  16.25E+01
1051 0.66667 0.66667 0.66667 0.2927 0.2995  18.08E+01
1052 0.73333 0.73333 0.73333 0.2962 0.3057  20.86E+01
1053 0.80000 0.80000 0.80000 0.2958 0.3065  23.99E+01
1054 0.86667 0.86667 0.86667 0.2966 0.3070  27.64E+01
1055 0.93333 0.93333 0.93333 0.2993 0.3114  32.60E+01
1056 1.00000 1.00000 1.00000 0.2974 0.3092  36.53E+01
1057 0.00000 0.00000 0.00000 0.3097 0.3051  45.14E-01
1058 0.06667 0.06667 0.06667 0.3404 0.3354  21.42E+00
1059 0.13333 0.13333 0.13333 0.3303 0.3312  37.54E+00
1060 0.20000 0.20000 0.20000 0.3224 0.3246  54.66E+00
1061 0.26667 0.26667 0.26667 0.3141 0.3185  73.25E+00
1062 0.33333 0.33333 0.33333 0.3088 0.3159   9.33E+01
1063 0.40000 0.40000 0.40000 0.3014 0.3108  11.27E+01
1064 0.46667 0.46667 0.46667 0.2946 0.3025  13.03E+01
1065 0.53333 0.53333 0.53333 0.2925 0.3010  14.66E+01
1066 0.60000 0.60000 0.60000 0.2907 0.2996  16.25E+01
1067 0.66667 0.66667 0.66667 0.2929 0.2994  18.07E+01
1068 0.73333 0.73333 0.73333 0.2962 0.3056  20.85E+01
1069 0.80000 0.80000 0.80000 0.2958 0.3065  23.99E+01
1070 0.86667 0.86667 0.86667 0.2966 0.3070  27.64E+01
1071 0.93333 0.93333 0.93333 0.2993 0.3114  32.59E+01
1072 1.00000 1.00000 1.00000 0.2974 0.3093  36.54E+01
1073 0.00000 0.00000 0.00000 0.3098 0.3050  45.14E-01
1074 1.00000 1.00000 1.00000 0.2974 0.3093  36.56E+01
1075 1.00000 0.00000 0.00000 0.6338 0.3348   7.87E+01
1076 0.00000 1.00000 1.00000 0.2154 0.3031  29.15E+01
1077 1.00000 1.00000 0.00000 0.4251 0.5266  33.87E+01
1078 0.00000 0.00000 1.00000 0.1494 0.0567   3.14E+01
1079 0.00000 1.00000 0.00000 0.3051 0.6254  26.48E+01
1080 1.00000 0.00000 1.00000 0.2934 0.1361  10.52E+01
] 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

/cvishowb {cvi 6 string cvs show ( ) show} def
/cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def

/cvishowr {0.5 add cvi 6 string cvs show} def
/cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def

/cvi100 {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     {(0000) show} if
         xia   10 ge xia   99 le and {(000) show} if
         xia  100 ge xia  999 le and {(00) show} if
         xia 1000 ge xia 9999 le and {(0) show} if
         xia cvishow
         } 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

%%EndProlog
gsave

/lanind 0 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 3 def /lanind2 3 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}
               {/xcolor1 0 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 4 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} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart xchart3 lt {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

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

gsave

72 90 translate

0.01 MM dup scale

TK
100 -180 moveto
(SF610-7N, ) show
(Test chart with ) showea
(Pr\374fvorlage mit ) showde
(1080 standard colours) showea
(1080 Norm\255Farben) showde
(; digital equidistant 9 step hue and achromatic scales;) showea
(; digital gleichabst\344ndige 9stufige Button- und unbunte Reihen;) showde
(; luminance factor measured:) showea
(; Leuchtdichtefaktor gemessen:) showde
TIK
( Ym) show
TK
( and normalized:) showea
( und normiert:) showde
TIK
( Yn = Yw) show
TK
( = 100) show
TK
(; for low glossy LECD display) showea
(; f\374r LECD\255Display (wenig Glanz)) showde
(, page ) showea
(, Seite ) showde
xchart 1 add (/) show xchartm cvishow
(; display type: ) showea
(; Display\255Typ: ) showde
LAB*TE 0 get show

/ix0 100 def
/iymax 16600 def
/idy 206 def
/ixxd 3560 def

gsave

/xchartl xchart def
%00 1 03 {/xchartl exch def %beg xchartl=0,3

gsave

%Start-transformation
1 dup dup setrgbcolor
0 0 moveto 25000     0 rlineto 0 17000 rlineto
           25000 neg 0 rlineto closepath fill

0 dup dup setrgbcolor
0 0 moveto 25000     0 rlineto 0 17000 rlineto
           25000 neg 0 rlineto closepath stroke

1 1 6 {/i exch def
       ixxd i mul 030 add 0 moveto 0 17000 rlineto stroke
      } for

TBIK
0 1 6 {/i exch def
       ixxd i mul 0100 add iymax idy add moveto
       (no.) show
       ixxd i mul 0600 add iymax idy add moveto
       (r, g, b) show
       ixxd i mul 2100 add iymax idy add moveto
       (x, y, Y) show
       xchart 1 le {(m)} {(n)} ifelse show
      } for
TK

xchartl 0 eq {/xch1 0000 def /xch2 0566 def} if
xchartl 1 eq {/xch1 0567 def /xch2 1079 def} if
xchartl 2 eq {/xch1 0000 def /xch2 0566 def} if
xchartl 3 eq {/xch1 0567 def /xch2 1079 def} if

xchartl 1 le {%xchartl=0,1
              /fakt 1 def
             } %xchartl=0,1
             {%xchartl=2,3
              /jend 1073 7 mul 6 add def        %White-Measurement
              /fakt 100 xyY0 jend get div def
             } ifelse %xchartl=2,3

xch1 1 xch2 {/xcharti exch def %beg xcharti=0,1079

xcharti 567 lt {/ilp xcharti 81 idiv def}               %range 0..7
               {/ilp xcharti 81 idiv 7 sub def} ifelse  %range 0..7

/ils xcharti 81 idiv def
/ilj xcharti ils 81 mul sub def  %range 0..81

/iks xcharti 567 idiv def        %range 0..01
/ikj xcharti iks 567 mul sub def %range 0..512

/j00 xcharti 7 mul 0 add def
/j01 j00 1 add def
/j02 j00 2 add def
/j03 j00 3 add def
/j04 j00 4 add def
/j05 j00 5 add def
/j06 j00 6 add def

/ixx ix0 ilp ixxd mul add def

ixx iymax ilj idy mul sub moveto
xyY0 j00 get cvishowr
ixx 500 1 mul add iymax ilj idy mul sub moveto
xyY0 j01 get cvsshow3r
ixx 500 2 mul add iymax ilj idy mul sub moveto
xyY0 j02 get cvsshow3r
ixx 500 3 mul add iymax ilj idy mul sub moveto
xyY0 j03 get cvsshow3r
ixx 500 4 mul add iymax ilj idy mul sub moveto
xyY0 j04 get cvsshow3r
ixx 500 5 mul add iymax ilj idy mul sub moveto
xyY0 j05 get cvsshow3
ixx 500 6 mul add iymax ilj idy mul sub moveto
xyY0 j06 get fakt mul cvsshow1r

} for %xcharti=xch1,xch2


showpage
grestore

%} for %xchartl=0,3

%%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 SF610-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     (SF610-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 SF611-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     (SF611-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 SF611-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     (SF611-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 SF611-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     (SF611-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 SF611-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     (SF611-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 SF611-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     (SF611-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 SF611-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     (SF611-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 SF611-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     (SF611-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 SF611-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     (SF611-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 00 def /xcolor2 00 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 4 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/SF61/SF61) show
colorm cvishow deintp cvishow
colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF  & ) show
(http://130.149.60.45/~farbmetrik/SF61/SF61) show
colorm cvishow deintp cvishow
colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT  & ) show
(http://130.149.60.45/~farbmetrik/SF61/SF61.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

/TELi 8 array def
  809   /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def

0 setgray
12 /Times-ISOL1 FS
61 MM 13.5 MM  moveto
(TUB\255Pr\374fvorlage SF61; ) showde                           %0SF61X-Y 0000#
(TUB\255test chart SF61; ) showen                               %1SF61X-Y 0000#
(gr\341fico TUB\255SF61; ) showes                               %2SF61X-Y 0000#
(TUB\255test graphique SF61; ) showfr                           %3SF61X-Y 0000#
(grafico TUB\255SF61; ) showit                                  %4SF61X-Y 0000#
(TUB\255test chart SF61; ) showjp                               %5SF61X-Y 0000#

xchart4 0 eq {%xchart4=0
(Farbmetrisches Display\255System) showde                       %0SF61X-Y 0100#
(colorimetric display system) showea                            %ASF61X-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
(LECD: rgb, x,y und Ym & Yn (n=normiert=100)) showde           %0SF61X-Y 0200#
(LECD: rgb, x,y and Ym & Yn (n=normalized=100)) showea         %ASF61X-Y 0200#
             } if %xchart4=0

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

xchart4 2 eq {
12 /Times-ISOL1 FS
(Chromatische Pr\374fvorlage) showde                            %0SF61X-Y 0400#
(chromatic test chart) showen                                   %1SF61X-Y 0400#
(test crom\341tico gr\341fico) showes                           %2SF61X-Y 0400#
(chromatic graphique de test) showfr                            %3SF61X-Y 0400#
(prova cromatica grafico) showit                                %4SF61X-Y 0400#
(chromatic test chart) showjp                                   %5SF61X-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                                              %0SF61X-Y 0500#
(input: ) showen                                                %1SF61X-Y 0500#
(entrada: ) showes                                              %2SF61X-Y 0500#
(entr\351e: ) showfr                                            %3SF61X-Y 0500#
(immettere: ) showit                                            %4SF61X-Y 0500#
(input: ) showjp                                                %5SF61X-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                                              %0SF61X-Y 0600#
(output: ) showen                                               %1SF61X-Y 0600#
(salida: ) showes                                               %2SF61X-Y 0600#
(sortie: ) showfr                                               %3SF61X-Y 0600#
(uscita: ) showit                                               %4SF61X-Y 0600#
(output: ) showjp                                               %5SF61X-Y 0600#

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

            {%xchart>=xchart3
             12 /Times-ISOL1 FS
             colorm 0 eq {%colorm=0
(Transfer nach ) showde                                         %0SF61X-Y 0800#
(transfer to ) showen                                           %1SF61X-Y 0800#
(transfiera a ) showes                                          %2SF61X-Y 0800#
(transf\351rer \340 ) showfr                                    %3SF61X-Y 0800#
(trasferire a ) showit                                          %4SF61X-Y 0800#
(transfer to ) showjp                                           %5SF61X-Y 0800#
                         }%colorm=0
                         {%colorm=1
(3D\255Linearisierung ) showde                                  %0SF61X-Y 0900#
(3D\255linearization to ) showen                                %1SF61X-Y 0900#
(3D\255linealizaci\363n a ) showes                              %2SF61X-Y 0900#
(linearisation 3D selon ) showfr                                %3SF61X-Y 0900#
(3D\255linearizzazione a ) showit                               %4SF61X-Y 0900#
(3D\255linearization to ) showjp                                %5SF61X-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<xchart3,>=xchart3


%0 setgray %end white and unvisible

12 /Times-ISOL1 FS

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

%1 setgray %start white and unvisible
(; ) show
xchart xchart3 lt {
(Start\255Ausgabe) showde                                       %0SF61X-Y 1000#
(start output) showen                                           %1SF61X-Y 1000#
(comience salida) showes                                        %2SF61X-Y 1000#
(sortie de production) showfr                                   %3SF61X-Y 1000#
(cominciare l'uscita) showit                                    %4SF61X-Y 1000#
(start output) showjp                                           %5SF61X-Y 1000#
           } if
LSC$ (C) eq {
(Start\255Ausgabe) showde                                       %0SF61X-Y 1100#
(start output) showen                                           %1SF61X-Y 1100#
(comience salida) showes                                        %2SF61X-Y 1100#
(sortie de production) showfr                                   %3SF61X-Y 1100#
(cominciare l'uscita) showit                                    %4SF61X-Y 1100#
(start output) showjp                                           %5SF61X-Y 1100#
           } if
xchart xchart3 ge {%xchart>=xchart3
colorm 0 eq {%colorm=0,1
(Transfer Ausgabe) showde                                       %0SF61X-Y 1200#
(transfer output) showen                                        %1SF61X-Y 1200#
(salida de transferencia) showes                                %2SF61X-Y 1200#
(sortie de transfert) showfr                                    %3SF61X-Y 1200#
(uscita di trasferimento) showit                                %4SF61X-Y 1200#
(transfer output) showjp                                        %5SF61X-Y 1200#
            }%colorm=0
            {%colorm=1
(3D\255Linearisierung) showde                                   %0SF61X-Y 1300#
(3D\255linearization) showen                                    %1SF61X-Y 1300#
(3D\255linealizaci\363n) showes                                 %2SF61X-Y 1300#
(linearisation 3D) showfr                                       %3SF61X-Y 1300#
(3D\255linearizzzazione) showit                                 %4SF61X-Y 1300#
(3D\255linearization) showjp                                    %5SF61X-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                    %0SF61X-Y 1400#
(N: no 3D\255linearization (OL) ) showen                        %1SF61X-Y 1400#
(N: ninguna 3D\255linealizaci\363n (OL) ) showes                %2SF61X-Y 1400#
(N: aucun linearisation 3D (OL) ) showfr                        %3SF61X-Y 1400#
(N: nessun 3D\255linearizzazione (OL) ) showit                  %4SF61X-Y 1400#
(N: no 3D\255linearization (OL) ) showjp                        %5SF61X-Y 1400#

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

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

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

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

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

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

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

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

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

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

xchart5f 1 ge {%xchart5f>=1
(, Separation) showde                                           %0SF61X-Y 3300#
(, separation) showen                                           %1SF61X-Y 3300#
(, separaci\363n) showes                                        %2SF61X-Y 3300#
(, s\351paration) showfr                                        %3SF61X-Y 3300#
(, separazione) showit                                          %4SF61X-Y 3300#
(, separation) showjp                                           %5SF61X-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,3

%} for %xcolorf=0,1

%} for %deintpf=0,1

%} for %colormf=0,1

%} for %lanindf=0,0

%%Trailer