%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/SI41/SI41L00XX.PS 20130201 %%BoundingBox: 14 08 828 584 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: www.ps.bam.de/SI41/SI41.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->SI41/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->SI41/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %***************************************************************************** %BEG GK0X->SI41/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->SI41/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 %BEG SI41/OUTLIN1Y2.PS Emty 20101101 %END SI41/OUTLIN1Y2.PS Emty 20101101 /BeginEPSF {% def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF {% def % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 1.0 1.0 scale /pgsave save def %%EndPageSetup /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def %******************************************************************* /lanind1f 04 def /lanind2f 04 def /laninddf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /xcolor1f 00 def /xcolor2f 01 def /xcolordf 01 def /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def /xchart3f 01 def /xchart4f 00 def /xchart5f 00 def /pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0 /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % /xchartf xchart1f def %xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* /setgray {sfgray} bind def /setrgbcolor {sfrgbcolor} bind def /setcmykcolor {sfcmykcolor} bind def %72 90 translate %0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke %000 -240 moveto %240 /Times-ISOL1 FS %lanindf cvishow (-) show %colormf cvishow %deintpf cvishow %xcolorf cvishow %xchartf cvishow %pchartf cvishow %colsepf cvishow (-F) show pmetamf cvishow %grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 6 get def /GEY$ EY$ 6 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 %%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 %%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 %%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 %%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 %%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 %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 MM 2 MM sub xt 0 eq {16 MM sub} if 20 MM xt 0 eq {12 MM sub} if translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 SI410-7N %%BoundingBox: 70 82 785 580 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/SI41/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2013030112000) /ModDate (D:2013030112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !Change to ISOLatin1 fonts /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /LUT 10800 array def /LUT_LAB0 10800 array def %10x1080 /LUT_LAB1 10800 array def %10x1080 /LUT_LAB2 10800 array def %10x1080 /LUT_LAB3 10800 array def %10x1080 /LUT_LAB4 10800 array def %10x1080 /LUT_LAB5 10800 array def %10x1080 /LUT_LAB6 10800 array def %10x1080 /LUT_LAB7 10800 array def %10x1080 /LAB*Fa0000 96 array def /LAB*Fa0100 96 array def /LAB*Fa1100 96 array def %********************************************************************* %BEG SI41_HRS16_96_D65_00%_00_LUT.DAT /FileDataen (_LUT.DAT, 243 colours, 090115, Separation rgb*, adapted) def /FileDatade (_LUT.DAT, 243 Farben, 090115, Separation rgb*, adaptiert) def /FileData0Na (SI41_HRS16_96_D65_00%_G0) def /LUT_LAB0 [ %GE300-7A, Page 7 /24, %BEG GE20_22.TXT, Separation olv*, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE20_22.TXT, Separation olv*, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 001465 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 001633 -00109 -00079 0000 0000 0125 1000 1000 0875 0000 %0001 A02 002166 -00320 -01003 0000 0000 0250 1000 1000 0750 0000 %0002 A03 002262 -00096 -02629 0000 0000 0375 1000 1000 0625 0000 %0003 A04 002746 -00116 -03396 0000 0000 0500 1000 1000 0500 0000 %0004 A05 003135 -00331 -03775 0000 0000 0625 1000 1000 0375 0000 %0005 A06 003417 -00410 -04124 0000 0000 0750 1000 1000 0250 0000 %0006 A07 003620 -00454 -04434 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003865 -00481 -04629 0000 0000 1000 1000 1000 0000 0000 %0008 A09 002568 -02799 001162 0000 0125 0000 1000 0875 1000 0000 %0009 B01 002000 -01485 -00376 0000 0125 0125 1000 0875 0875 0000 %0010 B02 002518 -00671 -02525 0000 0125 0250 1000 0875 0750 0000 %0011 B03 002865 -00239 -03401 0000 0125 0375 1000 0875 0625 0000 %0012 B04 003165 -00307 -03740 0000 0125 0500 1000 0875 0500 0000 %0013 B05 003404 -00359 -04069 0000 0125 0625 1000 0875 0375 0000 %0014 B06 003641 -00473 -04298 0000 0125 0750 1000 0875 0250 0000 %0015 B07 003796 -00432 -04588 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003984 -00433 -04745 0000 0125 1000 1000 0875 0000 0000 %0017 B09 003463 -04269 002162 0000 0250 0000 1000 0750 1000 0000 %0018 C01 003416 -04745 001931 0000 0250 0125 1000 0750 0875 0000 %0019 C02 002899 -03098 -00662 0000 0250 0250 1000 0750 0750 0000 %0020 C03 003345 -01356 -03378 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003543 -00592 -04149 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003765 -00564 -04380 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003949 -00614 -04645 0000 0250 0750 1000 0750 0250 0000 %0024 C07 004033 -00531 -04819 0000 0250 0875 1000 0750 0125 0000 %0025 C08 004115 -00644 -04776 0000 0250 1000 1000 0750 0000 0000 %0026 C09 004356 -04990 002996 0000 0375 0000 1000 0625 1000 0000 %0027 D01 004295 -05279 002817 0000 0375 0125 1000 0625 0875 0000 %0028 D02 004215 -06634 002356 0000 0375 0250 1000 0625 0750 0000 %0029 D03 004025 -04762 -00686 0000 0375 0375 1000 0625 0625 0000 %0030 D04 004239 -02311 -03783 0000 0375 0500 1000 0625 0500 0000 %0031 D05 004302 -01217 -04659 0000 0375 0625 1000 0625 0375 0000 %0032 D06 004266 -00907 -04814 0000 0375 0750 1000 0625 0250 0000 %0033 D07 004252 -00974 -04844 0000 0375 0875 1000 0625 0125 0000 %0034 D08 004308 -01055 -04803 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004944 -05380 003400 0000 0500 0000 1000 0500 1000 0000 %0036 E01 004917 -05509 003363 0000 0500 0125 1000 0500 0875 0000 %0037 E02 004868 -06122 003149 0000 0500 0250 1000 0500 0750 0000 %0038 E03 004749 -07639 002410 0000 0500 0375 1000 0500 0625 0000 %0039 E04 004839 -05700 -00846 0000 0500 0500 1000 0500 0500 0000 %0040 E05 004948 -03376 -03658 0000 0500 0625 1000 0500 0375 0000 %0041 E06 004715 -01772 -04816 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004560 -01476 -04834 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004545 -01457 -04818 0000 0500 1000 1000 0500 0000 0000 %0044 E09 005360 -05596 003772 0000 0625 0000 1000 0375 1000 0000 %0045 F01 005328 -05764 003689 0000 0625 0125 1000 0375 0875 0000 %0046 F02 005391 -06105 003644 0000 0625 0250 1000 0375 0750 0000 %0047 F03 005324 -06890 003306 0000 0625 0375 1000 0375 0625 0000 %0048 F04 005039 -07043 001525 0000 0625 0500 1000 0375 0500 0000 %0049 F05 005105 -05488 -01280 0000 0625 0625 1000 0375 0375 0000 %0050 F06 005124 -03884 -03391 0000 0625 0750 1000 0375 0250 0000 %0051 F07 005013 -02303 -04822 0000 0625 0875 1000 0375 0125 0000 %0052 F08 004814 -01905 -04819 0000 0625 1000 1000 0375 0000 0000 %0053 F09 005838 -05956 004201 0000 0750 0000 1000 0250 1000 0000 %0054 G01 005847 -06072 004127 0000 0750 0125 1000 0250 0875 0000 %0055 G02 005814 -06167 004030 0000 0750 0250 1000 0250 0750 0000 %0056 G03 005614 -06408 003675 0000 0750 0375 1000 0250 0625 0000 %0057 G04 005485 -06481 002833 0000 0750 0500 1000 0250 0500 0000 %0058 G05 005587 -05631 000692 0000 0750 0625 1000 0250 0375 0000 %0059 G06 005459 -04832 -01366 0000 0750 0750 1000 0250 0250 0000 %0060 G07 005133 -03805 -03529 0000 0750 0875 1000 0250 0125 0000 %0061 G08 005128 -02534 -04820 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005995 -05998 004350 0000 0875 0000 1000 0125 1000 0000 %0063 H01 005941 -06056 004262 0000 0875 0125 1000 0125 0875 0000 %0064 H02 005915 -06023 004221 0000 0875 0250 1000 0125 0750 0000 %0065 H03 005800 -06157 003955 0000 0875 0375 1000 0125 0625 0000 %0066 H04 005726 -06192 003392 0000 0875 0500 1000 0125 0500 0000 %0067 H05 005700 -05892 002187 0000 0875 0625 1000 0125 0375 0000 %0068 H06 005833 -05069 000353 0000 0875 0750 1000 0125 0250 0000 %0069 H07 005629 -04497 -01575 0000 0875 0875 1000 0125 0125 0000 %0070 H08 005247 -03603 -03550 0000 0875 1000 1000 0125 0000 0000 %0071 H09 006027 -05928 004407 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005962 -05997 004354 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005968 -05946 004235 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005860 -06031 003905 0000 1000 0375 1000 0000 0625 0000 %0075 I04 005828 -05952 003381 0000 1000 0500 1000 0000 0500 0000 %0076 I05 005756 -05929 002828 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005805 -05458 001551 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005973 -04630 -00111 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005633 -04089 -02066 0000 1000 1000 1000 0000 0000 0000 %0080 I09 001691 000182 000094 0125 0000 0000 0875 1000 1000 0000 %0081 J01 001737 000919 -01126 0125 0000 0125 0875 1000 0875 0000 %0082 J02 002306 000691 -03316 0125 0000 0250 0875 1000 0750 0000 %0083 J03 002608 000286 -03518 0125 0000 0375 0875 1000 0625 0000 %0084 J04 002957 000214 -03987 0125 0000 0500 0875 1000 0500 0000 %0085 J05 003266 -00006 -04209 0125 0000 0625 0875 1000 0375 0000 %0086 J06 003508 -00180 -04418 0125 0000 0750 0875 1000 0250 0000 %0087 J07 003723 -00308 -04598 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003922 -00400 -04741 0125 0000 1000 0875 1000 0000 0000 %0089 J09 001978 -00243 000225 0125 0125 0000 0875 0875 1000 0000 %0090 K01 001751 000004 -00014 0125 0125 0125 0875 0875 0875 0000 %0091 K02 002593 -00114 -02558 0125 0125 0250 0875 0875 0750 0000 %0092 K03 003096 -00140 -03752 0125 0125 0375 0875 0875 0625 0000 %0093 K04 003358 -00083 -04225 0125 0125 0500 0875 0875 0500 0000 %0094 K05 003544 -00229 -04365 0125 0125 0625 0875 0875 0375 0000 %0095 K06 003712 -00330 -04525 0125 0125 0750 0875 0875 0250 0000 %0096 K07 003872 -00424 -04702 0125 0125 0875 0875 0875 0125 0000 %0097 K08 003978 -00391 -04751 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003371 -03772 002181 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003461 -02910 001526 0125 0250 0125 0875 0750 0875 0000 %0100 L02 003062 -02114 -00502 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003510 -01228 -02755 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003702 -00754 -04066 0125 0250 0500 0875 0750 0500 0000 %0103 L05 003879 -00565 -04556 0125 0250 0625 0875 0750 0375 0000 %0104 L06 004021 -00584 -04740 0125 0250 0750 0875 0750 0250 0000 %0105 L07 004061 -00625 -04816 0125 0250 0875 0875 0750 0125 0000 %0106 L08 004118 -00632 -04766 0125 0250 1000 0875 0750 0000 0000 %0107 L09 004319 -04808 002926 0125 0375 0000 0875 0625 1000 0000 %0108 M01 004316 -05016 002853 0125 0375 0125 0875 0625 0875 0000 %0109 M02 004269 -04637 001695 0125 0375 0250 0875 0625 0750 0000 %0110 M03 004057 -03665 -00699 0125 0375 0375 0875 0625 0625 0000 %0111 M04 004163 -02185 -03194 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004311 -01386 -04461 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004322 -01051 -04804 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004318 -01037 -04831 0125 0375 0875 0875 0625 0125 0000 %0115 M08 004330 -01048 -04803 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004961 -05221 003500 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004925 -05536 003378 0125 0500 0125 0875 0500 0875 0000 %0118 N02 005015 -06145 003220 0125 0500 0250 0875 0500 0750 0000 %0119 N03 005017 -06443 001999 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004863 -05149 -00982 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004847 -03242 -03359 0125 0500 0625 0875 0500 0375 0000 %0122 N06 004719 -01909 -04586 0125 0500 0750 0875 0500 0250 0000 %0123 N07 004636 -01583 -04808 0125 0500 0875 0875 0500 0125 0000 %0124 N08 004677 -01578 -04774 0125 0500 1000 0875 0500 0000 0000 %0125 N09 005367 -05591 003777 0125 0625 0000 0875 0375 1000 0000 %0126 O01 005332 -05871 003655 0125 0625 0125 0875 0375 0875 0000 %0127 O02 005458 -06182 003726 0125 0625 0250 0875 0375 0750 0000 %0128 O03 005415 -06686 003108 0125 0625 0375 0875 0375 0625 0000 %0129 O04 005460 -06047 001257 0125 0625 0500 0875 0375 0500 0000 %0130 O05 005444 -05106 -00950 0125 0625 0625 0875 0375 0375 0000 %0131 O06 005178 -04051 -03065 0125 0625 0750 0875 0375 0250 0000 %0132 O07 005052 -02535 -04660 0125 0625 0875 0875 0375 0125 0000 %0133 O08 004968 -02090 -04744 0125 0625 1000 0875 0375 0000 0000 %0134 O09 005791 -05912 004194 0125 0750 0000 0875 0250 1000 0000 %0135 P01 005801 -06087 004132 0125 0750 0125 0875 0250 0875 0000 %0136 P02 005784 -06190 004004 0125 0750 0250 0875 0250 0750 0000 %0137 P03 005692 -06244 003574 0125 0750 0375 0875 0250 0625 0000 %0138 P04 005715 -05903 002470 0125 0750 0500 0875 0250 0500 0000 %0139 P05 005893 -05109 000780 0125 0750 0625 0875 0250 0375 0000 %0140 P06 005753 -04505 -01087 0125 0750 0750 0875 0250 0250 0000 %0141 P07 005322 -03933 -03049 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005249 -02537 -04724 0125 0750 1000 0875 0250 0000 0000 %0143 P09 006019 -05917 004401 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 005889 -06097 004146 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 005866 -06055 004030 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 005834 -06017 003723 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 005872 -05795 003025 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 005863 -05452 001861 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 005987 -04744 000279 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 005859 -04215 -01353 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005463 -03334 -03474 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 005968 -05978 004330 0125 1000 0000 0875 0000 1000 0000 %0153 R01 006029 -05879 004319 0125 1000 0125 0875 0000 0875 0000 %0154 R02 006066 -05745 004120 0125 1000 0250 0875 0000 0750 0000 %0155 R03 005989 -05783 003837 0125 1000 0375 0875 0000 0625 0000 %0156 R04 005946 -05681 003269 0125 1000 0500 0875 0000 0500 0000 %0157 R05 005872 -05622 002599 0125 1000 0625 0875 0000 0375 0000 %0158 R06 005927 -05187 001419 0125 1000 0750 0875 0000 0250 0000 %0159 R07 006058 -04483 -00100 0125 1000 0875 0875 0000 0125 0000 %0160 R08 005834 -03857 -01889 0125 1000 1000 0875 0000 0000 0000 %0161 R09 001955 001959 000641 0250 0000 0000 0750 1000 1000 0000 %0162 S01 001733 001709 -00397 0250 0000 0125 0750 1000 0875 0000 %0163 S02 002112 002372 -02506 0250 0000 0250 0750 1000 0750 0000 %0164 S03 002627 002432 -04443 0250 0000 0375 0750 1000 0625 0000 %0165 S04 003152 001066 -04743 0250 0000 0500 0750 1000 0500 0000 %0166 S05 003329 000188 -04340 0250 0000 0625 0750 1000 0375 0000 %0167 S06 003478 000213 -04580 0250 0000 0750 0750 1000 0250 0000 %0168 S07 003692 -00010 -04764 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003894 -00259 -04741 0250 0000 1000 0750 1000 0000 0000 %0170 S09 002040 001063 001095 0250 0125 0000 0750 0875 1000 0000 %0171 T01 002215 001307 000275 0250 0125 0125 0750 0875 0875 0000 %0172 T02 002528 001868 -02051 0250 0125 0250 0750 0875 0750 0000 %0173 T03 003215 001764 -03797 0250 0125 0375 0750 0875 0625 0000 %0174 T04 003400 001143 -04536 0250 0125 0500 0750 0875 0500 0000 %0175 T05 003554 000499 -04670 0250 0125 0625 0750 0875 0375 0000 %0176 T06 003729 000048 -04692 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003877 -00216 -04749 0250 0125 0875 0750 0875 0125 0000 %0178 T08 003981 -00300 -04698 0250 0125 1000 0750 0875 0000 0000 %0179 T09 002968 -00850 002359 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003069 -00679 001963 0250 0250 0125 0750 0750 0875 0000 %0181 U02 002734 -00004 -00083 0250 0250 0250 0750 0750 0750 0000 %0182 U03 003470 -00095 -02392 0250 0250 0375 0750 0750 0625 0000 %0183 U04 003889 -00048 -03868 0250 0250 0500 0750 0750 0500 0000 %0184 U05 003877 -00146 -04649 0250 0250 0625 0750 0750 0375 0000 %0185 U06 003988 -00379 -04742 0250 0250 0750 0750 0750 0250 0000 %0186 U07 004003 -00514 -04801 0250 0250 0875 0750 0750 0125 0000 %0187 U08 004107 -00560 -04732 0250 0250 1000 0750 0750 0000 0000 %0188 U09 004281 -03680 003186 0250 0375 0000 0750 0625 1000 0000 %0189 V01 004325 -03325 003081 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004336 -02387 001411 0250 0375 0250 0750 0625 0750 0000 %0191 V03 003941 -01627 -00477 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004383 -01046 -02528 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004422 -00974 -03988 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004390 -00903 -04695 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004330 -00935 -04755 0250 0375 0875 0750 0625 0125 0000 %0196 V08 004405 -01017 -04735 0250 0375 1000 0750 0625 0000 0000 %0197 V09 005058 -04930 003679 0250 0500 0000 0750 0500 1000 0000 %0198 W01 005115 -04808 003737 0250 0500 0125 0750 0500 0875 0000 %0199 W02 005208 -04522 003150 0250 0500 0250 0750 0500 0750 0000 %0200 W03 005283 -03433 001308 0250 0500 0375 0750 0500 0625 0000 %0201 W04 005120 -02617 -00613 0250 0500 0500 0750 0500 0500 0000 %0202 W05 005069 -01840 -02641 0250 0500 0625 0750 0500 0375 0000 %0203 W06 004945 -01482 -04053 0250 0500 0750 0750 0500 0250 0000 %0204 W07 004837 -01382 -04575 0250 0500 0875 0750 0500 0125 0000 %0205 W08 005011 -01560 -04542 0250 0500 1000 0750 0500 0000 0000 %0206 W09 005458 -05384 003950 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005545 -05485 003958 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005893 -05904 004153 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005959 -05313 002951 0250 0625 0375 0750 0375 0625 0000 %0210 X04 006205 -04304 001312 0250 0625 0500 0750 0375 0500 0000 %0211 X05 006112 -03566 -00652 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005723 -02617 -02561 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005515 -01859 -04158 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005630 -01745 -04168 0250 0625 1000 0750 0375 0000 0000 %0215 X09 005874 -05771 004197 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 005940 -05922 004231 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 006013 -05782 004028 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 006171 -05406 003458 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 006329 -04856 002253 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 006468 -04264 000858 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 006370 -03809 -00702 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 006069 -03294 -02546 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 006038 -02308 -04068 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 006027 -05910 004373 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 005926 -06008 004230 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 006049 -05719 004099 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 006159 -05423 003576 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 006216 -05133 002830 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 006393 -04647 001851 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 006515 -04094 000551 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 006343 -03643 -01075 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 006050 -02934 -03041 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006006 -05893 004321 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006065 -05756 004281 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006213 -05416 004053 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006277 -05231 003721 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006284 -05068 003101 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006244 -04972 002453 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006355 -04485 001357 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006411 -03951 -00053 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006143 -03485 -01758 0250 1000 1000 0750 0000 0000 0000 %0242 a09 002624 002401 001290 0375 0000 0000 0625 1000 1000 0000 %0243 A10 002460 002782 000503 0375 0000 0125 0625 1000 0875 0000 %0244 A11 002426 003138 -01196 0375 0000 0250 0625 1000 0750 0000 %0245 A12 002665 003359 -03009 0375 0000 0375 0625 1000 0625 0000 %0246 A13 002947 003173 -04124 0375 0000 0500 0625 1000 0500 0000 %0247 A14 003300 001779 -04469 0375 0000 0625 0625 1000 0375 0000 %0248 A15 003468 000713 -04776 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003603 000250 -04767 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003726 -00018 -04870 0375 0000 1000 0625 1000 0000 0000 %0251 A18 002766 002360 001511 0375 0125 0000 0625 0875 1000 0000 %0252 B10 002834 002893 000839 0375 0125 0125 0625 0875 0875 0000 %0253 B11 002822 003524 -01149 0375 0125 0250 0625 0875 0750 0000 %0254 B12 002988 003472 -02924 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003144 003070 -04022 0375 0125 0500 0625 0875 0500 0000 %0256 B14 003468 001938 -04271 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003573 000956 -04590 0375 0125 0750 0625 0875 0250 0000 %0258 B16 003633 000318 -04765 0375 0125 0875 0625 0875 0125 0000 %0259 B17 003877 -00207 -04797 0375 0125 1000 0625 0875 0000 0000 %0260 B18 003388 000903 002441 0375 0250 0000 0625 0750 1000 0000 %0261 C10 003622 000795 002361 0375 0250 0125 0625 0750 0875 0000 %0262 C11 003487 001346 000131 0375 0250 0250 0625 0750 0750 0000 %0263 C12 003634 001653 -01987 0375 0250 0375 0625 0750 0625 0000 %0264 C13 003944 001761 -03597 0375 0250 0500 0625 0750 0500 0000 %0265 C14 003866 001311 -04301 0375 0250 0625 0625 0750 0375 0000 %0266 C15 003873 000444 -04614 0375 0250 0750 0625 0750 0250 0000 %0267 C16 003885 -00048 -04753 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004069 -00454 -04796 0375 0250 1000 0625 0750 0000 0000 %0269 C18 004499 -01208 003975 0375 0375 0000 0625 0625 1000 0000 %0270 D10 004540 -01169 003967 0375 0375 0125 0625 0625 0875 0000 %0271 D11 004420 -00758 001730 0375 0375 0250 0625 0625 0750 0000 %0272 D12 004023 000006 -00154 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004610 -00144 -02209 0375 0375 0500 0625 0625 0500 0000 %0274 D14 004706 -00046 -03621 0375 0375 0625 0625 0625 0375 0000 %0275 D15 004585 -00347 -04434 0375 0375 0750 0625 0625 0250 0000 %0276 D16 004472 -00548 -04564 0375 0375 0875 0625 0625 0125 0000 %0277 D17 004526 -00899 -04665 0375 0375 1000 0625 0625 0000 0000 %0278 D18 005365 -03584 004170 0375 0500 0000 0625 0500 1000 0000 %0279 E10 005478 -03615 004375 0375 0500 0125 0625 0500 0875 0000 %0280 E11 005518 -03268 003319 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005454 -02363 001283 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005307 -01579 -00649 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005343 -01123 -02333 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005362 -01004 -03728 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005234 -01119 -04233 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005235 -01257 -04301 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005810 -04710 004287 0375 0625 0000 0625 0375 1000 0000 %0288 F10 006041 -04829 004593 0375 0625 0125 0625 0375 0875 0000 %0289 F11 006216 -05112 004431 0375 0625 0250 0625 0375 0750 0000 %0290 F12 006353 -04194 002815 0375 0625 0375 0625 0375 0625 0000 %0291 F13 006412 -03227 001155 0375 0625 0500 0625 0375 0500 0000 %0292 F14 006304 -02580 -00471 0375 0625 0625 0625 0375 0375 0000 %0293 F15 006042 -01728 -02613 0375 0625 0750 0625 0375 0250 0000 %0294 F16 006170 -01687 -03773 0375 0625 0875 0625 0375 0125 0000 %0295 F17 006101 -01673 -03790 0375 0625 1000 0625 0375 0000 0000 %0296 F18 006017 -05337 004322 0375 0750 0000 0625 0250 1000 0000 %0297 G10 006245 -05384 004561 0375 0750 0125 0625 0250 0875 0000 %0298 G11 006385 -05271 004210 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006591 -04767 003366 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006872 -04167 002300 0375 0750 0500 0625 0250 0500 0000 %0301 G14 007099 -03560 001081 0375 0750 0625 0625 0250 0375 0000 %0302 G15 006962 -03152 -00431 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006801 -02577 -02418 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006799 -02067 -03389 0375 0750 1000 0625 0250 0000 0000 %0305 G18 006138 -05542 004427 0375 0875 0000 0625 0125 1000 0000 %0306 H10 006161 -05590 004449 0375 0875 0125 0625 0125 0875 0000 %0307 H11 006328 -05310 004016 0375 0875 0250 0625 0125 0750 0000 %0308 H12 006477 -04919 003388 0375 0875 0375 0625 0125 0625 0000 %0309 H13 006736 -04405 002669 0375 0875 0500 0625 0125 0500 0000 %0310 H14 006946 -03969 001929 0375 0875 0625 0625 0125 0375 0000 %0311 H15 007040 -03552 000740 0375 0875 0750 0625 0125 0250 0000 %0312 H16 006944 -03149 -00737 0375 0875 0875 0625 0125 0125 0000 %0313 H17 006781 -02547 -02568 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006119 -05512 004348 0375 1000 0000 0625 0000 1000 0000 %0315 I10 006221 -05476 004471 0375 1000 0125 0625 0000 0875 0000 %0316 I11 006404 -05184 004038 0375 1000 0250 0625 0000 0750 0000 %0317 I12 006614 -04734 003402 0375 1000 0375 0625 0000 0625 0000 %0318 I13 006737 -04484 002901 0375 1000 0500 0625 0000 0500 0000 %0319 I14 006799 -04216 002255 0375 1000 0625 0625 0000 0375 0000 %0320 I15 006940 -03904 001594 0375 1000 0750 0625 0000 0250 0000 %0321 I16 006914 -03489 000078 0375 1000 0875 0625 0000 0125 0000 %0322 I17 006767 -03189 -01270 0375 1000 1000 0625 0000 0000 0000 %0323 I18 003110 003383 002060 0500 0000 0000 0500 1000 1000 0000 %0324 J10 003044 003545 001533 0500 0000 0125 0500 1000 0875 0000 %0325 J11 002899 004018 -00253 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003026 004188 -01890 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003115 004241 -03159 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003266 003546 -03755 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003478 002441 -04152 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003610 001312 -04464 0500 0000 0875 0500 1000 0125 0000 %0331 J17 003616 000836 -04633 0500 0000 1000 0500 1000 0000 0000 %0332 J18 003240 003637 002371 0500 0125 0000 0500 0875 1000 0000 %0333 K10 003255 003949 001547 0500 0125 0125 0500 0875 0875 0000 %0334 K11 003071 004240 -00172 0500 0125 0250 0500 0875 0750 0000 %0335 K12 003180 004395 -01847 0500 0125 0375 0500 0875 0625 0000 %0336 K13 003263 004349 -03098 0500 0125 0500 0500 0875 0500 0000 %0337 K14 003403 003512 -03661 0500 0125 0625 0500 0875 0375 0000 %0338 K15 003573 002479 -03997 0500 0125 0750 0500 0875 0250 0000 %0339 K16 003686 001663 -04270 0500 0125 0875 0500 0875 0125 0000 %0340 K17 003791 000775 -04528 0500 0125 1000 0500 0875 0000 0000 %0341 K18 003603 002240 002805 0500 0250 0000 0500 0750 1000 0000 %0342 L10 003836 002206 002802 0500 0250 0125 0500 0750 0875 0000 %0343 L11 003812 002631 000702 0500 0250 0250 0500 0750 0750 0000 %0344 L12 003806 003503 -01306 0500 0250 0375 0500 0750 0625 0000 %0345 L13 003709 003805 -03139 0500 0250 0500 0500 0750 0500 0000 %0346 L14 003774 002928 -03692 0500 0250 0625 0500 0750 0375 0000 %0347 L15 003852 001999 -04053 0500 0250 0750 0500 0750 0250 0000 %0348 L16 003978 001159 -04281 0500 0250 0875 0500 0750 0125 0000 %0349 L17 004114 000454 -04467 0500 0250 1000 0500 0750 0000 0000 %0350 L18 004568 000355 004085 0500 0375 0000 0500 0625 1000 0000 %0351 M10 004681 000407 004325 0500 0375 0125 0500 0625 0875 0000 %0352 M11 004786 000587 002171 0500 0375 0250 0500 0625 0750 0000 %0353 M12 004708 001214 000030 0500 0375 0375 0500 0625 0625 0000 %0354 M13 004725 001645 -01861 0500 0375 0500 0500 0625 0500 0000 %0355 M14 004735 001616 -03378 0500 0375 0625 0500 0625 0375 0000 %0356 M15 004566 001070 -03907 0500 0375 0750 0500 0625 0250 0000 %0357 M16 004585 000383 -04147 0500 0375 0875 0500 0625 0125 0000 %0358 M17 004645 -00121 -04277 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005828 -01445 005535 0500 0500 0000 0500 0500 1000 0000 %0360 N10 005911 -01466 005673 0500 0500 0125 0500 0500 0875 0000 %0361 N11 005752 -01342 003956 0500 0500 0250 0500 0500 0750 0000 %0362 N12 005564 -00819 001556 0500 0500 0375 0500 0500 0625 0000 %0363 N13 005353 000012 -00127 0500 0500 0500 0500 0500 0500 0000 %0364 N14 005563 -00083 -02208 0500 0500 0625 0500 0500 0375 0000 %0365 N15 005668 -00072 -03445 0500 0500 0750 0500 0500 0250 0000 %0366 N16 005433 -00459 -03850 0500 0500 0875 0500 0500 0125 0000 %0367 N17 005380 -00849 -04043 0500 0500 1000 0500 0500 0000 0000 %0368 N18 006374 -03456 005301 0500 0625 0000 0500 0375 1000 0000 %0369 O10 006502 -03493 005497 0500 0625 0125 0500 0375 0875 0000 %0370 O11 006530 -03625 005107 0500 0625 0250 0500 0375 0750 0000 %0371 O12 006631 -02967 002869 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006651 -02182 001256 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006547 -01488 -00529 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006477 -01178 -02268 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006659 -01274 -03243 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006403 -01490 -03505 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006448 -04595 005032 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006675 -04664 005328 0500 0750 0125 0500 0250 0875 0000 %0379 P11 006803 -04654 004930 0500 0750 0250 0500 0250 0750 0000 %0380 P12 006987 -04177 003625 0500 0750 0375 0500 0250 0625 0000 %0381 P13 007219 -03707 002414 0500 0750 0500 0500 0250 0500 0000 %0382 P14 007348 -02932 001126 0500 0750 0625 0500 0250 0375 0000 %0383 P15 007296 -02514 -00346 0500 0750 0750 0500 0250 0250 0000 %0384 P16 007241 -01999 -02475 0500 0750 0875 0500 0250 0125 0000 %0385 P17 007152 -01828 -03016 0500 0750 1000 0500 0250 0000 0000 %0386 P18 006362 -05175 004774 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 006435 -05139 004853 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 006597 -04878 004387 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 006802 -04388 003476 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007042 -03966 002642 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007241 -03561 001897 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007355 -03188 000738 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007326 -02747 -00761 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 007385 -02003 -02410 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 006206 -05321 004499 0500 1000 0000 0500 0000 1000 0000 %0396 R10 006298 -05303 004665 0500 1000 0125 0500 0000 0875 0000 %0397 R11 006468 -05044 004153 0500 1000 0250 0500 0000 0750 0000 %0398 R12 006845 -04305 003279 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007158 -03793 002473 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007217 -03625 002058 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007398 -03293 001371 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007383 -02990 000162 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007244 -02542 -01567 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003545 004180 002486 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003504 004353 002370 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003432 004569 000918 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003396 005000 -00866 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003444 004878 -02262 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003424 004738 -02993 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003549 003889 -03484 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003639 002899 -03839 0625 0000 0875 0375 1000 0125 0000 %0412 S17 003683 002141 -04114 0625 0000 1000 0375 1000 0000 0000 %0413 S18 003722 004439 002950 0625 0125 0000 0375 0875 1000 0000 %0414 T10 003655 004458 002122 0625 0125 0125 0375 0875 0875 0000 %0415 T11 003571 004680 000834 0625 0125 0250 0375 0875 0750 0000 %0416 T12 003566 005179 -00924 0625 0125 0375 0375 0875 0625 0000 %0417 T13 003674 005118 -02299 0625 0125 0500 0375 0875 0500 0000 %0418 T14 003634 004602 -02960 0625 0125 0625 0375 0875 0375 0000 %0419 T15 003739 003742 -03419 0625 0125 0750 0375 0875 0250 0000 %0420 T16 003813 002856 -03733 0625 0125 0875 0375 0875 0125 0000 %0421 T17 003822 002141 -04009 0625 0125 1000 0375 0875 0000 0000 %0422 T18 003987 003715 003272 0625 0250 0000 0375 0750 1000 0000 %0423 U10 003989 004115 003326 0625 0250 0125 0375 0750 0875 0000 %0424 U11 004018 004165 001509 0625 0250 0250 0375 0750 0750 0000 %0425 U12 003942 004803 -00513 0625 0250 0375 0375 0750 0625 0000 %0426 U13 003911 005141 -02302 0625 0250 0500 0375 0750 0500 0000 %0427 U14 003892 004209 -03092 0625 0250 0625 0375 0750 0375 0000 %0428 U15 003987 003272 -03476 0625 0250 0750 0375 0750 0250 0000 %0429 U16 004029 002413 -03734 0625 0250 0875 0375 0750 0125 0000 %0430 U17 004208 001622 -03945 0625 0250 1000 0375 0750 0000 0000 %0431 U18 004850 001749 004280 0625 0375 0000 0375 0625 1000 0000 %0432 V10 004913 001964 004552 0625 0375 0125 0375 0625 0875 0000 %0433 V11 005105 001938 002419 0625 0375 0250 0375 0625 0750 0000 %0434 V12 005071 002364 000564 0625 0375 0375 0375 0625 0625 0000 %0435 V13 005015 003113 -01352 0625 0375 0500 0375 0625 0500 0000 %0436 V14 004744 003234 -02967 0625 0375 0625 0375 0625 0375 0000 %0437 V15 004582 002372 -03438 0625 0375 0750 0375 0625 0250 0000 %0438 V16 004585 001706 -03699 0625 0375 0875 0375 0625 0125 0000 %0439 V17 004703 001036 -03845 0625 0375 1000 0375 0625 0000 0000 %0440 V18 005943 -00053 005657 0625 0500 0000 0375 0500 1000 0000 %0441 W10 006024 -00071 005855 0625 0500 0125 0375 0500 0875 0000 %0442 W11 006056 000040 004146 0625 0500 0250 0375 0500 0750 0000 %0443 W12 006036 000453 002019 0625 0500 0375 0375 0500 0625 0000 %0444 W13 005893 001141 000031 0625 0500 0500 0375 0500 0500 0000 %0445 W14 005884 001478 -01820 0625 0500 0625 0375 0500 0375 0000 %0446 W15 005698 001230 -03070 0625 0500 0750 0375 0500 0250 0000 %0447 W16 005505 000707 -03392 0625 0500 0875 0375 0500 0125 0000 %0448 W17 005437 000194 -03635 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006982 -01621 006726 0625 0625 0000 0375 0375 1000 0000 %0450 X10 006959 -01623 006793 0625 0625 0125 0375 0375 0875 0000 %0451 X11 006969 -01596 005928 0625 0625 0250 0375 0375 0750 0000 %0452 X12 006950 -01306 003560 0625 0625 0375 0375 0375 0625 0000 %0453 X13 006889 -00792 001660 0625 0625 0500 0375 0375 0500 0000 %0454 X14 006679 000013 -00115 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006768 -00004 -01935 0625 0625 0750 0375 0375 0250 0000 %0456 X16 006709 -00473 -02899 0625 0625 0875 0375 0375 0125 0000 %0457 X17 006512 -00782 -03157 0625 0625 1000 0375 0375 0000 0000 %0458 X18 007144 -03379 006156 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 007304 -03396 006391 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 007482 -03571 006417 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 007555 -03221 004581 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 007661 -02669 002867 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 007587 -02106 001352 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 007440 -01526 -00420 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007698 -01361 -02287 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007380 -01362 -02657 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 006887 -04421 005517 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 006959 -04400 005578 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007090 -04231 005041 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007212 -03885 003796 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007412 -03525 002845 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 007665 -03055 001990 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 007873 -02635 000977 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 007897 -02122 -00663 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007882 -01587 -02092 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 006718 -04583 005105 0625 1000 0000 0375 0000 1000 0000 %0477 a10 006739 -04649 005107 0625 1000 0125 0375 0000 0875 0000 %0478 a11 006868 -04446 004526 0625 1000 0250 0375 0000 0750 0000 %0479 a12 007121 -03928 003389 0625 1000 0375 0375 0000 0625 0000 %0480 a13 007528 -03313 002531 0625 1000 0500 0375 0000 0500 0000 %0481 a14 007698 -02997 001929 0625 1000 0625 0375 0000 0375 0000 %0482 a15 007919 -02637 001328 0625 1000 0750 0375 0000 0250 0000 %0483 a16 007969 -02308 000417 0625 1000 0875 0375 0000 0125 0000 %0484 a17 007878 -01959 -01081 0625 1000 1000 0375 0000 0000 0000 %0485 a18 003874 005104 003131 0750 0000 0000 0250 1000 1000 0000 %0486 A19 003832 005083 002669 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003758 005181 001663 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003717 005485 000310 0750 0000 0375 0250 1000 0625 0000 %0489 A22 003703 005879 -01185 0750 0000 0500 0250 1000 0500 0000 %0490 A23 003743 005749 -02236 0750 0000 0625 0250 1000 0375 0000 %0491 A24 003599 005405 -02696 0750 0000 0750 0250 1000 0250 0000 %0492 A25 003737 004496 -03232 0750 0000 0875 0250 1000 0125 0000 %0493 A26 003896 003701 -03522 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004070 005327 003801 0750 0125 0000 0250 0875 1000 0000 %0495 B19 003941 005124 002722 0750 0125 0125 0250 0875 0875 0000 %0496 B20 003883 005291 001592 0750 0125 0250 0250 0875 0750 0000 %0497 B21 003879 005695 000149 0750 0125 0375 0250 0875 0625 0000 %0498 B22 003897 005940 -01430 0750 0125 0500 0250 0875 0500 0000 %0499 B23 003851 005779 -02268 0750 0125 0625 0250 0875 0375 0000 %0500 B24 003742 005078 -02866 0750 0125 0750 0250 0875 0250 0000 %0501 B25 003866 004230 -03264 0750 0125 0875 0250 0875 0125 0000 %0502 B26 003985 003635 -03464 0750 0125 1000 0250 0875 0000 0000 %0503 B27 004308 005105 004161 0750 0250 0000 0250 0750 1000 0000 %0504 C19 004193 005393 003923 0750 0250 0125 0250 0750 0875 0000 %0505 C20 004122 005486 002259 0750 0250 0250 0250 0750 0750 0000 %0506 C21 004129 005779 000655 0750 0250 0375 0250 0750 0625 0000 %0507 C22 004132 006276 -01320 0750 0250 0500 0250 0750 0500 0000 %0508 C23 004131 005648 -02342 0750 0250 0625 0250 0750 0375 0000 %0509 C24 003990 004675 -02950 0750 0250 0750 0250 0750 0250 0000 %0510 C25 004055 003869 -03311 0750 0250 0875 0250 0750 0125 0000 %0511 C26 004228 003236 -03465 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005217 003130 005083 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005100 003528 004976 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005260 003439 003118 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005295 003708 001368 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005124 004380 -00477 0750 0375 0500 0250 0625 0500 0000 %0517 D23 004922 004784 -02195 0750 0375 0625 0250 0625 0375 0000 %0518 D24 004587 003932 -02916 0750 0375 0750 0250 0625 0250 0000 %0519 D25 004610 003011 -03264 0750 0375 0875 0250 0625 0125 0000 %0520 D26 004773 002502 -03365 0750 0375 1000 0250 0625 0000 0000 %0521 D27 006182 001241 006087 0750 0500 0000 0250 0500 1000 0000 %0522 E19 006126 001448 006008 0750 0500 0125 0250 0500 0875 0000 %0523 E20 006200 001516 004473 0750 0500 0250 0250 0500 0750 0000 %0524 E21 006268 001632 002417 0750 0500 0375 0250 0500 0625 0000 %0525 E22 006146 002136 000674 0750 0500 0500 0250 0500 0500 0000 %0526 E23 005906 002937 -01294 0750 0500 0625 0250 0500 0375 0000 %0527 E24 005598 003059 -02554 0750 0500 0750 0250 0500 0250 0000 %0528 E25 005436 002235 -02997 0750 0500 0875 0250 0500 0125 0000 %0529 E26 005384 001521 -03287 0750 0500 1000 0250 0500 0000 0000 %0530 E27 007193 -00364 007206 0750 0625 0000 0250 0375 1000 0000 %0531 F19 007160 -00303 007118 0750 0625 0125 0250 0375 0875 0000 %0532 F20 007091 -00186 006328 0750 0625 0250 0250 0375 0750 0000 %0533 F21 007088 000015 003969 0750 0625 0375 0250 0375 0625 0000 %0534 F22 006968 000391 002240 0750 0625 0500 0250 0375 0500 0000 %0535 F23 006733 001172 000156 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006773 001508 -01735 0750 0625 0750 0250 0375 0250 0000 %0537 F25 006505 001084 -02590 0750 0625 0875 0250 0375 0125 0000 %0538 F26 006297 000560 -02932 0750 0625 1000 0250 0375 0000 0000 %0539 F27 008184 -01792 008225 0750 0750 0000 0250 0250 1000 0000 %0540 G19 008100 -01764 008095 0750 0750 0125 0250 0250 0875 0000 %0541 G20 008032 -01711 007853 0750 0750 0250 0250 0250 0750 0000 %0542 G21 008015 -01637 005621 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007913 -01384 003834 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007722 -00894 002051 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007481 000024 -00066 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007952 -00165 -01820 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007517 -00654 -02383 0750 0750 1000 0250 0250 0000 0000 %0548 G27 007988 -03230 007336 0750 0875 0000 0250 0125 1000 0000 %0549 H19 008018 -03226 007310 0750 0875 0125 0250 0125 0875 0000 %0550 H20 008044 -03207 006790 0750 0875 0250 0250 0125 0750 0000 %0551 H21 008181 -02980 005506 0750 0875 0375 0250 0125 0625 0000 %0552 H22 008256 -02747 004101 0750 0875 0500 0250 0125 0500 0000 %0553 H23 008372 -02497 003032 0750 0875 0625 0250 0125 0375 0000 %0554 H24 008539 -02130 001913 0750 0875 0750 0250 0125 0250 0000 %0555 H25 008563 -01610 -00021 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008413 -01180 -01686 0750 0875 1000 0250 0125 0000 0000 %0557 H27 007400 -03935 006400 0750 1000 0000 0250 0000 1000 0000 %0558 I19 007417 -03926 006141 0750 1000 0125 0250 0000 0875 0000 %0559 I20 007558 -03739 005531 0750 1000 0250 0250 0000 0750 0000 %0560 I21 007714 -03400 004105 0750 1000 0375 0250 0000 0625 0000 %0561 I22 007985 -02964 003304 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008184 -02649 002695 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008336 -02377 002040 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008482 -02034 001121 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008386 -01596 -00725 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004356 005832 003897 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004287 005775 003245 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004240 005820 002292 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004239 006051 001223 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004260 006408 000133 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004261 006802 -01177 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004225 006754 -01654 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004119 006117 -02160 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004196 005144 -02696 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004472 005998 004333 0875 0125 0000 0125 0875 1000 0000 %0576 K19 004334 005762 003032 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004291 005908 002097 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004313 006123 001015 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004322 006589 -00267 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004402 006890 -01290 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004222 006469 -01819 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004220 005732 -02281 0875 0125 0875 0125 0875 0125 0000 %0583 K26 004273 004914 -02707 0875 0125 1000 0125 0875 0000 0000 %0584 K27 004715 005842 004763 0875 0250 0000 0125 0750 1000 0000 %0585 L19 004639 006139 004248 0875 0250 0125 0125 0750 0875 0000 %0586 L20 004671 006204 002842 0875 0250 0250 0125 0750 0750 0000 %0587 L21 004664 006471 001634 0875 0250 0375 0125 0750 0625 0000 %0588 L22 004717 006935 -00036 0875 0250 0500 0125 0750 0500 0000 %0589 L23 004692 007016 -01314 0875 0250 0625 0125 0750 0375 0000 %0590 L24 004513 006117 -01944 0875 0250 0750 0125 0750 0250 0000 %0591 L25 004433 005345 -02411 0875 0250 0875 0125 0750 0125 0000 %0592 L26 004409 004755 -02704 0875 0250 1000 0125 0750 0000 0000 %0593 L27 005433 004407 005390 0875 0375 0000 0125 0625 1000 0000 %0594 M19 005377 005122 005422 0875 0375 0125 0125 0625 0875 0000 %0595 M20 005380 005420 004027 0875 0375 0250 0125 0625 0750 0000 %0596 M21 005411 005492 002097 0875 0375 0375 0125 0625 0625 0000 %0597 M22 005379 005763 000596 0875 0375 0500 0125 0625 0500 0000 %0598 M23 005357 006337 -01290 0875 0375 0625 0125 0625 0375 0000 %0599 M24 005076 005438 -01941 0875 0375 0750 0125 0625 0250 0000 %0600 M25 004890 004606 -02428 0875 0375 0875 0125 0625 0125 0000 %0601 M26 004721 004141 -02748 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006410 002549 006376 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006317 002821 006256 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006344 003177 005216 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006470 003189 002805 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006412 003491 001299 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006286 004362 -00401 0875 0500 0625 0125 0500 0375 0000 %0608 N24 005976 004483 -01723 0875 0500 0750 0125 0500 0250 0000 %0609 N25 005558 003745 -02307 0875 0500 0875 0125 0500 0125 0000 %0610 N26 005261 003311 -02691 0875 0500 1000 0125 0500 0000 0000 %0611 N27 007344 000883 007324 0875 0625 0000 0125 0375 1000 0000 %0612 O19 007277 001000 007242 0875 0625 0125 0125 0375 0875 0000 %0613 O20 007240 001193 006683 0875 0625 0250 0125 0375 0750 0000 %0614 O21 007343 001279 004139 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007361 001466 002441 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007245 002156 000700 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007120 003073 -01194 0875 0625 0750 0125 0375 0250 0000 %0618 O25 006577 002645 -01904 0875 0625 0875 0125 0375 0125 0000 %0619 O26 006177 002291 -02358 0875 0625 1000 0125 0375 0000 0000 %0620 O27 008222 -00514 008346 0875 0750 0000 0125 0250 1000 0000 %0621 P19 008148 -00464 008266 0875 0750 0125 0125 0250 0875 0000 %0622 P20 008074 -00345 007996 0875 0750 0250 0125 0250 0750 0000 %0623 P21 008103 -00251 006117 0875 0750 0375 0125 0250 0625 0000 %0624 P22 008107 000030 004156 0875 0750 0500 0125 0250 0500 0000 %0625 P23 008011 000452 002456 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007782 001236 000266 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007849 001557 -01334 0875 0750 0875 0125 0250 0125 0000 %0628 P26 007394 001017 -01899 0875 0750 1000 0125 0250 0000 0000 %0629 P27 008878 -01833 009044 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 008889 -01736 009050 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008828 -01800 008931 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008855 -01775 007396 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008854 -01553 005561 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008827 -01352 004132 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008709 -00912 002312 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008672 000024 -00026 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008695 -00269 -01204 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 008238 -02955 007726 0875 1000 0000 0125 0000 1000 0000 %0639 R19 008194 -03019 007452 0875 1000 0125 0125 0000 0875 0000 %0640 R20 008382 -02829 006783 0875 1000 0250 0125 0000 0750 0000 %0641 R21 008570 -02534 005391 0875 1000 0375 0125 0000 0625 0000 %0642 R22 008700 -02326 004451 0875 1000 0500 0125 0000 0500 0000 %0643 R23 008630 -02297 003545 0875 1000 0625 0125 0000 0375 0000 %0644 R24 008824 -01975 002768 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009036 -01413 001300 0875 1000 0875 0125 0000 0125 0000 %0646 R26 009005 -00907 -00498 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004819 006451 004180 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004834 006486 003670 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004815 006561 002846 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004794 006740 002005 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004826 006944 001291 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004806 007118 000717 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004789 007378 -00057 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004825 007555 -00676 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004824 007220 -01136 1000 0000 1000 0000 1000 0000 0000 %0656 S27 004892 006326 004246 1000 0125 0000 0000 0875 1000 0000 %0657 T19 004843 006453 003714 1000 0125 0125 0000 0875 0875 0000 %0658 T20 004858 006547 002887 1000 0125 0250 0000 0875 0750 0000 %0659 T21 004838 006737 002009 1000 0125 0375 0000 0875 0625 0000 %0660 T22 004852 006890 001297 1000 0125 0500 0000 0875 0500 0000 %0661 T23 004836 007080 000673 1000 0125 0625 0000 0875 0375 0000 %0662 T24 004822 007348 -00132 1000 0125 0750 0000 0875 0250 0000 %0663 T25 004872 007536 -00789 1000 0125 0875 0000 0875 0125 0000 %0664 T26 004908 007160 -01142 1000 0125 1000 0000 0875 0000 0000 %0665 T27 004989 006144 004913 1000 0250 0000 0000 0750 1000 0000 %0666 U19 004914 006298 004221 1000 0250 0125 0000 0750 0875 0000 %0667 U20 004909 006453 003005 1000 0250 0250 0000 0750 0750 0000 %0668 U21 004854 006727 001978 1000 0250 0375 0000 0750 0625 0000 %0669 U22 004895 006895 001079 1000 0250 0500 0000 0750 0500 0000 %0670 U23 004928 007049 000335 1000 0250 0625 0000 0750 0375 0000 %0671 U24 004991 007230 -00503 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005074 007292 -01003 1000 0250 0875 0000 0750 0125 0000 %0673 U26 005148 006774 -01260 1000 0250 1000 0000 0750 0000 0000 %0674 U27 005482 005165 005504 1000 0375 0000 0000 0625 1000 0000 %0675 V19 005310 005517 005217 1000 0375 0125 0000 0625 0875 0000 %0676 V20 005279 005691 003809 1000 0375 0250 0000 0625 0750 0000 %0677 V21 005321 005851 002320 1000 0375 0375 0000 0625 0625 0000 %0678 V22 005343 006073 001253 1000 0375 0500 0000 0625 0500 0000 %0679 V23 005406 006200 000431 1000 0375 0625 0000 0625 0375 0000 %0680 V24 005376 006551 -00494 1000 0375 0750 0000 0625 0250 0000 %0681 V25 005471 006648 -01093 1000 0375 0875 0000 0625 0125 0000 %0682 V26 005414 006081 -01405 1000 0375 1000 0000 0625 0000 0000 %0683 V27 006305 003555 006299 1000 0500 0000 0000 0500 1000 0000 %0684 W19 006264 003632 006118 1000 0500 0125 0000 0500 0875 0000 %0685 W20 006204 003810 005053 1000 0500 0250 0000 0500 0750 0000 %0686 W21 006159 004185 003067 1000 0500 0375 0000 0500 0625 0000 %0687 W22 006274 004316 001673 1000 0500 0500 0000 0500 0500 0000 %0688 W23 006342 004502 000685 1000 0500 0625 0000 0500 0375 0000 %0689 W24 006230 005010 -00262 1000 0500 0750 0000 0500 0250 0000 %0690 W25 006171 005478 -01077 1000 0500 0875 0000 0500 0125 0000 %0691 W26 005983 005075 -01412 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007204 001868 007182 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007170 001931 007133 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007139 002016 006166 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007249 002140 004052 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007379 002326 002408 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007263 002858 001234 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007238 003363 -00044 1000 0625 0750 0000 0375 0250 0000 %0699 X25 006997 004129 -00895 1000 0625 0875 0000 0375 0125 0000 %0700 X26 006534 004133 -01433 1000 0625 1000 0000 0375 0000 0000 %0701 X27 008071 000334 008086 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 007965 000528 007838 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 008003 000490 007339 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 008025 000631 005661 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008151 000740 004124 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008272 001037 002378 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008030 001986 000631 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 007949 002703 -00732 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 007432 002941 -01158 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008881 -00998 009052 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008710 -00705 008518 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008714 -00641 007564 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008710 -00498 006406 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008855 -00539 005434 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008872 -00284 004143 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 009046 -00114 002618 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 008824 001097 000259 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 008427 001709 -00819 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009350 -01745 009508 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009365 -01756 009270 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009397 -01747 008299 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009438 -01689 007216 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009484 -01583 006199 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009512 -01470 005314 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009551 -01281 004222 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009620 -00953 002799 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009731 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009742 -00004 000000 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009089 -00795 -00438 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008504 -01372 -00677 0750 1000 1000 0250 0000 0000 0000 %0731 b03 008008 -01828 -00960 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007367 -02319 -01490 0500 1000 1000 0500 0000 0000 0000 %0733 b05 006786 -02969 -01381 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006166 -03545 -01748 0250 1000 1000 0750 0000 0000 0000 %0735 b07 005819 -03832 -01972 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005596 -03914 -02116 0000 1000 1000 1000 0000 0000 0000 %0737 b09 008962 000926 000207 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008771 000001 000031 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008654 -01372 -00164 0750 0875 0875 0250 0125 0125 0000 %0740 c03 008062 -01908 -00488 0625 0875 0875 0375 0125 0125 0000 %0741 c04 007448 -02511 -00639 0500 0875 0875 0500 0125 0125 0000 %0742 c05 007038 -02922 -00706 0375 0875 0875 0625 0125 0125 0000 %0743 c06 006406 -03529 -01006 0250 0875 0875 0750 0125 0125 0000 %0744 c07 005841 -04121 -01272 0125 0875 0875 0875 0125 0125 0000 %0745 c08 005598 -04098 -01601 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008171 001854 000463 1000 0750 0750 0000 0250 0250 0000 %0747 d01 008028 001008 000238 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007689 000009 -00049 0750 0750 0750 0250 0250 0250 0000 %0749 d03 007563 -01374 -00349 0625 0750 0750 0375 0250 0250 0000 %0750 d04 007362 -02267 -00350 0500 0750 0750 0500 0250 0250 0000 %0751 d05 006999 -02900 -00449 0375 0750 0750 0625 0250 0250 0000 %0752 d06 006404 -03705 -00682 0250 0750 0750 0750 0250 0250 0000 %0753 d07 005754 -04413 -01023 0125 0750 0750 0875 0250 0250 0000 %0754 d08 005394 -04522 -01376 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007308 002824 001134 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007400 002017 000571 0875 0625 0625 0125 0375 0375 0000 %0757 e02 006961 001080 000119 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006519 000002 -00078 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006533 -01406 -00452 0500 0625 0625 0500 0375 0375 0000 %0760 e05 006286 -02480 -00434 0375 0625 0625 0625 0375 0375 0000 %0761 e06 006118 -03576 -00587 0250 0625 0625 0750 0375 0375 0000 %0762 e07 005413 -05061 -00894 0125 0625 0625 0875 0375 0375 0000 %0763 e08 004953 -05041 -01341 0000 0625 0625 1000 0375 0375 0000 %0764 e09 006223 004398 001688 1000 0500 0500 0000 0500 0500 0000 %0765 f01 006447 003388 001319 0875 0500 0500 0125 0500 0500 0000 %0766 f02 006208 002067 000719 0750 0500 0500 0250 0500 0500 0000 %0767 f03 005784 001104 000148 0625 0500 0500 0375 0500 0500 0000 %0768 f04 005209 -00002 -00086 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005270 -01532 -00550 0375 0500 0500 0625 0500 0500 0000 %0770 f06 005157 -02681 -00582 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004841 -05154 -00841 0125 0500 0500 0875 0500 0500 0000 %0772 f08 004733 -05245 -00881 0000 0500 0500 1000 0500 0500 0000 %0773 f09 005294 005879 002468 1000 0375 0375 0000 0625 0625 0000 %0774 g01 005378 005473 002192 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005217 003828 001358 0750 0375 0375 0250 0625 0625 0000 %0776 g03 004907 002405 000640 0625 0375 0375 0375 0625 0625 0000 %0777 g04 004513 001271 000054 0500 0375 0375 0500 0625 0625 0000 %0778 g05 003937 -00005 -00114 0375 0375 0375 0625 0625 0625 0000 %0779 g06 003987 -01651 -00502 0250 0375 0375 0750 0625 0625 0000 %0780 g07 004044 -03761 -00633 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003995 -04521 -00683 0000 0375 0375 1000 0625 0625 0000 %0782 g09 004856 006593 003085 1000 0250 0250 0000 0750 0750 0000 %0783 h01 004609 006236 002905 0875 0250 0250 0125 0750 0750 0000 %0784 h02 004078 005516 002311 0750 0250 0250 0250 0750 0750 0000 %0785 h03 003908 004059 001567 0625 0250 0250 0375 0750 0750 0000 %0786 h04 003646 002518 000743 0500 0250 0250 0500 0750 0750 0000 %0787 h05 003266 001312 000132 0375 0250 0250 0625 0750 0750 0000 %0788 h06 002783 -00009 -00086 0250 0250 0250 0750 0750 0750 0000 %0789 h07 003156 -02099 -00616 0125 0250 0250 0875 0750 0750 0000 %0790 h08 002943 -03006 -00726 0000 0250 0250 1000 0750 0750 0000 %0791 h09 004758 006623 004007 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004208 005748 003225 0875 0125 0125 0125 0875 0875 0000 %0793 i02 003759 005174 002789 0750 0125 0125 0250 0875 0875 0000 %0794 i03 003413 004570 002306 0625 0125 0125 0375 0875 0875 0000 %0795 i04 003004 003974 001627 0500 0125 0125 0500 0875 0875 0000 %0796 i05 002597 002877 000854 0375 0125 0125 0625 0875 0875 0000 %0797 i06 002288 001405 000244 0250 0125 0125 0750 0875 0875 0000 %0798 i07 001822 000000 000000 0125 0125 0125 0875 0875 0875 0000 %0799 i08 002204 -01411 -00406 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004765 006565 004302 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004224 005672 003897 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003715 004975 003092 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003315 004309 002841 0625 0000 0000 0375 1000 1000 0000 %0804 j04 002843 003410 002158 0500 0000 0000 0500 1000 1000 0000 %0805 j05 002413 002535 001424 0375 0000 0000 0625 1000 1000 0000 %0806 j06 002137 002108 000607 0250 0000 0000 0750 1000 1000 0000 %0807 j07 001756 000230 000094 0125 0000 0000 0875 1000 1000 0000 %0808 j08 001720 000000 -00004 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009734 000002 000000 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008809 -00324 -01032 0875 0875 1000 0125 0125 0000 0000 %0811 b11 007587 -00748 -02274 0750 0750 1000 0250 0250 0000 0000 %0812 b12 006570 -00880 -03109 0625 0625 1000 0375 0375 0000 0000 %0813 b13 005407 -00913 -03990 0500 0500 1000 0500 0500 0000 0000 %0814 b14 004534 -00917 -04570 0375 0375 1000 0625 0625 0000 0000 %0815 b15 004112 -00685 -04728 0250 0250 1000 0750 0750 0000 0000 %0816 b16 003955 -00489 -04778 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003832 -00507 -04592 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009655 -00678 001907 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008905 000012 000003 0875 0875 0875 0125 0125 0125 0000 %0820 c11 008078 -00273 -01691 0750 0750 0875 0250 0250 0125 0000 %0821 c12 006754 -00487 -02842 0625 0625 0875 0375 0375 0125 0000 %0822 c13 005495 -00459 -03728 0500 0500 0875 0500 0500 0125 0000 %0823 c14 004480 -00511 -04444 0375 0375 0875 0625 0625 0125 0000 %0824 c15 004049 -00522 -04714 0250 0250 0875 0750 0750 0125 0000 %0825 c16 003871 -00384 -04604 0125 0125 0875 0875 0875 0125 0000 %0826 c17 003606 -00372 -04299 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009580 -01073 003353 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008932 -00697 001715 0875 0875 0750 0125 0125 0250 0000 %0829 d11 007840 000004 -00029 0750 0750 0750 0250 0250 0250 0000 %0830 d12 006825 -00039 -01885 0625 0625 0750 0375 0375 0250 0000 %0831 d13 005676 -00112 -03381 0500 0500 0750 0500 0500 0250 0000 %0832 d14 004555 -00339 -04318 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004004 -00427 -04711 0250 0250 0750 0750 0750 0250 0000 %0834 d16 003684 -00317 -04476 0125 0125 0750 0875 0875 0250 0000 %0835 d17 003378 -00378 -04040 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009534 -01354 004703 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008969 -01191 003547 0875 0875 0625 0125 0125 0375 0000 %0838 e11 007942 -00806 001739 0750 0750 0625 0250 0250 0375 0000 %0839 e12 006673 000004 -00094 0625 0625 0625 0375 0375 0375 0000 %0840 e13 005575 -00105 -02181 0500 0500 0625 0500 0500 0375 0000 %0841 e14 004690 000004 -03587 0375 0375 0625 0625 0625 0375 0000 %0842 e15 003924 -00220 -04647 0250 0250 0625 0750 0750 0375 0000 %0843 e16 003545 -00264 -04344 0125 0125 0625 0875 0875 0375 0000 %0844 e17 003106 -00280 -03743 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009483 -01550 005973 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008935 -01518 005417 0875 0875 0500 0125 0125 0500 0000 %0847 f11 007988 -01358 003658 0750 0750 0500 0250 0250 0500 0000 %0848 f12 006843 -00801 001693 0625 0625 0500 0375 0375 0500 0000 %0849 f13 005316 000000 -00095 0500 0500 0500 0500 0500 0500 0000 %0850 f14 004578 -00144 -02208 0375 0375 0500 0625 0625 0500 0000 %0851 f15 003949 -00095 -03823 0250 0250 0500 0750 0750 0500 0000 %0852 f16 003369 -00142 -04236 0125 0125 0500 0875 0875 0500 0000 %0853 f17 002758 -00141 -03429 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009423 -01697 007315 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008905 -01782 007496 0875 0875 0375 0125 0125 0625 0000 %0856 g11 008043 -01658 005661 0750 0750 0375 0250 0250 0625 0000 %0857 g12 006888 -01340 003675 0625 0625 0375 0375 0375 0625 0000 %0858 g13 005464 -00831 001613 0500 0500 0375 0500 0500 0625 0000 %0859 g14 003915 000004 -00100 0375 0375 0375 0625 0625 0625 0000 %0860 g15 003511 -00128 -02375 0250 0250 0375 0750 0750 0625 0000 %0861 g16 003089 -00218 -03839 0125 0125 0375 0875 0875 0625 0000 %0862 g17 002267 -00070 -02703 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009403 -01761 008153 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008869 -01812 008943 0875 0875 0250 0125 0125 0750 0000 %0865 h11 007987 -01743 007804 0750 0750 0250 0250 0250 0750 0000 %0866 h12 006814 -01591 005793 0625 0625 0250 0375 0375 0750 0000 %0867 h13 005511 -01304 003788 0500 0500 0250 0500 0500 0750 0000 %0868 h14 004130 -00722 001665 0375 0375 0250 0625 0625 0750 0000 %0869 h15 002692 -00002 -00087 0250 0250 0250 0750 0750 0750 0000 %0870 h16 002625 -00172 -02619 0125 0125 0250 0875 0875 0750 0000 %0871 h17 002237 -00360 -01081 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009368 -01780 009229 1000 1000 0125 0000 0000 0875 0000 %0873 i10 008908 -01755 009030 0875 0875 0125 0125 0125 0875 0000 %0874 i11 007998 -01775 007976 0750 0750 0125 0250 0250 0875 0000 %0875 i12 006820 -01639 006600 0625 0625 0125 0375 0375 0875 0000 %0876 i13 005561 -01413 005311 0500 0500 0125 0500 0500 0875 0000 %0877 i14 004276 -01125 003726 0375 0375 0125 0625 0625 0875 0000 %0878 i15 003139 -00740 002072 0250 0250 0125 0750 0750 0875 0000 %0879 i16 001790 000010 000002 0125 0125 0125 0875 0875 0875 0000 %0880 i17 001616 -00135 -00105 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009355 -01760 009359 1000 1000 0000 0000 0000 1000 0000 %0882 j10 008891 -01831 008910 0875 0875 0000 0125 0125 1000 0000 %0883 j11 008051 -01789 008021 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006898 -01641 006712 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005590 -01392 005342 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004300 -01186 003954 0375 0375 0000 0625 0625 1000 0000 %0887 j15 003124 -00944 002610 0250 0250 0000 0750 0750 1000 0000 %0888 j16 002094 -00264 000182 0125 0125 0000 0875 0875 1000 0000 %0889 j17 001277 000005 000019 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009731 000001 000000 1000 1000 1000 0000 0000 0000 0000 %0891 b19 008585 001422 -00691 1000 0875 1000 0000 0125 0000 0000 %0892 b20 007571 002661 -01096 1000 0750 1000 0000 0250 0000 0000 %0893 b21 006604 004018 -01330 1000 0625 1000 0000 0375 0000 0000 %0894 b22 006009 005034 -01339 1000 0500 1000 0000 0500 0000 0000 %0895 b23 005387 006114 -01317 1000 0375 1000 0000 0625 0000 0000 %0896 b24 005071 006844 -01098 1000 0250 1000 0000 0750 0000 0000 %0897 b25 004853 007195 -01027 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004797 007233 -01058 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009115 -01166 000951 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008881 000007 000020 0875 0875 0875 0125 0125 0125 0000 %0901 c20 008050 001275 -01188 0875 0750 0875 0125 0250 0125 0000 %0902 c21 006698 002534 -01762 0875 0625 0875 0125 0375 0125 0000 %0903 c22 005686 003663 -02132 0875 0500 0875 0125 0500 0125 0000 %0904 c23 004916 004533 -02286 0875 0375 0875 0125 0625 0125 0000 %0905 c24 004371 005354 -02261 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004207 005746 -02105 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004128 006073 -01947 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008381 -02152 001581 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008565 -01895 001406 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007794 000015 -00052 0750 0750 0750 0250 0250 0250 0000 %0911 d21 006988 001384 -01607 0750 0625 0750 0250 0375 0250 0000 %0912 d22 005712 002998 -02396 0750 0500 0750 0250 0500 0250 0000 %0913 d23 004685 003830 -02773 0750 0375 0750 0250 0625 0250 0000 %0914 d24 004027 004603 -02870 0750 0250 0750 0250 0750 0250 0000 %0915 d25 003740 005059 -02741 0750 0125 0750 0250 0875 0250 0000 %0916 d26 003591 005276 -02587 0750 0000 0750 0250 1000 0250 0000 %0917 d27 007747 -02934 001958 0625 1000 0625 0375 0000 0375 0000 %0918 e19 007709 -02981 002031 0625 0875 0625 0375 0125 0375 0000 %0919 e20 007600 -02095 001403 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006538 000012 -00098 0625 0625 0625 0375 0375 0375 0000 %0921 e22 005727 001542 -01773 0625 0500 0625 0375 0500 0375 0000 %0922 e23 004632 003390 -02990 0625 0375 0625 0375 0625 0375 0000 %0923 e24 003758 004378 -03103 0625 0250 0625 0375 0750 0375 0000 %0924 e25 003489 004705 -03013 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003297 004868 -02898 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007174 -03728 002528 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007053 -03903 002699 0500 0875 0500 0500 0125 0500 0000 %0928 f20 007225 -03647 002430 0500 0750 0500 0500 0250 0500 0000 %0929 f21 006570 -02157 001483 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005207 000005 -00097 0500 0500 0500 0500 0500 0500 0000 %0931 f23 004387 001712 -01858 0500 0375 0500 0500 0625 0500 0000 %0932 f24 003549 003844 -03139 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003154 004400 -03085 0500 0125 0500 0500 0875 0500 0000 %0934 f26 002994 004133 -03030 0500 0000 0500 0500 1000 0500 0000 %0935 f27 006613 -04742 003649 0375 1000 0375 0625 0000 0625 0000 %0936 g19 006518 -04907 003695 0375 0875 0375 0625 0125 0625 0000 %0937 g20 006564 -04824 003565 0375 0750 0375 0625 0250 0625 0000 %0938 g21 006293 -04259 003035 0375 0625 0375 0625 0375 0625 0000 %0939 g22 005223 -02357 001519 0375 0500 0375 0625 0500 0625 0000 %0940 g23 003786 000002 -00102 0375 0375 0375 0625 0625 0625 0000 %0941 g24 003149 001713 -01948 0375 0250 0375 0625 0750 0625 0000 %0942 g25 002715 003580 -02898 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002455 003408 -02811 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006261 -05450 004138 0250 1000 0250 0750 0000 0750 0000 %0945 h19 006101 -05700 004124 0250 0875 0250 0750 0125 0750 0000 %0946 h20 006014 -05840 004069 0250 0750 0250 0750 0250 0750 0000 %0947 h21 005873 -06061 004105 0250 0625 0250 0750 0375 0750 0000 %0948 h22 005134 -04691 003107 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004161 -02415 001293 0250 0375 0250 0750 0625 0750 0000 %0950 h24 002501 -00002 -00074 0250 0250 0250 0750 0750 0750 0000 %0951 h25 002283 001832 -01970 0250 0125 0250 0750 0875 0750 0000 %0952 h26 001915 002352 -02378 0250 0000 0250 0750 1000 0750 0000 %0953 h27 006039 -05796 004236 0125 1000 0125 0875 0000 0875 0000 %0954 i19 005920 -06034 004205 0125 0875 0125 0875 0125 0875 0000 %0955 i20 005751 -06150 004006 0125 0750 0125 0875 0250 0875 0000 %0956 i21 005297 -05906 003611 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004838 -05552 003315 0125 0500 0125 0875 0500 0875 0000 %0958 i23 004161 -05046 002742 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003271 -03008 001519 0125 0250 0125 0875 0750 0875 0000 %0960 i25 001643 000002 000002 0125 0125 0125 0875 0875 0875 0000 %0961 i26 001654 000830 -00978 0125 0000 0125 0875 1000 0875 0000 %0962 i27 006043 -05753 004313 0000 1000 0000 1000 0000 1000 0000 %0963 j19 006011 -05840 004275 0000 0875 0000 1000 0125 1000 0000 %0964 j20 005854 -05839 004153 0000 0750 0000 1000 0250 1000 0000 %0965 j21 005299 -05530 003671 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004886 -05241 003399 0000 0500 0000 1000 0500 1000 0000 %0967 j23 004230 -04857 002819 0000 0375 0000 1000 0625 1000 0000 %0968 j24 003352 -04128 002155 0000 0250 0000 1000 0750 1000 0000 %0969 j25 002481 -02719 001302 0000 0125 0000 1000 0875 1000 0000 %0970 j26 001293 -00006 -00015 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa0100 [ %BEG GE20_22.TXT, Separation olv*, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004819 006451 004180 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009350 -01745 009508 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z006027 -05928 004407 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005633 -04089 -02066 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003865 -00481 -04629 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004824 007220 -01136 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z001465 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009731 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004765 006565 004302 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 009355 -01760 009359 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 006043 -05753 004313 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005596 -03914 -02116 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003832 -00507 -04592 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004797 007233 -01058 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 001430 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009736 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def /FileData1Na (SI41_HRS16_96_D65_00%_G1) def /LUT_LAB1 [ %GE700-7A, Page 7 /24, %BEG GE60_22.TXT, Separation olv*, cf1=0.90, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE60_22.TXT, Separation olv*, cf1=0.90, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 001811 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 002270 -00045 -00489 0000 0000 0125 1000 1000 0875 0000 %0001 A02 002545 -00043 -01149 0000 0000 0250 1000 1000 0750 0000 %0002 A03 002531 -00073 -01749 0000 0000 0375 1000 1000 0625 0000 %0003 A04 002757 -00372 -02388 0000 0000 0500 1000 1000 0500 0000 %0004 A05 003297 -00428 -02928 0000 0000 0625 1000 1000 0375 0000 %0005 A06 003564 -00311 -03374 0000 0000 0750 1000 1000 0250 0000 %0006 A07 003871 -00413 -03858 0000 0000 0875 1000 1000 0125 0000 %0007 A08 004113 -00369 -04556 0000 0000 1000 1000 1000 0000 0000 %0008 A09 002435 -00479 000547 0000 0125 0000 1000 0875 1000 0000 %0009 B01 002147 -00199 -00125 0000 0125 0125 1000 0875 0875 0000 %0010 B02 002583 -00451 -00740 0000 0125 0250 1000 0875 0750 0000 %0011 B03 002747 -00577 -01482 0000 0125 0375 1000 0875 0625 0000 %0012 B04 003031 -00937 -02001 0000 0125 0500 1000 0875 0500 0000 %0013 B05 003515 -00872 -02466 0000 0125 0625 1000 0875 0375 0000 %0014 B06 003839 -00706 -03052 0000 0125 0750 1000 0875 0250 0000 %0015 B07 004015 -00807 -03562 0000 0125 0875 1000 0875 0125 0000 %0016 B08 004310 -00828 -04142 0000 0125 1000 1000 0875 0000 0000 %0017 B09 002909 -01034 001103 0000 0250 0000 1000 0750 1000 0000 %0018 C01 002704 -00758 000109 0000 0250 0125 1000 0750 0875 0000 %0019 C02 002677 -00768 -00469 0000 0250 0250 1000 0750 0750 0000 %0020 C03 003060 -01193 -01092 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003132 -01162 -01742 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003664 -01187 -02231 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003989 -01064 -02805 0000 0250 0750 1000 0750 0250 0000 %0024 C07 004241 -01285 -03190 0000 0250 0875 1000 0750 0125 0000 %0025 C08 004521 -01236 -03778 0000 0250 1000 1000 0750 0000 0000 %0026 C09 003516 -01899 001583 0000 0375 0000 1000 0625 1000 0000 %0027 D01 003430 -01513 000343 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003221 -01397 -00251 0000 0375 0250 1000 0625 0750 0000 %0029 D03 003092 -01453 -00861 0000 0375 0375 1000 0625 0625 0000 %0030 D04 003247 -01502 -01512 0000 0375 0500 1000 0625 0500 0000 %0031 D05 003792 -01447 -01989 0000 0375 0625 1000 0625 0375 0000 %0032 D06 004143 -01520 -02483 0000 0375 0750 1000 0625 0250 0000 %0033 D07 004416 -01653 -02878 0000 0375 0875 1000 0625 0125 0000 %0034 D08 004717 -01537 -03552 0000 0375 1000 1000 0625 0000 0000 %0035 D09 003968 -02838 001944 0000 0500 0000 1000 0500 1000 0000 %0036 E01 003831 -02343 000567 0000 0500 0125 1000 0500 0875 0000 %0037 E02 003637 -02142 -00041 0000 0500 0250 1000 0500 0750 0000 %0038 E03 003486 -01996 -00529 0000 0500 0375 1000 0500 0625 0000 %0039 E04 003553 -01843 -01091 0000 0500 0500 1000 0500 0500 0000 %0040 E05 004014 -01675 -01820 0000 0500 0625 1000 0500 0375 0000 %0041 E06 004299 -01871 -02165 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004557 -01943 -02722 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004869 -01904 -03183 0000 0500 1000 1000 0500 0000 0000 %0044 E09 004406 -03804 002602 0000 0625 0000 1000 0375 1000 0000 %0045 F01 004349 -03019 001163 0000 0625 0125 1000 0375 0875 0000 %0046 F02 004308 -02737 000474 0000 0625 0250 1000 0375 0750 0000 %0047 F03 004219 -02523 -00354 0000 0625 0375 1000 0375 0625 0000 %0048 F04 004168 -02303 -00811 0000 0625 0500 1000 0375 0500 0000 %0049 F05 004250 -02164 -01376 0000 0625 0625 1000 0375 0375 0000 %0050 F06 004398 -02138 -02020 0000 0625 0750 1000 0375 0250 0000 %0051 F07 004739 -02210 -02535 0000 0625 0875 1000 0375 0125 0000 %0052 F08 005099 -02490 -02692 0000 0625 1000 1000 0375 0000 0000 %0053 F09 004854 -04574 003061 0000 0750 0000 1000 0250 1000 0000 %0054 G01 004826 -03822 001667 0000 0750 0125 1000 0250 0875 0000 %0055 G02 004810 -03438 000831 0000 0750 0250 1000 0250 0750 0000 %0056 G03 004710 -03254 000171 0000 0750 0375 1000 0250 0625 0000 %0057 G04 004661 -02948 -00515 0000 0750 0500 1000 0250 0500 0000 %0058 G05 004634 -02782 -01076 0000 0750 0625 1000 0250 0375 0000 %0059 G06 004594 -02748 -01535 0000 0750 0750 1000 0250 0250 0000 %0060 G07 004964 -02686 -02149 0000 0750 0875 1000 0250 0125 0000 %0061 G08 005276 -02886 -02557 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005282 -05220 003366 0000 0875 0000 1000 0125 1000 0000 %0063 H01 005274 -04732 002203 0000 0875 0125 1000 0125 0875 0000 %0064 H02 005329 -04223 001361 0000 0875 0250 1000 0125 0750 0000 %0065 H03 005288 -04084 000654 0000 0875 0375 1000 0125 0625 0000 %0066 H04 005268 -03785 -00123 0000 0875 0500 1000 0125 0500 0000 %0067 H05 005311 -03637 -00708 0000 0875 0625 1000 0125 0375 0000 %0068 H06 005247 -03454 -01226 0000 0875 0750 1000 0125 0250 0000 %0069 H07 006208 -03689 -01830 0000 0875 0875 1000 0125 0125 0000 %0070 H08 005491 -03523 -02127 0000 0875 1000 1000 0125 0000 0000 %0071 H09 006147 -05737 004034 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005928 -05298 002843 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005967 -05203 001289 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005808 -04962 001035 0000 1000 0375 1000 0000 0625 0000 %0075 I04 006000 -05031 000362 0000 1000 0500 1000 0000 0500 0000 %0076 I05 006135 -04621 -00114 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005763 -04318 -00876 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005880 -04427 -01411 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005899 -04051 -01966 0000 1000 1000 1000 0000 0000 0000 %0080 I09 002221 000687 000549 0125 0000 0000 0875 1000 1000 0000 %0081 J01 002186 000894 -00152 0125 0000 0125 0875 1000 0875 0000 %0082 J02 002397 000759 -00824 0125 0000 0250 0875 1000 0750 0000 %0083 J03 002661 000574 -01566 0125 0000 0375 0875 1000 0625 0000 %0084 J04 002849 000440 -02145 0125 0000 0500 0875 1000 0500 0000 %0085 J05 003259 000464 -02594 0125 0000 0625 0875 1000 0375 0000 %0086 J06 003768 000366 -03020 0125 0000 0750 0875 1000 0250 0000 %0087 J07 004038 000317 -03508 0125 0000 0875 0875 1000 0125 0000 %0088 J08 004277 000281 -04179 0125 0000 1000 0875 1000 0000 0000 %0089 J09 002514 -00270 001188 0125 0125 0000 0875 0875 1000 0000 %0090 K01 002544 -00006 -00071 0125 0125 0125 0875 0875 0875 0000 %0091 K02 002933 -00015 -00538 0125 0125 0250 0875 0875 0750 0000 %0092 K03 003069 -00124 -01121 0125 0125 0375 0875 0875 0625 0000 %0093 K04 003325 -00191 -01801 0125 0125 0500 0875 0875 0500 0000 %0094 K05 003955 -00299 -02381 0125 0125 0625 0875 0875 0375 0000 %0095 K06 004262 -00371 -02788 0125 0125 0750 0875 0875 0250 0000 %0096 K07 004537 -00447 -03274 0125 0125 0875 0875 0875 0125 0000 %0097 K08 004728 -00407 -03834 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003135 -00841 001582 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003236 -00564 000455 0125 0250 0125 0875 0750 0875 0000 %0100 L02 002966 -00240 -00166 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003216 -00492 -00857 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003576 -00663 -01457 0125 0250 0500 0875 0750 0500 0000 %0103 L05 004074 -00749 -02020 0125 0250 0625 0875 0750 0375 0000 %0104 L06 004462 -00760 -02522 0125 0250 0750 0875 0750 0250 0000 %0105 L07 004717 -00795 -02942 0125 0250 0875 0875 0750 0125 0000 %0106 L08 004972 -00825 -03496 0125 0250 1000 0875 0750 0000 0000 %0107 L09 003689 -01460 002098 0125 0375 0000 0875 0625 1000 0000 %0108 M01 003776 -01274 000928 0125 0375 0125 0875 0625 0875 0000 %0109 M02 003636 -00921 000154 0125 0375 0250 0875 0625 0750 0000 %0110 M03 003539 -00791 -00472 0125 0375 0375 0875 0625 0625 0000 %0111 M04 003985 -01165 -01208 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004260 -01089 -01805 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004601 -01162 -02226 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004826 -01051 -02714 0125 0375 0875 0875 0625 0125 0000 %0115 M08 005094 -01109 -03269 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004154 -02382 002573 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004235 -02028 001431 0125 0500 0125 0875 0500 0875 0000 %0118 N02 004213 -01827 000377 0125 0500 0250 0875 0500 0750 0000 %0119 N03 004135 -01656 -00295 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004164 -01525 -00969 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004405 -01377 -01544 0125 0500 0625 0875 0500 0375 0000 %0122 N06 004722 -01446 -02012 0125 0500 0750 0875 0500 0250 0000 %0123 N07 005061 -01530 -02396 0125 0500 0875 0875 0500 0125 0000 %0124 N08 005299 -01480 -02932 0125 0500 1000 0875 0500 0000 0000 %0125 N09 004611 -03434 003019 0125 0625 0000 0875 0375 1000 0000 %0126 O01 004656 -02821 001706 0125 0625 0125 0875 0375 0875 0000 %0127 O02 004703 -02517 000795 0125 0625 0250 0875 0375 0750 0000 %0128 O03 004615 -02233 -00012 0125 0625 0375 0875 0375 0625 0000 %0129 O04 004571 -01986 -00556 0125 0625 0500 0875 0375 0500 0000 %0130 O05 004690 -01881 -01150 0125 0625 0625 0875 0375 0375 0000 %0131 O06 004909 -01750 -01773 0125 0625 0750 0875 0375 0250 0000 %0132 O07 005247 -01956 -02084 0125 0625 0875 0875 0375 0125 0000 %0133 O08 005452 -01773 -02680 0125 0625 1000 0875 0375 0000 0000 %0134 O09 004976 -03950 003337 0125 0750 0000 0875 0250 1000 0000 %0135 P01 005192 -03366 002236 0125 0750 0125 0875 0250 0875 0000 %0136 P02 005186 -03077 001263 0125 0750 0250 0875 0250 0750 0000 %0137 P03 005184 -02915 000525 0125 0750 0375 0875 0250 0625 0000 %0138 P04 005181 -02621 -00222 0125 0750 0500 0875 0250 0500 0000 %0139 P05 005265 -02462 -00755 0125 0750 0625 0875 0250 0375 0000 %0140 P06 005192 -02417 -01261 0125 0750 0750 0875 0250 0250 0000 %0141 P07 005401 -02232 -01956 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005671 -02220 -02381 0125 0750 1000 0875 0250 0000 0000 %0143 P09 005524 -04651 003874 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 005722 -04321 002946 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 005740 -03774 001700 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 005738 -03501 000834 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 006422 -04113 -00183 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 005701 -03109 -00587 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 005683 -02969 -01053 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 005625 -02773 -01526 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005939 -02859 -01937 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 006218 -05401 004411 0125 1000 0000 0875 0000 1000 0000 %0153 R01 006502 -05048 003414 0125 1000 0125 0875 0000 0875 0000 %0154 R02 006751 -04434 002268 0125 1000 0250 0875 0000 0750 0000 %0155 R03 006193 -04299 001289 0125 1000 0375 0875 0000 0625 0000 %0156 R04 006219 -04100 000566 0125 1000 0500 0875 0000 0500 0000 %0157 R05 006427 -04171 -00103 0125 1000 0625 0875 0000 0375 0000 %0158 R06 006149 -03768 -00692 0125 1000 0750 0875 0000 0250 0000 %0159 R07 006256 -03796 -01058 0125 1000 0875 0875 0000 0125 0000 %0160 R08 006240 -03662 -01763 0125 1000 1000 0875 0000 0000 0000 %0161 R09 002373 001492 000971 0250 0000 0000 0750 1000 1000 0000 %0162 S01 002296 001498 000293 0250 0000 0125 0750 1000 0875 0000 %0163 S02 002449 001632 -00294 0250 0000 0250 0750 1000 0750 0000 %0164 S03 002826 001170 -01237 0250 0000 0375 0750 1000 0625 0000 %0165 S04 003073 001109 -01668 0250 0000 0500 0750 1000 0500 0000 %0166 S05 003250 001157 -02239 0250 0000 0625 0750 1000 0375 0000 %0167 S06 003684 001089 -02729 0250 0000 0750 0750 1000 0250 0000 %0168 S07 004112 001036 -03239 0250 0000 0875 0750 1000 0125 0000 %0169 S08 004317 001003 -03835 0250 0000 1000 0750 1000 0000 0000 %0170 S09 002718 000670 001362 0250 0125 0000 0750 0875 1000 0000 %0171 T01 002781 000602 000461 0250 0125 0125 0750 0875 0875 0000 %0172 T02 002924 000689 -00166 0250 0125 0250 0750 0875 0750 0000 %0173 T03 003178 000608 -00804 0250 0125 0375 0750 0875 0625 0000 %0174 T04 003497 000579 -01410 0250 0125 0500 0750 0875 0500 0000 %0175 T05 003863 000454 -02068 0250 0125 0625 0750 0875 0375 0000 %0176 T06 004271 000471 -02468 0250 0125 0750 0750 0875 0250 0000 %0177 T07 004568 000590 -03047 0250 0125 0875 0750 0875 0125 0000 %0178 T08 004822 000364 -03407 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003284 -00415 002196 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003182 -00280 001110 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003212 000101 000074 0250 0250 0250 0750 0750 0750 0000 %0182 U03 003860 -00106 -00593 0250 0250 0375 0750 0750 0625 0000 %0183 U04 004123 -00173 -01337 0250 0250 0500 0750 0750 0500 0000 %0184 U05 004415 -00132 -01771 0250 0250 0625 0750 0750 0375 0000 %0185 U06 004785 -00252 -02273 0250 0250 0750 0750 0750 0250 0000 %0186 U07 005187 -00357 -02668 0250 0250 0875 0750 0750 0125 0000 %0187 U08 005431 -00346 -03250 0250 0250 1000 0750 0750 0000 0000 %0188 U09 003806 -01060 002718 0250 0375 0000 0750 0625 1000 0000 %0189 V01 003708 -00789 001498 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004094 -00640 000471 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004065 -00388 -00217 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004370 -00471 -00783 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004490 -00465 -01459 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004985 -00665 -02020 0250 0375 0750 0750 0625 0250 0000 %0195 V07 005376 -00723 -02386 0250 0375 0875 0750 0625 0125 0000 %0196 V08 005620 -00754 -02913 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004347 -01872 003072 0250 0500 0000 0750 0500 1000 0000 %0198 W01 004446 -01471 001981 0250 0500 0125 0750 0500 0875 0000 %0199 W02 004704 -01248 001000 0250 0500 0250 0750 0500 0750 0000 %0200 W03 004591 -00983 000094 0250 0500 0375 0750 0500 0625 0000 %0201 W04 004596 -00812 -00427 0250 0500 0500 0750 0500 0500 0000 %0202 W05 004749 -00835 -01070 0250 0500 0625 0750 0500 0375 0000 %0203 W06 005166 -00996 -01690 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005537 -01097 -02113 0250 0500 0875 0750 0500 0125 0000 %0205 W08 005842 -01120 -02612 0250 0500 1000 0750 0500 0000 0000 %0206 W09 004892 -02618 003626 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005092 -02235 002522 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005270 -01880 001573 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005218 -01633 000640 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005125 -01388 -00066 0250 0625 0500 0750 0375 0500 0000 %0211 X05 005119 -01227 -00704 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005406 -01384 -01329 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005679 -01360 -01891 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005938 -01402 -02424 0250 0625 1000 0750 0375 0000 0000 %0215 X09 005220 -03334 003937 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 005501 -02972 002805 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 005630 -02688 001973 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 005635 -02331 000817 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 005631 -02123 000218 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 005670 -01922 -00345 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 005614 -01748 -01086 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 005795 -01736 -01660 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 006168 -01835 -02019 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 005837 -04167 004199 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 005993 -03770 003242 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 006164 -03408 002292 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 006135 -02951 001146 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 006130 -02674 000431 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 006143 -02458 -00195 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 006077 -02364 -00736 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 006052 -02099 -01402 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 006372 -02279 -01752 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006585 -05008 004971 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006737 -04775 004012 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006906 -04266 002853 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006897 -04015 001488 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006815 -03535 000893 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006930 -03433 -00067 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006717 -03124 -00386 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006675 -02955 -00929 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006729 -03087 -01532 0250 1000 1000 0750 0000 0000 0000 %0242 a09 002920 002155 001614 0375 0000 0000 0625 1000 1000 0000 %0243 A10 002842 002260 000636 0375 0000 0125 0625 1000 0875 0000 %0244 A11 002852 002228 000107 0375 0000 0250 0625 1000 0750 0000 %0245 A12 002835 002407 -00581 0375 0000 0375 0625 1000 0625 0000 %0246 A13 003146 002032 -01429 0375 0000 0500 0625 1000 0500 0000 %0247 A14 003355 001863 -01886 0375 0000 0625 0625 1000 0375 0000 %0248 A15 003630 001788 -02534 0375 0000 0750 0625 1000 0250 0000 %0249 A16 004034 001731 -03014 0375 0000 0875 0625 1000 0125 0000 %0250 A17 004315 001669 -03701 0375 0000 1000 0625 1000 0000 0000 %0251 A18 003273 001454 001797 0375 0125 0000 0625 0875 1000 0000 %0252 B10 003504 001399 000904 0375 0125 0125 0625 0875 0875 0000 %0253 B11 003381 001534 000289 0375 0125 0250 0625 0875 0750 0000 %0254 B12 003391 001625 -00293 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003668 001246 -01112 0375 0125 0500 0625 0875 0500 0000 %0256 B14 004036 001057 -01698 0375 0125 0625 0625 0875 0375 0000 %0257 B15 004184 001183 -02241 0375 0125 0750 0625 0875 0250 0000 %0258 B16 004551 001091 -02750 0375 0125 0875 0625 0875 0125 0000 %0259 B17 004882 001013 -03187 0375 0125 1000 0625 0875 0000 0000 %0260 B18 003813 000402 002605 0375 0250 0000 0625 0750 1000 0000 %0261 C10 003917 000523 001511 0375 0250 0125 0625 0750 0875 0000 %0262 C11 003968 000726 000399 0375 0250 0250 0625 0750 0750 0000 %0263 C12 003990 000749 -00194 0375 0250 0375 0625 0750 0625 0000 %0264 C13 004198 000585 -00902 0375 0250 0500 0625 0750 0500 0000 %0265 C14 004456 000584 -01383 0375 0250 0625 0625 0750 0375 0000 %0266 C15 004737 000484 -02095 0375 0250 0750 0625 0750 0250 0000 %0267 C16 005168 000342 -02513 0375 0250 0875 0625 0750 0125 0000 %0268 C17 005413 000539 -02979 0375 0250 1000 0625 0750 0000 0000 %0269 C18 004493 -00805 003488 0375 0375 0000 0625 0625 1000 0000 %0270 D10 004549 -00539 002344 0375 0375 0125 0625 0625 0875 0000 %0271 D11 004511 -00311 001028 0375 0375 0250 0625 0625 0750 0000 %0272 D12 004375 000126 000018 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004580 000103 -00484 0375 0375 0500 0625 0625 0500 0000 %0274 D14 005123 -00179 -01379 0375 0375 0625 0625 0625 0375 0000 %0275 D15 005449 -00191 -01803 0375 0375 0750 0625 0625 0250 0000 %0276 D16 005647 -00143 -02195 0375 0375 0875 0625 0625 0125 0000 %0277 D17 005916 -00259 -02823 0375 0375 1000 0625 0625 0000 0000 %0278 D18 004995 -01370 004051 0375 0500 0000 0625 0500 1000 0000 %0279 E10 004997 -01035 002570 0375 0500 0125 0625 0500 0875 0000 %0280 E11 005034 -00840 001376 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005151 -00569 000487 0375 0500 0375 0625 0500 0625 0000 %0282 E13 004902 -00244 -00238 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005531 -00627 -00912 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005648 -00611 -01469 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005956 -00612 -01949 0375 0500 0875 0625 0500 0125 0000 %0286 E17 006212 -00741 -02484 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005428 -02127 004296 0375 0625 0000 0625 0375 1000 0000 %0288 F10 005623 -01820 002936 0375 0625 0125 0625 0375 0875 0000 %0289 F11 005711 -01594 001875 0375 0625 0250 0625 0375 0750 0000 %0290 F12 005792 -01319 000791 0375 0625 0375 0625 0375 0625 0000 %0291 F13 005790 -01172 -00045 0375 0625 0500 0625 0375 0500 0000 %0292 F14 005691 -00941 -00542 0375 0625 0625 0625 0375 0375 0000 %0293 F15 005844 -00965 -01184 0375 0625 0750 0625 0375 0250 0000 %0294 F16 006145 -00967 -01693 0375 0625 0875 0625 0375 0125 0000 %0295 F17 006440 -01068 -02128 0375 0625 1000 0625 0375 0000 0000 %0296 F18 005845 -02858 004589 0375 0750 0000 0625 0250 1000 0000 %0297 G10 006125 -02478 003411 0375 0750 0125 0625 0250 0875 0000 %0298 G11 006198 -02183 002376 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006309 -01937 001299 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006199 -01735 000345 0375 0750 0500 0625 0250 0500 0000 %0301 G14 006120 -01490 -00266 0375 0750 0625 0625 0250 0375 0000 %0302 G15 006076 -01393 -00772 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006376 -01440 -01271 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006654 -01476 -01726 0375 0750 1000 0625 0250 0000 0000 %0305 G18 006428 -03453 004865 0375 0875 0000 0625 0125 1000 0000 %0306 H10 006628 -03210 003997 0375 0875 0125 0625 0125 0875 0000 %0307 H11 006677 -02837 002951 0375 0875 0250 0625 0125 0750 0000 %0308 H12 006760 -02590 001862 0375 0875 0375 0625 0125 0625 0000 %0309 H13 006667 -02286 000809 0375 0875 0500 0625 0125 0500 0000 %0310 H14 006717 -02137 000276 0375 0875 0625 0625 0125 0375 0000 %0311 H15 006657 -02035 -00253 0375 0875 0750 0625 0125 0250 0000 %0312 H16 006586 -01855 -00980 0375 0875 0875 0625 0125 0125 0000 %0313 H17 007365 -02319 -01537 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006973 -04391 005381 0375 1000 0000 0625 0000 1000 0000 %0315 I10 007260 -03948 003987 0375 1000 0125 0625 0000 0875 0000 %0316 I11 007112 -04026 003169 0375 1000 0250 0625 0000 0750 0000 %0317 I12 007271 -03484 002051 0375 1000 0375 0625 0000 0625 0000 %0318 I13 007159 -03050 001120 0375 1000 0500 0625 0000 0500 0000 %0319 I14 007115 -02853 000440 0375 1000 0625 0625 0000 0375 0000 %0320 I15 007103 -02630 -00153 0375 1000 0750 0625 0000 0250 0000 %0321 I16 007018 -02440 -00681 0375 1000 0875 0625 0000 0125 0000 %0322 I17 007339 -02333 -01577 0375 1000 1000 0625 0000 0000 0000 %0323 I18 003179 003324 001771 0500 0000 0000 0500 1000 1000 0000 %0324 J10 003178 003278 001195 0500 0000 0125 0500 1000 0875 0000 %0325 J11 003136 003456 000483 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003128 003545 -00076 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003167 003670 -00629 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003519 002919 -01539 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003736 002511 -02162 0500 0000 0750 0500 1000 0250 0000 %0330 J16 004052 002232 -02727 0500 0000 0875 0500 1000 0125 0000 %0331 J17 004382 002324 -03399 0500 0000 1000 0500 1000 0000 0000 %0332 J18 003699 002144 002391 0500 0125 0000 0500 0875 1000 0000 %0333 K10 003869 002201 001380 0500 0125 0125 0500 0875 0875 0000 %0334 K11 003878 002218 000680 0500 0125 0250 0500 0875 0750 0000 %0335 K12 003900 002295 000157 0500 0125 0375 0500 0875 0625 0000 %0336 K13 003841 002392 -00533 0500 0125 0500 0500 0875 0500 0000 %0337 K14 004126 001794 -01279 0500 0125 0625 0500 0875 0375 0000 %0338 K15 004306 001739 -01944 0500 0125 0750 0500 0875 0250 0000 %0339 K16 004626 001725 -02426 0500 0125 0875 0500 0875 0125 0000 %0340 K17 004856 001763 -02985 0500 0125 1000 0500 0875 0000 0000 %0341 K18 004165 001223 003065 0500 0250 0000 0500 0750 1000 0000 %0342 L10 004347 001256 001949 0500 0250 0125 0500 0750 0875 0000 %0343 L11 004378 001344 000835 0500 0250 0250 0500 0750 0750 0000 %0344 L12 004411 001425 000303 0500 0250 0375 0500 0750 0625 0000 %0345 L13 004342 001600 -00346 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004499 001305 -01116 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004930 001082 -01701 0500 0250 0750 0500 0750 0250 0000 %0348 L16 005208 001054 -02206 0500 0250 0875 0500 0750 0125 0000 %0349 L17 005441 001081 -02762 0500 0250 1000 0500 0750 0000 0000 %0350 L18 004632 000341 003613 0500 0375 0000 0500 0625 1000 0000 %0351 M10 004756 000525 002432 0500 0375 0125 0500 0625 0875 0000 %0352 M11 004852 000636 001320 0500 0375 0250 0500 0625 0750 0000 %0353 M12 004919 000698 000471 0500 0375 0375 0500 0625 0625 0000 %0354 M13 004888 000886 -00169 0500 0375 0500 0500 0625 0500 0000 %0355 M14 005270 000516 -00909 0500 0375 0625 0500 0625 0375 0000 %0356 M15 005526 000554 -01431 0500 0375 0750 0500 0625 0250 0000 %0357 M16 005815 000446 -01866 0500 0375 0875 0500 0625 0125 0000 %0358 M17 006304 000472 -02983 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005320 -00862 004517 0500 0500 0000 0500 0500 1000 0000 %0360 N10 005477 -00593 003186 0500 0500 0125 0500 0500 0875 0000 %0361 N11 005485 -00428 002099 0500 0500 0250 0500 0500 0750 0000 %0362 N12 005552 -00297 001123 0500 0500 0375 0500 0500 0625 0000 %0363 N13 005417 000052 -00097 0500 0500 0500 0500 0500 0500 0000 %0364 N14 005817 000053 -00533 0500 0500 0625 0500 0500 0375 0000 %0365 N15 006134 -00200 -01222 0500 0500 0750 0500 0500 0250 0000 %0366 N16 006442 -00227 -01821 0500 0500 0875 0500 0500 0125 0000 %0367 N17 006691 -00191 -02206 0500 0500 1000 0500 0500 0000 0000 %0368 N18 005829 -01590 004880 0500 0625 0000 0500 0375 1000 0000 %0369 O10 006026 -01309 003659 0500 0625 0125 0500 0375 0875 0000 %0370 O11 006085 -01110 002583 0500 0625 0250 0500 0375 0750 0000 %0371 O12 006123 -00898 001455 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006119 -00603 000357 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006052 -00246 -00244 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006380 -00575 -00867 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006696 -00617 -01470 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006931 -00587 -02005 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006231 -02257 005161 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006465 -01971 004054 0500 0750 0125 0500 0250 0875 0000 %0379 P11 006506 -01753 002929 0500 0750 0250 0500 0250 0750 0000 %0380 P12 006562 -01567 001762 0500 0750 0375 0500 0250 0625 0000 %0381 P13 006612 -01332 000845 0500 0750 0500 0500 0250 0500 0000 %0382 P14 006572 -01104 -00069 0500 0750 0625 0500 0250 0375 0000 %0383 P15 006605 -01028 -00541 0500 0750 0750 0500 0250 0250 0000 %0384 P16 006885 -00969 -01198 0500 0750 0875 0500 0250 0125 0000 %0385 P17 007159 -00960 -01795 0500 0750 1000 0500 0250 0000 0000 %0386 P18 006749 -03104 005429 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 006974 -02915 004587 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 007017 -02545 003261 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 007098 -02361 002240 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007259 -02022 001307 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007185 -01854 000521 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007119 -01578 -00259 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007090 -01404 -00842 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 007585 -01430 -00447 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 007242 -04105 005996 0500 1000 0000 0500 0000 1000 0000 %0396 R10 007428 -03636 004873 0500 1000 0125 0500 0000 0875 0000 %0397 R11 007607 -03459 003786 0500 1000 0250 0500 0000 0750 0000 %0398 R12 007511 -02928 002578 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007852 -02821 001819 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007885 -02507 000997 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007823 -02385 000455 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007686 -02049 -00294 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007609 -01873 -00847 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003614 003943 002262 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003643 004070 001769 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003598 004153 001072 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003619 004138 000448 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003666 004246 -00139 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003674 004319 -00715 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003954 003346 -01612 0625 0000 0750 0375 1000 0250 0000 %0411 S16 004208 002976 -02300 0625 0000 0875 0375 1000 0125 0000 %0412 S17 004374 003035 -03085 0625 0000 1000 0375 1000 0000 0000 %0413 S18 004175 002761 002889 0625 0125 0000 0375 0875 1000 0000 %0414 T10 004319 002851 001749 0625 0125 0125 0375 0875 0875 0000 %0415 T11 004305 002935 001102 0625 0125 0250 0375 0875 0750 0000 %0416 T12 004283 002972 000539 0625 0125 0375 0375 0875 0625 0000 %0417 T13 004336 003034 -00042 0625 0125 0500 0375 0875 0500 0000 %0418 T14 004320 003180 -00631 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004394 002737 -01558 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004718 002395 -02039 0625 0125 0875 0375 0875 0125 0000 %0421 T17 005402 002108 -03078 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004636 001902 003531 0625 0250 0000 0375 0750 1000 0000 %0423 U10 004792 001979 002325 0625 0250 0125 0375 0750 0875 0000 %0424 U11 004837 002150 001213 0625 0250 0250 0375 0750 0750 0000 %0425 U12 004806 002151 000699 0625 0250 0375 0375 0750 0625 0000 %0426 U13 004821 002308 000093 0625 0250 0500 0375 0750 0500 0000 %0427 U14 004851 002503 -00454 0625 0250 0625 0375 0750 0375 0000 %0428 U15 004967 001874 -01362 0625 0250 0750 0375 0750 0250 0000 %0429 U16 005295 001802 -01893 0625 0250 0875 0375 0750 0125 0000 %0430 U17 005485 001796 -02432 0625 0250 1000 0375 0750 0000 0000 %0431 U18 005044 001173 004077 0625 0375 0000 0375 0625 1000 0000 %0432 V10 005196 001255 002929 0625 0375 0125 0375 0625 0875 0000 %0433 V11 005272 001281 001670 0625 0375 0250 0375 0625 0750 0000 %0434 V12 005430 001316 000862 0625 0375 0375 0375 0625 0625 0000 %0435 V13 005417 001462 000208 0625 0375 0500 0375 0625 0500 0000 %0436 V14 005441 001606 -00320 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005597 001237 -01127 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005926 001090 -01506 0625 0375 0875 0375 0625 0125 0000 %0439 V17 006239 001119 -02236 0625 0375 1000 0375 0625 0000 0000 %0440 V18 005521 000273 004721 0625 0500 0000 0375 0500 1000 0000 %0441 W10 005716 000406 003384 0625 0500 0125 0375 0500 0875 0000 %0442 W11 005792 000500 002326 0625 0500 0250 0375 0500 0750 0000 %0443 W12 005854 000531 001471 0625 0500 0375 0375 0500 0625 0000 %0444 W13 005944 000691 000382 0625 0500 0500 0375 0500 0500 0000 %0445 W14 005936 000893 -00171 0625 0500 0625 0375 0500 0375 0000 %0446 W15 006194 000605 -00911 0625 0500 0750 0375 0500 0250 0000 %0447 W16 006582 000506 -01558 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006874 000451 -01803 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006294 -00985 005790 0625 0625 0000 0375 0375 1000 0000 %0450 X10 006412 -00755 004337 0625 0625 0125 0375 0375 0875 0000 %0451 X11 006472 -00634 003263 0625 0625 0250 0375 0375 0750 0000 %0452 X12 006495 -00494 002162 0625 0625 0375 0375 0375 0625 0000 %0453 X13 006394 -00166 000927 0625 0625 0500 0375 0375 0500 0000 %0454 X14 006422 000123 -00102 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006810 -00011 -00629 0625 0625 0750 0375 0375 0250 0000 %0456 X16 007167 -00181 -01264 0625 0625 0875 0375 0375 0125 0000 %0457 X17 007578 -00137 -01739 0625 0625 1000 0375 0375 0000 0000 %0458 X18 006663 -01714 005870 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 006810 -01547 004668 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 006812 -01332 003564 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 006879 -01199 002456 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 006954 -00963 001428 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 007165 -00769 000406 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 007073 -00399 -00367 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007410 -00610 -00945 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007672 -00594 -01369 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 007148 -02618 006046 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 007306 -02363 005112 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007415 -02099 003931 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007433 -01878 002831 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007480 -01644 001717 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 007691 -01413 000949 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 007700 -01242 000121 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 007671 -01067 -00492 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007869 -00977 -01155 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 007713 -03569 006424 0625 1000 0000 0375 0000 1000 0000 %0477 a10 007909 -03336 005510 0625 1000 0125 0375 0000 0875 0000 %0478 a11 008052 -02997 004250 0625 1000 0250 0375 0000 0750 0000 %0479 a12 008075 -02816 003139 0625 1000 0375 0375 0000 0625 0000 %0480 a13 008277 -02372 002058 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008393 -02034 001362 0625 1000 0625 0375 0000 0375 0000 %0482 a15 008321 -01776 000490 0625 1000 0750 0375 0000 0250 0000 %0483 a16 008307 -01538 -00165 0625 1000 0875 0375 0000 0125 0000 %0484 a17 008237 -01424 -00599 0625 1000 1000 0375 0000 0000 0000 %0485 a18 004040 004558 002904 0750 0000 0000 0250 1000 1000 0000 %0486 A19 004004 004702 002204 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003967 004791 001633 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003948 004761 001095 0750 0000 0375 0250 1000 0625 0000 %0489 A22 003905 004806 000586 0750 0000 0500 0250 1000 0500 0000 %0490 A23 003838 004920 -00142 0750 0000 0625 0250 1000 0375 0000 %0491 A24 003721 005061 -00847 0750 0000 0750 0250 1000 0250 0000 %0492 A25 003915 004169 -01916 0750 0000 0875 0250 1000 0125 0000 %0493 A26 004614 004018 -02872 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004556 003686 003572 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004651 003779 002325 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004607 003814 001657 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004539 003963 001129 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004485 003972 000605 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004399 004161 -00044 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004246 004258 -00714 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004413 003355 -01634 0750 0125 0875 0250 0875 0125 0000 %0502 B26 005148 003204 -02827 0750 0125 1000 0250 0875 0000 0000 %0503 B27 005015 002763 004266 0750 0250 0000 0250 0750 1000 0000 %0504 C19 005058 002813 002871 0750 0250 0125 0250 0750 0875 0000 %0505 C20 005141 002993 001838 0750 0250 0250 0250 0750 0750 0000 %0506 C21 005125 002990 001251 0750 0250 0375 0250 0750 0625 0000 %0507 C22 005029 003073 000665 0750 0250 0500 0250 0750 0500 0000 %0508 C23 004932 003132 000042 0750 0250 0625 0250 0750 0375 0000 %0509 C24 004849 003358 -00619 0750 0250 0750 0250 0750 0250 0000 %0510 C25 005084 002677 -01525 0750 0250 0875 0250 0750 0125 0000 %0511 C26 005997 002205 -02576 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005405 002001 004789 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005538 001987 003296 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005691 001893 002292 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005721 002054 001416 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005667 002182 000828 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005580 002363 000209 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005522 002627 -00417 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005618 001958 -01330 0750 0375 0875 0250 0625 0125 0000 %0520 D26 006145 001724 -01981 0750 0375 1000 0250 0625 0000 0000 %0521 D27 005895 001164 005369 0750 0500 0000 0250 0500 1000 0000 %0522 E19 006062 001135 003824 0750 0500 0125 0250 0500 0875 0000 %0523 E20 006116 001237 002846 0750 0500 0250 0250 0500 0750 0000 %0524 E21 006231 001300 001964 0750 0500 0375 0250 0500 0625 0000 %0525 E22 006335 001378 001040 0750 0500 0500 0250 0500 0500 0000 %0526 E23 006248 001566 000308 0750 0500 0625 0250 0500 0375 0000 %0527 E24 006180 001682 -00302 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006274 001226 -01267 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006688 000956 -01569 0750 0500 1000 0250 0500 0000 0000 %0530 E27 006492 000073 006037 0750 0625 0000 0250 0375 1000 0000 %0531 F19 006598 000217 004421 0750 0625 0125 0250 0375 0875 0000 %0532 F20 006618 000351 003483 0750 0625 0250 0250 0375 0750 0000 %0533 F21 006696 000465 002456 0750 0625 0375 0250 0375 0625 0000 %0534 F22 006755 000576 001542 0750 0625 0500 0250 0375 0500 0000 %0535 F23 006880 000734 000488 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006751 000982 -00294 0750 0625 0750 0250 0375 0250 0000 %0537 F25 007008 000508 -00962 0750 0625 0875 0250 0375 0125 0000 %0538 F26 007435 000563 -01669 0750 0625 1000 0250 0375 0000 0000 %0539 F27 007338 -01127 006802 0750 0750 0000 0250 0250 1000 0000 %0540 G19 007341 -00936 005453 0750 0750 0125 0250 0250 0875 0000 %0541 G20 007312 -00731 004357 0750 0750 0250 0250 0250 0750 0000 %0542 G21 007367 -00526 003286 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007404 -00384 002265 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007413 -00219 000962 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007375 000022 -00070 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007593 -00203 -00688 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007844 -00178 -01349 0750 0750 1000 0250 0250 0000 0000 %0548 G27 007770 -01915 007311 0750 0875 0000 0250 0125 1000 0000 %0549 H19 007769 -01791 005971 0750 0875 0125 0250 0125 0875 0000 %0550 H20 007774 -01565 004683 0750 0875 0250 0250 0125 0750 0000 %0551 H21 007821 -01392 003601 0750 0875 0375 0250 0125 0625 0000 %0552 H22 007877 -01268 002548 0750 0875 0500 0250 0125 0500 0000 %0553 H23 007951 -01161 001616 0750 0875 0625 0250 0125 0375 0000 %0554 H24 007991 -00826 000494 0750 0875 0750 0250 0125 0250 0000 %0555 H25 007820 -00545 -00380 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008079 -00637 -01219 0750 0875 1000 0250 0125 0000 0000 %0557 H27 008227 -02919 007488 0750 1000 0000 0250 0000 1000 0000 %0558 I19 008273 -02753 006500 0750 1000 0125 0250 0000 0875 0000 %0559 I20 008290 -02470 005066 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008353 -02236 003950 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008384 -02009 002867 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008494 -01836 002007 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008572 -01563 000952 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008425 -01285 -00054 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008350 -01043 -00815 0750 1000 1000 0250 0000 0000 0000 %0566 I27 003846 005332 003182 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004413 005589 002693 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004413 005623 002134 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004401 005706 001593 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004391 005725 000985 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004337 005812 000396 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004304 005904 -00347 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004316 005950 -01122 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004554 005110 -02091 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004922 004486 004224 0875 0125 0000 0125 0875 1000 0000 %0576 K19 004981 004564 002729 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004990 004623 002092 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004892 004846 001514 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004872 004855 001045 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004942 004729 000514 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004881 004858 -00139 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004927 005002 -00877 0875 0125 0875 0125 0875 0125 0000 %0583 K26 005168 004063 -01791 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005388 003491 004782 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005553 003426 003234 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005621 003556 002187 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005597 003678 001630 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005559 003794 001055 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005507 003877 000585 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005467 004112 -00115 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005490 004174 -00688 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005694 003339 -01613 0875 0250 1000 0125 0750 0000 0000 %0593 L27 005865 002723 005164 0875 0375 0000 0125 0625 1000 0000 %0594 M19 006011 002664 003576 0875 0375 0125 0125 0625 0875 0000 %0595 M20 006102 002722 002599 0875 0375 0250 0125 0625 0750 0000 %0596 M21 006211 002782 001725 0875 0375 0375 0125 0625 0625 0000 %0597 M22 006114 002943 001213 0875 0375 0500 0125 0625 0500 0000 %0598 M23 006152 002989 000762 0875 0375 0625 0125 0625 0375 0000 %0599 M24 006133 003109 000103 0875 0375 0750 0125 0625 0250 0000 %0600 M25 006194 003216 -00504 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006349 002577 -01559 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006330 001766 005835 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006486 001750 004125 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006592 001864 003167 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006732 001788 002370 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006779 002013 001418 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006743 001999 000870 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006704 002202 000311 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006712 002412 -00376 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006811 001823 -01239 0875 0500 1000 0125 0500 0000 0000 %0611 N27 006804 000929 006097 0875 0625 0000 0125 0375 1000 0000 %0612 O19 006926 000970 004683 0875 0625 0125 0125 0375 0875 0000 %0613 O20 006973 001179 003679 0875 0625 0250 0125 0375 0750 0000 %0614 O21 007112 001185 002759 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007175 001312 001942 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007226 001362 000904 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007183 001438 000411 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007147 001677 -00334 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007497 001198 -01338 0875 0625 1000 0125 0375 0000 0000 %0620 O27 007357 -00067 006608 0875 0750 0000 0125 0250 1000 0000 %0621 P19 007440 000084 005442 0875 0750 0125 0125 0250 0875 0000 %0622 P20 007494 000296 004354 0875 0750 0250 0125 0250 0750 0000 %0623 P21 007516 000424 003328 0875 0750 0375 0125 0250 0625 0000 %0624 P22 007607 000534 002389 0875 0750 0500 0125 0250 0500 0000 %0625 P23 007698 000551 001468 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007810 000647 000425 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007733 000908 -00418 0875 0750 0875 0125 0250 0125 0000 %0628 P26 007947 000477 -01127 0875 0750 1000 0125 0250 0000 0000 %0629 P27 008139 -01377 007709 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 008207 -01099 006466 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008261 -00911 005182 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008279 -00750 004211 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008312 -00570 003156 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008345 -00383 002237 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008362 -00210 000990 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008346 000052 -00158 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008765 000004 -00979 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 008568 -02409 008104 0875 1000 0000 0125 0000 1000 0000 %0639 R19 008624 -02075 006948 0875 1000 0125 0125 0000 0875 0000 %0640 R20 008666 -01913 005500 0875 1000 0250 0125 0000 0750 0000 %0641 R21 008683 -01717 004478 0875 1000 0375 0125 0000 0625 0000 %0642 R22 008682 -01489 003402 0875 1000 0500 0125 0000 0500 0000 %0643 R23 008769 -01373 002579 0875 1000 0625 0125 0000 0375 0000 %0644 R24 009028 -01389 001862 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009165 -01137 000838 0875 1000 0875 0125 0000 0125 0000 %0646 R26 009120 -00800 -00266 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004783 006242 003990 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004781 006187 003179 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004775 006242 002528 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004775 006373 002062 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004737 006472 001515 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004720 006548 000942 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004712 006596 000317 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004754 006804 -00519 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004705 006739 -01440 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005233 005138 004465 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005346 005156 003073 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005379 005191 002476 1000 0125 0250 0000 0875 0750 0000 %0659 T21 005294 005430 002034 1000 0125 0375 0000 0875 0625 0000 %0660 T22 005338 005397 001459 1000 0125 0500 0000 0875 0500 0000 %0661 T23 005327 005469 000944 1000 0125 0625 0000 0875 0375 0000 %0662 T24 005314 005545 000448 1000 0125 0750 0000 0875 0250 0000 %0663 T25 005390 005574 -00169 1000 0125 0875 0000 0875 0125 0000 %0664 T26 005593 006130 -01009 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005764 004197 005050 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005890 004240 003651 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005927 004635 002901 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005938 004766 002228 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005978 004836 001659 1000 0250 0500 0000 0750 0500 0000 %0670 U23 006039 004853 001236 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005998 004738 000668 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005964 004736 -00056 1000 0250 0875 0000 0750 0125 0000 %0673 U26 006287 005151 -00831 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006216 003581 005594 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006347 003655 004281 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006450 003637 003369 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006536 003771 002197 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006474 004004 001635 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006524 004071 001199 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006592 004099 000761 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006640 004321 000015 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006721 004451 -00691 1000 0375 1000 0000 0625 0000 0000 %0683 V27 006685 002887 005923 1000 0500 0000 0000 0500 1000 0000 %0684 W19 006769 002856 004802 1000 0500 0125 0000 0500 0875 0000 %0685 W20 006881 002840 003736 1000 0500 0250 0000 0500 0750 0000 %0686 W21 007042 002795 002792 1000 0500 0375 0000 0500 0625 0000 %0687 W22 007074 003005 001752 1000 0500 0500 0000 0500 0500 0000 %0688 W23 007140 003040 001335 1000 0500 0625 0000 0500 0375 0000 %0689 W24 007192 003193 000654 1000 0500 0750 0000 0500 0250 0000 %0690 W25 007232 003331 000171 1000 0500 0875 0000 0500 0125 0000 %0691 W26 007291 003478 -00428 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007149 002016 006457 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007240 001950 005496 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007337 001977 004253 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007506 001929 003253 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007619 002051 002163 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007701 002211 001300 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007734 002378 000679 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007872 002382 000258 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007939 002624 -00555 1000 0625 1000 0000 0375 0000 0000 %0701 X27 007699 001024 007150 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 007773 001004 006049 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 007855 001056 004826 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 007951 001145 003738 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008076 001211 002759 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008239 001228 001984 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008353 001479 000863 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008355 001639 000172 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008397 001873 -00514 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008403 -00169 008002 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008438 -00128 006967 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008442 000041 005587 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008477 000225 004461 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008522 000395 003464 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008730 000396 002507 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 008807 000690 001316 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 008915 000674 000596 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 009043 000854 -00524 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009304 -01650 009349 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009231 -01452 008231 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009136 -01088 006354 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009174 -00937 005224 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009217 -00756 004211 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009253 -00543 003210 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009480 -00575 002297 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009657 -00474 001276 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009736 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009760 -00004 000002 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009214 -00680 -00302 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008521 -00923 -00714 0750 1000 1000 0250 0000 0000 0000 %0731 b03 008183 -01418 -00594 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007610 -01808 -00880 0500 1000 1000 0500 0000 0000 0000 %0733 b05 007385 -02239 -01598 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006722 -03070 -01570 0250 1000 1000 0750 0000 0000 0000 %0735 b07 006252 -03608 -01829 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005898 -04060 -02007 0000 1000 1000 1000 0000 0000 0000 %0737 b09 008975 000669 000441 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008472 000053 -00087 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008018 -00484 -00372 0750 0875 0875 0250 0125 0125 0000 %0740 c03 007601 -01078 -00438 0625 0875 0875 0375 0125 0125 0000 %0741 c04 007047 -01412 -00759 0500 0875 0875 0500 0125 0125 0000 %0742 c05 006587 -01810 -01014 0375 0875 0875 0625 0125 0125 0000 %0743 c06 006045 -02111 -01373 0250 0875 0875 0750 0125 0125 0000 %0744 c07 005621 -02800 -01477 0125 0875 0875 0875 0125 0125 0000 %0745 c08 006250 -03641 -01807 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008442 001435 000649 1000 0750 0750 0000 0250 0250 0000 %0747 d01 007970 000615 000296 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007544 000015 -00067 0750 0750 0750 0250 0250 0250 0000 %0749 d03 006926 -00416 -00376 0625 0750 0750 0375 0250 0250 0000 %0750 d04 006510 -01036 -00533 0500 0750 0750 0500 0250 0250 0000 %0751 d05 006054 -01376 -00787 0375 0750 0750 0625 0250 0250 0000 %0752 d06 005610 -01758 -01105 0250 0750 0750 0750 0250 0250 0000 %0753 d07 005187 -02411 -01281 0125 0750 0750 0875 0250 0250 0000 %0754 d08 004668 -02675 -01465 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007807 002087 001221 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007354 001298 000806 0875 0625 0625 0125 0375 0375 0000 %0757 e02 007040 000684 000417 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006305 000118 -00096 0625 0625 0625 0375 0375 0375 0000 %0759 e04 005922 -00241 -00238 0500 0625 0625 0500 0375 0375 0000 %0760 e05 005677 -00925 -00508 0375 0625 0625 0625 0375 0375 0000 %0761 e06 005077 -01278 -00755 0250 0625 0625 0750 0375 0375 0000 %0762 e07 004704 -01877 -01124 0125 0625 0625 0875 0375 0375 0000 %0763 e08 004267 -02126 -01306 0000 0625 0625 1000 0375 0375 0000 %0764 e09 007164 002876 001752 1000 0500 0500 0000 0500 0500 0000 %0765 f01 006852 001938 001407 0875 0500 0500 0125 0500 0500 0000 %0766 f02 006422 001317 000977 0750 0500 0500 0250 0500 0500 0000 %0767 f03 005855 000632 000501 0625 0500 0500 0375 0500 0500 0000 %0768 f04 005395 000028 -00067 0500 0500 0500 0500 0500 0500 0000 %0769 f05 004924 -00237 -00245 0375 0500 0500 0625 0500 0500 0000 %0770 f06 004712 -00830 -00443 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004276 -01524 -00896 0125 0500 0500 0875 0500 0500 0000 %0772 f08 003644 -01767 -01034 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006523 003763 002186 1000 0375 0375 0000 0625 0625 0000 %0774 g01 006184 002729 001755 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005678 002051 001319 0750 0375 0375 0250 0625 0625 0000 %0776 g03 005200 001379 000979 0625 0375 0375 0375 0625 0625 0000 %0777 g04 004796 000695 000513 0500 0375 0375 0500 0625 0625 0000 %0778 g05 004364 000109 000011 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004215 -00403 -00256 0250 0375 0375 0750 0625 0625 0000 %0780 g07 003709 -00780 -00494 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003363 -01349 -00843 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005979 004517 002878 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005605 003507 002155 0875 0250 0250 0125 0750 0750 0000 %0784 h02 005104 002900 001787 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004622 002151 001365 0625 0250 0250 0375 0750 0750 0000 %0786 h04 004224 001361 000896 0500 0250 0250 0500 0750 0750 0000 %0787 h05 003871 000719 000397 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003426 000103 000038 0250 0250 0250 0750 0750 0750 0000 %0789 h07 003198 -00244 -00223 0125 0250 0250 0875 0750 0750 0000 %0790 h08 002905 -00777 -00508 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005364 004983 003192 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004986 004388 002879 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004553 003680 002430 0750 0125 0125 0250 0875 0875 0000 %0794 i03 004111 002835 001877 0625 0125 0125 0375 0875 0875 0000 %0795 i04 003649 002218 001416 0500 0125 0125 0500 0875 0875 0000 %0796 i05 003384 001396 000940 0375 0125 0125 0625 0875 0875 0000 %0797 i06 003041 000599 000428 0250 0125 0125 0750 0875 0875 0000 %0798 i07 002836 -00013 -00111 0125 0125 0125 0875 0875 0875 0000 %0799 i08 002355 -00222 -00139 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004755 006192 003975 1000 0000 0000 0000 1000 1000 0000 %0801 j01 003695 005196 003240 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003911 004505 002951 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003438 003927 002400 0625 0000 0000 0375 1000 1000 0000 %0804 j04 003004 003243 001808 0500 0000 0000 0500 1000 1000 0000 %0805 j05 002773 002250 001722 0375 0000 0000 0625 1000 1000 0000 %0806 j06 002540 001601 000982 0250 0000 0000 0750 1000 1000 0000 %0807 j07 002304 000737 000522 0125 0000 0000 0875 1000 1000 0000 %0808 j08 001829 -00001 -00016 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009747 000002 -00004 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008931 -00013 -00852 0875 0875 1000 0125 0125 0000 0000 %0811 b11 008084 -00173 -01274 0750 0750 1000 0250 0250 0000 0000 %0812 b12 007611 -00223 -01710 0625 0625 1000 0375 0375 0000 0000 %0813 b13 006660 -00211 -02253 0500 0500 1000 0500 0500 0000 0000 %0814 b14 005961 -00293 -02788 0375 0375 1000 0625 0625 0000 0000 %0815 b15 005350 -00364 -03337 0250 0250 1000 0750 0750 0000 0000 %0816 b16 004661 -00399 -03870 0125 0125 1000 0875 0875 0000 0000 %0817 b17 004023 -00370 -04605 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009687 -00337 000894 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008660 000059 -00080 0875 0875 0875 0125 0125 0125 0000 %0820 c11 007884 -00211 -00631 0750 0750 0875 0250 0250 0125 0000 %0821 c12 007117 -00241 -01260 0625 0625 0875 0375 0375 0125 0000 %0822 c13 006414 -00234 -01832 0500 0500 0875 0500 0500 0125 0000 %0823 c14 005714 -00162 -02132 0375 0375 0875 0625 0625 0125 0000 %0824 c15 005107 -00374 -02710 0250 0250 0875 0750 0750 0125 0000 %0825 c16 004507 -00436 -03298 0125 0125 0875 0875 0875 0125 0000 %0826 c17 003790 -00383 -03904 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009535 -00454 001781 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008616 -00164 000833 0875 0875 0750 0125 0125 0250 0000 %0829 d11 007641 000014 -00056 0750 0750 0750 0250 0250 0250 0000 %0830 d12 006788 -00049 -00623 0625 0625 0750 0375 0375 0250 0000 %0831 d13 006127 -00197 -01233 0500 0500 0750 0500 0500 0250 0000 %0832 d14 005544 -00242 -01765 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004787 -00289 -02311 0250 0250 0750 0750 0750 0250 0000 %0834 d16 004261 -00418 -02849 0125 0125 0750 0875 0875 0250 0000 %0835 d17 003559 -00325 -03400 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009321 -00491 002761 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008552 -00355 002003 0875 0875 0625 0125 0125 0375 0000 %0838 e11 007623 -00177 000806 0750 0750 0625 0250 0250 0375 0000 %0839 e12 006402 000093 -00101 0625 0625 0625 0375 0375 0375 0000 %0840 e13 005828 000054 -00537 0500 0500 0625 0500 0500 0375 0000 %0841 e14 005224 -00191 -01395 0375 0375 0625 0625 0625 0375 0000 %0842 e15 004408 -00151 -01857 0250 0250 0625 0750 0750 0375 0000 %0843 e16 003947 -00322 -02483 0125 0125 0625 0875 0875 0375 0000 %0844 e17 003251 -00427 -03024 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009289 -00764 003888 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008451 -00592 003017 0875 0875 0500 0125 0125 0500 0000 %0847 f11 007587 -00388 002093 0750 0750 0500 0250 0250 0500 0000 %0848 f12 006437 -00203 000949 0625 0625 0500 0375 0375 0500 0000 %0849 f13 005428 000044 -00086 0500 0500 0500 0500 0500 0500 0000 %0850 f14 004768 000091 -00506 0375 0375 0500 0625 0625 0500 0000 %0851 f15 004304 -00176 -01360 0250 0250 0500 0750 0750 0500 0000 %0852 f16 003503 -00186 -01852 0125 0125 0500 0875 0875 0500 0000 %0853 f17 002815 -00385 -02476 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009210 -00991 005195 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008377 -00801 004207 0875 0875 0375 0125 0125 0625 0000 %0856 g11 007460 -00513 003032 0750 0750 0375 0250 0250 0625 0000 %0857 g12 006417 -00518 002224 0625 0625 0375 0375 0375 0625 0000 %0858 g13 005455 -00279 001086 0500 0500 0375 0500 0500 0625 0000 %0859 g14 004434 000143 000017 0375 0375 0375 0625 0625 0625 0000 %0860 g15 004072 -00144 -00646 0250 0250 0375 0750 0750 0625 0000 %0861 g16 003317 -00126 -01175 0125 0125 0375 0875 0875 0625 0000 %0862 g17 002675 -00079 -01825 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009156 -01114 006229 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008313 -00951 005180 0875 0875 0250 0125 0125 0750 0000 %0865 h11 007340 -00751 004170 0750 0750 0250 0250 0250 0750 0000 %0866 h12 006330 -00619 003195 0625 0625 0250 0375 0375 0750 0000 %0867 h13 005340 -00392 002047 0500 0500 0250 0500 0500 0750 0000 %0868 h14 004506 -00296 001019 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003429 000107 000060 0250 0250 0250 0750 0750 0750 0000 %0870 h16 003206 -00035 -00586 0125 0125 0250 0875 0875 0750 0000 %0871 h17 002681 -00101 -01242 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009242 -01487 008233 1000 1000 0125 0000 0000 0875 0000 %0873 i10 008252 -01142 006536 0875 0875 0125 0125 0125 0875 0000 %0874 i11 007288 -00966 005339 0750 0750 0125 0250 0250 0875 0000 %0875 i12 006226 -00730 004190 0625 0625 0125 0375 0375 0875 0000 %0876 i13 005238 -00551 003124 0500 0500 0125 0500 0500 0875 0000 %0877 i14 004517 -00524 002323 0375 0375 0125 0625 0625 0875 0000 %0878 i15 003517 -00288 001045 0250 0250 0125 0750 0750 0875 0000 %0879 i16 002813 000001 -00110 0125 0125 0125 0875 0875 0875 0000 %0880 i17 002498 -00065 -00562 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009296 -01659 009305 1000 1000 0000 0000 0000 1000 0000 %0882 j10 008193 -01414 007753 0875 0875 0000 0125 0125 1000 0000 %0883 j11 007242 -01134 006725 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006182 -01000 005756 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005140 -00826 004351 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004448 -00782 003427 0375 0375 0000 0625 0625 1000 0000 %0887 j15 003549 -00490 002291 0250 0250 0000 0750 0750 1000 0000 %0888 j16 002739 -00286 001251 0125 0125 0000 0875 0875 1000 0000 %0889 j17 001781 000001 000010 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009736 000002 000002 1000 1000 1000 0000 0000 0000 0000 %0891 b19 009082 000852 -00478 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008490 001805 -00523 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007996 002554 -00569 1000 0625 1000 0000 0375 0000 0000 %0894 b22 007288 003491 -00474 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006668 004516 -00670 1000 0375 1000 0000 0625 0000 0000 %0896 b24 006203 005214 -00785 1000 0250 1000 0000 0750 0000 0000 %0897 b25 005593 006069 -00973 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004665 006739 -01401 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009207 -01009 000643 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008532 000048 -00096 0875 0875 0875 0125 0125 0125 0000 %0901 c20 007923 000890 -00444 0875 0750 0875 0125 0250 0125 0000 %0902 c21 007270 001742 -00388 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006770 002564 -00501 0875 0500 0875 0125 0500 0125 0000 %0904 c23 006186 003258 -00554 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005499 004170 -00681 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004918 004953 -00837 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004286 005880 -01069 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008719 -01428 000709 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008154 -00790 000368 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007598 000023 -00060 0750 0750 0750 0250 0250 0250 0000 %0911 d21 006943 001004 -00331 0750 0625 0750 0250 0375 0250 0000 %0912 d22 006363 001683 -00330 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005673 002635 -00453 0750 0375 0750 0250 0625 0250 0000 %0914 d24 004938 003334 -00625 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004323 004163 -00662 0750 0125 0750 0250 0875 0250 0000 %0916 d26 003734 004979 -00802 0750 0000 0750 0250 1000 0250 0000 %0917 d27 008375 -02070 001400 0625 1000 0625 0375 0000 0375 0000 %0918 e19 007640 -01464 000998 0625 0875 0625 0375 0125 0375 0000 %0919 e20 007071 -00860 000440 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006263 000126 -00077 0625 0625 0625 0375 0375 0375 0000 %0921 e22 005719 000918 -00154 0625 0500 0625 0375 0500 0375 0000 %0922 e23 005112 001683 -00312 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004424 002537 -00401 0625 0250 0625 0375 0750 0375 0000 %0924 e25 003869 003106 -00554 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003230 004119 -00598 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007874 -02858 002009 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007243 -02111 001553 0500 0875 0500 0500 0125 0500 0000 %0928 f20 006522 -01434 000989 0500 0750 0500 0500 0250 0500 0000 %0929 f21 005987 -00693 000464 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005319 000040 -00045 0500 0500 0500 0500 0500 0500 0000 %0931 f23 004682 000857 -00113 0500 0375 0500 0500 0625 0500 0000 %0932 f24 003995 001632 -00278 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003427 002382 -00444 0500 0125 0500 0500 0875 0500 0000 %0934 f26 002792 003344 -00459 0500 0000 0500 0500 1000 0500 0000 %0935 f27 007288 -03516 002181 0375 1000 0375 0625 0000 0625 0000 %0936 g19 006708 -02691 002010 0375 0875 0375 0625 0125 0625 0000 %0937 g20 006183 -02068 001390 0375 0750 0375 0625 0250 0625 0000 %0938 g21 005637 -01410 000999 0375 0625 0375 0625 0375 0625 0000 %0939 g22 004973 -00655 000627 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004192 000109 000078 0375 0375 0375 0625 0625 0625 0000 %0941 g24 003648 000770 -00133 0375 0250 0375 0625 0750 0625 0000 %0942 g25 002968 001655 -00214 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002530 002210 -00457 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006894 -04252 002700 0250 1000 0250 0750 0000 0750 0000 %0945 h19 006187 -03458 002150 0250 0875 0250 0750 0125 0750 0000 %0946 h20 005644 -02784 001843 0250 0750 0250 0750 0250 0750 0000 %0947 h21 005184 -02043 001420 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004751 -01336 000978 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004063 -00694 000464 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003228 000089 000135 0250 0250 0250 0750 0750 0750 0000 %0951 h25 002875 000662 -00113 0250 0125 0250 0750 0875 0750 0000 %0952 h26 002334 001541 -00269 0250 0000 0250 0750 1000 0750 0000 %0953 h27 006541 -04972 003229 0125 1000 0125 0875 0000 0875 0000 %0954 i19 005739 -04412 002856 0125 0875 0125 0875 0125 0875 0000 %0955 i20 005249 -03486 002182 0125 0750 0125 0875 0250 0875 0000 %0956 i21 004734 -02905 001601 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004317 -02115 001381 0125 0500 0125 0875 0500 0875 0000 %0958 i23 003801 -01348 000945 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003273 -00629 000504 0125 0250 0125 0875 0750 0875 0000 %0960 i25 002624 -00014 -00049 0125 0125 0125 0875 0875 0875 0000 %0961 i26 002174 000812 -00147 0125 0000 0125 0875 1000 0875 0000 %0962 i27 006125 -05796 003912 0000 1000 0000 1000 0000 1000 0000 %0963 j19 005357 -05271 003394 0000 0875 0000 1000 0125 1000 0000 %0964 j20 004867 -04745 003059 0000 0750 0000 1000 0250 1000 0000 %0965 j21 004390 -03917 002570 0000 0625 0000 1000 0375 1000 0000 %0966 j22 003971 -02939 001910 0000 0500 0000 1000 0500 1000 0000 %0967 j23 003494 -02019 001455 0000 0375 0000 1000 0625 1000 0000 %0968 j24 002854 -01112 001098 0000 0250 0000 1000 0750 1000 0000 %0969 j25 002413 -00515 000565 0000 0125 0000 1000 0875 1000 0000 %0970 j26 001699 000000 000006 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa1100 [ %BEG GE60_22.TXT, Separation olv*, cf1=0.90, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004783 006242 003990 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009304 -01650 009349 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z006147 -05737 004034 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005899 -04051 -01966 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z004113 -00369 -04556 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004705 006739 -01440 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z001811 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009736 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004755 006192 003975 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 009296 -01659 009305 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 006125 -05796 003912 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005898 -04060 -02007 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 004023 -00370 -04605 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004665 006739 -01401 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 001770 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009748 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def %END SI41_HRS16_96_D65_00%_00_LUT.DAT %********************************************************************* /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /LAB*ioLmod {%BEG Procedure LAB*ioLmod %requires ISRL*ioL=0,1,3 /RJGBLAB* 12 array def /RJGBLAB*[ 39.92 58.74 27.99 % R CIE No.09 elementary colours in LAB, D65 81.26 -2.89 71.56 % J CIE No.10 52.23 -42.42 13.60 % G CIE No.11 30.57 1.41 -46.47 % B CIE No.12 ] def /LAB* 84 array def %12x3=36 including N,W + 16x3=48 elementary system /LAB*a 84 array def 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def sISO 7 le { %sISO=0,7 LAB* i30 LAB*02 i30 get put LAB* i31 LAB*02 i31 get put LAB* i32 LAB*02 i32 get put } %sISO=0,7 {%sISO=8,11 %Definition 8 to 11 /jISO sISO 8 sub def /j30 jISO 3 mul def /j31 j30 1 add def /j32 j30 2 add def LAB* i30 RJGBLAB* j30 get put LAB* i31 RJGBLAB* j31 get put LAB* i32 RJGBLAB* j32 get put % %Definition 12 to 24 (36 to 72) % /jISO0 sISO 8 sub def % sISO 11 eq {/jISO1 0 def} % {/jISO1 jISO0 1 add def} ifelse % 0 1 3 {/ij exch def % ij 0 eq {/a0 1.00 def /b0 0.00 def} if % ij 1 eq {/a0 0.75 def /b0 0.25 def} if % ij 2 eq {/a0 0.50 def /b0 0.50 def} if % ij 3 eq {/a0 0.25 def /b0 0.75 def} if % LAB* 36 jISO0 12 mul add ij 3 mul add % RJGBLAB* jISO0 3 mul get a0 mul % RJGBLAB* jISO1 3 mul get b0 mul add put % LAB* 37 jISO0 12 mul add ij 3 mul add % RJGBLAB* jISO0 3 mul 1 add get a0 mul % RJGBLAB* jISO1 3 mul 1 add get b0 mul add put % LAB* 38 jISO0 12 mul add ij 3 mul add % RJGBLAB* jISO0 3 mul 2 add get a0 mul % RJGBLAB* jISO1 3 mul 2 add get b0 mul add put % } for } ifelse %sISO=0,7 and 8,11 } for /L*Nio LAB* 18 get def /A*Nio LAB* 19 get def /B*Nio LAB* 20 get def /L*Wio LAB* 21 get def /A*Wio LAB* 22 get def /B*Wio LAB* 23 get def /A*Dio A*Wio A*Nio sub def /B*Dio B*Wio B*Nio sub def icolor 0 eq {/cf1 1 def}{/cf1 0.90 def} ifelse 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIE LAB* i30 get L*Nio sub L*Wio L*Nio sub div def %system rel. lightn. /a*s A*Wio A*Nio sub l*CIE mul def /b*s B*Wio B*Nio sub l*CIE mul def /L*Z L*Nio L*Wio L*Nio sub 0.5 mul add def LAB*a i30 LAB* i30 get L*Z sub cf1 mul L*Z add put LAB*a i31 LAB* i31 get A*Nio sub a*s sub cf1 mul put LAB*a i32 LAB* i32 get B*Nio sub b*s sub cf1 mul put } for /cLAB*s0 3 array def %C cyan blue /vLAB*s0 3 array def %V violet blue /mLAB*s0 3 array def %M magenta red /oLAB*s0 3 array def %O orange red /yLAB*s0 3 array def %Y yellow /lLAB*s0 3 array def %L leaf green /nLAB*s0 3 array def %N black /wLAB*s0 3 array def %W white /rLAB*s0 3 array def %R elementary red /jLAB*s0 3 array def %J elementary yellow /gLAB*s0 3 array def %G elementary green /bLAB*s0 3 array def %B elementary blue %Determine Matrix data input or output data oLAB*s0 0 LAB*a 0 get L*Nio sub put oLAB*s0 1 LAB*a 1 get put oLAB*s0 2 LAB*a 2 get put yLAB*s0 0 LAB*a 3 get L*Nio sub put yLAB*s0 1 LAB*a 4 get put yLAB*s0 2 LAB*a 5 get put lLAB*s0 0 LAB*a 6 get L*Nio sub put lLAB*s0 1 LAB*a 7 get put lLAB*s0 2 LAB*a 8 get put cLAB*s0 0 LAB*a 9 get L*Nio sub put cLAB*s0 1 LAB*a 10 get put cLAB*s0 2 LAB*a 11 get put vLAB*s0 0 LAB*a 12 get L*Nio sub put vLAB*s0 1 LAB*a 13 get put vLAB*s0 2 LAB*a 14 get put mLAB*s0 0 LAB*a 15 get L*Nio sub put mLAB*s0 1 LAB*a 16 get put mLAB*s0 2 LAB*a 17 get put nLAB*s0 0 LAB*a 18 get L*Nio sub put nLAB*s0 1 LAB*a 19 get put nLAB*s0 2 LAB*a 20 get put wLAB*s0 0 LAB*a 21 get L*Nio sub put wLAB*s0 1 LAB*a 22 get put wLAB*s0 2 LAB*a 23 get put rLAB*s0 0 LAB*a 24 get L*Nio sub put rLAB*s0 1 LAB*a 25 get put rLAB*s0 2 LAB*a 26 get put jLAB*s0 0 LAB*a 27 get L*Nio sub put jLAB*s0 1 LAB*a 28 get put jLAB*s0 2 LAB*a 29 get put gLAB*s0 0 LAB*a 30 get L*Nio sub put gLAB*s0 1 LAB*a 31 get put gLAB*s0 2 LAB*a 32 get put bLAB*s0 0 LAB*a 33 get L*Nio sub put bLAB*s0 1 LAB*a 34 get put bLAB*s0 2 LAB*a 35 get put % Determine the input or output angle in the A* B* plane % of each of the colours defined above /C*Ang cLAB*s0 2 get cLAB*s0 1 get 0.0001 add atan def /V*Ang vLAB*s0 2 get vLAB*s0 1 get 0.0001 add atan def /M*Ang mLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /O*Ang oLAB*s0 2 get oLAB*s0 1 get 0.0001 add atan def /Y*Ang yLAB*s0 2 get yLAB*s0 1 get 0.0001 add atan def /L*Ang lLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /N*Ang 0 def /W*Ang 0 def /R*Ang rLAB*s0 2 get rLAB*s0 1 get 0.0001 add atan def /J*Ang jLAB*s0 2 get jLAB*s0 1 get 0.0001 add atan def /G*Ang gLAB*s0 2 get gLAB*s0 1 get 0.0001 add atan def /B*Ang bLAB*s0 2 get bLAB*s0 1 get 0.0001 add atan def } def %END Procedure LAB*ioLmod %*********************************************************** /proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL { %BEG procedure proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL %only for calculation without hue tables %input LAB*Fa %input LAB*a (6 adapted colours OYLCVM) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Ma %output olvi3*Ma %output cmyn3*Ma /UXF1a wLAB*s0 1 get B*Fa mul wLAB*s0 2 get A*Fa mul sub def /UXF2a wLAB*s0 2 get L*Fa mul wLAB*s0 0 get B*Fa mul sub def /UXF3a wLAB*s0 0 get A*Fa mul wLAB*s0 1 get L*Fa mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def /ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def ia 0 eq {/c3*Ma 0 def %L, c*=0, sector O->Y /m3*Ma iam def %L, m*=1->0 /y3*Ma 1 def %L, y*=1 } if ia 1 eq {/c3*Ma iap def %L, c*=0->1, sector Y->L /m3*Ma 0 def %L, m*=0 /y3*Ma 1 def %L, y*=1 } if ia 2 eq {/c3*Ma 1 def %L, c*=1, sector L->C /m3*Ma 0 def %L, m*=0 /y3*Ma iam def %L, y*=1->0 } if ia 3 eq {/c3*Ma 1 def %L, c*=1, sector C->V /m3*Ma iap def %L, m*=1->0 /y3*Ma 0 def %L, y*=0 } if ia 4 eq {/c3*Ma iam def %L, c*=1->0, sector V->M /m3*Ma 1 def %L, m*=1 /y3*Ma 0 def %L, y*=0 } if ia 5 eq {/c3*Ma 0 def %L, c*=0, sector M->O /m3*Ma 1 def %L, m*=1 /y3*Ma iap def %L, y*=0->1 } if /o3*Ma 1 c3*Ma sub def /l3*Ma 1 m3*Ma sub def /v3*Ma 1 y3*Ma sub def /i3*Ma 1 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def } bind def %END procedure proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL %******************************************************************* /proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL { %BEG procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL %only for calculation without hue tables %input LAB*Fae %input LAB*a (4 adapted colours RJGB, No. 8 to 11) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Mae %output olvi3*Mae %output cmyn3*Mae /UXF1a wLAB*s0 1 get B*Fae mul wLAB*s0 2 get A*Fae mul sub def /UXF2a wLAB*s0 2 get L*Fae mul wLAB*s0 0 get B*Fae mul sub def /UXF3a wLAB*s0 0 get A*Fae mul wLAB*s0 1 get L*Fae mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Mae ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Mae ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Mae ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Mae A*Mae dup mul B*Mae dup mul add 0.000001 add sqrt def /H*Mae B*Mae A*Mae 0.0001 add atan def /ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def ia 0 eq {/c3*Mae 0 def %L, c*=0, sector O->Y /m3*Mae iam def %L, m*=1->0 /y3*Mae 1 def %L, y*=1 } if ia 1 eq {/c3*Mae iap def %L, c*=0->1, sector Y->L /m3*Mae 0 def %L, m*=0 /y3*Mae 1 def %L, y*=1 } if ia 2 eq {/c3*Mae 1 def %L, c*=1, sector L->C /m3*Mae 0 def %L, m*=0 /y3*Mae iam def %L, y*=1->0 } if ia 3 eq {/c3*Mae 1 def %L, c*=1, sector C->V /m3*Mae iap def %L, m*=1->0 /y3*Mae 0 def %L, y*=0 } if ia 4 eq {/c3*Mae iam def %L, c*=1->0, sector V->M /m3*Mae 1 def %L, m*=1 /y3*Mae 0 def %L, y*=0 } if ia 5 eq {/c3*Mae 0 def %L, c*=0, sector M->O /m3*Mae 1 def %L, m*=1 /y3*Mae iap def %L, y*=0->1 } if /o3*Mae 1 c3*Mae sub def /l3*Mae 1 m3*Mae sub def /v3*Mae 1 y3*Mae sub def /i3*Mae 1 def /lab*nMae 0.00 def /lab*cMae 1.00 def /lab*wMae 0.00 def /lab*tMae 0.50 def /lab*hMae H*Mae 360 div def /lab*lMae L*Mae nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def } bind def %END procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL /ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBK} bind def /ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBK} bind def /ishown {TS -50 -50 rmoveto show 0 50 rmoveto TK } bind def /ishow0 {TS -00 -50 rmoveto show 0 50 rmoveto TK } bind def /ibshownL {TBL -50 -50 rmoveto show 0 50 rmoveto TBS} bind def /ibshow0L {TBL -00 -50 rmoveto show 0 50 rmoveto TBS} bind def /ishownL {TL -50 -50 rmoveto show 0 50 rmoveto TS } bind def /ishow0L {TL -00 -50 rmoveto show 0 50 rmoveto TS } bind def %%EndProlog gsave %LANINDL2 START 20090901 /lanind 0 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 4 def /lanind2 4 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def /xcolorm xcolor2f xcolor1f sub 1 add def} {/xcolor1 0 def /xcolorm 1 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 %xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output /cvi100show {100 mul cvi /xi exch def xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse /xia xi abs def vorz -1 eq {(\255) show} {(0) show} ifelse xia 0 ge xia 9 le {(000) show} if xia 10 ge xia 99 le and {(00) show} if xia 100 ge xia 999 le and {(0) show} if % xia 1000 ge xia 9999 le and {() show} if xia cvishow ( ) show } bind def /LUTL* 247 array def %243+4=247 /LUTA* 247 array def /LUTB* 247 array def /LUTr* 247 array def /LUTg* 247 array def /LUTb* 247 array def /C*ab 247 array def /L* 247 array def /LUTl* 247 array def %243+4=247 /LUTc1* 247 array def /LUTc2* 247 array def /LUTt1* 247 array def /LUTt2* 247 array def /LUTc*rgb 247 array def /LUTt*rgb 247 array def /l1* 247 array def %243+4=247 /l2* 247 array def %l* not possible allread used olv* /c1* 247 array def /c2* 247 array def /t1* 247 array def /t2* 247 array def /c1*rgb 247 array def /c2*rgb 247 array def /t1*rgb 247 array def /t2*rgb 247 array def /ColNames [(O) (Y) (L) (C) (V) (M) (N) (W) (R) (J) (G) (B) (R) (R25J) (R50J) (R75J) (J) (J25G) (J50G) (J75G) (G) (G25B) (G50B) (G75B) (B) (B25R) (B50R) (B75R) (R) ] def /o3Ma [1 1 0 0 0 1 0 1 1 1 0 0 1 1.00 1.00 1.00 1 0.75 0.50 0.25 0 0.00 0.00 0.00 0 0.50 1.00 1.00 1] def /l3Ma [0 1 1 1 0 0 0 1 0 1 1 0 0 0.25 0.50 0.75 1 1.00 1.00 1.00 1 1.00 1.00 0.50 0 0.00 0.00 0.00 0] def /v3Ma [0 0 0 1 1 1 0 1 0 0 0 1 0 0.00 0.00 0.00 0 0.00 0.00 0.00 0 0.50 1.00 1.00 1 1.00 1.00 0.50 0] def /yd 340 def %y-Zeilenabstand %Spalten /S1 20 def /S2 450 def /S3 1550 def /S4 2650 def /S5 3750 def /S6 4650 def /S7 5350 def /S8 6400 def /S9 7200 def /S10 8000 def /S11 8800 def /S12 9600 def /yu1 4650 def /yu2 3800 4000 add def /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def 72 90 translate 0.01 MM dup scale /L*olv 8 array def /A*olv 8 array def /B*olv 8 array def /C*olv 8 array def /H*olv 8 array def /N*olv 8 array def /o*olv 8 array def /l*olv 8 array def /v*olv 8 array def /L*rgb 8 array def /A*rgb 8 array def /B*rgb 8 array def /C*rgb 8 array def /H*rgb 8 array def /N*rgb 8 array def /o*rgb 8 array def /l*rgb 8 array def /v*rgb 8 array def /angle_olv 7 array def /angle_olvG01 7 array def /angle_olvG11 7 array def /angle_rgb 7 array def /angle_olv [38 96 151 236 305 354 398] def %standard offset /angle_rgb [26 92 162 217 272 329 386] def %CIE-test colors /angle_olvi 28 array def %shift by 00,25,50,75% /angle_olvG01i 28 array def %shift by 00,25,50,75% /angle_olvG11i 28 array def %shift by 00,25,50,75% /angle_rgbi 28 array def %shift by 00,25,50,75% 0 1 23 {/i exch def LAB*Fa0100 i LAB*Fa0100 i get 100 div put LAB*Fa1100 i LAB*Fa1100 i get 100 div put } for /LAB*FaG0100 24 array def /LAB*FaG1100 24 array def /LAB*FaG0000 24 array def 0 1 23 {/i exch def LAB*FaG0100 i LAB*Fa0100 i get put LAB*FaG1100 i LAB*Fa1100 i get put } for %00 1 1 {/xcolor exch def %xcolor=0,1 gsave /icolor xcolor xcolor 2 idiv 2 mul sub def %icolor=0 or 1 0 1 9719 {/i exch def %i=0,09719 %972*10-1=9719 LUT i xcolor 0 eq {LUT_LAB0 i get} if xcolor 1 eq {LUT_LAB1 i get} if xcolor 2 eq {LUT_LAB2 i get} if xcolor 3 eq {LUT_LAB3 i get} if xcolor 4 eq {LUT_LAB4 i get} if xcolor 5 eq {LUT_LAB5 i get} if xcolor 6 eq {LUT_LAB6 i get} if xcolor 7 eq {LUT_LAB7 i get} if put } for %i=0,09719 0 1 23 {/i exch def LAB*Fa0000 i icolor 0 eq {LAB*Fa0100 i get} {LAB*Fa1100 i get} ifelse put } for 0 1 23 {/i exch def LAB*FaG0000 i icolor 0 eq {LAB*FaG0100 i get} {LAB*FaG1100 i get} ifelse put } for 0 1 05 {/i exch def %i=0,5 /A*Fa LAB*FaG0100 i 3 mul 1 add get def /B*Fa LAB*FaG0100 i 3 mul 2 add get def /H*Fa B*Fa A*Fa 0.0001 add atan def angle_olvG01 i H*Fa put i 0 eq {angle_olvG01 6 H*Fa 360 add put} if /A*Fa LAB*FaG1100 i 3 mul 1 add get def /B*Fa LAB*FaG1100 i 3 mul 2 add get def /H*Fa B*Fa A*Fa 0.0001 add atan def angle_olvG11 i H*Fa put i 0 eq {angle_olvG11 6 H*Fa 360 add put} if } for %i=0,5 0 1 5 {/i exch def /i1 i 1 add def %i=0,5 /angle_olvG01_dif angle_olvG01 i1 get angle_olvG01 i get sub def angle_olvG01i i angle_olvG01 i get put angle_olvG01i i 07 add angle_olvG01 i get angle_olvG01_dif 0.25 mul add put angle_olvG01i i 14 add angle_olvG01 i get angle_olvG01_dif 0.50 mul add put angle_olvG01i i 21 add angle_olvG01 i get angle_olvG01_dif 0.75 mul add put /angle_olvG11_dif angle_olvG11 i1 get angle_olvG11 i get sub def angle_olvG11i i angle_olvG11 i get put angle_olvG11i i 07 add angle_olvG11 i get angle_olvG11_dif 0.25 mul add put angle_olvG11i i 14 add angle_olvG11 i get angle_olvG11_dif 0.50 mul add put angle_olvG11i i 21 add angle_olvG11 i get angle_olvG11_dif 0.75 mul add put } for %i=0,5 /LAB*02 24 array def /j0 0 def 729 1 971 {/jj exch def %jj=729,971 /j jj j0 sub def %necessary in both cases jj 963 eq {%RGB*02 02 RGBCMY0*tx j get put %963 0-8-0 L 2 LAB*02 06 LUT j 10 mul 0 add get put LAB*02 07 LUT j 10 mul 1 add get put LAB*02 08 LUT j 10 mul 2 add get put} if jj 737 eq {%RGB*02 03 RGBCMY0*tx j get put %737 0-8-8 C 3 LAB*02 09 LUT j 10 mul 0 add get put LAB*02 10 LUT j 10 mul 1 add get put LAB*02 11 LUT j 10 mul 2 add get put} if jj 818 eq {%RGB*02 04 RGBCMY0*tx j get put %818 0-0-8 V 4 LAB*02 12 LUT j 10 mul 0 add get put LAB*02 13 LUT j 10 mul 1 add get put LAB*02 14 LUT j 10 mul 2 add get put} if jj 809 eq {%RGB*02 06 RGBCMY0*tx j get put %809 or 890 or 971 0-0-0 N 6 LAB*02 18 LUT j 10 mul 0 add get LUT 890 j0 sub 10 mul 0 add get add LUT 971 j0 sub 10 mul 0 add get add 3 div put LAB*02 19 LUT j 10 mul 1 add get LUT 890 j0 sub 10 mul 1 add get add LUT 971 j0 sub 10 mul 1 add get add 3 div put LAB*02 20 LUT j 10 mul 2 add get LUT 890 j0 sub 10 mul 2 add get add LUT 971 j0 sub 10 mul 2 add get add 3 div put} if jj 801 eq {%RGB*02 00 RGBCMY0*tx j get put %801 8-0-0 O 0 LAB*02 00 LUT j 10 mul 0 add get put LAB*02 01 LUT j 10 mul 1 add get put LAB*02 02 LUT j 10 mul 2 add get put} if jj 882 eq {%RGB*02 01 RGBCMY0*tx j get put %882 8-8-0 Y 1 LAB*02 03 LUT j 10 mul 0 add get put LAB*02 04 LUT j 10 mul 1 add get put LAB*02 05 LUT j 10 mul 2 add get put} if jj 899 eq {%RGB*02 05 RGBCMY0*tx j get put %899 8-0-8 M 5 LAB*02 15 LUT j 10 mul 0 add get put LAB*02 16 LUT j 10 mul 1 add get put LAB*02 17 LUT j 10 mul 2 add get put} if jj 729 eq {%RGB*02 07 RGBCMY0*tx j get put %729 or 810 or 891 8-8-8 W 7 LAB*02 21 LUT j 10 mul 0 add get LUT 810 j0 sub 10 mul 0 add get add LUT 891 j0 sub 10 mul 0 add get add 3 div put LAB*02 22 LUT j 10 mul 1 add get LUT 810 j0 sub 10 mul 1 add get add LUT 891 j0 sub 10 mul 1 add get add 3 div put LAB*02 23 LUT j 10 mul 2 add get LUT 810 j0 sub 10 mul 2 add get add LUT 891 j0 sub 10 mul 2 add get add 3 div put} if } for %jj=729,971 0 1 23 {/j exch def %j=0,23 LAB*02 j LAB*02 j get 100 div put } for %j=0,23 /ISRL*ioL 0 def %standard colours /ISIO*ioL 2 def %special for LAB*02 TLS70 LAB*ioLmod 0 1 1 {/ibild exch def %ibild=0,1 ibild 0 eq {%BEG ibild=0 0 1 05 {/ic exch def %ic=0,11 S1 20 add yu2 yd ic mul sub moveto ( ) nshow N*olv ic ColNames ic get put } for %ic=0,11 0 1 05 {/i exch def %i=0,11 /ya yu2 yd i mul sub def /L*Fa LAB*a i 3 mul get def /A*Fa LAB*a i 3 mul 1 add get def /B*Fa LAB*a i 3 mul 2 add get def /C*Fa A*Fa dup mul B*Fa dup mul add sqrt def /H*Fa B*Fa A*Fa 0.0001 add atan def L*olv i L*Fa put A*olv i A*Fa put B*olv i B*Fa put C*olv i C*Fa put H*olv i H*Fa put o*olv i o3Ma i get put l*olv i l3Ma i get put v*olv i v3Ma i get put i 5 eq {L*olv 6 L*olv 0 get put A*olv 6 A*olv 0 get put B*olv 6 B*olv 0 get put A*olv 6 A*olv 0 get put C*olv 6 C*olv 0 get put H*olv 6 H*olv 0 get put o*olv 6 o*olv 0 get put l*olv 6 l*olv 0 get put v*olv 6 v*olv 0 get put } if } for %i=0,11 }%END ibild=0 {%BEG ibild=1 12 2 27 {/ic exch def %ic=12,27 N*rgb ic 12 sub 2 idiv ColNames ic get put } for %ic=12,27 %calculation of intermediate elementary colours %/proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL { %BEG procedure proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL %only for calculation without hue tables %input LAB*Fae %input LAB*a (4 adapted colours RJGB, No. 8 to 11) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Mae %output olvi3*Mae %output cmyn3*Mae 0 1 3 {/j exch def %j=0,3 /L*Fae0 LAB*a j 8 add 3 mul 0 add get def /A*Fae0 LAB*a j 8 add 3 mul 1 add get def /B*Fae0 LAB*a j 8 add 3 mul 2 add get def /H*Fae0 B*Fae0 A*Fae0 0.0001 add atan def j 2 le {/L*Fae1 LAB*a j 1 add 8 add 3 mul 0 add get def /A*Fae1 LAB*a j 1 add 8 add 3 mul 1 add get def /B*Fae1 LAB*a j 1 add 8 add 3 mul 2 add get def /H*Fae1 B*Fae1 A*Fae1 0.0001 add atan def } {/L*Fae1 LAB*a 0 8 add 3 mul 0 add get def /A*Fae1 LAB*a 0 8 add 3 mul 1 add get def /B*Fae1 LAB*a 0 8 add 3 mul 2 add get def /H*Fae1 B*Fae1 A*Fae1 0.0001 add atan 360 add def } ifelse 0 1 1 {/i exch def %i=0,3 /n j 2 mul i add def /ya yu2 yd n mul sub 8000 add def /alph i 2 div def /beta 1 alph sub def /L*Fae L*Fae0 beta mul L*Fae1 alph mul add def /H*Fae H*Fae0 beta mul H*Fae1 alph mul add def /A*Fae 100 H*Fae cos mul def /B*Fae 100 H*Fae sin mul def proc_LAB*Fae_LAB*MaeNTABl_olvi3*cmyn3*Ma*ioL n 0 ge {/ineu n def} if n 2 ge {/ineu n 1 sub def} if n 4 ge {/ineu n 2 sub def} if L*rgb ineu L*Mae put A*rgb ineu A*Mae put B*rgb ineu B*Mae put C*rgb ineu C*Mae put H*rgb ineu H*Mae put n 7 eq {/ineu 6 def %ineu=6 L*rgb ineu L*rgb 0 get put A*rgb ineu A*rgb 0 get put B*rgb ineu B*rgb 0 get put C*rgb ineu C*rgb 0 get put H*rgb ineu H*rgb 0 get put } if %ineu=6 } for %i=0,1 } for %j=0,3 } ifelse %END ibild=1 } for %ibild=0,1 %00 1 15 {/xchart exch def %xchart=0,15 /xchartl xchart def gsave 200 /Times-ISOL1 FS 0 setgray 100 -200 moveto (SI410-7N: ) show (Messung: ) showde (Measurement: ) showea xcolor 0 eq { FileData0Na show} if xcolor 1 eq { FileData1Na show} if xcolor 2 eq { FileData2Na show} if xcolor 3 eq { FileData3Na show} if xcolor 4 eq { FileData4Na show} if xcolor 5 eq { FileData5Na show} if xcolor 6 eq { FileData6Na show} if xcolor 7 eq { FileData7Na show} if lanind 0 eq {FileDatade show} {FileDataen show} ifelse (, Seite ) showde %0SI41X-Y 2200# (, page ) showen %1SI41X-Y 2200# (, p\341gina ) showes %2SI41X-Y 2200# (, page ) showfr %3SI41X-Y 2200# (, pagina ) showit %4SI41X-Y 2200# (, page ) showjp %5SI41X-Y 2200# xcolor 1 add cvishow (/) show 2 cvishow 20 setlinewidth 0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 0 1 15 {/xchartl exch def %xchartl=0,11 %special space for 'xm03'PROZ0.COM 2x before/after xchartl xchartl 0 eq { 100 13000 translate} if xchartl 1 eq { 6100 13000 translate} if xchartl 2 eq { 100 08750 translate} if xchartl 3 eq { 6100 08750 translate} if xchartl 4 eq { 100 4500 translate} if xchartl 5 eq { 6100 4500 translate} if xchartl 6 eq { 100 0250 translate} if xchartl 7 eq { 6100 0250 translate} if xchartl 8 eq {13500 13000 translate} if xchartl 9 eq {19500 13000 translate} if xchartl 10 eq {13500 08750 translate} if xchartl 11 eq {19500 08750 translate} if xchartl 12 eq {13500 4500 translate} if xchartl 13 eq {19500 4500 translate} if xchartl 14 eq {13500 0250 translate} if xchartl 15 eq {19500 0250 translate} if /xwidth 5400 def /ywidth 4000 def 0 0 xwidth ywidth 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 150 /Times-ISOL1 FS 0 setgray /Param (; cf1=0.90; nt=0.18; nx=1.0) def 300 -150 moveto xchartl 5 le {(SI410-) show} {(SI411-) show} ifelse xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (N) show %N (, ) show xcolor 1 add cvishow Param show 2600 0300 translate gsave 0.8 0.8 scale 1 setgray -3200 4175 moveto TBS (System: ) show xcolor 0 eq {FileData0Na show} if xcolor 1 eq {FileData1Na show} if xcolor 2 eq {FileData2Na show} if xcolor 3 eq {FileData3Na show} if xcolor 4 eq {FileData4Na show} if xcolor 5 eq {FileData5Na show} if xcolor 6 eq {FileData6Na show} if xcolor 7 eq {FileData7Na show} if /x800 800 def /X850 850 def 0 1 5 {/i exch def /i1 i 1 add def %i=0,5 /angle_olv_dif angle_olv i1 get angle_olv i get sub def angle_olvi i angle_olv i get put angle_olvi i 07 add angle_olv i get angle_olv_dif 0.25 mul add put angle_olvi i 14 add angle_olv i get angle_olv_dif 0.50 mul add put angle_olvi i 21 add angle_olv i get angle_olv_dif 0.75 mul add put /angle_rgb_dif angle_rgb i1 get angle_rgb i get sub def angle_rgbi i angle_rgb i get put angle_rgbi i 07 add angle_rgb i get angle_rgb_dif 0.25 mul add put angle_rgbi i 14 add angle_rgb i get angle_rgb_dif 0.50 mul add put angle_rgbi i 21 add angle_rgb i get angle_rgb_dif 0.75 mul add put } for %i=0,5 /angle6 7 array def /angle6i 28 array def /cfarb_olv_o 7 array def /cfarb_olv_l 7 array def /cfarb_olv_v 7 array def /cfarb_rgb_r 7 array def /cfarb_rgb_g 7 array def /cfarb_rgb_b 7 array def /cfarb_olv00_o 7 array def /cfarb_olv00_l 7 array def /cfarb_olv00_v 7 array def /cfarb_olv25_o 7 array def /cfarb_olv25_l 7 array def /cfarb_olv25_v 7 array def /cfarb_olv50_o 7 array def /cfarb_olv50_l 7 array def /cfarb_olv50_v 7 array def /cfarb_olv75_o 7 array def /cfarb_olv75_l 7 array def /cfarb_olv75_v 7 array def /cfarb_rgb00_r 7 array def /cfarb_rgb00_g 7 array def /cfarb_rgb00_b 7 array def /cfarb_rgb25_r 7 array def /cfarb_rgb25_g 7 array def /cfarb_rgb25_b 7 array def /cfarb_rgb50_r 7 array def /cfarb_rgb50_g 7 array def /cfarb_rgb50_b 7 array def /cfarb_rgb75_r 7 array def /cfarb_rgb75_g 7 array def /cfarb_rgb75_b 7 array def /cname_olv [(R) (Y) (G) (C) (B) (M) (R)] def /cfarb_olv_o [1 1 0 0 0 1 1] def /cfarb_olv_l [0 1 1 1 0 0 0] def /cfarb_olv_v [0 0 0 1 1 1 0] def /cname_rgb [(R) (Y) (G) (C) (B) (M) (R)] def /cfarb_rgb_r [1 1 0 0 0 1 1] def /cfarb_rgb_g [0 1 1 1 0 0 0] def /cfarb_rgb_g [0 0 0 1 1 1 0] def /cname_olv00 [(R00Y) (Y00G) (G00C) (C00B) (B00M) (M00R) (R00Y)] def /cfarb_olv00_o [1 1 0 0 0 1 1] def /cfarb_olv00_l [0 1 1 1 0 0 0] def /cfarb_olv00_v [0 0 0 1 1 1 0] def /cname_olv25 [(R25Y) (Y25G) (G25C) (C25B) (B25M) (M25R) (R25Y)] def /cfarb_olv25_o [1.00 0.75 0.00 0.00 0.25 1.00 1.00] def /cfarb_olv25_l [0.25 1.00 1.00 0.75 0.00 0.00 0.25] def /cfarb_olv25_v [0.00 0.00 0.25 1.00 1.00 0.75 0.00] def /cname_olv50 [(R50Y) (Y50G) (G50C) (C50B) (B50M) (M50R) (R50Y)] def /cfarb_olv50_o [1.00 0.50 0.00 0.00 0.50 1.00 1.00] def /cfarb_olv50_l [0.50 1.00 1.00 0.50 0.00 0.00 0.50] def /cfarb_olv50_v [0.00 0.00 0.50 1.00 1.00 0.50 0.00] def /cname_olv75 [(R75Y) (Y75G) (G75C) (C75B) (B75M) (M75R) (R75Y)] def /cfarb_olv75_o [1.00 0.25 0.00 0.00 0.75 1.00 1.00] def /cfarb_olv75_l [0.75 1.00 1.00 0.25 0.00 0.00 0.75] def /cfarb_olv75_v [0.00 0.00 0.75 1.00 1.00 0.25 0.00] def /cname_rgb00 [(R00Y) (Y00G) (G00B) (G50B) (B00R) (B50R) (R00Y)] def /cfarb_rgb00_r [1 1 0 0 0 1 1] def /cfarb_rgb00_g [0 1 1 1 0 0 0] def /cfarb_rgb00_b [0 0 0 1 1 1 0] def /cname_rgb25 [(R25Y) (Y25G) (G13B) (G62B) (B12R) (B63R) (R25Y)] def /cfarb_rgb25_r [1.00 0.75 0.00 0.00 0.25 1.00 1.00] def /cfarb_rgb25_g [0.25 1.00 1.00 0.75 0.00 0.00 0.25] def /cfarb_rgb25_b [0.00 0.00 0.25 1.00 1.00 0.75 0.00] def /cname_rgb50 [(R50Y) (Y50G) (G25B) (G75B) (B25R) (B75R) (R50Y)] def /cfarb_rgb50_r [1.00 0.50 0.00 0.00 0.50 1.00 1.00] def /cfarb_rgb50_g [0.50 1.00 1.00 0.50 0.00 0.00 0.50] def /cfarb_rgb50_b [0.00 0.00 0.50 1.00 1.00 0.50 0.00] def /cname_rgb75 [(R75Y) (Y75G) (G38B) (G88B) (B38R) (B88R) (R75Y)] def /cfarb_rgb75_r [1.00 0.25 0.00 0.00 0.75 1.00 1.00] def /cfarb_rgb75_g [0.75 1.00 1.00 0.25 0.00 0.00 0.75] def /cfarb_rgb75_b [0.00 0.00 0.75 1.00 1.00 0.25 0.00] def /cname6 7 array def /olvrgb 0 def 0 1 6 {/i exch def cname6 i xcolor 0 eq xcolor 1 eq or {cname_rgb00 i get} if xcolor 2 eq xcolor 3 eq or {cname_rgb25 i get} if xcolor 4 eq xcolor 5 eq or {cname_rgb50 i get} if xcolor 6 eq xcolor 7 eq or {cname_rgb75 i get} if put angle6 i olvrgb 0 eq {%olvrgb=0 xcolor 0 eq xcolor 1 eq or {angle_olvi i get} if xcolor 2 eq xcolor 3 eq or {angle_olvi i 07 add get} if xcolor 4 eq xcolor 5 eq or {angle_olvi i 14 add get} if xcolor 6 eq xcolor 7 eq or {angle_olvi i 21 add get} if } {%olvrgb=1 xcolor 0 eq xcolor 1 eq or {angle_rgbi i get} if xcolor 2 eq xcolor 3 eq or {angle_rgbi i 07 add get} if xcolor 4 eq xcolor 5 eq or {angle_rgbi i 14 add get} if xcolor 6 eq xcolor 7 eq or {angle_rgbi i 21 add get} if } ifelse put } for xchartl 0 eq xchartl 4 eq or xchartl 8 eq or xchartl 12 eq or {/jbild 0 def} if xchartl 1 eq xchartl 5 eq or xchartl 9 eq or xchartl 13 eq or {/jbild 1 def} if xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/jbild 2 def} if xchartl 3 eq xchartl 7 eq or xchartl 11 eq or xchartl 15 eq or {/jbild 3 def} if jbild 3 ne {%jbild#3 -3200 3900 moveto TBS lanind 0 eq {(Buntton: )} {(Hue: )} ifelse show TBIS (h) show (ab,) ibshow0L TBL 0 -50 rmoveto jbild 0 eq {cname6 0 get show Txx show} if jbild 1 eq {cname6 1 get show Txx show} if jbild 2 eq {cname6 2 get show Txx show} if 0 50 rmoveto TBS (=) show jbild 0 eq {angle6 0 get cvishow} if jbild 1 eq {angle6 1 get cvishow} if jbild 2 eq {angle6 2 get cvishow} if (/360; ) show TBIS (h) show (ab,) ibshow0L TBL 0 -50 rmoveto jbild 0 eq {cname6 3 get show Txx show} if jbild 1 eq {cname6 4 get show Txx show} if jbild 2 eq {cname6 5 get show Txx show} if 0 50 rmoveto TBS (=) show jbild 0 eq {angle6 3 get cvishow} if jbild 1 eq {angle6 4 get cvishow} if jbild 2 eq {angle6 5 get cvishow} if (/360) show } if %jbild#3 xchartl 12 ge {%xchartl>=12 -3200 3625 xchartl 15 eq {300 add} if moveto TBS lanind 0 eq {(Ergebnis: )} {(Result: )} ifelse show TBIS (c*) show (rgb*) ibshownL TBS (=) show TBIS (c*) show %(rgb*) ibshownL TBS (; ) show TBIS (t*) show (rgb*) ibshownL TBS (=) show TBIS (t*) show } if %xchartl>=12 xchartl 0 ge xchartl 3 le and {%0<=xchartl<=3 -3200 4400 moveto TBS (Linear relation ) showea (Beziehung ) showde TBS (CIELAB \050) show TBIS (L*, a*, b*) show TBS (\051) show TBS ( and ) showea ( und ) showde TBIS (adapted (a) ) showea (adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show (ab,a) ibshownL TBS (, ) show TBIS (L*) show TBS (\051) show x800 4100 moveto TBIS (l*) show TBS (=\050 ) show TBIS (L*) show TBS ( - ) show TBIS (L*) show (N) ibshownL TBS ( \051 / \050) show TBIS (L*) show (W) ibshownL ( - ) show TBIS (L*) show (N) ibshownL TBS ( \051) show x800 3800 moveto TBIS (a*) show (a) ibshownL TBS (=) show TBIS (a*) show TBS ( - ) show TBIS (a*) show (N) ibshownL TBS ( - ) show TBIS (l*) show TBS ( [ ) show TBIS (a*) show (W) ibshownL TBS ( - ) show TBIS (a*) show (N) ibshownL TBS ( ]) show x800 3500 moveto TBIS (b*) show (a) ibshownL TBS (=) show TBIS (b*) show TBS ( - ) show TBIS (b*) show (N) ibshownL TBS ( - ) show TBIS (l*) show TBS ( [ ) show TBIS (b*) show (W) ibshownL TBS ( - ) show TBIS (b*) show (N) ibshownL TBS ( ]) show x800 500 add 3200 moveto TBIS (C*) show (ab,a) ibshownL TBS (=[ ) show TBIS (a*) show (a) ibshownL 0 100 rmoveto TBL (2) show 0 -100 rmoveto TBS ( + ) show TBIS (b*) show (a) ibshownL 0 100 rmoveto TBL (2) show 0 -100 rmoveto TBS ( ] ) show 0 100 rmoveto TBL (1/2) show 0 -100 rmoveto } if %0<=xchartl<=3 xchartl 4 ge xchartl 7 le and {%4<=xchartl<=7 -3200 4400 moveto %TBS (Linear relation ) showea (Beziehung ) showde TBIS (Adapted (a) ) showea (Adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show (ab,a) ibshownL TBS (, ) show TBIS (L*) show TBS (\051) show TBS ( and ) showea ( und ) showde TBIS (relative ) showea (relatives ) showde TBS (CIELAB \050) show TBIS (c*) show TBS (, ) show TBIS (l*) show TBS (\051) show X850 4100 moveto TBIS (l*) show TBS (=\050 ) show TBIS (L*) show TBS ( - ) show TBIS (L*) show (N) ibshownL TBS ( \051 / \050) show TBIS (L*) show (W) ibshownL ( - ) show TBIS (L*) show (N) ibshownL TBS ( \051) show X850 3800 moveto TBIS (c*) show TBS (=) show TBIS (C*) show (ab,a) ibshownL TBS ( / ) show TBIS (C*) show (ab,a,M) ibshownL X850 3500 moveto TBIS (M) show TBS (=Maximum colour) showea (=Maximalfarbe) showde } if %4<=xchartl<=7 xchartl 8 ge xchartl 11 le and {%8<=xchartl<=11 -3200 4400 moveto TBS (Linear relation ) showea (Beziehung ) showde TBIS (adapted (a) ) showea (adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show (ab,a) ibshownL TBS (, ) show TBIS (L*) show TBS (\051) show TBS ( and ) showea ( und ) showde TBIS (relative ) showea (relatives ) showde TBS (CIELAB \050) show TBIS (c*) show TBS (, ) show TBIS (t*) show TBS (\051) show X850 4100 moveto TBIS (l*) show (M) ibshownL TBS (=\050) show TBIS (L*) show (M) ibshownL TBS ( - ) show TBIS (L*) show (N) ibshownL TBS (\051 / \050) show TBIS (L*) show (W) ibshownL ( - ) show TBIS (L*) show (N) ibshownL TBS (\051) show X850 3800 moveto TBIS (t*) show TBS (=) show TBIS (l*) show TBS ( - ) show TBIS (c*) show TBS ( [ ) show TBIS (l*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS ( - 0,5 ]) show X850 3500 moveto TBIS (c*) show TBS (=) show TBIS (C*) show (ab,a) ibshownL TBS ( / ) show TBIS (C*) show (ab,a,M) ibshownL X850 3200 moveto TBIS (M) show TBS (=Maximum colour) showea (=Maximalfarbe) showde } if %8<=xchartl<=11 xchartl 12 ge xchartl 15 le and {%12<=xchartl<=15 -3200 4400 moveto TBS (Linear relation ) showea (Beziehung ) showde TBIS (rgb*) show TBS ( and ) showea ( und ) showde TBIS (relative ) show TBS (chroma ) showea (Buntheit ) showde TBIS (c*) show (rgb*) ibshownL xchartl 03 ne xchartl 07 ne and xchartl 11 ne and xchartl 15 ne and {%xchart #3,7,11,15 or =3,7,11,15 TBS ( and triangle lightness ) showea ( und Dreiecks\255Helligkeit ) showde TBIS (t*) show TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto } %xchart #3,7,11,15 %********************************************************************************* { %xchart =3,7,11,15 TBS ( or chroma ) showea ( oder Buntheit ) showde TBIS (a) show xchartl 12 ge {(*) show} if (rgb*) ibshownL TBS (, ) show TBIS (b) show xchartl 12 ge {(*) show} if (rgb*) ibshownL } ifelse %xchart #3,7,11,15 or =3,7,11,15 X850 4100 moveto TBIS (c*) show (rgb*) ibshownL TBS (=max\050) show TBIS (rgb*) show TBS (\051 - min\050) show TBIS (rgb*) show TBS (\051) show X850 3800 moveto TBIS (n*) show %(rgb*) ibshownL TBS (=1 - max\050) show TBIS (rgb*) show TBS (\051) show TBS (= 1 - ) show TBIS (i*) show %(rgb*) ibshownL X850 3500 moveto TBIS (w*) show %(rgb*) ibshownL TBS (=min\050) show TBIS (rgb*) show TBS (\051) show TBS (= 1 - ) show TBIS (d*) show %(rgb*) ibshownL X850 3200 moveto TBIS (t*) show (rgb*) ibshownL TBS (=) show TBIS (w*) show %(rgb*) ibshownL TBS ( + 0,5 ) show TBIS (c*) show (rgb*) ibshownL xchartl 14 le { X850 2900 moveto TBIS (M) show TBS (=Maximum colour) showea (=Maximalfarbe) showde } if } if %12<=xchartl<=15 xchartl 2 le { 1500 150 moveto TBK (chroma) showea (Buntheit) showde 2500 150 moveto TBIK (C*) show TS 0 -50 rmoveto (ab,a) show -1600 3100 moveto TBK (lightness) showea (Helligkeit) showde -350 3100 moveto TBIK (L*) show } if grestore gsave xchart 3 le {0.75 dup scale} {0.80 dup scale} ifelse xchartl 03 ne xchartl 07 ne and xchartl 11 ne and xchartl 15 ne and {%xchart #3,7,11,15 or =3,7,11,15 xchartl 1 eq xcolor 2 eq xcolor 3 eq or and { 200 0 translate} if %special shift for J-B xchartl 1 eq xcolor 4 eq xcolor 5 eq or and {-300 0 translate} if %special shift for J-B xchartl 1 eq xcolor 6 eq xcolor 7 eq or and { 200 0 translate} if %special shift for J-B /j729 0 def xchartl 0 eq xchartl 4 eq or xchartl 8 eq or xchartl 12 eq or {/j1 729 j729 sub 10 mul def} if %series O-C xchartl 1 eq xchartl 5 eq or xchartl 9 eq or xchartl 13 eq or {/j1 729 j729 sub 081 add 10 mul def} if %series Y-V xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/j1 729 j729 sub 162 add 10 mul def} if %series L-M 0 1 080 {/i exch def %i=0,080 /i10 j1 i 10 mul add def LUTL* i LUT i10 0 add get 100 div put LUTA* i LUT i10 1 add get 100 div put LUTB* i LUT i10 2 add get 100 div put LUTr* i LUT i10 3 add get 1000 div put LUTg* i LUT i10 4 add get 1000 div put LUTb* i LUT i10 5 add get 1000 div put C*ab i LUTA* i get dup mul LUTB* i get dup mul add 0.000001 add sqrt put L* i LUTL* i get put } for %i=0,080 % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 xchartl 0 eq xchartl 4 eq or xchartl 8 eq or xchartl 12 eq or {/index [801 737 809 729] def} if %O,C,N1,W1 xchartl 1 eq xchartl 5 eq or xchartl 9 eq or xchartl 13 eq or {/index [882 818 890 810] def} if %Y,V,N2,W2 xchartl 2 eq xchartl 6 eq or xchartl 10 eq or xchartl 14 eq or {/index [963 899 971 891] def} if %L,M,N1,W2 0 1 3 {/i exch def %i=0,3 %standard colours at the end /i10 index i get j729 sub 10 mul def /i81 81 i add def LUTL* i81 LUT i10 0 add get 100 div put LUTA* i81 LUT i10 1 add get 100 div put LUTB* i81 LUT i10 2 add get 100 div put LUTr* i81 LUT i10 3 add get 1000 div put LUTg* i81 LUT i10 4 add get 1000 div put LUTb* i81 LUT i10 5 add get 1000 div put C*ab i81 LUTA* i81 get dup mul LUTB* i81 get dup mul add 0.000001 add sqrt put L* i81 LUTL* i81 get put } for %i=0,3 /L*WN LUTL* 84 get LUTL* 83 get sub def 0 1 084 {/i exch def %i=0,084 LUTl* i LUTL* i get LUTL* 83 get sub L*WN 0.000001 add div put LUTc1* i C*ab i get C*ab 81 get 0.000001 add div put LUTc2* i C*ab i get C*ab 82 get 0.000001 add div put LUTt1* i LUTl* i get LUTc1* i get L* 81 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTt2* i LUTl* i get LUTc2* i get L* 82 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTr* i get 0 lt {LUTr* i 0 put} if LUTg* i get 0 lt {LUTg* i 0 put} if LUTb* i get 0 lt {LUTb* i 0 put} if LUTr* i get 1 gt {LUTr* i 1 put} if LUTg* i get 1 gt {LUTg* i 1 put} if LUTb* i get 1 gt {LUTb* i 1 put} if %maximum /max LUTr* i get def %rgb brilliantness LUTg* i get max gt {/max LUTg* i get def} if LUTb* i get max gt {/max LUTb* i get def} if %minimum /min LUTr* i get def %rgb whiteness LUTg* i get min lt {/min LUTg* i get def} if LUTb* i get min lt {/min LUTb* i get def} if LUTc*rgb i max min sub put %rgb chroma LUTt*rgb i min max min sub 0.5 mul add put %rgb triangle lightness } for %i=0,084 %axis and scales 1 setgray -3000 0 moveto 6250 0 rlineto stroke 0 -080 moveto 0 3600 rlineto stroke 3250 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill 0 50 sub 3600 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill 0 setgray TS /xt001 9 array def /xt001 [( 1,0) () ( 0,5) ( ) ( 0) () ( 0,5) () () ] def %( 1,0)] def /yt001 5 array def /yt001 [( ) () (0,5) ( ) (1,0)] def /xt100 9 array def /xt100 [( 100) () ( 50) ( ) ( 0) () ( 50) () (100)] def /yt100 5 array def /yt100 [( ) () (50) ( ) (100)] def 0 1 8 {/i exch def %i=0,8 -3000 i 750 mul add -50 moveto 0 100 rlineto stroke -3200 i 750 mul add -250 moveto xchartl 3 le {xt100}{xt001} ifelse i get show } for %i=0,8 0 1 4 {/i exch def %i=0,4 -75 0 i 750 mul add moveto 150 0 rlineto stroke 30 50 i 750 mul add moveto xchartl 3 le {yt100}{yt001} ifelse i get show } for %i=0,4 xchartl 4 ge xchartl 7 le and { 1 setgray -2800 3100 moveto TBIK (relative ) show TBK (lightness) showea (Helligkeit) showde -600 3100 moveto TBIK (l*) show xchartl 11 le {TS 0 -50 rmoveto () show 0 50 rmoveto} if } if xchartl 8 ge { 1 setgray -2800 3100 moveto TBK (triangle lightness) showea (Dreiecks\255Helligkeit) showde -600 3100 moveto TBIK (t*) show xchartl 11 le {TS 0 -50 rmoveto () show 0 50 rmoveto} if xchartl 12 ge {TS 0 -50 rmoveto (rgb*) show 0 50 rmoveto} if } if xchartl 4 ge { 1000 150 moveto TBIK (relative ) show TBK (chroma) showea (Buntheit) showde 2800 150 moveto TBIK (c*) show xchartl 11 le {TS 0 -50 rmoveto () show 0 50 rmoveto} if xchartl 12 ge {TS 0 -50 rmoveto (rgb*) show 0 50 rmoveto} if } if xchartl 12 ge { 1500 2350 moveto TBIS (n*) show %TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto TBS (=0; ) show TBIS (i*) show %TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto TBS (=1) show 1500 0550 moveto TBIS (w*) show %TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto TBS (=0; ) show TBIS (d*) show %TBL 0 -50 rmoveto (rgb*) show 0 50 rmoveto TBS (=1) show } if /fakt 30 def /fakt2 3000 def 100 /Times-ISOL1 FS /j1 0 def /k1 0 def /k2 3 def xchartl 0 ge xchartl 2 le and {%0<=xchartl <=2 %********************************************************************** 100 /Times-ISOL1 FS %only once: %spalte e05 bis e05: W-C /Vorz -1 def 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 030 0 360 arc fill newpath } for %j=0,0 %********************************************************************** /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge { C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge {C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke C*ab j get fakt mul L* j get fakt mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def C*ab j get fakt mul xadd0 xchartl get add L* j get fakt mul yadd0 xchartl get add moveto cname6 xchartl get show Txx ibshow0 newpath 1 setgray C*ab j get fakt mul 580 sub L* j get fakt mul 700 sub 150 sub moveto TBS (\050) show TBIS (C*) show (ab,a,M) ibshown TBIS (,) show TBIS ( L*) show (M) ibshown TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge {C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def L* j LUTL* ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt Vorz mul put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor C*ab j get fakt mul L* j get fakt mul 050 0 360 arc fill j 1 ge {C*ab j 1 sub get fakt mul L* j 1 sub get fakt mul moveto C*ab j get fakt mul L* j get fakt mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor C*ab j get fakt mul L* j get fakt mul moveto C*ab 0 get fakt mul L* 0 get fakt mul lineto stroke C*ab j get fakt mul L* j get fakt mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def C*ab j get fakt mul xadd0 xchartl get add L* j get fakt mul yadd0 xchartl get add moveto cname6 3 xchartl add get show Txx ibshow0 newpath } if } for %j=j1,j2 } for %k=0,3 /fakt 30 def icolor 1 eq {%icolor=1 0 0 0 setrgbcolor /i24 xcolor 2 idiv 24 mul def /C*abW 0 def /C*abN 0 def /L*aN LAB*Fa0100 6 3 mul i24 add get def /L*aW LAB*Fa0100 7 3 mul i24 add get def /j xchartl def /j30 j 3 mul i24 add def /j31 j30 1 add def /j32 j30 2 add def /C*abM LAB*Fa0100 j31 get dup mul LAB*Fa0100 j32 get dup mul add 0.0001 add sqrt def C*abN fakt mul L*aN fakt mul moveto C*abM fakt mul LAB*Fa0100 j30 get fakt mul lineto C*abW fakt mul L*aW fakt mul lineto stroke /j xchartl 3 add def /j30 j 3 mul i24 add def /j31 j30 1 add def /j32 j30 2 add def /C*abM LAB*Fa0100 j31 get dup mul LAB*Fa0100 j32 get dup mul add 0.0001 add sqrt def C*abN fakt mul neg L*aN fakt mul moveto C*abM fakt mul neg LAB*Fa0100 j30 get fakt mul lineto C*abW fakt mul neg L*aW fakt mul lineto stroke } if %icolor=1 %********************************************************************** } if %0<=xchartl <=2 xchartl 4 ge xchartl 6 le and {%4<=xchartl <=6 %********************************************************************** 100 /Times-ISOL1 FS %only once: %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def l1* j LUTl* ja get put c1* j LUTc1* ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul l1* j get fakt2 mul 030 0 360 arc fill newpath } for %j=0,0 %********************************************************************** /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def l1* j LUTl* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul l1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul l1* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def l1* j LUTl* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul l1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul l1* 0 get fakt2 mul lineto stroke c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def c1* j get fakt2 mul Vorz mul xadd0 xchartl 4 sub get add l1* j get fakt2 mul yadd0 xchartl 4 sub get add moveto cname6 xchartl 4 sub get show Txx ibshow0 newpath 1 setgray c1* j get fakt2 mul Vorz mul 580 sub l1* j get fakt2 mul 600 sub moveto TBS (\050) show TBIS (c*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBIS (, l*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def l2* j LUTl* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul l2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul l2* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def l2* j LUTl* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul l2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul l2* 0 get fakt2 mul lineto stroke c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def c2* j get fakt2 mul Vorz mul xadd0 xchartl 4 sub get add l2* j get fakt2 mul yadd0 xchartl 4 sub get add moveto cname6 xchartl 4 sub 3 add get show Txx ibshow0 newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** } if %4<=xchartl <=6 xchartl 8 ge xchartl 10 le and {%8<=xchartl <=10 %********************************************************************** 100 /Times-ISOL1 FS %only once: %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t1* j LUTt1* ja get put c1* j LUTc1* ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul t1* j get fakt2 mul 030 0 360 arc fill newpath } for %j=0,0 %********************************************************************** /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def t1* j LUTt1* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul t1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul t1* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t1* j LUTt1* ja get put c1* j LUTc1* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 050 0 360 arc fill j 1 ge {c1* j 1 sub get fakt2 mul Vorz mul t1* j 1 sub get fakt2 mul moveto c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul moveto c1* 0 get fakt2 mul Vorz mul t1* 0 get fakt2 mul lineto stroke c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def c1* j get fakt2 mul Vorz mul xadd0 xchartl 8 sub get add t1* j get fakt2 mul yadd0 xchartl 8 sub get add moveto cname6 xchartl 8 sub get show 1 setgray c1* j get fakt2 mul Vorz mul 580 sub t1* j get fakt2 mul 600 sub moveto TBS (\050) show TBIS (c*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBIS (, t*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t2* j LUTt2* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul t2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul t2* 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def t2* j LUTt2* ja get put c2* j LUTc2* ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 050 0 360 arc fill j 1 ge {c2* j 1 sub get fakt2 mul Vorz mul t2* j 1 sub get fakt2 mul moveto c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul moveto c2* 0 get fakt2 mul Vorz mul t2* 0 get fakt2 mul lineto stroke c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def c2* j get fakt2 mul Vorz mul xadd0 xchartl 8 sub get add t2* j get fakt2 mul yadd0 xchartl 8 sub get add moveto cname6 xchartl 8 sub 3 add get show Txx ibshow0 newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** } if %8<=xchartl <=10 xchartl 12 ge xchartl 14 le and {%12<=xchartl <=14 %********************************************************************** 100 /Times-ISOL1 FS %only once: %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t1*rgb j LUTt*rgb ja get put c1*rgb j LUTc*rgb ja get put newpath LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1*rgb j get fakt2 mul t1*rgb j get fakt2 mul 030 0 360 arc fill newpath } for %j=0,0 %********************************************************************** /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 72 def} if %row j01 to j09: O-N k 1 eq {/j2 6 def /j0 64 def} if %row i02 to i08: O-N k 2 eq {/j2 4 def /j0 56 def} if %row h03 to h07: O-N k 3 eq {/j2 2 def /j0 48 def} if %row g04 to g06: O-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j add def t1*rgb j LUTt*rgb ja get put c1*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c1*rgb j 1 sub get fakt2 mul Vorz mul t1*rgb j 1 sub get fakt2 mul moveto c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul moveto c1*rgb 0 get fakt2 mul Vorz mul t1*rgb 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz 1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %line b01 to j01: W-O k 1 eq {/j2 6 def /j0 10 def} if %line c02 to i02: W-O k 2 eq {/j2 4 def /j0 20 def} if %line d03 to h03: W-O k 3 eq {/j2 2 def /j0 30 def} if %line e04 to g04: W-O j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t1*rgb j LUTt*rgb ja get put c1*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c1*rgb j 1 sub get fakt2 mul Vorz mul t1*rgb j 1 sub get fakt2 mul moveto c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul moveto c1*rgb 0 get fakt2 mul Vorz mul t1*rgb 0 get fakt2 mul lineto stroke c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def c1*rgb j get fakt2 mul Vorz mul xadd0 xchartl 12 sub get add t1*rgb j get fakt2 mul yadd0 xchartl 12 sub get add moveto cname6 xchartl 12 sub get show 1 setgray c1*rgb j get fakt2 mul Vorz mul 580 sub t1*rgb j get fakt2 mul 600 sub moveto TBS (\050) show TBIS (c*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBIS (, t*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (\051) show newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 08 def} if %line b09 to j09: C-N k 1 eq {/j2 6 def /j0 16 def} if %line c08 to i08: C-N k 2 eq {/j2 4 def /j0 24 def} if %line d07 to h07: C-N k 3 eq {/j2 2 def /j0 32 def} if %line e06 to h06: C-N j1 1 j2 {/j exch def %j=j1,j2 %lines /ja j0 j 9 mul add def t2*rgb j LUTt*rgb ja get put c2*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c2*rgb j 1 sub get fakt2 mul Vorz mul t2*rgb j 1 sub get fakt2 mul moveto c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul moveto c2*rgb 0 get fakt2 mul Vorz mul t2*rgb 0 get fakt2 mul lineto stroke } if %k=0 } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** /Vorz -1 def k1 1 k2 {/k exch def %k=0,3 k 0 eq {/j2 8 def /j0 00 def} if %row b01 to b09: W-C k 1 eq {/j2 6 def /j0 10 def} if %row c02 to c08: W-C k 2 eq {/j2 4 def /j0 20 def} if %row d03 to d07: W-C k 3 eq {/j2 2 def /j0 30 def} if %row e04 to e06: W-C j1 1 j2 {/j exch def %j=j1,j2 %rows /ja j0 j add def t2*rgb j LUTt*rgb ja get put c2*rgb j LUTc*rgb ja get put LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 050 0 360 arc fill j 1 ge {c2*rgb j 1 sub get fakt2 mul Vorz mul t2*rgb j 1 sub get fakt2 mul moveto c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul lineto stroke } if j 8 eq {k 0 eq {%k=0 icolor 0 eq {0 0 0} {1 0 0} ifelse setrgbcolor c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul moveto c2*rgb 0 get fakt2 mul Vorz mul t2*rgb 0 get fakt2 mul lineto stroke c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 070 0 360 arc stroke } if %k=0 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor newpath 250 /TimesBI-ISOL1 FS /xadd0 [-400 -400 -400] def /yadd0 [500 500 500] def c2*rgb j get fakt2 mul Vorz mul xadd0 xchartl 12 sub get add t2*rgb j get fakt2 mul yadd0 xchartl 12 sub get add moveto cname6 xchartl 12 sub 3 add get show Txx ibshow0 newpath } if } for %j=j1,j2 } for %k=0,3 %********************************************************************** } if %12<=xchartl <=14 xchartl 1 eq xcolor 2 eq xcolor 3 eq or and {-200 0 translate} if %special shift for J-B TLS00a xchartl 1 eq xcolor 4 eq xcolor 5 eq or and { 300 0 translate} if %special shift for J-B FRS06a xchartl 1 eq xcolor 6 eq xcolor 7 eq or and {-200 0 translate} if %special shift for J-B TLS18a %********************************************************************** } %xchart #3,7,11,15 %********************************************************************************* { %xchart =3,7,11,15 1 setgray %xchartl 3 eq { -3400 4175 moveto TBS (CIELAB) show (\255Bunttonwinkel: ) showde ( hue angles: ) showea % } if xchartl 11 le { -3400 xchartl 7 ge {200 add} if 3900 moveto TBIS (h) show 0 -50 rmoveto TBL (ab,d) show 0 50 rmoveto TBS (=[) show 0 1 5 {/i exch def %i=0,5 angle_olvG11i i get cvishow i 5 ne {(, ) show} if } for %i=0,5 (]) show -3400 xchartl 7 ge {200 add} if 3625 moveto TBIS (h) show 0 -50 rmoveto TBL (ab,dx) show 0 50 rmoveto TBS (=[) show 0 1 5 {/i exch def %i=0,5 H*olv i get cvishow i 5 ne {(, ) show} if } for %i=0,5 (]) show } if %xchartl,<=11 olvrgb 1 eq {%olvrgb=1 -3400 xchartl 7 ge {200 add} if 3350 moveto TBIS (h) show 0 -50 rmoveto TBL (ab,e) show 0 50 rmoveto TBS (=[) show 0 1 5 {/i exch def %i=0,5 angle_rgb i get cvishow i 5 ne {(, ) show} if } for %i=0,5 (]) show } if %olvrgb=1 1600 200 add 2900 moveto %xchartl 3 eq {200 sub} if 2900 moveto TBIS (a*) show TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {() show} if xchartl 8 ge xchartl 11 le and {() show} if xchartl 12 ge xchartl 15 le and {(rgb*) show} if TBL 0 50 rmoveto TBS (=) show xchartl 4 le { TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show TBL 0 50 rmoveto } { TBIS (c*) show TBL 0 -50 rmoveto xchartl 4 ge xchartl 7 le and {() show} if xchartl 8 ge xchartl 11 le and {() show} if xchartl 12 ge xchartl 15 le and {(rgb*) show} if TBL 0 50 rmoveto } ifelse TBIS ( cos h) show 0 -50 rmoveto TBL (ab) show 0 50 rmoveto 1600 200 add 2600 moveto %xchartl 3 eq {200 sub} if 2600 moveto TBIS (b*) show TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {() show} if xchartl 8 ge xchartl 11 le and {() show} if xchartl 12 ge xchartl 15 le and {(rgb*) show} if TBL 0 50 rmoveto TBS (=) show xchartl 4 le { TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show TBL 0 50 rmoveto } { TBIS (c*) show TBL 0 -50 rmoveto xchartl 4 ge xchartl 7 le and {() show} if xchartl 8 ge xchartl 11 le and {() show} if xchartl 12 ge xchartl 15 le and {(rgb*) show} if TBL 0 50 rmoveto } ifelse TBIS ( sin h) show 0 -50 rmoveto TBL (ab) show 0 50 rmoveto -400 200 add 3800 moveto %xchartl 11 le {300 add} if 3500 moveto TBIK (b*) show TBS 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {() show} if xchartl 8 ge xchartl 11 le and {() show} if xchartl 12 ge xchartl 15 le and {(rgb*) show} if TBS 0 50 rmoveto 1800 xchartl 3 le {700 add } if 1900 moveto xchartl 4 ge {TBIK (relative ) show} if TBK lanind 0 eq {(Buntheit ) showde} {(chroma ) showea} ifelse 2700 1650 moveto TBIK (a*) show TBS 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(a) show} if xchartl 4 ge xchartl 7 le and {() show} if xchartl 8 ge xchartl 11 le and {() show} if xchartl 12 ge xchartl 15 le and {(rgb*) show} if TBS 0 50 rmoveto %new shift in middle 0 1500 translate %axis and scales 1 setgray -3000 0 moveto 6300 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 3300 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill 0 50 sub 1800 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill 0 setgray TS /xt001 9 array def /xt001 [(-2,0) () (-1,0) ( ) ( ) () () () () ]def %( 1,0) () ( 2,0)] def /yt001 5 array def /yt001 [(-1,0 ) () ( ) ( ) (1,0)] def /xt100 9 array def /xt100 [(-200) () (-100) ( ) ( ) () ( 100) () ( 200)] def /yt100 5 array def /yt100 [(-100 ) () ( ) ( ) (100)] def 2 1 6 {/i exch def %i=2,6 -3000 i 750 mul add -50 moveto 0 100 rlineto stroke -3650 i 850 mul add -200 moveto xchartl 3 le {xt100} {xt001} ifelse i get show } for %i=2,6 0 1 4 {/i exch def %i=0,4 -75 -1500 i 750 mul add moveto 150 0 rlineto stroke 100 -1650 i 800 mul add moveto xchartl 3 le {yt100} {yt001} ifelse i get show } for %i=0,4 newpath %********************************************************************** %For all xchartl=3,7,11,15 %Variable hue series O00Y-O83Y, Y00L-Y83L, L00C-L83C, % C00V-C83V, C00V-C83V, C00V-C83V-O00Y 250 /TimesBI-ISOL1 FS /fcolor1 1.10 def /fcolor2 1.20 def /j729 0 def 0 1 5 {/xtonj exch def %xton=0,5 0 1 7 {/j exch def %i=0,08 xtonj 0 eq {/j10 648 j729 sub j 09 mul add 10 mul def} if %series O00Y-O83Y, -09 xtonj 1 eq {/j10 720 j729 sub j 81 mul sub 10 mul def} if %series Y00L-Y83L, -81 xtonj 2 eq {/j10 072 j729 sub j add 10 mul def} if %series L00C-L83C, +01 xtonj 3 eq {/j10 080 j729 sub j 09 mul sub 10 mul def} if %series C00V-C83V, -09 xtonj 4 eq {/j10 008 j729 sub j 81 mul add 10 mul def} if %series C00V-C83V, -81 xtonj 5 eq {/j10 656 j729 sub j sub 10 mul def} if %series C00V-C83V, +01 LUTL* j LUT j10 0 add get 100 div put LUTA* j LUT j10 1 add get 100 div put LUTB* j LUT j10 2 add get 100 div put LUTr* j LUT j10 3 add get 1000 div put LUTg* j LUT j10 4 add get 1000 div put LUTb* j LUT j10 5 add get 1000 div put C*ab j LUTA* j get dup mul LUTB* j get dup mul add 0.000001 add sqrt put L* j LUTL* j get put LUTc*rgb j 1000 put } for %j=0,08 %********************************************************************** /j0 0 def /j1 0 def /j2 8 def /k 0 def /fakt 30 def /fakt1 15 def /fakt2 1500 def 0 1 7 {/j exch def %j=0,8 %lines /ja j0 j add def c1*rgb j LUTc*rgb ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt put /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor xchartl 3 le {%xchart=3 newpath C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 050 0 360 arc fill } {%xchart>=7 newpath c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul moveto c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul 050 0 360 arc fill } ifelse %xchart=3,>=7 } for %j=0,8 } for %xton=0,5 %END for all xchartl=3,7,11,15 %********************************************************************** %For all xchartl=3,7,11,15 %Constant hue series 250 /TimesBI-ISOL1 FS /fcolor1 1.10 def /fcolor2 1.20 def xcolor 1 le {/j729 0 def}{/j729 729 def} ifelse 0 1 2 {/xtonj exch def %xton=0,2 xtonj 0 eq {/j1 729 j729 sub 10 mul def} if %series O-C xtonj 1 eq {/j1 729 j729 sub 081 add 10 mul def} if %series Y-V xtonj 2 eq {/j1 729 j729 sub 162 add 10 mul def} if %series L-M 0 1 080 {/i exch def %i=0,080 /i10 j1 i 10 mul add def LUTL* i LUT i10 0 add get 100 div put LUTA* i LUT i10 1 add get 100 div put LUTB* i LUT i10 2 add get 100 div put LUTr* i LUT i10 3 add get 1000 div put LUTg* i LUT i10 4 add get 1000 div put LUTb* i LUT i10 5 add get 1000 div put C*ab i LUTA* i get dup mul LUTB* i get dup mul add 0.000001 add sqrt put L* i LUTL* i get put } for %i=0,080 % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 xtonj 0 eq {/index [801 737 809 729] def} if %O,C,N1,W1 xtonj 1 eq {/index [882 818 890 810] def} if %Y,V,N2,W2 xtonj 2 eq {/index [963 899 971 891] def} if %L,M,N1,W2 0 1 3 {/i exch def %i=0,3 %standard colours at the end /i10 index i get j729 sub 10 mul def /i81 81 i add def LUTL* i81 LUT i10 0 add get 100 div put LUTA* i81 LUT i10 1 add get 100 div put LUTB* i81 LUT i10 2 add get 100 div put LUTr* i81 LUT i10 3 add get 1000 div put LUTg* i81 LUT i10 4 add get 1000 div put LUTb* i81 LUT i10 5 add get 1000 div put C*ab i81 LUTA* i81 get dup mul LUTB* i81 get dup mul add 0.000001 add sqrt put L* i81 LUTL* i81 get put } for %i=0,3 /L*WN LUTL* 84 get LUTL* 83 get sub def 0 1 084 {/i exch def %i=0,084 LUTl* i LUTL* i get LUTL* 83 get sub L*WN 0.000001 add div put LUTc1* i C*ab i get C*ab 81 get 0.000001 add div put LUTc2* i C*ab i get C*ab 82 get 0.000001 add div put LUTt1* i LUTl* i get LUTc1* i get L* 81 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTt2* i LUTl* i get LUTc2* i get L* 82 get L* 83 get sub L*WN 0.000001 add div 0.5 sub mul sub put LUTr* i get 0 lt {LUTr* i 0 put} if LUTg* i get 0 lt {LUTg* i 0 put} if LUTb* i get 0 lt {LUTb* i 0 put} if LUTr* i get 1 gt {LUTr* i 1 put} if LUTg* i get 1 gt {LUTg* i 1 put} if LUTb* i get 1 gt {LUTb* i 1 put} if %maximum /max LUTr* i get def %rgb brilliantness LUTg* i get max gt {/max LUTg* i get def} if LUTb* i get max gt {/max LUTb* i get def} if %minimum /min LUTr* i get def %rgb whiteness LUTg* i get min lt {/min LUTg* i get def} if LUTb* i get min lt {/min LUTb* i get def} if LUTc*rgb i max min sub put %rgb chroma LUTt*rgb i min max min sub 0.5 mul add put %rgb triangle lightness } for %i=0,084 %********************************************************************** /j0 0 def /j1 0 def /j2 8 def /k 0 def /fakt 30 def /fakt1 15 def /fakt2 1500 def 0 1 8 {/j exch def %j=0,8 %lines /ja j0 j 9 mul add def c1*rgb j LUTc*rgb ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt put /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor xchartl 3 le {%xchart=3 C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd1 [ 100 -500 -800 -800 -200 100] def /yadd1 [-100 100 -200 -200 -200 -200] def C*ab j get fakt1 mul fcolor2 mul angleWO cos mul xadd1 xtonj get add C*ab j get fakt1 mul fcolor2 mul angleWO sin mul yadd1 xtonj get add moveto cname6 xtonj get show Txx ibshow0 icolor 1 eq {1 0 0 setrgbcolor 0 0 moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } if } if %j=j2 } {%xchart>=7 c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd1 [ 100 -500 -800 -800 -200 100] def /yadd1 [-100 100 -200 -200 -100 -200] def c1*rgb j get fakt2 mul fcolor2 mul angleWO cos mul xadd1 xtonj get add c1*rgb j get fakt2 mul fcolor2 mul angleWO sin mul yadd1 xtonj get add moveto cname6 xtonj get show Txx ibshow0 icolor 1 eq {1 0 0 setrgbcolor %icolor=1 0 0 moveto c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul lineto stroke } if %icolor=1 } if %j=j2 } ifelse %xchart=3,>=7 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor j 1 ge {xchartl 3 eq {olvrgb 0 eq {C*ab j 1 sub get fakt1 mul angleWO cos mul C*ab j 1 sub get fakt1 mul angleWO sin mul moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } if } {c1*rgb j 1 sub get fakt2 mul angleWO cos mul c1*rgb j 1 sub get fakt2 mul angleWO sin mul moveto c1*rgb j get fakt2 mul angleWO cos mul c1*rgb j get fakt2 mul angleWO sin mul lineto stroke } ifelse } if } for %j=0,8 %********************************************************************** 0 1 8 {/j exch def %j=0,8 %lines /ja j0 j add def c2*rgb j LUTc*rgb ja get put C*ab j LUTA* ja get dup mul LUTB* ja get dup mul add sqrt put /angleWO LUTB* ja get LUTA* ja get 0.0001 add atan def LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor xchartl 3 le {%xchart=3 C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd1 [ 100 -500 -800 -800 -200 100] def /yadd1 [-100 100 -200 -200 -100 -200] def C*ab j get fakt1 mul fcolor2 mul angleWO cos mul xadd1 xtonj 3 add get add C*ab j get fakt1 mul fcolor2 mul angleWO sin mul yadd1 xtonj 3 add get add moveto cname6 xtonj 3 add get show Txx ibshow0 icolor 1 eq {1 0 0 setrgbcolor 0 0 moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } if } if %j=j2 } {%xchart=7 c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul 050 0 360 arc fill j j2 eq {%j=j2 0 0 0 setrgbcolor c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul 065 0 360 arc stroke LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor /xadd1 [ 100 -500 -800 -800 -200 100] def /yadd1 [-100 100 -200 -200 -100 -200] def c2*rgb j get fakt2 mul fcolor2 mul angleWO cos mul xadd1 xtonj 3 add get add c2*rgb j get fakt2 mul fcolor2 mul angleWO sin mul yadd1 xtonj 3 add get add moveto cname6 xtonj 3 add get show Txx ibshow0 icolor 1 eq {1 0 0 setrgbcolor %icolor=1 0 0 moveto c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul lineto stroke } if %icolor=1 } if %j=j2 } ifelse %xchart=3, %xchart>=7 LUTr* ja get LUTg* ja get LUTb* ja get setrgbcolor j 1 ge {xchartl 3 le {C*ab j 1 sub get fakt1 mul angleWO cos mul C*ab j 1 sub get fakt1 mul angleWO sin mul moveto C*ab j get fakt1 mul angleWO cos mul C*ab j get fakt1 mul angleWO sin mul lineto stroke } {c2*rgb j 1 sub get fakt2 mul angleWO cos mul c2*rgb j 1 sub get fakt2 mul angleWO sin mul moveto c2*rgb j get fakt2 mul angleWO cos mul c2*rgb j get fakt2 mul angleWO sin mul lineto stroke } ifelse } if } for %j=00,08 %xtonj=0 %series O-C %xtonj=1 %series Y-V %xtonj=2 %series L-M } for %xton=0,2 %END for all xchartl=3,7,11,15 %********************************************************************** xchartl 3 eq {%xchartl=3 only %BEG Hexagon % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 /fakt1 15 def /indexX 7 array def /indexX [801 882 963 737 818 899 801] def /LUTL*X 7 array def /LUTA*X 7 array def /LUTB*X 7 array def 0 setgray /fcolor1 1.10 def /fcolor2 1.20 def 250 /TimesBI-ISOL1 FS /j729 0 def 0 1 6 {/iX exch def %iX=0,6 %hexagon standard colours at the end /i10 indexX iX get j729 sub 10 mul def LUTL*X iX LUT i10 0 add get 100 div put LUTA*X iX LUT i10 1 add get 100 div put LUTB*X iX LUT i10 2 add get 100 div put LUTr* iX LUT i10 3 add get 1000 div put LUTg* iX LUT i10 4 add get 1000 div put LUTb* iX LUT i10 5 add get 1000 div put iX 5 le {0 0 0 setrgbcolor 0 0 moveto LUTA*X iX get fakt1 mul fcolor1 mul cf1 div LUTB*X iX get fakt1 mul fcolor1 mul cf1 div lineto stroke /xadd1 [ 100 -500 -800 -800 -200 100] def /yadd1 [-100 100 -200 -200 -300 -200] def LUTA*X iX get fakt1 mul fcolor2 mul cf1 div xadd1 iX get add LUTB*X iX get fakt1 mul fcolor2 mul cf1 div yadd1 iX get add moveto xcolor 2 ge {%xcolor>=2 0 0 0 setrgbcolor cname_olv00 iX get show } if %xcolor>=2 } if iX 5 le icolor 1 eq and {xcolor 2 ge {0 0 0}{1 0 0} ifelse setrgbcolor 0 0 moveto LUTA*X iX get fakt1 mul LUTB*X iX get fakt1 mul lineto stroke } if iX 1 ge {0 0 0 setrgbcolor LUTA*X iX 1 sub get fakt1 mul cf1 div LUTB*X iX 1 sub get fakt1 mul cf1 div moveto LUTA*X iX get fakt1 mul cf1 div LUTB*X iX get fakt1 mul cf1 div lineto stroke } if iX 1 ge icolor 1 eq and {1 0 0 setrgbcolor LUTA*X iX 1 sub get fakt1 mul LUTB*X iX 1 sub get fakt1 mul moveto LUTA*X iX get fakt1 mul LUTB*X iX get fakt1 mul lineto stroke } if } for %iX=0,6 %hexagon } if %xchartl=3 %********************************************************************** xchartl 7 ge {%xchart>=7 %circle icolor 0 eq {0 0 0 setrgbcolor} {1 0 0 setrgbcolor} ifelse 0 1500 moveto newpath 0 0 1500 0 360 arc stroke %BEG Hexagon % 801 737 809 729 882 818 890 810 963 899 971 891 % j01 b09 j09 b01 j10 b18 j18 b10 j19 b27 j27 b19 % O C N1 W1 Y V N2 W2 L M N3 W3 /fakt1 15 def /indexX 7 array def /indexX [801 882 963 737 818 899 801] def /LUTL*X 7 array def /LUTA*X 7 array def /LUTB*X 7 array def 0 setgray /fcolor1 1.10 def /fcolor2 1.20 def /c1000 1 fakt2 mul def 250 /TimesBI-ISOL1 FS /j729 0 def 0 1 6 {/iX exch def %iX=0,5 %hexagon standard colours at the end /i10 indexX iX get j729 sub 10 mul def LUTL*X iX LUT i10 0 add get 100 div put LUTA*X iX LUT i10 1 add get 100 div put LUTB*X iX LUT i10 2 add get 100 div put LUTr* iX LUT i10 3 add get 1000 div put LUTg* iX LUT i10 4 add get 1000 div put LUTb* iX LUT i10 5 add get 1000 div put /angleOLV LUTB*X iX get LUTA*X iX get 0.0001 add atan def iX 5 le {0 0 0 setrgbcolor 0 0 moveto c1000 angleOLV cos mul fcolor2 mul c1000 angleOLV sin mul fcolor2 mul lineto stroke /xadd1 [ 100 -500 -800 -800 -200 100] def /yadd1 [-100 100 -200 -200 -100 -200] def c1000 angleOLV cos mul fcolor2 mul xadd1 iX get add c1000 angleOLV sin mul fcolor2 mul yadd1 iX get add moveto xcolor 2 ge {%xcolor>=2 0 0 0 setrgbcolor cname_olv00 iX get show } if %xcolor>=2 } if iX 5 le icolor 1 eq and {xcolor 2 ge {0 0 0}{1 0 0} ifelse setrgbcolor 0 0 moveto c1000 angleOLV cos mul fcolor2 mul c1000 angleOLV sin mul fcolor2 mul lineto stroke } if } for %iX=0,6 %hexagon } if %xchartl=4 %********************************************************************** 0 1500 neg translate } ifelse %xchart #3,7,11,15 or =3,7,11,15 grestore 2600 neg 0300 neg translate %special space for 'xm03'PROZ0.COM 2x before/after xchartl xchartl 0 eq { 100 neg 13000 neg translate} if xchartl 1 eq { 6100 neg 13000 neg translate} if xchartl 2 eq { 100 neg 08750 neg translate} if xchartl 3 eq { 6100 neg 08750 neg translate} if xchartl 4 eq { 100 neg 4500 neg translate} if xchartl 5 eq { 6100 neg 4500 neg translate} if xchartl 6 eq { 100 neg 0250 neg translate} if xchartl 7 eq { 6100 neg 0250 neg translate} if xchartl 8 eq {13500 neg 13000 neg translate} if xchartl 9 eq {19500 neg 13000 neg translate} if xchartl 10 eq {13500 neg 08750 neg translate} if xchartl 11 eq {19500 neg 08750 neg translate} if xchartl 12 eq {13500 neg 4500 neg translate} if xchartl 13 eq {19500 neg 4500 neg translate} if xchartl 14 eq {13500 neg 0250 neg translate} if xchartl 15 eq {19500 neg 0250 neg translate} if } for % xchartl=0,15 showpage grestore %} for %xchart=0,15 grestore %} for %xcolor=0,1 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %%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 %%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 %%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 %%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 %%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 %%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 %%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 %%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 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES 0 def /i*ptrsc 0 def gsave 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart xchart3 lt {/Txx (-) def /Fxx (-) def} if xchart xchart3 ge {%xchart>=xchart3 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=xchart3 /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto (http://130.149.60.45/~farbmetrik/SI41/SI41) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/SI41/SI41) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/SI41/SI41.HTM) show } %xt=0 { %xt=1 /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 0 setgray 12 /Times-ISOL1 FS 61 MM 13.5 MM moveto 61 MM 13.5 MM moveto (TUB\255Pr\374fvorlage SI41; ) showde %0SI41X-Y 0000# (TUB\255test chart SI41; ) showen %1SI41X-Y 0000# (gr\341fico TUB\255SI41; ) showes %2SI41X-Y 0000# (TUB\255test graphique SI41; ) showfr %3SI41X-Y 0000# (grafico TUB\255SI41; ) showit %4SI41X-Y 0000# (TUB\255test chart SI41; ) showjp %5SI41X-Y 0000# xchart4 0 eq {%xchart4=0 (Laser\255Drucker H) showde %0SI41X-Y 0100# (Laser printer H) showea %ASI41X-Y 0100# } if %xchart4=0 xchart4 1 eq {() show} if xchart4 2 eq {() show} if 61 MM 09.5 MM moveto xchart4 0 eq {%xchart4=0 12 /Times-ISOL1 FS (Ausgabe rgbd; HRS16_96; Start- & 3D-linearisiert) showde %0SI41X-Y 0200# (output rgbd; HRS16_96; start and 3D-linearized) showea %ASI41X-Y 0200# } if %xchart4=0 xchart4 1 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0SI41X-Y 0300# (chromatic test chart) showen %1SI41X-Y 0300# (test crom\341tico gr\341fico) showes %2SI41X-Y 0300# (chromatic graphique de test) showfr %3SI41X-Y 0300# (prova cromatica grafico) showit %4SI41X-Y 0300# (chromatic test chart) showjp %5SI41X-Y 0300# 12 /TimesI-ISOL1 FS ( RGB) show } if xchart4 2 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0SI41X-Y 0400# (chromatic test chart) showen %1SI41X-Y 0400# (test crom\341tico gr\341fico) showes %2SI41X-Y 0400# (chromatic graphique de test) showfr %3SI41X-Y 0400# (prova cromatica grafico) showit %4SI41X-Y 0400# (chromatic test chart) showjp %5SI41X-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 %0SI41X-Y 0500# (input: ) showen %1SI41X-Y 0500# (entrada: ) showes %2SI41X-Y 0500# (entr\351e: ) showfr %3SI41X-Y 0500# (immettere: ) showit %4SI41X-Y 0500# (input: ) showjp %5SI41X-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 %0SI41X-Y 0600# (output: ) showen %1SI41X-Y 0600# (salida: ) showes %2SI41X-Y 0600# (sortie: ) showfr %3SI41X-Y 0600# (uscita: ) showit %4SI41X-Y 0600# (output: ) showjp %5SI41X-Y 0600# %colorm=0,1! 12 /Times-ISOL1 FS xchart 0 eq {%xchart=0,#0 12 /Times-ISOL1 FS (keine \304nderung) showde %0SI41X-Y 0700# (no change) showen %1SI41X-Y 0700# (ning\372n cambio) showes %2SI41X-Y 0700# (aucun changement) showfr %3SI41X-Y 0700# (nessun cambiamento) showit %4SI41X-Y 0700# (no change compared) showjp %5SI41X-Y 0700# }%xchart=0 {%xchart#0 12 /Times-ISOL1 FS colorm 0 eq {%colorm=0 (Transfer nach ) showde %0SI41X-Y 0800# (transfer to ) showen %1SI41X-Y 0800# (transfiera a ) showes %2SI41X-Y 0800# (transf\351rer \340 ) showfr %3SI41X-Y 0800# (trasferire a ) showit %4SI41X-Y 0800# (transfer to ) showjp %5SI41X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0SI41X-Y 0900# (3D\255linearization to ) showen %1SI41X-Y 0900# (3D\255linealizaci\363n a ) showes %2SI41X-Y 0900# (linearisation 3D selon ) showfr %3SI41X-Y 0900# (3D\255linearizzazione a ) showit %4SI41X-Y 0900# (3D\255linearization to ) showjp %5SI41X-Y 0900# } ifelse %colorm=1 12 /TimesI-ISOL1 FS xchart5f 0 eq {(rgb) show} if xchart5f 1 eq {(cmyk) show} if xchart5f 2 eq {(cmy0) show} if xchart5f 3 eq {(cmyk) show} if colorm 1 eq {(*) show} if 10 /Times-ISOL1 FS 0 -2 rmoveto Txx show 0 2 rmoveto 12 /Times-ISOL1 FS } ifelse %xchart=0,#0 %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/SI41/SI41L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde %0SI41X-Y 1000# (start output) showen %1SI41X-Y 1000# (comience salida) showes %2SI41X-Y 1000# (sortie de production) showfr %3SI41X-Y 1000# (cominciare l'uscita) showit %4SI41X-Y 1000# (start output) showjp %5SI41X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0SI41X-Y 1100# (start output) showen %1SI41X-Y 1100# (comience salida) showes %2SI41X-Y 1100# (sortie de production) showfr %3SI41X-Y 1100# (cominciare l'uscita) showit %4SI41X-Y 1100# (start output) showjp %5SI41X-Y 1100# } if xchart xchart3 ge {%xchart>=xchart3 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0SI41X-Y 1200# (transfer output) showen %1SI41X-Y 1200# (salida de transferencia) showes %2SI41X-Y 1200# (sortie de transfert) showfr %3SI41X-Y 1200# (uscita di trasferimento) showit %4SI41X-Y 1200# (transfer output) showjp %5SI41X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0SI41X-Y 1300# (3D\255linearization) showen %1SI41X-Y 1300# (3D\255linealizaci\363n) showes %2SI41X-Y 1300# (linearisation 3D) showfr %3SI41X-Y 1300# (3D\255linearizzzazione) showit %4SI41X-Y 1300# (3D\255linearization) showjp %5SI41X-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 %0SI41X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1SI41X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2SI41X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3SI41X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4SI41X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5SI41X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0SI41X-Y 1500# (in file (F) or PS\255startup (S)) showen %1SI41X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2SI41X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3SI41X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4SI41X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5SI41X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0SI41X-Y 1600# (3D\255linearization) showen %1SI41X-Y 1600# (3D\255linealizaci\363n) showes %2SI41X-Y 1600# (linearisation 3D) showfr %3SI41X-Y 1600# (3D\255linearizzzazione) showit %4SI41X-Y 1600# (3D\255linearization) showjp %5SI41X-Y 1600# ( SI41/SI41L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0SI41X-Y 1700# ( in file (F)) showen %1SI41X-Y 1700# ( en archivo (F)) showes %2SI41X-Y 1700# ( dans fichier (F)) showfr %3SI41X-Y 1700# ( nel file (F)) showit %4SI41X-Y 1700# ( in file (F)) showjp %5SI41X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0SI41X-Y 1800# ( in Distiller Startup (S) Directory) showen %1SI41X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2SI41X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3SI41X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4SI41X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5SI41X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0SI41X-Y 1900# ( in PS\255device (D)) showen %1SI41X-Y 1900# ( en el PS\255device (D)) showes %2SI41X-Y 1900# ( dans l'appareil PS (D)) showfr %3SI41X-Y 1900# ( nel PS\255dispositivo (D)) showit %4SI41X-Y 1900# ( in PS\255Device (D)) showjp %5SI41X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0SI41X-Y 2000# ( in Distiller Startup (S) Directory) showen %1SI41X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2SI41X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3SI41X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4SI41X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5SI41X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0SI41X-Y 2100# ( in PS\255device (D)) showen %1SI41X-Y 2100# ( en el PS\255device (D)) showes %2SI41X-Y 2100# ( dans appareil PS (D)) showfr %3SI41X-Y 2100# ( nel PS\255dispositivo (D)) showit %4SI41X-Y 2100# ( in PS\255Device (D)) showjp %5SI41X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0SI41X-Y 2200# (, page ) showen %1SI41X-Y 2200# (, p\341gina ) showes %2SI41X-Y 2200# (, page ) showfr %3SI41X-Y 2200# (, pagina ) showit %4SI41X-Y 2200# (, page ) showjp %5SI41X-Y 2200# xcolor 1 add cvishow (/) show 2 cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0SI41X-Y 2300# (see similar files: ) showen %1SI41X-Y 2300# (vea archivos semejantes: ) showes %2SI41X-Y 2300# (voir des fichiers similaires: ) showfr %3SI41X-Y 2300# (vedere dei file simili: ) showit %4SI41X-Y 2300# (see similar files: ) showjp %5SI41X-Y 2300# (http://130.149.60.45/~farbmetrik/SI41/SI41.HTM) show %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0SI41X-Y 2400# (technical information: ) showen %1SI41X-Y 2400# (informaci\363n t\351cnica: ) showes %2SI41X-Y 2400# (informations techniques: ) showfr %3SI41X-Y 2400# (informazioni tecniche: ) showit %4SI41X-Y 2400# (technical information: ) showjp %5SI41X-Y 2400# (http://www.ps.bam.de) show ( oder ) showde %0SI41X-Y 2500# ( or ) showen %1SI41X-Y 2500# ( o ) showes %2SI41X-Y 2500# ( ou ) showfr %3SI41X-Y 2500# ( o ) showit %4SI41X-Y 2500# ( or ) showjp %5SI41X-Y 2500# (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20130201\255SI41/SI41L) showde %0SI41X-Y 2600# (TUB registration: 20130201\255SI41/SI41L) showen %1SI41X-Y 2600# (TUB matr\355cula: 20130201\255SI41/SI41L) showes %2SI41X-Y 2600# (TUB enregistrement: 20130201\255SI41/SI41L) showfr %3SI41X-Y 2600# (TUB iscrizione: 20130201\255SI41/SI41L) showit %4SI41X-Y 2600# (TUB registration: 20130201\255SI41/SI41L) showjp %5SI41X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0SI41X-Y 2700# (TUB material: code=rha4ta) showen %1SI41X-Y 2700# (TUB material: code=rha4ta) showes %2SI41X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3SI41X-Y 2700# (TUB materiale: code=rha4ta) showit %4SI41X-Y 2700# (TUB material: code=rha4ta) showjp %5SI41X-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 %0SI41X-Y 2800# ( application for measurement ) showen %1SI41X-Y 2800# ( aplicaci\363n para la medida ) showes %2SI41X-Y 2800# ( application pour la mesure ) showfr %3SI41X-Y 2800# ( la domanda per la misura ) showit %4SI41X-Y 2800# ( application for measurement ) showjp %5SI41X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display-Ausgabe) showde %0SI41X-Y 2900# (of display output) showen %1SI41X-Y 2900# (de display output) showes %2SI41X-Y 2900# (de sortie sur \350cran) showfr %3SI41X-Y 2900# (di stampa di display) showit %4SI41X-Y 2900# (of display output) showjp %5SI41X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0SI41X-Y 3000# (of offset print output) showen %1SI41X-Y 3000# (salida en la impressi\363n offset) showes %2SI41X-Y 3000# (des sorties sur offset) showfr %3SI41X-Y 3000# (uscita nella stampa di offset) showit %4SI41X-Y 3000# (of offset print output) showjp %5SI41X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0SI41X-Y 3100# (of laser printer output) showen %1SI41X-Y 3100# (salida de impresora l\341ser) showes %2SI41X-Y 3100# (des sorties sur imprimante laser) showfr %3SI41X-Y 3100# (di uscita della stampante laser) showit %4SI41X-Y 3100# (of laser printer output) showjp %5SI41X-Y 3100# } if %xchart5f=3 xchart xchart3 ge {%xchart>=xchart3 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0SI41X-Y 3200# (, no separation) showen %1SI41X-Y 3200# (, ninguna separaci\363n) showes %2SI41X-Y 3200# (, aucune s\351paration) showfr %3SI41X-Y 3200# (, nessuna separazione) showit %4SI41X-Y 3200# (, no separation) showjp %5SI41X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0SI41X-Y 3300# (, separation) showen %1SI41X-Y 3300# (, separaci\363n) showes %2SI41X-Y 3300# (, s\351paration) showfr %3SI41X-Y 3300# (, separazione) showit %4SI41X-Y 3300# (, separation) showjp %5SI41X-Y 3300# xchart5f 1 eq xchart5f 3 eq or {(cmyn6) show} if xchart5f 2 eq {(cmy0) show} if colorm 1 eq {(*) show} if colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show } if %xchart5f>=1 } if %xchart>=xchart3 IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke } ifelse %xt=1 grestore gsave %********************************************************** %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 %} for %xchartf=0,1 } for %xcolorf=0,1 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer