%!PS-Adobe-3.0 EPSF-3.0 130.149.60.45/~farbmetrik/GG95/GG95L00XX.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/GG95/GG95.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 1 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->GG95/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->GG95/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %***************************************************************************** %BEG GK0X->GG95/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->GG95/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 /CFilenameS1g %START output of step S1g (130.149.60.45/~farbmetrik/GG95/GG95L0N) def %Link file name for data /CDateS1g (2006-01-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (GG95/GG95L0N) 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 (/GG95/ ) 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 GG950-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 (GG950-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 GG950-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 (GG950-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 GG950-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 (GG950-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 GG950-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 (GG950-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 GG950-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 (GG950-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 GG950-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 (GG950-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 GG950-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 GG95_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 (GG95_HRS16_96_D65_00%_G0) def /LUT_LAB0 [ %GE350-7A, Page 7 /24, %BEG GE25_22_REM.TXT, Separation cmyn61*, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE25_22_REM.TXT, Separation cmyn61*, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 001442 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 002266 000715 -01555 0000 0000 0125 1000 1000 0875 0000 %0001 A02 002210 001083 -02953 0000 0000 0250 1000 1000 0750 0000 %0002 A03 002466 001147 -03596 0000 0000 0375 1000 1000 0625 0000 %0003 A04 002559 001941 -04306 0000 0000 0500 1000 1000 0500 0000 %0004 A05 002572 002423 -04485 0000 0000 0625 1000 1000 0375 0000 %0005 A06 002713 002409 -04448 0000 0000 0750 1000 1000 0250 0000 %0006 A07 002902 002460 -04384 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003101 002427 -04351 0000 0000 1000 1000 1000 0000 0000 %0008 A09 003011 -03342 001042 0000 0125 0000 1000 0875 1000 0000 %0009 B01 002814 -01726 -02136 0000 0125 0125 1000 0875 0875 0000 %0010 B02 002707 -00579 -03033 0000 0125 0250 1000 0875 0750 0000 %0011 B03 002642 -00080 -03186 0000 0125 0375 1000 0875 0625 0000 %0012 B04 002794 000461 -03797 0000 0125 0500 1000 0875 0500 0000 %0013 B05 002920 000990 -04334 0000 0125 0625 1000 0875 0375 0000 %0014 B06 003049 001497 -04593 0000 0125 0750 1000 0875 0250 0000 %0015 B07 003209 001450 -04607 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003317 001489 -04531 0000 0125 1000 1000 0875 0000 0000 %0017 B09 003536 -04711 001715 0000 0250 0000 1000 0750 1000 0000 %0018 C01 003351 -03843 -00447 0000 0250 0125 1000 0750 0875 0000 %0019 C02 003443 -02072 -02780 0000 0250 0250 1000 0750 0750 0000 %0020 C03 003302 -00989 -03570 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003281 -00445 -03876 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003214 -00296 -03911 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003337 000030 -04283 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003369 000301 -04619 0000 0250 0875 1000 0750 0125 0000 %0025 C08 003413 000458 -04853 0000 0250 1000 1000 0750 0000 0000 %0026 C09 004033 -05747 002312 0000 0375 0000 1000 0625 1000 0000 %0027 D01 003989 -06044 001073 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003948 -04310 -01193 0000 0375 0250 1000 0625 0750 0000 %0029 D03 003861 -02551 -03072 0000 0375 0375 1000 0625 0625 0000 %0030 D04 003772 -01466 -03833 0000 0375 0500 1000 0625 0500 0000 %0031 D05 003855 -00927 -04301 0000 0375 0625 1000 0625 0375 0000 %0032 D06 003913 -00704 -04595 0000 0375 0750 1000 0625 0250 0000 %0033 D07 003979 -00601 -04762 0000 0375 0875 1000 0625 0125 0000 %0034 D08 003928 -00514 -04837 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004479 -06280 002623 0000 0500 0000 1000 0500 1000 0000 %0036 E01 004455 -07032 001662 0000 0500 0125 1000 0500 0875 0000 %0037 E02 004475 -05705 -00286 0000 0500 0250 1000 0500 0750 0000 %0038 E03 004558 -04446 -02016 0000 0500 0375 1000 0500 0625 0000 %0039 E04 004402 -02926 -03376 0000 0500 0500 1000 0500 0500 0000 %0040 E05 004329 -02261 -03937 0000 0500 0625 1000 0500 0375 0000 %0041 E06 004439 -01756 -04530 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004477 -01412 -04856 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004387 -01318 -04852 0000 0500 1000 1000 0500 0000 0000 %0044 E09 004828 -06642 002937 0000 0625 0000 1000 0375 1000 0000 %0045 F01 004737 -07730 002323 0000 0625 0125 1000 0375 0875 0000 %0046 F02 004861 -06836 000721 0000 0625 0250 1000 0375 0750 0000 %0047 F03 004867 -05594 -01108 0000 0625 0375 1000 0375 0625 0000 %0048 F04 005032 -04834 -02226 0000 0625 0500 1000 0375 0500 0000 %0049 F05 004894 -03473 -03485 0000 0625 0625 1000 0375 0375 0000 %0050 F06 004808 -03013 -03946 0000 0625 0750 1000 0375 0250 0000 %0051 F07 004877 -02373 -04623 0000 0625 0875 1000 0375 0125 0000 %0052 F08 004818 -02065 -04838 0000 0625 1000 1000 0375 0000 0000 %0053 F09 005136 -06905 003262 0000 0750 0000 1000 0250 1000 0000 %0054 G01 005005 -07505 002483 0000 0750 0125 1000 0250 0875 0000 %0055 G02 005040 -06781 000866 0000 0750 0250 1000 0250 0750 0000 %0056 G03 005067 -05974 -00540 0000 0750 0375 1000 0250 0625 0000 %0057 G04 005072 -05179 -01795 0000 0750 0500 1000 0250 0500 0000 %0058 G05 005101 -04432 -02703 0000 0750 0625 1000 0250 0375 0000 %0059 G06 005040 -03791 -03485 0000 0750 0750 1000 0250 0250 0000 %0060 G07 005083 -03337 -04003 0000 0750 0875 1000 0250 0125 0000 %0061 G08 005066 -02882 -04559 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005492 -06808 003587 0000 0875 0000 1000 0125 1000 0000 %0063 H01 005393 -06825 002631 0000 0875 0125 1000 0125 0875 0000 %0064 H02 005453 -06227 001230 0000 0875 0250 1000 0125 0750 0000 %0065 H03 005473 -05684 000060 0000 0875 0375 1000 0125 0625 0000 %0066 H04 005441 -05249 -00913 0000 0875 0500 1000 0125 0500 0000 %0067 H05 005434 -04676 -01833 0000 0875 0625 1000 0125 0375 0000 %0068 H06 005209 -04320 -02731 0000 0875 0750 1000 0125 0250 0000 %0069 H07 005089 -03610 -03748 0000 0875 0875 1000 0125 0125 0000 %0070 H08 005084 -03320 -04142 0000 0875 1000 1000 0125 0000 0000 %0071 H09 005673 -06438 003583 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005643 -06311 002556 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005671 -05894 001451 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005681 -05467 000495 0000 1000 0375 1000 0000 0625 0000 %0075 I04 005726 -05030 -00319 0000 1000 0500 1000 0000 0500 0000 %0076 I05 005729 -04608 -01155 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005663 -04285 -01820 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005517 -04002 -02606 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005187 -03486 -03884 0000 1000 1000 1000 0000 0000 0000 %0080 I09 001874 001481 000550 0125 0000 0000 0875 1000 1000 0000 %0081 J01 001885 002053 -00421 0125 0000 0125 0875 1000 0875 0000 %0082 J02 002176 002493 -01899 0125 0000 0250 0875 1000 0750 0000 %0083 J03 002266 002560 -02724 0125 0000 0375 0875 1000 0625 0000 %0084 J04 002404 002798 -03109 0125 0000 0500 0875 1000 0500 0000 %0085 J05 002549 003141 -03378 0125 0000 0625 0875 1000 0375 0000 %0086 J06 002651 003283 -03826 0125 0000 0750 0875 1000 0250 0000 %0087 J07 002856 003275 -03970 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003081 003123 -04084 0125 0000 1000 0875 1000 0000 0000 %0089 J09 002611 -00362 001834 0125 0125 0000 0875 0875 1000 0000 %0090 K01 002162 000000 -00053 0125 0125 0125 0875 0875 0875 0000 %0091 K02 002779 000627 -01916 0125 0125 0250 0875 0875 0750 0000 %0092 K03 003021 000836 -02567 0125 0125 0375 0875 0875 0625 0000 %0093 K04 003422 001338 -02975 0125 0125 0500 0875 0875 0500 0000 %0094 K05 003505 001798 -03560 0125 0125 0625 0875 0875 0375 0000 %0095 K06 003621 001979 -03911 0125 0125 0750 0875 0875 0250 0000 %0096 K07 003503 002203 -04161 0125 0125 0875 0875 0875 0125 0000 %0097 K08 003428 002330 -04182 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003330 -01914 002312 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003832 -01468 000610 0125 0250 0125 0875 0750 0875 0000 %0100 L02 003733 -01037 -01593 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003824 -00535 -02383 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003975 -00073 -02888 0125 0250 0500 0875 0750 0500 0000 %0103 L05 004164 000236 -03201 0125 0250 0625 0875 0750 0375 0000 %0104 L06 004225 000576 -03704 0125 0250 0750 0875 0750 0250 0000 %0105 L07 003827 001136 -04356 0125 0250 0875 0875 0750 0125 0000 %0106 L08 003711 001552 -04313 0125 0250 1000 0875 0750 0000 0000 %0107 L09 003873 -03582 002682 0125 0375 0000 0875 0625 1000 0000 %0108 M01 004264 -02676 001060 0125 0375 0125 0875 0625 0875 0000 %0109 M02 004050 -02143 -00540 0125 0375 0250 0875 0625 0750 0000 %0110 M03 004315 -01464 -02265 0125 0375 0375 0875 0625 0625 0000 %0111 M04 004334 -01000 -02818 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004450 -00662 -03199 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004549 -00555 -03563 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004296 -00251 -04479 0125 0375 0875 0875 0625 0125 0000 %0115 M08 003865 000309 -04640 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004452 -04572 002984 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004663 -03379 001544 0125 0500 0125 0875 0500 0875 0000 %0118 N02 004595 -03099 000185 0125 0500 0250 0875 0500 0750 0000 %0119 N03 004627 -02544 -01265 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004756 -01855 -02778 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004824 -01423 -03233 0125 0500 0625 0875 0500 0375 0000 %0122 N06 004852 -01213 -03523 0125 0500 0750 0875 0500 0250 0000 %0123 N07 004868 -01115 -04163 0125 0500 0875 0875 0500 0125 0000 %0124 N08 004445 -00842 -04665 0125 0500 1000 0875 0500 0000 0000 %0125 N09 004892 -05486 003288 0125 0625 0000 0875 0375 1000 0000 %0126 O01 005067 -04107 002076 0125 0625 0125 0875 0375 0875 0000 %0127 O02 005117 -03985 000937 0125 0625 0250 0875 0375 0750 0000 %0128 O03 005079 -03495 -00531 0125 0625 0375 0875 0375 0625 0000 %0129 O04 005172 -02898 -01721 0125 0625 0500 0875 0375 0500 0000 %0130 O05 005180 -02292 -02899 0125 0625 0625 0875 0375 0375 0000 %0131 O06 005152 -01865 -03330 0125 0625 0750 0875 0375 0250 0000 %0132 O07 005135 -01648 -03803 0125 0625 0875 0875 0375 0125 0000 %0133 O08 004962 -01522 -04521 0125 0625 1000 0875 0375 0000 0000 %0134 O09 005361 -05715 003673 0125 0750 0000 0875 0250 1000 0000 %0135 P01 005517 -04631 002484 0125 0750 0125 0875 0250 0875 0000 %0136 P02 005579 -04436 001396 0125 0750 0250 0875 0250 0750 0000 %0137 P03 005602 -04340 000205 0125 0750 0375 0875 0250 0625 0000 %0138 P04 005735 -03887 -00882 0125 0750 0500 0875 0250 0500 0000 %0139 P05 005730 -03403 -01920 0125 0750 0625 0875 0250 0375 0000 %0140 P06 005586 -02795 -03073 0125 0750 0750 0875 0250 0250 0000 %0141 P07 005530 -02376 -03552 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005435 -02164 -04153 0125 0750 1000 0875 0250 0000 0000 %0143 P09 005968 -05965 004234 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 006040 -05673 003178 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 006073 -05340 002000 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 006043 -04967 000715 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 006041 -04566 -00274 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 006053 -04103 -01195 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 005949 -03687 -02109 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 005749 -03143 -03343 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005719 -02796 -03921 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 006021 -05867 004094 0125 1000 0000 0875 0000 1000 0000 %0153 R01 005895 -05976 003264 0125 1000 0125 0875 0000 0875 0000 %0154 R02 005894 -05668 002137 0125 1000 0250 0875 0000 0750 0000 %0155 R03 005938 -05241 001076 0125 1000 0375 0875 0000 0625 0000 %0156 R04 005958 -04841 000100 0125 1000 0500 0875 0000 0500 0000 %0157 R05 005984 -04350 -00934 0125 1000 0625 0875 0000 0375 0000 %0158 R06 005944 -04003 -01632 0125 1000 0750 0875 0000 0250 0000 %0159 R07 005913 -03681 -02276 0125 1000 0875 0875 0000 0125 0000 %0160 R08 005529 -03339 -03551 0125 1000 1000 0875 0000 0000 0000 %0161 R09 002213 002333 001114 0250 0000 0000 0750 1000 1000 0000 %0162 S01 002236 002626 000392 0250 0000 0125 0750 1000 0875 0000 %0163 S02 002409 003353 -00881 0250 0000 0250 0750 1000 0750 0000 %0164 S03 002456 003179 -01684 0250 0000 0375 0750 1000 0625 0000 %0165 S04 002515 003256 -02216 0250 0000 0500 0750 1000 0500 0000 %0166 S05 002626 003484 -02550 0250 0000 0625 0750 1000 0375 0000 %0167 S06 002815 003694 -03077 0250 0000 0750 0750 1000 0250 0000 %0168 S07 002945 003907 -03430 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003065 003998 -03636 0250 0000 1000 0750 1000 0000 0000 %0170 S09 002576 001025 001697 0250 0125 0000 0750 0875 1000 0000 %0171 T01 003026 001120 001121 0250 0125 0125 0750 0875 0875 0000 %0172 T02 003167 001901 -00896 0250 0125 0250 0750 0875 0750 0000 %0173 T03 003235 001896 -01805 0250 0125 0375 0750 0875 0625 0000 %0174 T04 003478 002129 -02355 0250 0125 0500 0750 0875 0500 0000 %0175 T05 003562 002524 -02899 0250 0125 0625 0750 0875 0375 0000 %0176 T06 003574 002900 -03473 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003499 003265 -03735 0250 0125 0875 0750 0875 0125 0000 %0178 T08 003470 003169 -03815 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003549 -00597 003096 0250 0250 0000 0750 0750 1000 0000 %0180 U01 004115 -00626 002050 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003910 -00006 -00126 0250 0250 0250 0750 0750 0750 0000 %0182 U03 003857 000432 -01782 0250 0250 0375 0750 0750 0625 0000 %0183 U04 004095 000761 -02399 0250 0250 0500 0750 0750 0500 0000 %0184 U05 004350 001099 -02752 0250 0250 0625 0750 0750 0375 0000 %0185 U06 004465 001386 -03163 0250 0250 0750 0750 0750 0250 0000 %0186 U07 003984 002092 -03892 0250 0250 0875 0750 0750 0125 0000 %0187 U08 003827 002208 -03947 0250 0250 1000 0750 0750 0000 0000 %0188 U09 003761 -01474 003173 0250 0375 0000 0750 0625 1000 0000 %0189 V01 004653 -01682 002191 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004583 -01341 000554 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004577 -00934 -01557 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004596 -00367 -02312 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004692 -00038 -02742 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004778 000174 -03073 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004700 000611 -03952 0250 0375 0875 0750 0625 0125 0000 %0196 V08 004359 001086 -04041 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004441 -02763 003547 0250 0500 0000 0750 0500 1000 0000 %0198 W01 005136 -02580 002437 0250 0500 0125 0750 0500 0875 0000 %0199 W02 004949 -02289 001017 0250 0500 0250 0750 0500 0750 0000 %0200 W03 005038 -01767 -00519 0250 0500 0375 0750 0500 0625 0000 %0201 W04 005143 -01362 -02002 0250 0500 0500 0750 0500 0500 0000 %0202 W05 005084 -00849 -02620 0250 0500 0625 0750 0500 0375 0000 %0203 W06 005180 -00684 -02958 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005221 -00582 -03718 0250 0500 0875 0750 0500 0125 0000 %0205 W08 004572 000111 -04214 0250 0500 1000 0750 0500 0000 0000 %0206 W09 004988 -03761 003864 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005433 -03420 002856 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005431 -02963 001518 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005608 -02637 000253 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005618 -02114 -01170 0250 0625 0500 0750 0375 0500 0000 %0211 X05 005580 -01753 -02302 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005594 -01370 -02924 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005587 -01170 -03369 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005381 -01119 -04103 0250 0625 1000 0750 0375 0000 0000 %0215 X09 005744 -04397 004369 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 005839 -03986 003149 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 005906 -03489 001823 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 006022 -03222 000833 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 006142 -02866 -00233 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 006119 -02389 -01568 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 006016 -02046 -02627 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 006029 -01755 -03160 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 005998 -01731 -03897 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 006354 -04993 004844 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 006540 -04945 003864 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 006638 -04473 002440 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 006684 -04123 001334 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 006696 -03752 000255 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 006683 -03346 -00674 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 006416 -02866 -01804 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 006389 -02379 -03008 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 006329 -02060 -03546 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006404 -05266 004803 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006584 -04868 003707 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006428 -04901 002738 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006406 -04617 001632 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006453 -04211 000580 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006422 -03738 -00728 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006470 -03363 -01379 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006430 -03017 -02203 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006060 -02754 -03343 0250 1000 1000 0750 0000 0000 0000 %0242 a09 002719 003189 001788 0375 0000 0000 0625 1000 1000 0000 %0243 A10 002762 003459 000791 0375 0000 0125 0625 1000 0875 0000 %0244 A11 002671 003637 -00030 0375 0000 0250 0625 1000 0750 0000 %0245 A12 002842 004050 -01068 0375 0000 0375 0625 1000 0625 0000 %0246 A13 002788 003910 -01628 0375 0000 0500 0625 1000 0500 0000 %0247 A14 002873 004043 -02084 0375 0000 0625 0625 1000 0375 0000 %0248 A15 002944 004238 -02555 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003114 004384 -02975 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003234 004528 -03205 0375 0000 1000 0625 1000 0000 0000 %0251 A18 003117 002038 002591 0375 0125 0000 0625 0875 1000 0000 %0252 B10 003596 001877 001746 0375 0125 0125 0625 0875 0875 0000 %0253 B11 003463 002472 000330 0375 0125 0250 0625 0875 0750 0000 %0254 B12 003569 003094 -01070 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003491 003192 -01854 0375 0125 0500 0625 0875 0500 0000 %0256 B14 003504 003385 -02384 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003684 003561 -02910 0375 0125 0750 0625 0875 0250 0000 %0258 B16 003565 004008 -03378 0375 0125 0875 0625 0875 0125 0000 %0259 B17 003580 003854 -03408 0375 0125 1000 0625 0875 0000 0000 %0260 B18 003739 000433 003321 0375 0250 0000 0625 0750 1000 0000 %0261 C10 004528 000359 002529 0375 0250 0125 0625 0750 0875 0000 %0262 C11 004374 000880 000796 0375 0250 0250 0625 0750 0750 0000 %0263 C12 004493 001304 -00864 0375 0250 0375 0625 0750 0625 0000 %0264 C13 004377 001647 -01736 0375 0250 0500 0625 0750 0500 0000 %0265 C14 004337 001977 -02362 0375 0250 0625 0625 0750 0375 0000 %0266 C15 004422 002120 -02837 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004129 002865 -03536 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004065 002881 -03594 0375 0250 1000 0625 0750 0000 0000 %0269 C18 004879 -00837 004634 0375 0375 0000 0625 0625 1000 0000 %0270 D10 005514 -00938 003569 0375 0375 0125 0625 0625 0875 0000 %0271 D11 005390 -00626 001475 0375 0375 0250 0625 0625 0750 0000 %0272 D12 005244 000004 -00146 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004998 000252 -01667 0375 0375 0500 0625 0625 0500 0000 %0274 D14 005056 000626 -02213 0375 0375 0625 0625 0625 0375 0000 %0275 D15 005118 000860 -02640 0375 0375 0750 0625 0625 0250 0000 %0276 D16 004917 001605 -03492 0375 0375 0875 0625 0625 0125 0000 %0277 D17 004643 001861 -03588 0375 0375 1000 0625 0625 0000 0000 %0278 D18 004899 -01572 004504 0375 0500 0000 0625 0500 1000 0000 %0279 E10 005752 -01715 003703 0375 0500 0125 0625 0500 0875 0000 %0280 E11 005770 -01580 001854 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005717 -01264 000329 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005663 -00882 -01344 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005528 -00432 -02150 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005520 -00242 -02568 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005605 000185 -03326 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005190 000792 -03573 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005354 -02528 004628 0375 0625 0000 0625 0375 1000 0000 %0288 F10 006065 -02572 003978 0375 0625 0125 0625 0375 0875 0000 %0289 F11 006082 -02418 002130 0375 0625 0250 0625 0375 0750 0000 %0290 F12 006039 -02140 000642 0375 0625 0375 0625 0375 0625 0000 %0291 F13 006176 -01721 -00542 0375 0625 0500 0625 0375 0500 0000 %0292 F14 006099 -01438 -01762 0375 0625 0625 0625 0375 0375 0000 %0293 F15 006051 -01114 -02498 0375 0625 0750 0625 0375 0250 0000 %0294 F16 006072 -00819 -03006 0375 0625 0875 0625 0375 0125 0000 %0295 F17 005682 -00472 -03642 0375 0625 1000 0625 0375 0000 0000 %0296 F18 006064 -03303 005079 0375 0750 0000 0625 0250 1000 0000 %0297 G10 006480 -03416 004260 0375 0750 0125 0625 0250 0875 0000 %0298 G11 006530 -02997 002412 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006489 -02821 001245 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006624 -02420 000158 0375 0750 0500 0625 0250 0500 0000 %0301 G14 006602 -02208 -01076 0375 0750 0625 0625 0250 0375 0000 %0302 G15 006593 -01880 -02240 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006575 -01483 -02887 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006539 -01377 -03339 0375 0750 1000 0625 0250 0000 0000 %0305 G18 006703 -04015 005552 0375 0875 0000 0625 0125 1000 0000 %0306 H10 007015 -04098 004756 0375 0875 0125 0625 0125 0875 0000 %0307 H11 007001 -03760 002787 0375 0875 0250 0625 0125 0750 0000 %0308 H12 007081 -03608 001873 0375 0875 0375 0625 0125 0625 0000 %0309 H13 007200 -03324 000791 0375 0875 0500 0625 0125 0500 0000 %0310 H14 007137 -02984 -00173 0375 0875 0625 0625 0125 0375 0000 %0311 H15 007019 -02670 -01339 0375 0875 0750 0625 0125 0250 0000 %0312 H16 007047 -02160 -02693 0375 0875 0875 0625 0125 0125 0000 %0313 H17 006933 -01805 -03175 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006913 -04492 005617 0375 1000 0000 0625 0000 1000 0000 %0315 I10 006940 -04396 004663 0375 1000 0125 0625 0000 0875 0000 %0316 I11 007080 -03985 002922 0375 1000 0250 0625 0000 0750 0000 %0317 I12 007025 -03877 002077 0375 1000 0375 0625 0000 0625 0000 %0318 I13 007065 -03638 001233 0375 1000 0500 0625 0000 0500 0000 %0319 I14 007096 -03274 000109 0375 1000 0625 0625 0000 0375 0000 %0320 I15 007040 -02965 -00984 0375 1000 0750 0625 0000 0250 0000 %0321 I16 007031 -02567 -01839 0375 1000 0875 0625 0000 0125 0000 %0322 I17 006933 -02246 -02824 0375 1000 1000 0625 0000 0000 0000 %0323 I18 003092 003945 002226 0500 0000 0000 0500 1000 1000 0000 %0324 J10 003157 004051 001415 0500 0000 0125 0500 1000 0875 0000 %0325 J11 003031 004029 000549 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003021 004337 -00449 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003135 004623 -01155 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003150 004619 -01686 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003222 004672 -02246 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003354 004831 -02652 0500 0000 0875 0500 1000 0125 0000 %0331 J17 003461 004952 -02892 0500 0000 1000 0500 1000 0000 0000 %0332 J18 003496 002764 003148 0500 0125 0000 0500 0875 1000 0000 %0333 K10 003851 002907 002555 0500 0125 0125 0500 0875 0875 0000 %0334 K11 003815 002921 001086 0500 0125 0250 0500 0875 0750 0000 %0335 K12 003820 003469 -00065 0500 0125 0375 0500 0875 0625 0000 %0336 K13 003853 003797 -01076 0500 0125 0500 0500 0875 0500 0000 %0337 K14 003769 004144 -01769 0500 0125 0625 0500 0875 0375 0000 %0338 K15 003862 004247 -02397 0500 0125 0750 0500 0875 0250 0000 %0339 K16 003833 004504 -03021 0500 0125 0875 0500 0875 0125 0000 %0340 K17 003756 004318 -03129 0500 0125 1000 0500 0875 0000 0000 %0341 K18 004105 001157 003783 0500 0250 0000 0500 0750 1000 0000 %0342 L10 004744 001152 003055 0500 0250 0125 0500 0750 0875 0000 %0343 L11 004623 001487 001535 0500 0250 0250 0500 0750 0750 0000 %0344 L12 004689 001929 000177 0500 0250 0375 0500 0750 0625 0000 %0345 L13 004798 002398 -01110 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004616 002767 -01792 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004683 002815 -02228 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004449 003423 -03095 0500 0250 0875 0500 0750 0125 0000 %0349 L17 004308 003454 -03182 0500 0250 1000 0500 0750 0000 0000 %0350 L18 004721 000070 004502 0500 0375 0000 0500 0625 1000 0000 %0351 M10 005427 000001 004083 0500 0375 0125 0500 0625 0875 0000 %0352 M11 005535 000225 002153 0500 0375 0250 0500 0625 0750 0000 %0353 M12 005425 000694 000555 0500 0375 0375 0500 0625 0625 0000 %0354 M13 005526 001097 -00812 0500 0375 0500 0500 0625 0500 0000 %0355 M14 005384 001531 -01595 0500 0375 0625 0500 0625 0375 0000 %0356 M15 005320 001706 -02136 0500 0375 0750 0500 0625 0250 0000 %0357 M16 005171 002288 -03036 0500 0375 0875 0500 0625 0125 0000 %0358 M17 004960 002338 -03159 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005745 -01001 005661 0500 0500 0000 0500 0500 1000 0000 %0360 N10 006369 -01060 004879 0500 0500 0125 0500 0500 0875 0000 %0361 N11 006350 -00874 002891 0500 0500 0250 0500 0500 0750 0000 %0362 N12 006299 -00576 001182 0500 0500 0375 0500 0500 0625 0000 %0363 N13 006165 000004 -00117 0500 0500 0500 0500 0500 0500 0000 %0364 N14 006033 000274 -01478 0500 0500 0625 0500 0500 0375 0000 %0365 N15 005965 000557 -01992 0500 0500 0750 0500 0500 0250 0000 %0366 N16 005989 001013 -02854 0500 0500 0875 0500 0500 0125 0000 %0367 N17 005569 001230 -03134 0500 0500 1000 0500 0500 0000 0000 %0368 N18 005987 -01577 005781 0500 0625 0000 0500 0375 1000 0000 %0369 O10 006665 -01712 005204 0500 0625 0125 0500 0375 0875 0000 %0370 O11 006753 -01601 003245 0500 0625 0250 0500 0375 0750 0000 %0371 O12 006658 -01369 001608 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006689 -01113 000227 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006670 -00829 -01332 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006583 -00413 -01864 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006560 -00174 -02560 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006181 000189 -03053 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006720 -02347 006191 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006973 -02525 005440 0500 0750 0125 0500 0250 0875 0000 %0379 P11 007069 -02307 003304 0500 0750 0250 0500 0250 0750 0000 %0380 P12 007107 -02239 002109 0500 0750 0375 0500 0250 0625 0000 %0381 P13 007133 -01906 000924 0500 0750 0500 0500 0250 0500 0000 %0382 P14 007140 -01616 -00446 0500 0750 0625 0500 0250 0375 0000 %0383 P15 007130 -01462 -01728 0500 0750 0750 0500 0250 0250 0000 %0384 P16 007046 -01085 -02434 0500 0750 0875 0500 0250 0125 0000 %0385 P17 006766 -00846 -02996 0500 0750 1000 0500 0250 0000 0000 %0386 P18 007264 -03219 006495 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 007478 -03242 005870 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 007435 -03039 003429 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 007392 -03054 002419 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007510 -02824 001328 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007581 -02634 000508 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007532 -02324 -00878 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007519 -01854 -02276 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 007238 -01536 -02842 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 007376 -03914 006322 0500 1000 0000 0500 0000 1000 0000 %0396 R10 007473 -03791 005619 0500 1000 0125 0500 0000 0875 0000 %0397 R11 007407 -03732 003947 0500 1000 0250 0500 0000 0750 0000 %0398 R12 007542 -03331 002558 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007639 -03056 001696 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007647 -02853 000878 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007587 -02567 -00405 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007472 -02281 -01479 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007360 -01921 -02584 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003407 004496 002594 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003448 004488 002056 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003406 004509 001280 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003403 004749 000310 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003430 005011 -00554 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003488 005233 -01277 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003546 005276 -01850 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003617 005311 -02280 0625 0000 0875 0375 1000 0125 0000 %0412 S17 003722 005457 -02512 0625 0000 1000 0375 1000 0000 0000 %0413 S18 003817 003829 003631 0625 0125 0000 0375 0875 1000 0000 %0414 T10 004073 003936 003250 0625 0125 0125 0375 0875 0875 0000 %0415 T11 004119 003571 001636 0625 0125 0250 0375 0875 0750 0000 %0416 T12 004077 003966 000671 0625 0125 0375 0375 0875 0625 0000 %0417 T13 004086 004342 -00415 0625 0125 0500 0375 0875 0500 0000 %0418 T14 004025 004743 -01208 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004126 004773 -01882 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004160 005000 -02375 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004070 004738 -02736 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004523 002008 004230 0625 0250 0000 0375 0750 1000 0000 %0423 U10 004995 002064 003805 0625 0250 0125 0375 0750 0875 0000 %0424 U11 005010 002185 002075 0625 0250 0250 0375 0750 0750 0000 %0425 U12 004966 002471 000948 0625 0250 0375 0375 0750 0625 0000 %0426 U13 005082 002877 -00188 0625 0250 0500 0375 0750 0500 0000 %0427 U14 005060 003262 -01178 0625 0250 0625 0375 0750 0375 0000 %0428 U15 005014 003374 -01741 0625 0250 0750 0375 0750 0250 0000 %0429 U16 004894 003939 -02527 0625 0250 0875 0375 0750 0125 0000 %0430 U17 004608 003918 -02763 0625 0250 1000 0375 0750 0000 0000 %0431 U18 004939 000843 004766 0625 0375 0000 0375 0625 1000 0000 %0432 V10 005615 000922 004416 0625 0375 0125 0375 0625 0875 0000 %0433 V11 005702 001010 002688 0625 0375 0250 0375 0625 0750 0000 %0434 V12 005742 001263 001323 0625 0375 0375 0375 0625 0625 0000 %0435 V13 005864 001695 000103 0625 0375 0500 0375 0625 0500 0000 %0436 V14 005823 002009 -01038 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005647 002306 -01589 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005652 002929 -02394 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005238 002997 -02736 0625 0375 1000 0375 0625 0000 0000 %0440 V18 005860 -00170 005800 0625 0500 0000 0375 0500 1000 0000 %0441 W10 006350 -00213 005365 0625 0500 0125 0375 0500 0875 0000 %0442 W11 006522 -00072 003356 0625 0500 0250 0375 0500 0750 0000 %0443 W12 006473 000211 002057 0625 0500 0375 0375 0500 0625 0000 %0444 W13 006443 000699 000487 0625 0500 0500 0375 0500 0500 0000 %0445 W14 006441 001020 -00853 0625 0500 0625 0375 0500 0375 0000 %0446 W15 006276 001312 -01489 0625 0500 0750 0375 0500 0250 0000 %0447 W16 006329 001946 -02270 0625 0500 0875 0375 0500 0125 0000 %0448 W17 005999 001893 -02579 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006911 -01111 006884 0625 0625 0000 0375 0375 1000 0000 %0450 X10 007182 -01104 006389 0625 0625 0125 0375 0375 0875 0000 %0451 X11 007269 -00953 004009 0625 0625 0250 0375 0375 0750 0000 %0452 X12 007244 -00752 002693 0625 0625 0375 0375 0375 0625 0000 %0453 X13 007197 -00438 001077 0625 0625 0500 0375 0375 0500 0000 %0454 X14 007171 000009 -00080 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006973 000255 -01357 0625 0625 0750 0375 0375 0250 0000 %0456 X16 006982 000521 -02040 0625 0625 0875 0375 0375 0125 0000 %0457 X17 006686 000732 -02498 0625 0625 1000 0375 0375 0000 0000 %0458 X18 007452 -01673 007402 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 007605 -01802 006343 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 007657 -01685 004415 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 007622 -01565 003122 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 007595 -01362 001848 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 007600 -01211 000384 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 007562 -00889 -01199 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007467 -00476 -01878 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007249 -00455 -02451 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 007944 -02349 007680 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 008009 -02425 006752 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007938 -02250 004333 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007907 -02310 003211 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007941 -02222 002142 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 008031 -01985 001147 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 008017 -01782 -00219 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 008077 -01443 -01722 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007753 -01279 -02288 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 008039 -03155 007301 0625 1000 0000 0375 0000 1000 0000 %0477 a10 008197 -02982 006531 0625 1000 0125 0375 0000 0875 0000 %0478 a11 008100 -02987 005135 0625 1000 0250 0375 0000 0750 0000 %0479 a12 007977 -02945 003579 0625 1000 0375 0375 0000 0625 0000 %0480 a13 008063 -02662 002288 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008218 -02308 001468 0625 1000 0625 0375 0000 0375 0000 %0482 a15 008174 -02105 000411 0625 1000 0750 0375 0000 0250 0000 %0483 a16 008038 -01796 -00982 0625 1000 0875 0375 0000 0125 0000 %0484 a17 007912 -01502 -02083 0625 1000 1000 0375 0000 0000 0000 %0485 a18 003846 005053 002773 0750 0000 0000 0250 1000 1000 0000 %0486 A19 003739 005020 002298 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003696 005098 001770 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003674 005263 000963 0750 0000 0375 0250 1000 0625 0000 %0489 A22 003608 005389 000147 0750 0000 0500 0250 1000 0500 0000 %0490 A23 003599 005639 -00874 0750 0000 0625 0250 1000 0375 0000 %0491 A24 003593 005716 -01373 0750 0000 0750 0250 1000 0250 0000 %0492 A25 003745 005852 -01892 0750 0000 0875 0250 1000 0125 0000 %0493 A26 003926 006011 -02156 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004416 004872 004214 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004475 004150 003232 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004358 004354 002184 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004281 004482 001393 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004239 004663 000591 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004176 005158 -00509 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004125 005543 -01438 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004235 005547 -01986 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004316 005480 -02373 0750 0125 1000 0250 0875 0000 0000 %0503 B27 005306 002755 005002 0750 0250 0000 0250 0750 1000 0000 %0504 C19 005289 002754 004082 0750 0250 0125 0250 0750 0875 0000 %0505 C20 005244 002841 002526 0750 0250 0250 0250 0750 0750 0000 %0506 C21 005203 002998 001759 0750 0250 0375 0250 0750 0625 0000 %0507 C22 005191 003249 000784 0750 0250 0500 0250 0750 0500 0000 %0508 C23 005167 003702 -00277 0750 0250 0625 0250 0750 0375 0000 %0509 C24 004962 004136 -01362 0750 0250 0750 0250 0750 0250 0000 %0510 C25 005027 004435 -01925 0750 0250 0875 0250 0750 0125 0000 %0511 C26 004885 004588 -02416 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005810 001610 005601 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005964 001628 005009 0750 0375 0125 0250 0625 0875 0000 %0514 D20 006002 001668 003026 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005974 001899 002107 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005910 002100 001155 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005885 002602 -00012 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005701 002982 -01168 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005725 003525 -01854 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005463 003763 -02317 0750 0375 1000 0250 0625 0000 0000 %0521 D27 006318 000636 006205 0750 0500 0000 0250 0500 1000 0000 %0522 E19 006495 000707 005785 0750 0500 0125 0250 0500 0875 0000 %0523 E20 006640 000659 003709 0750 0500 0250 0250 0500 0750 0000 %0524 E21 006620 000841 002685 0750 0500 0375 0250 0500 0625 0000 %0525 E22 006627 000998 001688 0750 0500 0500 0250 0500 0500 0000 %0526 E23 006525 001527 000379 0750 0500 0625 0250 0500 0375 0000 %0527 E24 006305 002067 -01082 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006425 002446 -01700 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006265 002854 -02085 0750 0500 1000 0250 0500 0000 0000 %0530 E27 007259 -00285 007229 0750 0625 0000 0250 0375 1000 0000 %0531 F19 007313 -00340 006510 0750 0625 0125 0250 0375 0875 0000 %0532 F20 007386 -00274 004496 0750 0625 0250 0250 0375 0750 0000 %0533 F21 007305 -00058 003426 0750 0625 0375 0250 0375 0625 0000 %0534 F22 007228 000211 002308 0750 0625 0500 0250 0375 0500 0000 %0535 F23 007133 000653 000734 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006976 001031 -00863 0750 0625 0750 0250 0375 0250 0000 %0537 F25 007070 001395 -01620 0750 0625 0875 0250 0375 0125 0000 %0538 F26 006991 001721 -01968 0750 0625 1000 0250 0375 0000 0000 %0539 F27 008282 -01237 008364 0750 0750 0000 0250 0250 1000 0000 %0540 G19 008064 -01157 007339 0750 0750 0125 0250 0250 0875 0000 %0541 G20 008031 -01042 005135 0750 0750 0250 0250 0250 0750 0000 %0542 G21 008008 -00862 004087 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007979 -00763 003045 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007934 -00439 001386 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007817 000012 -00030 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007752 000199 -01261 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007772 000357 -01803 0750 0750 1000 0250 0250 0000 0000 %0548 G27 008886 -01691 009104 0750 0875 0000 0250 0125 1000 0000 %0549 H19 008631 -01847 008036 0750 0875 0125 0250 0125 0875 0000 %0550 H20 008431 -01770 005451 0750 0875 0250 0250 0125 0750 0000 %0551 H21 008374 -01745 004458 0750 0875 0375 0250 0125 0625 0000 %0552 H22 008371 -01672 003490 0750 0875 0500 0250 0125 0500 0000 %0553 H23 008393 -01447 002374 0750 0875 0625 0250 0125 0375 0000 %0554 H24 008461 -01354 000879 0750 0875 0750 0250 0125 0250 0000 %0555 H25 008471 -00910 -01093 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008390 -00933 -01628 0750 0875 1000 0250 0125 0000 0000 %0557 H27 008844 -02340 008690 0750 1000 0000 0250 0000 1000 0000 %0558 I19 008735 -02353 007341 0750 1000 0125 0250 0000 0875 0000 %0559 I20 008712 -02395 005802 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008636 -02450 004944 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008574 -02413 003916 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008578 -02227 002691 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008701 -01907 001714 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008570 -01605 000031 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008403 -01240 -01547 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004245 005614 003282 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004208 005626 002876 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004103 005684 002255 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004074 005789 001519 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004066 005953 000832 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004029 006139 -00061 0875 0000 0625 0125 1000 0375 0000 %0572 J24 003992 006333 -00920 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004076 006402 -01562 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004164 006445 -01804 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004988 005202 004895 0875 0125 0000 0125 0875 1000 0000 %0576 K19 004960 005072 004076 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004820 005225 002844 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004735 005401 002045 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004680 005533 001250 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004677 005913 000316 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004574 006273 -00790 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004625 006230 -01642 0875 0125 0875 0125 0875 0125 0000 %0583 K26 004616 005900 -01966 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005908 003377 005652 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005699 003527 004723 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005717 003533 003180 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005647 003740 002266 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005567 003910 001559 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005580 004213 000682 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005534 004705 -00417 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005506 004889 -01510 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005394 004956 -01841 0875 0250 1000 0125 0750 0000 0000 %0593 L27 006493 002381 006295 0875 0375 0000 0125 0625 1000 0000 %0594 M19 006275 002474 005083 0875 0375 0125 0125 0625 0875 0000 %0595 M20 006299 002497 003515 0875 0375 0250 0125 0625 0750 0000 %0596 M21 006268 002659 002558 0875 0375 0375 0125 0625 0625 0000 %0597 M22 006206 002846 001791 0875 0375 0500 0125 0625 0500 0000 %0598 M23 006225 003093 000989 0875 0375 0625 0125 0625 0375 0000 %0599 M24 006154 003698 -00302 0875 0375 0750 0125 0625 0250 0000 %0600 M25 006116 003903 -01442 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006027 004016 -01816 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006944 001385 006836 0875 0500 0000 0125 0500 1000 0000 %0603 N19 007002 001348 005932 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006980 001285 004094 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006947 001448 003222 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006929 001670 002307 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006916 002016 001376 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006853 002585 000064 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006800 002897 -01222 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006831 003108 -01515 0875 0500 1000 0125 0500 0000 0000 %0611 N27 007552 000600 007547 0875 0625 0000 0125 0375 1000 0000 %0612 O19 007530 000483 006865 0875 0625 0125 0125 0375 0875 0000 %0613 O20 007547 000446 004750 0875 0625 0250 0125 0375 0750 0000 %0614 O21 007469 000681 003766 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007487 000764 002864 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007442 000979 001891 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007372 001540 000486 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007325 002026 -01031 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007480 002300 -01333 0875 0625 1000 0125 0375 0000 0000 %0620 O27 008421 -00270 008459 0875 0750 0000 0125 0250 1000 0000 %0621 P19 008183 -00392 007484 0875 0750 0125 0125 0250 0875 0000 %0622 P20 008139 -00254 005279 0875 0750 0250 0125 0250 0750 0000 %0623 P21 008138 -00084 004341 0875 0750 0375 0125 0250 0625 0000 %0624 P22 008081 000053 003470 0875 0750 0500 0125 0250 0500 0000 %0625 P23 008068 000296 002489 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007962 000619 000974 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007972 001056 -00817 0875 0750 0875 0125 0250 0125 0000 %0628 P26 008090 001296 -01202 0875 0750 1000 0125 0250 0000 0000 %0629 P27 009001 -01265 009122 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 008834 -01171 008095 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008757 -01048 006153 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008749 -00954 005085 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008734 -00829 004295 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008750 -00710 003261 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008810 -00562 001744 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008867 000011 -00007 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008744 000156 -01006 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 009352 -01768 009424 0875 1000 0000 0125 0000 1000 0000 %0639 R19 009150 -01674 008337 0875 1000 0125 0125 0000 0875 0000 %0640 R20 009051 -01613 006569 0875 1000 0250 0125 0000 0750 0000 %0641 R21 009001 -01756 005478 0875 1000 0375 0125 0000 0625 0000 %0642 R22 009012 -01799 004740 0875 1000 0500 0125 0000 0500 0000 %0643 R23 009101 -01770 003910 0875 1000 0625 0125 0000 0375 0000 %0644 R24 009127 -01590 002785 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009148 -01138 000891 0875 1000 0875 0125 0000 0125 0000 %0646 R26 009008 -00788 -00766 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004624 006137 003793 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004585 006133 003321 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004526 006156 002631 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004480 006225 001926 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004470 006392 001279 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004487 006605 000632 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004514 006870 -00183 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004516 007049 -00931 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004575 007027 -01284 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005245 005615 005156 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005094 005917 004552 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005011 006190 003493 1000 0125 0250 0000 0875 0750 0000 %0659 T21 004942 006452 002529 1000 0125 0375 0000 0875 0625 0000 %0660 T22 004925 006632 001866 1000 0125 0500 0000 0875 0500 0000 %0661 T23 004864 006957 000938 1000 0125 0625 0000 0875 0375 0000 %0662 T24 004877 007203 -00014 1000 0125 0750 0000 0875 0250 0000 %0663 T25 004941 007401 -00799 1000 0125 0875 0000 0875 0125 0000 %0664 T26 004921 006885 -01215 1000 0125 1000 0000 0875 0000 0000 %0665 T27 006004 004116 005831 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005882 004338 005320 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005894 004436 004294 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005713 004955 003040 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005649 005242 002257 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005650 005468 001315 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005697 005725 000224 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005829 005908 -00870 1000 0250 0875 0000 0750 0125 0000 %0673 U26 005812 005578 -01289 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006580 003009 006446 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006512 003163 005768 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006458 003363 004810 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006452 003576 003452 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006438 003805 002545 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006405 004103 001647 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006447 004354 000610 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006515 004708 -00575 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006600 004786 -01087 1000 0375 1000 0000 0625 0000 0000 %0683 V27 007151 001941 007068 1000 0500 0000 0000 0500 1000 0000 %0684 W19 007161 001954 006359 1000 0500 0125 0000 0500 0875 0000 %0685 W20 007141 002147 004954 1000 0500 0250 0000 0500 0750 0000 %0686 W21 007158 002310 003880 1000 0500 0375 0000 0500 0625 0000 %0687 W22 007220 002417 002956 1000 0500 0500 0000 0500 0500 0000 %0688 W23 007223 002692 001940 1000 0500 0625 0000 0500 0375 0000 %0689 W24 007203 003076 000840 1000 0500 0750 0000 0500 0250 0000 %0690 W25 007209 003564 -00371 1000 0500 0875 0000 0500 0125 0000 %0691 W26 007212 003806 -00970 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007550 001227 007468 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007676 001045 006785 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007713 001132 005528 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007739 001302 004277 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007806 001384 003505 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007880 001554 002474 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007878 001949 001239 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007887 002508 -00156 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007854 002846 -00831 1000 0625 1000 0000 0375 0000 0000 %0701 X27 008249 000041 007805 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 008273 000114 006593 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 008269 000243 005672 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 008263 000415 004764 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008338 000449 004191 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008375 000650 003135 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008541 000814 001865 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008456 001568 000267 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008470 001965 -00680 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008687 -00601 007345 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008727 -00600 006858 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008723 -00443 005787 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008738 -00326 005034 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008773 -00244 004469 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008811 -00108 003704 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 009084 -00240 002786 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 009054 000364 001221 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 009126 000963 -00382 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009148 -01392 008534 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009162 -01347 007718 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009167 -01181 006391 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009300 -01241 005630 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009335 -01161 005057 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009370 -01051 004308 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009550 -01117 003536 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009645 -00765 002130 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009716 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009734 000001 -00007 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009049 -00713 -00754 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008505 -01082 -01423 0750 1000 1000 0250 0000 0000 0000 %0731 b03 008018 -01410 -01946 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007483 -01737 -02499 0500 1000 1000 0500 0000 0000 0000 %0733 b05 006906 -02085 -02909 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006134 -02653 -03340 0250 1000 1000 0750 0000 0000 0000 %0735 b07 005526 -03136 -03643 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005128 -03317 -03944 0000 1000 1000 1000 0000 0000 0000 %0737 b09 009161 000364 000887 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008938 000016 000000 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008598 -00774 -01026 0750 0875 0875 0250 0125 0125 0000 %0740 c03 008193 -01286 -01572 0625 0875 0875 0375 0125 0125 0000 %0741 c04 007651 -01680 -02114 0500 0875 0875 0500 0125 0125 0000 %0742 c05 007056 -01999 -02735 0375 0875 0875 0625 0125 0125 0000 %0743 c06 006445 -02317 -02969 0250 0875 0875 0750 0125 0125 0000 %0744 c07 005774 -03032 -03349 0125 0875 0875 0875 0125 0125 0000 %0745 c08 005052 -03410 -03782 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008680 000813 001356 1000 0750 0750 0000 0250 0250 0000 %0747 d01 008222 000547 000711 0875 0750 0750 0125 0250 0250 0000 %0748 d02 008012 000021 -00056 0750 0750 0750 0250 0250 0250 0000 %0749 d03 007657 -00730 -01090 0625 0750 0750 0375 0250 0250 0000 %0750 d04 007198 -01301 -01660 0500 0750 0750 0500 0250 0250 0000 %0751 d05 006625 -01718 -02248 0375 0750 0750 0625 0250 0250 0000 %0752 d06 006050 -01981 -02667 0250 0750 0750 0750 0250 0250 0000 %0753 d07 005569 -02687 -03122 0125 0750 0750 0875 0250 0250 0000 %0754 d08 005012 -03699 -03467 0000 0750 0750 1000 0250 0250 0000 %0755 d09 008002 001460 002139 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007671 000851 001683 0875 0625 0625 0125 0375 0375 0000 %0757 e02 007440 000597 000606 0750 0625 0625 0250 0375 0375 0000 %0758 e03 007141 000013 -00097 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006736 -00747 -01287 0500 0625 0625 0500 0375 0375 0000 %0760 e05 006206 -01329 -01769 0375 0625 0625 0625 0375 0375 0000 %0761 e06 005641 -01711 -02338 0250 0625 0625 0750 0375 0375 0000 %0762 e07 005250 -02258 -02890 0125 0625 0625 0875 0375 0375 0000 %0763 e08 004795 -03469 -03454 0000 0625 0625 1000 0375 0375 0000 %0764 e09 007323 002267 002814 1000 0500 0500 0000 0500 0500 0000 %0765 f01 007058 001574 002126 0875 0500 0500 0125 0500 0500 0000 %0766 f02 006805 000958 001574 0750 0500 0500 0250 0500 0500 0000 %0767 f03 006509 000620 000555 0625 0500 0500 0375 0500 0500 0000 %0768 f04 006183 000005 -00107 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005754 -00781 -01272 0375 0500 0500 0625 0500 0500 0000 %0770 f06 005269 -01340 -01993 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004833 -01821 -02774 0125 0500 0500 0875 0500 0500 0000 %0772 f08 004348 -02926 -03423 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006471 003562 003381 1000 0375 0375 0000 0625 0625 0000 %0774 g01 006266 002589 002543 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005982 001875 002024 0750 0375 0375 0250 0625 0625 0000 %0776 g03 005665 001300 001402 0625 0375 0375 0375 0625 0625 0000 %0777 g04 005378 000674 000617 0500 0375 0375 0500 0625 0625 0000 %0778 g05 005244 -00001 -00123 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004741 -00960 -01612 0250 0375 0375 0750 0625 0625 0000 %0780 g07 004512 -01467 -02229 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003884 -02651 -03061 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005960 004308 004301 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005662 003504 003190 0875 0250 0250 0125 0750 0750 0000 %0784 h02 005264 002795 002555 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004856 002209 002056 0625 0250 0250 0375 0750 0750 0000 %0786 h04 004533 001473 001573 0500 0250 0250 0500 0750 0750 0000 %0787 h05 004292 000879 000775 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003980 -00003 -00124 0250 0250 0250 0750 0750 0750 0000 %0789 h07 003982 -01043 -01647 0125 0250 0250 0875 0750 0750 0000 %0790 h08 003472 -02212 -02780 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005094 005931 004606 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004912 005014 004085 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004466 004075 003230 0750 0125 0125 0250 0875 0875 0000 %0794 i03 003935 003908 003235 0625 0125 0125 0375 0875 0875 0000 %0795 i04 003698 002855 002515 0500 0125 0125 0500 0875 0875 0000 %0796 i05 003533 001810 001754 0375 0125 0125 0625 0875 0875 0000 %0797 i06 003315 001060 001115 0250 0125 0125 0750 0875 0875 0000 %0798 i07 002428 000000 -00072 0125 0125 0125 0875 0875 0875 0000 %0799 i08 002938 -01780 -02218 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004551 006169 003727 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004136 005507 003225 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003749 004943 002736 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003374 004311 002469 0625 0000 0000 0375 1000 1000 0000 %0804 j04 003040 003728 001957 0500 0000 0000 0500 1000 1000 0000 %0805 j05 002757 003057 001611 0375 0000 0000 0625 1000 1000 0000 %0806 j06 002426 002468 001110 0250 0000 0000 0750 1000 1000 0000 %0807 j07 002094 001567 000526 0125 0000 0000 0875 1000 1000 0000 %0808 j08 001306 000002 000010 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009727 000003 -00009 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008845 000118 -00890 0875 0875 1000 0125 0125 0000 0000 %0811 b11 007893 000294 -01698 0750 0750 1000 0250 0250 0000 0000 %0812 b12 006778 000652 -02411 0625 0625 1000 0375 0375 0000 0000 %0813 b13 005564 001238 -03114 0500 0500 1000 0500 0500 0000 0000 %0814 b14 004607 001839 -03553 0375 0375 1000 0625 0625 0000 0000 %0815 b15 003748 002322 -03922 0250 0250 1000 0750 0750 0000 0000 %0816 b16 003421 002358 -04037 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003055 002473 -04129 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009663 -00561 001513 1000 1000 0875 0000 0000 0125 0000 %0819 c10 009069 000022 -00020 0875 0875 0875 0125 0125 0125 0000 %0820 c11 008017 000085 -01204 0750 0750 0875 0250 0250 0125 0000 %0821 c12 007036 000506 -01959 0625 0625 0875 0375 0375 0125 0000 %0822 c13 006016 001020 -02808 0500 0500 0875 0500 0500 0125 0000 %0823 c14 004876 001631 -03414 0375 0375 0875 0625 0625 0125 0000 %0824 c15 003933 002096 -03849 0250 0250 0875 0750 0750 0125 0000 %0825 c16 003495 002187 -03992 0125 0125 0875 0875 0875 0125 0000 %0826 c17 002954 002402 -04065 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009595 -00937 002828 1000 1000 0750 0000 0000 0250 0000 %0828 d10 009057 -00412 001271 0875 0875 0750 0125 0125 0250 0000 %0829 d11 008140 000018 -00043 0750 0750 0750 0250 0250 0250 0000 %0830 d12 007085 000239 -01285 0625 0625 0750 0375 0375 0250 0000 %0831 d13 006021 000579 -01954 0500 0500 0750 0500 0500 0250 0000 %0832 d14 005071 000946 -02606 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004398 001501 -03162 0250 0250 0750 0750 0750 0250 0000 %0834 d16 003629 001961 -03774 0125 0125 0750 0875 0875 0250 0000 %0835 d17 002824 002304 -04066 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009413 -00937 003710 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008953 -00610 002697 0875 0875 0625 0125 0125 0375 0000 %0838 e11 008204 -00330 000997 0750 0750 0625 0250 0250 0375 0000 %0839 e12 007237 000017 -00104 0625 0625 0625 0375 0375 0375 0000 %0840 e13 006082 000283 -01453 0500 0500 0625 0500 0500 0375 0000 %0841 e14 005085 000680 -02198 0375 0375 0625 0625 0625 0375 0000 %0842 e15 004330 001195 -02804 0250 0250 0625 0750 0750 0375 0000 %0843 e16 003503 001863 -03498 0125 0125 0625 0875 0875 0375 0000 %0844 e17 002718 002343 -04118 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009361 -01104 004627 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008905 -00768 003762 0875 0875 0500 0125 0125 0500 0000 %0847 f11 008196 -00699 002641 0750 0750 0500 0250 0250 0500 0000 %0848 f12 007291 -00376 000885 0625 0625 0500 0375 0375 0500 0000 %0849 f13 006240 000009 -00102 0500 0500 0500 0500 0500 0500 0000 %0850 f14 005078 000285 -01618 0375 0375 0500 0625 0625 0500 0000 %0851 f15 004191 000695 -02367 0250 0250 0500 0750 0750 0500 0000 %0852 f16 003439 001405 -02942 0125 0125 0500 0875 0875 0500 0000 %0853 f17 002683 001866 -04038 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009287 -01201 005498 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008847 -00971 004924 0875 0875 0375 0125 0125 0625 0000 %0856 g11 008128 -00860 003805 0750 0750 0375 0250 0250 0625 0000 %0857 g12 007251 -00723 002590 0625 0625 0375 0375 0375 0625 0000 %0858 g13 006277 -00551 001184 0500 0500 0375 0500 0500 0625 0000 %0859 g14 005258 000012 -00127 0375 0375 0375 0625 0625 0625 0000 %0860 g15 003966 000365 -01832 0250 0250 0375 0750 0750 0625 0000 %0861 g16 003128 000840 -02531 0125 0125 0375 0875 0875 0625 0000 %0862 g17 002503 001254 -03467 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009195 -01182 006148 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008829 -01046 005880 0875 0875 0250 0125 0125 0750 0000 %0865 h11 008114 -01048 004892 0750 0750 0250 0250 0250 0750 0000 %0866 h12 007224 -00943 003937 0625 0625 0250 0375 0375 0750 0000 %0867 h13 006301 -00853 002838 0500 0500 0250 0500 0500 0750 0000 %0868 h14 005346 -00631 001504 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003999 000012 -00094 0250 0250 0250 0750 0750 0750 0000 %0870 h16 003056 000484 -01907 0125 0125 0250 0875 0875 0750 0000 %0871 h17 002337 001073 -02870 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009187 -01367 007607 1000 1000 0125 0000 0000 0875 0000 %0873 i10 008893 -01203 008001 0875 0875 0125 0125 0125 0875 0000 %0874 i11 008118 -01164 007239 0750 0750 0125 0250 0250 0875 0000 %0875 i12 007108 -01095 006285 0625 0625 0125 0375 0375 0875 0000 %0876 i13 006236 -01025 004737 0500 0500 0125 0500 0500 0875 0000 %0877 i14 005353 -00926 003539 0375 0375 0125 0625 0625 0875 0000 %0878 i15 004311 -00659 002075 0250 0250 0125 0750 0750 0875 0000 %0879 i16 002413 000008 -00053 0125 0125 0125 0875 0875 0875 0000 %0880 i17 002420 000684 -01619 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009158 -01409 008484 1000 1000 0000 0000 0000 1000 0000 %0882 j10 009030 -01297 009071 0875 0875 0000 0125 0125 1000 0000 %0883 j11 008250 -01231 008270 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006886 -01092 006759 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005612 -00959 005434 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004808 -00795 004480 0375 0375 0000 0625 0625 1000 0000 %0887 j15 003812 -00684 003384 0250 0250 0000 0750 0750 1000 0000 %0888 j16 003023 -00403 002058 0125 0125 0000 0875 0875 1000 0000 %0889 j17 001529 000002 000009 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009729 -00005 000017 1000 1000 1000 0000 0000 0000 0000 %0891 b19 009150 000939 -00363 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008531 001865 -00637 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007911 002752 -00803 1000 0625 1000 0000 0375 0000 0000 %0894 b22 007251 003718 -00918 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006560 004833 -01065 1000 0375 1000 0000 0625 0000 0000 %0896 b24 005730 005668 -01238 1000 0250 1000 0000 0750 0000 0000 %0897 b25 004873 006898 -01122 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004516 007050 -01154 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009194 -00939 000544 0875 1000 0875 0125 0000 0125 0000 %0900 c19 009026 000015 -00001 0875 0875 0875 0125 0125 0125 0000 %0901 c20 008185 000905 -00784 0875 0750 0875 0125 0250 0125 0000 %0902 c21 007555 001888 -00985 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006899 002830 -01175 0875 0500 0875 0125 0500 0125 0000 %0904 c23 006166 003883 -01392 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005436 004930 -01448 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004641 006142 -01546 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004090 006225 -01334 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008798 -01559 001120 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008616 -01133 000467 0750 0875 0750 0250 0125 0250 0000 %0910 d20 008082 000026 -00057 0750 0750 0750 0250 0250 0250 0000 %0911 d21 007325 000991 -00813 0750 0625 0750 0250 0375 0250 0000 %0912 d22 006537 001986 -01013 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005846 002897 -01117 0750 0375 0750 0250 0625 0250 0000 %0914 d24 005008 004071 -01264 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004185 005420 -01314 0750 0125 0750 0250 0875 0250 0000 %0916 d26 003622 005488 -01140 0750 0000 0750 0250 1000 0250 0000 %0917 d27 008272 -02197 001455 0625 1000 0625 0375 0000 0375 0000 %0918 e19 008095 -01907 001179 0625 0875 0625 0375 0125 0375 0000 %0919 e20 007655 -01145 000361 0625 0750 0625 0375 0250 0375 0000 %0920 e21 007150 000021 -00103 0625 0625 0625 0375 0375 0375 0000 %0921 e22 006356 001032 -00840 0625 0500 0625 0375 0500 0375 0000 %0922 e23 005564 002060 -01044 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004668 003310 -01149 0625 0250 0625 0375 0750 0375 0000 %0924 e25 003776 004562 -01111 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003269 004818 -01010 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007676 -02893 001563 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007558 -02736 001445 0500 0875 0500 0500 0125 0500 0000 %0928 f20 007141 -01935 001078 0500 0750 0500 0500 0250 0500 0000 %0929 f21 006684 -01140 000328 0500 0625 0500 0500 0375 0500 0000 %0930 f22 006095 000011 -00100 0500 0500 0500 0500 0500 0500 0000 %0931 f23 005214 001107 -00821 0500 0375 0500 0500 0625 0500 0000 %0932 f24 004391 002452 -01093 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003516 003700 -00972 0500 0125 0500 0500 0875 0500 0000 %0934 f26 002916 004025 -00907 0500 0000 0500 0500 1000 0500 0000 %0935 f27 007054 -03769 002056 0375 1000 0375 0625 0000 0625 0000 %0936 g19 007077 -03578 001881 0375 0875 0375 0625 0125 0625 0000 %0937 g20 006461 -02864 001384 0375 0750 0375 0625 0250 0625 0000 %0938 g21 006006 -02174 000893 0375 0625 0375 0625 0375 0625 0000 %0939 g22 005529 -01325 000546 0375 0500 0375 0625 0500 0625 0000 %0940 g23 005004 000006 -00108 0375 0375 0375 0625 0625 0625 0000 %0941 g24 004073 001375 -00819 0375 0250 0375 0625 0750 0625 0000 %0942 g25 003205 003037 -00992 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002582 003569 -00857 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006464 -04735 002590 0250 1000 0250 0750 0000 0750 0000 %0945 h19 006683 -04391 002368 0250 0875 0250 0750 0125 0750 0000 %0946 h20 005942 -03558 001767 0250 0750 0250 0750 0250 0750 0000 %0947 h21 005430 -02981 001421 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004898 -02344 001005 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004465 -01399 000566 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003699 000007 -00094 0250 0250 0250 0750 0750 0750 0000 %0951 h25 003001 001750 -00837 0250 0125 0250 0750 0875 0750 0000 %0952 h26 002334 002948 -00760 0250 0000 0250 0750 1000 0750 0000 %0953 h27 005887 -05773 003081 0125 1000 0125 0875 0000 0875 0000 %0954 i19 006067 -05516 003067 0125 0875 0125 0875 0125 0875 0000 %0955 i20 005573 -04639 002461 0125 0750 0125 0875 0250 0875 0000 %0956 i21 005098 -04095 002051 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004678 -03360 001672 0125 0500 0125 0875 0500 0875 0000 %0958 i23 004168 -02683 001137 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003694 -01542 000743 0125 0250 0125 0875 0750 0875 0000 %0960 i25 002151 -00002 -00042 0125 0125 0125 0875 0875 0875 0000 %0961 i26 001883 001783 -00307 0125 0000 0125 0875 1000 0875 0000 %0962 i27 005701 -06159 003462 0000 1000 0000 1000 0000 1000 0000 %0963 j19 005490 -06546 003416 0000 0875 0000 1000 0125 1000 0000 %0964 j20 005159 -06756 003202 0000 0750 0000 1000 0250 1000 0000 %0965 j21 004837 -06523 002934 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004463 -06159 002653 0000 0500 0000 1000 0500 1000 0000 %0967 j23 004024 -05627 002354 0000 0375 0000 1000 0625 1000 0000 %0968 j24 003500 -04572 001738 0000 0250 0000 1000 0750 1000 0000 %0969 j25 002989 -03274 001259 0000 0125 0000 1000 0875 1000 0000 %0970 j26 001414 -00004 -00020 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa0100 [ %BEG GE25_22_REM.TXT, Separation cmyn61*, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004624 006137 003793 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009148 -01392 008534 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z005673 -06438 003583 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005187 -03486 -03884 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003101 002427 -04351 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004575 007027 -01284 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z001442 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009716 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004551 006169 003727 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 009158 -01409 008484 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 005701 -06159 003462 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005128 -03317 -03944 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003055 002473 -04129 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004516 007050 -01154 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 001416 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009730 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def /FileData1Na (GG95_HRS16_96_D65_00%_G1) def /LUT_LAB1 [ %GE750-7A, Page 7 /24, %BEG GE65_22.TXT, Separation cmyn61*, cf1=0.90, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE65_22.TXT, Separation cmyn61*, cf1=0.90, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 002110 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 002275 000628 -01451 0000 0000 0125 1000 1000 0875 0000 %0001 A02 002409 000579 -01642 0000 0000 0250 1000 1000 0750 0000 %0002 A03 002522 000497 -02076 0000 0000 0375 1000 1000 0625 0000 %0003 A04 002587 000617 -02388 0000 0000 0500 1000 1000 0500 0000 %0004 A05 002885 001061 -02923 0000 0000 0625 1000 1000 0375 0000 %0005 A06 002967 001471 -03384 0000 0000 0750 1000 1000 0250 0000 %0006 A07 003128 001857 -03985 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003237 002326 -04462 0000 0000 1000 1000 1000 0000 0000 %0008 A09 002662 -00945 000982 0000 0125 0000 1000 0875 1000 0000 %0009 B01 002442 -00555 -01273 0000 0125 0125 1000 0875 0875 0000 %0010 B02 002739 -00394 -01453 0000 0125 0250 1000 0875 0750 0000 %0011 B03 002749 -00179 -02078 0000 0125 0375 1000 0875 0625 0000 %0012 B04 002828 -00100 -02239 0000 0125 0500 1000 0875 0500 0000 %0013 B05 003044 000231 -02852 0000 0125 0625 1000 0875 0375 0000 %0014 B06 003273 000540 -03293 0000 0125 0750 1000 0875 0250 0000 %0015 B07 003528 000713 -03643 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003583 001390 -04632 0000 0125 1000 1000 0875 0000 0000 %0017 B09 003156 -01542 001126 0000 0250 0000 1000 0750 1000 0000 %0018 C01 003065 -01384 -00265 0000 0250 0125 1000 0750 0875 0000 %0019 C02 003046 -01306 -01454 0000 0250 0250 1000 0750 0750 0000 %0020 C03 002860 -01022 -01986 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003055 -00817 -02241 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003277 -00469 -02759 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003489 -00134 -03293 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003692 000197 -03771 0000 0250 0875 1000 0750 0125 0000 %0025 C08 003841 000621 -04452 0000 0250 1000 1000 0750 0000 0000 %0026 C09 003468 -02378 001107 0000 0375 0000 1000 0625 1000 0000 %0027 D01 003260 -01999 -00190 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003113 -01990 -00911 0000 0375 0250 1000 0625 0750 0000 %0029 D03 003221 -01639 -01906 0000 0375 0375 1000 0625 0625 0000 %0030 D04 003380 -01332 -02234 0000 0375 0500 1000 0625 0500 0000 %0031 D05 003578 -01010 -02755 0000 0375 0625 1000 0625 0375 0000 %0032 D06 003722 -00814 -03237 0000 0375 0750 1000 0625 0250 0000 %0033 D07 003785 -00244 -03864 0000 0375 0875 1000 0625 0125 0000 %0034 D08 003950 -00026 -04551 0000 0375 1000 1000 0625 0000 0000 %0035 D09 003786 -03353 001372 0000 0500 0000 1000 0500 1000 0000 %0036 E01 003425 -02460 -00046 0000 0500 0125 1000 0500 0875 0000 %0037 E02 003303 -02563 -00591 0000 0500 0250 1000 0500 0750 0000 %0038 E03 003288 -02300 -01419 0000 0500 0375 1000 0500 0625 0000 %0039 E04 003592 -01879 -02192 0000 0500 0500 1000 0500 0500 0000 %0040 E05 003755 -01490 -02621 0000 0500 0625 1000 0500 0375 0000 %0041 E06 003910 -01255 -03119 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004097 -01017 -03642 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004177 -00735 -04374 0000 0500 1000 1000 0500 0000 0000 %0044 E09 004248 -04273 002197 0000 0625 0000 1000 0375 1000 0000 %0045 F01 004013 -03022 000368 0000 0625 0125 1000 0375 0875 0000 %0046 F02 003901 -02861 -00433 0000 0625 0250 1000 0375 0750 0000 %0047 F03 003854 -02731 -01158 0000 0625 0375 1000 0375 0625 0000 %0048 F04 003925 -02327 -02090 0000 0625 0500 1000 0375 0500 0000 %0049 F05 004120 -02146 -02692 0000 0625 0625 1000 0375 0375 0000 %0050 F06 004178 -01846 -02950 0000 0625 0750 1000 0375 0250 0000 %0051 F07 004290 -01636 -03551 0000 0625 0875 1000 0375 0125 0000 %0052 F08 004498 -01302 -04088 0000 0625 1000 1000 0375 0000 0000 %0053 F09 004696 -05339 002826 0000 0750 0000 1000 0250 1000 0000 %0054 G01 004510 -03984 000882 0000 0750 0125 1000 0250 0875 0000 %0055 G02 004523 -03913 000063 0000 0750 0250 1000 0250 0750 0000 %0056 G03 004410 -03430 -00754 0000 0750 0375 1000 0250 0625 0000 %0057 G04 004397 -03038 -01433 0000 0750 0500 1000 0250 0500 0000 %0058 G05 004352 -02952 -02171 0000 0750 0625 1000 0250 0375 0000 %0059 G06 004379 -02523 -03130 0000 0750 0750 1000 0250 0250 0000 %0060 G07 004557 -02053 -03586 0000 0750 0875 1000 0250 0125 0000 %0061 G08 004599 -01697 -04021 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005227 -06041 003303 0000 0875 0000 1000 0125 1000 0000 %0063 H01 005009 -04794 001292 0000 0875 0125 1000 0125 0875 0000 %0064 H02 004930 -04642 000378 0000 0875 0250 1000 0125 0750 0000 %0065 H03 004920 -04159 -00438 0000 0875 0375 1000 0125 0625 0000 %0066 H04 004899 -03850 -01205 0000 0875 0500 1000 0125 0500 0000 %0067 H05 004902 -03575 -02009 0000 0875 0625 1000 0125 0375 0000 %0068 H06 004908 -03614 -02605 0000 0875 0750 1000 0125 0250 0000 %0069 H07 004769 -03152 -03592 0000 0875 0875 1000 0125 0125 0000 %0070 H08 004925 -02509 -03988 0000 0875 1000 1000 0125 0000 0000 %0071 H09 005623 -06077 003244 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005590 -05682 001930 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005514 -05653 000922 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005462 -05324 -00119 0000 1000 0375 1000 0000 0625 0000 %0075 I04 005452 -04982 -00933 0000 1000 0500 1000 0000 0500 0000 %0076 I05 005618 -04710 -01417 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005396 -04731 -02377 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005453 -03498 -03559 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005373 -03862 -03763 0000 1000 1000 1000 0000 0000 0000 %0080 I09 002417 000380 000534 0125 0000 0000 0875 1000 1000 0000 %0081 J01 002578 000666 -00583 0125 0000 0125 0875 1000 0875 0000 %0082 J02 002601 000737 -01327 0125 0000 0250 0875 1000 0750 0000 %0083 J03 002701 000889 -01791 0125 0000 0375 0875 1000 0625 0000 %0084 J04 002761 001087 -02087 0125 0000 0500 0875 1000 0500 0000 %0085 J05 002923 001520 -02616 0125 0000 0625 0875 1000 0375 0000 %0086 J06 003005 001996 -03278 0125 0000 0750 0875 1000 0250 0000 %0087 J07 003089 002453 -03808 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003250 002705 -04196 0125 0000 1000 0875 1000 0000 0000 %0089 J09 003175 -00749 001305 0125 0125 0000 0875 0875 1000 0000 %0090 K01 002527 -00349 -00347 0125 0125 0125 0875 0875 0875 0000 %0091 K02 002996 000097 -01030 0125 0125 0250 0875 0875 0750 0000 %0092 K03 003217 000162 -01441 0125 0125 0375 0875 0875 0625 0000 %0093 K04 003335 000400 -01990 0125 0125 0500 0875 0875 0500 0000 %0094 K05 003532 000628 -02264 0125 0125 0625 0875 0875 0375 0000 %0095 K06 003591 001031 -02839 0125 0125 0750 0875 0875 0250 0000 %0096 K07 003810 001416 -03357 0125 0125 0875 0875 0875 0125 0000 %0097 K08 004057 001635 -03947 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003310 -01271 001575 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003452 -01112 000272 0125 0250 0125 0875 0750 0875 0000 %0100 L02 003251 -00926 -00971 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003317 -00527 -01491 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003470 -00238 -02050 0125 0250 0500 0875 0750 0500 0000 %0103 L05 003742 000041 -02293 0125 0250 0625 0875 0750 0375 0000 %0104 L06 003979 000236 -02710 0125 0250 0750 0875 0750 0250 0000 %0105 L07 004172 000543 -03170 0125 0250 0875 0875 0750 0125 0000 %0106 L08 004278 000931 -03775 0125 0250 1000 0875 0750 0000 0000 %0107 L09 003641 -01938 001779 0125 0375 0000 0875 0625 1000 0000 %0108 M01 003664 -01950 000634 0125 0375 0125 0875 0625 0875 0000 %0109 M02 003427 -01485 -00426 0125 0375 0250 0875 0625 0750 0000 %0110 M03 003404 -01306 -01400 0125 0375 0375 0875 0625 0625 0000 %0111 M04 003676 -00858 -01978 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004017 -00644 -02275 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004236 -00377 -02716 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004417 -00112 -03117 0125 0375 0875 0875 0625 0125 0000 %0115 M08 004646 000183 -03609 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004132 -03147 002168 0125 0500 0000 0875 0500 1000 0000 %0117 N01 003992 -02751 000803 0125 0500 0125 0875 0500 0875 0000 %0118 N02 003912 -02392 -00159 0125 0500 0250 0875 0500 0750 0000 %0119 N03 003868 -01994 -00921 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004004 -01482 -01956 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004272 -01172 -02286 0125 0500 0625 0875 0500 0375 0000 %0122 N06 004453 -00889 -02711 0125 0500 0750 0875 0500 0250 0000 %0123 N07 004653 -00640 -03058 0125 0500 0875 0875 0500 0125 0000 %0124 N08 004836 -00364 -03538 0125 0500 1000 0875 0500 0000 0000 %0125 N09 004471 -04052 002735 0125 0625 0000 0875 0375 1000 0000 %0126 O01 004475 -03254 001177 0125 0625 0125 0875 0375 0875 0000 %0127 O02 004499 -02861 000189 0125 0625 0250 0875 0375 0750 0000 %0128 O03 004405 -02540 -00633 0125 0625 0375 0875 0375 0625 0000 %0129 O04 004497 -02310 -01312 0125 0625 0500 0875 0375 0500 0000 %0130 O05 004512 -01777 -02184 0125 0625 0625 0875 0375 0375 0000 %0131 O06 004663 -01468 -02666 0125 0625 0750 0875 0375 0250 0000 %0132 O07 004785 -01159 -03033 0125 0625 0875 0875 0375 0125 0000 %0133 O08 005032 -00907 -03447 0125 0625 1000 0875 0375 0000 0000 %0134 O09 004914 -04921 003256 0125 0750 0000 0875 0250 1000 0000 %0135 P01 004995 -03846 001651 0125 0750 0125 0875 0250 0875 0000 %0136 P02 004983 -03437 000478 0125 0750 0250 0875 0250 0750 0000 %0137 P03 004918 -03145 -00417 0125 0750 0375 0875 0250 0625 0000 %0138 P04 004903 -02692 -01111 0125 0750 0500 0875 0250 0500 0000 %0139 P05 004950 -02310 -01893 0125 0750 0625 0875 0250 0375 0000 %0140 P06 004859 -02164 -02518 0125 0750 0750 0875 0250 0250 0000 %0141 P07 005036 -01729 -03054 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005247 -01398 -03422 0125 0750 1000 0875 0250 0000 0000 %0143 P09 005533 -05763 003819 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 005511 -04613 002095 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 005431 -03997 000872 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 005416 -03713 000039 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 005384 -03287 -00816 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 005417 -03066 -01508 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 005399 -02699 -02288 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 005346 -02548 -02879 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005502 -01986 -03355 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 005996 -06135 003868 0125 1000 0000 0875 0000 1000 0000 %0153 R01 005998 -05359 002533 0125 1000 0125 0875 0000 0875 0000 %0154 R02 005899 -04551 001237 0125 1000 0250 0875 0000 0750 0000 %0155 R03 005917 -04310 000267 0125 1000 0375 0875 0000 0625 0000 %0156 R04 005852 -03963 -00678 0125 1000 0500 0875 0000 0500 0000 %0157 R05 005884 -03650 -01325 0125 1000 0625 0875 0000 0375 0000 %0158 R06 005806 -03563 -01842 0125 1000 0750 0875 0000 0250 0000 %0159 R07 005782 -03241 -02564 0125 1000 0875 0875 0000 0125 0000 %0160 R08 005836 -02902 -03270 0125 1000 1000 0875 0000 0000 0000 %0161 R09 002611 001095 000790 0250 0000 0000 0750 1000 1000 0000 %0162 S01 002481 001343 000018 0250 0000 0125 0750 1000 0875 0000 %0163 S02 002545 001493 -00666 0250 0000 0250 0750 1000 0750 0000 %0164 S03 002809 001494 -01390 0250 0000 0375 0750 1000 0625 0000 %0165 S04 002913 001596 -01707 0250 0000 0500 0750 1000 0500 0000 %0166 S05 003047 002033 -02345 0250 0000 0625 0750 1000 0375 0000 %0167 S06 003020 002469 -02975 0250 0000 0750 0750 1000 0250 0000 %0168 S07 003258 002754 -03365 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003636 002670 -03677 0250 0000 1000 0750 1000 0000 0000 %0170 S09 003182 000111 001509 0250 0125 0000 0750 0875 1000 0000 %0171 T01 002977 000320 000212 0250 0125 0125 0750 0875 0875 0000 %0172 T02 003171 000479 -00608 0250 0125 0250 0750 0875 0750 0000 %0173 T03 003363 000531 -01081 0250 0125 0375 0750 0875 0625 0000 %0174 T04 003496 000836 -01588 0250 0125 0500 0750 0875 0500 0000 %0175 T05 003690 001129 -01950 0250 0125 0625 0750 0875 0375 0000 %0176 T06 003755 001535 -02603 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003877 001893 -03097 0250 0125 0875 0750 0875 0125 0000 %0178 T08 004224 002148 -03584 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003635 -00911 002310 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003399 -00568 000711 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003348 -00302 -00367 0250 0250 0250 0750 0750 0750 0000 %0182 U03 003954 000000 -00949 0250 0250 0375 0750 0750 0625 0000 %0183 U04 004045 000254 -01394 0250 0250 0500 0750 0750 0500 0000 %0184 U05 004150 000513 -01747 0250 0250 0625 0750 0750 0375 0000 %0185 U06 004320 000918 -02293 0250 0250 0750 0750 0750 0250 0000 %0186 U07 004516 001149 -02788 0250 0250 0875 0750 0750 0125 0000 %0187 U08 004857 001417 -03203 0250 0250 1000 0750 0750 0000 0000 %0188 U09 003893 -01390 002401 0250 0375 0000 0750 0625 1000 0000 %0189 V01 003826 -01168 001081 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004053 -00957 000008 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004185 -00716 -00953 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004315 -00462 -01430 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004375 -00226 -01876 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004588 000166 -02205 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004814 000445 -02703 0250 0375 0875 0750 0625 0125 0000 %0196 V08 005096 000742 -03084 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004445 -02514 002767 0250 0500 0000 0750 0500 1000 0000 %0198 W01 004449 -01945 001496 0250 0500 0125 0750 0500 0875 0000 %0199 W02 004549 -01763 000615 0250 0500 0250 0750 0500 0750 0000 %0200 W03 004459 -01304 -00540 0250 0500 0375 0750 0500 0625 0000 %0201 W04 004525 -01165 -01268 0250 0500 0500 0750 0500 0500 0000 %0202 W05 004640 -00735 -01758 0250 0500 0625 0750 0500 0375 0000 %0203 W06 004838 -00564 -02164 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005122 -00457 -02566 0250 0500 0875 0750 0500 0125 0000 %0205 W08 005350 -00051 -02967 0250 0500 1000 0750 0500 0000 0000 %0206 W09 004772 -03198 003220 0250 0625 0000 0750 0375 1000 0000 %0207 X01 004913 -02600 001848 0250 0625 0125 0750 0375 0875 0000 %0208 X02 004935 -02587 000958 0250 0625 0250 0750 0375 0750 0000 %0209 X03 004954 -02119 -00110 0250 0625 0375 0750 0375 0625 0000 %0210 X04 004966 -01823 -00893 0250 0625 0500 0750 0375 0500 0000 %0211 X05 004999 -01501 -01832 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005129 -01164 -02141 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005348 -00902 -02518 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005604 -00545 -02889 0250 0625 1000 0750 0375 0000 0000 %0215 X09 005132 -03887 003582 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 005386 -03285 002106 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 005456 -03196 001312 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 005372 -02672 000040 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 005397 -02311 -00630 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 005489 -02074 -01324 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 005372 -01827 -02126 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 005585 -01420 -02515 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 005763 -01026 -02963 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 005801 -05007 004341 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 005814 -04024 002477 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 005941 -03914 001833 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 005900 -03454 000475 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 005871 -03084 -00466 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 005834 -02683 -01227 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 005802 -02349 -02003 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 005736 -02115 -02651 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 005916 -01557 -03109 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006397 -05488 004524 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006276 -04880 002944 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006464 -04676 002247 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006400 -04143 000890 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006291 -03596 -00145 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006310 -03246 -00843 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006256 -03108 -01412 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006304 -02911 -02165 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006310 -02609 -02908 0250 1000 1000 0750 0000 0000 0000 %0242 a09 003068 001767 001231 0375 0000 0000 0625 1000 1000 0000 %0243 A10 002968 001925 000491 0375 0000 0125 0625 1000 0875 0000 %0244 A11 002933 002006 -00052 0375 0000 0250 0625 1000 0750 0000 %0245 A12 002857 002151 -00708 0375 0000 0375 0625 1000 0625 0000 %0246 A13 003090 002362 -01510 0375 0000 0500 0625 1000 0500 0000 %0247 A14 003105 002545 -01927 0375 0000 0625 0625 1000 0375 0000 %0248 A15 003231 002796 -02546 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003467 002771 -03022 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003750 003186 -03512 0375 0000 1000 0625 1000 0000 0000 %0251 A18 003517 000878 001754 0375 0125 0000 0625 0875 1000 0000 %0252 B10 003572 001002 000638 0375 0125 0125 0625 0875 0875 0000 %0253 B11 003407 001169 -00006 0375 0125 0250 0625 0875 0750 0000 %0254 B12 003489 001190 -00522 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003731 001464 -01299 0375 0125 0500 0625 0875 0500 0000 %0256 B14 003782 001635 -01735 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003820 001971 -02320 0375 0125 0750 0625 0875 0250 0000 %0258 B16 004077 002224 -02732 0375 0125 0875 0625 0875 0125 0000 %0259 B17 004385 002406 -03252 0375 0125 1000 0625 0875 0000 0000 %0260 B18 003920 000182 002341 0375 0250 0000 0625 0750 1000 0000 %0261 C10 003965 000348 001127 0375 0250 0125 0625 0750 0875 0000 %0262 C11 004011 000460 000164 0375 0250 0250 0625 0750 0750 0000 %0263 C12 004000 000504 -00437 0375 0250 0375 0625 0750 0625 0000 %0264 C13 004239 000744 -01160 0375 0250 0500 0625 0750 0500 0000 %0265 C14 004187 001035 -01629 0375 0250 0625 0625 0750 0375 0000 %0266 C15 004432 001334 -02007 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004625 001563 -02564 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004804 001806 -03082 0375 0250 1000 0625 0750 0000 0000 %0269 C18 004610 -00923 003400 0375 0375 0000 0625 0625 1000 0000 %0270 D10 004637 -00661 001936 0375 0375 0125 0625 0625 0875 0000 %0271 D11 004538 -00484 000711 0375 0375 0250 0625 0625 0750 0000 %0272 D12 004531 -00202 -00226 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004843 -00007 -00739 0375 0375 0500 0625 0625 0500 0000 %0274 D14 004847 000391 -01436 0375 0375 0625 0625 0625 0375 0000 %0275 D15 005005 000667 -01697 0375 0375 0750 0625 0625 0250 0000 %0276 D16 005221 000968 -02285 0375 0375 0875 0625 0625 0125 0000 %0277 D17 005488 001102 -02675 0375 0375 1000 0625 0625 0000 0000 %0278 D18 005003 -01683 003557 0375 0500 0000 0625 0500 1000 0000 %0279 E10 004972 -01318 002083 0375 0500 0125 0625 0500 0875 0000 %0280 E11 004915 -01051 001041 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005096 -00893 000054 0375 0500 0375 0625 0500 0625 0000 %0282 E13 004989 -00624 -00875 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005268 -00262 -01418 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005327 -00078 -01780 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005514 000158 -02246 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005750 000532 -02569 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005370 -02479 003766 0375 0625 0000 0625 0375 1000 0000 %0288 F10 005542 -02154 002369 0375 0625 0125 0625 0375 0875 0000 %0289 F11 005506 -01799 001317 0375 0625 0250 0625 0375 0750 0000 %0290 F12 005596 -01621 000582 0375 0625 0375 0625 0375 0625 0000 %0291 F13 005562 -01208 -00528 0375 0625 0500 0625 0375 0500 0000 %0292 F14 005536 -01083 -01249 0375 0625 0625 0625 0375 0375 0000 %0293 F15 005594 -00680 -01764 0375 0625 0750 0625 0375 0250 0000 %0294 F16 005774 -00315 -02175 0375 0625 0875 0625 0375 0125 0000 %0295 F17 005954 -00171 -02548 0375 0625 1000 0625 0375 0000 0000 %0296 F18 005722 -03078 004250 0375 0750 0000 0625 0250 1000 0000 %0297 G10 005992 -02640 002683 0375 0750 0125 0625 0250 0875 0000 %0298 G11 005983 -02475 001846 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006055 -02282 000940 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006047 -01934 -00002 0375 0750 0500 0625 0250 0500 0000 %0301 G14 005904 -01562 -00897 0375 0750 0625 0625 0250 0375 0000 %0302 G15 005980 -01329 -01675 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006128 -00815 -02061 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006216 -00609 -02445 0375 0750 1000 0625 0250 0000 0000 %0305 G18 006218 -04040 004878 0375 0875 0000 0625 0125 1000 0000 %0306 H10 006383 -03366 003089 0375 0875 0125 0625 0125 0875 0000 %0307 H11 006412 -03194 002159 0375 0875 0250 0625 0125 0750 0000 %0308 H12 006500 -03074 001321 0375 0875 0375 0625 0125 0625 0000 %0309 H13 006459 -02519 000109 0375 0875 0500 0625 0125 0500 0000 %0310 H14 006438 -02289 -00490 0375 0875 0625 0625 0125 0375 0000 %0311 H15 006403 -01970 -01296 0375 0875 0750 0625 0125 0250 0000 %0312 H16 006416 -01725 -02018 0375 0875 0875 0625 0125 0125 0000 %0313 H17 006450 -01246 -02495 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006798 -04659 005174 0375 1000 0000 0625 0000 1000 0000 %0315 I10 006832 -04042 003342 0375 1000 0125 0625 0000 0875 0000 %0316 I11 006926 -03948 002745 0375 1000 0250 0625 0000 0750 0000 %0317 I12 006985 -03774 001737 0375 1000 0375 0625 0000 0625 0000 %0318 I13 006904 -03249 000516 0375 1000 0500 0625 0000 0500 0000 %0319 I14 006839 -02854 -00197 0375 1000 0625 0625 0000 0375 0000 %0320 I15 006782 -02603 -00873 0375 1000 0750 0625 0000 0250 0000 %0321 I16 006749 -02257 -01692 0375 1000 0875 0625 0000 0125 0000 %0322 I17 006800 -02159 -02329 0375 1000 1000 0625 0000 0000 0000 %0323 I18 003187 002667 001617 0500 0000 0000 0500 1000 1000 0000 %0324 J10 003187 002708 000942 0500 0000 0125 0500 1000 0875 0000 %0325 J11 003194 002867 000371 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003120 002948 -00290 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003091 003098 -00897 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003259 003161 -01552 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003485 003245 -02060 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003670 003236 -02641 0500 0000 0875 0500 1000 0125 0000 %0331 J17 003919 003448 -03105 0500 0000 1000 0500 1000 0000 0000 %0332 J18 003698 001559 002071 0500 0125 0000 0500 0875 1000 0000 %0333 K10 003890 001682 001128 0500 0125 0125 0500 0875 0875 0000 %0334 K11 003816 001866 000456 0500 0125 0250 0500 0875 0750 0000 %0335 K12 003791 001933 -00070 0500 0125 0375 0500 0875 0625 0000 %0336 K13 003762 002005 -00720 0500 0125 0500 0500 0875 0500 0000 %0337 K14 003913 002318 -01434 0500 0125 0625 0500 0875 0375 0000 %0338 K15 003971 002436 -01902 0500 0125 0750 0500 0875 0250 0000 %0339 K16 004193 002652 -02505 0500 0125 0875 0500 0875 0125 0000 %0340 K17 004493 002708 -02875 0500 0125 1000 0500 0875 0000 0000 %0341 K18 004038 000971 002647 0500 0250 0000 0500 0750 1000 0000 %0342 L10 004267 000937 001631 0500 0250 0125 0500 0750 0875 0000 %0343 L11 004327 001151 000598 0500 0250 0250 0500 0750 0750 0000 %0344 L12 004292 001234 000086 0500 0250 0375 0500 0750 0625 0000 %0345 L13 004250 001503 -00557 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004420 001582 -01212 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004534 001766 -01682 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004767 002089 -02188 0500 0250 0875 0500 0750 0125 0000 %0349 L17 004948 002254 -02689 0500 0250 1000 0500 0750 0000 0000 %0350 L18 004447 000241 003356 0500 0375 0000 0500 0625 1000 0000 %0351 M10 004632 000345 002050 0500 0375 0125 0500 0625 0875 0000 %0352 M11 004765 000437 001092 0500 0375 0250 0500 0625 0750 0000 %0353 M12 004868 000479 000141 0500 0375 0375 0500 0625 0625 0000 %0354 M13 004813 000604 -00398 0500 0375 0500 0500 0625 0500 0000 %0355 M14 005123 000818 -01022 0500 0375 0625 0500 0625 0375 0000 %0356 M15 005169 000969 -01437 0500 0375 0750 0500 0625 0250 0000 %0357 M16 005349 001380 -01953 0500 0375 0875 0500 0625 0125 0000 %0358 M17 005578 001534 -02389 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005158 -00871 003944 0500 0500 0000 0500 0500 1000 0000 %0360 N10 005377 -00692 002797 0500 0500 0125 0500 0500 0875 0000 %0361 N11 005377 -00524 001826 0500 0500 0250 0500 0500 0750 0000 %0362 N12 005401 -00409 000768 0500 0500 0375 0500 0500 0625 0000 %0363 N13 005433 -00083 -00206 0500 0500 0500 0500 0500 0500 0000 %0364 N14 005742 000093 -00798 0500 0500 0625 0500 0500 0375 0000 %0365 N15 005853 000353 -01415 0500 0500 0750 0500 0500 0250 0000 %0366 N16 006114 000648 -01653 0500 0500 0875 0500 0500 0125 0000 %0367 N17 006215 000873 -02080 0500 0500 1000 0500 0500 0000 0000 %0368 N18 005624 -01643 004216 0500 0625 0000 0500 0375 1000 0000 %0369 O10 005738 -01407 002887 0500 0625 0125 0500 0375 0875 0000 %0370 O11 005791 -01192 002034 0500 0625 0250 0500 0375 0750 0000 %0371 O12 005841 -01009 001147 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006015 -00789 000104 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006038 -00554 -00870 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006228 -00350 -01295 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006392 000041 -01683 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006507 000298 -02066 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006018 -02413 004489 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006229 -02068 003166 0500 0750 0125 0500 0250 0875 0000 %0379 P11 006254 -01878 002373 0500 0750 0250 0500 0250 0750 0000 %0380 P12 006417 -01686 001394 0500 0750 0375 0500 0250 0625 0000 %0381 P13 006579 -01542 000658 0500 0750 0500 0500 0250 0500 0000 %0382 P14 006508 -01173 -00429 0500 0750 0625 0500 0250 0375 0000 %0383 P15 006508 -00891 -01185 0500 0750 0750 0500 0250 0250 0000 %0384 P16 006626 -00525 -01528 0500 0750 0875 0500 0250 0125 0000 %0385 P17 006726 -00244 -02002 0500 0750 1000 0500 0250 0000 0000 %0386 P18 006522 -03246 005173 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 006753 -02756 003616 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 006783 -02703 002875 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 006879 -02553 001877 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 006967 -02248 000931 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 006945 -01871 000030 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 006967 -01610 -00639 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 006950 -01226 -01626 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 006946 -00727 -01924 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 006958 -04043 005386 0500 1000 0000 0500 0000 1000 0000 %0396 R10 007166 -03595 003814 0500 1000 0125 0500 0000 0875 0000 %0397 R11 007231 -03459 003255 0500 1000 0250 0500 0000 0750 0000 %0398 R12 007432 -03156 002426 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007476 -03037 001513 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007481 -02477 000355 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007331 -02165 -00451 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007345 -01922 -01041 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007346 -01724 -01911 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003580 003189 001878 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003557 003409 001421 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003499 003664 000842 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003494 003670 000205 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003529 003739 -00251 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003457 003986 -00901 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003603 003786 -01661 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003844 003847 -02261 0625 0000 0875 0375 1000 0125 0000 %0412 S17 004082 003798 -02726 0625 0000 1000 0375 1000 0000 0000 %0413 S18 004027 002233 002374 0625 0125 0000 0375 0875 1000 0000 %0414 T10 004157 002425 001533 0625 0125 0125 0375 0875 0875 0000 %0415 T11 004129 002572 000999 0625 0125 0250 0375 0875 0750 0000 %0416 T12 004134 002674 000386 0625 0125 0375 0375 0875 0625 0000 %0417 T13 004155 002771 -00270 0625 0125 0500 0375 0875 0500 0000 %0418 T14 004127 002901 -00823 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004167 003042 -01564 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004409 003117 -01993 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004674 003183 -02400 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004435 001607 002985 0625 0250 0000 0375 0750 1000 0000 %0423 U10 004614 001713 001958 0625 0250 0125 0375 0750 0875 0000 %0424 U11 004665 001860 001029 0625 0250 0250 0375 0750 0750 0000 %0425 U12 004704 001854 000516 0625 0250 0375 0375 0750 0625 0000 %0426 U13 004708 002031 -00095 0625 0250 0500 0375 0750 0500 0000 %0427 U14 004764 002080 -00549 0625 0250 0625 0375 0750 0375 0000 %0428 U15 004820 002270 -01339 0625 0250 0750 0375 0750 0250 0000 %0429 U16 004961 002458 -01800 0625 0250 0875 0375 0750 0125 0000 %0430 U17 005203 002570 -02222 0625 0250 1000 0375 0750 0000 0000 %0431 U18 004859 000973 003285 0625 0375 0000 0375 0625 1000 0000 %0432 V10 005110 000979 002300 0625 0375 0125 0375 0625 0875 0000 %0433 V11 005158 001093 001381 0625 0375 0250 0375 0625 0750 0000 %0434 V12 005318 001205 000636 0625 0375 0375 0375 0625 0625 0000 %0435 V13 005279 001298 000077 0625 0375 0500 0375 0625 0500 0000 %0436 V14 005252 001476 -00430 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005351 001627 -01209 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005478 001866 -01667 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005746 001917 -02007 0625 0375 1000 0375 0625 0000 0000 %0440 V18 005417 000068 003885 0625 0500 0000 0375 0500 1000 0000 %0441 W10 005562 000269 002886 0625 0500 0125 0375 0500 0875 0000 %0442 W11 005634 000367 002080 0625 0500 0250 0375 0500 0750 0000 %0443 W12 005762 000417 001274 0625 0500 0375 0375 0500 0625 0000 %0444 W13 005835 000547 000249 0625 0500 0500 0375 0500 0500 0000 %0445 W14 005781 000655 -00363 0625 0500 0625 0375 0500 0375 0000 %0446 W15 006025 000779 -01005 0625 0500 0750 0375 0500 0250 0000 %0447 W16 006164 001041 -01425 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006349 001284 -01793 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006055 -00911 004605 0625 0625 0000 0375 0375 1000 0000 %0450 X10 006247 -00803 003536 0625 0625 0125 0375 0375 0875 0000 %0451 X11 006237 -00658 002786 0625 0625 0250 0375 0375 0750 0000 %0452 X12 006363 -00474 001942 0625 0625 0375 0375 0375 0625 0000 %0453 X13 006433 -00289 000718 0625 0625 0500 0375 0375 0500 0000 %0454 X14 006461 -00105 -00123 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006671 000103 -00608 0625 0625 0750 0375 0375 0250 0000 %0456 X16 006858 000408 -01219 0625 0625 0875 0375 0375 0125 0000 %0457 X17 007075 000656 -01545 0625 0625 1000 0375 0375 0000 0000 %0458 X18 006457 -01696 004896 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 006606 -01562 003775 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 006703 -01414 003052 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 006773 -01217 002093 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 006928 -01008 001223 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 007040 -00811 000285 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 006939 -00576 -00753 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007137 -00203 -01166 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007334 000108 -01472 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 006939 -02520 005223 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 007125 -02245 004089 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007155 -02112 003418 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007210 -01929 002340 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007309 -01687 001392 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 007485 -01497 000683 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 007427 -01133 -00221 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 007407 -00832 -01152 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007488 -00435 -01454 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 007397 -03341 005427 0625 1000 0000 0375 0000 1000 0000 %0477 a10 007523 -02903 004198 0625 1000 0125 0375 0000 0875 0000 %0478 a11 007686 -02776 003693 0625 1000 0250 0375 0000 0750 0000 %0479 a12 007776 -02618 002882 0625 1000 0375 0375 0000 0625 0000 %0480 a13 007872 -02407 001952 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008016 -02219 001181 0625 1000 0625 0375 0000 0375 0000 %0482 a15 007929 -01714 000045 0625 1000 0750 0375 0000 0250 0000 %0483 a16 007854 -01403 -00478 0625 1000 0875 0375 0000 0125 0000 %0484 a17 007906 -01225 -01434 0625 1000 1000 0375 0000 0000 0000 %0485 a18 003813 004194 002282 0750 0000 0000 0250 1000 1000 0000 %0486 A19 003795 004515 001959 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003726 004595 001408 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003701 004496 000812 0750 0000 0375 0250 1000 0625 0000 %0489 A22 003621 004603 000273 0750 0000 0500 0250 1000 0500 0000 %0490 A23 003567 004634 -00367 0750 0000 0625 0250 1000 0375 0000 %0491 A24 003483 004627 -01018 0750 0000 0750 0250 1000 0250 0000 %0492 A25 003651 004502 -01846 0750 0000 0875 0250 1000 0125 0000 %0493 A26 004017 004435 -02421 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004416 002942 002618 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004491 003199 001986 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004414 003410 001451 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004381 003465 000883 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004304 003552 000339 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004213 003607 -00175 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004062 003683 -00860 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004223 003817 -01770 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004630 003448 -02038 0750 0125 1000 0250 0875 0000 0000 %0503 B27 004848 002423 003277 0750 0250 0000 0250 0750 1000 0000 %0504 C19 004943 002456 002424 0750 0250 0125 0250 0750 0875 0000 %0505 C20 004990 002753 001532 0750 0250 0250 0250 0750 0750 0000 %0506 C21 004973 002764 001003 0750 0250 0375 0250 0750 0625 0000 %0507 C22 004828 002909 000395 0750 0250 0500 0250 0750 0500 0000 %0508 C23 004746 002942 -00157 0750 0250 0625 0250 0750 0375 0000 %0509 C24 004642 003041 -00650 0750 0250 0750 0250 0750 0250 0000 %0510 C25 004853 003145 -01584 0750 0250 0875 0250 0750 0125 0000 %0511 C26 005149 002864 -01883 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005266 001712 003773 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005434 001672 002802 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005520 001769 002110 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005586 001926 001194 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005520 001977 000699 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005443 002167 000093 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005299 002312 -00547 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005580 002410 -01304 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005714 002308 -01678 0750 0375 1000 0250 0625 0000 0000 %0521 D27 005837 000890 004423 0750 0500 0000 0250 0500 1000 0000 %0522 E19 005914 000995 003340 0750 0500 0125 0250 0500 0875 0000 %0523 E20 005979 001070 002655 0750 0500 0250 0250 0500 0750 0000 %0524 E21 006155 001089 001773 0750 0500 0375 0250 0500 0625 0000 %0525 E22 006180 001254 000872 0750 0500 0500 0250 0500 0500 0000 %0526 E23 006135 001386 000278 0750 0500 0625 0250 0500 0375 0000 %0527 E24 006004 001574 -00368 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006272 001636 -01083 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006420 001690 -01520 0750 0500 1000 0250 0500 0000 0000 %0530 E27 006380 000020 004856 0750 0625 0000 0250 0375 1000 0000 %0531 F19 006500 000131 003908 0750 0625 0125 0250 0375 0875 0000 %0532 F20 006493 000291 003207 0750 0625 0250 0250 0375 0750 0000 %0533 F21 006607 000333 002273 0750 0625 0375 0250 0375 0625 0000 %0534 F22 006717 000475 001441 0750 0625 0500 0250 0375 0500 0000 %0535 F23 006701 000626 000358 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006662 000779 -00380 0750 0625 0750 0250 0375 0250 0000 %0537 F25 006966 000832 -00816 0750 0625 0875 0250 0375 0125 0000 %0538 F26 007029 001021 -01369 0750 0625 1000 0250 0375 0000 0000 %0539 F27 007084 -01056 005435 0750 0750 0000 0250 0250 1000 0000 %0540 G19 007125 -00899 004551 0750 0750 0125 0250 0250 0875 0000 %0541 G20 007115 -00732 003865 0750 0750 0250 0250 0250 0750 0000 %0542 G21 007174 -00565 002919 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007319 -00407 002046 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007346 -00300 000810 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007283 -00018 -00180 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007445 000197 -00712 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007723 000468 -01208 0750 0750 1000 0250 0250 0000 0000 %0548 G27 007508 -01839 005925 0750 0875 0000 0250 0125 1000 0000 %0549 H19 007545 -01707 004747 0750 0875 0125 0250 0125 0875 0000 %0550 H20 007550 -01588 004149 0750 0875 0250 0250 0125 0750 0000 %0551 H21 007634 -01464 003194 0750 0875 0375 0250 0125 0625 0000 %0552 H22 007670 -01310 002191 0750 0875 0500 0250 0125 0500 0000 %0553 H23 007718 -01056 001250 0750 0875 0625 0250 0125 0375 0000 %0554 H24 007800 -00924 000421 0750 0875 0750 0250 0125 0250 0000 %0555 H25 007747 -00672 -00786 0750 0875 0875 0250 0125 0125 0000 %0556 H26 007838 -00191 -01227 0750 0875 1000 0250 0125 0000 0000 %0557 H27 007829 -02671 006372 0750 1000 0000 0250 0000 1000 0000 %0558 I19 007891 -02499 005089 0750 1000 0125 0250 0000 0875 0000 %0559 I20 007980 -02324 004406 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008058 -02184 003584 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008175 -01993 002715 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008208 -01837 001846 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008235 -01607 000777 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008193 -01321 -00191 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008141 -00982 -01147 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004210 005056 002960 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004251 005056 002365 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004233 005132 001711 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004226 005151 001191 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004223 005190 000537 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004174 005155 000115 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004217 005137 -00595 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004285 005021 -01144 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004390 004995 -01955 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004903 003535 003061 0875 0125 0000 0125 0875 1000 0000 %0576 K19 004947 003773 002351 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004905 003876 001650 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004892 004072 001107 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004848 004122 000645 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004792 004178 000231 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004799 004261 -00306 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004810 004192 -01029 0875 0125 0875 0125 0875 0125 0000 %0583 K26 004952 004157 -01721 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005272 002895 003449 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005352 003066 002675 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005401 003354 001809 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005381 003449 001206 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005370 003477 000764 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005277 003573 000290 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005308 003685 -00309 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005331 003647 -00823 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005391 003592 -01567 0875 0250 1000 0125 0750 0000 0000 %0593 L27 005684 002270 003827 0875 0375 0000 0125 0625 1000 0000 %0594 M19 005778 002364 003106 0875 0375 0125 0125 0625 0875 0000 %0595 M20 005863 002554 002357 0875 0375 0250 0125 0625 0750 0000 %0596 M21 006042 002597 001497 0875 0375 0375 0125 0625 0625 0000 %0597 M22 006000 002630 000969 0875 0375 0500 0125 0625 0500 0000 %0598 M23 005984 002691 000417 0875 0375 0625 0125 0625 0375 0000 %0599 M24 005959 002795 -00092 0875 0375 0750 0125 0625 0250 0000 %0600 M25 006020 002945 -00629 0875 0375 0875 0125 0625 0125 0000 %0601 M26 005997 002907 -01391 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006238 001462 004494 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006337 001607 003573 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006390 001727 002935 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006600 001707 002099 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006683 001858 001174 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006641 001940 000606 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006605 002014 000102 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006574 002194 -00436 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006643 002209 -01263 0875 0500 1000 0125 0500 0000 0000 %0611 N27 006773 000722 004992 0875 0625 0000 0125 0375 1000 0000 %0612 O19 006816 000896 003963 0875 0625 0125 0125 0375 0875 0000 %0613 O20 006879 001045 003293 0875 0625 0250 0125 0375 0750 0000 %0614 O21 007023 001094 002396 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007173 001106 001643 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007222 001315 000650 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007235 001357 000317 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007210 001586 -00411 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007309 001498 -01055 0875 0625 1000 0125 0375 0000 0000 %0620 O27 007246 -00082 005758 0875 0750 0000 0125 0250 1000 0000 %0621 P19 007296 000095 004565 0875 0750 0125 0125 0250 0875 0000 %0622 P20 007364 000261 003772 0875 0750 0250 0125 0250 0750 0000 %0623 P21 007523 000299 002878 0875 0750 0375 0125 0250 0625 0000 %0624 P22 007646 000427 002220 0875 0750 0500 0125 0250 0500 0000 %0625 P23 007652 000589 001184 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007762 000648 000290 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007781 000851 -00454 0875 0750 0875 0125 0250 0125 0000 %0628 P26 007900 000891 -00910 0875 0750 1000 0125 0250 0000 0000 %0629 P27 007946 -01200 006607 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 007973 -00986 005348 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008109 -00942 004837 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008167 -00746 003809 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008259 -00577 002868 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008291 -00327 001833 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008322 -00246 000859 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008320 -00035 -00069 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008326 000214 -00813 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 008227 -02008 006610 0875 1000 0000 0125 0000 1000 0000 %0639 R19 008302 -01853 005653 0875 1000 0125 0125 0000 0875 0000 %0640 R20 008431 -01747 004991 0875 1000 0250 0125 0000 0750 0000 %0641 R21 008530 -01635 004085 0875 1000 0375 0125 0000 0625 0000 %0642 R22 008588 -01486 003176 0875 1000 0500 0125 0000 0500 0000 %0643 R23 008630 -01302 002331 0875 1000 0625 0125 0000 0375 0000 %0644 R24 008676 -01069 001158 0875 1000 0750 0125 0000 0250 0000 %0645 R25 008848 -01013 000448 0875 1000 0875 0125 0000 0125 0000 %0646 R26 008802 -00664 -00849 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004730 005569 003592 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004704 005681 002820 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004737 005692 002234 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004731 005758 001616 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004681 005816 001058 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004615 005828 000519 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004645 005926 -00038 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004668 005921 -00725 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004633 006092 -01550 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005224 004588 003891 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005310 004831 003077 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005342 004990 002434 1000 0125 0250 0000 0875 0750 0000 %0659 T21 005301 005149 001797 1000 0125 0375 0000 0875 0625 0000 %0660 T22 005261 005147 001188 1000 0125 0500 0000 0875 0500 0000 %0661 T23 005223 005165 000708 1000 0125 0625 0000 0875 0375 0000 %0662 T24 005237 005154 000189 1000 0125 0750 0000 0875 0250 0000 %0663 T25 005292 005173 -00497 1000 0125 0875 0000 0875 0125 0000 %0664 T26 005223 005379 -01228 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005649 003886 004424 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005826 004271 003559 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005979 004292 002618 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005965 004417 001862 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005943 004419 001393 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005957 004397 000848 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005930 004416 000301 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005978 004441 -00263 1000 0250 0875 0000 0750 0125 0000 %0673 U26 005950 004397 -00963 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006121 003190 004941 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006282 003471 004042 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006428 003528 003061 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006509 003665 001902 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006556 003730 001467 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006531 003820 000960 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006465 003892 000381 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006482 004040 -00263 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006488 004021 -01077 1000 0375 1000 0000 0625 0000 0000 %0683 V27 006613 002508 005458 1000 0500 0000 0000 0500 1000 0000 %0684 W19 006779 002685 004357 1000 0500 0125 0000 0500 0875 0000 %0685 W20 006860 002738 003503 1000 0500 0250 0000 0500 0750 0000 %0686 W21 007033 002679 002488 1000 0500 0375 0000 0500 0625 0000 %0687 W22 007187 002658 001746 1000 0500 0500 0000 0500 0500 0000 %0688 W23 007172 002828 001265 1000 0500 0625 0000 0500 0375 0000 %0689 W24 007148 002987 000569 1000 0500 0750 0000 0500 0250 0000 %0690 W25 007154 003145 -00042 1000 0500 0875 0000 0500 0125 0000 %0691 W26 007209 003258 -00725 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007096 001662 005697 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007256 001842 004916 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007385 001826 003855 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007505 001826 003034 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007643 001886 002106 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007714 002048 001281 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007743 002151 000703 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007826 002300 000247 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007817 002397 -00382 1000 0625 1000 0000 0375 0000 0000 %0701 X27 007578 000809 006069 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 007719 001089 005145 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 007752 001193 004246 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 007860 001233 003351 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008035 001237 002496 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008225 001207 001757 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008200 001401 000841 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008179 001480 000338 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008151 001673 -00328 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008142 -00141 006909 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008190 -00022 005632 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008300 000149 004918 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008358 000380 003830 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008487 000492 002967 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008622 000530 002255 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 008598 000749 001215 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 008659 000811 000375 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 008702 000920 -00672 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 008727 -01255 007421 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009024 -01122 006957 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009070 -00981 005987 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009117 -00825 004838 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009170 -00647 003856 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009168 -00380 002847 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009214 -00241 001954 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009376 -00234 000997 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009630 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009639 000000 000003 1000 1000 1000 0000 0000 0000 0000 %0729 b01 008914 -00583 -00828 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008338 -00892 -01054 0750 1000 1000 0250 0000 0000 0000 %0731 b03 007846 -01242 -01407 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007340 -01690 -01940 0500 1000 1000 0500 0000 0000 0000 %0733 b05 006843 -02079 -02376 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006304 -02649 -02909 0250 1000 1000 0750 0000 0000 0000 %0735 b07 005793 -02945 -03324 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005311 -03881 -03812 0000 1000 1000 1000 0000 0000 0000 %0737 b09 008676 000743 000298 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008402 -00061 -00023 0875 0875 0875 0125 0125 0125 0000 %0739 c02 007934 -00583 -00787 0750 0875 0875 0250 0125 0125 0000 %0740 c03 007252 -00875 -01169 0625 0875 0875 0375 0125 0125 0000 %0741 c04 006813 -01293 -01636 0500 0875 0875 0500 0125 0125 0000 %0742 c05 006389 -01715 -02015 0375 0875 0875 0625 0125 0125 0000 %0743 c06 005720 -02138 -02611 0250 0875 0875 0750 0125 0125 0000 %0744 c07 005294 -02609 -02897 0125 0875 0875 0875 0125 0125 0000 %0745 c08 004738 -03195 -03593 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008304 001305 000736 1000 0750 0750 0000 0250 0250 0000 %0747 d01 007860 000605 000209 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007450 -00050 -00158 0750 0750 0750 0250 0250 0250 0000 %0749 d03 006785 -00597 -00725 0625 0750 0750 0375 0250 0250 0000 %0750 d04 006372 -00937 -01154 0500 0750 0750 0500 0250 0250 0000 %0751 d05 005952 -01352 -01677 0375 0750 0750 0625 0250 0250 0000 %0752 d06 005370 -01896 -02137 0250 0750 0750 0750 0250 0250 0000 %0753 d07 004864 -02207 -02526 0125 0750 0750 0875 0250 0250 0000 %0754 d08 004347 -02571 -03110 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007742 002052 001123 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007290 001231 000575 0875 0625 0625 0125 0375 0375 0000 %0757 e02 006854 000572 000293 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006330 -00121 -00139 0625 0625 0625 0375 0375 0375 0000 %0759 e04 005935 -00586 -00810 0500 0625 0625 0500 0375 0375 0000 %0760 e05 005533 -01077 -01202 0375 0625 0625 0625 0375 0375 0000 %0761 e06 004994 -01540 -01822 0250 0625 0625 0750 0375 0375 0000 %0762 e07 004535 -01824 -02105 0125 0625 0625 0875 0375 0375 0000 %0763 e08 004162 -02109 -02593 0000 0625 0625 1000 0375 0375 0000 %0764 e09 007221 002615 001655 1000 0500 0500 0000 0500 0500 0000 %0765 f01 006704 001802 001084 0875 0500 0500 0125 0500 0500 0000 %0766 f02 006266 001211 000733 0750 0500 0500 0250 0500 0500 0000 %0767 f03 005751 000499 000300 0625 0500 0500 0375 0500 0500 0000 %0768 f04 005322 -00111 -00209 0500 0500 0500 0500 0500 0500 0000 %0769 f05 004980 -00631 -00890 0375 0500 0500 0625 0500 0500 0000 %0770 f06 004598 -01169 -01290 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004087 -01461 -01960 0125 0500 0500 0875 0500 0500 0000 %0772 f08 003712 -01800 -02136 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006630 003429 002068 1000 0375 0375 0000 0625 0625 0000 %0774 g01 006139 002442 001526 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005603 001830 001176 0750 0375 0375 0250 0625 0625 0000 %0776 g03 005144 001183 000811 0625 0375 0375 0375 0625 0625 0000 %0777 g04 004781 000462 000177 0500 0375 0375 0500 0625 0625 0000 %0778 g05 004541 -00234 -00251 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004299 -00770 -00974 0250 0375 0375 0750 0625 0625 0000 %0780 g07 003599 -01305 -01427 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003401 -01591 -01871 0000 0375 0375 1000 0625 0625 0000 %0782 g09 006070 004082 002718 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005435 003128 001946 0875 0250 0250 0125 0750 0750 0000 %0784 h02 004971 002579 001643 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004539 001836 001165 0625 0250 0250 0375 0750 0750 0000 %0786 h04 004291 001056 000766 0500 0250 0250 0500 0750 0750 0000 %0787 h05 003998 000405 000188 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003567 -00311 -00356 0250 0250 0250 0750 0750 0750 0000 %0789 h07 003568 -00936 -00992 0125 0250 0250 0875 0750 0750 0000 %0790 h08 003305 -01286 -01450 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005306 004723 003166 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004894 003598 002405 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004375 003127 002069 0750 0125 0125 0250 0875 0875 0000 %0794 i03 003942 002446 001570 0625 0125 0125 0375 0875 0875 0000 %0795 i04 003686 001682 001149 0500 0125 0125 0500 0875 0875 0000 %0796 i05 003466 001078 000657 0375 0125 0125 0625 0875 0875 0000 %0797 i06 003268 000331 000172 0250 0125 0125 0750 0875 0875 0000 %0798 i07 002775 -00356 -00359 0125 0125 0125 0875 0875 0875 0000 %0799 i08 002736 -00540 -01317 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004632 005589 003630 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004129 004931 003183 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003662 004060 002383 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003369 003237 002037 0625 0000 0000 0375 1000 1000 0000 %0804 j04 003008 002671 001638 0500 0000 0000 0500 1000 1000 0000 %0805 j05 002911 001836 001282 0375 0000 0000 0625 1000 1000 0000 %0806 j06 002719 001211 000783 0250 0000 0000 0750 1000 1000 0000 %0807 j07 002587 000465 000484 0125 0000 0000 0875 1000 1000 0000 %0808 j08 002214 000007 -00001 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009694 000004 -00009 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008601 000185 -00700 0875 0875 1000 0125 0125 0000 0000 %0811 b11 008010 000447 -01115 0750 0750 1000 0250 0250 0000 0000 %0812 b12 007152 000580 -01512 0625 0625 1000 0375 0375 0000 0000 %0813 b13 006283 000789 -02041 0500 0500 1000 0500 0500 0000 0000 %0814 b14 005528 001019 -02620 0375 0375 1000 0625 0625 0000 0000 %0815 b15 004798 001349 -03271 0250 0250 1000 0750 0750 0000 0000 %0816 b16 004005 001640 -03933 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003142 002353 -04493 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009454 -00076 000607 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008570 -00042 -00043 0875 0875 0875 0125 0125 0125 0000 %0820 c11 007783 000163 -00612 0750 0750 0875 0250 0250 0125 0000 %0821 c12 006807 000366 -01224 0625 0625 0875 0375 0375 0125 0000 %0822 c13 006058 000642 -01628 0500 0500 0875 0500 0500 0125 0000 %0823 c14 005180 000962 -02244 0375 0375 0875 0625 0625 0125 0000 %0824 c15 004422 001224 -02799 0250 0250 0875 0750 0750 0125 0000 %0825 c16 003703 001517 -03372 0125 0125 0875 0875 0875 0125 0000 %0826 c17 002946 001998 -04070 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009305 -00143 001502 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008539 -00175 000666 0875 0875 0750 0125 0125 0250 0000 %0829 d11 007560 -00056 -00129 0750 0750 0750 0250 0250 0250 0000 %0830 d12 006683 000051 -00575 0625 0625 0750 0375 0375 0250 0000 %0831 d13 005815 000305 -01378 0500 0500 0750 0500 0500 0250 0000 %0832 d14 005033 000629 -01652 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004236 000928 -02353 0250 0250 0750 0750 0750 0250 0000 %0834 d16 003517 001097 -02920 0125 0125 0750 0875 0875 0250 0000 %0835 d17 002870 001564 -03540 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009216 -00318 002456 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008479 -00286 001527 0875 0875 0625 0125 0125 0375 0000 %0838 e11 007507 -00281 000657 0750 0750 0625 0250 0250 0375 0000 %0839 e12 006446 -00117 -00169 0625 0625 0625 0375 0375 0375 0000 %0840 e13 005701 000082 -00787 0500 0500 0625 0500 0500 0375 0000 %0841 e14 004874 000340 -01425 0375 0375 0625 0625 0625 0375 0000 %0842 e15 004164 000486 -01796 0250 0250 0625 0750 0750 0375 0000 %0843 e16 003486 000677 -02312 0125 0125 0625 0875 0875 0375 0000 %0844 e17 002792 001090 -03068 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009210 -00604 003407 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008390 -00554 002646 0875 0875 0500 0125 0125 0500 0000 %0847 f11 007474 -00422 001889 0750 0750 0500 0250 0250 0500 0000 %0848 f12 006451 -00282 000615 0625 0625 0500 0375 0375 0500 0000 %0849 f13 005380 -00108 -00214 0500 0500 0500 0500 0500 0500 0000 %0850 f14 004888 -00022 -00752 0375 0375 0500 0625 0625 0500 0000 %0851 f15 004159 000270 -01439 0250 0250 0500 0750 0750 0500 0000 %0852 f16 003450 000385 -02004 0125 0125 0500 0875 0875 0500 0000 %0853 f17 002645 000651 -02466 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009168 -00849 004635 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008281 -00780 003685 0875 0875 0375 0125 0125 0625 0000 %0856 g11 007294 -00588 002734 0750 0750 0375 0250 0250 0625 0000 %0857 g12 006352 -00488 001918 0625 0625 0375 0375 0375 0625 0000 %0858 g13 005334 -00417 000735 0500 0500 0375 0500 0500 0625 0000 %0859 g14 004550 -00213 -00226 0375 0375 0375 0625 0625 0625 0000 %0860 g15 004098 000011 -00988 0250 0250 0375 0750 0750 0625 0000 %0861 g16 003445 000134 -01450 0125 0125 0375 0875 0875 0625 0000 %0862 g17 002672 000506 -02159 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009112 -01021 005867 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008187 -00972 004735 0875 0875 0250 0125 0125 0750 0000 %0865 h11 007155 -00768 003658 0750 0750 0250 0250 0250 0750 0000 %0866 h12 006203 -00673 002724 0625 0625 0250 0375 0375 0750 0000 %0867 h13 005272 -00534 001693 0500 0500 0250 0500 0500 0750 0000 %0868 h14 004562 -00521 000726 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003566 -00300 -00351 0250 0250 0250 0750 0750 0750 0000 %0870 h16 003274 000086 -01045 0125 0125 0250 0875 0875 0750 0000 %0871 h17 002584 000547 -01752 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009061 -01154 006868 1000 1000 0125 0000 0000 0875 0000 %0873 i10 008045 -01039 005380 0875 0875 0125 0125 0125 0875 0000 %0874 i11 007093 -00929 004461 0750 0750 0125 0250 0250 0875 0000 %0875 i12 006149 -00797 003490 0625 0625 0125 0375 0375 0875 0000 %0876 i13 005191 -00682 002693 0500 0500 0125 0500 0500 0875 0000 %0877 i14 004608 -00684 001925 0375 0375 0125 0625 0625 0875 0000 %0878 i15 003812 -00576 000712 0250 0250 0125 0750 0750 0875 0000 %0879 i16 002781 -00336 -00358 0125 0125 0125 0875 0875 0875 0000 %0880 i17 002475 000684 -01573 0000 0000 0125 1000 1000 0875 0000 %0881 i18 008738 -01284 007382 1000 1000 0000 0000 0000 1000 0000 %0882 j10 007977 -01223 006538 0875 0875 0000 0125 0125 1000 0000 %0883 j11 006997 -01080 005304 0750 0750 0000 0250 0250 1000 0000 %0884 j12 005942 -00913 004530 0625 0625 0000 0375 0375 1000 0000 %0885 j13 004957 -00854 003781 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004554 -00929 003335 0375 0375 0000 0625 0625 1000 0000 %0887 j15 004012 -00978 002424 0250 0250 0000 0750 0750 1000 0000 %0888 j16 003429 -00776 001350 0125 0125 0000 0875 0875 1000 0000 %0889 j17 002193 000034 000017 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009669 -00003 000006 1000 1000 1000 0000 0000 0000 0000 %0891 b19 008818 000930 -00609 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008291 001628 -00361 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007865 002439 -00414 1000 0625 1000 0000 0375 0000 0000 %0894 b22 007222 003342 -00747 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006495 004038 -01056 1000 0375 1000 0000 0625 0000 0000 %0896 b24 005863 004549 -00941 1000 0250 1000 0000 0750 0000 0000 %0897 b25 005222 005383 -01194 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004605 006107 -01516 1000 0000 1000 0000 1000 0000 0000 %0899 b27 008976 -00929 000322 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008496 -00045 -00038 0875 0875 0875 0125 0125 0125 0000 %0901 c20 007925 000860 -00437 0875 0750 0875 0125 0250 0125 0000 %0902 c21 007254 001665 -00478 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006629 002287 -00526 0875 0500 0875 0125 0500 0125 0000 %0904 c23 006035 002999 -00666 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005282 003732 -00805 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004731 004226 -01023 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004176 004998 -01106 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008363 -01484 000548 0750 1000 0750 0250 0000 0250 0000 %0909 d19 007907 -00879 000313 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007452 -00040 -00147 0750 0750 0750 0250 0250 0250 0000 %0911 d21 006799 000835 -00414 0750 0625 0750 0250 0375 0250 0000 %0912 d22 006175 001563 -00424 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005414 002247 -00560 0750 0375 0750 0250 0625 0250 0000 %0914 d24 004653 002984 -00619 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004059 003597 -00829 0750 0125 0750 0250 0875 0250 0000 %0916 d26 003463 004471 -00973 0750 0000 0750 0250 1000 0250 0000 %0917 d27 007981 -02295 001216 0625 1000 0625 0375 0000 0375 0000 %0918 e19 007388 -01632 000850 0625 0875 0625 0375 0125 0375 0000 %0919 e20 006873 -00937 000377 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006332 -00126 -00105 0625 0625 0625 0375 0375 0375 0000 %0921 e22 005582 000630 -00349 0625 0500 0625 0375 0500 0375 0000 %0922 e23 004924 001389 -00335 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004294 002040 -00482 0625 0250 0625 0375 0750 0375 0000 %0924 e25 003699 002767 -00745 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003049 003624 -00789 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007455 -03055 001461 0500 1000 0500 0500 0000 0500 0000 %0927 f19 006905 -02383 001068 0500 0875 0500 0500 0125 0500 0000 %0928 f20 006466 -01671 000793 0500 0750 0500 0500 0250 0500 0000 %0929 f21 005842 -00903 000204 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005284 -00112 -00171 0500 0500 0500 0500 0500 0500 0000 %0931 f23 004540 000575 -00371 0500 0375 0500 0500 0625 0500 0000 %0932 f24 003880 001501 -00468 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003348 001924 -00664 0500 0125 0500 0500 0875 0500 0000 %0934 f26 002712 002781 -00774 0500 0000 0500 0500 1000 0500 0000 %0935 f27 006948 -03852 001776 0375 1000 0375 0625 0000 0625 0000 %0936 g19 006410 -03204 001414 0375 0875 0375 0625 0125 0625 0000 %0937 g20 005938 -02477 001086 0375 0750 0375 0625 0250 0625 0000 %0938 g21 005439 -01738 000725 0375 0625 0375 0625 0375 0625 0000 %0939 g22 004954 -00999 000176 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004318 -00242 -00222 0375 0375 0375 0625 0625 0625 0000 %0941 g24 003675 000488 -00400 0375 0250 0375 0625 0750 0625 0000 %0942 g25 003048 001168 -00464 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002575 001898 -00573 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006530 -04616 002025 0250 1000 0250 0750 0000 0750 0000 %0945 h19 005975 -03967 001727 0250 0875 0250 0750 0125 0750 0000 %0946 h20 005497 -03339 001208 0250 0750 0250 0750 0250 0750 0000 %0947 h21 004965 -02666 000781 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004586 -01821 000485 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004050 -01037 -00009 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003335 -00309 -00350 0250 0250 0250 0750 0750 0750 0000 %0951 h25 003009 000417 -00594 0250 0125 0250 0750 0875 0750 0000 %0952 h26 002464 001294 -00635 0250 0000 0250 0750 1000 0750 0000 %0953 h27 006094 -05333 002474 0125 1000 0125 0875 0000 0875 0000 %0954 i19 005547 -04700 002013 0125 0875 0125 0875 0125 0875 0000 %0955 i20 005095 -03943 001633 0125 0750 0125 0875 0250 0875 0000 %0956 i21 004603 -03289 001177 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004114 -02792 000778 0125 0500 0125 0875 0500 0875 0000 %0958 i23 003761 -02019 000618 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003447 -01197 000310 0125 0250 0125 0875 0750 0875 0000 %0960 i25 002510 -00373 -00321 0125 0125 0125 0875 0875 0875 0000 %0961 i26 002553 000581 -00569 0125 0000 0125 0875 1000 0875 0000 %0962 i27 005665 -06169 003117 0000 1000 0000 1000 0000 1000 0000 %0963 j19 005179 -06194 003173 0000 0875 0000 1000 0125 1000 0000 %0964 j20 004666 -05620 002822 0000 0750 0000 1000 0250 1000 0000 %0965 j21 004203 -04449 002118 0000 0625 0000 1000 0375 1000 0000 %0966 j22 003780 -03424 001224 0000 0500 0000 1000 0500 1000 0000 %0967 j23 003375 -02458 000976 0000 0375 0000 1000 0625 1000 0000 %0968 j24 003025 -01605 001073 0000 0250 0000 1000 0750 1000 0000 %0969 j25 002514 -00988 000979 0000 0125 0000 1000 0875 1000 0000 %0970 j26 001994 -00041 -00015 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa1100 [ %BEG GE65_22.TXT, Separation cmyn61*, cf1=0.90, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004730 005569 003592 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z008727 -01255 007421 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z005623 -06077 003244 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005373 -03862 -03763 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003237 002326 -04462 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004633 006092 -01550 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z002110 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009630 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004632 005589 003630 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 008738 -01284 007382 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 005665 -06169 003117 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005311 -03881 -03812 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003142 002353 -04493 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004605 006107 -01516 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 002134 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009668 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def %END GG95_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 (GG950-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.02; nx=1.0) def 300 -150 moveto xchartl 5 le {(GG950-) show} {(GG951-) 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 GG950-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 (GG950-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 GG951-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 (GG951-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 GG951-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 (GG951-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 GG951-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 (GG951-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 GG951-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 (GG951-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 GG951-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 (GG951-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 GG951-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 (GG951-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 GG951-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 (GG951-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 GG951-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 (GG951-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 GG95; Relatives Ger\344te\255Farbsystem G) showde (TUB\255test chart GG95; 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 (->cmyn61* 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*->cmyn61* 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/GG95/GG95L) 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 (GG95/GG95L) 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/GG95/GG95L) 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\255GG95/GG95L) showde (TUB registration: 20091101\255GG95/GG95L) 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.02; 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