%!PS-Adobe-3.0 EPSF-3.0 130.149.60.45/~farbmetrik/GG94/GG94L00XX.PS 20091101 %%BoundingBox: 14 08 828 584 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put } if [ /Title (PostScript pictures: www.ps.bam.de/GG94/GG94.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision, colorimetry) /Creator (klaus.richter@mac.com) /CreationDate (D:2009110112000) /ModDate (D:2009110112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /ColSpxG 3 def /ColSpx ColSpxG def /DEintp 0 def /rgb_cmy 0 def /LAB*ioG { } bind def /ColSepG { } bind def /VisTol*ioG 1.0 def %BEG GK0X->GG94/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->GG94/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %***************************************************************************** %BEG GK0X->GG94/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->GG94/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 /CFilenameS1g %START output of step S1g (130.149.60.45/~farbmetrik/GG94/GG94L0N) def %Link file name for data /CDateS1g (2006-01-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (GG94/GG94L0N) def %File name measured in step S1g %change scount2g from 2 to 10 for 10 series %change pcount2g from 8 to 240 for 240 pages of each series /scount1g 1 def /scount2g 1 def /scountg 1 def /pcount1g 1 def /pcount2g 10 def /pcountg 1 def %start=1, one more 9+1! /xchart1g 0 def /xchart2g 9 def /xchartg 0 def /BeginEPSF { % def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF { % def count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def %0 %1 /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 /tzank [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /LAB*TE [(HRS16_96, L*=16_96) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70) (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70) (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def %BEG 61 lines comment or new PS operators possible %01 %02 %03 %04 %05 %06 %07 %08 %09 %11 %END 38 lines comment or new PS operators possible %%EndProlog %%BeginPageSetup /#copies 1 def %A4quer 1.0 1.0 scale /pgsave save def %%EndPageSetup 0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter gsave /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)%max 32 (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32 (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(A.PS /.TXT) (B.PS /.BMP) (G.PS /.GIF) (H.PS /.HTM) (I.PS /.HTM) (J.PS /.JPE) (P.PS /.PDF) (T.PS /.TIF)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 0 def /lanindg2 0 def /colormg1 0 def /colormg2 0 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /pcount2x pcount2g xchart2g sub 2 add def /xcolor10 0 def /xcolor20 1 def %scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10 %pcount1g 1 pcount2x {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 0 def /xchart20 0 def %pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %pcountg pcount2x eq {/xchart10 2 def /xchart20 9 def} if xcolor10 1 xcolor20 {/xcolorg exch def xchart10 1 xchart20 {/xchartg exch def /ausz 8 def /xcharti 0 def %xchartg 2 eq xchartg 3 eq or xchartg 5 eq or {/xcharti 1 def} % {/xcharti 0 def} ifelse /colorm colormg def /xchart xchartg def /xchartg0 0 def %needs Definition of xcharti, is only in OUTLIN1X.PS %to be deleted for tests of Y.. on VAX LAB*ioG ColSepG %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/GG94/ ) show (Form: ) show %xchartg 1 add cvi 6 string cvs show (/) show %xchart2g 1 add cvi 6 string cvs show (,) show 90 rotate %274 MM 65 MM moveto -90 rotate (Serie: ) show %scountg cvi 6 string cvs show (/) show %scount2g cvi 6 string cvs show (,) show 90 rotate %274 MM 55 MM moveto -90 rotate %lanindg 0 eq {(Seite: )}{(Page: )} ifelse show %pcountg xchartg xchart10 sub add cvi 6 string cvs show 90 rotate %274 MM 45 MM moveto %-90 rotate %lanindg 0 eq {(Seitenz\344hlung )}{(Page: count: )} ifelse show %scountg 1 sub pcount2g mul pcountg add %pcountg pcount2x eq {xchartg add pcount1g pcount2x ne {2 sub } if} if %cvi 6 string cvs show %90 rotate /GSS$ SS$ lanindg get def /GSC$ SC$ colormg get def /GSX$ SX$ 0 get def %special /GSY$ SY$ 0 get def %special /GEX$ EX$ 6 get def /GEY$ EY$ 6 get def %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 GG940-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG940-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 GG940-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG940-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 GG940-3, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG940-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 GG940-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG940-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %!PS-Adobe-3.0 EPSF-3.0 GG940-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG940-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %!PS-Adobe-3.0 EPSF-3.0 GG940-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG940-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 3.0 MM sub 20 MM 0.0 MM add translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 GG940-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: B2410-2, B8710_5, E8370-1, B6_15_1, N=6_15_1) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://www.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009020112000) /ModDate (D:2009020112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 % !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 GG94_HRS16_96_D65_00%_00_LUT.DAT /FileDataen (_LUT.DAT, 243 colours, 090115, Separation olv*, adapted) def /FileDatade (_LUT.DAT, 243 Farben, 090115, Separation olv*, adaptiert) def /FileData0Na (GG94_HRS16_96_D65_00%_G0) def /LUT_LAB0 [ %GE340-7A, Page 7 /24, %BEG GE24_22_REM.TXT, Separation cmyn5*, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE24_22_REM.TXT, Separation cmyn5*, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 001537 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 002333 000667 -01534 0000 0000 0125 1000 1000 0875 0000 %0001 A02 002261 001034 -02878 0000 0000 0250 1000 1000 0750 0000 %0002 A03 002427 001092 -03542 0000 0000 0375 1000 1000 0625 0000 %0003 A04 002604 001770 -04213 0000 0000 0500 1000 1000 0500 0000 %0004 A05 002643 002246 -04429 0000 0000 0625 1000 1000 0375 0000 %0005 A06 002775 002270 -04329 0000 0000 0750 1000 1000 0250 0000 %0006 A07 002919 002409 -04317 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003145 002322 -04327 0000 0000 1000 1000 1000 0000 0000 %0008 A09 003071 -03598 001219 0000 0125 0000 1000 0875 1000 0000 %0009 B01 002685 -01535 -02220 0000 0125 0125 1000 0875 0875 0000 %0010 B02 002595 -00476 -02901 0000 0125 0250 1000 0875 0750 0000 %0011 B03 002510 -00139 -02962 0000 0125 0375 1000 0875 0625 0000 %0012 B04 002691 000345 -03500 0000 0125 0500 1000 0875 0500 0000 %0013 B05 002926 000818 -04208 0000 0125 0625 1000 0875 0375 0000 %0014 B06 003039 001440 -04618 0000 0125 0750 1000 0875 0250 0000 %0015 B07 003205 001458 -04562 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003350 001458 -04525 0000 0125 1000 1000 0875 0000 0000 %0017 B09 003542 -04961 001887 0000 0250 0000 1000 0750 1000 0000 %0018 C01 003307 -04161 -00320 0000 0250 0125 1000 0750 0875 0000 %0019 C02 003307 -01984 -02850 0000 0250 0250 1000 0750 0750 0000 %0020 C03 003188 -00808 -03656 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003113 -00338 -03805 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003069 -00250 -03816 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003239 000056 -04322 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003322 000263 -04660 0000 0250 0875 1000 0750 0125 0000 %0025 C08 003396 000430 -04867 0000 0250 1000 1000 0750 0000 0000 %0026 C09 004047 -05922 002384 0000 0375 0000 1000 0625 1000 0000 %0027 D01 003999 -06205 001137 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003986 -04403 -01189 0000 0375 0250 1000 0625 0750 0000 %0029 D03 003838 -02547 -03110 0000 0375 0375 1000 0625 0625 0000 %0030 D04 003722 -01489 -03864 0000 0375 0500 1000 0625 0500 0000 %0031 D05 003777 -00898 -04357 0000 0375 0625 1000 0625 0375 0000 %0032 D06 003848 -00645 -04622 0000 0375 0750 1000 0625 0250 0000 %0033 D07 003969 -00615 -04764 0000 0375 0875 1000 0625 0125 0000 %0034 D08 003913 -00527 -04854 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004434 -06468 002687 0000 0500 0000 1000 0500 1000 0000 %0036 E01 004493 -07297 001806 0000 0500 0125 1000 0500 0875 0000 %0037 E02 004488 -05804 -00284 0000 0500 0250 1000 0500 0750 0000 %0038 E03 004544 -04592 -01950 0000 0500 0375 1000 0500 0625 0000 %0039 E04 004366 -02894 -03471 0000 0500 0500 1000 0500 0500 0000 %0040 E05 004310 -02186 -04048 0000 0500 0625 1000 0500 0375 0000 %0041 E06 004459 -01785 -04545 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004483 -01421 -04854 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004390 -01347 -04864 0000 0500 1000 1000 0500 0000 0000 %0044 E09 004806 -06846 002949 0000 0625 0000 1000 0375 1000 0000 %0045 F01 004754 -07925 002482 0000 0625 0125 1000 0375 0875 0000 %0046 F02 004876 -07029 000791 0000 0625 0250 1000 0375 0750 0000 %0047 F03 004885 -05814 -00991 0000 0625 0375 1000 0375 0625 0000 %0048 F04 005038 -04954 -02212 0000 0625 0500 1000 0375 0500 0000 %0049 F05 004851 -03659 -03429 0000 0625 0625 1000 0375 0375 0000 %0050 F06 004832 -03061 -03931 0000 0625 0750 1000 0375 0250 0000 %0051 F07 004868 -02339 -04669 0000 0625 0875 1000 0375 0125 0000 %0052 F08 004826 -02101 -04861 0000 0625 1000 1000 0375 0000 0000 %0053 F09 005205 -06935 003310 0000 0750 0000 1000 0250 1000 0000 %0054 G01 005000 -07629 002466 0000 0750 0125 1000 0250 0875 0000 %0055 G02 004984 -06991 000970 0000 0750 0250 1000 0250 0750 0000 %0056 G03 005075 -06087 -00508 0000 0750 0375 1000 0250 0625 0000 %0057 G04 005088 -05316 -01684 0000 0750 0500 1000 0250 0500 0000 %0058 G05 005119 -04554 -02640 0000 0750 0625 1000 0250 0375 0000 %0059 G06 005086 -03911 -03413 0000 0750 0750 1000 0250 0250 0000 %0060 G07 005061 -03271 -04082 0000 0750 0875 1000 0250 0125 0000 %0061 G08 005085 -02908 -04539 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005514 -06772 003551 0000 0875 0000 1000 0125 1000 0000 %0063 H01 005401 -06830 002622 0000 0875 0125 1000 0125 0875 0000 %0064 H02 005440 -06222 001208 0000 0875 0250 1000 0125 0750 0000 %0065 H03 005412 -05735 -00010 0000 0875 0375 1000 0125 0625 0000 %0066 H04 005463 -05149 -00945 0000 0875 0500 1000 0125 0500 0000 %0067 H05 005416 -04616 -01928 0000 0875 0625 1000 0125 0375 0000 %0068 H06 005218 -04281 -02737 0000 0875 0750 1000 0125 0250 0000 %0069 H07 005084 -03556 -03759 0000 0875 0875 1000 0125 0125 0000 %0070 H08 005106 -03235 -04159 0000 0875 1000 1000 0125 0000 0000 %0071 H09 005674 -06368 003481 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005653 -06207 002478 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005665 -05760 001333 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005715 -05346 000438 0000 1000 0375 1000 0000 0625 0000 %0075 I04 005722 -04947 -00373 0000 1000 0500 1000 0000 0500 0000 %0076 I05 005745 -04435 -01264 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005670 -04191 -01876 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005518 -03848 -02690 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005166 -03377 -03878 0000 1000 1000 1000 0000 0000 0000 %0080 I09 001927 001507 000494 0125 0000 0000 0875 1000 1000 0000 %0081 J01 001814 001767 -00348 0125 0000 0125 0875 1000 0875 0000 %0082 J02 002004 001908 -01635 0125 0000 0250 0875 1000 0750 0000 %0083 J03 002233 002389 -02528 0125 0000 0375 0875 1000 0625 0000 %0084 J04 002436 002629 -03028 0125 0000 0500 0875 1000 0500 0000 %0085 J05 002620 002945 -03294 0125 0000 0625 0875 1000 0375 0000 %0086 J06 002708 003141 -03703 0125 0000 0750 0875 1000 0250 0000 %0087 J07 002874 003190 -03973 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003086 003072 -04028 0125 0000 1000 0875 1000 0000 0000 %0089 J09 002656 -00345 001857 0125 0125 0000 0875 0875 1000 0000 %0090 K01 002228 -00001 -00074 0125 0125 0125 0875 0875 0875 0000 %0091 K02 002826 000552 -01862 0125 0125 0250 0875 0875 0750 0000 %0092 K03 003013 000749 -02549 0125 0125 0375 0875 0875 0625 0000 %0093 K04 003425 001331 -03019 0125 0125 0500 0875 0875 0500 0000 %0094 K05 003438 001816 -03585 0125 0125 0625 0875 0875 0375 0000 %0095 K06 003605 001962 -03937 0125 0125 0750 0875 0875 0250 0000 %0096 K07 003479 002246 -04153 0125 0125 0875 0875 0875 0125 0000 %0097 K08 003409 002309 -04192 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003264 -02032 002084 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003874 -01628 000625 0125 0250 0125 0875 0750 0875 0000 %0100 L02 003729 -01112 -01624 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003804 -00588 -02477 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003924 -00078 -02969 0125 0250 0500 0875 0750 0500 0000 %0103 L05 004151 000265 -03291 0125 0250 0625 0875 0750 0375 0000 %0104 L06 004155 000536 -03791 0125 0250 0750 0875 0750 0250 0000 %0105 L07 003802 001119 -04411 0125 0250 0875 0875 0750 0125 0000 %0106 L08 003671 001536 -04335 0125 0250 1000 0875 0750 0000 0000 %0107 L09 003826 -03781 002551 0125 0375 0000 0875 0625 1000 0000 %0108 M01 004207 -02684 001014 0125 0375 0125 0875 0625 0875 0000 %0109 M02 004064 -02225 -00465 0125 0375 0250 0875 0625 0750 0000 %0110 M03 004384 -01573 -02210 0125 0375 0375 0875 0625 0625 0000 %0111 M04 004350 -01059 -02897 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004459 -00731 -03265 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004515 -00574 -03625 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004324 -00275 -04513 0125 0375 0875 0875 0625 0125 0000 %0115 M08 003887 000251 -04650 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004375 -04887 002946 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004665 -03549 001644 0125 0500 0125 0875 0500 0875 0000 %0118 N02 004620 -03188 000307 0125 0500 0250 0875 0500 0750 0000 %0119 N03 004579 -02593 -01208 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004752 -01912 -02722 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004829 -01476 -03211 0125 0500 0625 0875 0500 0375 0000 %0122 N06 004878 -01226 -03503 0125 0500 0750 0875 0500 0250 0000 %0123 N07 004855 -01123 -04186 0125 0500 0875 0875 0500 0125 0000 %0124 N08 004476 -00895 -04662 0125 0500 1000 0875 0500 0000 0000 %0125 N09 004868 -05556 003295 0125 0625 0000 0875 0375 1000 0000 %0126 O01 005046 -04239 002212 0125 0625 0125 0875 0375 0875 0000 %0127 O02 005073 -04030 000924 0125 0625 0250 0875 0375 0750 0000 %0128 O03 005093 -03550 -00528 0125 0625 0375 0875 0375 0625 0000 %0129 O04 005113 -02884 -01807 0125 0625 0500 0875 0375 0500 0000 %0130 O05 005161 -02322 -02908 0125 0625 0625 0875 0375 0375 0000 %0131 O06 005149 -01896 -03326 0125 0625 0750 0875 0375 0250 0000 %0132 O07 005169 -01655 -03766 0125 0625 0875 0875 0375 0125 0000 %0133 O08 005017 -01541 -04512 0125 0625 1000 0875 0375 0000 0000 %0134 O09 005410 -05745 003802 0125 0750 0000 0875 0250 1000 0000 %0135 P01 005495 -04759 002531 0125 0750 0125 0875 0250 0875 0000 %0136 P02 005548 -04526 001477 0125 0750 0250 0875 0250 0750 0000 %0137 P03 005588 -04451 000234 0125 0750 0375 0875 0250 0625 0000 %0138 P04 005720 -03911 -00973 0125 0750 0500 0875 0250 0500 0000 %0139 P05 005702 -03457 -01950 0125 0750 0625 0875 0250 0375 0000 %0140 P06 005572 -02856 -03039 0125 0750 0750 0875 0250 0250 0000 %0141 P07 005482 -02360 -03573 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005437 -02130 -04148 0125 0750 1000 0875 0250 0000 0000 %0143 P09 005975 -05962 004279 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 006026 -05700 003223 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 006056 -05346 002012 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 006036 -04955 000714 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 006058 -04499 -00266 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 006045 -04093 -01186 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 005965 -03657 -02107 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 005780 -03120 -03315 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005747 -02750 -03887 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 006016 -05801 004031 0125 1000 0000 0875 0000 1000 0000 %0153 R01 005900 -05865 003151 0125 1000 0125 0875 0000 0875 0000 %0154 R02 005918 -05547 002133 0125 1000 0250 0875 0000 0750 0000 %0155 R03 005994 -05067 001018 0125 1000 0375 0875 0000 0625 0000 %0156 R04 006000 -04667 000030 0125 1000 0500 0875 0000 0500 0000 %0157 R05 005983 -04215 -01013 0125 1000 0625 0875 0000 0375 0000 %0158 R06 005968 -03896 -01651 0125 1000 0750 0875 0000 0250 0000 %0159 R07 005928 -03524 -02336 0125 1000 0875 0875 0000 0125 0000 %0160 R08 005549 -03225 -03586 0125 1000 1000 0875 0000 0000 0000 %0161 R09 002199 002166 000961 0250 0000 0000 0750 1000 1000 0000 %0162 S01 002059 002114 000377 0250 0000 0125 0750 1000 0875 0000 %0163 S02 002258 002795 -00482 0250 0000 0250 0750 1000 0750 0000 %0164 S03 002313 002884 -01387 0250 0000 0375 0750 1000 0625 0000 %0165 S04 002492 003033 -02046 0250 0000 0500 0750 1000 0500 0000 %0166 S05 002615 003271 -02466 0250 0000 0625 0750 1000 0375 0000 %0167 S06 002799 003539 -02977 0250 0000 0750 0750 1000 0250 0000 %0168 S07 002954 003848 -03337 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003089 003944 -03573 0250 0000 1000 0750 1000 0000 0000 %0170 S09 002517 001088 001626 0250 0125 0000 0750 0875 1000 0000 %0171 T01 003073 001144 001165 0250 0125 0125 0750 0875 0875 0000 %0172 T02 003187 001897 -00833 0250 0125 0250 0750 0875 0750 0000 %0173 T03 003203 001986 -01855 0250 0125 0375 0750 0875 0625 0000 %0174 T04 003337 002280 -02484 0250 0125 0500 0750 0875 0500 0000 %0175 T05 003464 002669 -02938 0250 0125 0625 0750 0875 0375 0000 %0176 T06 003574 002942 -03496 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003476 003214 -03772 0250 0125 0875 0750 0875 0125 0000 %0178 T08 003480 003099 -03839 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003533 -00611 003108 0250 0250 0000 0750 0750 1000 0000 %0180 U01 004091 -00642 002153 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003809 -00001 -00128 0250 0250 0250 0750 0750 0750 0000 %0182 U03 003858 000370 -01754 0250 0250 0375 0750 0750 0625 0000 %0183 U04 004091 000732 -02345 0250 0250 0500 0750 0750 0500 0000 %0184 U05 004300 001192 -02823 0250 0250 0625 0750 0750 0375 0000 %0185 U06 004418 001436 -03222 0250 0250 0750 0750 0750 0250 0000 %0186 U07 003951 002121 -03951 0250 0250 0875 0750 0750 0125 0000 %0187 U08 003764 002249 -04026 0250 0250 1000 0750 0750 0000 0000 %0188 U09 003689 -01507 003060 0250 0375 0000 0750 0625 1000 0000 %0189 V01 004643 -01725 002195 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004634 -01320 000526 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004650 -00951 -01501 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004695 -00480 -02243 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004802 -00113 -02627 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004872 000109 -03001 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004701 000599 -03976 0250 0375 0875 0750 0625 0125 0000 %0196 V08 004355 001063 -04086 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004243 -02783 003405 0250 0500 0000 0750 0500 1000 0000 %0198 W01 005059 -02662 002498 0250 0500 0125 0750 0500 0875 0000 %0199 W02 004958 -02314 000978 0250 0500 0250 0750 0500 0750 0000 %0200 W03 004971 -01821 -00554 0250 0500 0375 0750 0500 0625 0000 %0201 W04 005166 -01399 -01970 0250 0500 0500 0750 0500 0500 0000 %0202 W05 005173 -00940 -02542 0250 0500 0625 0750 0500 0375 0000 %0203 W06 005218 -00782 -02937 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005210 -00594 -03728 0250 0500 0875 0750 0500 0125 0000 %0205 W08 004584 000075 -04248 0250 0500 1000 0750 0500 0000 0000 %0206 W09 004913 -03862 003829 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005367 -03519 002968 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005402 -02984 001498 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005497 -02675 000240 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005575 -02222 -01058 0250 0625 0500 0750 0375 0500 0000 %0211 X05 005529 -01720 -02347 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005583 -01404 -02898 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005572 -01169 -03409 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005372 -01119 -04113 0250 0625 1000 0750 0375 0000 0000 %0215 X09 005787 -04397 004468 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 005808 -04057 003172 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 005897 -03572 001932 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 005992 -03272 000879 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 006117 -02870 -00274 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 006086 -02418 -01592 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 006022 -02063 -02600 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 006029 -01809 -03165 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 005984 -01732 -03915 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 006365 -04995 004832 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 006512 -04955 003894 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 006647 -04489 002516 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 006669 -04154 001406 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 006700 -03703 000218 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 006686 -03311 -00706 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 006435 -02818 -01837 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 006422 -02351 -02986 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 006347 -02040 -03536 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006406 -05217 004782 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006592 -04793 003656 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006460 -04795 002736 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006419 -04559 001619 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006485 -04110 000570 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006452 -03652 -00728 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006506 -03249 -01385 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006459 -02902 -02198 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006066 -02702 -03356 0250 1000 1000 0750 0000 0000 0000 %0242 a09 002707 002991 001578 0375 0000 0000 0625 1000 1000 0000 %0243 A10 002657 003097 000811 0375 0000 0125 0625 1000 0875 0000 %0244 A11 002613 003290 000083 0375 0000 0250 0625 1000 0750 0000 %0245 A12 002726 003770 -00866 0375 0000 0375 0625 1000 0625 0000 %0246 A13 002792 003758 -01519 0375 0000 0500 0625 1000 0500 0000 %0247 A14 002880 003834 -01969 0375 0000 0625 0625 1000 0375 0000 %0248 A15 002934 004060 -02493 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003146 004266 -02927 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003274 004462 -03156 0375 0000 1000 0625 1000 0000 0000 %0251 A18 003112 001979 002480 0375 0125 0000 0625 0875 1000 0000 %0252 B10 003598 001984 001795 0375 0125 0125 0625 0875 0875 0000 %0253 B11 003509 002445 000359 0375 0125 0250 0625 0875 0750 0000 %0254 B12 003559 003074 -01079 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003474 003215 -01797 0375 0125 0500 0625 0875 0500 0000 %0256 B14 003518 003343 -02402 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003619 003668 -02943 0375 0125 0750 0625 0875 0250 0000 %0258 B16 003557 003990 -03335 0375 0125 0875 0625 0875 0125 0000 %0259 B17 003619 003819 -03392 0375 0125 1000 0625 0875 0000 0000 %0260 B18 003667 000441 003329 0375 0250 0000 0625 0750 1000 0000 %0261 C10 004450 000325 002612 0375 0250 0125 0625 0750 0875 0000 %0262 C11 004366 000868 000801 0375 0250 0250 0625 0750 0750 0000 %0263 C12 004447 001343 -00912 0375 0250 0375 0625 0750 0625 0000 %0264 C13 004328 001652 -01833 0375 0250 0500 0625 0750 0500 0000 %0265 C14 004301 002018 -02473 0375 0250 0625 0625 0750 0375 0000 %0266 C15 004415 002096 -02902 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004121 002880 -03540 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004022 002864 -03654 0375 0250 1000 0625 0750 0000 0000 %0269 C18 004789 -00811 004546 0375 0375 0000 0625 0625 1000 0000 %0270 D10 005432 -00962 003599 0375 0375 0125 0625 0625 0875 0000 %0271 D11 005348 -00632 001480 0375 0375 0250 0625 0625 0750 0000 %0272 D12 005190 000007 -00133 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004931 000252 -01620 0375 0375 0500 0625 0625 0500 0000 %0274 D14 004967 000679 -02275 0375 0375 0625 0625 0625 0375 0000 %0275 D15 004978 000967 -02772 0375 0375 0750 0625 0625 0250 0000 %0276 D16 004884 001654 -03521 0375 0375 0875 0625 0625 0125 0000 %0277 D17 004595 001871 -03650 0375 0375 1000 0625 0625 0000 0000 %0278 D18 004834 -01573 004460 0375 0500 0000 0625 0500 1000 0000 %0279 E10 005679 -01763 003831 0375 0500 0125 0625 0500 0875 0000 %0280 E11 005704 -01560 001828 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005684 -01273 000397 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005612 -00871 -01314 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005470 -00430 -02125 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005491 -00239 -02594 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005607 000232 -03319 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005200 000808 -03593 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005315 -02549 004616 0375 0625 0000 0625 0375 1000 0000 %0288 F10 006020 -02631 004065 0375 0625 0125 0625 0375 0875 0000 %0289 F11 006078 -02424 002135 0375 0625 0250 0625 0375 0750 0000 %0290 F12 006048 -02148 000640 0375 0625 0375 0625 0375 0625 0000 %0291 F13 006155 -01769 -00510 0375 0625 0500 0625 0375 0500 0000 %0292 F14 006103 -01462 -01793 0375 0625 0625 0625 0375 0375 0000 %0293 F15 006006 -01083 -02574 0375 0625 0750 0625 0375 0250 0000 %0294 F16 006073 -00804 -03017 0375 0625 0875 0625 0375 0125 0000 %0295 F17 005673 -00446 -03677 0375 0625 1000 0625 0375 0000 0000 %0296 F18 006124 -03271 005194 0375 0750 0000 0625 0250 1000 0000 %0297 G10 006486 -03411 004405 0375 0750 0125 0625 0250 0875 0000 %0298 G11 006523 -03097 002482 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006473 -02881 001266 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006606 -02492 000228 0375 0750 0500 0625 0250 0500 0000 %0301 G14 006519 -02217 -01124 0375 0750 0625 0625 0250 0375 0000 %0302 G15 006538 -01934 -02261 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006535 -01521 -02925 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006492 -01390 -03398 0375 0750 1000 0625 0250 0000 0000 %0305 G18 006669 -04085 005455 0375 0875 0000 0625 0125 1000 0000 %0306 H10 007029 -04086 004751 0375 0875 0125 0625 0125 0875 0000 %0307 H11 006984 -03753 002709 0375 0875 0250 0625 0125 0750 0000 %0308 H12 007074 -03601 001800 0375 0875 0375 0625 0125 0625 0000 %0309 H13 007168 -03327 000697 0375 0875 0500 0625 0125 0500 0000 %0310 H14 007104 -02992 -00194 0375 0875 0625 0625 0125 0375 0000 %0311 H15 007012 -02658 -01361 0375 0875 0750 0625 0125 0250 0000 %0312 H16 007016 -02189 -02716 0375 0875 0875 0625 0125 0125 0000 %0313 H17 006920 -01817 -03206 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006920 -04460 005576 0375 1000 0000 0625 0000 1000 0000 %0315 I10 006952 -04325 004583 0375 1000 0125 0625 0000 0875 0000 %0316 I11 007088 -03931 002852 0375 1000 0250 0625 0000 0750 0000 %0317 I12 007016 -03835 002049 0375 1000 0375 0625 0000 0625 0000 %0318 I13 007038 -03625 001165 0375 1000 0500 0625 0000 0500 0000 %0319 I14 007076 -03225 000046 0375 1000 0625 0625 0000 0375 0000 %0320 I15 007046 -02912 -01005 0375 1000 0750 0625 0000 0250 0000 %0321 I16 007031 -02529 -01877 0375 1000 0875 0625 0000 0125 0000 %0322 I17 006916 -02195 -02858 0375 1000 1000 0625 0000 0000 0000 %0323 I18 003102 003797 002133 0500 0000 0000 0500 1000 1000 0000 %0324 J10 003103 003771 001605 0500 0000 0125 0500 1000 0875 0000 %0325 J11 003035 003871 000788 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003024 004120 -00281 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003115 004497 -01050 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003181 004559 -01612 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003245 004655 -02176 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003394 004756 -02592 0500 0000 0875 0500 1000 0125 0000 %0331 J17 003501 004879 -02833 0500 0000 1000 0500 1000 0000 0000 %0332 J18 003471 002813 003076 0500 0125 0000 0500 0875 1000 0000 %0333 K10 003744 003098 002677 0500 0125 0125 0500 0875 0875 0000 %0334 K11 003785 002951 001132 0500 0125 0250 0500 0875 0750 0000 %0335 K12 003784 003477 -00078 0500 0125 0375 0500 0875 0625 0000 %0336 K13 003746 004014 -01134 0500 0125 0500 0500 0875 0500 0000 %0337 K14 003737 004220 -01782 0500 0125 0625 0500 0875 0375 0000 %0338 K15 003855 004287 -02392 0500 0125 0750 0500 0875 0250 0000 %0339 K16 003833 004589 -02965 0500 0125 0875 0500 0875 0125 0000 %0340 K17 003796 004269 -03135 0500 0125 1000 0500 0875 0000 0000 %0341 K18 003998 001198 003736 0500 0250 0000 0500 0750 1000 0000 %0342 L10 004723 001176 003235 0500 0250 0125 0500 0750 0875 0000 %0343 L11 004608 001510 001530 0500 0250 0250 0500 0750 0750 0000 %0344 L12 004646 001945 000151 0500 0250 0375 0500 0750 0625 0000 %0345 L13 004712 002494 -01122 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004560 002765 -01834 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004614 002802 -02342 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004430 003400 -03153 0500 0250 0875 0500 0750 0125 0000 %0349 L17 004278 003430 -03246 0500 0250 1000 0500 0750 0000 0000 %0350 L18 004701 -00002 004468 0500 0375 0000 0500 0625 1000 0000 %0351 M10 005372 -00010 004098 0500 0375 0125 0500 0625 0875 0000 %0352 M11 005530 000226 002141 0500 0375 0250 0500 0625 0750 0000 %0353 M12 005422 000679 000564 0500 0375 0375 0500 0625 0625 0000 %0354 M13 005453 001116 -00858 0500 0375 0500 0500 0625 0500 0000 %0355 M14 005296 001576 -01669 0500 0375 0625 0500 0625 0375 0000 %0356 M15 005261 001714 -02206 0500 0375 0750 0500 0625 0250 0000 %0357 M16 005117 002257 -03111 0500 0375 0875 0500 0625 0125 0000 %0358 M17 004982 002274 -03219 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005703 -00943 005586 0500 0500 0000 0500 0500 1000 0000 %0360 N10 006323 -01026 004967 0500 0500 0125 0500 0500 0875 0000 %0361 N11 006327 -00886 002911 0500 0500 0250 0500 0500 0750 0000 %0362 N12 006230 -00588 001247 0500 0500 0375 0500 0500 0625 0000 %0363 N13 006102 000012 -00104 0500 0500 0500 0500 0500 0500 0000 %0364 N14 005942 000289 -01513 0500 0500 0625 0500 0500 0375 0000 %0365 N15 005873 000540 -02072 0500 0500 0750 0500 0500 0250 0000 %0366 N16 005971 001010 -02869 0500 0500 0875 0500 0500 0125 0000 %0367 N17 005590 001203 -03136 0500 0500 1000 0500 0500 0000 0000 %0368 N18 005945 -01536 005723 0500 0625 0000 0500 0375 1000 0000 %0369 O10 006582 -01706 005242 0500 0625 0125 0500 0375 0875 0000 %0370 O11 006655 -01564 003221 0500 0625 0250 0500 0375 0750 0000 %0371 O12 006618 -01410 001679 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006654 -01121 000210 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006629 -00841 -01346 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006530 -00390 -01894 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006494 -00171 -02606 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006174 000168 -03093 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006688 -02383 006168 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006929 -02583 005631 0500 0750 0125 0500 0250 0875 0000 %0379 P11 007080 -02283 003370 0500 0750 0250 0500 0250 0750 0000 %0380 P12 007098 -02235 002160 0500 0750 0375 0500 0250 0625 0000 %0381 P13 007110 -01922 000925 0500 0750 0500 0500 0250 0500 0000 %0382 P14 007108 -01634 -00407 0500 0750 0625 0500 0250 0375 0000 %0383 P15 007086 -01463 -01763 0500 0750 0750 0500 0250 0250 0000 %0384 P16 007052 -01083 -02454 0500 0750 0875 0500 0250 0125 0000 %0385 P17 006748 -00838 -03025 0500 0750 1000 0500 0250 0000 0000 %0386 P18 007244 -03197 006497 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 007447 -03287 005838 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 007455 -03001 003453 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 007396 -03016 002389 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007513 -02807 001322 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007609 -02526 000459 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007549 -02246 -00856 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007539 -01805 -02251 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 007248 -01523 -02826 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 007380 -03892 006325 0500 1000 0000 0500 0000 1000 0000 %0396 R10 007478 -03738 005507 0500 1000 0125 0500 0000 0875 0000 %0397 R11 007432 -03624 003886 0500 1000 0250 0500 0000 0750 0000 %0398 R12 007558 -03252 002458 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007665 -02968 001593 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007665 -02736 000724 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007613 -02464 -00465 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007518 -02184 -01524 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007418 -01843 -02504 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003425 004374 002559 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003476 004361 002166 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003440 004457 001450 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003397 004650 000401 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003400 004918 -00451 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003458 005156 -01121 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003542 005250 -01690 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003652 005246 -02208 0625 0000 0875 0375 1000 0125 0000 %0412 S17 003744 005389 -02462 0625 0000 1000 0375 1000 0000 0000 %0413 S18 003761 003877 003512 0625 0125 0000 0375 0875 1000 0000 %0414 T10 004017 004116 003396 0625 0125 0125 0375 0875 0875 0000 %0415 T11 004115 003542 001730 0625 0125 0250 0375 0875 0750 0000 %0416 T12 004056 003901 000704 0625 0125 0375 0375 0875 0625 0000 %0417 T13 004016 004387 -00368 0625 0125 0500 0375 0875 0500 0000 %0418 T14 003987 004790 -01198 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004063 004869 -01909 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004153 005017 -02396 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004107 004694 -02774 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004457 002102 004264 0625 0250 0000 0375 0750 1000 0000 %0423 U10 004897 002109 003924 0625 0250 0125 0375 0750 0875 0000 %0424 U11 004959 002220 002046 0625 0250 0250 0375 0750 0750 0000 %0425 U12 004894 002567 000936 0625 0250 0375 0375 0750 0625 0000 %0426 U13 004963 003003 -00188 0625 0250 0500 0375 0750 0500 0000 %0427 U14 004932 003348 -01240 0625 0250 0625 0375 0750 0375 0000 %0428 U15 004945 003455 -01733 0625 0250 0750 0375 0750 0250 0000 %0429 U16 004884 003929 -02593 0625 0250 0875 0375 0750 0125 0000 %0430 U17 004549 003982 -02806 0625 0250 1000 0375 0750 0000 0000 %0431 U18 004962 000858 004747 0625 0375 0000 0375 0625 1000 0000 %0432 V10 005592 000934 004463 0625 0375 0125 0375 0625 0875 0000 %0433 V11 005721 001033 002576 0625 0375 0250 0375 0625 0750 0000 %0434 V12 005771 001249 001304 0625 0375 0375 0375 0625 0625 0000 %0435 V13 005831 001702 000083 0625 0375 0500 0375 0625 0500 0000 %0436 V14 005752 002075 -01082 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005608 002321 -01640 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005588 002945 -02455 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005232 002948 -02784 0625 0375 1000 0375 0625 0000 0000 %0440 V18 005802 -00148 005722 0625 0500 0000 0375 0500 1000 0000 %0441 W10 006367 -00233 005407 0625 0500 0125 0375 0500 0875 0000 %0442 W11 006542 -00082 003365 0625 0500 0250 0375 0500 0750 0000 %0443 W12 006495 000233 001984 0625 0500 0375 0375 0500 0625 0000 %0444 W13 006449 000702 000491 0625 0500 0500 0375 0500 0500 0000 %0445 W14 006427 001034 -00872 0625 0500 0625 0375 0500 0375 0000 %0446 W15 006216 001334 -01540 0625 0500 0750 0375 0500 0250 0000 %0447 W16 006348 001834 -02311 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006003 001856 -02595 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006938 -01118 006926 0625 0625 0000 0375 0375 1000 0000 %0450 X10 007185 -01117 006592 0625 0625 0125 0375 0375 0875 0000 %0451 X11 007255 -00970 004121 0625 0625 0250 0375 0375 0750 0000 %0452 X12 007216 -00749 002727 0625 0625 0375 0375 0375 0625 0000 %0453 X13 007169 -00439 001087 0625 0625 0500 0375 0375 0500 0000 %0454 X14 007066 000013 -00065 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006883 000262 -01405 0625 0625 0750 0375 0375 0250 0000 %0456 X16 006901 000566 -02065 0625 0625 0875 0375 0375 0125 0000 %0457 X17 006673 000707 -02522 0625 0625 1000 0375 0375 0000 0000 %0458 X18 007461 -01659 007441 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 007635 -01798 006512 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 007658 -01660 004384 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 007620 -01545 003032 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 007597 -01383 001858 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 007611 -01194 000388 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 007554 -00882 -01185 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007477 -00456 -01867 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007261 -00450 -02445 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 007937 -02335 007567 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 008017 -02409 006729 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007939 -02204 004216 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007933 -02267 003145 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007950 -02140 001985 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 008066 -01893 001086 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 008055 -01678 -00281 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 008102 -01380 -01675 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007793 -01218 -02242 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 008030 -03138 007213 0625 1000 0000 0375 0000 1000 0000 %0477 a10 008207 -02941 006506 0625 1000 0125 0375 0000 0875 0000 %0478 a11 008118 -02945 005046 0625 1000 0250 0375 0000 0750 0000 %0479 a12 007995 -02904 003595 0625 1000 0375 0375 0000 0625 0000 %0480 a13 008098 -02569 002197 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008239 -02217 001396 0625 1000 0625 0375 0000 0375 0000 %0482 a15 008237 -01965 000363 0625 1000 0750 0375 0000 0250 0000 %0483 a16 008088 -01678 -01005 0625 1000 0875 0375 0000 0125 0000 %0484 a17 007977 -01414 -02016 0625 1000 1000 0375 0000 0000 0000 %0485 a18 003885 004936 002623 0750 0000 0000 0250 1000 1000 0000 %0486 A19 003796 004924 002293 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003756 005028 001730 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003681 005144 001026 0750 0000 0375 0250 1000 0625 0000 %0489 A22 003612 005313 000212 0750 0000 0500 0250 1000 0500 0000 %0490 A23 003605 005494 -00693 0750 0000 0625 0250 1000 0375 0000 %0491 A24 003590 005558 -01286 0750 0000 0750 0250 1000 0250 0000 %0492 A25 003739 005733 -01844 0750 0000 0875 0250 1000 0125 0000 %0493 A26 003937 005922 -02151 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004385 005035 004165 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004451 004276 003244 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004393 004337 002179 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004248 004567 001406 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004268 004653 000549 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004178 005179 -00477 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004127 005544 -01437 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004259 005501 -02006 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004345 005436 -02371 0750 0125 1000 0250 0875 0000 0000 %0503 B27 005317 002767 005177 0750 0250 0000 0250 0750 1000 0000 %0504 C19 005254 002810 004251 0750 0250 0125 0250 0750 0875 0000 %0505 C20 005234 002893 002601 0750 0250 0250 0250 0750 0750 0000 %0506 C21 005158 003083 001716 0750 0250 0375 0250 0750 0625 0000 %0507 C22 005164 003261 000783 0750 0250 0500 0250 0750 0500 0000 %0508 C23 005122 003728 -00277 0750 0250 0625 0250 0750 0375 0000 %0509 C24 004977 004079 -01367 0750 0250 0750 0250 0750 0250 0000 %0510 C25 005075 004361 -01937 0750 0250 0875 0250 0750 0125 0000 %0511 C26 004915 004522 -02432 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005773 001571 005676 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005898 001687 005146 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005974 001710 003112 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005935 001890 002065 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005886 002100 001184 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005847 002620 -00037 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005702 003028 -01249 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005701 003634 -01889 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005471 003744 -02329 0750 0375 1000 0250 0625 0000 0000 %0521 D27 006283 000674 006208 0750 0500 0000 0250 0500 1000 0000 %0522 E19 006460 000694 005854 0750 0500 0125 0250 0500 0875 0000 %0523 E20 006616 000681 003714 0750 0500 0250 0250 0500 0750 0000 %0524 E21 006591 000850 002734 0750 0500 0375 0250 0500 0625 0000 %0525 E22 006528 001116 001625 0750 0500 0500 0250 0500 0500 0000 %0526 E23 006482 001600 000310 0750 0500 0625 0250 0500 0375 0000 %0527 E24 006291 002126 -01088 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006396 002494 -01718 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006263 002884 -02086 0750 0500 1000 0250 0500 0000 0000 %0530 E27 007242 -00284 007223 0750 0625 0000 0250 0375 1000 0000 %0531 F19 007262 -00294 006575 0750 0625 0125 0250 0375 0875 0000 %0532 F20 007301 -00249 004491 0750 0625 0250 0250 0375 0750 0000 %0533 F21 007282 -00049 003432 0750 0625 0375 0250 0375 0625 0000 %0534 F22 007199 000229 002345 0750 0625 0500 0250 0375 0500 0000 %0535 F23 007140 000665 000752 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006981 001048 -00864 0750 0625 0750 0250 0375 0250 0000 %0537 F25 007073 001426 -01609 0750 0625 0875 0250 0375 0125 0000 %0538 F26 006976 001772 -01967 0750 0625 1000 0250 0375 0000 0000 %0539 F27 008304 -01248 008366 0750 0750 0000 0250 0250 1000 0000 %0540 G19 008055 -01161 007510 0750 0750 0125 0250 0250 0875 0000 %0541 G20 008030 -01062 005296 0750 0750 0250 0250 0250 0750 0000 %0542 G21 007960 -00885 004172 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007911 -00796 003125 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007864 -00486 001509 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007701 000016 -00015 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007725 000183 -01286 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007700 000420 -01875 0750 0750 1000 0250 0250 0000 0000 %0548 G27 008871 -01700 008963 0750 0875 0000 0250 0125 1000 0000 %0549 H19 008595 -01865 008010 0750 0875 0125 0250 0125 0875 0000 %0550 H20 008423 -01778 005451 0750 0875 0250 0250 0125 0750 0000 %0551 H21 008355 -01745 004384 0750 0875 0375 0250 0125 0625 0000 %0552 H22 008390 -01689 003523 0750 0875 0500 0250 0125 0500 0000 %0553 H23 008347 -01461 002399 0750 0875 0625 0250 0125 0375 0000 %0554 H24 008437 -01343 000841 0750 0875 0750 0250 0125 0250 0000 %0555 H25 008447 -00904 -01093 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008396 -00960 -01635 0750 0875 1000 0250 0125 0000 0000 %0557 H27 008864 -02324 008610 0750 1000 0000 0250 0000 1000 0000 %0558 I19 008737 -02330 007281 0750 1000 0125 0250 0000 0875 0000 %0559 I20 008721 -02377 005743 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008647 -02400 004835 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008596 -02348 003857 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008602 -02156 002636 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008719 -01852 001671 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008570 -01588 000026 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008447 -01178 -01469 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004301 005557 003254 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004259 005566 002891 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004166 005627 002246 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004127 005735 001569 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004108 005882 000873 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004080 006096 000009 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004048 006343 -00863 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004118 006392 -01468 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004192 006430 -01754 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004976 005216 004867 0875 0125 0000 0125 0875 1000 0000 %0576 K19 004937 005157 004032 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004832 005214 002842 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004744 005371 002048 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004644 005583 001227 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004690 005884 000390 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004618 006226 -00771 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004671 006168 -01673 0875 0125 0875 0125 0875 0125 0000 %0583 K26 004660 005905 -01937 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005892 003355 005776 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005698 003468 004806 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005645 003605 003198 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005584 003812 002364 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005521 003948 001546 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005522 004289 000657 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005511 004662 -00394 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005464 004855 -01526 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005375 004974 -01874 0875 0250 1000 0125 0750 0000 0000 %0593 L27 006495 002377 006335 0875 0375 0000 0125 0625 1000 0000 %0594 M19 006298 002424 005140 0875 0375 0125 0125 0625 0875 0000 %0595 M20 006295 002520 003501 0875 0375 0250 0125 0625 0750 0000 %0596 M21 006234 002687 002515 0875 0375 0375 0125 0625 0625 0000 %0597 M22 006220 002837 001785 0875 0375 0500 0125 0625 0500 0000 %0598 M23 006215 003111 000948 0875 0375 0625 0125 0625 0375 0000 %0599 M24 006124 003716 -00236 0875 0375 0750 0125 0625 0250 0000 %0600 M25 006101 003961 -01465 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006001 004022 -01834 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006961 001333 006884 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006990 001337 006004 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006927 001354 003983 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006913 001490 003118 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006868 001744 002234 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006871 002085 001247 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006789 002658 000000 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006763 002908 -01248 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006812 003155 -01532 0875 0500 1000 0125 0500 0000 0000 %0611 N27 007576 000552 007561 0875 0625 0000 0125 0375 1000 0000 %0612 O19 007539 000445 006978 0875 0625 0125 0125 0375 0875 0000 %0613 O20 007560 000425 004727 0875 0625 0250 0125 0375 0750 0000 %0614 O21 007474 000662 003747 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007490 000747 002827 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007443 000998 001829 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007338 001588 000441 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007345 002030 -01022 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007479 002290 -01337 0875 0625 1000 0125 0375 0000 0000 %0620 O27 008390 -00209 008442 0875 0750 0000 0125 0250 1000 0000 %0621 P19 008172 -00386 007589 0875 0750 0125 0125 0250 0875 0000 %0622 P20 008156 -00285 005332 0875 0750 0250 0125 0250 0750 0000 %0623 P21 008153 -00105 004396 0875 0750 0375 0125 0250 0625 0000 %0624 P22 008105 000037 003450 0875 0750 0500 0125 0250 0500 0000 %0625 P23 008079 000275 002471 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007982 000628 000947 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007996 001139 -00832 0875 0750 0875 0125 0250 0125 0000 %0628 P26 008131 001265 -01189 0875 0750 1000 0125 0250 0000 0000 %0629 P27 009001 -01233 009063 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 008844 -01170 008109 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008773 -01053 006154 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008759 -00981 005111 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008762 -00834 004281 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008788 -00749 003319 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008861 -00559 001721 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008878 000012 -00013 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008763 000175 -00986 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 009356 -01759 009267 0875 1000 0000 0125 0000 1000 0000 %0639 R19 009149 -01660 008250 0875 1000 0125 0125 0000 0875 0000 %0640 R20 009076 -01584 006334 0875 1000 0250 0125 0000 0750 0000 %0641 R21 009030 -01721 005349 0875 1000 0375 0125 0000 0625 0000 %0642 R22 009018 -01734 004557 0875 1000 0500 0125 0000 0500 0000 %0643 R23 009143 -01683 003759 0875 1000 0625 0125 0000 0375 0000 %0644 R24 009171 -01478 002584 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009168 -01076 000853 0875 1000 0875 0125 0000 0125 0000 %0646 R26 009027 -00751 -00770 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004653 006117 003710 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004591 006113 003261 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004523 006157 002591 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004464 006228 001964 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004461 006380 001347 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004491 006596 000701 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004509 006851 -00114 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004502 007041 -00887 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004544 007038 -01195 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005262 005589 005230 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005126 005865 004575 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005050 006131 003512 1000 0125 0250 0000 0875 0750 0000 %0659 T21 004959 006427 002561 1000 0125 0375 0000 0875 0625 0000 %0660 T22 004942 006613 001855 1000 0125 0500 0000 0875 0500 0000 %0661 T23 004889 006930 000928 1000 0125 0625 0000 0875 0375 0000 %0662 T24 004905 007170 -00013 1000 0125 0750 0000 0875 0250 0000 %0663 T25 004951 007390 -00801 1000 0125 0875 0000 0875 0125 0000 %0664 T26 004957 006844 -01215 1000 0125 1000 0000 0875 0000 0000 %0665 T27 006024 004068 005987 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005901 004322 005388 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005880 004461 004347 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005750 004904 003058 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005654 005256 002231 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005672 005445 001287 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005683 005757 000208 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005788 005992 -00896 1000 0250 0875 0000 0750 0125 0000 %0673 U26 005802 005625 -01309 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006626 002923 006533 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006526 003148 005797 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006465 003356 004826 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006462 003574 003403 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006459 003781 002542 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006424 004076 001606 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006448 004356 000572 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006525 004705 -00588 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006574 004837 -01094 1000 0375 1000 0000 0625 0000 0000 %0683 V27 007154 001932 007097 1000 0500 0000 0000 0500 1000 0000 %0684 W19 007143 001992 006379 1000 0500 0125 0000 0500 0875 0000 %0685 W20 007160 002133 004893 1000 0500 0250 0000 0500 0750 0000 %0686 W21 007130 002371 003790 1000 0500 0375 0000 0500 0625 0000 %0687 W22 007211 002451 002875 1000 0500 0500 0000 0500 0500 0000 %0688 W23 007227 002693 001879 1000 0500 0625 0000 0500 0375 0000 %0689 W24 007204 003080 000805 1000 0500 0750 0000 0500 0250 0000 %0690 W25 007218 003563 -00405 1000 0500 0875 0000 0500 0125 0000 %0691 W26 007201 003834 -00979 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007547 001229 007551 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007679 001038 006840 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007722 001119 005541 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007721 001328 004249 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007797 001408 003446 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007866 001564 002479 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007877 001939 001250 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007886 002491 -00122 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007819 002898 -00848 1000 0625 1000 0000 0375 0000 0000 %0701 X27 008250 000037 007867 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 008286 000101 006576 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 008303 000205 005633 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 008284 000386 004718 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008361 000440 004030 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008395 000658 002999 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008558 000825 001753 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008440 001587 000246 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008478 001940 -00671 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008723 -00636 007269 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008764 -00625 006653 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008744 -00434 005615 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008767 -00317 004802 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008816 -00230 004194 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008843 -00103 003504 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 009129 -00218 002555 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 009077 000376 001114 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 009147 000924 -00365 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009172 -01411 008392 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009183 -01357 007598 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009190 -01179 006214 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009305 -01206 005414 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009357 -01124 004797 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009392 -00990 003990 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009567 -01066 003327 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009647 -00719 001994 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009713 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009748 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009081 -00682 -00708 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008540 -01045 -01384 0750 1000 1000 0250 0000 0000 0000 %0731 b03 008056 -01367 -01903 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007517 -01676 -02455 0500 1000 1000 0500 0000 0000 0000 %0733 b05 006953 -02044 -02838 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006129 -02639 -03319 0250 1000 1000 0750 0000 0000 0000 %0735 b07 005556 -03136 -03584 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005169 -03269 -03901 0000 1000 1000 1000 0000 0000 0000 %0737 b09 009162 000371 000886 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008928 000007 000014 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008575 -00780 -01020 0750 0875 0875 0250 0125 0125 0000 %0740 c03 008200 -01280 -01570 0625 0875 0875 0375 0125 0125 0000 %0741 c04 007650 -01674 -02118 0500 0875 0875 0500 0125 0125 0000 %0742 c05 007064 -01993 -02681 0375 0875 0875 0625 0125 0125 0000 %0743 c06 006447 -02293 -02943 0250 0875 0875 0750 0125 0125 0000 %0744 c07 005773 -03025 -03357 0125 0875 0875 0875 0125 0125 0000 %0745 c08 005046 -03437 -03763 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008678 000813 001380 1000 0750 0750 0000 0250 0250 0000 %0747 d01 008174 000567 000720 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007918 000015 -00033 0750 0750 0750 0250 0250 0250 0000 %0749 d03 007572 -00775 -01123 0625 0750 0750 0375 0250 0250 0000 %0750 d04 007153 -01313 -01678 0500 0750 0750 0500 0250 0250 0000 %0751 d05 006609 -01750 -02248 0375 0750 0750 0625 0250 0250 0000 %0752 d06 006043 -02027 -02641 0250 0750 0750 0750 0250 0250 0000 %0753 d07 005578 -02775 -03105 0125 0750 0750 0875 0250 0250 0000 %0754 d08 004998 -03778 -03466 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007993 001505 002069 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007624 000911 001600 0875 0625 0625 0125 0375 0375 0000 %0757 e02 007375 000625 000598 0750 0625 0625 0250 0375 0375 0000 %0758 e03 007080 000009 -00077 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006714 -00753 -01271 0500 0625 0625 0500 0375 0375 0000 %0760 e05 006192 -01349 -01736 0375 0625 0625 0625 0375 0375 0000 %0761 e06 005595 -01693 -02355 0250 0625 0625 0750 0375 0375 0000 %0762 e07 005217 -02332 -02902 0125 0625 0625 0875 0375 0375 0000 %0763 e08 004800 -03572 -03429 0000 0625 0625 1000 0375 0375 0000 %0764 e09 007277 002367 002767 1000 0500 0500 0000 0500 0500 0000 %0765 f01 006990 001676 002102 0875 0500 0500 0125 0500 0500 0000 %0766 f02 006732 001057 001531 0750 0500 0500 0250 0500 0500 0000 %0767 f03 006416 000649 000566 0625 0500 0500 0375 0500 0500 0000 %0768 f04 006126 000003 -00085 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005694 -00801 -01274 0375 0500 0500 0625 0500 0500 0000 %0770 f06 005217 -01419 -02009 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004819 -01885 -02722 0125 0500 0500 0875 0500 0500 0000 %0772 f08 004332 -02869 -03514 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006462 003596 003315 1000 0375 0375 0000 0625 0625 0000 %0774 g01 006246 002644 002527 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005927 001930 001924 0750 0375 0375 0250 0625 0625 0000 %0776 g03 005605 001326 001393 0625 0375 0375 0375 0625 0625 0000 %0777 g04 005315 000708 000613 0500 0375 0375 0500 0625 0625 0000 %0778 g05 005113 000002 -00089 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004713 -01003 -01587 0250 0375 0375 0750 0625 0625 0000 %0780 g07 004513 -01572 -02214 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003874 -02644 -03136 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005931 004368 004251 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005636 003520 003301 0875 0250 0250 0125 0750 0750 0000 %0784 h02 005200 002862 002658 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004841 002153 002231 0625 0250 0250 0375 0750 0750 0000 %0786 h04 004531 001489 001626 0500 0250 0250 0500 0750 0750 0000 %0787 h05 004280 000897 000829 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003964 000000 -00090 0250 0250 0250 0750 0750 0750 0000 %0789 h07 003944 -01136 -01696 0125 0250 0250 0875 0750 0750 0000 %0790 h08 003397 -02081 -02844 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005148 005857 004460 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004911 005028 003903 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004465 004172 003202 0750 0125 0125 0250 0875 0875 0000 %0794 i03 003967 004032 003265 0625 0125 0125 0375 0875 0875 0000 %0795 i04 003733 002978 002518 0500 0125 0125 0500 0875 0875 0000 %0796 i05 003583 001952 001838 0375 0125 0125 0625 0875 0875 0000 %0797 i06 003365 001125 001184 0250 0125 0125 0750 0875 0875 0000 %0798 i07 002496 -00003 -00064 0125 0125 0125 0875 0875 0875 0000 %0799 i08 002876 -01579 -02311 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004582 006103 003608 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004141 005423 003177 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003801 004832 002616 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003378 004226 002363 0625 0000 0000 0375 1000 1000 0000 %0804 j04 003050 003570 001881 0500 0000 0000 0500 1000 1000 0000 %0805 j05 002726 002879 001494 0375 0000 0000 0625 1000 1000 0000 %0806 j06 002401 002322 000953 0250 0000 0000 0750 1000 1000 0000 %0807 j07 002151 001574 000464 0125 0000 0000 0875 1000 1000 0000 %0808 j08 001461 -00003 000021 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009730 000002 -00004 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008865 000139 -00844 0875 0875 1000 0125 0125 0000 0000 %0811 b11 007932 000258 -01652 0750 0750 1000 0250 0250 0000 0000 %0812 b12 006837 000661 -02335 0625 0625 1000 0375 0375 0000 0000 %0813 b13 005657 001204 -03040 0500 0500 1000 0500 0500 0000 0000 %0814 b14 004698 001814 -03478 0375 0375 1000 0625 0625 0000 0000 %0815 b15 003795 002297 -03873 0250 0250 1000 0750 0750 0000 0000 %0816 b16 003428 002387 -04004 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003119 002467 -04074 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009659 -00586 001584 1000 1000 0875 0000 0000 0125 0000 %0819 c10 009022 000017 -00011 0875 0875 0875 0125 0125 0125 0000 %0820 c11 008007 000095 -01172 0750 0750 0875 0250 0250 0125 0000 %0821 c12 007056 000500 -01920 0625 0625 0875 0375 0375 0125 0000 %0822 c13 006010 001041 -02784 0500 0500 0875 0500 0500 0125 0000 %0823 c14 004880 001669 -03393 0375 0375 0875 0625 0625 0125 0000 %0824 c15 003899 002157 -03854 0250 0250 0875 0750 0750 0125 0000 %0825 c16 003383 002367 -04015 0125 0125 0875 0875 0875 0125 0000 %0826 c17 002868 002480 -04111 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009593 -00972 002937 1000 1000 0750 0000 0000 0250 0000 %0828 d10 009004 -00432 001350 0875 0875 0750 0125 0125 0250 0000 %0829 d11 008041 000014 -00021 0750 0750 0750 0250 0250 0250 0000 %0830 d12 007008 000245 -01307 0625 0625 0750 0375 0375 0250 0000 %0831 d13 005954 000567 -01971 0500 0500 0750 0500 0500 0250 0000 %0832 d14 004984 001016 -02683 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004305 001567 -03227 0250 0250 0750 0750 0750 0250 0000 %0834 d16 003500 002125 -03872 0125 0125 0750 0875 0875 0250 0000 %0835 d17 002651 002500 -04306 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009408 -00944 003725 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008953 -00660 002843 0875 0875 0625 0125 0125 0375 0000 %0838 e11 008155 -00361 001070 0750 0750 0625 0250 0250 0375 0000 %0839 e12 007175 000014 -00082 0625 0625 0625 0375 0375 0375 0000 %0840 e13 006001 000300 -01476 0500 0500 0625 0500 0500 0375 0000 %0841 e14 004991 000711 -02253 0375 0375 0625 0625 0625 0375 0000 %0842 e15 004209 001336 -02901 0250 0250 0625 0750 0750 0375 0000 %0843 e16 003454 001914 -03559 0125 0125 0625 0875 0875 0375 0000 %0844 e17 002551 002454 -04427 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009349 -01104 004680 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008891 -00781 003846 0875 0875 0500 0125 0125 0500 0000 %0847 f11 008154 -00717 002720 0750 0750 0500 0250 0250 0500 0000 %0848 f12 007230 -00412 000946 0625 0625 0500 0375 0375 0500 0000 %0849 f13 006136 000009 -00082 0500 0500 0500 0500 0500 0500 0000 %0850 f14 004908 000308 -01656 0375 0375 0500 0625 0625 0500 0000 %0851 f15 003995 000871 -02508 0250 0250 0500 0750 0750 0500 0000 %0852 f16 003425 001416 -03070 0125 0125 0500 0875 0875 0500 0000 %0853 f17 002530 001977 -04264 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009288 -01195 005485 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008829 -00972 004943 0875 0875 0375 0125 0125 0625 0000 %0856 g11 008091 -00847 003831 0750 0750 0375 0250 0250 0625 0000 %0857 g12 007181 -00704 002587 0625 0625 0375 0375 0375 0625 0000 %0858 g13 006226 -00570 001258 0500 0500 0375 0500 0500 0625 0000 %0859 g14 005143 000013 -00083 0375 0375 0375 0625 0625 0625 0000 %0860 g15 003882 000396 -01893 0250 0250 0375 0750 0750 0625 0000 %0861 g16 003088 000802 -02646 0125 0125 0375 0875 0875 0625 0000 %0862 g17 002442 001151 -03649 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009196 -01192 006176 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008838 -01060 005898 0875 0875 0250 0125 0125 0750 0000 %0865 h11 008127 -01070 005027 0750 0750 0250 0250 0250 0750 0000 %0866 h12 007218 -00964 003996 0625 0625 0250 0375 0375 0750 0000 %0867 h13 006296 -00898 002985 0500 0500 0250 0500 0500 0750 0000 %0868 h14 005329 -00641 001540 0375 0375 0250 0625 0625 0750 0000 %0869 h15 004008 000005 -00077 0250 0250 0250 0750 0750 0750 0000 %0870 h16 003016 000526 -01964 0125 0125 0250 0875 0875 0750 0000 %0871 h17 002370 001024 -02886 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009201 -01382 007465 1000 1000 0125 0000 0000 0875 0000 %0873 i10 008905 -01215 007862 0875 0875 0125 0125 0125 0875 0000 %0874 i11 008119 -01185 007315 0750 0750 0125 0250 0250 0875 0000 %0875 i12 007163 -01106 006386 0625 0625 0125 0375 0375 0875 0000 %0876 i13 006298 -01002 004828 0500 0500 0125 0500 0500 0875 0000 %0877 i14 005457 -00947 003631 0375 0375 0125 0625 0625 0875 0000 %0878 i15 004496 -00691 002165 0250 0250 0125 0750 0750 0875 0000 %0879 i16 002595 000007 -00059 0125 0125 0125 0875 0875 0875 0000 %0880 i17 002618 000632 -01577 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009159 -01409 008425 1000 1000 0000 0000 0000 1000 0000 %0882 j10 009021 -01250 009029 0875 0875 0000 0125 0125 1000 0000 %0883 j11 008273 -01237 008214 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006867 -01090 006729 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005610 -00900 005369 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004762 -00766 004350 0375 0375 0000 0625 0625 1000 0000 %0887 j15 003876 -00701 003295 0250 0250 0000 0750 0750 1000 0000 %0888 j16 003064 -00393 002122 0125 0125 0000 0875 0875 1000 0000 %0889 j17 001696 000007 000007 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009734 -00002 000005 1000 1000 1000 0000 0000 0000 0000 %0891 b19 009189 000875 -00327 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008602 001751 -00589 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007984 002622 -00750 1000 0625 1000 0000 0375 0000 0000 %0894 b22 007320 003602 -00880 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006625 004694 -01010 1000 0375 1000 0000 0625 0000 0000 %0896 b24 005786 005600 -01190 1000 0250 1000 0000 0750 0000 0000 %0897 b25 004931 006830 -01096 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004514 006998 -01099 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009213 -00934 000593 0875 1000 0875 0125 0000 0125 0000 %0900 c19 009022 000012 000001 0875 0875 0875 0125 0125 0125 0000 %0901 c20 008185 000973 -00759 0875 0750 0875 0125 0250 0125 0000 %0902 c21 007554 001861 -00954 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006898 002846 -01147 0875 0500 0875 0125 0500 0125 0000 %0904 c23 006187 003864 -01366 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005469 004887 -01431 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004587 006208 -01514 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004081 006319 -01283 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008784 -01627 001211 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008577 -01196 000565 0750 0875 0750 0250 0125 0250 0000 %0910 d20 008037 000020 -00037 0750 0750 0750 0250 0250 0250 0000 %0911 d21 007314 000964 -00810 0750 0625 0750 0250 0375 0250 0000 %0912 d22 006517 002006 -01020 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005765 002967 -01182 0750 0375 0750 0250 0625 0250 0000 %0914 d24 004952 004139 -01286 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004126 005517 -01369 0750 0125 0750 0250 0875 0250 0000 %0916 d26 003533 005530 -01164 0750 0000 0750 0250 1000 0250 0000 %0917 d27 008267 -02246 001490 0625 1000 0625 0375 0000 0375 0000 %0918 e19 008092 -01947 001254 0625 0875 0625 0375 0125 0375 0000 %0919 e20 007642 -01192 000442 0625 0750 0625 0375 0250 0375 0000 %0920 e21 007118 000017 -00083 0625 0625 0625 0375 0375 0375 0000 %0921 e22 006343 001028 -00831 0625 0500 0625 0375 0500 0375 0000 %0922 e23 005519 002121 -01060 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004634 003368 -01180 0625 0250 0625 0375 0750 0375 0000 %0924 e25 003729 004637 -01123 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003170 004769 -00946 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007647 -02994 001628 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007519 -02835 001481 0500 0875 0500 0500 0125 0500 0000 %0928 f20 007098 -01970 001077 0500 0750 0500 0500 0250 0500 0000 %0929 f21 006655 -01166 000388 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005961 000009 -00070 0500 0500 0500 0500 0500 0500 0000 %0931 f23 005128 001147 -00835 0500 0375 0500 0500 0625 0500 0000 %0932 f24 004336 002493 -01065 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003420 003837 -01034 0500 0125 0500 0500 0875 0500 0000 %0934 f26 002761 003990 -00854 0500 0000 0500 0500 1000 0500 0000 %0935 f27 007033 -03865 002153 0375 1000 0375 0625 0000 0625 0000 %0936 g19 007083 -03625 001916 0375 0875 0375 0625 0125 0625 0000 %0937 g20 006444 -02913 001429 0375 0750 0375 0625 0250 0625 0000 %0938 g21 005970 -02225 000888 0375 0625 0375 0625 0375 0625 0000 %0939 g22 005489 -01340 000563 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004904 000007 -00085 0375 0375 0375 0625 0625 0625 0000 %0941 g24 003976 001490 -00864 0375 0250 0375 0625 0750 0625 0000 %0942 g25 003129 003084 -01015 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002391 003431 -00703 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006456 -04757 002591 0250 1000 0250 0750 0000 0750 0000 %0945 h19 006661 -04455 002449 0250 0875 0250 0750 0125 0750 0000 %0946 h20 005940 -03632 001873 0250 0750 0250 0750 0250 0750 0000 %0947 h21 005412 -03021 001404 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004892 -02391 001041 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004479 -01405 000603 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003711 000001 -00099 0250 0250 0250 0750 0750 0750 0000 %0951 h25 002950 001836 -00771 0250 0125 0250 0750 0875 0750 0000 %0952 h26 002143 002487 -00386 0250 0000 0250 0750 1000 0750 0000 %0953 h27 005890 -05681 002976 0125 1000 0125 0875 0000 0875 0000 %0954 i19 006053 -05505 003025 0125 0875 0125 0875 0125 0875 0000 %0955 i20 005591 -04686 002460 0125 0750 0125 0875 0250 0875 0000 %0956 i21 005139 -04082 001996 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004713 -03427 001603 0125 0500 0125 0875 0500 0875 0000 %0958 i23 004187 -02631 001011 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003777 -01643 000680 0125 0250 0125 0875 0750 0875 0000 %0960 i25 002308 -00004 -00050 0125 0125 0125 0875 0875 0875 0000 %0961 i26 001891 001529 -00254 0125 0000 0125 0875 1000 0875 0000 %0962 i27 005670 -06107 003321 0000 1000 0000 1000 0000 1000 0000 %0963 j19 005466 -06521 003383 0000 0875 0000 1000 0125 1000 0000 %0964 j20 005174 -06676 003110 0000 0750 0000 1000 0250 1000 0000 %0965 j21 004822 -06404 002818 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004417 -05872 002467 0000 0500 0000 1000 0500 1000 0000 %0967 j23 004013 -05395 002233 0000 0375 0000 1000 0625 1000 0000 %0968 j24 003436 -04524 001777 0000 0250 0000 1000 0750 1000 0000 %0969 j25 002995 -03476 001397 0000 0125 0000 1000 0875 1000 0000 %0970 j26 001610 -00004 -00028 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa0100 [ %BEG GE24_22_REM.TXT, Separation cmyn5*, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004653 006117 003710 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009172 -01411 008392 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z005674 -06368 003481 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005166 -03377 -03878 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003145 002322 -04327 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004544 007038 -01195 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z001537 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009713 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004582 006103 003608 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 009159 -01409 008425 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 005670 -06107 003321 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005169 -03269 -03901 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003119 002467 -04074 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004514 006998 -01099 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 001589 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009737 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def /FileData1Na (GG94_HRS16_96_D65_00%_G1) def /LUT_LAB1 [ %GE740-7A, Page 7 /24, %BEG GE65_22.TXT, Separation cmyn5*, cf1=0.90, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE65_22.TXT, Separation cmyn5*, cf1=0.90, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 002052 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 002299 000556 -01330 0000 0000 0125 1000 1000 0875 0000 %0001 A02 002589 000353 -01690 0000 0000 0250 1000 1000 0750 0000 %0002 A03 002591 000477 -02025 0000 0000 0375 1000 1000 0625 0000 %0003 A04 002663 000637 -02502 0000 0000 0500 1000 1000 0500 0000 %0004 A05 002994 000971 -02931 0000 0000 0625 1000 1000 0375 0000 %0005 A06 003026 001341 -03407 0000 0000 0750 1000 1000 0250 0000 %0006 A07 003164 001699 -03883 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003334 002051 -04360 0000 0000 1000 1000 1000 0000 0000 %0008 A09 002676 -01054 001008 0000 0125 0000 1000 0875 1000 0000 %0009 B01 002541 -00674 -01151 0000 0125 0125 1000 0875 0875 0000 %0010 B02 002763 -00534 -01439 0000 0125 0250 1000 0875 0750 0000 %0011 B03 002779 -00409 -02002 0000 0125 0375 1000 0875 0625 0000 %0012 B04 002805 -00178 -02314 0000 0125 0500 1000 0875 0500 0000 %0013 B05 003035 000160 -02775 0000 0125 0625 1000 0875 0375 0000 %0014 B06 003348 000359 -03207 0000 0125 0750 1000 0875 0250 0000 %0015 B07 003606 000575 -03574 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003606 001313 -04501 0000 0125 1000 1000 0875 0000 0000 %0017 B09 003251 -01756 001154 0000 0250 0000 1000 0750 1000 0000 %0018 C01 003071 -01461 -00267 0000 0250 0125 1000 0750 0875 0000 %0019 C02 003038 -01465 -01484 0000 0250 0250 1000 0750 0750 0000 %0020 C03 002976 -01151 -01926 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003085 -00921 -02146 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003269 -00526 -02681 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003592 -00244 -03163 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003820 000011 -03592 0000 0250 0875 1000 0750 0125 0000 %0025 C08 003954 000469 -04211 0000 0250 1000 1000 0750 0000 0000 %0026 C09 003510 -02495 001310 0000 0375 0000 1000 0625 1000 0000 %0027 D01 003313 -02046 -00197 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003120 -02058 -00972 0000 0375 0250 1000 0625 0750 0000 %0029 D03 003291 -01791 -01954 0000 0375 0375 1000 0625 0625 0000 %0030 D04 003369 -01421 -02260 0000 0375 0500 1000 0625 0500 0000 %0031 D05 003544 -01066 -02685 0000 0375 0625 1000 0625 0375 0000 %0032 D06 003732 -00854 -03140 0000 0375 0750 1000 0625 0250 0000 %0033 D07 003865 -00424 -03695 0000 0375 0875 1000 0625 0125 0000 %0034 D08 004022 -00134 -04305 0000 0375 1000 1000 0625 0000 0000 %0035 D09 003892 -03440 001508 0000 0500 0000 1000 0500 1000 0000 %0036 E01 003442 -02508 -00113 0000 0500 0125 1000 0500 0875 0000 %0037 E02 003338 -02522 -00589 0000 0500 0250 1000 0500 0750 0000 %0038 E03 003330 -02372 -01348 0000 0500 0375 1000 0500 0625 0000 %0039 E04 003623 -02061 -02082 0000 0500 0500 1000 0500 0500 0000 %0040 E05 003766 -01593 -02602 0000 0500 0625 1000 0500 0375 0000 %0041 E06 003940 -01322 -03050 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004083 -01083 -03523 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004244 -00821 -04189 0000 0500 1000 1000 0500 0000 0000 %0044 E09 004266 -04474 002289 0000 0625 0000 1000 0375 1000 0000 %0045 F01 004031 -03270 000426 0000 0625 0125 1000 0375 0875 0000 %0046 F02 003934 -03065 -00427 0000 0625 0250 1000 0375 0750 0000 %0047 F03 003861 -02745 -01193 0000 0625 0375 1000 0375 0625 0000 %0048 F04 003930 -02420 -02117 0000 0625 0500 1000 0375 0500 0000 %0049 F05 004058 -02261 -02664 0000 0625 0625 1000 0375 0375 0000 %0050 F06 004109 -01908 -02956 0000 0625 0750 1000 0375 0250 0000 %0051 F07 004271 -01668 -03403 0000 0625 0875 1000 0375 0125 0000 %0052 F08 004470 -01347 -04047 0000 0625 1000 1000 0375 0000 0000 %0053 F09 004755 -05252 002677 0000 0750 0000 1000 0250 1000 0000 %0054 G01 004518 -04118 000859 0000 0750 0125 1000 0250 0875 0000 %0055 G02 004503 -03976 000064 0000 0750 0250 1000 0250 0750 0000 %0056 G03 004436 -03493 -00769 0000 0750 0375 1000 0250 0625 0000 %0057 G04 004377 -03155 -01480 0000 0750 0500 1000 0250 0500 0000 %0058 G05 004377 -03042 -02123 0000 0750 0625 1000 0250 0375 0000 %0059 G06 004401 -02571 -03231 0000 0750 0750 1000 0250 0250 0000 %0060 G07 004538 -02118 -03500 0000 0750 0875 1000 0250 0125 0000 %0061 G08 004584 -01812 -04000 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005200 -05951 003051 0000 0875 0000 1000 0125 1000 0000 %0063 H01 005041 -04855 001247 0000 0875 0125 1000 0125 0875 0000 %0064 H02 004968 -04794 000493 0000 0875 0250 1000 0125 0750 0000 %0065 H03 004876 -04318 -00480 0000 0875 0375 1000 0125 0625 0000 %0066 H04 004885 -03887 -01206 0000 0875 0500 1000 0125 0500 0000 %0067 H05 004919 -03683 -01940 0000 0875 0625 1000 0125 0375 0000 %0068 H06 004910 -03655 -02570 0000 0875 0750 1000 0125 0250 0000 %0069 H07 004785 -03156 -03496 0000 0875 0875 1000 0125 0125 0000 %0070 H08 004879 -02621 -03957 0000 0875 1000 1000 0125 0000 0000 %0071 H09 005611 -06094 003002 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005579 -05674 001765 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005505 -05613 000653 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005405 -05306 -00110 0000 1000 0375 1000 0000 0625 0000 %0075 I04 005397 -05005 -00904 0000 1000 0500 1000 0000 0500 0000 %0076 I05 005406 -04519 -01693 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005355 -04576 -02394 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005613 -04371 -02837 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005658 -03574 -03797 0000 1000 1000 1000 0000 0000 0000 %0080 I09 002409 000431 000519 0125 0000 0000 0875 1000 1000 0000 %0081 J01 002544 000718 -00479 0125 0000 0125 0875 1000 0875 0000 %0082 J02 002655 000796 -01349 0125 0000 0250 0875 1000 0750 0000 %0083 J03 002646 001043 -01801 0125 0000 0375 0875 1000 0625 0000 %0084 J04 002885 001152 -02172 0125 0000 0500 0875 1000 0500 0000 %0085 J05 003049 001429 -02592 0125 0000 0625 0875 1000 0375 0000 %0086 J06 003078 001771 -03116 0125 0000 0750 0875 1000 0250 0000 %0087 J07 003233 002057 -03578 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003374 002446 -04068 0125 0000 1000 0875 1000 0000 0000 %0089 J09 003126 -00849 001417 0125 0125 0000 0875 0875 1000 0000 %0090 K01 002497 -00475 -00260 0125 0125 0125 0875 0875 0875 0000 %0091 K02 003034 -00014 -00963 0125 0125 0250 0875 0875 0750 0000 %0092 K03 003249 000113 -01437 0125 0125 0375 0875 0875 0625 0000 %0093 K04 003412 000235 -01863 0125 0125 0500 0875 0875 0500 0000 %0094 K05 003619 000467 -02168 0125 0125 0625 0875 0875 0375 0000 %0095 K06 003782 000815 -02703 0125 0125 0750 0875 0875 0250 0000 %0096 K07 003901 001205 -03200 0125 0125 0875 0875 0875 0125 0000 %0097 K08 004107 001446 -03732 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003411 -01394 001806 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003423 -01123 000308 0125 0250 0125 0875 0750 0875 0000 %0100 L02 003282 -00960 -00875 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003401 -00610 -01416 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003603 -00296 -02034 0125 0250 0500 0875 0750 0500 0000 %0103 L05 003834 -00098 -02225 0125 0250 0625 0875 0750 0375 0000 %0104 L06 004121 000079 -02674 0125 0250 0750 0875 0750 0250 0000 %0105 L07 004283 000408 -03089 0125 0250 0875 0875 0750 0125 0000 %0106 L08 004428 000696 -03603 0125 0250 1000 0875 0750 0000 0000 %0107 L09 003737 -01955 001879 0125 0375 0000 0875 0625 1000 0000 %0108 M01 003760 -01834 000617 0125 0375 0125 0875 0625 0875 0000 %0109 M02 003485 -01578 -00361 0125 0375 0250 0875 0625 0750 0000 %0110 M03 003489 -01417 -01365 0125 0375 0375 0875 0625 0625 0000 %0111 M04 003792 -00927 -01968 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004022 -00698 -02210 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004261 -00425 -02731 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004428 -00228 -03126 0125 0375 0875 0875 0625 0125 0000 %0115 M08 004691 000001 -03585 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004189 -03199 002273 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004075 -02792 000823 0125 0500 0125 0875 0500 0875 0000 %0118 N02 003951 -02430 -00244 0125 0500 0250 0875 0500 0750 0000 %0119 N03 003916 -02018 -01049 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004028 -01486 -02038 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004205 -01176 -02250 0125 0500 0625 0875 0500 0375 0000 %0122 N06 004427 -00920 -02708 0125 0500 0750 0875 0500 0250 0000 %0123 N07 004572 -00663 -03059 0125 0500 0875 0875 0500 0125 0000 %0124 N08 004826 -00423 -03524 0125 0500 1000 0875 0500 0000 0000 %0125 N09 004581 -03963 002633 0125 0625 0000 0875 0375 1000 0000 %0126 O01 004493 -03302 001177 0125 0625 0125 0875 0375 0875 0000 %0127 O02 004455 -02820 000044 0125 0625 0250 0875 0375 0750 0000 %0128 O03 004368 -02590 -00588 0125 0625 0375 0875 0375 0625 0000 %0129 O04 004480 -02251 -01451 0125 0625 0500 0875 0375 0500 0000 %0130 O05 004451 -01783 -02209 0125 0625 0625 0875 0375 0375 0000 %0131 O06 004621 -01463 -02640 0125 0625 0750 0875 0375 0250 0000 %0132 O07 004752 -01227 -03027 0125 0625 0875 0875 0375 0125 0000 %0133 O08 005002 -00971 -03427 0125 0625 1000 0875 0375 0000 0000 %0134 O09 004937 -04795 003009 0125 0750 0000 0875 0250 1000 0000 %0135 P01 005064 -03803 001519 0125 0750 0125 0875 0250 0875 0000 %0136 P02 005003 -03435 000576 0125 0750 0250 0875 0250 0750 0000 %0137 P03 004942 -03158 -00316 0125 0750 0375 0875 0250 0625 0000 %0138 P04 004958 -02776 -00968 0125 0750 0500 0875 0250 0500 0000 %0139 P05 004932 -02427 -01847 0125 0750 0625 0875 0250 0375 0000 %0140 P06 004830 -02214 -02483 0125 0750 0750 0875 0250 0250 0000 %0141 P07 004992 -01791 -03003 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005231 -01447 -03356 0125 0750 1000 0875 0250 0000 0000 %0143 P09 005537 -05766 003780 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 005500 -04559 002017 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 005453 -04030 000842 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 005425 -03658 -00083 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 005407 -03338 -00830 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 005477 -03052 -01451 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 005398 -02707 -02230 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 005366 -02514 -02842 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005456 -02042 -03354 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 006045 -05902 003647 0125 1000 0000 0875 0000 1000 0000 %0153 R01 005984 -05398 002396 0125 1000 0125 0875 0000 0875 0000 %0154 R02 005925 -04526 001174 0125 1000 0250 0875 0000 0750 0000 %0155 R03 005842 -04246 000170 0125 1000 0375 0875 0000 0625 0000 %0156 R04 005852 -03929 -00648 0125 1000 0500 0875 0000 0500 0000 %0157 R05 005824 -03582 -01363 0125 1000 0625 0875 0000 0375 0000 %0158 R06 005756 -03429 -01908 0125 1000 0750 0875 0000 0250 0000 %0159 R07 005761 -03171 -02518 0125 1000 0875 0875 0000 0125 0000 %0160 R08 005837 -02841 -03219 0125 1000 1000 0875 0000 0000 0000 %0161 R09 002533 001196 000650 0250 0000 0000 0750 1000 1000 0000 %0162 S01 002474 001347 000025 0250 0000 0125 0750 1000 0875 0000 %0163 S02 002552 001495 -00618 0250 0000 0250 0750 1000 0750 0000 %0164 S03 002730 001562 -01420 0250 0000 0375 0750 1000 0625 0000 %0165 S04 003045 001660 -01841 0250 0000 0500 0750 1000 0500 0000 %0166 S05 003096 001787 -02200 0250 0000 0625 0750 1000 0375 0000 %0167 S06 003184 001971 -02695 0250 0000 0750 0750 1000 0250 0000 %0168 S07 003379 002285 -03153 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003737 002304 -03556 0250 0000 1000 0750 1000 0000 0000 %0170 S09 003168 000028 001488 0250 0125 0000 0750 0875 1000 0000 %0171 T01 002983 000217 000186 0250 0125 0125 0750 0875 0875 0000 %0172 T02 003205 000396 -00566 0250 0125 0250 0750 0875 0750 0000 %0173 T03 003433 000428 -01075 0250 0125 0375 0750 0875 0625 0000 %0174 T04 003647 000710 -01486 0250 0125 0500 0750 0875 0500 0000 %0175 T05 003762 000960 -01804 0250 0125 0625 0750 0875 0375 0000 %0176 T06 003902 001310 -02479 0250 0125 0750 0750 0875 0250 0000 %0177 T07 004009 001611 -02947 0250 0125 0875 0750 0875 0125 0000 %0178 T08 004337 001952 -03319 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003664 -00899 002085 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003475 -00635 000675 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003636 -00342 -00314 0250 0250 0250 0750 0750 0750 0000 %0182 U03 003981 -00049 -00881 0250 0250 0375 0750 0750 0625 0000 %0183 U04 004096 000161 -01256 0250 0250 0500 0750 0750 0500 0000 %0184 U05 004203 000446 -01687 0250 0250 0625 0750 0750 0375 0000 %0185 U06 004406 000736 -02134 0250 0250 0750 0750 0750 0250 0000 %0186 U07 004652 001003 -02633 0250 0250 0875 0750 0750 0125 0000 %0187 U08 004985 001150 -03022 0250 0250 1000 0750 0750 0000 0000 %0188 U09 003997 -01460 002353 0250 0375 0000 0750 0625 1000 0000 %0189 V01 004017 -01251 001096 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004185 -01146 000124 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004276 -00831 -00876 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004357 -00557 -01362 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004383 -00305 -01821 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004643 000073 -02194 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004899 000327 -02602 0250 0375 0875 0750 0625 0125 0000 %0196 V08 005223 000473 -02918 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004541 -02422 002817 0250 0500 0000 0750 0500 1000 0000 %0198 W01 004527 -02013 001540 0250 0500 0125 0750 0500 0875 0000 %0199 W02 004596 -01834 000631 0250 0500 0250 0750 0500 0750 0000 %0200 W03 004537 -01387 -00490 0250 0500 0375 0750 0500 0625 0000 %0201 W04 004530 -01243 -01212 0250 0500 0500 0750 0500 0500 0000 %0202 W05 004658 -00835 -01703 0250 0500 0625 0750 0500 0375 0000 %0203 W06 004857 -00605 -02123 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005154 -00508 -02515 0250 0500 0875 0750 0500 0125 0000 %0205 W08 005450 -00084 -02816 0250 0500 1000 0750 0500 0000 0000 %0206 W09 004980 -02990 003235 0250 0625 0000 0750 0375 1000 0000 %0207 X01 004995 -02663 001892 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005016 -02621 001065 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005029 -02153 -00071 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005047 -01873 -00885 0250 0625 0500 0750 0375 0500 0000 %0211 X05 004996 -01492 -01837 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005168 -01172 -02149 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005342 -00904 -02500 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005602 -00618 -02821 0250 0625 1000 0750 0375 0000 0000 %0215 X09 005242 -03721 003246 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 005347 -03327 001927 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 005432 -03254 001302 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 005421 -02718 000138 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 005390 -02293 -00656 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 005475 -02084 -01379 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 005345 -01832 -02166 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 005550 -01433 -02530 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 005776 -01057 -02885 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 005848 -05051 004225 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 005819 -04028 002338 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 005926 -03926 001640 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 005913 -03457 000439 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 005863 -03046 -00488 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 005878 -02695 -01171 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 005809 -02358 -01904 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 005780 -02142 -02573 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 005916 -01619 -03047 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006399 -05492 004392 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006322 -04858 002832 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006451 -04701 002208 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006425 -04099 000900 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006309 -03625 -00074 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006327 -03309 -00699 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006237 -03105 -01362 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006303 -02858 -02101 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006275 -02578 -02971 0250 1000 1000 0750 0000 0000 0000 %0242 a09 003040 001839 001105 0375 0000 0000 0625 1000 1000 0000 %0243 A10 002950 002058 000466 0375 0000 0125 0625 1000 0875 0000 %0244 A11 002876 002164 -00069 0375 0000 0250 0625 1000 0750 0000 %0245 A12 002837 002233 -00728 0375 0000 0375 0625 1000 0625 0000 %0246 A13 003094 002381 -01476 0375 0000 0500 0625 1000 0500 0000 %0247 A14 003182 002370 -01871 0375 0000 0625 0625 1000 0375 0000 %0248 A15 003293 002494 -02420 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003483 002689 -02878 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003834 002895 -03365 0375 0000 1000 0625 1000 0000 0000 %0251 A18 003553 000776 001736 0375 0125 0000 0625 0875 1000 0000 %0252 B10 003599 000938 000650 0375 0125 0125 0625 0875 0875 0000 %0253 B11 003486 001082 000041 0375 0125 0250 0625 0875 0750 0000 %0254 B12 003596 001109 -00486 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003851 001318 -01252 0375 0125 0500 0625 0875 0500 0000 %0256 B14 003862 001421 -01597 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003918 001771 -02132 0375 0125 0750 0625 0875 0250 0000 %0258 B16 004112 002064 -02587 0375 0125 0875 0625 0875 0125 0000 %0259 B17 004356 002247 -03119 0375 0125 1000 0625 0875 0000 0000 %0260 B18 004010 000059 002210 0375 0250 0000 0625 0750 1000 0000 %0261 C10 004066 000211 001073 0375 0250 0125 0625 0750 0875 0000 %0262 C11 004107 000401 000136 0375 0250 0250 0625 0750 0750 0000 %0263 C12 004091 000490 -00422 0375 0250 0375 0625 0750 0625 0000 %0264 C13 004387 000605 -00985 0375 0250 0500 0625 0750 0500 0000 %0265 C14 004346 000786 -01416 0375 0250 0625 0625 0750 0375 0000 %0266 C15 004560 001181 -01850 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004688 001443 -02383 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004923 001623 -02865 0375 0250 1000 0625 0750 0000 0000 %0269 C18 004706 -00980 003172 0375 0375 0000 0625 0625 1000 0000 %0270 D10 004745 -00729 001850 0375 0375 0125 0625 0625 0875 0000 %0271 D11 004624 -00587 000765 0375 0375 0250 0625 0625 0750 0000 %0272 D12 004586 -00298 -00186 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004961 -00098 -00757 0375 0375 0500 0625 0625 0500 0000 %0274 D14 005013 000321 -01332 0375 0375 0625 0625 0625 0375 0000 %0275 D15 005155 000557 -01666 0375 0375 0750 0625 0625 0250 0000 %0276 D16 005365 000792 -02124 0375 0375 0875 0625 0625 0125 0000 %0277 D17 005533 001068 -02611 0375 0375 1000 0625 0625 0000 0000 %0278 D18 004971 -01655 003375 0375 0500 0000 0625 0500 1000 0000 %0279 E10 005110 -01463 002166 0375 0500 0125 0625 0500 0875 0000 %0280 E11 004922 -01145 001092 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005117 -00970 000080 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005104 -00791 -00912 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005400 -00437 -01310 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005419 -00184 -01799 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005633 000072 -02161 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005790 000396 -02484 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005365 -02516 003581 0375 0625 0000 0625 0375 1000 0000 %0288 F10 005539 -02218 002383 0375 0625 0125 0625 0375 0875 0000 %0289 F11 005559 -01926 001439 0375 0625 0250 0625 0375 0750 0000 %0290 F12 005616 -01668 000570 0375 0625 0375 0625 0375 0625 0000 %0291 F13 005602 -01219 -00518 0375 0625 0500 0625 0375 0500 0000 %0292 F14 005598 -01117 -01154 0375 0625 0625 0625 0375 0375 0000 %0293 F15 005717 -00732 -01768 0375 0625 0750 0625 0375 0250 0000 %0294 F16 005861 -00414 -02094 0375 0625 0875 0625 0375 0125 0000 %0295 F17 006024 -00272 -02405 0375 0625 1000 0625 0375 0000 0000 %0296 F18 005821 -03058 003891 0375 0750 0000 0625 0250 1000 0000 %0297 G10 005932 -02678 002623 0375 0750 0125 0625 0250 0875 0000 %0298 G11 005986 -02571 002000 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006094 -02380 001075 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006052 -01997 000044 0375 0750 0500 0625 0250 0500 0000 %0301 G14 005953 -01674 -00879 0375 0750 0625 0625 0250 0375 0000 %0302 G15 005991 -01378 -01602 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006111 -00928 -01964 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006252 -00696 -02315 0375 0750 1000 0625 0250 0000 0000 %0305 G18 006195 -04022 004504 0375 0875 0000 0625 0125 1000 0000 %0306 H10 006348 -03450 002928 0375 0875 0125 0625 0125 0875 0000 %0307 H11 006361 -03269 002155 0375 0875 0250 0625 0125 0750 0000 %0308 H12 006492 -03107 001293 0375 0875 0375 0625 0125 0625 0000 %0309 H13 006463 -02489 000075 0375 0875 0500 0625 0125 0500 0000 %0310 H14 006495 -02300 -00412 0375 0875 0625 0625 0125 0375 0000 %0311 H15 006501 -02014 -01095 0375 0875 0750 0625 0125 0250 0000 %0312 H16 006425 -01771 -01974 0375 0875 0875 0625 0125 0125 0000 %0313 H17 006466 -01312 -02415 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006761 -04741 004910 0375 1000 0000 0625 0000 1000 0000 %0315 I10 006805 -04069 003134 0375 1000 0125 0625 0000 0875 0000 %0316 I11 006920 -03913 002654 0375 1000 0250 0625 0000 0750 0000 %0317 I12 006983 -03763 001708 0375 1000 0375 0625 0000 0625 0000 %0318 I13 006864 -03207 000478 0375 1000 0500 0625 0000 0500 0000 %0319 I14 006833 -02858 -00250 0375 1000 0625 0625 0000 0375 0000 %0320 I15 006757 -02573 -00990 0375 1000 0750 0625 0000 0250 0000 %0321 I16 006761 -02240 -01683 0375 1000 0875 0625 0000 0125 0000 %0322 I17 006828 -02047 -02302 0375 1000 1000 0625 0000 0000 0000 %0323 I18 003275 002491 001495 0500 0000 0000 0500 1000 1000 0000 %0324 J10 003281 002689 000922 0500 0000 0125 0500 1000 0875 0000 %0325 J11 003197 002880 000305 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003124 002952 -00220 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003107 003106 -00827 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003283 003047 -01473 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003555 003037 -02000 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003696 003061 -02491 0500 0000 0875 0500 1000 0125 0000 %0331 J17 003928 003213 -02986 0500 0000 1000 0500 1000 0000 0000 %0332 J18 003819 001446 001934 0500 0125 0000 0500 0875 1000 0000 %0333 K10 003887 001653 001131 0500 0125 0125 0500 0875 0875 0000 %0334 K11 003842 001810 000538 0500 0125 0250 0500 0875 0750 0000 %0335 K12 003832 001886 000011 0500 0125 0375 0500 0875 0625 0000 %0336 K13 003844 002003 -00669 0500 0125 0500 0500 0875 0500 0000 %0337 K14 003988 002239 -01358 0500 0125 0625 0500 0875 0375 0000 %0338 K15 004072 002289 -01790 0500 0125 0750 0500 0875 0250 0000 %0339 K16 004234 002586 -02278 0500 0125 0875 0500 0875 0125 0000 %0340 K17 004487 002675 -02727 0500 0125 1000 0500 0875 0000 0000 %0341 K18 004239 000746 002483 0500 0250 0000 0500 0750 1000 0000 %0342 L10 004383 000811 001657 0500 0250 0125 0500 0750 0875 0000 %0343 L11 004416 001043 000695 0500 0250 0250 0500 0750 0750 0000 %0344 L12 004427 001172 000196 0500 0250 0375 0500 0750 0625 0000 %0345 L13 004377 001357 -00432 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004653 001454 -01181 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004719 001555 -01569 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004994 001774 -02020 0500 0250 0875 0500 0750 0125 0000 %0349 L17 005086 002043 -02533 0500 0250 1000 0500 0750 0000 0000 %0350 L18 004635 000145 003034 0500 0375 0000 0500 0625 1000 0000 %0351 M10 004756 000233 002033 0500 0375 0125 0500 0625 0875 0000 %0352 M11 004833 000379 001105 0500 0375 0250 0500 0625 0750 0000 %0353 M12 004876 000396 000179 0500 0375 0375 0500 0625 0625 0000 %0354 M13 004893 000547 -00399 0500 0375 0500 0500 0625 0500 0000 %0355 M14 005264 000711 -01005 0500 0375 0625 0500 0625 0375 0000 %0356 M15 005291 000860 -01348 0500 0375 0750 0500 0625 0250 0000 %0357 M16 005537 001211 -01798 0500 0375 0875 0500 0625 0125 0000 %0358 M17 005713 001367 -02249 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005248 -00841 003697 0500 0500 0000 0500 0500 1000 0000 %0360 N10 005464 -00749 002821 0500 0500 0125 0500 0500 0875 0000 %0361 N11 005405 -00525 001838 0500 0500 0250 0500 0500 0750 0000 %0362 N12 005486 -00464 000830 0500 0500 0375 0500 0500 0625 0000 %0363 N13 005504 -00178 -00204 0500 0500 0500 0500 0500 0500 0000 %0364 N14 005843 000010 -00712 0500 0500 0625 0500 0500 0375 0000 %0365 N15 005969 000270 -01260 0500 0500 0750 0500 0500 0250 0000 %0366 N16 006220 000553 -01545 0500 0500 0875 0500 0500 0125 0000 %0367 N17 006321 000747 -01959 0500 0500 1000 0500 0500 0000 0000 %0368 N18 005657 -01632 003978 0500 0625 0000 0500 0375 1000 0000 %0369 O10 005798 -01472 002958 0500 0625 0125 0500 0375 0875 0000 %0370 O11 005818 -01264 002094 0500 0625 0250 0500 0375 0750 0000 %0371 O12 005970 -01034 001094 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006113 -00879 000117 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006170 -00699 -00828 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006304 -00373 -01231 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006428 000000 -01683 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006523 000260 -01985 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006076 -02440 004312 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006291 -02070 003121 0500 0750 0125 0500 0250 0875 0000 %0379 P11 006331 -02005 002436 0500 0750 0250 0500 0250 0750 0000 %0380 P12 006444 -01749 001474 0500 0750 0375 0500 0250 0625 0000 %0381 P13 006620 -01630 000747 0500 0750 0500 0500 0250 0500 0000 %0382 P14 006583 -01261 -00335 0500 0750 0625 0500 0250 0375 0000 %0383 P15 006537 -01034 -01026 0500 0750 0750 0500 0250 0250 0000 %0384 P16 006631 -00529 -01542 0500 0750 0875 0500 0250 0125 0000 %0385 P17 006753 -00278 -01912 0500 0750 1000 0500 0250 0000 0000 %0386 P18 006590 -03180 004479 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 006784 -02848 003428 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 006818 -02831 002824 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 006884 -02582 001819 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 006979 -02308 000890 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 006997 -01840 -00019 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 006971 -01654 -00655 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 006945 -01283 -01584 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 006981 -00852 -01897 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 006985 -04009 004950 0500 1000 0000 0500 0000 1000 0000 %0396 R10 007150 -03574 003664 0500 1000 0125 0500 0000 0875 0000 %0397 R11 007268 -03442 003248 0500 1000 0250 0500 0000 0750 0000 %0398 R12 007421 -03273 002292 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007478 -03031 001461 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007442 -02576 000381 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007316 -02227 -00438 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007317 -01975 -01031 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007361 -01709 -01892 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003742 002891 001752 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003544 003491 001343 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003510 003585 000814 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003512 003574 000243 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003496 003694 -00276 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003551 003752 -00781 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003714 003526 -01592 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003864 003685 -02144 0625 0000 0875 0375 1000 0125 0000 %0412 S17 004103 003608 -02582 0625 0000 1000 0375 1000 0000 0000 %0413 S18 004213 002078 002208 0625 0125 0000 0375 0875 1000 0000 %0414 T10 004231 002394 001539 0625 0125 0125 0375 0875 0875 0000 %0415 T11 004194 002504 001024 0625 0125 0250 0375 0875 0750 0000 %0416 T12 004149 002615 000458 0625 0125 0375 0375 0875 0625 0000 %0417 T13 004243 002716 -00096 0625 0125 0500 0375 0875 0500 0000 %0418 T14 004199 002878 -00663 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004315 002838 -01487 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004476 003064 -01884 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004699 003060 -02309 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004566 001515 002631 0625 0250 0000 0375 0750 1000 0000 %0423 U10 004748 001586 002040 0625 0250 0125 0375 0750 0875 0000 %0424 U11 004797 001713 001102 0625 0250 0250 0375 0750 0750 0000 %0425 U12 004821 001782 000577 0625 0250 0375 0375 0750 0625 0000 %0426 U13 004824 001911 000065 0625 0250 0500 0375 0750 0500 0000 %0427 U14 004858 001984 -00439 0625 0250 0625 0375 0750 0375 0000 %0428 U15 004931 002153 -01248 0625 0250 0750 0375 0750 0250 0000 %0429 U16 005047 002347 -01691 0625 0250 0875 0375 0750 0125 0000 %0430 U17 005202 002522 -02100 0625 0250 1000 0375 0750 0000 0000 %0431 U18 005009 000785 003113 0625 0375 0000 0375 0625 1000 0000 %0432 V10 005165 000860 002361 0625 0375 0125 0375 0625 0875 0000 %0433 V11 005246 000933 001542 0625 0375 0250 0375 0625 0750 0000 %0434 V12 005353 001079 000739 0625 0375 0375 0375 0625 0625 0000 %0435 V13 005339 001197 000166 0625 0375 0500 0375 0625 0500 0000 %0436 V14 005312 001371 -00347 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005444 001495 -01080 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005572 001723 -01547 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005764 001812 -01974 0625 0375 1000 0375 0625 0000 0000 %0440 V18 005491 -00007 003907 0625 0500 0000 0375 0500 1000 0000 %0441 W10 005649 000125 003018 0625 0500 0125 0375 0500 0875 0000 %0442 W11 005672 000305 002133 0625 0500 0250 0375 0500 0750 0000 %0443 W12 005762 000392 001234 0625 0500 0375 0375 0500 0625 0000 %0444 W13 005920 000466 000229 0625 0500 0500 0375 0500 0500 0000 %0445 W14 005893 000557 -00305 0625 0500 0625 0375 0500 0375 0000 %0446 W15 006134 000702 -00914 0625 0500 0750 0375 0500 0250 0000 %0447 W16 006265 000969 -01309 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006454 001146 -01741 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006211 -01002 004489 0625 0625 0000 0375 0375 1000 0000 %0450 X10 006308 -00852 003625 0625 0625 0125 0375 0375 0875 0000 %0451 X11 006325 -00711 002852 0625 0625 0250 0375 0375 0750 0000 %0452 X12 006484 -00551 001964 0625 0625 0375 0375 0375 0625 0000 %0453 X13 006486 -00321 000721 0625 0625 0500 0375 0375 0500 0000 %0454 X14 006589 -00168 -00109 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006771 000010 -00563 0625 0625 0750 0375 0375 0250 0000 %0456 X16 007009 000342 -01128 0625 0625 0875 0375 0375 0125 0000 %0457 X17 007164 000549 -01467 0625 0625 1000 0375 0375 0000 0000 %0458 X18 006561 -01796 004760 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 006658 -01626 003767 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 006696 -01431 003041 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 006828 -01294 002060 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 006890 -01047 001233 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 007024 -00895 000309 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 006914 -00589 -00825 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007163 -00258 -01139 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007375 000011 -01433 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 007018 -02473 004996 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 007157 -02256 003871 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007157 -02187 003302 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007207 -01998 002269 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007328 -01708 001348 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 007488 -01580 000668 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 007434 -01187 -00209 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 007407 -00901 -01071 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007554 -00524 -01424 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 007441 -03190 005258 0625 1000 0000 0375 0000 1000 0000 %0477 a10 007564 -02840 004188 0625 1000 0125 0375 0000 0875 0000 %0478 a11 007706 -02781 003773 0625 1000 0250 0375 0000 0750 0000 %0479 a12 007761 -02677 002858 0625 1000 0375 0375 0000 0625 0000 %0480 a13 007851 -02511 002036 0625 1000 0500 0375 0000 0500 0000 %0481 a14 007955 -02329 001166 0625 1000 0625 0375 0000 0375 0000 %0482 a15 007927 -01791 000200 0625 1000 0750 0375 0000 0250 0000 %0483 a16 007810 -01481 -00427 0625 1000 0875 0375 0000 0125 0000 %0484 a17 007890 -01228 -01382 0625 1000 1000 0375 0000 0000 0000 %0485 a18 003865 003999 002228 0750 0000 0000 0250 1000 1000 0000 %0486 A19 003773 004499 001981 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003786 004514 001370 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003750 004448 000767 0750 0000 0375 0250 1000 0625 0000 %0489 A22 003709 004529 000321 0750 0000 0500 0250 1000 0500 0000 %0490 A23 003622 004478 -00340 0750 0000 0625 0250 1000 0375 0000 %0491 A24 003530 004423 -00960 0750 0000 0750 0250 1000 0250 0000 %0492 A25 003683 004286 -01752 0750 0000 0875 0250 1000 0125 0000 %0493 A26 004000 004223 -02311 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004556 002755 002581 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004536 003084 001978 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004529 003232 001452 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004441 003294 000943 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004410 003420 000434 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004320 003509 -00128 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004189 003465 -00712 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004283 003601 -01632 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004613 003415 -02004 0750 0125 1000 0250 0875 0000 0000 %0503 B27 004961 002253 003066 0750 0250 0000 0250 0750 1000 0000 %0504 C19 005034 002346 002409 0750 0250 0125 0250 0750 0875 0000 %0505 C20 005139 002490 001606 0750 0250 0250 0250 0750 0750 0000 %0506 C21 005058 002559 001045 0750 0250 0375 0250 0750 0625 0000 %0507 C22 005026 002657 000531 0750 0250 0500 0250 0750 0500 0000 %0508 C23 004933 002787 -00033 0750 0250 0625 0250 0750 0375 0000 %0509 C24 004817 002844 -00473 0750 0250 0750 0250 0750 0250 0000 %0510 C25 004890 003106 -01502 0750 0250 0875 0250 0750 0125 0000 %0511 C26 005136 002858 -01762 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005434 001493 003536 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005573 001511 002855 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005646 001643 002106 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005730 001874 001162 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005663 001941 000721 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005543 002133 000097 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005465 002268 -00405 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005620 002284 -01247 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005784 002210 -01602 0750 0375 1000 0250 0625 0000 0000 %0521 D27 005934 000774 004155 0750 0500 0000 0250 0500 1000 0000 %0522 E19 005986 000859 003274 0750 0500 0125 0250 0500 0875 0000 %0523 E20 006065 000941 002613 0750 0500 0250 0250 0500 0750 0000 %0524 E21 006209 001031 001679 0750 0500 0375 0250 0500 0625 0000 %0525 E22 006365 001112 000894 0750 0500 0500 0250 0500 0500 0000 %0526 E23 006223 001318 000311 0750 0500 0625 0250 0500 0375 0000 %0527 E24 006103 001411 -00271 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006319 001490 -01061 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006427 001524 -01452 0750 0500 1000 0250 0500 0000 0000 %0530 E27 006438 -00115 004825 0750 0625 0000 0250 0375 1000 0000 %0531 F19 006460 000118 003779 0750 0625 0125 0250 0375 0875 0000 %0532 F20 006509 000169 003188 0750 0625 0250 0250 0375 0750 0000 %0533 F21 006640 000266 002262 0750 0625 0375 0250 0375 0625 0000 %0534 F22 006727 000363 001467 0750 0625 0500 0250 0375 0500 0000 %0535 F23 006785 000552 000402 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006696 000728 -00257 0750 0625 0750 0250 0375 0250 0000 %0537 F25 006897 000800 -00916 0750 0625 0875 0250 0375 0125 0000 %0538 F26 007001 000905 -01311 0750 0625 1000 0250 0375 0000 0000 %0539 F27 007099 -01089 005282 0750 0750 0000 0250 0250 1000 0000 %0540 G19 007132 -00920 004529 0750 0750 0125 0250 0250 0875 0000 %0541 G20 007163 -00803 003942 0750 0750 0250 0250 0250 0750 0000 %0542 G21 007264 -00626 002960 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007401 -00465 002049 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007342 -00368 000815 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007402 -00082 -00124 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007537 000118 -00751 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007760 000363 -01179 0750 0750 1000 0250 0250 0000 0000 %0548 G27 007493 -01903 005708 0750 0875 0000 0250 0125 1000 0000 %0549 H19 007531 -01780 004718 0750 0875 0125 0250 0125 0875 0000 %0550 H20 007561 -01647 004176 0750 0875 0250 0250 0125 0750 0000 %0551 H21 007685 -01531 003248 0750 0875 0375 0250 0125 0625 0000 %0552 H22 007719 -01311 002283 0750 0875 0500 0250 0125 0500 0000 %0553 H23 007743 -01027 001123 0750 0875 0625 0250 0125 0375 0000 %0554 H24 007856 -00940 000400 0750 0875 0750 0250 0125 0250 0000 %0555 H25 007837 -00775 -00727 0750 0875 0875 0250 0125 0125 0000 %0556 H26 007842 -00270 -01146 0750 0875 1000 0250 0125 0000 0000 %0557 H27 007849 -02717 006111 0750 1000 0000 0250 0000 1000 0000 %0558 I19 007853 -02515 004958 0750 1000 0125 0250 0000 0875 0000 %0559 I20 007958 -02313 004318 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008041 -02180 003482 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008134 -02058 002640 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008249 -01807 001784 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008305 -01599 000742 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008197 -01296 -00208 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008211 -00906 -01189 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004241 004890 002896 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004218 005000 002377 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004260 004985 001726 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004222 005044 001200 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004257 005074 000651 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004227 005063 000196 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004200 005086 -00510 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004197 005045 -01093 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004351 004943 -01839 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004950 003427 003041 0875 0125 0000 0125 0875 1000 0000 %0576 K19 005000 003644 002267 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004965 003825 001659 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004913 004012 001170 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004890 004013 000740 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004829 004129 000317 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004775 004255 -00251 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004746 004206 -00891 0875 0125 0875 0125 0875 0125 0000 %0583 K26 004847 004251 -01633 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005425 002717 003387 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005462 002923 002729 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005545 003104 001839 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005532 003280 001296 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005498 003327 000894 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005421 003388 000411 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005354 003608 -00203 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005390 003586 -00721 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005402 003530 -01478 0875 0250 1000 0125 0750 0000 0000 %0593 L27 005834 002146 003623 0875 0375 0000 0125 0625 1000 0000 %0594 M19 005896 002223 003065 0875 0375 0125 0125 0625 0875 0000 %0595 M20 005974 002428 002383 0875 0375 0250 0125 0625 0750 0000 %0596 M21 006127 002481 001530 0875 0375 0375 0125 0625 0625 0000 %0597 M22 006086 002487 001064 0875 0375 0500 0125 0625 0500 0000 %0598 M23 005983 002682 000421 0875 0375 0625 0125 0625 0375 0000 %0599 M24 005997 002766 -00044 0875 0375 0750 0125 0625 0250 0000 %0600 M25 006005 002891 -00619 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006034 002810 -01361 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006291 001409 004254 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006373 001526 003466 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006483 001581 002950 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006647 001655 002063 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006683 001783 001217 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006664 001821 000709 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006605 001948 000199 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006582 002090 -00422 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006631 002155 -01191 0875 0500 1000 0125 0500 0000 0000 %0611 N27 006817 000692 004911 0875 0625 0000 0125 0375 1000 0000 %0612 O19 006848 000862 004044 0875 0625 0125 0125 0375 0875 0000 %0613 O20 006885 001009 003341 0875 0625 0250 0125 0375 0750 0000 %0614 O21 007044 001032 002439 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007166 001114 001690 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007236 001255 000737 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007213 001302 000371 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007170 001583 -00328 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007256 001427 -01062 0875 0625 1000 0125 0375 0000 0000 %0620 O27 007308 -00113 005621 0875 0750 0000 0125 0250 1000 0000 %0621 P19 007321 000017 004594 0875 0750 0125 0125 0250 0875 0000 %0622 P20 007407 000167 003891 0875 0750 0250 0125 0250 0750 0000 %0623 P21 007518 000308 002921 0875 0750 0375 0125 0250 0625 0000 %0624 P22 007625 000397 002204 0875 0750 0500 0125 0250 0500 0000 %0625 P23 007637 000493 001288 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007766 000533 000402 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007761 000815 -00376 0875 0750 0875 0125 0250 0125 0000 %0628 P26 007927 000762 -00887 0875 0750 1000 0125 0250 0000 0000 %0629 P27 007988 -01184 006269 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 008062 -01057 005385 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008128 -00934 004684 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008200 -00729 003682 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008280 -00580 002861 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008324 -00368 001916 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008338 -00170 000835 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008316 -00010 -00069 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008309 000209 -00809 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 008235 -02008 006299 0875 1000 0000 0125 0000 1000 0000 %0639 R19 008315 -01860 005542 0875 1000 0125 0125 0000 0875 0000 %0640 R20 008421 -01719 004919 0875 1000 0250 0125 0000 0750 0000 %0641 R21 008484 -01617 003941 0875 1000 0375 0125 0000 0625 0000 %0642 R22 008567 -01445 002979 0875 1000 0500 0125 0000 0500 0000 %0643 R23 008604 -01307 002196 0875 1000 0625 0125 0000 0375 0000 %0644 R24 008629 -01069 001178 0875 1000 0750 0125 0000 0250 0000 %0645 R25 008841 -01020 000431 0875 1000 0875 0125 0000 0125 0000 %0646 R26 008780 -00603 -00891 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004742 005439 003382 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004692 005600 002765 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004720 005603 002162 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004717 005568 001580 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004682 005721 001070 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004623 005743 000551 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004601 005878 -00039 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004595 005919 -00652 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004610 006061 -01350 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005229 004587 003878 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005360 004813 002961 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005366 004988 002387 1000 0125 0250 0000 0875 0750 0000 %0659 T21 005345 005124 001779 1000 0125 0375 0000 0875 0625 0000 %0660 T22 005280 005093 001293 1000 0125 0500 0000 0875 0500 0000 %0661 T23 005277 005005 000753 1000 0125 0625 0000 0875 0375 0000 %0662 T24 005230 005116 000252 1000 0125 0750 0000 0875 0250 0000 %0663 T25 005271 005170 -00355 1000 0125 0875 0000 0875 0125 0000 %0664 T26 005225 005403 -01155 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005700 003919 004302 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005931 004085 003539 1000 0250 0125 0000 0750 0875 0000 %0667 U20 006021 004182 002535 1000 0250 0250 0000 0750 0750 0000 %0668 U21 006041 004234 001888 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005917 004398 001410 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005942 004414 000944 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005883 004492 000278 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005948 004462 -00234 1000 0250 0875 0000 0750 0125 0000 %0673 U26 005936 004494 -00875 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006187 003196 004882 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006333 003366 003877 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006469 003427 003017 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006529 003579 001947 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006571 003657 001468 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006572 003669 001052 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006516 003802 000493 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006526 003930 -00210 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006530 003925 -00894 1000 0375 1000 0000 0625 0000 0000 %0683 V27 006621 002474 005164 1000 0500 0000 0000 0500 1000 0000 %0684 W19 006820 002568 004258 1000 0500 0125 0000 0500 0875 0000 %0685 W20 006931 002592 003459 1000 0500 0250 0000 0500 0750 0000 %0686 W21 007095 002537 002537 1000 0500 0375 0000 0500 0625 0000 %0687 W22 007180 002651 001691 1000 0500 0500 0000 0500 0500 0000 %0688 W23 007197 002737 001293 1000 0500 0625 0000 0500 0375 0000 %0689 W24 007153 002964 000595 1000 0500 0750 0000 0500 0250 0000 %0690 W25 007203 003004 000058 1000 0500 0875 0000 0500 0125 0000 %0691 W26 007220 003258 -00672 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007126 001679 005680 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007249 001824 004875 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007370 001822 003846 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007512 001792 002966 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007642 001879 002054 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007740 001974 001298 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007715 002186 000636 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007845 002252 000267 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007814 002438 -00323 1000 0625 1000 0000 0375 0000 0000 %0701 X27 007596 000866 005828 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 007675 001143 005093 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 007803 001083 004254 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 007923 001109 003381 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008063 001171 002502 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008225 001181 001756 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008201 001342 000889 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008185 001394 000490 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008133 001543 -00208 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008150 -00241 006492 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008229 -00075 005586 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008311 000155 004754 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008384 000328 003853 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008478 000479 003019 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008598 000481 002301 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 008626 000678 001252 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 008653 000757 000437 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 008700 000876 -00640 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 008750 -01286 007241 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009031 -01188 006880 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009078 -01016 006064 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009127 -00862 004915 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009171 -00675 003943 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009176 -00452 003035 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009173 -00213 002043 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009428 -00289 001044 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009563 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009592 -00004 000004 1000 1000 1000 0000 0000 0000 0000 %0729 b01 008879 -00519 -00861 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008375 -00827 -01142 0750 1000 1000 0250 0000 0000 0000 %0731 b03 007817 -01274 -01422 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007342 -01725 -01918 0500 1000 1000 0500 0000 0000 0000 %0733 b05 006863 -02006 -02374 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006278 -02605 -03019 0250 1000 1000 0750 0000 0000 0000 %0735 b07 005780 -02860 -03315 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005642 -03527 -03858 0000 1000 1000 1000 0000 0000 0000 %0737 b09 008707 000726 000305 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008454 -00035 -00046 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008042 -00677 -00761 0750 0875 0875 0250 0125 0125 0000 %0740 c03 007278 -00919 -01082 0625 0875 0875 0375 0125 0125 0000 %0741 c04 006871 -01307 -01566 0500 0875 0875 0500 0125 0125 0000 %0742 c05 006426 -01745 -01960 0375 0875 0875 0625 0125 0125 0000 %0743 c06 005787 -02153 -02598 0250 0875 0875 0750 0125 0125 0000 %0744 c07 005367 -02543 -02904 0125 0875 0875 0875 0125 0125 0000 %0745 c08 004813 -03071 -03503 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008297 001320 000732 1000 0750 0750 0000 0250 0250 0000 %0747 d01 007922 000500 000265 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007580 -00100 -00134 0750 0750 0750 0250 0250 0250 0000 %0749 d03 006853 -00611 -00809 0625 0750 0750 0375 0250 0250 0000 %0750 d04 006470 -01057 -01028 0500 0750 0750 0500 0250 0250 0000 %0751 d05 005998 -01368 -01598 0375 0750 0750 0625 0250 0250 0000 %0752 d06 005381 -01857 -02157 0250 0750 0750 0750 0250 0250 0000 %0753 d07 004877 -02210 -02474 0125 0750 0750 0875 0250 0250 0000 %0754 d08 004400 -02509 -03221 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007800 001975 001088 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007373 001197 000562 0875 0625 0625 0125 0375 0375 0000 %0757 e02 006937 000556 000237 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006463 -00194 -00121 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006108 -00705 -00787 0500 0625 0625 0500 0375 0375 0000 %0760 e05 005627 -01100 -01163 0375 0625 0625 0625 0375 0375 0000 %0761 e06 005037 -01536 -01868 0250 0625 0625 0750 0375 0375 0000 %0762 e07 004534 -01808 -02168 0125 0625 0625 0875 0375 0375 0000 %0763 e08 004191 -02215 -02635 0000 0625 0625 1000 0375 0375 0000 %0764 e09 007238 002565 001627 1000 0500 0500 0000 0500 0500 0000 %0765 f01 006756 001713 001118 0875 0500 0500 0125 0500 0500 0000 %0766 f02 006408 001078 000743 0750 0500 0500 0250 0500 0500 0000 %0767 f03 005767 000439 000230 0625 0500 0500 0375 0500 0500 0000 %0768 f04 005435 -00215 -00197 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005062 -00793 -00953 0375 0500 0500 0625 0500 0500 0000 %0770 f06 004595 -01278 -01292 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004135 -01494 -02050 0125 0500 0500 0875 0500 0500 0000 %0772 f08 003754 -01992 -02088 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006591 003437 002083 1000 0375 0375 0000 0625 0625 0000 %0774 g01 006160 002373 001584 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005721 001732 001144 0750 0375 0375 0250 0625 0625 0000 %0776 g03 005190 001086 000879 0625 0375 0375 0375 0625 0625 0000 %0777 g04 004779 000379 000188 0500 0375 0375 0500 0625 0625 0000 %0778 g05 004525 -00332 -00209 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004432 -00856 -00924 0250 0375 0375 0750 0625 0625 0000 %0780 g07 003647 -01404 -01394 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003477 -01738 -01918 0000 0375 0375 1000 0625 0625 0000 %0782 g09 006046 004104 002656 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005489 003022 001898 0875 0250 0250 0125 0750 0750 0000 %0784 h02 005067 002408 001627 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004569 001640 001237 0625 0250 0250 0375 0750 0750 0000 %0786 h04 004189 001033 000784 0500 0250 0250 0500 0750 0750 0000 %0787 h05 003995 000368 000145 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003760 -00379 -00320 0250 0250 0250 0750 0750 0750 0000 %0789 h07 003465 -00973 -00896 0125 0250 0250 0875 0750 0750 0000 %0790 h08 003223 -01474 -01477 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005351 004727 002985 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004874 003563 002320 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004400 003054 002027 0750 0125 0125 0250 0875 0875 0000 %0794 i03 003977 002380 001552 0625 0125 0125 0375 0875 0875 0000 %0795 i04 003672 001628 001080 0500 0125 0125 0500 0875 0875 0000 %0796 i05 003501 000936 000624 0375 0125 0125 0625 0875 0875 0000 %0797 i06 003230 000239 000092 0250 0125 0125 0750 0875 0875 0000 %0798 i07 002787 -00489 -00326 0125 0125 0125 0875 0875 0875 0000 %0799 i08 002758 -00697 -01229 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004652 005423 003537 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004107 004796 003068 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003701 003922 002330 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003464 002981 001821 0625 0000 0000 0375 1000 1000 0000 %0804 j04 003095 002475 001513 0500 0000 0000 0500 1000 1000 0000 %0805 j05 002944 001834 001114 0375 0000 0000 0625 1000 1000 0000 %0806 j06 002785 001273 000632 0250 0000 0000 0750 1000 1000 0000 %0807 j07 002655 000441 000441 0125 0000 0000 0875 1000 1000 0000 %0808 j08 002173 -00002 -00014 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009650 000003 -00010 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008607 000181 -00684 0875 0875 1000 0125 0125 0000 0000 %0811 b11 008082 000363 -01057 0750 0750 1000 0250 0250 0000 0000 %0812 b12 007233 000498 -01433 0625 0625 1000 0375 0375 0000 0000 %0813 b13 006386 000710 -01960 0500 0500 1000 0500 0500 0000 0000 %0814 b14 005624 000914 -02539 0375 0375 1000 0625 0625 0000 0000 %0815 b15 004929 001076 -03128 0250 0250 1000 0750 0750 0000 0000 %0816 b16 004086 001431 -03771 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003157 002112 -04451 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009507 -00130 000657 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008636 -00032 -00055 0875 0875 0875 0125 0125 0125 0000 %0820 c11 007937 000130 -00638 0750 0750 0875 0250 0250 0125 0000 %0821 c12 007039 000288 -01108 0625 0625 0875 0375 0375 0125 0000 %0822 c13 006241 000540 -01547 0500 0500 0875 0500 0500 0125 0000 %0823 c14 005351 000788 -02086 0375 0375 0875 0625 0625 0125 0000 %0824 c15 004579 001055 -02682 0250 0250 0875 0750 0750 0125 0000 %0825 c16 003783 001289 -03297 0125 0125 0875 0875 0875 0125 0000 %0826 c17 002996 001858 -04003 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009267 -00101 001532 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008612 -00115 000619 0875 0875 0750 0125 0125 0250 0000 %0829 d11 007724 -00095 -00119 0750 0750 0750 0250 0250 0250 0000 %0830 d12 006780 -00030 -00533 0625 0625 0750 0375 0375 0250 0000 %0831 d13 005981 000267 -01251 0500 0500 0750 0500 0500 0250 0000 %0832 d14 005174 000473 -01642 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004340 000756 -02176 0250 0250 0750 0750 0750 0250 0000 %0834 d16 003629 000911 -02865 0125 0125 0750 0875 0875 0250 0000 %0835 d17 002881 001476 -03520 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009244 -00381 002565 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008532 -00296 001513 0875 0875 0625 0125 0125 0375 0000 %0838 e11 007591 -00298 000541 0750 0750 0625 0250 0250 0375 0000 %0839 e12 006575 -00192 -00155 0625 0625 0625 0375 0375 0375 0000 %0840 e13 005834 -00028 -00711 0500 0500 0625 0500 0500 0375 0000 %0841 e14 005034 000254 -01316 0375 0375 0625 0625 0625 0375 0000 %0842 e15 004222 000409 -01738 0250 0250 0625 0750 0750 0375 0000 %0843 e16 003587 000466 -02275 0125 0125 0625 0875 0875 0375 0000 %0844 e17 002839 001085 -03106 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009213 -00605 003468 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008427 -00537 002558 0875 0875 0500 0125 0125 0500 0000 %0847 f11 007549 -00434 001732 0750 0750 0500 0250 0250 0500 0000 %0848 f12 006488 -00334 000610 0625 0625 0500 0375 0375 0500 0000 %0849 f13 005508 -00194 -00213 0500 0500 0500 0500 0500 0500 0000 %0850 f14 004964 -00154 -00767 0375 0375 0500 0625 0625 0500 0000 %0851 f15 004191 000141 -01326 0250 0250 0500 0750 0750 0500 0000 %0852 f16 003488 000230 -01928 0125 0125 0500 0875 0875 0500 0000 %0853 f17 002619 000696 -02642 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009157 -00882 004827 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008301 -00746 003566 0875 0875 0375 0125 0125 0625 0000 %0856 g11 007356 -00649 002738 0750 0750 0375 0250 0250 0625 0000 %0857 g12 006446 -00554 001947 0625 0625 0375 0375 0375 0625 0000 %0858 g13 005396 -00457 000818 0500 0500 0375 0500 0500 0625 0000 %0859 g14 004563 -00310 -00200 0375 0375 0375 0625 0625 0625 0000 %0860 g15 004132 -00079 -00907 0250 0250 0375 0750 0750 0625 0000 %0861 g16 003419 000085 -01478 0125 0125 0375 0875 0875 0625 0000 %0862 g17 002633 000493 -02134 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009101 -01032 005979 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008178 -00963 004662 0875 0875 0250 0125 0125 0750 0000 %0865 h11 007190 -00828 003682 0750 0750 0250 0250 0250 0750 0000 %0866 h12 006222 -00743 002784 0625 0625 0250 0375 0375 0750 0000 %0867 h13 005247 -00551 001819 0500 0500 0250 0500 0500 0750 0000 %0868 h14 004514 -00621 000750 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003809 -00362 -00286 0250 0250 0250 0750 0750 0750 0000 %0870 h16 003240 -00060 -00990 0125 0125 0250 0875 0875 0750 0000 %0871 h17 002665 000356 -01840 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009054 -01183 006724 1000 1000 0125 0000 0000 0875 0000 %0873 i10 008116 -01067 005253 0875 0875 0125 0125 0125 0875 0000 %0874 i11 007123 -00931 004276 0750 0750 0125 0250 0250 0875 0000 %0875 i12 006175 -00833 003334 0625 0625 0125 0375 0375 0875 0000 %0876 i13 005255 -00712 002579 0500 0500 0125 0500 0500 0875 0000 %0877 i14 004589 -00737 001749 0375 0375 0125 0625 0625 0875 0000 %0878 i15 003756 -00633 000556 0250 0250 0125 0750 0750 0875 0000 %0879 i16 002796 -00474 -00305 0125 0125 0125 0875 0875 0875 0000 %0880 i17 002456 000620 -01473 0000 0000 0125 1000 1000 0875 0000 %0881 i18 008754 -01297 007175 1000 1000 0000 0000 0000 1000 0000 %0882 j10 007984 -01200 006152 0875 0875 0000 0125 0125 1000 0000 %0883 j11 007038 -01117 005056 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006059 -00989 004263 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005058 -00847 003552 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004578 -00993 003071 0375 0375 0000 0625 0625 1000 0000 %0887 j15 003971 -00944 002126 0250 0250 0000 0750 0750 1000 0000 %0888 j16 003437 -00871 001397 0125 0125 0000 0875 0875 1000 0000 %0889 j17 002146 000041 000010 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009648 000000 000006 1000 1000 1000 0000 0000 0000 0000 %0891 b19 008770 000935 -00623 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008270 001522 -00257 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007860 002439 -00413 1000 0625 1000 0000 0375 0000 0000 %0894 b22 007239 003330 -00742 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006493 003996 -00873 1000 0375 1000 0000 0625 0000 0000 %0896 b24 005872 004595 -00874 1000 0250 1000 0000 0750 0000 0000 %0897 b25 005203 005438 -01144 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004591 006104 -01341 1000 0000 1000 0000 1000 0000 0000 %0899 b27 008988 -00914 000304 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008520 -00018 -00054 0875 0875 0875 0125 0125 0125 0000 %0901 c20 007954 000817 -00444 0875 0750 0875 0125 0250 0125 0000 %0902 c21 007298 001618 -00422 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006704 002140 -00465 0875 0500 0875 0125 0500 0125 0000 %0904 c23 006067 002908 -00649 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005372 003634 -00747 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004734 004207 -00910 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004146 005045 -01060 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008456 -01495 000546 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008021 -00871 000299 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007600 -00087 -00130 0750 0750 0750 0250 0250 0250 0000 %0911 d21 006921 000777 -00337 0750 0625 0750 0250 0375 0250 0000 %0912 d22 006230 001412 -00305 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005517 002147 -00402 0750 0375 0750 0250 0625 0250 0000 %0914 d24 004766 002852 -00495 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004159 003396 -00690 0750 0125 0750 0250 0875 0250 0000 %0916 d26 003437 004266 -00921 0750 0000 0750 0250 1000 0250 0000 %0917 d27 007952 -02377 001165 0625 1000 0625 0375 0000 0375 0000 %0918 e19 007466 -01651 000827 0625 0875 0625 0375 0125 0375 0000 %0919 e20 006967 -00952 000346 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006454 -00192 -00095 0625 0625 0625 0375 0375 0375 0000 %0921 e22 005723 000529 -00285 0625 0500 0625 0375 0500 0375 0000 %0922 e23 005030 001315 -00272 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004340 001946 -00387 0625 0250 0625 0375 0750 0375 0000 %0924 e25 003747 002695 -00615 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003112 003477 -00688 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007453 -03082 001428 0500 1000 0500 0500 0000 0500 0000 %0927 f19 006933 -02374 000932 0500 0875 0500 0500 0125 0500 0000 %0928 f20 006554 -01718 000816 0500 0750 0500 0500 0250 0500 0000 %0929 f21 005971 -00977 000214 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005390 -00209 -00160 0500 0500 0500 0500 0500 0500 0000 %0931 f23 004605 000495 -00373 0500 0375 0500 0500 0625 0500 0000 %0932 f24 003899 001346 -00379 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003338 001874 -00596 0500 0125 0500 0500 0875 0500 0000 %0934 f26 002728 002706 -00679 0500 0000 0500 0500 1000 0500 0000 %0935 f27 006949 -03898 001826 0375 1000 0375 0625 0000 0625 0000 %0936 g19 006432 -03242 001378 0375 0875 0375 0625 0125 0625 0000 %0937 g20 005988 -02537 001167 0375 0750 0375 0625 0250 0625 0000 %0938 g21 005495 -01781 000698 0375 0625 0375 0625 0375 0625 0000 %0939 g22 005016 -01079 000193 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004351 -00342 -00153 0375 0375 0375 0625 0625 0625 0000 %0941 g24 003741 000487 -00409 0375 0250 0375 0625 0750 0625 0000 %0942 g25 003083 001088 -00451 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002559 001986 -00608 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006478 -04748 002057 0250 1000 0250 0750 0000 0750 0000 %0945 h19 005963 -03994 001623 0250 0875 0250 0750 0125 0750 0000 %0946 h20 005465 -03396 001231 0250 0750 0250 0750 0250 0750 0000 %0947 h21 004970 -02769 000927 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004578 -01954 000541 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004178 -01238 000166 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003570 -00370 -00305 0250 0250 0250 0750 0750 0750 0000 %0951 h25 003036 000313 -00561 0250 0125 0250 0750 0875 0750 0000 %0952 h26 002504 001267 -00600 0250 0000 0250 0750 1000 0750 0000 %0953 h27 006024 -05415 002227 0125 1000 0125 0875 0000 0875 0000 %0954 i19 005573 -04609 001884 0125 0875 0125 0875 0125 0875 0000 %0955 i20 005124 -03978 001434 0125 0750 0125 0875 0250 0875 0000 %0956 i21 004519 -03407 001046 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004101 -02948 000810 0125 0500 0125 0875 0500 0875 0000 %0958 i23 003765 -01924 000510 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003428 -01205 000331 0125 0250 0125 0875 0750 0875 0000 %0960 i25 002559 -00501 -00282 0125 0125 0125 0875 0875 0875 0000 %0961 i26 002460 000608 -00502 0125 0000 0125 0875 1000 0875 0000 %0962 i27 005654 -06134 002986 0000 1000 0000 1000 0000 1000 0000 %0963 j19 005201 -06064 003012 0000 0875 0000 1000 0125 1000 0000 %0964 j20 004720 -05461 002603 0000 0750 0000 1000 0250 1000 0000 %0965 j21 004259 -04644 002256 0000 0625 0000 1000 0375 1000 0000 %0966 j22 003832 -03600 001413 0000 0500 0000 1000 0500 1000 0000 %0967 j23 003439 -02663 001250 0000 0375 0000 1000 0625 1000 0000 %0968 j24 003169 -01882 001148 0000 0250 0000 1000 0750 1000 0000 %0969 j25 002594 -01141 001048 0000 0125 0000 1000 0875 1000 0000 %0970 j26 001955 -00039 000003 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa1100 [ %BEG GE65_22.TXT, Separation cmyn5*, cf1=0.90, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004742 005439 003382 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z008750 -01286 007241 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z005611 -06094 003002 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005658 -03574 -03797 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003334 002051 -04360 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004610 006061 -01350 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z002052 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009563 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004652 005423 003537 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 008754 -01297 007175 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 005654 -06134 002986 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005642 -03527 -03858 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003157 002112 -04451 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004591 006104 -01341 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 002091 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009630 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def %END GG94_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 %******************************************************************* %%EndProlog gsave %LANINDL2 START 20000505 /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 /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /xcolorg where {pop /xcolor xcolorg def} {/xcolor 0 def} ifelse /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END /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 (GG940-7A: ) show (Messung: ) showde (Measurement: ) showen 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 %(, Page ) showen (, Seite ) showde %xcolor 1 add cvishow (/8) show 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 {(GG940-) show} {(GG941-) 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 (A) show %A (, ) 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 /x400 400 def /x700 550 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 [(O) (Y) (L) (C) (V) (M) (O)] 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) (J) (G) (G50B) (B) (B50R) (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 [(O00Y) (Y00L) (L00C) (C00V) (V00M) (M00O) (O00Y)] 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 [(O25Y) (Y25L) (L25C) (C25V) (V25M) (M25O) (O25Y)] 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 [(O50Y) (Y50L) (L50C) (C50V) (V50M) (M50O) (O50Y)] 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 [(O75Y) (Y75L) (L75C) (C75V) (V75M) (M75O) (O75Y)] 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 [(R00J) (J00G) (G00B) (G50B) (B00R) (B50R) (R00J)] 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 [(R25J) (J25G) (G13B) (G62B) (B12R) (B63R) (R25J)] 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 [(R50J) (J50G) (G25B) (G75B) (B25R) (B75R) (R50J)] 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 [(R75J) (J75G) (G38B) (G88B) (B38R) (B88R) (R75J)] 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 olvrgb 0 eq {%olvrgb=0 xcolor 0 eq xcolor 1 eq or {cname_olv00 i get} if xcolor 2 eq xcolor 3 eq or {cname_olv25 i get} if xcolor 4 eq xcolor 5 eq or {cname_olv50 i get} if xcolor 6 eq xcolor 7 eq or {cname_olv75 i get} if } {%olvrgb=1 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 } ifelse 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 TBL 0 -50 rmoveto jbild 0 eq {cname6 0 get show} if jbild 1 eq {cname6 1 get show} if jbild 2 eq {cname6 2 get 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 TBL 0 -50 rmoveto jbild 0 eq {cname6 3 get show olvrgb 1 eq {0 -50 rmoveto (gb) show 0 50 rmoveto} if } if jbild 1 eq {cname6 4 get show} if jbild 2 eq {cname6 5 get show olvrgb 1 eq {0 -50 rmoveto (br) show 0 50 rmoveto} if } 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 TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=) show TBIS (c*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (; ) show TBIS (t*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=) show TBIS (t*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto } if %xchartl>=12 xchartl 0 ge xchartl 3 le and {%0<=xchartl<=3 -3200 4400 moveto TBS (Linear relation ) showen (Beziehung ) showde TBS (CIELAB \050) show TBIS (L*, a*, b*) show TBS (\051) show TBS ( and ) showen ( und ) showde TBIS (adapted (a) ) showen (adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show 0 50 rmoveto TBS (, ) show TBIS (L*) show TBS (\051) show x400 4100 moveto TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (=\050 ) show TBIS (L*) show TBS ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051 / \050) show TBIS (L*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051) show x400 3800 moveto TBIS (a*) show 0 -50 rmoveto TBL (a) show 0 50 rmoveto TBS (=) show TBIS (a*) show TBS ( - ) show TBIS (a*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( - ) show TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( [ ) show TBIS (a*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto TBS ( - ) show TBIS (a*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( ]) show x400 3500 moveto TBIS (b*) show 0 -50 rmoveto TBL (a) show 0 50 rmoveto TBS (=) show TBIS (b*) show TBS ( - ) show TBIS (b*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( - ) show TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( [ ) show TBIS (b*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto TBS ( - ) show TBIS (b*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( ]) show x400 500 add 3200 moveto TBIS (C*) show 0 -50 rmoveto TBL (ab,a) show 0 50 rmoveto TBS (=[ ) show TBIS (a*) show 0 -50 rmoveto TBL (a) show 0 050 rmoveto 0 100 rmoveto TBL (2) show 0 -100 rmoveto TBS ( + ) show TBIS (b*) show 0 -50 rmoveto TBL (a) show 0 050 rmoveto 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 ) showen (Beziehung ) showde TBIS (Adapted (a) ) showen (Adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show 0 50 rmoveto TBS (, ) show TBIS (L*) show TBS (\051) show TBS ( and ) showen ( und ) showde TBIS (relative ) showen (relatives ) showde TBS (CIELAB \050) show TBIS (c*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (, ) show TBIS (l*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (\051) show x700 4100 moveto TBIS (l*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (=\050 ) show TBIS (L*) show TBS ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051 / \050) show TBIS (L*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS ( \051) show x700 3800 moveto TBIS (c*) show 0 -50 rmoveto TBL (lab*) show 0 50 rmoveto TBS (=) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a) show 0 50 rmoveto TBS ( / ) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a,M) show 0 50 rmoveto x700 3500 moveto TBIS (M) show TBS (=Maximum colour) showen (=Maximalfarbe) showde } if %4<=xchartl<=7 xchartl 8 ge xchartl 11 le and {%8<=xchartl<=11 -3200 4400 moveto TBS (Linear relation ) showen (Beziehung ) showde TBIS (adapted (a) ) showen (adaptiertes (a) ) showde TBS (CIELAB \050) show TBIS (C*) show TBL 0 -50 rmoveto (ab,a) show 0 50 rmoveto TBS (, ) show TBIS (L*) show TBS (\051) show TBS ( and ) showen ( und ) showde TBIS (relative ) showen (relatives ) showde TBS (CIELAB \050) show TBIS (c*) show TBS (, ) show TBIS (t*) show TBS (\051) show x700 4100 moveto TBIS (l*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS (=\050) show TBIS (L*) show 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS (\051 / \050) show TBIS (L*) show 0 -50 rmoveto TBL (W) show 0 50 rmoveto ( - ) show TBIS (L*) show 0 -50 rmoveto TBL (N) show 0 50 rmoveto TBS (\051) show x700 3800 moveto TBIS (t*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (=) show TBIS (l*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( - ) show TBIS (c*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS ( [ ) show TBIS (l*) show %TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto 0 -50 rmoveto TBL (M) show 0 50 rmoveto TBS ( - 0,5 ]) show x700 3500 moveto TBIS (c*) show TBL 0 -50 rmoveto (lab*) show 0 50 rmoveto TBS (=) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a) show 0 50 rmoveto TBS ( / ) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a,M) show 0 50 rmoveto 700 3200 moveto TBIS (M) show TBS (=Maximum colour) showen (=Maximalfarbe) showde } if %8<=xchartl<=11 xchartl 12 ge xchartl 15 le and {%12<=xchartl<=15 -3200 4400 moveto TBS (Linear relation ) showen (Beziehung ) showde TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS ( and ) showen ( und ) showde TBIS (relative ) show TBS (chroma ) showen (Buntheit ) showde TBIS (c*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto 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 ) showen ( und Dreiecks\255Helligkeit ) showde TBIS (t*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto } %xchart #3,7,11,15 %********************************************************************************* { %xchart =3,7,11,15 TBS ( or chroma ) showen ( oder Buntheit ) showde TBIS (a) show xchartl 12 ge {(*) show} if TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(rgb) show} if xchartl 4 ge xchartl 7 le and {(olv) show} if xchartl 8 ge xchartl 11 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto TBS (, ) show TBIS (b) show xchartl 12 ge {(*) show} if TBL 0 -50 rmoveto xchartl 0 ge xchartl 3 le and {(rgb) show} if xchartl 4 ge xchartl 7 le and {(olv) show} if xchartl 8 ge xchartl 11 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show} if TBL 0 50 rmoveto } ifelse %xchart #3,7,11,15 or =3,7,11,15 x700 4100 moveto TBIS (c*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=max \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051 - min \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051) show x700 3800 moveto TBIS (n*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=1 - max \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051) show TBS (= 1 - ) show TBIS (i*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto x700 3500 moveto TBIS (w*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=min \050) show TBIS olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show TBS (\051) show TBS (= 1 - ) show TBIS (d*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto x700 3200 moveto TBIS (t*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=) show TBIS (w*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS ( + 0,5 ) show TBIS (c*) show TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto xchartl 14 le { 700 2900 moveto TBIS (M) show TBS (=Maximum colour) showen (=Maximalfarbe) showde } if } if %12<=xchartl<=15 xchartl 2 le { 1500 150 moveto TBK (chroma) showen (Buntheit) showde 2500 150 moveto TBIK (C*) show TS 0 -50 rmoveto (ab,a) show -1600 3100 moveto TBK (lightness) showen (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) showen (Helligkeit) showde -600 3100 moveto TBIK (l*) show xchartl 11 le {TS 0 -50 rmoveto (lab*) show 0 50 rmoveto} if } if xchartl 8 ge { 1 setgray -2800 3100 moveto TBK (triangle lightness) showen (Dreiecks\255Helligkeit) showde -600 3100 moveto TBIK (t*) show xchartl 11 le {TS 0 -50 rmoveto (lab*) show 0 50 rmoveto} if xchartl 12 ge {TS 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto} if } if xchartl 4 ge { 1000 150 moveto TBIK (relative ) show TBK (chroma) showen (Buntheit) showde 2800 150 moveto TBIK (c*) show xchartl 11 le {TS 0 -50 rmoveto (lab*) show 0 50 rmoveto} if xchartl 12 ge {TS 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto} if } if xchartl 12 ge { 1500 2350 moveto TBIS (n*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=0; ) show TBIS (i*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=1) show 1500 0550 moveto TBIS (w*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse show 0 50 rmoveto TBS (=0; ) show TBIS (d*) show %TBL 0 -50 rmoveto olvrgb 0 eq {(olv*)}{(rgb*)} ifelse 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 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def C*ab j get fakt mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl get add L* j get fakt mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl get add moveto cname6 xchartl get show 1 setgray C*ab j get fakt mul 580 sub L* j get fakt mul 700 sub moveto TBS (\050) show TBIS (C*) show 0 -50 rmoveto TBL (ab,a,M) show 0 50 rmoveto TBIS (,) show C*ab j get fakt mul 580 sub L* j get fakt mul 700 sub 300 sub moveto 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 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 [-400 250 -400] def /xadd1 [-400 -400 -400] def /yadd1 [-400 250 -400] def C*ab j get fakt mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl get add L* j get fakt mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl get add moveto cname6 3 xchartl add get show 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 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def c1* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 4 sub get add l1* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 4 sub get add moveto cname6 xchartl 4 sub get show 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 [-000 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-000 -400 -400] def /yadd1 [-400 250 -400] def c2* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 4 sub get add l2* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 4 sub get add moveto cname6 xchartl 4 sub 3 add get show 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 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def c1* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 8 sub get add t1* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse 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 [-000 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-000 -400 -400] def /yadd1 [-400 250 -400] def c2* j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 8 sub get add t2* j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 8 sub get add moveto cname6 xchartl 8 sub 3 add get show 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 [-200 -200 -200] def /yadd0 [250 250 250] def /xadd1 [-200 -200 -200] def /yadd1 [250 250 250] def c1*rgb j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 12 sub get add t1*rgb j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse 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 [-000 -400 -400] def /yadd0 [-400 250 -400] def /xadd1 [-000 -400 -400] def /yadd1 [-400 250 -400] def c2*rgb j get fakt2 mul Vorz mul olvrgb 0 eq {xadd0} {xadd1} ifelse xchartl 12 sub get add t2*rgb j get fakt2 mul olvrgb 0 eq {yadd0} {yadd1} ifelse xchartl 12 sub get add moveto cname6 xchartl 12 sub 3 add get show 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: ) showen % } 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 {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse 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 {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse 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 {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse 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 {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse 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 {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse 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 ) showen} 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 {(lab*) show} if xchartl 8 ge xchartl 11 le and {(lab*) show} if xchartl 12 ge xchartl 15 le and {olvrgb 0 eq {(olv*)}{(rgb*)} ifelse 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 /xadd0 [-100 -500 -500 -700 -200 000] def /yadd0 [ 100 -000 -200 -100 -200 100] def C*ab j get fakt1 mul fcolor2 mul angleWO cos mul xadd0 xtonj get add C*ab j get fakt1 mul fcolor2 mul angleWO sin mul yadd0 xtonj get add moveto cname6 xtonj get show 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 /xadd0 [-100 -500 -500 -700 -200 000] def /yadd0 [ 100 -000 -200 -100 -200 100] def c1*rgb j get fakt2 mul fcolor2 mul angleWO cos mul xadd0 xtonj get add c1*rgb j get fakt2 mul fcolor2 mul angleWO sin mul yadd0 xtonj get add moveto cname6 xtonj get show 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 /xadd0 [-000 -100 -500 -700 -200 000] def /yadd0 [ 100 -000 000 -100 -200 100] def C*ab j get fakt1 mul fcolor2 mul angleWO cos mul xadd0 xtonj 3 add get add C*ab j get fakt1 mul fcolor2 mul angleWO sin mul yadd0 xtonj 3 add get add moveto cname6 xtonj 3 add get show 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 /xadd0 [-000 -100 -500 -700 -200 000] def /yadd0 [ 100 -000 000 -100 -200 100] def c2*rgb j get fakt2 mul fcolor2 mul angleWO cos mul xadd0 xtonj 3 add get add c2*rgb j get fakt2 mul fcolor2 mul angleWO sin mul yadd0 xtonj 3 add get add moveto cname6 xtonj 3 add get show 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 /xadd0 [-000 -100 -500 -700 -200 000] def /yadd0 [ 100 -000 000 -100 -200 100] def LUTA*X iX get fakt1 mul fcolor2 mul cf1 div xadd0 iX get add LUTB*X iX get fakt1 mul fcolor2 mul cf1 div yadd0 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 /xadd0 [-200 -300 -300 -500 -400 -000] def /yadd0 [ 100 -000 000 -100 -200 100] def c1000 angleOLV cos mul fcolor2 mul xadd0 iX get add c1000 angleOLV sin mul fcolor2 mul yadd0 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 } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 GG940-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG940-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 GG941-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG941-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 GG941-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG941-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 GG941-3, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG941-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 GG941-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG941-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 GG941-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG941-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 GG941-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG941-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 GG941-7, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG941-7,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 GG941-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (GG941-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20080601 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /i*ptrsc where {pop %/i*ptrsc i*ptrsc def } {/i*ptrsc 0 def} ifelse gsave /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse /ISRL*ioG where {pop}{/ISRL*ioG 0 def} ifelse /ISIN*ioG where {pop}{/ISIN*ioG 0 def} ifelse /ISOU*ioG where {pop}{/ISOU*ioG 0 def} ifelse /ausz 8 def %xchart 0 eq {%BEG if xchart=0 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /xx 20 array def /yy 20 array def /dd 20 array def /xx [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /yy [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /dd [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] def /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray xx i0 get MM yy i0 get MM moveto xx i1 get MM yy i1 get MM lineto xx i2 get MM yy i2 get MM lineto xx i3 get MM yy i3 get MM lineto xx i0 get MM yy i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzcolv* setrgbcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmolv* setrgbcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzyolv* setrgbcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzoolv* setrgbcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlolv* setrgbcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvolv* setrgbcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse xx i0 get dd i0 get add 16 j0 mul add MM yy i0 get MM moveto xx i0 get dd i0 get add 16 j1 mul add MM yy i0 get MM lineto stroke xx i1 get MM yy i1 get dd i1 get add 16 j0 mul add MM moveto xx i1 get MM yy i1 get dd i1 get add 16 j1 mul add MM lineto stroke xx i2 get dd i2 get add 16 j0 mul sub MM yy i2 get MM moveto xx i2 get dd i2 get add 16 j1 mul sub MM yy i2 get MM lineto stroke xx i3 get MM yy i3 get dd i3 get add 16 j0 mul sub MM moveto xx i3 get MM yy i3 get dd i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {/ng tzan j get def ng ng ng 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /ng tzan j get def ng ng ng 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {/wg 1 tzan j get sub def wg setgray %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /wg 1 tzan j get sub def wg setgray %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {/ng tzan j get def 0 0 0 ng setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /ng tzan j get def 0 0 0 ng setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {/wg 1 tzan j get sub def wg setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if /wg 1 tzan j get sub def wg setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 0 setgray 12 /Times-ISOL1 FS 61 MM 13 MM moveto (TUB\255Pr\374fvorlage GG94; Relatives Ger\344te\255Farbsystem G) showde (TUB\255test chart GG94; Relative Device Colour System G) showen 61 MM 09 MM moveto (9\255stufig; Laserdrucker; Separation + Linearisierung) showde (9 step series; laser printer; separation + linarisation) showen 12 /Times-ISOL1 FS 167 MM 13 MM moveto ( input: ) showen (Eingabe: ) showde 12 /TimesI-ISOL1 FS ( rgb -> olv*) show 12 /Times-ISOL1 FS 167 MM 9 MM moveto ( output: ) showen (Ausgabe: ) showde LSC$ (N) eq {%LSC$=N 12 /Times-ISOL1 FS xchart 1 le xchart 4 eq or {(no change compared to input) showen (keine Eingabe\344nderung) showde} {12 /TimesI-ISOL1 FS (->cmyn5* setcmykcolor) show 12 /Times-ISOL1 FS} ifelse } if %LSC$=N LSC$ (S) eq { (Startup (S) data dependend) showen (Startup(S)Daten abh\344ngig) showde } if LSC$ (F) eq { 12 /TimesI-ISOL1 FS i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if i*ptrsc 1 eq {xchart 1 le xchart 4 eq or {12 /Times-ISOL1 FS (no change compared to input) showen (keine Eingabe\344nderung) showde } {(->LAB*->cmyn5* setcmykcolor) show } ifelse } if i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if i*ptrsc 4 eq {(lab* setcolor) show} if i*ptrsc 5 eq {(LAB* setcolor) show} if i*ptrsc 6 eq {(000n* setcmykcolor) show} if i*ptrsc 7 eq {(w* setgray) show} if } if %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/GG94/GG94L) show (0) show LSC$ show LEX$ show (, Page ) showen (, Seite ) showde xcolor 1 add cvishow (/2) show (; ) show LAB*TE 0 get show (; ) show xcolor xcolor 2 idiv 2 mul eq {(Start\255Ausgabe) showde (start output) showen} {(linearisierte Ausgabe) showde (linearized output) showen} ifelse 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm } {LSC$ show (: ) show (Linearisierte\255Ausgabe) showde (linearized output) showen (linearized output) showes (linearized output) showfr (linearized output) showit (linearized output) showjp (linearized output) showm (GG94/GG94L) show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in der Datei (F)) showde ( in File (F)) showen ( in File (F)) showes ( in File (F)) showfr ( in File (F)) showit ( in File (F)) showjp ( in File (F)) showm } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde ( in Distiller Startup (S) Directory) showen ( in Distiller Startup (S) Directory) showes ( in Distiller Startup (S) Directory) showfr ( in Distiller Startup (S) Directory) showit ( in Distiller Startup (S) Directory) showjp ( in Distiller Startup (S) Directory) showm } if LSC$ (D) eq { ( in PostScript Device (D)) showde ( in PostScript Device (D)) showen ( in PostScript Device (D)) showes ( in PostScript Device (D)) showfr ( in PostScript Device (D)) showit ( in PostScript Device (D)) showjp ( in PostScript Device (D)) showm } if LSC$ (T) eq { ( von Distiller Startup (S) Directory) showde ( of Distiller Startup (S) Directory) showen ( of Distiller Startup (S) Directory) showes ( of Distiller Startup (S) Directory) showfr ( of Distiller Startup (S) Directory) showit ( of Distiller Startup (S) Directory) showjp ( of Distiller Startup (S) Directory) showm } if LSC$ (E) eq { ( von PostScript Device (D)) showde ( of PostScript Device (D)) showen ( of PostScript Device (D)) showes ( of PostScript Device (D)) showfr ( of PostScript Device (D)) showit ( of PostScript Device (D)) showjp ( of PostScript Device (D)) showm } if %0 setgray %end white and unvisible 16 MM 185 MM moveto -90 rotate (Siehe Original/Kopie: ) showde (See original or copy: ) showen (http://web.me.com/klaus.richter/GG94/GG94L) show (0) show LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde (Technical information: ) showen (http://www.ps.bam.de) show %( or ) showen ( oder ) showde %(http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20091101\255GG94/GG94L) showde (TUB registration: 20091101\255GG94/GG94L) showen (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde (TUB material: code=rha4ta) showen 90 rotate 12 MM 105 MM moveto -90 rotate (V 2.1, io=1,) show LSC$ (N) eq {(1) show} if LSC$ (S) eq {(1?) show} if LSC$ (D) eq {(1?) show} if %LSC$ (F) eq {i*ptrsc cvishow % IMES 0 eq {(, CIELAB) show} % {(, CIEXYZ) show} ifelse % } if (, Cx=) show ColSpx cvishow (; cf1=0.90; nt=0.18; nx=1.0) show 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Beurteilung und Messung von Drucker- oder Monitorsystemen) showde ( application for evaluation and measurement of printer or monitor systems) showen ( application for evaluation and measurement of printer or monitor systems) showes ( application for evaluation and measurement of printer or monitor systems) showfr ( application for evaluation and measurement of printer or monitor systems) showit ( application for evaluation and measurement of printer or monitor systems) showjp ( application for evaluation and measurement of printer or monitor systems) showm IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray xx i0 get MM yy i0 get MM moveto xx i1 get MM yy i1 get MM lineto xx i2 get MM yy i2 get MM lineto xx i3 get MM yy i3 get MM lineto xx i0 get MM yy i0 get MM lineto stroke %} if %END if xchart=0 %xchart 1 eq xchart 3 ge or {%xchart=1, xchart>=3 %/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 %} if %xchart=1, xchart>=3 %} for %output with xchart end %} for %output with colorm end %} for %output with xcolor end %} for %output with lanind end %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore } for %end for xchartg=xchartg1,xchartg2 } for %end for xcolorg=xcolorg1,xcolorg2 %} for %end for pcountg=pcountg1,pcount2g %} for %end for scountg=scountg1,scount2g %%Trailer