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