%!PS-Adobe-3.0 EPSF-3.0 130.149.60.45/~farbmetrik/GG93/GG93L00XX.PS 20091101 %%BoundingBox: 00 00 414 292 /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/GG93/GG93.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 2 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->GG93/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->GG93/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %***************************************************************************** %BEG GK0X->GG93/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->GG93/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 /CFilenameS1g %START output of step S1g (130.149.60.45/~farbmetrik/GG93/GG93L0N) def %Link file name for data /CDateS1g (2006-01-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (GG93/GG93L0N) 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 1 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 0.5 0.5 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$ [(1.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$ [(1.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 0 def %scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10 %1 1 1 {/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 (/GG93/ ) 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 GG930-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 (GG930-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 GG930-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 (GG930-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 GG930-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 (GG930-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 GG930-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 (GG930-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 GG930-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 (GG930-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 GG930-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 (GG930-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 GG930-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 GG93_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 (GG93_HRS16_96_D65_00%_G0) def /LUT_LAB0 [ %GE330-7A, Page 7 /24, %BEG GE23_22_REM.TXT, Separation cmyn4*, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE23_22_REM.TXT, Separation cmyn4*, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 001346 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 002597 000205 -00401 0000 0000 0125 1000 1000 0875 0000 %0001 A02 003364 000298 -01226 0000 0000 0250 1000 1000 0750 0000 %0002 A03 003773 000381 -01900 0000 0000 0375 1000 1000 0625 0000 %0003 A04 004130 000687 -02307 0000 0000 0500 1000 1000 0500 0000 %0004 A05 004218 001240 -02781 0000 0000 0625 1000 1000 0375 0000 %0005 A06 004115 001553 -03517 0000 0000 0750 1000 1000 0250 0000 %0006 A07 003460 002256 -04173 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003176 002360 -04233 0000 0000 1000 1000 1000 0000 0000 %0008 A09 002699 -00229 000127 0000 0125 0000 1000 0875 1000 0000 %0009 B01 002689 -00095 -00343 0000 0125 0125 1000 0875 0875 0000 %0010 B02 003589 -00146 -01083 0000 0125 0250 1000 0875 0750 0000 %0011 B03 004055 -00108 -01744 0000 0125 0375 1000 0875 0625 0000 %0012 B04 004486 -00005 -02254 0000 0125 0500 1000 0875 0500 0000 %0013 B05 004640 000362 -02702 0000 0125 0625 1000 0875 0375 0000 %0014 B06 004551 000585 -03281 0000 0125 0750 1000 0875 0250 0000 %0015 B07 003804 001237 -04347 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003418 001392 -04480 0000 0125 1000 1000 0875 0000 0000 %0017 B09 003658 -00657 000176 0000 0250 0000 1000 0750 1000 0000 %0018 C01 003744 -00710 -00282 0000 0250 0125 1000 0750 0875 0000 %0019 C02 003799 -00602 -01024 0000 0250 0250 1000 0750 0750 0000 %0020 C03 004332 -00687 -01576 0000 0250 0375 1000 0750 0625 0000 %0021 C04 004705 -00508 -02219 0000 0250 0500 1000 0750 0500 0000 %0022 C05 004838 -00360 -02653 0000 0250 0625 1000 0750 0375 0000 %0023 C06 004770 -00212 -03206 0000 0250 0750 1000 0750 0250 0000 %0024 C07 004057 000000 -04621 0000 0250 0875 1000 0750 0125 0000 %0025 C08 003460 000434 -04784 0000 0250 1000 1000 0750 0000 0000 %0026 C09 004447 -01434 000655 0000 0375 0000 1000 0625 1000 0000 %0027 D01 004344 -01396 -00145 0000 0375 0125 1000 0625 0875 0000 %0028 D02 004376 -01257 -00979 0000 0375 0250 1000 0625 0750 0000 %0029 D03 004615 -01121 -01648 0000 0375 0375 1000 0625 0625 0000 %0030 D04 004928 -01004 -02093 0000 0375 0500 1000 0625 0500 0000 %0031 D05 005088 -00858 -02591 0000 0375 0625 1000 0625 0375 0000 %0032 D06 005066 -00834 -03076 0000 0375 0750 1000 0625 0250 0000 %0033 D07 004582 -00800 -04331 0000 0375 0875 1000 0625 0125 0000 %0034 D08 003970 -00498 -04780 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004840 -02450 001084 0000 0500 0000 1000 0500 1000 0000 %0036 E01 004869 -02213 000310 0000 0500 0125 1000 0500 0875 0000 %0037 E02 004888 -01896 -00496 0000 0500 0250 1000 0500 0750 0000 %0038 E03 004998 -01705 -01382 0000 0500 0375 1000 0500 0625 0000 %0039 E04 005115 -01504 -01984 0000 0500 0500 1000 0500 0500 0000 %0040 E05 005250 -01402 -02637 0000 0500 0625 1000 0500 0375 0000 %0041 E06 005260 -01384 -03100 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004955 -01492 -04118 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004425 -01331 -04810 0000 0500 1000 1000 0500 0000 0000 %0044 E09 005331 -03186 001625 0000 0625 0000 1000 0375 1000 0000 %0045 F01 005327 -03128 000824 0000 0625 0125 1000 0375 0875 0000 %0046 F02 005431 -02829 000052 0000 0625 0250 1000 0375 0750 0000 %0047 F03 005481 -02486 -00834 0000 0625 0375 1000 0375 0625 0000 %0048 F04 005480 -02051 -01755 0000 0625 0500 1000 0375 0500 0000 %0049 F05 005430 -01765 -02522 0000 0625 0625 1000 0375 0375 0000 %0050 F06 005475 -01806 -03002 0000 0625 0750 1000 0375 0250 0000 %0051 F07 005253 -01995 -03939 0000 0625 0875 1000 0375 0125 0000 %0052 F08 004855 -01978 -04791 0000 0625 1000 1000 0375 0000 0000 %0053 F09 005646 -04004 002068 0000 0750 0000 1000 0250 1000 0000 %0054 G01 005707 -03889 001450 0000 0750 0125 1000 0250 0875 0000 %0055 G02 005778 -03669 000569 0000 0750 0250 1000 0250 0750 0000 %0056 G03 005863 -03411 -00311 0000 0750 0375 1000 0250 0625 0000 %0057 G04 005900 -03023 -01147 0000 0750 0500 1000 0250 0500 0000 %0058 G05 005867 -02784 -01992 0000 0750 0625 1000 0250 0375 0000 %0059 G06 005766 -02431 -02778 0000 0750 0750 1000 0250 0250 0000 %0060 G07 005453 -02739 -03541 0000 0750 0875 1000 0250 0125 0000 %0061 G08 005078 -02703 -04548 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005966 -05868 003297 0000 0875 0000 1000 0125 1000 0000 %0063 H01 006007 -05555 002352 0000 0875 0125 1000 0125 0875 0000 %0064 H02 005984 -05188 001072 0000 0875 0250 1000 0125 0750 0000 %0065 H03 006006 -04828 000170 0000 0875 0375 1000 0125 0625 0000 %0066 H04 006041 -04355 -00698 0000 0875 0500 1000 0125 0500 0000 %0067 H05 006003 -04045 -01497 0000 0875 0625 1000 0125 0375 0000 %0068 H06 005918 -03678 -02273 0000 0875 0750 1000 0125 0250 0000 %0069 H07 005684 -03265 -03368 0000 0875 0875 1000 0125 0125 0000 %0070 H08 005122 -03129 -04163 0000 0875 1000 1000 0125 0000 0000 %0071 H09 005661 -06435 003511 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005649 -06211 002513 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005709 -05757 001382 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005711 -05394 000403 0000 1000 0375 1000 0000 0625 0000 %0075 I04 005731 -04990 -00384 0000 1000 0500 1000 0000 0500 0000 %0076 I05 005762 -04520 -01231 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005701 -04197 -01894 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005540 -03976 -02625 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005184 -03318 -03908 0000 1000 1000 1000 0000 0000 0000 %0080 I09 002479 000193 000167 0125 0000 0000 0875 1000 1000 0000 %0081 J01 002451 000316 -00242 0125 0000 0125 0875 1000 0875 0000 %0082 J02 003487 000605 -00802 0125 0000 0250 0875 1000 0750 0000 %0083 J03 003970 000770 -01446 0125 0000 0375 0875 1000 0625 0000 %0084 J04 004097 001207 -02135 0125 0000 0500 0875 1000 0500 0000 %0085 J05 004260 001664 -02601 0125 0000 0625 0875 1000 0375 0000 %0086 J06 004109 002213 -03219 0125 0000 0750 0875 1000 0250 0000 %0087 J07 003423 003155 -03881 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003103 003126 -03973 0125 0000 1000 0875 1000 0000 0000 %0089 J09 002551 -00109 000261 0125 0125 0000 0875 0875 1000 0000 %0090 K01 002159 -00002 -00036 0125 0125 0125 0875 0875 0875 0000 %0091 K02 003699 000293 -00815 0125 0125 0250 0875 0875 0750 0000 %0092 K03 004044 000343 -01570 0125 0125 0375 0875 0875 0625 0000 %0093 K04 004418 000613 -02062 0125 0125 0500 0875 0875 0500 0000 %0094 K05 004655 000930 -02486 0125 0125 0625 0875 0875 0375 0000 %0095 K06 004588 001356 -03054 0125 0125 0750 0875 0875 0250 0000 %0096 K07 003849 002131 -03986 0125 0125 0875 0875 0875 0125 0000 %0097 K08 003469 002335 -04107 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003671 -00414 000464 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003716 -00303 000045 0125 0250 0125 0875 0750 0875 0000 %0100 L02 003908 -00244 -00681 0125 0250 0250 0875 0750 0750 0000 %0101 L03 004348 -00255 -01352 0125 0250 0375 0875 0750 0625 0000 %0102 L04 004802 -00147 -01907 0125 0250 0500 0875 0750 0500 0000 %0103 L05 005091 -00059 -02354 0125 0250 0625 0875 0750 0375 0000 %0104 L06 005010 000318 -02880 0125 0250 0750 0875 0750 0250 0000 %0105 L07 004381 000901 -04070 0125 0250 0875 0875 0750 0125 0000 %0106 L08 003770 001448 -04273 0125 0250 1000 0875 0750 0000 0000 %0107 L09 004640 -01224 001085 0125 0375 0000 0875 0625 1000 0000 %0108 M01 004570 -01055 000365 0125 0375 0125 0875 0625 0875 0000 %0109 M02 004682 -00916 -00427 0125 0375 0250 0875 0625 0750 0000 %0110 M03 004662 -00858 -01160 0125 0375 0375 0875 0625 0625 0000 %0111 M04 005115 -00702 -01765 0125 0375 0500 0875 0625 0500 0000 %0112 M05 005247 -00558 -02299 0125 0375 0625 0875 0625 0375 0000 %0113 M06 005255 -00460 -02809 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004949 -00311 -03893 0125 0375 0875 0875 0625 0125 0000 %0115 M08 003975 000188 -04580 0125 0375 1000 0875 0625 0000 0000 %0116 M09 005213 -02009 001565 0125 0500 0000 0875 0500 1000 0000 %0117 N01 005174 -01826 000779 0125 0500 0125 0875 0500 0875 0000 %0118 N02 005185 -01630 -00041 0125 0500 0250 0875 0500 0750 0000 %0119 N03 005265 -01430 -00933 0125 0500 0375 0875 0500 0625 0000 %0120 N04 005394 -01161 -01602 0125 0500 0500 0875 0500 0500 0000 %0121 N05 005507 -01037 -02276 0125 0500 0625 0875 0500 0375 0000 %0122 N06 005539 -00928 -02788 0125 0500 0750 0875 0500 0250 0000 %0123 N07 005302 -01001 -03667 0125 0500 0875 0875 0500 0125 0000 %0124 N08 004541 -00864 -04580 0125 0500 1000 0875 0500 0000 0000 %0125 N09 005616 -02921 002128 0125 0625 0000 0875 0375 1000 0000 %0126 O01 005655 -02634 001286 0125 0625 0125 0875 0375 0875 0000 %0127 O02 005742 -02347 000472 0125 0625 0250 0875 0375 0750 0000 %0128 O03 005802 -02109 -00407 0125 0625 0375 0875 0375 0625 0000 %0129 O04 005802 -01830 -01384 0125 0625 0500 0875 0375 0500 0000 %0130 O05 005791 -01576 -02110 0125 0625 0625 0875 0375 0375 0000 %0131 O06 005815 -01433 -02761 0125 0625 0750 0875 0375 0250 0000 %0132 O07 005636 -01406 -03423 0125 0625 0875 0875 0375 0125 0000 %0133 O08 005042 -01536 -04454 0125 0625 1000 0875 0375 0000 0000 %0134 O09 005922 -03581 002553 0125 0750 0000 0875 0250 1000 0000 %0135 P01 005984 -03404 001796 0125 0750 0125 0875 0250 0875 0000 %0136 P02 006088 -03122 001013 0125 0750 0250 0875 0250 0750 0000 %0137 P03 006149 -02887 000099 0125 0750 0375 0875 0250 0625 0000 %0138 P04 006238 -02569 -00721 0125 0750 0500 0875 0250 0500 0000 %0139 P05 006212 -02206 -01764 0125 0750 0625 0875 0250 0375 0000 %0140 P06 006222 -02011 -02457 0125 0750 0750 0875 0250 0250 0000 %0141 P07 006027 -01952 -03218 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005480 -02108 -04124 0125 0750 1000 0875 0250 0000 0000 %0143 P09 006422 -05169 003964 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 006524 -04769 002766 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 006603 -04383 001749 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 006573 -04118 000754 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 006612 -03686 -00246 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 006574 -03325 -01014 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 006360 -02896 -01951 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 006301 -02473 -02961 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005806 -02675 -03826 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 005977 -05877 004031 0125 1000 0000 0875 0000 1000 0000 %0153 R01 005870 -05941 003269 0125 1000 0125 0875 0000 0875 0000 %0154 R02 005898 -05577 002143 0125 1000 0250 0875 0000 0750 0000 %0155 R03 005953 -05137 000998 0125 1000 0375 0875 0000 0625 0000 %0156 R04 006013 -04629 -00049 0125 1000 0500 0875 0000 0500 0000 %0157 R05 006018 -04169 -01051 0125 1000 0625 0875 0000 0375 0000 %0158 R06 005990 -03817 -01716 0125 1000 0750 0875 0000 0250 0000 %0159 R07 005975 -03524 -02355 0125 1000 0875 0875 0000 0125 0000 %0160 R08 005581 -03168 -03571 0125 1000 1000 0875 0000 0000 0000 %0161 R09 003401 000424 000557 0250 0000 0000 0750 1000 1000 0000 %0162 S01 003445 000696 -00143 0250 0000 0125 0750 1000 0875 0000 %0163 S02 003667 000784 -00605 0250 0000 0250 0750 1000 0750 0000 %0164 S03 003998 001194 -01169 0250 0000 0375 0750 1000 0625 0000 %0165 S04 004317 001626 -01736 0250 0000 0500 0750 1000 0500 0000 %0166 S05 004319 002105 -02254 0250 0000 0625 0750 1000 0375 0000 %0167 S06 004210 002692 -02830 0250 0000 0750 0750 1000 0250 0000 %0168 S07 003538 003785 -03523 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003103 003916 -03558 0250 0000 1000 0750 1000 0000 0000 %0170 S09 003554 000039 000586 0250 0125 0000 0750 0875 1000 0000 %0171 T01 003553 000264 000025 0250 0125 0125 0750 0875 0875 0000 %0172 T02 003737 000417 -00460 0250 0125 0250 0750 0875 0750 0000 %0173 T03 004291 000645 -01009 0250 0125 0375 0750 0875 0625 0000 %0174 T04 004615 000932 -01531 0250 0125 0500 0750 0875 0500 0000 %0175 T05 004808 001340 -02097 0250 0125 0625 0750 0875 0375 0000 %0176 T06 004676 001744 -02715 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003943 002848 -03623 0250 0125 0875 0750 0875 0125 0000 %0178 T08 003523 003093 -03759 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003691 -00288 000740 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003669 -00068 000184 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003789 000002 -00082 0250 0250 0250 0750 0750 0750 0000 %0182 U03 004595 000150 -01006 0250 0250 0375 0750 0750 0625 0000 %0183 U04 004929 000304 -01518 0250 0250 0500 0750 0750 0500 0000 %0184 U05 005132 000590 -02004 0250 0250 0625 0750 0750 0375 0000 %0185 U06 005140 000908 -02578 0250 0250 0750 0750 0750 0250 0000 %0186 U07 004601 001823 -03604 0250 0250 0875 0750 0750 0125 0000 %0187 U08 003865 002236 -03932 0250 0250 1000 0750 0750 0000 0000 %0188 U09 004707 -00809 001419 0250 0375 0000 0750 0625 1000 0000 %0189 V01 004682 -00671 000780 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004774 -00403 000017 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004961 -00476 -00864 0250 0375 0375 0750 0625 0625 0000 %0192 V04 005334 -00253 -01428 0250 0375 0500 0750 0625 0500 0000 %0193 V05 005500 -00192 -02002 0250 0375 0625 0750 0625 0375 0000 %0194 V06 005467 -00036 -02527 0250 0375 0750 0750 0625 0250 0000 %0195 V07 005218 000528 -03569 0250 0375 0875 0750 0625 0125 0000 %0196 V08 004437 001012 -03989 0250 0375 1000 0750 0625 0000 0000 %0197 V09 005572 -01538 002107 0250 0500 0000 0750 0500 1000 0000 %0198 W01 005507 -01419 001223 0250 0500 0125 0750 0500 0875 0000 %0199 W02 005610 -01210 000520 0250 0500 0250 0750 0500 0750 0000 %0200 W03 005596 -00975 -00461 0250 0500 0375 0750 0500 0625 0000 %0201 W04 005614 -00812 -01254 0250 0500 0500 0750 0500 0500 0000 %0202 W05 005854 -00719 -01869 0250 0500 0625 0750 0500 0375 0000 %0203 W06 005782 -00671 -02473 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005654 -00499 -03289 0250 0500 0875 0750 0500 0125 0000 %0205 W08 004640 000105 -04135 0250 0500 1000 0750 0500 0000 0000 %0206 W09 006079 -02233 002776 0250 0625 0000 0750 0375 1000 0000 %0207 X01 006072 -02068 001778 0250 0625 0125 0750 0375 0875 0000 %0208 X02 006084 -01997 000890 0250 0625 0250 0750 0375 0750 0000 %0209 X03 006162 -01705 000069 0250 0625 0375 0750 0375 0625 0000 %0210 X04 006196 -01456 -00899 0250 0625 0500 0750 0375 0500 0000 %0211 X05 006269 -01298 -01657 0250 0625 0625 0750 0375 0375 0000 %0212 X06 006170 -01223 -02407 0250 0625 0750 0750 0375 0250 0000 %0213 X07 006084 -01116 -03063 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005429 -01058 -04022 0250 0625 1000 0750 0375 0000 0000 %0215 X09 006438 -03117 003193 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 006418 -02970 002309 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 006465 -02767 001386 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 006534 -02410 000457 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 006606 -02230 -00279 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 006529 -01964 -01478 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 006561 -01807 -02264 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 006499 -01667 -02898 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 006036 -01701 -03819 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 006761 -04647 004685 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 006791 -04192 003054 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 006909 -03924 002089 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 007001 -03628 001193 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 007048 -03208 000124 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 006942 -02927 -00689 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 006828 -02536 -01746 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 006853 -02224 -02785 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 006428 -02019 -03496 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006376 -05307 004870 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006590 -04828 003693 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006443 -04860 002782 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006401 -04627 001695 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006457 -04182 000605 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006453 -03706 -00672 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006496 -03322 -01341 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006500 -02953 -02118 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006171 -02700 -03243 0250 1000 1000 0750 0000 0000 0000 %0242 a09 004273 001004 000904 0375 0000 0000 0625 1000 1000 0000 %0243 A10 004165 001263 000259 0375 0000 0125 0625 1000 0875 0000 %0244 A11 004271 001463 -00352 0375 0000 0250 0625 1000 0750 0000 %0245 A12 004283 001579 -00916 0375 0000 0375 0625 1000 0625 0000 %0246 A13 004495 002087 -01450 0375 0000 0500 0625 1000 0500 0000 %0247 A14 004394 002735 -01938 0375 0000 0625 0625 1000 0375 0000 %0248 A15 004286 003197 -02486 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003681 004352 -03164 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003215 004625 -03255 0375 0000 1000 0625 1000 0000 0000 %0251 A18 004718 000319 001277 0375 0125 0000 0625 0875 1000 0000 %0252 B10 004568 000551 000549 0375 0125 0125 0625 0875 0875 0000 %0253 B11 004559 000807 -00130 0375 0125 0250 0625 0875 0750 0000 %0254 B12 004630 000932 -00808 0375 0125 0375 0625 0875 0625 0000 %0255 B13 004833 001417 -01369 0375 0125 0500 0625 0875 0500 0000 %0256 B14 004913 001858 -01856 0375 0125 0625 0625 0875 0375 0000 %0257 B15 004760 002214 -02443 0375 0125 0750 0625 0875 0250 0000 %0258 B16 004074 003461 -03317 0375 0125 0875 0625 0875 0125 0000 %0259 B17 003626 003768 -03481 0375 0125 1000 0625 0875 0000 0000 %0260 B18 004984 -00126 001500 0375 0250 0000 0625 0750 1000 0000 %0261 C10 004830 000030 000680 0375 0250 0125 0625 0750 0875 0000 %0262 C11 004762 000265 000056 0375 0250 0250 0625 0750 0750 0000 %0263 C12 004941 000407 -00594 0375 0250 0375 0625 0750 0625 0000 %0264 C13 005148 000694 -01237 0375 0250 0500 0625 0750 0500 0000 %0265 C14 005285 001153 -01738 0375 0250 0625 0625 0750 0375 0000 %0266 C15 005215 001390 -02322 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004784 002364 -03294 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004040 002878 -03666 0375 0250 1000 0625 0750 0000 0000 %0269 C18 005440 -00666 001712 0375 0375 0000 0625 0625 1000 0000 %0270 D10 005257 -00531 000970 0375 0375 0125 0625 0625 0875 0000 %0271 D11 005211 -00159 000237 0375 0375 0250 0625 0625 0750 0000 %0272 D12 005173 000015 -00103 0375 0375 0375 0625 0625 0625 0000 %0273 D13 005594 000153 -01025 0375 0375 0500 0625 0625 0500 0000 %0274 D14 005694 000425 -01714 0375 0375 0625 0625 0625 0375 0000 %0275 D15 005629 000608 -02219 0375 0375 0750 0625 0625 0250 0000 %0276 D16 005470 001249 -03206 0375 0375 0875 0625 0625 0125 0000 %0277 D17 004690 001830 -03608 0375 0375 1000 0625 0625 0000 0000 %0278 D18 006054 -01138 002453 0375 0500 0000 0625 0500 1000 0000 %0279 E10 006089 -01055 001705 0375 0500 0125 0625 0500 0875 0000 %0280 E11 005985 -00779 000694 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005959 -00580 000044 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005941 -00580 -00899 0375 0500 0500 0625 0500 0500 0000 %0283 E14 006151 -00351 -01595 0375 0500 0625 0625 0500 0375 0000 %0284 E15 006052 -00144 -02118 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005978 000143 -02993 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005238 000731 -03573 0375 0500 1000 0625 0500 0000 0000 %0287 E18 006602 -01755 003094 0375 0625 0000 0625 0375 1000 0000 %0288 F10 006580 -01715 002137 0375 0625 0125 0625 0375 0875 0000 %0289 F11 006550 -01563 001216 0375 0625 0250 0625 0375 0750 0000 %0290 F12 006586 -01358 000458 0375 0625 0375 0625 0375 0625 0000 %0291 F13 006583 -01163 -00474 0375 0625 0500 0625 0375 0500 0000 %0292 F14 006577 -01006 -01380 0375 0625 0625 0625 0375 0375 0000 %0293 F15 006557 -00875 -02037 0375 0625 0750 0625 0375 0250 0000 %0294 F16 006387 -00790 -02812 0375 0625 0875 0625 0375 0125 0000 %0295 F17 005718 -00476 -03623 0375 0625 1000 0625 0375 0000 0000 %0296 F18 006927 -02417 003734 0375 0750 0000 0625 0250 1000 0000 %0297 G10 006985 -02437 002802 0375 0750 0125 0625 0250 0875 0000 %0298 G11 006955 -02341 001753 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006965 -02065 000852 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006986 -01889 000113 0375 0750 0500 0625 0250 0500 0000 %0301 G14 006994 -01790 -00832 0375 0750 0625 0625 0250 0375 0000 %0302 G15 006977 -01569 -01822 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006820 -01380 -02694 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006551 -01374 -03316 0375 0750 1000 0625 0250 0000 0000 %0305 G18 007143 -03629 005411 0375 0875 0000 0625 0125 1000 0000 %0306 H10 007242 -03304 003330 0375 0875 0125 0625 0125 0875 0000 %0307 H11 007207 -03361 002374 0375 0875 0250 0625 0125 0750 0000 %0308 H12 007340 -03192 001567 0375 0875 0375 0625 0125 0625 0000 %0309 H13 007400 -02945 000660 0375 0875 0500 0625 0125 0500 0000 %0310 H14 007374 -02639 -00154 0375 0875 0625 0625 0125 0375 0000 %0311 H15 007247 -02329 -01379 0375 0875 0750 0625 0125 0250 0000 %0312 H16 007270 -02004 -02459 0375 0875 0875 0625 0125 0125 0000 %0313 H17 006990 -01758 -03110 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006881 -04455 005497 0375 1000 0000 0625 0000 1000 0000 %0315 I10 006920 -04401 004593 0375 1000 0125 0625 0000 0875 0000 %0316 I11 007060 -03941 002795 0375 1000 0250 0625 0000 0750 0000 %0317 I12 007008 -03828 001997 0375 1000 0375 0625 0000 0625 0000 %0318 I13 007054 -03581 001177 0375 1000 0500 0625 0000 0500 0000 %0319 I14 007103 -03227 000059 0375 1000 0625 0625 0000 0375 0000 %0320 I15 007057 -02906 -01026 0375 1000 0750 0625 0000 0250 0000 %0321 I16 007062 -02533 -01840 0375 1000 0875 0625 0000 0125 0000 %0322 I17 006949 -02200 -02832 0375 1000 1000 0625 0000 0000 0000 %0323 I18 004655 001464 001580 0500 0000 0000 0500 1000 1000 0000 %0324 J10 004685 001604 000897 0500 0000 0125 0500 1000 0875 0000 %0325 J11 004682 001943 000152 0500 0000 0250 0500 1000 0750 0000 %0326 J12 004715 002169 -00483 0500 0000 0375 0500 1000 0625 0000 %0327 J13 004744 002438 -01084 0500 0000 0500 0500 1000 0500 0000 %0328 J14 004623 003134 -01565 0500 0000 0625 0500 1000 0375 0000 %0329 J15 004394 003718 -02095 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003883 004863 -02789 0500 0000 0875 0500 1000 0125 0000 %0331 J17 003446 005020 -02940 0500 0000 1000 0500 1000 0000 0000 %0332 J18 005051 000900 001764 0500 0125 0000 0500 0875 1000 0000 %0333 K10 005051 001057 001054 0500 0125 0125 0500 0875 0875 0000 %0334 K11 005001 001315 000315 0500 0125 0250 0500 0875 0750 0000 %0335 K12 005094 001585 -00354 0500 0125 0375 0500 0875 0625 0000 %0336 K13 005095 001806 -00951 0500 0125 0500 0500 0875 0500 0000 %0337 K14 005172 002237 -01432 0500 0125 0625 0500 0875 0375 0000 %0338 K15 004929 002862 -01970 0500 0125 0750 0500 0875 0250 0000 %0339 K16 004513 003966 -02881 0500 0125 0875 0500 0875 0125 0000 %0340 K17 003801 004321 -03172 0500 0125 1000 0500 0875 0000 0000 %0341 K18 005572 000212 002161 0500 0250 0000 0500 0750 1000 0000 %0342 L10 005496 000468 001350 0500 0250 0125 0500 0750 0875 0000 %0343 L11 005397 000698 000533 0500 0250 0250 0500 0750 0750 0000 %0344 L12 005404 000884 -00170 0500 0250 0375 0500 0750 0625 0000 %0345 L13 005438 001104 -00857 0500 0250 0500 0500 0750 0500 0000 %0346 L14 005544 001610 -01359 0500 0250 0625 0500 0750 0375 0000 %0347 L15 005413 001999 -01939 0500 0250 0750 0500 0750 0250 0000 %0348 L16 005105 002911 -02873 0500 0250 0875 0500 0750 0125 0000 %0349 L17 004308 003415 -03282 0500 0250 1000 0500 0750 0000 0000 %0350 L18 006075 -00375 002606 0500 0375 0000 0500 0625 1000 0000 %0351 M10 005948 -00151 001758 0500 0375 0125 0500 0625 0875 0000 %0352 M11 005913 -00017 000990 0500 0375 0250 0500 0625 0750 0000 %0353 M12 005820 000333 000056 0500 0375 0375 0500 0625 0625 0000 %0354 M13 005809 000529 -00679 0500 0375 0500 0500 0625 0500 0000 %0355 M14 005957 000859 -01236 0500 0375 0625 0500 0625 0375 0000 %0356 M15 005916 001264 -01830 0500 0375 0750 0500 0625 0250 0000 %0357 M16 005824 001848 -02703 0500 0375 0875 0500 0625 0125 0000 %0358 M17 005042 002247 -03188 0500 0375 1000 0500 0625 0000 0000 %0359 M18 006436 -00891 003021 0500 0500 0000 0500 0500 1000 0000 %0360 N10 006366 -00670 002075 0500 0500 0125 0500 0500 0875 0000 %0361 N11 006293 -00564 001259 0500 0500 0250 0500 0500 0750 0000 %0362 N12 006194 -00249 000413 0500 0500 0375 0500 0500 0625 0000 %0363 N13 006081 000019 -00089 0500 0500 0500 0500 0500 0500 0000 %0364 N14 006379 000185 -01135 0500 0500 0625 0500 0500 0375 0000 %0365 N15 006379 000437 -01745 0500 0500 0750 0500 0500 0250 0000 %0366 N16 006335 000937 -02588 0500 0500 0875 0500 0500 0125 0000 %0367 N17 005599 001257 -03111 0500 0500 1000 0500 0500 0000 0000 %0368 N18 006999 -01355 003784 0500 0625 0000 0500 0375 1000 0000 %0369 O10 006937 -01342 002891 0500 0625 0125 0500 0375 0875 0000 %0370 O11 006976 -01110 001891 0500 0625 0250 0500 0375 0750 0000 %0371 O12 006882 -00903 000904 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006858 -00755 000044 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006810 -00602 -01038 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006906 -00418 -01535 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006795 -00140 -02305 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006229 000136 -03024 0500 0625 1000 0500 0375 0000 0000 %0377 O18 007436 -01974 004478 0500 0750 0000 0500 0250 1000 0000 %0378 P10 007421 -01917 003505 0500 0750 0125 0500 0250 0875 0000 %0379 P11 007375 -01837 002481 0500 0750 0250 0500 0250 0750 0000 %0380 P12 007383 -01683 001451 0500 0750 0375 0500 0250 0625 0000 %0381 P13 007390 -01505 000621 0500 0750 0500 0500 0250 0500 0000 %0382 P14 007390 -01236 -00381 0500 0750 0625 0500 0250 0375 0000 %0383 P15 007410 -01147 -01467 0500 0750 0750 0500 0250 0250 0000 %0384 P16 007271 -00956 -02213 0500 0750 0875 0500 0250 0125 0000 %0385 P17 006804 -00884 -02977 0500 0750 1000 0500 0250 0000 0000 %0386 P18 007613 -02935 006613 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 007615 -02561 004054 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 007695 -02644 003185 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 007664 -02616 002164 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007783 -02383 001226 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007850 -02301 000391 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007732 -02050 -00902 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007739 -01676 -02155 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 007323 -01499 -02731 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 007369 -03868 006241 0500 1000 0000 0500 0000 1000 0000 %0396 R10 007480 -03757 005513 0500 1000 0125 0500 0000 0875 0000 %0397 R11 007389 -03667 003791 0500 1000 0250 0500 0000 0750 0000 %0398 R12 007564 -03211 002386 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007673 -02924 001552 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007673 -02731 000702 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007620 -02444 -00508 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007540 -02168 -01487 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007456 -01820 -02515 0500 1000 1000 0500 0000 0000 0000 %0404 R18 004955 002145 002216 0625 0000 0000 0375 1000 1000 0000 %0405 S10 004909 002358 001555 0625 0000 0125 0375 1000 0875 0000 %0406 S11 004848 002639 000779 0625 0000 0250 0375 1000 0750 0000 %0407 S12 004921 002936 000020 0625 0000 0375 0375 1000 0625 0000 %0408 S13 004950 003106 -00496 0625 0000 0500 0375 1000 0500 0000 %0409 S14 004928 003391 -01190 0625 0000 0625 0375 1000 0375 0000 %0410 S15 004650 004167 -01710 0625 0000 0750 0375 1000 0250 0000 %0411 S16 004152 005316 -02280 0625 0000 0875 0375 1000 0125 0000 %0412 S17 003746 005478 -02568 0625 0000 1000 0375 1000 0000 0000 %0413 S18 005410 001412 002527 0625 0125 0000 0375 0875 1000 0000 %0414 T10 005417 001671 001668 0625 0125 0125 0375 0875 0875 0000 %0415 T11 005366 001899 000894 0625 0125 0250 0375 0875 0750 0000 %0416 T12 005473 002114 000242 0625 0125 0375 0375 0875 0625 0000 %0417 T13 005454 002407 -00449 0625 0125 0500 0375 0875 0500 0000 %0418 T14 005434 002515 -01081 0625 0125 0625 0375 0875 0375 0000 %0419 T15 005230 003316 -01545 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004837 004299 -02311 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004104 004778 -02793 0625 0125 1000 0375 0875 0000 0000 %0422 T18 005856 000877 002839 0625 0250 0000 0375 0750 1000 0000 %0423 U10 005861 001013 001934 0625 0250 0125 0375 0750 0875 0000 %0424 U11 005866 001167 001229 0625 0250 0250 0375 0750 0750 0000 %0425 U12 005898 001403 000536 0625 0250 0375 0375 0750 0625 0000 %0426 U13 005864 001748 -00258 0625 0250 0500 0375 0750 0500 0000 %0427 U14 005861 001933 -00984 0625 0250 0625 0375 0750 0375 0000 %0428 U15 005729 002472 -01436 0625 0250 0750 0375 0750 0250 0000 %0429 U16 005412 003420 -02274 0625 0250 0875 0375 0750 0125 0000 %0430 U17 004621 003965 -02832 0625 0250 1000 0375 0750 0000 0000 %0431 U18 006429 000151 003315 0625 0375 0000 0375 0625 1000 0000 %0432 V10 006399 000330 002524 0625 0375 0125 0375 0625 0875 0000 %0433 V11 006323 000523 001660 0625 0375 0250 0375 0625 0750 0000 %0434 V12 006339 000756 000836 0625 0375 0375 0375 0625 0625 0000 %0435 V13 006333 001064 000008 0625 0375 0500 0375 0625 0500 0000 %0436 V14 006196 001264 -00899 0625 0375 0625 0375 0625 0375 0000 %0437 V15 006211 001744 -01411 0625 0375 0750 0375 0625 0250 0000 %0438 V16 006121 002460 -02207 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005277 002951 -02758 0625 0375 1000 0375 0625 0000 0000 %0440 V18 006863 -00405 003834 0625 0500 0000 0375 0500 1000 0000 %0441 W10 006845 -00262 002978 0625 0500 0125 0375 0500 0875 0000 %0442 W11 006779 -00109 002098 0625 0500 0250 0375 0500 0750 0000 %0443 W12 006745 000148 001172 0625 0500 0375 0375 0500 0625 0000 %0444 W13 006726 000414 000219 0625 0500 0500 0375 0500 0500 0000 %0445 W14 006630 000616 -00797 0625 0500 0625 0375 0500 0375 0000 %0446 W15 006692 000912 -01338 0625 0500 0750 0375 0500 0250 0000 %0447 W16 006714 001506 -02052 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006066 001828 -02565 0625 0500 1000 0375 0500 0000 0000 %0449 W18 007336 -00947 004273 0625 0625 0000 0375 0375 1000 0000 %0450 X10 007312 -00904 003430 0625 0625 0125 0375 0375 0875 0000 %0451 X11 007257 -00683 002448 0625 0625 0250 0375 0375 0750 0000 %0452 X12 007226 -00562 001518 0625 0625 0375 0375 0375 0625 0000 %0453 X13 007168 -00293 000410 0625 0625 0500 0375 0375 0500 0000 %0454 X14 007057 000021 -00071 0625 0625 0625 0375 0375 0375 0000 %0455 X15 007145 000110 -01143 0625 0625 0750 0375 0375 0250 0000 %0456 X16 007163 000440 -01913 0625 0625 0875 0375 0375 0125 0000 %0457 X17 006746 000711 -02457 0625 0625 1000 0375 0375 0000 0000 %0458 X18 007778 -01492 005094 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 007789 -01494 004166 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 007708 -01406 003069 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 007675 -01186 002180 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 007721 -01116 001311 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 007687 -00848 000278 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 007625 -00790 -00937 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007621 -00456 -01709 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007241 -00451 -02465 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 008134 -02264 007397 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 008092 -02076 004842 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 008043 -02040 003807 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 008049 -02094 002779 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 008105 -01988 001949 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 008204 -01797 001026 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 008190 -01618 -00222 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 008215 -01306 -01574 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007830 -01237 -02201 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 008014 -03131 007218 0625 1000 0000 0375 0000 1000 0000 %0477 a10 008202 -02979 006548 0625 1000 0125 0375 0000 0875 0000 %0478 a11 008096 -03005 005118 0625 1000 0250 0375 0000 0750 0000 %0479 a12 007988 -02942 003638 0625 1000 0375 0375 0000 0625 0000 %0480 a13 008093 -02621 002311 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008243 -02283 001461 0625 1000 0625 0375 0000 0375 0000 %0482 a15 008207 -02026 000346 0625 1000 0750 0375 0000 0250 0000 %0483 a16 008079 -01747 -00974 0625 1000 0875 0375 0000 0125 0000 %0484 a17 007977 -01470 -02036 0625 1000 1000 0375 0000 0000 0000 %0485 a18 004985 003366 002881 0750 0000 0000 0250 1000 1000 0000 %0486 A19 004921 003555 002226 0750 0000 0125 0250 1000 0875 0000 %0487 A20 004857 003656 001559 0750 0000 0250 0250 1000 0750 0000 %0488 A21 004797 003854 000843 0750 0000 0375 0250 1000 0625 0000 %0489 A22 004806 004041 000197 0750 0000 0500 0250 1000 0500 0000 %0490 A23 004705 004352 -00553 0750 0000 0625 0250 1000 0375 0000 %0491 A24 004634 004670 -01403 0750 0000 0750 0250 1000 0250 0000 %0492 A25 004239 005674 -01976 0750 0000 0875 0250 1000 0125 0000 %0493 A26 003940 005985 -02168 0750 0000 1000 0250 1000 0000 0000 %0494 A27 005562 002451 003155 0750 0125 0000 0250 0875 1000 0000 %0495 B19 005462 002644 002425 0750 0125 0125 0250 0875 0875 0000 %0496 B20 005449 002778 001741 0750 0125 0250 0250 0875 0750 0000 %0497 B21 005440 002889 001029 0750 0125 0375 0250 0875 0625 0000 %0498 B22 005432 003171 000346 0750 0125 0500 0250 0875 0500 0000 %0499 B23 005352 003482 -00490 0750 0125 0625 0250 0875 0375 0000 %0500 B24 005246 003704 -01252 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004989 004592 -01781 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004394 005401 -02350 0750 0125 1000 0250 0875 0000 0000 %0503 B27 006090 001521 003708 0750 0250 0000 0250 0750 1000 0000 %0504 C19 006043 001646 002869 0750 0250 0125 0250 0750 0875 0000 %0505 C20 005981 001891 001956 0750 0250 0250 0250 0750 0750 0000 %0506 C21 006011 002012 001366 0750 0250 0375 0250 0750 0625 0000 %0507 C22 005960 002295 000504 0750 0250 0500 0250 0750 0500 0000 %0508 C23 005886 002749 -00359 0750 0250 0625 0250 0750 0375 0000 %0509 C24 005716 002996 -01226 0750 0250 0750 0250 0750 0250 0000 %0510 C25 005516 003883 -01789 0750 0250 0875 0250 0750 0125 0000 %0511 C26 004920 004518 -02420 0750 0250 1000 0250 0750 0000 0000 %0512 C27 006553 000864 004122 0750 0375 0000 0250 0625 1000 0000 %0513 D19 006527 000977 003211 0750 0375 0125 0250 0625 0875 0000 %0514 D20 006496 001120 002370 0750 0375 0250 0250 0625 0750 0000 %0515 D21 006487 001306 001642 0750 0375 0375 0250 0625 0625 0000 %0516 D22 006425 001520 000936 0750 0375 0500 0250 0625 0500 0000 %0517 D23 006300 002024 -00139 0750 0375 0625 0250 0625 0375 0000 %0518 D24 006165 002362 -01073 0750 0375 0750 0250 0625 0250 0000 %0519 D25 006085 003020 -01808 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005432 003813 -02352 0750 0375 1000 0250 0625 0000 0000 %0521 D27 007086 000068 005056 0750 0500 0000 0250 0500 1000 0000 %0522 E19 007038 000242 003829 0750 0500 0125 0250 0500 0875 0000 %0523 E20 007042 000321 003104 0750 0500 0250 0250 0500 0750 0000 %0524 E21 007007 000550 002259 0750 0500 0375 0250 0500 0625 0000 %0525 E22 006950 000799 001349 0750 0500 0500 0250 0500 0500 0000 %0526 E23 006825 001211 000272 0750 0500 0625 0250 0500 0375 0000 %0527 E24 006645 001508 -00928 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006680 002089 -01641 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006278 002787 -02099 0750 0500 1000 0250 0500 0000 0000 %0530 E27 007643 -00517 005523 0750 0625 0000 0250 0375 1000 0000 %0531 F19 007570 -00379 004376 0750 0625 0125 0250 0375 0875 0000 %0532 F20 007537 -00310 003633 0750 0625 0250 0250 0375 0750 0000 %0533 F21 007510 -00100 002740 0750 0625 0375 0250 0375 0625 0000 %0534 F22 007482 000149 001794 0750 0625 0500 0250 0375 0500 0000 %0535 F23 007410 000462 000536 0750 0625 0625 0250 0375 0375 0000 %0536 F24 007195 000664 -00712 0750 0625 0750 0250 0375 0250 0000 %0537 F25 007317 001192 -01427 0750 0625 0875 0250 0375 0125 0000 %0538 F26 007028 001707 -01922 0750 0625 1000 0250 0375 0000 0000 %0539 F27 008135 -01052 005922 0750 0750 0000 0250 0250 1000 0000 %0540 G19 008068 -00997 004805 0750 0750 0125 0250 0250 0875 0000 %0541 G20 008039 -00875 004012 0750 0750 0250 0250 0250 0750 0000 %0542 G21 008008 -00766 003260 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007985 -00668 002349 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007865 -00537 001013 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007699 000026 -00018 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007856 000167 -01164 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007749 000365 -01830 0750 0750 1000 0250 0250 0000 0000 %0548 G27 008693 -01662 008519 0750 0875 0000 0250 0125 1000 0000 %0549 H19 008543 -01578 005863 0750 0875 0125 0250 0125 0875 0000 %0550 H20 008487 -01659 004813 0750 0875 0250 0250 0125 0750 0000 %0551 H21 008492 -01591 004052 0750 0875 0375 0250 0125 0625 0000 %0552 H22 008466 -01541 003181 0750 0875 0500 0250 0125 0500 0000 %0553 H23 008504 -01337 002166 0750 0875 0625 0250 0125 0375 0000 %0554 H24 008477 -01170 000808 0750 0875 0750 0250 0125 0250 0000 %0555 H25 008548 -00902 -00969 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008392 -00925 -01627 0750 0875 1000 0250 0125 0000 0000 %0557 H27 008856 -02306 008691 0750 1000 0000 0250 0000 1000 0000 %0558 I19 008754 -02317 007295 0750 1000 0125 0250 0000 0875 0000 %0559 I20 008742 -02325 005756 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008657 -02401 004893 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008599 -02358 003912 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008604 -02174 002678 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008753 -01842 001728 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008593 -01572 000013 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008447 -01190 -01530 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004835 005404 004325 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004775 005340 003161 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004703 005447 002460 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004632 005649 001723 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004570 005856 000966 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004617 006098 -00015 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004561 006413 -00983 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004571 006395 -01632 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004158 006543 -01757 0875 0000 1000 0125 1000 0000 0000 %0575 J27 005525 003930 004839 0875 0125 0000 0125 0875 1000 0000 %0576 K19 005548 003941 003505 0875 0125 0125 0125 0875 0875 0000 %0577 K20 005479 004054 002516 0875 0125 0250 0125 0875 0750 0000 %0578 K21 005367 004261 001826 0875 0125 0375 0125 0875 0625 0000 %0579 K22 005385 004425 001107 0875 0125 0500 0125 0875 0500 0000 %0580 K23 005328 004744 000273 0875 0125 0625 0125 0875 0375 0000 %0581 K24 005293 005063 -00712 0875 0125 0750 0125 0875 0250 0000 %0582 K25 005188 005283 -01549 0875 0125 0875 0125 0875 0125 0000 %0583 K26 004640 005933 -01936 0875 0125 1000 0125 0875 0000 0000 %0584 K27 006154 002763 005233 0875 0250 0000 0125 0750 1000 0000 %0585 L19 006131 002822 003619 0875 0250 0125 0125 0750 0875 0000 %0586 L20 006061 003059 002729 0875 0250 0250 0125 0750 0750 0000 %0587 L21 006062 003144 002065 0875 0250 0375 0125 0750 0625 0000 %0588 L22 006010 003340 001383 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005981 003647 000520 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005916 004182 -00491 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005858 004331 -01475 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005381 005017 -01850 0875 0250 1000 0125 0750 0000 0000 %0593 L27 006722 001837 006144 0875 0375 0000 0125 0625 1000 0000 %0594 M19 006728 001765 004089 0875 0375 0125 0125 0625 0875 0000 %0595 M20 006680 001920 003142 0875 0375 0250 0125 0625 0750 0000 %0596 M21 006658 002077 002368 0875 0375 0375 0125 0625 0625 0000 %0597 M22 006639 002317 001608 0875 0375 0500 0125 0625 0500 0000 %0598 M23 006589 002654 000775 0875 0375 0625 0125 0625 0375 0000 %0599 M24 006495 003161 -00238 0875 0375 0750 0125 0625 0250 0000 %0600 M25 006461 003432 -01365 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006005 004049 -01838 0875 0375 1000 0125 0625 0000 0000 %0602 M27 007140 001097 006861 0875 0500 0000 0125 0500 1000 0000 %0603 N19 007233 000953 004482 0875 0500 0125 0125 0500 0875 0000 %0604 N20 007157 001062 003626 0875 0500 0250 0125 0500 0750 0000 %0605 N21 007126 001259 002738 0875 0500 0375 0125 0500 0625 0000 %0606 N22 007145 001378 002154 0875 0500 0500 0125 0500 0500 0000 %0607 N23 007088 001756 001182 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006995 002294 000022 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006960 002605 -01202 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006774 003235 -01545 0875 0500 1000 0125 0500 0000 0000 %0611 N27 007710 000295 007479 0875 0625 0000 0125 0375 1000 0000 %0612 O19 007804 000164 005226 0875 0625 0125 0125 0375 0875 0000 %0613 O20 007737 000384 004185 0875 0625 0250 0125 0375 0750 0000 %0614 O21 007708 000479 003366 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007711 000620 002622 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007608 000897 001624 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007534 001388 000441 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007484 001719 -00937 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007481 002314 -01333 0875 0625 1000 0125 0375 0000 0000 %0620 O27 008289 -00473 007928 0875 0750 0000 0125 0250 1000 0000 %0621 P19 008278 -00359 005635 0875 0750 0125 0125 0250 0875 0000 %0622 P20 008283 -00313 004759 0875 0750 0250 0125 0250 0750 0000 %0623 P21 008277 -00141 003940 0875 0750 0375 0125 0250 0625 0000 %0624 P22 008212 -00010 003141 0875 0750 0500 0125 0250 0500 0000 %0625 P23 008194 000186 002237 0875 0750 0625 0125 0250 0375 0000 %0626 P24 008136 000602 000781 0875 0750 0750 0125 0250 0250 0000 %0627 P25 008102 000931 -00764 0875 0750 0875 0125 0250 0125 0000 %0628 P26 008111 001292 -01196 0875 0750 1000 0125 0250 0000 0000 %0629 P27 008895 -01179 008503 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 008807 -01093 006530 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008810 -00988 005433 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008795 -00910 004604 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008756 -00795 003803 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008833 -00745 002880 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008842 -00470 001531 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008867 000024 -00002 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008729 000184 -01015 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 009345 -01759 009424 0875 1000 0000 0125 0000 1000 0000 %0639 R19 009152 -01659 008335 0875 1000 0125 0125 0000 0875 0000 %0640 R20 009077 -01576 006325 0875 1000 0250 0125 0000 0750 0000 %0641 R21 009030 -01722 005280 0875 1000 0375 0125 0000 0625 0000 %0642 R22 009040 -01727 004520 0875 1000 0500 0125 0000 0500 0000 %0643 R23 009135 -01694 003698 0875 1000 0625 0125 0000 0375 0000 %0644 R24 009161 -01509 002559 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009150 -01102 000818 0875 1000 0875 0125 0000 0125 0000 %0646 R26 009009 -00769 -00804 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004605 006199 004034 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004583 006172 003398 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004516 006194 002729 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004483 006284 001985 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004487 006428 001324 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004529 006633 000640 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004497 006932 -00161 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004497 007111 -00921 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004529 007115 -01242 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005225 005668 005449 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005109 005909 004798 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005019 006178 003642 1000 0125 0250 0000 0875 0750 0000 %0659 T21 004961 006436 002675 1000 0125 0375 0000 0875 0625 0000 %0660 T22 004903 006667 001942 1000 0125 0500 0000 0875 0500 0000 %0661 T23 004818 007028 001030 1000 0125 0625 0000 0875 0375 0000 %0662 T24 004853 007258 000013 1000 0125 0750 0000 0875 0250 0000 %0663 T25 004913 007469 -00811 1000 0125 0875 0000 0875 0125 0000 %0664 T26 004938 006873 -01234 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005990 004130 006046 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005874 004383 005427 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005874 004483 004301 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005743 004944 003037 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005635 005285 002254 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005635 005519 001303 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005619 005921 000195 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005779 006038 -00887 1000 0250 0875 0000 0750 0125 0000 %0673 U26 005791 005657 -01293 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006581 003010 006594 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006514 003166 005843 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006448 003375 004831 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006483 003541 003455 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006446 003792 002551 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006416 004086 001636 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006449 004365 000623 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006503 004753 -00585 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006599 004800 -01091 1000 0375 1000 0000 0625 0000 0000 %0683 V27 007158 001926 007165 1000 0500 0000 0000 0500 1000 0000 %0684 W19 007152 001970 006450 1000 0500 0125 0000 0500 0875 0000 %0685 W20 007167 002111 004972 1000 0500 0250 0000 0500 0750 0000 %0686 W21 007151 002334 003855 1000 0500 0375 0000 0500 0625 0000 %0687 W22 007198 002455 002945 1000 0500 0500 0000 0500 0500 0000 %0688 W23 007231 002677 001956 1000 0500 0625 0000 0500 0375 0000 %0689 W24 007200 003077 000880 1000 0500 0750 0000 0500 0250 0000 %0690 W25 007198 003582 -00363 1000 0500 0875 0000 0500 0125 0000 %0691 W26 007196 003847 -00974 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007588 001168 007565 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007685 001039 006841 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007726 001130 005407 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007754 001312 004190 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007797 001441 003339 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007862 001619 002322 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007871 002000 001156 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007900 002495 -00151 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007818 002907 -00846 1000 0625 1000 0000 0375 0000 0000 %0701 X27 008235 000067 007868 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 008271 000138 006496 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 008262 000289 005496 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 008259 000478 004579 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008335 000506 003984 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008375 000729 002903 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008534 000907 001662 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008429 001652 000172 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008440 002021 -00695 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008685 -00592 007391 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008743 -00595 006730 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008739 -00432 005663 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008750 -00293 004906 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008785 -00202 004281 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008839 -00091 003567 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 009109 -00202 002611 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 009072 000398 001122 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 009117 000993 -00391 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009142 -01388 008612 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009179 -01364 007777 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009182 -01185 006340 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009298 -01216 005612 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009348 -01147 004944 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009402 -01047 004191 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009569 -01109 003485 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009644 -00740 002071 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009726 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009737 -00002 000005 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009051 -00733 -00739 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008491 -01095 -01449 0750 1000 1000 0250 0000 0000 0000 %0731 b03 008009 -01431 -01943 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007472 -01736 -02469 0500 1000 1000 0500 0000 0000 0000 %0733 b05 006925 -02070 -02851 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006127 -02723 -03304 0250 1000 1000 0750 0000 0000 0000 %0735 b07 005582 -03232 -03559 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005184 -03309 -03858 0000 1000 1000 1000 0000 0000 0000 %0737 b09 009164 000327 000994 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008881 000006 000023 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008663 -00786 -00933 0750 0875 0875 0250 0125 0125 0000 %0740 c03 008284 -01251 -01429 0625 0875 0875 0375 0125 0125 0000 %0741 c04 007797 -01571 -02057 0500 0875 0875 0500 0125 0125 0000 %0742 c05 007268 -01919 -02455 0375 0875 0875 0625 0125 0125 0000 %0743 c06 006860 -02197 -02785 0250 0875 0875 0750 0125 0125 0000 %0744 c07 006273 -02510 -02992 0125 0875 0875 0875 0125 0125 0000 %0745 c08 005657 -03201 -03365 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008644 000804 001516 1000 0750 0750 0000 0250 0250 0000 %0747 d01 008250 000497 000656 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007858 000019 -00029 0750 0750 0750 0250 0250 0250 0000 %0749 d03 007655 -00718 -00844 0625 0750 0750 0375 0250 0250 0000 %0750 d04 007375 -01064 -01355 0500 0750 0750 0500 0250 0250 0000 %0751 d05 007056 -01470 -01783 0375 0750 0750 0625 0250 0250 0000 %0752 d06 006626 -01781 -02216 0250 0750 0750 0750 0250 0250 0000 %0753 d07 006240 -02004 -02460 0125 0750 0750 0875 0250 0250 0000 %0754 d08 005820 -02424 -02735 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007924 001593 002121 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007716 000853 001450 0875 0625 0625 0125 0375 0375 0000 %0757 e02 007502 000460 000425 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006959 000012 -00068 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006815 -00546 -00974 0500 0625 0625 0500 0375 0375 0000 %0760 e05 006623 -00914 -01303 0375 0625 0625 0625 0375 0375 0000 %0761 e06 006262 -01315 -01738 0250 0625 0625 0750 0375 0375 0000 %0762 e07 005818 -01559 -02114 0125 0625 0625 0875 0375 0375 0000 %0763 e08 005494 -01719 -02488 0000 0625 0625 1000 0375 0375 0000 %0764 e09 007281 002349 002796 1000 0500 0500 0000 0500 0500 0000 %0765 f01 007264 001291 002008 0875 0500 0500 0125 0500 0500 0000 %0766 f02 007038 000774 001167 0750 0500 0500 0250 0500 0500 0000 %0767 f03 006660 000391 000255 0625 0500 0500 0375 0500 0500 0000 %0768 f04 006066 000002 -00095 0500 0500 0500 0500 0500 0500 0000 %0769 f05 006022 -00526 -00871 0375 0500 0500 0625 0500 0500 0000 %0770 f06 005724 -00833 -01265 0250 0500 0500 0750 0500 0500 0000 %0771 f07 005462 -01163 -01648 0125 0500 0500 0875 0500 0500 0000 %0772 f08 005268 -01430 -01997 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006440 003604 003459 1000 0375 0375 0000 0625 0625 0000 %0774 g01 006637 002028 002364 0875 0375 0375 0125 0625 0625 0000 %0775 g02 006471 001225 001645 0750 0375 0375 0250 0625 0625 0000 %0776 g03 006168 000773 000906 0625 0375 0375 0375 0625 0625 0000 %0777 g04 005734 000320 000100 0500 0375 0375 0500 0625 0625 0000 %0778 g05 005081 000000 -00112 0375 0375 0375 0625 0625 0625 0000 %0779 g06 005068 -00511 -00893 0250 0375 0375 0750 0625 0625 0000 %0780 g07 004789 -00872 -01272 0125 0375 0375 0875 0625 0625 0000 %0781 g08 004716 -01139 -01702 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005960 004311 004405 1000 0250 0250 0000 0750 0750 0000 %0783 h01 006028 002980 002798 0875 0250 0250 0125 0750 0750 0000 %0784 h02 005937 001841 001911 0750 0250 0250 0250 0750 0750 0000 %0785 h03 005711 001107 001390 0625 0250 0250 0375 0750 0750 0000 %0786 h04 005251 000662 000588 0500 0250 0250 0500 0750 0750 0000 %0787 h05 004705 000248 000071 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003952 -00004 -00120 0250 0250 0250 0750 0750 0750 0000 %0789 h07 004092 -00265 -00762 0125 0250 0250 0875 0750 0750 0000 %0790 h08 004024 -00630 -01130 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005077 005961 004735 1000 0125 0125 0000 0875 0875 0000 %0792 i01 005510 003854 003498 0875 0125 0125 0125 0875 0875 0000 %0793 i02 005309 002672 002350 0750 0125 0125 0250 0875 0875 0000 %0794 i03 005194 001737 001665 0625 0125 0125 0375 0875 0875 0000 %0795 i04 004812 001074 001041 0500 0125 0125 0500 0875 0875 0000 %0796 i05 004415 000600 000503 0375 0125 0125 0625 0875 0875 0000 %0797 i06 003777 000291 -00014 0250 0125 0125 0750 0875 0875 0000 %0798 i07 002279 -00001 -00074 0125 0125 0125 0875 0875 0875 0000 %0799 i08 002911 -00113 -00459 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004504 006256 003955 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004768 005320 004333 0875 0000 0000 0125 1000 1000 0000 %0802 j02 004853 003288 002953 0750 0000 0000 0250 1000 1000 0000 %0803 j03 004690 002265 002222 0625 0000 0000 0375 1000 1000 0000 %0804 j04 004416 001512 001543 0500 0000 0000 0500 1000 1000 0000 %0805 j05 004044 001052 000897 0375 0000 0000 0625 1000 1000 0000 %0806 j06 003561 000458 000432 0250 0000 0000 0750 1000 1000 0000 %0807 j07 002585 000198 000082 0125 0000 0000 0875 1000 1000 0000 %0808 j08 001342 -00001 -00004 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009729 000003 -00007 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008829 000107 -00906 0875 0875 1000 0125 0125 0000 0000 %0811 b11 007889 000251 -01705 0750 0750 1000 0250 0250 0000 0000 %0812 b12 006814 000636 -02372 0625 0625 1000 0375 0375 0000 0000 %0813 b13 005625 001145 -03097 0500 0500 1000 0500 0500 0000 0000 %0814 b14 004660 001739 -03564 0375 0375 1000 0625 0625 0000 0000 %0815 b15 003801 002190 -03997 0250 0250 1000 0750 0750 0000 0000 %0816 b16 003381 002380 -04151 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003099 002456 -04326 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009661 -00562 001517 1000 1000 0875 0000 0000 0125 0000 %0819 c10 009037 000014 -00001 0875 0875 0875 0125 0125 0125 0000 %0820 c11 008106 000047 -01101 0750 0750 0875 0250 0250 0125 0000 %0821 c12 007253 000401 -01827 0625 0625 0875 0375 0375 0125 0000 %0822 c13 006387 000855 -02535 0500 0500 0875 0500 0500 0125 0000 %0823 c14 005451 001181 -03156 0375 0375 0875 0625 0625 0125 0000 %0824 c15 004520 001801 -03636 0250 0250 0875 0750 0750 0125 0000 %0825 c16 003779 002153 -03988 0125 0125 0875 0875 0875 0125 0000 %0826 c17 003423 002295 -04181 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009597 -00953 002865 1000 1000 0750 0000 0000 0250 0000 %0828 d10 009016 -00408 001278 0875 0875 0750 0125 0125 0250 0000 %0829 d11 007964 000015 -00013 0750 0750 0750 0250 0250 0250 0000 %0830 d12 007237 000083 -01067 0625 0625 0750 0375 0375 0250 0000 %0831 d13 006399 000439 -01715 0500 0500 0750 0500 0500 0250 0000 %0832 d14 005660 000567 -02192 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004998 000963 -02716 0250 0250 0750 0750 0750 0250 0000 %0834 d16 004505 001397 -03141 0125 0125 0750 0875 0875 0250 0000 %0835 d17 004001 001637 -03618 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009415 -00888 003519 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008986 -00659 002499 0875 0875 0625 0125 0125 0375 0000 %0838 e11 008107 -00415 000725 0750 0750 0625 0250 0250 0375 0000 %0839 e12 007093 000011 -00080 0625 0625 0625 0375 0375 0375 0000 %0840 e13 006379 000160 -01111 0500 0500 0625 0500 0500 0375 0000 %0841 e14 005688 000390 -01712 0375 0375 0625 0625 0625 0375 0000 %0842 e15 005023 000602 -02153 0250 0250 0625 0750 0750 0375 0000 %0843 e16 004568 000872 -02610 0125 0125 0625 0875 0875 0375 0000 %0844 e17 004060 001346 -02948 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009370 -01067 004440 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008882 -00737 003370 0875 0875 0500 0125 0125 0500 0000 %0847 f11 008130 -00567 001969 0750 0750 0500 0250 0250 0500 0000 %0848 f12 007183 -00287 000363 0625 0625 0500 0375 0375 0500 0000 %0849 f13 006145 000005 -00097 0500 0500 0500 0500 0500 0500 0000 %0850 f14 005580 000139 -01030 0375 0375 0500 0625 0625 0500 0000 %0851 f15 004937 000263 -01623 0250 0250 0500 0750 0750 0500 0000 %0852 f16 004432 000524 -02102 0125 0125 0500 0875 0875 0500 0000 %0853 f17 004014 000761 -02455 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009309 -01201 005351 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008874 -00909 004412 0875 0875 0375 0125 0125 0625 0000 %0856 g11 008091 -00736 002961 0750 0750 0375 0250 0250 0625 0000 %0857 g12 007203 -00594 001539 0625 0625 0375 0375 0375 0625 0000 %0858 g13 006136 -00257 000393 0500 0500 0375 0500 0500 0625 0000 %0859 g14 005112 000004 -00111 0375 0375 0375 0625 0625 0625 0000 %0860 g15 004703 000092 -01092 0250 0250 0375 0750 0750 0625 0000 %0861 g16 004196 000248 -01582 0125 0125 0375 0875 0875 0625 0000 %0862 g17 003835 000346 -01947 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009194 -01184 006146 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008873 -01005 005299 0875 0875 0250 0125 0125 0750 0000 %0865 h11 008071 -00862 003804 0750 0750 0250 0250 0250 0750 0000 %0866 h12 007187 -00684 002382 0625 0625 0250 0375 0375 0750 0000 %0867 h13 006166 -00564 001222 0500 0500 0250 0500 0500 0750 0000 %0868 h14 005101 -00188 000273 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003960 000007 -00092 0250 0250 0250 0750 0750 0750 0000 %0870 h16 003911 000202 -00876 0125 0125 0250 0875 0875 0750 0000 %0871 h17 003564 000248 -01290 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009188 -01366 007514 1000 1000 0125 0000 0000 0875 0000 %0873 i10 008853 -01093 006305 0875 0875 0125 0125 0125 0875 0000 %0874 i11 008050 -01013 004595 0750 0750 0125 0250 0250 0875 0000 %0875 i12 007165 -00885 003273 0625 0625 0125 0375 0375 0875 0000 %0876 i13 006164 -00651 001942 0500 0500 0125 0500 0500 0875 0000 %0877 i14 005127 -00557 000964 0375 0375 0125 0625 0625 0875 0000 %0878 i15 003913 -00070 000126 0250 0250 0125 0750 0750 0875 0000 %0879 i16 002400 000011 -00054 0125 0125 0125 0875 0875 0875 0000 %0880 i17 002810 000205 -00490 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009155 -01421 008482 1000 1000 0000 0000 0000 1000 0000 %0882 j10 008935 -01226 008485 0875 0875 0000 0125 0125 1000 0000 %0883 j11 008076 -01108 005929 0750 0750 0000 0250 0250 1000 0000 %0884 j12 007184 -00963 004238 0625 0625 0000 0375 0375 1000 0000 %0885 j13 006176 -00887 002969 0500 0500 0000 0500 0500 1000 0000 %0886 j14 005250 -00693 001795 0375 0375 0000 0625 0625 1000 0000 %0887 j15 003957 -00340 000730 0250 0250 0000 0750 0750 1000 0000 %0888 j16 002786 -00113 000261 0125 0125 0000 0875 0875 1000 0000 %0889 j17 001178 000009 000032 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009714 -00001 000002 1000 1000 1000 0000 0000 0000 0000 %0891 b19 009161 000919 -00362 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008552 001831 -00633 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007950 002687 -00775 1000 0625 1000 0000 0375 0000 0000 %0894 b22 007270 003681 -00920 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006620 004750 -01070 1000 0375 1000 0000 0625 0000 0000 %0896 b24 005808 005604 -01271 1000 0250 1000 0000 0750 0000 0000 %0897 b25 004952 006837 -01242 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004530 007073 -01258 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009161 -01022 000616 0875 1000 0875 0125 0000 0125 0000 %0900 c19 009006 000010 000011 0875 0875 0875 0125 0125 0125 0000 %0901 c20 008273 000779 -00767 0875 0750 0875 0125 0250 0125 0000 %0902 c21 007677 001626 -00912 0875 0625 0875 0125 0375 0125 0000 %0903 c22 007118 002475 -01147 0875 0500 0875 0125 0500 0125 0000 %0904 c23 006525 003317 -01307 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005835 004352 -01445 0875 0250 0875 0125 0750 0125 0000 %0906 c25 005227 005218 -01546 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004543 006332 -01622 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008763 -01689 001273 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008589 -01081 000557 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007957 000022 -00029 0750 0750 0750 0250 0250 0250 0000 %0911 d21 007410 000677 -00725 0750 0625 0750 0250 0375 0250 0000 %0912 d22 006825 001512 -00904 0750 0500 0750 0250 0500 0250 0000 %0913 d23 006286 002281 -01054 0750 0375 0750 0250 0625 0250 0000 %0914 d24 005743 002988 -01197 0750 0250 0750 0250 0750 0250 0000 %0915 d25 005223 003811 -01250 0750 0125 0750 0250 0875 0250 0000 %0916 d26 004601 004676 -01402 0750 0000 0750 0250 1000 0250 0000 %0917 d27 008238 -02308 001551 0625 1000 0625 0375 0000 0375 0000 %0918 e19 008219 -01815 001223 0625 0875 0625 0375 0125 0375 0000 %0919 e20 007690 -00865 000353 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006991 000018 -00071 0625 0625 0625 0375 0375 0375 0000 %0921 e22 006470 000612 -00805 0625 0500 0625 0375 0500 0375 0000 %0922 e23 005922 001329 -00938 0625 0375 0625 0375 0625 0375 0000 %0923 e24 005447 002005 -01037 0625 0250 0625 0375 0750 0375 0000 %0924 e25 005003 002611 -01146 0625 0125 0625 0375 0875 0375 0000 %0925 e26 004532 003329 -01150 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007655 -03006 001706 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007734 -02448 001374 0500 0875 0500 0500 0125 0500 0000 %0928 f20 007336 -01567 000821 0500 0750 0500 0500 0250 0500 0000 %0929 f21 006790 -00821 000163 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005997 000008 -00084 0500 0500 0500 0500 0500 0500 0000 %0931 f23 005516 000579 -00708 0500 0375 0500 0500 0625 0500 0000 %0932 f24 005048 001187 -00868 0500 0250 0500 0500 0750 0500 0000 %0933 f25 004600 001841 -00974 0500 0125 0500 0500 0875 0500 0000 %0934 f26 004261 002430 -01067 0500 0000 0500 0500 1000 0500 0000 %0935 f27 006997 -03903 002170 0375 1000 0375 0625 0000 0625 0000 %0936 g19 007306 -03332 001779 0375 0875 0375 0625 0125 0625 0000 %0937 g20 006919 -02198 001102 0375 0750 0375 0625 0250 0625 0000 %0938 g21 006460 -01448 000680 0375 0625 0375 0625 0375 0625 0000 %0939 g22 005777 -00639 000176 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004910 000002 -00096 0375 0375 0375 0625 0625 0625 0000 %0941 g24 004535 000435 -00589 0375 0250 0375 0625 0750 0625 0000 %0942 g25 004060 001022 -00797 0375 0125 0375 0625 0875 0625 0000 %0943 g26 003787 001594 -00879 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006442 -04868 002711 0250 1000 0250 0750 0000 0750 0000 %0945 h19 006939 -03946 002116 0250 0875 0250 0750 0125 0750 0000 %0946 h20 006455 -02885 001391 0250 0750 0250 0750 0250 0750 0000 %0947 h21 006027 -02122 000861 0250 0625 0250 0750 0375 0750 0000 %0948 h22 005468 -01316 000521 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004724 -00464 -00004 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003651 000000 -00097 0250 0250 0250 0750 0750 0750 0000 %0951 h25 003441 000403 -00458 0250 0125 0250 0750 0875 0750 0000 %0952 h26 003367 000745 -00578 0250 0000 0250 0750 1000 0750 0000 %0953 h27 005886 -05915 003151 0125 1000 0125 0875 0000 0875 0000 %0954 i19 006487 -04796 002607 0125 0875 0125 0875 0125 0875 0000 %0955 i20 006029 -03442 001643 0125 0750 0125 0875 0250 0875 0000 %0956 i21 005675 -02633 001151 0125 0625 0125 0875 0375 0875 0000 %0957 i22 005112 -01898 000704 0125 0500 0125 0875 0500 0875 0000 %0958 i23 004525 -01127 000353 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003607 -00333 000013 0125 0250 0125 0875 0750 0875 0000 %0960 i25 002087 -00007 -00049 0125 0125 0125 0875 0875 0875 0000 %0961 i26 002348 000290 -00248 0125 0000 0125 0875 1000 0875 0000 %0962 i27 005636 -06447 003536 0000 1000 0000 1000 0000 1000 0000 %0963 j19 005954 -05850 003269 0000 0875 0000 1000 0125 1000 0000 %0964 j20 005676 -04068 002113 0000 0750 0000 1000 0250 1000 0000 %0965 j21 005324 -03189 001524 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004805 -02434 001055 0000 0500 0000 1000 0500 1000 0000 %0967 j23 004333 -01508 000656 0000 0375 0000 1000 0625 1000 0000 %0968 j24 003541 -00707 000192 0000 0250 0000 1000 0750 1000 0000 %0969 j25 002572 -00241 000134 0000 0125 0000 1000 0875 1000 0000 %0970 j26 001200 -00007 -00028 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa0100 [ %BEG GE23_22_REM.TXT, Separation cmyn4*, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004605 006199 004034 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009142 -01388 008612 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z005661 -06435 003511 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005184 -03318 -03908 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003176 002360 -04233 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004529 007115 -01242 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z001346 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009726 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004504 006256 003955 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 009155 -01421 008482 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 005636 -06447 003536 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005184 -03309 -03858 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003099 002456 -04326 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004530 007073 -01258 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 001240 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009727 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def /FileData1Na (GG93_HRS16_96_D65_00%_G1) def /LUT_LAB1 [ %GE730-7A, Page 7 /24, %BEG GE63_22.TXT, Separation cmyn4*, cf1=0.90, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE63_22.TXT, Separation cmyn4*, cf1=0.90, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 001266 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 002258 000134 -00322 0000 0000 0125 1000 1000 0875 0000 %0001 A02 002548 000230 -00548 0000 0000 0250 1000 1000 0750 0000 %0002 A03 003268 000291 -01330 0000 0000 0375 1000 1000 0625 0000 %0003 A04 003347 000302 -01322 0000 0000 0500 1000 1000 0500 0000 %0004 A05 004123 001188 -02144 0000 0000 0625 1000 1000 0375 0000 %0005 A06 004095 001273 -02967 0000 0000 0750 1000 1000 0250 0000 %0006 A07 003772 002261 -04169 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003398 002602 -04282 0000 0000 1000 1000 1000 0000 0000 %0008 A09 002449 -00112 000288 0000 0125 0000 1000 0875 1000 0000 %0009 B01 002123 -00001 -00018 0000 0125 0125 1000 0875 0875 0000 %0010 B02 002560 000229 -00560 0000 0125 0250 1000 0875 0750 0000 %0011 B03 003257 000294 -01364 0000 0125 0375 1000 0875 0625 0000 %0012 B04 003356 000285 -01356 0000 0125 0500 1000 0875 0500 0000 %0013 B05 003785 000371 -02039 0000 0125 0625 1000 0875 0375 0000 %0014 B06 004114 001255 -02991 0000 0125 0750 1000 0875 0250 0000 %0015 B07 004138 001276 -02968 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003668 001702 -04453 0000 0125 1000 1000 0875 0000 0000 %0017 B09 002989 -00276 000404 0000 0250 0000 1000 0750 1000 0000 %0018 C01 002597 -00238 000149 0000 0250 0125 1000 0750 0875 0000 %0019 C02 002445 -00047 -00200 0000 0250 0250 1000 0750 0750 0000 %0020 C03 003530 -00183 -01257 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003416 000250 -01379 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003788 000307 -02067 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003984 000480 -02256 0000 0250 0750 1000 0750 0250 0000 %0024 C07 004441 000573 -03529 0000 0250 0875 1000 0750 0125 0000 %0025 C08 004330 001040 -04259 0000 0250 1000 1000 0750 0000 0000 %0026 C09 004280 -01497 000481 0000 0375 0000 1000 0625 1000 0000 %0027 D01 003697 -00787 000166 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003779 -00727 -00381 0000 0375 0250 1000 0625 0750 0000 %0029 D03 003745 -00615 -01176 0000 0375 0375 1000 0625 0625 0000 %0030 D04 004026 -00705 -01355 0000 0375 0500 1000 0625 0500 0000 %0031 D05 004045 -00135 -01919 0000 0375 0625 1000 0625 0375 0000 %0032 D06 004406 000052 -02422 0000 0375 0750 1000 0625 0250 0000 %0033 D07 004687 -00186 -03445 0000 0375 0875 1000 0625 0125 0000 %0034 D08 004626 000146 -04406 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004763 -02472 000938 0000 0500 0000 1000 0500 1000 0000 %0036 E01 004825 -02250 000168 0000 0500 0125 1000 0500 0875 0000 %0037 E02 004361 -01478 -00253 0000 0500 0250 1000 0500 0750 0000 %0038 E03 004249 -01277 -01140 0000 0500 0375 1000 0500 0625 0000 %0039 E04 003973 -00776 -01082 0000 0500 0500 1000 0500 0500 0000 %0040 E05 004370 -00675 -01885 0000 0500 0625 1000 0500 0375 0000 %0041 E06 004649 -00495 -02407 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004623 -00140 -03502 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004675 -00140 -03465 0000 0500 1000 1000 0500 0000 0000 %0044 E09 005214 -03305 001531 0000 0625 0000 1000 0375 1000 0000 %0045 F01 004763 -02501 000907 0000 0625 0125 1000 0375 0875 0000 %0046 F02 004878 -02286 000173 0000 0625 0250 1000 0375 0750 0000 %0047 F03 004736 -01817 -00875 0000 0625 0375 1000 0375 0625 0000 %0048 F04 004366 -01344 -01176 0000 0625 0500 1000 0375 0500 0000 %0049 F05 004687 -01175 -01774 0000 0625 0625 1000 0375 0375 0000 %0050 F06 004962 -01019 -02249 0000 0625 0750 1000 0375 0250 0000 %0051 F07 004961 -00846 -03339 0000 0625 0875 1000 0375 0125 0000 %0052 F08 004956 -00802 -03404 0000 0625 1000 1000 0375 0000 0000 %0053 F09 005513 -04246 002121 0000 0750 0000 1000 0250 1000 0000 %0054 G01 005191 -03205 000702 0000 0750 0125 1000 0250 0875 0000 %0055 G02 005008 -02586 000316 0000 0750 0250 1000 0250 0750 0000 %0056 G03 005027 -02259 -00472 0000 0750 0375 1000 0250 0625 0000 %0057 G04 005103 -01852 -01383 0000 0750 0500 1000 0250 0500 0000 %0058 G05 005174 -01794 -01402 0000 0750 0625 1000 0250 0375 0000 %0059 G06 005438 -01821 -02544 0000 0750 0750 1000 0250 0250 0000 %0060 G07 005249 -01346 -03276 0000 0750 0875 1000 0250 0125 0000 %0061 G08 004995 -01404 -04318 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005877 -05983 002407 0000 0875 0000 1000 0125 1000 0000 %0063 H01 005565 -04201 001364 0000 0875 0125 1000 0125 0875 0000 %0064 H02 005635 -03894 000420 0000 0875 0250 1000 0125 0750 0000 %0065 H03 005775 -03571 -00471 0000 0875 0375 1000 0125 0625 0000 %0066 H04 005834 -03149 -01279 0000 0875 0500 1000 0125 0500 0000 %0067 H05 005816 -02730 -02248 0000 0875 0625 1000 0125 0375 0000 %0068 H06 005647 -02286 -02321 0000 0875 0750 1000 0125 0250 0000 %0069 H07 005468 -02798 -03720 0000 0875 0875 1000 0125 0125 0000 %0070 H08 005287 -01987 -04114 0000 0875 1000 1000 0125 0000 0000 %0071 H09 005830 -06354 003360 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005715 -04610 001532 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005952 -05537 001103 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005984 -05075 000056 0000 1000 0375 1000 0000 0625 0000 %0075 I04 005985 -04500 -01108 0000 1000 0500 1000 0000 0500 0000 %0076 I05 005989 -04181 -01618 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005916 -03854 -02408 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005800 -02673 -02837 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005483 -02802 -03685 0000 1000 1000 1000 0000 0000 0000 %0080 I09 002237 000148 000191 0125 0000 0000 0875 1000 1000 0000 %0081 J01 002375 000321 -00259 0125 0000 0125 0875 1000 0875 0000 %0082 J02 002448 000337 -00279 0125 0000 0250 0875 1000 0750 0000 %0083 J03 002888 000264 -01009 0125 0000 0375 0875 1000 0625 0000 %0084 J04 003719 000625 -01251 0125 0000 0500 0875 1000 0500 0000 %0085 J05 004038 001180 -02241 0125 0000 0625 0875 1000 0375 0000 %0086 J06 003920 002265 -03437 0125 0000 0750 0875 1000 0250 0000 %0087 J07 003960 002253 -03394 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003803 002945 -03847 0125 0000 1000 0875 1000 0000 0000 %0089 J09 002398 -00112 000281 0125 0125 0000 0875 0875 1000 0000 %0090 K01 002490 000000 -00018 0125 0125 0125 0875 0875 0875 0000 %0091 K02 002910 000344 -00512 0125 0125 0250 0875 0875 0750 0000 %0092 K03 003190 000391 -01104 0125 0125 0375 0875 0875 0625 0000 %0093 K04 003487 000366 -01509 0125 0125 0500 0875 0875 0500 0000 %0094 K05 004130 001124 -02177 0125 0125 0625 0875 0875 0375 0000 %0095 K06 004112 001160 -02193 0125 0125 0750 0875 0875 0250 0000 %0096 K07 004143 001735 -02746 0125 0125 0875 0875 0875 0125 0000 %0097 K08 004005 001949 -03527 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003727 -00343 000805 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003026 -00303 000138 0125 0250 0125 0875 0750 0875 0000 %0100 L02 002905 -00216 -00391 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003349 -00137 -01071 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003558 000105 -01506 0125 0250 0500 0875 0750 0500 0000 %0103 L05 003778 000441 -02004 0125 0250 0625 0875 0750 0375 0000 %0104 L06 004083 000663 -02416 0125 0250 0750 0875 0750 0250 0000 %0105 L07 004181 001156 -02879 0125 0250 0875 0875 0750 0125 0000 %0106 L08 004293 001185 -03474 0125 0250 1000 0875 0750 0000 0000 %0107 L09 004562 -01229 000986 0125 0375 0000 0875 0625 1000 0000 %0108 M01 003949 -01060 000333 0125 0375 0125 0875 0625 0875 0000 %0109 M02 003767 -00720 -00365 0125 0375 0250 0875 0625 0750 0000 %0110 M03 003771 -00598 -01159 0125 0375 0375 0875 0625 0625 0000 %0111 M04 003850 -00278 -01457 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004055 -00125 -01928 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004358 -00015 -02300 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004537 000389 -02905 0125 0375 0875 0875 0625 0125 0000 %0115 M08 004586 000498 -03448 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004760 -02407 000919 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004720 -02442 000906 0125 0500 0125 0875 0500 0875 0000 %0118 N02 004373 -01433 -00173 0125 0500 0250 0875 0500 0750 0000 %0119 N03 004173 -01149 -00474 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004234 -01079 -01178 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004395 -00680 -01865 0125 0500 0625 0875 0500 0375 0000 %0122 N06 004684 -00487 -02388 0125 0500 0750 0875 0500 0250 0000 %0123 N07 004769 -00319 -02880 0125 0500 0875 0875 0500 0125 0000 %0124 N08 004807 000002 -03379 0125 0500 1000 0875 0500 0000 0000 %0125 N09 005523 -02992 001975 0125 0625 0000 0875 0375 1000 0000 %0126 O01 004781 -02566 000964 0125 0625 0125 0875 0375 0875 0000 %0127 O02 004867 -02258 000202 0125 0625 0250 0875 0375 0750 0000 %0128 O03 004616 -01932 -00315 0125 0625 0375 0875 0375 0625 0000 %0129 O04 004707 -01664 -00920 0125 0625 0500 0875 0375 0500 0000 %0130 O05 004799 -01163 -01774 0125 0625 0625 0875 0375 0375 0000 %0131 O06 004952 -00996 -02250 0125 0625 0750 0875 0375 0250 0000 %0132 O07 004833 -00620 -02891 0125 0625 0875 0875 0375 0125 0000 %0133 O08 004993 -00626 -03385 0125 0625 1000 0875 0375 0000 0000 %0134 O09 005868 -03763 002541 0125 0750 0000 0875 0250 1000 0000 %0135 P01 005294 -03410 001532 0125 0750 0125 0875 0250 0875 0000 %0136 P02 005190 -02847 000506 0125 0750 0250 0875 0250 0750 0000 %0137 P03 005173 -02470 -00097 0125 0750 0375 0875 0250 0625 0000 %0138 P04 005177 -02098 -00662 0125 0750 0500 0875 0250 0500 0000 %0139 P05 005211 -01843 -01341 0125 0750 0625 0875 0250 0375 0000 %0140 P06 005185 -01492 -02081 0125 0750 0750 0875 0250 0250 0000 %0141 P07 005221 -01336 -02786 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005165 -01039 -03285 0125 0750 1000 0875 0250 0000 0000 %0143 P09 005872 -03996 002711 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 005520 -04474 002239 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 005512 -03836 001070 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 005487 -03259 -00057 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 005542 -02883 -00577 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 005612 -02537 -01155 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 005582 -02230 -01887 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 005578 -01966 -02479 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005463 -01802 -03231 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 006249 -05602 003776 0125 1000 0000 0875 0000 1000 0000 %0153 R01 005963 -05336 002530 0125 1000 0125 0875 0000 0875 0000 %0154 R02 005949 -04523 001302 0125 1000 0250 0875 0000 0750 0000 %0155 R03 005910 -04180 000357 0125 1000 0375 0875 0000 0625 0000 %0156 R04 005892 -03840 -00503 0125 1000 0500 0875 0000 0500 0000 %0157 R05 005987 -03552 -01014 0125 1000 0625 0875 0000 0375 0000 %0158 R06 005918 -03263 -01670 0125 1000 0750 0875 0000 0250 0000 %0159 R07 005860 -02794 -02482 0125 1000 0875 0875 0000 0125 0000 %0160 R08 005885 -02478 -03181 0125 1000 1000 0875 0000 0000 0000 %0161 R09 002836 000309 000307 0250 0000 0000 0750 1000 1000 0000 %0162 S01 003173 000583 -00142 0250 0000 0125 0750 1000 0875 0000 %0163 S02 002844 000439 -00206 0250 0000 0250 0750 1000 0750 0000 %0164 S03 003522 000520 -00872 0250 0000 0375 0750 1000 0625 0000 %0165 S04 003981 001195 -01265 0250 0000 0500 0750 1000 0500 0000 %0166 S05 004189 002194 -02366 0250 0000 0625 0750 1000 0375 0000 %0167 S06 004042 002768 -03000 0250 0000 0750 0750 1000 0250 0000 %0168 S07 004064 002737 -02976 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003825 002942 -03786 0250 0000 1000 0750 1000 0000 0000 %0170 S09 003259 000447 000533 0250 0125 0000 0750 0875 1000 0000 %0171 T01 003028 000368 000392 0250 0125 0125 0750 0875 0875 0000 %0172 T02 003156 000580 -00224 0250 0125 0250 0750 0875 0750 0000 %0173 T03 003262 000610 -00744 0250 0125 0375 0750 0875 0625 0000 %0174 T04 003778 001011 -00991 0250 0125 0500 0750 0875 0500 0000 %0175 T05 004114 001302 -01477 0250 0125 0625 0750 0875 0375 0000 %0176 T06 004135 001261 -02183 0250 0125 0750 0750 0875 0250 0000 %0177 T07 004213 001598 -02668 0250 0125 0875 0750 0875 0125 0000 %0178 T08 004304 002226 -03195 0250 0125 1000 0750 0875 0000 0000 %0179 T09 004053 -00368 001077 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003686 -00341 000796 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003483 000002 -00034 0250 0250 0250 0750 0750 0750 0000 %0182 U03 003988 000246 -00488 0250 0250 0375 0750 0750 0625 0000 %0183 U04 004093 000456 -01025 0250 0250 0500 0750 0750 0500 0000 %0184 U05 004259 000783 -01520 0250 0250 0625 0750 0750 0375 0000 %0185 U06 004449 001079 -02049 0250 0250 0750 0750 0750 0250 0000 %0186 U07 004661 001184 -02424 0250 0250 0875 0750 0750 0125 0000 %0187 U08 005029 001458 -02853 0250 0250 1000 0750 0750 0000 0000 %0188 U09 004667 -00850 001408 0250 0375 0000 0750 0625 1000 0000 %0189 V01 004633 -00802 001370 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004200 -00706 000251 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004140 -00313 -00561 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004500 -00107 -01055 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004516 000057 -01562 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004650 000454 -02018 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004787 000720 -02523 0250 0375 0875 0750 0625 0125 0000 %0196 V08 005183 000865 -02822 0250 0375 1000 0750 0625 0000 0000 %0197 V09 005173 -01151 001773 0250 0500 0000 0750 0500 1000 0000 %0198 W01 004611 -01195 000956 0250 0500 0125 0750 0500 0875 0000 %0199 W02 004636 -01426 000686 0250 0500 0250 0750 0500 0750 0000 %0200 W03 004655 -01007 -00344 0250 0500 0375 0750 0500 0625 0000 %0201 W04 004531 -00734 -01092 0250 0500 0500 0750 0500 0500 0000 %0202 W05 004731 -00405 -01513 0250 0500 0625 0750 0500 0375 0000 %0203 W06 004853 -00216 -02026 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005009 000087 -02533 0250 0500 0875 0750 0500 0125 0000 %0205 W08 005324 000358 -02777 0250 0500 1000 0750 0500 0000 0000 %0206 W09 005557 -02833 002122 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005183 -01982 001524 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005055 -02275 001106 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005047 -01779 -00067 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005059 -01500 -00776 0250 0625 0500 0750 0375 0500 0000 %0211 X05 004979 -01095 -01510 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005101 -00780 -02066 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005238 -00511 -02394 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005479 -00227 -02775 0250 0625 1000 0750 0375 0000 0000 %0215 X09 005886 -03686 002538 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 005484 -02934 001882 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 005515 -02897 001442 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 005488 -02386 000215 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 005453 -01967 -00510 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 005538 -01739 -01198 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 005391 -01492 -01810 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 005579 -01127 -02262 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 005732 -00760 -02836 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 005855 -03861 002572 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 005852 -03857 002515 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 005986 -03561 001651 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 005925 -03151 000444 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 005884 -02714 -00408 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 005931 -02382 -01022 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 005822 -02031 -01827 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 005814 -01820 -02382 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 005973 -01422 -02885 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006532 -05190 004352 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006307 -04746 003050 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006488 -04527 002280 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006379 -03873 000905 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006282 -03371 -00080 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006273 -03064 -00699 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006241 -02883 -01335 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006249 -02592 -02133 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006337 -02288 -02825 0250 1000 1000 0750 0000 0000 0000 %0242 a09 003928 000851 000692 0375 0000 0000 0625 1000 1000 0000 %0243 A10 003932 001110 000109 0375 0000 0125 0625 1000 0875 0000 %0244 A11 003812 001043 -00028 0375 0000 0250 0625 1000 0750 0000 %0245 A12 004157 001474 -00311 0375 0000 0375 0625 1000 0625 0000 %0246 A13 004219 001612 -00935 0375 0000 0500 0625 1000 0500 0000 %0247 A14 004290 002808 -01959 0375 0000 0625 0625 1000 0375 0000 %0248 A15 004244 002880 -01990 0375 0000 0750 0625 1000 0250 0000 %0249 A16 004153 003264 -02514 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003914 003638 -03513 0375 0000 1000 0625 1000 0000 0000 %0251 A18 004033 000833 000755 0375 0125 0000 0625 0875 1000 0000 %0252 B10 004013 000776 000725 0375 0125 0125 0625 0875 0875 0000 %0253 B11 003925 001075 000072 0375 0125 0250 0625 0875 0750 0000 %0254 B12 003934 000992 -00552 0375 0125 0375 0625 0875 0625 0000 %0255 B13 004160 001310 -01100 0375 0125 0500 0625 0875 0500 0000 %0256 B14 004298 001664 -01042 0375 0125 0625 0625 0875 0375 0000 %0257 B15 004137 002305 -02412 0375 0125 0750 0625 0875 0250 0000 %0258 B16 004171 002390 -02455 0375 0125 0875 0625 0875 0125 0000 %0259 B17 004318 002722 -02981 0375 0125 1000 0625 0875 0000 0000 %0260 B18 004601 000329 001358 0375 0250 0000 0625 0750 1000 0000 %0261 C10 004063 000765 000798 0375 0250 0125 0625 0750 0875 0000 %0262 C11 004126 000676 000461 0375 0250 0250 0625 0750 0750 0000 %0263 C12 004130 000749 -00102 0375 0250 0375 0625 0750 0625 0000 %0264 C13 004140 000860 -00815 0375 0250 0500 0625 0750 0500 0000 %0265 C14 004408 001135 -01302 0375 0250 0625 0625 0750 0375 0000 %0266 C15 004529 001653 -01827 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004667 001800 -02302 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004996 002085 -02679 0375 0250 1000 0625 0750 0000 0000 %0269 C18 005070 -00772 001515 0375 0375 0000 0625 0625 1000 0000 %0270 D10 004955 -00121 001457 0375 0375 0125 0625 0625 0875 0000 %0271 D11 004655 -00269 000960 0375 0375 0250 0625 0625 0750 0000 %0272 D12 004580 000003 -00041 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004809 000261 -00469 0375 0375 0500 0625 0625 0500 0000 %0274 D14 005008 000530 -01009 0375 0375 0625 0625 0625 0375 0000 %0275 D15 005264 000782 -01452 0375 0375 0750 0625 0625 0250 0000 %0276 D16 005429 001131 -01918 0375 0375 0875 0625 0625 0125 0000 %0277 D17 005615 001187 -02391 0375 0375 1000 0625 0625 0000 0000 %0278 D18 005767 -01612 001932 0375 0500 0000 0625 0500 1000 0000 %0279 E10 005299 -01047 001501 0375 0500 0125 0625 0500 0875 0000 %0280 E11 005322 -00967 001130 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005270 -00731 000142 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005106 -00360 -00586 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005384 -00087 -01171 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005471 000122 -01503 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005639 000360 -01952 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005862 000646 -02327 0375 0500 1000 0625 0500 0000 0000 %0287 E18 006085 -02324 002534 0375 0625 0000 0625 0375 1000 0000 %0288 F10 005769 -01629 001911 0375 0625 0125 0625 0375 0875 0000 %0289 F11 005647 -01617 001309 0375 0625 0250 0625 0375 0750 0000 %0290 F12 005701 -01422 000600 0375 0625 0375 0625 0375 0625 0000 %0291 F13 005632 -01005 -00395 0375 0625 0500 0625 0375 0500 0000 %0292 F14 005554 -00847 -00965 0375 0625 0625 0625 0375 0375 0000 %0293 F15 005667 -00447 -01538 0375 0625 0750 0625 0375 0250 0000 %0294 F16 005797 -00142 -02047 0375 0625 0875 0625 0375 0125 0000 %0295 F17 006066 000011 -02271 0375 0625 1000 0625 0375 0000 0000 %0296 F18 006439 -03194 002978 0375 0750 0000 0625 0250 1000 0000 %0297 G10 006106 -02374 002467 0375 0750 0125 0625 0250 0875 0000 %0298 G11 005964 -02545 001736 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006115 -02231 000832 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006007 -01750 -00130 0375 0750 0500 0625 0250 0500 0000 %0301 G14 005937 -01467 -00850 0375 0750 0625 0625 0250 0375 0000 %0302 G15 005871 -01155 -01496 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006035 -00729 -01932 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006273 -00419 -02237 0375 0750 1000 0625 0250 0000 0000 %0305 G18 006984 -02844 004160 0375 0875 0000 0625 0125 1000 0000 %0306 H10 006433 -03294 003023 0375 0875 0125 0625 0125 0875 0000 %0307 H11 006407 -03229 002165 0375 0875 0250 0625 0125 0750 0000 %0308 H12 006447 -02989 001259 0375 0875 0375 0625 0125 0625 0000 %0309 H13 006417 -02535 000173 0375 0875 0500 0625 0125 0500 0000 %0310 H14 006435 -02237 -00453 0375 0875 0625 0625 0125 0375 0000 %0311 H15 006305 -01875 -01272 0375 0875 0750 0625 0125 0250 0000 %0312 H16 006294 -01591 -01798 0375 0875 0875 0625 0125 0125 0000 %0313 H17 006447 -01049 -02349 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006912 -04547 004708 0375 1000 0000 0625 0000 1000 0000 %0315 I10 006835 -03902 003413 0375 1000 0125 0625 0000 0875 0000 %0316 I11 006880 -03867 002680 0375 1000 0250 0625 0000 0750 0000 %0317 I12 006973 -03655 001756 0375 1000 0375 0625 0000 0625 0000 %0318 I13 006882 -03105 000442 0375 1000 0500 0625 0000 0500 0000 %0319 I14 006810 -02798 -00173 0375 1000 0625 0625 0000 0375 0000 %0320 I15 006723 -02479 -00938 0375 1000 0750 0625 0000 0250 0000 %0321 I16 006733 -02148 -01592 0375 1000 0875 0625 0000 0125 0000 %0322 I17 006806 -01853 -02303 0375 1000 1000 0625 0000 0000 0000 %0323 I18 004751 002496 001586 0500 0000 0000 0500 1000 1000 0000 %0324 J10 004784 002690 000805 0500 0000 0125 0500 1000 0875 0000 %0325 J11 004762 002711 000786 0500 0000 0250 0500 1000 0750 0000 %0326 J12 004821 003005 000037 0500 0000 0375 0500 1000 0625 0000 %0327 J13 004573 003126 -01576 0500 0000 0500 0500 1000 0500 0000 %0328 J14 004570 003113 -01571 0500 0000 0625 0500 1000 0375 0000 %0329 J15 004377 003718 -02092 0500 0000 0750 0500 1000 0250 0000 %0330 J16 004344 003788 -02060 0500 0000 0875 0500 1000 0125 0000 %0331 J17 004120 003450 -02644 0500 0000 1000 0500 1000 0000 0000 %0332 J18 004780 002357 002162 0500 0125 0000 0500 0875 1000 0000 %0333 K10 004584 001534 001568 0500 0125 0125 0500 0875 0875 0000 %0334 K11 004384 001507 000572 0500 0125 0250 0500 0875 0750 0000 %0335 K12 004558 001956 000180 0500 0125 0375 0500 0875 0625 0000 %0336 K13 004370 001879 -00776 0500 0125 0500 0500 0875 0500 0000 %0337 K14 004461 002117 -01482 0500 0125 0625 0500 0875 0375 0000 %0338 K15 004285 002882 -02016 0500 0125 0750 0500 0875 0250 0000 %0339 K16 004260 002907 -02137 0500 0125 0875 0500 0875 0125 0000 %0340 K17 004478 003038 -02541 0500 0125 1000 0500 0875 0000 0000 %0341 K18 005331 001478 002535 0500 0250 0000 0500 0750 1000 0000 %0342 L10 004584 001484 001601 0500 0250 0125 0500 0750 0875 0000 %0343 L11 004445 001307 001014 0500 0250 0250 0500 0750 0750 0000 %0344 L12 004447 001452 000401 0500 0250 0375 0500 0750 0625 0000 %0345 L13 004372 001620 -00255 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004467 001663 -00871 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004668 001891 -01392 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004828 002305 -01882 0500 0250 0875 0500 0750 0125 0000 %0349 L17 005114 002340 -02272 0500 0250 1000 0500 0750 0000 0000 %0350 L18 005807 000841 002924 0500 0375 0000 0500 0625 1000 0000 %0351 M10 004984 000886 001867 0500 0375 0125 0500 0625 0875 0000 %0352 M11 004823 000675 001329 0500 0375 0250 0500 0625 0750 0000 %0353 M12 004960 000706 000431 0500 0375 0375 0500 0625 0625 0000 %0354 M13 004925 000816 -00073 0500 0375 0500 0500 0625 0500 0000 %0355 M14 005072 000948 -00705 0500 0375 0625 0500 0625 0375 0000 %0356 M15 005326 001221 -01228 0500 0375 0750 0500 0625 0250 0000 %0357 M16 005548 001492 -01665 0500 0375 0875 0500 0625 0125 0000 %0358 M17 005714 001712 -02032 0500 0375 1000 0500 0625 0000 0000 %0359 M18 006349 -00882 003016 0500 0500 0000 0500 0500 1000 0000 %0360 N10 006033 -00405 002740 0500 0500 0125 0500 0500 0875 0000 %0361 N11 005335 -00337 001882 0500 0500 0250 0500 0500 0750 0000 %0362 N12 005428 -00205 000994 0500 0500 0375 0500 0500 0625 0000 %0363 N13 005413 000016 -00076 0500 0500 0500 0500 0500 0500 0000 %0364 N14 005730 000204 -00457 0500 0500 0625 0500 0500 0375 0000 %0365 N15 005945 000484 -01014 0500 0500 0750 0500 0500 0250 0000 %0366 N16 006220 000778 -01443 0500 0500 0875 0500 0500 0125 0000 %0367 N17 006348 001068 -01801 0500 0500 1000 0500 0500 0000 0000 %0368 N18 006951 -01368 003869 0500 0625 0000 0500 0375 1000 0000 %0369 O10 006021 -01145 002555 0500 0625 0125 0500 0375 0875 0000 %0370 O11 005778 -01119 002263 0500 0625 0250 0500 0375 0750 0000 %0371 O12 005811 -00899 001244 0500 0625 0375 0500 0375 0625 0000 %0372 O13 005995 -00741 000302 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006036 -00365 -00494 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006281 -00141 -01038 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006464 000164 -01472 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006602 000426 -01845 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006913 -02477 003855 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006489 -01744 002988 0500 0750 0125 0500 0250 0875 0000 %0379 P11 006202 -01886 002414 0500 0750 0250 0500 0250 0750 0000 %0380 P12 006295 -01584 001511 0500 0750 0375 0500 0250 0625 0000 %0381 P13 006487 -01453 000763 0500 0750 0500 0500 0250 0500 0000 %0382 P14 006450 -01056 -00277 0500 0750 0625 0500 0250 0375 0000 %0383 P15 006372 -00677 -01080 0500 0750 0750 0500 0250 0250 0000 %0384 P16 006602 -00376 -01395 0500 0750 0875 0500 0250 0125 0000 %0385 P17 006781 -00052 -01818 0500 0750 1000 0500 0250 0000 0000 %0386 P18 006950 -02790 004223 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 006917 -02710 004135 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 006716 -02751 002914 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 006767 -02556 002052 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 006944 -02287 001215 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 006887 -01763 -00005 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 006840 -01434 -00761 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 006803 -01041 -01528 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 006972 -00662 -01850 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 007046 -03870 005330 0500 1000 0000 0500 0000 1000 0000 %0396 R10 007166 -03625 004065 0500 1000 0125 0500 0000 0875 0000 %0397 R11 007189 -03479 003228 0500 1000 0250 0500 0000 0750 0000 %0398 R12 007278 -03203 002340 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007403 -03042 001445 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007438 -02450 000440 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007318 -02097 -00387 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007288 -01827 -00988 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007394 -01555 -01726 0500 1000 1000 0500 0000 0000 0000 %0404 R18 004905 003495 002170 0625 0000 0000 0375 1000 1000 0000 %0405 S10 004885 003673 001514 0625 0000 0125 0375 1000 0875 0000 %0406 S11 004897 003897 000699 0625 0000 0250 0375 1000 0750 0000 %0407 S12 004848 003901 000732 0625 0000 0375 0375 1000 0625 0000 %0408 S13 004922 004165 000019 0625 0000 0500 0375 1000 0500 0000 %0409 S14 004893 004397 -00545 0625 0000 0625 0375 1000 0375 0000 %0410 S15 004622 004124 -01745 0625 0000 0750 0375 1000 0250 0000 %0411 S16 004363 003736 -02098 0625 0000 0875 0375 1000 0125 0000 %0412 S17 004218 003966 -02349 0625 0000 1000 0375 1000 0000 0000 %0413 S18 004834 002285 002203 0625 0125 0000 0375 0875 1000 0000 %0414 T10 004843 002434 001544 0625 0125 0125 0375 0875 0875 0000 %0415 T11 004755 002723 000750 0625 0125 0250 0375 0875 0750 0000 %0416 T12 004766 002686 000754 0625 0125 0375 0375 0875 0625 0000 %0417 T13 004839 003012 000038 0625 0125 0500 0375 0875 0500 0000 %0418 T14 004934 003179 -00447 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004582 003122 -01600 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004593 003250 -01654 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004719 003366 -02108 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004806 002289 002212 0625 0250 0000 0375 0750 1000 0000 %0423 U10 004847 002266 002210 0625 0250 0125 0375 0750 0875 0000 %0424 U11 004729 002099 001209 0625 0250 0250 0375 0750 0750 0000 %0425 U12 004688 002161 000709 0625 0250 0375 0375 0750 0625 0000 %0426 U13 004810 002171 000215 0625 0250 0500 0375 0750 0500 0000 %0427 U14 004803 002311 -00315 0625 0250 0625 0375 0750 0375 0000 %0428 U15 004935 002390 -01110 0625 0250 0750 0375 0750 0250 0000 %0429 U16 004990 002775 -01544 0625 0250 0875 0375 0750 0125 0000 %0430 U17 005280 002703 -01918 0625 0250 1000 0375 0750 0000 0000 %0431 U18 006037 001553 003671 0625 0375 0000 0375 0625 1000 0000 %0432 V10 005314 001506 002580 0625 0375 0125 0375 0625 0875 0000 %0433 V11 005163 001280 001932 0625 0375 0250 0375 0625 0750 0000 %0434 V12 005318 001340 000935 0625 0375 0375 0375 0625 0625 0000 %0435 V13 005350 001454 000324 0625 0375 0500 0375 0625 0500 0000 %0436 V14 005328 001649 -00317 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005453 001663 -00935 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005638 001933 -01389 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005843 002049 -01764 0625 0375 1000 0375 0625 0000 0000 %0440 V18 006523 000878 004126 0625 0500 0000 0375 0500 1000 0000 %0441 W10 005777 000912 002959 0625 0500 0125 0375 0500 0875 0000 %0442 W11 005604 000544 002315 0625 0500 0250 0375 0500 0750 0000 %0443 W12 005762 000635 001454 0625 0500 0375 0375 0500 0625 0000 %0444 W13 005867 000795 000400 0625 0500 0500 0375 0500 0500 0000 %0445 W14 005898 000862 -00179 0625 0500 0625 0375 0500 0375 0000 %0446 W15 006097 000940 -00785 0625 0500 0750 0375 0500 0250 0000 %0447 W16 006329 001244 -01170 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006385 001446 -01626 0625 0500 1000 0375 0500 0000 0000 %0449 W18 007066 000077 004986 0625 0625 0000 0375 0375 1000 0000 %0450 X10 006732 -00405 003918 0625 0625 0125 0375 0375 0875 0000 %0451 X11 006135 -00457 002941 0625 0625 0250 0375 0375 0750 0000 %0452 X12 006300 -00386 002035 0625 0625 0375 0375 0375 0625 0000 %0453 X13 006345 -00125 000850 0625 0625 0500 0375 0375 0500 0000 %0454 X14 006452 000025 -00048 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006654 000248 -00368 0625 0625 0750 0375 0375 0250 0000 %0456 X16 006920 000537 -00981 0625 0625 0875 0375 0375 0125 0000 %0457 X17 007130 000770 -01330 0625 0625 1000 0375 0375 0000 0000 %0458 X18 007372 -01978 004714 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 006852 -01339 003789 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 006560 -01272 003180 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 006620 -01067 002182 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 006769 -00971 001400 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 006924 -00707 000419 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 006884 -00327 -00430 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007116 -00080 -01030 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007312 000217 -01346 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 007307 -01984 004619 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 007365 -02035 004558 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007064 -02087 003449 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007097 -01892 002500 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007246 -01640 001688 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 007376 -01485 000774 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 007320 -01116 -00175 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 007266 -00752 -01097 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007458 -00351 -01342 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 007489 -03344 006092 0625 1000 0000 0375 0000 1000 0000 %0477 a10 007673 -02894 004525 0625 1000 0125 0375 0000 0875 0000 %0478 a11 007641 -02871 003724 0625 1000 0250 0375 0000 0750 0000 %0479 a12 007666 -02677 002893 0625 1000 0375 0375 0000 0625 0000 %0480 a13 007784 -02487 002035 0625 1000 0500 0375 0000 0500 0000 %0481 a14 007895 -02172 001271 0625 1000 0625 0375 0000 0375 0000 %0482 a15 007837 -01664 000108 0625 1000 0750 0375 0000 0250 0000 %0483 a16 007808 -01304 -00527 0625 1000 0875 0375 0000 0125 0000 %0484 a17 007829 -00999 -01436 0625 1000 1000 0375 0000 0000 0000 %0485 a18 004812 003594 002243 0750 0000 0000 0250 1000 1000 0000 %0486 A19 004737 003768 001592 0750 0000 0125 0250 1000 0875 0000 %0487 A20 004672 003793 001621 0750 0000 0250 0250 1000 0750 0000 %0488 A21 004624 003997 000900 0750 0000 0375 0250 1000 0625 0000 %0489 A22 004643 004320 000166 0750 0000 0500 0250 1000 0500 0000 %0490 A23 004551 004474 -00467 0750 0000 0625 0250 1000 0375 0000 %0491 A24 004419 004810 -01481 0750 0000 0750 0250 1000 0250 0000 %0492 A25 004432 004782 -01492 0750 0000 0875 0250 1000 0125 0000 %0493 A26 003996 004483 -02115 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004884 003531 002866 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004789 003675 002237 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004723 003837 001614 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004678 004015 000913 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004603 004041 000941 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004598 004221 000317 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004465 004547 -00468 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004374 003764 -01363 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004516 003850 -01898 0750 0125 1000 0250 0875 0000 0000 %0503 B27 005452 002541 003234 0750 0250 0000 0250 0750 1000 0000 %0504 C19 004888 002833 002597 0750 0250 0125 0250 0750 0875 0000 %0505 C20 004966 002901 001902 0750 0250 0250 0250 0750 0750 0000 %0506 C21 004975 002991 001270 0750 0250 0375 0250 0750 0625 0000 %0507 C22 004891 003020 000775 0750 0250 0500 0250 0750 0500 0000 %0508 C23 004775 003207 000088 0750 0250 0625 0250 0750 0375 0000 %0509 C24 004653 003398 -00520 0750 0250 0750 0250 0750 0250 0000 %0510 C25 004787 003399 -01344 0750 0250 0875 0250 0750 0125 0000 %0511 C26 005116 003203 -01661 0750 0250 1000 0250 0750 0000 0000 %0512 C27 006019 001642 003594 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005380 001998 002867 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005510 001983 002361 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005579 002089 001473 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005552 002162 000931 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005431 002388 000183 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005338 002510 -00319 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005569 002383 -01120 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005853 002324 -01425 0750 0375 1000 0250 0625 0000 0000 %0521 D27 006499 000891 004221 0750 0500 0000 0250 0500 1000 0000 %0522 E19 005932 001657 003665 0750 0500 0125 0250 0500 0875 0000 %0523 E20 005946 001292 002910 0750 0500 0250 0250 0500 0750 0000 %0524 E21 006117 001270 001989 0750 0500 0375 0250 0500 0625 0000 %0525 E22 006194 001364 001077 0750 0500 0500 0250 0500 0500 0000 %0526 E23 006156 001473 000389 0750 0500 0625 0250 0500 0375 0000 %0527 E24 006120 001648 -00220 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006301 001563 -00940 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006520 001805 -01289 0750 0500 1000 0250 0500 0000 0000 %0530 E27 007040 000131 005015 0750 0625 0000 0250 0375 1000 0000 %0531 F19 006459 000917 004249 0750 0625 0125 0250 0375 0875 0000 %0532 F20 006375 000429 003375 0750 0625 0250 0250 0375 0750 0000 %0533 F21 006551 000489 002482 0750 0625 0375 0250 0375 0625 0000 %0534 F22 006585 000636 001506 0750 0625 0500 0250 0375 0500 0000 %0535 F23 006728 000771 000507 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006704 000923 -00056 0750 0625 0750 0250 0375 0250 0000 %0537 F25 006952 001052 -00825 0750 0625 0875 0250 0375 0125 0000 %0538 F26 007063 001094 -01182 0750 0625 1000 0250 0375 0000 0000 %0539 F27 007576 -00483 005478 0750 0750 0000 0250 0250 1000 0000 %0540 G19 007210 -00950 004344 0750 0750 0125 0250 0250 0875 0000 %0541 G20 007056 -00699 004079 0750 0750 0250 0250 0250 0750 0000 %0542 G21 007137 -00466 003090 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007208 -00361 002321 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007217 -00224 000968 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007257 000056 000037 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007544 000290 -00597 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007767 000502 -01087 0750 0750 1000 0250 0250 0000 0000 %0548 G27 008078 -01076 006035 0750 0875 0000 0250 0125 1000 0000 %0549 H19 007744 -01544 005424 0750 0875 0125 0250 0125 0875 0000 %0550 H20 007514 -01542 004512 0750 0875 0250 0250 0125 0750 0000 %0551 H21 007523 -01341 003607 0750 0875 0375 0250 0125 0625 0000 %0552 H22 007589 -01234 002561 0750 0875 0500 0250 0125 0500 0000 %0553 H23 007633 -00977 001359 0750 0875 0625 0250 0125 0375 0000 %0554 H24 007805 -00771 000484 0750 0875 0750 0250 0125 0250 0000 %0555 H25 007799 -00527 -00726 0750 0875 0875 0250 0125 0125 0000 %0556 H26 007880 -00159 -01071 0750 0875 1000 0250 0125 0000 0000 %0557 H27 007851 -02673 006527 0750 1000 0000 0250 0000 1000 0000 %0558 I19 007898 -02375 005204 0750 1000 0125 0250 0000 0875 0000 %0559 I20 007928 -02283 004467 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008010 -02168 003672 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008066 -01972 002790 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008118 -01757 001841 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008328 -01672 000893 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008182 -01218 -00206 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008120 -00788 -01177 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004703 005441 003153 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004647 005559 002427 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004568 005770 001722 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004536 005775 001741 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004487 005962 001028 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004623 004640 000436 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004575 004863 -00249 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004501 005146 -01193 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004370 005194 -01669 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004888 003810 003047 0875 0125 0000 0125 0875 1000 0000 %0576 K19 004884 003963 002604 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004831 004160 001975 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004839 004271 001420 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004772 004365 000975 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004770 004441 000429 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004716 004661 -00129 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004759 004632 -00783 0875 0125 0875 0125 0875 0125 0000 %0583 K26 004911 004530 -01509 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005237 003103 003256 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005371 003064 002990 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005426 003307 002162 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005437 003445 001596 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005417 003500 001123 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005372 003563 000645 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005325 003767 -00010 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005311 003873 -00594 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005469 003700 -01341 0875 0250 1000 0125 0750 0000 0000 %0593 L27 006025 001993 003990 0875 0375 0000 0125 0625 1000 0000 %0594 M19 005758 002511 003324 0875 0375 0125 0125 0625 0875 0000 %0595 M20 005848 002709 002665 0875 0375 0250 0125 0625 0750 0000 %0596 M21 005957 002785 001718 0875 0375 0375 0125 0625 0625 0000 %0597 M22 005987 002802 001222 0875 0375 0500 0125 0625 0500 0000 %0598 M23 005973 002857 000634 0875 0375 0625 0125 0625 0375 0000 %0599 M24 005921 002989 000058 0875 0375 0750 0125 0625 0250 0000 %0600 M25 006004 003029 -00485 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006100 002865 -01191 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006118 001788 004092 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006221 001784 003710 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006336 001870 003167 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006444 002013 002291 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006584 002075 001450 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006598 002096 000797 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006560 002192 000253 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006592 002325 -00364 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006660 002252 -01077 0875 0500 1000 0125 0500 0000 0000 %0611 N27 007105 000361 005565 0875 0625 0000 0125 0375 1000 0000 %0612 O19 006767 000990 004241 0875 0625 0125 0125 0375 0875 0000 %0613 O20 006795 001222 003672 0875 0625 0250 0125 0375 0750 0000 %0614 O21 006981 001163 002854 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007142 001270 001882 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007165 001419 000862 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007209 001473 000435 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007180 001704 -00283 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007260 001648 -00985 0875 0625 1000 0125 0375 0000 0000 %0620 O27 007099 000090 005334 0875 0750 0000 0125 0250 1000 0000 %0621 P19 007243 000115 004774 0875 0750 0125 0125 0250 0875 0000 %0622 P20 007277 000302 004096 0875 0750 0250 0125 0250 0750 0000 %0623 P21 007383 000494 003209 0875 0750 0375 0125 0250 0625 0000 %0624 P22 007484 000507 002404 0875 0750 0500 0125 0250 0500 0000 %0625 P23 007580 000695 001422 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007690 000749 000380 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007701 000920 -00343 0875 0750 0875 0125 0250 0125 0000 %0628 P26 007852 001030 -00868 0875 0750 1000 0125 0250 0000 0000 %0629 P27 008067 -01070 006020 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 007831 -00902 005780 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008017 -00819 005016 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008082 -00675 004032 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008155 -00472 002968 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008172 -00181 001925 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008285 -00174 000866 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008234 000020 -00001 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008368 000232 -00682 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 008194 -02022 006891 0875 1000 0000 0125 0000 1000 0000 %0639 R19 008230 -01890 005762 0875 1000 0125 0125 0000 0875 0000 %0640 R20 008346 -01737 005061 0875 1000 0250 0125 0000 0750 0000 %0641 R21 008398 -01536 004173 0875 1000 0375 0125 0000 0625 0000 %0642 R22 008527 -01379 003208 0875 1000 0500 0125 0000 0500 0000 %0643 R23 008556 -01224 002254 0875 1000 0625 0125 0000 0375 0000 %0644 R24 008683 -01078 001192 0875 1000 0750 0125 0000 0250 0000 %0645 R25 008837 -00904 000400 0875 1000 0875 0125 0000 0125 0000 %0646 R26 008803 -00545 -00832 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004715 005433 003711 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004529 006316 002985 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004571 006467 002503 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004604 006573 002030 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004582 006681 001375 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004564 006596 000738 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004542 006426 000279 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004590 006496 -00321 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004545 006521 -01234 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005177 004868 004222 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005320 005135 003337 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005313 005235 002663 1000 0125 0250 0000 0875 0750 0000 %0659 T21 005215 005480 002022 1000 0125 0375 0000 0875 0625 0000 %0660 T22 005256 005353 001476 1000 0125 0500 0000 0875 0500 0000 %0661 T23 005242 005449 000942 1000 0125 0625 0000 0875 0375 0000 %0662 T24 005223 005430 000397 1000 0125 0750 0000 0875 0250 0000 %0663 T25 005261 005501 -00245 1000 0125 0875 0000 0875 0125 0000 %0664 T26 005257 005641 -01049 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005634 004037 004797 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005912 004270 003930 1000 0250 0125 0000 0750 0875 0000 %0667 U20 006031 004358 002895 1000 0250 0250 0000 0750 0750 0000 %0668 U21 006006 004466 002177 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005998 004497 001624 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005993 004584 001042 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005972 004510 000519 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005981 004467 -00082 1000 0250 0875 0000 0750 0125 0000 %0673 U26 005985 004516 -00693 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006012 003482 005355 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006283 003608 004265 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006467 003605 003256 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006539 003698 002231 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006612 003726 001735 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006605 003808 001227 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006571 003944 000596 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006561 004075 -00079 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006606 004062 -00801 1000 0375 1000 0000 0625 0000 0000 %0683 V27 006488 002736 005769 1000 0500 0000 0000 0500 1000 0000 %0684 W19 006736 002865 004572 1000 0500 0125 0000 0500 0875 0000 %0685 W20 006847 002878 003674 1000 0500 0250 0000 0500 0750 0000 %0686 W21 006985 002854 002681 1000 0500 0375 0000 0500 0625 0000 %0687 W22 007168 002797 001821 1000 0500 0500 0000 0500 0500 0000 %0688 W23 007166 002956 001339 1000 0500 0625 0000 0500 0375 0000 %0689 W24 007193 003128 000707 1000 0500 0750 0000 0500 0250 0000 %0690 W25 007215 003258 000024 1000 0500 0875 0000 0500 0125 0000 %0691 W26 007277 003360 -00611 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007032 001940 006202 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007181 002073 005091 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007302 002044 004068 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007473 001931 003293 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007570 002054 002321 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007678 002148 001505 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007723 002242 000842 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007794 002461 000274 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007800 002554 -00330 1000 0625 1000 0000 0375 0000 0000 %0701 X27 007499 000945 006870 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 007693 001147 005498 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 007743 001237 004662 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 007855 001242 003779 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008034 001217 002911 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008207 001230 002012 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008204 001349 001172 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008160 001451 000565 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008182 001674 -00226 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008094 -00129 007233 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008159 000024 006001 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008278 000224 005049 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008366 000374 004140 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008464 000501 003270 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008578 000518 002480 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 008641 000643 001453 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 008639 000795 000480 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 008685 000901 -00625 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 008679 -01222 007532 1000 1000 0000 0000 0000 1000 0000 %0720 a19 008913 -01093 006863 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009063 -00971 006113 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009104 -00816 004949 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009131 -00598 003943 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009160 -00389 002981 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009176 -00194 001976 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009374 -00203 000956 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009642 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009665 000001 -00001 1000 1000 1000 0000 0000 0000 0000 %0729 b01 008904 -00487 -00783 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008314 -00708 -01092 0750 1000 1000 0250 0000 0000 0000 %0731 b03 007811 -01009 -01397 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007392 -01528 -01721 0500 1000 1000 0500 0000 0000 0000 %0733 b05 006875 -01824 -02285 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006306 -02297 -02914 0250 1000 1000 0750 0000 0000 0000 %0735 b07 005866 -02491 -03247 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005508 -02795 -03684 0000 1000 1000 1000 0000 0000 0000 %0737 b09 008755 000743 000334 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008367 000000 000015 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008025 -00439 -00705 0750 0875 0875 0250 0125 0125 0000 %0740 c03 007246 -00743 -01067 0625 0875 0875 0375 0125 0125 0000 %0741 c04 006773 -01028 -01514 0500 0875 0875 0500 0125 0125 0000 %0742 c05 006298 -01547 -01845 0375 0875 0875 0625 0125 0125 0000 %0743 c06 005792 -01836 -02393 0250 0875 0875 0750 0125 0125 0000 %0744 c07 005551 -01958 -02535 0125 0875 0875 0875 0125 0125 0000 %0745 c08 005499 -02697 -03711 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008340 001295 000902 1000 0750 0750 0000 0250 0250 0000 %0747 d01 007906 000662 000265 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007494 000050 -00052 0750 0750 0750 0250 0250 0250 0000 %0749 d03 006878 -00316 -00472 0625 0750 0750 0375 0250 0250 0000 %0750 d04 006333 -00660 -01092 0500 0750 0750 0500 0250 0250 0000 %0751 d05 005897 -01081 -01528 0375 0750 0750 0625 0250 0250 0000 %0752 d06 005431 -01476 -01860 0250 0750 0750 0750 0250 0250 0000 %0753 d07 005223 -01451 -02130 0125 0750 0750 0875 0250 0250 0000 %0754 d08 005530 -01746 -02530 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007812 001998 001307 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007318 001301 000673 0875 0625 0625 0125 0375 0375 0000 %0757 e02 006915 000685 000407 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006420 000010 -00092 0625 0625 0625 0375 0375 0375 0000 %0759 e04 005970 -00354 -00501 0500 0625 0625 0500 0375 0375 0000 %0760 e05 005536 -00820 -00973 0375 0625 0625 0625 0375 0375 0000 %0761 e06 005002 -01113 -01575 0250 0625 0625 0750 0375 0375 0000 %0762 e07 004787 -01161 -01793 0125 0625 0625 0875 0375 0375 0000 %0763 e08 004711 -01124 -01743 0000 0625 0625 1000 0375 0375 0000 %0764 e09 007307 002582 001797 1000 0500 0500 0000 0500 0500 0000 %0765 f01 006721 001933 001306 0875 0500 0500 0125 0500 0500 0000 %0766 f02 006297 001279 000953 0750 0500 0500 0250 0500 0500 0000 %0767 f03 005790 000735 000413 0625 0500 0500 0375 0500 0500 0000 %0768 f04 005307 -00006 -00080 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005082 -00356 -00593 0375 0500 0500 0625 0500 0500 0000 %0770 f06 004567 -00774 -01139 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004251 -01058 -01205 0125 0500 0500 0875 0500 0500 0000 %0772 f08 004078 -00736 -01048 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006557 003701 002154 1000 0375 0375 0000 0625 0625 0000 %0774 g01 005905 002803 001581 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005521 002113 001336 0750 0375 0375 0250 0625 0625 0000 %0776 g03 005073 001416 000978 0625 0375 0375 0375 0625 0625 0000 %0777 g04 004760 000733 000411 0500 0375 0375 0500 0625 0625 0000 %0778 g05 004465 -00005 -00033 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004189 -00330 -00588 0250 0375 0375 0750 0625 0625 0000 %0780 g07 003824 -00599 -01157 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003817 -00599 -01173 0000 0375 0375 1000 0625 0625 0000 %0782 g09 006034 004325 003036 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005310 003355 002150 0875 0250 0250 0125 0750 0750 0000 %0784 h02 004817 002878 001869 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004468 002118 001296 0625 0250 0250 0375 0750 0750 0000 %0786 h04 004234 001270 001002 0500 0250 0250 0500 0750 0750 0000 %0787 h05 004017 000665 000386 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003645 -00001 -00064 0250 0250 0250 0750 0750 0750 0000 %0789 h07 003079 -00228 -00419 0125 0250 0250 0875 0750 0750 0000 %0790 h08 002549 -00062 -00248 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005274 005128 003458 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004771 003827 002641 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004699 003627 002329 0750 0125 0125 0250 0875 0875 0000 %0794 i03 004563 002498 001599 0625 0125 0125 0375 0875 0875 0000 %0795 i04 004353 001529 001565 0500 0125 0125 0500 0875 0875 0000 %0796 i05 003862 000749 000675 0375 0125 0125 0625 0875 0875 0000 %0797 i06 003350 000364 000320 0250 0125 0125 0750 0875 0875 0000 %0798 i07 002823 -00004 -00082 0125 0125 0125 0875 0875 0875 0000 %0799 i08 002328 -00015 -00086 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004592 005501 003781 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004595 005425 003256 0875 0000 0000 0125 1000 1000 0000 %0802 j02 004641 003613 002257 0750 0000 0000 0250 1000 1000 0000 %0803 j03 004709 003533 002244 0625 0000 0000 0375 1000 1000 0000 %0804 j04 004580 002509 001512 0500 0000 0000 0500 1000 1000 0000 %0805 j05 003816 000862 000616 0375 0000 0000 0625 1000 1000 0000 %0806 j06 003031 000328 000219 0250 0000 0000 0750 1000 1000 0000 %0807 j07 002417 000138 000105 0125 0000 0000 0875 1000 1000 0000 %0808 j08 001156 -00004 000005 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009704 000001 -00005 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008688 000242 -00547 0875 0875 1000 0125 0125 0000 0000 %0811 b11 008122 000416 -01008 0750 0750 1000 0250 0250 0000 0000 %0812 b12 007201 000667 -01322 0625 0625 1000 0375 0375 0000 0000 %0813 b13 006418 001009 -01789 0500 0500 1000 0500 0500 0000 0000 %0814 b14 005682 001123 -02366 0375 0375 1000 0625 0625 0000 0000 %0815 b15 004931 001534 -03037 0250 0250 1000 0750 0750 0000 0000 %0816 b16 004032 001820 -03592 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003332 002479 -04332 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009478 -00084 000604 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008542 000010 -00008 0875 0875 0875 0125 0125 0125 0000 %0820 c11 007926 000233 -00533 0750 0750 0875 0250 0250 0125 0000 %0821 c12 006985 000485 -00972 0625 0625 0875 0375 0375 0125 0000 %0822 c13 006242 000759 -01449 0500 0500 0875 0500 0500 0125 0000 %0823 c14 005404 001100 -01940 0375 0375 0875 0625 0625 0125 0000 %0824 c15 004503 001268 -02604 0250 0250 0875 0750 0750 0125 0000 %0825 c16 004100 001718 -02800 0125 0125 0875 0875 0875 0125 0000 %0826 c17 003720 002216 -04170 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009307 -00077 001414 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008580 -00090 000593 0875 0875 0750 0125 0125 0250 0000 %0829 d11 007652 000032 -00053 0750 0750 0750 0250 0250 0250 0000 %0830 d12 006773 000184 -00355 0625 0625 0750 0375 0375 0250 0000 %0831 d13 005990 000467 -01010 0500 0500 0750 0500 0500 0250 0000 %0832 d14 005243 000779 -01468 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004368 001184 -02171 0250 0250 0750 0750 0750 0250 0000 %0834 d16 004069 001266 -02306 0125 0125 0750 0875 0875 0250 0000 %0835 d17 004009 001331 -03068 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009265 -00367 002515 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008427 -00148 001524 0875 0875 0625 0125 0125 0375 0000 %0838 e11 007536 -00184 000740 0750 0750 0625 0250 0250 0375 0000 %0839 e12 006515 000005 -00104 0625 0625 0625 0375 0375 0375 0000 %0840 e13 005764 000176 -00446 0500 0500 0625 0500 0500 0375 0000 %0841 e14 005057 000506 -01002 0375 0375 0625 0625 0625 0375 0000 %0842 e15 004328 000768 -01545 0250 0250 0625 0750 0750 0375 0000 %0843 e16 004106 001202 -02250 0125 0125 0625 0875 0875 0375 0000 %0844 e17 004091 001220 -02277 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009220 -00593 003498 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008365 -00475 002643 0875 0875 0500 0125 0125 0500 0000 %0847 f11 007416 -00325 001932 0750 0750 0500 0250 0250 0500 0000 %0848 f12 006435 -00133 000718 0625 0625 0500 0375 0375 0500 0000 %0849 f13 005378 000001 -00085 0500 0500 0500 0500 0500 0500 0000 %0850 f14 004834 000256 -00475 0375 0375 0500 0625 0625 0500 0000 %0851 f15 004271 000421 -01028 0250 0250 0500 0750 0750 0500 0000 %0852 f16 003620 000385 -01517 0125 0125 0500 0875 0875 0500 0000 %0853 f17 003517 000242 -01373 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009163 -00857 004835 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008185 -00691 003798 0875 0875 0375 0125 0125 0625 0000 %0856 g11 007199 -00464 002809 0750 0750 0375 0250 0250 0625 0000 %0857 g12 006192 -00368 001922 0625 0625 0375 0375 0375 0625 0000 %0858 g13 005255 -00191 000956 0500 0500 0375 0500 0500 0625 0000 %0859 g14 004411 000008 -00035 0375 0375 0375 0625 0625 0625 0000 %0860 g15 004076 000220 -00471 0250 0250 0375 0750 0750 0625 0000 %0861 g16 003380 000388 -01133 0125 0125 0375 0875 0875 0625 0000 %0862 g17 003383 000259 -01399 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009105 -01003 006032 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008114 -00880 004976 0875 0875 0250 0125 0125 0750 0000 %0865 h11 007035 -00710 003852 0750 0750 0250 0250 0250 0750 0000 %0866 h12 005999 -00461 002842 0625 0625 0250 0375 0375 0750 0000 %0867 h13 005129 -00316 001795 0500 0500 0250 0500 0500 0750 0000 %0868 h14 004458 -00257 000910 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003572 000007 -00040 0250 0250 0250 0750 0750 0750 0000 %0870 h16 003126 000320 -00507 0125 0125 0250 0875 0875 0750 0000 %0871 h17 002715 000189 -00580 0000 0000 0250 1000 1000 0750 0000 %0872 h18 008954 -01128 006855 1000 1000 0125 0000 0000 0875 0000 %0873 i10 007898 -00943 005761 0875 0875 0125 0125 0125 0875 0000 %0874 i11 007131 -00980 004216 0750 0750 0125 0250 0250 0875 0000 %0875 i12 006633 -00404 003769 0625 0625 0125 0375 0375 0875 0000 %0876 i13 005768 -00373 002639 0500 0500 0125 0500 0500 0875 0000 %0877 i14 004775 -00120 001452 0375 0375 0125 0625 0625 0875 0000 %0878 i15 003878 -00321 000699 0250 0250 0125 0750 0750 0875 0000 %0879 i16 002766 000007 -00068 0125 0125 0125 0875 0875 0875 0000 %0880 i17 002541 000137 -00378 0000 0000 0125 1000 1000 0875 0000 %0881 i18 008693 -01240 007431 1000 1000 0000 0000 0000 1000 0000 %0882 j10 008086 -01095 005947 0875 0875 0000 0125 0125 1000 0000 %0883 j11 007528 -00489 005382 0750 0750 0000 0250 0250 1000 0000 %0884 j12 007003 000097 004817 0625 0625 0000 0375 0375 1000 0000 %0885 j13 006147 -00856 002955 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004895 -00748 001465 0375 0375 0000 0625 0625 1000 0000 %0887 j15 004242 -00350 000971 0250 0250 0000 0750 0750 1000 0000 %0888 j16 002674 -00100 000221 0125 0125 0000 0875 0875 1000 0000 %0889 j17 001079 000003 000022 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009702 -00002 000006 1000 1000 1000 0000 0000 0000 0000 %0891 b19 008837 000895 -00556 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008334 001652 -00286 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007904 002505 -00409 1000 0625 1000 0000 0375 0000 0000 %0894 b22 007348 003345 -00633 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006571 004149 -00847 1000 0375 1000 0000 0625 0000 0000 %0896 b24 005972 004575 -00665 1000 0250 1000 0000 0750 0000 0000 %0897 b25 005308 005595 -01023 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004590 006534 -01218 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009005 -00771 000244 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008476 000013 -00005 0875 0875 0875 0125 0125 0125 0000 %0901 c20 007981 000872 -00381 0875 0750 0875 0125 0250 0125 0000 %0902 c21 007370 001674 -00389 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006755 002300 -00430 0875 0500 0875 0125 0500 0125 0000 %0904 c23 006093 002998 -00509 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005342 003908 -00632 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004760 004535 -00762 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004588 004943 -01158 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008508 -01433 000501 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008066 -00651 000279 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007558 000050 -00053 0750 0750 0750 0250 0250 0250 0000 %0911 d21 006965 000925 -00138 0750 0625 0750 0250 0375 0250 0000 %0912 d22 006311 001618 -00280 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005464 002474 -00382 0750 0375 0750 0250 0625 0250 0000 %0914 d24 004667 003294 -00503 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004553 004418 -00479 0750 0125 0750 0250 0875 0250 0000 %0916 d26 004513 004587 -01400 0750 0000 0750 0250 1000 0250 0000 %0917 d27 007946 -02103 001252 0625 1000 0625 0375 0000 0375 0000 %0918 e19 007429 -01487 000923 0625 0875 0625 0375 0125 0375 0000 %0919 e20 006974 -00746 000448 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006465 000022 -00070 0625 0625 0625 0375 0375 0375 0000 %0921 e22 005702 000863 -00150 0625 0500 0625 0375 0500 0375 0000 %0922 e23 005002 001659 -00252 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004360 002351 -00228 0625 0250 0625 0375 0750 0375 0000 %0924 e25 004535 003109 -00364 0625 0125 0625 0375 0875 0375 0000 %0925 e26 004585 004327 -00443 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007423 -02998 001453 0500 1000 0500 0500 0000 0500 0000 %0927 f19 006936 -02281 001257 0500 0875 0500 0500 0125 0500 0000 %0928 f20 006492 -01508 000856 0500 0750 0500 0500 0250 0500 0000 %0929 f21 005915 -00799 000359 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005315 -00003 -00056 0500 0500 0500 0500 0500 0500 0000 %0931 f23 004714 000782 -00007 0500 0375 0500 0500 0625 0500 0000 %0932 f24 003956 001624 -00197 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003914 001870 -00777 0500 0125 0500 0500 0875 0500 0000 %0934 f26 004154 002974 -01656 0500 0000 0500 0500 1000 0500 0000 %0935 f27 006949 -03748 001772 0375 1000 0375 0625 0000 0625 0000 %0936 g19 006407 -03048 001323 0375 0875 0375 0625 0125 0625 0000 %0937 g20 005965 -02343 000872 0375 0750 0375 0625 0250 0625 0000 %0938 g21 005497 -01505 000662 0375 0625 0375 0625 0375 0625 0000 %0939 g22 004968 -00829 000253 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004216 -00015 000014 0375 0375 0375 0625 0625 0625 0000 %0941 g24 003628 000775 -00082 0375 0250 0375 0625 0750 0625 0000 %0942 g25 003443 000964 -00541 0375 0125 0375 0625 0875 0625 0000 %0943 g26 003704 001382 -00243 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006488 -04602 002131 0250 1000 0250 0750 0000 0750 0000 %0945 h19 005990 -03667 001652 0250 0875 0250 0750 0125 0750 0000 %0946 h20 005494 -03051 001312 0250 0750 0250 0750 0250 0750 0000 %0947 h21 004958 -02427 000964 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004516 -01562 000650 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004035 -00780 000271 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003359 -00001 -00010 0250 0250 0250 0750 0750 0750 0000 %0951 h25 003046 000527 -00205 0250 0125 0250 0750 0875 0750 0000 %0952 h26 002736 000366 -00185 0250 0000 0250 0750 1000 0750 0000 %0953 h27 006059 -05300 002466 0125 1000 0125 0875 0000 0875 0000 %0954 i19 005611 -04494 002117 0125 0875 0125 0875 0125 0875 0000 %0955 i20 005327 -03549 001489 0125 0750 0125 0875 0250 0875 0000 %0956 i21 004778 -02673 000900 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004644 -02605 000914 0125 0500 0125 0875 0500 0875 0000 %0958 i23 003827 -01148 000321 0125 0375 0125 0875 0625 0875 0000 %0959 i24 002954 -00324 000134 0125 0250 0125 0875 0750 0875 0000 %0960 i25 002520 -00016 -00018 0125 0125 0125 0875 0875 0875 0000 %0961 i26 002340 000274 -00270 0125 0000 0125 0875 1000 0875 0000 %0962 i27 005820 -06312 003288 0000 1000 0000 1000 0000 1000 0000 %0963 j19 005891 -05958 002283 0000 0875 0000 1000 0125 1000 0000 %0964 j20 005551 -04381 002141 0000 0750 0000 1000 0250 1000 0000 %0965 j21 005130 -03423 001356 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004605 -02623 000885 0000 0500 0000 1000 0500 1000 0000 %0967 j23 004121 -01587 000473 0000 0375 0000 1000 0625 1000 0000 %0968 j24 002848 -00286 000397 0000 0250 0000 1000 0750 1000 0000 %0969 j25 002374 -00140 000304 0000 0125 0000 1000 0875 1000 0000 %0970 j26 001115 000001 -00028 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa1100 [ %BEG GE63_22.TXT, Separation cmyn4*, cf1=0.90, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004715 005433 003711 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z008679 -01222 007532 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z005830 -06354 003360 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005483 -02802 -03685 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003398 002602 -04282 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004545 006521 -01234 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z001266 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009642 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004592 005501 003781 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 008693 -01240 007431 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 005820 -06312 003288 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005508 -02795 -03684 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003332 002479 -04332 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004590 006534 -01218 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 001116 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009691 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def %END GG93_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 (GG930-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 {(GG930-) show} {(GG931-) 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 GG930-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 (GG930-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 GG931-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 (GG931-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 GG931-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 (GG931-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 GG931-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 (GG931-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 GG931-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 (GG931-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 GG931-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 (GG931-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 GG931-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 (GG931-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 GG931-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 (GG931-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 GG931-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 (GG931-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 GG93; Relatives Ger\344te\255Farbsystem G) showde (TUB\255test chart GG93; 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 (->cmyn4* setcmykcolor) show 12 /Times-ISOL1 FS} ifelse } if %LSC$=N LSC$ (S) eq { (Startup (S) data dependend) showen (Startup(S)Daten abh\344ngig) showde } if LSC$ (F) eq { 12 /TimesI-ISOL1 FS i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if i*ptrsc 1 eq {xchart 1 le xchart 4 eq or {12 /Times-ISOL1 FS (no change compared to input) showen (keine Eingabe\344nderung) showde } {(->LAB*->cmyn4* setcmykcolor) show } ifelse } if i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if i*ptrsc 4 eq {(lab* setcolor) show} if i*ptrsc 5 eq {(LAB* setcolor) show} if i*ptrsc 6 eq {(000n* setcmykcolor) show} if i*ptrsc 7 eq {(w* setgray) show} if } if %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/GG93/GG93L) 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 (GG93/GG93L) 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/GG93/GG93L) 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\255GG93/GG93L) showde (TUB registration: 20091101\255GG93/GG93L) 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