%!PS-Adobe-3.0 EPSF-3.0 130.149.60.45/~farbmetrik/GG92/GG92L00XX.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/GG92/GG92.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->GG92/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->GG92/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %***************************************************************************** %BEG GK0X->GG92/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->GG92/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 /CFilenameS1g %START output of step S1g (130.149.60.45/~farbmetrik/GG92/GG92L0N) def %Link file name for data /CDateS1g (2006-01-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (GG92/GG92L0N) 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 (/GG92/ ) 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 GG920-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 (GG920-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 GG920-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 (GG920-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 GG920-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 (GG920-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 GG920-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 (GG920-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 GG920-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 (GG920-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 GG920-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 (GG920-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 GG920-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 GG92_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 (GG92_HRS16_96_D65_00%_G0) def /LUT_LAB0 [ %GE320-7A, Page 7 /24, %BEG GE22_22_REM.TXT, Separation cmyn6*, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE22_22_REM.TXT, Separation cmyn6*, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 001441 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 002504 000698 -01428 0000 0000 0125 1000 1000 0875 0000 %0001 A02 002483 000779 -02299 0000 0000 0250 1000 1000 0750 0000 %0002 A03 002903 001172 -02989 0000 0000 0375 1000 1000 0625 0000 %0003 A04 002971 001908 -03814 0000 0000 0500 1000 1000 0500 0000 %0004 A05 002741 002637 -04350 0000 0000 0625 1000 1000 0375 0000 %0005 A06 002845 002616 -04339 0000 0000 0750 1000 1000 0250 0000 %0006 A07 002971 002653 -04309 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003132 002411 -04296 0000 0000 1000 1000 1000 0000 0000 %0008 A09 003260 -01064 000607 0000 0125 0000 1000 0875 1000 0000 %0009 B01 003035 -01004 -01241 0000 0125 0125 1000 0875 0875 0000 %0010 B02 003070 -00540 -02239 0000 0125 0250 1000 0875 0750 0000 %0011 B03 003275 -00272 -03030 0000 0125 0375 1000 0875 0625 0000 %0012 B04 003324 000378 -03864 0000 0125 0500 1000 0875 0500 0000 %0013 B05 003385 001027 -04441 0000 0125 0625 1000 0875 0375 0000 %0014 B06 003194 001633 -04565 0000 0125 0750 1000 0875 0250 0000 %0015 B07 003302 001677 -04511 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003406 001408 -04539 0000 0125 1000 1000 0875 0000 0000 %0017 B09 003740 -02386 000793 0000 0250 0000 1000 0750 1000 0000 %0018 C01 003373 -02087 -00415 0000 0250 0125 1000 0750 0875 0000 %0019 C02 003722 -01458 -01910 0000 0250 0250 1000 0750 0750 0000 %0020 C03 003747 -01071 -02811 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003753 -00785 -03507 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003608 -00404 -04263 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003518 -00002 -04671 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003407 000492 -04855 0000 0250 0875 1000 0750 0125 0000 %0025 C08 003442 000416 -04843 0000 0250 1000 1000 0750 0000 0000 %0026 C09 004230 -03638 001524 0000 0375 0000 1000 0625 1000 0000 %0027 D01 004008 -03397 000223 0000 0375 0125 1000 0625 0875 0000 %0028 D02 004028 -02682 -01239 0000 0375 0250 1000 0625 0750 0000 %0029 D03 004143 -02038 -02510 0000 0375 0375 1000 0625 0625 0000 %0030 D04 004049 -01521 -03353 0000 0375 0500 1000 0625 0500 0000 %0031 D05 004058 -01213 -04007 0000 0375 0625 1000 0625 0375 0000 %0032 D06 004035 -00928 -04643 0000 0375 0750 1000 0625 0250 0000 %0033 D07 004055 -00703 -04819 0000 0375 0875 1000 0625 0125 0000 %0034 D08 003913 -00466 -04829 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004521 -06110 002682 0000 0500 0000 1000 0500 1000 0000 %0036 E01 004487 -06019 001270 0000 0500 0125 1000 0500 0875 0000 %0037 E02 004404 -04414 -00486 0000 0500 0250 1000 0500 0750 0000 %0038 E03 004462 -03610 -01924 0000 0500 0375 1000 0500 0625 0000 %0039 E04 004492 -02462 -03157 0000 0500 0500 1000 0500 0500 0000 %0040 E05 004417 -02232 -03703 0000 0500 0625 1000 0500 0375 0000 %0041 E06 004567 -02119 -04350 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004568 -01684 -04789 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004436 -01353 -04842 0000 0500 1000 1000 0500 0000 0000 %0044 E09 004916 -06672 003018 0000 0625 0000 1000 0375 1000 0000 %0045 F01 004868 -07366 002236 0000 0625 0125 1000 0375 0875 0000 %0046 F02 004902 -06822 000450 0000 0625 0250 1000 0375 0750 0000 %0047 F03 004937 -05509 -01042 0000 0625 0375 1000 0375 0625 0000 %0048 F04 005038 -04690 -02324 0000 0625 0500 1000 0375 0500 0000 %0049 F05 004927 -03386 -03449 0000 0625 0625 1000 0375 0375 0000 %0050 F06 004894 -03171 -03835 0000 0625 0750 1000 0375 0250 0000 %0051 F07 004936 -02649 -04391 0000 0625 0875 1000 0375 0125 0000 %0052 F08 004863 -02063 -04821 0000 0625 1000 1000 0375 0000 0000 %0053 F09 005247 -06944 003173 0000 0750 0000 1000 0250 1000 0000 %0054 G01 005105 -07347 002348 0000 0750 0125 1000 0250 0875 0000 %0055 G02 005114 -06744 000856 0000 0750 0250 1000 0250 0750 0000 %0056 G03 005152 -05954 -00559 0000 0750 0375 1000 0250 0625 0000 %0057 G04 005221 -05186 -01631 0000 0750 0500 1000 0250 0500 0000 %0058 G05 005222 -04502 -02554 0000 0750 0625 1000 0250 0375 0000 %0059 G06 005127 -03906 -03371 0000 0750 0750 1000 0250 0250 0000 %0060 G07 005103 -03372 -03980 0000 0750 0875 1000 0250 0125 0000 %0061 G08 005140 -02808 -04527 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005426 -06899 003272 0000 0875 0000 1000 0125 1000 0000 %0063 H01 005362 -06822 002426 0000 0875 0125 1000 0125 0875 0000 %0064 H02 005419 -06190 001110 0000 0875 0250 1000 0125 0750 0000 %0065 H03 005469 -05674 000073 0000 0875 0375 1000 0125 0625 0000 %0066 H04 005445 -05124 -01044 0000 0875 0500 1000 0125 0500 0000 %0067 H05 005471 -04642 -01816 0000 0875 0625 1000 0125 0375 0000 %0068 H06 005296 -04264 -02672 0000 0875 0750 1000 0125 0250 0000 %0069 H07 005111 -03573 -03770 0000 0875 0875 1000 0125 0125 0000 %0070 H08 005137 -03205 -04142 0000 0875 1000 1000 0125 0000 0000 %0071 H09 005674 -06497 003508 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005628 -06293 002515 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005655 -05826 001416 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005689 -05483 000496 0000 1000 0375 1000 0000 0625 0000 %0075 I04 005719 -05046 -00354 0000 1000 0500 1000 0000 0500 0000 %0076 I05 005739 -04595 -01167 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005689 -04251 -01839 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005517 -03986 -02630 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005174 -03396 -03907 0000 1000 1000 1000 0000 0000 0000 %0080 I09 002433 000919 000871 0125 0000 0000 0875 1000 1000 0000 %0081 J01 002616 001432 -00575 0125 0000 0125 0875 1000 0875 0000 %0082 J02 002690 001816 -01674 0125 0000 0250 0875 1000 0750 0000 %0083 J03 002870 002002 -02421 0125 0000 0375 0875 1000 0625 0000 %0084 J04 002848 002884 -03118 0125 0000 0500 0875 1000 0500 0000 %0085 J05 002810 003426 -03472 0125 0000 0625 0875 1000 0375 0000 %0086 J06 002857 003584 -03783 0125 0000 0750 0875 1000 0250 0000 %0087 J07 002948 003476 -03950 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003095 003153 -04024 0125 0000 1000 0875 1000 0000 0000 %0089 J09 003209 -00492 001633 0125 0125 0000 0875 0875 1000 0000 %0090 K01 002188 -00002 -00061 0125 0125 0125 0875 0875 0875 0000 %0091 K02 002952 000456 -01683 0125 0125 0250 0875 0875 0750 0000 %0092 K03 003220 000727 -02442 0125 0125 0375 0875 0875 0625 0000 %0093 K04 003583 001070 -02791 0125 0125 0500 0875 0875 0500 0000 %0094 K05 003761 001566 -03296 0125 0125 0625 0875 0875 0375 0000 %0095 K06 003836 001728 -03773 0125 0125 0750 0875 0875 0250 0000 %0096 K07 003533 002184 -04190 0125 0125 0875 0875 0875 0125 0000 %0097 K08 003459 002320 -04189 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003934 -01398 002008 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003915 -01325 000633 0125 0250 0125 0875 0750 0875 0000 %0100 L02 003715 -01014 -01453 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003940 -00462 -02313 0125 0250 0375 0875 0750 0625 0000 %0102 L04 004131 -00178 -02793 0125 0250 0500 0875 0750 0500 0000 %0103 L05 004343 000189 -03088 0125 0250 0625 0875 0750 0375 0000 %0104 L06 004372 000374 -03599 0125 0250 0750 0875 0750 0250 0000 %0105 L07 003912 001070 -04367 0125 0250 0875 0875 0750 0125 0000 %0106 L08 003744 001495 -04324 0125 0250 1000 0875 0750 0000 0000 %0107 L09 004367 -02954 002372 0125 0375 0000 0875 0625 1000 0000 %0108 M01 004224 -02409 000884 0125 0375 0125 0875 0625 0875 0000 %0109 M02 004094 -01936 -00480 0125 0375 0250 0875 0625 0750 0000 %0110 M03 004451 -01372 -02053 0125 0375 0375 0875 0625 0625 0000 %0111 M04 004513 -00973 -02538 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004621 -00709 -02979 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004716 -00558 -03350 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004449 -00291 -04393 0125 0375 0875 0875 0625 0125 0000 %0115 M08 003942 000273 -04613 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004563 -04351 003064 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004632 -03027 001296 0125 0500 0125 0875 0500 0875 0000 %0118 N02 004699 -02774 000188 0125 0500 0250 0875 0500 0750 0000 %0119 N03 004706 -02206 -01254 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004834 -01666 -02454 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004908 -01347 -02980 0125 0500 0625 0875 0500 0375 0000 %0122 N06 004973 -01138 -03313 0125 0500 0750 0875 0500 0250 0000 %0123 N07 004921 -01072 -04043 0125 0500 0875 0875 0500 0125 0000 %0124 N08 004503 -00850 -04632 0125 0500 1000 0875 0500 0000 0000 %0125 N09 005064 -05334 003499 0125 0625 0000 0875 0375 1000 0000 %0126 O01 005100 -03769 001843 0125 0625 0125 0875 0375 0875 0000 %0127 O02 005180 -03547 000792 0125 0625 0250 0875 0375 0750 0000 %0128 O03 005204 -03132 -00495 0125 0625 0375 0875 0375 0625 0000 %0129 O04 005263 -02521 -01672 0125 0625 0500 0875 0375 0500 0000 %0130 O05 005296 -02222 -02695 0125 0625 0625 0875 0375 0375 0000 %0131 O06 005304 -01832 -03149 0125 0625 0750 0875 0375 0250 0000 %0132 O07 005282 -01636 -03693 0125 0625 0875 0875 0375 0125 0000 %0133 O08 005059 -01530 -04484 0125 0625 1000 0875 0375 0000 0000 %0134 O09 005487 -05739 003721 0125 0750 0000 0875 0250 1000 0000 %0135 P01 005559 -04313 002351 0125 0750 0125 0875 0250 0875 0000 %0136 P02 005651 -04093 001294 0125 0750 0250 0875 0250 0750 0000 %0137 P03 005673 -04039 000179 0125 0750 0375 0875 0250 0625 0000 %0138 P04 005779 -03495 -00956 0125 0750 0500 0875 0250 0500 0000 %0139 P05 005765 -03219 -01865 0125 0750 0625 0875 0250 0375 0000 %0140 P06 005666 -02665 -02945 0125 0750 0750 0875 0250 0250 0000 %0141 P07 005577 -02283 -03549 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005484 -02153 -04150 0125 0750 1000 0875 0250 0000 0000 %0143 P09 005996 -05928 004143 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 006139 -05500 003215 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 006155 -05156 001972 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 006107 -04827 000732 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 006160 -04347 -00245 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 006155 -03925 -01211 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 006071 -03526 -02073 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 005952 -03056 -03159 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005791 -02728 -03863 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 006005 -05865 003980 0125 1000 0000 0875 0000 1000 0000 %0153 R01 005856 -05966 003125 0125 1000 0125 0875 0000 0875 0000 %0154 R02 005870 -05627 002077 0125 1000 0250 0875 0000 0750 0000 %0155 R03 005964 -05136 000967 0125 1000 0375 0875 0000 0625 0000 %0156 R04 005992 -04671 -00088 0125 1000 0500 0875 0000 0500 0000 %0157 R05 005992 -04203 -01097 0125 1000 0625 0875 0000 0375 0000 %0158 R06 005997 -03831 -01740 0125 1000 0750 0875 0000 0250 0000 %0159 R07 005944 -03526 -02409 0125 1000 0875 0875 0000 0125 0000 %0160 R08 005542 -03208 -03631 0125 1000 1000 0875 0000 0000 0000 %0161 R09 002698 001722 001425 0250 0000 0000 0750 1000 1000 0000 %0162 S01 002665 002020 000367 0250 0000 0125 0750 1000 0875 0000 %0163 S02 002769 002655 -00958 0250 0000 0250 0750 1000 0750 0000 %0164 S03 002850 002897 -01750 0250 0000 0375 0750 1000 0625 0000 %0165 S04 002914 003259 -02377 0250 0000 0500 0750 1000 0500 0000 %0166 S05 002887 003704 -02918 0250 0000 0625 0750 1000 0375 0000 %0167 S06 002899 003938 -03246 0250 0000 0750 0750 1000 0250 0000 %0168 S07 003052 004010 -03550 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003070 003946 -03642 0250 0000 1000 0750 1000 0000 0000 %0170 S09 003349 000350 002138 0250 0125 0000 0750 0875 1000 0000 %0171 T01 003120 000927 000983 0250 0125 0125 0750 0875 0875 0000 %0172 T02 003319 001563 -00797 0250 0125 0250 0750 0875 0750 0000 %0173 T03 003403 001684 -01727 0250 0125 0375 0750 0875 0625 0000 %0174 T04 003555 002047 -02355 0250 0125 0500 0750 0875 0500 0000 %0175 T05 003770 002305 -02869 0250 0125 0625 0750 0875 0375 0000 %0176 T06 003840 002630 -03369 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003510 003294 -03783 0250 0125 0875 0750 0875 0125 0000 %0178 T08 003523 003176 -03826 0250 0125 1000 0750 0875 0000 0000 %0179 T09 004054 -00763 003063 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003965 -00538 001679 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003780 000000 -00119 0250 0250 0250 0750 0750 0750 0000 %0182 U03 003884 000413 -01709 0250 0250 0375 0750 0750 0625 0000 %0183 U04 004198 000690 -02276 0250 0250 0500 0750 0750 0500 0000 %0184 U05 004403 001000 -02654 0250 0250 0625 0750 0750 0375 0000 %0185 U06 004476 001418 -03152 0250 0250 0750 0750 0750 0250 0000 %0186 U07 004033 002117 -03905 0250 0250 0875 0750 0750 0125 0000 %0187 U08 003856 002271 -03958 0250 0250 1000 0750 0750 0000 0000 %0188 U09 004465 -01553 003408 0250 0375 0000 0750 0625 1000 0000 %0189 V01 004671 -01483 001916 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004691 -01257 000421 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004611 -00939 -01457 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004720 -00433 -02158 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004876 -00107 -02614 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004915 000100 -03024 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004759 000649 -03909 0250 0375 0875 0750 0625 0125 0000 %0196 V08 004419 001086 -04017 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004775 -02740 003783 0250 0500 0000 0750 0500 1000 0000 %0198 W01 005078 -02370 002213 0250 0500 0125 0750 0500 0875 0000 %0199 W02 005029 -02189 000998 0250 0500 0250 0750 0500 0750 0000 %0200 W03 005074 -01765 -00473 0250 0500 0375 0750 0500 0625 0000 %0201 W04 005220 -01382 -01854 0250 0500 0500 0750 0500 0500 0000 %0202 W05 005196 -00931 -02492 0250 0500 0625 0750 0500 0375 0000 %0203 W06 005295 -00725 -02897 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005286 -00620 -03661 0250 0500 0875 0750 0500 0125 0000 %0205 W08 004631 000069 -04210 0250 0500 1000 0750 0500 0000 0000 %0206 W09 005193 -03709 004210 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005492 -03117 002610 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005475 -02856 001455 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005633 -02486 000251 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005680 -02147 -00981 0250 0625 0500 0750 0375 0500 0000 %0211 X05 005646 -01667 -02239 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005700 -01327 -02830 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005657 -01141 -03338 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005441 -01083 -04069 0250 0625 1000 0750 0375 0000 0000 %0215 X09 005836 -04290 004558 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 005847 -03665 002830 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 005966 -03416 001778 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 006041 -03178 000750 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 006157 -02740 -00359 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 006169 -02371 -01497 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 006064 -02068 -02592 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 006077 -01785 -03167 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 005983 -01726 -03913 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 006413 -05041 004933 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 006584 -04877 003738 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 006640 -04455 002404 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 006728 -04097 001363 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 006722 -03703 000128 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 006684 -03302 -00801 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 006478 -02880 -01785 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 006514 -02436 -02936 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 006365 -02068 -03564 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006372 -05325 004766 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006563 -04860 003638 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006403 -04886 002670 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006374 -04658 001574 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006455 -04214 000567 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006425 -03742 -00750 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006482 -03358 -01395 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006442 -02970 -02225 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006071 -02716 -03347 0250 1000 1000 0750 0000 0000 0000 %0242 a09 003131 002984 002106 0375 0000 0000 0625 1000 1000 0000 %0243 A10 003289 002945 000898 0375 0000 0125 0625 1000 0875 0000 %0244 A11 003130 003386 -00130 0375 0000 0250 0625 1000 0750 0000 %0245 A12 003178 003815 -01068 0375 0000 0375 0625 1000 0625 0000 %0246 A13 003098 004021 -01732 0375 0000 0500 0625 1000 0500 0000 %0247 A14 003102 004262 -02289 0375 0000 0625 0625 1000 0375 0000 %0248 A15 003112 004438 -02755 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003235 004523 -03062 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003225 004581 -03218 0375 0000 1000 0625 1000 0000 0000 %0251 A18 003907 001144 002894 0375 0125 0000 0625 0875 1000 0000 %0252 B10 003918 001505 001595 0375 0125 0125 0625 0875 0875 0000 %0253 B11 003738 002097 000238 0375 0125 0250 0625 0875 0750 0000 %0254 B12 003879 002613 -01052 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003824 002826 -01754 0375 0125 0500 0625 0875 0500 0000 %0256 B14 003819 003154 -02346 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003946 003254 -02838 0375 0125 0750 0625 0875 0250 0000 %0258 B16 003646 003966 -03404 0375 0125 0875 0625 0875 0125 0000 %0259 B17 003660 003820 -03479 0375 0125 1000 0625 0875 0000 0000 %0260 B18 004322 000077 003776 0375 0250 0000 0625 0750 1000 0000 %0261 C10 004553 000268 002193 0375 0250 0125 0625 0750 0875 0000 %0262 C11 004396 000848 000669 0375 0250 0250 0625 0750 0750 0000 %0263 C12 004514 001227 -00869 0375 0250 0375 0625 0750 0625 0000 %0264 C13 004429 001579 -01738 0375 0250 0500 0625 0750 0500 0000 %0265 C14 004454 001902 -02362 0375 0250 0625 0625 0750 0375 0000 %0266 C15 004529 002071 -02840 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004241 002854 -03500 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004056 002919 -03606 0375 0250 1000 0625 0750 0000 0000 %0269 C18 005247 -01034 004373 0375 0375 0000 0625 0625 1000 0000 %0270 D10 005440 -00858 003106 0375 0375 0125 0625 0625 0875 0000 %0271 D11 005314 -00606 001264 0375 0375 0250 0625 0625 0750 0000 %0272 D12 005162 000009 -00139 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004984 000336 -01592 0375 0375 0500 0625 0625 0500 0000 %0274 D14 005028 000613 -02200 0375 0375 0625 0625 0625 0375 0000 %0275 D15 005071 000933 -02684 0375 0375 0750 0625 0625 0250 0000 %0276 D16 004952 001625 -03449 0375 0375 0875 0625 0625 0125 0000 %0277 D17 004670 001835 -03591 0375 0375 1000 0625 0625 0000 0000 %0278 D18 005239 -01554 004816 0375 0500 0000 0625 0500 1000 0000 %0279 E10 005897 -01617 003266 0375 0500 0125 0625 0500 0875 0000 %0280 E11 005765 -01436 001582 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005698 -01169 000309 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005676 -00817 -01273 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005548 -00441 -02089 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005573 -00257 -02520 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005716 000183 -03274 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005257 000748 -03550 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005609 -02500 004821 0375 0625 0000 0625 0375 1000 0000 %0288 F10 006220 -02305 003469 0375 0625 0125 0625 0375 0875 0000 %0289 F11 006131 -02300 001961 0375 0625 0250 0625 0375 0750 0000 %0290 F12 006108 -02088 000623 0375 0625 0375 0625 0375 0625 0000 %0291 F13 006155 -01664 -00597 0375 0625 0500 0625 0375 0500 0000 %0292 F14 006209 -01433 -01711 0375 0625 0625 0625 0375 0375 0000 %0293 F15 006059 -01072 -02509 0375 0625 0750 0625 0375 0250 0000 %0294 F16 006082 -00789 -02989 0375 0625 0875 0625 0375 0125 0000 %0295 F17 005722 -00481 -03643 0375 0625 1000 0625 0375 0000 0000 %0296 F18 006272 -03211 005328 0375 0750 0000 0625 0250 1000 0000 %0297 G10 006634 -03084 003876 0375 0750 0125 0625 0250 0875 0000 %0298 G11 006547 -02962 002336 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006569 -02726 001236 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006638 -02412 000168 0375 0750 0500 0625 0250 0500 0000 %0301 G14 006631 -02119 -01072 0375 0750 0625 0625 0250 0375 0000 %0302 G15 006634 -01896 -02202 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006608 -01468 -02838 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006539 -01365 -03343 0375 0750 1000 0625 0250 0000 0000 %0305 G18 006762 -03830 005580 0375 0875 0000 0625 0125 1000 0000 %0306 H10 007024 -03945 004386 0375 0875 0125 0625 0125 0875 0000 %0307 H11 007060 -03651 002728 0375 0875 0250 0625 0125 0750 0000 %0308 H12 007167 -03524 001805 0375 0875 0375 0625 0125 0625 0000 %0309 H13 007235 -03216 000686 0375 0875 0500 0625 0125 0500 0000 %0310 H14 007166 -02881 -00208 0375 0875 0625 0625 0125 0375 0000 %0311 H15 007043 -02602 -01395 0375 0875 0750 0625 0125 0250 0000 %0312 H16 007083 -02119 -02647 0375 0875 0875 0625 0125 0125 0000 %0313 H17 006962 -01773 -03153 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006888 -04469 005565 0375 1000 0000 0625 0000 1000 0000 %0315 I10 006907 -04418 004586 0375 1000 0125 0625 0000 0875 0000 %0316 I11 007049 -03955 002781 0375 1000 0250 0625 0000 0750 0000 %0317 I12 006978 -03885 002043 0375 1000 0375 0625 0000 0625 0000 %0318 I13 007031 -03657 001213 0375 1000 0500 0625 0000 0500 0000 %0319 I14 007075 -03245 000077 0375 1000 0625 0625 0000 0375 0000 %0320 I15 007024 -02941 -01010 0375 1000 0750 0625 0000 0250 0000 %0321 I16 007016 -02573 -01858 0375 1000 0875 0625 0000 0125 0000 %0322 I17 006908 -02230 -02822 0375 1000 1000 0625 0000 0000 0000 %0323 I18 003317 004042 002655 0500 0000 0000 0500 1000 1000 0000 %0324 J10 003474 003788 001688 0500 0000 0125 0500 1000 0875 0000 %0325 J11 003338 004086 000564 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003341 004385 -00391 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003352 004647 -01146 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003354 004852 -01753 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003311 004943 -02387 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003447 005028 -02739 0500 0000 0875 0500 1000 0125 0000 %0331 J17 003454 005014 -02910 0500 0000 1000 0500 1000 0000 0000 %0332 J18 003978 002375 003519 0500 0125 0000 0500 0875 1000 0000 %0333 K10 004191 002292 002213 0500 0125 0125 0500 0875 0875 0000 %0334 K11 003985 002631 000889 0500 0125 0250 0500 0875 0750 0000 %0335 K12 004078 002989 -00189 0500 0125 0375 0500 0875 0625 0000 %0336 K13 004045 003584 -01194 0500 0125 0500 0500 0875 0500 0000 %0337 K14 004077 003813 -01788 0500 0125 0625 0500 0875 0375 0000 %0338 K15 004126 003988 -02281 0500 0125 0750 0500 0875 0250 0000 %0339 K16 003894 004543 -03052 0500 0125 0875 0500 0875 0125 0000 %0340 K17 003783 004350 -03189 0500 0125 1000 0500 0875 0000 0000 %0341 K18 004565 000938 004269 0500 0250 0000 0500 0750 1000 0000 %0342 L10 004955 000922 002791 0500 0250 0125 0500 0750 0875 0000 %0343 L11 004794 001323 001403 0500 0250 0250 0500 0750 0750 0000 %0344 L12 004795 001819 000071 0500 0250 0375 0500 0750 0625 0000 %0345 L13 004868 002274 -01153 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004674 002661 -01784 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004781 002741 -02296 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004545 003412 -03099 0500 0250 0875 0500 0750 0125 0000 %0349 L17 004280 003508 -03234 0500 0250 1000 0500 0750 0000 0000 %0350 L18 005065 -00053 004773 0500 0375 0000 0500 0625 1000 0000 %0351 M10 005684 -00065 003486 0500 0375 0125 0500 0625 0875 0000 %0352 M11 005601 000205 001990 0500 0375 0250 0500 0625 0750 0000 %0353 M12 005435 000634 000500 0500 0375 0375 0500 0625 0625 0000 %0354 M13 005516 001045 -00870 0500 0375 0500 0500 0625 0500 0000 %0355 M14 005365 001555 -01632 0500 0375 0625 0500 0625 0375 0000 %0356 M15 005372 001634 -02141 0500 0375 0750 0500 0625 0250 0000 %0357 M16 005206 002235 -03048 0500 0375 0875 0500 0625 0125 0000 %0358 M17 005021 002259 -03200 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005979 -00997 005764 0500 0500 0000 0500 0500 1000 0000 %0360 N10 006379 -00956 004184 0500 0500 0125 0500 0500 0875 0000 %0361 N11 006338 -00802 002654 0500 0500 0250 0500 0500 0750 0000 %0362 N12 006221 -00515 001104 0500 0500 0375 0500 0500 0625 0000 %0363 N13 006066 000019 -00108 0500 0500 0500 0500 0500 0500 0000 %0364 N14 005983 000299 -01508 0500 0500 0625 0500 0500 0375 0000 %0365 N15 005931 000560 -02031 0500 0500 0750 0500 0500 0250 0000 %0366 N16 006018 000988 -02830 0500 0500 0875 0500 0500 0125 0000 %0367 N17 005573 001268 -03144 0500 0500 1000 0500 0500 0000 0000 %0368 N18 006254 -01586 005940 0500 0625 0000 0500 0375 1000 0000 %0369 O10 006736 -01579 004411 0500 0625 0125 0500 0375 0875 0000 %0370 O11 006743 -01550 002977 0500 0625 0250 0500 0375 0750 0000 %0371 O12 006706 -01357 001596 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006712 -01148 000224 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006647 -00840 -01350 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006563 -00443 -01843 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006544 -00206 -02570 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006201 000187 -03082 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006824 -02427 006253 0500 0750 0000 0500 0250 1000 0000 %0378 P10 007115 -02391 005166 0500 0750 0125 0500 0250 0875 0000 %0379 P11 007109 -02266 003175 0500 0750 0250 0500 0250 0750 0000 %0380 P12 007149 -02221 002064 0500 0750 0375 0500 0250 0625 0000 %0381 P13 007120 -01884 000844 0500 0750 0500 0500 0250 0500 0000 %0382 P14 007135 -01605 -00470 0500 0750 0625 0500 0250 0375 0000 %0383 P15 007202 -01508 -01736 0500 0750 0750 0500 0250 0250 0000 %0384 P16 007053 -01098 -02441 0500 0750 0875 0500 0250 0125 0000 %0385 P17 006767 -00865 -03016 0500 0750 1000 0500 0250 0000 0000 %0386 P18 007308 -03096 006531 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 007498 -03104 005492 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 007485 -03006 003541 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 007441 -02949 002349 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007543 -02775 001364 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007660 -02513 000441 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007547 -02246 -00844 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007580 -01813 -02179 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 007286 -01500 -02776 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 007371 -03880 006279 0500 1000 0000 0500 0000 1000 0000 %0396 R10 007469 -03770 005487 0500 1000 0125 0500 0000 0875 0000 %0397 R11 007417 -03658 003822 0500 1000 0250 0500 0000 0750 0000 %0398 R12 007558 -03224 002361 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007655 -02961 001518 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007673 -02761 000751 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007601 -02473 -00517 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007513 -02194 -01508 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007412 -01849 -02524 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003597 004627 002906 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003685 004525 002304 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003523 004684 001282 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003535 004821 000350 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003570 005154 -00626 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003542 005377 -01401 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003576 005423 -02002 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003665 005425 -02390 0625 0000 0875 0375 1000 0125 0000 %0412 S17 003683 005476 -02588 0625 0000 1000 0375 1000 0000 0000 %0413 S18 004155 003273 003881 0625 0125 0000 0375 0875 1000 0000 %0414 T10 004411 003139 002893 0625 0125 0125 0375 0875 0875 0000 %0415 T11 004296 003351 001604 0625 0125 0250 0375 0875 0750 0000 %0416 T12 004273 003545 000569 0625 0125 0375 0375 0875 0625 0000 %0417 T13 004363 003945 -00440 0625 0125 0500 0375 0875 0500 0000 %0418 T14 004306 004329 -01265 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004302 004619 -01911 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004234 004960 -02471 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004093 004810 -02805 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004655 001907 004432 0625 0250 0000 0375 0750 1000 0000 %0423 U10 005134 001746 003236 0625 0250 0125 0375 0750 0875 0000 %0424 U11 005077 002041 002012 0625 0250 0250 0375 0750 0750 0000 %0425 U12 005062 002328 000863 0625 0250 0375 0375 0750 0625 0000 %0426 U13 005146 002762 -00283 0625 0250 0500 0375 0750 0500 0000 %0427 U14 005111 003123 -01266 0625 0250 0625 0375 0750 0375 0000 %0428 U15 005043 003291 -01724 0625 0250 0750 0375 0750 0250 0000 %0429 U16 004960 003922 -02562 0625 0250 0875 0375 0750 0125 0000 %0430 U17 004609 003949 -02831 0625 0250 1000 0375 0750 0000 0000 %0431 U18 005127 000760 004869 0625 0375 0000 0375 0625 1000 0000 %0432 V10 005884 000651 003893 0625 0375 0125 0375 0625 0875 0000 %0433 V11 005815 001003 002398 0625 0375 0250 0375 0625 0750 0000 %0434 V12 005822 001175 001299 0625 0375 0375 0375 0625 0625 0000 %0435 V13 005856 001602 000079 0625 0375 0500 0375 0625 0500 0000 %0436 V14 005829 001984 -01032 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005670 002202 -01600 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005667 002942 -02414 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005273 002954 -02742 0625 0375 1000 0375 0625 0000 0000 %0440 V18 006109 -00271 005938 0625 0500 0000 0375 0500 1000 0000 %0441 W10 006541 -00265 004764 0625 0500 0125 0375 0500 0875 0000 %0442 W11 006565 -00059 003201 0625 0500 0250 0375 0500 0750 0000 %0443 W12 006544 000154 001951 0625 0500 0375 0375 0500 0625 0000 %0444 W13 006472 000660 000473 0625 0500 0500 0375 0500 0500 0000 %0445 W14 006450 001016 -00849 0625 0500 0625 0375 0500 0375 0000 %0446 W15 006304 001270 -01536 0625 0500 0750 0375 0500 0250 0000 %0447 W16 006435 001773 -02271 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006040 001845 -02585 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006931 -01102 006842 0625 0625 0000 0375 0375 1000 0000 %0450 X10 007253 -01096 005569 0625 0625 0125 0375 0375 0875 0000 %0451 X11 007269 -00981 003973 0625 0625 0250 0375 0375 0750 0000 %0452 X12 007235 -00733 002638 0625 0625 0375 0375 0375 0625 0000 %0453 X13 007227 -00463 001005 0625 0625 0500 0375 0375 0500 0000 %0454 X14 007100 000022 -00072 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006917 000272 -01376 0625 0625 0750 0375 0375 0250 0000 %0456 X16 006938 000565 -02044 0625 0625 0875 0375 0375 0125 0000 %0457 X17 006731 000754 -02481 0625 0625 1000 0375 0375 0000 0000 %0458 X18 007561 -01692 007361 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 007668 -01751 005799 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 007709 -01621 004169 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 007682 -01524 002984 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 007628 -01316 001722 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 007595 -01198 000311 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 007566 -00873 -01201 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007470 -00458 -01865 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007238 -00434 -02467 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 008014 -02312 007602 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 008025 -02350 006391 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007933 -02214 004138 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007914 -02223 003106 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007987 -02094 001996 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 008062 -01931 001110 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 008050 -01720 -00234 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 008105 -01388 -01709 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007794 -01219 -02228 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 008020 -03160 007193 0625 1000 0000 0375 0000 1000 0000 %0477 a10 008184 -02996 006482 0625 1000 0125 0375 0000 0875 0000 %0478 a11 008090 -02983 005008 0625 1000 0250 0375 0000 0750 0000 %0479 a12 007987 -02930 003562 0625 1000 0375 0375 0000 0625 0000 %0480 a13 008077 -02628 002223 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008234 -02273 001442 0625 1000 0625 0375 0000 0375 0000 %0482 a15 008213 -02037 000346 0625 1000 0750 0375 0000 0250 0000 %0483 a16 008064 -01752 -01016 0625 1000 0875 0375 0000 0125 0000 %0484 a17 007967 -01444 -02035 0625 1000 1000 0375 0000 0000 0000 %0485 a18 003905 005177 003016 0750 0000 0000 0250 1000 1000 0000 %0486 A19 003798 005147 002129 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003737 005204 001473 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003686 005311 000721 0750 0000 0375 0250 1000 0625 0000 %0489 A22 003657 005604 -00059 0750 0000 0500 0250 1000 0500 0000 %0490 A23 003649 005692 -00988 0750 0000 0625 0250 1000 0375 0000 %0491 A24 003650 005792 -01560 0750 0000 0750 0250 1000 0250 0000 %0492 A25 003747 005857 -02077 0750 0000 0875 0250 1000 0125 0000 %0493 A26 003896 005984 -02190 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004669 004244 004522 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004718 003720 003021 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004642 003900 002128 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004551 004060 001417 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004481 004439 000534 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004425 004825 -00494 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004381 005160 -01415 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004414 005382 -02004 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004373 005446 -02390 0750 0125 1000 0250 0875 0000 0000 %0503 B27 005434 002548 005284 0750 0250 0000 0250 0750 1000 0000 %0504 C19 005429 002559 003634 0750 0250 0125 0250 0750 0875 0000 %0505 C20 005366 002742 002430 0750 0250 0250 0250 0750 0750 0000 %0506 C21 005276 002961 001568 0750 0250 0375 0250 0750 0625 0000 %0507 C22 005274 003151 000718 0750 0250 0500 0250 0750 0500 0000 %0508 C23 005233 003665 -00280 0750 0250 0625 0250 0750 0375 0000 %0509 C24 005114 003957 -01354 0750 0250 0750 0250 0750 0250 0000 %0510 C25 005130 004317 -01921 0750 0250 0875 0250 0750 0125 0000 %0511 C26 004970 004518 -02406 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005916 001495 005793 0750 0375 0000 0250 0625 1000 0000 %0513 D19 006036 001553 004477 0750 0375 0125 0250 0625 0875 0000 %0514 D20 006038 001633 002873 0750 0375 0250 0250 0625 0750 0000 %0515 D21 006003 001837 001932 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005983 002029 001074 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005976 002452 000001 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005786 002912 -01196 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005835 003420 -01832 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005492 003778 -02301 0750 0375 1000 0250 0625 0000 0000 %0521 D27 006454 000502 006380 0750 0500 0000 0250 0500 1000 0000 %0522 E19 006692 000520 005327 0750 0500 0125 0250 0500 0875 0000 %0523 E20 006722 000593 003584 0750 0500 0250 0250 0500 0750 0000 %0524 E21 006694 000807 002599 0750 0500 0375 0250 0500 0625 0000 %0525 E22 006651 001049 001598 0750 0500 0500 0250 0500 0500 0000 %0526 E23 006603 001525 000365 0750 0500 0625 0250 0500 0375 0000 %0527 E24 006406 002017 -01063 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006486 002340 -01674 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006314 002782 -02068 0750 0500 1000 0250 0500 0000 0000 %0530 E27 007352 -00445 007342 0750 0625 0000 0250 0375 1000 0000 %0531 F19 007412 -00370 006006 0750 0625 0125 0250 0375 0875 0000 %0532 F20 007397 -00239 004332 0750 0625 0250 0250 0375 0750 0000 %0533 F21 007357 -00073 003340 0750 0625 0375 0250 0375 0625 0000 %0534 F22 007277 000231 002295 0750 0625 0500 0250 0375 0500 0000 %0535 F23 007201 000590 000822 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006996 001082 -00876 0750 0625 0750 0250 0375 0250 0000 %0537 F25 007091 001388 -01554 0750 0625 0875 0250 0375 0125 0000 %0538 F26 007006 001733 -01942 0750 0625 1000 0250 0375 0000 0000 %0539 F27 008139 -01232 008221 0750 0750 0000 0250 0250 1000 0000 %0540 G19 008053 -01122 006810 0750 0750 0125 0250 0250 0875 0000 %0541 G20 008030 -01042 005047 0750 0750 0250 0250 0250 0750 0000 %0542 G21 007974 -00846 004051 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007943 -00759 003014 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007886 -00408 001330 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007711 000023 -00013 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007703 000244 -01281 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007727 000431 -01837 0750 0750 1000 0250 0250 0000 0000 %0548 G27 008785 -01650 008956 0750 0875 0000 0250 0125 1000 0000 %0549 H19 008546 -01736 007452 0750 0875 0125 0250 0125 0875 0000 %0550 H20 008430 -01758 005308 0750 0875 0250 0250 0125 0750 0000 %0551 H21 008368 -01697 004289 0750 0875 0375 0250 0125 0625 0000 %0552 H22 008366 -01643 003387 0750 0875 0500 0250 0125 0500 0000 %0553 H23 008362 -01433 002341 0750 0875 0625 0250 0125 0375 0000 %0554 H24 008457 -01332 000873 0750 0875 0750 0250 0125 0250 0000 %0555 H25 008437 -00917 -01120 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008393 -00904 -01621 0750 0875 1000 0250 0125 0000 0000 %0557 H27 008847 -02337 008732 0750 1000 0000 0250 0000 1000 0000 %0558 I19 008735 -02329 007393 0750 1000 0125 0250 0000 0875 0000 %0559 I20 008709 -02387 005814 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008651 -02409 004919 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008585 -02383 003930 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008594 -02214 002762 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008718 -01903 001761 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008579 -01610 000077 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008422 -01215 -01518 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004211 005684 003277 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004179 005633 002559 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004096 005694 001975 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004046 005865 001223 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004032 006004 000507 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004047 006253 -00313 0875 0000 0625 0125 1000 0375 0000 %0572 J24 003995 006406 -01165 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004074 006442 -01666 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004178 006506 -01816 0875 0000 1000 0125 1000 0000 0000 %0575 J27 005112 004951 005118 0875 0125 0000 0125 0875 1000 0000 %0576 K19 005014 004878 004012 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004949 005010 002806 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004827 005194 001992 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004746 005465 001227 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004749 005739 000284 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004672 006151 -00828 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004683 006107 -01722 0875 0125 0875 0125 0875 0125 0000 %0583 K26 004630 005965 -01987 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005942 003328 005875 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005827 003337 004679 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005814 003468 003112 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005731 003664 002272 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005631 003917 001478 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005632 004227 000646 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005634 004588 -00451 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005519 004870 -01535 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005381 005021 -01893 0875 0250 1000 0125 0750 0000 0000 %0593 L27 006502 002315 006404 0875 0375 0000 0125 0625 1000 0000 %0594 M19 006360 002310 004924 0875 0375 0125 0125 0625 0875 0000 %0595 M20 006333 002439 003386 0875 0375 0250 0125 0625 0750 0000 %0596 M21 006315 002567 002541 0875 0375 0375 0125 0625 0625 0000 %0597 M22 006263 002781 001790 0875 0375 0500 0125 0625 0500 0000 %0598 M23 006276 003036 000937 0875 0375 0625 0125 0625 0375 0000 %0599 M24 006204 003636 -00261 0875 0375 0750 0125 0625 0250 0000 %0600 M25 006183 003834 -01435 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006026 004040 -01825 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006924 001334 006875 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006961 001346 005632 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006942 001389 003865 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006900 001524 002981 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006888 001717 002199 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006892 002019 001294 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006809 002575 000077 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006716 002958 -01296 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006756 003237 -01583 0875 0500 1000 0125 0500 0000 0000 %0611 N27 007605 000444 007574 0875 0625 0000 0125 0375 1000 0000 %0612 O19 007575 000428 006565 0875 0625 0125 0125 0375 0875 0000 %0613 O20 007566 000491 004422 0875 0625 0250 0125 0375 0750 0000 %0614 O21 007490 000691 003636 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007503 000770 002779 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007416 001061 001763 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007337 001614 000408 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007312 002040 -01057 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007420 002441 -01376 0875 0625 1000 0125 0375 0000 0000 %0620 O27 008408 -00359 008493 0875 0750 0000 0125 0250 1000 0000 %0621 P19 008239 -00414 007253 0875 0750 0125 0125 0250 0875 0000 %0622 P20 008234 -00280 005259 0875 0750 0250 0125 0250 0750 0000 %0623 P21 008191 -00129 004412 0875 0750 0375 0125 0250 0625 0000 %0624 P22 008136 000026 003441 0875 0750 0500 0125 0250 0500 0000 %0625 P23 008095 000280 002499 0875 0750 0625 0125 0250 0375 0000 %0626 P24 008002 000649 000945 0875 0750 0750 0125 0250 0250 0000 %0627 P25 008011 001042 -00807 0875 0750 0875 0125 0250 0125 0000 %0628 P26 008094 001322 -01223 0875 0750 1000 0125 0250 0000 0000 %0629 P27 008981 -01232 009141 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 008819 -01187 007930 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008778 -01065 006177 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008721 -00952 005099 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008744 -00790 004154 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008766 -00731 003272 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008849 -00578 001799 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008904 000021 -00002 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008761 000205 -00980 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 009350 -01766 009357 0875 1000 0000 0125 0000 1000 0000 %0639 R19 009149 -01676 008278 0875 1000 0125 0125 0000 0875 0000 %0640 R20 009062 -01577 006300 0875 1000 0250 0125 0000 0750 0000 %0641 R21 009013 -01722 005335 0875 1000 0375 0125 0000 0625 0000 %0642 R22 009019 -01751 004556 0875 1000 0500 0125 0000 0500 0000 %0643 R23 009129 -01730 003788 0875 1000 0625 0125 0000 0375 0000 %0644 R24 009147 -01541 002587 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009141 -01150 000846 0875 1000 0875 0125 0000 0125 0000 %0646 R26 009008 -00780 -00791 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004604 006199 003858 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004584 006159 003359 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004502 006220 002633 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004464 006309 001934 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004469 006441 001274 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004476 006667 000648 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004480 006954 -00176 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004475 007140 -00947 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004534 007108 -01297 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005212 005688 005352 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005090 005941 004676 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005034 006179 003503 1000 0125 0250 0000 0875 0750 0000 %0659 T21 004942 006476 002591 1000 0125 0375 0000 0875 0625 0000 %0660 T22 004916 006667 001895 1000 0125 0500 0000 0875 0500 0000 %0661 T23 004833 007032 000962 1000 0125 0625 0000 0875 0375 0000 %0662 T24 004870 007259 -00037 1000 0125 0750 0000 0875 0250 0000 %0663 T25 004935 007477 -00878 1000 0125 0875 0000 0875 0125 0000 %0664 T26 004922 006927 -01245 1000 0125 1000 0000 0875 0000 0000 %0665 T27 006009 004106 006002 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005896 004331 005417 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005888 004466 004300 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005735 004935 003079 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005663 005257 002225 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005650 005493 001302 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005666 005814 000203 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005812 005975 -00905 1000 0250 0875 0000 0750 0125 0000 %0673 U26 005855 005547 -01311 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006613 002968 006596 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006535 003131 005819 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006459 003372 004815 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006488 003536 003447 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006451 003807 002502 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006428 004093 001543 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006456 004371 000569 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006514 004740 -00616 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006599 004800 -01097 1000 0375 1000 0000 0625 0000 0000 %0683 V27 007162 001922 007101 1000 0500 0000 0000 0500 1000 0000 %0684 W19 007169 001948 006404 1000 0500 0125 0000 0500 0875 0000 %0685 W20 007189 002091 004884 1000 0500 0250 0000 0500 0750 0000 %0686 W21 007194 002290 003786 1000 0500 0375 0000 0500 0625 0000 %0687 W22 007218 002440 002909 1000 0500 0500 0000 0500 0500 0000 %0688 W23 007243 002679 001918 1000 0500 0625 0000 0500 0375 0000 %0689 W24 007214 003079 000798 1000 0500 0750 0000 0500 0250 0000 %0690 W25 007211 003599 -00427 1000 0500 0875 0000 0500 0125 0000 %0691 W26 007218 003810 -00982 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007555 001223 007518 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007699 001012 006857 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007740 001112 005467 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007755 001300 004243 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007809 001418 003367 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007863 001628 002346 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007852 002032 001140 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007854 002587 -00197 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007821 002915 -00858 1000 0625 1000 0000 0375 0000 0000 %0701 X27 008229 000074 007824 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 008274 000131 006507 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 008260 000296 005489 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 008279 000423 004659 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008347 000474 004010 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008379 000708 002955 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008533 000893 001699 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008444 001620 000183 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008454 002002 -00693 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008696 -00608 007398 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008754 -00614 006723 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008756 -00452 005656 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008768 -00326 004919 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008815 -00256 004333 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008863 -00137 003574 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 009104 -00193 002591 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 009077 000380 001128 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 009122 000979 -00383 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009136 -01393 008475 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009186 -01367 007655 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009191 -01185 006246 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009305 -01210 005507 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009359 -01153 004919 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009394 -01020 004115 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009574 -01094 003393 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009645 -00739 002051 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009712 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009734 -00002 000005 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009059 -00711 -00769 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008515 -01084 -01427 0750 1000 1000 0250 0000 0000 0000 %0731 b03 008041 -01415 -01917 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007503 -01742 -02436 0500 1000 1000 0500 0000 0000 0000 %0733 b05 006924 -02112 -02863 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006117 -02755 -03307 0250 1000 1000 0750 0000 0000 0000 %0735 b07 005546 -03231 -03609 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005154 -03309 -03901 0000 1000 1000 1000 0000 0000 0000 %0737 b09 009162 000369 000901 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008893 000005 000023 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008556 -00812 -01047 0750 0875 0875 0250 0125 0125 0000 %0740 c03 008172 -01327 -01631 0625 0875 0875 0375 0125 0125 0000 %0741 c04 007629 -01721 -02143 0500 0875 0875 0500 0125 0125 0000 %0742 c05 007063 -02065 -02674 0375 0875 0875 0625 0125 0125 0000 %0743 c06 006510 -02443 -02921 0250 0875 0875 0750 0125 0125 0000 %0744 c07 005921 -03063 -03207 0125 0875 0875 0875 0125 0125 0000 %0745 c08 005070 -03457 -03778 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008657 000826 001431 1000 0750 0750 0000 0250 0250 0000 %0747 d01 008162 000525 000770 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007900 000016 -00031 0750 0750 0750 0250 0250 0250 0000 %0749 d03 007568 -00773 -01089 0625 0750 0750 0375 0250 0250 0000 %0750 d04 007229 -01368 -01571 0500 0750 0750 0500 0250 0250 0000 %0751 d05 006688 -01768 -02142 0375 0750 0750 0625 0250 0250 0000 %0752 d06 006113 -02037 -02561 0250 0750 0750 0750 0250 0250 0000 %0753 d07 005675 -02664 -02890 0125 0750 0750 0875 0250 0250 0000 %0754 d08 005097 -03787 -03362 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007961 001548 002100 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007589 000935 001624 0875 0625 0625 0125 0375 0375 0000 %0757 e02 007367 000578 000598 0750 0625 0625 0250 0375 0375 0000 %0758 e03 007009 000009 -00064 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006668 -00773 -01276 0500 0625 0625 0500 0375 0375 0000 %0760 e05 006276 -01328 -01682 0375 0625 0625 0625 0375 0375 0000 %0761 e06 005654 -01687 -02273 0250 0625 0625 0750 0375 0375 0000 %0762 e07 005301 -02215 -02686 0125 0625 0625 0875 0375 0375 0000 %0763 e08 004886 -03326 -03428 0000 0625 0625 1000 0375 0375 0000 %0764 e09 007247 002423 002796 1000 0500 0500 0000 0500 0500 0000 %0765 f01 007025 001636 002076 0875 0500 0500 0125 0500 0500 0000 %0766 f02 006742 001040 001476 0750 0500 0500 0250 0500 0500 0000 %0767 f03 006447 000627 000552 0625 0500 0500 0375 0500 0500 0000 %0768 f04 006161 000002 -00084 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005777 -00804 -01231 0375 0500 0500 0625 0500 0500 0000 %0770 f06 005306 -01369 -01908 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004949 -01658 -02456 0125 0500 0500 0875 0500 0500 0000 %0772 f08 004543 -02441 -03147 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006506 003509 003471 1000 0375 0375 0000 0625 0625 0000 %0774 g01 006318 002521 002584 0875 0375 0375 0125 0625 0625 0000 %0775 g02 006009 001814 001979 0750 0375 0375 0250 0625 0625 0000 %0776 g03 005668 001208 001458 0625 0375 0375 0375 0625 0625 0000 %0777 g04 005358 000613 000580 0500 0375 0375 0500 0625 0625 0000 %0778 g05 005159 000000 -00090 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004778 -00978 -01447 0250 0375 0375 0750 0625 0625 0000 %0780 g07 004636 -01397 -02053 0125 0375 0375 0875 0625 0625 0000 %0781 g08 004311 -02064 -02455 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005915 004400 004364 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005794 003375 003271 0875 0250 0250 0125 0750 0750 0000 %0784 h02 005304 002703 002595 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004955 001984 002184 0625 0250 0250 0375 0750 0750 0000 %0786 h04 004640 001302 001524 0500 0250 0250 0500 0750 0750 0000 %0787 h05 004350 000850 000745 0375 0250 0250 0625 0750 0750 0000 %0788 h06 004006 -00004 -00110 0250 0250 0250 0750 0750 0750 0000 %0789 h07 003916 -01023 -01444 0125 0250 0250 0875 0750 0750 0000 %0790 h08 003940 -01437 -01885 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005065 005997 004606 1000 0125 0125 0000 0875 0875 0000 %0792 i01 005007 004757 003999 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004653 003674 003063 0750 0125 0125 0250 0875 0875 0000 %0794 i03 004277 003099 002889 0625 0125 0125 0375 0875 0875 0000 %0795 i04 004018 002307 002155 0500 0125 0125 0500 0875 0875 0000 %0796 i05 003768 001533 001638 0375 0125 0125 0625 0875 0875 0000 %0797 i06 003444 000900 000948 0250 0125 0125 0750 0875 0875 0000 %0798 i07 002422 -00006 -00063 0125 0125 0125 0875 0875 0875 0000 %0799 i08 003301 -00973 -01296 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004553 006169 003759 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004110 005434 003217 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003852 005053 002971 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003496 004544 002877 0625 0000 0000 0375 1000 1000 0000 %0804 j04 003247 003942 002580 0500 0000 0000 0500 1000 1000 0000 %0805 j05 003021 003009 002120 0375 0000 0000 0625 1000 1000 0000 %0806 j06 002955 001787 001472 0250 0000 0000 0750 1000 1000 0000 %0807 j07 002631 000925 000892 0125 0000 0000 0875 1000 1000 0000 %0808 j08 001567 -00003 -00004 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009730 000003 -00007 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008842 000106 -00898 0875 0875 1000 0125 0125 0000 0000 %0811 b11 007882 000249 -01715 0750 0750 1000 0250 0250 0000 0000 %0812 b12 006782 000675 -02404 0625 0625 1000 0375 0375 0000 0000 %0813 b13 005603 001217 -03108 0500 0500 1000 0500 0500 0000 0000 %0814 b14 004628 001818 -03581 0375 0375 1000 0625 0625 0000 0000 %0815 b15 003782 002306 -03993 0250 0250 1000 0750 0750 0000 0000 %0816 b16 003405 002381 -04148 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003075 002536 -04272 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009665 -00553 001489 1000 1000 0875 0000 0000 0125 0000 %0819 c10 009013 000016 -00003 0875 0875 0875 0125 0125 0125 0000 %0820 c11 007948 000065 -01209 0750 0750 0875 0250 0250 0125 0000 %0821 c12 007021 000488 -01966 0625 0625 0875 0375 0375 0125 0000 %0822 c13 006024 000976 -02790 0500 0500 0875 0500 0500 0125 0000 %0823 c14 004915 001642 -03435 0375 0375 0875 0625 0625 0125 0000 %0824 c15 003958 002141 -03918 0250 0250 0875 0750 0750 0125 0000 %0825 c16 003503 002244 -04133 0125 0125 0875 0875 0875 0125 0000 %0826 c17 002918 002695 -04236 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009597 -00943 002832 1000 1000 0750 0000 0000 0250 0000 %0828 d10 009010 -00429 001335 0875 0875 0750 0125 0125 0250 0000 %0829 d11 008025 000014 -00019 0750 0750 0750 0250 0250 0250 0000 %0830 d12 007014 000207 -01306 0625 0625 0750 0375 0375 0250 0000 %0831 d13 005997 000524 -01967 0500 0500 0750 0500 0500 0250 0000 %0832 d14 005076 000903 -02648 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004404 001463 -03186 0250 0250 0750 0750 0750 0250 0000 %0834 d16 003802 001773 -03750 0125 0125 0750 0875 0875 0250 0000 %0835 d17 002815 002705 -04323 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009417 -00902 003554 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008953 -00638 002746 0875 0875 0625 0125 0125 0375 0000 %0838 e11 008141 -00319 000978 0750 0750 0625 0250 0250 0375 0000 %0839 e12 007163 000013 -00081 0625 0625 0625 0375 0375 0375 0000 %0840 e13 006006 000271 -01506 0500 0500 0625 0500 0500 0375 0000 %0841 e14 004998 000621 -02211 0375 0375 0625 0625 0625 0375 0000 %0842 e15 004285 001068 -02778 0250 0250 0625 0750 0750 0375 0000 %0843 e16 003678 001651 -03323 0125 0125 0625 0875 0875 0375 0000 %0844 e17 002663 002707 -04401 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009369 -01073 004464 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008900 -00751 003640 0875 0875 0500 0125 0125 0500 0000 %0847 f11 008141 -00705 002605 0750 0750 0500 0250 0250 0500 0000 %0848 f12 007274 -00459 000901 0625 0625 0500 0375 0375 0500 0000 %0849 f13 006204 000007 -00089 0500 0500 0500 0500 0500 0500 0000 %0850 f14 004997 000325 -01620 0375 0375 0500 0625 0625 0500 0000 %0851 f15 004160 000756 -02418 0250 0250 0500 0750 0750 0500 0000 %0852 f16 003596 001176 -02849 0125 0125 0500 0875 0875 0500 0000 %0853 f17 002916 002042 -03787 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009316 -01218 005417 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008819 -00987 004883 0875 0875 0375 0125 0125 0625 0000 %0856 g11 008108 -00872 003811 0750 0750 0375 0250 0250 0625 0000 %0857 g12 007227 -00738 002603 0625 0625 0375 0375 0375 0625 0000 %0858 g13 006254 -00530 001132 0500 0500 0375 0500 0500 0625 0000 %0859 g14 005180 000009 -00089 0375 0375 0375 0625 0625 0625 0000 %0860 g15 004043 000341 -01771 0250 0250 0375 0750 0750 0625 0000 %0861 g16 003349 000709 -02471 0125 0125 0375 0875 0875 0625 0000 %0862 g17 002958 001107 -03007 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009196 -01193 006214 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008868 -01070 005869 0875 0875 0250 0125 0125 0750 0000 %0865 h11 008136 -01057 004863 0750 0750 0250 0250 0250 0750 0000 %0866 h12 007253 -00979 003807 0625 0625 0250 0375 0375 0750 0000 %0867 h13 006301 -00831 002728 0500 0500 0250 0500 0500 0750 0000 %0868 h14 005287 -00652 001379 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003995 000002 -00093 0250 0250 0250 0750 0750 0750 0000 %0870 h16 003231 000403 -01712 0125 0125 0250 0875 0875 0750 0000 %0871 h17 002623 000697 -02329 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009198 -01381 007581 1000 1000 0125 0000 0000 0875 0000 %0873 i10 008876 -01231 007707 0875 0875 0125 0125 0125 0875 0000 %0874 i11 008090 -01142 006699 0750 0750 0125 0250 0250 0875 0000 %0875 i12 007182 -01103 005467 0625 0625 0125 0375 0375 0875 0000 %0876 i13 006286 -00962 004147 0500 0500 0125 0500 0500 0875 0000 %0877 i14 005429 -00878 003114 0375 0375 0125 0625 0625 0875 0000 %0878 i15 004273 -00571 001652 0250 0250 0125 0750 0750 0875 0000 %0879 i16 002455 000005 -00052 0125 0125 0125 0875 0875 0875 0000 %0880 i17 002737 000673 -01496 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009173 -01427 008407 1000 1000 0000 0000 0000 1000 0000 %0882 j10 009020 -01278 009017 0875 0875 0000 0125 0125 1000 0000 %0883 j11 008142 -01266 008140 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006888 -01116 006794 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005850 -00977 005673 0500 0500 0000 0500 0500 1000 0000 %0886 j14 005162 -01037 004444 0375 0375 0000 0625 0625 1000 0000 %0887 j15 004380 -00855 003231 0250 0250 0000 0750 0750 1000 0000 %0888 j16 003533 -00528 001680 0125 0125 0000 0875 0875 1000 0000 %0889 j17 001450 000006 000025 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009731 -00001 000002 1000 1000 1000 0000 0000 0000 0000 %0891 b19 009174 000904 -00350 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008558 001822 -00617 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007926 002733 -00791 1000 0625 1000 0000 0375 0000 0000 %0894 b22 007274 003700 -00931 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006579 004811 -01062 1000 0375 1000 0000 0625 0000 0000 %0896 b24 005735 005696 -01251 1000 0250 1000 0000 0750 0000 0000 %0897 b25 004940 006862 -01219 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004531 007066 -01210 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009193 -00961 000527 0875 1000 0875 0125 0000 0125 0000 %0900 c19 009019 000013 000001 0875 0875 0875 0125 0125 0125 0000 %0901 c20 008180 000899 -00765 0875 0750 0875 0125 0250 0125 0000 %0902 c21 007555 001859 -00957 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006859 002848 -01224 0875 0500 0875 0125 0500 0125 0000 %0904 c23 006157 003877 -01414 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005455 004918 -01496 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004663 006053 -01645 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004063 006333 -01532 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008794 -01637 001265 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008599 -01187 000584 0750 0875 0750 0250 0125 0250 0000 %0910 d20 008012 000018 -00035 0750 0750 0750 0250 0250 0250 0000 %0911 d21 007262 000978 -00811 0750 0625 0750 0250 0375 0250 0000 %0912 d22 006581 001952 -01019 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005873 002841 -01163 0750 0375 0750 0250 0625 0250 0000 %0914 d24 005110 003962 -01284 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004393 005115 -01329 0750 0125 0750 0250 0875 0250 0000 %0916 d26 003688 005669 -01454 0750 0000 0750 0250 1000 0250 0000 %0917 d27 008244 -02266 001443 0625 1000 0625 0375 0000 0375 0000 %0918 e19 008068 -01913 001195 0625 0875 0625 0375 0125 0375 0000 %0919 e20 007595 -01178 000404 0625 0750 0625 0375 0250 0375 0000 %0920 e21 007096 000015 -00082 0625 0625 0625 0375 0375 0375 0000 %0921 e22 006316 001009 -00825 0625 0500 0625 0375 0500 0375 0000 %0922 e23 005578 001997 -01040 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004798 003153 -01214 0625 0250 0625 0375 0750 0375 0000 %0924 e25 004014 004224 -01156 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003302 005024 -01203 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007664 -02993 001628 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007524 -02799 001362 0500 0875 0500 0500 0125 0500 0000 %0928 f20 007080 -01926 000935 0500 0750 0500 0500 0250 0500 0000 %0929 f21 006722 -01201 000398 0500 0625 0500 0500 0375 0500 0000 %0930 f22 006048 000005 -00074 0500 0500 0500 0500 0500 0500 0000 %0931 f23 005201 001085 -00864 0500 0375 0500 0500 0625 0500 0000 %0932 f24 004443 002348 -01090 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003690 003457 -01083 0500 0125 0500 0500 0875 0500 0000 %0934 f26 003024 004303 -00951 0500 0000 0500 0500 1000 0500 0000 %0935 f27 007044 -03856 002108 0375 1000 0375 0625 0000 0625 0000 %0936 g19 007142 -03619 001921 0375 0875 0375 0625 0125 0625 0000 %0937 g20 006523 -02802 001420 0375 0750 0375 0625 0250 0625 0000 %0938 g21 006045 -02162 000926 0375 0625 0375 0625 0375 0625 0000 %0939 g22 005532 -01279 000540 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004978 000004 -00086 0375 0375 0375 0625 0625 0625 0000 %0941 g24 004039 001331 -00823 0375 0250 0375 0625 0750 0625 0000 %0942 g25 003374 002641 -00995 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002813 003515 -00929 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006452 -04810 002632 0250 1000 0250 0750 0000 0750 0000 %0945 h19 006692 -04422 002446 0250 0875 0250 0750 0125 0750 0000 %0946 h20 006027 -03483 001778 0250 0750 0250 0750 0250 0750 0000 %0947 h21 005492 -02960 001414 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004968 -02237 001027 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004528 -01362 000525 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003698 000002 -00098 0250 0250 0250 0750 0750 0750 0000 %0951 h25 003124 001468 -00719 0250 0125 0250 0750 0875 0750 0000 %0952 h26 002639 002446 -00862 0250 0000 0250 0750 1000 0750 0000 %0953 h27 005904 -05827 003153 0125 1000 0125 0875 0000 0875 0000 %0954 i19 006085 -05442 002930 0125 0875 0125 0875 0125 0875 0000 %0955 i20 005603 -04294 002204 0125 0750 0125 0875 0250 0875 0000 %0956 i21 005178 -03675 001791 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004676 -03015 001305 0125 0500 0125 0875 0500 0875 0000 %0958 i23 004172 -02442 000978 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003788 -01372 000673 0125 0250 0125 0875 0750 0875 0000 %0960 i25 002186 -00005 -00038 0125 0125 0125 0875 0875 0875 0000 %0961 i26 002474 001314 -00490 0125 0000 0125 0875 1000 0875 0000 %0962 i27 005665 -06261 003388 0000 1000 0000 1000 0000 1000 0000 %0963 j19 005466 -06652 003239 0000 0875 0000 1000 0125 1000 0000 %0964 j20 005232 -06867 003127 0000 0750 0000 1000 0250 1000 0000 %0965 j21 004909 -06454 002947 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004503 -05801 002527 0000 0500 0000 1000 0500 1000 0000 %0967 j23 004164 -03562 001542 0000 0375 0000 1000 0625 1000 0000 %0968 j24 003624 -02398 000909 0000 0250 0000 1000 0750 1000 0000 %0969 j25 003133 -01108 000685 0000 0125 0000 1000 0875 1000 0000 %0970 j26 001471 -00003 -00020 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa0100 [ %BEG GE22_22_REM.TXT, Separation cmyn6*, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004604 006199 003858 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009136 -01393 008475 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z005674 -06497 003508 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005174 -03396 -03907 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003132 002411 -04296 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004534 007108 -01297 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z001441 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009712 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004553 006169 003759 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 009173 -01427 008407 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 005665 -06261 003388 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005154 -03309 -03901 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003075 002536 -04272 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004531 007066 -01210 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 001496 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009732 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def /FileData1Na (GG92_HRS16_96_D65_00%_G1) def /LUT_LAB1 [ %GE720-7A, Page 7 /24, %BEG GE62_22.TXT, Separation cmyn6*, cf1=0.95, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE62_22.TXT, Separation cmyn6*, cf1=0.95, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 002192 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 002318 000738 -00970 0000 0000 0125 1000 1000 0875 0000 %0001 A02 002413 000934 -01247 0000 0000 0250 1000 1000 0750 0000 %0002 A03 002467 000882 -01504 0000 0000 0375 1000 1000 0625 0000 %0003 A04 002515 001232 -02116 0000 0000 0500 1000 1000 0500 0000 %0004 A05 002708 001464 -02620 0000 0000 0625 1000 1000 0375 0000 %0005 A06 002922 001829 -02997 0000 0000 0750 1000 1000 0250 0000 %0006 A07 003218 002047 -03421 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003438 002395 -04063 0000 0000 1000 1000 1000 0000 0000 %0008 A09 002650 -00353 000496 0000 0125 0000 1000 0875 1000 0000 %0009 B01 002459 -00138 -00411 0000 0125 0125 1000 0875 0875 0000 %0010 B02 002492 000269 -01117 0000 0125 0250 1000 0875 0750 0000 %0011 B03 002461 000511 -01600 0000 0125 0375 1000 0875 0625 0000 %0012 B04 002745 000535 -02134 0000 0125 0500 1000 0875 0500 0000 %0013 B05 002947 000793 -02570 0000 0125 0625 1000 0875 0375 0000 %0014 B06 003241 001050 -02908 0000 0125 0750 1000 0875 0250 0000 %0015 B07 003495 001321 -03296 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003703 001582 -03756 0000 0125 1000 1000 0875 0000 0000 %0017 B09 003127 -00903 000567 0000 0250 0000 1000 0750 1000 0000 %0018 C01 002831 -00603 000271 0000 0250 0125 1000 0750 0875 0000 %0019 C02 003038 -00816 -00902 0000 0250 0250 1000 0750 0750 0000 %0020 C03 002828 -00259 -01703 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003063 -00127 -02079 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003286 000165 -02462 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003570 000361 -02826 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003777 000611 -03224 0000 0250 0875 1000 0750 0125 0000 %0025 C08 004012 000809 -03707 0000 0250 1000 1000 0750 0000 0000 %0026 C09 003592 -02333 000785 0000 0375 0000 1000 0625 1000 0000 %0027 D01 003256 -01871 -00358 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003071 -01369 -00784 0000 0375 0250 1000 0625 0750 0000 %0029 D03 002968 -00843 -01365 0000 0375 0375 1000 0625 0625 0000 %0030 D04 003358 -00803 -02106 0000 0375 0500 1000 0625 0500 0000 %0031 D05 003579 -00478 -02485 0000 0375 0625 1000 0625 0375 0000 %0032 D06 003768 -00246 -02823 0000 0375 0750 1000 0625 0250 0000 %0033 D07 003906 000121 -03254 0000 0375 0875 1000 0625 0125 0000 %0034 D08 004161 000422 -03759 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004032 -03786 001612 0000 0500 0000 1000 0500 1000 0000 %0036 E01 003546 -02299 000282 0000 0500 0125 1000 0500 0875 0000 %0037 E02 003417 -02106 -00440 0000 0500 0250 1000 0500 0750 0000 %0038 E03 003352 -01817 -01236 0000 0500 0375 1000 0500 0625 0000 %0039 E04 003603 -01305 -01983 0000 0500 0500 1000 0500 0500 0000 %0040 E05 003765 -01050 -02397 0000 0500 0625 1000 0500 0375 0000 %0041 E06 003912 -00627 -02878 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004068 -00363 -03284 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004259 -00127 -03806 0000 0500 1000 1000 0500 0000 0000 %0044 E09 004033 -03741 001601 0000 0625 0000 1000 0375 1000 0000 %0045 F01 004003 -02712 000630 0000 0625 0125 1000 0375 0875 0000 %0046 F02 003902 -02537 -00157 0000 0625 0250 1000 0375 0750 0000 %0047 F03 003847 -02323 -00937 0000 0625 0375 1000 0375 0625 0000 %0048 F04 003915 -01900 -01812 0000 0625 0500 1000 0375 0500 0000 %0049 F05 004086 -01574 -02468 0000 0625 0625 1000 0375 0375 0000 %0050 F06 004156 -01246 -02790 0000 0625 0750 1000 0375 0250 0000 %0051 F07 004351 -00978 -03317 0000 0625 0875 1000 0375 0125 0000 %0052 F08 004520 -00721 -03778 0000 0625 1000 1000 0375 0000 0000 %0053 F09 004702 -03700 002273 0000 0750 0000 1000 0250 1000 0000 %0054 G01 004486 -03334 001016 0000 0750 0125 1000 0250 0875 0000 %0055 G02 004456 -03216 000184 0000 0750 0250 1000 0250 0750 0000 %0056 G03 004396 -02864 -00547 0000 0750 0375 1000 0250 0625 0000 %0057 G04 004377 -02506 -01290 0000 0750 0500 1000 0250 0500 0000 %0058 G05 004368 -02406 -01898 0000 0750 0625 1000 0250 0375 0000 %0059 G06 004464 -01883 -02879 0000 0750 0750 1000 0250 0250 0000 %0060 G07 004615 -01520 -03329 0000 0750 0875 1000 0250 0125 0000 %0061 G08 004697 -01129 -03762 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005142 -04838 002870 0000 0875 0000 1000 0125 1000 0000 %0063 H01 004990 -04129 001429 0000 0875 0125 1000 0125 0875 0000 %0064 H02 004892 -03844 000507 0000 0875 0250 1000 0125 0750 0000 %0065 H03 004856 -03485 -00332 0000 0875 0375 1000 0125 0625 0000 %0066 H04 004843 -03221 -01049 0000 0875 0500 1000 0125 0500 0000 %0067 H05 004871 -02914 -01638 0000 0875 0625 1000 0125 0375 0000 %0068 H06 004821 -02498 -02543 0000 0875 0750 1000 0125 0250 0000 %0069 H07 004782 -02249 -03219 0000 0875 0875 1000 0125 0125 0000 %0070 H08 004936 -01866 -03657 0000 0875 1000 1000 0125 0000 0000 %0071 H09 005641 -05578 003193 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005588 -05174 001932 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005554 -04952 000844 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005465 -04658 000037 0000 1000 0375 1000 0000 0625 0000 %0075 I04 005603 -04438 -00586 0000 1000 0500 1000 0000 0500 0000 %0076 I05 005691 -04173 -01232 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005403 -03746 -02134 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005520 -03080 -03333 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005360 -03104 -04044 0000 1000 1000 1000 0000 0000 0000 %0080 I09 002170 000956 000657 0125 0000 0000 0875 1000 1000 0000 %0081 J01 002217 001048 -00145 0125 0000 0125 0875 1000 0875 0000 %0082 J02 002353 001186 -00766 0125 0000 0250 0875 1000 0750 0000 %0083 J03 002576 001695 -01426 0125 0000 0375 0875 1000 0625 0000 %0084 J04 002676 001741 -01804 0125 0000 0500 0875 1000 0500 0000 %0085 J05 002811 002012 -02318 0125 0000 0625 0875 1000 0375 0000 %0086 J06 003108 002195 -02710 0125 0000 0750 0875 1000 0250 0000 %0087 J07 003229 002568 -03363 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003281 003229 -03887 0125 0000 1000 0875 1000 0000 0000 %0089 J09 002719 -00112 001070 0125 0125 0000 0875 0875 1000 0000 %0090 K01 002519 000225 -00023 0125 0125 0125 0875 0875 0875 0000 %0091 K02 003001 000694 -00852 0125 0125 0250 0875 0875 0750 0000 %0092 K03 003137 000856 -01232 0125 0125 0375 0875 0875 0625 0000 %0093 K04 003338 000939 -01563 0125 0125 0500 0875 0875 0500 0000 %0094 K05 003523 001136 -02033 0125 0125 0625 0875 0875 0375 0000 %0095 K06 003604 001551 -02623 0125 0125 0750 0875 0875 0250 0000 %0096 K07 003741 001998 -03121 0125 0125 0875 0875 0875 0125 0000 %0097 K08 004028 002176 -03607 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003065 -00321 001658 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003503 -00618 000513 0125 0250 0125 0875 0750 0875 0000 %0100 L02 003318 -00376 -00661 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003405 000045 -01211 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003608 000333 -01829 0125 0250 0500 0875 0750 0500 0000 %0103 L05 003788 000526 -02037 0125 0250 0625 0875 0750 0375 0000 %0104 L06 003967 000766 -02471 0125 0250 0750 0875 0750 0250 0000 %0105 L07 004086 001239 -03074 0125 0250 0875 0875 0750 0125 0000 %0106 L08 004286 001424 -03466 0125 0250 1000 0875 0750 0000 0000 %0107 L09 003795 -01218 001928 0125 0375 0000 0875 0625 1000 0000 %0108 M01 003719 -01397 000681 0125 0375 0125 0875 0625 0875 0000 %0109 M02 003562 -00987 -00224 0125 0375 0250 0875 0625 0750 0000 %0110 M03 003532 -00710 -01221 0125 0375 0375 0875 0625 0625 0000 %0111 M04 003824 -00349 -01695 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004095 -00138 -01973 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004284 000072 -02481 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004366 000527 -02999 0125 0375 0875 0875 0625 0125 0000 %0115 M08 004603 000719 -03436 0125 0375 1000 0875 0625 0000 0000 %0116 M09 003970 -02253 001976 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004092 -02102 001031 0125 0500 0125 0875 0500 0875 0000 %0118 N02 003980 -01849 -00016 0125 0500 0250 0875 0500 0750 0000 %0119 N03 003998 -01483 -00808 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004028 -00969 -01750 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004284 -00730 -02077 0125 0500 0625 0875 0500 0375 0000 %0122 N06 004453 -00425 -02453 0125 0500 0750 0875 0500 0250 0000 %0123 N07 004568 -00189 -02938 0125 0500 0875 0875 0500 0125 0000 %0124 N08 004831 000113 -03336 0125 0500 1000 0875 0500 0000 0000 %0125 N09 004572 -03022 002409 0125 0625 0000 0875 0375 1000 0000 %0126 O01 004508 -02909 001452 0125 0625 0125 0875 0375 0875 0000 %0127 O02 004467 -02465 000360 0125 0625 0250 0875 0375 0750 0000 %0128 O03 004468 -02223 -00350 0125 0625 0375 0875 0375 0625 0000 %0129 O04 004471 -01753 -01258 0125 0625 0500 0875 0375 0500 0000 %0130 O05 004501 -01333 -02020 0125 0625 0625 0875 0375 0375 0000 %0131 O06 004610 -01004 -02527 0125 0625 0750 0875 0375 0250 0000 %0132 O07 004784 -00753 -02870 0125 0625 0875 0875 0375 0125 0000 %0133 O08 005045 -00620 -03270 0125 0625 1000 0875 0375 0000 0000 %0134 O09 005013 -03841 002970 0125 0750 0000 0875 0250 1000 0000 %0135 P01 005030 -03756 001954 0125 0750 0125 0875 0250 0875 0000 %0136 P02 004938 -03128 000726 0125 0750 0250 0875 0250 0750 0000 %0137 P03 004922 -02866 -00103 0125 0750 0375 0875 0250 0625 0000 %0138 P04 004905 -02418 -00842 0125 0750 0500 0875 0250 0500 0000 %0139 P05 004938 -02119 -01642 0125 0750 0625 0875 0250 0375 0000 %0140 P06 004861 -01837 -02352 0125 0750 0750 0875 0250 0250 0000 %0141 P07 005042 -01339 -02903 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005210 -01060 -03261 0125 0750 1000 0875 0250 0000 0000 %0143 P09 005501 -05284 003894 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 005475 -04436 002172 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 005437 -03924 001087 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 005398 -03475 000086 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 005410 -03055 -00703 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 005421 -02808 -01391 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 005355 -02385 -02212 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 005301 -02121 -02848 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005449 -01666 -03303 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 006026 -05660 003840 0125 1000 0000 0875 0000 1000 0000 %0153 R01 006014 -05303 002652 0125 1000 0125 0875 0000 0875 0000 %0154 R02 005954 -04502 001342 0125 1000 0250 0875 0000 0750 0000 %0155 R03 005881 -04029 000399 0125 1000 0375 0875 0000 0625 0000 %0156 R04 005836 -03746 -00581 0125 1000 0500 0875 0000 0500 0000 %0157 R05 005875 -03538 -01109 0125 1000 0625 0875 0000 0375 0000 %0158 R06 005810 -03227 -01757 0125 1000 0750 0875 0000 0250 0000 %0159 R07 005746 -02822 -02518 0125 1000 0875 0875 0000 0125 0000 %0160 R08 005791 -02565 -03123 0125 1000 1000 0875 0000 0000 0000 %0161 R09 002419 001565 000861 0250 0000 0000 0750 1000 1000 0000 %0162 S01 002260 001663 000394 0250 0000 0125 0750 1000 0875 0000 %0163 S02 002444 001948 -00343 0250 0000 0250 0750 1000 0750 0000 %0164 S03 002667 002050 -01090 0250 0000 0375 0750 1000 0625 0000 %0165 S04 002918 002222 -01406 0250 0000 0500 0750 1000 0500 0000 %0166 S05 002987 002504 -01985 0250 0000 0625 0750 1000 0375 0000 %0167 S06 003177 002599 -02433 0250 0000 0750 0750 1000 0250 0000 %0168 S07 003308 003021 -02894 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003529 003369 -03524 0250 0000 1000 0750 1000 0000 0000 %0170 S09 002968 000928 001447 0250 0125 0000 0750 0875 1000 0000 %0171 T01 002977 000998 000506 0250 0125 0125 0750 0875 0875 0000 %0172 T02 003090 001128 -00342 0250 0125 0250 0750 0875 0750 0000 %0173 T03 003282 001261 -00956 0250 0125 0375 0750 0875 0625 0000 %0174 T04 003489 001370 -01316 0250 0125 0500 0750 0875 0500 0000 %0175 T05 003678 001645 -01741 0250 0125 0625 0750 0875 0375 0000 %0176 T06 003795 002023 -02313 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003934 002307 -02744 0250 0125 0875 0750 0875 0125 0000 %0178 T08 004246 002490 -03198 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003540 -00272 002040 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003559 -00042 001012 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003532 000222 -00102 0250 0250 0250 0750 0750 0750 0000 %0182 U03 004042 000438 -00624 0250 0250 0375 0750 0750 0625 0000 %0183 U04 004158 000707 -01172 0250 0250 0500 0750 0750 0500 0000 %0184 U05 004221 000982 -01450 0250 0250 0625 0750 0750 0375 0000 %0185 U06 004373 001324 -02000 0250 0250 0750 0750 0750 0250 0000 %0186 U07 004652 001507 -02423 0250 0250 0875 0750 0750 0125 0000 %0187 U08 004934 001711 -02884 0250 0250 1000 0750 0750 0000 0000 %0188 U09 003751 -00792 002215 0250 0375 0000 0750 0625 1000 0000 %0189 V01 003956 -00703 001334 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004156 -00523 000434 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004253 -00286 -00678 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004387 000001 -01165 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004441 000222 -01615 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004640 000504 -02009 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004874 000854 -02522 0250 0375 0875 0750 0625 0125 0000 %0196 V08 005175 000969 -02804 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004497 -01811 002580 0250 0500 0000 0750 0500 1000 0000 %0198 W01 004521 -01520 001713 0250 0500 0125 0750 0500 0875 0000 %0199 W02 004576 -01311 000780 0250 0500 0250 0750 0500 0750 0000 %0200 W03 004503 -00858 -00350 0250 0500 0375 0750 0500 0625 0000 %0201 W04 004602 -00652 -01046 0250 0500 0500 0750 0500 0500 0000 %0202 W05 004810 -00256 -01597 0250 0500 0625 0750 0500 0375 0000 %0203 W06 004876 -00138 -02006 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005110 000032 -02423 0250 0500 0875 0750 0500 0125 0000 %0205 W08 005290 000443 -02835 0250 0500 1000 0750 0500 0000 0000 %0206 W09 005055 -02475 003203 0250 0625 0000 0750 0375 1000 0000 %0207 X01 004992 -02325 002060 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005021 -02204 001123 0250 0625 0250 0750 0375 0750 0000 %0209 X03 004990 -01724 -00086 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005014 -01361 -00788 0250 0625 0500 0750 0375 0500 0000 %0211 X05 005022 -00989 -01699 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005171 -00711 -02012 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005295 -00422 -02363 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005513 -00144 -02734 0250 0625 1000 0750 0375 0000 0000 %0215 X09 005340 -03405 003452 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 005406 -03083 002333 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 005515 -02968 001513 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 005456 -02418 000260 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 005425 -01967 -00554 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 005451 -01697 -01312 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 005349 -01383 -02001 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 005559 -01066 -02326 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 005719 -00695 -02790 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 005858 -04752 004381 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 005823 -03844 002609 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 005908 -03648 001841 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 005925 -03193 000685 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 005873 -02735 -00372 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 005897 -02381 -01022 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 005822 -02039 -01753 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 005728 -01726 -02552 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 005958 -01260 -02917 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006380 -05234 004556 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006317 -04645 003142 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006493 -04475 002314 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006397 -03819 000932 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006333 -03354 000010 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006295 -02995 -00649 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006202 -02789 -01378 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006288 -02542 -02099 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006267 -02244 -02862 0250 1000 1000 0750 0000 0000 0000 %0242 a09 003044 002188 001281 0375 0000 0000 0625 1000 1000 0000 %0243 A10 003018 002364 000750 0375 0000 0125 0625 1000 0875 0000 %0244 A11 002988 002452 000212 0375 0000 0250 0625 1000 0750 0000 %0245 A12 002914 002646 -00467 0375 0000 0375 0625 1000 0625 0000 %0246 A13 003148 002817 -01114 0375 0000 0500 0625 1000 0500 0000 %0247 A14 003170 002941 -01623 0375 0000 0625 0625 1000 0375 0000 %0248 A15 003278 003218 -02273 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003436 003378 -02718 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003619 003895 -03265 0375 0000 1000 0625 1000 0000 0000 %0251 A18 003462 001506 001896 0375 0125 0000 0625 0875 1000 0000 %0252 B10 003539 001631 000855 0375 0125 0125 0625 0875 0875 0000 %0253 B11 003446 001725 000341 0375 0125 0250 0625 0875 0750 0000 %0254 B12 003464 001795 -00281 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003746 001963 -01030 0375 0125 0500 0625 0875 0500 0000 %0256 B14 003774 002199 -01551 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003804 002524 -02027 0375 0125 0750 0625 0875 0250 0000 %0258 B16 004054 002756 -02516 0375 0125 0875 0625 0875 0125 0000 %0259 B17 004290 002856 -03003 0375 0125 1000 0625 0875 0000 0000 %0260 B18 003924 000635 002288 0375 0250 0000 0625 0750 1000 0000 %0261 C10 003996 000840 001356 0375 0250 0125 0625 0750 0875 0000 %0262 C11 004102 000887 000501 0375 0250 0250 0625 0750 0750 0000 %0263 C12 004053 000988 -00190 0375 0250 0375 0625 0750 0625 0000 %0264 C13 004293 001172 -00936 0375 0250 0500 0625 0750 0500 0000 %0265 C14 004303 001418 -01289 0375 0250 0625 0625 0750 0375 0000 %0266 C15 004534 001715 -01718 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004718 001911 -02251 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004888 002179 -02718 0375 0250 1000 0625 0750 0000 0000 %0269 C18 004635 -00446 003056 0375 0375 0000 0625 0625 1000 0000 %0270 D10 004623 -00222 002023 0375 0375 0125 0625 0625 0875 0000 %0271 D11 004546 -00079 000918 0375 0375 0250 0625 0625 0750 0000 %0272 D12 004525 000249 -00071 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004895 000392 -00622 0375 0375 0500 0625 0625 0500 0000 %0274 D14 004981 000694 -01149 0375 0375 0625 0625 0625 0375 0000 %0275 D15 005153 000956 -01434 0375 0375 0750 0625 0625 0250 0000 %0276 D16 005338 001172 -01961 0375 0375 0875 0625 0625 0125 0000 %0277 D17 005595 001411 -02404 0375 0375 1000 0625 0625 0000 0000 %0278 D18 005079 -01308 003300 0375 0500 0000 0625 0500 1000 0000 %0279 E10 004944 -01002 002267 0375 0500 0125 0625 0500 0875 0000 %0280 E11 004843 -00701 001278 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005023 -00512 000329 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005020 -00310 -00732 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005260 000024 -01230 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005279 000188 -01627 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005570 000510 -02048 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005725 000826 -02399 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005431 -02059 003579 0375 0625 0000 0625 0375 1000 0000 %0288 F10 005465 -01850 002589 0375 0625 0125 0625 0375 0875 0000 %0289 F11 005529 -01608 001620 0375 0625 0250 0625 0375 0750 0000 %0290 F12 005550 -01380 000785 0375 0625 0375 0625 0375 0625 0000 %0291 F13 005539 -00953 -00334 0375 0625 0500 0625 0375 0500 0000 %0292 F14 005492 -00757 -01104 0375 0625 0625 0625 0375 0375 0000 %0293 F15 005584 -00371 -01602 0375 0625 0750 0625 0375 0250 0000 %0294 F16 005832 -00058 -01984 0375 0625 0875 0625 0375 0125 0000 %0295 F17 005982 000135 -02336 0375 0625 1000 0625 0375 0000 0000 %0296 F18 005775 -02861 004413 0375 0750 0000 0625 0250 1000 0000 %0297 G10 005893 -02489 002889 0375 0750 0125 0625 0250 0875 0000 %0298 G11 005975 -02351 002128 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006013 -02109 001091 0375 0750 0375 0625 0250 0625 0000 %0300 G13 005976 -01700 000189 0375 0750 0500 0625 0250 0500 0000 %0301 G14 005892 -01370 -00688 0375 0750 0625 0625 0250 0375 0000 %0302 G15 005838 -01038 -01528 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006037 -00606 -01861 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006203 -00368 -02283 0375 0750 1000 0625 0250 0000 0000 %0305 G18 006209 -03790 004983 0375 0875 0000 0625 0125 1000 0000 %0306 H10 006350 -03341 003327 0375 0875 0125 0625 0125 0875 0000 %0307 H11 006384 -03065 002384 0375 0875 0250 0625 0125 0750 0000 %0308 H12 006456 -02915 001502 0375 0875 0375 0625 0125 0625 0000 %0309 H13 006386 -02317 000257 0375 0875 0500 0625 0125 0500 0000 %0310 H14 006392 -02116 -00376 0375 0875 0625 0625 0125 0375 0000 %0311 H15 006310 -01757 -01121 0375 0875 0750 0625 0125 0250 0000 %0312 H16 006286 -01368 -01938 0375 0875 0875 0625 0125 0125 0000 %0313 H17 006376 -00992 -02340 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006846 -04452 005270 0375 1000 0000 0625 0000 1000 0000 %0315 I10 006839 -03888 003530 0375 1000 0125 0625 0000 0875 0000 %0316 I11 006885 -03842 002673 0375 1000 0250 0625 0000 0750 0000 %0317 I12 006921 -03653 001782 0375 1000 0375 0625 0000 0625 0000 %0318 I13 006884 -03129 000717 0375 1000 0500 0625 0000 0500 0000 %0319 I14 006810 -02634 -00182 0375 1000 0625 0625 0000 0375 0000 %0320 I15 006735 -02361 -00891 0375 1000 0750 0625 0000 0250 0000 %0321 I16 006719 -02032 -01534 0375 1000 0875 0625 0000 0125 0000 %0322 I17 006776 -01807 -02263 0375 1000 1000 0625 0000 0000 0000 %0323 I18 003200 002907 001720 0500 0000 0000 0500 1000 1000 0000 %0324 J10 003196 003064 001192 0500 0000 0125 0500 1000 0875 0000 %0325 J11 003129 003308 000576 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003155 003315 000020 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003121 003514 -00608 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003259 003600 -01252 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003421 003758 -01880 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003549 003830 -02364 0500 0000 0875 0500 1000 0125 0000 %0331 J17 003844 003955 -02891 0500 0000 1000 0500 1000 0000 0000 %0332 J18 003658 002106 002250 0500 0125 0000 0500 0875 1000 0000 %0333 K10 003752 002274 001391 0500 0125 0125 0500 0875 0875 0000 %0334 K11 003779 002357 000714 0500 0125 0250 0500 0875 0750 0000 %0335 K12 003792 002414 000273 0500 0125 0375 0500 0875 0625 0000 %0336 K13 003745 002520 -00489 0500 0125 0500 0500 0875 0500 0000 %0337 K14 003849 002738 -01109 0500 0125 0625 0500 0875 0375 0000 %0338 K15 003968 002927 -01650 0500 0125 0750 0500 0875 0250 0000 %0339 K16 004180 003110 -02171 0500 0125 0875 0500 0875 0125 0000 %0340 K17 004483 003140 -02582 0500 0125 1000 0500 0875 0000 0000 %0341 K18 004129 001332 002600 0500 0250 0000 0500 0750 1000 0000 %0342 L10 004220 001426 001919 0500 0250 0125 0500 0750 0875 0000 %0343 L11 004391 001530 000924 0500 0250 0250 0500 0750 0750 0000 %0344 L12 004342 001677 000355 0500 0250 0375 0500 0750 0625 0000 %0345 L13 004308 001918 -00311 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004412 002009 -01029 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004619 002153 -01422 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004902 002329 -01884 0500 0250 0875 0500 0750 0125 0000 %0349 L17 005043 002549 -02379 0500 0250 1000 0500 0750 0000 0000 %0350 L18 004659 000639 003288 0500 0375 0000 0500 0625 1000 0000 %0351 M10 004661 000807 002235 0500 0375 0125 0500 0625 0875 0000 %0352 M11 004831 000837 001337 0500 0375 0250 0500 0625 0750 0000 %0353 M12 004924 000840 000431 0500 0375 0375 0500 0625 0625 0000 %0354 M13 004851 001014 -00147 0500 0375 0500 0500 0625 0500 0000 %0355 M14 005229 001203 -00828 0500 0375 0625 0500 0625 0375 0000 %0356 M15 005240 001337 -01219 0500 0375 0750 0500 0625 0250 0000 %0357 M16 005521 001604 -01684 0500 0375 0875 0500 0625 0125 0000 %0358 M17 005673 001837 -02126 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005313 -00486 004043 0500 0500 0000 0500 0500 1000 0000 %0360 N10 005358 -00336 002885 0500 0500 0125 0500 0500 0875 0000 %0361 N11 005396 -00108 001929 0500 0500 0250 0500 0500 0750 0000 %0362 N12 005439 -00080 000997 0500 0500 0375 0500 0500 0625 0000 %0363 N13 005444 000259 -00039 0500 0500 0500 0500 0500 0500 0000 %0364 N14 005850 000360 -00572 0500 0500 0625 0500 0500 0375 0000 %0365 N15 005920 000650 -01180 0500 0500 0750 0500 0500 0250 0000 %0366 N16 006102 000942 -01457 0500 0500 0875 0500 0500 0125 0000 %0367 N17 006264 001191 -01868 0500 0500 1000 0500 0500 0000 0000 %0368 N18 005713 -01324 004205 0500 0625 0000 0500 0375 1000 0000 %0369 O10 005632 -01122 003159 0500 0625 0125 0500 0375 0875 0000 %0370 O11 005703 -00950 002308 0500 0625 0250 0500 0375 0750 0000 %0371 O12 005896 -00859 001410 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006003 -00589 000276 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006093 -00450 -00610 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006207 -00076 -01111 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006332 000293 -01540 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006482 000518 -01893 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006068 -02268 004991 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006150 -01928 003550 0500 0750 0125 0500 0250 0875 0000 %0379 P11 006250 -01698 002561 0500 0750 0250 0500 0250 0750 0000 %0380 P12 006330 -01519 001625 0500 0750 0375 0500 0250 0625 0000 %0381 P13 006537 -01423 000868 0500 0750 0500 0500 0250 0500 0000 %0382 P14 006475 -00984 -00248 0500 0750 0625 0500 0250 0375 0000 %0383 P15 006422 -00639 -01047 0500 0750 0750 0500 0250 0250 0000 %0384 P16 006560 -00237 -01432 0500 0750 0875 0500 0250 0125 0000 %0385 P17 006701 -00020 -01852 0500 0750 1000 0500 0250 0000 0000 %0386 P18 006497 -03216 005415 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 006689 -02724 003796 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 006806 -02550 002888 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 006838 -02367 001980 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 006969 -02082 001042 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 006940 -01760 000181 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 006893 -01422 -00612 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 006899 -01045 -01515 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 006922 -00541 -01830 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 007010 -03980 005598 0500 1000 0000 0500 0000 1000 0000 %0396 R10 007145 -03440 003887 0500 1000 0125 0500 0000 0875 0000 %0397 R11 007205 -03266 003095 0500 1000 0250 0500 0000 0750 0000 %0398 R12 007364 -03216 002365 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007458 -03016 001565 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007440 -02347 000455 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007296 -02029 -00272 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007300 -01688 -00960 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007329 -01426 -01712 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003559 003605 002091 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003569 003739 001566 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003616 003794 001076 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003580 003933 000449 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003578 004086 000023 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003537 004244 -00601 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003630 004179 -01343 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003742 004485 -01953 0625 0000 0875 0375 1000 0125 0000 %0412 S17 003999 004400 -02513 0625 0000 1000 0375 1000 0000 0000 %0413 S18 004016 002788 002832 0625 0125 0000 0375 0875 1000 0000 %0414 T10 004124 002953 001726 0625 0125 0125 0375 0875 0875 0000 %0415 T11 004152 003042 001221 0625 0125 0250 0375 0875 0750 0000 %0416 T12 004129 003103 000685 0625 0125 0375 0375 0875 0625 0000 %0417 T13 004142 003348 000073 0625 0125 0500 0375 0875 0500 0000 %0418 T14 004158 003436 -00480 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004232 003467 -01286 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004404 003568 -01691 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004673 003571 -02137 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004514 002043 003273 0625 0250 0000 0375 0750 1000 0000 %0423 U10 004570 002185 002212 0625 0250 0125 0375 0750 0875 0000 %0424 U11 004692 002304 001183 0625 0250 0250 0375 0750 0750 0000 %0425 U12 004651 002352 000699 0625 0250 0375 0375 0750 0625 0000 %0426 U13 004684 002481 000173 0625 0250 0500 0375 0750 0500 0000 %0427 U14 004764 002550 -00333 0625 0250 0625 0375 0750 0375 0000 %0428 U15 004871 002592 -01004 0625 0250 0750 0375 0750 0250 0000 %0429 U16 004972 002836 -01554 0625 0250 0875 0375 0750 0125 0000 %0430 U17 005232 002901 -01918 0625 0250 1000 0375 0750 0000 0000 %0431 U18 004975 001305 003705 0625 0375 0000 0375 0625 1000 0000 %0432 V10 005060 001321 002667 0625 0375 0125 0375 0625 0875 0000 %0433 V11 005172 001422 001771 0625 0375 0250 0375 0625 0750 0000 %0434 V12 005303 001544 000898 0625 0375 0375 0375 0625 0625 0000 %0435 V13 005297 001633 000377 0625 0375 0500 0375 0625 0500 0000 %0436 V14 005349 001759 -00174 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005475 001854 -00927 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005612 002078 -01394 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005784 002191 -01801 0625 0375 1000 0375 0625 0000 0000 %0440 V18 005436 000471 004532 0625 0500 0000 0375 0500 1000 0000 %0441 W10 005516 000628 003033 0625 0500 0125 0375 0500 0875 0000 %0442 W11 005644 000652 002309 0625 0500 0250 0375 0500 0750 0000 %0443 W12 005787 000726 001444 0625 0500 0375 0375 0500 0625 0000 %0444 W13 005855 000919 000394 0625 0500 0500 0375 0500 0500 0000 %0445 W14 005862 000952 -00209 0625 0500 0625 0375 0500 0375 0000 %0446 W15 006128 001065 -00823 0625 0500 0750 0375 0500 0250 0000 %0447 W16 006253 001286 -01161 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006445 001497 -01560 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006224 -00748 005032 0625 0625 0000 0375 0375 1000 0000 %0450 X10 006217 -00533 003850 0625 0625 0125 0375 0375 0875 0000 %0451 X11 006230 -00363 002852 0625 0625 0250 0375 0375 0750 0000 %0452 X12 006398 -00222 002042 0625 0625 0375 0375 0375 0625 0000 %0453 X13 006420 -00001 000793 0625 0625 0500 0375 0375 0500 0000 %0454 X14 006521 000192 000014 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006700 000288 -00421 0625 0625 0750 0375 0375 0250 0000 %0456 X16 006892 000612 -01063 0625 0625 0875 0375 0375 0125 0000 %0457 X17 007112 000821 -01420 0625 0625 1000 0375 0375 0000 0000 %0458 X18 006584 -01584 005492 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 006548 -01366 004065 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 006670 -01196 003263 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 006715 -00996 002235 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 006816 -00794 001321 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 006945 -00574 000435 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 006891 -00372 -00611 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007095 000000 -01059 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007321 000261 -01385 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 006883 -02442 005747 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 007089 -02127 004148 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007174 -01919 003442 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007188 -01782 002539 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007314 -01558 001497 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 007448 -01407 000797 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 007417 -00998 -00147 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 007387 -00702 -00985 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007533 -00357 -01320 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 007448 -03350 006245 0625 1000 0000 0375 0000 1000 0000 %0477 a10 007538 -02697 004204 0625 1000 0125 0375 0000 0875 0000 %0478 a11 007677 -02605 003613 0625 1000 0250 0375 0000 0750 0000 %0479 a12 007738 -02635 002853 0625 1000 0375 0375 0000 0625 0000 %0480 a13 007843 -02400 001967 0625 1000 0500 0375 0000 0500 0000 %0481 a14 007998 -02128 001102 0625 1000 0625 0375 0000 0375 0000 %0482 a15 007935 -01563 000029 0625 1000 0750 0375 0000 0250 0000 %0483 a16 007829 -01283 -00467 0625 1000 0875 0375 0000 0125 0000 %0484 a17 007898 -01071 -01380 0625 1000 1000 0375 0000 0000 0000 %0485 a18 003834 004626 002641 0750 0000 0000 0250 1000 1000 0000 %0486 A19 003817 004786 002180 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003743 005014 001693 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003700 005029 001147 0750 0000 0375 0250 1000 0625 0000 %0489 A22 003632 005033 000565 0750 0000 0500 0250 1000 0500 0000 %0490 A23 003562 005028 -00028 0750 0000 0625 0250 1000 0375 0000 %0491 A24 003460 005095 -00703 0750 0000 0750 0250 1000 0250 0000 %0492 A25 003603 005102 -01491 0750 0000 0875 0250 1000 0125 0000 %0493 A26 003910 005009 -02117 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004363 003712 003196 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004485 003735 002258 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004440 003870 001694 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004403 004096 001050 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004318 004103 000615 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004230 004139 000066 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004121 004145 -00550 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004279 004144 -01326 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004637 003897 -01806 0750 0125 1000 0250 0875 0000 0000 %0503 B27 004870 002914 003909 0750 0250 0000 0250 0750 1000 0000 %0504 C19 004995 002812 002636 0750 0250 0125 0250 0750 0875 0000 %0505 C20 005093 002988 001873 0750 0250 0250 0250 0750 0750 0000 %0506 C21 005048 003096 001180 0750 0250 0375 0250 0750 0625 0000 %0507 C22 004939 003110 000684 0750 0250 0500 0250 0750 0500 0000 %0508 C23 004848 003266 000120 0750 0250 0625 0250 0750 0375 0000 %0509 C24 004786 003343 -00319 0750 0250 0750 0250 0750 0250 0000 %0510 C25 004923 003469 -01322 0750 0250 0875 0250 0750 0125 0000 %0511 C26 005186 003224 -01636 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005336 002068 004368 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005472 001928 002997 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005575 002020 002298 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005685 002163 001456 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005632 002288 000860 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005542 002419 000218 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005462 002539 -00298 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005653 002659 -01130 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005811 002501 -01478 0750 0375 1000 0250 0625 0000 0000 %0521 D27 005701 001423 004960 0750 0500 0000 0250 0500 1000 0000 %0522 E19 005839 001313 003525 0750 0500 0125 0250 0500 0875 0000 %0523 E20 005938 001386 002930 0750 0500 0250 0250 0500 0750 0000 %0524 E21 006118 001385 001996 0750 0500 0375 0250 0500 0625 0000 %0525 E22 006178 001487 001110 0750 0500 0500 0250 0500 0500 0000 %0526 E23 006101 001608 000499 0750 0500 0625 0250 0500 0375 0000 %0527 E24 005935 001901 -00241 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006195 001858 -01019 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006353 001945 -01340 0750 0500 1000 0250 0500 0000 0000 %0530 E27 006265 000329 005454 0750 0625 0000 0250 0375 1000 0000 %0531 F19 006384 000415 004065 0750 0625 0125 0250 0375 0875 0000 %0532 F20 006400 000540 003323 0750 0625 0250 0250 0375 0750 0000 %0533 F21 006527 000607 002495 0750 0625 0375 0250 0375 0625 0000 %0534 F22 006644 000694 001650 0750 0625 0500 0250 0375 0500 0000 %0535 F23 006664 000832 000561 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006582 001055 -00245 0750 0625 0750 0250 0375 0250 0000 %0537 F25 006841 001125 -00839 0750 0625 0875 0250 0375 0125 0000 %0538 F26 006980 001225 -01280 0750 0625 1000 0250 0375 0000 0000 %0539 F27 007010 -00823 006178 0750 0750 0000 0250 0250 1000 0000 %0540 G19 007055 -00648 004787 0750 0750 0125 0250 0250 0875 0000 %0541 G20 007058 -00536 003986 0750 0750 0250 0250 0250 0750 0000 %0542 G21 007118 -00318 003083 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007190 -00281 002346 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007269 -00169 000908 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007299 000154 -00052 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007531 000298 -00715 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007753 000547 -01128 0750 0750 1000 0250 0250 0000 0000 %0548 G27 007383 -01748 006553 0750 0875 0000 0250 0125 1000 0000 %0549 H19 007446 -01631 004992 0750 0875 0125 0250 0125 0875 0000 %0550 H20 007447 -01440 004398 0750 0875 0250 0250 0125 0750 0000 %0551 H21 007510 -01381 003449 0750 0875 0375 0250 0125 0625 0000 %0552 H22 007545 -01160 002489 0750 0875 0500 0250 0125 0500 0000 %0553 H23 007662 -00962 001491 0750 0875 0625 0250 0125 0375 0000 %0554 H24 007776 -00811 000564 0750 0875 0750 0250 0125 0250 0000 %0555 H25 007813 -00604 -00655 0750 0875 0875 0250 0125 0125 0000 %0556 H26 007831 -00148 -01081 0750 0875 1000 0250 0125 0000 0000 %0557 H27 007815 -02711 006856 0750 1000 0000 0250 0000 1000 0000 %0558 I19 007879 -02364 005110 0750 1000 0125 0250 0000 0875 0000 %0559 I20 007967 -02189 004465 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008057 -02156 003671 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008129 -01963 002767 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008246 -01762 001906 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008271 -01554 000894 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008178 -01189 -00167 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008165 -00783 -01082 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004256 005563 003565 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004207 005554 002698 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004221 005677 002157 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004220 005762 001616 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004221 005705 000984 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004158 005779 000518 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004105 005948 -00188 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004121 005963 -00948 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004244 005779 -01735 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004828 004013 003546 0875 0125 0000 0125 0875 1000 0000 %0576 K19 004877 004189 002581 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004852 004395 001932 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004858 004424 001379 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004867 004491 000934 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004817 004522 000486 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004798 004631 -00067 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004808 004635 -00798 0875 0125 0875 0125 0875 0125 0000 %0583 K26 004953 004566 -01490 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005251 003345 004230 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005354 003356 002927 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005421 003581 002057 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005383 003727 001464 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005404 003737 001017 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005370 003777 000533 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005319 003987 -00107 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005328 003957 -00603 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005421 003886 -01365 0875 0250 1000 0125 0750 0000 0000 %0593 L27 005671 002703 004381 0875 0375 0000 0125 0625 1000 0000 %0594 M19 005815 002640 003301 0875 0375 0125 0125 0625 0875 0000 %0595 M20 005891 002835 002571 0875 0375 0250 0125 0625 0750 0000 %0596 M21 006031 002924 001704 0875 0375 0375 0125 0625 0625 0000 %0597 M22 006039 002881 001160 0875 0375 0500 0125 0625 0500 0000 %0598 M23 005959 003049 000535 0875 0375 0625 0125 0625 0375 0000 %0599 M24 005994 003173 000024 0875 0375 0750 0125 0625 0250 0000 %0600 M25 006039 003212 -00477 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006050 003126 -01193 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006178 001950 005324 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006260 001929 003723 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006392 001991 003151 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006526 002062 002185 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006628 002128 001332 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006531 002331 000652 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006505 002402 000177 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006537 002478 -00334 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006642 002498 -01133 0875 0500 1000 0125 0500 0000 0000 %0611 N27 006658 001040 005581 0875 0625 0000 0125 0375 1000 0000 %0612 O19 006773 001063 004278 0875 0625 0125 0125 0375 0875 0000 %0613 O20 006825 001249 003628 0875 0625 0250 0125 0375 0750 0000 %0614 O21 006934 001292 002658 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007128 001276 001868 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007124 001489 000851 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007080 001591 000454 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007087 001821 -00324 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007191 001731 -00991 0875 0625 1000 0125 0375 0000 0000 %0620 O27 007173 000100 006103 0875 0750 0000 0125 0250 1000 0000 %0621 P19 007285 000215 004815 0875 0750 0125 0125 0250 0875 0000 %0622 P20 007324 000399 004167 0875 0750 0250 0125 0250 0750 0000 %0623 P21 007427 000513 003082 0875 0750 0375 0125 0250 0625 0000 %0624 P22 007608 000544 002430 0875 0750 0500 0125 0250 0500 0000 %0625 P23 007600 000672 001416 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007715 000722 000467 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007757 001110 -00270 0875 0750 0875 0125 0250 0125 0000 %0628 P26 007831 001096 -00875 0875 0750 1000 0125 0250 0000 0000 %0629 P27 007964 -01086 006894 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 007991 -00851 005437 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008070 -00787 004761 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008167 -00607 003823 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008237 -00444 002912 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008309 -00206 001880 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008380 -00135 000890 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008355 000060 -00005 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008275 000323 -00718 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 008253 -01979 006905 0875 1000 0000 0125 0000 1000 0000 %0639 R19 008302 -01775 005675 0875 1000 0125 0125 0000 0875 0000 %0640 R20 008373 -01644 005023 0875 1000 0250 0125 0000 0750 0000 %0641 R21 008505 -01548 004126 0875 1000 0375 0125 0000 0625 0000 %0642 R22 008572 -01387 003165 0875 1000 0500 0125 0000 0500 0000 %0643 R23 008603 -01180 002269 0875 1000 0625 0125 0000 0375 0000 %0644 R24 008634 -01003 001262 0875 1000 0750 0125 0000 0250 0000 %0645 R25 008836 -00985 000478 0875 1000 0875 0125 0000 0125 0000 %0646 R26 008814 -00494 -00794 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004646 006332 003809 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004701 006314 003234 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004708 006288 002533 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004712 006307 001967 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004704 006362 001354 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004692 006395 000865 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004654 006443 000280 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004634 006456 -00411 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004594 006611 -01239 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005213 005011 004093 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005253 005295 003204 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005313 005408 002544 1000 0125 0250 0000 0875 0750 0000 %0659 T21 005279 005445 001872 1000 0125 0375 0000 0875 0625 0000 %0660 T22 005248 005493 001424 1000 0125 0500 0000 0875 0500 0000 %0661 T23 005237 005498 000927 1000 0125 0625 0000 0875 0375 0000 %0662 T24 005223 005570 000374 1000 0125 0750 0000 0875 0250 0000 %0663 T25 005257 005575 -00211 1000 0125 0875 0000 0875 0125 0000 %0664 T26 005229 005794 -01028 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005568 004287 004517 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005802 004607 003781 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005924 004675 002723 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005954 004716 002079 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005910 004779 001517 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005892 004795 001001 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005845 004808 000408 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005927 004706 -00066 1000 0250 0875 0000 0750 0125 0000 %0673 U26 005894 004690 -00765 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006044 003566 005112 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006306 003673 004292 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006447 003726 003312 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006520 003842 002181 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006532 003941 001786 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006554 003963 001260 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006501 004010 000685 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006510 004141 -00063 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006546 004202 -00739 1000 0375 1000 0000 0625 0000 0000 %0683 V27 006612 002816 005654 1000 0500 0000 0000 0500 1000 0000 %0684 W19 006769 002903 004575 1000 0500 0125 0000 0500 0875 0000 %0685 W20 006829 003002 003638 1000 0500 0250 0000 0500 0750 0000 %0686 W21 007034 002866 002649 1000 0500 0375 0000 0500 0625 0000 %0687 W22 007136 002942 001780 1000 0500 0500 0000 0500 0500 0000 %0688 W23 007185 002989 001384 1000 0500 0625 0000 0500 0375 0000 %0689 W24 007154 003205 000659 1000 0500 0750 0000 0500 0250 0000 %0690 W25 007231 003265 000159 1000 0500 0875 0000 0500 0125 0000 %0691 W26 007255 003445 -00597 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007077 001994 005945 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007194 002135 005024 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007248 002232 003915 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007401 002164 003065 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007577 002140 002241 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007675 002234 001433 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007705 002361 000787 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007784 002502 000369 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007786 002649 -00325 1000 0625 1000 0000 0375 0000 0000 %0701 X27 007485 001112 006318 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 007622 001323 005400 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 007711 001396 004415 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 007826 001371 003634 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008041 001293 002790 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008227 001230 002075 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008142 001545 001017 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008136 001584 000509 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008093 001727 -00175 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008100 -00072 006981 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008149 000016 005771 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008257 000208 004968 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008378 000360 004154 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008447 000535 003188 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008586 000550 002458 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 008619 000769 001323 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 008644 000819 000603 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 008622 000984 -00665 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 008743 -01191 007267 1000 1000 0000 0000 0000 1000 0000 %0720 a19 008989 -01112 006722 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009074 -00957 006017 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009104 -00773 004826 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009168 -00609 003868 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009172 -00397 003019 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009154 -00146 001995 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009300 -00186 000954 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009626 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009658 -00003 000000 1000 1000 1000 0000 0000 0000 0000 %0729 b01 008891 -00452 -00829 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008400 -00701 -01023 0750 1000 1000 0250 0000 0000 0000 %0731 b03 007848 -01077 -01348 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007308 -01401 -01739 0500 1000 1000 0500 0000 0000 0000 %0733 b05 006800 -01734 -02332 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006232 -02271 -02886 0250 1000 1000 0750 0000 0000 0000 %0735 b07 005749 -02636 -03157 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005309 -03045 -04060 0000 1000 1000 1000 0000 0000 0000 %0737 b09 008717 000776 000443 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008426 000045 000023 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008050 -00506 -00647 0750 0875 0875 0250 0125 0125 0000 %0740 c03 007276 -00683 -00980 0625 0875 0875 0375 0125 0125 0000 %0741 c04 006832 -01047 -01465 0500 0875 0875 0500 0125 0125 0000 %0742 c05 006317 -01387 -01933 0375 0875 0875 0625 0125 0125 0000 %0743 c06 005698 -01754 -02528 0250 0875 0875 0750 0125 0125 0000 %0744 c07 005265 -02161 -02842 0125 0875 0875 0875 0125 0125 0000 %0745 c08 004774 -02232 -03212 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008316 001430 000747 1000 0750 0750 0000 0250 0250 0000 %0747 d01 007922 000682 000270 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007540 000140 -00076 0750 0750 0750 0250 0250 0250 0000 %0749 d03 006912 -00349 -00575 0625 0750 0750 0375 0250 0250 0000 %0750 d04 006449 -00593 -00974 0500 0750 0750 0500 0250 0250 0000 %0751 d05 005950 -00961 -01471 0375 0750 0750 0625 0250 0250 0000 %0752 d06 005383 -01380 -01996 0250 0750 0750 0750 0250 0250 0000 %0753 d07 004914 -01811 -02322 0125 0750 0750 0875 0250 0250 0000 %0754 d08 004496 -01838 -02819 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007784 002137 001292 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007307 001437 000655 0875 0625 0625 0125 0375 0375 0000 %0757 e02 006856 000810 000356 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006433 000199 000000 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006087 -00404 -00587 0500 0625 0625 0500 0375 0375 0000 %0760 e05 005596 -00711 -01055 0375 0625 0625 0625 0375 0375 0000 %0761 e06 004989 -01011 -01711 0250 0625 0625 0750 0375 0375 0000 %0762 e07 004550 -01287 -01947 0125 0625 0625 0875 0375 0375 0000 %0763 e08 004111 -01538 -02412 0000 0625 0625 1000 0375 0375 0000 %0764 e09 007170 002920 001756 1000 0500 0500 0000 0500 0500 0000 %0765 f01 006694 002021 001261 0875 0500 0500 0125 0500 0500 0000 %0766 f02 006255 001455 000970 0750 0500 0500 0250 0500 0500 0000 %0767 f03 005732 000915 000465 0625 0500 0500 0375 0500 0500 0000 %0768 f04 005358 000244 -00010 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005076 -00299 -00708 0375 0500 0500 0625 0500 0500 0000 %0770 f06 004631 -00675 -01063 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004121 -00935 -01678 0125 0500 0500 0875 0500 0500 0000 %0772 f08 003730 -01213 -01918 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006493 003929 002152 1000 0375 0375 0000 0625 0625 0000 %0774 g01 006004 002891 001686 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005606 002230 001438 0750 0375 0375 0250 0625 0625 0000 %0776 g03 005128 001660 000995 0625 0375 0375 0375 0625 0625 0000 %0777 g04 004765 000876 000477 0500 0375 0375 0500 0625 0625 0000 %0778 g05 004487 000250 -00030 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004374 -00315 -00694 0250 0375 0375 0750 0625 0625 0000 %0780 g07 003664 -00696 -01198 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003159 -00774 -01321 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005971 004583 002858 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005316 003571 002100 0875 0250 0250 0125 0750 0750 0000 %0784 h02 004906 002994 001889 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004477 002312 001337 0625 0250 0250 0375 0750 0750 0000 %0786 h04 004161 001596 000966 0500 0250 0250 0500 0750 0750 0000 %0787 h05 003936 000918 000512 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003604 000217 -00068 0250 0250 0250 0750 0750 0750 0000 %0789 h07 003499 -00371 -00737 0125 0250 0250 0875 0750 0750 0000 %0790 h08 003252 -00799 -00881 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005248 005231 003399 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004822 004068 002728 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004371 003622 002357 0750 0125 0125 0250 0875 0875 0000 %0794 i03 003910 002961 001866 0625 0125 0125 0375 0875 0875 0000 %0795 i04 003573 002312 001460 0500 0125 0125 0500 0875 0875 0000 %0796 i05 003374 001679 000905 0375 0125 0125 0625 0875 0875 0000 %0797 i06 003206 000957 000485 0250 0125 0125 0750 0875 0875 0000 %0798 i07 002700 000218 -00034 0125 0125 0125 0875 0875 0875 0000 %0799 i08 002675 -00150 -00437 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004572 006353 004009 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004114 005499 003729 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003650 004564 002787 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003383 003683 002322 0625 0000 0000 0375 1000 1000 0000 %0804 j04 003046 002897 001801 0500 0000 0000 0500 1000 1000 0000 %0805 j05 002882 002238 001386 0375 0000 0000 0625 1000 1000 0000 %0806 j06 002553 001738 000911 0250 0000 0000 0750 1000 1000 0000 %0807 j07 002303 000982 000691 0125 0000 0000 0875 1000 1000 0000 %0808 j08 002320 -00006 -00019 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009693 000003 -00011 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008584 000243 -00581 0875 0875 1000 0125 0125 0000 0000 %0811 b11 008092 000487 -00994 0750 0750 1000 0250 0250 0000 0000 %0812 b12 007185 000726 -01345 0625 0625 1000 0375 0375 0000 0000 %0813 b13 006331 001105 -01841 0500 0500 1000 0500 0500 0000 0000 %0814 b14 005591 001354 -02377 0375 0375 1000 0625 0625 0000 0000 %0815 b15 004887 001577 -02957 0250 0250 1000 0750 0750 0000 0000 %0816 b16 004008 002118 -03564 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003362 002362 -04060 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009407 -00080 000627 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008588 000047 000001 0875 0875 0875 0125 0125 0125 0000 %0820 c11 007914 000256 -00596 0750 0750 0875 0250 0250 0125 0000 %0821 c12 006915 000562 -01032 0625 0625 0875 0375 0375 0125 0000 %0822 c13 006061 000940 -01443 0500 0500 0875 0500 0500 0125 0000 %0823 c14 005255 001213 -01987 0375 0375 0875 0625 0625 0125 0000 %0824 c15 004465 001556 -02540 0250 0250 0875 0750 0750 0125 0000 %0825 c16 003702 002060 -03076 0125 0125 0875 0875 0875 0125 0000 %0826 c17 003117 002164 -03446 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009267 -00067 001530 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008610 -00083 000694 0875 0875 0750 0125 0125 0250 0000 %0829 d11 007679 000111 -00053 0750 0750 0750 0250 0250 0250 0000 %0830 d12 006817 000254 -00376 0625 0625 0750 0375 0375 0250 0000 %0831 d13 005918 000643 -01109 0500 0500 0750 0500 0500 0250 0000 %0832 d14 005155 000956 -01420 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004301 001382 -02044 0250 0250 0750 0750 0750 0250 0000 %0834 d16 003594 001684 -02601 0125 0125 0750 0875 0875 0250 0000 %0835 d17 002892 001929 -03004 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009236 -00352 002639 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008497 -00165 001567 0875 0875 0625 0125 0125 0375 0000 %0838 e11 007540 -00090 000656 0750 0750 0625 0250 0250 0375 0000 %0839 e12 006539 000177 -00012 0625 0625 0625 0375 0375 0375 0000 %0840 e13 005831 000365 -00546 0500 0500 0625 0500 0500 0375 0000 %0841 e14 004973 000720 -01121 0375 0375 0625 0625 0625 0375 0000 %0842 e15 004227 000946 -01432 0250 0250 0625 0750 0750 0375 0000 %0843 e16 003556 001144 -01999 0125 0125 0625 0875 0875 0375 0000 %0844 e17 002591 001584 -02626 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009221 -00605 003583 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008353 -00452 002718 0875 0875 0500 0125 0125 0500 0000 %0847 f11 007380 -00254 002035 0750 0750 0500 0250 0250 0500 0000 %0848 f12 006418 -00012 000773 0625 0625 0500 0375 0375 0500 0000 %0849 f13 005369 000251 -00015 0500 0500 0500 0500 0500 0500 0000 %0850 f14 004889 000390 -00602 0375 0375 0500 0625 0625 0500 0000 %0851 f15 004256 000632 -01158 0250 0250 0500 0750 0750 0500 0000 %0852 f16 003445 000926 -01507 0125 0125 0500 0875 0875 0500 0000 %0853 f17 002503 001292 -02154 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009136 -00793 004804 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008275 -00636 003662 0875 0875 0375 0125 0125 0625 0000 %0856 g11 007245 -00323 002809 0750 0750 0375 0250 0250 0625 0000 %0857 g12 006361 -00249 002106 0625 0625 0375 0375 0375 0625 0000 %0858 g13 005304 -00054 001023 0500 0500 0375 0500 0500 0625 0000 %0859 g14 004437 000263 -00011 0375 0375 0375 0625 0625 0625 0000 %0860 g15 004083 000422 -00610 0250 0250 0375 0750 0750 0625 0000 %0861 g16 003378 000819 -01165 0125 0125 0375 0875 0875 0625 0000 %0862 g17 002498 000936 -01529 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009106 -00984 005974 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008111 -00810 004725 0875 0875 0250 0125 0125 0750 0000 %0865 h11 007063 -00555 003831 0750 0750 0250 0250 0250 0750 0000 %0866 h12 006108 -00343 002847 0625 0625 0250 0375 0375 0750 0000 %0867 h13 005223 -00091 001969 0500 0500 0250 0500 0500 0750 0000 %0868 h14 004443 -00068 000997 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003620 000228 -00049 0250 0250 0250 0750 0750 0750 0000 %0870 h16 003171 000675 -00841 0125 0125 0250 0875 0875 0750 0000 %0871 h17 002497 000946 -01305 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009047 -01149 006775 1000 1000 0125 0000 0000 0875 0000 %0873 i10 008041 -00913 005449 0875 0875 0125 0125 0125 0875 0000 %0874 i11 007015 -00684 004598 0750 0750 0125 0250 0250 0875 0000 %0875 i12 006069 -00526 003832 0625 0625 0125 0375 0375 0875 0000 %0876 i13 005164 -00313 002887 0500 0500 0125 0500 0500 0875 0000 %0877 i14 004537 -00211 002092 0375 0375 0125 0625 0625 0875 0000 %0878 i15 003754 -00047 001005 0250 0250 0125 0750 0750 0875 0000 %0879 i16 002686 000234 -00022 0125 0125 0125 0875 0875 0875 0000 %0880 i17 002513 000706 -01055 0000 0000 0125 1000 1000 0875 0000 %0881 i18 008733 -01213 007296 1000 1000 0000 0000 0000 1000 0000 %0882 j10 007935 -01109 006743 0875 0875 0000 0125 0125 1000 0000 %0883 j11 006911 -00841 005961 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006071 -00727 004922 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005102 -00444 003890 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004550 -00420 003102 0375 0375 0000 0625 0625 1000 0000 %0887 j15 003797 -00327 002216 0250 0250 0000 0750 0750 1000 0000 %0888 j16 002897 -00112 001086 0125 0125 0000 0875 0875 1000 0000 %0889 j17 002355 -00013 -00002 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009681 000000 000010 1000 1000 1000 0000 0000 0000 0000 %0891 b19 008769 000981 -00583 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008310 001620 -00221 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007913 002529 -00359 1000 0625 1000 0000 0375 0000 0000 %0894 b22 007298 003461 -00638 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006538 004292 -00787 1000 0375 1000 0000 0625 0000 0000 %0896 b24 005891 004795 -00781 1000 0250 1000 0000 0750 0000 0000 %0897 b25 005277 005774 -00976 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004617 006634 -01184 1000 0000 1000 0000 1000 0000 0000 %0899 b27 008986 -00861 000328 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008540 000047 000010 0875 0875 0875 0125 0125 0125 0000 %0901 c20 007982 001060 -00306 0875 0750 0875 0125 0250 0125 0000 %0902 c21 007367 001742 -00344 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006726 002398 -00335 0875 0500 0875 0125 0500 0125 0000 %0904 c23 006086 003215 -00484 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005339 004003 -00548 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004792 004618 -00700 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004150 005817 -00888 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008449 -01394 000560 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008020 -00715 000361 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007622 000145 -00073 0750 0750 0750 0250 0250 0250 0000 %0911 d21 006913 001020 -00302 0750 0625 0750 0250 0375 0250 0000 %0912 d22 006200 001848 -00288 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005541 002549 -00316 0750 0375 0750 0250 0625 0250 0000 %0914 d24 004795 003322 -00271 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004157 004018 -00472 0750 0125 0750 0250 0875 0250 0000 %0916 d26 003467 004916 -00610 0750 0000 0750 0250 1000 0250 0000 %0917 d27 007979 -02184 001260 0625 1000 0625 0375 0000 0375 0000 %0918 e19 007368 -01475 000949 0625 0875 0625 0375 0125 0375 0000 %0919 e20 006882 -00627 000532 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006392 000195 000042 0625 0625 0625 0375 0375 0375 0000 %0921 e22 005631 000982 -00179 0625 0500 0625 0375 0500 0375 0000 %0922 e23 004960 001836 -00107 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004268 002577 -00200 0625 0250 0625 0375 0750 0375 0000 %0924 e25 003706 003324 -00313 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003120 003962 -00428 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007441 -03096 001675 0500 1000 0500 0500 0000 0500 0000 %0927 f19 006863 -02186 001241 0500 0875 0500 0500 0125 0500 0000 %0928 f20 006447 -01480 001008 0500 0750 0500 0500 0250 0500 0000 %0929 f21 005842 -00652 000397 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005250 000245 000053 0500 0500 0500 0500 0500 0500 0000 %0931 f23 004499 001024 -00067 0500 0375 0500 0500 0625 0500 0000 %0932 f24 003793 001952 -00218 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003245 002504 -00385 0500 0125 0500 0500 0875 0500 0000 %0934 f26 002707 003211 -00470 0500 0000 0500 0500 1000 0500 0000 %0935 f27 006910 -03763 001882 0375 1000 0375 0625 0000 0625 0000 %0936 g19 006371 -03054 001546 0375 0875 0375 0625 0125 0625 0000 %0937 g20 005922 -02217 001255 0375 0750 0375 0625 0250 0625 0000 %0938 g21 005427 -01495 000961 0375 0625 0375 0625 0375 0625 0000 %0939 g22 004848 -00593 000470 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004188 000264 000045 0375 0375 0375 0625 0625 0625 0000 %0941 g24 003622 001017 -00055 0375 0250 0375 0625 0750 0625 0000 %0942 g25 002948 001810 -00154 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002547 002470 -00272 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006537 -04524 002252 0250 1000 0250 0750 0000 0750 0000 %0945 h19 005947 -03743 001768 0250 0875 0250 0750 0125 0750 0000 %0946 h20 005504 -03058 001376 0250 0750 0250 0750 0250 0750 0000 %0947 h21 004908 -02376 000983 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004463 -01458 000804 0250 0500 0250 0750 0500 0750 0000 %0949 h23 003992 -00630 000464 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003302 000237 -00033 0250 0250 0250 0750 0750 0750 0000 %0951 h25 002848 001100 -00249 0250 0125 0250 0750 0875 0750 0000 %0952 h26 002256 001844 -00277 0250 0000 0250 0750 1000 0750 0000 %0953 h27 006042 -05338 002537 0125 1000 0125 0875 0000 0875 0000 %0954 i19 005506 -04489 002024 0125 0875 0125 0875 0125 0875 0000 %0955 i20 005110 -03832 001797 0125 0750 0125 0875 0250 0875 0000 %0956 i21 004578 -02970 001374 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004109 -02239 000999 0125 0500 0125 0875 0500 0875 0000 %0958 i23 003575 -01503 000659 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003326 -00658 000508 0125 0250 0125 0875 0750 0875 0000 %0960 i25 002417 000224 000013 0125 0125 0125 0875 0875 0875 0000 %0961 i26 002156 000978 -00088 0125 0000 0125 0875 1000 0875 0000 %0962 i27 005654 -05616 003077 0000 1000 0000 1000 0000 1000 0000 %0963 j19 005250 -04853 002721 0000 0875 0000 1000 0125 1000 0000 %0964 j20 004819 -03737 002096 0000 0750 0000 1000 0250 1000 0000 %0965 j21 004100 -03793 001407 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004007 -03778 001496 0000 0500 0000 1000 0500 1000 0000 %0967 j23 003467 -02403 000690 0000 0375 0000 1000 0625 1000 0000 %0968 j24 002913 -00986 000579 0000 0250 0000 1000 0750 1000 0000 %0969 j25 002464 -00364 000471 0000 0125 0000 1000 0875 1000 0000 %0970 j26 002065 000020 000022 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa1100 [ %BEG GE62_22.TXT, Separation cmyn6*, cf1=0.95, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004646 006332 003809 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z008743 -01191 007267 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z005641 -05578 003193 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005360 -03104 -04044 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003438 002395 -04063 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004594 006611 -01239 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z002192 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009626 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004572 006353 004009 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 008733 -01213 007296 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 005654 -05616 003077 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005309 -03045 -04060 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003362 002362 -04060 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004617 006634 -01184 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 002247 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009677 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def %END GG92_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 (GG920-7A: ) show (Messung: ) showde (Measurement: ) showen xcolor 0 eq { FileData0Na show} if xcolor 1 eq { FileData1Na show} if xcolor 2 eq { FileData2Na show} if xcolor 3 eq { FileData3Na show} if xcolor 4 eq { FileData4Na show} if xcolor 5 eq { FileData5Na show} if xcolor 6 eq { FileData6Na show} if xcolor 7 eq { FileData7Na show} if lanind 0 eq {FileDatade show} {FileDataen show} ifelse %(, Page ) showen (, Seite ) showde %xcolor 1 add cvishow (/8) show 20 setlinewidth 0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 0 1 15 {/xchartl exch def %xchartl=0,11 %special space for 'xm03'PROZ0.COM 2x before/after xchartl xchartl 0 eq { 100 13000 translate} if xchartl 1 eq { 6100 13000 translate} if xchartl 2 eq { 100 08750 translate} if xchartl 3 eq { 6100 08750 translate} if xchartl 4 eq { 100 4500 translate} if xchartl 5 eq { 6100 4500 translate} if xchartl 6 eq { 100 0250 translate} if xchartl 7 eq { 6100 0250 translate} if xchartl 8 eq {13500 13000 translate} if xchartl 9 eq {19500 13000 translate} if xchartl 10 eq {13500 08750 translate} if xchartl 11 eq {19500 08750 translate} if xchartl 12 eq {13500 4500 translate} if xchartl 13 eq {19500 4500 translate} if xchartl 14 eq {13500 0250 translate} if xchartl 15 eq {19500 0250 translate} if /xwidth 5400 def /ywidth 4000 def 0 0 xwidth ywidth 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 150 /Times-ISOL1 FS 0 setgray /Param (; cf1=0.90; nt=0.18; nx=1.0) def 300 -150 moveto xchartl 5 le {(GG920-) show} {(GG921-) 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 GG920-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 (GG920-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 GG921-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 (GG921-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 GG921-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 (GG921-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 GG921-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 (GG921-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 GG921-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 (GG921-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 GG921-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 (GG921-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 GG921-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 (GG921-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 GG921-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 (GG921-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 GG921-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 (GG921-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 GG92; Relatives Ger\344te\255Farbsystem G) showde (TUB\255test chart GG92; 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 (->cmyn6* 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*->cmyn6* 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/GG92/GG92L) 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 (GG92/GG92L) 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/GG92/GG92L) 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\255GG92/GG92L) showde (TUB registration: 20091101\255GG92/GG92L) showen (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde (TUB material: code=rha4ta) showen 90 rotate 12 MM 105 MM moveto -90 rotate (V 2.1, io=1,) show LSC$ (N) eq {(1) show} if LSC$ (S) eq {(1?) show} if LSC$ (D) eq {(1?) show} if %LSC$ (F) eq {i*ptrsc cvishow % IMES 0 eq {(, CIELAB) show} % {(, CIEXYZ) show} ifelse % } if (, Cx=) show ColSpx cvishow (; cf1=0.90; nt=0.18; nx=1.0) show 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Beurteilung und Messung von Drucker- oder Monitorsystemen) showde ( application for evaluation and measurement of printer or monitor systems) showen ( application for evaluation and measurement of printer or monitor systems) showes ( application for evaluation and measurement of printer or monitor systems) showfr ( application for evaluation and measurement of printer or monitor systems) showit ( application for evaluation and measurement of printer or monitor systems) showjp ( application for evaluation and measurement of printer or monitor systems) showm IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray xx i0 get MM yy i0 get MM moveto xx i1 get MM yy i1 get MM lineto xx i2 get MM yy i2 get MM lineto xx i3 get MM yy i3 get MM lineto xx i0 get MM yy i0 get MM lineto stroke %} if %END if xchart=0 %xchart 1 eq xchart 3 ge or {%xchart=1, xchart>=3 %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke %} if %xchart=1, xchart>=3 %} for %output with xchart end %} for %output with colorm end %} for %output with xcolor end %} for %output with lanind end %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore } for %end for xchartg=xchartg1,xchartg2 } for %end for xcolorg=xcolorg1,xcolorg2 %} for %end for pcountg=pcountg1,pcount2g %} for %end for scountg=scountg1,scount2g %%Trailer