%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/JG07/JG07L00XX 20100101 %%BoundingBox: 00 00 414 292 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put } if [ /Title (PostScript pictures: www.ps.bam.de/JG07/JG07.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->JG07/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->JG07/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20100101 %***************************************************************************** %BEG JK0X->JG07/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->JG07/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/JG07/JG07L0N) def %Link file name for data /CDateS1g (2010-01-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (JG07/JG07L0N) def %File name measured in step S1g %change scount2g from 2 to 10 for 10 series %change pcount2g from 8 to 240 for 240 pages of each series /scount1g 1 def /scount2g 1 def /scountg 1 def /pcount1g 1 def /pcount2g 1 def /pcountg 1 def %start=1, one more 9+1! /xchart1g 0 def /xchart2g 9 def /xchartg 0 def /BeginEPSF { % def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF { % def count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def %0 %1 /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /tzank [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /LAB*TE [(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 0.5 0.5 scale /pgsave save def %%EndPageSetup 0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter gsave /SS$ [(g) (e) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32 (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32 (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(1.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$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 0 def /lanindg2 0 def /colormg1 0 def /colormg2 0 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /pcount2x pcount2g xchart2g sub 2 add def /xcolor10 0 def /xcolor20 0 def %scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10 %1 1 1 {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 0 def /xchart20 0 def %pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %%pcountg pcount2x eq {/xchart10 2 def /xchart20 9 def} if xcolor10 1 xcolor20 {/xcolorg exch def xchart10 1 xchart20 {/xchartg exch def /ausz 8 def /xcharti 0 def %xchartg 2 eq xchartg 3 eq or xchartg 5 eq or {/xcharti 1 def} % {/xcharti 0 def} ifelse /colorm colormg def /xchart xchartg def /xchartg0 0 def %needs Definition of xcharti, is only in OUTLIN1X.PS %to be deleted for tests of Y.. on VAX LAB*ioG ColSepG %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/JG07/ ) 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$ 0 get def /GEY$ EY$ 0 get def %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %!PS-Adobe-3.0 EPSF-3.0 JG070-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 (JG070-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 JG070-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 (JG070-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 JG070-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 (JG070-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 JG070-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 (JG070-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 JG070-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 (JG070-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 JG070-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 (JG070-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 JG070-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/JG07/) /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 JG07_LECD display 0,9%_ra_LUT.DAT /FileDataen (_LUT.DAT, 243 colours, 100101, Separation olv*, adapted) def /FileDatade (_LUT.DAT, 243 Farben, 100101, Separation olv*, adaptiert) def %END JG07_LECD display 0,9%_ra_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 0 {/xcolor exch def %xcolor=0,0 gsave %/icolor xcolor xcolor 2 idiv 2 mul sub def %icolor=0 or 1 /icolor 0 def xcolor 0 eq {%xcolor 0, LAB*ra /FileData (JG07_LECD display 0,9%_ra) 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 ra_line 1146 %JE060-7A, Page 7 /66, LAB*ra; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %LAB*ra, D65, adapted, Y = 0.89 , L* = 8.08 000808 000025 000012 0000 0000 0000 1000 1000 1000 0000 %0000 A01 000931 000919 -01869 0000 0000 0125 1000 1000 0875 0000 %0001 A02 001167 002466 -03965 0000 0000 0250 1000 1000 0750 0000 %0002 A03 001401 003576 -05276 0000 0000 0375 1000 1000 0625 0000 %0003 A04 001648 004412 -06317 0000 0000 0500 1000 1000 0500 0000 %0004 A05 001898 005148 -07223 0000 0000 0625 1000 1000 0375 0000 %0005 A06 002150 005821 -08070 0000 0000 0750 1000 1000 0250 0000 %0006 A07 002474 006445 -08938 0000 0000 0875 1000 1000 0125 0000 %0007 A08 003158 007462 -10553 0000 0000 1000 1000 1000 0000 0000 %0008 A09 001676 -01579 001271 0000 0125 0000 1000 0875 1000 0000 %0009 B01 001731 -00841 -00575 0000 0125 0125 1000 0875 0875 0000 %0010 B02 001874 000615 -02750 0000 0125 0250 1000 0875 0750 0000 %0011 B03 002040 001847 -04246 0000 0125 0375 1000 0875 0625 0000 %0012 B04 002213 002785 -05404 0000 0125 0500 1000 0875 0500 0000 %0013 B05 002391 003696 -06406 0000 0125 0625 1000 0875 0375 0000 %0014 B06 002597 004497 -07327 0000 0125 0750 1000 0875 0250 0000 %0015 B07 002854 005273 -08288 0000 0125 0875 1000 0875 0125 0000 %0016 B08 003446 006580 -10061 0000 0125 1000 1000 0875 0000 0000 %0017 B09 002876 -03237 002923 0000 0250 0000 1000 0750 1000 0000 %0018 C01 002906 -02734 001262 0000 0250 0125 1000 0750 0875 0000 %0019 C02 002993 -01616 -00976 0000 0250 0250 1000 0750 0750 0000 %0020 C03 003091 -00586 -02497 0000 0250 0375 1000 0750 0625 0000 %0021 C04 003191 000408 -03782 0000 0250 0500 1000 0750 0500 0000 %0022 C05 003312 001309 -04892 0000 0250 0625 1000 0750 0375 0000 %0023 C06 003452 002169 -05901 0000 0250 0750 1000 0750 0250 0000 %0024 C07 003633 003104 -07003 0000 0250 0875 1000 0750 0125 0000 %0025 C08 004077 004741 -08995 0000 0250 1000 1000 0750 0000 0000 %0026 C09 003824 -04321 004085 0000 0375 0000 1000 0625 1000 0000 %0027 D01 003844 -03918 002597 0000 0375 0125 1000 0625 0875 0000 %0028 D02 003899 -03043 000431 0000 0375 0250 1000 0625 0750 0000 %0029 D03 003963 -02220 -01080 0000 0375 0375 1000 0625 0625 0000 %0030 D04 004045 -01337 -02393 0000 0375 0500 1000 0625 0500 0000 %0031 D05 004128 -00501 -03529 0000 0375 0625 1000 0625 0375 0000 %0032 D06 004232 000341 -04610 0000 0375 0750 1000 0625 0250 0000 %0033 D07 004370 001369 -05750 0000 0375 0875 1000 0625 0125 0000 %0034 D08 004720 003008 -07907 0000 0375 1000 1000 0625 0000 0000 %0035 D09 004663 -05141 005048 0000 0500 0000 1000 0500 1000 0000 %0036 E01 004682 -04842 003741 0000 0500 0125 1000 0500 0875 0000 %0037 E02 004724 -04159 001691 0000 0500 0250 1000 0500 0750 0000 %0038 E03 004772 -03460 000184 0000 0500 0375 1000 0500 0625 0000 %0039 E04 004831 -02703 -01131 0000 0500 0500 1000 0500 0500 0000 %0040 E05 004899 -01972 -02284 0000 0500 0625 1000 0500 0375 0000 %0041 E06 004980 -01162 -03396 0000 0500 0750 1000 0500 0250 0000 %0042 E07 005089 -00302 -04578 0000 0500 0875 1000 0500 0125 0000 %0043 E08 005373 001453 -06830 0000 0500 1000 1000 0500 0000 0000 %0044 E09 005431 -05829 005927 0000 0625 0000 1000 0375 1000 0000 %0045 F01 005443 -05597 004727 0000 0625 0125 1000 0375 0875 0000 %0046 F02 005476 -05041 002787 0000 0625 0250 1000 0375 0750 0000 %0047 F03 005515 -04461 001339 0000 0625 0375 1000 0375 0625 0000 %0048 F04 005562 -03800 000016 0000 0625 0500 1000 0375 0500 0000 %0049 F05 005617 -03145 -01136 0000 0625 0625 1000 0375 0375 0000 %0050 F06 005680 -02436 -02252 0000 0625 0750 1000 0375 0250 0000 %0051 F07 005773 -01611 -03470 0000 0625 0875 1000 0375 0125 0000 %0052 F08 006008 000062 -05776 0000 0625 1000 1000 0375 0000 0000 %0053 F09 006230 -06526 006792 0000 0750 0000 1000 0250 1000 0000 %0054 G01 006242 -06336 005756 0000 0750 0125 1000 0250 0875 0000 %0055 G02 006269 -05869 003933 0000 0750 0250 1000 0250 0750 0000 %0056 G03 006301 -05372 002517 0000 0750 0375 1000 0250 0625 0000 %0057 G04 006339 -04813 001226 0000 0750 0500 1000 0250 0500 0000 %0058 G05 006382 -04248 000073 0000 0750 0625 1000 0250 0375 0000 %0059 G06 006436 -03629 -01046 0000 0750 0750 1000 0250 0250 0000 %0060 G07 006509 -02887 -02269 0000 0750 0875 1000 0250 0125 0000 %0061 G08 006708 -01319 -04626 0000 0750 1000 1000 0250 0000 0000 %0062 G09 007134 -07253 007791 0000 0875 0000 1000 0125 1000 0000 %0063 H01 007142 -07093 006887 0000 0875 0125 1000 0125 0875 0000 %0064 H02 007165 -06720 005198 0000 0875 0250 1000 0125 0750 0000 %0065 H03 007191 -06307 003830 0000 0875 0375 1000 0125 0625 0000 %0066 H04 007222 -05845 002575 0000 0875 0500 1000 0125 0500 0000 %0067 H05 007256 -05354 001433 0000 0875 0625 1000 0125 0375 0000 %0068 H06 007300 -04815 000317 0000 0875 0750 1000 0125 0250 0000 %0069 H07 007361 -04161 -00914 0000 0875 0875 1000 0125 0125 0000 %0070 H08 007522 -02745 -03292 0000 0875 1000 1000 0125 0000 0000 %0071 H09 008413 -08214 009227 0000 1000 0000 1000 0000 1000 0000 %0072 I01 008419 -08103 008441 0000 1000 0125 1000 0000 0875 0000 %0073 I02 008437 -07802 006939 0000 1000 0250 1000 0000 0750 0000 %0074 I03 008458 -07489 005659 0000 1000 0375 1000 0000 0625 0000 %0075 I04 008480 -07116 004454 0000 1000 0500 1000 0000 0500 0000 %0076 I05 008508 -06733 003342 0000 1000 0625 1000 0000 0375 0000 %0077 I06 008540 -06300 002243 0000 1000 0750 1000 0000 0250 0000 %0078 I07 008588 -05756 001027 0000 1000 0875 1000 0000 0125 0000 %0079 I08 008716 -04558 -01357 0000 1000 1000 1000 0000 0000 0000 %0080 I09 001127 001190 000529 0125 0000 0000 0875 1000 1000 0000 %0081 J01 001205 001753 -01331 0125 0000 0125 0875 1000 0875 0000 %0082 J02 001418 002878 -03493 0125 0000 0250 0875 1000 0750 0000 %0083 J03 001619 003769 -04861 0125 0000 0375 0875 1000 0625 0000 %0084 J04 001836 004568 -05982 0125 0000 0500 0875 1000 0500 0000 %0085 J05 002062 005298 -06947 0125 0000 0625 0875 1000 0375 0000 %0086 J06 002294 005870 -07795 0125 0000 0750 0875 1000 0250 0000 %0087 J07 002597 006510 -08721 0125 0000 0875 0875 1000 0125 0000 %0088 J08 003249 007507 -10384 0125 0000 1000 0875 1000 0000 0000 %0089 J09 001849 -00470 001613 0125 0125 0000 0875 0875 1000 0000 %0090 K01 001911 000085 -00255 0125 0125 0125 0875 0875 0875 0000 %0091 K02 002040 001222 -02481 0125 0125 0250 0875 0875 0750 0000 %0092 K03 002182 002215 -03938 0125 0125 0375 0875 0875 0625 0000 %0093 K04 002343 003111 -05148 0125 0125 0500 0875 0875 0500 0000 %0094 K05 002519 003943 -06182 0125 0125 0625 0875 0875 0375 0000 %0095 K06 002705 004618 -07093 0125 0125 0750 0875 0875 0250 0000 %0096 K07 002957 005406 -08120 0125 0125 0875 0875 0875 0125 0000 %0097 K08 003527 006648 -09917 0125 0125 1000 0875 0875 0000 0000 %0098 K09 002972 -02430 003077 0125 0250 0000 0875 0750 1000 0000 %0099 L01 003007 -07510 000165 0125 0250 0125 0875 0750 0875 0000 %0100 L02 003084 -01053 -00796 0125 0250 0250 0875 0750 0750 0000 %0101 L03 003178 -00144 -02315 0125 0250 0375 0875 0750 0625 0000 %0102 L04 003281 000765 -03606 0125 0250 0500 0875 0750 0500 0000 %0103 L05 003398 001602 -04723 0125 0250 0625 0875 0750 0375 0000 %0104 L06 003533 002401 -05763 0125 0250 0750 0875 0750 0250 0000 %0105 L07 003704 003295 -06855 0125 0250 0875 0875 0750 0125 0000 %0106 L08 004142 004871 -08881 0125 0250 1000 0875 0750 0000 0000 %0107 L09 003889 -03708 004160 0125 0375 0000 0875 0625 1000 0000 %0108 M01 003914 -03381 002707 0125 0375 0125 0875 0625 0875 0000 %0109 M02 003973 -02581 000573 0125 0375 0250 0875 0625 0750 0000 %0110 M03 004035 -01789 -00940 0125 0375 0375 0875 0625 0625 0000 %0111 M04 004110 -00980 -02266 0125 0375 0500 0875 0625 0500 0000 %0112 M05 004192 -00189 -03410 0125 0375 0625 0875 0625 0375 0000 %0113 M06 004293 000597 -04498 0125 0375 0750 0875 0625 0250 0000 %0114 M07 004420 001477 -05647 0125 0375 0875 0875 0625 0125 0000 %0115 M08 004776 003185 -07829 0125 0375 1000 0875 0625 0000 0000 %0116 M09 004720 -04664 005124 0125 0500 0000 0875 0500 1000 0000 %0117 N01 004739 -04393 003819 0125 0500 0125 0875 0500 0875 0000 %0118 N02 004780 -03752 001787 0125 0500 0250 0875 0500 0750 0000 %0119 N03 004827 -03091 000292 0125 0500 0375 0875 0500 0625 0000 %0120 N04 004888 -02384 -01021 0125 0500 0500 0875 0500 0500 0000 %0121 N05 004949 -01676 -02177 0125 0500 0625 0875 0500 0375 0000 %0122 N06 005099 -00949 -03326 0125 0500 0750 0875 0500 0250 0000 %0123 N07 005139 -00085 -04487 0125 0500 0875 0875 0500 0125 0000 %0124 N08 005422 001616 -06753 0125 0500 1000 0875 0500 0000 0000 %0125 N09 005476 -05455 005957 0125 0625 0000 0875 0375 1000 0000 %0126 O01 005488 -05229 004819 0125 0625 0125 0875 0375 0875 0000 %0127 O02 005524 -04688 002885 0125 0625 0250 0875 0375 0750 0000 %0128 O03 005565 -04094 001377 0125 0625 0375 0875 0375 0625 0000 %0129 O04 005609 -03511 000111 0125 0625 0500 0875 0375 0500 0000 %0130 O05 005660 -02892 -01046 0125 0625 0625 0875 0375 0375 0000 %0131 O06 005728 -02202 -02175 0125 0625 0750 0875 0375 0250 0000 %0132 O07 005814 -01414 -03385 0125 0625 0875 0875 0375 0125 0000 %0133 O08 006052 000222 -05709 0125 0625 1000 0875 0375 0000 0000 %0134 O09 006272 -06218 006858 0125 0750 0000 0875 0250 1000 0000 %0135 P01 006281 -06024 005814 0125 0750 0125 0875 0250 0875 0000 %0136 P02 006308 -05577 004005 0125 0750 0250 0875 0250 0750 0000 %0137 P03 006341 -05108 002588 0125 0750 0375 0875 0250 0625 0000 %0138 P04 006379 -04563 001301 0125 0750 0500 0875 0250 0500 0000 %0139 P05 006424 -04017 000146 0125 0750 0625 0875 0250 0375 0000 %0140 P06 006475 -03411 -00979 0125 0750 0750 0875 0250 0250 0000 %0141 P07 006548 -02694 -02205 0125 0750 0875 0875 0250 0125 0000 %0142 P08 006745 -01166 -04559 0125 0750 1000 0875 0250 0000 0000 %0143 P09 007167 -07002 007827 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 007177 -06839 006932 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 007197 -06482 005253 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 007222 -06084 003891 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 007254 -05636 002633 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 007289 -05157 001494 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 007332 -04626 000376 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 007392 -03982 -00854 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 007555 -02603 -03241 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 008431 -08022 009245 0125 1000 0000 0875 0000 1000 0000 %0153 R01 008438 -07903 008476 0125 1000 0125 0875 0000 0875 0000 %0154 R02 008455 -07611 006967 0125 1000 0250 0875 0000 0750 0000 %0155 R03 009894 -08308 006508 0125 1000 0375 0875 0000 0625 0000 %0156 R04 008498 -06948 004484 0125 1000 0500 0875 0000 0500 0000 %0157 R05 008526 -06564 003376 0125 1000 0625 0875 0000 0375 0000 %0158 R06 008559 -06131 002274 0125 1000 0750 0875 0000 0250 0000 %0159 R07 008606 -05605 001058 0125 1000 0875 0875 0000 0125 0000 %0160 R08 008732 -04410 -01330 0125 1000 1000 0875 0000 0000 0000 %0161 R09 001717 002484 001492 0250 0000 0000 0750 1000 1000 0000 %0162 S01 001784 002854 -00432 0250 0000 0125 0750 1000 0875 0000 %0163 S02 001923 003609 -02631 0250 0000 0250 0750 1000 0750 0000 %0164 S03 002085 004266 -04083 0250 0000 0375 0750 1000 0625 0000 %0165 S04 002244 004920 -05279 0250 0000 0500 0750 1000 0500 0000 %0166 S05 002419 005493 -06289 0250 0000 0625 0750 1000 0375 0000 %0167 S06 002631 006065 -07246 0250 0000 0750 0750 1000 0250 0000 %0168 S07 002884 006634 -08220 0250 0000 0875 0750 1000 0125 0000 %0169 S08 003469 007616 -10008 0250 0000 1000 0750 1000 0000 0000 %0170 S09 002254 001153 002206 0250 0125 0000 0750 0875 1000 0000 %0171 T01 002304 001480 000414 0250 0125 0125 0750 0875 0875 0000 %0172 T02 002409 002247 -01846 0250 0125 0250 0750 0875 0750 0000 %0173 T03 002536 002996 -03349 0250 0125 0375 0750 0875 0625 0000 %0174 T04 002672 003704 -04604 0250 0125 0500 0750 0875 0500 0000 %0175 T05 002815 004340 -05649 0250 0125 0625 0750 0875 0375 0000 %0176 T06 002979 004980 -06628 0250 0125 0750 0750 0875 0250 0000 %0177 T07 003204 005678 -07698 0250 0125 0875 0750 0875 0125 0000 %0178 T08 003725 006833 -09578 0250 0125 1000 0750 0875 0000 0000 %0179 T09 003224 -00977 003472 0250 0250 0000 0750 0750 1000 0000 %0180 U01 003249 -00657 001813 0250 0250 0125 0750 0750 0875 0000 %0181 U02 003325 000065 -00399 0250 0250 0250 0750 0750 0750 0000 %0182 U03 003404 000792 -01927 0250 0250 0375 0750 0750 0625 0000 %0183 U04 003498 001520 -03236 0250 0250 0500 0750 0750 0500 0000 %0184 U05 003606 002223 -04353 0250 0250 0625 0750 0750 0375 0000 %0185 U06 003725 002926 -05405 0250 0250 0750 0750 0750 0250 0000 %0186 U07 003894 003710 -06526 0250 0250 0875 0750 0750 0125 0000 %0187 U08 004306 005143 -08599 0250 0250 1000 0750 0750 0000 0000 %0188 U09 004068 000928 006968 0250 0375 0000 0750 0625 1000 0000 %0189 V01 004091 -02192 002984 0250 0375 0125 0750 0625 0875 0000 %0190 V02 004142 -01537 000852 0250 0375 0250 0750 0625 0750 0000 %0191 V03 004201 -00900 -00672 0250 0375 0375 0750 0625 0625 0000 %0192 V04 004271 -00207 -01994 0250 0375 0500 0750 0625 0500 0000 %0193 V05 004353 000475 -03134 0250 0375 0625 0750 0625 0375 0000 %0194 V06 004449 001174 -04233 0250 0375 0750 0750 0625 0250 0000 %0195 V07 004578 001974 -05403 0250 0375 0875 0750 0625 0125 0000 %0196 V08 004910 003528 -07590 0250 0375 1000 0750 0625 0000 0000 %0197 V09 004856 -03639 005337 0250 0500 0000 0750 0500 1000 0000 %0198 W01 004874 -03412 004053 0250 0500 0125 0750 0500 0875 0000 %0199 W02 004913 -02854 002010 0250 0500 0250 0750 0500 0750 0000 %0200 W03 004959 -02278 000520 0250 0500 0375 0750 0500 0625 0000 %0201 W04 005018 -01667 -00803 0250 0500 0500 0750 0500 0500 0000 %0202 W05 005079 -01021 -01965 0250 0500 0625 0750 0500 0375 0000 %0203 W06 005156 -00362 -03082 0250 0500 0750 0750 0500 0250 0000 %0204 W07 005259 000424 -04282 0250 0500 0875 0750 0500 0125 0000 %0205 W08 005786 002048 -06786 0250 0500 1000 0750 0500 0000 0000 %0206 W09 005585 -04619 006156 0250 0625 0000 0750 0375 1000 0000 %0207 X01 005600 -04388 004974 0250 0625 0125 0750 0375 0875 0000 %0208 X02 005635 -03910 003061 0250 0625 0250 0750 0375 0750 0000 %0209 X03 005672 -03413 001600 0250 0625 0375 0750 0375 0625 0000 %0210 X04 005717 -02849 000280 0250 0625 0500 0750 0375 0500 0000 %0211 X05 005770 -02273 -00873 0250 0625 0625 0750 0375 0375 0000 %0212 X06 005830 -01664 -01998 0250 0625 0750 0750 0375 0250 0000 %0213 X07 005916 -00920 -03218 0250 0625 0875 0750 0375 0125 0000 %0214 X08 006146 000600 -05538 0250 0625 1000 0750 0375 0000 0000 %0215 X09 006360 -05497 006977 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 006372 -05329 005953 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 006400 -04906 004155 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 006429 -04466 002731 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 006466 -03980 001441 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 006509 -03463 000293 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 006559 -02904 -00830 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 006633 -02236 -02063 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 006826 -00786 -04427 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 007239 -06400 007951 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 007249 -06258 007038 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 007268 -05917 005362 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 007295 -05541 004005 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 007325 -05109 002753 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 007359 -04679 001611 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 007402 -04164 000488 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 007461 -03576 -00733 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 007622 -02243 -03125 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 008482 -07555 009317 0250 1000 0000 0750 0000 1000 0000 %0234 a01 008489 -07444 008559 0250 1000 0125 0750 0000 0875 0000 %0235 a02 008507 -07169 007050 0250 1000 0250 0750 0000 0750 0000 %0236 a03 008526 -06873 005776 0250 1000 0375 0750 0000 0625 0000 %0237 a04 008548 -06520 004573 0250 1000 0500 0750 0000 0500 0000 %0238 a05 008575 -06158 003460 0250 1000 0625 0750 0000 0375 0000 %0239 a06 008610 -05739 002358 0250 1000 0750 0750 0000 0250 0000 %0240 a07 008656 -05233 001137 0250 1000 0875 0750 0000 0125 0000 %0241 a08 008782 -04078 -01249 0250 1000 1000 0750 0000 0000 0000 %0242 a09 %JE060-7A, Page 8 /66, LAB*ra; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted 002244 003463 002320 0375 0000 0000 0625 1000 1000 0000 %0243 A10 002294 003708 000457 0375 0000 0125 0625 1000 0875 0000 %0244 A11 002409 004240 -01813 0375 0000 0250 0625 1000 0750 0000 %0245 A12 002527 004773 -03309 0375 0000 0375 0625 1000 0625 0000 %0246 A13 002664 005291 -04560 0375 0000 0500 0625 1000 0500 0000 %0247 A14 002808 005778 -05605 0375 0000 0625 0625 1000 0375 0000 %0248 A15 002979 006299 -06619 0375 0000 0750 0625 1000 0250 0000 %0249 A16 003198 006823 -07655 0375 0000 0875 0625 1000 0125 0000 %0250 A17 003725 007752 -09558 0375 0000 1000 0625 1000 0000 0000 %0251 A18 002664 002326 002875 0375 0125 0000 0625 0875 1000 0000 %0252 B10 002705 002574 001068 0375 0125 0125 0625 0875 0875 0000 %0253 B11 002800 003151 -01194 0375 0125 0250 0625 0875 0750 0000 %0254 B12 002899 003696 -02708 0375 0125 0375 0625 0875 0625 0000 %0255 B13 003021 004263 -03989 0375 0125 0500 0625 0875 0500 0000 %0256 B14 003145 004824 -05086 0375 0125 0625 0625 0875 0375 0000 %0257 B15 003416 005506 -06269 0375 0125 0750 0625 0875 0250 0000 %0258 B16 003487 005955 -07185 0375 0125 0875 0625 0875 0125 0000 %0259 B17 003963 007044 -09169 0375 0125 1000 0625 0875 0000 0000 %0260 B18 003498 000327 003875 0375 0250 0000 0625 0750 1000 0000 %0261 C10 003527 000571 002257 0375 0250 0125 0625 0750 0875 0000 %0262 C11 003595 001130 000046 0375 0250 0250 0625 0750 0750 0000 %0263 C12 003672 001714 -01495 0375 0250 0375 0625 0750 0625 0000 %0264 C13 003751 002318 -02805 0375 0250 0500 0625 0750 0500 0000 %0265 C14 003849 002890 -03935 0375 0250 0625 0625 0750 0375 0000 %0266 C15 003963 003513 -05016 0375 0250 0750 0625 0750 0250 0000 %0267 C16 004114 004187 -06154 0375 0250 0875 0625 0750 0125 0000 %0268 C17 004502 005489 -08275 0375 0250 1000 0625 0750 0000 0000 %0269 C18 004276 -01277 004758 0375 0375 0000 0625 0625 1000 0000 %0270 D10 004297 -01019 003306 0375 0375 0125 0625 0625 0875 0000 %0271 D11 004344 -00508 001188 0375 0375 0250 0625 0625 0750 0000 %0272 D12 004399 000016 -00328 0375 0375 0375 0625 0625 0625 0000 %0273 D13 004469 000620 -01665 0375 0375 0500 0625 0625 0500 0000 %0274 D14 004546 001212 -02819 0375 0375 0625 0625 0625 0375 0000 %0275 D15 004632 001820 -03923 0375 0375 0750 0625 0625 0250 0000 %0276 D16 004754 002528 -05105 0375 0375 0875 0625 0625 0125 0000 %0277 D17 005072 003916 -07313 0375 0375 1000 0625 0625 0000 0000 %0278 D18 005018 -02569 005560 0375 0500 0000 0625 0500 1000 0000 %0279 E10 005035 -02363 004284 0375 0500 0125 0625 0500 0875 0000 %0280 E11 005076 -01894 002267 0375 0500 0250 0625 0500 0750 0000 %0281 E12 005119 -00518 001117 0375 0500 0375 0625 0500 0625 0000 %0282 E13 005172 -00852 -00550 0375 0500 0500 0625 0500 0500 0000 %0283 E14 005234 -00300 -01708 0375 0500 0625 0625 0500 0375 0000 %0284 E15 005307 000311 -02836 0375 0500 0750 0625 0500 0250 0000 %0285 E16 005406 000991 -04043 0375 0500 0875 0625 0500 0125 0000 %0286 E17 005669 002424 -06325 0375 0500 1000 0625 0500 0000 0000 %0287 E18 005717 -03656 006307 0375 0625 0000 0625 0375 1000 0000 %0288 F10 005731 -03472 005176 0375 0625 0125 0625 0375 0875 0000 %0289 F11 005764 -03044 003262 0375 0625 0250 0625 0375 0750 0000 %0290 F12 005803 -02591 001814 0375 0625 0375 0625 0375 0625 0000 %0291 F13 005844 -02088 000495 0375 0625 0500 0625 0375 0500 0000 %0292 F14 005895 -01589 -00659 0375 0625 0625 0625 0375 0375 0000 %0293 F15 005956 -01013 -01789 0375 0625 0750 0625 0375 0250 0000 %0294 F16 006039 -00350 -03010 0375 0625 0875 0625 0375 0125 0000 %0295 F17 006262 001070 -05349 0375 0625 1000 0625 0375 0000 0000 %0296 F18 006468 -04674 007123 0375 0750 0000 0625 0250 1000 0000 %0297 G10 006479 -04523 006108 0375 0750 0125 0625 0250 0875 0000 %0298 G11 006507 -04142 004317 0375 0750 0250 0625 0250 0750 0000 %0299 G12 006537 -03739 002901 0375 0750 0375 0625 0250 0625 0000 %0300 G13 006573 -03289 001616 0375 0750 0500 0625 0250 0500 0000 %0301 G14 006613 -02823 000466 0375 0750 0625 0625 0250 0375 0000 %0302 G15 006666 -02294 -00659 0375 0750 0750 0625 0250 0250 0000 %0303 G16 006736 -01667 -01894 0375 0750 0875 0625 0250 0125 0000 %0304 G17 006924 -00323 -04262 0375 0750 1000 0625 0250 0000 0000 %0305 G18 007327 -05712 008059 0375 0875 0000 0625 0125 1000 0000 %0306 H10 007336 -05570 007166 0375 0875 0125 0625 0125 0875 0000 %0307 H11 007357 -05240 005499 0375 0875 0250 0625 0125 0750 0000 %0308 H12 007381 -04896 004139 0375 0875 0375 0625 0125 0625 0000 %0309 H13 007413 -04509 002888 0375 0875 0500 0625 0125 0500 0000 %0310 H14 007446 -04088 001751 0375 0875 0625 0625 0125 0375 0000 %0311 H15 007488 -03627 000631 0375 0875 0750 0625 0125 0250 0000 %0312 H16 007548 -03058 -00599 0375 0875 0875 0625 0125 0125 0000 %0313 H17 007705 -01796 -02990 0375 0875 1000 0625 0125 0000 0000 %0314 H18 008548 -07012 009403 0375 1000 0000 0625 0000 1000 0000 %0315 I10 008553 -06895 008640 0375 1000 0125 0625 0000 0875 0000 %0316 I11 008571 -06624 007151 0375 1000 0250 0625 0000 0750 0000 %0317 I12 008591 -06341 005881 0375 1000 0375 0625 0000 0625 0000 %0318 I13 008614 -06009 004672 0375 1000 0500 0625 0000 0500 0000 %0319 I14 008642 -05666 003564 0375 1000 0625 0625 0000 0375 0000 %0320 I15 008674 -05268 002464 0375 1000 0750 0625 0000 0250 0000 %0321 I16 008720 -04781 001244 0375 1000 0875 0625 0000 0125 0000 %0322 I17 008845 -03685 -01146 0375 1000 1000 0625 0000 0000 0000 %0323 I18 002777 004306 003138 0500 0000 0000 0500 1000 1000 0000 %0324 J10 002823 004510 001307 0500 0000 0125 0500 1000 0875 0000 %0325 J11 002906 004859 -00963 0500 0000 0250 0500 1000 0750 0000 %0326 J12 003007 005328 -02521 0500 0000 0375 0500 1000 0625 0000 %0327 J13 003118 005761 -03813 0500 0000 0500 0500 1000 0500 0000 %0328 J14 003230 006145 -04879 0500 0000 0625 0500 1000 0375 0000 %0329 J15 003380 006597 -05938 0500 0000 0750 0500 1000 0250 0000 %0330 J16 003567 006989 -06987 0500 0000 0875 0500 1000 0125 0000 %0331 J17 004035 007930 -09025 0500 0000 1000 0500 1000 0000 0000 %0332 J18 003111 003346 003552 0500 0125 0000 0500 0875 1000 0000 %0333 K10 003145 003564 001778 0500 0125 0125 0500 0875 0875 0000 %0334 K11 003224 003992 -00490 0500 0125 0250 0500 0875 0750 0000 %0335 K12 003312 004416 -02017 0500 0125 0375 0500 0875 0625 0000 %0336 K13 003410 004881 -03333 0500 0125 0500 0500 0875 0500 0000 %0337 K14 003516 005327 -04441 0500 0125 0625 0500 0875 0375 0000 %0338 K15 003644 005790 -05503 0500 0125 0750 0500 0875 0250 0000 %0339 K16 003819 006322 -06629 0500 0125 0875 0500 0875 0125 0000 %0340 K17 004245 007316 -08687 0500 0125 1000 0500 0875 0000 0000 %0341 K18 003824 001533 004358 0500 0250 0000 0500 0750 1000 0000 %0342 L10 003854 001737 002767 0500 0250 0125 0500 0750 0875 0000 %0343 L11 003909 002166 000572 0500 0250 0250 0500 0750 0750 0000 %0344 L12 003978 002627 -00970 0500 0250 0375 0500 0750 0625 0000 %0345 L13 004054 003120 -02305 0500 0250 0500 0500 0750 0500 0000 %0346 L14 004142 003602 -03445 0500 0250 0625 0500 0750 0375 0000 %0347 L15 004245 004124 -04538 0500 0250 0750 0500 0750 0250 0000 %0348 L16 004382 004715 -05700 0500 0250 0875 0500 0750 0125 0000 %0349 L17 004739 005869 -07862 0500 0250 1000 0500 0750 0000 0000 %0350 L18 004522 -00063 005116 0500 0375 0000 0500 0625 1000 0000 %0351 M10 004546 000142 003695 0500 0375 0125 0500 0625 0875 0000 %0352 M11 004593 000564 001593 0500 0375 0250 0500 0625 0750 0000 %0353 M12 004644 001020 000068 0500 0375 0375 0500 0625 0625 0000 %0354 M13 004709 001515 -01257 0500 0375 0500 0500 0625 0500 0000 %0355 M14 004776 002015 -02422 0500 0375 0625 0500 0625 0375 0000 %0356 M15 004860 002540 -03544 0500 0375 0750 0500 0625 0250 0000 %0357 M16 004973 003146 -04720 0500 0375 0875 0500 0625 0125 0000 %0358 M17 005272 004397 -06967 0500 0375 1000 0500 0625 0000 0000 %0359 M18 005218 -01429 005860 0500 0500 0000 0500 0500 1000 0000 %0360 N10 005234 -01245 004582 0500 0500 0125 0500 0500 0875 0000 %0361 N11 005272 -00847 002590 0500 0500 0250 0500 0500 0750 0000 %0362 N12 005316 -00419 001093 0500 0500 0375 0500 0500 0625 0000 %0363 N13 005366 000052 -00221 0500 0500 0500 0500 0500 0500 0000 %0364 N14 005422 000533 -01395 0500 0500 0625 0500 0500 0375 0000 %0365 N15 005491 001051 -02516 0500 0500 0750 0500 0500 0250 0000 %0366 N16 005585 001675 -03734 0500 0500 0875 0500 0500 0125 0000 %0367 N17 005841 002961 -06041 0500 0500 1000 0500 0500 0000 0000 %0368 N18 005884 -02600 006555 0500 0625 0000 0500 0375 1000 0000 %0369 O10 005895 -02439 005415 0500 0625 0125 0500 0375 0875 0000 %0370 O11 005927 -02068 003524 0500 0625 0250 0500 0375 0750 0000 %0371 O12 005964 -01670 002073 0500 0625 0375 0500 0375 0625 0000 %0372 O13 006006 -01232 000766 0500 0625 0500 0500 0375 0500 0000 %0373 O14 006052 -00766 -00398 0500 0625 0625 0500 0375 0375 0000 %0374 O15 006111 -00263 -01530 0500 0625 0750 0500 0375 0250 0000 %0375 O16 006191 000332 -02759 0500 0625 0875 0500 0375 0125 0000 %0376 O17 006407 001621 -05101 0500 0625 1000 0500 0375 0000 0000 %0377 O18 006602 -03733 007310 0500 0750 0000 0500 0250 1000 0000 %0378 P10 006615 -03582 006312 0500 0750 0125 0500 0250 0875 0000 %0379 P11 006642 -03248 004535 0500 0750 0250 0500 0250 0750 0000 %0380 P12 006671 -02891 003124 0500 0750 0375 0500 0250 0625 0000 %0381 P13 006703 -02478 001840 0500 0750 0500 0500 0250 0500 0000 %0382 P14 006747 -02059 000683 0500 0750 0625 0500 0250 0375 0000 %0383 P15 006794 -01587 -00446 0500 0750 0750 0500 0250 0250 0000 %0384 P16 006864 -01011 -01675 0500 0750 0875 0500 0250 0125 0000 %0385 P17 007046 000228 -04056 0500 0750 1000 0500 0250 0000 0000 %0386 P18 007435 -04888 008198 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 007444 -04761 007331 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 007468 -04454 005670 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 007490 -04134 004324 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 007519 -03768 003070 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 007553 -03387 001934 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 007594 -02961 000813 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 007651 -02429 -00418 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 007806 -01252 -02822 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 008629 -06319 009511 0500 1000 0000 0500 0000 1000 0000 %0396 R10 008637 -06218 008764 0500 1000 0125 0500 0000 0875 0000 %0397 R11 008653 -05967 007279 0500 1000 0250 0500 0000 0750 0000 %0398 R12 008672 -05693 006015 0500 1000 0375 0500 0000 0625 0000 %0399 R13 008694 -05387 004804 0500 1000 0500 0500 0000 0500 0000 %0400 R14 008721 -05059 003704 0500 1000 0625 0500 0000 0375 0000 %0401 R15 008754 -04695 002601 0500 1000 0750 0500 0000 0250 0000 %0402 R16 008798 -04223 001382 0500 1000 0875 0500 0000 0125 0000 %0403 R17 008923 -03176 -01012 0500 1000 1000 0500 0000 0000 0000 %0404 R18 003287 005027 003923 0625 0000 0000 0375 1000 1000 0000 %0405 S10 003319 005153 002141 0625 0000 0125 0375 1000 0875 0000 %0406 S11 003398 005492 -00150 0625 0000 0250 0375 1000 0750 0000 %0407 S12 003475 005832 -01699 0625 0000 0375 0375 1000 0625 0000 %0408 S13 003567 006189 -03020 0625 0000 0500 0375 1000 0500 0000 %0409 S14 003672 006563 -04152 0625 0000 0625 0375 1000 0375 0000 %0410 S15 003788 006919 -05215 0625 0000 0750 0375 1000 0250 0000 %0411 S16 003954 007356 -06362 0625 0000 0875 0375 1000 0125 0000 %0412 S17 004366 008183 -08476 0625 0000 1000 0375 1000 0000 0000 %0413 S18 003555 004241 004225 0625 0125 0000 0375 0875 1000 0000 %0414 T10 003589 004401 002508 0625 0125 0125 0375 0875 0875 0000 %0415 T11 003655 004757 000242 0625 0125 0250 0375 0875 0750 0000 %0416 T12 003725 005084 -01305 0625 0125 0375 0375 0875 0625 0000 %0417 T13 003814 005472 -02637 0625 0125 0500 0375 0875 0500 0000 %0418 T14 003909 005880 -03789 0625 0125 0625 0375 0875 0375 0000 %0419 T15 004021 006256 -04861 0625 0125 0750 0375 0875 0250 0000 %0420 T16 004169 006725 -06024 0625 0125 0875 0375 0875 0125 0000 %0421 T17 004554 007624 -08175 0625 0125 1000 0375 0875 0000 0000 %0422 T18 004165 002625 004865 0625 0250 0000 0375 0750 1000 0000 %0423 U10 004192 002778 003334 0625 0250 0125 0375 0750 0875 0000 %0424 U11 004245 003116 001146 0625 0250 0250 0375 0750 0750 0000 %0425 U12 004306 003505 -00403 0625 0250 0375 0375 0750 0625 0000 %0426 U13 004374 003922 -01742 0625 0250 0500 0375 0750 0500 0000 %0427 U14 004453 004323 -02904 0625 0250 0625 0375 0750 0375 0000 %0428 U15 004546 004761 -04013 0625 0250 0750 0375 0750 0250 0000 %0429 U16 004671 005276 -05204 0625 0250 0875 0375 0750 0125 0000 %0430 U17 004997 006294 -07412 0625 0250 1000 0375 0750 0000 0000 %0431 U18 004794 001099 005528 0625 0375 0000 0375 0625 1000 0000 %0432 V10 004816 001269 004136 0625 0375 0125 0375 0625 0875 0000 %0433 V11 004860 001626 002047 0625 0375 0250 0375 0625 0750 0000 %0434 V12 004910 001982 000531 0625 0375 0375 0375 0625 0625 0000 %0435 V13 004963 002406 -00816 0625 0375 0500 0375 0625 0500 0000 %0436 V14 005028 002824 -01982 0625 0375 0625 0375 0625 0375 0000 %0437 V15 005109 003283 -03110 0625 0375 0750 0375 0625 0250 0000 %0438 V16 005211 003813 -04313 0625 0375 0875 0375 0625 0125 0000 %0439 V17 005494 004929 -06595 0625 0375 1000 0375 0625 0000 0000 %0440 V18 005437 -00286 006191 0625 0500 0000 0375 0500 1000 0000 %0441 W10 005452 -00126 004945 0625 0500 0125 0375 0500 0875 0000 %0442 W11 005488 000208 002956 0625 0500 0250 0375 0500 0750 0000 %0443 W12 005527 000581 001467 0625 0500 0375 0375 0500 0625 0000 %0444 W13 005577 000971 000141 0625 0500 0500 0375 0500 0500 0000 %0445 W14 005632 001393 -01023 0625 0500 0625 0375 0500 0375 0000 %0446 W15 005694 001836 -02159 0625 0500 0750 0375 0500 0250 0000 %0447 W16 005786 002388 -03384 0625 0500 0875 0375 0500 0125 0000 %0448 W17 006026 003544 -05713 0625 0500 1000 0375 0500 0000 0000 %0449 W18 006062 -01524 006820 0625 0625 0000 0375 0375 1000 0000 %0450 X10 006078 -01383 005718 0625 0625 0125 0375 0375 0875 0000 %0451 X11 006108 -01043 003840 0625 0625 0250 0375 0375 0750 0000 %0452 X12 006141 -00696 002381 0625 0625 0375 0375 0375 0625 0000 %0453 X13 006183 -00315 001076 0625 0625 0500 0375 0375 0500 0000 %0454 X14 006228 000093 -00088 0625 0625 0625 0375 0375 0375 0000 %0455 X15 006284 000535 -01227 0625 0625 0750 0375 0375 0250 0000 %0456 X16 006360 001077 -02460 0625 0625 0875 0375 0375 0125 0000 %0457 X17 006568 002240 -04829 0625 0625 1000 0375 0375 0000 0000 %0458 X18 006753 -02720 007540 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 006766 -02598 006562 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 006794 -02289 004789 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 006822 -01980 003382 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 006853 -01607 002102 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 006895 -01234 000942 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 006941 -00804 -00181 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 007008 -00281 -01426 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 007187 000853 -03809 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 007562 -03981 008394 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 007571 -03859 007525 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 007592 -03583 005880 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 007615 -03294 004537 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 007645 -02946 003273 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 007679 -02610 002151 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 007719 -02216 001034 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 007774 -01730 -00207 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 007927 -00646 -02615 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 008727 -05555 009660 0625 1000 0000 0375 0000 1000 0000 %0477 a10 008734 -05451 008920 0625 1000 0125 0375 0000 0875 0000 %0478 a11 008751 -05215 007436 0625 1000 0250 0375 0000 0750 0000 %0479 a12 008770 -04968 006182 0625 1000 0375 0375 0000 0625 0000 %0480 a13 008793 -04684 004977 0625 1000 0500 0375 0000 0500 0000 %0481 a14 008819 -04374 003873 0625 1000 0625 0375 0000 0375 0000 %0482 a15 008851 -04028 002768 0625 1000 0750 0375 0000 0250 0000 %0483 a16 008895 -03592 001543 0625 1000 0875 0375 0000 0125 0000 %0484 a17 009017 -02609 -00852 0625 1000 1000 0375 0000 0000 0000 %0485 a18 %JE060-7A, Page 9 /66, LAB*ra; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted 003819 005759 004727 0750 0000 0000 0250 1000 1000 0000 %0486 A19 003854 005884 003013 0750 0000 0125 0250 1000 0875 0000 %0487 A20 003914 006143 000722 0750 0000 0250 0250 1000 0750 0000 %0488 A21 003978 006413 -00832 0750 0000 0375 0250 1000 0625 0000 %0489 A22 004054 006719 -02185 0750 0000 0500 0250 1000 0500 0000 %0490 A23 004142 007020 -03338 0750 0000 0625 0250 1000 0375 0000 %0491 A24 004241 007357 -04448 0750 0000 0750 0250 1000 0250 0000 %0492 A25 004382 007722 -05622 0750 0000 0875 0250 1000 0125 0000 %0493 A26 004742 008463 -07818 0750 0000 1000 0250 1000 0000 0000 %0494 A27 004045 005113 004957 0750 0125 0000 0250 0875 1000 0000 %0495 B19 004073 005242 003305 0750 0125 0125 0250 0875 0875 0000 %0496 B20 004128 005502 001051 0750 0125 0250 0250 0875 0750 0000 %0497 B21 004187 006025 -00410 0750 0125 0375 0250 0875 0625 0000 %0498 B22 004254 006117 -01875 0750 0125 0500 0250 0875 0500 0000 %0499 B23 004340 006443 -03037 0750 0125 0625 0250 0875 0375 0000 %0500 B24 004437 006786 -04151 0750 0125 0750 0250 0875 0250 0000 %0501 B25 004570 007176 -05330 0750 0125 0875 0250 0875 0125 0000 %0502 B26 004910 007974 -07553 0750 0125 1000 0250 0875 0000 0000 %0503 B27 004566 003692 005460 0750 0250 0000 0250 0750 1000 0000 %0504 C19 004589 003810 003962 0750 0250 0125 0250 0750 0875 0000 %0505 C20 004636 004095 001786 0750 0250 0250 0250 0750 0750 0000 %0506 C21 004686 004409 000240 0750 0250 0375 0250 0750 0625 0000 %0507 C22 004750 004733 -01097 0750 0250 0500 0250 0750 0500 0000 %0508 C23 004816 005076 -02281 0750 0250 0625 0250 0750 0375 0000 %0509 C24 004903 005454 -03401 0750 0250 0750 0250 0750 0250 0000 %0510 C25 005014 005890 -04609 0750 0250 0875 0250 0750 0125 0000 %0511 C26 005313 006794 -06881 0750 0250 1000 0250 0750 0000 0000 %0512 C27 005123 002267 006019 0750 0375 0000 0250 0625 1000 0000 %0513 D19 005142 002394 004657 0750 0375 0125 0250 0625 0875 0000 %0514 D20 005182 002687 002580 0750 0375 0250 0250 0625 0750 0000 %0515 D21 005227 002992 001073 0750 0375 0375 0250 0625 0625 0000 %0516 D22 005279 003336 -00276 0750 0375 0500 0250 0625 0500 0000 %0517 D23 005338 003696 -01455 0750 0375 0625 0250 0625 0375 0000 %0518 D24 005409 004095 -02587 0750 0375 0750 0250 0625 0250 0000 %0519 D25 005506 004552 -03813 0750 0375 0875 0250 0625 0125 0000 %0520 D26 005767 005523 -06131 0750 0375 1000 0250 0625 0000 0000 %0521 D27 005708 000912 006578 0750 0500 0000 0250 0500 1000 0000 %0522 E19 005725 001035 005363 0750 0500 0125 0250 0500 0875 0000 %0523 E20 005759 001318 003415 0750 0500 0250 0250 0500 0750 0000 %0524 E21 005797 001622 001919 0750 0500 0375 0250 0500 0625 0000 %0525 E22 005841 001975 000591 0750 0500 0500 0250 0500 0500 0000 %0526 E23 005892 002323 -00578 0750 0500 0625 0250 0500 0375 0000 %0527 E24 005953 002715 -01721 0750 0500 0750 0250 0500 0250 0000 %0528 E25 006037 003196 -02957 0750 0500 0875 0250 0500 0125 0000 %0529 E26 006264 004200 -05309 0750 0500 1000 0250 0500 0000 0000 %0530 E27 006296 -00336 007178 0750 0625 0000 0250 0375 1000 0000 %0531 F19 006310 -00215 006087 0750 0625 0125 0250 0375 0875 0000 %0532 F20 006339 000065 004214 0750 0625 0250 0250 0375 0750 0000 %0533 F21 006370 000365 002768 0750 0625 0375 0250 0375 0625 0000 %0534 F22 006410 000694 001462 0750 0625 0500 0250 0375 0500 0000 %0535 F23 006452 001046 000289 0750 0625 0625 0250 0375 0375 0000 %0536 F24 006507 001430 -00845 0750 0625 0750 0250 0375 0250 0000 %0537 F25 006577 001911 -02086 0750 0625 0875 0250 0375 0125 0000 %0538 F26 006777 002940 -04472 0750 0625 1000 0250 0375 0000 0000 %0539 F27 006951 -01599 007843 0750 0750 0000 0250 0250 1000 0000 %0540 G19 006963 -01478 006853 0750 0750 0125 0250 0250 0875 0000 %0541 G20 006988 -01223 005115 0750 0750 0250 0250 0250 0750 0000 %0542 G21 007014 -00938 003713 0750 0750 0375 0250 0250 0625 0000 %0543 G22 007048 004746 006705 0750 0750 0500 0250 0250 0500 0000 %0544 G23 007085 -00288 001271 0750 0750 0625 0250 0250 0375 0000 %0545 G24 007132 000087 000137 0750 0750 0750 0250 0250 0250 0000 %0546 G25 007195 000552 -01105 0750 0750 0875 0250 0250 0125 0000 %0547 G26 007368 001580 -03508 0750 0750 1000 0250 0250 0000 0000 %0548 G27 007727 -02944 008639 0750 0875 0000 0250 0125 1000 0000 %0549 H19 007738 -02826 007779 0750 0875 0125 0250 0125 0875 0000 %0550 H20 007758 -02585 006148 0750 0875 0250 0250 0125 0750 0000 %0551 H21 007780 -02325 004809 0750 0875 0375 0250 0125 0625 0000 %0552 H22 007808 -02019 003559 0750 0875 0500 0250 0125 0500 0000 %0553 H23 007821 -01707 002417 0750 0875 0625 0250 0125 0375 0000 %0554 H24 007878 -01355 001300 0750 0875 0750 0250 0125 0250 0000 %0555 H25 007932 -00917 000057 0750 0875 0875 0250 0125 0125 0000 %0556 H26 008080 000074 -02353 0750 0875 1000 0250 0125 0000 0000 %0557 H27 008855 -04648 009846 0750 1000 0000 0250 0000 1000 0000 %0558 I19 008863 -04546 009111 0750 1000 0125 0250 0000 0875 0000 %0559 I20 008880 -04337 007641 0750 1000 0250 0250 0000 0750 0000 %0560 I21 008899 -04103 006390 0750 1000 0375 0250 0000 0625 0000 %0561 I22 008920 -03841 005194 0750 1000 0500 0250 0000 0500 0000 %0562 I23 008946 -03557 004084 0750 1000 0625 0250 0000 0375 0000 %0563 I24 008977 -03225 002986 0750 1000 0750 0250 0000 0250 0000 %0564 I25 009020 -02831 001755 0750 1000 0875 0250 0000 0125 0000 %0565 I26 009143 -01913 -00647 0750 1000 1000 0250 0000 0000 0000 %0566 I27 004370 006471 005560 0875 0000 0000 0125 1000 1000 0000 %0567 J19 004395 006570 003898 0875 0000 0125 0125 1000 0875 0000 %0568 J20 004449 006805 001617 0875 0000 0250 0125 1000 0750 0000 %0569 J21 004498 007023 000047 0875 0000 0375 0125 1000 0625 0000 %0570 J22 004566 007281 -01309 0875 0000 0500 0125 1000 0500 0000 %0571 J23 004640 007551 -02492 0875 0000 0625 0125 1000 0375 0000 %0572 J24 004724 007829 -03623 0875 0000 0750 0125 1000 0250 0000 %0573 J25 004845 008153 -04830 0875 0000 0875 0125 1000 0125 0000 %0574 J26 005162 008823 -07115 0875 0000 1000 0125 1000 0000 0000 %0575 J27 004558 005941 005760 0875 0125 0000 0125 0875 1000 0000 %0576 K19 004578 006056 004116 0875 0125 0125 0125 0875 0875 0000 %0577 K20 004628 006267 001882 0875 0125 0250 0125 0875 0750 0000 %0578 K21 004682 006512 000315 0875 0125 0375 0125 0875 0625 0000 %0579 K22 004739 006771 -01053 0875 0125 0500 0125 0875 0500 0000 %0580 K23 004809 007043 -02230 0875 0125 0625 0125 0875 0375 0000 %0581 K24 004892 007344 -03368 0875 0125 0750 0125 0875 0250 0000 %0582 K25 005008 007690 -04589 0875 0125 0875 0125 0875 0125 0000 %0583 K26 005307 008388 -06871 0875 0125 1000 0125 0875 0000 0000 %0584 K27 005004 004708 006132 0875 0250 0000 0125 0750 1000 0000 %0585 L19 005021 004808 004651 0875 0250 0125 0125 0750 0875 0000 %0586 L20 005066 005047 002498 0875 0250 0250 0125 0750 0750 0000 %0587 L21 005109 005296 000955 0875 0250 0375 0125 0750 0625 0000 %0588 L22 005162 005573 -00404 0875 0250 0500 0125 0750 0500 0000 %0589 L23 005224 005862 -01581 0875 0250 0625 0125 0750 0375 0000 %0590 L24 005298 006169 -02728 0875 0250 0750 0125 0750 0250 0000 %0591 L25 005400 006534 -03952 0875 0250 0875 0125 0750 0125 0000 %0592 L26 005669 007326 -06270 0875 0250 1000 0125 0750 0000 0000 %0593 L27 005497 003405 006579 0875 0375 0000 0125 0625 1000 0000 %0594 M19 005515 003511 005261 0875 0375 0125 0125 0625 0875 0000 %0595 M20 005550 003755 003195 0875 0375 0250 0125 0625 0750 0000 %0596 M21 005591 004001 001679 0875 0375 0375 0125 0625 0625 0000 %0597 M22 005637 004298 000330 0875 0375 0500 0125 0625 0500 0000 %0598 M23 005692 004595 -00846 0875 0375 0625 0125 0625 0375 0000 %0599 M24 005756 004926 -02004 0875 0375 0750 0125 0625 0250 0000 %0600 M25 005844 005317 -03237 0875 0375 0875 0125 0625 0125 0000 %0601 M26 006083 006154 -05591 0875 0375 1000 0125 0625 0000 0000 %0602 M27 006032 002109 007089 0875 0500 0000 0125 0500 1000 0000 %0603 N19 006044 002211 005879 0875 0500 0125 0125 0500 0875 0000 %0604 N20 006078 002448 003934 0875 0500 0250 0125 0500 0750 0000 %0605 N21 006111 002708 002448 0875 0500 0375 0125 0500 0625 0000 %0606 N22 006151 003027 001090 0875 0500 0500 0125 0500 0500 0000 %0607 N23 006198 003293 -00061 0875 0500 0625 0125 0500 0375 0000 %0608 N24 006257 003634 -01210 0875 0500 0750 0125 0500 0250 0000 %0609 N25 006332 004036 -02449 0875 0500 0875 0125 0500 0125 0000 %0610 N26 006543 004930 -04833 0875 0500 1000 0125 0500 0000 0000 %0611 N27 006575 000874 007586 0875 0625 0000 0125 0375 1000 0000 %0612 O19 006586 000968 006521 0875 0625 0125 0125 0375 0875 0000 %0613 O20 006613 001217 004662 0875 0625 0250 0125 0375 0750 0000 %0614 O21 006644 001465 003227 0875 0625 0375 0125 0375 0625 0000 %0615 O22 006682 001748 001922 0875 0625 0500 0125 0375 0500 0000 %0616 O23 006721 002045 000747 0875 0625 0625 0125 0375 0375 0000 %0617 O24 006770 002393 -00397 0875 0625 0750 0125 0375 0250 0000 %0618 O25 006839 002804 -01649 0875 0625 0875 0125 0375 0125 0000 %0619 O26 007026 003698 -04045 0875 0625 1000 0125 0375 0000 0000 %0620 O27 007191 -00413 008193 0875 0750 0000 0125 0250 1000 0000 %0621 P19 007202 -00313 007238 0875 0750 0125 0125 0250 0875 0000 %0622 P20 007226 -00087 005498 0875 0750 0250 0125 0250 0750 0000 %0623 P21 007253 000161 004105 0875 0750 0375 0125 0250 0625 0000 %0624 P22 007283 000443 002817 0875 0750 0500 0125 0250 0500 0000 %0625 P23 007317 000731 001661 0875 0750 0625 0125 0250 0375 0000 %0626 P24 007361 001065 000525 0875 0750 0750 0125 0250 0250 0000 %0627 P25 007422 001464 -00723 0875 0750 0875 0125 0250 0125 0000 %0628 P26 007587 002374 -03139 0875 0750 1000 0125 0250 0000 0000 %0629 P27 007928 -01804 008945 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 007938 -01707 008106 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 007960 -01488 006480 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 007979 -05050 003144 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 008007 -01000 003891 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 008038 -00716 002758 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 008075 -00398 001628 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 008126 -00003 000384 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 008270 000887 -02034 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 009016 -03609 010098 0875 1000 0000 0125 0000 1000 0000 %0639 R19 009024 -03525 009347 0875 1000 0125 0125 0000 0875 0000 %0640 R20 009040 -03331 007901 0875 1000 0250 0125 0000 0750 0000 %0641 R21 009059 -03128 006652 0875 1000 0375 0125 0000 0625 0000 %0642 R22 009080 -02887 005449 0875 1000 0500 0125 0000 0500 0000 %0643 R23 009105 -02626 004346 0875 1000 0625 0125 0000 0375 0000 %0644 R24 009135 -02332 003240 0875 1000 0750 0125 0000 0250 0000 %0645 R25 009176 -01968 002018 0875 1000 0875 0125 0000 0125 0000 %0646 R26 009294 -01135 -00387 0875 1000 1000 0125 0000 0000 0000 %0647 R27 005099 007440 006711 1000 0000 0000 0000 1000 1000 0000 %0648 S19 005113 007509 005066 1000 0000 0125 0000 1000 0875 0000 %0649 S20 005149 007682 002817 1000 0000 0250 0000 1000 0750 0000 %0650 S21 005192 007864 001223 1000 0000 0375 0000 1000 0625 0000 %0651 S22 005243 008057 -00151 1000 0000 0500 0000 1000 0500 0000 %0652 S23 005304 008284 -01357 1000 0000 0625 0000 1000 0375 0000 %0653 S24 005373 008511 -02509 1000 0000 0750 0000 1000 0250 0000 %0654 S25 005470 008791 -03760 1000 0000 0875 0000 1000 0125 0000 %0655 S26 005731 009362 -06140 1000 0000 1000 0000 1000 0000 0000 %0656 S27 005247 007013 006830 1000 0125 0000 0000 0875 1000 0000 %0657 T19 005259 007072 005248 1000 0125 0125 0000 0875 0875 0000 %0658 T20 005298 007243 003008 1000 0125 0250 0000 0875 0750 0000 %0659 T21 005338 007435 001428 1000 0125 0375 0000 0875 0625 0000 %0660 T22 005385 003701 002825 1000 0125 0500 0000 0875 0500 0000 %0661 T23 005443 007862 -01149 1000 0125 0625 0000 0875 0375 0000 %0662 T24 005512 008109 -02316 1000 0125 0750 0000 0875 0250 0000 %0663 T25 005606 008393 -03559 1000 0125 0875 0000 0875 0125 0000 %0664 T26 005857 008995 -05935 1000 0125 1000 0000 0875 0000 0000 %0665 T27 005617 005955 007110 1000 0250 0000 0000 0750 1000 0000 %0666 U19 005632 006033 005668 1000 0250 0125 0000 0750 0875 0000 %0667 U20 005663 006211 003514 1000 0250 0250 0000 0750 0750 0000 %0668 U21 005697 006408 001947 1000 0250 0375 0000 0750 0625 0000 %0669 U22 005742 006628 000584 1000 0250 0500 0000 0750 0500 0000 %0670 U23 005795 006859 -00612 1000 0250 0625 0000 0750 0375 0000 %0671 U24 005857 007113 -01773 1000 0250 0750 0000 0750 0250 0000 %0672 U25 005943 007424 -03025 1000 0250 0875 0000 0750 0125 0000 %0673 U26 006173 008075 -05419 1000 0250 1000 0000 0750 0000 0000 %0674 U27 006042 004811 007447 1000 0375 0000 0000 0625 1000 0000 %0675 V19 006055 004888 006142 1000 0375 0125 0000 0625 0875 0000 %0676 V20 006083 005072 004082 1000 0375 0250 0000 0625 0750 0000 %0677 V21 006116 005272 002557 1000 0375 0375 0000 0625 0625 0000 %0678 V22 006158 005492 001206 1000 0375 0500 0000 0625 0500 0000 %0679 V23 006203 005738 000006 1000 0375 0625 0000 0625 0375 0000 %0680 V24 006259 006003 -01152 1000 0375 0750 0000 0625 0250 0000 %0681 V25 006337 006323 -02408 1000 0375 0875 0000 0625 0125 0000 %0682 V26 006546 007029 -04816 1000 0375 1000 0000 0625 0000 0000 %0683 V27 006516 003612 007847 1000 0500 0000 0000 0500 1000 0000 %0684 W19 006528 003683 006660 1000 0500 0125 0000 0500 0875 0000 %0685 W20 006555 003866 004711 1000 0500 0250 0000 0500 0750 0000 %0686 W21 006584 004070 003216 1000 0500 0375 0000 0500 0625 0000 %0687 W22 006620 004303 001885 1000 0500 0500 0000 0500 0500 0000 %0688 W23 006662 004550 000701 1000 0500 0625 0000 0500 0375 0000 %0689 W24 006712 004817 -00453 1000 0500 0750 0000 0500 0250 0000 %0690 W25 006781 005158 -01707 1000 0500 0875 0000 0500 0125 0000 %0691 W26 006969 005877 -04121 1000 0500 1000 0000 0500 0000 0000 %0692 W27 007012 002428 008269 1000 0625 0000 0000 0375 1000 0000 %0693 X19 007022 002509 007199 1000 0625 0125 0000 0375 0875 0000 %0694 X20 007046 002685 005350 1000 0625 0250 0000 0375 0750 0000 %0695 X21 007073 002884 003911 1000 0625 0375 0000 0375 0625 0000 %0696 X22 007106 003128 002589 1000 0625 0500 0000 0375 0500 0000 %0697 X23 007142 003365 001424 1000 0625 0625 0000 0375 0375 0000 %0698 X24 007189 003646 000276 1000 0625 0750 0000 0375 0250 0000 %0699 X25 007251 003980 -00976 1000 0625 0875 0000 0375 0125 0000 %0700 X26 007418 004728 -03396 1000 0625 1000 0000 0375 0000 0000 %0701 X27 007582 001154 008795 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 007592 001238 007826 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 007612 001416 006087 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 007636 001615 004689 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 007666 001845 003406 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 007698 002092 002247 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 007738 002359 001114 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 007792 002699 -00125 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 007942 003462 -02554 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 008270 -00253 009469 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 008278 -00180 008611 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 008295 000000 006976 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 008315 000194 005639 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 008339 000416 004390 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 008369 000650 003251 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 008404 000921 002134 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 008450 001245 000895 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 008583 002001 -01523 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 009291 -02138 010504 1000 1000 0000 0000 0000 1000 0000 %0720 a19 009298 -02352 010340 1000 1000 0125 0000 0000 0875 0000 %0721 a20 009313 -01908 008298 1000 1000 0250 0000 0000 0750 0000 %0722 a21 009329 -01722 007042 1000 1000 0375 0000 0000 0625 0000 %0723 a22 009349 -01521 005840 1000 1000 0500 0000 0000 0500 0000 %0724 a23 009373 -01292 004737 1000 1000 0625 0000 0000 0375 0000 %0725 a24 009401 -01038 003634 1000 1000 0750 0000 0000 0250 0000 %0726 a25 009441 -00728 002422 1000 1000 0875 0000 0000 0125 0000 %0727 a26 009550 -00003 000025 1000 1000 1000 0000 0000 0000 0000 %0728 a27 %JE060-7A, Page 10 /66, LAB*ra; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted 009575 000007 000046 1000 1000 1000 0000 0000 0000 0000 %0729 b01 009339 -01119 -00352 0875 1000 1000 0125 0000 0000 0000 %0730 b02 009185 -01892 -00606 0750 1000 1000 0250 0000 0000 0000 %0731 b03 009059 -02585 -00822 0625 1000 1000 0375 0000 0000 0000 %0732 b04 008957 -03159 -00994 0500 1000 1000 0500 0000 0000 0000 %0733 b05 008871 -03658 -01134 0375 1000 1000 0625 0000 0000 0000 %0734 b06 008805 -04068 -01243 0250 1000 1000 0750 0000 0000 0000 %0735 b07 008754 -04407 -01330 0125 1000 1000 0875 0000 0000 0000 %0736 b08 008731 -04541 -01366 0000 1000 1000 1000 0000 0000 0000 %0737 b09 008477 001253 000894 1000 0875 0875 0000 0125 0125 0000 %0738 c01 008177 000005 000389 0875 0875 0875 0125 0125 0125 0000 %0739 c02 007983 -00886 000060 0750 0875 0875 0250 0125 0125 0000 %0740 c03 007820 -01703 -00205 0625 0875 0875 0375 0125 0125 0000 %0741 c04 007689 -02409 -00423 0500 0875 0875 0500 0125 0125 0000 %0742 c05 007578 -03029 -00606 0375 0875 0875 0625 0125 0125 0000 %0743 c06 007490 -03549 -00755 0250 0875 0875 0750 0125 0125 0000 %0744 c07 007416 -03972 -00873 0125 0875 0875 0875 0125 0125 0000 %0745 c08 007381 -04153 -00930 0000 0875 0875 1000 0125 0125 0000 %0746 c09 007767 002360 001104 1000 0750 0750 0000 0250 0250 0000 %0747 d01 007416 001061 000515 0875 0750 0750 0125 0250 0250 0000 %0748 d02 007189 000104 000127 0750 0750 0750 0250 0250 0250 0000 %0749 d03 006992 -00778 -00196 0625 0750 0750 0375 0250 0250 0000 %0750 d04 006834 -01565 -00462 0500 0750 0750 0500 0250 0250 0000 %0751 d05 006701 -02287 -00675 0375 0750 0750 0625 0250 0250 0000 %0752 d06 006595 -02886 -00854 0250 0750 0750 0750 0250 0250 0000 %0753 d07 006505 -03410 -01003 0125 0750 0750 0875 0250 0250 0000 %0754 d08 006461 -03606 -01078 0000 0750 0750 1000 0250 0250 0000 %0755 d09 007175 003357 001399 1000 0625 0625 0000 0375 0375 0000 %0756 e01 006775 002043 000727 0875 0625 0625 0125 0375 0375 0000 %0757 e02 006507 001047 000277 0750 0625 0625 0250 0375 0375 0000 %0758 e03 006279 000094 -00095 0625 0625 0625 0375 0375 0375 0000 %0759 e04 006093 -00760 -00412 0500 0625 0625 0500 0375 0375 0000 %0760 e05 005930 -01563 -00680 0375 0625 0625 0625 0375 0375 0000 %0761 e06 005800 -02260 -00890 0250 0625 0625 0750 0375 0375 0000 %0762 e07 005689 -02870 -01072 0125 0625 0625 0875 0375 0375 0000 %0763 e08 005637 -03138 -01165 0000 0625 0625 1000 0375 0375 0000 %0764 e09 006655 004285 001856 1000 0500 0500 0000 0500 0500 0000 %0765 f01 006201 002985 001090 0875 0500 0500 0125 0500 0500 0000 %0766 f02 005892 001968 000574 0750 0500 0500 0250 0500 0500 0000 %0767 f03 005620 000982 000125 0625 0500 0500 0375 0500 0500 0000 %0768 f04 005397 000052 -00243 0500 0500 0500 0500 0500 0500 0000 %0769 f05 005201 -00835 -00564 0375 0500 0500 0625 0500 0500 0000 %0770 f06 005045 -01644 -00834 0250 0500 0500 0750 0500 0500 0000 %0771 f07 004913 -02375 -01055 0125 0500 0500 0875 0500 0500 0000 %0772 f08 004849 -02696 -01158 0000 0500 0500 1000 0500 0500 0000 %0773 f09 006151 005254 002515 1000 0375 0375 0000 0625 0625 0000 %0774 g01 005632 003954 001666 0875 0375 0375 0125 0625 0625 0000 %0775 g02 005269 003001 001042 0750 0375 0375 0250 0625 0625 0000 %0776 g03 004945 002003 000502 0625 0375 0375 0375 0625 0625 0000 %0777 g04 004671 001037 000044 0500 0375 0375 0500 0625 0625 0000 %0778 g05 004428 000046 -00352 0375 0375 0375 0625 0625 0625 0000 %0779 g06 004227 -00888 -00684 0250 0375 0375 0750 0625 0625 0000 %0780 g07 004059 -01777 -00966 0125 0375 0375 0875 0625 0625 0000 %0781 g08 003973 -02209 -01100 0000 0375 0375 1000 0625 0625 0000 %0782 g09 005692 006204 003470 1000 0250 0250 0000 0750 0750 0000 %0783 h01 005096 005039 002474 0875 0250 0250 0125 0750 0750 0000 %0784 h02 004671 004096 001773 0750 0250 0250 0250 0750 0750 0000 %0785 h03 004276 003143 001116 0625 0250 0250 0375 0750 0750 0000 %0786 h04 003929 002182 000555 0500 0250 0250 0500 0750 0750 0000 %0787 h05 003611 001124 000031 0375 0250 0250 0625 0750 0750 0000 %0788 h06 003343 000096 -00423 0250 0250 0250 0750 0750 0750 0000 %0789 h07 003098 -01031 -00817 0125 0250 0250 0875 0750 0750 0000 %0790 h08 003000 -01602 -00997 0000 0250 0250 1000 0750 0750 0000 %0791 h09 005282 007086 005218 1000 0125 0125 0000 0875 0875 0000 %0792 i01 004601 006056 004098 0875 0125 0125 0125 0875 0875 0000 %0793 i02 004091 005250 003273 0750 0125 0125 0250 0875 0875 0000 %0794 i03 003606 004428 002494 0625 0125 0125 0375 0875 0875 0000 %0795 i04 003158 003560 001779 0500 0125 0125 0500 0875 0875 0000 %0796 i05 002713 002570 001049 0375 0125 0125 0625 0875 0875 0000 %0797 i06 002314 001510 000379 0250 0125 0125 0750 0875 0875 0000 %0798 i07 001911 000109 -00274 0125 0125 0125 0875 0875 0875 0000 %0799 i08 001731 -00796 -00591 0000 0125 0125 1000 0875 0875 0000 %0800 i09 005113 007459 006736 1000 0000 0000 0000 1000 1000 0000 %0801 j01 004387 006508 005598 0875 0000 0000 0125 1000 1000 0000 %0802 j02 003834 005780 004752 0750 0000 0000 0250 1000 1000 0000 %0803 j03 003300 005021 003936 0625 0000 0000 0375 1000 1000 0000 %0804 j04 002784 004299 003150 0500 0000 0000 0500 1000 1000 0000 %0805 j05 002254 003491 002350 0375 0000 0000 0625 1000 1000 0000 %0806 j06 001717 002554 001486 0250 0000 0000 0750 1000 1000 0000 %0807 j07 001127 001180 000537 0125 0000 0000 0875 1000 1000 0000 %0808 j08 000808 000025 000012 0000 0000 0000 1000 1000 1000 0000 %0809 j09 009545 000000 000016 1000 1000 1000 0000 0000 0000 0000 %0810 b10 008287 000884 -02023 0875 0875 1000 0125 0125 0000 0000 %0811 b11 007390 001583 -03496 0750 0750 1000 0250 0250 0000 0000 %0812 b12 006591 002227 -04813 0625 0625 1000 0375 0375 0000 0000 %0813 b13 005846 002969 -06044 0500 0500 1000 0500 0500 0000 0000 %0814 b14 005079 003934 -07325 0375 0375 1000 0625 0625 0000 0000 %0815 b15 004310 005149 -08597 0250 0250 1000 0750 0750 0000 0000 %0816 b16 003533 006687 -09945 0125 0125 1000 0875 0875 0000 0000 %0817 b17 003151 007503 -10570 0000 0000 1000 1000 1000 0000 0000 %0818 b18 009436 -00728 002410 1000 1000 0875 0000 0000 0125 0000 %0819 c10 008145 000004 000378 0875 0875 0875 0125 0125 0125 0000 %0820 c11 007218 000558 -01110 0750 0750 0875 0250 0250 0125 0000 %0821 c12 006382 001076 -02463 0625 0625 0875 0375 0375 0125 0000 %0822 c13 005594 001673 -03739 0500 0500 0875 0500 0500 0125 0000 %0823 c14 004765 002532 -05109 0375 0375 0875 0625 0625 0125 0000 %0824 c15 003899 003729 -06547 0250 0250 0875 0750 0750 0125 0000 %0825 c16 002957 005376 -08099 0125 0125 0875 0875 0875 0125 0000 %0826 c17 002456 006454 -08926 0000 0000 0875 1000 1000 0125 0000 %0827 c18 009396 -01045 003634 1000 1000 0750 0000 0000 0250 0000 %0828 d10 008094 -00385 001605 0875 0875 0750 0125 0125 0250 0000 %0829 d11 007154 000099 000125 0750 0750 0750 0250 0250 0250 0000 %0830 d12 006305 000541 -01229 0625 0625 0750 0375 0375 0250 0000 %0831 d13 005500 001069 -02535 0500 0500 0750 0500 0500 0250 0000 %0832 d14 004644 001850 -03942 0375 0375 0750 0625 0625 0250 0000 %0833 d15 003736 002951 -05433 0250 0250 0750 0750 0750 0250 0000 %0834 d16 002721 004670 -07143 0125 0125 0750 0875 0875 0250 0000 %0835 d17 002150 005821 -08070 0000 0000 0750 1000 1000 0250 0000 %0836 d18 009367 -01300 004729 1000 1000 0625 0000 0000 0375 0000 %0837 e10 008056 -00712 002733 0875 0875 0625 0125 0125 0375 0000 %0838 e11 007108 -00276 001251 0750 0750 0625 0250 0250 0375 0000 %0839 e12 006250 000104 -00103 0625 0625 0625 0375 0375 0375 0000 %0840 e13 005431 000549 -01408 0500 0500 0625 0500 0500 0375 0000 %0841 e14 004554 001219 -02833 0375 0375 0625 0625 0625 0375 0000 %0842 e15 003611 002238 -04377 0250 0250 0625 0750 0750 0375 0000 %0843 e16 002519 003923 -06185 0125 0125 0625 0875 0875 0375 0000 %0844 e17 001886 005194 -07239 0000 0000 0625 1000 1000 0375 0000 %0845 e18 009342 -01520 005836 1000 1000 0500 0000 0000 0500 0000 %0846 f10 008022 -00990 003865 0875 0875 0500 0125 0125 0500 0000 %0847 f11 007071 -00610 002412 0750 0750 0500 0250 0250 0500 0000 %0848 f12 006201 -00300 001062 0625 0625 0500 0375 0375 0500 0000 %0849 f13 005373 000061 -00246 0500 0500 0500 0500 0500 0500 0000 %0850 f14 004477 000631 -01684 0375 0375 0500 0625 0625 0500 0000 %0851 f15 003510 001536 -03255 0250 0250 0500 0750 0750 0500 0000 %0852 f16 002352 003137 -05158 0125 0125 0500 0875 0875 0500 0000 %0853 f17 001648 004421 -06330 0000 0000 0500 1000 1000 0500 0000 %0854 f18 009322 -01732 007034 1000 1000 0375 0000 0000 0625 0000 %0855 g10 007999 -01258 005119 0875 0875 0375 0125 0125 0625 0000 %0856 g11 007036 -00940 003692 0750 0750 0375 0250 0250 0625 0000 %0857 g12 006161 -00702 002370 0625 0625 0375 0375 0375 0625 0000 %0858 g13 005323 -00412 001084 0500 0500 0375 0500 0500 0625 0000 %0859 g14 004408 000048 -00356 0375 0375 0375 0625 0625 0625 0000 %0860 g15 003410 000806 -01946 0250 0250 0375 0750 0750 0625 0000 %0861 g16 002182 002193 -03931 0125 0125 0375 0875 0875 0625 0000 %0862 g17 001401 003528 -05262 0000 0000 0375 1000 1000 0625 0000 %0863 g18 009305 -01917 008290 1000 1000 0250 0000 0000 0750 0000 %0864 h10 007976 -01481 006465 0875 0875 0250 0125 0125 0750 0000 %0865 h11 007008 -01209 005085 0750 0750 0250 0250 0250 0750 0000 %0866 h12 006126 -01034 003824 0625 0625 0250 0375 0375 0750 0000 %0867 h13 005279 -00844 002578 0500 0500 0250 0500 0500 0750 0000 %0868 h14 004353 -00502 001184 0375 0375 0250 0625 0625 0750 0000 %0869 h15 003331 000063 -00418 0250 0250 0250 0750 0750 0750 0000 %0870 h16 002051 001249 -02502 0125 0125 0250 0875 0875 0750 0000 %0871 h17 001167 002436 -03944 0000 0000 0250 1000 1000 0750 0000 %0872 h18 009291 -02078 009766 1000 1000 0125 0000 0000 0875 0000 %0873 i10 007956 -01712 008096 0875 0875 0125 0125 0125 0875 0000 %0874 i11 006984 -01489 006860 0750 0750 0125 0250 0250 0875 0000 %0875 i12 006096 -01360 005720 0625 0625 0125 0375 0375 0875 0000 %0876 i13 005240 -01254 004596 0500 0500 0125 0500 0500 0875 0000 %0877 i14 004297 -01035 003301 0375 0375 0125 0625 0625 0875 0000 %0878 i15 003256 -00652 001806 0250 0250 0125 0750 0750 0875 0000 %0879 i16 001911 000087 -00250 0125 0125 0125 0875 0875 0875 0000 %0880 i17 000908 001004 -01863 0000 0000 0125 1000 1000 0875 0000 %0881 i18 009285 -02142 010510 1000 1000 0000 0000 0000 1000 0000 %0882 j10 007945 -01804 008965 0875 0875 0000 0125 0125 1000 0000 %0883 j11 006969 -01600 007856 0750 0750 0000 0250 0250 1000 0000 %0884 j12 006080 -01506 006838 0625 0625 0000 0375 0375 1000 0000 %0885 j13 005221 -01423 005865 0500 0500 0000 0500 0500 1000 0000 %0886 j14 004276 -01267 004769 0375 0375 0000 0625 0625 1000 0000 %0887 j15 003224 -00985 003464 0250 0250 0000 0750 0750 1000 0000 %0888 j16 001849 -00473 001595 0125 0125 0000 0875 0875 1000 0000 %0889 j17 000782 -00004 000000 0000 0000 0000 1000 1000 1000 0000 %0890 j18 009543 -00004 000009 1000 1000 1000 0000 0000 0000 0000 %0891 b19 008574 002006 -01542 1000 0875 1000 0000 0125 0000 0000 %0892 b20 007935 003463 -02568 1000 0750 1000 0000 0250 0000 0000 %0893 b21 007418 004730 -03402 1000 0625 1000 0000 0375 0000 0000 %0894 b22 006976 005882 -04124 1000 0500 1000 0000 0500 0000 0000 %0895 b23 006559 007023 -04809 1000 0375 1000 0000 0625 0000 0000 %0896 b24 006186 008068 -05411 1000 0250 1000 0000 0750 0000 0000 %0897 b25 005868 009008 -05936 1000 0125 1000 0000 0875 0000 0000 %0898 b26 005742 009376 -06141 1000 0000 1000 0000 1000 0000 0000 %0899 b27 009190 -01952 001999 0875 1000 0875 0125 0000 0125 0000 %0900 c19 008142 000000 000377 0875 0875 0875 0125 0125 0125 0000 %0901 c20 007442 001468 -00734 0875 0750 0875 0125 0250 0125 0000 %0902 c21 006862 002803 -01651 0875 0625 0875 0125 0375 0125 0000 %0903 c22 006356 004031 -02457 0875 0500 0875 0125 0500 0125 0000 %0904 c23 005865 005310 -03243 0875 0375 0875 0125 0625 0125 0000 %0905 c24 005419 006554 -03968 0875 0250 0875 0125 0750 0125 0000 %0906 c25 005021 007695 -04595 0875 0125 0875 0125 0875 0125 0000 %0907 c26 004856 008178 -04848 0875 0000 0875 0125 1000 0125 0000 %0908 c27 008989 -03215 002958 0750 1000 0750 0250 0000 0250 0000 %0909 d19 007893 -01336 001280 0750 0875 0750 0250 0125 0250 0000 %0910 d20 007150 000107 000123 0750 0750 0750 0250 0250 0250 0000 %0911 d21 006525 001431 -00856 0750 0625 0750 0250 0375 0250 0000 %0912 d22 005977 002726 -01735 0750 0500 0750 0250 0500 0250 0000 %0913 d23 005428 004098 -02606 0750 0375 0750 0250 0625 0250 0000 %0914 d24 004917 005469 -03423 0750 0250 0750 0250 0750 0250 0000 %0915 d25 004453 006795 -04165 0750 0125 0750 0250 0875 0250 0000 %0916 d26 004254 007377 -04469 0750 0000 0750 0250 1000 0250 0000 %0917 d27 008827 -04354 003839 0625 1000 0625 0375 0000 0375 0000 %0918 e19 007689 -02592 002130 0625 0875 0625 0375 0125 0375 0000 %0919 e20 006908 -01213 000925 0625 0750 0625 0375 0250 0375 0000 %0920 e21 006242 000093 -00103 0625 0625 0625 0375 0375 0375 0000 %0921 e22 005646 001405 -01046 0625 0500 0625 0375 0500 0375 0000 %0922 e23 005045 002830 -01996 0625 0375 0625 0375 0625 0375 0000 %0923 e24 004465 004327 -02924 0625 0250 0625 0375 0750 0375 0000 %0924 e25 003919 005892 -03811 0625 0125 0625 0375 0875 0375 0000 %0925 e26 003677 006570 -04178 0625 0000 0625 0375 1000 0375 0000 %0926 e27 008696 -05370 004779 0500 1000 0500 0500 0000 0500 0000 %0927 f19 007522 -03760 003045 0500 0875 0500 0500 0125 0500 0000 %0928 f20 006710 -02469 001817 0500 0750 0500 0500 0250 0500 0000 %0929 f21 006008 -01217 000741 0500 0625 0500 0500 0375 0500 0000 %0930 f22 005369 000061 -00249 0500 0500 0500 0500 0500 0500 0000 %0931 f23 004712 001532 -01287 0500 0375 0500 0500 0625 0500 0000 %0932 f24 004059 003123 -02318 0500 0250 0500 0500 0750 0500 0000 %0933 f25 003416 004874 -03350 0500 0125 0500 0500 0875 0500 0000 %0934 f26 003118 005733 -03821 0500 0000 0500 0500 1000 0500 0000 %0935 f27 008588 -06330 005844 0375 1000 0375 0625 0000 0625 0000 %0936 g19 007381 -04886 004122 0375 0875 0375 0625 0125 0625 0000 %0937 g20 006537 -03738 002885 0375 0750 0375 0625 0250 0625 0000 %0938 g21 005803 -02581 001796 0375 0625 0375 0625 0375 0625 0000 %0939 g22 005123 -01377 000757 0375 0500 0375 0625 0500 0625 0000 %0940 g23 004408 000048 -00356 0375 0375 0375 0625 0625 0625 0000 %0941 g24 003672 001724 -01507 0375 0250 0375 0625 0750 0625 0000 %0942 g25 002906 003699 -02728 0375 0125 0375 0625 0875 0625 0000 %0943 g26 002536 004756 -03319 0375 0000 0375 0625 1000 0625 0000 %0944 g27 008501 -07166 007021 0250 1000 0250 0750 0000 0750 0000 %0945 h19 007268 -05907 005349 0250 0875 0250 0750 0125 0750 0000 %0946 h20 006396 -04906 004127 0250 0750 0250 0750 0250 0750 0000 %0947 h21 005635 -03910 003042 0250 0625 0250 0750 0375 0750 0000 %0948 h22 004917 -02838 001995 0250 0500 0250 0750 0500 0750 0000 %0949 h23 004147 -01538 000841 0250 0375 0250 0750 0625 0750 0000 %0950 h24 003325 000069 -00415 0250 0250 0250 0750 0750 0750 0000 %0951 h25 002419 002276 -01880 0250 0125 0250 0750 0875 0750 0000 %0952 h26 001935 003625 -02674 0250 0000 0250 0750 1000 0750 0000 %0953 h27 008433 -07917 008454 0125 1000 0125 0875 0000 0875 0000 %0954 i19 007171 -06839 006909 0125 0875 0125 0875 0125 0875 0000 %0955 i20 006279 -06032 005801 0125 0750 0125 0875 0250 0875 0000 %0956 i21 005488 -05208 004775 0125 0625 0125 0875 0375 0875 0000 %0957 i22 004735 -04396 003808 0125 0500 0125 0875 0500 0875 0000 %0958 i23 003914 -03361 002683 0125 0375 0125 0875 0625 0875 0000 %0959 i24 003014 -02014 001408 0125 0250 0125 0875 0750 0875 0000 %0960 i25 001911 000108 -00266 0125 0125 0125 0875 0875 0875 0000 %0961 i26 001224 001779 -01376 0125 0000 0125 0875 1000 0875 0000 %0962 i27 008403 -08207 009209 0000 1000 0000 1000 0000 1000 0000 %0963 j19 007126 -07240 007800 0000 0875 0000 1000 0125 1000 0000 %0964 j20 006223 -06521 006788 0000 0750 0000 1000 0250 1000 0000 %0965 j21 005422 -05829 005902 0000 0625 0000 1000 0375 1000 0000 %0966 j22 004655 -05133 005052 0000 0500 0000 1000 0500 1000 0000 %0967 j23 003814 -04300 004060 0000 0375 0000 1000 0625 1000 0000 %0968 j24 002869 -03246 002891 0000 0250 0000 1000 0750 1000 0000 %0969 j25 001648 -01576 001270 0000 0125 0000 1000 0875 1000 0000 %0970 j26 000808 -00021 -00042 0000 0000 0000 1000 1000 1000 0000 %0971 j27 %JE060-7A, Page 11 /66, LAB*ra; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %LAB*ra, D65, adapted, Y = 0.89 , L* = 8.08 %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z005099 007440 006711 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009291 -02138 010504 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z008413 -08214 009227 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z008716 -04558 -01357 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003158 007462 -10553 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z005731 009362 -06140 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z000808 000025 000012 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009550 -00003 000025 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ %z005113 007459 006736 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 %z009285 -02142 010510 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 %z008403 -08207 009209 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 %z008731 -04541 -01366 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 %z003151 007503 -10570 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 %z005742 009376 -06141 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 %z000800 000000 -00009 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 %z009554 000001 000023 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ %JE060-7A, Page 12 /66, LAB*ra; 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 000808 -00093 000012 0000 0000 0000 1000 1000 1000 0000 %0972 k01 001911 000101 -00277 0125 0125 0125 0875 0875 0875 0000 %0973 k02 003325 000088 -00419 0250 0250 0250 0750 0750 0750 0000 %0974 k03 004403 000040 -00353 0375 0375 0375 0625 0625 0625 0000 %0975 k04 005366 000051 -00246 0500 0500 0500 0500 0500 0500 0000 %0976 k05 006242 000100 -00105 0625 0625 0625 0375 0375 0375 0000 %0977 k06 007148 000095 000119 0750 0750 0750 0250 0250 0250 0000 %0978 k07 008140 -00004 000370 0875 0875 0875 0125 0125 0125 0000 %0979 k08 009542 -00004 000003 1000 1000 1000 0000 0000 0000 0000 %0980 k09 000782 -00004 000000 0000 0000 0000 1000 1000 1000 0000 %0981 l01 001911 000085 -00265 0125 0125 0125 0875 0875 0875 0000 %0982 l02 003325 000090 -00418 0250 0250 0250 0750 0750 0750 0000 %0983 l03 004403 000045 -00357 0375 0375 0375 0625 0625 0625 0000 %0984 l04 005366 000057 -00250 0500 0500 0500 0500 0500 0500 0000 %0985 l05 006242 000103 -00111 0625 0625 0625 0375 0375 0375 0000 %0986 l06 007148 000095 000123 0750 0750 0750 0250 0250 0250 0000 %0987 l07 008140 -00008 000373 0875 0875 0875 0125 0125 0125 0000 %0988 l08 009540 -00004 000003 1000 1000 1000 0000 0000 0000 0000 %0989 l09 000808 -00003 000002 0000 0000 0000 1000 1000 1000 0000 %0990 m01 001898 000102 -00285 0125 0125 0125 0875 0875 0875 0000 %0991 m02 003325 000090 -00418 0250 0250 0250 0750 0750 0750 0000 %0992 m03 004403 000029 -00351 0375 0375 0375 0625 0625 0625 0000 %0993 m04 005366 000054 -00251 0500 0500 0500 0500 0500 0500 0000 %0994 m05 006242 000096 -00106 0625 0625 0625 0375 0375 0375 0000 %0995 m06 007148 000095 000123 0750 0750 0750 0250 0250 0250 0000 %0996 m07 008140 000000 000372 0875 0875 0875 0125 0125 0125 0000 %0997 m08 009540 -00009 000007 1000 1000 1000 0000 0000 0000 0000 %0998 m09 000808 -00003 000002 0000 0000 0000 1000 1000 1000 0000 %0999 n01 001911 000103 -00245 0125 0125 0125 0875 0875 0875 0000 %1000 n02 003325 000088 -00419 0250 0250 0250 0750 0750 0750 0000 %1001 n03 004403 000034 -00355 0375 0375 0375 0625 0625 0625 0000 %1002 n04 005366 000047 -00254 0500 0500 0500 0500 0500 0500 0000 %1003 n05 006242 000096 -00106 0625 0625 0625 0375 0375 0375 0000 %1004 n06 007150 000099 000120 0750 0750 0750 0250 0250 0250 0000 %1005 n07 008140 -00004 000375 0875 0875 0875 0125 0125 0125 0000 %1006 n08 009540 -00009 000001 1000 1000 1000 0000 0000 0000 0000 %1007 n09 000782 -00004 000000 0000 0000 0000 1000 1000 1000 0000 %1008 k10 001065 000057 -00027 0066 0066 0066 0933 0933 0933 0000 %1009 k11 001994 000122 -00313 0133 0133 0133 0866 0866 0866 0000 %1010 k12 002876 000079 -00453 0200 0200 0200 0800 0800 0800 0000 %1011 k13 003463 000082 -00352 0266 0266 0266 0333 0333 0333 0000 %1012 k14 004030 000111 -00384 0333 0333 0333 0666 0666 0666 0000 %1013 k15 004574 000060 -00338 0400 0400 0400 0600 0600 0600 0000 %1014 k16 005116 000040 -00280 0466 0466 0466 0533 0533 0533 0000 %1015 k17 005588 000092 -00267 0533 0533 0533 0466 0466 0466 0000 %1016 k18 006073 000107 -00167 0600 0600 0600 0400 0400 0400 0000 %1017 k19 006555 000095 -00067 0666 0666 0666 0333 0333 0333 0000 %1018 k20 007038 000097 000064 0734 0734 0734 0266 0266 0266 0000 %1019 k21 007553 000076 000220 0800 0800 0800 0200 0200 0200 0000 %1020 k22 008083 000032 000353 0866 0866 0866 0133 0133 0133 0000 %1021 k23 008694 -00035 000556 0933 0933 0933 0066 0066 0066 0000 %1022 k24 009542 -00004 000003 1000 1000 1000 0000 0000 0000 0000 %1023 k25 000808 -00003 000002 0000 0000 0000 1000 1000 1000 0000 %1024 l10 001086 000074 -00032 0066 0066 0066 0933 0933 0933 0000 %1025 l11 002006 000135 -00304 0133 0133 0133 0866 0866 0866 0000 %1026 l12 002884 000058 -00434 0200 0200 0200 0800 0800 0800 0000 %1027 l13 003469 000094 -00364 0266 0266 0266 0333 0333 0333 0000 %1028 l14 004040 000082 -00383 0333 0333 0333 0666 0666 0666 0000 %1029 l15 004581 000062 -00343 0400 0400 0400 0600 0600 0600 0000 %1030 l16 005119 000047 -00272 0466 0466 0466 0533 0533 0533 0000 %1031 l17 005597 000092 -00260 0533 0533 0533 0466 0466 0466 0000 %1032 l18 006078 000096 -00164 0600 0600 0600 0400 0400 0400 0000 %1033 l19 006562 000092 -00064 0666 0666 0666 0333 0333 0333 0000 %1034 l20 007044 000105 000062 0734 0734 0734 0266 0266 0266 0000 %1035 l21 007558 000076 000220 0800 0800 0800 0200 0200 0200 0000 %1036 l22 008088 000028 000357 0866 0866 0866 0133 0133 0133 0000 %1037 l23 008697 -00034 000561 0933 0933 0933 0066 0066 0066 0000 %1038 l24 009543 -00004 000009 1000 1000 1000 0000 0000 0000 0000 %1039 l25 000808 -00003 000002 0000 0000 0000 1000 1000 1000 0000 %1040 m10 001065 000074 -00032 0066 0066 0066 0933 0933 0933 0000 %1041 m11 002006 000123 -00313 0133 0133 0133 0866 0866 0866 0000 %1042 m12 002876 000055 -00445 0200 0200 0200 0800 0800 0800 0000 %1043 m13 003469 000068 -00355 0266 0266 0266 0333 0333 0333 0000 %1044 m14 004035 000084 -00385 0333 0333 0333 0666 0666 0666 0000 %1045 m15 004574 000059 -00344 0400 0400 0400 0600 0600 0600 0000 %1046 m16 005119 000053 -00276 0466 0466 0466 0533 0533 0533 0000 %1047 m17 005591 000102 -00267 0533 0533 0533 0466 0466 0466 0000 %1048 m18 006073 000100 -00166 0600 0600 0600 0400 0400 0400 0000 %1049 m19 006557 000084 -00063 0666 0666 0666 0333 0333 0333 0000 %1050 m20 007042 000094 000062 0734 0734 0734 0266 0266 0266 0000 %1051 m21 007556 000080 000217 0800 0800 0800 0200 0200 0200 0000 %1052 m22 008086 000032 000353 0866 0866 0866 0133 0133 0133 0000 %1053 m23 008696 -00034 000561 0933 0933 0933 0066 0066 0066 0000 %1054 m24 009543 -00004 000003 1000 1000 1000 0000 0000 0000 0000 %1055 m25 000808 000020 000010 0000 0000 0000 1000 1000 1000 0000 %1056 n10 001086 000082 -00045 0066 0066 0066 0933 0933 0933 0000 %1057 n11 002006 000104 -00318 0133 0133 0133 0866 0866 0866 0000 %1058 n12 002876 000047 -00439 0200 0200 0200 0800 0800 0800 0000 %1059 n13 003463 000101 -00364 0266 0266 0266 0333 0333 0333 0000 %1060 n14 004030 000097 -00388 0333 0333 0333 0666 0666 0666 0000 %1061 n15 004574 000071 -00343 0400 0400 0400 0600 0600 0600 0000 %1062 n16 005113 000050 -00280 0466 0466 0466 0533 0533 0533 0000 %1063 n17 005591 000057 -00240 0533 0533 0533 0466 0466 0466 0000 %1064 n18 006073 000100 -00166 0600 0600 0600 0400 0400 0400 0000 %1065 n19 006557 000091 -00064 0666 0666 0666 0333 0333 0333 0000 %1066 n20 007042 000101 000061 0734 0734 0734 0266 0266 0266 0000 %1067 n21 007555 000080 000217 0800 0800 0800 0200 0200 0200 0000 %1068 n22 008083 000036 000350 0866 0866 0866 0133 0133 0133 0000 %1069 n23 008696 -00035 000556 0933 0933 0933 0066 0066 0066 0000 %1070 n24 009542 -00009 000001 1000 1000 1000 0000 0000 0000 0000 %1071 n25 000808 000000 000000 0000 0000 0000 1000 1000 1000 0000 %1072 k26 009540 000000 000000 1000 1000 1000 0000 0000 0000 0000 %1073 k27 005109 007459 006708 1000 0000 0000 0000 1000 1000 0000 %1074 l26 008706 -04517 -01399 0000 1000 1000 1000 0000 0000 0000 %1075 l27 009283 -02142 010507 1000 1000 0000 0000 0000 1000 0000 %1076 m26 003158 007505 -10573 0000 0000 1000 1000 1000 0000 0000 %1077 m27 008416 -08227 009205 0000 1000 0000 1000 0000 1000 0000 %1078 n26 005742 009390 -06153 1000 0000 1000 0000 1000 0000 0000 %1079 n27 %$ %z005109 007459 006708 %#1000 0000 0000 0000 1000 1000 0000 %1074 l26 %O3 0 %z009283 -02142 010507 %#1000 1000 0000 0000 0000 1000 0000 %1076 m26 %Y3 1 %z008416 -08227 009205 %#0000 1000 0000 1000 0000 1000 0000 %1078 n26 %L3 2 %z008706 -04517 -01399 %#0000 1000 1000 1000 0000 0000 0000 %1075 l27 %C3 3 %z003158 007505 -10573 %#0000 0000 1000 1000 1000 0000 0000 %1077 m27 %V3 4 %z005742 009390 -06153 %#1000 0000 1000 0000 1000 0000 0000 %1079 n27 %M3 5 %z000808 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 %$ %z000795 -00049 000006 %#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 %$ %z000795 -00003 000001 %#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 %$ %z000808 -00003 000002 %#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 %$ %z000808 000008 000006 %#0000 0000 0000 1000 1000 1000 0000 %0999 n01 %N7 6 %z009541 -00009 000001 %#1000 1000 1000 0000 0000 0000 0000 %1007 n09 %W7 7 %$ ra_line 2290 ] def %**************************************************************************** /LAB*Fa0100 [ %JE060-7A, Page 11 /66, LAB*ra; cf1=1.00; nt=0.18; nx=1.0; LECD_08_95, adapted %LAB*ra, D65, adapted, Y = 0.89 , L* = 8.08 %100 x LAB*a %#1000 x (r g b c m y 0) %nr. pos %z005099 007440 006711 %#1000 0000 0000 0000 1000 1000 0000 %0648 S19 %O1 0 %z009291 -02138 010504 %#1000 1000 0000 0000 0000 1000 0000 %0720 a19 %Y1 1 %z008413 -08214 009227 %#0000 1000 0000 1000 0000 1000 0000 %0072 I01 %L1 2 %z008716 -04558 -01357 %#0000 1000 1000 1000 0000 0000 0000 %0080 I09 %C1 3 %z003158 007462 -10553 %#0000 0000 1000 1000 1000 0000 0000 %0008 A09 %V1 4 %z005731 009362 -06140 %#1000 0000 1000 0000 1000 0000 0000 %0656 S27 %M1 5 %z000808 000025 000012 %#0000 0000 0000 1000 1000 1000 0000 %0000 A01 %N1 6 %z009550 -00003 000025 %#1000 1000 1000 0000 0000 0000 0000 %0728 a27 %W1 7 %$ 005113 007459 006736 %#1000 0000 0000 0000 1000 1000 0000 %0801 j01 %O2 0 009285 -02142 010510 %#1000 1000 0000 0000 0000 1000 0000 %0882 j10 %Y2 1 008403 -08207 009209 %#0000 1000 0000 1000 0000 1000 0000 %0963 j19 %L2 2 008731 -04541 -01366 %#0000 1000 1000 1000 0000 0000 0000 %0737 b09 %C2 3 003151 007503 -10570 %#0000 0000 1000 1000 1000 0000 0000 %0818 b18 %V2 4 005742 009376 -06141 %#1000 0000 1000 0000 1000 0000 0000 %0899 b27 %M2 5 000800 000000 -00009 %#0000 0000 0000 1000 1000 1000 0000 %0809 j09 %N2 6 009554 000001 000023 %#1000 1000 1000 0000 0000 0000 0000 %0729 b01 %W2 7 %$ ] def %************************************************************************* } if %xcolor 0, LAB*ra0 %************************************************************************* 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 (JG070-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 {(JG070-) show} {(JG071-) 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,0 %%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 JG070-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 (JG070-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 JG071-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 (JG071-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 JG071-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 (JG071-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 JG071-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 (JG071-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 JG071-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 (JG071-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 JG071-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 (JG071-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 JG071-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 (JG071-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 JG071-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 (JG071-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 JG071-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 (JG071-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 JG07; Relatives Ger\344te\255Farbsystem O) showde (TUB\255test chart JG07; Relative Device Colour System O) showen 61 MM 09 MM moveto (9\255stufig; LECD\255Ger\374te\255Display\255Reflexion) showde (9 step series; LECD device display reflection) showen ( 0,9%) show 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/JG07/JG07L) show (0) show LSC$ show LEX$ show (; ) show LAB*TE 0 get show (; ) show (Start\255Ausgabe) showde (start output) showen 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 (JG07/JG07L) 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 (/1) show 16 MM 185 MM moveto -90 rotate (Siehe Original/Kopie: ) showde (See original or copy: ) showen (http://web.me.com/klaus.richter/JG07/JG07L) 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\255JG07/JG07L) showde (TUB registration: 20100101\255JG07/JG07L) 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