%!PS-Adobe-3.0 EPSF-3.0 130.149.60.45/~farbmetrik/GE91/GE91L00XX.PS 20091101 %%BoundingBox: 14 08 828 584 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put } if [ /Title (PostScript pictures: www.ps.bam.de/GE91/GE91.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision, colorimetry) /Creator (klaus.richter@mac.com) /CreationDate (D:2009110112000) /ModDate (D:2009110112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /ColSpxG 0 def /ColSpx ColSpxG def /DEintp 0 def /rgb_cmy 1 def /LAB*ioG { } bind def /ColSepG { } bind def /VisTol*ioG 1.0 def %BEG GK0X->GE91/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->GE91/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %***************************************************************************** %BEG GK0X->GE91/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->GE91/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 /CFilenameS1g %START output of step S1g (130.149.60.45/~farbmetrik/GE91/GE91L0N) def %Link file name for data /CDateS1g (2006-01-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (GE91/GE91L0N) def %File name measured in step S1g %change scount2g from 2 to 10 for 10 series %change pcount2g from 8 to 240 for 240 pages of each series /scount1g 1 def /scount2g 1 def /scountg 1 def /pcount1g 1 def /pcount2g 10 def /pcountg 1 def %start=1, one more 9+1! /xchart1g 0 def /xchart2g 9 def /xchartg 0 def /BeginEPSF { % def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF { % def count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def %0 %1 /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /tzank [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /LAB*TE [(HRS27_96, L*=27_96) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70) (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70) (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def %BEG 61 lines comment or new PS operators possible %01 %02 %03 %04 %05 %06 %07 %08 %09 %11 %END 38 lines comment or new PS operators possible %%EndProlog %%BeginPageSetup /#copies 1 def %A4quer 1.0 1.0 scale /pgsave save def %%EndPageSetup 0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter gsave /SS$ [(g) (e) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32 (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32 (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(A.PS /.TXT) (B.PS /.BMP) (G.PS /.GIF) (H.PS /.HTM) (I.PS /.HTM) (J.PS /.JPE) (P.PS /.PDF) (T.PS /.TIF)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 1 def /lanindg2 1 def /colormg1 0 def /colormg2 0 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /pcount2x pcount2g xchart2g sub 2 add def /xcolor10 0 def /xcolor20 1 def %scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10 %pcount1g 1 pcount2x {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 0 def /xchart20 0 def %pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %pcountg pcount2x eq {/xchart10 2 def /xchart20 9 def} if xcolor10 1 xcolor20 {/xcolorg exch def xchart10 1 xchart20 {/xchartg exch def /ausz 8 def /xcharti 0 def %xchartg 2 eq xchartg 3 eq or xchartg 5 eq or {/xcharti 1 def} % {/xcharti 0 def} ifelse /colorm colormg def /xchart xchartg def /xchartg0 0 def %needs Definition of xcharti, is only in OUTLIN1X.PS %to be deleted for tests of Y.. on VAX LAB*ioG ColSepG %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/GE91/ ) show (Form: ) show %xchartg 1 add cvi 6 string cvs show (/) show %xchart2g 1 add cvi 6 string cvs show (,) show 90 rotate %274 MM 65 MM moveto -90 rotate (Serie: ) show %scountg cvi 6 string cvs show (/) show %scount2g cvi 6 string cvs show (,) show 90 rotate %274 MM 55 MM moveto -90 rotate %lanindg 0 eq {(Seite: )}{(Page: )} ifelse show %pcountg xchartg xchart10 sub add cvi 6 string cvs show 90 rotate %274 MM 45 MM moveto %-90 rotate %lanindg 0 eq {(Seitenz\344hlung )}{(Page: count: )} ifelse show %scountg 1 sub pcount2g mul pcountg add %pcountg pcount2x eq {xchartg add pcount1g pcount2x ne {2 sub } if} if %cvi 6 string cvs show %90 rotate /GSS$ SS$ lanindg get def /GSC$ SC$ colormg get def /GSX$ SX$ 0 get def %special /GSY$ SY$ 0 get def %special /GEX$ EX$ 6 get def /GEY$ EY$ 6 get def %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 GE910-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 (GE910-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 GE910-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 (GE910-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 GE910-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 (GE910-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 GE910-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 (GE910-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 GE910-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 (GE910-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 GE910-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 (GE910-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 GE910-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 GE91_HRS27_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 (GE91_HRS27_96_D65_00%_G0) def /LUT_LAB0 [ %GE310-7A, Page 7 /24, %BEG GE21_21_REM.TXT, Separation cmy0*, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE21_21_REM.TXT, Separation cmy0*, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 002591 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 002813 000239 -00808 0000 0000 0125 1000 1000 0875 0000 %0001 A02 002831 000387 -01517 0000 0000 0250 1000 1000 0750 0000 %0002 A03 003050 000514 -02085 0000 0000 0375 1000 1000 0625 0000 %0003 A04 003575 000634 -02466 0000 0000 0500 1000 1000 0500 0000 %0004 A05 003765 001053 -03019 0000 0000 0625 1000 1000 0375 0000 %0005 A06 003557 001701 -03820 0000 0000 0750 1000 1000 0250 0000 %0006 A07 003248 002109 -04121 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003169 002362 -04089 0000 0000 1000 1000 1000 0000 0000 %0008 A09 003378 -00941 000499 0000 0125 0000 1000 0875 1000 0000 %0009 B01 003169 -00719 -00217 0000 0125 0125 1000 0875 0875 0000 %0010 B02 003184 -00661 -01084 0000 0125 0250 1000 0875 0750 0000 %0011 B03 003427 -00526 -01881 0000 0125 0375 1000 0875 0625 0000 %0012 B04 003782 -00266 -02424 0000 0125 0500 1000 0875 0500 0000 %0013 B05 003920 -00015 -03004 0000 0125 0625 1000 0875 0375 0000 %0014 B06 003839 000638 -03956 0000 0125 0750 1000 0875 0250 0000 %0015 B07 003438 001242 -04375 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003378 001375 -04349 0000 0125 1000 1000 0875 0000 0000 %0017 B09 003882 -01864 000843 0000 0250 0000 1000 0750 1000 0000 %0018 C01 003561 -01819 000140 0000 0250 0125 1000 0750 0875 0000 %0019 C02 003574 -01609 -00726 0000 0250 0250 1000 0750 0750 0000 %0020 C03 003797 -01405 -01539 0000 0250 0375 1000 0750 0625 0000 %0021 C04 004039 -01077 -02171 0000 0250 0500 1000 0750 0500 0000 %0022 C05 004223 -00845 -02827 0000 0250 0625 1000 0750 0375 0000 %0023 C06 004089 -00619 -03854 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003636 000095 -04647 0000 0250 0875 1000 0750 0125 0000 %0025 C08 003434 000357 -04681 0000 0250 1000 1000 0750 0000 0000 %0026 C09 004233 -02905 001284 0000 0375 0000 1000 0625 1000 0000 %0027 D01 004093 -02671 000589 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003955 -02382 -00226 0000 0375 0250 1000 0625 0750 0000 %0029 D03 004056 -02058 -01186 0000 0375 0375 1000 0625 0625 0000 %0030 D04 004310 -01824 -01822 0000 0375 0500 1000 0625 0500 0000 %0031 D05 004386 -01553 -02557 0000 0375 0625 1000 0625 0375 0000 %0032 D06 004418 -01347 -03437 0000 0375 0750 1000 0625 0250 0000 %0033 D07 004145 -00978 -04569 0000 0375 0875 1000 0625 0125 0000 %0034 D08 003943 -00641 -04668 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004667 -03929 001931 0000 0500 0000 1000 0500 1000 0000 %0036 E01 004581 -03872 001081 0000 0500 0125 1000 0500 0875 0000 %0037 E02 004576 -03678 000245 0000 0500 0250 1000 0500 0750 0000 %0038 E03 004486 -03238 -00776 0000 0500 0375 1000 0500 0625 0000 %0039 E04 004496 -02808 -01665 0000 0500 0500 1000 0500 0500 0000 %0040 E05 004640 -02273 -02480 0000 0500 0625 1000 0500 0375 0000 %0041 E06 004661 -01979 -03253 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004547 -01883 -04392 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004414 -01426 -04669 0000 0500 1000 1000 0500 0000 0000 %0044 E09 005020 -05643 002895 0000 0625 0000 1000 0375 1000 0000 %0045 F01 005091 -05642 002119 0000 0625 0125 1000 0375 0875 0000 %0046 F02 005085 -05708 000911 0000 0625 0250 1000 0375 0750 0000 %0047 F03 005003 -04968 -00242 0000 0625 0375 1000 0375 0625 0000 %0048 F04 005022 -04509 -01443 0000 0625 0500 1000 0375 0500 0000 %0049 F05 005096 -03758 -02243 0000 0625 0625 1000 0375 0375 0000 %0050 F06 005026 -02929 -03042 0000 0625 0750 1000 0375 0250 0000 %0051 F07 004887 -02817 -03991 0000 0625 0875 1000 0375 0125 0000 %0052 F08 004827 -02103 -04648 0000 0625 1000 1000 0375 0000 0000 %0053 F09 005397 -06917 003618 0000 0750 0000 1000 0250 1000 0000 %0054 G01 005338 -06992 002757 0000 0750 0125 1000 0250 0875 0000 %0055 G02 005276 -06577 001297 0000 0750 0250 1000 0250 0750 0000 %0056 G03 005234 -05995 -00010 0000 0750 0375 1000 0250 0625 0000 %0057 G04 005289 -05401 -00931 0000 0750 0500 1000 0250 0500 0000 %0058 G05 005291 -04817 -01809 0000 0750 0625 1000 0250 0375 0000 %0059 G06 005168 -04287 -02699 0000 0750 0750 1000 0250 0250 0000 %0060 G07 005120 -03596 -03572 0000 0750 0875 1000 0250 0125 0000 %0061 G08 005113 -02860 -04358 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005508 -06781 003634 0000 0875 0000 1000 0125 1000 0000 %0063 H01 005427 -06758 002792 0000 0875 0125 1000 0125 0875 0000 %0064 H02 005555 -06146 001631 0000 0875 0250 1000 0125 0750 0000 %0065 H03 005533 -05664 000410 0000 0875 0375 1000 0125 0625 0000 %0066 H04 005519 -05197 -00526 0000 0875 0500 1000 0125 0500 0000 %0067 H05 005529 -04701 -01404 0000 0875 0625 1000 0125 0375 0000 %0068 H06 005457 -04274 -02175 0000 0875 0750 1000 0125 0250 0000 %0069 H07 005181 -03868 -03175 0000 0875 0875 1000 0125 0125 0000 %0070 H08 005143 -03213 -03953 0000 0875 1000 1000 0125 0000 0000 %0071 H09 005695 -06398 003697 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005688 -06219 002747 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005719 -05802 001650 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005714 -05446 000694 0000 1000 0375 1000 0000 0625 0000 %0075 I04 005734 -04999 -00159 0000 1000 0500 1000 0000 0500 0000 %0076 I05 005775 -04532 -01038 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005716 -04204 -01699 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005557 -03946 -02492 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005220 -03401 -03700 0000 1000 1000 1000 0000 0000 0000 %0080 I09 002727 000935 000401 0125 0000 0000 0875 1000 1000 0000 %0081 J01 003022 001238 -00392 0125 0000 0125 0875 1000 0875 0000 %0082 J02 003077 001382 -01125 0125 0000 0250 0875 1000 0750 0000 %0083 J03 003146 001509 -01712 0125 0000 0375 0875 1000 0625 0000 %0084 J04 003468 001701 -02275 0125 0000 0500 0875 1000 0500 0000 %0085 J05 003525 002258 -02929 0125 0000 0625 0875 1000 0375 0000 %0086 J06 003312 002931 -03593 0125 0000 0750 0875 1000 0250 0000 %0087 J07 003053 003304 -03720 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003123 003067 -03806 0125 0000 1000 0875 1000 0000 0000 %0089 J09 003122 -00152 000934 0125 0125 0000 0875 0875 1000 0000 %0090 K01 002984 000152 000223 0125 0125 0125 0875 0875 0875 0000 %0091 K02 003331 000484 -00658 0125 0125 0250 0875 0875 0750 0000 %0092 K03 003479 000493 -01536 0125 0125 0375 0875 0875 0625 0000 %0093 K04 003750 000548 -02109 0125 0125 0500 0875 0875 0500 0000 %0094 K05 004096 000878 -02575 0125 0125 0625 0875 0875 0375 0000 %0095 K06 004071 001377 -03161 0125 0125 0750 0875 0875 0250 0000 %0096 K07 003717 002034 -03931 0125 0125 0875 0875 0875 0125 0000 %0097 K08 003429 002304 -03997 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003747 -00848 001309 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003738 -00654 000640 0125 0250 0125 0875 0750 0875 0000 %0100 L02 003673 -00539 -00192 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003726 -00484 -01100 0125 0250 0375 0875 0750 0625 0000 %0102 L04 004040 -00450 -01838 0125 0250 0500 0875 0750 0500 0000 %0103 L05 004335 -00182 -02349 0125 0250 0625 0875 0750 0375 0000 %0104 L06 004524 000164 -02850 0125 0250 0750 0875 0750 0250 0000 %0105 L07 004167 000934 -04046 0125 0250 0875 0875 0750 0125 0000 %0106 L08 003737 001475 -04130 0125 0250 1000 0875 0750 0000 0000 %0107 L09 004348 -01832 001765 0125 0375 0000 0875 0625 1000 0000 %0108 M01 004189 -01755 000926 0125 0375 0125 0875 0625 0875 0000 %0109 M02 004203 -01677 000234 0125 0375 0250 0875 0625 0750 0000 %0110 M03 004154 -01440 -00835 0125 0375 0375 0875 0625 0625 0000 %0111 M04 004347 -01136 -01567 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004625 -00815 -02288 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004741 -00720 -02710 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004663 -00464 -03724 0125 0375 0875 0875 0625 0125 0000 %0115 M08 003928 000207 -04440 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004750 -02887 002121 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004667 -02765 001352 0125 0500 0125 0875 0500 0875 0000 %0118 N02 004680 -02466 000534 0125 0500 0250 0875 0500 0750 0000 %0119 N03 004672 -02241 -00247 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004778 -01785 -01303 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004928 -01529 -02047 0125 0500 0625 0875 0500 0375 0000 %0122 N06 005003 -01280 -02659 0125 0500 0750 0875 0500 0250 0000 %0123 N07 005030 -01198 -03402 0125 0500 0875 0875 0500 0125 0000 %0124 N08 004526 -00982 -04455 0125 0500 1000 0875 0500 0000 0000 %0125 N09 005206 -03794 002822 0125 0625 0000 0875 0375 1000 0000 %0126 O01 005222 -03486 001916 0125 0625 0125 0875 0375 0875 0000 %0127 O02 005229 -03285 001014 0125 0625 0250 0875 0375 0750 0000 %0128 O03 005228 -03085 000106 0125 0625 0375 0875 0375 0625 0000 %0129 O04 005209 -02628 -00821 0125 0625 0500 0875 0375 0500 0000 %0130 O05 005263 -02153 -01761 0125 0625 0625 0875 0375 0375 0000 %0131 O06 005303 -01929 -02444 0125 0625 0750 0875 0375 0250 0000 %0132 O07 005265 -01647 -03183 0125 0625 0875 0875 0375 0125 0000 %0133 O08 005044 -01561 -04306 0125 0625 1000 0875 0375 0000 0000 %0134 O09 005620 -05293 003796 0125 0750 0000 0875 0250 1000 0000 %0135 P01 005544 -04206 002286 0125 0750 0125 0875 0250 0875 0000 %0136 P02 005637 -03894 001336 0125 0750 0250 0875 0250 0750 0000 %0137 P03 005719 -03863 000611 0125 0750 0375 0875 0250 0625 0000 %0138 P04 005708 -03586 -00505 0125 0750 0500 0875 0250 0500 0000 %0139 P05 005762 -03160 -01260 0125 0750 0625 0875 0250 0375 0000 %0140 P06 005699 -02749 -02160 0125 0750 0750 0875 0250 0250 0000 %0141 P07 005592 -02388 -02979 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005478 -02192 -03978 0125 0750 1000 0875 0250 0000 0000 %0143 P09 006043 -05832 004247 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 006060 -05509 003206 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 006177 -05168 002099 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 006139 -04813 000887 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 006135 -04417 -00079 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 006172 -03990 -00894 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 006071 -03602 -01687 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 005970 -03147 -02592 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005768 -02752 -03728 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 006026 -05865 004191 0125 1000 0000 0875 0000 1000 0000 %0153 R01 005908 -05932 003361 0125 1000 0125 0875 0000 0875 0000 %0154 R02 005910 -05613 002284 0125 1000 0250 0875 0000 0750 0000 %0155 R03 005991 -05164 001209 0125 1000 0375 0875 0000 0625 0000 %0156 R04 006012 -04695 000118 0125 1000 0500 0875 0000 0500 0000 %0157 R05 006027 -04203 -00930 0125 1000 0625 0875 0000 0375 0000 %0158 R06 006012 -03866 -01547 0125 1000 0750 0875 0000 0250 0000 %0159 R07 005976 -03547 -02235 0125 1000 0875 0875 0000 0125 0000 %0160 R08 005574 -03270 -03406 0125 1000 1000 0875 0000 0000 0000 %0161 R09 003021 001777 000829 0250 0000 0000 0750 1000 1000 0000 %0162 S01 003035 002169 -00118 0250 0000 0125 0750 1000 0875 0000 %0163 S02 003214 002490 -00720 0250 0000 0250 0750 1000 0750 0000 %0164 S03 003278 002527 -01317 0250 0000 0375 0750 1000 0625 0000 %0165 S04 003436 002698 -01859 0250 0000 0500 0750 1000 0500 0000 %0166 S05 003433 003037 -02357 0250 0000 0625 0750 1000 0375 0000 %0167 S06 003288 003806 -03002 0250 0000 0750 0750 1000 0250 0000 %0168 S07 003245 003882 -03335 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003094 003918 -03384 0250 0000 1000 0750 1000 0000 0000 %0170 S09 003369 000864 001239 0250 0125 0000 0750 0875 1000 0000 %0171 T01 003349 001171 000522 0250 0125 0125 0750 0875 0875 0000 %0172 T02 003483 001271 -00246 0250 0125 0250 0750 0875 0750 0000 %0173 T03 003681 001390 -00957 0250 0125 0375 0750 0875 0625 0000 %0174 T04 003847 001566 -01661 0250 0125 0500 0750 0875 0500 0000 %0175 T05 004078 001855 -02273 0250 0125 0625 0750 0875 0375 0000 %0176 T06 004046 002249 -02769 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003749 003094 -03499 0250 0125 0875 0750 0875 0125 0000 %0178 T08 003525 003108 -03628 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003754 -00200 001854 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003648 000096 000954 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003693 000364 000195 0250 0250 0250 0750 0750 0750 0000 %0182 U03 003866 000457 -00457 0250 0250 0375 0750 0750 0625 0000 %0183 U04 004097 000513 -01358 0250 0250 0500 0750 0750 0500 0000 %0184 U05 004409 000745 -02006 0250 0250 0625 0750 0750 0375 0000 %0185 U06 004593 000980 -02593 0250 0250 0750 0750 0750 0250 0000 %0186 U07 004299 001918 -03622 0250 0250 0875 0750 0750 0125 0000 %0187 U08 003840 002197 -03804 0250 0250 1000 0750 0750 0000 0000 %0188 U09 004325 -00959 002399 0250 0375 0000 0750 0625 1000 0000 %0189 V01 004167 -00730 001511 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004240 -00510 000672 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004198 -00401 -00110 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004442 -00444 -01024 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004864 -00262 -01791 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004969 -00031 -02374 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004903 000528 -03411 0250 0375 0875 0750 0625 0125 0000 %0196 V08 004403 001057 -03849 0250 0375 1000 0750 0625 0000 0000 %0197 V09 005088 -01945 002980 0250 0500 0000 0750 0500 1000 0000 %0198 W01 004899 -01697 001876 0250 0500 0125 0750 0500 0875 0000 %0199 W02 005001 -01633 001130 0250 0500 0250 0750 0500 0750 0000 %0200 W03 004895 -01441 000114 0250 0500 0375 0750 0500 0625 0000 %0201 W04 005001 -01264 -00853 0250 0500 0500 0750 0500 0500 0000 %0202 W05 005160 -00941 -01635 0250 0500 0625 0750 0500 0375 0000 %0203 W06 005251 -00722 -02292 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005271 -00565 -03025 0250 0500 0875 0750 0500 0125 0000 %0205 W08 004611 000067 -04022 0250 0500 1000 0750 0500 0000 0000 %0206 W09 005508 -02966 003601 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005500 -02739 002431 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005537 -02542 001668 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005462 -02382 000604 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005464 -02000 -00362 0250 0625 0500 0750 0375 0500 0000 %0211 X05 005538 -01768 -01320 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005571 -01387 -02167 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005585 -01188 -02912 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005428 -01146 -03899 0250 0625 1000 0750 0375 0000 0000 %0215 X09 005905 -04382 004532 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 005848 -03418 002591 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 006013 -03274 001923 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 005997 -03095 001044 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 006005 -02761 000017 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 006014 -02402 -00910 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 006046 -02083 -01828 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 006044 -01761 -02697 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 006040 -01708 -03718 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 006439 -05130 004993 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 006475 -04669 003536 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 006596 -04211 002411 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 006720 -04013 001534 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 006770 -03661 000520 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 006693 -03273 -00451 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 006523 -02860 -01269 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 006439 -02465 -02344 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 006407 -02041 -03372 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006391 -05300 004956 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006594 -04841 003763 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006439 -04869 002843 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006424 -04604 001747 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006491 -04125 000637 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006467 -03664 -00653 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006525 -03292 -01248 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006495 -02969 -02018 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006115 -02749 -03133 0250 1000 1000 0750 0000 0000 0000 %0242 a09 003584 002642 001187 0375 0000 0000 0625 1000 1000 0000 %0243 A10 003555 002922 000460 0375 0000 0125 0625 1000 0875 0000 %0244 A11 003492 003221 -00229 0375 0000 0250 0625 1000 0750 0000 %0245 A12 003483 003446 -00806 0375 0000 0375 0625 1000 0625 0000 %0246 A13 003514 003606 -01352 0375 0000 0500 0625 1000 0500 0000 %0247 A14 003470 003896 -01924 0375 0000 0625 0625 1000 0375 0000 %0248 A15 003367 004485 -02496 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003263 004537 -02796 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003240 004508 -02992 0375 0000 1000 0625 1000 0000 0000 %0251 A18 004089 001596 001735 0375 0125 0000 0625 0875 1000 0000 %0252 B10 004068 001859 000967 0375 0125 0125 0625 0875 0875 0000 %0253 B11 003992 002085 000112 0375 0125 0250 0625 0875 0750 0000 %0254 B12 003884 002282 -00590 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003991 002548 -01327 0375 0125 0500 0625 0875 0500 0000 %0256 B14 003973 002805 -01851 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003994 003084 -02428 0375 0125 0750 0625 0875 0250 0000 %0258 B16 003704 003916 -03183 0375 0125 0875 0625 0875 0125 0000 %0259 B17 003566 003837 -03297 0375 0125 1000 0625 0875 0000 0000 %0260 B18 004517 000577 002419 0375 0250 0000 0625 0750 1000 0000 %0261 C10 004477 000875 001414 0375 0250 0125 0625 0750 0875 0000 %0262 C11 004346 001072 000593 0375 0250 0250 0625 0750 0750 0000 %0263 C12 004428 001109 -00169 0375 0250 0375 0625 0750 0625 0000 %0264 C13 004332 001382 -00994 0375 0250 0500 0625 0750 0500 0000 %0265 C14 004496 001660 -01667 0375 0250 0625 0625 0750 0375 0000 %0266 C15 004602 001907 -02258 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004381 002812 -03284 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004084 002817 -03483 0375 0250 1000 0625 0750 0000 0000 %0269 C18 004999 -00354 003076 0375 0375 0000 0625 0625 1000 0000 %0270 D10 004863 -00093 001982 0375 0375 0125 0625 0625 0875 0000 %0271 D11 004719 000042 001114 0375 0375 0250 0625 0625 0750 0000 %0272 D12 004589 000235 000243 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004745 000450 -00606 0375 0375 0500 0625 0625 0500 0000 %0274 D14 004972 000596 -01443 0375 0375 0625 0625 0625 0375 0000 %0275 D15 005030 000921 -02120 0375 0375 0750 0625 0625 0250 0000 %0276 D16 005030 001548 -03178 0375 0375 0875 0625 0625 0125 0000 %0277 D17 004673 001771 -03458 0375 0375 1000 0625 0625 0000 0000 %0278 D18 005418 -01124 003579 0375 0500 0000 0625 0500 1000 0000 %0279 E10 005476 -01019 002535 0375 0500 0125 0625 0500 0875 0000 %0280 E11 005335 -00839 001443 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005241 -00538 000513 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005121 -00379 -00340 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005307 -00281 -01282 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005392 -00123 -02017 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005466 000268 -02838 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005220 000724 -03428 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005987 -02025 004188 0375 0625 0000 0625 0375 1000 0000 %0288 F10 006096 -01868 002884 0375 0625 0125 0625 0375 0875 0000 %0289 F11 005969 -01775 001700 0375 0625 0250 0625 0375 0750 0000 %0290 F12 005967 -01602 000894 0375 0625 0375 0625 0375 0625 0000 %0291 F13 005946 -01429 000081 0375 0625 0500 0625 0375 0500 0000 %0292 F14 005938 -01214 -00989 0375 0625 0625 0625 0375 0375 0000 %0293 F15 005908 -00952 -01837 0375 0625 0750 0625 0375 0250 0000 %0294 F16 005947 -00713 -02610 0375 0625 0875 0625 0375 0125 0000 %0295 F17 005708 -00456 -03467 0375 0625 1000 0625 0375 0000 0000 %0296 F18 006286 -03145 005205 0375 0750 0000 0625 0250 1000 0000 %0297 G10 006495 -02738 003174 0375 0750 0125 0625 0250 0875 0000 %0298 G11 006441 -02713 002181 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006393 -02532 001317 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006435 -02304 000483 0375 0750 0500 0625 0250 0500 0000 %0301 G14 006462 -02065 -00455 0375 0750 0625 0625 0250 0375 0000 %0302 G15 006454 -01840 -01481 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006444 -01552 -02491 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006536 -01401 -03226 0375 0750 1000 0625 0250 0000 0000 %0305 G18 006775 -04088 005602 0375 0875 0000 0625 0125 1000 0000 %0306 H10 006932 -03674 003940 0375 0875 0125 0625 0125 0875 0000 %0307 H11 006973 -03580 002635 0375 0875 0250 0625 0125 0750 0000 %0308 H12 006970 -03405 001773 0375 0875 0375 0625 0125 0625 0000 %0309 H13 007038 -03197 000831 0375 0875 0500 0625 0125 0500 0000 %0310 H14 007036 -02907 000003 0375 0875 0625 0625 0125 0375 0000 %0311 H15 006927 -02525 -01070 0375 0875 0750 0625 0125 0250 0000 %0312 H16 006968 -02241 -02151 0375 0875 0875 0625 0125 0125 0000 %0313 H17 006969 -01811 -03050 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006907 -04459 005617 0375 1000 0000 0625 0000 1000 0000 %0315 I10 006952 -04370 004741 0375 1000 0125 0625 0000 0875 0000 %0316 I11 007111 -03934 003009 0375 1000 0250 0625 0000 0750 0000 %0317 I12 007047 -03843 002170 0375 1000 0375 0625 0000 0625 0000 %0318 I13 007072 -03611 001293 0375 1000 0500 0625 0000 0500 0000 %0319 I14 007135 -03187 000150 0375 1000 0625 0625 0000 0375 0000 %0320 I15 007058 -02926 -00925 0375 1000 0750 0625 0000 0250 0000 %0321 I16 007046 -02552 -01773 0375 1000 0875 0625 0000 0125 0000 %0322 I17 006949 -02223 -02732 0375 1000 1000 0625 0000 0000 0000 %0323 I18 003797 003388 001787 0500 0000 0000 0500 1000 1000 0000 %0324 J10 003782 003710 001161 0500 0000 0125 0500 1000 0875 0000 %0325 J11 003670 003916 000387 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003614 004119 -00252 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003558 004340 -00912 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003604 004591 -01452 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003599 004869 -02059 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003489 005029 -02474 0500 0000 0875 0500 1000 0125 0000 %0331 J17 003482 004951 -02679 0500 0000 1000 0500 1000 0000 0000 %0332 J18 004354 002256 002296 0500 0125 0000 0500 0875 1000 0000 %0333 K10 004346 002503 001575 0500 0125 0125 0500 0875 0875 0000 %0334 K11 004225 002780 000819 0500 0125 0250 0500 0875 0750 0000 %0335 K12 004191 002995 000043 0500 0125 0375 0500 0875 0625 0000 %0336 K13 004169 003198 -00704 0500 0125 0500 0500 0875 0500 0000 %0337 K14 004199 003547 -01428 0500 0125 0625 0500 0875 0375 0000 %0338 K15 004230 003741 -01914 0500 0125 0750 0500 0875 0250 0000 %0339 K16 004007 004459 -02689 0500 0125 0875 0500 0875 0125 0000 %0340 K17 003750 004320 -03006 0500 0125 1000 0500 0875 0000 0000 %0341 K18 004831 001273 002878 0500 0250 0000 0500 0750 1000 0000 %0342 L10 004840 001423 002081 0500 0250 0125 0500 0750 0875 0000 %0343 L11 004678 001601 001031 0500 0250 0250 0500 0750 0750 0000 %0344 L12 004672 001760 000399 0500 0250 0375 0500 0750 0625 0000 %0345 L13 004675 002042 -00445 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004734 002416 -01193 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004753 002661 -01793 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004661 003459 -02810 0500 0250 0875 0500 0750 0125 0000 %0349 L17 004284 003412 -03119 0500 0250 1000 0500 0750 0000 0000 %0350 L18 005314 000379 003602 0500 0375 0000 0500 0625 1000 0000 %0351 M10 005322 000504 002526 0500 0375 0125 0500 0625 0875 0000 %0352 M11 005226 000771 001461 0500 0375 0250 0500 0625 0750 0000 %0353 M12 005093 000864 000709 0500 0375 0375 0500 0625 0625 0000 %0354 M13 005172 001150 -00087 0500 0375 0500 0500 0625 0500 0000 %0355 M14 005238 001479 -00879 0500 0375 0625 0500 0625 0375 0000 %0356 M15 005255 001713 -01613 0500 0375 0750 0500 0625 0250 0000 %0357 M16 005222 002327 -02628 0500 0375 0875 0500 0625 0125 0000 %0358 M17 004996 002265 -03048 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005921 -00486 004267 0500 0500 0000 0500 0500 1000 0000 %0360 N10 005950 -00332 003139 0500 0500 0125 0500 0500 0875 0000 %0361 N11 005799 -00114 002046 0500 0500 0250 0500 0500 0750 0000 %0362 N12 005677 -00030 001213 0500 0500 0375 0500 0500 0625 0000 %0363 N13 005614 000229 000339 0500 0500 0500 0500 0500 0500 0000 %0364 N14 005672 000589 -00740 0500 0500 0625 0500 0500 0375 0000 %0365 N15 005783 000771 -01454 0500 0500 0750 0500 0500 0250 0000 %0366 N16 005828 001072 -02445 0500 0500 0875 0500 0500 0125 0000 %0367 N17 005572 001201 -03004 0500 0500 1000 0500 0500 0000 0000 %0368 N18 006436 -01322 004939 0500 0625 0000 0500 0375 1000 0000 %0369 O10 006456 -01200 003618 0500 0625 0125 0500 0375 0875 0000 %0370 O11 006337 -01117 002542 0500 0625 0250 0500 0375 0750 0000 %0371 O12 006289 -00966 001586 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006215 -00644 000547 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006247 -00368 -00338 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006274 -00317 -01425 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006305 -00082 -02189 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006224 000136 -02909 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006746 -02132 006057 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006929 -01898 003933 0500 0750 0125 0500 0250 0875 0000 %0379 P11 006861 -01949 002970 0500 0750 0250 0500 0250 0750 0000 %0380 P12 006819 -01913 001890 0500 0750 0375 0500 0250 0625 0000 %0381 P13 006825 -01682 000943 0500 0750 0500 0500 0250 0500 0000 %0382 P14 006848 -01507 000039 0500 0750 0625 0500 0250 0375 0000 %0383 P15 006885 -01256 -01077 0500 0750 0750 0500 0250 0250 0000 %0384 P16 006771 -00967 -02155 0500 0750 0875 0500 0250 0125 0000 %0385 P17 006776 -00885 -02887 0500 0750 1000 0500 0250 0000 0000 %0386 P18 007162 -03059 006407 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 007415 -02828 004804 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 007344 -02744 003152 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 007299 -02706 002217 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007376 -02606 001259 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007448 -02445 000521 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007437 -02101 -00648 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007380 -01846 -01822 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 007297 -01501 -02693 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 007380 -03881 006292 0500 1000 0000 0500 0000 1000 0000 %0396 R10 007485 -03756 005604 0500 1000 0125 0500 0000 0875 0000 %0397 R11 007440 -03658 003897 0500 1000 0250 0500 0000 0750 0000 %0398 R12 007545 -03262 002434 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007666 -02965 001565 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007672 -02772 000807 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007626 -02471 -00455 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007525 -02199 -01450 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007420 -01868 -02454 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003966 004345 002617 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003892 004604 001965 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003860 004586 001129 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003853 004706 000360 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003751 004943 -00379 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003810 005347 -01016 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003778 005488 -01576 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003769 005482 -02093 0625 0000 0875 0375 1000 0125 0000 %0412 S17 003720 005405 -02340 0625 0000 1000 0375 1000 0000 0000 %0413 S18 004590 002893 002831 0625 0125 0000 0375 0875 1000 0000 %0414 T10 004610 003057 002103 0625 0125 0125 0375 0875 0875 0000 %0415 T11 004524 003266 001368 0625 0125 0250 0375 0875 0750 0000 %0416 T12 004381 003510 000619 0625 0125 0375 0375 0875 0625 0000 %0417 T13 004369 003868 -00196 0625 0125 0500 0375 0875 0500 0000 %0418 T14 004389 004116 -00770 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004390 004472 -01488 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004322 004838 -02115 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004096 004756 -02637 0625 0125 1000 0375 0875 0000 0000 %0422 T18 005110 001937 003753 0625 0250 0000 0375 0750 1000 0000 %0423 U10 005123 002019 002531 0625 0250 0125 0375 0750 0875 0000 %0424 U11 005106 002251 001710 0625 0250 0250 0375 0750 0750 0000 %0425 U12 004998 002440 000871 0625 0250 0375 0375 0750 0625 0000 %0426 U13 004981 002712 000060 0625 0250 0500 0375 0750 0500 0000 %0427 U14 005012 003094 -00583 0625 0250 0625 0375 0750 0375 0000 %0428 U15 005058 003379 -01277 0625 0250 0750 0375 0750 0250 0000 %0429 U16 004963 003748 -02070 0625 0250 0875 0375 0750 0125 0000 %0430 U17 004578 003937 -02682 0625 0250 1000 0375 0750 0000 0000 %0431 U18 005569 001085 004532 0625 0375 0000 0375 0625 1000 0000 %0432 V10 005700 001117 003139 0625 0375 0125 0375 0625 0875 0000 %0433 V11 005587 001264 002125 0625 0375 0250 0375 0625 0750 0000 %0434 V12 005554 001398 001286 0625 0375 0375 0375 0625 0625 0000 %0435 V13 005585 001760 000435 0625 0375 0500 0375 0625 0500 0000 %0436 V14 005628 002108 -00380 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005613 002377 -01084 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005579 002857 -01982 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005250 002977 -02600 0625 0375 1000 0375 0625 0000 0000 %0440 V18 006118 000130 005145 0625 0500 0000 0375 0500 1000 0000 %0441 W10 006224 000317 003496 0625 0500 0125 0375 0500 0875 0000 %0442 W11 006190 000418 002619 0625 0500 0250 0375 0500 0750 0000 %0443 W12 006092 000584 001749 0625 0500 0375 0375 0500 0625 0000 %0444 W13 005983 000910 000862 0625 0500 0500 0375 0500 0500 0000 %0445 W14 006050 001239 -00038 0625 0500 0625 0375 0500 0375 0000 %0446 W15 006100 001540 -01005 0625 0500 0750 0375 0500 0250 0000 %0447 W16 006176 001805 -01907 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006040 001829 -02425 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006739 -00645 005799 0625 0625 0000 0375 0375 1000 0000 %0450 X10 006819 -00556 004259 0625 0625 0125 0375 0375 0875 0000 %0451 X11 006762 -00409 003257 0625 0625 0250 0375 0375 0750 0000 %0452 X12 006710 -00270 002303 0625 0625 0375 0375 0375 0625 0000 %0453 X13 006645 -00007 001241 0625 0625 0500 0375 0375 0500 0000 %0454 X14 006590 000320 000231 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006582 000557 -00814 0625 0625 0750 0375 0375 0250 0000 %0456 X16 006728 000689 -01733 0625 0625 0875 0375 0375 0125 0000 %0457 X17 006727 000686 -02361 0625 0625 1000 0375 0375 0000 0000 %0458 X18 007237 -01319 006907 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 007367 -01273 004852 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 007357 -01285 003817 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 007254 -01210 002737 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 007163 -01022 001676 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 007220 -00820 000599 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 007213 -00557 -00390 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007184 -00413 -01541 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007283 -00431 -02331 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 007742 -02201 007401 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 007885 -02091 005510 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007768 -01984 003956 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007698 -01993 002910 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007736 -01998 002063 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 007767 -01749 001105 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 007802 -01433 -00044 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 007811 -01248 -01265 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007845 -01218 -02124 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 008029 -03152 007275 0625 1000 0000 0375 0000 1000 0000 %0477 a10 008198 -02979 006521 0625 1000 0125 0375 0000 0875 0000 %0478 a11 008115 -02960 005086 0625 1000 0250 0375 0000 0750 0000 %0479 a12 008003 -02907 003573 0625 1000 0375 0375 0000 0625 0000 %0480 a13 008088 -02608 002272 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008236 -02250 001415 0625 1000 0625 0375 0000 0375 0000 %0482 a15 008225 -02025 000431 0625 1000 0750 0375 0000 0250 0000 %0483 a16 008069 -01745 -00963 0625 1000 0875 0375 0000 0125 0000 %0484 a17 007989 -01435 -01924 0625 1000 1000 0375 0000 0000 0000 %0485 a18 004071 005332 003406 0750 0000 0000 0250 1000 1000 0000 %0486 A19 003996 005332 002544 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003904 005380 001858 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003835 005485 001185 0750 0000 0375 0250 1000 0625 0000 %0489 A22 003805 005636 000320 0750 0000 0500 0250 1000 0500 0000 %0490 A23 003761 005855 -00402 0750 0000 0625 0250 1000 0375 0000 %0491 A24 003758 006038 -01182 0750 0000 0750 0250 1000 0250 0000 %0492 A25 003884 006017 -01693 0750 0000 0875 0250 1000 0125 0000 %0493 A26 003927 005998 -01940 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004770 003895 004063 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004742 003861 002716 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004663 004003 002047 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004576 004165 001344 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004474 004500 000716 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004402 004787 -00091 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004308 005229 -01002 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004342 005374 -01634 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004308 005451 -02216 0750 0125 1000 0250 0875 0000 0000 %0503 B27 005410 002794 005062 0750 0250 0000 0250 0750 1000 0000 %0504 C19 005408 002617 003091 0750 0250 0125 0250 0750 0875 0000 %0505 C20 005347 002868 002270 0750 0250 0250 0250 0750 0750 0000 %0506 C21 005309 002995 001594 0750 0250 0375 0250 0750 0625 0000 %0507 C22 005259 003173 000959 0750 0250 0500 0250 0750 0500 0000 %0508 C23 005179 003480 000053 0750 0250 0625 0250 0750 0375 0000 %0509 C24 005066 003839 -00708 0750 0250 0750 0250 0750 0250 0000 %0510 C25 005046 004269 -01629 0750 0250 0875 0250 0750 0125 0000 %0511 C26 004936 004493 -02283 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005825 002063 005821 0750 0375 0000 0250 0625 1000 0000 %0513 D19 006029 001636 003698 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005971 001793 002779 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005886 001944 002018 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005800 002186 001283 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005734 002557 000298 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005654 002803 -00511 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005668 003452 -01483 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005503 003709 -02174 0750 0375 1000 0250 0625 0000 0000 %0521 D27 006255 001112 006259 0750 0500 0000 0250 0500 1000 0000 %0522 E19 006474 000891 004276 0750 0500 0125 0250 0500 0875 0000 %0523 E20 006440 000953 003377 0750 0500 0250 0250 0500 0750 0000 %0524 E21 006392 001115 002423 0750 0500 0375 0250 0500 0625 0000 %0525 E22 006332 001255 001701 0750 0500 0500 0250 0500 0500 0000 %0526 E23 006274 001658 000768 0750 0500 0625 0250 0500 0375 0000 %0527 E24 006156 002225 -00431 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006238 002503 -01348 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006288 002841 -01928 0750 0500 1000 0250 0500 0000 0000 %0530 E27 006935 000128 006917 0750 0625 0000 0250 0375 1000 0000 %0531 F19 007022 000093 004999 0750 0625 0125 0250 0375 0875 0000 %0532 F20 007022 000129 003903 0750 0625 0250 0250 0375 0750 0000 %0533 F21 006949 000250 003046 0750 0625 0375 0250 0375 0625 0000 %0534 F22 006854 000505 002125 0750 0625 0500 0250 0375 0500 0000 %0535 F23 006751 000834 001088 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006633 001320 -00162 0750 0625 0750 0250 0375 0250 0000 %0537 F25 006726 001566 -01237 0750 0625 0875 0250 0375 0125 0000 %0538 F26 006983 001753 -01855 0750 0625 1000 0250 0375 0000 0000 %0539 F27 007760 -00752 007775 0750 0750 0000 0250 0250 1000 0000 %0540 G19 007676 -00756 005723 0750 0750 0125 0250 0250 0875 0000 %0541 G20 007643 -00627 004614 0750 0750 0250 0250 0250 0750 0000 %0542 G21 007599 -00607 003806 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007453 -00352 002783 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007394 -00146 001647 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007272 000314 000327 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007277 000512 -00967 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007737 000363 -01783 0750 0750 1000 0250 0250 0000 0000 %0548 G27 008530 -01534 008639 0750 0875 0000 0250 0125 1000 0000 %0549 H19 008244 -01461 006612 0750 0875 0125 0250 0125 0875 0000 %0550 H20 008230 -01463 005073 0750 0875 0250 0250 0125 0750 0000 %0551 H21 008192 -01477 004294 0750 0875 0375 0250 0125 0625 0000 %0552 H22 008065 -01439 003282 0750 0875 0500 0250 0125 0500 0000 %0553 H23 007990 -01304 002319 0750 0875 0625 0250 0125 0375 0000 %0554 H24 007929 -00922 000866 0750 0875 0750 0250 0125 0250 0000 %0555 H25 008052 -00815 -00619 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008401 -00942 -01578 0750 0875 1000 0250 0125 0000 0000 %0557 H27 008855 -02326 008705 0750 1000 0000 0250 0000 1000 0000 %0558 I19 008719 -02333 007320 0750 1000 0125 0250 0000 0875 0000 %0559 I20 008718 -02368 005778 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008648 -02427 004975 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008600 -02369 003920 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008599 -02219 002764 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008727 -01888 001775 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008592 -01590 000063 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008418 -01249 -01472 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004326 005688 003522 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004324 005759 003093 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004284 005846 002348 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004217 005970 001852 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004208 006107 000988 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004184 006410 000139 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004118 006582 -00692 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004154 006591 -01311 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004161 006505 -01606 0875 0000 1000 0125 1000 0000 0000 %0575 J27 005088 004783 005070 0875 0125 0000 0125 0875 1000 0000 %0576 K19 005041 004936 004073 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004924 005012 002879 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004808 005194 002154 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004785 005398 001466 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004696 005713 000672 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004636 006157 -00524 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004650 006277 -01348 0875 0125 0875 0125 0875 0125 0000 %0583 K26 004603 005928 -01793 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005824 003538 005938 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005666 003445 004480 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005705 003506 003261 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005643 003681 002447 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005563 003868 001705 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005521 004148 000915 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005521 004611 -00072 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005428 004923 -01209 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005356 005019 -01729 0875 0250 1000 0125 0750 0000 0000 %0593 L27 006319 002618 006382 0875 0375 0000 0125 0625 1000 0000 %0594 M19 006166 002508 004733 0875 0375 0125 0125 0625 0875 0000 %0595 M20 006213 002637 003347 0875 0375 0250 0125 0625 0750 0000 %0596 M21 006184 002681 002633 0875 0375 0375 0125 0625 0625 0000 %0597 M22 006141 002848 001912 0875 0375 0500 0125 0625 0500 0000 %0598 M23 006065 003156 001126 0875 0375 0625 0125 0625 0375 0000 %0599 M24 006042 003676 000044 0875 0375 0750 0125 0625 0250 0000 %0600 M25 006020 004039 -01025 0875 0375 0875 0125 0625 0125 0000 %0601 M26 005977 004053 -01722 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006865 001552 006945 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006880 001442 005361 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006847 001482 003909 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006798 001578 003059 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006831 001690 002338 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006796 001970 001580 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006732 002556 000419 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006691 002998 -00828 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006841 003124 -01401 0875 0500 1000 0125 0500 0000 0000 %0611 N27 007396 000642 007405 0875 0625 0000 0125 0375 1000 0000 %0612 O19 007394 000585 006173 0875 0625 0125 0125 0375 0875 0000 %0613 O20 007414 000603 004426 0875 0625 0250 0125 0375 0750 0000 %0614 O21 007336 000777 003577 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007313 000933 002725 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007302 001109 001942 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007221 001598 000680 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007169 002097 -00710 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007480 002330 -01261 0875 0625 1000 0125 0375 0000 0000 %0620 O27 008182 -00149 008182 0875 0750 0000 0125 0250 1000 0000 %0621 P19 008022 -00193 006808 0875 0750 0125 0125 0250 0875 0000 %0622 P20 007964 -00139 005049 0875 0750 0250 0125 0250 0750 0000 %0623 P21 007930 000023 004166 0875 0750 0375 0125 0250 0625 0000 %0624 P22 007873 000136 003308 0875 0750 0500 0125 0250 0500 0000 %0625 P23 007838 000425 002494 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007716 000851 001065 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007707 001278 -00337 0875 0750 0875 0125 0250 0125 0000 %0628 P26 008101 001290 -01151 0875 0750 1000 0125 0250 0000 0000 %0629 P27 008834 -00961 008949 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 008538 -00981 007249 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008553 -00845 005715 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008542 -00767 004793 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008518 -00630 003900 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008448 -00521 003122 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008448 -00150 001716 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008478 000161 000102 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008759 000192 -00967 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 009358 -01757 009349 0875 1000 0000 0125 0000 1000 0000 %0639 R19 009141 -01653 008239 0875 1000 0125 0125 0000 0875 0000 %0640 R20 009066 -01581 006347 0875 1000 0250 0125 0000 0750 0000 %0641 R21 009020 -01714 005309 0875 1000 0375 0125 0000 0625 0000 %0642 R22 009035 -01748 004580 0875 1000 0500 0125 0000 0500 0000 %0643 R23 009129 -01711 003784 0875 1000 0625 0125 0000 0375 0000 %0644 R24 009157 -01537 002652 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009153 -01133 000854 0875 1000 0875 0125 0000 0125 0000 %0646 R26 009009 -00810 -00724 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004628 006112 004077 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004593 006088 003552 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004506 006144 002833 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004481 006199 002190 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004455 006383 001493 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004473 006619 000802 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004482 006893 -00022 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004485 007068 -00766 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004539 007055 -01121 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005257 005584 005580 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005124 005862 004918 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005045 006129 003692 1000 0125 0250 0000 0875 0750 0000 %0659 T21 004958 006422 002755 1000 0125 0375 0000 0875 0625 0000 %0660 T22 004928 006622 002072 1000 0125 0500 0000 0875 0500 0000 %0661 T23 004837 006993 001129 1000 0125 0625 0000 0875 0375 0000 %0662 T24 004831 007287 000131 1000 0125 0750 0000 0875 0250 0000 %0663 T25 004923 007445 -00673 1000 0125 0875 0000 0875 0125 0000 %0664 T26 004930 006846 -01100 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005985 004132 006201 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005888 004335 005657 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005893 004432 004469 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005731 004916 003232 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005624 005293 002380 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005653 005472 001446 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005657 005781 000358 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005801 005974 -00765 1000 0250 0875 0000 0750 0125 0000 %0673 U26 005821 005570 -01171 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006569 003024 006735 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006528 003136 006027 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006455 003351 004984 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006442 003585 003593 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006455 003773 002672 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006407 004095 001687 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006442 004358 000722 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006483 004764 -00479 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006587 004806 -00988 1000 0375 1000 0000 0625 0000 0000 %0683 V27 007145 001951 007200 1000 0500 0000 0000 0500 1000 0000 %0684 W19 007177 001930 006527 1000 0500 0125 0000 0500 0875 0000 %0685 W20 007161 002122 005006 1000 0500 0250 0000 0500 0750 0000 %0686 W21 007147 002340 003895 1000 0500 0375 0000 0500 0625 0000 %0687 W22 007227 002410 003003 1000 0500 0500 0000 0500 0500 0000 %0688 W23 007250 002645 002026 1000 0500 0625 0000 0500 0375 0000 %0689 W24 007194 003082 000935 1000 0500 0750 0000 0500 0250 0000 %0690 W25 007207 003562 -00278 1000 0500 0875 0000 0500 0125 0000 %0691 W26 007210 003805 -00885 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007572 001192 007553 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007737 000956 006925 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007759 001067 005551 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007757 001291 004282 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007845 001344 003454 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007875 001583 002419 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007887 001949 001238 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007934 002432 -00100 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007843 002860 -00778 1000 0625 1000 0000 0375 0000 0000 %0701 X27 008247 000050 007859 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 008290 000108 006600 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 008297 000227 005620 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 008295 000403 004674 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008364 000447 004052 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008407 000647 003036 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008557 000831 001804 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008466 001580 000241 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008472 001965 -00642 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008715 -00620 007320 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008753 -00607 006753 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008756 -00444 005584 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008760 -00299 004881 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008820 -00255 004303 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008847 -00116 003589 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 009113 -00236 002691 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 009075 000350 001238 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 009113 000991 -00374 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009158 -01391 008507 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009183 -01353 007683 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009183 -01164 006272 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009298 -01181 005448 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009348 -01126 004894 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009389 -01040 004228 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009567 -01103 003462 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009648 -00750 002092 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009723 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009746 000000 -00004 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009053 -00740 -00703 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008511 -01094 -01369 0750 1000 1000 0250 0000 0000 0000 %0731 b03 008063 -01405 -01803 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007529 -01716 -02323 0500 1000 1000 0500 0000 0000 0000 %0733 b05 006960 -02092 -02700 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006157 -02744 -03101 0250 1000 1000 0750 0000 0000 0000 %0735 b07 005573 -03281 -03371 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005158 -03412 -03687 0000 1000 1000 1000 0000 0000 0000 %0737 b09 009147 000345 001036 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008534 000115 000157 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008208 -00700 -00526 0750 0875 0875 0250 0125 0125 0000 %0740 c03 007778 -01211 -01174 0625 0875 0875 0375 0125 0125 0000 %0741 c04 007388 -01779 -01591 0500 0875 0875 0500 0125 0125 0000 %0742 c05 006980 -02153 -02081 0375 0875 0875 0625 0125 0125 0000 %0743 c06 006409 -02523 -02318 0250 0875 0875 0750 0125 0125 0000 %0744 c07 005963 -03198 -02552 0125 0875 0875 0875 0125 0125 0000 %0745 c08 005178 -03970 -03102 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008629 000832 001551 1000 0750 0750 0000 0250 0250 0000 %0747 d01 007850 000745 000923 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007419 000302 000273 0750 0750 0750 0250 0250 0250 0000 %0749 d03 007088 -00492 -00304 0625 0750 0750 0375 0250 0250 0000 %0750 d04 006806 -01174 -00946 0500 0750 0750 0500 0250 0250 0000 %0751 d05 006405 -01730 -01462 0375 0750 0750 0625 0250 0250 0000 %0752 d06 005984 -02122 -01818 0250 0750 0750 0750 0250 0250 0000 %0753 d07 005691 -02787 -02159 0125 0750 0750 0875 0250 0250 0000 %0754 d08 005163 -04389 -02678 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007945 001536 002273 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007358 001047 001875 0875 0625 0625 0125 0375 0375 0000 %0757 e02 006891 000781 000965 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006450 000278 000292 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006088 -00330 -00211 0500 0625 0625 0500 0375 0375 0000 %0760 e05 005873 -01176 -00870 0375 0625 0625 0625 0375 0375 0000 %0761 e06 005498 -01813 -01306 0250 0625 0625 0750 0375 0375 0000 %0762 e07 005263 -02209 -01702 0125 0625 0625 0875 0375 0375 0000 %0763 e08 005044 -03878 -02139 0000 0625 0625 1000 0375 0375 0000 %0764 e09 007258 002381 002981 1000 0500 0500 0000 0500 0500 0000 %0765 f01 006832 001702 002244 0875 0500 0500 0125 0500 0500 0000 %0766 f02 006442 001224 001661 0750 0500 0500 0250 0500 0500 0000 %0767 f03 005950 000861 001000 0625 0500 0500 0375 0500 0500 0000 %0768 f04 005534 000224 000398 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005206 -00310 -00237 0375 0500 0500 0625 0500 0500 0000 %0770 f06 005123 -01280 -00857 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004851 -01752 -01293 0125 0500 0500 0875 0500 0500 0000 %0772 f08 004550 -02737 -01648 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006478 003556 003583 1000 0375 0375 0000 0625 0625 0000 %0774 g01 006187 002624 002631 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005869 001946 001981 0750 0375 0375 0250 0625 0625 0000 %0776 g03 005463 001399 001448 0625 0375 0375 0375 0625 0625 0000 %0777 g04 005105 000835 000838 0500 0375 0375 0500 0625 0625 0000 %0778 g05 004577 000260 000284 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004396 -00421 -00143 0250 0375 0375 0750 0625 0625 0000 %0780 g07 004302 -01394 -00874 0125 0375 0375 0875 0625 0625 0000 %0781 g08 004245 -01949 -01183 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005940 004341 004633 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005678 003485 003370 0875 0250 0250 0125 0750 0750 0000 %0784 h02 005307 002818 002402 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004987 002218 001867 0625 0250 0250 0375 0750 0750 0000 %0786 h04 004650 001549 001195 0500 0250 0250 0500 0750 0750 0000 %0787 h05 004288 001035 000667 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003910 000353 000190 0250 0250 0250 0750 0750 0750 0000 %0789 h07 003936 -00560 -00234 0125 0250 0250 0875 0750 0750 0000 %0790 h08 003808 -01553 -00716 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005100 005923 004913 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004980 004859 004050 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004690 003762 002882 0750 0125 0125 0250 0875 0875 0000 %0794 i03 004440 003092 002231 0625 0125 0125 0375 0875 0875 0000 %0795 i04 004207 002407 001631 0500 0125 0125 0500 0875 0875 0000 %0796 i05 003997 001759 001052 0375 0125 0125 0625 0875 0875 0000 %0797 i06 003609 001137 000509 0250 0125 0125 0750 0875 0875 0000 %0798 i07 003234 000167 000215 0125 0125 0125 0875 0875 0875 0000 %0799 i08 003483 -00707 -00214 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004486 006230 004224 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004166 005686 003671 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003971 005371 003605 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003830 004347 002716 0625 0000 0000 0375 1000 1000 0000 %0804 j04 003619 003406 001808 0500 0000 0000 0500 1000 1000 0000 %0805 j05 003386 002767 001234 0375 0000 0000 0625 1000 1000 0000 %0806 j06 003180 001945 000777 0250 0000 0000 0750 1000 1000 0000 %0807 j07 002865 001033 000349 0125 0000 0000 0875 1000 1000 0000 %0808 j08 002716 000002 -00020 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009730 000002 -00003 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008850 000085 -00864 0875 0875 1000 0125 0125 0000 0000 %0811 b11 007901 000255 -01611 0750 0750 1000 0250 0250 0000 0000 %0812 b12 006815 000637 -02258 0625 0625 1000 0375 0375 0000 0000 %0813 b13 005648 001141 -02919 0500 0500 1000 0500 0500 0000 0000 %0814 b14 004680 001728 -03335 0375 0375 1000 0625 0625 0000 0000 %0815 b15 003811 002215 -03708 0250 0250 1000 0750 0750 0000 0000 %0816 b16 003464 002304 -03859 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003116 002454 -03984 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009665 -00594 001597 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008661 000144 000082 0875 0875 0875 0125 0125 0125 0000 %0820 c11 007536 000395 -00919 0750 0750 0875 0250 0250 0125 0000 %0821 c12 006718 000686 -01670 0625 0625 0875 0375 0375 0125 0000 %0822 c13 005833 001078 -02366 0500 0500 0875 0500 0500 0125 0000 %0823 c14 004998 001564 -03065 0375 0375 0875 0625 0625 0125 0000 %0824 c15 004270 001942 -03524 0250 0250 0875 0750 0750 0125 0000 %0825 c16 003685 002065 -03836 0125 0125 0875 0875 0875 0125 0000 %0826 c17 003196 002196 -04061 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009589 -00981 002950 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008582 -00081 001404 0875 0875 0750 0125 0125 0250 0000 %0829 d11 007509 000344 000210 0750 0750 0750 0250 0250 0250 0000 %0830 d12 006555 000535 -00734 0625 0625 0750 0375 0375 0250 0000 %0831 d13 005771 000736 -01357 0500 0500 0750 0500 0500 0250 0000 %0832 d14 005016 000963 -02040 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004493 001101 -02627 0250 0250 0750 0750 0750 0250 0000 %0834 d16 004091 001372 -03113 0125 0125 0750 0875 0875 0250 0000 %0835 d17 003463 001779 -03845 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009399 -00942 003757 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008589 -00494 002788 0875 0875 0625 0125 0125 0375 0000 %0838 e11 007572 -00083 001320 0750 0750 0625 0250 0250 0375 0000 %0839 e12 006540 000303 000221 0625 0625 0625 0375 0375 0375 0000 %0840 e13 005667 000534 -00646 0500 0500 0625 0500 0500 0375 0000 %0841 e14 005021 000621 -01367 0375 0375 0625 0625 0625 0375 0000 %0842 e15 004379 000839 -02034 0250 0250 0625 0750 0750 0375 0000 %0843 e16 003982 001040 -02603 0125 0125 0625 0875 0875 0375 0000 %0844 e17 003646 001142 -03093 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009356 -01096 004652 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008641 -00608 003597 0875 0875 0500 0125 0125 0500 0000 %0847 f11 007636 -00306 002441 0750 0750 0500 0250 0250 0500 0000 %0848 f12 006603 000016 001199 0625 0625 0500 0375 0375 0500 0000 %0849 f13 005573 000243 000353 0500 0500 0500 0500 0500 0500 0000 %0850 f14 004818 000463 -00560 0375 0375 0500 0625 0625 0500 0000 %0851 f15 004222 000523 -01378 0250 0250 0500 0750 0750 0500 0000 %0852 f16 003852 000578 -02078 0125 0125 0500 0875 0875 0500 0000 %0853 f17 003580 000690 -02447 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009304 -01198 005426 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008613 -00798 004657 0875 0875 0375 0125 0125 0625 0000 %0856 g11 007674 -00589 003513 0750 0750 0375 0250 0250 0625 0000 %0857 g12 006610 -00242 002284 0625 0625 0375 0375 0375 0625 0000 %0858 g13 005581 000017 001182 0500 0500 0375 0500 0500 0625 0000 %0859 g14 004595 000280 000290 0375 0375 0375 0625 0625 0625 0000 %0860 g15 004067 000424 -00504 0250 0250 0375 0750 0750 0625 0000 %0861 g16 003659 000479 -01557 0125 0125 0375 0875 0875 0625 0000 %0862 g17 003155 000548 -02062 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009202 -01198 006216 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008620 -00907 005695 0875 0875 0250 0125 0125 0750 0000 %0865 h11 007723 -00653 004395 0750 0750 0250 0250 0250 0750 0000 %0866 h12 006692 -00439 003286 0625 0625 0250 0375 0375 0750 0000 %0867 h13 005685 -00114 002076 0500 0500 0250 0500 0500 0750 0000 %0868 h14 004737 000048 001196 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003972 000380 000216 0250 0250 0250 0750 0750 0750 0000 %0870 h16 003592 000448 -00706 0125 0125 0250 0875 0875 0750 0000 %0871 h17 002992 000357 -01570 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009193 -01375 007599 1000 1000 0125 0000 0000 0875 0000 %0873 i10 008587 -01028 007239 0875 0875 0125 0125 0125 0875 0000 %0874 i11 007696 -00787 005633 0750 0750 0125 0250 0250 0875 0000 %0875 i12 006709 -00543 004160 0625 0625 0125 0375 0375 0875 0000 %0876 i13 005831 -00311 003099 0500 0500 0125 0500 0500 0875 0000 %0877 i14 004868 -00103 002066 0375 0375 0125 0625 0625 0875 0000 %0878 i15 003996 000098 000920 0250 0250 0125 0750 0750 0875 0000 %0879 i16 003339 000200 000213 0125 0125 0125 0875 0875 0875 0000 %0880 i17 003048 000252 -00867 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009152 -01417 008580 1000 1000 0000 0000 0000 1000 0000 %0882 j10 008846 -00999 008983 0875 0875 0000 0125 0125 1000 0000 %0883 j11 007711 -00779 007807 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006631 -00636 005779 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005723 -00450 004255 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004955 -00318 003102 0375 0375 0000 0625 0625 1000 0000 %0887 j15 004093 -00211 001873 0250 0250 0000 0750 0750 1000 0000 %0888 j16 003411 -00124 000907 0125 0125 0000 0875 0875 1000 0000 %0889 j17 002757 -00007 -00035 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009728 -00001 000008 1000 1000 1000 0000 0000 0000 0000 %0891 b19 009159 000934 -00349 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008572 001800 -00567 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007965 002668 -00713 1000 0625 1000 0000 0375 0000 0000 %0894 b22 007275 003682 -00821 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006596 004778 -00939 1000 0375 1000 0000 0625 0000 0000 %0896 b24 005747 005623 -01095 1000 0250 1000 0000 0750 0000 0000 %0897 b25 004899 006892 -01003 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004493 007095 -00998 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009181 -00985 000598 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008658 000140 000122 0875 0875 0875 0125 0125 0125 0000 %0901 c20 007899 001209 -00389 0875 0750 0875 0125 0250 0125 0000 %0902 c21 007338 002015 -00714 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006825 002976 -00830 0875 0500 0875 0125 0500 0125 0000 %0904 c23 006107 004031 -00982 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005454 004912 -01135 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004650 006232 -01269 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004100 006543 -01184 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008745 -01704 001236 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008082 -00855 000661 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007473 000336 000262 0750 0750 0750 0250 0250 0250 0000 %0911 d21 006822 001300 -00193 0750 0625 0750 0250 0375 0250 0000 %0912 d22 006330 002183 -00394 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005734 002804 -00510 0750 0375 0750 0250 0625 0250 0000 %0914 d24 005063 003881 -00664 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004369 005134 -00941 0750 0125 0750 0250 0875 0250 0000 %0916 d26 003728 005997 -01102 0750 0000 0750 0250 1000 0250 0000 %0917 d27 008222 -02342 001592 0625 1000 0625 0375 0000 0375 0000 %0918 e19 007700 -01866 001273 0625 0875 0625 0375 0125 0375 0000 %0919 e20 007086 -00865 000700 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006434 000321 000295 0625 0625 0625 0375 0375 0375 0000 %0921 e22 005901 001247 000013 0625 0500 0625 0375 0500 0375 0000 %0922 e23 005341 002126 -00326 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004688 003117 -00447 0625 0250 0625 0375 0750 0375 0000 %0924 e25 004062 004058 -00647 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003504 005107 -00848 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007671 -02983 001708 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007352 -02669 001462 0500 0875 0500 0500 0125 0500 0000 %0928 f20 006763 -01743 001161 0500 0750 0500 0500 0250 0500 0000 %0929 f21 006082 -00692 000705 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005430 000226 000456 0500 0500 0500 0500 0500 0500 0000 %0931 f23 004907 001193 000008 0500 0375 0500 0500 0625 0500 0000 %0932 f24 004348 002126 -00338 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003844 003106 -00543 0500 0125 0500 0500 0875 0500 0000 %0934 f26 003303 004064 -00743 0500 0000 0500 0500 1000 0500 0000 %0935 f27 007030 -03862 002198 0375 1000 0375 0625 0000 0625 0000 %0936 g19 006940 -03472 001882 0375 0875 0375 0625 0125 0625 0000 %0937 g20 006315 -02590 001430 0375 0750 0375 0625 0250 0625 0000 %0938 g21 005805 -01674 001134 0375 0625 0375 0625 0375 0625 0000 %0939 g22 005103 -00600 000703 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004371 000256 000385 0375 0375 0375 0625 0625 0625 0000 %0941 g24 004010 001172 -00041 0375 0250 0375 0625 0750 0625 0000 %0942 g25 003496 002262 -00454 0375 0125 0375 0625 0875 0625 0000 %0943 g26 003044 003304 -00635 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006459 -04861 002918 0250 1000 0250 0750 0000 0750 0000 %0945 h19 006619 -04316 002512 0250 0875 0250 0750 0125 0750 0000 %0946 h20 006013 -03369 001858 0250 0750 0250 0750 0250 0750 0000 %0947 h21 005511 -02635 001613 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004944 -01743 001196 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004234 -00603 000834 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003566 000355 000282 0250 0250 0250 0750 0750 0750 0000 %0951 h25 003267 001252 -00174 0250 0125 0250 0750 0875 0750 0000 %0952 h26 002961 002367 -00620 0250 0000 0250 0750 1000 0750 0000 %0953 h27 005932 -05865 003466 0125 1000 0125 0875 0000 0875 0000 %0954 i19 006136 -05409 003188 0125 0875 0125 0875 0125 0875 0000 %0955 i20 005667 -04145 002357 0125 0750 0125 0875 0250 0875 0000 %0956 i21 005310 -03437 001986 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004712 -02737 001555 0125 0500 0125 0875 0500 0875 0000 %0958 i23 004205 -01796 001119 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003615 -00707 000780 0125 0250 0125 0875 0750 0875 0000 %0960 i25 002914 000155 000294 0125 0125 0125 0875 0875 0875 0000 %0961 i26 002791 001201 -00283 0125 0000 0125 0875 1000 0875 0000 %0962 i27 005693 -06343 003750 0000 1000 0000 1000 0000 1000 0000 %0963 j19 005502 -06717 003690 0000 0875 0000 1000 0125 1000 0000 %0964 j20 005407 -06861 003682 0000 0750 0000 1000 0250 1000 0000 %0965 j21 005070 -05498 003034 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004644 -03832 001964 0000 0500 0000 1000 0500 1000 0000 %0967 j23 004167 -02865 001388 0000 0375 0000 1000 0625 1000 0000 %0968 j24 003708 -01907 000992 0000 0250 0000 1000 0750 1000 0000 %0969 j25 003184 -00974 000640 0000 0125 0000 1000 0875 1000 0000 %0970 j26 002358 000004 000055 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa0100 [ %BEG GE21_21_REM.TXT, Separation cmy0*, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004628 006112 004077 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009158 -01391 008507 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z005695 -06398 003697 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005220 -03401 -03700 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003169 002362 -04089 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004539 007055 -01121 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z002591 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009723 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004486 006230 004224 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 009152 -01417 008580 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 005693 -06343 003750 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005158 -03412 -03687 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003116 002454 -03984 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004493 007095 -00998 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 002610 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009735 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def /FileData1Na (GE91_HRS27_96_D65_00%_G1) def /LUT_LAB1 [ %GE710-7A, Page 7 /24, %BEG GE61_22.TXT, Separation cmy0*, cf1=0.95, D65; cf1=1.00; nt=0.18; nx=1.0, adapted %BEG GE61_22.TXT, Separation cmy0*, cf1=0.95, D65, adapted %100 x LAB*a 1000 x (r g b c m y 0) %nr. pos 002582 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 002729 000290 -00462 0000 0000 0125 1000 1000 0875 0000 %0001 A02 002869 000614 -01088 0000 0000 0250 1000 1000 0750 0000 %0002 A03 002887 000882 -01666 0000 0000 0375 1000 1000 0625 0000 %0003 A04 003025 000973 -02093 0000 0000 0500 1000 1000 0500 0000 %0004 A05 003393 001857 -02394 0000 0000 0625 1000 1000 0375 0000 %0005 A06 003387 002376 -03091 0000 0000 0750 1000 1000 0250 0000 %0006 A07 003442 001905 -03972 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003445 002461 -03998 0000 0000 1000 1000 1000 0000 0000 %0008 A09 003006 -00539 000274 0000 0125 0000 1000 0875 1000 0000 %0009 B01 003052 -00498 -00501 0000 0125 0125 1000 0875 0875 0000 %0010 B02 003011 -00189 -01131 0000 0125 0250 1000 0875 0750 0000 %0011 B03 003097 000046 -01525 0000 0125 0375 1000 0875 0625 0000 %0012 B04 003252 000385 -02037 0000 0125 0500 1000 0875 0500 0000 %0013 B05 003391 000644 -02586 0000 0125 0625 1000 0875 0375 0000 %0014 B06 003536 001215 -03338 0000 0125 0750 1000 0875 0250 0000 %0015 B07 003582 001228 -03334 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003463 001886 -03964 0000 0125 1000 1000 0875 0000 0000 %0017 B09 003700 -02027 000771 0000 0250 0000 1000 0750 1000 0000 %0018 C01 003365 -01057 -00198 0000 0250 0125 1000 0750 0875 0000 %0019 C02 003311 -00977 -00935 0000 0250 0250 1000 0750 0750 0000 %0020 C03 003263 -00547 -01451 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003465 -00250 -02003 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003589 000032 -02559 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003802 000049 -03206 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003856 000231 -03434 0000 0250 0875 1000 0750 0125 0000 %0025 C08 003838 000914 -03818 0000 0250 1000 1000 0750 0000 0000 %0026 C09 004173 -03031 001233 0000 0375 0000 1000 0625 1000 0000 %0027 D01 003673 -02046 000051 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003658 -01645 -00736 0000 0375 0250 1000 0625 0750 0000 %0029 D03 003593 -01303 -01511 0000 0375 0375 1000 0625 0625 0000 %0030 D04 003683 -00882 -01997 0000 0375 0500 1000 0625 0500 0000 %0031 D05 003851 -00603 -02482 0000 0375 0625 1000 0625 0375 0000 %0032 D06 003852 -00285 -02937 0000 0375 0750 1000 0625 0250 0000 %0033 D07 003913 -00046 -03453 0000 0375 0875 1000 0625 0125 0000 %0034 D08 004060 000174 -03865 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004164 -03058 001170 0000 0500 0000 1000 0500 1000 0000 %0036 E01 004122 -02593 000348 0000 0500 0125 1000 0500 0875 0000 %0037 E02 003999 -02326 -00399 0000 0500 0250 1000 0500 0750 0000 %0038 E03 004029 -02008 -01182 0000 0500 0375 1000 0500 0625 0000 %0039 E04 003979 -01567 -01833 0000 0500 0500 1000 0500 0500 0000 %0040 E05 004026 -01096 -02384 0000 0500 0625 1000 0500 0375 0000 %0041 E06 004050 -00792 -02836 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004216 -00640 -03264 0000 0500 0875 1000 0500 0125 0000 %0043 E08 004334 -00490 -03829 0000 0500 1000 1000 0500 0000 0000 %0044 E09 004540 -04177 001762 0000 0625 0000 1000 0375 1000 0000 %0045 F01 004454 -03256 000734 0000 0625 0125 1000 0375 0875 0000 %0046 F02 004426 -02946 -00120 0000 0625 0250 1000 0375 0750 0000 %0047 F03 004401 -02711 -00853 0000 0625 0375 1000 0375 0625 0000 %0048 F04 004354 -02255 -01623 0000 0625 0500 1000 0375 0500 0000 %0049 F05 004389 -01817 -02343 0000 0625 0625 1000 0375 0375 0000 %0050 F06 004339 -01540 -02780 0000 0625 0750 1000 0375 0250 0000 %0051 F07 004467 -01190 -03289 0000 0625 0875 1000 0375 0125 0000 %0052 F08 004597 -01004 -03675 0000 0625 1000 1000 0375 0000 0000 %0053 F09 004825 -04294 002249 0000 0750 0000 1000 0250 1000 0000 %0054 G01 004739 -03892 001013 0000 0750 0125 1000 0250 0875 0000 %0055 G02 004739 -03596 000227 0000 0750 0250 1000 0250 0750 0000 %0056 G03 004684 -03228 -00551 0000 0750 0375 1000 0250 0625 0000 %0057 G04 004640 -03029 -01237 0000 0750 0500 1000 0250 0500 0000 %0058 G05 004738 -02738 -01957 0000 0750 0625 1000 0250 0375 0000 %0059 G06 004727 -02275 -02636 0000 0750 0750 1000 0250 0250 0000 %0060 G07 004737 -01794 -03253 0000 0750 0875 1000 0250 0125 0000 %0061 G08 004739 -01426 -03718 0000 0750 1000 1000 0250 0000 0000 %0062 G09 005179 -05118 002768 0000 0875 0000 1000 0125 1000 0000 %0063 H01 005128 -04550 001474 0000 0875 0125 1000 0125 0875 0000 %0064 H02 005045 -04284 000611 0000 0875 0250 1000 0125 0750 0000 %0065 H03 005015 -03867 -00360 0000 0875 0375 1000 0125 0625 0000 %0066 H04 005009 -03454 -00980 0000 0875 0500 1000 0125 0500 0000 %0067 H05 005035 -03250 -01627 0000 0875 0625 1000 0125 0375 0000 %0068 H06 005032 -03076 -02335 0000 0875 0750 1000 0125 0250 0000 %0069 H07 005017 -02743 -03062 0000 0875 0875 1000 0125 0125 0000 %0070 H08 004988 -02151 -03675 0000 0875 1000 1000 0125 0000 0000 %0071 H09 005696 -06319 003510 0000 1000 0000 1000 0000 1000 0000 %0072 I01 005600 -05539 002018 0000 1000 0125 1000 0000 0875 0000 %0073 I02 005600 -05236 000964 0000 1000 0250 1000 0000 0750 0000 %0074 I03 005531 -04964 000096 0000 1000 0375 1000 0000 0625 0000 %0075 I04 005601 -04559 -00785 0000 1000 0500 1000 0000 0500 0000 %0076 I05 005622 -04450 -01363 0000 1000 0625 1000 0000 0375 0000 %0077 I06 005539 -04370 -02137 0000 1000 0750 1000 0000 0250 0000 %0078 I07 005519 -03725 -02688 0000 1000 0875 1000 0000 0125 0000 %0079 I08 005388 -03525 -03675 0000 1000 1000 1000 0000 0000 0000 %0080 I09 002805 000773 000511 0125 0000 0000 0875 1000 1000 0000 %0081 J01 002905 000780 -00127 0125 0000 0125 0875 1000 0875 0000 %0082 J02 002867 001031 -00823 0125 0000 0250 0875 1000 0750 0000 %0083 J03 003034 001303 -01268 0125 0000 0375 0875 1000 0625 0000 %0084 J04 003106 001581 -01785 0125 0000 0500 0875 1000 0500 0000 %0085 J05 003249 001705 -02192 0125 0000 0625 0875 1000 0375 0000 %0086 J06 003320 002342 -03122 0125 0000 0750 0875 1000 0250 0000 %0087 J07 003348 002412 -03090 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003268 002961 -03880 0125 0000 1000 0875 1000 0000 0000 %0089 J09 003376 -00234 000972 0125 0125 0000 0875 0875 1000 0000 %0090 K01 003354 -00004 000073 0125 0125 0125 0875 0875 0875 0000 %0091 K02 003590 000247 -00509 0125 0125 0250 0875 0875 0750 0000 %0092 K03 003631 000520 -01148 0125 0125 0375 0875 0875 0625 0000 %0093 K04 003725 000807 -01513 0125 0125 0500 0875 0875 0500 0000 %0094 K05 003851 001119 -02069 0125 0125 0625 0875 0875 0375 0000 %0095 K06 003810 001576 -02650 0125 0125 0750 0875 0875 0250 0000 %0096 K07 003888 001841 -03051 0125 0125 0875 0875 0875 0125 0000 %0097 K08 004110 002003 -03541 0125 0125 1000 0875 0875 0000 0000 %0098 K09 003787 -01017 001342 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003990 -00821 000434 0125 0250 0125 0875 0750 0875 0000 %0100 L02 003863 -00500 -00487 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003777 -00103 -01211 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003936 000162 -01645 0125 0250 0500 0875 0750 0500 0000 %0103 L05 004134 000396 -02089 0125 0250 0625 0875 0750 0375 0000 %0104 L06 004168 000744 -02572 0125 0250 0750 0875 0750 0250 0000 %0105 L07 004310 000989 -03031 0125 0250 0875 0875 0750 0125 0000 %0106 L08 004517 001111 -03289 0125 0250 1000 0875 0750 0000 0000 %0107 L09 004285 -01926 001744 0125 0375 0000 0875 0625 1000 0000 %0108 M01 004419 -01568 000872 0125 0375 0125 0875 0625 0875 0000 %0109 M02 004373 -01193 -00217 0125 0375 0250 0875 0625 0750 0000 %0110 M03 004255 -01041 -00898 0125 0375 0375 0875 0625 0625 0000 %0111 M04 004183 -00596 -01537 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004412 -00353 -02063 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004471 000030 -02515 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004440 000384 -03032 0125 0375 0875 0875 0625 0125 0000 %0115 M08 004640 000497 -03324 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004536 -02645 001856 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004591 -02500 001164 0125 0500 0125 0875 0500 0875 0000 %0118 N02 004535 -01977 000003 0125 0500 0250 0875 0500 0750 0000 %0119 N03 004534 -01677 -00845 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004525 -01341 -01483 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004699 -00934 -02014 0125 0500 0625 0875 0500 0375 0000 %0122 N06 004649 -00649 -02474 0125 0500 0750 0875 0500 0250 0000 %0123 N07 004667 -00246 -02928 0125 0500 0875 0875 0500 0125 0000 %0124 N08 004822 -00029 -03259 0125 0500 1000 0875 0500 0000 0000 %0125 N09 004952 -03419 002462 0125 0625 0000 0875 0375 1000 0000 %0126 O01 005003 -03303 001635 0125 0625 0125 0875 0375 0875 0000 %0127 O02 004964 -02677 000394 0125 0625 0250 0875 0375 0750 0000 %0128 O03 004890 -02335 -00397 0125 0625 0375 0875 0375 0625 0000 %0129 O04 004906 -01945 -01183 0125 0625 0500 0875 0375 0500 0000 %0130 O05 004889 -01728 -01821 0125 0625 0625 0875 0375 0375 0000 %0131 O06 004861 -01245 -02340 0125 0625 0750 0875 0375 0250 0000 %0132 O07 004946 -00893 -02899 0125 0625 0875 0875 0375 0125 0000 %0133 O08 005012 -00694 -03349 0125 0625 1000 0875 0375 0000 0000 %0134 O09 005239 -04347 003143 0125 0750 0000 0875 0250 1000 0000 %0135 P01 005358 -04041 002156 0125 0750 0125 0875 0250 0875 0000 %0136 P02 005261 -03519 000863 0125 0750 0250 0875 0250 0750 0000 %0137 P03 005158 -03013 -00212 0125 0750 0375 0875 0250 0625 0000 %0138 P04 005169 -02702 -00924 0125 0750 0500 0875 0250 0500 0000 %0139 P05 005160 -02383 -01644 0125 0750 0625 0875 0250 0375 0000 %0140 P06 005103 -02013 -02316 0125 0750 0750 0875 0250 0250 0000 %0141 P07 005160 -01548 -02880 0125 0750 0875 0875 0250 0125 0000 %0142 P08 005250 -01239 -03315 0125 0750 1000 0875 0250 0000 0000 %0143 P09 005545 -05131 003570 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 005588 -04549 002428 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 005547 -04220 001237 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 005533 -03874 000189 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 005558 -03490 -00563 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 005554 -03186 -01252 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 005502 -02737 -02085 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 005491 -02401 -02705 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 005437 -01836 -03319 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 006010 -06030 004043 0125 1000 0000 0875 0000 1000 0000 %0153 R01 006043 -05783 003106 0125 1000 0125 0875 0000 0875 0000 %0154 R02 006042 -04999 001582 0125 1000 0250 0875 0000 0750 0000 %0155 R03 005968 -04590 000495 0125 1000 0375 0875 0000 0625 0000 %0156 R04 005967 -04101 -00349 0125 1000 0500 0875 0000 0500 0000 %0157 R05 005968 -03913 -00909 0125 1000 0625 0875 0000 0375 0000 %0158 R06 005956 -03596 -01562 0125 1000 0750 0875 0000 0250 0000 %0159 R07 005925 -03199 -02423 0125 1000 0875 0875 0000 0125 0000 %0160 R08 005888 -02944 -03116 0125 1000 1000 0875 0000 0000 0000 %0161 R09 003085 001556 001009 0250 0000 0000 0750 1000 1000 0000 %0162 S01 003161 001557 000508 0250 0000 0125 0750 1000 0875 0000 %0163 S02 003179 001679 -00219 0250 0000 0250 0750 1000 0750 0000 %0164 S03 003206 001799 -00940 0250 0000 0375 0750 1000 0625 0000 %0165 S04 003294 001965 -01455 0250 0000 0500 0750 1000 0500 0000 %0166 S05 003327 002235 -01942 0250 0000 0625 0750 1000 0375 0000 %0167 S06 003293 002508 -02483 0250 0000 0750 0750 1000 0250 0000 %0168 S07 003468 002806 -03009 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003513 003214 -03485 0250 0000 1000 0750 1000 0000 0000 %0170 S09 003547 000730 001464 0250 0125 0000 0750 0875 1000 0000 %0171 T01 003782 000718 000508 0250 0125 0125 0750 0875 0875 0000 %0172 T02 003750 000851 -00164 0250 0125 0250 0750 0875 0750 0000 %0173 T03 003733 000987 -00836 0250 0125 0375 0750 0875 0625 0000 %0174 T04 003872 001373 -01255 0250 0125 0500 0750 0875 0500 0000 %0175 T05 003951 001527 -01725 0250 0125 0625 0750 0875 0375 0000 %0176 T06 003855 001995 -02357 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003976 002284 -02842 0250 0125 0875 0750 0875 0125 0000 %0178 T08 004233 002401 -03233 0250 0125 1000 0750 0875 0000 0000 %0179 T09 004147 -00437 002124 0250 0250 0000 0750 0750 1000 0000 %0180 U01 004159 -00253 001056 0250 0250 0125 0750 0750 0875 0000 %0181 U02 004219 000139 -00003 0250 0250 0250 0750 0750 0750 0000 %0182 U03 004399 000315 -00510 0250 0250 0375 0750 0750 0625 0000 %0183 U04 004455 000579 -01038 0250 0250 0500 0750 0750 0500 0000 %0184 U05 004679 000888 -01484 0250 0250 0625 0750 0750 0375 0000 %0185 U06 004673 001168 -01935 0250 0250 0750 0750 0750 0250 0000 %0186 U07 004789 001283 -02378 0250 0250 0875 0750 0750 0125 0000 %0187 U08 004881 001671 -02797 0250 0250 1000 0750 0750 0000 0000 %0188 U09 004514 -01163 002348 0250 0375 0000 0750 0625 1000 0000 %0189 V01 004609 -01005 001343 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004785 -00808 000466 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004687 -00423 -00500 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004680 -00088 -01040 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004807 000149 -01564 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004934 000474 -01981 0250 0375 0750 0750 0625 0250 0000 %0195 V07 005076 000657 -02318 0250 0375 0875 0750 0625 0125 0000 %0196 V08 005219 000845 -02806 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004993 -01966 002841 0250 0500 0000 0750 0500 1000 0000 %0198 W01 005055 -01769 001825 0250 0500 0125 0750 0500 0875 0000 %0199 W02 005226 -01618 000914 0250 0500 0250 0750 0500 0750 0000 %0200 W03 005106 -01062 -00173 0250 0500 0375 0750 0500 0625 0000 %0201 W04 005170 -00871 -00934 0250 0500 0500 0750 0500 0500 0000 %0202 W05 005128 -00507 -01488 0250 0500 0625 0750 0500 0375 0000 %0203 W06 005275 -00325 -01965 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005425 -00102 -02260 0250 0500 0875 0750 0500 0125 0000 %0205 W08 005470 000273 -02786 0250 0500 1000 0750 0500 0000 0000 %0206 W09 005354 -02786 003235 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005345 -02565 002111 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005449 -02375 001269 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005403 -01874 000145 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005418 -01540 -00661 0250 0625 0500 0750 0375 0500 0000 %0211 X05 005381 -01264 -01333 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005418 -00918 -01887 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005516 -00616 -02275 0250 0625 0875 0750 0375 0125 0000 %0214 X08 005568 -00345 -02818 0250 0625 1000 0750 0375 0000 0000 %0215 X09 005605 -03519 003527 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 005726 -03398 002666 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 005842 -03261 001736 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 005781 -02593 000441 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 005743 -02232 -00431 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 005738 -01922 -01166 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 005683 -01642 -01856 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 005794 -01228 -02277 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 005810 -00837 -02870 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 005967 -04582 004157 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 005999 -04027 002868 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 006050 -03799 001904 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 005991 -03254 000601 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 006015 -02925 -00198 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 006096 -02645 -00842 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 005996 -02297 -01690 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 005956 -01931 -02449 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 005994 -01448 -02984 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 006380 -05406 004677 0250 1000 0000 0750 0000 1000 0000 %0234 a01 006426 -05169 003613 0250 1000 0125 0750 0000 0875 0000 %0235 a02 006619 -04683 002639 0250 1000 0250 0750 0000 0750 0000 %0236 a03 006459 -04287 001199 0250 1000 0375 0750 0000 0625 0000 %0237 a04 006423 -03827 000153 0250 1000 0500 0750 0000 0500 0000 %0238 a05 006415 -03448 -00552 0250 1000 0625 0750 0000 0375 0000 %0239 a06 006388 -03102 -01221 0250 1000 0750 0750 0000 0250 0000 %0240 a07 006333 -02782 -02036 0250 1000 0875 0750 0000 0125 0000 %0241 a08 006299 -02454 -02733 0250 1000 1000 0750 0000 0000 0000 %0242 a09 003521 002468 001157 0375 0000 0000 0625 1000 1000 0000 %0243 A10 003508 002376 000845 0375 0000 0125 0625 1000 0875 0000 %0244 A11 003467 002506 000236 0375 0000 0250 0625 1000 0750 0000 %0245 A12 003483 002562 -00394 0375 0000 0375 0625 1000 0625 0000 %0246 A13 003477 002677 -01099 0375 0000 0500 0625 1000 0500 0000 %0247 A14 003431 002822 -01747 0375 0000 0625 0625 1000 0375 0000 %0248 A15 003506 003028 -02219 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003556 003315 -02719 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003602 003683 -03273 0375 0000 1000 0625 1000 0000 0000 %0251 A18 004047 001301 001844 0375 0125 0000 0625 0875 1000 0000 %0252 B10 004097 001426 001027 0375 0125 0125 0625 0875 0875 0000 %0253 B11 004082 001645 000327 0375 0125 0250 0625 0875 0750 0000 %0254 B12 004126 001810 -00362 0375 0125 0375 0625 0875 0625 0000 %0255 B13 004091 001759 -00911 0375 0125 0500 0625 0875 0500 0000 %0256 B14 004240 001954 -01361 0375 0125 0625 0625 0875 0375 0000 %0257 B15 004198 002281 -01963 0375 0125 0750 0625 0875 0250 0000 %0258 B16 004303 002442 -02478 0375 0125 0875 0625 0875 0125 0000 %0259 B17 004426 002620 -02939 0375 0125 1000 0625 0875 0000 0000 %0260 B18 004465 000549 002530 0375 0250 0000 0625 0750 1000 0000 %0261 C10 004582 000618 001530 0375 0250 0125 0625 0750 0875 0000 %0262 C11 004800 000835 000441 0375 0250 0250 0625 0750 0750 0000 %0263 C12 004772 000841 -00113 0375 0250 0375 0625 0750 0625 0000 %0264 C13 004653 001110 -00801 0375 0250 0500 0625 0750 0500 0000 %0265 C14 004761 001352 -01259 0375 0250 0625 0625 0750 0375 0000 %0266 C15 004832 001636 -01674 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004942 001712 -02123 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004906 001999 -02776 0375 0250 1000 0625 0750 0000 0000 %0269 C18 005138 -00478 003153 0375 0375 0000 0625 0625 1000 0000 %0270 D10 005234 -00325 002080 0375 0375 0125 0625 0625 0875 0000 %0271 D11 005270 -00209 001106 0375 0375 0250 0625 0625 0750 0000 %0272 D12 005224 000155 000012 0375 0375 0375 0625 0625 0625 0000 %0273 D13 005336 000363 -00462 0375 0375 0500 0625 0625 0500 0000 %0274 D14 005407 000650 -00977 0375 0375 0625 0625 0625 0375 0000 %0275 D15 005528 000912 -01503 0375 0375 0750 0625 0625 0250 0000 %0276 D16 005525 001012 -01910 0375 0375 0875 0625 0625 0125 0000 %0277 D17 005603 001423 -02535 0375 0375 1000 0625 0625 0000 0000 %0278 D18 005397 -01290 003344 0375 0500 0000 0625 0500 1000 0000 %0279 E10 005450 -01194 002314 0375 0500 0125 0625 0500 0875 0000 %0280 E11 005490 -00956 001378 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005583 -00669 000411 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005543 -00326 -00382 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005729 -00188 -00996 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005760 000106 -01578 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005789 000351 -01927 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005954 000757 -02410 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005744 -02194 003714 0375 0625 0000 0625 0375 1000 0000 %0288 F10 005807 -01998 002669 0375 0625 0125 0625 0375 0875 0000 %0289 F11 005905 -01742 001903 0375 0625 0250 0625 0375 0750 0000 %0290 F12 005978 -01500 000792 0375 0625 0375 0625 0375 0625 0000 %0291 F13 005962 -01064 -00267 0375 0625 0500 0625 0375 0500 0000 %0292 F14 005958 -00805 -00929 0375 0625 0625 0625 0375 0375 0000 %0293 F15 005995 -00452 -01503 0375 0625 0750 0625 0375 0250 0000 %0294 F16 006041 -00190 -01883 0375 0625 0875 0625 0375 0125 0000 %0295 F17 006195 000044 -02343 0375 0625 1000 0625 0375 0000 0000 %0296 F18 006128 -02870 004056 0375 0750 0000 0625 0250 1000 0000 %0297 G10 006273 -02717 003196 0375 0750 0125 0625 0250 0875 0000 %0298 G11 006265 -02518 002342 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006417 -02336 001176 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006263 -01869 000137 0375 0750 0500 0625 0250 0500 0000 %0301 G14 006258 -01551 -00677 0375 0750 0625 0625 0250 0375 0000 %0302 G15 006229 -01194 -01332 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006261 -00752 -01842 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006307 -00466 -02262 0375 0750 1000 0625 0250 0000 0000 %0305 G18 006435 -03904 004995 0375 0875 0000 0625 0125 1000 0000 %0306 H10 006521 -03492 003482 0375 0875 0125 0625 0125 0875 0000 %0307 H11 006552 -03173 002535 0375 0875 0250 0625 0125 0750 0000 %0308 H12 006583 -03040 001595 0375 0875 0375 0625 0125 0625 0000 %0309 H13 006549 -02431 000307 0375 0875 0500 0625 0125 0500 0000 %0310 H14 006534 -02203 -00352 0375 0875 0625 0625 0125 0375 0000 %0311 H15 006530 -01930 -01112 0375 0875 0750 0625 0125 0250 0000 %0312 H16 006508 -01618 -01789 0375 0875 0875 0625 0125 0125 0000 %0313 H17 006529 -01230 -02250 0375 0875 1000 0625 0125 0000 0000 %0314 H18 006794 -04702 005334 0375 1000 0000 0625 0000 1000 0000 %0315 I10 006855 -04516 004018 0375 1000 0125 0625 0000 0875 0000 %0316 I11 006945 -04245 003034 0375 1000 0250 0625 0000 0750 0000 %0317 I12 007085 -03831 002148 0375 1000 0375 0625 0000 0625 0000 %0318 I13 007162 -03402 000806 0375 1000 0500 0625 0000 0500 0000 %0319 I14 006965 -02946 -00043 0375 1000 0625 0625 0000 0375 0000 %0320 I15 006961 -02618 -00677 0375 1000 0750 0625 0000 0250 0000 %0321 I16 006886 -02302 -01459 0375 1000 0875 0625 0000 0125 0000 %0322 I17 006854 -02077 -02111 0375 1000 1000 0625 0000 0000 0000 %0323 I18 003648 003145 001623 0500 0000 0000 0500 1000 1000 0000 %0324 J10 003666 002986 001383 0500 0000 0125 0500 1000 0875 0000 %0325 J11 003558 003143 000678 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003588 003170 000241 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003666 003307 -00477 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003631 003445 -01141 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003666 003580 -01749 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003646 003867 -02301 0500 0000 0875 0500 1000 0125 0000 %0331 J17 003736 004127 -02938 0500 0000 1000 0500 1000 0000 0000 %0332 J18 004284 002302 002306 0500 0125 0000 0500 0875 1000 0000 %0333 K10 004245 002188 001424 0500 0125 0125 0500 0875 0875 0000 %0334 K11 004297 002191 000880 0500 0125 0250 0500 0875 0750 0000 %0335 K12 004321 002322 000298 0500 0125 0375 0500 0875 0625 0000 %0336 K13 004233 002549 -00475 0500 0125 0500 0500 0875 0500 0000 %0337 K14 004371 002625 -01006 0500 0125 0625 0500 0875 0375 0000 %0338 K15 004331 002816 -01560 0500 0125 0750 0500 0875 0250 0000 %0339 K16 004338 003008 -02141 0500 0125 0875 0500 0875 0125 0000 %0340 K17 004491 003039 -02478 0500 0125 1000 0500 0875 0000 0000 %0341 K18 004812 001323 002970 0500 0250 0000 0500 0750 1000 0000 %0342 L10 004843 001345 002005 0500 0250 0125 0500 0750 0875 0000 %0343 L11 005015 001466 001033 0500 0250 0250 0500 0750 0750 0000 %0344 L12 004977 001639 000281 0500 0250 0375 0500 0750 0625 0000 %0345 L13 004934 001709 -00222 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004956 001794 -00889 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004963 002037 -01490 0500 0250 0750 0500 0750 0250 0000 %0348 L16 005040 002220 -01827 0500 0250 0875 0500 0750 0125 0000 %0349 L17 005075 002477 -02399 0500 0250 1000 0500 0750 0000 0000 %0350 L18 005233 000468 003503 0500 0375 0000 0500 0625 1000 0000 %0351 M10 005272 000570 002500 0500 0375 0125 0500 0625 0875 0000 %0352 M11 005467 000688 001493 0500 0375 0250 0500 0625 0750 0000 %0353 M12 005591 000836 000403 0500 0375 0375 0500 0625 0625 0000 %0354 M13 005531 000878 -00101 0500 0375 0500 0500 0625 0500 0000 %0355 M14 005556 001072 -00725 0500 0375 0625 0500 0625 0375 0000 %0356 M15 005610 001308 -01264 0500 0375 0750 0500 0625 0250 0000 %0357 M16 005676 001450 -01611 0500 0375 0875 0500 0625 0125 0000 %0358 M17 005678 001883 -02246 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005900 -00689 004230 0500 0500 0000 0500 0500 1000 0000 %0360 N10 005938 -00543 003180 0500 0500 0125 0500 0500 0875 0000 %0361 N11 006062 -00320 002142 0500 0500 0250 0500 0500 0750 0000 %0362 N12 006047 -00165 000901 0500 0500 0375 0500 0500 0625 0000 %0363 N13 006012 000094 000082 0500 0500 0500 0500 0500 0500 0000 %0364 N14 006176 000278 -00428 0500 0500 0625 0500 0500 0375 0000 %0365 N15 006269 000601 -00963 0500 0500 0750 0500 0500 0250 0000 %0366 N16 006357 000761 -01377 0500 0500 0875 0500 0500 0125 0000 %0367 N17 006421 001209 -02048 0500 0500 1000 0500 0500 0000 0000 %0368 N18 006177 -01486 004560 0500 0625 0000 0500 0375 1000 0000 %0369 O10 006202 -01261 003492 0500 0625 0125 0500 0375 0875 0000 %0370 O11 006310 -01102 002414 0500 0625 0250 0500 0375 0750 0000 %0371 O12 006394 -00993 001476 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006427 -00676 000404 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006424 -00326 -00359 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006498 -00127 -00962 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006539 000196 -01435 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006669 000479 -01984 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006438 -02436 004806 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006549 -02166 003819 0500 0750 0125 0500 0250 0875 0000 %0379 P11 006661 -01922 002829 0500 0750 0250 0500 0250 0750 0000 %0380 P12 006781 -01769 001774 0500 0750 0375 0500 0250 0625 0000 %0381 P13 006883 -01534 000902 0500 0750 0500 0500 0250 0500 0000 %0382 P14 006768 -01078 -00186 0500 0750 0625 0500 0250 0375 0000 %0383 P15 006759 -00779 -00993 0500 0750 0750 0500 0250 0250 0000 %0384 P16 006841 -00415 -01429 0500 0750 0875 0500 0250 0125 0000 %0385 P17 006860 -00089 -01874 0500 0750 1000 0500 0250 0000 0000 %0386 P18 006778 -03393 005618 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 006876 -03008 004167 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 006966 -02702 003069 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 007099 -02611 002296 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007163 -02268 001269 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007097 -01795 000204 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007042 -01537 -00548 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007045 -01224 -01481 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 007067 -00760 -01891 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 007159 -04225 005909 0500 1000 0000 0500 0000 1000 0000 %0396 R10 007344 -03888 004508 0500 1000 0125 0500 0000 0875 0000 %0397 R11 007392 -03714 003739 0500 1000 0250 0500 0000 0750 0000 %0398 R12 007345 -03552 002646 0500 1000 0375 0500 0000 0625 0000 %0399 R13 007596 -03087 001727 0500 1000 0500 0500 0000 0500 0000 %0400 R14 007608 -02796 000585 0500 1000 0625 0500 0000 0375 0000 %0401 R15 007532 -02270 -00063 0500 1000 0750 0500 0000 0250 0000 %0402 R16 007480 -01889 -00937 0500 1000 0875 0500 0000 0125 0000 %0403 R17 007446 -01748 -01535 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003840 003727 002054 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003865 003794 001771 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003827 003943 001102 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003829 004073 000566 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003883 004160 -00070 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003863 004256 -00515 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003836 004293 -01292 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003791 004667 -01903 0625 0000 0875 0375 1000 0125 0000 %0412 S17 003890 004623 -02481 0625 0000 1000 0375 1000 0000 0000 %0413 S18 004413 003062 002810 0625 0125 0000 0375 0875 1000 0000 %0414 T10 004424 003002 001980 0625 0125 0125 0375 0875 0875 0000 %0415 T11 004473 003149 001249 0625 0125 0250 0375 0875 0750 0000 %0416 T12 004510 003111 000767 0625 0125 0375 0375 0875 0625 0000 %0417 T13 004501 003229 000194 0625 0125 0500 0375 0875 0500 0000 %0418 T14 004509 003375 -00455 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004493 003397 -01215 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004557 003532 -01638 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004599 003727 -02155 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004887 002053 003374 0625 0250 0000 0375 0750 1000 0000 %0423 U10 005030 002120 002509 0625 0250 0125 0375 0750 0875 0000 %0424 U11 005187 002133 001456 0625 0250 0250 0375 0750 0750 0000 %0425 U12 005165 002215 000810 0625 0250 0375 0375 0750 0625 0000 %0426 U13 005199 002385 000272 0625 0250 0500 0375 0750 0500 0000 %0427 U14 005183 002404 -00271 0625 0250 0625 0375 0750 0375 0000 %0428 U15 005182 002527 -01018 0625 0250 0750 0375 0750 0250 0000 %0429 U16 005133 002807 -01540 0625 0250 0875 0375 0750 0125 0000 %0430 U17 005190 002968 -02043 0625 0250 1000 0375 0750 0000 0000 %0431 U18 005383 001223 003793 0625 0375 0000 0375 0625 1000 0000 %0432 V10 005511 001269 002881 0625 0375 0125 0375 0625 0875 0000 %0433 V11 005700 001398 001806 0625 0375 0250 0375 0625 0750 0000 %0434 V12 005819 001421 000924 0625 0375 0375 0375 0625 0625 0000 %0435 V13 005764 001523 000337 0625 0375 0500 0375 0625 0500 0000 %0436 V14 005793 001667 -00231 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005735 001897 -00961 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005759 001937 -01307 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005876 002313 -01920 0625 0375 1000 0375 0625 0000 0000 %0440 V18 005947 000299 004210 0625 0500 0000 0375 0500 1000 0000 %0441 W10 006039 000382 003475 0625 0500 0125 0375 0500 0875 0000 %0442 W11 006157 000583 002400 0625 0500 0250 0375 0500 0750 0000 %0443 W12 006319 000634 001402 0625 0500 0375 0375 0500 0625 0000 %0444 W13 006426 000780 000373 0625 0500 0500 0375 0500 0500 0000 %0445 W14 006374 000924 -00266 0625 0500 0625 0375 0500 0375 0000 %0446 W15 006436 001095 -00780 0625 0500 0750 0375 0500 0250 0000 %0447 W16 006545 001213 -01173 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006752 001502 -01723 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006571 -00781 005069 0625 0625 0000 0375 0375 1000 0000 %0450 X10 006647 -00673 004083 0625 0625 0125 0375 0375 0875 0000 %0451 X11 006725 -00538 003141 0625 0625 0250 0375 0375 0750 0000 %0452 X12 006823 -00325 002075 0625 0625 0375 0375 0375 0625 0000 %0453 X13 006915 -00113 000958 0625 0625 0500 0375 0375 0500 0000 %0454 X14 007004 000134 -00029 0625 0625 0625 0375 0375 0375 0000 %0455 X15 007172 000277 -00490 0625 0625 0750 0375 0375 0250 0000 %0456 X16 007287 000479 -00987 0625 0625 0875 0375 0375 0125 0000 %0457 X17 007629 000779 -01660 0625 0625 1000 0375 0375 0000 0000 %0458 X18 006972 -01715 005446 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 007015 -01553 004513 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 007056 -01348 003437 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 007143 -01127 002433 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 007245 -00910 001433 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 007356 -00708 000433 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 007356 -00390 -00576 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007423 -00123 -00988 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007721 000213 -01588 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 007219 -02707 006311 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 007296 -02417 004733 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007428 -02209 003645 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007556 -02003 002789 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007637 -01746 001790 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 007775 -01558 000921 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 007625 -01117 -00134 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 007613 -00760 -01020 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007762 -00358 -01511 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 007701 -03582 006768 0625 1000 0000 0375 0000 1000 0000 %0477 a10 007808 -03402 005360 0625 1000 0125 0375 0000 0875 0000 %0478 a11 007866 -03220 004413 0625 1000 0250 0375 0000 0750 0000 %0479 a12 007925 -03007 003432 0625 1000 0375 0375 0000 0625 0000 %0480 a13 007931 -02812 002375 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008037 -02485 001306 0625 1000 0625 0375 0000 0375 0000 %0482 a15 008166 -02072 000273 0625 1000 0750 0375 0000 0250 0000 %0483 a16 008234 -01703 -00576 0625 1000 0875 0375 0000 0125 0000 %0484 a17 008007 -01084 -01457 0625 1000 1000 0375 0000 0000 0000 %0485 a18 004100 004580 002902 0750 0000 0000 0250 1000 1000 0000 %0486 A19 003978 004936 002326 0750 0000 0125 0250 1000 0875 0000 %0487 A20 004012 004996 001747 0750 0000 0250 0250 1000 0750 0000 %0488 A21 004044 004940 001092 0750 0000 0375 0250 1000 0625 0000 %0489 A22 003990 005021 000522 0750 0000 0500 0250 1000 0500 0000 %0490 A23 003958 005082 -00054 0750 0000 0625 0250 1000 0375 0000 %0491 A24 003851 005248 -00713 0750 0000 0750 0250 1000 0250 0000 %0492 A25 003761 005183 -01390 0750 0000 0875 0250 1000 0125 0000 %0493 A26 003864 005203 -02129 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004771 003478 003309 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004814 003854 002552 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004819 003878 001818 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004796 003958 001216 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004799 003964 000613 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004751 004118 000057 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004608 004243 -00611 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004570 004165 -01448 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004637 004308 -01969 0750 0125 1000 0250 0875 0000 0000 %0503 B27 005238 002621 003894 0750 0250 0000 0250 0750 1000 0000 %0504 C19 005305 002799 003015 0750 0250 0125 0250 0750 0875 0000 %0505 C20 005399 002961 002018 0750 0250 0250 0250 0750 0750 0000 %0506 C21 005391 003084 001214 0750 0250 0375 0250 0750 0625 0000 %0507 C22 005372 003154 000748 0750 0250 0500 0250 0750 0500 0000 %0508 C23 005370 003350 000142 0750 0250 0625 0250 0750 0375 0000 %0509 C24 005293 003485 -00490 0750 0250 0750 0250 0750 0250 0000 %0510 C25 005170 003466 -01239 0750 0250 0875 0250 0750 0125 0000 %0511 C26 005260 003533 -01792 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005665 001936 004290 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005708 002150 003429 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005944 002053 002503 0750 0375 0250 0250 0625 0750 0000 %0515 D21 006059 002125 001457 0750 0375 0375 0250 0625 0625 0000 %0516 D22 006071 002188 000873 0750 0375 0500 0250 0625 0500 0000 %0517 D23 006040 002387 000237 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005959 002546 -00399 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005860 002462 -01015 0750 0375 0875 0250 0625 0125 0000 %0520 D26 006027 002729 -01753 0750 0375 1000 0250 0625 0000 0000 %0521 D27 006205 001063 004897 0750 0500 0000 0250 0500 1000 0000 %0522 E19 006294 001217 003850 0750 0500 0125 0250 0500 0875 0000 %0523 E20 006410 001256 002904 0750 0500 0250 0250 0500 0750 0000 %0524 E21 006556 001409 001855 0750 0500 0375 0250 0500 0625 0000 %0525 E22 006707 001426 000997 0750 0500 0500 0250 0500 0500 0000 %0526 E23 006677 001568 000404 0750 0500 0625 0250 0500 0375 0000 %0527 E24 006630 001791 -00283 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006499 001742 -00973 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006702 001890 -01606 0750 0500 1000 0250 0500 0000 0000 %0530 E27 006749 000086 005519 0750 0625 0000 0250 0375 1000 0000 %0531 F19 006845 000255 004221 0750 0625 0125 0250 0375 0875 0000 %0532 F20 006944 000386 003434 0750 0625 0250 0250 0375 0750 0000 %0533 F21 007095 000472 002481 0750 0625 0375 0250 0375 0625 0000 %0534 F22 007200 000593 001458 0750 0625 0500 0250 0375 0500 0000 %0535 F23 007280 000744 000504 0750 0625 0625 0250 0375 0375 0000 %0536 F24 007201 000886 -00253 0750 0625 0750 0250 0375 0250 0000 %0537 F25 007150 000957 -00840 0750 0625 0875 0250 0375 0125 0000 %0538 F26 007577 001232 -01585 0750 0625 1000 0250 0375 0000 0000 %0539 F27 007465 -01035 006299 0750 0750 0000 0250 0250 1000 0000 %0540 G19 007483 -00796 004943 0750 0750 0125 0250 0250 0875 0000 %0541 G20 007545 -00682 004090 0750 0750 0250 0250 0250 0750 0000 %0542 G21 007678 -00473 003080 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007766 -00340 002169 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007844 -00086 001081 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007759 000162 -00011 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007817 000344 -00587 0750 0750 0875 0250 0250 0125 0000 %0547 G26 008151 000565 -01363 0750 0750 1000 0250 0250 0000 0000 %0548 G27 007773 -01983 006976 0750 0875 0000 0250 0125 1000 0000 %0549 H19 007751 -01762 005396 0750 0875 0125 0250 0125 0875 0000 %0550 H20 007873 -01628 004669 0750 0875 0250 0250 0125 0750 0000 %0551 H21 007928 -01415 003465 0750 0875 0375 0250 0125 0625 0000 %0552 H22 008069 -01211 002572 0750 0875 0500 0250 0125 0500 0000 %0553 H23 008163 -00991 001426 0750 0875 0625 0250 0125 0375 0000 %0554 H24 008171 -00718 000507 0750 0875 0750 0250 0125 0250 0000 %0555 H25 008039 -00420 -00504 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008235 -00170 -01330 0750 0875 1000 0250 0125 0000 0000 %0557 H27 008146 -02899 007646 0750 1000 0000 0250 0000 1000 0000 %0558 I19 008185 -02629 005934 0750 1000 0125 0250 0000 0875 0000 %0559 I20 008265 -02428 004913 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008482 -02448 004079 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008601 -02222 002956 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008633 -02029 002033 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008668 -01704 000849 0750 1000 0750 0250 0000 0250 0000 %0564 I25 008690 -01386 -00151 0750 1000 0875 0250 0000 0125 0000 %0565 I26 008467 -00879 -01320 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004214 005633 003638 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004152 005779 002929 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004130 005877 002327 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004228 005823 001649 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004222 005843 001081 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004303 005693 000397 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004258 005729 -00173 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004302 005772 -00822 0875 0000 0875 0125 1000 0125 0000 %0574 J26 004190 005786 -01648 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004967 003889 003626 0875 0125 0000 0125 0875 1000 0000 %0576 K19 005037 004224 002841 0875 0125 0125 0125 0875 0875 0000 %0577 K20 005031 004422 002195 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004999 004558 001590 0875 0125 0375 0125 0875 0625 0000 %0579 K22 005055 004569 001046 0875 0125 0500 0125 0875 0500 0000 %0580 K23 005007 004615 000586 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004947 004746 -00041 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004891 004801 -00751 0875 0125 0875 0125 0875 0125 0000 %0583 K26 004876 004735 -01398 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005520 003144 004230 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005608 003435 003284 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005701 003650 002459 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005690 003826 001684 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005687 003978 001191 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005649 003979 000569 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005589 004084 000038 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005576 004071 -00468 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005516 004012 -01309 0875 0250 1000 0125 0750 0000 0000 %0593 L27 005890 002497 004712 0875 0375 0000 0125 0625 1000 0000 %0594 M19 006071 002681 003916 0875 0375 0125 0125 0625 0875 0000 %0595 M20 006209 002722 002920 0875 0375 0250 0125 0625 0750 0000 %0596 M21 006341 002971 001889 0875 0375 0375 0125 0625 0625 0000 %0597 M22 006349 002991 001361 0875 0375 0500 0125 0625 0500 0000 %0598 M23 006333 003041 000734 0875 0375 0625 0125 0625 0375 0000 %0599 M24 006270 003095 000212 0875 0375 0750 0125 0625 0250 0000 %0600 M25 006261 003265 -00427 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006209 003257 -01242 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006417 001726 005552 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006569 001805 004352 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006692 001974 003356 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006832 002111 002350 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006940 002241 001481 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006872 002322 000770 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006810 002468 000257 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006804 002516 -00395 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006820 002550 -01157 0875 0500 1000 0125 0500 0000 0000 %0611 N27 006835 001036 006072 0875 0625 0000 0125 0375 1000 0000 %0612 O19 006990 001130 004501 0875 0625 0125 0125 0375 0875 0000 %0613 O20 007094 001286 003704 0875 0625 0250 0125 0375 0750 0000 %0614 O21 007304 001321 002759 0875 0625 0375 0125 0375 0625 0000 %0615 O22 007390 001469 001912 0875 0625 0500 0125 0375 0500 0000 %0616 O23 007522 001455 001084 0875 0625 0625 0125 0375 0375 0000 %0617 O24 007506 001523 000568 0875 0625 0750 0125 0375 0250 0000 %0618 O25 007422 001775 -00223 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007528 001756 -01136 0875 0625 1000 0125 0375 0000 0000 %0620 O27 007429 000051 006782 0875 0750 0000 0125 0250 1000 0000 %0621 P19 007615 000118 005150 0875 0750 0125 0125 0250 0875 0000 %0622 P20 007689 000371 004408 0875 0750 0250 0125 0250 0750 0000 %0623 P21 007741 000517 003155 0875 0750 0375 0125 0250 0625 0000 %0624 P22 007956 000526 002536 0875 0750 0500 0125 0250 0500 0000 %0625 P23 007999 000604 001631 0875 0750 0625 0125 0250 0375 0000 %0626 P24 008022 000676 000671 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007951 000834 -00185 0875 0750 0875 0125 0250 0125 0000 %0628 P26 008219 001000 -01071 0875 0750 1000 0125 0250 0000 0000 %0629 P27 008171 -01177 007286 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 008267 -01004 005877 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008308 -00821 005104 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008433 -00707 004269 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008529 -00512 003190 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008528 -00356 002320 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008548 -00054 001125 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008613 000173 -00052 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008687 000347 -00921 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 008511 -02194 007697 0875 1000 0000 0125 0000 1000 0000 %0639 R19 008499 -01884 005852 0875 1000 0125 0125 0000 0875 0000 %0640 R20 008646 -01770 005282 0875 1000 0250 0125 0000 0750 0000 %0641 R21 008745 -01681 004370 0875 1000 0375 0125 0000 0625 0000 %0642 R22 008824 -01361 003413 0875 1000 0500 0125 0000 0500 0000 %0643 R23 008882 -01337 002336 0875 1000 0625 0125 0000 0375 0000 %0644 R24 009076 -01188 001476 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009143 -00936 000420 0875 1000 0875 0125 0000 0125 0000 %0646 R26 009032 -00543 -00662 0875 1000 1000 0125 0000 0000 0000 %0647 R27 004672 006422 004024 1000 0000 0000 0000 1000 1000 0000 %0648 S19 004689 006453 003317 1000 0000 0125 0000 1000 0875 0000 %0649 S20 004725 006639 002729 1000 0000 0250 0000 1000 0750 0000 %0650 S21 004638 006648 002197 1000 0000 0375 0000 1000 0625 0000 %0651 S22 004625 006806 001566 1000 0000 0500 0000 1000 0500 0000 %0652 S23 004685 006760 000809 1000 0000 0625 0000 1000 0375 0000 %0653 S24 004635 006820 000083 1000 0000 0750 0000 1000 0250 0000 %0654 S25 004704 006849 -00413 1000 0000 0875 0000 1000 0125 0000 %0655 S26 004585 006762 -01192 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005206 005491 004684 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005302 005604 003741 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005340 005656 003034 1000 0125 0250 0000 0875 0750 0000 %0659 T21 005323 005773 002259 1000 0125 0375 0000 0875 0625 0000 %0660 T22 005325 005821 001650 1000 0125 0500 0000 0875 0500 0000 %0661 T23 005308 005918 001133 1000 0125 0625 0000 0875 0375 0000 %0662 T24 005290 005971 000464 1000 0125 0750 0000 0875 0250 0000 %0663 T25 005346 006097 -00275 1000 0125 0875 0000 0875 0125 0000 %0664 T26 005295 006008 -01134 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005747 004549 005255 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005830 004569 004037 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005968 004520 003024 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005938 004706 002314 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005979 004796 001755 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005970 004960 001213 1000 0250 0625 0000 0750 0375 0000 %0671 U24 006058 004982 000660 1000 0250 0750 0000 0750 0250 0000 %0672 U25 006035 005189 -00123 1000 0250 0875 0000 0750 0125 0000 %0673 U26 006040 004851 -00926 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006175 003771 005605 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006325 003625 004489 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006411 003669 003396 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006420 003885 002282 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006470 003973 001746 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006497 004087 001239 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006531 004244 000600 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006577 004387 000051 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006624 004442 -00813 1000 0375 1000 0000 0625 0000 0000 %0683 V27 006632 002932 005980 1000 0500 0000 0000 0500 1000 0000 %0684 W19 006768 002831 004696 1000 0500 0125 0000 0500 0875 0000 %0685 W20 006844 002853 003823 1000 0500 0250 0000 0500 0750 0000 %0686 W21 006922 002950 002744 1000 0500 0375 0000 0500 0625 0000 %0687 W22 007037 003028 001828 1000 0500 0500 0000 0500 0500 0000 %0688 W23 007019 003199 001367 1000 0500 0625 0000 0500 0375 0000 %0689 W24 007152 003231 000630 1000 0500 0750 0000 0500 0250 0000 %0690 W25 007230 003313 000198 1000 0500 0875 0000 0500 0125 0000 %0691 W26 007286 003519 -00531 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007120 002022 006467 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007214 001977 005291 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007344 001958 004144 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007428 001993 003309 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007608 001989 002395 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007683 002136 001536 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007694 002342 000879 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007818 002407 000342 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007885 002597 -00356 1000 0625 1000 0000 0375 0000 0000 %0701 X27 007635 001110 006931 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 007700 001130 005728 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 007791 001139 004761 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 007879 001219 003682 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008064 001200 002801 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008209 001252 001948 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008304 001463 001009 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008373 001575 000546 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008400 001914 -00515 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008273 -00016 008173 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008323 000073 006323 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008386 000138 005303 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008424 000298 004202 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008509 000460 003236 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008645 000525 002378 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 008824 000662 001275 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 008955 000946 000200 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 009000 001034 -00406 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009044 -01234 008581 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009077 -01168 007396 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009089 -00987 005982 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009162 -00913 005010 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009238 -00733 003946 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009187 -00347 002781 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009368 -00279 001856 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009558 -00222 001062 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009738 000000 000000 1000 1000 1000 0000 0000 0000 0000 %0728 a27 009741 -00001 -00003 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009107 -00482 -00632 0875 1000 1000 0125 0000 0000 0000 %0730 b02 008624 -00761 -01173 0750 1000 1000 0250 0000 0000 0000 %0731 b03 007958 -01109 -01431 0625 1000 1000 0375 0000 0000 0000 %0732 b04 007448 -01691 -01558 0500 1000 1000 0500 0000 0000 0000 %0733 b05 006888 -01952 -02174 0375 1000 1000 0625 0000 0000 0000 %0734 b06 006287 -02477 -02782 0250 1000 1000 0750 0000 0000 0000 %0735 b07 005829 -02969 -03179 0125 1000 1000 0875 0000 0000 0000 %0736 b08 005363 -03414 -03721 0000 1000 1000 1000 0000 0000 0000 %0737 b09 009028 000912 000061 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008753 000121 -00007 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008281 -00342 -00462 0750 0875 0875 0250 0125 0125 0000 %0740 c03 007559 -00736 -01032 0625 0875 0875 0375 0125 0125 0000 %0741 c04 007053 -01202 -01433 0500 0875 0875 0500 0125 0125 0000 %0742 c05 006538 -01592 -01810 0375 0875 0875 0625 0125 0125 0000 %0743 c06 005928 -01940 -02478 0250 0875 0875 0750 0125 0125 0000 %0744 c07 005470 -02407 -02767 0125 0875 0875 0875 0125 0125 0000 %0745 c08 005018 -02751 -03083 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008426 001377 000808 1000 0750 0750 0000 0250 0250 0000 %0747 d01 008157 000583 000510 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007967 000126 -00027 0750 0750 0750 0250 0250 0250 0000 %0749 d03 007292 -00380 -00540 0625 0750 0750 0375 0250 0250 0000 %0750 d04 006707 -00767 -00943 0500 0750 0750 0500 0250 0250 0000 %0751 d05 006252 -01167 -01302 0375 0750 0750 0625 0250 0250 0000 %0752 d06 005647 -01687 -01876 0250 0750 0750 0750 0250 0250 0000 %0753 d07 005071 -02027 -02342 0125 0750 0750 0875 0250 0250 0000 %0754 d08 004691 -02282 -02646 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007753 002111 001308 1000 0625 0625 0000 0375 0375 0000 %0756 e01 007628 001357 000934 0875 0625 0625 0125 0375 0375 0000 %0757 e02 007406 000718 000418 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006880 000142 -00041 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006351 -00311 -00346 0500 0625 0625 0500 0375 0375 0000 %0760 e05 005937 -00798 -00858 0375 0625 0625 0625 0375 0375 0000 %0761 e06 005360 -01318 -01348 0250 0625 0625 0750 0375 0375 0000 %0762 e07 004849 -01742 -01794 0125 0625 0625 0875 0375 0375 0000 %0763 e08 004400 -01813 -02256 0000 0625 0625 1000 0375 0375 0000 %0764 e09 007074 003008 001692 1000 0500 0500 0000 0500 0500 0000 %0765 f01 007014 002210 001333 0875 0500 0500 0125 0500 0500 0000 %0766 f02 006797 001447 000788 0750 0500 0500 0250 0500 0500 0000 %0767 f03 006356 000800 000370 0625 0500 0500 0375 0500 0500 0000 %0768 f04 006026 000088 000091 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005613 -00305 -00372 0375 0500 0500 0625 0500 0500 0000 %0770 f06 005210 -00898 -00968 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004606 -01301 -01471 0125 0500 0500 0875 0500 0500 0000 %0772 f08 004103 -01490 -01747 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006466 003846 002269 1000 0375 0375 0000 0625 0625 0000 %0774 g01 006373 002928 001816 0875 0375 0375 0125 0625 0625 0000 %0775 g02 006060 002055 001421 0750 0375 0375 0250 0625 0625 0000 %0776 g03 005696 001454 001028 0625 0375 0375 0375 0625 0625 0000 %0777 g04 005504 000817 000469 0500 0375 0375 0500 0625 0625 0000 %0778 g05 005192 000150 000028 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004846 -00451 -00463 0250 0375 0375 0750 0625 0625 0000 %0780 g07 004395 -00995 -00896 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003770 -01224 -01407 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005990 004472 003114 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005639 003595 002524 0875 0250 0250 0125 0750 0750 0000 %0784 h02 005361 002839 002049 0750 0250 0250 0250 0750 0750 0000 %0785 h03 005072 002052 001582 0625 0250 0250 0375 0750 0750 0000 %0786 h04 004915 001402 001136 0500 0250 0250 0500 0750 0750 0000 %0787 h05 004781 000785 000481 0375 0250 0250 0625 0750 0750 0000 %0788 h06 004375 000138 000021 0250 0250 0250 0750 0750 0750 0000 %0789 h07 004162 -00493 -00459 0125 0250 0250 0875 0750 0750 0000 %0790 h08 003610 -00918 -00875 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005359 005529 003814 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004987 004130 002933 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004693 003749 002648 0750 0125 0125 0250 0875 0875 0000 %0794 i03 004276 002989 002054 0625 0125 0125 0375 0875 0875 0000 %0795 i04 004096 002136 001450 0500 0125 0125 0500 0875 0875 0000 %0796 i05 003983 001431 001042 0375 0125 0125 0625 0875 0875 0000 %0797 i06 004053 000715 000467 0250 0125 0125 0750 0875 0875 0000 %0798 i07 003629 000000 000083 0125 0125 0125 0875 0875 0875 0000 %0799 i08 003262 -00459 -00542 0000 0125 0125 1000 0875 0875 0000 %0800 i09 004622 006448 004258 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004098 005658 003781 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003945 004526 003055 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003630 003770 002247 0625 0000 0000 0375 1000 1000 0000 %0804 j04 003500 003119 001695 0500 0000 0000 0500 1000 1000 0000 %0805 j05 003376 002470 001201 0375 0000 0000 0625 1000 1000 0000 %0806 j06 003359 001569 000958 0250 0000 0000 0750 1000 1000 0000 %0807 j07 003132 000800 000419 0125 0000 0000 0875 1000 1000 0000 %0808 j08 002860 000002 -00017 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009725 000003 -00007 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008880 000257 -00771 0875 0875 1000 0125 0125 0000 0000 %0811 b11 008356 000443 -01217 0750 0750 1000 0250 0250 0000 0000 %0812 b12 007724 000682 -01600 0625 0625 1000 0375 0375 0000 0000 %0813 b13 006514 001159 -01988 0500 0500 1000 0500 0500 0000 0000 %0814 b14 005660 001337 -02481 0375 0375 1000 0625 0625 0000 0000 %0815 b15 004850 001562 -02889 0250 0250 1000 0750 0750 0000 0000 %0816 b16 004075 001978 -03528 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003316 002483 -04024 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009578 -00077 000642 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008899 000127 -00032 0875 0875 0875 0125 0125 0125 0000 %0820 c11 008190 000292 -00516 0750 0750 0875 0250 0250 0125 0000 %0821 c12 007363 000411 -00965 0625 0625 0875 0375 0375 0125 0000 %0822 c13 006370 000769 -01372 0500 0500 0875 0500 0500 0125 0000 %0823 c14 005492 001031 -01884 0375 0375 0875 0625 0625 0125 0000 %0824 c15 004705 001326 -02433 0250 0250 0875 0750 0750 0125 0000 %0825 c16 003849 001856 -03055 0125 0125 0875 0875 0875 0125 0000 %0826 c17 003351 001887 -04019 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009425 -00222 001505 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008770 -00054 000922 0875 0875 0750 0125 0125 0250 0000 %0829 d11 008035 000097 000009 0750 0750 0750 0250 0250 0250 0000 %0830 d12 007226 000229 -00468 0625 0625 0750 0375 0375 0250 0000 %0831 d13 006273 000564 -00936 0500 0500 0750 0500 0500 0250 0000 %0832 d14 005549 000877 -01461 0375 0375 0750 0625 0625 0250 0000 %0833 d15 004660 001201 -01963 0250 0250 0750 0750 0750 0250 0000 %0834 d16 003770 001553 -02676 0125 0125 0750 0875 0875 0250 0000 %0835 d17 003262 002382 -03124 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009223 -00273 002411 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008701 -00284 001908 0875 0875 0625 0125 0125 0375 0000 %0838 e11 008036 -00054 000855 0750 0750 0625 0250 0250 0375 0000 %0839 e12 006999 000109 -00023 0625 0625 0625 0375 0375 0375 0000 %0840 e13 006161 000261 -00422 0500 0500 0625 0500 0500 0375 0000 %0841 e14 005396 000654 -00959 0375 0375 0625 0625 0625 0375 0000 %0842 e15 004626 000927 -01549 0250 0250 0625 0750 0750 0375 0000 %0843 e16 003750 001214 -02119 0125 0125 0625 0875 0875 0375 0000 %0844 e17 003294 001923 -02455 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009270 -00674 003553 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008661 -00455 002810 0875 0875 0500 0125 0125 0500 0000 %0847 f11 007929 -00295 001891 0750 0750 0500 0250 0250 0500 0000 %0848 f12 006980 -00099 000865 0625 0625 0500 0375 0375 0500 0000 %0849 f13 006045 000092 000083 0500 0500 0500 0500 0500 0500 0000 %0850 f14 005371 000378 -00451 0375 0375 0500 0625 0625 0500 0000 %0851 f15 004570 000580 -01038 0250 0250 0500 0750 0750 0500 0000 %0852 f16 003855 000809 -01452 0125 0125 0500 0875 0875 0500 0000 %0853 f17 002933 001014 -02168 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009186 -00901 004934 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008554 -00710 004060 0875 0875 0375 0125 0125 0625 0000 %0856 g11 007778 -00475 002857 0750 0750 0375 0250 0250 0625 0000 %0857 g12 006776 -00292 002005 0625 0625 0375 0375 0375 0625 0000 %0858 g13 005955 -00131 000879 0500 0500 0375 0500 0500 0625 0000 %0859 g14 005144 000166 000026 0375 0375 0375 0625 0625 0625 0000 %0860 g15 004557 000301 -00491 0250 0250 0375 0750 0750 0625 0000 %0861 g16 003897 000492 -01084 0125 0125 0375 0875 0875 0625 0000 %0862 g17 002925 000887 -01672 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009126 -01014 005970 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008415 -00840 004997 0875 0875 0250 0125 0125 0750 0000 %0865 h11 007616 -00690 003909 0750 0750 0250 0250 0250 0750 0000 %0866 h12 006683 -00542 003102 0625 0625 0250 0375 0375 0750 0000 %0867 h13 005950 -00315 002132 0500 0500 0250 0500 0500 0750 0000 %0868 h14 005209 -00233 001145 0375 0375 0250 0625 0625 0750 0000 %0869 h15 004369 000139 000041 0250 0250 0250 0750 0750 0750 0000 %0870 h16 003869 000236 -00474 0125 0125 0250 0875 0875 0750 0000 %0871 h17 002967 000573 -01084 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009113 -01197 007359 1000 1000 0125 0000 0000 0875 0000 %0873 i10 008354 -01033 005792 0875 0875 0125 0125 0125 0875 0000 %0874 i11 007504 -00824 004811 0750 0750 0125 0250 0250 0875 0000 %0875 i12 006561 -00653 003957 0625 0625 0125 0375 0375 0875 0000 %0876 i13 005784 -00501 003117 0500 0500 0125 0500 0500 0875 0000 %0877 i14 005152 -00310 002036 0375 0375 0125 0625 0625 0875 0000 %0878 i15 004371 -00253 001062 0250 0250 0125 0750 0750 0875 0000 %0879 i16 003615 000008 000104 0125 0125 0125 0875 0875 0875 0000 %0880 i17 002985 000276 -00478 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009065 -01257 008615 1000 1000 0000 0000 0000 1000 0000 %0882 j10 008235 -01199 007244 0875 0875 0000 0125 0125 1000 0000 %0883 j11 007410 -01041 006151 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006522 -00759 004935 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005794 -00642 004039 0500 0500 0000 0500 0500 1000 0000 %0886 j14 005082 -00454 003082 0375 0375 0000 0625 0625 1000 0000 %0887 j15 004456 -00459 002083 0250 0250 0000 0750 0750 1000 0000 %0888 j16 003670 -00200 000911 0125 0125 0000 0875 0875 1000 0000 %0889 j17 002812 000008 -00002 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009714 -00002 000010 1000 1000 1000 0000 0000 0000 0000 %0891 b19 009066 000961 -00361 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008519 001801 -00540 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007900 002611 -00449 1000 0625 1000 0000 0375 0000 0000 %0894 b22 007326 003472 -00562 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006624 004447 -00824 1000 0375 1000 0000 0625 0000 0000 %0896 b24 005978 004923 -00901 1000 0250 1000 0000 0750 0000 0000 %0897 b25 005327 005978 -01106 1000 0125 1000 0000 0875 0000 0000 %0898 b26 004587 006717 -01176 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009210 -00826 000315 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008849 000152 -00044 0875 0875 0875 0125 0125 0125 0000 %0901 c20 008184 000821 -00239 0875 0750 0875 0125 0250 0125 0000 %0902 c21 007588 001769 -00287 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006962 002527 -00407 0875 0500 0875 0125 0500 0125 0000 %0904 c23 006341 003310 -00456 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005554 004198 -00486 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004929 004781 -00718 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004317 005677 -00772 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008750 -01501 000582 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008346 -00624 000292 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007943 000140 -00021 0750 0750 0750 0250 0250 0250 0000 %0911 d21 007354 000894 -00287 0750 0625 0750 0250 0375 0250 0000 %0912 d22 006747 001774 -00316 0750 0500 0750 0250 0500 0250 0000 %0913 d23 006054 002489 -00396 0750 0375 0750 0250 0625 0250 0000 %0914 d24 005292 003465 -00448 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004566 004191 -00567 0750 0125 0750 0250 0875 0250 0000 %0916 d26 003846 005081 -00656 0750 0000 0750 0250 1000 0250 0000 %0917 d27 008022 -02541 001403 0625 1000 0625 0375 0000 0375 0000 %0918 e19 007692 -01636 001061 0625 0875 0625 0375 0125 0375 0000 %0919 e20 007288 -00775 000498 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006886 000160 -00034 0625 0625 0625 0375 0375 0375 0000 %0921 e22 006164 000920 -00239 0625 0500 0625 0375 0500 0375 0000 %0922 e23 005499 001668 -00151 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004772 002465 -00169 0625 0250 0625 0375 0750 0375 0000 %0924 e25 004147 003209 -00356 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003462 004011 -00365 0625 0000 0625 0375 1000 0375 0000 %0926 e27 007563 -03186 001791 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007157 -02315 001348 0500 0875 0500 0500 0125 0500 0000 %0928 f20 006853 -01611 001012 0500 0750 0500 0500 0250 0500 0000 %0929 f21 006359 -00750 000479 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005899 000080 000124 0500 0500 0500 0500 0500 0500 0000 %0931 f23 005266 000881 -00067 0500 0375 0500 0500 0625 0500 0000 %0932 f24 004589 001682 -00100 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003822 002464 -00362 0500 0125 0500 0500 0875 0500 0000 %0934 f26 003229 003139 -00313 0500 0000 0500 0500 1000 0500 0000 %0935 f27 007059 -03953 002303 0375 1000 0375 0625 0000 0625 0000 %0936 g19 006531 -03203 001738 0375 0875 0375 0625 0125 0625 0000 %0937 g20 006284 -02516 001403 0375 0750 0375 0625 0250 0625 0000 %0938 g21 005778 -01642 001021 0375 0625 0375 0625 0375 0625 0000 %0939 g22 005298 -00759 000551 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004945 000155 000079 0375 0375 0375 0625 0625 0625 0000 %0941 g24 004348 000835 000000 0375 0250 0375 0625 0750 0625 0000 %0942 g25 003597 001763 -00230 0375 0125 0375 0625 0875 0625 0000 %0943 g26 003056 002404 -00252 0375 0000 0375 0625 1000 0625 0000 %0944 g27 006601 -04732 002522 0250 1000 0250 0750 0000 0750 0000 %0945 h19 006009 -03898 001902 0250 0875 0250 0750 0125 0750 0000 %0946 h20 005755 -03386 001659 0250 0750 0250 0750 0250 0750 0000 %0947 h21 005283 -02557 001142 0250 0625 0250 0750 0375 0750 0000 %0948 h22 005027 -01767 000911 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004640 -00876 000525 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003995 000134 000031 0250 0250 0250 0750 0750 0750 0000 %0951 h25 003499 000790 -00084 0250 0125 0250 0750 0875 0750 0000 %0952 h26 002967 001546 -00108 0250 0000 0250 0750 1000 0750 0000 %0953 h27 006060 -05770 003029 0125 1000 0125 0875 0000 0875 0000 %0954 i19 005680 -04524 002283 0125 0875 0125 0875 0125 0875 0000 %0955 i20 005394 -04066 001973 0125 0750 0125 0875 0250 0875 0000 %0956 i21 004988 -03343 001473 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004502 -02612 001157 0125 0500 0125 0875 0500 0875 0000 %0958 i23 004249 -01675 000871 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003807 -00891 000526 0125 0250 0125 0875 0750 0875 0000 %0960 i25 003286 -00008 000115 0125 0125 0125 0875 0875 0875 0000 %0961 i26 002778 000748 -00116 0125 0000 0125 0875 1000 0875 0000 %0962 i27 005739 -06288 003525 0000 1000 0000 1000 0000 1000 0000 %0963 j19 005326 -05071 002682 0000 0875 0000 1000 0125 1000 0000 %0964 j20 004931 -04314 002218 0000 0750 0000 1000 0250 1000 0000 %0965 j21 004549 -04163 001733 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004093 -03117 001191 0000 0500 0000 1000 0500 1000 0000 %0967 j23 003953 -03089 001157 0000 0375 0000 1000 0625 1000 0000 %0968 j24 003528 -02102 000782 0000 0250 0000 1000 0750 1000 0000 %0969 j25 002806 -00587 000313 0000 0125 0000 1000 0875 1000 0000 %0970 j26 002473 -00011 000020 0000 0000 0000 1000 1000 1000 0000 %0971 j27 ] def /LAB*Fa1100 [ %BEG GE61_22.TXT, Separation cmy0*, cf1=0.95, D65, adapted %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z004672 006422 004024 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009044 -01234 008581 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z005696 -06319 003510 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z005388 -03525 -03675 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003445 002461 -03998 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z004585 006762 -01192 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z002582 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009738 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 004622 006448 004258 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 009065 -01257 008615 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 005739 -06288 003525 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 005363 -03414 -03721 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003316 002483 -04024 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 004587 006717 -01176 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 002715 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009727 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def %END GE91_HRS27_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.95 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 1 def /lanind2 1 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 (GE910-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.95; nt=0.18; nx=1.0) def 300 -150 moveto xchartl 5 le {(GE910-) show} {(GE911-) 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 GE910-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 (GE910-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 GE911-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 (GE911-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 GE911-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 (GE911-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 GE911-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 (GE911-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 GE911-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 (GE911-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 GE911-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 (GE911-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 GE911-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 (GE911-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 GE911-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 (GE911-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 GE911-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 (GE911-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 GE91; Relatives Ger\344te\255Farbsystem G) showde (TUB\255test chart GE91; 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 (->cmy0* 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*->cmy0* setcmykcolor) show } ifelse } if i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if i*ptrsc 4 eq {(lab* setcolor) show} if i*ptrsc 5 eq {(LAB* setcolor) show} if i*ptrsc 6 eq {(000n* setcmykcolor) show} if i*ptrsc 7 eq {(w* setgray) show} if } if %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/GE91/GE91L) show (0) show LSC$ show LEX$ show (, Page ) showen (, Seite ) showde xcolor 1 add cvishow (/2) show (; ) show LAB*TE 0 get show (; ) show xcolor xcolor 2 idiv 2 mul eq {(Start\255Ausgabe) showde (start output) showen} {(linearisierte Ausgabe) showde (linearized output) showen} ifelse 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm } {LSC$ show (: ) show (Linearisierte\255Ausgabe) showde (linearized output) showen (linearized output) showes (linearized output) showfr (linearized output) showit (linearized output) showjp (linearized output) showm (GE91/GE91L) show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in der Datei (F)) showde ( in File (F)) showen ( in File (F)) showes ( in File (F)) showfr ( in File (F)) showit ( in File (F)) showjp ( in File (F)) showm } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde ( in Distiller Startup (S) Directory) showen ( in Distiller Startup (S) Directory) showes ( in Distiller Startup (S) Directory) showfr ( in Distiller Startup (S) Directory) showit ( in Distiller Startup (S) Directory) showjp ( in Distiller Startup (S) Directory) showm } if LSC$ (D) eq { ( in PostScript Device (D)) showde ( in PostScript Device (D)) showen ( in PostScript Device (D)) showes ( in PostScript Device (D)) showfr ( in PostScript Device (D)) showit ( in PostScript Device (D)) showjp ( in PostScript Device (D)) showm } if LSC$ (T) eq { ( von Distiller Startup (S) Directory) showde ( of Distiller Startup (S) Directory) showen ( of Distiller Startup (S) Directory) showes ( of Distiller Startup (S) Directory) showfr ( of Distiller Startup (S) Directory) showit ( of Distiller Startup (S) Directory) showjp ( of Distiller Startup (S) Directory) showm } if LSC$ (E) eq { ( von PostScript Device (D)) showde ( of PostScript Device (D)) showen ( of PostScript Device (D)) showes ( of PostScript Device (D)) showfr ( of PostScript Device (D)) showit ( of PostScript Device (D)) showjp ( of PostScript Device (D)) showm } if %0 setgray %end white and unvisible 16 MM 185 MM moveto -90 rotate (Siehe Original/Kopie: ) showde (See original or copy: ) showen (http://web.me.com/klaus.richter/GE91/GE91L) 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\255GE91/GE91L) showde (TUB registration: 20091101\255GE91/GE91L) 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.95; nt=0.18; nx=1.0) show 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Beurteilung und Messung von Drucker- oder Monitorsystemen) showde ( application for evaluation and measurement of printer or monitor systems) showen ( application for evaluation and measurement of printer or monitor systems) showes ( application for evaluation and measurement of printer or monitor systems) showfr ( application for evaluation and measurement of printer or monitor systems) showit ( application for evaluation and measurement of printer or monitor systems) showjp ( application for evaluation and measurement of printer or monitor systems) showm IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray xx i0 get MM yy i0 get MM moveto xx i1 get MM yy i1 get MM lineto xx i2 get MM yy i2 get MM lineto xx i3 get MM yy i3 get MM lineto xx i0 get MM yy i0 get MM lineto stroke %} if %END if xchart=0 %xchart 1 eq xchart 3 ge or {%xchart=1, xchart>=3 %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke %} if %xchart=1, xchart>=3 %} for %output with xchart end %} for %output with colorm end %} for %output with xcolor end %} for %output with lanind end %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore } for %end for xchartg=xchartg1,xchartg2 } for %end for xcolorg=xcolorg1,xcolorg2 %} for %end for pcountg=pcountg1,pcount2g %} for %end for scountg=scountg1,scount2g %%Trailer