%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/SF62/SF62L00XX.PS 20130201 %%BoundingBox: 00 00 414 292 /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/SF62/SF62.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->SF62/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->SF62/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %***************************************************************************** %BEG GK0X->SF62/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->SF62/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 %BEG SF62/OUTLIN1Y2.PS Emty 20101101 %END SF62/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 0.5 0.5 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$ [(1.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$ [(1.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 00 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 SF620-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 (SF620-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 SF620-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 (SF620-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 SF620-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 (SF620-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 SF620-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 (SF620-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 SF620-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 (SF620-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 SF620-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 (SF620-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 SF620-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/SF62/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2013030112000) /ModDate (D:2013030112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /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 /TS {170 /Times-ISOL1 FS} bind def /TK {200 /Times-ISOL1 FS} bind def /TM {270 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIS {170 /TimesI-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 /TBS {170 /TimesB-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 /TBIS {170 /TimesBI-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 %**************************************************************************** %For output linearization in CIELAB %**************************************************************************** %BEG -- LUT Code ---Look-up-Table for FP-file /nR 9 def %LUT size /nG 9 def /nB 9 def /nges nR nG nB mul mul def /Lab2RGB {%BEG Procedure Lab2RGB % --- Lab2RGB ----------------- % % --- Input (stack): L* a* b* % --- Output (stack): iR iG iB ; LUT value with smallest Delta-E % ---- : delta-E % /Zielb exch def /Ziela exch def /ZielL exch def /dE 1000 def /opt 0 def 1 1 nges { 1 sub 3 mul /ii exch def /dL lut ii get ZielL sub abs def dE dL ge { %dE>dL /da lut ii 1 add get Ziela sub abs def dE da ge { %dE>da /db lut ii 2 add get Zielb sub abs def dE db ge { %dE>db /dEneu dL dL mul da da mul db db mul add add sqrt def /d_L* dL def %new /d_a* da def %new /d_b* db def %new dE dEneu ge { % test ob dEneu < dE /dE dEneu def /opt ii def } if } if } if } if } for /opt opt 3 idiv def /delta_L* d_L* def %new /delta_a* d_a* def %new /delta_b* d_b* def %new /delta_E* d_L* dup mul d_a* dup mul add d_b* dup mul add 0.001 add sqrt def %new /LAB*L*Fa3D ZielL d_L* add def %new /LAB*a*Fa3D Ziela d_a* add def %new /LAB*b*Fa3D Zielb d_b* add def %new /LAB*C*Fa3D LAB*a*Fa3D dup mul LAB*b*Fa3D dup mul add 0.0001 add sqrt def %new /LAB*hFa3D LAB*b*Fa3D LAB*a*Fa3D 0.0001 add atan def %new opt nG nB mul idiv % R auf den stack (Wertebereich real: 0-(nr-1)) opt nG nB mul mod nB idiv % G auf den stack opt nG nB mul mod nB mod % B auf den stack dEneu } def %END Procedure Lab2RGB %********************************************************************* /indexkonv {%BEG Procedure indexkonv % --- indexkonv ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes % --- Ausgabe (stack): Position des LUT-Wertes im 1-dim Lut-Array % %errechnet aus r g b index auf stack den fortlaufenden index exch nB mul add exch nB nG mul mul add 3 mul } def %END Procedure indexkonv %********************************************************************* /set_oktant {%BEG Procedure set_oktant % --- set_oktant ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes, % kennzeichnet die dem Ursprung entfernteste Ecke des ausgewaehlten Raumbereiches % sortierung v1->v8: RGB, RGB+1, RG+1B, RG+1B+1, usw.. % --- Ausgabe (stack): keine % /B_index exch def /G_index exch def /R_index exch def R_index G_index B_index indexkonv /tempindex exch def % /eswird R_index G_index B_index /zu tempindex /lin_v8L lut tempindex get def /lin_v8a lut tempindex 1 add get def /lin_v8b lut tempindex 2 add get def R_index G_index B_index 1 sub indexkonv /tempindex exch def % /eswird R_index G_index B_index 1 sub /zu tempindex jens /lin_v7L lut tempindex get def /lin_v7a lut tempindex 1 add get def /lin_v7b lut tempindex 2 add get def R_index G_index 1 sub B_index indexkonv /tempindex exch def /lin_v6L lut tempindex get def /lin_v6a lut tempindex 1 add get def /lin_v6b lut tempindex 2 add get def R_index G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v5L lut tempindex get def /lin_v5a lut tempindex 1 add get def /lin_v5b lut tempindex 2 add get def R_index 1 sub G_index B_index indexkonv /tempindex exch def /lin_v4L lut tempindex get def /lin_v4a lut tempindex 1 add get def /lin_v4b lut tempindex 2 add get def R_index 1 sub G_index B_index 1 sub indexkonv /tempindex exch def /lin_v3L lut tempindex get def /lin_v3a lut tempindex 1 add get def /lin_v3b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index indexkonv /tempindex exch def /lin_v2L lut tempindex get def /lin_v2a lut tempindex 1 add get def /lin_v2b lut tempindex 2 add get def R_index 1 sub G_index 1 sub B_index 1 sub indexkonv /tempindex exch def /lin_v1L lut tempindex get def /lin_v1a lut tempindex 1 add get def /lin_v1b lut tempindex 2 add get def } def %END Procedure set_oktant %********************************************************************* /L_abc {%BEG Procedure L_abc % --- L_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8L alpha beta gamma mul mul mul lin_v7L alpha beta gammam mul mul mul add lin_v6L alpha betam gamma mul mul mul add lin_v5L alpha betam gammam mul mul mul add lin_v4L alpham beta gamma mul mul mul add lin_v3L alpham beta gammam mul mul mul add lin_v2L alpham betam gamma mul mul mul add lin_v1L alpham betam gammam mul mul mul add } def %END Procedure L_abc %********************************************************************* /a_abc {%BEG Procedure a_abc % --- a_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8a alpha beta gamma mul mul mul lin_v7a alpha beta gammam mul mul mul add lin_v6a alpha betam gamma mul mul mul add lin_v5a alpha betam gammam mul mul mul add lin_v4a alpham beta gamma mul mul mul add lin_v3a alpham beta gammam mul mul mul add lin_v2a alpham betam gamma mul mul mul add lin_v1a alpham betam gammam mul mul mul add } def %END Procedure a_abc %********************************************************************* /b_abc {%BEG Procedure b_abc % --- b_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): L* interpoliert aus LUT im aktuellen Oktanten % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v8b alpha beta gamma mul mul mul lin_v7b alpha beta gammam mul mul mul add lin_v6b alpha betam gamma mul mul mul add lin_v5b alpha betam gammam mul mul mul add lin_v4b alpham beta gamma mul mul mul add lin_v3b alpham beta gammam mul mul mul add lin_v2b alpham betam gamma mul mul mul add lin_v1b alpham betam gammam mul mul mul add } def %END Procedure b_abc %********************************************************************* /Jacobi_abc {%BEG Procedure Jacobi_abc % --- Jacobi_abc ----------------- % % --- Eingabe (stack): alpha (R-Richtung) beta (G-Richtung) gamma (B-Richtung) % --- Ausgabe (stack): Jacobi Matrix an der stelle abc im aktuellen Oktanten % in der reihenfolge abcdefghi % (a b c) % (d e f) % (g h i) % /gamma exch def /beta exch def /alpha exch def /alpham 1 alpha sub def /betam 1 beta sub def /gammam 1 gamma sub def lin_v5L lin_v1L sub betam gammam mul mul lin_v6L lin_v2L sub betam gamma mul mul add lin_v7L lin_v3L sub beta gammam mul mul add lin_v8L lin_v4L sub beta gamma mul mul add lin_v3L lin_v1L sub alpham gammam mul mul lin_v4L lin_v2L sub alpham gamma mul mul add lin_v7L lin_v5L sub alpha gammam mul mul add lin_v8L lin_v6L sub alpha gamma mul mul add lin_v2L lin_v1L sub alpham betam mul mul lin_v4L lin_v3L sub alpham beta mul mul add lin_v6L lin_v5L sub alpha betam mul mul add lin_v8L lin_v7L sub alpha beta mul mul add lin_v5a lin_v1a sub betam gammam mul mul lin_v6a lin_v2a sub betam gamma mul mul add lin_v7a lin_v3a sub beta gammam mul mul add lin_v8a lin_v4a sub beta gamma mul mul add lin_v3a lin_v1a sub alpham gammam mul mul lin_v4a lin_v2a sub alpham gamma mul mul add lin_v7a lin_v5a sub alpha gammam mul mul add lin_v8a lin_v6a sub alpha gamma mul mul add lin_v2a lin_v1a sub alpham betam mul mul lin_v4a lin_v3a sub alpham beta mul mul add lin_v6a lin_v5a sub alpha betam mul mul add lin_v8a lin_v7a sub alpha beta mul mul add lin_v5b lin_v1b sub betam gammam mul mul lin_v6b lin_v2b sub betam gamma mul mul add lin_v7b lin_v3b sub beta gammam mul mul add lin_v8b lin_v4b sub beta gamma mul mul add lin_v3b lin_v1b sub alpham gammam mul mul lin_v4b lin_v2b sub alpham gamma mul mul add lin_v7b lin_v5b sub alpha gammam mul mul add lin_v8b lin_v6b sub alpha gamma mul mul add lin_v2b lin_v1b sub alpham betam mul mul lin_v4b lin_v3b sub alpham beta mul mul add lin_v6b lin_v5b sub alpha betam mul mul add lin_v8b lin_v7b sub alpha beta mul mul add } def %END Procedure Jacobi_abc %********************************************************************* /Inverse_mat {%BEG Procedure Inverse_mat % --- Inverse_mat ----------------- % % --- Eingabe (stack): Matrix in der reihenfolge abcdefghi % invertiert die Matrix (a b c) % (d e f) % (g h i) % --- Ausgabe (stack): Matrix % /i_i exch def /i_h exch def /i_g exch def /i_f exch def /i_e exch def /i_d exch def /i_c exch def /i_b exch def /i_a exch def /i_det i_a i_e i_i mul mul i_b i_d i_i mul mul sub i_a i_f i_h mul mul sub i_c i_d i_h mul mul add i_b i_f i_g mul mul add i_c i_e i_g mul mul sub def i_e i_i mul i_f i_h mul sub i_det div %a der inversen auf stack i_c i_h mul i_b i_i mul sub i_det div %b der inversen auf stack i_b i_f mul i_c i_e mul sub i_det div %c der inversen auf stack i_f i_g mul i_d i_i mul sub i_det div %d der inversen auf stack i_a i_i mul i_c i_g mul sub i_det div %e der inversen auf stack i_c i_d mul i_a i_f mul sub i_det div %f der inversen auf stack i_d i_h mul i_e i_g mul sub i_det div %g der inversen auf stack i_b i_g mul i_a i_h mul sub i_det div %h der inversen auf stack i_a i_e mul i_b i_d mul sub i_det div %i der inversen auf stack } def %END Procedure Inverse_mat %********************************************************************* /linear_finden {%BEG Procedure linear_finden % --- linear_finden ----------------- % % --- Eingabe (stack): iR iG iB ; Indizes eines LUT-Wertes, % kennzeichnet die dem Ursprung entfernteste Ecke des ausgewaehlten Raumbereiches % L* a* b* ; danach der zielpunkt als lab wert % --- Ausgabe (stack): Delta-E: Abstand zum Zielpunkt % alpha, beta, gamma die den kürzesten abstand zum gegebenen zielpunkt aufweisen % /lin_zielb exch def /lin_ziela exch def /lin_zielL exch def set_oktant /akt_a 0.5 def /akt_b 0.5 def /akt_c 0.5 def /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def 0 %default rueckgabewert fuer delta-e (wird nie benutzt, aber fuer pop wichtig) 1 1 10 { pop %pop schleifenzaehler pop %pop letzes Delta-E akt_a akt_b akt_c Jacobi_abc Inverse_mat diff_b mul exch diff_a mul add exch diff_L mul add /delta_c exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_b exch def diff_b mul exch diff_a mul add exch diff_L mul add /delta_a exch def % akt_a akt_b akt_c % delta_a delta_b delta_c /akt_a akt_a delta_a sub def /akt_b akt_b delta_b sub def /akt_c akt_c delta_c sub def akt_a 0 lt {/akt_a 0 def} if akt_b 0 lt {/akt_b 0 def} if akt_c 0 lt {/akt_c 0 def} if 1 akt_a lt {/akt_a 1 def} if 1 akt_b lt {/akt_b 1 def} if 1 akt_c lt {/akt_c 1 def} if /last_L akt_a akt_b akt_c L_abc def /last_a akt_a akt_b akt_c a_abc def /last_b akt_a akt_b akt_c b_abc def /diff_L last_L lin_zielL sub def /diff_a last_a lin_ziela sub def /diff_b last_b lin_zielb sub def %/naechster %akt_a %akt_b %akt_c %last_L %last_a %last_b diff_L dup mul diff_a dup mul diff_b dup mul add add sqrt dup %Abbruch wenn Delta_e<0.1 0.1 lt {exit} if } for /diff_L* diff_L def %new /diff_a* diff_a def %new /diff_b* diff_b def %new /diff_E* diff_L dup mul diff_a dup mul add diff_b dup mul add 0.0001 add sqrt def /last_L* last_L def /last_a* last_a def /last_b* last_b def akt_a akt_b akt_c } def %END Procedure linear_finden %********************************************************************* /Lab2RGBinterpolation {%BEG Procedure Lab2RGBinterpolation /Ziel_b exch def /Ziel_a exch def /Ziel_L exch def Ziel_L Ziel_a Ziel_b Lab2RGB /now_delta_e exch def /B_next exch def /G_next exch def /R_next exch def /R_fin R_next nR 1 sub div def % defaults falls kein besserer wert gefunden /G_fin G_next nG 1 sub div def /B_fin B_next nB 1 sub div def -1 1 2 { R_next add /R_now exch def -1 1 2 { G_next add /G_now exch def -1 1 2 { B_next add /B_now exch def B_now 0 gt G_now 0 gt R_now 0 gt nB B_now gt nG G_now gt nR R_now gt and and and and and { R_now G_now B_now Ziel_L Ziel_a Ziel_b linear_finden /now_c exch def /now_b exch def /now_a exch def dup %rückgabe delta-e doppeln now_delta_e lt { /now_delta_e exch def /Bs0 B_now 1 sub nB 1 sub div 255 mul round 255 div def /Bs1 B_now nB 1 sub div 255 mul round 255 div def /B_fin Bs0 1 now_c sub mul Bs1 now_c mul add def /Gs0 G_now 1 sub nG 1 sub div 255 mul round 255 div def /Gs1 G_now nG 1 sub div 255 mul round 255 div def /G_fin Gs0 1 now_b sub mul Gs1 now_b mul add def /Rs0 R_now 1 sub nR 1 sub div 255 mul round 255 div def /Rs1 R_now nR 1 sub div 255 mul round 255 div def /R_fin Rs0 1 now_a sub mul Rs1 now_a mul add def } { pop } ifelse } if } for } for } for /R*fin R_fin def %new /G*fin G_fin def %new /B*fin B_fin def %new R_fin G_fin B_fin } bind def %END Procedure Lab2RGBinterpolation %**************************************************************************** /xyY 4320 array def /RGB0 3240 array def /XYZ*system { %BEG procedure XYZ*system 0 1 1079 {/xcharti exch def /j00 xcharti 7 mul 0 add def /j04 j00 4 add def /j05 j00 5 add def /j06 j00 6 add def /j40 xcharti 4 mul 0 add def /j41 xcharti 4 mul 1 add def /j42 xcharti 4 mul 2 add def /j43 xcharti 4 mul 3 add def xyY j40 xyY0 j00 get put xyY j41 xyY0 j04 get put xyY j42 xyY0 j05 get put xyY j43 xyY0 j06 get put } for 0 1 1079 {/xcharti exch def /j00 xcharti 7 mul 0 add def /j01 j00 1 add def /j02 j00 2 add def /j03 j00 3 add def /j30 xcharti 3 mul 0 add def /j31 xcharti 3 mul 1 add def /j32 xcharti 3 mul 2 add def RGB0 j30 xyY0 j01 get put RGB0 j31 xyY0 j02 get put RGB0 j32 xyY0 j03 get put } for /XYZrx089 3240 array def %1080*3=3240 /XYZrx100 3240 array def /jend 1073 4 mul 3 add def %White-Measurement /fakt 100 xyY jend get div def /IM0 1080 def /IM1 IM0 1 sub def /IM3 IM0 3 mul 1 sub def /IM4 IM0 4 mul 1 sub def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /j30 i 4 mul 1 add def /j31 j30 1 add def /j32 j30 2 add def /SUM xyY j32 get xyY j31 get div def XYZrx100 i30 xyY j30 get SUM mul fakt mul put XYZrx100 i31 xyY j32 get fakt mul put XYZrx100 i32 1 xyY j30 get sub xyY j31 get sub SUM mul fakt mul put } for %i=0,IM1 0 1 IM3 {/i exch def %i=0,IM3 XYZrx089 i XYZrx100 i get 0.8859 mul put } for %i=0,IM3 /iN 1072 3 mul def /iW 1073 3 mul def /XLN100 XYZrx100 iN get def /YLN100 XYZrx100 iN 1 add get def /ZLN100 XYZrx100 iN 2 add get def /XLW100 XYZrx100 iW get def /YLW100 XYZrx100 iW 1 add get def /ZLW100 XYZrx100 iW 2 add get def /XLN089 XYZrx089 iN get def /YLN089 XYZrx089 iN 1 add get def /ZLN089 XYZrx089 iN 2 add get def /XLW089 XYZrx089 iW get def /YLW089 XYZrx089 iW 1 add get def /ZLW089 XYZrx089 iW 2 add get def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLWD65089 95.04 0.8859 mul def /YLWD65089 100.00 0.8859 mul def /ZLWD65089 108.88 0.8859 mul def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /LABN [(O (R)) (Y) (L (G)) (C) (V (B)) (M) (O (R)) (N) (W) (N0) (W1)] def } bind def %END procedure XYZ*system /XD65W 95.04 def /YD65W 100.00 def /ZD65W 108.88 def /XD50W 96.42 def /YD50W 100.00 def /ZD50W 82.51 def /DAKTE [(D65) (D50)] def %Save 8 standard colours /COL*01 08 array def /COL*01 [(%O1 0) (%Y1 1) (%L1 2) (%C1 3) (%V1 4) (%M1 5) (%N1 6) (%W1 7) ] def /COL*02 08 array def /COL*02 [(%O2 0) (%Y2 1) (%L2 2) (%C2 3) (%V2 4) (%M2 5) (%N2 6) (%W2 7) ] def /COL*03 08 array def /COL*03 [(%O3 0) (%Y3 1) (%L3 2) (%C3 3) (%V3 4) (%M3 5) (%N3 6) (%W3 7) ] def /COL*04 08 array def /COL*04 [(%O4 0) (%Y4 1) (%L4 2) (%C4 3) (%V4 4) (%M4 5) (%N4 6) (%W4 7) ] def /COL*05 08 array def /COL*05 [(%O5 0) (%Y5 1) (%L5 2) (%C5 3) (%V5 4) (%M5 5) (%N5 6) (%W5 7) ] def /COL*06 08 array def /COL*06 [(%O6 0) (%Y6 1) (%L6 2) (%C6 3) (%V6 4) (%M6 5) (%N6 6) (%W6 7) ] def /COL*07 08 array def /COL*07 [(%O7 0) (%Y7 1) (%L7 2) (%C7 3) (%V7 4) (%M7 5) (%N7 6) (%W7 7) ] 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*a01 24 array def /LAB*a02 24 array def /LAB*a03 24 array def /LAB*a04 24 array def /LAB*a05 24 array def /LAB*a06 24 array def /LAB*a07 24 array def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind 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 /cvi1000 {1000 mul cvi /xi exch def xi 0 ge xi 9 le {(000) show} if xi 10 ge xi 99 le and {(00) show} if xi 100 ge xi 999 le and {(0) show} if xi cvishow } bind def /cvisp3 {/xi exch cvi def xi 0 ge xi 9 le {(000) show} if xi 10 ge xi 99 le and {(00) show} if xi 100 ge xi 999 le and {(0) show} if xi cvishow } bind def /cvisp2 {/xi exch cvi def xi 0 ge xi 9 le {(00) show} if xi 10 ge xi 99 le and {(0) show} if xi 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 %3240=1080*3 /LAB*rc089 3240 array def /XYZrc089 3240 array def /LAB*ra089 3240 array def /XYZra089 3240 array def /LAB*la089 3240 array def /XYZla089 3240 array def /LAB*lc089 3240 array def /XYZlc089 3240 array def /XYZ_Xj 1080 array def /XYZ_Yj 1080 array def /XYZ_Zj 1080 array def /LAB*Lj 1080 array def /LAB*aj 1080 array def /LAB*bj 1080 array def /LAB*Lja 1080 array def /LAB*aja 1080 array def /LAB*bja 1080 array def /ymax 16600 def /ydel 203 def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /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 /RGBhab08 8 array def RGBhab08 0 RJGBLAB* 02 get RJGBLAB* 01 get atan put %026 RGBhab08 1 RJGBLAB* 05 get RJGBLAB* 04 get atan put %092 RGBhab08 2 RJGBLAB* 08 get RJGBLAB* 07 get atan put %162 RGBhab08 4 RJGBLAB* 11 get RJGBLAB* 10 get atan put %272 RGBhab08 3 RGBhab08 2 get RGBhab08 4 get add 0.5 mul put %217 RGBhab08 5 RGBhab08 4 get RGBhab08 0 get 360 add add 0.5 mul put %329 RGBhab08 6 RGBhab08 0 get 360 add put %386 RGBhab08 7 RGBhab08 1 get 360 add put %452 /RGBhab08d 8 array def 0 1 6 {/j exch def %j=0,6 RGBhab08d j RGBhab08 j 1 add get RGBhab08 j get sub put } for /xs 1000 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def /xs5x xs 5.4 mul def /ys5x ys 5.4 mul def XYZ*system /Lrefl 11 array def /Lrefl [(0%) (0%) (0%) (0%) (0,6%) (1,2%) (2,5%) (5%) (10%) (20%) (40%)] def /u*dtx [(o) (y) (l) (c) (v) (m) (o)] def /u*etx [(r) (j) (g) () (b) () (r)] def /LAB*na089 3240 array def /XYZna089 3240 array def /IN 27 array def /IN [0000 0001 0002 0003 0004 0005 0006 0007 0008 0243 0244 0245 0246 0247 0248 0249 0250 0251 0486 0487 0488 0489 0490 0491 0492 0493 0494] def /LUTL*64a 64 array def /LUTA*64a 64 array def /LUTB*64a 64 array def /LUTC*64a 64 array def /LUTH*64a 64 array def /holv*64a 64 array def /OLVhab64 64 array def /RGBhab64 64 array def /indton64 64 array def /LNWton09 09 array def /L*ton 9 array def /RJGB16 16 array def /RJGB16 [(r00j=R) (r25j) (r50j) (r75j) (j00g=J) (j25g) (j50g) (j75g) (g00b=G) (g25b) (g50b) (g75b) (b00r=B) (b25r) (b50r) (b75r)] def /L05 5 array def /L05 [(n000w=N) (n025w) (n050w) (n075w) (n100w=W)] def /RGB*16 16 array def /RGB*16 [(1.00 0.00 0.00) (1.00 0.25 0.00) (1.00 0.50 0.00) (1.00 0.75 0.00) (1.00 1.00 0.00) (0.75 1.00 0.00) (0.50 1.00 0.00) (0.25 1.00 0.00) (0.00 1.00 0.00) (0.00 1.00 0.50) (0.00 1.00 1.00) (0.00 0.50 1.00) (0.00 0.00 1.00) (0.50 0.00 1.00) (1.00 0.00 1.00) (1.00 0.00 0.50) ] def /RGBNM*16 16 array def /RGBNW*16 [(1.00 0.00 0.00) (0.50 0.00 0.00) (1.00 0.50 0.50) () (1.00 1.00 0.00) (0.50 0.50 0.00) (1.00 1.00 0.50) () (0.00 1.00 0.00) (0.00 0.50 0.00) (0.50 1.00 0.50) () (0.00 0.00 1.00) (0.00 0.00 0.50) (0.50 0.50 1.00) ()] def /RGB*005 05 array def /RGB*005 [(0.00 0.00 0.00) (0.25 0.25 0.25) (0.50 0.50 0.50) (0.75 0.75 0.75) (1.00 1.00 1.00)] def /RGB*009 09 array def /RGB*009 [(0.000 0.000 0.000) (0.125 0.125 0.125) (0.250 0.250 0.250) (0.375 0.375 0.375) (0.500 0.500 0.500) (0.625 0.625 0.625) (0.750 0.750 0.750) (0.875 0.875 0.875) (1.000 1.000 1.000)] def /OLV64 64 array def /OLV64 [(o00y=O) (o12y) (o25y) (o37y) (o50y) (o62y) (o75y) (o87y) (y00l=Y) (y12l) (y25l) (y37l) (y50l) (y62l) (y75l) (y87l) (l00c=L) (l12c) (l25c) (l37c) (l50c) (l62c) (l75c) (l87c) (c00v=C) (c12v) (c25v) (c37v) (c50v) (c62v) (c75v) (c87v) (v00m=V) (v12m) (v25m) (v37m) (v50m) (v62m) (v75m) (v87m) (m00o=M) (m12o) (m25o) (m37o) (m50o) (m62o) (m75o) (m87o) %repeat for range >360 degree (o00y=O) (o12y) (o25y) (o37y) (o50y) (o62y) (o75y) (o87y) (y00l=Y) (y12l) (y25l) (y37l) (y50l) (y62l) (y75l) (y87l) ] def /RGB64 64 array def /RGB64[(r00j=R) (r12j) (r25j) (r37j) (r50j) (r62j) (r75j) (r87j) (j00g=J) (j12g) (j25g) (j37g) (j50g) (j62g) (j75g) (j87g) (g00c'=G) (g12c') (g25c') (g37c') (g50c') (g62c') (g75c') (g87c') (c'00b=C') (c'12b) (c'25b) (c'37b) (c'50b) (c'62b) (c'75b) (c'87b) (b00m'=B) (b12m') (b25m') (b37m') (b50m') (b62m') (b75m') (b87m') (m'00r=M') (m'12r) (m'25r) (m'37r) (m'50r) (m'62r) (m'75r) (m'87r) %repeat for range >360 degree (r00j=R) (r12j) (r25j) (r37j) (r50j) (r62j) (r75j) (r87j) (j00g=J) (j12g) (j25g) (j37g) (j50g) (j62g) (j75g) (j87g) ] def /RGBOLV*64tx 64 array def /RGBOLV*64tx [(1.000 0.000 0.000) (1.000 0.125 0.000) (1.000 0.250 0.000) (1.000 0.375 0.000) %O-Y (1.000 0.500 0.000) (1.000 0.625 0.000) (1.000 0.750 0.000) (1.000 0.875 0.000) (1.000 1.000 0.000) (0.875 1.000 0.000) (0.750 1.000 0.000) (0.625 1.000 0.000) %Y-L (0.500 1.000 0.000) (0.375 1.000 0.000) (0.250 1.000 0.000) (0.125 1.000 0.000) (0.000 1.000 0.000) (0.000 1.000 0.125) (0.000 1.000 0.250) (0.000 1.000 0.375) %L-C (0.000 1.000 0.500) (0.000 1.000 0.625) (0.000 1.000 0.750) (0.000 1.000 0.875) (0.000 1.000 1.000) (0.000 0.875 1.000) (0.000 0.750 1.000) (0.000 0.625 1.000) %C-V (0.000 0.500 1.000) (0.000 0.375 1.000) (0.000 0.250 1.000) (0.000 0.125 1.000) (0.000 0.000 1.000) (0.125 0.000 1.000) (0.250 0.000 1.000) (0.375 0.000 1.000) %V-M (0.500 0.000 1.000) (0.625 0.000 1.000) (0.750 0.000 1.000) (0.875 0.000 1.000) (1.000 0.000 1.000) (1.000 0.000 0.875) (1.000 0.000 0.750) (1.000 0.000 0.625) %M-O (1.000 0.000 0.500) (1.000 0.000 0.375) (1.000 0.000 0.250) (1.000 0.000 0.125) %repeat for range >360 degree (1.000 0.000 0.000) (1.000 0.125 0.000) (1.000 0.250 0.000) (1.000 0.375 0.000) %O-Y (1.000 0.500 0.000) (1.000 0.625 0.000) (1.000 0.750 0.000) (1.000 0.875 0.000) (1.000 1.000 0.000) (0.875 1.000 0.000) (0.750 1.000 0.000) (0.625 1.000 0.000) %Y-L (0.500 1.000 0.000) (0.375 1.000 0.000) (0.250 1.000 0.000) (0.125 1.000 0.000) ] def /RGBOLV*192 192 array def /RGBOLV*192 [1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 %O-Y 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 1.000 0.000 %Y-L 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000 0.000 1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 %L-C 0.000 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 1.000 %C-V 0.000 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 1.000 %V-M 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 %M-O 1.000 0.000 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 %repeat for range >360 degree 1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 %O-Y 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 1.000 0.000 %Y-L 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000 ] def /RGBOLV*640 64 array def /RGBOLV*641 64 array def /RGBOLV*642 64 array def 0 1 63 {/j exch def %j=0,63 RGBOLV*640 j RGBOLV*192 j 3 mul get put RGBOLV*641 j RGBOLV*192 j 3 mul 1 add get put RGBOLV*642 j RGBOLV*192 j 3 mul 2 add get put } for %j=0,63 /RGBOLVL 0 def %Interpretation rgb->rgb* (0,2) or rgb->olv* (1,3) /LABOLVL 0 def %Output LAB* (0) or OLV*/RGB* (1) /REFLECL 0 def %00 1 00 {/REFLECL exch def %beg REFLECL=0,0 /xcharti 3 def %03 3 6 {/xcharti exch def %beg xcharti=3,10 xcharti 2 le {/il 0 def} {/il xcharti 3 sub def} ifelse %Reference black and factors /YrN 2.52 def /ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def /Xtref089 YrN ilf il get mul XLN001 mul def /Ytref089 YrN ilf il get mul def /Ztref089 YrN ilf il get mul ZLN001 mul def /YNil Ytref089 def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def /IM1 1079 def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZrc089 i30 XYZrx089 i30 get put XYZrc089 i31 XYZrx089 i31 get put XYZrc089 i32 XYZrx089 i32 get put /XQ XYZrc089 i30 get XLWD65100 div def /YQ XYZrc089 i31 get YLWD65100 div def /ZQ XYZrc089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*rc089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*rc089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*rc089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=0,IM1 /jN 1072 3 mul def /L*N LAB*rc089 jN get def /A*N LAB*rc089 jN 1 add get def /B*N LAB*rc089 jN 2 add get def /jW 1073 3 mul def /L*W LAB*rc089 jW get def /A*W LAB*rc089 jW 1 add get def /B*W LAB*rc089 jW 2 add get def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def LAB*ra089 i30 LAB*rc089 i30 get put /l*CIE LAB*rc089 i30 get L*N sub L*W L*N sub div def %system rel. lightn. /a*s A*W A*N sub l*CIE mul def /b*s B*W B*N sub l*CIE mul def LAB*ra089 i31 LAB*rc089 i31 get A*N sub a*s sub put LAB*ra089 i32 LAB*rc089 i32 get B*N sub b*s sub put } for %i=0,IM1 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*ra089 i30 get 16 add 116 div LAB*ra089 i31 get 500 div add} bind def /Y* {LAB*ra089 i30 get 16 add 116 div} bind def /Z* {LAB*ra089 i30 get 16 add 116 div LAB*ra089 i32 get 200 div sub} bind def XYZra089 i30 X* DecodeXYZ* XLWD65100 mul put XYZra089 i31 Y* DecodeXYZ* YLWD65100 mul put XYZra089 i32 Z* DecodeXYZ* ZLWD65100 mul put } for %i=0,IM1 xcharti 2 ge {%xcharti>=2 /jW 1073 3 mul def %for white X data /Xwref089 XYZra089 jW get def /Ywref089 XYZra089 jW 1 add get def /Zwref089 XYZra089 jW 2 add get def /jN 1072 3 mul 1 add def %for black X data /YrN XYZra089 jN 1 add get def /Xnref089 YrN XLN001 mul def /Ynref089 YrN def /Znref089 YrN ZLN001 mul def 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZna089 i30 XYZra089 i30 get Xnref089 sub Xwref089 Xwref089 Xnref089 sub div mul put XYZna089 i31 XYZra089 i31 get Ynref089 sub Ywref089 Ywref089 Ynref089 sub div mul put XYZna089 i32 XYZra089 i32 get Znref089 sub Zwref089 Zwref089 Znref089 sub div mul put } for %i=I1,I2 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZna089 i30 get XLWD65100 div def /YQ XYZna089 i31 get YLWD65100 div def /ZQ XYZna089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*na089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*na089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*na089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=I1,I2 } if %xchart>=2 xcharti 3 ge {%xchart>=3 /jW 1073 3 mul def %for white X data %/jW 57 3 mul def %W /Xwref089 XYZra089 jW get def /Ywref089 XYZra089 jW 1 add get def /Zwref089 XYZra089 jW 2 add get def /kn Ywref089 Ywref089 Ytref089 sub div def 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZla089 i30 XYZna089 i30 get kn div Xtref089 add put XYZla089 i31 XYZna089 i31 get kn div Ytref089 add put XYZla089 i32 XYZna089 i32 get kn div Ztref089 add put } for %i=I1,I2 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZla089 i30 get XLWD65100 div def /YQ XYZla089 i31 get YLWD65100 div def /ZQ XYZla089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*la089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*la089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*la089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=I1,I2 } if %xchart>=3 xcharti 0 eq {%xcharti=0 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*rc089 i30 get put LAB*aj i LAB*rc089 i31 get put LAB*bj i LAB*rc089 i32 get put XYZ_Xj i XYZrc089 i30 get put XYZ_Yj i XYZrc089 i31 get put XYZ_Zj i XYZrc089 i32 get put } for %i=0,IM1 } if %xcharti=0 (1x) xcharti 1 eq {%xcharti=1 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*ra089 i30 get put LAB*aj i LAB*ra089 i31 get put LAB*bj i LAB*ra089 i32 get put XYZ_Xj i XYZra089 i30 get put XYZ_Yj i XYZra089 i31 get put XYZ_Zj i XYZra089 i32 get put } for %i=0,IM1 } if %xcharti=1 (1x) xcharti 2 eq {%xcharti=2 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*na089 i30 get put LAB*aj i LAB*na089 i31 get put LAB*bj i LAB*na089 i32 get put XYZ_Xj i XYZna089 i30 get put XYZ_Yj i XYZna089 i31 get put XYZ_Zj i XYZna089 i32 get put } for %i=0,IM1 } if %xcharti=2 (1x) xcharti 3 ge {%xcharti=3,4,5,6,7,8,9,10 (8x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*la089 i30 get put LAB*aj i LAB*la089 i31 get put LAB*bj i LAB*la089 i32 get put XYZ_Xj i XYZla089 i30 get put XYZ_Yj i XYZla089 i31 get put XYZ_Zj i XYZla089 i32 get put } for %i=0,IM1 } if %xcharti=3,4,5,6,7,8,9,10 (8x) xcharti 0 eq {/Xprint 0 def /FileData (LAB*rc) def} if xcharti 1 eq {/Xprint 1 def /FileData (LAB*ra) def} if xcharti 2 eq {/Xprint 1 def /FileData (LAB*na) def} if xcharti 3 eq {/Xprint 1 def /FileData (LAB*la0) def} if xcharti 4 eq {/Xprint 1 def /FileData (LAB*la1) def} if xcharti 5 eq {/Xprint 1 def /FileData (LAB*la2) def} if xcharti 6 eq {/Xprint 1 def /FileData (LAB*la3) def} if xcharti 7 eq {/Xprint 1 def /FileData (LAB*la4) def} if xcharti 8 eq {/Xprint 1 def /FileData (LAB*la5) def} if xcharti 9 eq {/Xprint 1 def /FileData (LAB*la6) def} if xcharti 10 eq {/Xprint 1 def /FileData (LAB*la7) def} if 0 1 728 {/j exch def %j=1,728 %necessary in both cases j 072 eq {%072 0-8-0 L 2 LAB*01 06 LAB*Lj j get put LAB*01 07 LAB*aj j get put LAB*01 08 LAB*bj j get put} if j 080 eq {%080 0-8-8 C 3 LAB*01 09 LAB*Lj j get put LAB*01 10 LAB*aj j get put LAB*01 11 LAB*bj j get put} if j 008 eq {%008 0-0-8 V 4 LAB*01 12 LAB*Lj j get put LAB*01 13 LAB*aj j get put LAB*01 14 LAB*bj j get put} if j 000 eq {%000 0-0-0 N 6 LAB*01 18 LAB*Lj j get put LAB*01 19 LAB*aj j get put LAB*01 20 LAB*bj j get put} if j 648 eq {%648 8-0-0 O 0 LAB*01 00 LAB*Lj j get put LAB*01 01 LAB*aj j get put LAB*01 02 LAB*bj j get put} if j 720 eq {%720 8-8-0 Y 1 LAB*01 03 LAB*Lj j get put LAB*01 04 LAB*aj j get put LAB*01 05 LAB*bj j get put} if j 656 eq {%656 8-0-8 M 5 LAB*01 15 LAB*Lj j get put LAB*01 16 LAB*aj j get put LAB*01 17 LAB*bj j get put} if j 728 eq {%728 8-8-8 W 7 LAB*01 21 LAB*Lj j get put LAB*01 22 LAB*aj j get put LAB*01 23 LAB*bj j get put} if } for %j=0,728 729 1 971 {/j exch def %j=729,971 %necessary in both cases j 963 eq {%963 0-8-0 L 2 LAB*02 06 LAB*Lj j get put LAB*02 07 LAB*aj j get put LAB*02 08 LAB*bj j get put} if j 737 eq {%737 0-8-8 C 3 LAB*02 09 LAB*Lj j get put LAB*02 10 LAB*aj j get put LAB*02 11 LAB*bj j get put} if j 818 eq {%818 0-0-8 V 4 LAB*02 12 LAB*Lj j get put LAB*02 13 LAB*aj j get put LAB*02 14 LAB*bj j get put} if j 809 eq {%809 or 890 or 971 0-0-0 N 6 LAB*02 18 LAB*Lj j get LAB*Lj 890 get add LAB*Lj 971 get add 3 div put LAB*02 19 LAB*aj j get LAB*aj 890 get add LAB*aj 971 get add 3 div put LAB*02 20 LAB*bj j get LAB*bj 890 get add LAB*bj 971 get add 3 div put} if j 801 eq {%801 8-0-0 O 0 LAB*02 00 LAB*Lj j get put LAB*02 01 LAB*aj j get put LAB*02 02 LAB*bj j get put} if j 882 eq {%882 8-8-0 Y 1 LAB*02 03 LAB*Lj j get put LAB*02 04 LAB*aj j get put LAB*02 05 LAB*bj j get put} if j 899 eq {%899 8-0-8 M 5 LAB*02 15 LAB*Lj j get put LAB*02 16 LAB*aj j get put LAB*02 17 LAB*bj j get put} if j 729 eq {%729 or 810 or 891 8-8-8 W 7 LAB*02 21 LAB*Lj j get LAB*Lj 810 get add LAB*Lj 891 get add 3 div put LAB*02 22 LAB*aj j get LAB*aj 810 get add LAB*aj 891 get add 3 div put LAB*02 23 LAB*bj j get LAB*bj 810 get add LAB*bj 891 get add 3 div put} if } for %j=j=729,971 972 1 1079 {/j exch def %j=972,1079 %only last colours 1072 to 1079 j 1078 eq {%1078 0-8-0 L 2 LAB*03 06 LAB*Lj j get put LAB*03 07 LAB*aj j get put LAB*03 08 LAB*bj j get put} if j 1075 eq {%1075 0-8-8 C 3 LAB*03 09 LAB*Lj j get put LAB*03 10 LAB*aj j get put LAB*03 11 LAB*bj j get put} if j 1077 eq {%1077 0-0-8 V 4 LAB*03 12 LAB*Lj j get put LAB*03 13 LAB*aj j get put LAB*03 14 LAB*bj j get put} if j 1072 eq {%1072 0-0-0 N 6 LAB*03 18 LAB*Lj j get put LAB*03 19 LAB*aj j get put LAB*03 20 LAB*bj j get put} if j 1074 eq {%1074 8-0-0 O 0 LAB*03 00 LAB*Lj j get put LAB*03 01 LAB*aj j get put LAB*03 02 LAB*bj j get put} if j 1076 eq {%1076 8-8-0 Y 1 LAB*03 03 LAB*Lj j get put LAB*03 04 LAB*aj j get put LAB*03 05 LAB*bj j get put} if j 1079 eq {%1079 8-0-8 M 5 LAB*03 15 LAB*Lj j get put LAB*03 16 LAB*aj j get put LAB*03 17 LAB*bj j get put} if j 1073 eq {%1073 8-8-8 W 7 LAB*03 21 LAB*Lj j get put LAB*03 22 LAB*aj j get put LAB*03 23 LAB*bj j get put} if } for %j=j=972,1079 972 1 1079 {/j exch def %09 step N,W: j=0972,0980; 0981,0989; 0990,0998; % 0999,1007 %16 step N,W: j=1008,1023; 1024,1039; 1040,1055; % 1056,1071 %necessary for four 09-step grey scales j 0972 eq {%0972 or 1008 0-0-0 N 6 LAB*04 18 LAB*Lj j get put LAB*04 19 LAB*aj j get put LAB*04 20 LAB*bj j get put} if j 0980 eq {%0980 or 1023 8-8-8 W 7 LAB*04 21 LAB*Lj j get put LAB*04 22 LAB*aj j get put LAB*04 23 LAB*bj j get put} if j 0981 eq {%0981 or 1024 0-0-0 N 6 LAB*05 18 LAB*Lj j get put LAB*05 19 LAB*aj j get put LAB*05 20 LAB*bj j get put} if j 0989 eq {%0989 or 1039 8-8-8 W 7 LAB*05 21 LAB*Lj j get put LAB*05 22 LAB*aj j get put LAB*05 23 LAB*bj j get put} if j 0990 eq {%0990 or 1040 0-0-0 N 6 LAB*06 18 LAB*Lj j get put LAB*06 19 LAB*aj j get put LAB*06 20 LAB*bj j get put} if j 0998 eq {%0998 or 1055 8-8-8 W 7 LAB*06 21 LAB*Lj j get put LAB*06 22 LAB*aj j get put LAB*06 23 LAB*bj j get put} if j 0999 eq {%0999 or 1056 0-0-0 N 6 LAB*07 18 LAB*Lj j get put LAB*07 19 LAB*aj j get put LAB*07 20 LAB*bj j get put} if j 1007 eq {%1007 or 1071 8-8-8 W 7 LAB*07 21 LAB*Lj j get put LAB*07 22 LAB*aj j get put LAB*07 23 LAB*bj j get put} if } for %j=972,1079 %Adaptation /L*Nio LAB*07 18 get def /A*Nio LAB*07 19 get def /B*Nio LAB*07 20 get def /L*Wio LAB*07 21 get def /A*Wio LAB*07 22 get def /B*Wio LAB*07 23 get def /A*Dio A*Wio A*Nio sub def /B*Dio B*Wio B*Nio sub def 0 1 1079 {/j exch def %j=0,1079 LAB*Lja j LAB*Lj j get put /l*CIE LAB*Lj j get L*Nio sub L*Wio L*Nio sub div def %system rel. lightn. /a*s A*Wio A*Nio sub l*CIE mul def /b*s B*Wio B*Nio sub l*CIE mul def LAB*aja j LAB*aj j get A*Nio sub a*s sub put LAB*bja j LAB*bj j get B*Nio sub b*s sub put } for %j=0,1079 /lut 2187 array def %729x3=2187 0 3 2186 {/j exch def %j=0,2186 /j3 j 3 idiv def lut j LAB*Lja j3 get put lut j 1 add LAB*aja j3 get put lut j 2 add LAB*bja j3 get put } for %j=0,2186 %*********************************************************************************** xcharti 2 le {/jN 1072 3 mul def /YNil XYZrx089 jN 1 add get def /L*Nil LAB*rc089 jN get def} if /RJGB0 RJGBLAB* 02 get RJGBLAB* 01 get atan def %026 /RJGB1 RJGBLAB* 05 get RJGBLAB* 04 get atan def %092 /RJGB2 RJGBLAB* 08 get RJGBLAB* 07 get atan def %162 /RJGB3 RJGBLAB* 11 get RJGBLAB* 10 get atan def %272 /CeGB RJGB2 RJGB3 add 0.5 mul def /MeBR RJGB3 RJGB0 360 add add 0.5 mul def 0 1 47 {/j exch def %i=0,47 elementary and intemediate hue angles /j0 j j 8 idiv 8 mul sub def %0,1,2,3,4,5,6,7 /b0 j0 0.125 mul def /a0 1 b0 sub def j 00 ge j 07 le and {RGBhab64 j a0 RJGB0 mul b0 RJGB1 mul add put} if j 08 ge j 15 le and {RGBhab64 j a0 RJGB1 mul b0 RJGB2 mul add put} if j 16 ge j 23 le and {RGBhab64 j a0 RJGB2 mul b0 CeGB mul add put} if j 24 ge j 31 le and {RGBhab64 j a0 CeGB mul b0 RJGB3 mul add put} if j 32 ge j 39 le and {RGBhab64 j a0 RJGB3 mul b0 MeBR mul add put} if j 40 ge j 47 le and {RGBhab64 j a0 MeBR mul b0 RJGB0 360 add mul add dup 360 ge {360 sub} if put} if } for %j=0,47 elementary and intemediate hue angles 0 1 15 {/j exch def %j=0,15 %for interpolation 0 rgb* (0,2) /LAB*hMaP LAB*hMa def LAB*hMa OLVhab64 0 get lt {/LAB*hMaP LAB*hMa 360 add def} if /joj -1 def 0 1 62 {/jj exch def %jj=1,62 /habton0 OLVhab64 jj get def /habton1 OLVhab64 jj 1 add get def LAB*hMaP habton0 ge LAB*hMaP habton1 lt and {/joj jj def exit } if } for %jj=0,62 joj -1 eq {%output in case of data failure -100 -100 rmoveto (STOPjoj=-1) show (, ) show jj cvishow (, ) show LAB*hMaP cvsshow1 (, ) show OLVhab64 jj get cvsshow1 (, ) show OLVhab64 jj 1 add get cvsshow1 } if % } if %RGBOLVL=0 /A2 LAB*hMaP habton0 sub habton1 habton0 sub div def /A1 1 A2 sub def /jxj joj def %RGBOLVL 0 eq RGBOLVL 2 eq or {joj} {jrj} ifelse def /LAB*L*Ma LUTL*64a jxj get A1 mul LUTL*64a jxj 1 add get A2 mul add def /LAB*C*Ma LUTC*64a jxj get A1 mul LUTC*64a jxj 1 add get A2 mul add def /LAB*H*Ma LUTH*64a jxj get A1 mul LUTH*64a jxj 1 add get A2 mul add def /LAB*a*Ma LAB*C*Ma LAB*H*Ma cos mul def /LAB*b*Ma LAB*C*Ma LAB*H*Ma sin mul def /o3*Ma RGBOLV*640 jxj get A1 mul RGBOLV*640 jxj 1 add get A2 mul add def /l3*Ma RGBOLV*641 jxj get A1 mul RGBOLV*641 jxj 1 add get A2 mul add def /v3*Ma RGBOLV*642 jxj get A1 mul RGBOLV*642 jxj 1 add get A2 mul add def /LAB*L*M LAB*L*Ma def /l*CIE LAB*L*Ma L*Nio sub L*Wio L*Nio sub div def %relative lightness /LAB*Cja LAB*aja xcharti get dup mul LAB*bja xcharti get dup mul add 0.0001 add sqrt def /LAB*hja LAB*bja xcharti get LAB*aja xcharti get 0.0001 add atan def /LAB*a*Mae LAB*C*Ma LAB*hMa cos mul def /LAB*b*Mae LAB*C*Ma LAB*hMa sin mul def %relative chroma c*3, blackness n*3, brilliance i*3 /minFa o3*Fa def l3*Fa minFa lt {/minFa l3*Fa def} if v3*Fa minFa lt {/minFa v3*Fa def} if /maxFa o3*Fa def l3*Fa maxFa gt {/maxFa l3*Fa def} if v3*Fa maxFa gt {/maxFa v3*Fa def} if /i*3 maxFa def /c*3 maxFa minFa sub def /n*3 1 i*3 sub def %CIE lightness and chroma of colour Fa %See equations (1) to (4) of www.ps.bam.de/D33872-AE.PDF, Page 10 /t*3 i*3 c*3 0.5 mul sub def /l*3 t*3 c*3 LAB*L*Ma L*Nio sub L*Wio L*Nio sub div 0.5 sub mul add def /LAB*L*Fa l*3 L*Wio L*Nio sub mul L*Nio add def /LAB*C*Fa LAB*C*Ma c*3 mul def /LAB*a*Fa LAB*C*Fa LAB*hFa cos mul def /LAB*b*Fa LAB*C*Fa LAB*hFa sin mul def %for output of data for colours Ma and Fa LAB*hMa 360 ge {/LAB*hMa LAB*hMa 360 sub def} if /LAB*hFa LAB*hMa def /LAB*L*Fait LAB*L*Fa def /LAB*a*Fait LAB*a*Fa def /LAB*b*Fait LAB*b*Fa def /LAB*C*Fait LAB*a*Fait dup mul LAB*b*Fait dup mul add 0.0001 add sqrt def /LAB*hFait LAB*b*Fait LAB*a*Fait 0.0001 add atan def LAB*L*Fait LAB*a*Fait LAB*b*Fait %*************************************************** Lab2RGBinterpolation %procedure for 3D interpolation %*************************************************** /v*3Fa3D exch def /l*3Fa3D exch def /o*3Fa3D exch def %produces in addition: %delta_L*, delta_a*, delta_b*, delta_E* %LAB*L*Fa3D, LAB*a*Fa3D, LAB*b*Fa3D, LAB*C*Fa3D, LAB*hFa3D %end 3D interpolation of measured start output data ixx 500 0 mul add iymax ilj idy mul sub moveto o*3Fa3D cvi1000 ixx 500 1 mul add iymax ilj idy mul sub moveto l*3Fa3D cvi1000 ixx 500 2 mul add iymax ilj idy mul sub moveto v*3Fa3D cvi1000 ixx 500 3 mul add iymax ilj idy mul sub moveto (%) show xyY0 j00 get cvisp3 ixx 500 4.4 mul add iymax ilj idy mul sub moveto o*3Fa3D 255 mul cvisp2 ixx 500 5.3 mul add iymax ilj idy mul sub moveto l*3Fa3D 255 mul cvisp2 ixx 500 6.2 mul add iymax ilj idy mul sub moveto v*3Fa3D 255 mul cvisp2 %ixx 500 4 mul add iymax ilj idy mul sub moveto %LAB*L*Fa3D cvsshow1r %ixx 500 5 mul add iymax ilj idy mul sub moveto %LAB*C*Fa3D cvsshow1r %ixx 500 6 mul add iymax ilj idy mul sub moveto %LAB*hFa3D cvsshow1r } ifelse %xchartl=0,1 or 2,3 } for %xcharti=xch1,xch2 showpage grestore %} for %xchartl=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 SF620-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 (SF620-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 SF621-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 (SF621-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 SF621-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 (SF621-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 SF621-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 (SF621-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 SF621-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 (SF621-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 SF621-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 (SF621-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 SF621-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 (SF621-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 SF621-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 (SF621-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 SF621-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 (SF621-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/SF62/SF62) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/SF62/SF62) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/SF62/SF62.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 SF62; ) showde %0SF62X-Y 0000# (TUB\255test chart SF62; ) showen %1SF62X-Y 0000# (gr\341fico TUB\255SF62; ) showes %2SF62X-Y 0000# (TUB\255test graphique SF62; ) showfr %3SF62X-Y 0000# (grafico TUB\255SF62; ) showit %4SF62X-Y 0000# (TUB\255test chart SF62; ) showjp %5SF62X-Y 0000# xchart4 0 eq {%xchart4=0 (Farbmetrisches Display\255System) showde %0SF62X-Y 0100# (colorimetric display system) showea %ASF62X-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: XYZ & LCh* (n=89) und) showde %0SF62X-Y 0200# (LECD: XYZ & LCh* (n=89) and) showea %ASF62X-Y 0200# 12 /TimesI-ISOL1 FS (rgb) show 10 /Times-ISOL1 0 -60 rmoveto (dd) show 0 60 rmoveto 12 /Times-ISOL1 FS ( (3D\255linearisiert)) showde %0SF62X-Y 0250# ( (3D linearized)) showea %ASF62X-Y 0250# } if %xchart4=0 xchart4 1 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0SF62X-Y 0300# (chromatic test chart) showen %1SF62X-Y 0300# (test crom\341tico gr\341fico) showes %2SF62X-Y 0300# (chromatic graphique de test) showfr %3SF62X-Y 0300# (prova cromatica grafico) showit %4SF62X-Y 0300# (chromatic test chart) showjp %5SF62X-Y 0300# 12 /TimesI-ISOL1 FS ( RGB) show } if xchart4 2 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0SF62X-Y 0400# (chromatic test chart) showen %1SF62X-Y 0400# (test crom\341tico gr\341fico) showes %2SF62X-Y 0400# (chromatic graphique de test) showfr %3SF62X-Y 0400# (prova cromatica grafico) showit %4SF62X-Y 0400# (chromatic test chart) showjp %5SF62X-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 %0SF62X-Y 0500# (input: ) showen %1SF62X-Y 0500# (entrada: ) showes %2SF62X-Y 0500# (entr\351e: ) showfr %3SF62X-Y 0500# (immettere: ) showit %4SF62X-Y 0500# (input: ) showjp %5SF62X-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 %0SF62X-Y 0600# (output: ) showen %1SF62X-Y 0600# (salida: ) showes %2SF62X-Y 0600# (sortie: ) showfr %3SF62X-Y 0600# (uscita: ) showit %4SF62X-Y 0600# (output: ) showjp %5SF62X-Y 0600# %colorm=0,1! 12 /Times-ISOL1 FS xchart xchart3 lt {%xchart=xchart3 12 /Times-ISOL1 FS (keine \304nderung) showde %0SF62X-Y 0700# (no change) showen %1SF62X-Y 0700# (ning\372n cambio) showes %2SF62X-Y 0700# (aucun changement) showfr %3SF62X-Y 0700# (nessun cambiamento) showit %4SF62X-Y 0700# (no change compared) showjp %5SF62X-Y 0700# }%xchart=xchart3 12 /Times-ISOL1 FS colorm 0 eq {%colorm=0 (Transfer nach ) showde %0SF62X-Y 0800# (transfer to ) showen %1SF62X-Y 0800# (transfiera a ) showes %2SF62X-Y 0800# (transf\351rer \340 ) showfr %3SF62X-Y 0800# (trasferire a ) showit %4SF62X-Y 0800# (transfer to ) showjp %5SF62X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0SF62X-Y 0900# (3D\255linearization to ) showen %1SF62X-Y 0900# (3D\255linealizaci\363n a ) showes %2SF62X-Y 0900# (linearisation 3D selon ) showfr %3SF62X-Y 0900# (3D\255linearizzazione a ) showit %4SF62X-Y 0900# (3D\255linearization to ) showjp %5SF62X-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 %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/SF62/SF62L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show xchart xchart3 lt { (Start\255Ausgabe) showde %0SF62X-Y 1000# (start output) showen %1SF62X-Y 1000# (comience salida) showes %2SF62X-Y 1000# (sortie de production) showfr %3SF62X-Y 1000# (cominciare l'uscita) showit %4SF62X-Y 1000# (start output) showjp %5SF62X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0SF62X-Y 1100# (start output) showen %1SF62X-Y 1100# (comience salida) showes %2SF62X-Y 1100# (sortie de production) showfr %3SF62X-Y 1100# (cominciare l'uscita) showit %4SF62X-Y 1100# (start output) showjp %5SF62X-Y 1100# } if xchart xchart3 ge {%xchart>=xchart3 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0SF62X-Y 1200# (transfer output) showen %1SF62X-Y 1200# (salida de transferencia) showes %2SF62X-Y 1200# (sortie de transfert) showfr %3SF62X-Y 1200# (uscita di trasferimento) showit %4SF62X-Y 1200# (transfer output) showjp %5SF62X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0SF62X-Y 1300# (3D\255linearization) showen %1SF62X-Y 1300# (3D\255linealizaci\363n) showes %2SF62X-Y 1300# (linearisation 3D) showfr %3SF62X-Y 1300# (3D\255linearizzzazione) showit %4SF62X-Y 1300# (3D\255linearization) showjp %5SF62X-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 %0SF62X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1SF62X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2SF62X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3SF62X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4SF62X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5SF62X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0SF62X-Y 1500# (in file (F) or PS\255startup (S)) showen %1SF62X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2SF62X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3SF62X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4SF62X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5SF62X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0SF62X-Y 1600# (3D\255linearization) showen %1SF62X-Y 1600# (3D\255linealizaci\363n) showes %2SF62X-Y 1600# (linearisation 3D) showfr %3SF62X-Y 1600# (3D\255linearizzzazione) showit %4SF62X-Y 1600# (3D\255linearization) showjp %5SF62X-Y 1600# ( SF62/SF62L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0SF62X-Y 1700# ( in file (F)) showen %1SF62X-Y 1700# ( en archivo (F)) showes %2SF62X-Y 1700# ( dans fichier (F)) showfr %3SF62X-Y 1700# ( nel file (F)) showit %4SF62X-Y 1700# ( in file (F)) showjp %5SF62X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0SF62X-Y 1800# ( in Distiller Startup (S) Directory) showen %1SF62X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2SF62X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3SF62X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4SF62X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5SF62X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0SF62X-Y 1900# ( in PS\255device (D)) showen %1SF62X-Y 1900# ( en el PS\255device (D)) showes %2SF62X-Y 1900# ( dans l'appareil PS (D)) showfr %3SF62X-Y 1900# ( nel PS\255dispositivo (D)) showit %4SF62X-Y 1900# ( in PS\255Device (D)) showjp %5SF62X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0SF62X-Y 2000# ( in Distiller Startup (S) Directory) showen %1SF62X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2SF62X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3SF62X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4SF62X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5SF62X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0SF62X-Y 2100# ( in PS\255device (D)) showen %1SF62X-Y 2100# ( en el PS\255device (D)) showes %2SF62X-Y 2100# ( dans appareil PS (D)) showfr %3SF62X-Y 2100# ( nel PS\255dispositivo (D)) showit %4SF62X-Y 2100# ( in PS\255Device (D)) showjp %5SF62X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0SF62X-Y 2200# (, page ) showen %1SF62X-Y 2200# (, p\341gina ) showes %2SF62X-Y 2200# (, page ) showfr %3SF62X-Y 2200# (, pagina ) showit %4SF62X-Y 2200# (, page ) showjp %5SF62X-Y 2200# xchart 1 add xcolor 8 mul add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0SF62X-Y 2300# (see similar files: ) showen %1SF62X-Y 2300# (vea archivos semejantes: ) showes %2SF62X-Y 2300# (voir des fichiers similaires: ) showfr %3SF62X-Y 2300# (vedere dei file simili: ) showit %4SF62X-Y 2300# (see similar files: ) showjp %5SF62X-Y 2300# (http://130.149.60.45/~farbmetrik/SF62/SF62.HTM) show %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0SF62X-Y 2400# (technical information: ) showen %1SF62X-Y 2400# (informaci\363n t\351cnica: ) showes %2SF62X-Y 2400# (informations techniques: ) showfr %3SF62X-Y 2400# (informazioni tecniche: ) showit %4SF62X-Y 2400# (technical information: ) showjp %5SF62X-Y 2400# (http://www.ps.bam.de) show ( oder ) showde %0SF62X-Y 2500# ( or ) showen %1SF62X-Y 2500# ( o ) showes %2SF62X-Y 2500# ( ou ) showfr %3SF62X-Y 2500# ( o ) showit %4SF62X-Y 2500# ( or ) showjp %5SF62X-Y 2500# (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20130201\255SF62/SF62L) showde %0SF62X-Y 2600# (TUB registration: 20130201\255SF62/SF62L) showen %1SF62X-Y 2600# (TUB matr\355cula: 20130201\255SF62/SF62L) showes %2SF62X-Y 2600# (TUB enregistrement: 20130201\255SF62/SF62L) showfr %3SF62X-Y 2600# (TUB iscrizione: 20130201\255SF62/SF62L) showit %4SF62X-Y 2600# (TUB registration: 20130201\255SF62/SF62L) showjp %5SF62X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0SF62X-Y 2700# (TUB material: code=rha4ta) showen %1SF62X-Y 2700# (TUB material: code=rha4ta) showes %2SF62X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3SF62X-Y 2700# (TUB materiale: code=rha4ta) showit %4SF62X-Y 2700# (TUB material: code=rha4ta) showjp %5SF62X-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 %0SF62X-Y 2800# ( application for measurement ) showen %1SF62X-Y 2800# ( aplicaci\363n para la medida ) showes %2SF62X-Y 2800# ( application pour la mesure ) showfr %3SF62X-Y 2800# ( la domanda per la misura ) showit %4SF62X-Y 2800# ( application for measurement ) showjp %5SF62X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display-Ausgabe) showde %0SF62X-Y 2900# (of display output) showen %1SF62X-Y 2900# (de display output) showes %2SF62X-Y 2900# (de sortie sur \350cran) showfr %3SF62X-Y 2900# (di stampa di display) showit %4SF62X-Y 2900# (of display output) showjp %5SF62X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0SF62X-Y 3000# (of offset print output) showen %1SF62X-Y 3000# (salida en la impressi\363n offset) showes %2SF62X-Y 3000# (des sorties sur offset) showfr %3SF62X-Y 3000# (uscita nella stampa di offset) showit %4SF62X-Y 3000# (of offset print output) showjp %5SF62X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0SF62X-Y 3100# (of laser printer output) showen %1SF62X-Y 3100# (salida de impresora l\341ser) showes %2SF62X-Y 3100# (des sorties sur imprimante laser) showfr %3SF62X-Y 3100# (di uscita della stampante laser) showit %4SF62X-Y 3100# (of laser printer output) showjp %5SF62X-Y 3100# } if %xchart5f=3 xchart xchart3 ge {%xchart>=xchart3 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0SF62X-Y 3200# (, no separation) showen %1SF62X-Y 3200# (, ninguna separaci\363n) showes %2SF62X-Y 3200# (, aucune s\351paration) showfr %3SF62X-Y 3200# (, nessuna separazione) showit %4SF62X-Y 3200# (, no separation) showjp %5SF62X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0SF62X-Y 3300# (, separation) showen %1SF62X-Y 3300# (, separaci\363n) showes %2SF62X-Y 3300# (, s\351paration) showfr %3SF62X-Y 3300# (, separazione) showit %4SF62X-Y 3300# (, separation) showjp %5SF62X-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