%!PS-Adobe-3.0 EPSF-3.0 130.149.60.45/~farbmetrik/GG96/GG96L00XX.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/GG96/GG96.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision, colorimetry) /Creator (klaus.richter@mac.com) /CreationDate (D:2009110112000) /ModDate (D:2009110112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /ColSpxG 1 def /ColSpx ColSpxG def /DEintp 0 def /rgb_cmy 0 def /LAB*ioG { } bind def /ColSepG { } bind def /VisTol*ioG 1.0 def %BEG GK0X->GG96/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->GG96/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %***************************************************************************** %BEG GK0X->GG96/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->GG96/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 /CFilenameS1g %START output of step S1g (www.ps.bam.de/GG96/GG96L0N) def %Link file name for data /CDateS1g (2006-01-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (GG96/GG96L0N) 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 (/GG96/ ) 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 GG960-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 (GG960-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 GG960-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 (GG960-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 GG960-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 (GG960-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 GG960-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 (GG960-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 GG960-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 (GG960-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 GG960-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 (GG960-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 GG960-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 GG96_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 (GG96_HRS16_96_D65_00%_G0) def /LUT_LAB0 [ %GE360-7A, Page 7 /24, %BEG GE26_22_REM.TXT, Separation cmyn62*, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE26_22_REM.TXT, Separation cmyn62*, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 001501 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 002246 000715 -02018 0000 0000 0125 1000 1000 0875 0000 %0001 A02 002331 001114 -03231 0000 0000 0250 1000 1000 0750 0000 %0002 A03 002535 001557 -04137 0000 0000 0375 1000 1000 0625 0000 %0003 A04 002575 002381 -04546 0000 0000 0500 1000 1000 0500 0000 %0004 A05 002692 002371 -04503 0000 0000 0625 1000 1000 0375 0000 %0005 A06 002829 002616 -04336 0000 0000 0750 1000 1000 0250 0000 %0006 A07 002982 002441 -04370 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003080 002413 -04334 0000 0000 1000 1000 1000 0000 0000 %0008 A09 003156 -03977 001407 0000 0125 0000 1000 0875 1000 0000 %0009 B01 002911 -01756 -02237 0000 0125 0125 1000 0875 0875 0000 %0010 B02 002859 -00571 -03319 0000 0125 0250 1000 0875 0750 0000 %0011 B03 002768 -00100 -03532 0000 0125 0375 1000 0875 0625 0000 %0012 B04 002856 000574 -04093 0000 0125 0500 1000 0875 0500 0000 %0013 B05 003037 001234 -04787 0000 0125 0625 1000 0875 0375 0000 %0014 B06 003204 001391 -04649 0000 0125 0750 1000 0875 0250 0000 %0015 B07 003312 001408 -04578 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003343 001499 -04561 0000 0125 1000 1000 0875 0000 0000 %0017 B09 003774 -05577 002197 0000 0250 0000 1000 0750 1000 0000 %0018 C01 003588 -04676 -00306 0000 0250 0125 1000 0750 0875 0000 %0019 C02 003557 -02319 -02926 0000 0250 0250 1000 0750 0750 0000 %0020 C03 003473 -01183 -03836 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003420 -00547 -04219 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003430 -00470 -04287 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003505 -00013 -04694 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003439 000210 -04764 0000 0250 0875 1000 0750 0125 0000 %0025 C08 003383 000430 -04898 0000 0250 1000 1000 0750 0000 0000 %0026 C09 004293 -06363 002609 0000 0375 0000 1000 0625 1000 0000 %0027 D01 004309 -06875 001311 0000 0375 0125 1000 0625 0875 0000 %0028 D02 004294 -04945 -01235 0000 0375 0250 1000 0625 0750 0000 %0029 D03 004145 -02832 -03375 0000 0375 0375 1000 0625 0625 0000 %0030 D04 004079 -01861 -04082 0000 0375 0500 1000 0625 0500 0000 %0031 D05 004145 -01211 -04622 0000 0375 0625 1000 0625 0375 0000 %0032 D06 004195 -00914 -04845 0000 0375 0750 1000 0625 0250 0000 %0033 D07 004091 -00761 -04868 0000 0375 0875 1000 0625 0125 0000 %0034 D08 003894 -00526 -04881 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004712 -06707 002921 0000 0500 0000 1000 0500 1000 0000 %0036 E01 004695 -07728 002071 0000 0500 0125 1000 0500 0875 0000 %0037 E02 004822 -06448 -00071 0000 0500 0250 1000 0500 0750 0000 %0038 E03 004860 -05059 -01993 0000 0500 0375 1000 0500 0625 0000 %0039 E04 004756 -03538 -03394 0000 0500 0500 1000 0500 0500 0000 %0040 E05 004619 -02669 -04081 0000 0500 0625 1000 0500 0375 0000 %0041 E06 004720 -02155 -04646 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004528 -01566 -04880 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004397 -01390 -04865 0000 0500 1000 1000 0500 0000 0000 %0044 E09 005091 -06917 003224 0000 0625 0000 1000 0375 1000 0000 %0045 F01 004882 -07692 002304 0000 0625 0125 1000 0375 0875 0000 %0046 F02 004955 -06726 000409 0000 0625 0250 1000 0375 0750 0000 %0047 F03 005036 -05701 -01183 0000 0625 0375 1000 0375 0625 0000 %0048 F04 005083 -04722 -02459 0000 0625 0500 1000 0375 0500 0000 %0049 F05 005070 -03982 -03342 0000 0625 0625 1000 0375 0375 0000 %0050 F06 004993 -03213 -04030 0000 0625 0750 1000 0375 0250 0000 %0051 F07 004945 -02520 -04623 0000 0625 0875 1000 0375 0125 0000 %0052 F08 004802 -02108 -04868 0000 0625 1000 1000 0375 0000 0000 %0053 F09 005444 -06849 003459 0000 0750 0000 1000 0250 1000 0000 %0054 G01 005250 -06989 002281 0000 0750 0125 1000 0250 0875 0000 %0055 G02 005333 -06314 000929 0000 0750 0250 1000 0250 0750 0000 %0056 G03 005313 -05663 -00513 0000 0750 0375 1000 0250 0625 0000 %0057 G04 005374 -04832 -01712 0000 0750 0500 1000 0250 0500 0000 %0058 G05 005227 -04371 -02644 0000 0750 0625 1000 0250 0375 0000 %0059 G06 005075 -03625 -03706 0000 0750 0750 1000 0250 0250 0000 %0060 G07 005108 -03075 -04253 0000 0750 0875 1000 0250 0125 0000 %0061 G08 005089 -02828 -04573 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005595 -06536 003675 0000 0875 0000 1000 0125 1000 0000 %0063 H01 005534 -06430 002453 0000 0875 0125 1000 0125 0875 0000 %0064 H02 005581 -05876 001168 0000 0875 0250 1000 0125 0750 0000 %0065 H03 005582 -05476 000125 0000 0875 0375 1000 0125 0625 0000 %0066 H04 005574 -04970 -00893 0000 0875 0500 1000 0125 0500 0000 %0067 H05 005575 -04498 -01728 0000 0875 0625 1000 0125 0375 0000 %0068 H06 005401 -04156 -02572 0000 0875 0750 1000 0125 0250 0000 %0069 H07 005104 -03428 -03878 0000 0875 0875 1000 0125 0125 0000 %0070 H08 005096 -03195 -04185 0000 0875 1000 1000 0125 0000 0000 %0071 H09 005688 -06332 003556 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005622 -06199 002428 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005648 -05774 001372 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005678 -05423 000437 0000 1000 0375 1000 0000 0625 0000 %0075 I04 005740 -04933 -00375 0000 1000 0500 1000 0000 0500 0000 %0076 I05 005725 -04489 -01263 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005663 -04193 -01884 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005501 -03886 -02698 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005173 -03379 -03914 0000 1000 1000 1000 0000 0000 0000 %0080 I09 001985 001746 000699 0125 0000 0000 0875 1000 1000 0000 %0081 J01 001918 002264 -00517 0125 0000 0125 0875 1000 0875 0000 %0082 J02 002185 002591 -01982 0125 0000 0250 0875 1000 0750 0000 %0083 J03 002304 002770 -02719 0125 0000 0375 0875 1000 0625 0000 %0084 J04 002531 003121 -03106 0125 0000 0500 0875 1000 0500 0000 %0085 J05 002657 003356 -03660 0125 0000 0625 0875 1000 0375 0000 %0086 J06 002777 003403 -03923 0125 0000 0750 0875 1000 0250 0000 %0087 J07 002969 003283 -04024 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003062 003140 -04071 0125 0000 1000 0875 1000 0000 0000 %0089 J09 002719 -00378 002178 0125 0125 0000 0875 0875 1000 0000 %0090 K01 002637 -00002 -00092 0125 0125 0125 0875 0875 0875 0000 %0091 K02 003117 000608 -02116 0125 0125 0250 0875 0875 0750 0000 %0092 K03 003406 001065 -02752 0125 0125 0375 0875 0875 0625 0000 %0093 K04 003673 001539 -03228 0125 0125 0500 0875 0875 0500 0000 %0094 K05 003763 001711 -03706 0125 0125 0625 0875 0875 0375 0000 %0095 K06 003651 002134 -04128 0125 0125 0750 0875 0875 0250 0000 %0096 K07 003414 002402 -04162 0125 0125 0875 0875 0875 0125 0000 %0097 K08 003417 002331 -04224 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003458 -02488 002628 0125 0250 0000 0875 0750 1000 0000 %0099 L01 004069 -01872 000735 0125 0250 0125 0875 0750 0875 0000 %0100 L02 004028 -01114 -01751 0125 0250 0250 0875 0750 0750 0000 %0101 L03 004147 -00542 -02570 0125 0250 0375 0875 0750 0625 0000 %0102 L04 004270 -00131 -02983 0125 0250 0500 0875 0750 0500 0000 %0103 L05 004430 000112 -03321 0125 0250 0625 0875 0750 0375 0000 %0104 L06 004194 000679 -04272 0125 0250 0750 0875 0750 0250 0000 %0105 L07 003798 001195 -04383 0125 0250 0875 0875 0750 0125 0000 %0106 L08 003720 001483 -04354 0125 0250 1000 0875 0750 0000 0000 %0107 L09 004126 -04014 003011 0125 0375 0000 0875 0625 1000 0000 %0108 M01 004454 -02994 001211 0125 0375 0125 0875 0625 0875 0000 %0109 M02 004460 -02498 -00418 0125 0375 0250 0875 0625 0750 0000 %0110 M03 004602 -01741 -02281 0125 0375 0375 0875 0625 0625 0000 %0111 M04 004676 -01156 -02930 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004726 -00862 -03268 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004719 -00703 -03843 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004215 -00262 -04621 0125 0375 0875 0875 0625 0125 0000 %0115 M08 003906 000194 -04685 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004790 -05055 003353 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004920 -03822 001752 0125 0500 0125 0875 0500 0875 0000 %0118 N02 004959 -03529 000379 0125 0500 0250 0875 0500 0750 0000 %0119 N03 005026 -02891 -01157 0125 0500 0375 0875 0500 0625 0000 %0120 N04 005100 -02123 -02735 0125 0500 0500 0875 0500 0500 0000 %0121 N05 005074 -01629 -03252 0125 0500 0625 0875 0500 0375 0000 %0122 N06 005041 -01331 -03675 0125 0500 0750 0875 0500 0250 0000 %0123 N07 004888 -01099 -04468 0125 0500 0875 0875 0500 0125 0000 %0124 N08 004470 -00906 -04668 0125 0500 1000 0875 0500 0000 0000 %0125 N09 005279 -05552 003720 0125 0625 0000 0875 0375 1000 0000 %0126 O01 005433 -04225 002221 0125 0625 0125 0875 0375 0875 0000 %0127 O02 005445 -04089 000983 0125 0625 0250 0875 0375 0750 0000 %0128 O03 005559 -03858 -00341 0125 0625 0375 0875 0375 0625 0000 %0129 O04 005602 -03158 -01621 0125 0625 0500 0875 0375 0500 0000 %0130 O05 005519 -02562 -02946 0125 0625 0625 0875 0375 0375 0000 %0131 O06 005408 -01951 -03484 0125 0625 0750 0875 0375 0250 0000 %0132 O07 005272 -01652 -04058 0125 0625 0875 0875 0375 0125 0000 %0133 O08 004994 -01521 -04530 0125 0625 1000 0875 0375 0000 0000 %0134 O09 005801 -05890 004100 0125 0750 0000 0875 0250 1000 0000 %0135 P01 005913 -05050 002807 0125 0750 0125 0875 0250 0875 0000 %0136 P02 006003 -04772 001596 0125 0750 0250 0875 0250 0750 0000 %0137 P03 006084 -04615 000334 0125 0750 0375 0875 0250 0625 0000 %0138 P04 006135 -04050 -00848 0125 0750 0500 0875 0250 0500 0000 %0139 P05 006021 -03446 -01856 0125 0750 0625 0875 0250 0375 0000 %0140 P06 005859 -02906 -03102 0125 0750 0750 0875 0250 0250 0000 %0141 P07 005629 -02393 -03700 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005449 -02128 -04174 0125 0750 1000 0875 0250 0000 0000 %0143 P09 006016 -05812 004252 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 005996 -05701 003155 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 006007 -05348 001874 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 006036 -04907 000697 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 006064 -04475 -00273 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 006139 -03967 -01115 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 006001 -03562 -02181 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 005799 -02969 -03511 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005727 -02742 -03926 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 006000 -05813 004042 0125 1000 0000 0875 0000 1000 0000 %0153 R01 005882 -05874 003175 0125 1000 0125 0875 0000 0875 0000 %0154 R02 005900 -05575 002127 0125 1000 0250 0875 0000 0750 0000 %0155 R03 005960 -05116 000968 0125 1000 0375 0875 0000 0625 0000 %0156 R04 005992 -04693 -00016 0125 1000 0500 0875 0000 0500 0000 %0157 R05 005978 -04216 -01042 0125 1000 0625 0875 0000 0375 0000 %0158 R06 005951 -03844 -01698 0125 1000 0750 0875 0000 0250 0000 %0159 R07 005899 -03525 -02387 0125 1000 0875 0875 0000 0125 0000 %0160 R08 005508 -03205 -03638 0125 1000 1000 0875 0000 0000 0000 %0161 R09 002298 002598 001361 0250 0000 0000 0750 1000 1000 0000 %0162 S01 002277 002906 000461 0250 0000 0125 0750 1000 0875 0000 %0163 S02 002524 003572 -00935 0250 0000 0250 0750 1000 0750 0000 %0164 S03 002528 003578 -01720 0250 0000 0375 0750 1000 0625 0000 %0165 S04 002638 003564 -02292 0250 0000 0500 0750 1000 0500 0000 %0166 S05 002797 003749 -02778 0250 0000 0625 0750 1000 0375 0000 %0167 S06 002884 003912 -03164 0250 0000 0750 0750 1000 0250 0000 %0168 S07 003033 003983 -03478 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003053 003977 -03650 0250 0000 1000 0750 1000 0000 0000 %0170 S09 002833 001114 002333 0250 0125 0000 0750 0875 1000 0000 %0171 T01 003418 001215 001241 0250 0125 0125 0750 0875 0875 0000 %0172 T02 003583 002073 -00901 0250 0125 0250 0750 0875 0750 0000 %0173 T03 003508 002228 -01994 0250 0125 0375 0750 0875 0625 0000 %0174 T04 003702 002310 -02573 0250 0125 0500 0750 0875 0500 0000 %0175 T05 003853 002549 -03084 0250 0125 0625 0750 0875 0375 0000 %0176 T06 003599 003316 -03677 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003498 003240 -03761 0250 0125 0875 0750 0875 0125 0000 %0178 T08 003481 003069 -03901 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003865 -00573 003660 0250 0250 0000 0750 0750 1000 0000 %0180 U01 004450 -00622 002247 0250 0250 0125 0750 0750 0875 0000 %0181 U02 004347 000010 -00093 0250 0250 0250 0750 0750 0750 0000 %0182 U03 004261 000525 -01918 0250 0250 0375 0750 0750 0625 0000 %0183 U04 004510 000878 -02394 0250 0250 0500 0750 0750 0500 0000 %0184 U05 004616 001102 -02809 0250 0250 0625 0750 0750 0375 0000 %0185 U06 004400 001799 -03675 0250 0250 0750 0750 0750 0250 0000 %0186 U07 003884 002250 -03915 0250 0250 0875 0750 0750 0125 0000 %0187 U08 003818 002246 -04009 0250 0250 1000 0750 0750 0000 0000 %0188 U09 004087 -01668 003647 0250 0375 0000 0750 0625 1000 0000 %0189 V01 005125 -02007 002635 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004923 -01453 000565 0250 0375 0250 0750 0625 0750 0000 %0191 V03 005034 -00980 -01581 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004979 -00452 -02381 0250 0375 0500 0750 0625 0500 0000 %0193 V05 005054 -00208 -02728 0250 0375 0625 0750 0625 0375 0000 %0194 V06 005006 000311 -03479 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004497 000831 -04054 0250 0375 0875 0750 0625 0125 0000 %0196 V08 004331 001053 -04095 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004828 -02937 004069 0250 0500 0000 0750 0500 1000 0000 %0198 W01 005503 -02798 002777 0250 0500 0125 0750 0500 0875 0000 %0199 W02 005473 -02576 001154 0250 0500 0250 0750 0500 0750 0000 %0200 W03 005577 -02006 -00414 0250 0500 0375 0750 0500 0625 0000 %0201 W04 005557 -01490 -02058 0250 0500 0500 0750 0500 0500 0000 %0202 W05 005538 -01082 -02711 0250 0500 0625 0750 0500 0375 0000 %0203 W06 005462 -00861 -03135 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005107 -00503 -04102 0250 0500 0875 0750 0500 0125 0000 %0205 W08 004566 000079 -04248 0250 0500 1000 0750 0500 0000 0000 %0206 W09 005715 -03819 004643 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005892 -03536 003057 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005946 -03127 001721 0250 0625 0250 0750 0375 0750 0000 %0209 X03 006084 -02776 000342 0250 0625 0375 0750 0375 0625 0000 %0210 X04 006177 -02325 -00933 0250 0625 0500 0750 0375 0500 0000 %0211 X05 006113 -01776 -02514 0250 0625 0625 0750 0375 0375 0000 %0212 X06 006001 -01416 -03051 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005869 -01229 -03751 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005411 -01102 -04089 0250 0625 1000 0750 0375 0000 0000 %0215 X09 006305 -04553 004929 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 006412 -04285 003543 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 006491 -03763 002171 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 006630 -03513 001042 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 006687 -03035 -00203 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 006586 -02598 -01410 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 006547 -02217 -02747 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 006348 -01829 -03335 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 006036 -01669 -03839 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 006539 -05010 004954 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 006581 -04806 003636 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 006668 -04429 002448 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 006708 -04087 001329 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 006744 -03644 000128 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 006758 -03247 -00811 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 006659 -02901 -01796 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 006523 -02296 -03211 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 006371 -01990 -03529 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006389 -05237 004718 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006575 -04799 003608 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006437 -04822 002712 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006381 -04611 001570 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006484 -04118 000544 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006435 -03673 -00729 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006494 -03280 -01368 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006450 -02920 -02217 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006053 -02682 -03367 0250 1000 1000 0750 0000 0000 0000 %0242 a09 002929 003582 001926 0375 0000 0000 0625 1000 1000 0000 %0243 A10 002854 003801 000978 0375 0000 0125 0625 1000 0875 0000 %0244 A11 002844 004006 -00005 0375 0000 0250 0625 1000 0750 0000 %0245 A12 002978 004384 -01096 0375 0000 0375 0625 1000 0625 0000 %0246 A13 002985 004380 -01740 0375 0000 0500 0625 1000 0500 0000 %0247 A14 003032 004381 -02272 0375 0000 0625 0625 1000 0375 0000 %0248 A15 003120 004467 -02767 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003197 004511 -03035 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003200 004595 -03223 0375 0000 1000 0625 1000 0000 0000 %0251 A18 003488 002153 003107 0375 0125 0000 0625 0875 1000 0000 %0252 B10 003964 002148 001898 0375 0125 0125 0625 0875 0875 0000 %0253 B11 003871 002662 000350 0375 0125 0250 0625 0875 0750 0000 %0254 B12 003990 003292 -01186 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003838 003445 -01904 0375 0125 0500 0625 0875 0500 0000 %0256 B14 003906 003491 -02523 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003799 004074 -03220 0375 0125 0750 0625 0875 0250 0000 %0258 B16 003623 003999 -03429 0375 0125 0875 0625 0875 0125 0000 %0259 B17 003601 003881 -03497 0375 0125 1000 0625 0875 0000 0000 %0260 B18 004154 000503 003985 0375 0250 0000 0625 0750 1000 0000 %0261 C10 004954 000449 002895 0375 0250 0125 0625 0750 0875 0000 %0262 C11 004855 000970 000876 0375 0250 0250 0625 0750 0750 0000 %0263 C12 004982 001499 -01047 0375 0250 0375 0625 0750 0625 0000 %0264 C13 004742 001844 -01877 0375 0250 0500 0625 0750 0500 0000 %0265 C14 004711 001939 -02457 0375 0250 0625 0625 0750 0375 0000 %0266 C15 004581 002678 -03330 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004139 002825 -03618 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004023 002935 -03643 0375 0250 1000 0625 0750 0000 0000 %0269 C18 005294 -00928 005131 0375 0375 0000 0625 0625 1000 0000 %0270 D10 006092 -00957 003772 0375 0375 0125 0625 0625 0875 0000 %0271 D11 005855 -00625 001630 0375 0375 0250 0625 0625 0750 0000 %0272 D12 005647 000024 -00093 0375 0375 0375 0625 0625 0625 0000 %0273 D13 005443 000416 -01805 0375 0375 0500 0625 0625 0500 0000 %0274 D14 005332 000632 -02367 0375 0375 0625 0625 0625 0375 0000 %0275 D15 005299 001173 -03115 0375 0375 0750 0625 0625 0250 0000 %0276 D16 004870 001731 -03515 0375 0375 0875 0625 0625 0125 0000 %0277 D17 004631 001895 -03647 0375 0375 1000 0625 0625 0000 0000 %0278 D18 005560 -01652 005305 0375 0500 0000 0625 0500 1000 0000 %0279 E10 006331 -01833 004116 0375 0500 0125 0625 0500 0875 0000 %0280 E11 006264 -01627 001928 0375 0500 0250 0625 0500 0750 0000 %0281 E12 006245 -01341 000405 0375 0500 0375 0625 0500 0625 0000 %0282 E13 006257 -00890 -01393 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005965 -00414 -02185 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005767 -00192 -02816 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005636 000239 -03493 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005151 000815 -03635 0375 0500 1000 0625 0500 0000 0000 %0287 E18 006090 -02663 005431 0375 0625 0000 0625 0375 1000 0000 %0288 F10 006597 -02736 004443 0375 0625 0125 0625 0375 0875 0000 %0289 F11 006639 -02561 002404 0375 0625 0250 0625 0375 0750 0000 %0290 F12 006676 -02306 000879 0375 0625 0375 0625 0375 0625 0000 %0291 F13 006733 -01971 -00322 0375 0625 0500 0625 0375 0500 0000 %0292 F14 006678 -01617 -01880 0375 0625 0625 0625 0375 0375 0000 %0293 F15 006454 -01254 -02676 0375 0625 0750 0625 0375 0250 0000 %0294 F16 006330 -00867 -03356 0375 0625 0875 0625 0375 0125 0000 %0295 F17 005697 -00468 -03668 0375 0625 1000 0625 0375 0000 0000 %0296 F18 006668 -03529 005649 0375 0750 0000 0625 0250 1000 0000 %0297 G10 007045 -03399 004486 0375 0750 0125 0625 0250 0875 0000 %0298 G11 007009 -03116 002583 0375 0750 0250 0625 0250 0750 0000 %0299 G12 007070 -02998 001460 0375 0750 0375 0625 0250 0625 0000 %0300 G13 007190 -02692 000351 0375 0750 0500 0625 0250 0500 0000 %0301 G14 007059 -02336 -01115 0375 0750 0625 0625 0250 0375 0000 %0302 G15 007101 -02010 -02282 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006918 -01536 -03030 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006528 -01354 -03370 0375 0750 1000 0625 0250 0000 0000 %0305 G18 006947 -04168 005741 0375 0875 0000 0625 0125 1000 0000 %0306 H10 007166 -04084 004744 0375 0875 0125 0625 0125 0875 0000 %0307 H11 007123 -03912 003018 0375 0875 0250 0625 0125 0750 0000 %0308 H12 007144 -03676 002051 0375 0875 0375 0625 0125 0625 0000 %0309 H13 007221 -03279 000854 0375 0875 0500 0625 0125 0500 0000 %0310 H14 007236 -02918 -00341 0375 0875 0625 0625 0125 0375 0000 %0311 H15 007158 -02567 -01469 0375 0875 0750 0625 0125 0250 0000 %0312 H16 007127 -02013 -02762 0375 0875 0875 0625 0125 0125 0000 %0313 H17 006935 -01776 -03211 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006899 -04446 005586 0375 1000 0000 0625 0000 1000 0000 %0315 I10 006911 -04367 004557 0375 1000 0125 0625 0000 0875 0000 %0316 I11 007080 -03914 002851 0375 1000 0250 0625 0000 0750 0000 %0317 I12 007007 -03819 002034 0375 1000 0375 0625 0000 0625 0000 %0318 I13 007042 -03574 001143 0375 1000 0500 0625 0000 0500 0000 %0319 I14 007090 -03206 000040 0375 1000 0625 0625 0000 0375 0000 %0320 I15 007035 -02909 -01020 0375 1000 0750 0625 0000 0250 0000 %0321 I16 007034 -02517 -01875 0375 1000 0875 0625 0000 0125 0000 %0322 I17 006910 -02176 -02874 0375 1000 1000 0625 0000 0000 0000 %0323 I18 003324 004351 002482 0500 0000 0000 0500 1000 1000 0000 %0324 J10 003374 004374 001819 0500 0000 0125 0500 1000 0875 0000 %0325 J11 003291 004473 000731 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003299 004801 -00402 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003348 005068 -01322 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003387 005028 -01878 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003405 005017 -02394 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003516 005082 -02797 0500 0000 0875 0500 1000 0125 0000 %0331 J17 003446 004990 -02949 0500 0000 1000 0500 1000 0000 0000 %0332 J18 003870 003130 003660 0500 0125 0000 0500 0875 1000 0000 %0333 K10 004189 003171 002830 0500 0125 0125 0500 0875 0875 0000 %0334 K11 004175 003315 001174 0500 0125 0250 0500 0875 0750 0000 %0335 K12 004208 003756 -00009 0500 0125 0375 0500 0875 0625 0000 %0336 K13 004189 004135 -01170 0500 0125 0500 0500 0875 0500 0000 %0337 K14 004098 004311 -01989 0500 0125 0625 0500 0875 0375 0000 %0338 K15 004106 004459 -02599 0500 0125 0750 0500 0875 0250 0000 %0339 K16 003818 004507 -03103 0500 0125 0875 0500 0875 0125 0000 %0340 K17 003761 004341 -03197 0500 0125 1000 0500 0875 0000 0000 %0341 K18 004594 001310 004433 0500 0250 0000 0500 0750 1000 0000 %0342 L10 005249 001296 003386 0500 0250 0125 0500 0750 0875 0000 %0343 L11 005204 001615 001670 0500 0250 0250 0500 0750 0750 0000 %0344 L12 005249 002070 000164 0500 0250 0375 0500 0750 0625 0000 %0345 L13 005265 002513 -01144 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004986 002840 -01805 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004923 003109 -02524 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004505 003302 -03169 0500 0250 0875 0500 0750 0125 0000 %0349 L17 004251 003483 -03292 0500 0250 1000 0500 0750 0000 0000 %0350 L18 005434 000008 005309 0500 0375 0000 0500 0625 1000 0000 %0351 M10 006073 -00048 004360 0500 0375 0125 0500 0625 0875 0000 %0352 M11 006064 000354 002443 0500 0375 0250 0500 0625 0750 0000 %0353 M12 006059 000728 000780 0500 0375 0375 0500 0625 0625 0000 %0354 M13 005960 001235 -00925 0500 0375 0500 0500 0625 0500 0000 %0355 M14 005724 001554 -01723 0500 0375 0625 0500 0625 0375 0000 %0356 M15 005627 001982 -02510 0500 0375 0750 0500 0625 0250 0000 %0357 M16 005242 002153 -03071 0500 0375 0875 0500 0625 0125 0000 %0358 M17 004958 002279 -03269 0500 0375 1000 0500 0625 0000 0000 %0359 M18 006599 -01011 006542 0500 0500 0000 0500 0500 1000 0000 %0360 N10 006997 -01080 005265 0500 0500 0125 0500 0500 0875 0000 %0361 N11 007013 -00919 003317 0500 0500 0250 0500 0500 0750 0000 %0362 N12 006935 -00608 001495 0500 0500 0375 0500 0500 0625 0000 %0363 N13 006765 000027 -00080 0500 0500 0500 0500 0500 0500 0000 %0364 N14 006462 000368 -01624 0500 0500 0625 0500 0500 0375 0000 %0365 N15 006242 000738 -02324 0500 0500 0750 0500 0500 0250 0000 %0366 N16 006089 001038 -02871 0500 0500 0875 0500 0500 0125 0000 %0367 N17 005528 001254 -03183 0500 0500 1000 0500 0500 0000 0000 %0368 N18 007007 -01705 006883 0500 0625 0000 0500 0375 1000 0000 %0369 O10 007387 -01849 005617 0500 0625 0125 0500 0375 0875 0000 %0370 O11 007367 -01728 003606 0500 0625 0250 0500 0375 0750 0000 %0371 O12 007268 -01499 001916 0500 0625 0375 0500 0375 0625 0000 %0372 O13 007269 -01323 000390 0500 0625 0500 0500 0375 0500 0000 %0373 O14 007231 -00973 -01318 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006958 -00480 -01945 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006851 -00281 -02756 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006185 000178 -03086 0500 0625 1000 0500 0375 0000 0000 %0377 O18 007395 -02502 006904 0500 0750 0000 0500 0250 1000 0000 %0378 P10 007593 -02608 005781 0500 0750 0125 0500 0250 0875 0000 %0379 P11 007588 -02328 003593 0500 0750 0250 0500 0250 0750 0000 %0380 P12 007548 -02248 002158 0500 0750 0375 0500 0250 0625 0000 %0381 P13 007625 -02012 001052 0500 0750 0500 0500 0250 0500 0000 %0382 P14 007687 -01784 -00304 0500 0750 0625 0500 0250 0375 0000 %0383 P15 007680 -01589 -01885 0500 0750 0750 0500 0250 0250 0000 %0384 P16 007409 -01141 -02583 0500 0750 0875 0500 0250 0125 0000 %0385 P17 006784 -00868 -02998 0500 0750 1000 0500 0250 0000 0000 %0386 P18 007561 -03295 006743 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 007791 -03317 005977 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 007751 -03271 003984 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 007596 -03207 002568 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007684 -02890 001323 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007752 -02552 000342 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007661 -02181 -01046 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007606 -01672 -02396 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 007273 -01475 -02803 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 007354 -03887 006269 0500 1000 0000 0500 0000 1000 0000 %0396 R10 007459 -03755 005486 0500 1000 0125 0500 0000 0875 0000 %0397 R11 007391 -03664 003825 0500 1000 0250 0500 0000 0750 0000 %0398 R12 007539 -03249 002462 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007651 -02935 001557 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007638 -02743 000703 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007587 -02426 -00586 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007495 -02161 -01573 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007390 -01832 -02564 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003721 004889 002745 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003750 004949 002088 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003691 005002 001332 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003697 005232 000382 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003701 005570 -00681 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003695 005706 -01351 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003721 005646 -01907 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003757 005535 -02362 0625 0000 0875 0375 1000 0125 0000 %0412 S17 003721 005465 -02574 0625 0000 1000 0375 1000 0000 0000 %0413 S18 004448 004288 004393 0625 0125 0000 0375 0875 1000 0000 %0414 T10 004611 003707 003012 0625 0125 0125 0375 0875 0875 0000 %0415 T11 004567 003861 001845 0625 0125 0250 0375 0875 0750 0000 %0416 T12 004485 004177 000737 0625 0125 0375 0375 0875 0625 0000 %0417 T13 004554 004662 -00361 0625 0125 0500 0375 0875 0500 0000 %0418 T14 004460 005088 -01376 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004415 004986 -01978 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004219 005043 -02595 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004075 004746 -02849 0625 0125 1000 0375 0875 0000 0000 %0422 T18 005269 002236 005214 0625 0250 0000 0375 0750 1000 0000 %0423 U10 005446 002242 003822 0625 0250 0125 0375 0750 0875 0000 %0424 U11 005450 002416 002214 0625 0250 0250 0375 0750 0750 0000 %0425 U12 005488 002662 001012 0625 0250 0375 0375 0750 0625 0000 %0426 U13 005511 003159 -00196 0625 0250 0500 0375 0750 0500 0000 %0427 U14 005388 003559 -01266 0625 0250 0625 0375 0750 0375 0000 %0428 U15 005283 003606 -01846 0625 0250 0750 0375 0750 0250 0000 %0429 U16 004943 003919 -02604 0625 0250 0875 0375 0750 0125 0000 %0430 U17 004567 003967 -02852 0625 0250 1000 0375 0750 0000 0000 %0431 U18 005754 000952 005705 0625 0375 0000 0375 0625 1000 0000 %0432 V10 006232 001000 004738 0625 0375 0125 0375 0625 0875 0000 %0433 V11 006299 001144 002899 0625 0375 0250 0375 0625 0750 0000 %0434 V12 006293 001317 001590 0625 0375 0375 0375 0625 0625 0000 %0435 V13 006365 001847 000255 0625 0375 0500 0375 0625 0500 0000 %0436 V14 006202 002293 -01088 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005987 002449 -01760 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005732 002889 -02443 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005210 002936 -02833 0625 0375 1000 0375 0625 0000 0000 %0440 V18 006785 -00120 006762 0625 0500 0000 0375 0500 1000 0000 %0441 W10 007142 -00250 005752 0625 0500 0125 0375 0500 0875 0000 %0442 W11 007128 -00015 003612 0625 0500 0250 0375 0500 0750 0000 %0443 W12 007133 000279 002252 0625 0500 0375 0375 0500 0625 0000 %0444 W13 007041 000758 000687 0625 0500 0500 0375 0500 0500 0000 %0445 W14 006929 001126 -00903 0625 0500 0625 0375 0500 0375 0000 %0446 W15 006693 001383 -01629 0625 0500 0750 0375 0500 0250 0000 %0447 W16 006529 001720 -02272 0625 0500 0875 0375 0500 0125 0000 %0448 W17 005996 001831 -02619 0625 0500 1000 0375 0500 0000 0000 %0449 W18 007928 -01227 007949 0625 0625 0000 0375 0375 1000 0000 %0450 X10 007952 -01147 006695 0625 0625 0125 0375 0375 0875 0000 %0451 X11 007971 -00995 004488 0625 0625 0250 0375 0375 0750 0000 %0452 X12 007940 -00734 003080 0625 0625 0375 0375 0375 0625 0000 %0453 X13 007925 -00469 001418 0625 0625 0500 0375 0375 0500 0000 %0454 X14 007852 000025 -00053 0625 0625 0625 0375 0375 0375 0000 %0455 X15 007471 000270 -01371 0625 0625 0750 0375 0375 0250 0000 %0456 X16 007302 000524 -02096 0625 0625 0875 0375 0375 0125 0000 %0457 X17 006719 000711 -02502 0625 0625 1000 0375 0375 0000 0000 %0458 X18 008371 -01761 008378 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 008210 -01820 006811 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 008203 -01712 004583 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 008159 -01593 003332 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 008176 -01419 002011 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 008243 -01216 000432 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 008221 -00917 -01123 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007940 -00534 -01895 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007304 -00444 -02408 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 008350 -02454 007936 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 008329 -02451 006730 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 008298 -02338 004634 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 008282 -02412 003554 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 008355 -02259 002126 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 008432 -01994 001230 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 008342 -01644 -00312 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 008227 -01225 -01783 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007843 -01171 -02183 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 008021 -03143 007210 0625 1000 0000 0375 0000 1000 0000 %0477 a10 008214 -02933 006415 0625 1000 0125 0375 0000 0875 0000 %0478 a11 008115 -02938 004935 0625 1000 0250 0375 0000 0750 0000 %0479 a12 007986 -02924 003548 0625 1000 0375 0375 0000 0625 0000 %0480 a13 008085 -02592 002171 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008258 -02199 001392 0625 1000 0625 0375 0000 0375 0000 %0482 a15 008236 -01970 000377 0625 1000 0750 0375 0000 0250 0000 %0483 a16 008066 -01712 -01012 0625 1000 0875 0375 0000 0125 0000 %0484 a17 007964 -01442 -02033 0625 1000 1000 0375 0000 0000 0000 %0485 a18 004053 005462 002905 0750 0000 0000 0250 1000 1000 0000 %0486 A19 004032 005444 002545 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003955 005519 001848 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003940 005709 000987 0750 0000 0375 0250 1000 0625 0000 %0489 A22 003884 005874 000174 0750 0000 0500 0250 1000 0500 0000 %0490 A23 003831 006091 -00852 0750 0000 0625 0250 1000 0375 0000 %0491 A24 003877 006134 -01479 0750 0000 0750 0250 1000 0250 0000 %0492 A25 003907 006095 -01955 0750 0000 0875 0250 1000 0125 0000 %0493 A26 003912 006017 -02189 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004929 004853 004932 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004928 004298 003586 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004796 004603 002341 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004689 004903 001428 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004650 005180 000562 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004559 005612 -00587 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004523 005891 -01672 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004485 005728 -02170 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004369 005451 -02411 0750 0125 1000 0250 0875 0000 0000 %0503 B27 005888 002984 005856 0750 0250 0000 0250 0750 1000 0000 %0504 C19 005692 002911 004202 0750 0250 0125 0250 0750 0875 0000 %0505 C20 005640 003164 002760 0750 0250 0250 0250 0750 0750 0000 %0506 C21 005601 003369 001755 0750 0250 0375 0250 0750 0625 0000 %0507 C22 005528 003602 000847 0750 0250 0500 0250 0750 0500 0000 %0508 C23 005513 004047 -00281 0750 0250 0625 0250 0750 0375 0000 %0509 C24 005413 004326 -01465 0750 0250 0750 0250 0750 0250 0000 %0510 C25 005298 004671 -02151 0750 0250 0875 0250 0750 0125 0000 %0511 C26 004912 004562 -02464 0750 0250 1000 0250 0750 0000 0000 %0512 C27 006469 001766 006435 0750 0375 0000 0250 0625 1000 0000 %0513 D19 006478 001675 005040 0750 0375 0125 0250 0625 0875 0000 %0514 D20 006416 001794 003300 0750 0375 0250 0250 0625 0750 0000 %0515 D21 006366 002075 002179 0750 0375 0375 0250 0625 0625 0000 %0516 D22 006324 002269 001306 0750 0375 0500 0250 0625 0500 0000 %0517 D23 006267 002855 000007 0750 0375 0625 0250 0625 0375 0000 %0518 D24 006157 003252 -01250 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005966 003687 -02047 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005456 003826 -02369 0750 0375 1000 0250 0625 0000 0000 %0521 D27 007021 000727 007013 0750 0500 0000 0250 0500 1000 0000 %0522 E19 007087 000620 005930 0750 0500 0125 0250 0500 0875 0000 %0523 E20 007088 000757 003954 0750 0500 0250 0250 0500 0750 0000 %0524 E21 007045 000972 002840 0750 0500 0375 0250 0500 0625 0000 %0525 E22 007002 001163 001912 0750 0500 0500 0250 0500 0500 0000 %0526 E23 006842 001792 000388 0750 0500 0625 0250 0500 0375 0000 %0527 E24 006812 002293 -01091 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006756 002652 -01820 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006191 002915 -02171 0750 0500 1000 0250 0500 0000 0000 %0530 E27 008005 -00209 008010 0750 0625 0000 0250 0375 1000 0000 %0531 F19 007912 -00334 006883 0750 0625 0125 0250 0375 0875 0000 %0532 F20 007894 -00252 004761 0750 0625 0250 0250 0375 0750 0000 %0533 F21 007809 000007 003683 0750 0625 0375 0250 0375 0625 0000 %0534 F22 007747 000202 002631 0750 0625 0500 0250 0375 0500 0000 %0535 F23 007620 000746 000860 0750 0625 0625 0250 0375 0375 0000 %0536 F24 007582 001188 -00871 0750 0625 0750 0250 0375 0250 0000 %0537 F25 007597 001346 -01655 0750 0625 0875 0250 0375 0125 0000 %0538 F26 006989 001698 -01985 0750 0625 1000 0250 0375 0000 0000 %0539 F27 008951 -01223 008999 0750 0750 0000 0250 0250 1000 0000 %0540 G19 008658 -01140 007537 0750 0750 0125 0250 0250 0875 0000 %0541 G20 008627 -01000 005628 0750 0750 0250 0250 0250 0750 0000 %0542 G21 008631 -00876 004507 0750 0750 0375 0250 0250 0625 0000 %0543 G22 008539 -00676 003359 0750 0750 0500 0250 0250 0500 0000 %0544 G23 008586 -00438 001689 0750 0750 0625 0250 0250 0375 0000 %0545 G24 008469 000025 -00019 0750 0750 0750 0250 0250 0250 0000 %0546 G25 008275 000297 -01347 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007769 000416 -01808 0750 0750 1000 0250 0250 0000 0000 %0548 G27 009208 -01721 009355 0750 0875 0000 0250 0125 1000 0000 %0549 H19 008845 -01864 007992 0750 0875 0125 0250 0125 0875 0000 %0550 H20 008720 -01801 005708 0750 0875 0250 0250 0125 0750 0000 %0551 H21 008707 -01776 004704 0750 0875 0375 0250 0125 0625 0000 %0552 H22 008781 -01742 003852 0750 0875 0500 0250 0125 0500 0000 %0553 H23 008854 -01618 002788 0750 0875 0625 0250 0125 0375 0000 %0554 H24 008949 -01410 001097 0750 0875 0750 0250 0125 0250 0000 %0555 H25 008798 -00914 -01130 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008422 -00900 -01613 0750 0875 1000 0250 0125 0000 0000 %0557 H27 008835 -02303 008576 0750 1000 0000 0250 0000 1000 0000 %0558 I19 008725 -02323 007336 0750 1000 0125 0250 0000 0875 0000 %0559 I20 008710 -02363 005827 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008633 -02409 004906 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008579 -02343 003875 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008599 -02190 002709 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008720 -01865 001728 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008574 -01559 000001 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008427 -01194 -01516 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004425 005903 003608 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004337 005872 003024 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004283 005935 002333 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004235 006079 001619 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004259 006235 000851 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004239 006500 000053 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004243 006698 -00925 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004286 006744 -01486 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004158 006496 -01804 0875 0000 1000 0125 1000 0000 0000 %0575 J27 005225 005192 005290 0875 0125 0000 0125 0875 1000 0000 %0576 K19 005168 005755 004586 0875 0125 0125 0125 0875 0875 0000 %0577 K20 005106 005815 003333 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004965 006097 002337 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004940 006367 001442 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004940 006789 000106 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004827 006967 -01287 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004737 006124 -01831 0875 0125 0875 0125 0875 0125 0000 %0583 K26 004604 005924 -01996 0875 0125 1000 0125 0875 0000 0000 %0584 K27 006159 003601 006146 0875 0250 0000 0125 0750 1000 0000 %0585 L19 006002 003990 005417 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005982 004194 003823 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005921 004389 002753 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005811 004677 001708 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005831 004982 000725 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005828 005515 -00749 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005694 005151 -01606 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005349 005049 -01905 0875 0250 1000 0125 0750 0000 0000 %0593 L27 006784 002484 006716 0875 0375 0000 0125 0625 1000 0000 %0594 M19 006640 002721 005652 0875 0375 0125 0125 0625 0875 0000 %0595 M20 006584 002909 004067 0875 0375 0250 0125 0625 0750 0000 %0596 M21 006641 002993 003063 0875 0375 0375 0125 0625 0625 0000 %0597 M22 006609 003247 002106 0875 0375 0500 0125 0625 0500 0000 %0598 M23 006607 003577 001194 0875 0375 0625 0125 0625 0375 0000 %0599 M24 006552 004266 -00382 0875 0375 0750 0125 0625 0250 0000 %0600 M25 006408 004273 -01497 0875 0375 0875 0125 0625 0125 0000 %0601 M26 005973 004056 -01884 0875 0375 1000 0125 0625 0000 0000 %0602 M27 007253 001489 007176 0875 0500 0000 0125 0500 1000 0000 %0603 N19 007303 001506 006216 0875 0500 0125 0125 0500 0875 0000 %0604 N20 007278 001616 004516 0875 0500 0250 0125 0500 0750 0000 %0605 N21 007228 001768 003446 0875 0500 0375 0125 0500 0625 0000 %0606 N22 007243 001938 002472 0875 0500 0500 0125 0500 0500 0000 %0607 N23 007254 002234 001501 0875 0500 0625 0125 0500 0375 0000 %0608 N24 007249 002907 000004 0875 0500 0750 0125 0500 0250 0000 %0609 N25 007186 003115 -01303 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006812 003149 -01561 0875 0500 1000 0125 0500 0000 0000 %0611 N27 007921 000589 007852 0875 0625 0000 0125 0375 1000 0000 %0612 O19 007852 000486 006774 0875 0625 0125 0125 0375 0875 0000 %0613 O20 007835 000555 004927 0875 0625 0250 0125 0375 0750 0000 %0614 O21 007853 000784 004031 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007835 000811 003089 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007849 001140 001994 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007784 001700 000508 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007866 002110 -01047 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007446 002345 -01372 0875 0625 1000 0125 0375 0000 0000 %0620 O27 008501 -00372 008395 0875 0750 0000 0125 0250 1000 0000 %0621 P19 008505 -00363 007265 0875 0750 0125 0125 0250 0875 0000 %0622 P20 008460 -00272 005533 0875 0750 0250 0125 0250 0750 0000 %0623 P21 008407 -00095 004521 0875 0750 0375 0125 0250 0625 0000 %0624 P22 008372 000050 003589 0875 0750 0500 0125 0250 0500 0000 %0625 P23 008406 000258 002576 0875 0750 0625 0125 0250 0375 0000 %0626 P24 008325 000804 000905 0875 0750 0750 0125 0250 0250 0000 %0627 P25 008527 001141 -00828 0875 0750 0875 0125 0250 0125 0000 %0628 P26 008094 001291 -01211 0875 0750 1000 0125 0250 0000 0000 %0629 P27 009084 -01315 009035 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 009037 -01173 007918 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 009098 -01098 006438 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 009120 -00964 005380 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 009131 -00871 004351 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 009181 -00836 003394 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 009242 -00547 001803 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 009341 000016 -00021 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008738 000201 -01026 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 009349 -01741 009298 0875 1000 0000 0125 0000 1000 0000 %0639 R19 009148 -01648 008277 0875 1000 0125 0125 0000 0875 0000 %0640 R20 009056 -01588 006460 0875 1000 0250 0125 0000 0750 0000 %0641 R21 009003 -01724 005351 0875 1000 0375 0125 0000 0625 0000 %0642 R22 009020 -01728 004528 0875 1000 0500 0125 0000 0500 0000 %0643 R23 009134 -01687 003751 0875 1000 0625 0125 0000 0375 0000 %0644 R24 009141 -01502 002587 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009142 -01097 000809 0875 1000 0875 0125 0000 0125 0000 %0646 R26 008992 -00780 -00811 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004597 006191 003836 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004544 006191 003310 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004495 006212 002574 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004447 006297 001882 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004449 006437 001238 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004499 006649 000589 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004465 006944 -00181 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004497 007088 -00967 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004532 007094 -01297 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005236 005637 005349 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005097 005933 004727 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005030 006162 003575 1000 0125 0250 0000 0875 0750 0000 %0659 T21 004946 006463 002645 1000 0125 0375 0000 0875 0625 0000 %0660 T22 004911 006665 001927 1000 0125 0500 0000 0875 0500 0000 %0661 T23 004844 007003 000990 1000 0125 0625 0000 0875 0375 0000 %0662 T24 004876 007239 -00048 1000 0125 0750 0000 0875 0250 0000 %0663 T25 004930 007475 -00866 1000 0125 0875 0000 0875 0125 0000 %0664 T26 004946 006881 -01275 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005988 004132 006048 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005884 004353 005459 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005865 004495 004382 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005728 004931 003152 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005650 005253 002279 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005604 005561 001352 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005630 005852 000241 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005747 006084 -00901 1000 0250 0875 0000 0750 0125 0000 %0673 U26 005776 005699 -01326 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006579 003009 006599 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006506 003189 005840 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006435 003410 004818 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006424 003643 003528 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006410 003841 002620 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006386 004138 001673 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006403 004436 000643 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006461 004818 -00573 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006552 004903 -01139 1000 0375 1000 0000 0625 0000 0000 %0683 V27 007156 001931 007107 1000 0500 0000 0000 0500 1000 0000 %0684 W19 007170 001946 006448 1000 0500 0125 0000 0500 0875 0000 %0685 W20 007135 002154 004952 1000 0500 0250 0000 0500 0750 0000 %0686 W21 007134 002356 003867 1000 0500 0375 0000 0500 0625 0000 %0687 W22 007209 002429 002991 1000 0500 0500 0000 0500 0500 0000 %0688 W23 007209 002707 001978 1000 0500 0625 0000 0500 0375 0000 %0689 W24 007173 003108 000870 1000 0500 0750 0000 0500 0250 0000 %0690 W25 007184 003602 -00359 1000 0500 0875 0000 0500 0125 0000 %0691 W26 007176 003882 -01005 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007573 001193 007501 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007690 001037 006750 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007715 001133 005468 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007757 001282 004275 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007826 001363 003459 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007905 001520 002445 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007913 001899 001242 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007937 002426 -00131 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007845 002847 -00831 1000 0625 1000 0000 0375 0000 0000 %0701 X27 008242 000071 007784 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 008280 000123 006491 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 008253 000289 005574 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 008287 000392 004734 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008372 000432 004049 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008411 000655 002961 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008557 000854 001696 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008472 001585 000185 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008489 001927 -00674 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008668 -00576 007248 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008743 -00583 006623 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008726 -00406 005614 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008758 -00297 004851 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008799 -00224 004260 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008831 -00059 003482 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 009108 -00204 002579 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 009059 000427 001065 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 009135 000966 -00397 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009160 -01393 008367 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009186 -01361 007635 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009190 -01179 006237 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009312 -01210 005491 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009344 -01144 004959 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009387 -01024 004167 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009564 -01083 003420 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009643 -00705 001989 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009730 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009743 -00001 000003 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009040 -00743 -00765 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008506 -01083 -01424 0750 1000 1000 0250 0000 0000 0000 %0731 b03 008045 -01419 -01916 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007477 -01758 -02479 0500 1000 1000 0500 0000 0000 0000 %0733 b05 006934 -02087 -02867 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006130 -02697 -03310 0250 1000 1000 0750 0000 0000 0000 %0735 b07 005532 -03193 -03615 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005120 -03358 -03932 0000 1000 1000 1000 0000 0000 0000 %0737 b09 009142 000379 000943 1000 0875 0875 0000 0125 0125 0000 %0738 c01 009334 000004 000017 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008885 -00821 -01054 0750 0875 0875 0250 0125 0125 0000 %0740 c03 008291 -01213 -01706 0625 0875 0875 0375 0125 0125 0000 %0741 c04 007704 -01593 -02248 0500 0875 0875 0500 0125 0125 0000 %0742 c05 007147 -01917 -02736 0375 0875 0875 0625 0125 0125 0000 %0743 c06 006511 -02322 -03192 0250 0875 0875 0750 0125 0125 0000 %0744 c07 005772 -02949 -03530 0125 0875 0875 0875 0125 0125 0000 %0745 c08 005061 -03424 -03900 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008642 000824 001485 1000 0750 0750 0000 0250 0250 0000 %0747 d01 008428 000649 000840 0875 0750 0750 0125 0250 0250 0000 %0748 d02 008527 000022 -00012 0750 0750 0750 0250 0250 0250 0000 %0749 d03 008155 -00905 -01083 0625 0750 0750 0375 0250 0250 0000 %0750 d04 007693 -01549 -01753 0500 0750 0750 0500 0250 0250 0000 %0751 d05 007095 -01939 -02295 0375 0750 0750 0625 0250 0250 0000 %0752 d06 006523 -02308 -02765 0250 0750 0750 0750 0250 0250 0000 %0753 d07 005845 -02944 -03109 0125 0750 0750 0875 0250 0250 0000 %0754 d08 005008 -03595 -03756 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007934 001550 002203 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007997 000999 001890 0875 0625 0625 0125 0375 0375 0000 %0757 e02 007783 000707 000758 0750 0625 0625 0250 0375 0375 0000 %0758 e03 007707 000020 -00036 0625 0625 0625 0375 0375 0375 0000 %0759 e04 007285 -00904 -01223 0500 0625 0625 0500 0375 0375 0000 %0760 e05 006744 -01525 -01815 0375 0625 0625 0625 0375 0375 0000 %0761 e06 006064 -01820 -02595 0250 0625 0625 0750 0375 0375 0000 %0762 e07 005540 -02589 -02944 0125 0625 0625 0875 0375 0375 0000 %0763 e08 004991 -03953 -03324 0000 0625 0625 1000 0375 0375 0000 %0764 e09 007247 002423 002726 1000 0500 0500 0000 0500 0500 0000 %0765 f01 007353 001851 002250 0875 0500 0500 0125 0500 0500 0000 %0766 f02 007214 001083 001729 0750 0500 0500 0250 0500 0500 0000 %0767 f03 007027 000739 000699 0625 0500 0500 0375 0500 0500 0000 %0768 f04 006796 000013 -00065 0500 0500 0500 0500 0500 0500 0000 %0769 f05 006377 -00837 -01326 0375 0500 0500 0625 0500 0500 0000 %0770 f06 005646 -01503 -02162 0250 0500 0500 0750 0500 0500 0000 %0771 f07 005181 -02065 -02761 0125 0500 0500 0875 0500 0500 0000 %0772 f08 004709 -03453 -03450 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006445 003602 003364 1000 0375 0375 0000 0625 0625 0000 %0774 g01 006624 002971 002920 0875 0375 0375 0125 0625 0625 0000 %0775 g02 006383 002081 002079 0750 0375 0375 0250 0625 0625 0000 %0776 g03 006233 001386 001595 0625 0375 0375 0375 0625 0625 0000 %0777 g04 006012 000733 000834 0500 0375 0375 0500 0625 0625 0000 %0778 g05 005757 000008 -00082 0375 0375 0375 0625 0625 0625 0000 %0779 g06 005264 -00993 -01626 0250 0375 0375 0750 0625 0625 0000 %0780 g07 004752 -01676 -02331 0125 0375 0375 0875 0625 0625 0000 %0781 g08 004218 -02774 -03366 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005925 004363 004291 1000 0250 0250 0000 0750 0750 0000 %0783 h01 006019 004063 003853 0875 0250 0250 0125 0750 0750 0000 %0784 h02 005659 003056 002766 0750 0250 0250 0250 0750 0750 0000 %0785 h03 005357 002376 002331 0625 0250 0250 0375 0750 0750 0000 %0786 h04 005107 001587 001761 0500 0250 0250 0500 0750 0750 0000 %0787 h05 004824 000980 000936 0375 0250 0250 0625 0750 0750 0000 %0788 h06 004574 -00005 -00098 0250 0250 0250 0750 0750 0750 0000 %0789 h07 004282 -01132 -01833 0125 0250 0250 0875 0750 0750 0000 %0790 h08 003634 -02265 -02922 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005092 005925 004492 1000 0125 0125 0000 0875 0875 0000 %0792 i01 005187 005681 004413 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004928 004187 003531 0750 0125 0125 0250 0875 0875 0000 %0794 i03 004563 003665 002987 0625 0125 0125 0375 0875 0875 0000 %0795 i04 004134 003076 002705 0500 0125 0125 0500 0875 0875 0000 %0796 i05 003873 002141 001943 0375 0125 0125 0625 0875 0875 0000 %0797 i06 003648 001230 001264 0250 0125 0125 0750 0875 0875 0000 %0798 i07 002877 -00007 -00089 0125 0125 0125 0875 0875 0875 0000 %0799 i08 003041 -01756 -02326 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004573 006130 003648 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004354 005769 003484 0875 0000 0000 0125 1000 1000 0000 %0802 j02 004033 005296 002827 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003701 004771 002630 0625 0000 0000 0375 1000 1000 0000 %0804 j04 003315 004133 002242 0500 0000 0000 0500 1000 1000 0000 %0805 j05 002960 003465 001813 0375 0000 0000 0625 1000 1000 0000 %0806 j06 002571 002682 001303 0250 0000 0000 0750 1000 1000 0000 %0807 j07 002244 001856 000663 0125 0000 0000 0875 1000 1000 0000 %0808 j08 001451 000002 000010 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009728 000005 -00012 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008843 000091 -00895 0875 0875 1000 0125 0125 0000 0000 %0811 b11 007876 000283 -01705 0750 0750 1000 0250 0250 0000 0000 %0812 b12 006797 000668 -02381 0625 0625 1000 0375 0375 0000 0000 %0813 b13 005606 001233 -03085 0500 0500 1000 0500 0500 0000 0000 %0814 b14 004663 001849 -03516 0375 0375 1000 0625 0625 0000 0000 %0815 b15 003777 002339 -03955 0250 0250 1000 0750 0750 0000 0000 %0816 b16 003430 002388 -04108 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003056 002531 -04256 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009660 -00594 001601 1000 1000 0875 0000 0000 0125 0000 %0819 c10 009443 000013 -00017 0875 0875 0875 0125 0125 0125 0000 %0820 c11 008409 000161 -01232 0750 0750 0875 0250 0250 0125 0000 %0821 c12 007339 000524 -02026 0625 0625 0875 0375 0375 0125 0000 %0822 c13 006131 001046 -02761 0500 0500 0875 0500 0500 0125 0000 %0823 c14 004867 001742 -03411 0375 0375 0875 0625 0625 0125 0000 %0824 c15 003836 002294 -03910 0250 0250 0875 0750 0750 0125 0000 %0825 c16 003405 002473 -04098 0125 0125 0875 0875 0875 0125 0000 %0826 c17 002865 002592 -04308 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009591 -00986 002974 1000 1000 0750 0000 0000 0250 0000 %0828 d10 009359 -00486 001508 0875 0875 0750 0125 0125 0250 0000 %0829 d11 008634 000017 000003 0750 0750 0750 0250 0250 0250 0000 %0830 d12 007461 000239 -01339 0625 0625 0750 0375 0375 0250 0000 %0831 d13 006318 000738 -02192 0500 0500 0750 0500 0500 0250 0000 %0832 d14 005299 001180 -03013 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004316 001887 -03691 0250 0250 0750 0750 0750 0250 0000 %0834 d16 003546 002263 -04086 0125 0125 0750 0875 0875 0250 0000 %0835 d17 002744 002675 -04323 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009409 -00968 003796 1000 1000 0625 0000 0000 0375 0000 %0837 e10 009308 -00794 003063 0875 0875 0625 0125 0125 0375 0000 %0838 e11 008735 -00377 001420 0750 0750 0625 0250 0250 0375 0000 %0839 e12 007786 000022 -00040 0625 0625 0625 0375 0375 0375 0000 %0840 e13 006544 000350 -01574 0500 0500 0625 0500 0500 0375 0000 %0841 e14 005373 000606 -02318 0375 0375 0625 0625 0625 0375 0000 %0842 e15 004508 001242 -02946 0250 0250 0625 0750 0750 0375 0000 %0843 e16 003733 001732 -03692 0125 0125 0625 0875 0875 0375 0000 %0844 e17 002604 002501 -04446 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009342 -01088 004622 1000 1000 0500 0000 0000 0500 0000 %0846 f10 009210 -00833 003958 0875 0875 0500 0125 0125 0500 0000 %0847 f11 008674 -00630 002951 0750 0750 0500 0250 0250 0500 0000 %0848 f12 007925 -00431 001349 0625 0625 0500 0375 0375 0500 0000 %0849 f13 006876 000012 -00067 0500 0500 0500 0500 0500 0500 0000 %0850 f14 005497 000400 -01773 0375 0375 0500 0625 0625 0500 0000 %0851 f15 004426 000944 -02534 0250 0250 0500 0750 0750 0500 0000 %0852 f16 003643 001596 -03211 0125 0125 0500 0875 0875 0500 0000 %0853 f17 002576 002411 -04373 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009294 -01194 005426 1000 1000 0375 0000 0000 0625 0000 %0855 g10 009163 -00974 005183 0875 0875 0375 0125 0125 0625 0000 %0856 g11 008718 -00861 004159 0750 0750 0375 0250 0250 0625 0000 %0857 g12 007925 -00711 002959 0625 0625 0375 0375 0375 0625 0000 %0858 g13 007030 -00591 001450 0500 0500 0375 0500 0500 0625 0000 %0859 g14 005847 000017 -00098 0375 0375 0375 0625 0625 0625 0000 %0860 g15 004363 000517 -02018 0250 0250 0375 0750 0750 0625 0000 %0861 g16 003502 001046 -02718 0125 0125 0375 0875 0875 0625 0000 %0862 g17 002609 001532 -03969 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009196 -01183 006141 1000 1000 0250 0000 0000 0750 0000 %0864 h10 009144 -01112 006180 0875 0875 0250 0125 0125 0750 0000 %0865 h11 008688 -01030 005435 0750 0750 0250 0250 0250 0750 0000 %0866 h12 007933 -00990 004409 0625 0625 0250 0375 0375 0750 0000 %0867 h13 007016 -00894 003220 0500 0500 0250 0500 0500 0750 0000 %0868 h14 005929 -00635 001671 0375 0375 0250 0625 0625 0750 0000 %0869 h15 004628 000007 -00105 0250 0250 0250 0750 0750 0750 0000 %0870 h16 003379 000536 -02124 0125 0125 0250 0875 0875 0750 0000 %0871 h17 002536 001046 -03096 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009186 -01370 007608 1000 1000 0125 0000 0000 0875 0000 %0873 i10 009066 -01206 007793 0875 0875 0125 0125 0125 0875 0000 %0874 i11 008665 -01188 007450 0750 0750 0125 0250 0250 0875 0000 %0875 i12 007889 -01123 006629 0625 0625 0125 0375 0375 0875 0000 %0876 i13 006944 -01086 005293 0500 0500 0125 0500 0500 0875 0000 %0877 i14 006127 -00974 003855 0375 0375 0125 0625 0625 0875 0000 %0878 i15 004900 -00698 002328 0250 0250 0125 0750 0750 0875 0000 %0879 i16 002943 000001 -00096 0125 0125 0125 0875 0875 0875 0000 %0880 i17 002479 000683 -02049 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009151 -01403 008393 1000 1000 0000 0000 0000 1000 0000 %0882 j10 009103 -01350 008974 0875 0875 0000 0125 0125 1000 0000 %0883 j11 008959 -01255 008969 0750 0750 0000 0250 0250 1000 0000 %0884 j12 007876 -01208 007802 0625 0625 0000 0375 0375 1000 0000 %0885 j13 006525 -00989 006363 0500 0500 0000 0500 0500 1000 0000 %0886 j14 005312 -00921 005026 0375 0375 0000 0625 0625 1000 0000 %0887 j15 004297 -00692 003921 0250 0250 0000 0750 0750 1000 0000 %0888 j16 003149 -00436 002399 0125 0125 0000 0875 0875 1000 0000 %0889 j17 001566 000004 000011 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009739 -00004 000008 1000 1000 1000 0000 0000 0000 0000 %0891 b19 009156 000930 -00352 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008540 001859 -00631 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007906 002778 -00813 1000 0625 1000 0000 0375 0000 0000 %0894 b22 007234 003767 -00945 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006567 004829 -01065 1000 0375 1000 0000 0625 0000 0000 %0896 b24 005714 005704 -01250 1000 0250 1000 0000 0750 0000 0000 %0897 b25 004876 006911 -01187 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004480 007084 -01178 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009191 -00983 000568 0875 1000 0875 0125 0000 0125 0000 %0900 c19 009420 000001 000018 0875 0875 0875 0125 0125 0125 0000 %0901 c20 008598 001059 -00789 0875 0750 0875 0125 0250 0125 0000 %0902 c21 008003 002005 -00963 0875 0625 0875 0125 0375 0125 0000 %0903 c22 007259 003026 -01216 0875 0500 0875 0125 0500 0125 0000 %0904 c23 006443 004227 -01402 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005638 005216 -01534 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004710 006158 -01696 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004243 006756 -01326 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008755 -01713 001279 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008953 -01335 000727 0750 0875 0750 0250 0125 0250 0000 %0910 d20 008604 000025 -00007 0750 0750 0750 0250 0250 0250 0000 %0911 d21 007792 001121 -00805 0750 0625 0750 0250 0375 0250 0000 %0912 d22 007013 002154 -01013 0750 0500 0750 0250 0500 0250 0000 %0913 d23 006237 003179 -01213 0750 0375 0750 0250 0625 0250 0000 %0914 d24 005356 004398 -01392 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004524 005876 -01580 0750 0125 0750 0250 0875 0250 0000 %0916 d26 003825 006116 -01361 0750 0000 0750 0250 1000 0250 0000 %0917 d27 008227 -02345 001601 0625 1000 0625 0375 0000 0375 0000 %0918 e19 008408 -02155 001540 0625 0875 0625 0375 0125 0375 0000 %0919 e20 008161 -01338 000661 0625 0750 0625 0375 0250 0375 0000 %0920 e21 007718 000025 -00043 0625 0625 0625 0375 0375 0375 0000 %0921 e22 006825 001208 -00887 0625 0500 0625 0375 0500 0375 0000 %0922 e23 006015 002422 -01090 0625 0375 0625 0375 0625 0375 0000 %0923 e24 005074 003644 -01220 0625 0250 0625 0375 0750 0375 0000 %0924 e25 004199 005143 -01307 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003438 005530 -01178 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007646 -03005 001668 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007703 -02933 001595 0500 0875 0500 0500 0125 0500 0000 %0928 f20 007561 -02089 001261 0500 0750 0500 0500 0250 0500 0000 %0929 f21 007302 -01324 000632 0500 0625 0500 0500 0375 0500 0000 %0930 f22 006734 000018 -00075 0500 0500 0500 0500 0500 0500 0000 %0931 f23 005732 001269 -00928 0500 0375 0500 0500 0625 0500 0000 %0932 f24 004830 002628 -01152 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003804 004179 -01038 0500 0125 0500 0500 0875 0500 0000 %0934 f26 003045 004682 -01088 0500 0000 0500 0500 1000 0500 0000 %0935 f27 007032 -03784 002093 0375 1000 0375 0625 0000 0625 0000 %0936 g19 007161 -03629 002033 0375 0875 0375 0625 0125 0625 0000 %0937 g20 007037 -03050 001643 0375 0750 0375 0625 0250 0625 0000 %0938 g21 006714 -02301 001100 0375 0625 0375 0625 0375 0625 0000 %0939 g22 006191 -01349 000570 0375 0500 0375 0625 0500 0625 0000 %0940 g23 005522 000006 -00096 0375 0375 0375 0625 0625 0625 0000 %0941 g24 004487 001678 -01044 0375 0250 0375 0625 0750 0625 0000 %0942 g25 003561 003314 -01115 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002689 003909 -00919 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006468 -04697 002644 0250 1000 0250 0750 0000 0750 0000 %0945 h19 006737 -04326 002447 0250 0875 0250 0750 0125 0750 0000 %0946 h20 006510 -03812 002111 0250 0750 0250 0750 0250 0750 0000 %0947 h21 005949 -03165 001651 0250 0625 0250 0750 0375 0750 0000 %0948 h22 005486 -02548 001258 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004870 -01483 000632 0250 0375 0250 0750 0625 0750 0000 %0950 h24 004281 000002 -00119 0250 0250 0250 0750 0750 0750 0000 %0951 h25 003364 002020 -00829 0250 0125 0250 0750 0875 0750 0000 %0952 h26 002483 003037 -00685 0250 0000 0250 0750 1000 0750 0000 %0953 h27 005904 -05740 003173 0125 1000 0125 0875 0000 0875 0000 %0954 i19 006009 -05539 003077 0125 0875 0125 0875 0125 0875 0000 %0955 i20 005948 -04975 002733 0125 0750 0125 0875 0250 0875 0000 %0956 i21 005506 -04132 002223 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004998 -03622 001831 0125 0500 0125 0875 0500 0875 0000 %0958 i23 004500 -02859 001298 0125 0375 0125 0875 0625 0875 0000 %0959 i24 004011 -01873 000785 0125 0250 0125 0875 0750 0875 0000 %0960 i25 002608 -00005 -00082 0125 0125 0125 0875 0875 0875 0000 %0961 i26 002075 001818 -00368 0125 0000 0125 0875 1000 0875 0000 %0962 i27 005696 -06138 003367 0000 1000 0000 1000 0000 1000 0000 %0963 j19 005577 -06375 003486 0000 0875 0000 1000 0125 1000 0000 %0964 j20 005386 -06745 003330 0000 0750 0000 1000 0250 1000 0000 %0965 j21 005084 -06634 003030 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004685 -06354 002764 0000 0500 0000 1000 0500 1000 0000 %0967 j23 004275 -05859 002446 0000 0375 0000 1000 0625 1000 0000 %0968 j24 003734 -05155 002045 0000 0250 0000 1000 0750 1000 0000 %0969 j25 003159 -03667 001426 0000 0125 0000 1000 0875 1000 0000 %0970 j26 001536 -00006 -00021 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa0100 [ %BEG GE26_22_REM.TXT, Separation cmyn62*, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004597 006191 003836 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009160 -01393 008367 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z005688 -06332 003556 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005173 -03379 -03914 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003080 002413 -04334 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004532 007094 -01297 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z001501 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009730 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004573 006130 003648 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 009151 -01403 008393 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 005696 -06138 003367 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005120 -03358 -03932 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003056 002531 -04256 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004480 007084 -01178 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 001518 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009737 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def /FileData1Na (GG96_HRS16_96_D65_00%_G1) def /LUT_LAB1 [ %GE760-7A, Page 7 /24, %BEG GE66_22.TXT, Separation cmyn62*, cf1=0.90, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE66_22.TXT, Separation cmyn62*, cf1=0.90, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 002024 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 002247 000537 -01244 0000 0000 0125 1000 1000 0875 0000 %0001 A02 002425 000611 -01571 0000 0000 0250 1000 1000 0750 0000 %0002 A03 002431 000603 -02131 0000 0000 0375 1000 1000 0625 0000 %0003 A04 002681 000667 -02530 0000 0000 0500 1000 1000 0500 0000 %0004 A05 002921 000936 -02901 0000 0000 0625 1000 1000 0375 0000 %0005 A06 003093 001404 -03360 0000 0000 0750 1000 1000 0250 0000 %0006 A07 003143 001884 -03983 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003300 002232 -04388 0000 0000 1000 1000 1000 0000 0000 %0008 A09 002749 -01005 000984 0000 0125 0000 1000 0875 1000 0000 %0009 B01 002470 -00540 -01225 0000 0125 0125 1000 0875 0875 0000 %0010 B02 002501 -00215 -01691 0000 0125 0250 1000 0875 0750 0000 %0011 B03 002698 -00124 -02055 0000 0125 0375 1000 0875 0625 0000 %0012 B04 002942 -00109 -02376 0000 0125 0500 1000 0875 0500 0000 %0013 B05 003077 000197 -02638 0000 0125 0625 1000 0875 0375 0000 %0014 B06 003348 000534 -03164 0000 0125 0750 1000 0875 0250 0000 %0015 B07 003586 000772 -03629 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003652 001235 -04135 0000 0125 1000 1000 0875 0000 0000 %0017 B09 003277 -01551 001215 0000 0250 0000 1000 0750 1000 0000 %0018 C01 003077 -01360 -00156 0000 0250 0125 1000 0750 0875 0000 %0019 C02 003082 -01338 -01285 0000 0250 0250 1000 0750 0750 0000 %0020 C03 003005 -01031 -01807 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003341 -00710 -02300 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003402 -00559 -02574 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003618 -00211 -03096 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003832 000153 -03548 0000 0250 0875 1000 0750 0125 0000 %0025 C08 003947 000571 -04189 0000 0250 1000 1000 0750 0000 0000 %0026 C09 003720 -02372 001267 0000 0375 0000 1000 0625 1000 0000 %0027 D01 003443 -01899 -00080 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003232 -01936 -00911 0000 0375 0250 1000 0625 0750 0000 %0029 D03 003340 -01638 -01875 0000 0375 0375 1000 0625 0625 0000 %0030 D04 003523 -01316 -02343 0000 0375 0500 1000 0625 0500 0000 %0031 D05 003669 -01086 -02560 0000 0375 0625 1000 0625 0375 0000 %0032 D06 003875 -00840 -03103 0000 0375 0750 1000 0625 0250 0000 %0033 D07 003941 -00403 -03649 0000 0375 0875 1000 0625 0125 0000 %0034 D08 004090 -00045 -04363 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004077 -03143 001435 0000 0500 0000 1000 0500 1000 0000 %0036 E01 003677 -02456 000045 0000 0500 0125 1000 0500 0875 0000 %0037 E02 003501 -02369 -00562 0000 0500 0250 1000 0500 0750 0000 %0038 E03 003555 -02104 -01599 0000 0500 0375 1000 0500 0625 0000 %0039 E04 003825 -01840 -02270 0000 0500 0500 1000 0500 0500 0000 %0040 E05 003954 -01548 -02474 0000 0500 0625 1000 0500 0375 0000 %0041 E06 004062 -01269 -03004 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004227 -01028 -03515 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004285 -00727 -04243 0000 0500 1000 1000 0500 0000 0000 %0044 E09 004450 -03904 002033 0000 0625 0000 1000 0375 1000 0000 %0045 F01 004051 -03119 000437 0000 0625 0125 1000 0375 0875 0000 %0046 F02 003892 -02829 -00402 0000 0625 0250 1000 0375 0750 0000 %0047 F03 003796 -02639 -01085 0000 0625 0375 1000 0375 0625 0000 %0048 F04 003931 -02342 -01874 0000 0625 0500 1000 0375 0500 0000 %0049 F05 004188 -02130 -02683 0000 0625 0625 1000 0375 0375 0000 %0050 F06 004221 -01799 -03001 0000 0625 0750 1000 0375 0250 0000 %0051 F07 004391 -01479 -03554 0000 0625 0875 1000 0375 0125 0000 %0052 F08 004508 -01298 -03998 0000 0625 1000 1000 0375 0000 0000 %0053 F09 004772 -05031 002810 0000 0750 0000 1000 0250 1000 0000 %0054 G01 004570 -03928 000964 0000 0750 0125 1000 0250 0875 0000 %0055 G02 004502 -03644 000000 0000 0750 0250 1000 0250 0750 0000 %0056 G03 004367 -03204 -00830 0000 0750 0375 1000 0250 0625 0000 %0057 G04 004451 -02977 -01507 0000 0750 0500 1000 0250 0500 0000 %0058 G05 004404 -02797 -02225 0000 0750 0625 1000 0250 0375 0000 %0059 G06 004462 -02485 -02976 0000 0750 0750 1000 0250 0250 0000 %0060 G07 004547 -02038 -03612 0000 0750 0875 1000 0250 0125 0000 %0061 G08 004670 -01795 -03950 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005216 -05915 003220 0000 0875 0000 1000 0125 1000 0000 %0063 H01 005073 -04617 001340 0000 0875 0125 1000 0125 0875 0000 %0064 H02 005050 -04556 000543 0000 0875 0250 1000 0125 0750 0000 %0065 H03 004890 -04013 -00586 0000 0875 0375 1000 0125 0625 0000 %0066 H04 004900 -03648 -01309 0000 0875 0500 1000 0125 0500 0000 %0067 H05 004916 -03396 -01915 0000 0875 0625 1000 0125 0375 0000 %0068 H06 004904 -03020 -02823 0000 0875 0750 1000 0125 0250 0000 %0069 H07 004808 -02996 -03379 0000 0875 0875 1000 0125 0125 0000 %0070 H08 004964 -02512 -03944 0000 0875 1000 1000 0125 0000 0000 %0071 H09 005726 -06405 003421 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005583 -05591 001895 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005518 -05487 000838 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005960 -05342 -00057 0000 1000 0375 1000 0000 0625 0000 %0075 I04 005453 -04508 -01053 0000 1000 0500 1000 0000 0500 0000 %0076 I05 005753 -04724 -01970 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005718 -04479 -02448 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005594 -04437 -02804 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005654 -03642 -03783 0000 1000 1000 1000 0000 0000 0000 %0080 I09 002332 000466 000681 0125 0000 0000 0875 1000 1000 0000 %0081 J01 002287 000865 -00403 0125 0000 0125 0875 1000 0875 0000 %0082 J02 002611 000784 -01402 0125 0000 0250 0875 1000 0750 0000 %0083 J03 002668 001010 -01883 0125 0000 0375 0875 1000 0625 0000 %0084 J04 002837 001236 -02185 0125 0000 0500 0875 1000 0500 0000 %0085 J05 002928 001366 -02594 0125 0000 0625 0875 1000 0375 0000 %0086 J06 003094 001835 -03149 0125 0000 0750 0875 1000 0250 0000 %0087 J07 002997 002573 -03855 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003498 002813 -04145 0125 0000 1000 0875 1000 0000 0000 %0089 J09 003159 -00819 001294 0125 0125 0000 0875 0875 1000 0000 %0090 K01 002684 -00428 -00181 0125 0125 0125 0875 0875 0875 0000 %0091 K02 003079 000020 -00978 0125 0125 0250 0875 0875 0750 0000 %0092 K03 003183 000203 -01499 0125 0125 0375 0875 0875 0625 0000 %0093 K04 003380 000288 -01817 0125 0125 0500 0875 0875 0500 0000 %0094 K05 003471 000469 -02282 0125 0125 0625 0875 0875 0375 0000 %0095 K06 003664 000892 -02720 0125 0125 0750 0875 0875 0250 0000 %0096 K07 003828 001412 -03287 0125 0125 0875 0875 0875 0125 0000 %0097 K08 004114 001584 -03753 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003581 -01371 001733 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003591 -01119 000329 0125 0250 0125 0875 0750 0875 0000 %0100 L02 003425 -00925 -00938 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003396 -00526 -01590 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003634 -00308 -01892 0125 0250 0500 0875 0750 0500 0000 %0103 L05 003820 -00107 -02367 0125 0250 0625 0875 0750 0375 0000 %0104 L06 004095 000159 -02714 0125 0250 0750 0875 0750 0250 0000 %0105 L07 004197 000663 -03255 0125 0250 0875 0875 0750 0125 0000 %0106 L08 004343 000940 -03683 0125 0250 1000 0875 0750 0000 0000 %0107 L09 003898 -01901 001858 0125 0375 0000 0875 0625 1000 0000 %0108 M01 003880 -01765 000651 0125 0375 0125 0875 0625 0875 0000 %0109 M02 003695 -01613 -00415 0125 0375 0250 0875 0625 0750 0000 %0110 M03 003659 -01421 -01487 0125 0375 0375 0875 0625 0625 0000 %0111 M04 003886 -00987 -01791 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004122 -00727 -02342 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004294 -00408 -02640 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004281 000172 -03242 0125 0375 0875 0875 0625 0125 0000 %0115 M08 004599 000251 -03611 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004349 -02837 002185 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004166 -02558 000889 0125 0500 0125 0875 0500 0875 0000 %0118 N02 004015 -02344 -00081 0125 0500 0250 0875 0500 0750 0000 %0119 N03 003870 -01991 -00821 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004023 -01567 -01730 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004427 -01189 -02268 0125 0500 0625 0875 0500 0375 0000 %0122 N06 004541 -00944 -02656 0125 0500 0750 0875 0500 0250 0000 %0123 N07 004603 -00638 -03129 0125 0500 0875 0875 0500 0125 0000 %0124 N08 004864 -00396 -03433 0125 0500 1000 0875 0500 0000 0000 %0125 N09 004738 -03696 002623 0125 0625 0000 0875 0375 1000 0000 %0126 O01 004574 -03215 001305 0125 0625 0125 0875 0375 0875 0000 %0127 O02 004582 -02752 000175 0125 0625 0250 0875 0375 0750 0000 %0128 O03 004561 -02544 -00561 0125 0625 0375 0875 0375 0625 0000 %0129 O04 004601 -02127 -01516 0125 0625 0500 0875 0375 0500 0000 %0130 O05 004676 -01799 -02328 0125 0625 0625 0875 0375 0375 0000 %0131 O06 004725 -01472 -02579 0125 0625 0750 0875 0375 0250 0000 %0132 O07 004867 -01179 -02980 0125 0625 0875 0875 0375 0125 0000 %0133 O08 005041 -00943 -03407 0125 0625 1000 0875 0375 0000 0000 %0134 O09 005031 -04818 003330 0125 0750 0000 0875 0250 1000 0000 %0135 P01 005112 -03878 001818 0125 0750 0125 0875 0250 0875 0000 %0136 P02 005033 -03284 000486 0125 0750 0250 0875 0250 0750 0000 %0137 P03 005019 -03123 -00281 0125 0750 0375 0875 0250 0625 0000 %0138 P04 005027 -02691 -01049 0125 0750 0500 0875 0250 0500 0000 %0139 P05 004995 -02348 -01904 0125 0750 0625 0875 0250 0375 0000 %0140 P06 004934 -02058 -02773 0125 0750 0750 0875 0250 0250 0000 %0141 P07 005118 -01747 -02969 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005263 -01426 -03370 0125 0750 1000 0875 0250 0000 0000 %0143 P09 005564 -05853 003959 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 005506 -04646 002162 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 005479 -04050 000851 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 005459 -03641 -00108 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 005449 -03216 -00903 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 005500 -03016 -01501 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 005430 -02687 -02257 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 005386 -02455 -03055 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005477 -02050 -03371 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 006060 -06203 003949 0125 1000 0000 0875 0000 1000 0000 %0153 R01 006204 -05767 002912 0125 1000 0125 0875 0000 0875 0000 %0154 R02 005909 -04668 001288 0125 1000 0250 0875 0000 0750 0000 %0155 R03 006409 -04735 000534 0125 1000 0375 0875 0000 0625 0000 %0156 R04 005896 -03948 -00605 0125 1000 0500 0875 0000 0500 0000 %0157 R05 005884 -03751 -01214 0125 1000 0625 0875 0000 0375 0000 %0158 R06 005809 -03654 -01848 0125 1000 0750 0875 0000 0250 0000 %0159 R07 005961 -03963 -02557 0125 1000 0875 0875 0000 0125 0000 %0160 R08 005802 -03079 -03236 0125 1000 1000 0875 0000 0000 0000 %0161 R09 002635 001100 000898 0250 0000 0000 0750 1000 1000 0000 %0162 S01 002521 001267 000198 0250 0000 0125 0750 1000 0875 0000 %0163 S02 002602 001520 -00632 0250 0000 0250 0750 1000 0750 0000 %0164 S03 002762 001649 -01409 0250 0000 0375 0750 1000 0625 0000 %0165 S04 003009 001791 -01730 0250 0000 0500 0750 1000 0500 0000 %0166 S05 003053 001954 -02291 0250 0000 0625 0750 1000 0375 0000 %0167 S06 003093 002327 -02857 0250 0000 0750 0750 1000 0250 0000 %0168 S07 003159 003006 -03463 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003474 002979 -03770 0250 0000 1000 0750 1000 0000 0000 %0170 S09 003232 000159 001587 0250 0125 0000 0750 0875 1000 0000 %0171 T01 003016 000419 000302 0250 0125 0125 0750 0875 0875 0000 %0172 T02 003236 000514 -00481 0250 0125 0250 0750 0875 0750 0000 %0173 T03 003389 000605 -01101 0250 0125 0375 0750 0875 0625 0000 %0174 T04 003525 000756 -01490 0250 0125 0500 0750 0875 0500 0000 %0175 T05 003719 000977 -02007 0250 0125 0625 0750 0875 0375 0000 %0176 T06 003801 001495 -02610 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003863 001903 -03092 0250 0125 0875 0750 0875 0125 0000 %0178 T08 004179 002060 -03441 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003924 -00961 002507 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003598 -00646 000901 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003637 -00365 -00281 0250 0250 0250 0750 0750 0750 0000 %0182 U03 004000 -00155 -00848 0250 0250 0375 0750 0750 0625 0000 %0183 U04 004183 000053 -01483 0250 0250 0500 0750 0750 0500 0000 %0184 U05 004344 000437 -01633 0250 0250 0625 0750 0750 0375 0000 %0185 U06 004446 000752 -02183 0250 0250 0750 0750 0750 0250 0000 %0186 U07 004567 001001 -02686 0250 0250 0875 0750 0750 0125 0000 %0187 U08 004889 001268 -03009 0250 0250 1000 0750 0750 0000 0000 %0188 U09 004112 -01412 002579 0250 0375 0000 0750 0625 1000 0000 %0189 V01 004049 -01227 001283 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004175 -00982 000101 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004254 -00793 -00855 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004356 -00584 -01562 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004693 -00280 -01836 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004753 -00018 -02194 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004960 000376 -02616 0250 0375 0875 0750 0625 0125 0000 %0196 V08 005226 000533 -02904 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004651 -02204 002796 0250 0500 0000 0750 0500 1000 0000 %0198 W01 004530 -01952 001469 0250 0500 0125 0750 0500 0875 0000 %0199 W02 004660 -01775 000610 0250 0500 0250 0750 0500 0750 0000 %0200 W03 004680 -01453 -00548 0250 0500 0375 0750 0500 0625 0000 %0201 W04 004690 -01258 -01528 0250 0500 0500 0750 0500 0500 0000 %0202 W05 004954 -00888 -01732 0250 0500 0625 0750 0500 0375 0000 %0203 W06 004958 -00655 -02227 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005217 -00400 -02527 0250 0500 0875 0750 0500 0125 0000 %0205 W08 005446 -00058 -02859 0250 0500 1000 0750 0500 0000 0000 %0206 W09 005042 -03144 003320 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005028 -02548 001925 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005104 -02534 000987 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005148 -02142 000002 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005115 -01777 -00865 0250 0625 0500 0750 0375 0500 0000 %0211 X05 005119 -01538 -01503 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005257 -01178 -02166 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005358 -00856 -02549 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005550 -00591 -02900 0250 0625 1000 0750 0375 0000 0000 %0215 X09 005306 -04103 003863 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 005434 -03381 002199 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 005561 -03213 001432 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 005569 -02646 000222 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 005536 -02332 -00574 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 005588 -02100 -01334 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 005504 -01828 -02061 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 005628 -01374 -02527 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 005760 -01041 -02991 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 005802 -05156 004417 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 005756 -04102 002520 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 005956 -03881 001725 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 005914 -03370 000495 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 005931 -02988 -00374 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 005914 -02713 -01097 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 005795 -02345 -01955 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 005818 -02065 -02688 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 005906 -01688 -03045 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006483 -05515 004641 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006556 -05247 003420 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006669 -04859 002488 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006409 -04088 000892 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006276 -03557 -00160 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006277 -03255 -00814 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006229 -03084 -01462 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006241 -02903 -02120 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006226 -02597 -02949 0250 1000 1000 0750 0000 0000 0000 %0242 a09 003176 001777 001386 0375 0000 0000 0625 1000 1000 0000 %0243 A10 003040 001965 000442 0375 0000 0125 0625 1000 0875 0000 %0244 A11 002973 002151 -00072 0375 0000 0250 0625 1000 0750 0000 %0245 A12 002890 002383 -00862 0375 0000 0375 0625 1000 0625 0000 %0246 A13 003154 002367 -01427 0375 0000 0500 0625 1000 0500 0000 %0247 A14 003172 002567 -02032 0375 0000 0625 0625 1000 0375 0000 %0248 A15 003215 002960 -02607 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003317 003265 -03121 0375 0000 0875 0625 1000 0125 0000 %0250 A17 004217 003249 -03491 0375 0000 1000 0625 1000 0000 0000 %0251 A18 003705 000802 001947 0375 0125 0000 0625 0875 1000 0000 %0252 B10 003623 001026 000678 0375 0125 0125 0625 0875 0875 0000 %0253 B11 003497 001217 000057 0375 0125 0250 0625 0875 0750 0000 %0254 B12 003601 001164 -00499 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003767 001294 -01205 0375 0125 0500 0625 0875 0500 0000 %0256 B14 003865 001590 -01690 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003826 001986 -02209 0375 0125 0750 0625 0875 0250 0000 %0258 B16 004110 002176 -02698 0375 0125 0875 0625 0875 0125 0000 %0259 B17 004286 002377 -03128 0375 0125 1000 0625 0875 0000 0000 %0260 B18 004166 000005 002367 0375 0250 0000 0625 0750 1000 0000 %0261 C10 004135 000215 001067 0375 0250 0125 0625 0750 0875 0000 %0262 C11 004210 000275 000110 0375 0250 0250 0625 0750 0750 0000 %0263 C12 004215 000370 -00458 0375 0250 0375 0625 0750 0625 0000 %0264 C13 004389 000616 -01171 0375 0250 0500 0625 0750 0500 0000 %0265 C14 004420 000872 -01469 0375 0250 0625 0625 0750 0375 0000 %0266 C15 004497 001267 -01923 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004717 001514 -02411 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004957 001731 -02768 0375 0250 1000 0625 0750 0000 0000 %0269 C18 005069 -01006 003372 0375 0375 0000 0625 0625 1000 0000 %0270 D10 004905 -00746 001772 0375 0375 0125 0625 0625 0875 0000 %0271 D11 004777 -00579 000653 0375 0375 0250 0625 0625 0750 0000 %0272 D12 004823 -00249 -00265 0375 0375 0375 0625 0625 0625 0000 %0273 D13 005092 -00062 -00809 0375 0375 0500 0625 0625 0500 0000 %0274 D14 005087 000229 -01231 0375 0375 0625 0625 0625 0375 0000 %0275 D15 005223 000520 -01637 0375 0375 0750 0625 0625 0250 0000 %0276 D16 005422 000908 -02024 0375 0375 0875 0625 0625 0125 0000 %0277 D17 005521 001094 -02503 0375 0375 1000 0625 0625 0000 0000 %0278 D18 005335 -01601 003584 0375 0500 0000 0625 0500 1000 0000 %0279 E10 005403 -01431 002182 0375 0500 0125 0625 0500 0875 0000 %0280 E11 005360 -01241 001084 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005308 -00926 000122 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005429 -00792 -00740 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005500 -00436 -01374 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005519 -00186 -01698 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005709 000080 -02080 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005921 000387 -02394 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005512 -02507 003813 0375 0625 0000 0625 0375 1000 0000 %0288 F10 005625 -02088 002470 0375 0625 0125 0625 0375 0875 0000 %0289 F11 005691 -01850 001362 0375 0625 0250 0625 0375 0750 0000 %0290 F12 005751 -01637 000570 0375 0625 0375 0625 0375 0625 0000 %0291 F13 005789 -01322 -00431 0375 0625 0500 0625 0375 0500 0000 %0292 F14 005720 -01174 -01331 0375 0625 0625 0625 0375 0375 0000 %0293 F15 005819 -00787 -01723 0375 0625 0750 0625 0375 0250 0000 %0294 F16 005916 -00426 -02118 0375 0625 0875 0625 0375 0125 0000 %0295 F17 006199 -00285 -02334 0375 0625 1000 0625 0375 0000 0000 %0296 F18 005819 -03379 004411 0375 0750 0000 0625 0250 1000 0000 %0297 G10 005967 -02725 002608 0375 0750 0125 0625 0250 0875 0000 %0298 G11 006012 -02671 001852 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006146 -02421 000853 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006060 -01987 -00134 0375 0750 0500 0625 0250 0500 0000 %0301 G14 006033 -01711 -00901 0375 0750 0625 0625 0250 0375 0000 %0302 G15 006030 -01485 -01536 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006156 -00992 -02020 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006319 -00661 -02288 0375 0750 1000 0625 0250 0000 0000 %0305 G18 006225 -04153 004899 0375 0875 0000 0625 0125 1000 0000 %0306 H10 006406 -03524 003025 0375 0875 0125 0625 0125 0875 0000 %0307 H11 006451 -03336 002112 0375 0875 0250 0625 0125 0750 0000 %0308 H12 006474 -03212 001343 0375 0875 0375 0625 0125 0625 0000 %0309 H13 006478 -02502 000177 0375 0875 0500 0625 0125 0500 0000 %0310 H14 006475 -02335 -00494 0375 0875 0625 0625 0125 0375 0000 %0311 H15 006402 -02083 -01334 0375 0875 0750 0625 0125 0250 0000 %0312 H16 006413 -01764 -02120 0375 0875 0875 0625 0125 0125 0000 %0313 H17 006506 -01205 -02406 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006877 -04732 005220 0375 1000 0000 0625 0000 1000 0000 %0315 I10 006878 -04320 003586 0375 1000 0125 0625 0000 0875 0000 %0316 I11 007032 -04231 002776 0375 1000 0250 0625 0000 0750 0000 %0317 I12 007111 -03959 001860 0375 1000 0375 0625 0000 0625 0000 %0318 I13 006945 -03356 000499 0375 1000 0500 0625 0000 0500 0000 %0319 I14 006812 -02997 -00275 0375 1000 0625 0625 0000 0375 0000 %0320 I15 006763 -02765 -00849 0375 1000 0750 0625 0000 0250 0000 %0321 I16 006780 -02413 -01576 0375 1000 0875 0625 0000 0125 0000 %0322 I17 006867 -02181 -02353 0375 1000 1000 0625 0000 0000 0000 %0323 I18 003275 002796 002059 0500 0000 0000 0500 1000 1000 0000 %0324 J10 003295 002656 001125 0500 0000 0125 0500 1000 0875 0000 %0325 J11 003235 002773 000477 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003216 002911 -00135 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003148 003249 -00814 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003331 003381 -01530 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003390 003375 -02153 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003558 003459 -02698 0500 0000 0875 0500 1000 0125 0000 %0331 J17 003910 003307 -02958 0500 0000 1000 0500 1000 0000 0000 %0332 J18 003759 001506 002290 0500 0125 0000 0500 0875 1000 0000 %0333 K10 003895 001571 001278 0500 0125 0125 0500 0875 0875 0000 %0334 K11 003860 001808 000556 0500 0125 0250 0500 0875 0750 0000 %0335 K12 003841 001854 000062 0500 0125 0375 0500 0875 0625 0000 %0336 K13 003848 002005 -00660 0500 0125 0500 0500 0875 0500 0000 %0337 K14 003988 002263 -01390 0500 0125 0625 0500 0875 0375 0000 %0338 K15 003947 002404 -01838 0500 0125 0750 0500 0875 0250 0000 %0339 K16 004185 002659 -02382 0500 0125 0875 0500 0875 0125 0000 %0340 K17 004442 002710 -02732 0500 0125 1000 0500 0875 0000 0000 %0341 K18 004294 000788 002813 0500 0250 0000 0500 0750 1000 0000 %0342 L10 004370 000837 001632 0500 0250 0125 0500 0750 0875 0000 %0343 L11 004472 000958 000728 0500 0250 0250 0500 0750 0750 0000 %0344 L12 004461 001162 000098 0500 0250 0375 0500 0750 0625 0000 %0345 L13 004438 001288 -00567 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004559 001377 -01074 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004653 001648 -01652 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004882 002018 -02003 0500 0250 0875 0500 0750 0125 0000 %0349 L17 005103 002084 -02457 0500 0250 1000 0500 0750 0000 0000 %0350 L18 004709 000080 003378 0500 0375 0000 0500 0625 1000 0000 %0351 M10 004805 000224 002125 0500 0375 0125 0500 0625 0875 0000 %0352 M11 004959 000295 001143 0500 0375 0250 0500 0625 0750 0000 %0353 M12 005017 000396 000221 0500 0375 0375 0500 0625 0625 0000 %0354 M13 005009 000522 -00366 0500 0375 0500 0500 0625 0500 0000 %0355 M14 005278 000641 -00889 0500 0375 0625 0500 0625 0375 0000 %0356 M15 005325 001052 -01433 0500 0375 0750 0500 0625 0250 0000 %0357 M16 005625 001358 -01740 0500 0375 0875 0500 0625 0125 0000 %0358 M17 005744 001506 -02147 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005465 -01024 004317 0500 0500 0000 0500 0500 1000 0000 %0360 N10 005579 -00775 002916 0500 0500 0125 0500 0500 0875 0000 %0361 N11 005588 -00650 001816 0500 0500 0250 0500 0500 0750 0000 %0362 N12 005584 -00440 000735 0500 0500 0375 0500 0500 0625 0000 %0363 N13 005675 -00226 -00196 0500 0500 0500 0500 0500 0500 0000 %0364 N14 006026 000057 -00751 0500 0500 0625 0500 0500 0375 0000 %0365 N15 006088 000337 -01145 0500 0500 0750 0500 0500 0250 0000 %0366 N16 006315 000636 -01547 0500 0500 0875 0500 0500 0125 0000 %0367 N17 006392 000937 -01906 0500 0500 1000 0500 0500 0000 0000 %0368 N18 005851 -01732 004601 0500 0625 0000 0500 0375 1000 0000 %0369 O10 005830 -01479 003132 0500 0625 0125 0500 0375 0875 0000 %0370 O11 005944 -01294 002111 0500 0625 0250 0500 0375 0750 0000 %0371 O12 006071 -01146 001229 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006249 -00912 000193 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006211 -00682 -00796 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006365 -00458 -01224 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006517 -00029 -01633 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006650 000245 -01906 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006133 -02661 004803 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006276 -02146 003249 0500 0750 0125 0500 0250 0875 0000 %0379 P11 006365 -02066 002498 0500 0750 0250 0500 0250 0750 0000 %0380 P12 006467 -01808 001535 0500 0750 0375 0500 0250 0625 0000 %0381 P13 006654 -01599 000731 0500 0750 0500 0500 0250 0500 0000 %0382 P14 006567 -01245 -00367 0500 0750 0625 0500 0250 0375 0000 %0383 P15 006567 -01037 -01085 0500 0750 0750 0500 0250 0250 0000 %0384 P16 006757 -00577 -01562 0500 0750 0875 0500 0250 0125 0000 %0385 P17 006839 -00288 -01897 0500 0750 1000 0500 0250 0000 0000 %0386 P18 006566 -03474 005358 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 006734 -02813 003406 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 006838 -02723 002801 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 006909 -02634 001935 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007043 -02303 001084 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 006989 -01822 -00054 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 006971 -01588 -00775 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 006979 -01228 -01662 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 006999 -00808 -01937 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 007026 -04160 005600 0500 1000 0000 0500 0000 1000 0000 %0396 R10 007150 -03667 003747 0500 1000 0125 0500 0000 0875 0000 %0397 R11 007280 -03492 003168 0500 1000 0250 0500 0000 0750 0000 %0398 R12 007405 -03389 002305 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007567 -03175 001559 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007450 -02665 000478 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007371 -02377 -00122 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007322 -02027 -01001 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007383 -01767 -01875 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003550 003373 002101 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003576 003459 001624 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003511 003633 000927 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003496 003693 000308 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003478 003882 -00208 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003467 003960 -00759 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003543 003985 -01681 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003740 004123 -02216 0625 0000 0875 0375 1000 0125 0000 %0412 S17 004022 003935 -02635 0625 0000 1000 0375 1000 0000 0000 %0413 S18 004115 002258 002551 0625 0125 0000 0375 0875 1000 0000 %0414 T10 004267 002333 001555 0625 0125 0125 0375 0875 0875 0000 %0415 T11 004204 002556 001028 0625 0125 0250 0375 0875 0750 0000 %0416 T12 004162 002616 000446 0625 0125 0375 0375 0875 0625 0000 %0417 T13 004175 002748 -00078 0625 0125 0500 0375 0875 0500 0000 %0418 T14 004140 002930 -00693 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004267 002979 -01546 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004482 003101 -01890 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004660 003157 -02338 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004529 001565 003188 0625 0250 0000 0375 0750 1000 0000 %0423 U10 004709 001590 002026 0625 0250 0125 0375 0750 0875 0000 %0424 U11 004771 001783 001082 0625 0250 0250 0375 0750 0750 0000 %0425 U12 004775 001833 000597 0625 0250 0375 0375 0750 0625 0000 %0426 U13 004816 001869 000069 0625 0250 0500 0375 0750 0500 0000 %0427 U14 004833 002018 -00409 0625 0250 0625 0375 0750 0375 0000 %0428 U15 004967 002274 -01279 0625 0250 0750 0375 0750 0250 0000 %0429 U16 005020 002487 -01706 0625 0250 0875 0375 0750 0125 0000 %0430 U17 005236 002555 -02095 0625 0250 1000 0375 0750 0000 0000 %0431 U18 004992 000980 003702 0625 0375 0000 0375 0625 1000 0000 %0432 V10 005187 000926 002521 0625 0375 0125 0375 0625 0875 0000 %0433 V11 005271 001023 001602 0625 0375 0250 0375 0625 0750 0000 %0434 V12 005393 001105 000789 0625 0375 0375 0375 0625 0625 0000 %0435 V13 005405 001223 000216 0625 0375 0500 0375 0625 0500 0000 %0436 V14 005415 001458 -00375 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005570 001538 -01041 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005737 001782 -01514 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005846 001890 -01906 0625 0375 1000 0375 0625 0000 0000 %0440 V18 005339 000191 004293 0625 0500 0000 0375 0500 1000 0000 %0441 W10 005582 000253 002949 0625 0500 0125 0375 0500 0875 0000 %0442 W11 005730 000325 002109 0625 0500 0250 0375 0500 0750 0000 %0443 W12 005887 000357 001232 0625 0500 0375 0375 0500 0625 0000 %0444 W13 005945 000633 000178 0625 0500 0500 0375 0500 0500 0000 %0445 W14 006025 000680 -00332 0625 0500 0625 0375 0500 0375 0000 %0446 W15 006230 000788 -00866 0625 0500 0750 0375 0500 0250 0000 %0447 W16 006404 001055 -01279 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006470 001335 -01676 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006261 -01029 005248 0625 0625 0000 0375 0375 1000 0000 %0450 X10 006314 -00791 003750 0625 0625 0125 0375 0375 0875 0000 %0451 X11 006459 -00744 002894 0625 0625 0250 0375 0375 0750 0000 %0452 X12 006531 -00543 001993 0625 0625 0375 0375 0375 0625 0000 %0453 X13 006513 -00280 000754 0625 0625 0500 0375 0375 0500 0000 %0454 X14 006619 -00119 -00181 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006811 000027 -00700 0625 0625 0750 0375 0375 0250 0000 %0456 X16 006967 000361 -01007 0625 0625 0875 0375 0375 0125 0000 %0457 X17 007058 000673 -01545 0625 0625 1000 0375 0375 0000 0000 %0458 X18 006565 -01793 005385 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 006682 -01578 003978 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 006733 -01400 003131 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 006848 -01223 002240 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 006957 -01044 001319 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 007089 -00912 000318 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 007100 -00564 -00817 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007186 -00232 -01087 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007281 000072 -01494 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 006863 -02633 005777 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 007090 -02203 004022 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007141 -02176 003302 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007247 -01973 002470 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007379 -01776 001662 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 007498 -01597 000896 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 007425 -01200 -00166 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 007413 -00870 -00988 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007530 -00515 -01469 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 007447 -03435 006085 0625 1000 0000 0375 0000 1000 0000 %0477 a10 007549 -02857 004155 0625 1000 0125 0375 0000 0875 0000 %0478 a11 007627 -02769 003542 0625 1000 0250 0375 0000 0750 0000 %0479 a12 007757 -02726 002865 0625 1000 0375 0375 0000 0625 0000 %0480 a13 007844 -02615 002015 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008067 -02351 001391 0625 1000 0625 0375 0000 0375 0000 %0482 a15 007858 -01868 000124 0625 1000 0750 0375 0000 0250 0000 %0483 a16 007746 -01505 -00536 0625 1000 0875 0375 0000 0125 0000 %0484 a17 007902 -01204 -01443 0625 1000 1000 0375 0000 0000 0000 %0485 a18 003798 004456 002915 0750 0000 0000 0250 1000 1000 0000 %0486 A19 003727 004528 002173 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003668 004665 001630 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003596 004604 001082 0750 0000 0375 0250 1000 0625 0000 %0489 A22 003592 004653 000439 0750 0000 0500 0250 1000 0500 0000 %0490 A23 003514 004686 -00260 0750 0000 0625 0250 1000 0375 0000 %0491 A24 003435 004737 -00963 0750 0000 0750 0250 1000 0250 0000 %0492 A25 003572 004780 -01741 0750 0000 0875 0250 1000 0125 0000 %0493 A26 003881 004731 -02374 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004442 003160 003097 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004472 003153 002043 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004356 003364 001598 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004309 003474 001058 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004268 003590 000551 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004216 003651 -00055 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004086 003657 -00683 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004240 003665 -01585 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004452 003710 -02311 0750 0125 1000 0250 0875 0000 0000 %0503 B27 004865 002409 003745 0750 0250 0000 0250 0750 1000 0000 %0504 C19 004958 002408 002432 0750 0250 0125 0250 0750 0875 0000 %0505 C20 004994 002615 001694 0750 0250 0250 0250 0750 0750 0000 %0506 C21 004911 002719 001093 0750 0250 0375 0250 0750 0625 0000 %0507 C22 004833 002748 000653 0750 0250 0500 0250 0750 0500 0000 %0508 C23 004786 002789 000030 0750 0250 0625 0250 0750 0375 0000 %0509 C24 004662 002990 -00542 0750 0250 0750 0250 0750 0250 0000 %0510 C25 004849 003116 -01502 0750 0250 0875 0250 0750 0125 0000 %0511 C26 005007 003025 -01904 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005307 001737 004201 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005446 001622 002807 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005540 001727 002142 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005544 001882 001316 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005491 001940 000804 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005435 002054 000258 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005311 002227 -00386 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005496 002311 -01267 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005687 002355 -01683 0750 0375 1000 0250 0625 0000 0000 %0521 D27 005805 000972 004667 0750 0500 0000 0250 0500 1000 0000 %0522 E19 005974 000916 003292 0750 0500 0125 0250 0500 0875 0000 %0523 E20 005984 001033 002623 0750 0500 0250 0250 0500 0750 0000 %0524 E21 006103 001061 001811 0750 0500 0375 0250 0500 0625 0000 %0525 E22 006208 001155 001055 0750 0500 0500 0250 0500 0500 0000 %0526 E23 006094 001309 000456 0750 0500 0625 0250 0500 0375 0000 %0527 E24 006051 001472 -00329 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006141 001562 -01072 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006380 001719 -01512 0750 0500 1000 0250 0500 0000 0000 %0530 E27 006308 000003 005266 0750 0625 0000 0250 0375 1000 0000 %0531 F19 006462 000137 003814 0750 0625 0125 0250 0375 0875 0000 %0532 F20 006493 000189 003187 0750 0625 0250 0250 0375 0750 0000 %0533 F21 006570 000298 002384 0750 0625 0375 0250 0375 0625 0000 %0534 F22 006647 000429 001560 0750 0625 0500 0250 0375 0500 0000 %0535 F23 006740 000529 000462 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006707 000665 -00017 0750 0625 0750 0250 0375 0250 0000 %0537 F25 006729 000900 -00927 0750 0625 0875 0250 0375 0125 0000 %0538 F26 007059 001040 -01337 0750 0625 1000 0250 0375 0000 0000 %0539 F27 007048 -01053 006193 0750 0750 0000 0250 0250 1000 0000 %0540 G19 007141 -00870 004586 0750 0750 0125 0250 0250 0875 0000 %0541 G20 007140 -00711 003827 0750 0750 0250 0250 0250 0750 0000 %0542 G21 007179 -00578 003073 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007262 -00532 002257 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007227 -00366 000933 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007224 -00129 -00073 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007298 000126 -00760 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007685 000372 -01181 0750 0750 1000 0250 0250 0000 0000 %0548 G27 007461 -01909 006043 0750 0875 0000 0250 0125 1000 0000 %0549 H19 007498 -01677 004705 0750 0875 0125 0250 0125 0875 0000 %0550 H20 007496 -01531 004094 0750 0875 0250 0250 0125 0750 0000 %0551 H21 007576 -01489 003303 0750 0875 0375 0250 0125 0625 0000 %0552 H22 007601 -01322 002453 0750 0875 0500 0250 0125 0500 0000 %0553 H23 007614 -01147 001382 0750 0875 0625 0250 0125 0375 0000 %0554 H24 007659 -01067 000596 0750 0875 0750 0250 0125 0250 0000 %0555 H25 007661 -00750 -00740 0750 0875 0875 0250 0125 0125 0000 %0556 H26 007801 -00347 -01190 0750 0875 1000 0250 0125 0000 0000 %0557 H27 007881 -02651 006628 0750 1000 0000 0250 0000 1000 0000 %0558 I19 007874 -02392 004935 0750 1000 0125 0250 0000 0875 0000 %0559 I20 007918 -02294 004277 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008023 -02275 003555 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008052 -02121 002865 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008153 -01933 002138 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008231 -01779 001122 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008167 -01491 000091 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008146 -00943 -01327 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004131 005272 003256 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004034 005345 002356 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004097 005426 001966 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004152 005318 001520 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004138 005356 000878 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004090 005405 000256 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004045 005555 -00456 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004063 005541 -01147 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004209 005262 -01975 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004782 003617 003341 0875 0125 0000 0125 0875 1000 0000 %0576 K19 004896 003748 002432 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004848 003922 001849 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004827 004012 001347 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004830 004045 000885 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004788 004070 000367 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004705 004277 -00224 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004670 004292 -00975 0875 0125 0875 0125 0875 0125 0000 %0583 K26 004814 004360 -01756 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005335 002929 004101 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005478 002888 002830 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005535 003113 002050 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005499 003270 001490 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005518 003364 000992 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005465 003466 000437 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005379 003644 -00177 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005371 003657 -00661 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005509 003672 -01401 0875 0250 1000 0125 0750 0000 0000 %0593 L27 005760 002286 004247 0875 0375 0000 0125 0625 1000 0000 %0594 M19 005877 002425 003174 0875 0375 0125 0125 0625 0875 0000 %0595 M20 005994 002443 002458 0875 0375 0250 0125 0625 0750 0000 %0596 M21 006104 002506 001632 0875 0375 0375 0125 0625 0625 0000 %0597 M22 006136 002581 001081 0875 0375 0500 0125 0625 0500 0000 %0598 M23 006081 002632 000573 0875 0375 0625 0125 0625 0375 0000 %0599 M24 006027 002812 000002 0875 0375 0750 0125 0625 0250 0000 %0600 M25 006072 002916 -00574 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006157 002919 -01323 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006210 001549 005050 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006329 001583 003673 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006418 001727 003073 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006610 001670 002119 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006757 001742 001298 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006705 001857 000744 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006667 001979 000194 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006698 002123 -00344 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006743 002030 -01148 0875 0500 1000 0125 0500 0000 0000 %0611 N27 006650 000898 005222 0875 0625 0000 0125 0375 1000 0000 %0612 O19 006791 000905 004076 0875 0625 0125 0125 0375 0875 0000 %0613 O20 006926 000963 003487 0875 0625 0250 0125 0375 0750 0000 %0614 O21 007075 000992 002570 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007240 001090 001773 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007293 001134 001012 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007244 001269 000485 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007212 001459 -00168 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007241 001514 -01062 0875 0625 1000 0125 0375 0000 0000 %0620 O27 007203 -00061 005847 0875 0750 0000 0125 0250 1000 0000 %0621 P19 007326 000045 004708 0875 0750 0125 0125 0250 0875 0000 %0622 P20 007393 000197 003991 0875 0750 0250 0125 0250 0750 0000 %0623 P21 007518 000327 002993 0875 0750 0375 0125 0250 0625 0000 %0624 P22 007655 000484 002195 0875 0750 0500 0125 0250 0500 0000 %0625 P23 007721 000437 001562 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007720 000611 000574 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007728 000722 -00009 0875 0750 0875 0125 0250 0125 0000 %0628 P26 007740 000972 -01031 0875 0750 1000 0125 0250 0000 0000 %0629 P27 007837 -01186 006549 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 007983 -00975 005334 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008044 -00835 004729 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008142 -00752 003878 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008252 -00548 002865 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008230 -00389 002063 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008264 -00325 001008 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008251 -00044 -00056 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008380 000253 -00790 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 008235 -02123 006909 0875 1000 0000 0125 0000 1000 0000 %0639 R19 008275 -01956 005636 0875 1000 0125 0125 0000 0875 0000 %0640 R20 008375 -01836 005075 0875 1000 0250 0125 0000 0750 0000 %0641 R21 008417 -01702 004195 0875 1000 0375 0125 0000 0625 0000 %0642 R22 008480 -01551 003171 0875 1000 0500 0125 0000 0500 0000 %0643 R23 008518 -01367 002361 0875 1000 0625 0125 0000 0375 0000 %0644 R24 008641 -01156 001259 0875 1000 0750 0125 0000 0250 0000 %0645 R25 008720 -00833 000314 0875 1000 0875 0125 0000 0125 0000 %0646 R26 008922 -00592 -00709 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004634 005671 003457 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004591 005713 002831 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004665 005595 002221 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004657 005628 001656 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004618 005760 001123 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004595 005783 000625 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004599 005856 000140 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004614 006015 -00467 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004639 005962 -01208 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005212 004364 003714 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005251 004549 002835 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005210 004704 002159 1000 0125 0250 0000 0875 0750 0000 %0659 T21 005217 004695 001644 1000 0125 0375 0000 0875 0625 0000 %0660 T22 005217 004797 001163 1000 0125 0500 0000 0875 0500 0000 %0661 T23 005178 004811 000719 1000 0125 0625 0000 0875 0375 0000 %0662 T24 005163 004913 000240 1000 0125 0750 0000 0875 0250 0000 %0663 T25 005203 005093 -00358 1000 0125 0875 0000 0875 0125 0000 %0664 T26 005175 005058 -01300 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005662 003537 004193 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005757 003642 003405 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005798 003898 002384 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005834 003949 001789 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005834 004081 001367 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005860 003969 000872 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005803 004138 000376 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005831 004178 -00221 1000 0250 0875 0000 0750 0125 0000 %0673 U26 005861 004217 -00793 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006080 002869 004553 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006199 002996 003754 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006351 003153 002859 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006463 003288 001948 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006405 003335 001456 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006369 003460 000930 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006356 003478 000493 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006410 003507 -00060 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006489 003654 -00645 1000 0375 1000 0000 0625 0000 0000 %0683 V27 006530 002171 005066 1000 0500 0000 0000 0500 1000 0000 %0684 W19 006728 002197 004200 1000 0500 0125 0000 0500 0875 0000 %0685 W20 006841 002413 003336 1000 0500 0250 0000 0500 0750 0000 %0686 W21 007071 002597 002556 1000 0500 0375 0000 0500 0625 0000 %0687 W22 007198 002665 001662 1000 0500 0500 0000 0500 0500 0000 %0688 W23 007100 002614 001136 1000 0500 0625 0000 0500 0375 0000 %0689 W24 006981 002753 000464 1000 0500 0750 0000 0500 0250 0000 %0690 W25 007013 002787 000096 1000 0500 0875 0000 0500 0125 0000 %0691 W26 007067 002985 -00510 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007052 001444 005503 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007173 001521 004698 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007347 001898 003835 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007435 001964 002899 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007607 001956 002101 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007690 002080 001322 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007746 002165 000683 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007744 002261 000133 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007650 002359 -00496 1000 0625 1000 0000 0375 0000 0000 %0701 X27 007478 000778 006106 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 007683 000950 005316 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 007757 001175 004363 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 007885 001166 003517 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008023 001224 002634 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008226 001158 001970 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008251 001356 000952 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008230 001446 000459 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008164 001648 -00302 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008079 -00207 006725 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008151 -00113 005600 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008348 000106 004908 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008371 000315 004087 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008463 000482 003178 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008669 000406 002502 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 008717 000668 001377 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 008717 000604 000754 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 008690 000824 -00105 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 008866 -01244 007633 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009047 -01105 006736 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009059 -00924 005832 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009047 -00838 004808 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009177 -00670 003985 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009181 -00443 003085 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009133 -00198 002168 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009482 -00344 001327 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009246 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009289 -00010 000003 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009004 -00487 -00655 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008327 -00875 -01186 0750 1000 1000 0250 0000 0000 0000 %0731 b03 007872 -01211 -01415 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007384 -01725 -01867 0500 1000 1000 0500 0000 0000 0000 %0733 b05 006863 -02118 -02384 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006208 -02589 -02995 0250 1000 1000 0750 0000 0000 0000 %0735 b07 005776 -03057 -03316 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005614 -03555 -03839 0000 1000 1000 1000 0000 0000 0000 %0737 b09 008808 000576 000577 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008389 -00062 -00021 0875 0875 0875 0125 0125 0125 0000 %0739 c02 007869 -00655 -00684 0750 0875 0875 0250 0125 0125 0000 %0740 c03 007311 -00886 -00990 0625 0875 0875 0375 0125 0125 0000 %0741 c04 006951 -01216 -01555 0500 0875 0875 0500 0125 0125 0000 %0742 c05 006411 -01760 -02100 0375 0875 0875 0625 0125 0125 0000 %0743 c06 005799 -02078 -02666 0250 0875 0875 0750 0125 0125 0000 %0744 c07 005339 -02511 -03080 0125 0875 0875 0875 0125 0125 0000 %0745 c08 004807 -02935 -03421 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008407 001257 000757 1000 0750 0750 0000 0250 0250 0000 %0747 d01 007881 000558 000396 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007481 -00124 -00108 0750 0750 0750 0250 0250 0250 0000 %0749 d03 007039 -00569 -00889 0625 0750 0750 0375 0250 0250 0000 %0750 d04 006543 -01033 -01123 0500 0750 0750 0500 0250 0250 0000 %0751 d05 006066 -01443 -01543 0375 0750 0750 0625 0250 0250 0000 %0752 d06 005519 -01798 -02123 0250 0750 0750 0750 0250 0250 0000 %0753 d07 004934 -02020 -02827 0125 0750 0750 0875 0250 0250 0000 %0754 d08 004521 -02355 -02980 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007821 001941 001173 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007444 001074 000781 0875 0625 0625 0125 0375 0375 0000 %0757 e02 006909 000491 000360 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006566 -00133 -00189 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006202 -00695 -00783 0500 0625 0625 0500 0375 0375 0000 %0760 e05 005740 -01157 -01294 0375 0625 0625 0625 0375 0375 0000 %0761 e06 005143 -01573 -01564 0250 0625 0625 0750 0375 0375 0000 %0762 e07 004666 -01775 -02377 0125 0625 0625 0875 0375 0375 0000 %0763 e08 004254 -02035 -02678 0000 0625 0625 1000 0375 0375 0000 %0764 e09 007255 002555 001725 1000 0500 0500 0000 0500 0500 0000 %0765 f01 006857 001623 001289 0875 0500 0500 0125 0500 0500 0000 %0766 f02 006253 001098 001014 0750 0500 0500 0250 0500 0500 0000 %0767 f03 005908 000567 000290 0625 0500 0500 0375 0500 0500 0000 %0768 f04 005661 -00261 -00188 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005471 -00804 -00731 0375 0500 0500 0625 0500 0500 0000 %0770 f06 004804 -01315 -01533 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004120 -01594 -01731 0125 0500 0500 0875 0500 0500 0000 %0772 f08 003923 -01779 -02275 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006465 003213 001980 1000 0375 0375 0000 0625 0625 0000 %0774 g01 006080 002420 001617 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005515 001811 001316 0750 0375 0375 0250 0625 0625 0000 %0776 g03 005112 001182 000828 0625 0375 0375 0375 0625 0625 0000 %0777 g04 004860 000368 000238 0500 0375 0375 0500 0625 0625 0000 %0778 g05 004776 -00283 -00259 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004313 -00839 -00907 0250 0375 0375 0750 0625 0625 0000 %0780 g07 003744 -01462 -01544 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003443 -01638 -01875 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005753 003903 002450 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005375 003158 002047 0875 0250 0250 0125 0750 0750 0000 %0784 h02 004875 002567 001700 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004455 001855 001108 0625 0250 0250 0375 0750 0750 0000 %0786 h04 004199 001015 000714 0500 0250 0250 0500 0750 0750 0000 %0787 h05 004076 000255 000077 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003731 -00381 -00286 0250 0250 0250 0750 0750 0750 0000 %0789 h07 003580 -00934 -01022 0125 0250 0250 0875 0750 0750 0000 %0790 h08 003202 -01368 -01344 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005217 004474 003014 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004795 003648 002477 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004282 003150 002066 0750 0125 0125 0250 0875 0875 0000 %0794 i03 003961 002373 001637 0625 0125 0125 0375 0875 0875 0000 %0795 i04 003683 001607 001253 0500 0125 0125 0500 0875 0875 0000 %0796 i05 003434 001031 000633 0375 0125 0125 0625 0875 0875 0000 %0797 i06 003297 000414 000206 0250 0125 0125 0750 0875 0875 0000 %0798 i07 002962 -00425 -00233 0125 0125 0125 0875 0875 0875 0000 %0799 i08 002681 -00579 -01311 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004523 005704 003628 1000 0000 0000 0000 1000 1000 0000 %0801 j01 003995 005183 003336 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003649 004333 002964 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003347 003352 002258 0625 0000 0000 0375 1000 1000 0000 %0804 j04 003112 002773 002104 0500 0000 0000 0500 1000 1000 0000 %0805 j05 003058 001819 001360 0375 0000 0000 0625 1000 1000 0000 %0806 j06 002821 001171 000900 0250 0000 0000 0750 1000 1000 0000 %0807 j07 002449 000511 000674 0125 0000 0000 0875 1000 1000 0000 %0808 j08 002116 000017 -00033 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009420 000005 -00005 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008663 000213 -00652 0875 0875 1000 0125 0125 0000 0000 %0811 b11 008008 000353 -01065 0750 0750 1000 0250 0250 0000 0000 %0812 b12 007069 000572 -01533 0625 0625 1000 0375 0375 0000 0000 %0813 b13 006403 000852 -01924 0500 0500 1000 0500 0500 0000 0000 %0814 b14 005551 000974 -02472 0375 0375 1000 0625 0625 0000 0000 %0815 b15 004778 001251 -03125 0250 0250 1000 0750 0750 0000 0000 %0816 b16 004044 001475 -03801 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003166 002224 -04417 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009562 -00220 000939 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008554 -00041 -00037 0875 0875 0875 0125 0125 0125 0000 %0820 c11 007653 000125 -00665 0750 0750 0875 0250 0250 0125 0000 %0821 c12 007000 000291 -00975 0625 0625 0875 0375 0375 0125 0000 %0822 c13 006292 000580 -01546 0500 0500 0875 0500 0500 0125 0000 %0823 c14 005453 000832 -01962 0375 0375 0875 0625 0625 0125 0000 %0824 c15 004602 000891 -02678 0250 0250 0875 0750 0750 0125 0000 %0825 c16 003841 001355 -03200 0125 0125 0875 0875 0875 0125 0000 %0826 c17 003084 001807 -03949 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009281 -00108 001584 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008618 -00259 000838 0875 0875 0750 0125 0125 0250 0000 %0829 d11 007638 -00117 -00091 0750 0750 0750 0250 0250 0250 0000 %0830 d12 006914 -00018 -00677 0625 0625 0750 0375 0375 0250 0000 %0831 d13 006144 000296 -01139 0500 0500 0750 0500 0500 0250 0000 %0832 d14 005322 000431 -01586 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004485 000677 -02176 0250 0250 0750 0750 0750 0250 0000 %0834 d16 003763 000837 -02704 0125 0125 0750 0875 0875 0250 0000 %0835 d17 003108 001267 -03259 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009283 -00359 002442 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008506 -00323 001668 0875 0875 0625 0125 0125 0375 0000 %0838 e11 007537 -00269 000671 0750 0750 0625 0250 0250 0375 0000 %0839 e12 006708 -00139 -00201 0625 0625 0625 0375 0375 0375 0000 %0840 e13 006030 000046 -00751 0500 0500 0625 0500 0500 0375 0000 %0841 e14 005125 000185 -01237 0375 0375 0625 0625 0625 0375 0000 %0842 e15 004403 000404 -01668 0250 0250 0625 0750 0750 0375 0000 %0843 e16 003502 000490 -02359 0125 0125 0625 0875 0875 0375 0000 %0844 e17 002898 000856 -02924 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009253 -00626 003474 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008424 -00555 002662 0875 0875 0500 0125 0125 0500 0000 %0847 f11 007513 -00504 002011 0750 0750 0500 0250 0250 0500 0000 %0848 f12 006623 -00303 000739 0625 0625 0500 0375 0375 0500 0000 %0849 f13 005706 -00254 -00187 0500 0500 0500 0500 0500 0500 0000 %0850 f14 005148 -00058 -00812 0375 0375 0500 0625 0625 0500 0000 %0851 f15 004292 -00003 -01496 0250 0250 0500 0750 0750 0500 0000 %0852 f16 003536 000294 -01862 0125 0125 0500 0875 0875 0500 0000 %0853 f17 002658 000654 -02616 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009122 -00880 004631 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008267 -00798 003753 0875 0875 0375 0125 0125 0625 0000 %0856 g11 007276 -00611 002866 0750 0750 0375 0250 0250 0625 0000 %0857 g12 006500 -00569 001954 0625 0625 0375 0375 0375 0625 0000 %0858 g13 005461 -00465 000743 0500 0500 0375 0500 0500 0625 0000 %0859 g14 004808 -00269 -00255 0375 0375 0375 0625 0625 0625 0000 %0860 g15 004150 -00205 -00859 0250 0250 0375 0750 0750 0625 0000 %0861 g16 003436 000181 -01488 0125 0125 0375 0875 0875 0625 0000 %0862 g17 002475 000645 -02244 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009118 -00970 005588 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008106 -00880 004705 0875 0875 0250 0125 0125 0750 0000 %0865 h11 007132 -00760 003695 0750 0750 0250 0250 0250 0750 0000 %0866 h12 006355 -00775 002797 0625 0625 0250 0375 0375 0750 0000 %0867 h13 005304 -00655 001698 0500 0500 0250 0500 0500 0750 0000 %0868 h14 004625 -00593 000654 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003733 -00369 -00265 0250 0250 0250 0750 0750 0750 0000 %0870 h16 003335 000000 -00986 0125 0125 0250 0875 0875 0750 0000 %0871 h17 002410 000686 -01727 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009087 -01160 006615 1000 1000 0125 0000 0000 0875 0000 %0873 i10 007998 -01034 005338 0875 0875 0125 0125 0125 0875 0000 %0874 i11 007069 -00925 004499 0750 0750 0125 0250 0250 0875 0000 %0875 i12 006187 -00803 003582 0625 0625 0125 0375 0375 0875 0000 %0876 i13 005273 -00767 002773 0500 0500 0125 0500 0500 0875 0000 %0877 i14 004719 -00752 001751 0375 0375 0125 0625 0625 0875 0000 %0878 i15 003818 -00624 000741 0250 0250 0125 0750 0750 0875 0000 %0879 i16 002952 -00413 -00245 0125 0125 0125 0875 0875 0875 0000 %0880 i17 002386 000563 -01366 0000 0000 0125 1000 1000 0875 0000 %0881 i18 008883 -01293 007613 1000 1000 0000 0000 0000 1000 0000 %0882 j10 007814 -01211 006458 0875 0875 0000 0125 0125 1000 0000 %0883 j11 006963 -01089 006021 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006170 -01041 005128 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005264 -01024 004261 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004869 -01015 003264 0375 0375 0000 0625 0625 1000 0000 %0887 j15 004216 -01012 002532 0250 0250 0000 0750 0750 1000 0000 %0888 j16 003448 -00824 001251 0125 0125 0000 0875 0875 1000 0000 %0889 j17 002106 000039 -00006 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009403 000004 000001 1000 1000 1000 0000 0000 0000 0000 %0891 b19 008809 000845 -00198 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008293 001641 -00385 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007765 002310 -00539 1000 0625 1000 0000 0375 0000 0000 %0894 b22 007128 003083 -00595 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006454 003748 -00656 1000 0375 1000 0000 0625 0000 0000 %0896 b24 005788 004335 -00769 1000 0250 1000 0000 0750 0000 0000 %0897 b25 005208 005007 -01255 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004585 006025 -01192 1000 0000 1000 0000 1000 0000 0000 %0899 b27 008905 -00721 000223 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008483 -00049 -00022 0875 0875 0875 0125 0125 0125 0000 %0901 c20 007952 000727 -00140 0875 0750 0875 0125 0250 0125 0000 %0902 c21 007412 001439 -00265 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006839 002178 -00441 0875 0500 0875 0125 0500 0125 0000 %0904 c23 006079 002912 -00621 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005329 003711 -00656 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004715 004230 -00915 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004044 005439 -01115 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008403 -01588 000753 0750 1000 0750 0250 0000 0250 0000 %0909 d19 007921 -00999 000435 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007533 -00108 -00098 0750 0750 0750 0250 0250 0250 0000 %0911 d21 006899 000732 -00143 0750 0625 0750 0250 0375 0250 0000 %0912 d22 006221 001494 -00404 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005448 002225 -00447 0750 0375 0750 0250 0625 0250 0000 %0914 d24 004734 002906 -00521 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004125 003498 -00697 0750 0125 0750 0250 0875 0250 0000 %0916 d26 003416 004617 -00936 0750 0000 0750 0250 1000 0250 0000 %0917 d27 008064 -02312 001359 0625 1000 0625 0375 0000 0375 0000 %0918 e19 007510 -01621 000914 0625 0875 0625 0375 0125 0375 0000 %0919 e20 007082 -00953 000287 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006591 -00132 -00186 0625 0625 0625 0375 0375 0375 0000 %0921 e22 005843 000650 -00313 0625 0500 0625 0375 0500 0375 0000 %0922 e23 005128 001455 -00331 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004401 002019 -00339 0625 0250 0625 0375 0750 0375 0000 %0924 e25 003731 002740 -00597 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003062 003624 -00635 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007562 -03147 001539 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007000 -02339 001207 0500 0875 0500 0500 0125 0500 0000 %0928 f20 006620 -01678 000818 0500 0750 0500 0500 0250 0500 0000 %0929 f21 006148 -01007 000264 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005552 -00273 -00148 0500 0500 0500 0500 0500 0500 0000 %0931 f23 004714 000488 -00324 0500 0375 0500 0500 0625 0500 0000 %0932 f24 004030 001297 -00491 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003368 001973 -00591 0500 0125 0500 0500 0875 0500 0000 %0934 f26 002733 002841 -00665 0500 0000 0500 0500 1000 0500 0000 %0935 f27 007076 -04022 001881 0375 1000 0375 0625 0000 0625 0000 %0936 g19 006400 -03326 001411 0375 0875 0375 0625 0125 0625 0000 %0937 g20 006047 -02567 000981 0375 0750 0375 0625 0250 0625 0000 %0938 g21 005552 -01766 000686 0375 0625 0375 0625 0375 0625 0000 %0939 g22 005078 -01065 000229 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004543 -00293 -00234 0375 0375 0375 0625 0625 0625 0000 %0941 g24 003796 000344 -00429 0375 0250 0375 0625 0750 0625 0000 %0942 g25 003045 001161 -00468 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002528 002112 -00768 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006637 -04879 002199 0250 1000 0250 0750 0000 0750 0000 %0945 h19 005981 -03945 001545 0250 0875 0250 0750 0125 0750 0000 %0946 h20 005514 -03327 001193 0250 0750 0250 0750 0250 0750 0000 %0947 h21 005037 -02695 000826 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004567 -01909 000456 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004055 -01059 000060 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003518 -00385 -00282 0250 0250 0250 0750 0750 0750 0000 %0951 h25 003066 000460 -00468 0250 0125 0250 0750 0875 0750 0000 %0952 h26 002466 001345 -00642 0250 0000 0250 0750 1000 0750 0000 %0953 h27 006199 -05725 002679 0125 1000 0125 0875 0000 0875 0000 %0954 i19 005517 -04697 001970 0125 0875 0125 0875 0125 0875 0000 %0955 i20 005127 -04037 001674 0125 0750 0125 0875 0250 0875 0000 %0956 i21 004607 -03293 001149 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004109 -02726 000818 0125 0500 0125 0875 0500 0875 0000 %0958 i23 003818 -01892 000598 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003519 -01184 000303 0125 0250 0125 0875 0750 0875 0000 %0960 i25 002733 -00448 -00171 0125 0125 0125 0875 0875 0875 0000 %0961 i26 002208 000755 -00404 0125 0000 0125 0875 1000 0875 0000 %0962 i27 005768 -06361 003387 0000 1000 0000 1000 0000 1000 0000 %0963 j19 005230 -05990 003159 0000 0875 0000 1000 0125 1000 0000 %0964 j20 004780 -05146 002770 0000 0750 0000 1000 0250 1000 0000 %0965 j21 004455 -03951 001972 0000 0625 0000 1000 0375 1000 0000 %0966 j22 003991 -03298 001340 0000 0500 0000 1000 0500 1000 0000 %0967 j23 003632 -02488 001208 0000 0375 0000 1000 0625 1000 0000 %0968 j24 003118 -01658 001152 0000 0250 0000 1000 0750 1000 0000 %0969 j25 002610 -01068 001010 0000 0125 0000 1000 0875 1000 0000 %0970 j26 001970 -00057 000039 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa1100 [ %BEG GE66_22.TXT, Separation cmyn62*, cf1=0.90, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004634 005671 003457 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z008866 -01244 007633 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z005726 -06405 003421 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005654 -03642 -03783 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003300 002232 -04388 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004639 005962 -01208 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z002024 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009246 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004523 005704 003628 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 008883 -01293 007613 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 005768 -06361 003387 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005614 -03555 -03839 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003166 002224 -04417 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004585 006025 -01192 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 002064 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009371 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def %END GG96_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 (GG960-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.01; nx=1.3) def 300 -150 moveto xchartl 5 le {(GG960-) show} {(GG961-) 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 GG960-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 (GG960-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 GG961-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 (GG961-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 GG961-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 (GG961-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 GG961-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 (GG961-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 GG961-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 (GG961-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 GG961-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 (GG961-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 GG961-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 (GG961-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 GG961-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 (GG961-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 GG961-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 (GG961-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 GG96; Relatives Ger\344te\255Farbsystem G) showde (TUB\255test chart GG96; 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 (->cmyn62* 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*->cmyn62* 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://xxx/GG96/GG96L) show LSY$ 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 (GG96/GG96L) show LSY$ 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/GG96/GG96L) 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\255GG96/GG96L) showde (TUB registration: 20091101\255GG96/GG96L) 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.01; nx=1.3) 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