%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/JG08/JG08L00XX 20100101 %%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/JG08/JG08.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:2010010112000) /ModDate (D:2010010112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /ColSpxG 0 def /ColSpx ColSpxG def /DEintp 0 def /rgb_cmy 0 def %BEG JK0X->JG08/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20100101 %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 JK0X->JG08/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20100101 %***************************************************************************** %BEG JK0X->JG08/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20100101 %***************************************************************************** %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 20100101 /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 20100101 ColSpx 0 eq {%ColSpx=0 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM57LT.PS cmy0* 20100101 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* 20100101 } 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* 20100101 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* 20100101 } if %ColSpx=2 %************************************************************* ColSpx 3 eq {%ColSpx=3 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn5* 20100101 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* 20100101 } if %ColSpx=3 } bind def %BEG Procedure proc_ColSep*ioG ColourSeparation for NP-file 20100101 %***************************************************************************** %END JK0X->JG08/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20100101 /LAB*ioG { } bind def /ColSepG { } bind def /VisTol*ioG 1.0 def /CFilenameS1g %START output of step S1g (130.149.60.45/~farbmetrik/JG08/JG08L0N) def %Link file name for data /CDateS1g (2010-01-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (JG08/JG08L0N) 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 [(LECD 08_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 %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.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 0 def /lanindg2 0 def /colormg1 0 def /colormg2 0 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /pcount2x pcount2g xchart2g sub 2 add def /xcolor10 0 def /xcolor20 1 def %scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10 %pcount1g 1 pcount2x {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 0 def /xchart20 0 def %pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %pcountg pcount2x eq {/xchart10 2 def /xchart20 9 def} if xcolor10 1 xcolor20 {/xcolorg exch def xchart10 1 xchart20 {/xchartg exch def /ausz 8 def /xcharti 0 def %xchartg 2 eq xchartg 3 eq or xchartg 5 eq or {/xcharti 1 def} % {/xcharti 0 def} ifelse /colorm colormg def /xchart xchartg def /xchartg0 0 def %needs Definition of xcharti, is only in OUTLIN1X.PS %to be deleted for tests of Y.. on VAX LAB*ioG ColSepG %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/JG08/ ) 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$ xcolorg xcolorg 16 idiv 16 mul sub get def /GSY$ SY$ xchartg xchartg 16 idiv 16 mul sub get def /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 %!PS-Adobe-3.0 EPSF-3.0 JG080-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 (JG080-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 %line 339 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG080-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 (JG080-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 %line 349 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG080-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 (JG080-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 %line 359 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG080-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 (JG080-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 %line 369 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG080-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 (JG080-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 %line 379 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG080-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 (JG080-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 %line 389 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG080-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: http://130.149.60.45/~farbmetrik/JG08/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /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 /LAB*Fa0100 24 array def %start output /LAB*Fa1100 24 array def %linearized output /LAB*FaG0100 24 array def %start output/100 /LAB*FaG1100 24 array def %linearized output/100 %********************************************************************* %BEG JG08_LECD display 0..40%_00_LUT.DAT /FileDataen (_LUT.DAT, 243 colours, 100101, Separation olv*, adapted) def /FileDatade (_LUT.DAT, 243 Farben, 100101, Separation olv*, adaptiert) def %include here JE060-7A0.TXT to JE060-7A7.TXT %END JG08_LECD display 0..40%_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 } 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 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 /xcolorx xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchartx xchart1 def %xchart1 1 xchart2 {/xchart 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% /xcolor xcolorx def /xchart xchartx def %00 1 1 {/xcolor exch def %xcolor=0,1 colorm 1 eq {proc_lut0} if %Definition lut0 and lut depending on xcolor gsave %/icolor xcolor xcolor 2 idiv 2 mul sub def %icolor=0 or 1 /icolor 0 def xcolor 0 eq {%xcolor 0, LAB*la0 /FileData (JG08_LECD display 0%_G0) def /LUT [ %ps2ascii output with Ghostsript-programm: macps2pdf, date: 2010-01-04 %input file: JE060-7A.PS, output file: JE060-7AA.TXT (BBEDIT used for TXT) %JE060-7AA.TXT la0_line 3436 %JE060-7A, Page 19 /66, LAB*la0; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %LAB*la0, D65, adapted, Y = 0.0 , L* = 0.0 000000 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 000059 001124 -02637 0000 0000 0125 1000 1000 0875 0000 %0001 A02 000349 003724 -05051 0000 0000 0250 1000 1000 0750 0000 %0002 A03 000692 005041 -06294 0000 0000 0375 1000 1000 0625 0000 %0003 A04 001080 005635 -07153 0000 0000 0500 1000 1000 0500 0000 %0004 A05 001433 006178 -07923 0000 0000 0625 1000 1000 0375 0000 %0005 A06 001760 006705 -08671 0000 0000 0750 1000 1000 0250 0000 %0006 A07 002156 007175 -09442 0000 0000 0875 1000 1000 0125 0000 %0007 A08 002939 007977 -10925 0000 0000 1000 1000 1000 0000 0000 %0008 A09 001122 -02461 001819 0000 0125 0000 1000 0875 1000 0000 %0009 B01 001201 -01260 -00776 0000 0125 0125 1000 0875 0875 0000 %0010 B02 001400 000815 -03243 0000 0125 0250 1000 0875 0750 0000 %0011 B03 001620 002283 -04768 0000 0125 0375 1000 0875 0625 0000 %0012 B04 001839 003295 -05908 0000 0125 0500 1000 0875 0500 0000 %0013 B05 002056 004237 -06882 0000 0125 0625 1000 0875 0375 0000 %0014 B06 002301 005027 -07767 0000 0125 0750 1000 0875 0250 0000 %0015 B07 002597 005769 -08686 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003256 006986 -10383 0000 0125 1000 1000 0875 0000 0000 %0017 B09 002623 -03853 003888 0000 0250 0000 1000 0750 1000 0000 %0018 C01 002657 -03212 001494 0000 0250 0125 1000 0750 0875 0000 %0019 C02 002755 -01849 -01077 0000 0250 0250 1000 0750 0750 0000 %0020 C03 002864 -00658 -02688 0000 0250 0375 1000 0750 0625 0000 %0021 C04 002976 000451 -04015 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003110 001428 -05142 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003262 002340 -06158 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003460 003313 -07259 0000 0250 0875 1000 0750 0125 0000 %0025 C08 003936 004973 -09235 0000 0250 1000 1000 0750 0000 0000 %0026 C09 003665 -04762 004979 0000 0375 0000 1000 0625 1000 0000 %0027 D01 003687 -04299 002922 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003746 -03308 000464 0000 0375 0250 1000 0625 0750 0000 %0029 D03 003814 -02395 -01142 0000 0375 0375 1000 0625 0625 0000 %0030 D04 003901 -01431 -02505 0000 0375 0500 1000 0625 0500 0000 %0031 D05 003990 -00532 -03670 0000 0375 0625 1000 0625 0375 0000 %0032 D06 004100 000360 -04770 0000 0375 0750 1000 0625 0250 0000 %0033 D07 004245 001438 -05922 0000 0375 0875 1000 0625 0125 0000 %0034 D08 004613 003127 -08086 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004554 -05477 005769 0000 0500 0000 1000 0500 1000 0000 %0036 E01 004574 -05149 004090 0000 0500 0125 1000 0500 0875 0000 %0037 E02 004617 -04405 001792 0000 0500 0250 1000 0500 0750 0000 %0038 E03 004668 -03650 000193 0000 0500 0375 1000 0500 0625 0000 %0039 E04 004729 -02842 -01174 0000 0500 0500 1000 0500 0500 0000 %0040 E05 004800 -02065 -02359 0000 0500 0625 1000 0500 0375 0000 %0041 E06 004885 -01212 -03494 0000 0500 0750 1000 0500 0250 0000 %0042 E07 004998 -00314 -04694 0000 0500 0875 1000 0500 0125 0000 %0043 E08 005292 001500 -06964 0000 0500 1000 1000 0500 0000 0000 %0044 E09 005352 -06101 006541 0000 0625 0000 1000 0375 1000 0000 %0045 F01 005365 -05853 005073 0000 0625 0125 1000 0375 0875 0000 %0046 F02 005399 -05260 002924 0000 0625 0250 1000 0375 0750 0000 %0047 F03 005439 -04646 001391 0000 0625 0375 1000 0375 0625 0000 %0048 F04 005488 -03948 000017 0000 0625 0500 1000 0375 0500 0000 %0049 F05 005545 -03261 -01168 0000 0625 0625 1000 0375 0375 0000 %0050 F06 005610 -02520 -02309 0000 0625 0750 1000 0375 0250 0000 %0051 F07 005705 -01663 -03546 0000 0625 0875 1000 0375 0125 0000 %0052 F08 005947 000064 -05878 0000 0625 1000 1000 0375 0000 0000 %0053 F09 006175 -06750 007310 0000 0750 0000 1000 0250 1000 0000 %0054 G01 006188 -06550 006092 0000 0750 0125 1000 0250 0875 0000 %0055 G02 006215 -06061 004094 0000 0750 0250 1000 0250 0750 0000 %0056 G03 006247 -05541 002600 0000 0750 0375 1000 0250 0625 0000 %0057 G04 006287 -04958 001260 0000 0750 0500 1000 0250 0500 0000 %0058 G05 006330 -04370 000074 0000 0750 0625 1000 0250 0375 0000 %0059 G06 006386 -03729 -01068 0000 0750 0750 1000 0250 0250 0000 %0060 G07 006461 -02962 -02313 0000 0750 0875 1000 0250 0125 0000 %0061 G08 006664 -01349 -04699 0000 0750 1000 1000 0250 0000 0000 %0062 G09 007099 -07438 008235 0000 0875 0000 1000 0125 1000 0000 %0063 H01 007107 -07272 007207 0000 0875 0125 1000 0125 0875 0000 %0064 H02 007131 -06886 005375 0000 0875 0250 1000 0125 0750 0000 %0065 H03 007157 -06458 003937 0000 0875 0375 1000 0125 0625 0000 %0066 H04 007188 -05982 002637 0000 0875 0500 1000 0125 0500 0000 %0067 H05 007224 -05475 001464 0000 0875 0625 1000 0125 0375 0000 %0068 H06 007268 -04920 000323 0000 0875 0750 1000 0125 0250 0000 %0069 H07 007330 -04248 -00929 0000 0875 0875 1000 0125 0125 0000 %0070 H08 007494 -02797 -03338 0000 0875 1000 1000 0125 0000 0000 %0071 H09 008399 -08361 009599 0000 1000 0000 1000 0000 1000 0000 %0072 I01 008405 -08248 008732 0000 1000 0125 1000 0000 0875 0000 %0073 I02 008423 -07940 007126 0000 1000 0250 1000 0000 0750 0000 %0074 I03 008444 -07619 005787 0000 1000 0375 1000 0000 0625 0000 %0075 I04 008467 -07237 004541 0000 1000 0500 1000 0000 0500 0000 %0076 I05 008495 -06845 003401 0000 1000 0625 1000 0000 0375 0000 %0077 I06 008528 -06403 002278 0000 1000 0750 1000 0000 0250 0000 %0078 I07 008577 -05847 001042 0000 1000 0875 1000 0000 0125 0000 %0079 I08 008706 -04625 -01374 0000 1000 1000 1000 0000 0000 0000 %0080 I09 000296 001717 000511 0125 0000 0000 0875 1000 1000 0000 %0081 J01 000402 002695 -01960 0125 0000 0125 0875 1000 0875 0000 %0082 J02 000718 004139 -04372 0125 0000 0250 0875 1000 0750 0000 %0083 J03 001037 004921 -05656 0125 0000 0375 0875 1000 0625 0000 %0084 J04 001348 005589 -06680 0125 0000 0500 0875 1000 0500 0000 %0085 J05 001649 006199 -07559 0125 0000 0625 0875 1000 0375 0000 %0086 J06 001939 006661 -08336 0125 0000 0750 0875 1000 0250 0000 %0087 J07 002301 007183 -09187 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003040 007999 -10739 0125 0000 1000 0875 1000 0000 0000 %0089 J09 001366 -00655 002289 0125 0125 0000 0875 0875 1000 0000 %0090 K01 001450 000114 -00334 0125 0125 0125 0875 0875 0875 0000 %0091 K02 001620 001531 -02883 0125 0125 0250 0875 0875 0750 0000 %0092 K03 001800 002655 -04390 0125 0125 0375 0875 0875 0625 0000 %0093 K04 001998 003606 -05601 0125 0125 0500 0875 0875 0500 0000 %0094 K05 002209 004456 -06616 0125 0125 0625 0875 0875 0375 0000 %0095 K06 002426 005119 -07502 0125 0125 0750 0875 0875 0250 0000 %0096 K07 002715 005877 -08495 0125 0125 0875 0875 0875 0125 0000 %0097 K08 003345 007038 -10226 0125 0125 1000 0875 0875 0000 0000 %0098 K09 002731 -02818 004059 0125 0250 0000 0875 0750 1000 0000 %0099 L01 002771 -09850 000187 0125 0250 0125 0875 0750 0875 0000 %0100 L02 002857 -01188 -00876 0125 0250 0250 0875 0750 0750 0000 %0101 L03 002961 -00160 -02488 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003075 000839 -03822 0125 0250 0500 0875 0750 0500 0000 %0103 L05 003204 001737 -04958 0125 0250 0625 0875 0750 0375 0000 %0104 L06 003351 002579 -06008 0125 0250 0750 0875 0750 0250 0000 %0105 L07 003536 003506 -07101 0125 0250 0875 0875 0750 0125 0000 %0106 L08 004004 005102 -09113 0125 0250 1000 0875 0750 0000 0000 %0107 L09 003735 -04052 005037 0125 0375 0000 0875 0625 1000 0000 %0108 M01 003762 -03681 003038 0125 0375 0125 0875 0625 0875 0000 %0109 M02 003825 -02788 000616 0125 0375 0250 0875 0625 0750 0000 %0110 M03 003891 -01920 -00993 0125 0375 0375 0875 0625 0625 0000 %0111 M04 003970 -01045 -02371 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004057 -00201 -03544 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004164 000629 -04651 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004298 001550 -05814 0125 0375 0875 0875 0625 0125 0000 %0115 M08 004672 003307 -08004 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004613 -04950 005840 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004633 -04655 004169 0125 0500 0125 0875 0500 0875 0000 %0118 N02 004675 -03962 001891 0125 0500 0250 0875 0500 0750 0000 %0119 N03 004725 -03253 000305 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004789 -02500 -01060 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004852 -01752 -02248 0125 0500 0625 0875 0500 0375 0000 %0122 N06 005009 -00987 -03419 0125 0500 0750 0875 0500 0250 0000 %0123 N07 005050 -00088 -04599 0125 0500 0875 0875 0500 0125 0000 %0124 N08 005343 001668 -06885 0125 0500 1000 0875 0500 0000 0000 %0125 N09 005399 -05698 006559 0125 0625 0000 0875 0375 1000 0000 %0126 O01 005411 -05457 005170 0125 0625 0125 0875 0375 0875 0000 %0127 O02 005448 -04883 003026 0125 0625 0250 0875 0375 0750 0000 %0128 O03 005491 -04256 001430 0125 0625 0375 0875 0375 0625 0000 %0129 O04 005536 -03643 000115 0125 0625 0500 0875 0375 0500 0000 %0130 O05 005589 -02995 -01075 0125 0625 0625 0875 0375 0375 0000 %0131 O06 005659 -02276 -02229 0125 0625 0750 0875 0375 0250 0000 %0132 O07 005747 -01459 -03459 0125 0625 0875 0875 0375 0125 0000 %0133 O08 005992 000228 -05808 0125 0625 1000 0875 0375 0000 0000 %0134 O09 006218 -06424 007377 0125 0750 0000 0875 0250 1000 0000 %0135 P01 006228 -06221 006151 0125 0750 0125 0875 0250 0875 0000 %0136 P02 006255 -05753 004168 0125 0750 0250 0875 0250 0750 0000 %0137 P03 006289 -05264 002673 0125 0750 0375 0875 0250 0625 0000 %0138 P04 006328 -04697 001337 0125 0750 0500 0875 0250 0500 0000 %0139 P05 006374 -04130 000149 0125 0750 0625 0875 0250 0375 0000 %0140 P06 006426 -03503 -01001 0125 0750 0750 0875 0250 0250 0000 %0141 P07 006501 -02763 -02247 0125 0750 0875 0875 0250 0125 0000 %0142 P08 006702 -01192 -04630 0125 0750 1000 0875 0250 0000 0000 %0143 P09 007133 -07177 008269 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 007143 -07007 007250 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 007163 -06638 005431 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 007188 -06227 003999 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 007222 -05765 002696 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 007257 -05271 001525 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 007301 -04725 000383 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 007362 -04063 -00868 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 007527 -02651 -03286 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 008417 -08165 009616 0125 1000 0000 0875 0000 1000 0000 %0153 R01 008425 -08042 008768 0125 1000 0125 0875 0000 0875 0000 %0154 R02 008441 -07743 007154 0125 1000 0250 0875 0000 0750 0000 %0155 R03 009897 -08413 006614 0125 1000 0375 0875 0000 0625 0000 %0156 R04 008485 -07065 004572 0125 1000 0500 0875 0000 0500 0000 %0157 R05 008513 -06672 003435 0125 1000 0625 0875 0000 0375 0000 %0158 R06 008547 -06229 002310 0125 1000 0750 0875 0000 0250 0000 %0159 R07 008594 -05693 001073 0125 1000 0875 0875 0000 0125 0000 %0160 R08 008723 -04474 -01346 0125 1000 1000 0875 0000 0000 0000 %0161 R09 001182 003261 002038 0250 0000 0000 0750 1000 1000 0000 %0162 S01 001277 003647 -00580 0250 0000 0125 0750 1000 0875 0000 %0163 S02 001466 004414 -03092 0250 0000 0250 0750 1000 0750 0000 %0164 S03 001677 005038 -04578 0250 0000 0375 0750 1000 0625 0000 %0165 S04 001877 005659 -05769 0250 0000 0500 0750 1000 0500 0000 %0166 S05 002090 006183 -06754 0250 0000 0625 0750 1000 0375 0000 %0167 S06 002340 006695 -07676 0250 0000 0750 0750 1000 0250 0000 %0168 S07 002631 007198 -08611 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003282 008056 -10326 0250 0000 1000 0750 1000 0000 0000 %0170 S09 001890 001390 003072 0250 0125 0000 0750 0875 1000 0000 %0171 T01 001951 001761 000518 0250 0125 0125 0750 0875 0875 0000 %0172 T02 002079 002611 -02094 0250 0125 0250 0750 0875 0750 0000 %0173 T03 002230 003409 -03673 0250 0125 0375 0750 0875 0625 0000 %0174 T04 002389 004141 -04953 0250 0125 0500 0750 0875 0500 0000 %0175 T05 002554 004784 -05999 0250 0125 0625 0750 0875 0375 0000 %0176 T06 002739 005420 -06971 0250 0125 0750 0750 0875 0250 0000 %0177 T07 002990 006097 -08022 0250 0125 0875 0750 0875 0125 0000 %0178 T08 003559 007193 -09859 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003012 -01090 004490 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003040 -00729 002104 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003123 000072 -00436 0250 0250 0250 0750 0750 0750 0000 %0182 U03 003210 000863 -02060 0250 0250 0375 0750 0750 0625 0000 %0183 U04 003313 001641 -03416 0250 0250 0500 0750 0750 0500 0000 %0184 U05 003430 002382 -04557 0250 0250 0625 0750 0750 0375 0000 %0185 U06 003559 003115 -05622 0250 0250 0750 0750 0750 0250 0000 %0186 U07 003741 003919 -06748 0250 0250 0875 0750 0750 0125 0000 %0187 U08 004178 005366 -08815 0250 0250 1000 0750 0750 0000 0000 %0188 U09 003926 000984 006769 0250 0375 0000 0750 0625 1000 0000 %0189 V01 003951 -02352 003329 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004004 -01641 000913 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004067 -00957 -00708 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004141 -00219 -02082 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004228 000501 -03253 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004329 001231 -04372 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004464 002062 -05557 0250 0375 0875 0750 0625 0125 0000 %0196 V08 004811 003654 -07755 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004755 -03834 006055 0250 0500 0000 0750 0500 1000 0000 %0198 W01 004774 -03590 004413 0250 0500 0125 0750 0500 0875 0000 %0199 W02 004815 -02995 002125 0250 0500 0250 0750 0500 0750 0000 %0200 W03 004863 -02385 000544 0250 0500 0375 0750 0500 0625 0000 %0201 W04 004924 -01741 -00833 0250 0500 0500 0750 0500 0500 0000 %0202 W05 004988 -01063 -02027 0250 0500 0625 0750 0500 0375 0000 %0203 W06 005067 -00376 -03168 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005175 000439 -04387 0250 0500 0875 0750 0500 0125 0000 %0205 W08 005719 002104 -06906 0250 0500 1000 0750 0500 0000 0000 %0206 W09 005512 -04806 006766 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005527 -04562 005326 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005563 -04058 003206 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005601 -03537 001661 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005648 -02948 000289 0250 0625 0500 0750 0375 0500 0000 %0211 X05 005702 -02348 -00897 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005764 -01717 -02046 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005853 -00948 -03287 0250 0625 0875 0750 0375 0125 0000 %0214 X08 006089 000615 -05633 0250 0625 1000 0750 0375 0000 0000 %0215 X09 006309 -05667 007493 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 006321 -05491 006291 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 006350 -05051 004321 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 006378 -04595 002819 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 006416 -04090 001480 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 006461 -03556 000300 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 006512 -02978 -00848 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 006588 -02290 -02102 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 006785 -00803 -04495 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 007206 -06552 008395 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 007216 -06405 007357 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 007235 -06053 005542 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 007263 -05666 004115 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 007293 -05221 002818 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 007328 -04778 001645 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 007372 -04249 000497 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 007432 -03646 -00745 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 007596 -02284 -03168 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 008468 -07685 009688 0250 1000 0000 0750 0000 1000 0000 %0234 a01 008476 -07571 008852 0250 1000 0125 0750 0000 0875 0000 %0235 a02 008494 -07290 007238 0250 1000 0250 0750 0000 0750 0000 %0236 a03 008513 -06987 005906 0250 1000 0375 0750 0000 0625 0000 %0237 a04 008535 -06626 004663 0250 1000 0500 0750 0000 0500 0000 %0238 a05 008563 -06257 003521 0250 1000 0625 0750 0000 0375 0000 %0239 a06 008599 -05829 002395 0250 1000 0750 0750 0000 0250 0000 %0240 a07 008645 -05313 001153 0250 1000 0875 0750 0000 0125 0000 %0241 a08 008772 -04137 -01264 0250 1000 1000 0750 0000 0000 0000 %0242 a09 %JE060-7A, Page 20 /66, LAB*la0; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted 001877 004045 003199 0375 0000 0000 0625 1000 1000 0000 %0243 A10 001939 004294 000575 0375 0000 0125 0625 1000 0875 0000 %0244 A11 002079 004826 -02059 0375 0000 0250 0625 1000 0750 0000 %0245 A12 002219 005353 -03633 0375 0000 0375 0625 1000 0625 0000 %0246 A13 002379 005855 -04909 0375 0000 0500 0625 1000 0500 0000 %0247 A14 002545 006320 -05956 0375 0000 0625 0625 1000 0375 0000 %0248 A15 002739 006814 -06962 0375 0000 0750 0625 1000 0250 0000 %0249 A16 002983 007299 -07980 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003559 008144 -09839 0375 0000 1000 0625 1000 0000 0000 %0251 A18 002379 002632 003871 0375 0125 0000 0625 0875 1000 0000 %0252 B10 002426 002896 001290 0375 0125 0125 0625 0875 0875 0000 %0253 B11 002536 003504 -01330 0375 0125 0250 0625 0875 0750 0000 %0254 B12 002648 004069 -02935 0375 0125 0375 0625 0875 0625 0000 %0255 B13 002787 004646 -04252 0375 0125 0500 0625 0875 0500 0000 %0256 B14 002925 005212 -05364 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003224 005870 -06538 0375 0125 0750 0625 0875 0250 0000 %0258 B16 003301 006325 -07461 0375 0125 0875 0625 0875 0125 0000 %0259 B17 003814 007372 -09421 0375 0125 1000 0625 0875 0000 0000 %0260 B18 003313 000356 004910 0375 0250 0000 0625 0750 1000 0000 %0261 C10 003345 000619 002585 0375 0250 0125 0625 0750 0875 0000 %0262 C11 003418 001218 000050 0375 0250 0250 0625 0750 0750 0000 %0263 C12 003501 001836 -01590 0375 0250 0375 0625 0750 0625 0000 %0264 C13 003587 002470 -02950 0375 0250 0500 0625 0750 0500 0000 %0265 C14 003692 003065 -04107 0375 0250 0625 0625 0750 0375 0000 %0266 C15 003814 003707 -05203 0375 0250 0750 0625 0750 0250 0000 %0267 C16 003975 004394 -06350 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004384 005703 -08473 0375 0250 1000 0625 0750 0000 0000 %0269 C18 004146 -01356 005636 0375 0375 0000 0625 0625 1000 0000 %0270 D10 004169 -01080 003665 0375 0375 0125 0625 0625 0875 0000 %0271 D11 004219 -00537 001267 0375 0375 0250 0625 0625 0750 0000 %0272 D12 004276 000017 -00345 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004350 000651 -01735 0375 0375 0500 0625 0625 0500 0000 %0274 D14 004431 001269 -02921 0375 0375 0625 0625 0625 0375 0000 %0275 D15 004521 001899 -04046 0375 0375 0750 0625 0625 0250 0000 %0276 D16 004648 002630 -05244 0375 0375 0875 0625 0625 0125 0000 %0277 D17 004981 004046 -07466 0375 0375 1000 0625 0625 0000 0000 %0278 D18 004924 -02688 006266 0375 0500 0000 0625 0500 1000 0000 %0279 E10 004942 -02471 004648 0375 0500 0125 0625 0500 0875 0000 %0280 E11 004984 -01977 002391 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005029 -00538 001167 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005084 -00886 -00569 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005148 -00311 -01760 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005224 000323 -02913 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005327 001024 -04139 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005598 002492 -06443 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005648 -03789 006903 0375 0625 0000 0625 0375 1000 0000 %0288 F10 005662 -03596 005531 0375 0625 0125 0625 0375 0875 0000 %0289 F11 005696 -03149 003413 0375 0625 0250 0625 0375 0750 0000 %0290 F12 005736 -02677 001880 0375 0625 0375 0625 0375 0625 0000 %0291 F13 005778 -02155 000510 0375 0625 0500 0625 0375 0500 0000 %0292 F14 005831 -01638 -00677 0375 0625 0625 0625 0375 0375 0000 %0293 F15 005894 -01043 -01831 0375 0625 0750 0625 0375 0250 0000 %0294 F16 005979 -00359 -03073 0375 0625 0875 0625 0375 0125 0000 %0295 F17 006208 001096 -05439 0375 0625 1000 0625 0375 0000 0000 %0296 F18 006419 -04808 007634 0375 0750 0000 0625 0250 1000 0000 %0297 G10 006431 -04651 006447 0375 0750 0125 0625 0250 0875 0000 %0298 G11 006459 -04256 004487 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006489 -03839 002992 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006526 -03374 001659 0375 0750 0500 0625 0250 0500 0000 %0301 G14 006567 -02893 000477 0375 0750 0625 0625 0250 0375 0000 %0302 G15 006622 -02349 -00673 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006693 -01705 -01929 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006885 -00330 -04326 0375 0750 1000 0625 0250 0000 0000 %0305 G18 007295 -05840 008500 0375 0875 0000 0625 0125 1000 0000 %0306 H10 007305 -05694 007485 0375 0875 0125 0625 0125 0875 0000 %0307 H11 007326 -05354 005680 0375 0875 0250 0625 0125 0750 0000 %0308 H12 007351 -05001 004251 0375 0875 0375 0625 0125 0625 0000 %0309 H13 007383 -04603 002955 0375 0875 0500 0625 0125 0500 0000 %0310 H14 007417 -04171 001787 0375 0875 0625 0625 0125 0375 0000 %0311 H15 007459 -03698 000643 0375 0875 0750 0625 0125 0250 0000 %0312 H16 007520 -03116 -00609 0375 0875 0875 0625 0125 0125 0000 %0313 H17 007680 -01827 -03031 0375 0875 1000 0625 0125 0000 0000 %0314 H18 008535 -07128 009772 0375 1000 0000 0625 0000 1000 0000 %0315 I10 008541 -07008 008932 0375 1000 0125 0625 0000 0875 0000 %0316 I11 008559 -06732 007340 0375 1000 0250 0625 0000 0750 0000 %0317 I12 008580 -06443 006011 0375 1000 0375 0625 0000 0625 0000 %0318 I13 008603 -06104 004762 0375 1000 0500 0625 0000 0500 0000 %0319 I14 008631 -05754 003626 0375 1000 0625 0625 0000 0375 0000 %0320 I15 008664 -05348 002502 0375 1000 0750 0625 0000 0250 0000 %0321 I16 008710 -04852 001262 0375 1000 0875 0625 0000 0125 0000 %0322 I17 008837 -03736 -01159 0375 1000 1000 0625 0000 0000 0000 %0323 I18 002509 004759 004175 0500 0000 0000 0500 1000 1000 0000 %0324 J10 002562 004963 001569 0500 0000 0125 0500 1000 0875 0000 %0325 J11 002657 005312 -01069 0500 0000 0250 0500 1000 0750 0000 %0326 J12 002771 005781 -02724 0500 0000 0375 0500 1000 0625 0000 %0327 J13 002895 006207 -04057 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003019 006582 -05140 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003184 007018 -06204 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003388 007385 -07250 0500 0000 0875 0500 1000 0125 0000 %0331 J17 003891 008273 -09269 0500 0000 1000 0500 1000 0000 0000 %0332 J18 002887 003647 004633 0500 0125 0000 0500 0875 1000 0000 %0333 K10 002925 003873 002087 0500 0125 0125 0500 0875 0875 0000 %0334 K11 003012 004314 -00537 0500 0125 0250 0500 0875 0750 0000 %0335 K12 003110 004745 -02163 0500 0125 0375 0500 0875 0625 0000 %0336 K13 003217 005216 -03526 0500 0125 0500 0500 0875 0500 0000 %0337 K14 003332 005664 -04656 0500 0125 0625 0500 0875 0375 0000 %0338 K15 003472 006124 -05730 0500 0125 0750 0500 0875 0250 0000 %0339 K16 003660 006648 -06859 0500 0125 0875 0500 0875 0125 0000 %0340 K17 004114 007612 -08908 0500 0125 1000 0500 0875 0000 0000 %0341 K18 003665 001634 005403 0500 0250 0000 0500 0750 1000 0000 %0342 L10 003698 001849 003126 0500 0250 0125 0500 0750 0875 0000 %0343 L11 003757 002298 000615 0500 0250 0250 0500 0750 0750 0000 %0344 L12 003830 002777 -01027 0500 0250 0375 0500 0750 0625 0000 %0345 L13 003911 003288 -02414 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004004 003783 -03583 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004114 004317 -04695 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004259 004916 -05870 0500 0250 0875 0500 0750 0125 0000 %0349 L17 004633 006074 -08040 0500 0250 1000 0500 0750 0000 0000 %0350 L18 004406 -00066 005978 0500 0375 0000 0500 0625 1000 0000 %0351 M10 004431 000149 004069 0500 0375 0125 0500 0625 0875 0000 %0352 M11 004480 000591 001693 0500 0375 0250 0500 0625 0750 0000 %0353 M12 004533 001066 000072 0500 0375 0375 0500 0625 0625 0000 %0354 M13 004601 001580 -01306 0500 0375 0500 0500 0625 0500 0000 %0355 M14 004672 002097 -02505 0500 0375 0625 0500 0625 0375 0000 %0356 M15 004759 002637 -03650 0500 0375 0750 0500 0625 0250 0000 %0357 M16 004877 003258 -04842 0500 0375 0875 0500 0625 0125 0000 %0358 M17 005188 004529 -07108 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005132 -01486 006563 0500 0500 0000 0500 0500 1000 0000 %0360 N10 005148 -01294 004951 0500 0500 0125 0500 0500 0875 0000 %0361 N11 005188 -00879 002726 0500 0500 0250 0500 0500 0750 0000 %0362 N12 005234 -00434 001138 0500 0500 0375 0500 0500 0625 0000 %0363 N13 005286 000054 -00229 0500 0500 0500 0500 0500 0500 0000 %0364 N14 005343 000551 -01437 0500 0500 0625 0500 0500 0375 0000 %0365 N15 005415 001085 -02582 0500 0500 0750 0500 0500 0250 0000 %0366 N16 005512 001725 -03819 0500 0500 0875 0500 0500 0125 0000 %0367 N17 005775 003038 -06150 0500 0500 1000 0500 0500 0000 0000 %0368 N18 005820 -02684 007148 0500 0625 0000 0500 0375 1000 0000 %0369 O10 005831 -02517 005772 0500 0625 0125 0500 0375 0875 0000 %0370 O11 005864 -02132 003682 0500 0625 0250 0500 0375 0750 0000 %0371 O12 005902 -01720 002146 0500 0625 0375 0500 0375 0625 0000 %0372 O13 005945 -01267 000789 0500 0625 0500 0500 0375 0500 0000 %0373 O14 005992 -00787 -00409 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006053 -00270 -01565 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006135 000341 -02815 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006357 001657 -05185 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006556 -03831 007817 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006570 -03674 006652 0500 0750 0125 0500 0250 0875 0000 %0379 P11 006597 -03330 004709 0500 0750 0250 0500 0250 0750 0000 %0380 P12 006626 -02962 003220 0500 0750 0375 0500 0250 0625 0000 %0381 P13 006660 -02538 001888 0500 0750 0500 0500 0250 0500 0000 %0382 P14 006704 -02107 000699 0500 0750 0625 0500 0250 0375 0000 %0383 P15 006752 -01623 -00456 0500 0750 0750 0500 0250 0250 0000 %0384 P16 006823 -01033 -01706 0500 0750 0875 0500 0250 0125 0000 %0385 P17 007010 000232 -04116 0500 0750 1000 0500 0250 0000 0000 %0386 P18 007405 -04990 008634 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 007415 -04860 007651 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 007439 -04546 005853 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 007461 -04217 004439 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007491 -03842 003140 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007526 -03452 001974 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007567 -03016 000828 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007625 -02473 -00424 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 007783 -01273 -02860 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 008618 -06420 009878 0500 1000 0000 0500 0000 1000 0000 %0396 R10 008626 -06317 009056 0500 1000 0125 0500 0000 0875 0000 %0397 R11 008642 -06060 007469 0500 1000 0250 0500 0000 0750 0000 %0398 R12 008661 -05781 006147 0500 1000 0375 0500 0000 0625 0000 %0399 R13 008684 -05469 004896 0500 1000 0500 0500 0000 0500 0000 %0400 R14 008711 -05134 003768 0500 1000 0625 0500 0000 0375 0000 %0401 R15 008744 -04764 002641 0500 1000 0750 0500 0000 0250 0000 %0402 R16 008789 -04284 001401 0500 1000 0875 0500 0000 0125 0000 %0403 R17 008916 -03219 -01024 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003082 005395 005052 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003117 005520 002500 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003204 005860 -00164 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003288 006200 -01815 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003388 006554 -03186 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003501 006922 -04345 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003626 007271 -05421 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003804 007695 -06575 0625 0000 0875 0375 1000 0125 0000 %0412 S17 004241 008487 -08686 0625 0000 1000 0375 1000 0000 0000 %0413 S18 003375 004519 005359 0625 0125 0000 0375 0875 1000 0000 %0414 T10 003412 004682 002882 0625 0125 0125 0375 0875 0875 0000 %0415 T11 003483 005045 000262 0625 0125 0250 0375 0875 0750 0000 %0416 T12 003559 005376 -01387 0625 0125 0375 0375 0875 0625 0000 %0417 T13 003654 005766 -02772 0625 0125 0500 0375 0875 0500 0000 %0418 T14 003757 006176 -03952 0625 0125 0625 0375 0875 0375 0000 %0419 T15 003876 006549 -05041 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004033 007013 -06214 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004439 007892 -08368 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004029 002762 005910 0625 0250 0000 0375 0750 1000 0000 %0423 U10 004057 002920 003728 0625 0250 0125 0375 0750 0875 0000 %0424 U11 004114 003268 001226 0625 0250 0250 0375 0750 0750 0000 %0425 U12 004178 003669 -00425 0625 0250 0375 0375 0750 0625 0000 %0426 U13 004250 004096 -01818 0625 0250 0500 0375 0750 0500 0000 %0427 U14 004333 004504 -03012 0625 0250 0625 0375 0750 0375 0000 %0428 U15 004431 004950 -04142 0625 0250 0750 0375 0750 0250 0000 %0429 U16 004562 005470 -05349 0625 0250 0875 0375 0750 0125 0000 %0430 U17 004903 006490 -07570 0625 0250 1000 0375 0750 0000 0000 %0431 U18 004691 001146 006381 0625 0375 0000 0375 0625 1000 0000 %0432 V10 004714 001321 004527 0625 0375 0125 0375 0625 0875 0000 %0433 V11 004759 001691 002167 0625 0375 0250 0375 0625 0750 0000 %0434 V12 004811 002058 000555 0625 0375 0375 0375 0625 0625 0000 %0435 V13 004866 002495 -00846 0625 0375 0500 0375 0625 0500 0000 %0436 V14 004935 002923 -02046 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005019 003393 -03198 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005125 003933 -04419 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005418 005063 -06723 0625 0375 1000 0375 0625 0000 0000 %0440 V18 005358 -00296 006889 0625 0500 0000 0375 0500 1000 0000 %0441 W10 005374 -00131 005325 0625 0500 0125 0375 0500 0875 0000 %0442 W11 005411 000215 003104 0625 0500 0250 0375 0500 0750 0000 %0443 W12 005451 000599 001525 0625 0500 0375 0375 0500 0625 0000 %0444 W13 005503 001001 000145 0625 0500 0500 0375 0500 0500 0000 %0445 W14 005560 001435 -01052 0625 0500 0625 0375 0500 0375 0000 %0446 W15 005624 001889 -02213 0625 0500 0750 0375 0500 0250 0000 %0447 W16 005719 002453 -03458 0625 0500 0875 0375 0500 0125 0000 %0448 W17 005966 003629 -05813 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006003 -01567 007409 0625 0625 0000 0375 0375 1000 0000 %0450 X10 006019 -01422 006082 0625 0625 0125 0375 0375 0875 0000 %0451 X11 006050 -01072 004007 0625 0625 0250 0375 0375 0750 0000 %0452 X12 006084 -00715 002463 0625 0625 0375 0375 0375 0625 0000 %0453 X13 006127 -00323 001107 0625 0625 0500 0375 0375 0500 0000 %0454 X14 006173 000096 -00090 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006230 000548 -01254 0625 0625 0750 0375 0375 0250 0000 %0456 X16 006309 001102 -02508 0625 0625 0875 0375 0375 0125 0000 %0457 X17 006521 002288 -04906 0625 0625 1000 0375 0375 0000 0000 %0458 X18 006711 -02785 008047 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 006724 -02659 006906 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 006752 -02342 004967 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 006780 -02025 003484 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 006813 -01642 002156 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 006855 -01260 000964 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 006902 -00821 -00184 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 006971 -00286 -01452 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007153 000869 -03865 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 007535 -04059 008830 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 007544 -03934 007846 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007566 -03652 006067 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007589 -03356 004656 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007619 -03001 003347 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 007653 -02657 002194 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 007694 -02255 001052 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 007750 -01760 -00210 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007905 -00657 -02649 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 008717 -05640 010027 0625 1000 0000 0375 0000 1000 0000 %0477 a10 008724 -05533 009213 0625 1000 0125 0375 0000 0875 0000 %0478 a11 008741 -05293 007627 0625 1000 0250 0375 0000 0750 0000 %0479 a12 008761 -05042 006317 0625 1000 0375 0375 0000 0625 0000 %0480 a13 008784 -04753 005072 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008810 -04437 003939 0625 1000 0625 0375 0000 0375 0000 %0482 a15 008843 -04085 002810 0625 1000 0750 0375 0000 0250 0000 %0483 a16 008887 -03642 001565 0625 1000 0875 0375 0000 0125 0000 %0484 a17 009011 -02643 -00862 0625 1000 1000 0375 0000 0000 0000 %0485 a18 %JE060-7A, Page 21 /66, LAB*la0; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted 003660 006064 005910 0750 0000 0000 0250 1000 1000 0000 %0486 A19 003698 006188 003435 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003762 006448 000778 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003830 006717 -00881 0750 0000 0375 0250 1000 0625 0000 %0489 A22 003911 007023 -02289 0750 0000 0500 0250 1000 0500 0000 %0490 A23 004004 007321 -03474 0750 0000 0625 0250 1000 0375 0000 %0491 A24 004109 007655 -04604 0750 0000 0750 0250 1000 0250 0000 %0492 A25 004259 008012 -05791 0750 0000 0875 0250 1000 0125 0000 %0493 A26 004637 008730 -07995 0750 0000 1000 0250 1000 0000 0000 %0494 A27 003901 005363 006118 0750 0125 0000 0250 0875 1000 0000 %0495 B19 003931 005493 003730 0750 0125 0125 0250 0875 0875 0000 %0496 B20 003990 005756 001128 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004052 006290 -00433 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004123 006376 -01960 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004214 006702 -03153 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004316 007045 -04289 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004456 007431 -05482 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004811 008214 -07718 0750 0125 1000 0250 0875 0000 0000 %0503 B27 004452 003844 006490 0750 0250 0000 0250 0750 1000 0000 %0504 C19 004476 003964 004380 0750 0250 0125 0250 0750 0875 0000 %0505 C20 004525 004256 001899 0750 0250 0250 0250 0750 0750 0000 %0506 C21 004578 004576 000251 0750 0250 0375 0250 0750 0625 0000 %0507 C22 004644 004906 -01141 0750 0250 0500 0250 0750 0500 0000 %0508 C23 004714 005253 -02359 0750 0250 0625 0250 0750 0375 0000 %0509 C24 004804 005636 -03502 0750 0250 0750 0250 0750 0250 0000 %0510 C25 004920 006074 -04728 0750 0250 0875 0250 0750 0125 0000 %0511 C26 005231 006979 -07019 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005033 002346 006856 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005054 002476 005063 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005094 002776 002721 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005142 003089 001119 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005195 003441 -00286 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005257 003807 -01499 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005330 004213 -02656 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005430 004678 -03902 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005699 005657 -06244 0750 0375 1000 0250 0625 0000 0000 %0521 D27 005639 000939 007263 0750 0500 0000 0250 0500 1000 0000 %0522 E19 005656 001065 005750 0750 0500 0125 0250 0500 0875 0000 %0523 E20 005691 001356 003578 0750 0500 0250 0250 0500 0750 0000 %0524 E21 005730 001667 001991 0750 0500 0375 0250 0500 0625 0000 %0525 E22 005775 002028 000609 0750 0500 0500 0250 0500 0500 0000 %0526 E23 005828 002383 -00594 0750 0500 0625 0250 0500 0375 0000 %0527 E24 005891 002784 -01762 0750 0500 0750 0250 0500 0250 0000 %0528 E25 005977 003273 -03019 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006210 004291 -05399 0750 0500 1000 0250 0500 0000 0000 %0530 E27 006242 -00345 007766 0750 0625 0000 0250 0375 1000 0000 %0531 F19 006257 -00221 006456 0750 0625 0125 0250 0375 0875 0000 %0532 F20 006287 000067 004389 0750 0625 0250 0250 0375 0750 0000 %0533 F21 006318 000374 002859 0750 0625 0375 0250 0375 0625 0000 %0534 F22 006359 000711 001503 0750 0625 0500 0250 0375 0500 0000 %0535 F23 006402 001069 000296 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006459 001462 -00863 0750 0625 0750 0250 0375 0250 0000 %0537 F25 006531 001952 -02126 0750 0625 0875 0250 0375 0125 0000 %0538 F26 006735 002997 -04541 0750 0625 1000 0250 0375 0000 0000 %0539 F27 006912 -01634 008349 0750 0750 0000 0250 0250 1000 0000 %0540 G19 006925 -01509 007199 0750 0750 0125 0250 0250 0875 0000 %0541 G20 006950 -01249 005300 0750 0750 0250 0250 0250 0750 0000 %0542 G21 006977 -00958 003822 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007012 004827 007019 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007049 -00294 001299 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007097 000089 000140 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007161 000562 -01124 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007337 001607 -03558 0750 0750 1000 0250 0250 0000 0000 %0548 G27 007703 -02997 009073 0750 0875 0000 0250 0125 1000 0000 %0549 H19 007713 -02877 008101 0750 0875 0125 0250 0125 0875 0000 %0550 H20 007734 -02631 006338 0750 0875 0250 0250 0125 0750 0000 %0551 H21 007757 -02366 004932 0750 0875 0375 0250 0125 0625 0000 %0552 H22 007785 -02053 003637 0750 0875 0500 0250 0125 0500 0000 %0553 H23 007798 -01736 002464 0750 0875 0625 0250 0125 0375 0000 %0554 H24 007856 -01377 001322 0750 0875 0750 0250 0125 0250 0000 %0555 H25 007911 -00931 000058 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008061 000075 -02383 0750 0875 1000 0250 0125 0000 0000 %0557 H27 008847 -04715 010212 0750 1000 0000 0250 0000 1000 0000 %0558 I19 008855 -04611 009404 0750 1000 0125 0250 0000 0875 0000 %0559 I20 008872 -04398 007834 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008891 -04160 006527 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008913 -03895 005291 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008939 -03605 004153 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008971 -03268 003031 0750 1000 0750 0250 0000 0250 0000 %0564 I25 009014 -02869 001779 0750 1000 0875 0250 0000 0125 0000 %0565 I26 009138 -01937 -00654 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004245 006728 006769 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004272 006827 004366 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004329 007063 001727 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004380 007281 000050 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004452 007538 -01364 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004529 007807 -02582 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004617 008083 -03736 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004744 008403 -04960 0875 0000 0875 0125 1000 0125 0000 %0574 J26 005074 009059 -07262 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004443 006164 006941 0875 0125 0000 0125 0875 1000 0000 %0576 K19 004464 006280 004575 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004517 006492 002004 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004574 006739 000331 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004633 006999 -01095 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004706 007271 -02307 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004793 007572 -03468 0875 0125 0750 0125 0875 0250 0000 %0582 K25 004913 007916 -04708 0875 0125 0875 0125 0875 0125 0000 %0583 K26 005224 008604 -07009 0875 0125 1000 0125 0875 0000 0000 %0584 K27 004910 004863 007144 0875 0250 0000 0125 0750 1000 0000 %0585 L19 004928 004964 005091 0875 0250 0125 0125 0750 0875 0000 %0586 L20 004974 005207 002641 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005019 005459 000997 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005074 005740 -00418 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005138 006032 -01631 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005214 006342 -02803 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005321 006707 -04047 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005598 007499 -06388 0875 0250 1000 0125 0750 0000 0000 %0593 L27 005421 003503 007398 0875 0375 0000 0125 0625 1000 0000 %0594 M19 005439 003611 005682 0875 0375 0125 0125 0625 0875 0000 %0595 M20 005476 003860 003357 0875 0375 0250 0125 0625 0750 0000 %0596 M21 005518 004110 001745 0875 0375 0375 0125 0625 0625 0000 %0597 M22 005566 004412 000341 0875 0375 0500 0125 0625 0500 0000 %0598 M23 005621 004713 -00870 0875 0375 0625 0125 0625 0375 0000 %0599 M24 005688 005048 -02054 0875 0375 0750 0125 0625 0250 0000 %0600 M25 005778 005444 -03308 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006024 006286 -05688 0875 0375 1000 0125 0625 0000 0000 %0602 M27 005971 002162 007775 0875 0500 0000 0125 0500 1000 0000 %0603 N19 005985 002267 006275 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006019 002507 004109 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006053 002773 002535 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006094 003097 001122 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006142 003369 -00063 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006203 003715 -01237 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006279 004122 -02498 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006496 005026 -04911 0875 0500 1000 0125 0500 0000 0000 %0611 N27 006528 000893 008166 0875 0625 0000 0125 0375 1000 0000 %0612 O19 006540 000989 006895 0875 0625 0125 0125 0375 0875 0000 %0613 O20 006567 001243 004846 0875 0625 0250 0125 0375 0750 0000 %0614 O21 006599 001496 003329 0875 0625 0375 0125 0375 0625 0000 %0615 O22 006637 001784 001973 0875 0625 0500 0125 0375 0500 0000 %0616 O23 006677 002086 000765 0875 0625 0625 0125 0375 0375 0000 %0617 O24 006728 002440 -00405 0875 0625 0750 0125 0375 0250 0000 %0618 O25 006798 002858 -01679 0875 0625 0875 0125 0375 0125 0000 %0619 O26 006989 003763 -04106 0875 0625 1000 0125 0375 0000 0000 %0620 O27 007157 -00421 008694 0875 0750 0000 0125 0250 1000 0000 %0621 P19 007169 -00318 007589 0875 0750 0125 0125 0250 0875 0000 %0622 P20 007192 -00089 005689 0875 0750 0250 0125 0250 0750 0000 %0623 P21 007220 000164 004221 0875 0750 0375 0125 0250 0625 0000 %0624 P22 007251 000451 002884 0875 0750 0500 0125 0250 0500 0000 %0625 P23 007286 000744 001697 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007330 001084 000535 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007392 001489 -00735 0875 0750 0875 0125 0250 0125 0000 %0628 P26 007560 002411 -03182 0875 0750 1000 0125 0250 0000 0000 %0629 P27 007907 -01834 009379 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 007917 -01735 008432 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 007939 -01513 006676 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 007959 -05141 003207 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 007987 -01015 003975 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008018 -00727 002811 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008056 -00404 001656 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008108 -00004 000390 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008254 000900 -02060 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 009010 -03657 010465 0875 1000 0000 0125 0000 1000 0000 %0639 R19 009018 -03572 009641 0875 1000 0125 0125 0000 0875 0000 %0640 R20 009034 -03375 008098 0875 1000 0250 0125 0000 0750 0000 %0641 R21 009053 -03169 006792 0875 1000 0375 0125 0000 0625 0000 %0642 R22 009074 -02925 005549 0875 1000 0500 0125 0000 0500 0000 %0643 R23 009100 -02660 004417 0875 1000 0625 0125 0000 0375 0000 %0644 R24 009130 -02361 003288 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009172 -01993 002045 0875 1000 0875 0125 0000 0125 0000 %0646 R26 009291 -01148 -00392 0875 1000 1000 0125 0000 0000 0000 %0647 R27 005009 007653 007939 1000 0000 0000 0000 1000 1000 0000 %0648 S19 005022 007722 005572 1000 0000 0125 0000 1000 0875 0000 %0649 S20 005060 007896 002980 1000 0000 0250 0000 1000 0750 0000 %0650 S21 005105 008079 001277 1000 0000 0375 0000 1000 0625 0000 %0651 S22 005158 008271 -00156 1000 0000 0500 0000 1000 0500 0000 %0652 S23 005221 008498 -01399 1000 0000 0625 0000 1000 0375 0000 %0653 S24 005292 008725 -02577 1000 0000 0750 0000 1000 0250 0000 %0654 S25 005393 009002 -03849 1000 0000 0875 0000 1000 0125 0000 %0655 S26 005662 009566 -06253 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005162 007207 008011 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005175 007266 005746 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005214 007438 003175 1000 0125 0250 0000 0875 0750 0000 %0659 T21 005257 007630 001489 1000 0125 0375 0000 0875 0625 0000 %0660 T22 005305 003811 002971 1000 0125 0500 0000 0875 0500 0000 %0661 T23 005365 008059 -01183 1000 0125 0625 0000 0875 0375 0000 %0662 T24 005436 008306 -02377 1000 0125 0750 0000 0875 0250 0000 %0663 T25 005533 008589 -03640 1000 0125 0875 0000 0875 0125 0000 %0664 T26 005792 009185 -06042 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005545 006105 008109 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005560 006183 006137 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005592 006364 003692 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005627 006563 002023 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005674 006784 000603 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005728 007017 -00629 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005792 007272 -01817 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005880 007584 -03090 1000 0250 0875 0000 0750 0125 0000 %0673 U26 006117 008235 -05512 1000 0250 1000 0000 0750 0000 0000 %0674 U27 005982 004920 008263 1000 0375 0000 0000 0625 1000 0000 %0675 V19 005995 004998 006582 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006024 005185 004269 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006058 005388 002648 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006102 005610 001242 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006147 005859 000006 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006205 006126 -01178 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006284 006449 -02457 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006498 007158 -04894 1000 0375 1000 0000 0625 0000 0000 %0683 V27 006468 003686 008528 1000 0500 0000 0000 0500 1000 0000 %0684 W19 006480 003758 007068 1000 0500 0125 0000 0500 0875 0000 %0685 W20 006508 003944 004903 1000 0500 0250 0000 0500 0750 0000 %0686 W21 006538 004151 003320 1000 0500 0375 0000 0500 0625 0000 %0687 W22 006574 004386 001936 1000 0500 0500 0000 0500 0500 0000 %0688 W23 006617 004636 000718 1000 0500 0625 0000 0500 0375 0000 %0689 W24 006669 004907 -00462 1000 0500 0750 0000 0500 0250 0000 %0690 W25 006739 005251 -01739 1000 0500 0875 0000 0500 0125 0000 %0691 W26 006931 005977 -04183 1000 0500 1000 0000 0500 0000 0000 %0692 W27 006975 002473 008849 1000 0625 0000 0000 0375 1000 0000 %0693 X19 006985 002555 007579 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007010 002734 005546 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007036 002936 004026 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007071 003183 002653 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007107 003423 001455 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007155 003708 000282 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007218 004046 -00993 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007388 004802 -03444 1000 0625 1000 0000 0375 0000 0000 %0701 X27 007555 001173 009295 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 007566 001258 008178 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 007585 001439 006286 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 007611 001641 004813 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 007641 001874 003483 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 007673 002124 002292 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 007713 002395 001134 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 007769 002740 -00127 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 007921 003512 -02588 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008254 -00256 009902 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008262 -00182 008937 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008279 000000 007175 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008299 000197 005772 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008324 000422 004480 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008355 000659 003309 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 008390 000933 002168 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 008437 001262 000908 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 008571 002027 -01542 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009289 -02164 010868 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009295 -02381 010687 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009310 -01931 008497 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009327 -01743 007184 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009347 -01539 005944 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009371 -01308 004812 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009399 -01050 003687 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009440 -00736 002454 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009550 -00003 000026 1000 1000 1000 0000 0000 0000 0000 %0728 a27 %JE060-7A, Page 22 /66, LAB*la0; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted 009576 000008 000046 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009337 -01133 -00356 0875 1000 1000 0125 0000 0000 0000 %0730 b02 009181 -01916 -00613 0750 1000 1000 0250 0000 0000 0000 %0731 b03 009053 -02619 -00832 0625 1000 1000 0375 0000 0000 0000 %0732 b04 008950 -03202 -01006 0500 1000 1000 0500 0000 0000 0000 %0733 b05 008863 -03708 -01148 0375 1000 1000 0625 0000 0000 0000 %0734 b06 008796 -04126 -01258 0250 1000 1000 0750 0000 0000 0000 %0735 b07 008744 -04471 -01346 0125 1000 1000 0875 0000 0000 0000 %0736 b08 008721 -04608 -01383 0000 1000 1000 1000 0000 0000 0000 %0737 b09 008464 001270 000907 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008159 000005 000395 0875 0875 0875 0125 0125 0125 0000 %0739 c02 007962 -00900 000061 0750 0875 0875 0250 0125 0125 0000 %0740 c03 007797 -01732 -00208 0625 0875 0875 0375 0125 0125 0000 %0741 c04 007664 -02452 -00429 0500 0875 0875 0500 0125 0125 0000 %0742 c05 007551 -03086 -00616 0375 0875 0875 0625 0125 0125 0000 %0743 c06 007461 -03619 -00768 0250 0875 0875 0750 0125 0125 0000 %0744 c07 007387 -04053 -00887 0125 0875 0875 0875 0125 0125 0000 %0745 c08 007351 -04239 -00946 0000 0875 0875 1000 0125 0125 0000 %0746 c09 007743 002396 001124 1000 0750 0750 0000 0250 0250 0000 %0747 d01 007387 001079 000525 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007155 000106 000129 0750 0750 0750 0250 0250 0250 0000 %0749 d03 006954 -00794 -00200 0625 0750 0750 0375 0250 0250 0000 %0750 d04 006793 -01600 -00472 0500 0750 0750 0500 0250 0250 0000 %0751 d05 006657 -02341 -00689 0375 0750 0750 0625 0250 0250 0000 %0752 d06 006549 -02959 -00872 0250 0750 0750 0750 0250 0250 0000 %0753 d07 006456 -03501 -01025 0125 0750 0750 0875 0250 0250 0000 %0754 d08 006412 -03704 -01101 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007141 003415 001429 1000 0625 0625 0000 0375 0375 0000 %0756 e01 006732 002084 000744 0875 0625 0625 0125 0375 0375 0000 %0757 e02 006459 001070 000283 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006225 000096 -00098 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006034 -00781 -00422 0500 0625 0625 0500 0375 0375 0000 %0760 e05 005867 -01610 -00698 0375 0625 0625 0625 0375 0375 0000 %0761 e06 005733 -02334 -00914 0250 0625 0625 0750 0375 0375 0000 %0762 e07 005619 -02971 -01102 0125 0625 0625 0875 0375 0375 0000 %0763 e08 005566 -03252 -01198 0000 0625 0625 1000 0375 0375 0000 %0764 e09 006610 004368 001906 1000 0500 0500 0000 0500 0500 0000 %0765 f01 006145 003054 001122 0875 0500 0500 0125 0500 0500 0000 %0766 f02 005828 002021 000592 0750 0500 0500 0250 0500 0500 0000 %0767 f03 005548 001011 000129 0625 0500 0500 0375 0500 0500 0000 %0768 f04 005317 000054 -00251 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005115 -00867 -00584 0375 0500 0500 0625 0500 0500 0000 %0770 f06 004952 -01715 -00864 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004815 -02490 -01094 0125 0500 0500 0875 0500 0500 0000 %0772 f08 004748 -02832 -01202 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006094 005368 002603 1000 0375 0375 0000 0625 0625 0000 %0774 g01 005560 004061 001731 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005185 003096 001085 0750 0375 0375 0250 0625 0625 0000 %0776 g03 004848 002078 000524 0625 0375 0375 0375 0625 0625 0000 %0777 g04 004562 001083 000046 0500 0375 0375 0500 0625 0625 0000 %0778 g05 004307 000049 -00370 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004095 -00943 -00720 0250 0375 0375 0750 0625 0625 0000 %0780 g07 003916 -01905 -01020 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003825 -02382 -01163 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005621 006355 003642 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005005 005197 002613 0875 0250 0250 0125 0750 0750 0000 %0784 h02 004562 004255 001883 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004146 003295 001193 0625 0250 0250 0375 0750 0750 0000 %0786 h04 003778 002313 000597 0500 0250 0250 0500 0750 0750 0000 %0787 h05 003436 001210 000033 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003144 000105 -00461 0250 0250 0250 0750 0750 0750 0000 %0789 h07 002872 -01161 -00899 0125 0250 0250 0875 0750 0750 0000 %0790 h08 002763 -01832 -01099 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005198 007279 005701 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004489 006277 004545 0875 0125 0125 0125 0875 0875 0000 %0793 i02 003951 005499 003684 0750 0125 0125 0250 0875 0875 0000 %0794 i03 003430 004708 002859 0625 0125 0125 0375 0875 0875 0000 %0795 i04 002939 003866 002085 0500 0125 0125 0500 0875 0875 0000 %0796 i05 002436 002890 001265 0375 0125 0125 0625 0875 0875 0000 %0797 i06 001963 001794 000473 0250 0125 0125 0750 0875 0875 0000 %0798 i07 001450 000146 -00360 0125 0125 0125 0875 0875 0875 0000 %0799 i08 001201 -01190 -00796 0000 0125 0125 1000 0875 0875 0000 %0800 i09 005022 007672 007967 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004263 006764 006810 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003676 006083 005935 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003096 005385 005065 0625 0000 0000 0375 1000 1000 0000 %0804 j04 002518 004749 004189 0500 0000 0000 0500 1000 1000 0000 %0805 j05 001890 004072 003234 0375 0000 0000 0625 1000 1000 0000 %0806 j06 001182 003347 002038 0250 0000 0000 0750 1000 1000 0000 %0807 j07 000296 001701 000511 0125 0000 0000 0875 1000 1000 0000 %0808 j08 000000 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009545 000000 000016 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008271 000897 -02049 0875 0875 1000 0125 0125 0000 0000 %0811 b11 007360 001610 -03546 0750 0750 1000 0250 0250 0000 0000 %0812 b12 006544 002274 -04890 0625 0625 1000 0375 0375 0000 0000 %0813 b13 005781 003046 -06153 0500 0500 1000 0500 0500 0000 0000 %0814 b14 004988 004063 -07478 0375 0375 1000 0625 0625 0000 0000 %0815 b15 004183 005371 -08812 0250 0250 1000 0750 0750 0000 0000 %0816 b16 003351 007078 -10254 0125 0125 1000 0875 0875 0000 0000 %0817 b17 002932 008022 -10944 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009435 -00737 002442 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008127 000004 000384 0875 0875 0875 0125 0125 0125 0000 %0820 c11 007185 000568 -01130 0750 0750 0875 0250 0250 0125 0000 %0821 c12 006330 001101 -02511 0625 0625 0875 0375 0375 0125 0000 %0822 c13 005521 001723 -03824 0500 0500 0875 0500 0500 0125 0000 %0823 c14 004660 002633 -05248 0375 0375 0875 0625 0625 0125 0000 %0824 c15 003746 003939 -06769 0250 0250 0875 0750 0750 0125 0000 %0825 c16 002715 005845 -08473 0125 0125 0875 0875 0875 0125 0000 %0826 c17 002134 007195 -09436 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009394 -01057 003686 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008076 -00390 001632 0875 0875 0750 0125 0125 0250 0000 %0829 d11 007119 000101 000127 0750 0750 0750 0250 0250 0250 0000 %0830 d12 006252 000554 -01256 0625 0625 0750 0375 0375 0250 0000 %0831 d13 005424 001103 -02601 0500 0500 0750 0500 0500 0250 0000 %0832 d14 004533 001931 -04065 0375 0375 0750 0625 0625 0250 0000 %0833 d15 003570 003140 -05649 0250 0250 0750 0750 0750 0250 0000 %0834 d16 002445 005168 -07549 0125 0125 0750 0875 0875 0250 0000 %0835 d17 001760 006705 -08671 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009365 -01315 004804 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008037 -00723 002785 0875 0875 0625 0125 0125 0375 0000 %0838 e11 007073 -00281 001278 0750 0750 0625 0250 0250 0375 0000 %0839 e12 006195 000106 -00106 0625 0625 0625 0375 0375 0375 0000 %0840 e13 005352 000567 -01449 0500 0500 0625 0500 0500 0375 0000 %0841 e14 004439 001276 -02935 0375 0375 0625 0625 0625 0375 0000 %0842 e15 003436 002398 -04580 0250 0250 0625 0750 0750 0375 0000 %0843 e16 002209 004433 -06619 0125 0125 0625 0875 0875 0375 0000 %0844 e17 001417 006241 -07947 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009340 -01538 005940 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008002 -01006 003947 0875 0875 0500 0125 0125 0500 0000 %0847 f11 007034 -00622 002471 0750 0750 0500 0250 0250 0500 0000 %0848 f12 006145 -00308 001093 0625 0625 0500 0375 0375 0500 0000 %0849 f13 005292 000063 -00254 0500 0500 0500 0500 0500 0500 0000 %0850 f14 004359 000663 -01754 0375 0375 0500 0625 0625 0500 0000 %0851 f15 003326 001657 -03434 0250 0250 0500 0750 0750 0500 0000 %0852 f16 002010 003631 -05608 0125 0125 0500 0875 0875 0500 0000 %0853 f17 001080 005646 -07166 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009319 -01753 007177 1000 1000 0375 0000 0000 0625 0000 %0855 g10 007979 -01278 005246 0875 0875 0375 0125 0125 0625 0000 %0856 g11 007000 -00959 003799 0750 0750 0375 0250 0250 0625 0000 %0857 g12 006104 -00721 002451 0625 0625 0375 0375 0375 0625 0000 %0858 g13 005240 -00427 001128 0500 0500 0375 0500 0500 0625 0000 %0859 g14 004285 000051 -00374 0375 0375 0375 0625 0625 0625 0000 %0860 g15 003217 000877 -02080 0250 0250 0375 0750 0750 0625 0000 %0861 g16 001800 002630 -04383 0125 0125 0375 0875 0875 0625 0000 %0862 g17 000692 004981 -06278 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009303 -01940 008488 1000 1000 0250 0000 0000 0750 0000 %0864 h10 007956 -01505 006658 0875 0875 0250 0125 0125 0750 0000 %0865 h11 006971 -01235 005266 0750 0750 0250 0250 0250 0750 0000 %0866 h12 006068 -01063 003988 0625 0625 0250 0375 0375 0750 0000 %0867 h13 005195 -00876 002712 0500 0500 0250 0500 0500 0750 0000 %0868 h14 004228 -00530 001263 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003130 000069 -00456 0250 0250 0250 0750 0750 0750 0000 %0870 h16 001634 001560 -02902 0125 0125 0250 0875 0875 0750 0000 %0871 h17 000349 003680 -05028 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009289 -02104 010061 1000 1000 0125 0000 0000 0875 0000 %0873 i10 007936 -01739 008419 0875 0875 0125 0125 0125 0875 0000 %0874 i11 006946 -01521 007203 0750 0750 0125 0250 0250 0875 0000 %0875 i12 006037 -01399 006080 0625 0625 0125 0375 0375 0875 0000 %0876 i13 005155 -01303 004966 0500 0500 0125 0500 0500 0875 0000 %0877 i14 004169 -01098 003659 0375 0375 0125 0625 0625 0875 0000 %0878 i15 003047 -00723 002094 0250 0250 0125 0750 0750 0875 0000 %0879 i16 001450 000116 -00329 0125 0125 0125 0875 0875 0875 0000 %0880 i17 000032 001215 -02621 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009282 -02169 010876 1000 1000 0000 0000 0000 1000 0000 %0882 j10 007924 -01834 009398 0875 0875 0000 0125 0125 1000 0000 %0883 j11 006931 -01634 008359 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006021 -01549 007425 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005135 -01480 006568 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004146 -01346 005654 0375 0375 0000 0625 0625 1000 0000 %0887 j15 003012 -01099 004479 0250 0250 0000 0750 0750 1000 0000 %0888 j16 001366 -00659 002269 0125 0125 0000 0875 0875 1000 0000 %0889 j17 000000 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009543 -00004 000009 1000 1000 1000 0000 0000 0000 0000 %0891 b19 008562 002032 -01561 1000 0875 1000 0000 0125 0000 0000 %0892 b20 007914 003512 -02603 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007388 004804 -03450 1000 0625 1000 0000 0375 0000 0000 %0894 b22 006937 005981 -04186 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006512 007152 -04887 1000 0375 1000 0000 0625 0000 0000 %0896 b24 006130 008228 -05504 1000 0250 1000 0000 0750 0000 0000 %0897 b25 005803 009198 -06043 1000 0125 1000 0000 0875 0000 0000 %0898 b26 005674 009580 -06255 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009186 -01977 002026 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008124 000000 000382 0875 0875 0875 0125 0125 0125 0000 %0901 c20 007413 001493 -00746 0875 0750 0875 0125 0250 0125 0000 %0902 c21 006821 002856 -01682 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006304 004117 -02506 0875 0500 0875 0125 0500 0125 0000 %0904 c23 005801 005436 -03313 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005340 006727 -04061 0875 0250 0875 0125 0750 0125 0000 %0906 c25 004928 007920 -04714 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004755 008428 -04978 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008983 -03258 003003 0750 1000 0750 0250 0000 0250 0000 %0909 d19 007872 -01358 001302 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007115 000109 000126 0750 0750 0750 0250 0250 0250 0000 %0911 d21 006477 001462 -00875 0750 0625 0750 0250 0375 0250 0000 %0912 d22 005915 002794 -01776 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005349 004216 -02675 0750 0375 0750 0250 0625 0250 0000 %0914 d24 004819 005650 -03524 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004333 007052 -04302 0750 0125 0750 0250 0875 0250 0000 %0916 d26 004123 007674 -04624 0750 0000 0750 0250 1000 0250 0000 %0917 d27 008819 -04416 003904 0625 1000 0625 0375 0000 0375 0000 %0918 e19 007664 -02639 002172 0625 0875 0625 0375 0125 0375 0000 %0919 e20 006868 -01239 000946 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006188 000095 -00106 0625 0625 0625 0375 0375 0375 0000 %0921 e22 005575 001446 -01075 0625 0500 0625 0375 0500 0375 0000 %0922 e23 004952 002929 -02060 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004346 004508 -03032 0625 0250 0625 0375 0750 0375 0000 %0924 e25 003767 006187 -03973 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003507 006929 -04370 0625 0000 0625 0375 1000 0375 0000 %0926 e27 008686 -05452 004870 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007494 -03833 003114 0500 0875 0500 0500 0125 0500 0000 %0928 f20 006666 -02528 001865 0500 0750 0500 0500 0250 0500 0000 %0929 f21 005947 -01252 000763 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005289 000063 -00258 0500 0500 0500 0500 0500 0500 0000 %0931 f23 004605 001598 -01338 0500 0375 0500 0500 0625 0500 0000 %0932 f24 003916 003291 -02427 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003224 005208 -03542 0500 0125 0500 0500 0875 0500 0000 %0934 f26 002895 006178 -04065 0500 0000 0500 0500 1000 0500 0000 %0935 f27 008577 -06432 005974 0375 1000 0375 0625 0000 0625 0000 %0936 g19 007351 -04991 004233 0375 0875 0375 0625 0125 0625 0000 %0937 g20 006489 -03838 002976 0375 0750 0375 0625 0250 0625 0000 %0938 g21 005736 -02667 001862 0375 0625 0375 0625 0375 0625 0000 %0939 g22 005033 -01434 000789 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004285 000051 -00374 0375 0375 0375 0625 0625 0625 0000 %0941 g24 003501 001847 -01603 0375 0250 0375 0625 0750 0625 0000 %0942 g25 002657 004070 -02954 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002230 005332 -03642 0375 0000 0375 0625 1000 0625 0000 %0944 g27 008488 -07287 007208 0250 1000 0250 0750 0000 0750 0000 %0945 h19 007235 -06043 005528 0250 0875 0250 0750 0125 0750 0000 %0946 h20 006345 -05052 004292 0250 0750 0250 0750 0250 0750 0000 %0947 h21 005563 -04059 003187 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004819 -02978 002108 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004009 -01642 000900 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003123 000076 -00453 0250 0250 0250 0750 0750 0750 0000 %0951 h25 002090 002641 -02129 0250 0125 0250 0750 0875 0750 0000 %0952 h26 001482 004423 -03134 0250 0000 0250 0750 1000 0750 0000 %0953 h27 008419 -08057 008745 0125 1000 0125 0875 0000 0875 0000 %0954 i19 007137 -07008 007227 0125 0875 0125 0875 0125 0875 0000 %0955 i20 006225 -06230 006136 0125 0750 0125 0875 0250 0875 0000 %0956 i21 005411 -05435 005119 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004629 -04658 004157 0125 0500 0125 0875 0500 0875 0000 %0958 i23 003762 -03659 003009 0125 0375 0125 0875 0625 0875 0000 %0959 i24 002779 -02311 001654 0125 0250 0125 0875 0750 0875 0000 %0960 i25 001450 000144 -00349 0125 0125 0125 0875 0875 0875 0000 %0961 i26 000428 002743 -02015 0125 0000 0125 0875 1000 0875 0000 %0962 i27 008388 -08355 009581 0000 1000 0000 1000 0000 1000 0000 %0963 j19 007091 -07425 008249 0000 0875 0000 1000 0125 1000 0000 %0964 j20 006168 -06746 007309 0000 0750 0000 1000 0250 1000 0000 %0965 j21 005343 -06101 006512 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004546 -05471 005780 0000 0500 0000 1000 0500 1000 0000 %0967 j23 003654 -04741 004948 0000 0375 0000 1000 0625 1000 0000 %0968 j24 002614 -03868 003847 0000 0250 0000 1000 0750 1000 0000 %0969 j25 001080 -02456 001800 0000 0125 0000 1000 0875 1000 0000 %0970 j26 000000 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0971 j27 %JE060-7A, Page 23 /66, LAB*la0; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %LAB*la0, D65, adapted, Y = 0.0 , L* = 0.0 %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z005009 007653 007939 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009289 -02164 010868 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z008399 -08361 009599 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z008706 -04625 -01374 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z002939 007977 -10925 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z005662 009566 -06253 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z000000 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009550 -00003 000026 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ %z005022 007672 007967 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 %z009282 -02169 010876 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 %z008388 -08355 009581 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 %z008721 -04608 -01383 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 %z002932 008022 -10944 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 %z005674 009580 -06255 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 %z000000 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 %z009555 000001 000024 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ %JE060-7A, Page 24 /66, LAB*la0; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %100 x LAB* 1000 x (r g b c m y 0) %nr. pos 000000 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0972 k01 001450 000135 -00363 0125 0125 0125 0875 0875 0875 0000 %0973 k02 003123 000097 -00457 0250 0250 0250 0750 0750 0750 0000 %0974 k03 004281 000042 -00371 0375 0375 0375 0625 0625 0625 0000 %0975 k04 005286 000053 -00254 0500 0500 0500 0500 0500 0500 0000 %0976 k05 006188 000102 -00107 0625 0625 0625 0375 0375 0375 0000 %0977 k06 007113 000096 000121 0750 0750 0750 0250 0250 0250 0000 %0978 k07 008122 -00004 000376 0875 0875 0875 0125 0125 0125 0000 %0979 k08 009542 -00004 000003 1000 1000 1000 0000 0000 0000 0000 %0980 k09 000000 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0981 l01 001450 000113 -00348 0125 0125 0125 0875 0875 0875 0000 %0982 l02 003123 000099 -00456 0250 0250 0250 0750 0750 0750 0000 %0983 l03 004281 000048 -00375 0375 0375 0375 0625 0625 0625 0000 %0984 l04 005286 000059 -00259 0500 0500 0500 0500 0500 0500 0000 %0985 l05 006188 000106 -00114 0625 0625 0625 0375 0375 0375 0000 %0986 l06 007113 000097 000126 0750 0750 0750 0250 0250 0250 0000 %0987 l07 008122 -00008 000379 0875 0875 0875 0125 0125 0125 0000 %0988 l08 009540 -00004 000003 1000 1000 1000 0000 0000 0000 0000 %0989 l09 000000 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0990 m01 001433 000136 -00374 0125 0125 0125 0875 0875 0875 0000 %0991 m02 003123 000099 -00456 0250 0250 0250 0750 0750 0750 0000 %0992 m03 004281 000030 -00369 0375 0375 0375 0625 0625 0625 0000 %0993 m04 005286 000056 -00260 0500 0500 0500 0500 0500 0500 0000 %0994 m05 006188 000099 -00108 0625 0625 0625 0375 0375 0375 0000 %0995 m06 007113 000097 000126 0750 0750 0750 0250 0250 0250 0000 %0996 m07 008122 000000 000377 0875 0875 0875 0125 0125 0125 0000 %0997 m08 009540 -00009 000007 1000 1000 1000 0000 0000 0000 0000 %0998 m09 000000 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0999 n01 001450 000138 -00322 0125 0125 0125 0875 0875 0875 0000 %1000 n02 003123 000097 -00457 0250 0250 0250 0750 0750 0750 0000 %1001 n03 004281 000036 -00373 0375 0375 0375 0625 0625 0625 0000 %1002 n04 005286 000049 -00262 0500 0500 0500 0500 0500 0500 0000 %1003 n05 006188 000099 -00108 0625 0625 0625 0375 0375 0375 0000 %1004 n06 007115 000101 000123 0750 0750 0750 0250 0250 0250 0000 %1005 n07 008122 -00004 000381 0875 0875 0875 0125 0125 0125 0000 %1006 n08 009540 -00010 000001 1000 1000 1000 0000 0000 0000 0000 %1007 n09 000000 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1008 k10 000217 000072 -00034 0066 0066 0066 0933 0933 0933 0000 %1009 k11 001560 000159 -00400 0133 0133 0133 0866 0866 0866 0000 %1010 k12 002623 000089 -00509 0200 0200 0200 0800 0800 0800 0000 %1011 k13 003275 000090 -00382 0266 0266 0266 0333 0333 0333 0000 %1012 k14 003886 000118 -00408 0333 0333 0333 0666 0666 0666 0000 %1013 k15 004460 000063 -00354 0400 0400 0400 0600 0600 0600 0000 %1014 k16 005026 000042 -00291 0466 0466 0466 0533 0533 0533 0000 %1015 k17 005515 000095 -00276 0533 0533 0533 0466 0466 0466 0000 %1016 k18 006013 000109 -00172 0600 0600 0600 0400 0400 0400 0000 %1017 k19 006508 000097 -00068 0666 0666 0666 0333 0333 0333 0000 %1018 k20 007002 000099 000065 0734 0734 0734 0266 0266 0266 0000 %1019 k21 007526 000077 000224 0800 0800 0800 0200 0200 0200 0000 %1020 k22 008064 000032 000359 0866 0866 0866 0133 0133 0133 0000 %1021 k23 008684 -00035 000563 0933 0933 0933 0066 0066 0066 0000 %1022 k24 009542 -00004 000003 1000 1000 1000 0000 0000 0000 0000 %1023 k25 000000 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1024 l10 000243 000094 -00041 0066 0066 0066 0933 0933 0933 0000 %1025 l11 001575 000175 -00388 0133 0133 0133 0866 0866 0866 0000 %1026 l12 002631 000066 -00487 0200 0200 0200 0800 0800 0800 0000 %1027 l13 003282 000102 -00395 0266 0266 0266 0333 0333 0333 0000 %1028 l14 003896 000087 -00406 0333 0333 0333 0666 0666 0666 0000 %1029 l15 004468 000066 -00359 0400 0400 0400 0600 0600 0600 0000 %1030 l16 005029 000049 -00282 0466 0466 0466 0533 0533 0533 0000 %1031 l17 005524 000095 -00268 0533 0533 0533 0466 0466 0466 0000 %1032 l18 006019 000099 -00168 0600 0600 0600 0400 0400 0400 0000 %1033 l19 006515 000094 -00065 0666 0666 0666 0333 0333 0333 0000 %1034 l20 007008 000107 000064 0734 0734 0734 0266 0266 0266 0000 %1035 l21 007531 000077 000224 0800 0800 0800 0200 0200 0200 0000 %1036 l22 008069 000028 000362 0866 0866 0866 0133 0133 0133 0000 %1037 l23 008687 -00035 000569 0933 0933 0933 0066 0066 0066 0000 %1038 l24 009543 -00004 000009 1000 1000 1000 0000 0000 0000 0000 %1039 l25 000000 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1040 m10 000217 000093 -00040 0066 0066 0066 0933 0933 0933 0000 %1041 m11 001575 000159 -00400 0133 0133 0133 0866 0866 0866 0000 %1042 m12 002623 000063 -00500 0200 0200 0200 0800 0800 0800 0000 %1043 m13 003282 000074 -00385 0266 0266 0266 0333 0333 0333 0000 %1044 m14 003891 000090 -00408 0333 0333 0333 0666 0666 0666 0000 %1045 m15 004460 000062 -00360 0400 0400 0400 0600 0600 0600 0000 %1046 m16 005029 000055 -00287 0466 0466 0466 0533 0533 0533 0000 %1047 m17 005518 000105 -00276 0533 0533 0533 0466 0466 0466 0000 %1048 m18 006013 000102 -00170 0600 0600 0600 0400 0400 0400 0000 %1049 m19 006510 000086 -00064 0666 0666 0666 0333 0333 0333 0000 %1050 m20 007006 000095 000064 0734 0734 0734 0266 0266 0266 0000 %1051 m21 007529 000081 000221 0800 0800 0800 0200 0200 0200 0000 %1052 m22 008067 000033 000359 0866 0866 0866 0133 0133 0133 0000 %1053 m23 008686 -00035 000569 0933 0933 0933 0066 0066 0066 0000 %1054 m24 009543 -00004 000003 1000 1000 1000 0000 0000 0000 0000 %1055 m25 000000 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1056 n10 000243 000105 -00058 0066 0066 0066 0933 0933 0933 0000 %1057 n11 001575 000135 -00405 0133 0133 0133 0866 0866 0866 0000 %1058 n12 002623 000054 -00493 0200 0200 0200 0800 0800 0800 0000 %1059 n13 003275 000110 -00394 0266 0266 0266 0333 0333 0333 0000 %1060 n14 003886 000104 -00412 0333 0333 0333 0666 0666 0666 0000 %1061 n15 004460 000074 -00359 0400 0400 0400 0600 0600 0600 0000 %1062 n16 005022 000052 -00291 0466 0466 0466 0533 0533 0533 0000 %1063 n17 005518 000058 -00248 0533 0533 0533 0466 0466 0466 0000 %1064 n18 006013 000102 -00170 0600 0600 0600 0400 0400 0400 0000 %1065 n19 006510 000094 -00065 0666 0666 0666 0333 0333 0333 0000 %1066 n20 007006 000103 000062 0734 0734 0734 0266 0266 0266 0000 %1067 n21 007527 000081 000221 0800 0800 0800 0200 0200 0200 0000 %1068 n22 008064 000037 000355 0866 0866 0866 0133 0133 0133 0000 %1069 n23 008686 -00035 000563 0933 0933 0933 0066 0066 0066 0000 %1070 n24 009542 -00010 000001 1000 1000 1000 0000 0000 0000 0000 %1071 n25 000000 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1072 k26 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %1073 k27 005019 007672 007929 1000 0000 0000 0000 1000 1000 0000 %1074 l26 008696 -04584 -01416 0000 1000 1000 1000 0000 0000 0000 %1075 l27 009280 -02168 010874 1000 1000 0000 0000 0000 1000 0000 %1076 m26 002939 008022 -10946 0000 0000 1000 1000 1000 0000 0000 %1077 m27 008402 -08375 009574 0000 1000 0000 1000 0000 1000 0000 %1078 n26 005674 009594 -06267 1000 0000 1000 0000 1000 0000 0000 %1079 n27 %$ %z005019 007672 007929 %#1000 0000 0000 0000 1000 1000 0000 %1074 l26 %O3 0 %z009280 -02168 010874 %#1000 1000 0000 0000 0000 1000 0000 %1076 m26 %Y3 1 %z008402 -08375 009574 %#0000 1000 0000 1000 0000 1000 0000 %1078 n26 %L3 2 %z008696 -04584 -01416 %#0000 1000 1000 1000 0000 0000 0000 %1075 l27 %C3 3 %z002939 008022 -10946 %#0000 0000 1000 1000 1000 0000 0000 %1077 m27 %V3 4 %z005674 009594 -06267 %#1000 0000 1000 0000 1000 0000 0000 %1079 n27 %M3 5 %z000000 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %1072 k26 %N3 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %1073 k27 %W3 7 %$ %z000000 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0972 k01 %N4 6 %z009542 -00004 000003 %#1000 1000 1000 0000 0000 0000 0000 %0980 k09 %W4 7 %$ %z000000 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0981 l01 %N5 6 %z009542 -00004 000006 %#1000 1000 1000 0000 0000 0000 0000 %0989 l09 %W5 7 %$ %z000000 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0990 m01 %N6 6 %z009542 -00007 000005 %#1000 1000 1000 0000 0000 0000 0000 %0998 m09 %W6 7 %$ %z000000 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0999 n01 %N7 6 %z009541 -00010 000001 %#1000 1000 1000 0000 0000 0000 0000 %1007 n09 %W7 7 %$ la0_line 4580 ] def %**************************************************************************** /LAB*Fa0100 [ %JE060-7A, Page 23 /66, LAB*la0; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %LAB*la0, D65, adapted, Y = 0.0 , L* = 0.0 %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z005009 007653 007939 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009289 -02164 010868 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z008399 -08361 009599 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z008706 -04625 -01374 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z002939 007977 -10925 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z005662 009566 -06253 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z000000 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009550 -00003 000026 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 005022 007672 007967 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 009282 -02169 010876 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 008388 -08355 009581 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 008721 -04608 -01383 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 002932 008022 -10944 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 005674 009580 -06255 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 000000 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009555 000001 000024 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def } if %xcolor 0, LAB*la0 %************************************************************************* xcolor 1 eq {%xcolor 1, LAB*la1 /FileData (JG08_LECD display 40%_G0) def /LUT [ %ps2ascii output with Ghostsript-programm: macps2pdf, date: 2010-01-04 %input file: JE060-7A.PS, output file: JE060-7AA.TXT (BBEDIT used for TXT) %JE060-7AA.TXT la7_line 11451 %JE060-7A, Page 61 /66, LAB*la7; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %LAB*la7, D65, adapted, Y = 40.32 , L* = 69.69 006966 000001 000000 0000 0000 0000 1000 1000 1000 0000 %0000 A01 006972 000047 -00132 0000 0000 0125 1000 1000 0875 0000 %0001 A02 006984 000171 -00453 0000 0000 0250 1000 1000 0750 0000 %0002 A03 006999 000310 -00794 0000 0000 0375 1000 1000 0625 0000 %0003 A04 007017 000459 -01167 0000 0000 0500 1000 1000 0500 0000 %0004 A05 007038 000631 -01574 0000 0000 0625 1000 1000 0375 0000 %0005 A06 007062 000825 -02020 0000 0000 0750 1000 1000 0250 0000 %0006 A07 007098 001069 -02571 0000 0000 0875 1000 1000 0125 0000 %0007 A08 007195 001623 -03798 0000 0000 1000 1000 1000 0000 0000 %0008 A09 007019 -00112 000080 0000 0125 0000 1000 0875 1000 0000 %0009 B01 007023 -00065 -00052 0000 0125 0125 1000 0875 0875 0000 %0010 B02 007035 000057 -00366 0000 0125 0250 1000 0875 0750 0000 %0011 B03 007051 000201 -00722 0000 0125 0375 1000 0875 0625 0000 %0012 B04 007069 000346 -01096 0000 0125 0500 1000 0875 0500 0000 %0013 B05 007088 000521 -01498 0000 0125 0625 1000 0875 0375 0000 %0014 B06 007114 000715 -01942 0000 0125 0750 1000 0875 0250 0000 %0015 B07 007148 000954 -02487 0000 0125 0875 1000 0875 0125 0000 %0016 B08 007244 001512 -03716 0000 0125 1000 1000 0875 0000 0000 %0017 B09 007152 -00396 000287 0000 0250 0000 1000 0750 1000 0000 %0018 C01 007156 -00348 000157 0000 0250 0125 1000 0750 0875 0000 %0019 C02 007169 -00226 -00164 0000 0250 0250 1000 0750 0750 0000 %0020 C03 007184 -00089 -00508 0000 0250 0375 1000 0750 0625 0000 %0021 C04 007200 000067 -00890 0000 0250 0500 1000 0750 0500 0000 %0022 C05 007220 000236 -01298 0000 0250 0625 1000 0750 0375 0000 %0023 C06 007245 000425 -01736 0000 0250 0750 1000 0750 0250 0000 %0024 C07 007278 000668 -02290 0000 0250 0875 1000 0750 0125 0000 %0025 C08 007370 001223 -03511 0000 0250 1000 1000 0750 0000 0000 %0026 C09 007316 -00742 000540 0000 0375 0000 1000 0625 1000 0000 %0027 D01 007320 -00689 000410 0000 0375 0125 1000 0625 0875 0000 %0028 D02 007332 -00565 000086 0000 0375 0250 1000 0625 0750 0000 %0029 D03 007345 -00435 -00252 0000 0375 0375 1000 0625 0625 0000 %0030 D04 007363 -00278 -00635 0000 0375 0500 1000 0625 0500 0000 %0031 D05 007381 -00110 -01036 0000 0375 0625 1000 0625 0375 0000 %0032 D06 007405 000079 -01482 0000 0375 0750 1000 0625 0250 0000 %0033 D07 007437 000344 -02024 0000 0375 0875 1000 0625 0125 0000 %0034 D08 007526 000866 -03253 0000 0375 1000 1000 0625 0000 0000 %0035 D09 007511 -01132 000839 0000 0500 0000 1000 0500 1000 0000 %0036 E01 007516 -01083 000711 0000 0500 0125 1000 0500 0875 0000 %0037 E02 007527 -00964 000391 0000 0500 0250 1000 0500 0750 0000 %0038 E03 007539 -00832 000048 0000 0500 0375 1000 0500 0625 0000 %0039 E04 007555 -00677 -00332 0000 0500 0500 1000 0500 0500 0000 %0040 E05 007574 -00514 -00734 0000 0500 0625 1000 0500 0375 0000 %0041 E06 007597 -00317 -01182 0000 0500 0750 1000 0500 0250 0000 %0042 E07 007628 -00086 -01727 0000 0500 0875 1000 0500 0125 0000 %0043 E08 007713 000465 -02956 0000 0500 1000 1000 0500 0000 0000 %0044 E09 007731 -01554 001179 0000 0625 0000 1000 0375 1000 0000 %0045 F01 007735 -01507 001047 0000 0625 0125 1000 0375 0875 0000 %0046 F02 007745 -01391 000727 0000 0625 0250 1000 0375 0750 0000 %0047 F03 007757 -01263 000391 0000 0625 0375 1000 0375 0625 0000 %0048 F04 007772 -01108 000005 0000 0625 0500 1000 0375 0500 0000 %0049 F05 007790 -00945 -00394 0000 0625 0625 1000 0375 0375 0000 %0050 F06 007811 -00756 -00839 0000 0625 0750 1000 0375 0250 0000 %0051 F07 007842 -00520 -01390 0000 0625 0875 1000 0375 0125 0000 %0052 F08 007923 000022 -02618 0000 0625 1000 1000 0375 0000 0000 %0053 F09 008002 -02059 001595 0000 0750 0000 1000 0250 1000 0000 %0054 G01 008007 -02013 001467 0000 0750 0125 1000 0250 0875 0000 %0055 G02 008017 -01897 001148 0000 0750 0250 1000 0250 0750 0000 %0056 G03 008028 -01769 000811 0000 0750 0375 1000 0250 0625 0000 %0057 G04 008043 -01618 000429 0000 0750 0500 1000 0250 0500 0000 %0058 G05 008059 -01459 000027 0000 0750 0625 1000 0250 0375 0000 %0059 G06 008079 -01277 -00417 0000 0750 0750 1000 0250 0250 0000 %0060 G07 008107 -01047 -00965 0000 0750 0875 1000 0250 0125 0000 %0061 G08 008185 -00511 -02196 0000 0750 1000 1000 0250 0000 0000 %0062 G09 008360 -02683 002144 0000 0875 0000 1000 0125 1000 0000 %0063 H01 008363 -02636 002017 0000 0875 0125 1000 0125 0875 0000 %0064 H02 008373 -02527 001701 0000 0875 0250 1000 0125 0750 0000 %0065 H03 008384 -02402 001362 0000 0875 0375 1000 0125 0625 0000 %0066 H04 008397 -02258 000983 0000 0875 0500 1000 0125 0500 0000 %0067 H05 008412 -02100 000581 0000 0875 0625 1000 0125 0375 0000 %0068 H06 008431 -01921 000135 0000 0875 0750 1000 0125 0250 0000 %0069 H07 008457 -01696 -00413 0000 0875 0875 1000 0125 0125 0000 %0070 H08 008529 -01174 -01641 0000 0875 1000 1000 0125 0000 0000 %0071 H09 008949 -03632 003051 0000 1000 0000 1000 0000 1000 0000 %0072 I01 008952 -03593 002921 0000 1000 0125 1000 0000 0875 0000 %0073 I02 008961 -03484 002609 0000 1000 0250 1000 0000 0750 0000 %0074 I03 008971 -03370 002273 0000 1000 0375 1000 0000 0625 0000 %0075 I04 008983 -03229 001894 0000 1000 0500 1000 0000 0500 0000 %0076 I05 008997 -03084 001493 0000 1000 0625 1000 0000 0375 0000 %0077 I06 009013 -02916 001048 0000 1000 0750 1000 0000 0250 0000 %0078 I07 009037 -02700 000503 0000 1000 0875 1000 0000 0125 0000 %0079 I08 009102 -02206 -00720 0000 1000 1000 1000 0000 0000 0000 %0080 I09 006982 000073 000026 0125 0000 0000 0875 1000 1000 0000 %0081 J01 006986 000118 -00101 0125 0000 0125 0875 1000 0875 0000 %0082 J02 007000 000240 -00419 0125 0000 0250 0875 1000 0750 0000 %0083 J03 007014 000372 -00757 0125 0000 0375 0875 1000 0625 0000 %0084 J04 007032 000527 -01137 0125 0000 0500 0875 1000 0500 0000 %0085 J05 007053 000704 -01550 0125 0000 0625 0875 1000 0375 0000 %0086 J06 007077 000884 -01983 0125 0000 0750 0875 1000 0250 0000 %0087 J07 007114 001132 -02542 0125 0000 0875 0875 1000 0125 0000 %0088 J08 007210 001681 -03766 0125 0000 1000 0875 1000 0000 0000 %0089 J09 007033 -00040 000107 0125 0125 0000 0875 0875 1000 0000 %0090 K01 007039 000007 -00024 0125 0125 0125 0875 0875 0875 0000 %0091 K02 007051 000128 -00342 0125 0125 0250 0875 0875 0750 0000 %0092 K03 007065 000263 -00681 0125 0125 0375 0875 0875 0625 0000 %0093 K04 007083 000417 -01062 0125 0125 0500 0875 0875 0500 0000 %0094 K05 007104 000593 -01470 0125 0125 0625 0875 0875 0375 0000 %0095 K06 007128 000770 -01899 0125 0125 0750 0875 0875 0250 0000 %0096 K07 007163 001019 -02466 0125 0125 0875 0875 0875 0125 0000 %0097 K08 007258 001567 -03688 0125 0125 1000 0875 0875 0000 0000 %0098 K09 007166 -00323 000310 0125 0250 0000 0875 0750 1000 0000 %0099 L01 007171 -00780 000024 0125 0250 0125 0875 0750 0875 0000 %0100 L02 007183 -00157 -00136 0125 0250 0250 0875 0750 0750 0000 %0101 L03 007198 -00023 -00476 0125 0250 0375 0875 0750 0625 0000 %0102 L04 007215 000133 -00858 0125 0250 0500 0875 0750 0500 0000 %0103 L05 007235 000301 -01264 0125 0250 0625 0875 0750 0375 0000 %0104 L06 007259 000487 -01711 0125 0250 0750 0875 0750 0250 0000 %0105 L07 007292 000729 -02254 0125 0250 0875 0875 0750 0125 0000 %0106 L08 007384 001283 -03484 0125 0250 1000 0875 0750 0000 0000 %0107 L09 007330 -00669 000561 0125 0375 0000 0875 0625 1000 0000 %0108 M01 007335 -00623 000433 0125 0375 0125 0875 0625 0875 0000 %0109 M02 007347 -00501 000116 0125 0375 0250 0875 0625 0750 0000 %0110 M03 007361 -00365 -00222 0125 0375 0375 0875 0625 0625 0000 %0111 M04 007377 -00211 -00606 0125 0375 0500 0875 0625 0500 0000 %0112 M05 007395 -00043 -01008 0125 0375 0625 0875 0625 0375 0000 %0113 M06 007419 000143 -01455 0125 0375 0750 0875 0625 0250 0000 %0114 M07 007449 000377 -01995 0125 0375 0875 0875 0625 0125 0000 %0115 M08 007540 000934 -03237 0125 0375 1000 0875 0625 0000 0000 %0116 M09 007526 -01061 000863 0125 0500 0000 0875 0500 1000 0000 %0117 N01 007531 -01015 000734 0125 0500 0125 0875 0500 0875 0000 %0118 N02 007541 -00895 000416 0125 0500 0250 0875 0500 0750 0000 %0119 N03 007554 -00764 000077 0125 0500 0375 0875 0500 0625 0000 %0120 N04 007571 -00612 -00302 0125 0500 0500 0875 0500 0500 0000 %0121 N05 007588 -00446 -00702 0125 0500 0625 0875 0500 0375 0000 %0122 N06 007631 -00268 -01180 0125 0500 0750 0875 0500 0250 0000 %0123 N07 007642 -00024 -01699 0125 0500 0875 0875 0500 0125 0000 %0124 N08 007728 000525 -02934 0125 0500 1000 0875 0500 0000 0000 %0125 N09 007745 -01487 001199 0125 0625 0000 0875 0375 1000 0000 %0126 O01 007749 -01439 001073 0125 0625 0125 0875 0375 0875 0000 %0127 O02 007760 -01322 000756 0125 0625 0250 0875 0375 0750 0000 %0128 O03 007773 -01185 000405 0125 0625 0375 0875 0375 0625 0000 %0129 O04 007787 -01043 000036 0125 0625 0500 0875 0375 0500 0000 %0130 O05 007804 -00883 -00364 0125 0625 0625 0875 0375 0375 0000 %0131 O06 007827 -00695 -00814 0125 0625 0750 0875 0375 0250 0000 %0132 O07 007856 -00463 -01360 0125 0625 0875 0875 0375 0125 0000 %0133 O08 007938 000079 -02595 0125 0625 1000 0875 0375 0000 0000 %0134 O09 008018 -01994 001620 0125 0750 0000 0875 0250 1000 0000 %0135 P01 008021 -01945 001491 0125 0750 0125 0875 0250 0875 0000 %0136 P02 008031 -01830 001174 0125 0750 0250 0875 0250 0750 0000 %0137 P03 008043 -01707 000837 0125 0750 0375 0875 0250 0625 0000 %0138 P04 008058 -01556 000457 0125 0750 0500 0875 0250 0500 0000 %0139 P05 008074 -01399 000055 0125 0750 0625 0875 0250 0375 0000 %0140 P06 008094 -01215 -00392 0125 0750 0750 0875 0250 0250 0000 %0141 P07 008122 -00988 -00940 0125 0750 0875 0875 0250 0125 0000 %0142 P08 008199 -00455 -02169 0125 0750 1000 0875 0250 0000 0000 %0143 P09 008374 -02619 002165 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 008378 -02570 002040 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 008386 -02462 001724 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 008397 -02339 001387 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 008411 -02198 001008 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 008426 -02041 000607 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 008445 -01861 000161 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 008471 -01636 -00387 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 008543 -01121 -01619 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 008958 -03567 003064 0125 1000 0000 0875 0000 1000 0000 %0153 R01 008962 -03524 002938 0125 1000 0125 0875 0000 0875 0000 %0154 R02 008970 -03417 002624 0125 1000 0250 0875 0000 0750 0000 %0155 R03 009738 -04331 003061 0125 1000 0375 0875 0000 0625 0000 %0156 R04 008991 -03168 001909 0125 1000 0500 0875 0000 0500 0000 %0157 R05 009005 -03020 001510 0125 1000 0625 0875 0000 0375 0000 %0158 R06 009022 -02851 001064 0125 1000 0750 0875 0000 0250 0000 %0159 R07 009046 -02640 000518 0125 1000 0875 0875 0000 0125 0000 %0160 R08 009110 -02142 -00707 0125 1000 1000 0875 0000 0000 0000 %0161 R09 007022 000238 000093 0250 0000 0000 0750 1000 1000 0000 %0162 S01 007028 000290 -00039 0250 0000 0125 0750 1000 0875 0000 %0163 S02 007040 000410 -00352 0250 0000 0250 0750 1000 0750 0000 %0164 S03 007055 000542 -00693 0250 0000 0375 0750 1000 0625 0000 %0165 S04 007072 000693 -01069 0250 0000 0500 0750 1000 0500 0000 %0166 S05 007092 000854 -01468 0250 0000 0625 0750 1000 0375 0000 %0167 S06 007118 001048 -01926 0250 0000 0750 0750 1000 0250 0000 %0168 S07 007153 001282 -02473 0250 0000 0875 0750 1000 0125 0000 %0169 S08 007248 001824 -03702 0250 0000 1000 0750 1000 0000 0000 %0170 S09 007073 000133 000171 0250 0125 0000 0750 0875 1000 0000 %0171 T01 007079 000179 000043 0250 0125 0125 0750 0875 0875 0000 %0172 T02 007091 000296 -00274 0250 0125 0250 0750 0875 0750 0000 %0173 T03 007106 000433 -00617 0250 0125 0375 0750 0875 0625 0000 %0174 T04 007123 000585 -01000 0250 0125 0500 0750 0875 0500 0000 %0175 T05 007143 000744 -01395 0250 0125 0625 0750 0875 0375 0000 %0176 T06 007167 000930 -01835 0250 0125 0750 0750 0875 0250 0000 %0177 T07 007202 001174 -02401 0250 0125 0875 0750 0875 0125 0000 %0178 T08 007296 001712 -03624 0250 0125 1000 0750 0875 0000 0000 %0179 T09 007205 -00154 000377 0250 0250 0000 0750 0750 1000 0000 %0180 U01 007210 -00106 000245 0250 0250 0125 0750 0750 0875 0000 %0181 U02 007222 000011 -00071 0250 0250 0250 0750 0750 0750 0000 %0182 U03 007236 000144 -00411 0250 0250 0375 0750 0750 0625 0000 %0183 U04 007253 000295 -00793 0250 0250 0500 0750 0750 0500 0000 %0184 U05 007273 000459 -01195 0250 0250 0625 0750 0750 0375 0000 %0185 U06 007296 000643 -01637 0250 0250 0750 0750 0750 0250 0000 %0186 U07 007331 000881 -02188 0250 0250 0875 0750 0750 0125 0000 %0187 U08 007422 001423 -03420 0250 0250 1000 0750 0750 0000 0000 %0188 U09 007368 000211 000751 0250 0375 0000 0750 0625 1000 0000 %0189 V01 007373 -00449 000496 0250 0375 0125 0750 0625 0875 0000 %0190 V02 007384 -00327 000177 0250 0375 0250 0750 0625 0750 0000 %0191 V03 007398 -00199 -00162 0250 0375 0375 0750 0625 0625 0000 %0192 V04 007414 -00048 -00544 0250 0375 0500 0750 0625 0500 0000 %0193 V05 007433 000115 -00944 0250 0375 0625 0750 0625 0375 0000 %0194 V06 007456 000299 -01392 0250 0375 0750 0750 0625 0250 0000 %0195 V07 007489 000533 -01940 0250 0375 0875 0750 0625 0125 0000 %0196 V08 007577 001076 -03170 0250 0375 1000 0750 0625 0000 0000 %0197 V09 007562 -00891 000925 0250 0500 0000 0750 0500 1000 0000 %0198 W01 007567 -00845 000797 0250 0500 0125 0750 0500 0875 0000 %0199 W02 007578 -00727 000478 0250 0500 0250 0750 0500 0750 0000 %0200 W03 007591 -00598 000140 0250 0500 0375 0750 0500 0625 0000 %0201 W04 007607 -00452 -00241 0250 0500 0500 0750 0500 0500 0000 %0202 W05 007625 -00286 -00643 0250 0500 0625 0750 0500 0375 0000 %0203 W06 007647 -00105 -01091 0250 0500 0750 0750 0500 0250 0000 %0204 W07 007678 000129 -01639 0250 0500 0875 0750 0500 0125 0000 %0205 W08 007846 000722 -03095 0250 0500 1000 0750 0500 0000 0000 %0206 W09 007780 -01324 001260 0250 0625 0000 0750 0375 1000 0000 %0207 X01 007785 -01271 001130 0250 0625 0125 0750 0375 0875 0000 %0208 X02 007796 -01156 000814 0250 0625 0250 0750 0375 0750 0000 %0209 X03 007808 -01031 000476 0250 0625 0375 0750 0375 0625 0000 %0210 X04 007823 -00882 000091 0250 0625 0500 0750 0375 0500 0000 %0211 X05 007841 -00722 -00308 0250 0625 0625 0750 0375 0375 0000 %0212 X06 007861 -00544 -00755 0250 0625 0750 0750 0375 0250 0000 %0213 X07 007891 -00311 -01304 0250 0625 0875 0750 0375 0125 0000 %0214 X08 007972 000219 -02533 0250 0625 1000 0750 0375 0000 0000 %0215 X09 008051 -01827 001674 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 008055 -01782 001546 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 008066 -01666 001232 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 008076 -01541 000891 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 008090 -01398 000510 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 008107 -01240 000111 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 008126 -01062 -00334 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 008155 -00840 -00885 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 008232 -00313 -02117 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 008405 -02452 002218 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 008409 -02409 002090 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 008417 -02300 001774 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 008428 -02179 001438 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 008442 -02035 001060 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 008456 -01889 000658 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 008475 -01708 000210 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 008501 -01495 -00333 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 008574 -00981 -01567 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 008983 -03406 003106 0250 1000 0000 0750 0000 1000 0000 %0234 a01 008987 -03365 002981 0250 1000 0125 0750 0000 0875 0000 %0235 a02 008996 -03262 002667 0250 1000 0250 0750 0000 0750 0000 %0236 a03 009005 -03148 002331 0250 1000 0375 0750 0000 0625 0000 %0237 a04 009016 -03010 001954 0250 1000 0500 0750 0000 0500 0000 %0238 a05 009030 -02868 001552 0250 1000 0625 0750 0000 0375 0000 %0239 a06 009048 -02700 001107 0250 1000 0750 0750 0000 0250 0000 %0240 a07 009071 -02493 000559 0250 1000 0875 0750 0000 0125 0000 %0241 a08 009136 -02000 -00665 0250 1000 1000 0750 0000 0000 0000 %0242 a09 %JE060-7A, Page 62 /66, LAB*la7; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted 007072 000453 000175 0375 0000 0000 0625 1000 1000 0000 %0243 A10 007077 000502 000047 0375 0000 0125 0625 1000 0875 0000 %0244 A11 007091 000619 -00268 0375 0000 0250 0625 1000 0750 0000 %0245 A12 007105 000749 -00605 0375 0000 0375 0625 1000 0625 0000 %0246 A13 007122 000895 -00984 0375 0000 0500 0625 1000 0500 0000 %0247 A14 007142 001050 -01376 0375 0000 0625 0625 1000 0375 0000 %0248 A15 007167 001240 -01831 0375 0000 0750 0625 1000 0250 0000 %0249 A16 007201 001468 -02378 0375 0000 0875 0625 1000 0125 0000 %0250 A17 007296 001999 -03614 0375 0000 1000 0625 1000 0000 0000 %0251 A18 007122 000343 000254 0375 0125 0000 0625 0875 1000 0000 %0252 B10 007128 000391 000124 0375 0125 0125 0625 0875 0875 0000 %0253 B11 007141 000510 -00192 0375 0125 0250 0625 0875 0750 0000 %0254 B12 007155 000636 -00528 0375 0125 0375 0625 0875 0625 0000 %0255 B13 007173 000785 -00910 0375 0125 0500 0625 0875 0500 0000 %0256 B14 007192 000947 -01311 0375 0125 0625 0625 0875 0375 0000 %0257 B15 007238 001208 -01874 0375 0125 0750 0625 0875 0250 0000 %0258 B16 007251 001355 -02305 0375 0125 0875 0625 0875 0125 0000 %0259 B17 007345 001891 -03541 0375 0125 1000 0625 0875 0000 0000 %0260 B18 007253 000060 000455 0375 0250 0000 0625 0750 1000 0000 %0261 C10 007258 000107 000326 0375 0250 0125 0625 0750 0875 0000 %0262 C11 007271 000223 000008 0375 0250 0250 0625 0750 0750 0000 %0263 C12 007286 000354 -00333 0375 0250 0375 0625 0750 0625 0000 %0264 C13 007301 000502 -00712 0375 0250 0500 0625 0750 0500 0000 %0265 C14 007321 000658 -01112 0375 0250 0625 0625 0750 0375 0000 %0266 C15 007345 000845 -01561 0375 0250 0750 0625 0750 0250 0000 %0267 C16 007378 001072 -02109 0375 0250 0875 0625 0750 0125 0000 %0268 C17 007470 001607 -03345 0375 0250 1000 0625 0750 0000 0000 %0269 C18 007415 -00286 000703 0375 0375 0000 0625 0625 1000 0000 %0270 D10 007420 -00231 000573 0375 0375 0125 0625 0625 0875 0000 %0271 D11 007431 -00119 000256 0375 0375 0250 0625 0625 0750 0000 %0272 D12 007444 000003 -00081 0375 0375 0375 0625 0625 0625 0000 %0273 D13 007462 000156 -00466 0375 0375 0500 0625 0625 0500 0000 %0274 D14 007481 000317 -00868 0375 0375 0625 0625 0625 0375 0000 %0275 D15 007503 000496 -01315 0375 0375 0750 0625 0625 0250 0000 %0276 D16 007535 000724 -01864 0375 0375 0875 0625 0625 0125 0000 %0277 D17 007623 001250 -03092 0375 0375 1000 0625 0625 0000 0000 %0278 D18 007607 -00679 000998 0375 0500 0000 0625 0500 1000 0000 %0279 E10 007612 -00631 000869 0375 0500 0125 0625 0500 0875 0000 %0280 E11 007624 -00518 000552 0375 0500 0250 0625 0500 0750 0000 %0281 E12 007637 -00148 000301 0375 0500 0375 0625 0500 0625 0000 %0282 E13 007652 -00245 -00168 0375 0500 0500 0625 0500 0500 0000 %0283 E14 007670 -00089 -00568 0375 0500 0625 0625 0500 0375 0000 %0284 E15 007693 000095 -01019 0375 0500 0750 0625 0500 0250 0000 %0285 E16 007723 000316 -01568 0375 0500 0875 0625 0500 0125 0000 %0286 E17 007807 000843 -02797 0375 0500 1000 0625 0500 0000 0000 %0287 E18 007823 -01109 001327 0375 0625 0000 0625 0375 1000 0000 %0288 F10 007828 -01061 001201 0375 0625 0125 0625 0375 0875 0000 %0289 F11 007839 -00948 000884 0375 0625 0250 0625 0375 0750 0000 %0290 F12 007852 -00823 000548 0375 0625 0375 0625 0375 0625 0000 %0291 F13 007866 -00677 000164 0375 0625 0500 0625 0375 0500 0000 %0292 F14 007883 -00527 -00235 0375 0625 0625 0625 0375 0375 0000 %0293 F15 007904 -00345 -00683 0375 0625 0750 0625 0375 0250 0000 %0294 F16 007934 -00122 -01232 0375 0625 0875 0625 0375 0125 0000 %0295 F17 008014 000403 -02466 0375 0625 1000 0625 0375 0000 0000 %0296 F18 008091 -01617 001739 0375 0750 0000 0625 0250 1000 0000 %0297 G10 008096 -01574 001612 0375 0750 0125 0625 0250 0875 0000 %0298 G11 008106 -01461 001297 0375 0750 0250 0625 0250 0750 0000 %0299 G12 008118 -01338 000958 0375 0750 0375 0625 0250 0625 0000 %0300 G13 008132 -01196 000578 0375 0750 0500 0625 0250 0500 0000 %0301 G14 008147 -01044 000178 0375 0750 0625 0625 0250 0375 0000 %0302 G15 008168 -00865 -00268 0375 0750 0750 0625 0250 0250 0000 %0303 G16 008196 -00644 -00819 0375 0750 0875 0625 0250 0125 0000 %0304 G17 008272 -00132 -02050 0375 0750 1000 0625 0250 0000 0000 %0305 G18 008442 -02250 002278 0375 0875 0000 0625 0125 1000 0000 %0306 H10 008447 -02204 002152 0375 0875 0125 0625 0125 0875 0000 %0307 H11 008456 -02093 001837 0375 0875 0250 0625 0125 0750 0000 %0308 H12 008466 -01976 001499 0375 0875 0375 0625 0125 0625 0000 %0309 H13 008480 -01841 001121 0375 0875 0500 0625 0125 0500 0000 %0310 H14 008495 -01690 000720 0375 0875 0625 0625 0125 0375 0000 %0311 H15 008513 -01521 000274 0375 0875 0750 0625 0125 0250 0000 %0312 H16 008540 -01306 -00274 0375 0875 0875 0625 0125 0125 0000 %0313 H17 008611 -00799 -01506 0375 0875 1000 0625 0125 0000 0000 %0314 H18 009016 -03214 003158 0375 1000 0000 0625 0000 1000 0000 %0315 I10 009019 -03168 003031 0375 1000 0125 0625 0000 0875 0000 %0316 I11 009028 -03063 002720 0375 1000 0250 0625 0000 0750 0000 %0317 I12 009038 -02951 002386 0375 1000 0375 0625 0000 0625 0000 %0318 I13 009050 -02818 002006 0375 1000 0500 0625 0000 0500 0000 %0319 I14 009064 -02678 001606 0375 1000 0625 0625 0000 0375 0000 %0320 I15 009081 -02513 001161 0375 1000 0750 0625 0000 0250 0000 %0321 I16 009104 -02308 000614 0375 1000 0875 0625 0000 0125 0000 %0322 I17 009169 -01829 -00612 0375 1000 1000 0625 0000 0000 0000 %0323 I18 007138 000727 000283 0500 0000 0000 0500 1000 1000 0000 %0324 J10 007144 000781 000156 0500 0000 0125 0500 1000 0875 0000 %0325 J11 007156 000880 -00157 0500 0000 0250 0500 1000 0750 0000 %0326 J12 007171 001019 -00501 0500 0000 0375 0500 1000 0625 0000 %0327 J13 007188 001162 -00881 0500 0000 0500 0500 1000 0500 0000 %0328 J14 007206 001303 -01266 0500 0000 0625 0500 1000 0375 0000 %0329 J15 007232 001488 -01723 0500 0000 0750 0500 1000 0250 0000 %0330 J16 007266 001685 -02252 0500 0000 0875 0500 1000 0125 0000 %0331 J17 007361 002223 -03504 0500 0000 1000 0500 1000 0000 0000 %0332 J18 007187 000612 000361 0500 0125 0000 0500 0875 1000 0000 %0333 K10 007192 000665 000231 0500 0125 0125 0500 0875 0875 0000 %0334 K11 007205 000778 -00085 0500 0125 0250 0500 0875 0750 0000 %0335 K12 007220 000901 -00421 0500 0125 0375 0500 0875 0625 0000 %0336 K13 007237 001045 -00804 0500 0125 0500 0500 0875 0500 0000 %0337 K14 007256 001197 -01199 0500 0125 0625 0500 0875 0375 0000 %0338 K15 007280 001372 -01647 0500 0125 0750 0500 0875 0250 0000 %0339 K16 007315 001599 -02202 0500 0125 0875 0500 0875 0125 0000 %0340 K17 007408 002119 -03435 0500 0125 1000 0500 0875 0000 0000 %0341 K18 007316 000330 000558 0500 0250 0000 0500 0750 1000 0000 %0342 L10 007322 000381 000430 0500 0250 0125 0500 0750 0875 0000 %0343 L11 007334 000490 000113 0500 0250 0250 0500 0750 0750 0000 %0344 L12 007348 000616 -00226 0500 0250 0375 0500 0750 0625 0000 %0345 L13 007365 000760 -00609 0500 0250 0500 0500 0750 0500 0000 %0346 L14 007384 000912 -01009 0500 0250 0625 0500 0750 0375 0000 %0347 L15 007408 001091 -01457 0500 0250 0750 0500 0750 0250 0000 %0348 L16 007440 001313 -02006 0500 0250 0875 0500 0750 0125 0000 %0349 L17 007531 001830 -03238 0500 0250 1000 0500 0750 0000 0000 %0350 L18 007475 -00015 000802 0500 0375 0000 0500 0625 1000 0000 %0351 M10 007481 000036 000673 0500 0375 0125 0500 0625 0875 0000 %0352 M11 007493 000146 000357 0500 0375 0250 0500 0625 0750 0000 %0353 M12 007506 000272 000017 0500 0375 0375 0500 0625 0625 0000 %0354 M13 007523 000417 -00362 0500 0375 0500 0500 0625 0500 0000 %0355 M14 007540 000572 -00765 0500 0375 0625 0500 0625 0375 0000 %0356 M15 007563 000746 -01216 0500 0375 0750 0500 0625 0250 0000 %0357 M16 007595 000964 -01757 0500 0375 0875 0500 0625 0125 0000 %0358 M17 007682 001479 -02990 0500 0375 1000 0500 0625 0000 0000 %0359 M18 007666 -00410 001094 0500 0500 0000 0500 0500 1000 0000 %0360 N10 007670 -00360 000964 0500 0500 0125 0500 0500 0875 0000 %0361 N11 007682 -00250 000649 0500 0500 0250 0500 0500 0750 0000 %0362 N12 007695 -00126 000309 0500 0500 0375 0500 0500 0625 0000 %0363 N13 007711 000016 -00069 0500 0500 0500 0500 0500 0500 0000 %0364 N14 007728 000168 -00473 0500 0500 0625 0500 0500 0375 0000 %0365 N15 007750 000341 -00919 0500 0500 0750 0500 0500 0250 0000 %0366 N16 007780 000563 -01470 0500 0500 0875 0500 0500 0125 0000 %0367 N17 007865 001075 -02704 0500 0500 1000 0500 0500 0000 0000 %0368 N18 007880 -00840 001421 0500 0625 0000 0500 0375 1000 0000 %0369 O10 007883 -00793 001291 0500 0625 0125 0500 0375 0875 0000 %0370 O11 007894 -00682 000976 0500 0625 0250 0500 0375 0750 0000 %0371 O12 007907 -00560 000638 0500 0625 0375 0500 0375 0625 0000 %0372 O13 007922 -00421 000258 0500 0625 0500 0500 0375 0500 0000 %0373 O14 007938 -00267 -00144 0500 0625 0625 0500 0375 0375 0000 %0374 O15 007959 -00093 -00592 0500 0625 0750 0500 0375 0250 0000 %0375 O16 007988 000121 -01143 0500 0625 0875 0500 0375 0125 0000 %0376 O17 008068 000632 -02374 0500 0625 1000 0500 0375 0000 0000 %0377 O18 008143 -01352 001823 0500 0750 0000 0500 0250 1000 0000 %0378 P10 008148 -01304 001698 0500 0750 0125 0500 0250 0875 0000 %0379 P11 008159 -01197 001385 0500 0750 0250 0500 0250 0750 0000 %0380 P12 008170 -01078 001046 0500 0750 0375 0500 0250 0625 0000 %0381 P13 008183 -00937 000666 0500 0750 0500 0500 0250 0500 0000 %0382 P14 008200 -00791 000264 0500 0750 0625 0500 0250 0375 0000 %0383 P15 008219 -00620 -00183 0500 0750 0750 0500 0250 0250 0000 %0384 P16 008247 -00404 -00731 0500 0750 0875 0500 0250 0125 0000 %0385 P17 008323 000095 -01965 0500 0750 1000 0500 0250 0000 0000 %0386 P18 008490 -01989 002354 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 008494 -01944 002230 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 008504 -01836 001916 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 008514 -01719 001581 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 008527 -01583 001201 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 008542 -01440 000802 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 008561 -01275 000355 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 008586 -01063 -00192 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 008658 -00569 -01429 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 009057 -02955 003224 0500 1000 0000 0500 0000 1000 0000 %0396 R10 009062 -02915 003100 0500 1000 0125 0500 0000 0875 0000 %0397 R11 009070 -02812 002789 0500 1000 0250 0500 0000 0750 0000 %0398 R12 009079 -02699 002455 0500 1000 0375 0500 0000 0625 0000 %0399 R13 009091 -02572 002074 0500 1000 0500 0500 0000 0500 0000 %0400 R14 009105 -02433 001677 0500 1000 0625 0500 0000 0375 0000 %0401 R15 009121 -02277 001231 0500 1000 0750 0500 0000 0250 0000 %0402 R16 009144 -02072 000684 0500 1000 0875 0500 0000 0125 0000 %0403 R17 009209 -01599 -00542 0500 1000 1000 0500 0000 0000 0000 %0404 R18 007216 001041 000414 0625 0000 0000 0375 1000 1000 0000 %0405 S10 007221 001083 000287 0625 0000 0125 0375 1000 0875 0000 %0406 S11 007235 001198 -00027 0625 0000 0250 0375 1000 0750 0000 %0407 S12 007249 001317 -00362 0625 0000 0375 0375 1000 0625 0000 %0408 S13 007266 001454 -00741 0625 0000 0500 0375 1000 0500 0000 %0409 S14 007286 001607 -01142 0625 0000 0625 0375 1000 0375 0000 %0410 S15 007309 001768 -01582 0625 0000 0750 0375 1000 0250 0000 %0411 S16 007343 001988 -02138 0625 0000 0875 0375 1000 0125 0000 %0412 S17 007436 002493 -03385 0625 0000 1000 0375 1000 0000 0000 %0413 S18 007264 000928 000487 0625 0125 0000 0375 0875 1000 0000 %0414 T10 007270 000978 000361 0625 0125 0125 0375 0875 0875 0000 %0415 T11 007283 001092 000045 0625 0125 0250 0375 0875 0750 0000 %0416 T12 007296 001204 -00290 0625 0125 0375 0375 0875 0625 0000 %0417 T13 007314 001345 -00671 0625 0125 0500 0375 0875 0500 0000 %0418 T14 007334 001503 -01076 0625 0125 0625 0375 0875 0375 0000 %0419 T15 007357 001665 -01518 0625 0125 0750 0375 0875 0250 0000 %0420 T16 007390 001882 -02072 0625 0125 0875 0375 0875 0125 0000 %0421 T17 007483 002387 -03317 0625 0125 1000 0375 0875 0000 0000 %0422 T18 007389 000648 000680 0625 0250 0000 0375 0750 1000 0000 %0423 U10 007395 000695 000555 0625 0250 0125 0375 0750 0875 0000 %0424 U11 007408 000799 000240 0625 0250 0250 0375 0750 0750 0000 %0425 U12 007422 000924 -00098 0625 0250 0375 0375 0750 0625 0000 %0426 U13 007438 001065 -00479 0625 0250 0500 0375 0750 0500 0000 %0427 U14 007457 001211 -00881 0625 0250 0625 0375 0750 0375 0000 %0428 U15 007481 001381 -01328 0625 0250 0750 0375 0750 0250 0000 %0429 U16 007513 001596 -01881 0625 0250 0875 0375 0750 0125 0000 %0430 U17 007602 002094 -03113 0625 0250 1000 0375 0750 0000 0000 %0431 U18 007545 000305 000919 0625 0375 0000 0375 0625 1000 0000 %0432 V10 007551 000356 000792 0625 0375 0125 0375 0625 0875 0000 %0433 V11 007563 000466 000478 0625 0375 0250 0375 0625 0750 0000 %0434 V12 007577 000580 000141 0625 0375 0375 0375 0625 0625 0000 %0435 V13 007592 000721 -00242 0625 0375 0500 0375 0625 0500 0000 %0436 V14 007610 000868 -00643 0625 0375 0625 0375 0625 0375 0000 %0437 V15 007634 001040 -01093 0625 0375 0750 0375 0625 0250 0000 %0438 V16 007664 001250 -01640 0625 0375 0875 0375 0625 0125 0000 %0439 V17 007751 001751 -02877 0625 0375 1000 0375 0625 0000 0000 %0440 V18 007733 -00089 001206 0625 0500 0000 0375 0500 1000 0000 %0441 W10 007737 -00039 001078 0625 0500 0125 0375 0500 0875 0000 %0442 W11 007749 000066 000763 0625 0500 0250 0375 0500 0750 0000 %0443 W12 007761 000188 000426 0625 0500 0375 0375 0500 0625 0000 %0444 W13 007777 000321 000045 0625 0500 0500 0375 0500 0500 0000 %0445 W14 007795 000470 -00354 0625 0500 0625 0375 0500 0375 0000 %0446 W15 007816 000633 -00803 0625 0500 0750 0375 0500 0250 0000 %0447 W16 007846 000848 -01354 0625 0500 0875 0375 0500 0125 0000 %0448 W17 007929 001346 -02589 0625 0500 1000 0375 0500 0000 0000 %0449 W18 007942 -00523 001524 0625 0625 0000 0375 0375 1000 0000 %0450 X10 007947 -00478 001399 0625 0625 0125 0375 0375 0875 0000 %0451 X11 007958 -00365 001086 0625 0625 0250 0375 0375 0750 0000 %0452 X12 007970 -00247 000747 0625 0625 0375 0375 0375 0625 0000 %0453 X13 007985 -00113 000368 0625 0625 0500 0375 0375 0500 0000 %0454 X14 008001 000034 -00032 0625 0625 0625 0375 0375 0375 0000 %0455 X15 008022 000200 -00481 0625 0625 0750 0375 0375 0250 0000 %0456 X16 008051 000412 -01031 0625 0625 0875 0375 0375 0125 0000 %0457 X17 008130 000906 -02270 0625 0625 1000 0375 0375 0000 0000 %0458 X18 008203 -01033 001923 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 008208 -00991 001800 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 008219 -00882 001487 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 008230 -00771 001150 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 008243 -00634 000771 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 008260 -00493 000369 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 008279 -00326 -00075 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 008307 -00116 -00628 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 008382 000369 -01861 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 008546 -01677 002448 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 008550 -01631 002324 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 008560 -01527 002011 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 008571 -01415 001677 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 008584 -01278 001295 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 008599 -01143 000900 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 008618 -00982 000455 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 008643 -00778 -00096 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 008714 -00301 -01332 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 009108 -02656 003307 0625 1000 0000 0375 0000 1000 0000 %0477 a10 009111 -02612 003183 0625 1000 0125 0375 0000 0875 0000 %0478 a11 009120 -02512 002872 0625 1000 0250 0375 0000 0750 0000 %0479 a12 009130 -02406 002541 0625 1000 0375 0375 0000 0625 0000 %0480 a13 009141 -02283 002162 0625 1000 0500 0375 0000 0500 0000 %0481 a14 009155 -02146 001764 0625 1000 0625 0375 0000 0375 0000 %0482 a15 009171 -01992 001317 0625 1000 0750 0375 0000 0250 0000 %0483 a16 009194 -01794 000768 0625 1000 0875 0375 0000 0125 0000 %0484 a17 009258 -01335 -00459 0625 1000 1000 0375 0000 0000 0000 %0485 a18 %JE060-7A, Page 63 /66, LAB*la7; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted 007315 001431 000579 0750 0000 0000 0250 1000 1000 0000 %0486 A19 007322 001482 000456 0750 0000 0125 0250 1000 0875 0000 %0487 A20 007335 001585 000141 0750 0000 0250 0250 1000 0750 0000 %0488 A21 007348 001696 -00191 0750 0000 0375 0250 1000 0625 0000 %0489 A22 007365 001828 -00572 0750 0000 0500 0250 1000 0500 0000 %0490 A23 007384 001968 -00971 0750 0000 0625 0250 1000 0375 0000 %0491 A24 007407 002131 -01419 0750 0000 0750 0250 1000 0250 0000 %0492 A25 007440 002334 -01970 0750 0000 0875 0250 1000 0125 0000 %0493 A26 007532 002812 -03216 0750 0000 1000 0250 1000 0000 0000 %0494 A27 007363 001323 000652 0750 0125 0000 0250 0875 1000 0000 %0495 B19 007369 001371 000527 0750 0125 0125 0250 0875 0875 0000 %0496 B20 007381 001471 000214 0750 0125 0250 0250 0875 0750 0000 %0497 B21 007394 001660 -00096 0750 0125 0375 0250 0875 0625 0000 %0498 B22 007410 001718 -00505 0750 0125 0500 0250 0875 0500 0000 %0499 B23 007430 001864 -00906 0750 0125 0625 0250 0875 0375 0000 %0500 B24 007453 002026 -01355 0750 0125 0750 0250 0875 0250 0000 %0501 B25 007487 002229 -01904 0750 0125 0875 0250 0875 0125 0000 %0502 B26 007577 002708 -03150 0750 0125 1000 0250 0875 0000 0000 %0503 B27 007486 001044 000839 0750 0250 0000 0250 0750 1000 0000 %0504 C19 007492 001088 000714 0750 0250 0125 0250 0750 0875 0000 %0505 C20 007504 001191 000399 0750 0250 0250 0250 0750 0750 0000 %0506 C21 007517 001309 000061 0750 0250 0375 0250 0750 0625 0000 %0507 C22 007534 001438 -00316 0750 0250 0500 0250 0750 0500 0000 %0508 C23 007551 001578 -00720 0750 0250 0625 0250 0750 0375 0000 %0509 C24 007575 001744 -01167 0750 0250 0750 0250 0750 0250 0000 %0510 C25 007606 001947 -01719 0750 0250 0875 0250 0750 0125 0000 %0511 C26 007694 002429 -02960 0750 0250 1000 0250 0750 0000 0000 %0512 C27 007638 000702 001072 0750 0375 0000 0250 0625 1000 0000 %0513 D19 007643 000747 000946 0750 0375 0125 0250 0625 0875 0000 %0514 D20 007655 000851 000631 0750 0375 0250 0250 0625 0750 0000 %0515 D21 007668 000965 000298 0750 0375 0375 0250 0625 0625 0000 %0516 D22 007684 001096 -00085 0750 0375 0500 0250 0625 0500 0000 %0517 D23 007702 001240 -00487 0750 0375 0625 0250 0625 0375 0000 %0518 D24 007724 001405 -00935 0750 0375 0750 0250 0625 0250 0000 %0519 D25 007754 001608 -01487 0750 0375 0875 0250 0625 0125 0000 %0520 D26 007840 002085 -02727 0750 0375 1000 0250 0625 0000 0000 %0521 D27 007820 000309 001349 0750 0500 0000 0250 0500 1000 0000 %0522 E19 007826 000352 001224 0750 0500 0125 0250 0500 0875 0000 %0523 E20 007837 000455 000914 0750 0500 0250 0250 0500 0750 0000 %0524 E21 007850 000568 000575 0750 0500 0375 0250 0500 0625 0000 %0525 E22 007865 000702 000194 0750 0500 0500 0250 0500 0500 0000 %0526 E23 007882 000840 -00205 0750 0500 0625 0250 0500 0375 0000 %0527 E24 007903 001001 -00655 0750 0500 0750 0250 0500 0250 0000 %0528 E25 007933 001207 -01207 0750 0500 0875 0250 0500 0125 0000 %0529 E26 008015 001678 -02445 0750 0500 1000 0250 0500 0000 0000 %0530 E27 008026 -00123 001665 0750 0625 0000 0250 0375 1000 0000 %0531 F19 008032 -00079 001541 0750 0625 0125 0250 0375 0875 0000 %0532 F20 008043 000024 001227 0750 0625 0250 0250 0375 0750 0000 %0533 F21 008054 000138 000890 0750 0625 0375 0250 0375 0625 0000 %0534 F22 008069 000266 000512 0750 0625 0500 0250 0375 0500 0000 %0535 F23 008085 000406 000108 0750 0625 0625 0250 0375 0375 0000 %0536 F24 008106 000565 -00338 0750 0625 0750 0250 0375 0250 0000 %0537 F25 008133 000770 -00889 0750 0625 0875 0250 0375 0125 0000 %0538 F26 008212 001242 -02129 0750 0625 1000 0250 0375 0000 0000 %0539 F27 008283 -00641 002057 0750 0750 0000 0250 0250 1000 0000 %0540 G19 008288 -00594 001931 0750 0750 0125 0250 0250 0875 0000 %0541 G20 008298 -00496 001622 0750 0750 0250 0250 0250 0750 0000 %0542 G21 008309 -00384 001286 0750 0750 0375 0250 0250 0625 0000 %0543 G22 008324 002140 001946 0750 0750 0500 0250 0250 0500 0000 %0544 G23 008339 -00120 000505 0750 0750 0625 0250 0250 0375 0000 %0545 G24 008359 000037 000058 0750 0750 0750 0250 0250 0250 0000 %0546 G25 008385 000238 -00493 0750 0750 0875 0250 0250 0125 0000 %0547 G26 008460 000708 -01732 0750 0750 1000 0250 0250 0000 0000 %0548 G27 008621 -01291 002572 0750 0875 0000 0250 0125 1000 0000 %0549 H19 008626 -01244 002449 0750 0875 0125 0250 0125 0875 0000 %0550 H20 008636 -01145 002138 0750 0875 0250 0250 0125 0750 0000 %0551 H21 008646 -01037 001803 0750 0875 0375 0250 0125 0625 0000 %0552 H22 008659 -00908 001425 0750 0875 0500 0250 0125 0500 0000 %0553 H23 008665 -00772 001020 0750 0875 0625 0250 0125 0375 0000 %0554 H24 008692 -00621 000579 0750 0875 0750 0250 0125 0250 0000 %0555 H25 008716 -00425 000026 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008787 000035 -01208 0750 0875 1000 0250 0125 0000 0000 %0557 H27 009174 -02281 003415 0750 1000 0000 0250 0000 1000 0000 %0558 I19 009178 -02236 003292 0750 1000 0125 0250 0000 0875 0000 %0559 I20 009186 -02143 002983 0750 1000 0250 0250 0000 0750 0000 %0560 I21 009196 -02037 002652 0750 1000 0375 0250 0000 0625 0000 %0561 I22 009208 -01918 002276 0750 1000 0500 0250 0000 0500 0000 %0562 I23 009221 -01787 001875 0750 1000 0625 0250 0000 0375 0000 %0563 I24 009237 -01632 001431 0750 1000 0750 0250 0000 0250 0000 %0564 I25 009260 -01445 000879 0750 1000 0875 0250 0000 0125 0000 %0565 I26 009325 -00998 -00350 0750 1000 1000 0250 0000 0000 0000 %0566 I27 007437 001887 000783 0875 0000 0000 0125 1000 1000 0000 %0567 J19 007443 001932 000660 0875 0000 0125 0125 1000 0875 0000 %0568 J20 007456 002038 000346 0875 0000 0250 0125 1000 0750 0000 %0569 J21 007469 002139 000011 0875 0000 0375 0125 1000 0625 0000 %0570 J22 007486 002266 -00366 0875 0000 0500 0125 1000 0500 0000 %0571 J23 007505 002403 -00767 0875 0000 0625 0125 1000 0375 0000 %0572 J24 007527 002553 -01216 0875 0000 0750 0125 1000 0250 0000 %0573 J25 007559 002745 -01768 0875 0000 0875 0125 1000 0125 0000 %0574 J26 007649 003200 -03024 0875 0000 1000 0125 1000 0000 0000 %0575 J27 007484 001783 000856 0875 0125 0000 0125 0875 1000 0000 %0576 K19 007489 001831 000728 0875 0125 0125 0125 0875 0875 0000 %0577 K20 007502 001927 000416 0875 0125 0250 0125 0875 0750 0000 %0578 K21 007516 002039 000080 0875 0125 0375 0125 0875 0625 0000 %0579 K22 007531 002159 -00301 0875 0125 0500 0125 0875 0500 0000 %0580 K23 007549 002294 -00701 0875 0125 0625 0125 0875 0375 0000 %0581 K24 007572 002450 -01151 0875 0125 0750 0125 0875 0250 0000 %0582 K25 007604 002645 -01708 0875 0125 0875 0125 0875 0125 0000 %0583 K26 007693 003094 -02952 0875 0125 1000 0125 0875 0000 0000 %0584 K27 007603 001510 001037 0875 0250 0000 0125 0750 1000 0000 %0585 L19 007608 001551 000909 0875 0250 0125 0125 0750 0875 0000 %0586 L20 007621 001653 000596 0875 0250 0250 0125 0750 0750 0000 %0587 L21 007634 001760 000259 0875 0250 0375 0125 0750 0625 0000 %0588 L22 007649 001884 -00122 0875 0250 0500 0125 0750 0500 0000 %0589 L23 007668 002019 -00521 0875 0250 0625 0125 0750 0375 0000 %0590 L24 007690 002170 -00973 0875 0250 0750 0125 0750 0250 0000 %0591 L25 007721 002360 -01525 0875 0250 0875 0125 0750 0125 0000 %0592 L26 007807 002817 -02767 0875 0250 1000 0125 0750 0000 0000 %0593 L27 007752 001170 001262 0875 0375 0000 0125 0625 1000 0000 %0594 M19 007757 001214 001138 0875 0375 0125 0125 0625 0875 0000 %0595 M20 007769 001314 000824 0875 0375 0250 0125 0625 0750 0000 %0596 M21 007782 001419 000487 0875 0375 0375 0125 0625 0625 0000 %0597 M22 007797 001547 000105 0875 0375 0500 0125 0625 0500 0000 %0598 M23 007815 001681 -00293 0875 0375 0625 0125 0625 0375 0000 %0599 M24 007836 001834 -00748 0875 0375 0750 0125 0625 0250 0000 %0600 M25 007866 002026 -01298 0875 0375 0875 0125 0625 0125 0000 %0601 M26 007949 002476 -02541 0875 0375 1000 0125 0625 0000 0000 %0602 M27 007931 000778 001536 0875 0500 0000 0125 0500 1000 0000 %0603 N19 007935 000820 001408 0875 0500 0125 0125 0500 0875 0000 %0604 N20 007947 000917 001098 0875 0500 0250 0125 0500 0750 0000 %0605 N21 007959 001026 000760 0875 0500 0375 0125 0500 0625 0000 %0606 N22 007973 001162 000370 0875 0500 0500 0125 0500 0500 0000 %0607 N23 007991 001281 -00022 0875 0500 0625 0125 0500 0375 0000 %0608 N24 008012 001436 -00472 0875 0500 0750 0125 0500 0250 0000 %0609 N25 008040 001625 -01023 0875 0500 0875 0125 0500 0125 0000 %0610 N26 008120 002081 -02266 0875 0500 1000 0125 0500 0000 0000 %0611 N27 008133 000345 001841 0875 0625 0000 0125 0375 1000 0000 %0612 O19 008137 000384 001716 0875 0625 0125 0125 0375 0875 0000 %0613 O20 008147 000487 001403 0875 0625 0250 0125 0375 0750 0000 %0614 O21 008160 000591 001068 0875 0625 0375 0125 0375 0625 0000 %0615 O22 008174 000713 000690 0875 0625 0500 0125 0375 0500 0000 %0616 O23 008190 000844 000287 0875 0625 0625 0125 0375 0375 0000 %0617 O24 008210 001001 -00162 0875 0625 0750 0125 0375 0250 0000 %0618 O25 008237 001192 -00716 0875 0625 0875 0125 0375 0125 0000 %0619 O26 008314 001637 -01955 0875 0625 1000 0125 0375 0000 0000 %0620 O27 008384 -00175 002223 0875 0750 0000 0125 0250 1000 0000 %0621 P19 008389 -00133 002100 0875 0750 0125 0125 0250 0875 0000 %0622 P20 008399 -00037 001789 0875 0750 0250 0125 0250 0750 0000 %0623 P21 008410 000069 001455 0875 0750 0375 0125 0250 0625 0000 %0624 P22 008424 000193 001073 0875 0750 0500 0125 0250 0500 0000 %0625 P23 008438 000321 000673 0875 0750 0625 0125 0250 0375 0000 %0626 P24 008457 000473 000225 0875 0750 0750 0125 0250 0250 0000 %0627 P25 008484 000660 -00327 0875 0750 0875 0125 0250 0125 0000 %0628 P26 008558 001107 -01568 0875 0750 1000 0125 0250 0000 0000 %0629 P27 008715 -00826 002728 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 008720 -00784 002607 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 008730 -00688 002296 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 008739 -02216 001317 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008752 -00468 001583 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008767 -00337 001184 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008784 -00189 000734 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008809 -00001 000182 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008879 000438 -01055 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 009258 -01825 003557 0875 1000 0000 0125 0000 1000 0000 %0639 R19 009262 -01786 003430 0875 1000 0125 0125 0000 0875 0000 %0640 R20 009270 -01694 003124 0875 1000 0250 0125 0000 0750 0000 %0641 R21 009280 -01597 002792 0875 1000 0375 0125 0000 0625 0000 %0642 R22 009291 -01481 002413 0875 1000 0500 0125 0000 0500 0000 %0643 R23 009305 -01355 002015 0875 1000 0625 0125 0000 0375 0000 %0644 R24 009321 -01210 001567 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009343 -01030 001019 0875 1000 0875 0125 0000 0125 0000 %0646 R26 009406 -00605 -00211 0875 1000 1000 0125 0000 0000 0000 %0647 R27 007631 002591 001110 1000 0000 0000 0000 1000 1000 0000 %0648 S19 007635 002625 000982 1000 0000 0125 0000 1000 0875 0000 %0649 S20 007645 002714 000670 1000 0000 0250 0000 1000 0750 0000 %0650 S21 007658 002811 000333 1000 0000 0375 0000 1000 0625 0000 %0651 S22 007673 002919 -00045 1000 0000 0500 0000 1000 0500 0000 %0652 S23 007692 003048 -00449 1000 0000 0625 0000 1000 0375 0000 %0653 S24 007713 003184 -00897 1000 0000 0750 0000 1000 0250 0000 %0654 S25 007743 003361 -01454 1000 0000 0875 0000 1000 0125 0000 %0655 S26 007828 003773 -02719 1000 0000 1000 0000 1000 0000 0000 %0656 S27 007674 002488 001177 1000 0125 0000 0000 0875 1000 0000 %0657 T19 007678 002518 001050 1000 0125 0125 0000 0875 0875 0000 %0658 T20 007690 002606 000735 1000 0125 0250 0000 0875 0750 0000 %0659 T21 007702 002705 000397 1000 0125 0375 0000 0875 0625 0000 %0660 T22 007716 001253 000717 1000 0125 0500 0000 0875 0500 0000 %0661 T23 007735 002939 -00386 1000 0125 0625 0000 0875 0375 0000 %0662 T24 007756 003082 -00840 1000 0125 0750 0000 0875 0250 0000 %0663 T25 007786 003258 -01394 1000 0125 0875 0000 0875 0125 0000 %0664 T26 007870 003672 -02653 1000 0125 1000 0000 0875 0000 0000 %0665 T27 007790 002210 001353 1000 0250 0000 0000 0750 1000 0000 %0666 U19 007795 002248 001227 1000 0250 0125 0000 0750 0875 0000 %0667 U20 007805 002335 000911 1000 0250 0250 0000 0750 0750 0000 %0668 U21 007816 002433 000569 1000 0250 0375 0000 0750 0625 0000 %0669 U22 007831 002546 000188 1000 0250 0500 0000 0750 0500 0000 %0670 U23 007849 002669 -00213 1000 0250 0625 0000 0750 0375 0000 %0671 U24 007870 002809 -00665 1000 0250 0750 0000 0750 0250 0000 %0672 U25 007900 002988 -01221 1000 0250 0875 0000 0750 0125 0000 %0673 U26 007982 003402 -02476 1000 0250 1000 0000 0750 0000 0000 %0674 U27 007934 001876 001572 1000 0375 0000 0000 0625 1000 0000 %0675 V19 007939 001913 001445 1000 0375 0125 0000 0625 0875 0000 %0676 V20 007949 002001 001129 1000 0375 0250 0000 0625 0750 0000 %0677 V21 007961 002098 000789 1000 0375 0375 0000 0625 0625 0000 %0678 V22 007976 002210 000408 1000 0375 0500 0000 0625 0500 0000 %0679 V23 007992 002335 000002 1000 0375 0625 0000 0625 0375 0000 %0680 V24 008013 002474 -00449 1000 0375 0750 0000 0625 0250 0000 %0681 V25 008042 002651 -01004 1000 0375 0875 0000 0625 0125 0000 %0682 V26 008121 003069 -02257 1000 0375 1000 0000 0625 0000 0000 %0683 V27 008110 001485 001837 1000 0500 0000 0000 0500 1000 0000 %0684 W19 008114 001519 001709 1000 0500 0125 0000 0500 0875 0000 %0685 W20 008125 001606 001394 1000 0500 0250 0000 0500 0750 0000 %0686 W21 008136 001704 001053 1000 0500 0375 0000 0500 0625 0000 %0687 W22 008150 001818 000670 1000 0500 0500 0000 0500 0500 0000 %0688 W23 008166 001941 000267 1000 0500 0625 0000 0500 0375 0000 %0689 W24 008186 002079 -00183 1000 0500 0750 0000 0500 0250 0000 %0690 W25 008214 002259 -00737 1000 0500 0875 0000 0500 0125 0000 %0691 W26 008291 002667 -01984 1000 0500 1000 0000 0500 0000 0000 %0692 W27 008308 001052 002137 1000 0625 0000 0000 0375 1000 0000 %0693 X19 008313 001090 002009 1000 0625 0125 0000 0375 0875 0000 %0694 X20 008323 001173 001693 1000 0625 0250 0000 0375 0750 0000 %0695 X21 008334 001269 001354 1000 0625 0375 0000 0375 0625 0000 %0696 X22 008348 001387 000968 1000 0625 0500 0000 0375 0500 0000 %0697 X23 008363 001505 000567 1000 0625 0625 0000 0375 0375 0000 %0698 X24 008383 001647 000116 1000 0625 0750 0000 0375 0250 0000 %0699 X25 008409 001821 -00436 1000 0625 0875 0000 0375 0125 0000 %0700 X26 008483 002231 -01680 1000 0625 1000 0000 0375 0000 0000 %0701 X27 008555 000528 002510 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 008560 000568 002382 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 008569 000653 002066 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 008580 000749 001726 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 008594 000862 001343 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 008608 000984 000939 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 008626 001119 000490 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 008651 001295 -00058 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 008721 001705 -01301 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008879 -00123 003001 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008883 -00087 002874 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008891 000000 002555 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008901 000095 002216 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008913 000206 001835 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008928 000323 001431 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 008945 000462 000985 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 008968 000629 000433 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 009034 001034 -00802 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009405 -01128 003798 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009408 -01239 003775 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009416 -01012 003357 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009425 -00916 003019 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009436 -00812 002637 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009449 -00693 002235 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009464 -00559 001786 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009486 -00395 001241 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009546 -00001 000014 1000 1000 1000 0000 0000 0000 0000 %0728 a27 %JE060-7A, Page 64 /66, LAB*la7; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted 009560 000004 000025 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009431 -00600 -00192 0875 1000 1000 0125 0000 0000 0000 %0730 b02 009348 -00992 -00329 0750 1000 1000 0250 0000 0000 0000 %0731 b03 009280 -01329 -00444 0625 1000 1000 0375 0000 0000 0000 %0732 b04 009227 -01596 -00534 0500 1000 1000 0500 0000 0000 0000 %0733 b05 009182 -01821 -00607 0375 1000 1000 0625 0000 0000 0000 %0734 b06 009148 -02001 -00663 0250 1000 1000 0750 0000 0000 0000 %0735 b07 009121 -02146 -00708 0125 1000 1000 0875 0000 0000 0000 %0736 b08 009110 -02202 -00726 0000 1000 1000 1000 0000 0000 0000 %0737 b09 008981 000635 000434 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008833 000002 000186 0875 0875 0875 0125 0125 0125 0000 %0739 c02 008741 -00414 000028 0750 0875 0875 0250 0125 0125 0000 %0740 c03 008664 -00771 -00096 0625 0875 0875 0375 0125 0125 0000 %0741 c04 008604 -01060 -00196 0500 0875 0875 0500 0125 0125 0000 %0742 c05 008554 -01300 -00279 0375 0875 0875 0625 0125 0125 0000 %0743 c06 008514 -01491 -00345 0250 0875 0875 0750 0125 0125 0000 %0744 c07 008482 -01638 -00397 0125 0875 0875 0875 0125 0125 0000 %0745 c08 008466 -01698 -00422 0000 0875 0875 1000 0125 0125 0000 %0746 c09 008640 001124 000488 1000 0750 0750 0000 0250 0250 0000 %0747 d01 008482 000475 000222 0875 0750 0750 0125 0250 0250 0000 %0748 d02 008383 000044 000054 0750 0750 0750 0250 0250 0250 0000 %0749 d03 008300 -00318 -00082 0625 0750 0750 0375 0250 0250 0000 %0750 d04 008235 -00616 -00191 0500 0750 0750 0500 0250 0250 0000 %0751 d05 008182 -00868 -00276 0375 0750 0750 0625 0250 0250 0000 %0752 d06 008140 -01062 -00346 0250 0750 0750 0750 0250 0250 0000 %0753 d07 008105 -01221 -00404 0125 0750 0750 0875 0250 0250 0000 %0754 d08 008089 -01276 -00432 0000 0750 0750 1000 0250 0250 0000 %0755 d09 008377 001508 000560 1000 0625 0625 0000 0375 0375 0000 %0756 e01 008211 000850 000282 0875 0625 0625 0125 0375 0375 0000 %0757 e02 008106 000410 000105 0750 0625 0625 0250 0375 0375 0000 %0758 e03 008020 000035 -00035 0625 0625 0625 0375 0375 0375 0000 %0759 e04 007953 -00267 -00150 0500 0625 0625 0500 0375 0375 0000 %0760 e05 007895 -00522 -00244 0375 0625 0625 0625 0375 0375 0000 %0761 e06 007851 -00723 -00316 0250 0625 0625 0750 0375 0375 0000 %0762 e07 007814 -00883 -00376 0125 0625 0625 0875 0375 0375 0000 %0763 e08 007797 -00947 -00407 0000 0625 0625 1000 0375 0375 0000 %0764 e09 008164 001819 000665 1000 0500 0500 0000 0500 0500 0000 %0765 f01 007992 001155 000374 0875 0500 0500 0125 0500 0500 0000 %0766 f02 007882 000707 000191 0750 0500 0500 0250 0500 0500 0000 %0767 f03 007791 000327 000040 0625 0500 0500 0375 0500 0500 0000 %0768 f04 007720 000016 -00076 0500 0500 0500 0500 0500 0500 0000 %0769 f05 007661 -00242 -00174 0375 0500 0500 0625 0500 0500 0000 %0770 f06 007615 -00449 -00252 0250 0500 0500 0750 0500 0500 0000 %0771 f07 007578 -00614 -00314 0125 0500 0500 0875 0500 0500 0000 %0772 f08 007560 -00678 -00342 0000 0500 0500 1000 0500 0500 0000 %0773 f09 007973 002102 000784 1000 0375 0375 0000 0625 0625 0000 %0774 g01 007795 001411 000489 0875 0375 0375 0125 0625 0625 0000 %0775 g02 007681 000976 000292 0750 0375 0375 0250 0625 0625 0000 %0776 g03 007587 000591 000135 0625 0375 0375 0375 0625 0625 0000 %0777 g04 007513 000279 000011 0500 0375 0375 0500 0625 0625 0000 %0778 g05 007451 000011 -00088 0375 0375 0375 0625 0625 0625 0000 %0779 g06 007404 -00198 -00167 0250 0375 0375 0750 0625 0625 0000 %0780 g07 007366 -00365 -00230 0125 0375 0375 0875 0625 0625 0000 %0781 g08 007347 -00435 -00258 0000 0375 0375 1000 0625 0625 0000 %0782 g09 007815 002343 000909 1000 0250 0250 0000 0750 0750 0000 %0783 h01 007630 001661 000596 0875 0250 0250 0125 0750 0750 0000 %0784 h02 007513 001201 000401 0750 0250 0250 0250 0750 0750 0000 %0785 h03 007415 000813 000237 0625 0250 0250 0375 0750 0750 0000 %0786 h04 007338 000497 000111 0500 0250 0250 0500 0750 0750 0000 %0787 h05 007274 000223 000005 0375 0250 0250 0625 0750 0750 0000 %0788 h06 007226 000016 -00076 0250 0250 0250 0750 0750 0750 0000 %0789 h07 007185 -00154 -00141 0125 0250 0250 0875 0750 0750 0000 %0790 h08 007170 -00225 -00169 0000 0250 0250 1000 0750 0750 0000 %0791 h09 007685 002534 001054 1000 0125 0125 0000 0875 0875 0000 %0792 i01 007495 001841 000732 0875 0125 0125 0125 0875 0875 0000 %0793 i02 007373 001380 000528 0750 0125 0125 0250 0875 0875 0000 %0794 i03 007273 000990 000362 0625 0125 0125 0375 0875 0875 0000 %0795 i04 007195 000667 000232 0500 0125 0125 0500 0875 0875 0000 %0796 i05 007129 000391 000123 0375 0125 0125 0625 0875 0875 0000 %0797 i06 007080 000183 000040 0250 0125 0125 0750 0875 0875 0000 %0798 i07 007039 000010 -00026 0125 0125 0125 0875 0875 0875 0000 %0799 i08 007023 -00062 -00053 0000 0125 0125 1000 0875 0875 0000 %0800 i09 007635 002605 001117 1000 0000 0000 0000 1000 1000 0000 %0801 j01 007441 001907 000790 0875 0000 0000 0125 1000 1000 0000 %0802 j02 007318 001443 000584 0750 0000 0000 0250 1000 1000 0000 %0803 j03 007218 001044 000417 0625 0000 0000 0375 1000 1000 0000 %0804 j04 007139 000728 000285 0500 0000 0000 0500 1000 1000 0000 %0805 j05 007073 000459 000178 0375 0000 0000 0625 1000 1000 0000 %0806 j06 007022 000246 000093 0250 0000 0000 0750 1000 1000 0000 %0807 j07 006982 000072 000026 0125 0000 0000 0875 1000 1000 0000 %0808 j08 006966 000001 000000 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009543 000000 000009 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008887 000437 -01051 0875 0875 1000 0125 0125 0000 0000 %0811 b11 008470 000712 -01729 0750 0750 1000 0250 0250 0000 0000 %0812 b12 008139 000904 -02268 0625 0625 1000 0375 0375 0000 0000 %0813 b13 007867 001079 -02708 0500 0500 1000 0500 0500 0000 0000 %0814 b14 007625 001258 -03102 0375 0375 1000 0625 0625 0000 0000 %0815 b15 007423 001426 -03421 0250 0250 1000 0750 0750 0000 0000 %0816 b16 007259 001581 -03707 0125 0125 1000 0875 0875 0000 0000 %0817 b17 007194 001632 -03804 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009483 -00395 001235 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008818 000002 000180 0875 0875 0875 0125 0125 0125 0000 %0820 c11 008395 000241 -00497 0750 0750 0875 0250 0250 0125 0000 %0821 c12 008059 000413 -01036 0625 0625 0875 0375 0375 0125 0000 %0822 c13 007783 000563 -01474 0500 0500 0875 0500 0500 0125 0000 %0823 c14 007538 000727 -01869 0375 0375 0875 0625 0625 0125 0000 %0824 c15 007332 000887 -02200 0250 0250 0875 0750 0750 0125 0000 %0825 c16 007163 001012 -02457 0125 0125 0875 0875 0875 0125 0000 %0826 c17 007096 001063 -02555 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009461 -00563 001785 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008794 -00183 000726 0875 0875 0750 0125 0125 0250 0000 %0829 d11 008368 000042 000052 0750 0750 0750 0250 0250 0250 0000 %0830 d12 008030 000203 -00484 0625 0625 0750 0375 0375 0250 0000 %0831 d13 007753 000348 -00928 0500 0500 0750 0500 0500 0250 0000 %0832 d14 007506 000506 -01325 0375 0375 0750 0625 0625 0250 0000 %0833 d15 007298 000651 -01652 0250 0250 0750 0750 0750 0250 0000 %0834 d16 007130 000785 -01927 0125 0125 0750 0875 0875 0250 0000 %0835 d17 007062 000825 -02020 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009446 -00697 002231 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008775 -00336 001177 0875 0875 0625 0125 0125 0375 0000 %0838 e11 008349 -00116 000499 0750 0750 0625 0250 0250 0375 0000 %0839 e12 008009 000038 -00038 0625 0625 0625 0375 0375 0375 0000 %0840 e13 007731 000174 -00479 0500 0500 0625 0500 0500 0375 0000 %0841 e14 007483 000320 -00875 0375 0375 0625 0625 0625 0375 0000 %0842 e15 007274 000463 -01205 0250 0250 0625 0750 0750 0375 0000 %0843 e16 007104 000589 -01471 0125 0125 0625 0875 0875 0375 0000 %0844 e17 007037 000635 -01574 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009432 -00811 002633 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008759 -00464 001577 0875 0875 0500 0125 0125 0500 0000 %0847 f11 008333 -00253 000905 0750 0750 0500 0250 0250 0500 0000 %0848 f12 007992 -00108 000365 0625 0625 0500 0375 0375 0500 0000 %0849 f13 007713 000018 -00077 0500 0500 0500 0500 0500 0500 0000 %0850 f14 007464 000159 -00473 0375 0375 0500 0625 0625 0500 0000 %0851 f15 007255 000299 -00802 0250 0250 0500 0750 0750 0500 0000 %0852 f16 007084 000423 -01068 0125 0125 0500 0875 0875 0500 0000 %0853 f17 007017 000461 -01171 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009421 -00920 003014 1000 1000 0375 0000 0000 0625 0000 %0855 g10 008748 -00586 001961 0875 0875 0375 0125 0125 0625 0000 %0856 g11 008319 -00386 001285 0750 0750 0375 0250 0250 0625 0000 %0857 g12 007977 -00250 000747 0625 0625 0375 0375 0375 0625 0000 %0858 g13 007697 -00124 000307 0500 0500 0375 0500 0500 0625 0000 %0859 g14 007446 000011 -00089 0375 0375 0375 0625 0625 0625 0000 %0860 g15 007237 000147 -00416 0250 0250 0375 0750 0750 0625 0000 %0861 g16 007065 000260 -00679 0125 0125 0375 0875 0875 0625 0000 %0862 g17 006999 000304 -00791 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009412 -01016 003351 1000 1000 0250 0000 0000 0750 0000 %0864 h10 008737 -00686 002299 0875 0875 0250 0125 0125 0750 0000 %0865 h11 008307 -00492 001622 0750 0750 0250 0250 0250 0750 0000 %0866 h12 007964 -00363 001088 0625 0625 0250 0375 0375 0750 0000 %0867 h13 007684 -00249 000648 0500 0500 0250 0500 0500 0750 0000 %0868 h14 007433 -00118 000256 0375 0375 0250 0625 0625 0750 0000 %0869 h15 007223 000010 -00075 0250 0250 0250 0750 0750 0750 0000 %0870 h16 007052 000132 -00347 0125 0125 0250 0875 0875 0750 0000 %0871 h17 006984 000169 -00450 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009405 -01098 003668 1000 1000 0125 0000 0000 0875 0000 %0873 i10 008728 -00788 002615 0875 0875 0125 0125 0125 0875 0000 %0874 i11 008297 -00601 001941 0750 0750 0125 0250 0250 0875 0000 %0875 i12 007954 -00472 001406 0625 0625 0125 0375 0375 0875 0000 %0876 i13 007672 -00363 000968 0500 0500 0125 0500 0500 0875 0000 %0877 i14 007420 -00235 000573 0375 0375 0125 0625 0625 0875 0000 %0878 i15 007211 -00106 000245 0250 0250 0125 0750 0750 0875 0000 %0879 i16 007039 000007 -00023 0125 0125 0125 0875 0875 0875 0000 %0880 i17 006971 000051 -00130 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009401 -01130 003795 1000 1000 0000 0000 0000 1000 0000 %0882 j10 008723 -00828 002740 0875 0875 0000 0125 0125 1000 0000 %0883 j11 008291 -00643 002068 0750 0750 0000 0250 0250 1000 0000 %0884 j12 007948 -00519 001534 0625 0625 0000 0375 0375 1000 0000 %0885 j13 007667 -00408 001096 0500 0500 0000 0500 0500 1000 0000 %0886 j14 007415 -00284 000704 0375 0375 0000 0625 0625 1000 0000 %0887 j15 007205 -00156 000376 0250 0250 0000 0750 0750 1000 0000 %0888 j16 007033 -00040 000106 0125 0125 0000 0875 0875 1000 0000 %0889 j17 006965 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009542 -00002 000005 1000 1000 1000 0000 0000 0000 0000 %0891 b19 009030 001036 -00812 1000 0875 1000 0000 0125 0000 0000 %0892 b20 008718 001704 -01308 1000 0750 1000 0000 0250 0000 0000 %0893 b21 008483 002232 -01683 1000 0625 1000 0000 0375 0000 0000 %0894 b22 008293 002671 -01987 1000 0500 1000 0000 0500 0000 0000 %0895 b23 008126 003072 -02257 1000 0375 1000 0000 0625 0000 0000 %0896 b24 007986 003405 -02476 1000 0250 1000 0000 0750 0000 0000 %0897 b25 007874 003684 -02657 1000 0125 1000 0000 0875 0000 0000 %0898 b26 007831 003786 -02724 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009350 -01023 001012 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008817 000000 000179 0875 0875 0875 0125 0125 0125 0000 %0901 c20 008493 000663 -00333 0875 0750 0875 0125 0250 0125 0000 %0902 c21 008247 001196 -00720 0875 0625 0875 0125 0375 0125 0000 %0903 c22 008049 001629 -01030 0875 0500 0875 0125 0500 0125 0000 %0904 c23 007873 002030 -01305 0875 0375 0875 0125 0625 0125 0000 %0905 c24 007727 002376 -01536 0875 0250 0875 0125 0750 0125 0000 %0906 c25 007608 002654 -01714 0875 0125 0875 0125 0875 0125 0000 %0907 c26 007562 002761 -01779 0875 0000 0875 0125 1000 0125 0000 %0908 c27 009244 -01629 001421 0750 1000 0750 0250 0000 0250 0000 %0909 d19 008699 -00614 000571 0750 0875 0750 0250 0125 0250 0000 %0910 d20 008366 000045 000052 0750 0750 0750 0250 0250 0250 0000 %0911 d21 008113 000566 -00343 0750 0625 0750 0250 0375 0250 0000 %0912 d22 007912 001009 -00663 0750 0500 0750 0250 0500 0250 0000 %0913 d23 007730 001412 -00945 0750 0375 0750 0250 0625 0250 0000 %0914 d24 007579 001755 -01179 0750 0250 0750 0250 0750 0250 0000 %0915 d25 007457 002037 -01365 0750 0125 0750 0250 0875 0250 0000 %0916 d26 007410 002145 -01431 0750 0000 0750 0250 1000 0250 0000 %0917 d27 009159 -02139 001753 0625 1000 0625 0375 0000 0375 0000 %0918 e19 008604 -01137 000893 0625 0875 0625 0375 0125 0375 0000 %0919 e20 008265 -00486 000363 0625 0750 0625 0375 0250 0375 0000 %0920 e21 008007 000034 -00038 0625 0625 0625 0375 0375 0375 0000 %0921 e22 007800 000475 -00363 0625 0500 0625 0375 0500 0375 0000 %0922 e23 007615 000874 -00650 0625 0375 0625 0375 0625 0375 0000 %0923 e24 007461 001216 -00891 0625 0250 0625 0375 0750 0375 0000 %0924 e25 007336 001510 -01086 0625 0125 0625 0375 0875 0375 0000 %0925 e26 007287 001611 -01152 0625 0000 0625 0375 1000 0375 0000 %0926 e27 009092 -02565 002066 0500 1000 0500 0500 0000 0500 0000 %0927 f19 008529 -01581 001194 0500 0875 0500 0500 0125 0500 0000 %0928 f20 008186 -00935 000659 0500 0750 0500 0500 0250 0500 0000 %0929 f21 007923 -00416 000250 0500 0625 0500 0500 0375 0500 0000 %0930 f22 007712 000018 -00078 0500 0500 0500 0500 0500 0500 0000 %0931 f23 007524 000422 -00372 0500 0375 0500 0500 0625 0500 0000 %0932 f24 007366 000761 -00614 0500 0250 0500 0500 0750 0500 0000 %0933 f25 007238 001045 -00810 0500 0125 0500 0500 0875 0500 0000 %0934 f26 007188 001155 -00883 0500 0000 0500 0500 1000 0500 0000 %0935 f27 009037 -02945 002374 0375 1000 0375 0625 0000 0625 0000 %0936 g19 008466 -01972 001494 0375 0875 0375 0625 0125 0625 0000 %0937 g20 008118 -01337 000954 0375 0750 0375 0625 0250 0625 0000 %0938 g21 007852 -00820 000543 0375 0625 0375 0625 0375 0625 0000 %0939 g22 007638 -00386 000209 0375 0500 0375 0625 0500 0625 0000 %0940 g23 007446 000011 -00089 0375 0375 0375 0625 0625 0625 0000 %0941 g24 007286 000357 -00336 0375 0250 0375 0625 0750 0625 0000 %0942 g25 007156 000638 -00535 0375 0125 0375 0625 0875 0625 0000 %0943 g26 007106 000748 -00609 0375 0000 0375 0625 1000 0625 0000 %0944 g27 008993 -03258 002657 0250 1000 0250 0750 0000 0750 0000 %0945 h19 008417 -02296 001771 0250 0875 0250 0750 0125 0750 0000 %0946 h20 008064 -01665 001225 0250 0750 0250 0750 0250 0750 0000 %0947 h21 007796 -01156 000811 0250 0625 0250 0750 0375 0750 0000 %0948 h22 007579 -00724 000475 0250 0500 0250 0750 0500 0750 0000 %0949 h23 007385 -00328 000175 0250 0375 0250 0750 0625 0750 0000 %0950 h24 007222 000012 -00074 0250 0250 0250 0750 0750 0750 0000 %0951 h25 007092 000302 -00281 0250 0125 0250 0750 0875 0750 0000 %0952 h26 007041 000415 -00361 0250 0000 0250 0750 1000 0750 0000 %0953 h27 008959 -03527 002931 0125 1000 0125 0875 0000 0875 0000 %0954 i19 008375 -02568 002034 0125 0875 0125 0875 0125 0875 0000 %0955 i20 008020 -01946 001488 0125 0750 0125 0875 0250 0875 0000 %0956 i21 007749 -01434 001067 0125 0625 0125 0875 0375 0875 0000 %0957 i22 007530 -01014 000732 0125 0500 0125 0875 0500 0875 0000 %0958 i23 007335 -00620 000431 0125 0375 0125 0875 0625 0875 0000 %0959 i24 007172 -00279 000181 0125 0250 0125 0875 0750 0875 0000 %0960 i25 007039 000009 -00025 0125 0125 0125 0875 0875 0875 0000 %0961 i26 006987 000121 -00106 0125 0000 0125 0875 1000 0875 0000 %0962 i27 008944 -03625 003042 0000 1000 0000 1000 0000 1000 0000 %0963 j19 008356 -02675 002141 0000 0875 0000 1000 0125 1000 0000 %0964 j20 008000 -02054 001591 0000 0750 0000 1000 0250 1000 0000 %0965 j21 007728 -01550 001173 0000 0625 0000 1000 0375 1000 0000 %0966 j22 007509 -01128 000837 0000 0500 0000 1000 0500 1000 0000 %0967 j23 007314 -00736 000536 0000 0375 0000 1000 0625 1000 0000 %0968 j24 007150 -00396 000284 0000 0250 0000 1000 0750 1000 0000 %0969 j25 007017 -00110 000079 0000 0125 0000 1000 0875 1000 0000 %0970 j26 006966 000000 -00001 0000 0000 0000 1000 1000 1000 0000 %0971 j27 %JE060-7A, Page 65 /66, LAB*la7; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %LAB*la7, D65, adapted, Y = 40.32 , L* = 69.69 %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z007631 002591 001110 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009405 -01128 003798 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z008949 -03632 003051 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z009102 -02206 -00720 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z007195 001623 -03798 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z007828 003773 -02719 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z006966 000001 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009546 -00001 000014 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ %z007635 002605 001117 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 %z009401 -01130 003795 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 %z008944 -03625 003042 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 %z009110 -02202 -00726 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 %z007194 001632 -03804 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 %z007831 003786 -02724 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 %z006966 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 %z009548 000000 000013 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ %JE060-7A, Page 66 /66, LAB*la7; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %100 x LAB* 1000 x (r g b c m y 0) %nr. pos 006966 -00004 000000 0000 0000 0000 1000 1000 1000 0000 %0972 k01 007039 000009 -00026 0125 0125 0125 0875 0875 0875 0000 %0973 k02 007222 000015 -00075 0250 0250 0250 0750 0750 0750 0000 %0974 k03 007445 000009 -00088 0375 0375 0375 0625 0625 0625 0000 %0975 k04 007711 000015 -00077 0500 0500 0500 0500 0500 0500 0000 %0976 k05 008007 000036 -00038 0625 0625 0625 0375 0375 0375 0000 %0977 k06 008366 000040 000050 0750 0750 0750 0250 0250 0250 0000 %0978 k07 008816 -00002 000176 0875 0875 0875 0125 0125 0125 0000 %0979 k08 009541 -00002 000002 1000 1000 1000 0000 0000 0000 0000 %0980 k09 006965 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0981 l01 007039 000007 -00025 0125 0125 0125 0875 0875 0875 0000 %0982 l02 007222 000015 -00075 0250 0250 0250 0750 0750 0750 0000 %0983 l03 007445 000011 -00089 0375 0375 0375 0625 0625 0625 0000 %0984 l04 007711 000017 -00078 0500 0500 0500 0500 0500 0500 0000 %0985 l05 008007 000038 -00041 0625 0625 0625 0375 0375 0375 0000 %0986 l06 008366 000040 000052 0750 0750 0750 0250 0250 0250 0000 %0987 l07 008816 -00004 000177 0875 0875 0875 0125 0125 0125 0000 %0988 l08 009540 -00002 000002 1000 1000 1000 0000 0000 0000 0000 %0989 l09 006966 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0990 m01 007038 000009 -00026 0125 0125 0125 0875 0875 0875 0000 %0991 m02 007222 000015 -00075 0250 0250 0250 0750 0750 0750 0000 %0992 m03 007445 000007 -00087 0375 0375 0375 0625 0625 0625 0000 %0993 m04 007711 000016 -00078 0500 0500 0500 0500 0500 0500 0000 %0994 m05 008007 000035 -00039 0625 0625 0625 0375 0375 0375 0000 %0995 m06 008366 000040 000052 0750 0750 0750 0250 0250 0250 0000 %0996 m07 008816 000000 000177 0875 0875 0875 0125 0125 0125 0000 %0997 m08 009540 -00005 000004 1000 1000 1000 0000 0000 0000 0000 %0998 m09 006966 000000 000000 0000 0000 0000 1000 1000 1000 0000 %0999 n01 007039 000009 -00023 0125 0125 0125 0875 0875 0875 0000 %1000 n02 007222 000015 -00075 0250 0250 0250 0750 0750 0750 0000 %1001 n03 007445 000008 -00088 0375 0375 0375 0625 0625 0625 0000 %1002 n04 007711 000014 -00079 0500 0500 0500 0500 0500 0500 0000 %1003 n05 008007 000035 -00039 0625 0625 0625 0375 0375 0375 0000 %1004 n06 008366 000042 000051 0750 0750 0750 0250 0250 0250 0000 %1005 n07 008816 -00002 000178 0875 0875 0875 0125 0125 0125 0000 %1006 n08 009540 -00005 000001 1000 1000 1000 0000 0000 0000 0000 %1007 n09 006965 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1008 k10 006978 000003 -00001 0066 0066 0066 0933 0933 0933 0000 %1009 k11 007047 000011 -00031 0133 0133 0133 0866 0866 0866 0000 %1010 k12 007152 000011 -00068 0200 0200 0200 0800 0800 0800 0000 %1011 k13 007247 000014 -00065 0266 0266 0266 0333 0333 0333 0000 %1012 k14 007360 000024 -00086 0333 0333 0333 0666 0666 0666 0000 %1013 k15 007488 000015 -00088 0400 0400 0400 0600 0600 0600 0000 %1014 k16 007636 000011 -00083 0466 0466 0466 0533 0533 0533 0000 %1015 k17 007781 000029 -00088 0533 0533 0533 0466 0466 0466 0000 %1016 k18 007945 000038 -00060 0600 0600 0600 0400 0400 0400 0000 %1017 k19 008125 000037 -00026 0666 0666 0666 0333 0333 0333 0000 %1018 k20 008319 000040 000026 0734 0734 0734 0266 0266 0266 0000 %1019 k21 008542 000034 000098 0800 0800 0800 0200 0200 0200 0000 %1020 k22 008788 000015 000167 0866 0866 0866 0133 0133 0133 0000 %1021 k23 009091 -00017 000279 0933 0933 0933 0066 0066 0066 0000 %1022 k24 009541 -00002 000002 1000 1000 1000 0000 0000 0000 0000 %1023 k25 006966 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1024 l10 006980 000004 -00001 0066 0066 0066 0933 0933 0933 0000 %1025 l11 007048 000013 -00030 0133 0133 0133 0866 0866 0866 0000 %1026 l12 007153 000008 -00066 0200 0200 0200 0800 0800 0800 0000 %1027 l13 007248 000017 -00068 0266 0266 0266 0333 0333 0333 0000 %1028 l14 007362 000018 -00086 0333 0333 0333 0666 0666 0666 0000 %1029 l15 007490 000016 -00089 0400 0400 0400 0600 0600 0600 0000 %1030 l16 007637 000013 -00080 0466 0466 0466 0533 0533 0533 0000 %1031 l17 007784 000030 -00085 0533 0533 0533 0466 0466 0466 0000 %1032 l18 007947 000034 -00058 0600 0600 0600 0400 0400 0400 0000 %1033 l19 008127 000035 -00025 0666 0666 0666 0333 0333 0333 0000 %1034 l20 008322 000044 000026 0734 0734 0734 0266 0266 0266 0000 %1035 l21 008545 000034 000098 0800 0800 0800 0200 0200 0200 0000 %1036 l22 008791 000013 000168 0866 0866 0866 0133 0133 0133 0000 %1037 l23 009092 -00017 000282 0933 0933 0933 0066 0066 0066 0000 %1038 l24 009542 -00002 000005 1000 1000 1000 0000 0000 0000 0000 %1039 l25 006966 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1040 m10 006978 000003 -00001 0066 0066 0066 0933 0933 0933 0000 %1041 m11 007048 000011 -00031 0133 0133 0133 0866 0866 0866 0000 %1042 m12 007152 000008 -00067 0200 0200 0200 0800 0800 0800 0000 %1043 m13 007248 000012 -00066 0266 0266 0266 0333 0333 0333 0000 %1044 m14 007361 000018 -00086 0333 0333 0333 0666 0666 0666 0000 %1045 m15 007488 000015 -00089 0400 0400 0400 0600 0600 0600 0000 %1046 m16 007637 000015 -00082 0466 0466 0466 0533 0533 0533 0000 %1047 m17 007782 000033 -00088 0533 0533 0533 0466 0466 0466 0000 %1048 m18 007945 000035 -00059 0600 0600 0600 0400 0400 0400 0000 %1049 m19 008126 000032 -00024 0666 0666 0666 0333 0333 0333 0000 %1050 m20 008321 000039 000026 0734 0734 0734 0266 0266 0266 0000 %1051 m21 008544 000036 000096 0800 0800 0800 0200 0200 0200 0000 %1052 m22 008790 000015 000167 0866 0866 0866 0133 0133 0133 0000 %1053 m23 009092 -00017 000282 0933 0933 0933 0066 0066 0066 0000 %1054 m24 009542 -00002 000002 1000 1000 1000 0000 0000 0000 0000 %1055 m25 006966 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1056 n10 006980 000004 -00002 0066 0066 0066 0933 0933 0933 0000 %1057 n11 007048 000010 -00032 0133 0133 0133 0866 0866 0866 0000 %1058 n12 007152 000006 -00066 0200 0200 0200 0800 0800 0800 0000 %1059 n13 007247 000018 -00068 0266 0266 0266 0333 0333 0333 0000 %1060 n14 007360 000021 -00087 0333 0333 0333 0666 0666 0666 0000 %1061 n15 007488 000018 -00089 0400 0400 0400 0600 0600 0600 0000 %1062 n16 007635 000014 -00083 0466 0466 0466 0533 0533 0533 0000 %1063 n17 007782 000018 -00079 0533 0533 0533 0466 0466 0466 0000 %1064 n18 007945 000035 -00059 0600 0600 0600 0400 0400 0400 0000 %1065 n19 008126 000035 -00025 0666 0666 0666 0333 0333 0333 0000 %1066 n20 008321 000042 000025 0734 0734 0734 0266 0266 0266 0000 %1067 n21 008543 000036 000096 0800 0800 0800 0200 0200 0200 0000 %1068 n22 008788 000017 000165 0866 0866 0866 0133 0133 0133 0000 %1069 n23 009092 -00017 000279 0933 0933 0933 0066 0066 0066 0000 %1070 n24 009541 -00005 000001 1000 1000 1000 0000 0000 0000 0000 %1071 n25 006966 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1072 k26 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %1073 k27 007634 002603 001114 1000 0000 0000 0000 1000 1000 0000 %1074 l26 009097 -02185 -00743 0000 1000 1000 1000 0000 0000 0000 %1075 l27 009400 -01130 003793 1000 1000 0000 0000 0000 1000 0000 %1076 m26 007195 001635 -03809 0000 0000 1000 1000 1000 0000 0000 %1077 m27 008951 -03639 003050 0000 1000 0000 1000 0000 1000 0000 %1078 n26 007831 003792 -02730 1000 0000 1000 0000 1000 0000 0000 %1079 n27 %$ %z007634 002603 001114 %#1000 0000 0000 0000 1000 1000 0000 %1074 l26 %O3 0 %z009400 -01130 003793 %#1000 1000 0000 0000 0000 1000 0000 %1076 m26 %Y3 1 %z008951 -03639 003050 %#0000 1000 0000 1000 0000 1000 0000 %1078 n26 %L3 2 %z009097 -02185 -00743 %#0000 1000 1000 1000 0000 0000 0000 %1075 l27 %C3 3 %z007195 001635 -03809 %#0000 0000 1000 1000 1000 0000 0000 %1077 m27 %V3 4 %z007831 003792 -02730 %#1000 0000 1000 0000 1000 0000 0000 %1079 n27 %M3 5 %z006966 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %1072 k26 %N3 6 %z009540 000000 000000 %#1000 1000 1000 0000 0000 0000 0000 %1073 k27 %W3 7 %$ %z006966 -00002 000000 %#0000 0000 0000 1000 1000 1000 0000 %0972 k01 %N4 6 %z009541 -00002 000002 %#1000 1000 1000 0000 0000 0000 0000 %0980 k09 %W4 7 %$ %z006966 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0981 l01 %N5 6 %z009541 -00002 000003 %#1000 1000 1000 0000 0000 0000 0000 %0989 l09 %W5 7 %$ %z006966 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0990 m01 %N6 6 %z009541 -00003 000003 %#1000 1000 1000 0000 0000 0000 0000 %0998 m09 %W6 7 %$ %z006966 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0999 n01 %N7 6 %z009541 -00005 000001 %#1000 1000 1000 0000 0000 0000 0000 %1007 n09 %W7 7 %$ la7_line 12595 ] def %**************************************************************************** /LAB*Fa0100 [ %JE060-7A, Page 65 /66, LAB*la7; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %LAB*la7, D65, adapted, Y = 40.32 , L* = 69.69 %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z007631 002591 001110 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009405 -01128 003798 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z008949 -03632 003051 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z009102 -02206 -00720 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z007195 001623 -03798 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z007828 003773 -02719 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z006966 000001 000000 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009546 -00001 000014 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 007635 002605 001117 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 009401 -01130 003795 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 008944 -03625 003042 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 009110 -02202 -00726 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 007194 001632 -03804 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 007831 003786 -02724 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 006966 000000 000000 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009548 000000 000013 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def } if %xcolor 7, LAB*la7 %************************************************************************* 0 1 23 {/i exch def LAB*FaG0100 i LAB*Fa0100 i get 100 div put LAB*FaG1100 i LAB*Fa0100 i get 100 div put %identical, no L-data } 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.00 mul add put angle_olvG01i i 14 add angle_olvG01 i get angle_olvG01_dif 0.00 mul add put angle_olvG01i i 21 add angle_olvG01 i get angle_olvG01_dif 0.00 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.00 mul add put angle_olvG11i i 14 add angle_olvG11 i get angle_olvG11_dif 0.00 mul add put angle_olvG11i i 21 add angle_olvG11 i get angle_olvG11_dif 0.00 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 200 /Times-ISOL1 FS 0 setgray 100 -200 moveto (JG080-7A: ) show (Messung: ) showde (Measurement: ) showen FileData show 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=1.00; nt=0.18; nx=1.0, LECD_08_95) def 300 -150 moveto xchartl 7 le {(JG080-) show} {(JG081-) 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 FileData show /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.00 mul add put angle_olvi i 14 add angle_olv i get angle_olv_dif 0.00 mul add put angle_olvi i 21 add angle_olv i get angle_olv_dif 0.00 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.00 mul add put angle_rgbi i 14 add angle_rgb i get angle_rgb_dif 0.00 mul add put angle_rgbi i 21 add angle_rgb i get angle_rgb_dif 0.00 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_olv00 i get} if xcolor 4 eq xcolor 5 eq or {cname_olv00 i get} if xcolor 6 eq xcolor 7 eq or {cname_olv00 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_rgb00 i get} if xcolor 4 eq xcolor 5 eq or {cname_rgb00 i get} if xcolor 6 eq xcolor 7 eq or {cname_rgb00 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 get} if xcolor 4 eq xcolor 5 eq or {angle_olvi i get} if xcolor 6 eq xcolor 7 eq or {angle_olvi i 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 get} if xcolor 4 eq xcolor 5 eq or {angle_rgbi i get} if xcolor 6 eq xcolor 7 eq or {angle_rgbi i 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 newpath xchartl 0 ge xchartl 2 le and {%0<=xchartl <=2 %********************************************************************** 100 /Times-ISOL1 FS %********************************************************************** /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 %spalte e05 bis e05: W-O 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 050 0 360 arc fill 1 setgray 10 setlinewidth C*ab j get fakt mul L* j get fakt mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 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 %spalte e05 bis e05: W-C 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 050 0 360 arc fill 1 setgray 10 setlinewidth C*ab j get fakt mul L* j get fakt mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 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 newpath xchartl 4 ge xchartl 6 le and {%4<=xchartl <=6 %********************************************************************** 100 /Times-ISOL1 FS /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 %spalte e05 bis e05: W-O 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 Vorz mul l1* j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c1* j get fakt2 mul Vorz mul l1* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 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 %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def l2* j LUTl* ja get put c2* j LUTc1* ja get put newpath 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 1 setgray 10 setlinewidth c2* j get fakt2 mul Vorz mul l2* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 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 newpath xchartl 8 ge xchartl 10 le and {%8<=xchartl <=10 %********************************************************************** 100 /Times-ISOL1 FS /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 %spalte e05 bis e05: W-O 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 Vorz mul t1* j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c1* j get fakt2 mul Vorz mul t1* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 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 %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t2* j LUTt1* ja get put c2* j LUTc1* ja get put newpath 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 1 setgray 10 setlinewidth c2* j get fakt2 mul Vorz mul t2* j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 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 newpath xchartl 12 ge xchartl 14 le and {%12<=xchartl <=14 %********************************************************************** 100 /Times-ISOL1 FS /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 %spalte e05 bis e05: W-O 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 Vorz mul t1*rgb j get fakt2 mul 050 0 360 arc fill 1 setgray 10 setlinewidth c1*rgb j get fakt2 mul Vorz mul t1*rgb j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 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 %spalte e05 bis e05: W-C 0 1 0 {/j exch def %j=0,0 %lines /ja j 40 add def t2*rgb j LUTt*rgb ja get put c2*rgb j LUTc*rgb ja get put newpath 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 1 setgray 10 setlinewidth c2*rgb j get fakt2 mul Vorz mul t2*rgb j get fakt2 mul 055 0 360 arc stroke 20 setlinewidth newpath } for %j=0,0 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 /j729 0 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>=7 %********************************************************************** 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 %} for %xchart=0,15 grestore %} for %xcolor=0,1 %%Trailer %line 399 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG080-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 (JG080-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 %line 409 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG081-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 (JG081-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 %line 429 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG081-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 (JG081-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 %line 439 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG081-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 (JG081-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 %line 449 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG081-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 (JG081-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 %line 459 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG081-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 (JG081-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 %line 469 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG081-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 (JG081-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 %line 479 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG081-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 (JG081-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 %line 489 %%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 %!PS-Adobe-3.0 EPSF-3.0 JG081-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 (JG081-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 %line 499 %%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 JG08; Relatives Ger\344te\255Farbsystem O) showde (TUB\255test chart JG08; Relative Device Colour System O) showen 61 MM 09 MM moveto (9\255stufig; zwei LECD\255Display\255Reflexionen) showde (9 step series; two LECD display reflections) showen ( 0% und 40%) showde ( 0% and 40%) 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 (no change compared to input) showen (keine Eingabe\344nderung) showde } 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 {12 /Times-ISOL1 FS (no change compared to input) showen (keine Eingabe\344nderung) showde } 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/JG08/JG08L) show (0) show LSC$ show LEX$ show (; ) show LAB*TE 0 get show (; ) show (Start\255Ausgabe) showde (start output) showen %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 (JG08/JG08L) 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 (; Seite ) showde (; page ) showen xcolor 1 add cvishow (/2) show 16 MM 185 MM moveto -90 rotate (Siehe Original/Kopie: ) showde (See original or copy: ) showen (http://web.me.com/klaus.richter/JG08/JG08L) 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: 20100101\255JG08/JG08L) showde (TUB registration: 20100101\255JG08/JG08L) 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