%!PS-Adobe-3.0 EPSF-3.0 130.149.60.45/~farbmetrik/KG13/KG13L00XX.PS 20100301 %%BoundingBox: 14 08 828 584 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put } if [ /Title (PostScript pictures: www.ps.bam.de/KG13/KG13.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:2010030112000) /ModDate (D:2010030112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /ColSpxG 0 def /ColSpx ColSpxG def /DEintp 0 def /rgb_cmy 0 def %BEG GK0X->KG13/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %Early Binding: needed for colour separation /sgcmykcolor {setcmykcolor} bind def /sggray {setgray} bind def /sgrgbcolor {setrgbcolor} bind def %FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00 %/IMES 0 def %0=LAB* used, no reflection factor necessary /IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection %/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray /ISIN*ioG 0 def %default input for Offset Reflective System (ORS18/FRS09) /ISOU*ioG 0 def %default output dto. %/ISIN*ioG 1 def %input for Television Luminous System (TLS00) %/ISOU*ioG 1 def %output dto. %/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS09) %/ISOU*ioG 2 def %output dto. %/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18) %/ISOU*ioG 3 def %output dto. %/ISIN*ioG 4 def %input for Natural Luminous System (NLS00) %/ISOU*ioG 4 def %output dto. %/ISIN*ioG 5 def %input for Natural Reflective System (NRS11) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (CIE18) %/ISOU*ioG 6 def %output dto. %/ISIN*ioG 7 def %input for Standard Reflective System (TLS70) %/ISOU*ioG 7 def %output dto. /iLAB 0 def /ISIO*ioG 0 def /ISRL*ioG 0 def % for io-System, only once /auszg 8 def /ausz 8 def %END GK0X->KG13/OUTLIN10.PS Output Linearization (OL) LAB*->cmyolvnw* 20090201 %***************************************************************************** %BEG GK0X->KG13/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 %***************************************************************************** %Data (ORS18_95, L*=18_95) /proc_LAB*ioG {%BEG Procedure proc_LAB*ioG %requires ISRL*ioG=0,1,3 /RJGBLAB* 12 array def /RJGBLAB*[ 39.92 58.74 27.99 % R CIE No.09 elementary colours in LAB, D65 81.26 -2.89 71.56 % J CIE No.10 52.23 -42.42 13.60 % G CIE No.11 30.57 1.41 -46.47 % B CIE No.12 ] def /LAB* 132 array def %12x3=36 including N,W + 16x3=48 elementary system + 16x3=48 device system /LAB*a 132 array def /LAB*Hx 13 array def %0_to_6 8_to_12 for device and elemetary colours /LAB*00 24 array def /LAB*01 24 array def /LAB*02 24 array def /LAB*03 24 array def /LAB*04 24 array def /LAB*05 24 array def /LAB*06 24 array def /LAB*07 24 array def /LAB*TE %used in file and frame [(ORS18_95, L*=18_95) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70) (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70) (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def %ORS18_950_D65_ALM_GK00_G.DAT, Model or transfer to Real data, 55 lines, 141:195 ISRL*ioG 0 eq { %ISRL*ioG=0 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS18) %LAB* %#1000 x (r g b c m y 0) (ORS18_95A_D65_ALM) %047.94 65.31 52.07 %O 0 %090.37 -11.16 96.17 %Y 1 %050.90 -62.97 36.71 %L 2 %058.62 -30.63 -42.75 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 %025.72 31.45 -44.36 %V 4 %048.13 75.20 -6.80 %M 5 %018.01 0.50 -0.47 %N 7 %095.41 -0.99 4.76 %W 8 %From LUT_De740-7N_3_4_ORS18_95.DAT 20080625 %Data output of De74/10L/De740-7N.EPS -> De740_3_4_Model.log %(ORS18_950_D65_ALM_GK00), line 15-34 %LAB* %#1000 x (r g b c m y 0) not adapted %z04794 06531 05207 %O 0 %z09037 -1116 09617 %Y 1 %z05090 -6297 03671 %L 2 %z05862 -3063 -4275 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 %z02572 03145 -4436 %V 4 %z04813 07520 -0680 %M 5 %z01801 00050 -0047 %N 6 %z09541 -0099 00476 %W 7 %$ 04794 06531 05207 %O 0 09037 -1116 09617 %Y 1 05090 -6297 03671 %L 2 05862 -3063 -4275 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 02572 03145 -4436 %V 4 04813 07520 -0680 %M 5 01801 00050 -0047 %N 6 09541 -0099 00476 %W 7 %$ %(ORS18_95A_D65_ALM_GK00), line 35-54 %LAB*a %#1000 x (r g b c m y 0), adapted %04794 06537 05050 %#1000 0000 0000 0000 1000 1000 0000 %1074 l26 $O %09036 -1026 09173 %#1000 1000 0000 0000 0000 1000 0000 %1076 m26 $Y %05090 -6282 03495 %#0000 1000 0000 1000 0000 1000 0000 %1078 n26 $L %05861 -3034 -4501 %#0000 1000 1000 1000 0000 0000 0000 %1075 l27 $C %02572 03109 -4440 %#0000 0000 1000 1000 1000 0000 0000 %1077 m27 $V %04813 07526 -0836 %#1000 0000 1000 0000 1000 0000 0000 %1079 n27 $M %01802 00000 00000 %#0000 0000 0000 1000 1000 1000 0000 %1072 k26 $N %09540 00000 00000 %#1000 1000 1000 0000 0000 0000 0000 %1073 k27 $W %$ %04794 06537 05050 %#1000 0000 0000 0000 1000 1000 0000 %1074 l26 $O %09036 -1026 09173 %#1000 1000 0000 0000 0000 1000 0000 %1076 m26 $Y %05090 -6282 03495 %#0000 1000 0000 1000 0000 1000 0000 %1078 n26 $L %05861 -3034 -4501 %#0000 1000 1000 1000 0000 0000 0000 %1075 l27 $C %02572 03109 -4440 %#0000 0000 1000 1000 1000 0000 0000 %1077 m27 $V %04813 07526 -0836 %#1000 0000 1000 0000 1000 0000 0000 %1079 n27 $M %01802 00000 00000 %#0000 0000 0000 1000 1000 1000 0000 %1072 k26 $N %09540 00000 00000 %#1000 1000 1000 0000 0000 0000 0000 %1073 k27 $W %$ ] def %OYLCVMO+NW /LAB*01 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS00) 50.50 76.92 64.55 %O 0 92.66 -20.70 90.75 %Y 1 83.63 -82.76 79.90 %L 2 86.88 -46.17 -13.56 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 30.39 76.06 -103.6 %V 4 corected 57.30 94.35 -58.42 %M 5 corected 00.01 0.00 0.00 %N 7 corected 95.41 0.00 0.00 %W 8 ] def %OYLCVMO+NW /LAB*02 [%D=Device OYLCVMO+NW %for Device Reflective System (FRS06. FUJI) 32.57 61.14 43.72 %8-0-0 O-W 0 olv* setrgbcolor 64 82.73 -3.51 109.24 %8-8-0 Y-W 1 olv* setrgbcolor 32 39.43 -62.87 42.80 %0-8-0 L-W 2 olv* setrgbcolor 80 47.86 -27.73 -37.62 %0-8-8 C-W 3 olv* setrgbcolor 0 actual printer 10.16 53.56 -62.92 %0-0-8 V-W 4 olv* setrgbcolor 96 34.50 79.53 -36.77 %8-0-8 M-W 5 olv* setrgbcolor 16 06.25 -1.63 -1.73 %0-0-0 N-W 6 olv* setrgbcolor 48 91.97 -0.18 -5.11 %8-8-8 A-W 7 olv* setrgbcolor ] def %OYLCVMO+NW /LAB*03 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS18) 52.76 71.63 49.88 %O 0 92.74 -20.03 84.97 %Y 1 84.00 -78.99 73.94 %L 2 87.14 -44.42 -13.12 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 35.47 64.92 -95.07 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 59.01 89.33 -55.68 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*04 [%Natural symmetric Luminous System OYLCVMO+NW (NLS00) 31.81 82.62 47.70 %O 0 95.40/2 = 47.70 63.61 00.00 95.40 %Y 1 C*ab = 95.40 31.81 -82.62 47.70 %L 2 0.866 C*ab = 0.866 * 95.40 = 82.62 63.61 -82.62 -47.70 %C 3 delta L*=25.8 31.81 00.00 -95.40 %V 4 43.81=00.01+31.80 63.61 82.62 -47.70 %M 5 69.61=00.01+2*31.80 00.01 0.00 0.00 %N 6 95.40/3 = 31.80 95.41 0.00 0.00 %W 7 95.40*(2/3) = 63.60 ] def %CVMOYLC+NW /LAB*05 [%Natural symmetric Luminous System OYLCVMO+NW (NLS18) 43.81 67.03 38.70 %O 0 77.40/2 = 38.70 69.61 00.00 77.40 %Y 1 C*ab = 77.40 43.81 -67.03 38.70 %L 2 0.866 C*ab = 67.03 69.61 -67.03 -38.70 %C 3 delta L*=25.8 43.81 00.00 -77.40 %V 4 43.81=18.01+25.80 69.61 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 18.01+77.40/3 = 18.01+25.80=43.81 95.41 0.00 0.00 %W 7 18.01+77.40*(2/3) = 18.01+51.60=69.61 ] def %CVMOYLC+NW /LAB*06 [%Symmetric Reflective System OYLCVMO+NW (SRS18) 56.71 67.03 38.70 %O 0 18.01 + 77.40*0.5 = 18.01 + 38.70 = 56.71 56.71 00.00 77.40 %Y 1 C*ab = 77.40 56.71 -67.03 38.70 %L 2 0.866 C*ab = 67.03 56.71 -67.03 -38.70 %C 3 delta L*=25.8 56.71 00.00 -77.40 %V 4 43.81=18.01+25.80 56.71 67.03 -38.70 %M 5 69.61=18.01+2*25.80 18.01 0.00 0.00 %N 6 95.41 0.00 0.00 %W 7 95.41=18.01+3*25.80 ] def %CVMOYLC+NW /LAB*07 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS70) 76.43 26.27 10.57 %O 0 93.93 -10.77 34.63 %Y 1 89.32 -35.81 27.64 %L 2 90.93 -21.96 -7.08 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 72.10 15.76 -35.64 %V 4 78.50 37.52 -25.24 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW } if %ISRL*ioG=0 ISRL*ioG 1 eq { %ISRL*ioG=1 /LAB*00 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS00) 50.50 76.91 64.55 %O 0 92.66 -20.68 90.75 %Y 1 83.62 -82.74 79.90 %L 2 86.88 -46.15 -13.54 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 30.39 76.06 -103.6 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 57.31 94.35 -58.40 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 00.01 0.00 0.00 %N 6 Yr=0.00 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*01 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS06) 51.08 75.54 59.69 %O 0 92.68 -20.51 89.24 %Y 1 83.72 -81.79 78.32 %L 2 86.94 -45.72 -13.43 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 31.77 72.91 -101.3 %V 4 57.74 93.06 -57.71 %M 5 05.69 0.00 0.00 %N 6 Yr=0.63 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*02 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS11) 51.65 74.20 55.83 %O 0 92.70 -20.35 87.77 %Y 1 83.81 -80.85 76.81 %L 2 87.01 -45.28 -13.33 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 33.06 70.03 -99.09 %V 4 58.17 91.80 -57.03 %M 5 10.99 0.00 0.00 %N 6 Yr=1.26 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*03 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS18) 52.76 71.63 49.88 %O 0 92.74 -20.03 84.97 %Y 1 84.00 -78.99 73.94 %L 2 87.14 -44.42 -13.12 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 35.47 64.92 -95.07 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 59.01 89.33 -55.68 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*04 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS27) 54.88 66.84 41.69 %O 0 92.82 -19.39 79.81 %Y 1 84.37 -75.39 68.76 %L 2 87.40 -42.72 -12.70 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 39.70 56.66 -88.02 %V 4 60.64 84.61 -53.08 %M 5 26.85 0.00 0.00 %N 6 Yr=5.04 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*05 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS38) 58.77 58.45 31.73 %O 0 92.98 -18.11 70.81 %Y 1 85.11 -68.58 60.02 %L 2 87.92 -39.42 -11.87 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 46.64 44.93 -76.56 %V 4 63.71 75.92 -48.22 %M 5 37.99 0.00 0.00 %N 6 Yr=10.08 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*06 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS52) 65.53 45.06 20.98 %O 0 93.30 -15.61 56.27 %Y 1 86.55 -56.31 46.52 %L 2 88.94 -33.19 -10.24 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 57.17 30.66 -59.40 %V 4 69.22 60.95 -39.57 %M 5 52.02 0.00 0.00 %N 6 Yr=20.16 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW /LAB*07 [%D=Device CVMOYLC+NW %for Television Luminous System (TLS70) 76.43 26.27 10.57 %O 0 93.93 -10.77 34.63 %Y 1 89.32 -35.81 27.64 %L 2 90.93 -21.96 -7.08 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 72.10 15.76 -35.64 %V 4 78.50 37.52 -25.24 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %CVMOYLC+NW } if %ISRL*ioG=1 ISRL*ioG 2 eq { %ISRL*ioG=2 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS00) 45.14 71.37 75.54 %O 0 90.22 -10.60 99.51 %Y 1 48.45 -73.19 42.21 %L 2 56.88 -33.11 -47.41 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 16.48 45.84 -56.22 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 45.36 81.85 -9.29 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 00.01 0.00 0.00 %N 6 Yr=0.00 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*01 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS06) 45.87 69.79 66.99 %O 0 90.25 -10.51 97.42 %Y 1 49.08 -70.28 40.08 %L 2 57.33 -32.38 -46.80 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 19.26 40.73 -52.47 %V 4 46.07 80.12 -9.04 %M 5 05.69 0.00 0.00 %N 6 Yr=0.63 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*02 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS11) 46.57 68.27 59.62 %O 0 90.29 -10.43 95.45 %Y 1 49.70 -67.60 38.19 %L 2 57.76 -31.68 -46.19 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 21.67 36.81 -49.37 %V 4 46.77 78.45 -8.80 %M 5 10.99 0.00 0.00 %N 6 Yr=1.26 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*03 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS18) 47.94 65.39 50.52 %O 0 90.37 -10.26 91.75 %Y 1 50.90 -62.83 34.96 %L 2 58.62 -30.34 -45.01 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 25.72 31.10 -44.40 %V 4 %see TABle X of ISO/IEC TR 24705:2005-10 48.13 75.28 -8.36 %M 5 %see Annex A, www.ps.bam.de/RLABE.PDF 18.01 0.00 0.00 %N 6 Yr=2.52 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*04 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS27) 50.51 60.17 40.13 %O 0 90.52 -9.92 85.20 %Y 1 53.18 -55.04 30.00 %L 2 60.28 -27.91 -42.75 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 32.06 24.02 -37.32 %V 4 50.68 69.50 -7.57 %M 5 26.85 0.00 0.00 %N 6 Yr=5.04 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*05 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS38) 55.13 51.42 29.16 %O 0 90.83 -9.25 74.37 %Y 1 57.35 -43.84 23.35 %L 2 63.39 -23.83 -38.56 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 41.26 16.67 -28.49 %V 4 55.27 59.74 -6.32 %M 5 37.99 0.00 0.00 %N 6 Yr=10.08 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*06 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS52) 62.90 38.38 18.55 %O 0 91.44 -7.95 57.91 %Y 1 64.49 -30.06 15.67 %L 2 68.98 -17.74 -31.24 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 53.87 10.09 -18.84 %V 4 63.00 44.96 -4.56 %M 5 52.02 0.00 0.00 %N 6 Yr=20.16 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW /LAB*07 [%D=Device OYLCVMO+NW %for Offset Luminous System (OLS70) 75.01 21.53 9.07 %O 0 92.64 -5.45 34.85 %Y 1 75.86 -15.50 7.96 %L 2 78.37 -9.90 -19.51 %C 3 %see Annex A, www.ps.bam.de/RLABE.PDF 70.54 4.74 -9.47 %V 4 75.07 25.47 -2.46 %M 5 69.70 0.00 0.00 %N 6 Yr=40.32 95.41 0.00 0.00 %W 7 ] def %OYLCVMO+NW } if %ISRL*ioG=2 0 1 11 {/sISO exch def %sISO=0,11 /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def sISO 7 le { %sISO=0,7 ISIO*ioG 0 eq { %ORS18/TLS00/OLS00 LAB* i30 LAB*00 i30 get 100 div put LAB* i31 LAB*00 i31 get 100 div put LAB* i32 LAB*00 i32 get 100 div put } if ISIO*ioG 1 eq { %TLS00/TLS06/OLS06 LAB* i30 LAB*01 i30 get put LAB* i31 LAB*01 i31 get put LAB* i32 LAB*01 i32 get put } if ISIO*ioG 2 eq { %FRS06/TLS11/OLS11 LAB* i30 LAB*02 i30 get put LAB* i31 LAB*02 i31 get put LAB* i32 LAB*02 i32 get put } if ISIO*ioG 3 eq { %TLS18/TLS18/OLS18 LAB* i30 LAB*03 i30 get put LAB* i31 LAB*03 i31 get put LAB* i32 LAB*03 i32 get put } if ISIO*ioG 4 eq { %NLS00/TSL28/OLS28 LAB* i30 LAB*04 i30 get put LAB* i31 LAB*04 i31 get put LAB* i32 LAB*04 i32 get put } if ISIO*ioG 5 eq { %NRS18/TLS38/OLS38 LAB* i30 LAB*05 i30 get put LAB* i31 LAB*05 i31 get put LAB* i32 LAB*05 i32 get put } if ISIO*ioG 6 eq { %SRS18/TLS50/OLS50 LAB* i30 LAB*06 i30 get put LAB* i31 LAB*06 i31 get put LAB* i32 LAB*06 i32 get put } if ISIO*ioG 7 eq { %TLS70/TLS70/OLS70 LAB* i30 LAB*07 i30 get put LAB* i31 LAB*07 i31 get put LAB* i32 LAB*07 i32 get put } if } %sISO=0,7 {%sISO=8,11 %Definition 8 to 11 (24 to 35=33+2) /jISO sISO 8 sub def /j30 jISO 3 mul def /j31 j30 1 add def /j32 j30 2 add def LAB* i30 RJGBLAB* j30 get put LAB* i31 RJGBLAB* j31 get put LAB* i32 RJGBLAB* j32 get put LAB*a i30 LAB* i30 get put LAB*a i31 LAB* i31 get put LAB*a i32 LAB* i32 get put } ifelse } for %sISO=0,11 % possible change of LAB*a according to reduced gamut %LAB* = 20 for Black N %LAB* = 95 for White W %cfakt = (95 - 20)/(95.41 - 18.01) = 0.969 %LAB*L*Nn = 20 for Black N instead of LAB*L*N = 18,01 %LAB*L*Wn = 95 for White W instead of LAB*L*W = 95,41 %LAB*L*Zn = 20+(95-20)/2=57,5 for Grey Z instead of %LAB*L*Z = 18,01+(95,41-18,01)/2=56,71 %L*neu = L*alt + (1 - cfakt %For achromatic %deltaLmean = 57,5 (1-c*neu); 56,71 (1-c*alt) %deltaLmimu = 20,0 (1-c*neu); 18,01 (1-c*alt) %deltaLplus = 95,0 (1-c*neu); 95,41 (1-c*alt) %For chromatic M %deltaLmean = L*Ma,neu; L*Ma,alt = known %C*Ma,alt known, C*Ma,neu known /L*Nio LAB* 18 get def /A*Nio LAB* 19 get def /B*Nio LAB* 20 get def /L*Wio LAB* 21 get def /A*Wio LAB* 22 get def /B*Wio LAB* 23 get def /L*Wioref 95.0 def /L*Nioref 18.0 def /cfakt 1 def %/cfakt L*Wioref L*Nioref sub L*Wio L*Nio sub div def cfakt 1 ne {%cfakt#1 %change of lightness for Maximum colour /l*CIEN L*Nioref L*Nio sub L*Wio L*Nio sub div def /l*CIEW L*Wioref L*Nio sub L*Wio L*Nio sub div def %LAB* 18 L*Nioref put %defined change of lightness and chroma a*,b* for N LAB* 19 A*Nio A*Wio A*Nio sub l*CIEN mul add put LAB* 20 B*Nio B*Wio B*Nio sub l*CIEN mul add put %LAB* 21 L*Wioref put %defined change of lightness and chroma a*,b* for W LAB* 22 A*Nio A*Wio A*Nio sub l*CIEW mul add put LAB* 23 B*Nio B*Wio B*Nio sub l*CIEW mul add put %change of chroma by factor cfakt 0 1 07 {/iISO exch def /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIEL LAB* i30 get L*Nio sub L*Wio L*Nio sub div def LAB* i30 L*Nioref L*Wioref L*Nioref sub l*CIEL mul add put LAB* i31 LAB* i31 get cfakt mul put LAB* i32 LAB* i32 get cfakt mul put } for } if %cfakt#1 /L*Nior LAB* 18 get def %r=reference for reverse transform /A*Nior LAB* 19 get def /B*Nior LAB* 20 get def /L*Wior LAB* 21 get def /A*Wior LAB* 22 get def /B*Wior LAB* 23 get def /cf1 1.00 def 0 1 7 {/iISO exch def %iISO=0,7 /i30 iISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def /l*CIE LAB* i30 get L*Nior sub L*Wior L*Nior sub div def /a*sr A*Wior A*Nior sub l*CIE mul def /b*sr B*Wior B*Nior sub l*CIE mul def /L*Z L*Nior L*Wior L*Nior sub 0.5 mul add def LAB*a i30 LAB* i30 get L*Z sub cf1 mul L*Z add put LAB*a i31 LAB* i31 get A*Nior sub a*sr sub cf1 mul put LAB*a i32 LAB* i32 get B*Nior sub b*sr sub cf1 mul put } for /L*Nio LAB*a 18 get def %=18.01 /A*Nio LAB*a 19 get def %=0 /B*Nio LAB*a 20 get def %=0 /L*Wio LAB*a 21 get def %=95.41 /A*Wio LAB*a 22 get def %=0 /B*Wio LAB*a 23 get def %=0 /A*Dio A*Wio A*Nio sub def %=0 /B*Dio B*Wio B*Nio sub def %=0 /cLAB*s0 3 array def %C cyan blue /vLAB*s0 3 array def %V violet blue /mLAB*s0 3 array def %M magenta red /oLAB*s0 3 array def %O orange red /yLAB*s0 3 array def %Y yellow /lLAB*s0 3 array def %L leaf green /nLAB*s0 3 array def %N black /wLAB*s0 3 array def %W white /rLAB*s0 3 array def %R elementary red /jLAB*s0 3 array def %J elementary yellow /gLAB*s0 3 array def %G elementary green /bLAB*s0 3 array def %B elementary blue %Determine Matrix data input or output data oLAB*s0 0 LAB*a 0 get L*Nio sub put oLAB*s0 1 LAB*a 1 get put oLAB*s0 2 LAB*a 2 get put yLAB*s0 0 LAB*a 3 get L*Nio sub put yLAB*s0 1 LAB*a 4 get put yLAB*s0 2 LAB*a 5 get put lLAB*s0 0 LAB*a 6 get L*Nio sub put lLAB*s0 1 LAB*a 7 get put lLAB*s0 2 LAB*a 8 get put cLAB*s0 0 LAB*a 9 get L*Nio sub put cLAB*s0 1 LAB*a 10 get put cLAB*s0 2 LAB*a 11 get put vLAB*s0 0 LAB*a 12 get L*Nio sub put vLAB*s0 1 LAB*a 13 get put vLAB*s0 2 LAB*a 14 get put mLAB*s0 0 LAB*a 15 get L*Nio sub put mLAB*s0 1 LAB*a 16 get put mLAB*s0 2 LAB*a 17 get put nLAB*s0 0 LAB*a 18 get L*Nio sub put nLAB*s0 1 LAB*a 19 get put nLAB*s0 2 LAB*a 20 get put wLAB*s0 0 LAB*a 21 get L*Nio sub put wLAB*s0 1 LAB*a 22 get put wLAB*s0 2 LAB*a 23 get put rLAB*s0 0 LAB*a 24 get L*Nio sub put rLAB*s0 1 LAB*a 25 get put rLAB*s0 2 LAB*a 26 get put jLAB*s0 0 LAB*a 27 get L*Nio sub put jLAB*s0 1 LAB*a 28 get put jLAB*s0 2 LAB*a 29 get put gLAB*s0 0 LAB*a 30 get L*Nio sub put gLAB*s0 1 LAB*a 31 get put gLAB*s0 2 LAB*a 32 get put bLAB*s0 0 LAB*a 33 get L*Nio sub put bLAB*s0 1 LAB*a 34 get put bLAB*s0 2 LAB*a 35 get put % Determine the input or output angle in the A* B* plane % of each of the colours defined above /C*Ang cLAB*s0 2 get cLAB*s0 1 get 0.0001 add atan def /V*Ang vLAB*s0 2 get vLAB*s0 1 get 0.0001 add atan def /M*Ang mLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /O*Ang oLAB*s0 2 get oLAB*s0 1 get 0.0001 add atan def /Y*Ang yLAB*s0 2 get yLAB*s0 1 get 0.0001 add atan def /L*Ang lLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /N*Ang 0 def /W*Ang 0 def /R*Ang rLAB*s0 2 get rLAB*s0 1 get 0.0001 add atan def /J*Ang jLAB*s0 2 get jLAB*s0 1 get 0.0001 add atan def /G*Ang gLAB*s0 2 get gLAB*s0 1 get 0.0001 add atan def /B*Ang bLAB*s0 2 get bLAB*s0 1 get 0.0001 add atan def %6+1 hue angles for 6 device colour (index 0 to 06) %4+1 hue angles for 4 elementary colours (index 8 to 12) %no. 6 and 7 originaly achromatic 0 1 11 {/iHx exch def /i1x iHx 3 mul 1 add def /i2x i1x 1 add def LAB*Hx iHx LAB*a i2x get LAB*a i1x get 0.000001 add atan put } for LAB*Hx 06 LAB*Hx 00 get 360 add put LAB*Hx 12 LAB*Hx 08 get 360 add put %6 Hue angles of elementary and intermediate colours e=RJGCgbBMbr /LAB*He 7 array def LAB*He 0 LAB*Hx 08 get put %R LAB*He 1 LAB*Hx 09 get put %J LAB*He 2 LAB*Hx 10 get put %G LAB*He 3 LAB*Hx 10 get LAB*Hx 11 get add 0.5 mul put %Cgb LAB*He 4 LAB*Hx 11 get put %B LAB*He 5 LAB*Hx 11 get LAB*Hx 08 get 360 add add 0.5 mul put %Mbr LAB*He 6 LAB*Hx 08 get 360 add put %R(+360) %6 Hue angles of device and intermediate colours d=OYLCVMO /LAB*Hd 7 array def LAB*Hd 0 LAB*Hx 00 get put %O LAB*Hd 1 LAB*Hx 01 get put %Y LAB*Hd 2 LAB*Hx 02 get put %L LAB*Hd 3 LAB*Hx 03 get put %C LAB*Hd 4 LAB*Hx 04 get put %V LAB*Hd 5 LAB*Hx 05 get put %M LAB*Hd 6 LAB*Hx 00 get 360 add put %O(+360) /ColeiNames 16 array def /ColeiNames [(r00j) (r25j) (r50j) (r75j) (j00g) (j25g) (j50g) (j75g) (g00b) (g25b) (g50b) (g75b) (b00r) (b25r) (b50r) (b75r) ] def /ColdiNames 16 array def /ColdiNames [(o00y) (o25y) (o50y) (o75y) (y00l) (y25l) (y50l) (y75l) (l00c) (l50c) (c00v) (c50v) (v00m) (v50m) (m00o) (m50o) ] def /L*diMa 16 array def %LAB*diMa /A*diMa 16 array def /B*diMa 16 array def /o3*ddiMa 16 array def %olv3*ddiMa /l3*ddiMa 16 array def /v3*ddiMa 16 array def /u*ddiMa1 16 array def %u*ddiMax /u*ddiMai 16 array def /u*ddiMa2 16 array def /o3*deiMa 16 array def %olv3*deiMa /l3*deiMa 16 array def /v3*deiMa 16 array def /u*deiMa1 16 array def %u*deiMax /u*deiMai 16 array def /u*deiMa2 16 array def /L*eiMa 16 array def %LAB*eiMa /A*eiMa 16 array def /B*eiMa 16 array def /o3*eeiMa 16 array def %olv3*eeiMa /l3*eeiMa 16 array def /v3*eeiMa 16 array def /u*eeiMa1 16 array def %u*eeiMax /u*eeiMai 16 array def /u*eeiMa2 16 array def /o3*ediMa 16 array def %olv3*ediMa /l3*ediMa 16 array def /v3*ediMa 16 array def /u*ediMa1 16 array def %u*ediMax /u*ediMai 16 array def /u*ediMa2 16 array def %/L*xiMa 16 array def %LAB*xiMa x=d/e %/A*xiMa 16 array def %/B*xiMa 16 array def %/o3*xxiMa 16 array def %olv3*xxiMa xx=dd/ee %/l3*xxiMa 16 array def %/v3*xxiMa 16 array def /u*xxiMa1 16 array def %u*xxiMax xx=dd/ee /u*xxiMai 16 array def /u*xxiMa2 16 array def %/o3*xyiMa 16 array def %olv3*xxiMa xy=de/ed %/l3*xyiMa 16 array def %/v3*xyiMa 16 array def %/u*xyiMa1 16 array def %u*xxiMax xy=de/ed %/u*xyiMai 16 array def %/u*xyiMa2 16 array def %Definition LAB*diMa, olv3*deiMa, u*deiMax (all 00 to 15) by equal device (d) hue angle difference %between O and Y, Y and L, L and C, C and V, V and M, and M and O %Definition of OYLCVMO, 4 steps between OYL, 2 steps between LCVMO 0 1 15 {/iinx exch def %iinx=0,15 %define device hue angle H*M of 16 hues iinx 00 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan def} if iinx 01 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.75 mul LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.25 mul add def} if iinx 02 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.50 mul LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.50 mul add def} if iinx 03 eq {/H*M LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 0.25 mul LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.75 mul add def} if iinx 04 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan def} if iinx 05 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.75 mul LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.25 mul add def} if iinx 06 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.50 mul LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.50 mul add def} if iinx 07 eq {/H*M LAB*a 1 3 mul 2 add get LAB*a 1 3 mul 1 add get atan 0.25 mul LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.75 mul add def} if iinx 08 eq {/H*M LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan def} if iinx 09 eq {/H*M LAB*a 2 3 mul 2 add get LAB*a 2 3 mul 1 add get atan 0.5 mul LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan 0.5 mul add def} if iinx 10 eq {/H*M LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan def} if iinx 11 eq {/H*M LAB*a 3 3 mul 2 add get LAB*a 3 3 mul 1 add get atan 0.5 mul LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan 0.5 mul add def} if iinx 12 eq {/H*M LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan def} if iinx 13 eq {/H*M LAB*a 4 3 mul 2 add get LAB*a 4 3 mul 1 add get atan 0.5 mul LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan 0.5 mul add def} if iinx 14 eq {/H*M LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan def} if iinx 15 eq {/H*M LAB*a 5 3 mul 2 add get LAB*a 5 3 mul 1 add get atan 0.5 mul LAB*a 0 3 mul 2 add get LAB*a 0 3 mul 1 add get atan 360 add 0.5 mul add def} if proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG %stores LAB*diMa L*diMa iinx L*Ma put A*diMa iinx A*Ma put B*diMa iinx B*Ma put %stores olv3*ddiMa o3*ddiMa iinx o3*ddMa put l3*ddiMa iinx l3*ddMa put v3*ddiMa iinx v3*ddMa put %stores u*ddiMax u*ddiMa1 iinx u*ddMa1 put u*ddiMai iinx u*ddMai put u*ddiMa2 iinx u*ddMa2 put %stores olv3*deiMa o3*deiMa iinx o3*deMa put l3*deiMa iinx l3*deMa put v3*deiMa iinx v3*deMa put %stores u*deiMax u*deiMa1 iinx u*deMa1 put u*deiMai iinx u*deMai put u*deiMa2 iinx u*deMa2 put } for %iinx=0,15 %Definition LAB*eiMa, olv3*ediMa, u*ediMax (all 00 to 15) by equal elementary (e) hue angle difference %between R and J, J and G, G and B, and B and R 0 1 03 {/ik exch def %ik=0,3 /H*1 RJGBLAB* ik 3 mul 2 add get RJGBLAB* ik 3 mul 1 add get 0.00001 add atan def ik 2 le {/ik2b ik 3 mul 5 add def} {/ik2b 2 def} ifelse /ik2a ik2b 1 sub def /H*2 RJGBLAB* ik2b get RJGBLAB* ik2a get 0.00001 add atan def ik 3 eq {/H*2 H*2 360 add def} if 0 1 03 {/ij exch def %ij=1,3 ij 0 eq {/a0 1.00 def /b0 0.00 def} if ij 1 eq {/a0 0.75 def /b0 0.25 def} if ij 2 eq {/a0 0.50 def /b0 0.50 def} if ij 3 eq {/a0 0.25 def /b0 0.75 def} if /H*M a0 H*1 mul b0 H*2 mul add def H*M 360 ge {/H*M H*M 360 sub def} if proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG /iinx ik 4 mul ij add def %stores LAB*eiMa L*eiMa iinx L*Ma put A*eiMa iinx A*Ma put B*eiMa iinx B*Ma put %stores olv3*eeiMa o3*eeiMa iinx o3*deMa put l3*eeiMa iinx l3*deMa put v3*eeiMa iinx v3*deMa put %stores u*eeiMax u*eeiMa1 iinx u*deMa1 put u*eeiMai iinx u*deMai put u*eeiMa2 iinx u*deMa2 put %stores olv3*ediMa o3*ediMa iinx o3*ddMa put l3*ediMa iinx l3*ddMa put v3*ediMa iinx v3*ddMa put %stores u*eeiMax u*ediMa1 iinx u*ddMa1 put u*ediMai iinx u*ddMai put u*ediMa2 iinx u*ddMa2 put } for %ik=0,3 } for %ij=0,3 0 1 15 {/i exch def %i=0,15 %L*xiMa i DEintp 0 eq {L*diMa}{L*eiMa} ifelse i get put %LAB*xiMa x=d/e %A*xiMa i DEintp 0 eq {A*diMa}{A*eiMa} ifelse i get put %B*xiMa i DEintp 0 eq {B*diMa}{B*eiMa} ifelse i get put %o3*xxiMa i DEintp 0 eq {o3*ddiMa}{o3*eeiMa} ifelse i get put %olv3*xxiMa xx=dd/ee %l3*xxiMa i DEintp 0 eq {l3*ddiMa}{l3*eeiMa} ifelse i get put %v3*xxiMa i DEintp 0 eq {v3*ddiMa}{v3*eeiMa} ifelse i get put u*xxiMa1 i DEintp 0 eq {u*ddiMa1}{u*eeiMa1} ifelse i get put %u*xxiMax xx=dd/ee u*xxiMai i DEintp 0 eq {u*ddiMai}{u*eeiMai} ifelse i get put u*xxiMa2 i DEintp 0 eq {u*ddiMa2}{u*eeiMa2} ifelse i get put %o3*xyiMa i DEintp 0 eq {o3*deiMa}{o3*ediMa} ifelse i get put %olv3*xxiMa xy=de/ed %l3*xyiMa i DEintp 0 eq {l3*deiMa}{l3*ediMa} ifelse i get put %v3*xyiMa i DEintp 0 eq {v3*deiMa}{v3*ediMa} ifelse i get put %u*xyiMa1 i DEintp 0 eq {u*deiMa1}{u*ediMa1} ifelse i get put %u*xxiMax xy=de/ed %u*xyiMai i DEintp 0 eq {u*deiMai}{u*ediMai} ifelse i get put %u*xyiMa2 i DEintp 0 eq {u*deiMa2}{u*ediMa2} ifelse i get put } for %i=0,15 } bind def %END Procedure proc_LAB*ioG %*********************************************************** /proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG { %BEG procedure proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG %only for calculation without hue tables %input H*M (only hue (H) of Fa/Ma) %input LAB*a (6 adapted colours OYLCVM) %input nLAB*s0 (colour Black N for calculation of lab*l) %input wLAB*s0 (colour White W for achromatic axis) %output LAB*Ma %output olvi3*Ma %output cmyn3*Ma /L*Ha 50 def /A*Ha 75 H*M cos mul def /B*Ha 75 H*M sin mul def /UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def /UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def /UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma atan def /H*abd B*Ha A*Ha 0.0001 add atan def /H*abe H*abd def %faktor and section in actual System (for example ORS18) /jsecd -1 def %main equations %faktd = [col_angh - LAB*Hd(n)]/[LAB*Hd(n+1) - LAB*Hd(n)] %col_angh = faktd [LAB*Hd(n+1) - LAB*Hd(n)] + LAB*Hd(n) H*abd LAB*Hd 0 get lt {/H*abd H*abd 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abd LAB*Hd nx get ge H*abd LAB*Hd np get lt and {/jsecd nx def /faktd H*abd LAB*Hd nx get sub LAB*Hd np get LAB*Hd nx get sub div def} if } for %nx=0,5 %1 0 0 %O jsecd=0 %1 1 0 %Y jsecd=1 %0 1 0 %L jsecd=2 %0 1 1 %C jsecd=3 %0 0 1 %V jsecd=4 %1 0 1 %M jsecd=5 jsecd -1 eq {STOPjsecd} if /fakmd 1 faktd sub def /o3*ddMa -1 def /l3*ddMa -1 def /v3*ddMa -1 def jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /o3*ddMa 1 def /l3*ddMa faktd def /v3*ddMa 0 def /u*ddMa1 (o) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (y) def} if jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /o3*ddMa fakmd def /l3*ddMa 1 def /v3*ddMa 0 def /u*ddMa1 (y) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (l) def} if jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1 /o3*ddMa 0 def /l3*ddMa 1 def /v3*ddMa faktd def /u*ddMa1 (l) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (c) def} if jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1 /o3*ddMa 0 def /l3*ddMa fakmd def /v3*ddMa 1 def /u*ddMa1 (c) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (v) def} if jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1 /o3*ddMa faktd def /l3*ddMa 0 def /v3*ddMa 1 def /u*ddMa1 (v) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (m) def} if jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0 /o3*ddMa 1 def /l3*ddMa 0 def /v3*ddMa fakmd def /u*ddMa1 (m) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (o) def} if o3*ddMa -1 eq {STOPo3*ddMa1} if l3*ddMa -1 eq {STOPl3*ddMa1} if v3*ddMa -1 eq {STOPv3*ddMa1} if /i3*ddMa 1 def /c3*ddMa 1 o3*ddMa sub def /m3*ddMa 1 l3*ddMa sub def /y3*ddMa 1 v3*ddMa sub def /n3*ddMa 0 def %calculations for elementary (e) system: %faktor and section in actual System (for example ORS18) /jsece -1 def %main equations %fakte = [col_angh - LAB*He(n)]/[LAB*He(n+1) - LAB*He(n)] %col_angh = fakte [LAB*He(n+1) - LAB*He(n)] + LAB*He(n) H*abe LAB*He 0 get lt {/H*abe H*abe 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abe LAB*He nx get ge H*abe LAB*He np get lt and {/jsece nx def /fakte H*abe LAB*He nx get sub LAB*He np get LAB*He nx get sub div def} if } for %nx=0,5 %1 0 0 %R jsece=0 %1 1 0 %J jsece=1 %0 1 0 %G jsece=2 %0 1 1 %C' jsece=3 %0 0 1 %B jsece=4 %1 0 1 %R jsece=5 jsece -1 eq {STOPjsece} if /fakme 1 fakte sub def /o3*deMa -1 def /l3*deMa -1 def /v3*deMa -1 def jsece 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0 /o3*deMa 1 def /l3*deMa fakte def /v3*deMa 0 def /u*dtMa1 (r) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (j) def /u*deMa1 (r) def /u*deMai fakte 99 mul cviht def /u*deMa2 (j) def} if jsece 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0 /o3*deMa fakme def /l3*deMa 1 def /v3*deMa 0 def /u*dtMa1 (j) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (g) def /u*deMa1 (j) def /u*deMai fakte 99 mul cviht def /u*deMa2 (g) def} if jsece 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1 /o3*deMa 0 def /l3*deMa 1 def /v3*deMa fakte def /u*dtMa1 (g) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (c') def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (b) def} if jsece 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1 /o3*deMa 0 def /l3*deMa fakme def /v3*deMa 1 def /u*dtMa1 (c') def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (b) def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (b) def} if jsece 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1 /o3*deMa fakte def /l3*deMa 0 def /v3*deMa 1 def /u*dtMa1 (b) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (m') def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (r) def} if jsece 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0 /o3*deMa 1 def /l3*deMa 0 def /v3*deMa fakme def /u*dtMa1 (m') def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (r) def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (r) def} if o3*deMa -1 eq {STOPo3*Ma0} if l3*deMa -1 eq {STOPl3*Ma0} if v3*deMa -1 eq {STOPv3*Ma0} if /i3*deMa 1 def /c3*deMa 1 o3*deMa sub def /m3*deMa 1 l3*deMa sub def /y3*deMa 1 v3*deMa sub def /n3*deMa 0 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def } bind def %END procedure proc_H*M_LAB*MaNTABl_olvi3*cmyn3*u*deMa*ioG %************************************************************* /proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG { %BEG Procedure proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %transfer from elementary data to device (ed) and elementary data (ee) %For tLAB=1 Transfer to LAB*Ma and LAB*Fa /v*s exch def /l*s exch def /o*s exch def /i*p 0 def %test if achromatic %W special case %W: o*s, l*s, v*s = 1.00 1.0 o*s sub abs 0.001 le 1.0 l*s sub abs 0.001 le and 1.0 v*s sub abs 0.001 le and %W special case {/i*p 6 def %W /c*rs 0 def /n*s 0 def /w*s 1 def /t*s 1 def } if %Test if achromatic %N special case %N: o*n, l*n, v*n <= 0.01 o*s abs 0.001 le l*s abs 0.001 le and v*s abs 0.001 le and %N special case {/i*p 6 def %N /c*rs 0 def /n*s 1 def /w*s 0 def /t*s 0 def } if %test if achromatic Grey sample o*s l*s sub abs 0.001 le l*s v*s sub abs 0.001 le and %Achromatic grey special case {/i*p 6 def %Grey /c*rs 0 def /n*s 1 o*s sub def /w*s o*s def /t*s 1 n*s sub c*rs 0.5 mul sub def } if i*p 6 eq {%achromatic,chromatic colours /o3*edMa 1 def /l3*edMa 1 def /v3*edMa 1 def /o3*eeMa 1 def /l3*eeMa 1 def /v3*eeMa 1 def /u*edMa1 (o) def /u*edMai 0 def /u*edMa2 (y) def /u*etMa1 (r) def /u*etMai 0 def /u*etMa2 (j) def /u*eeMa1 (r) def /u*eeMai 0 def /u*eeMa2 (j) def /o3*ed o*s def /l3*ed l*s def /v3*ed v*s def /o3*ee o*s def /l3*ee l*s def /v3*ee v*s def } %achromatic i*p=6 { %chromatic i*p#6 o*s l*s ge o*s v*s ge and {/olv*smax o*s def l*s v*s ge {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /olv*smin v*s def /olv*smean l*s def /jsecs 0 def} {%sector M->O, o3*=1, l3*=0, v3*=1->0 /olv*smin l*s def /olv*smean v*s def /jsecs 5 def} ifelse } if l*s v*s ge l*s o*s ge and {/olv*smax l*s def v*s o*s ge {%sector L->C, o3*=0, l3*=1, v3*=0->1 /olv*smin o*s def /olv*smean v*s def /jsecs 2 def} {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /olv*smin v*s def /olv*smean o*s def /jsecs 1 def} ifelse } if v*s o*s ge v*s l*s ge and {/olv*smax v*s def o*s l*s ge {%sector V->M, o3*=0->1, l3*=0, v3*=1 /olv*smin l*s def /olv*smean o*s def /jsecs 4 def} {%sector C->V, o3*=0, l3*=0->1, v3*=1 /olv*smin o*s def /olv*smean l*s def /jsecs 3 def } ifelse } if /c*rs olv*smax olv*smin sub def /n*s 1 olv*smax sub def /w*s 1 n*s sub c*rs sub def /t*s 1 n*s sub c*rs 0.5 mul sub def /b_a olv*smean olv*smax div def /c_a olv*smin olv*smax div def /alpha 1 c_a sub def /fakts b_a c_a sub alpha 0.00001 add div def /fakms 1 fakts sub def %jsecs interpreted as elementary hue angle jsecs 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /o3*eeMa 1 def /l3*eeMa fakts def /v3*eeMa 0 def /H*Me LAB*He 0 get LAB*He 1 get LAB*He 0 get sub fakts mul add def /u*eeMa1 (r) def /u*eeMai fakts 99 mul cviht def /u*eeMa2 (j) def} if jsecs 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /o3*eeMa fakts def /l3*eeMa 1 def /v3*eeMa 0 def /H*Me LAB*He 1 get LAB*He 2 get LAB*He 1 get sub fakms mul add def /u*eeMa1 (j) def /u*eeMai fakms 99 mul cviht def /u*eeMa2 (g) def} if jsecs 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1 /o3*eeMa 0 def /l3*eeMa 1 def /v3*eeMa fakts def /H*Me LAB*He 2 get LAB*He 3 get LAB*He 2 get sub fakts mul add def /u*etMa1 (g) def /u*etMai fakts 99 mul cviht def /u*etMa2 (C) def /u*eeMa1 (g) def /u*eeMai fakts 99 mul 0.5 mul cviht def /u*eeMa2 (b) def} if jsecs 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1 /o3*eeMa 0 def /l3*eeMa fakts def /v3*eeMa 1 def /H*Me LAB*He 3 get LAB*He 4 get LAB*He 3 get sub fakms mul add def /u*etMa1 (C) def /u*etMai fakms 99 mul cviht def /u*etMa2 (b) def /u*eeMa1 (g) def /u*eeMai fakms 99 mul 0.5 mul 50 add cviht def /u*eeMa2 (b) def} if jsecs 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1 /o3*eeMa fakts def /l3*eeMa 0 def /v3*eeMa 1 def /H*Me LAB*He 4 get LAB*He 5 get LAB*He 4 get sub fakts mul add def /u*etMa1 (b) def /u*etMai fakts 99 mul cviht def /u*etMa2 (M) def /u*eeMa1 (b) def /u*eeMai fakts 99 mul 0.5 mul cviht def /u*eeMa2 (r) def} if jsecs 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0 /o3*eeMa 1 def /l3*eeMa 0 def /v3*eeMa fakts def /H*Me LAB*He 5 get LAB*He 6 get LAB*He 5 get sub fakms mul add def /u*etMa1 (M) def /u*etMai fakms 99 mul cviht def /u*etMa2 (r) def /u*eeMa1 (b) def /u*eeMai fakms 99 mul 0.5 mul 50 add cviht def /u*eeMa2 (r) def} if /i3*eeMa 1 def /c3*eeMa 1 o3*eeMa sub def /m3*eeMa 1 l3*eeMa sub def /y3*eeMa 1 v3*eeMa sub def /n3*eeMa 0 def H*Me 360 ge {/H*Me H*Me 360 sub def} if %H*Me = H*abd = H*abe for all hue angles /H*abd H*Me def %calculations for device (d) system: %faktor and section in actual System (for example ORS18) /jsece -1 def %main equations %faktd = [col_angh - LAB*Hd(n)]/[LAB*Hd(n+1) - LAB*Hd(n)] %col_angh = faktd [LAB*Hd(n+1) - LAB*Hd(n)] + LAB*Hd(n) H*abd LAB*Hd 0 get lt {/H*abd H*abd 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abd LAB*Hd nx get ge H*abd LAB*Hd np get lt and {/jsecd nx def /faktd H*abd LAB*Hd nx get sub LAB*Hd np get LAB*Hd nx get sub div def} if } for %nx=0,5 %1 0 0 %O jsecd=0 %1 1 0 %Y jsecd=1 %0 1 0 %L jsecd=2 %0 1 1 %C jsecd=3 %0 0 1 %V jsecd=4 %1 0 1 %O jsecd=5 jsecd -1 eq {STOPjsecd} if /fakmd 1 faktd sub def /o3*edMa -1 def /l3*edMa -1 def /v3*edMa -1 def jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0 /o3*edMa 1 def /l3*edMa faktd def /v3*edMa 0 def /u*dtMa1 (o) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (y) def /u*edMa1 (o) def /u*edMai faktd 99 mul cviht def /u*edMa2 (y) def} if jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0 /o3*edMa fakmd def /l3*edMa 1 def /v3*edMa 0 def /u*dtMa1 (y) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (l) def /u*edMa1 (y) def /u*edMai faktd 99 mul cviht def /u*edMa2 (l) def} if jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1 /o3*edMa 0 def /l3*edMa 1 def /v3*edMa faktd def /u*dtMa1 (l) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (c) def /u*edMa1 (l) def /u*edMai faktd 99 mul cviht def /u*edMa2 (c) def} if jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1 /o3*edMa 0 def /l3*edMa fakmd def /v3*edMa 1 def /u*dtMa1 (c) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (v) def /u*edMa1 (c) def /u*edMai faktd 99 mul cviht def /u*edMa2 (v) def} if jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1 /o3*edMa faktd def /l3*edMa 0 def /v3*edMa 1 def /u*dtMa1 (v) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (m) def /u*edMa1 (v) def /u*edMai faktd 99 mul cviht def /u*edMa2 (m) def} if jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0 /o3*edMa 1 def /l3*edMa 0 def /v3*edMa fakmd def /u*dtMa1 (m) def /u*dtMai faktd 99 mul cviht def /u*dtMa2 (o) def /u*edMa1 (v) def /u*edMai faktd 99 mul cviht def /u*edMa2 (o) def} if o3*edMa -1 eq {STOPo3*Ma0} if l3*edMa -1 eq {STOPl3*Ma0} if v3*edMa -1 eq {STOPv3*Ma0} if /i3*edMa 1 def /c3*edMa 1 o3*edMa sub def /m3*edMa 1 l3*edMa sub def /y3*edMa 1 v3*edMa sub def /n3*edMa 0 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def %/o3*ee o*s def %/o3*ee w*s o3*eeMa c*rs mul add def %/l3*ee l*s def %/l3*ee w*s l3*eeMa c*rs mul add def %/v3*ee v*s def %/v3*ee w*s v3*eeMa c*rs mul add def /o3*ee w*s o3*eeMa c*rs mul add def /l3*ee w*s l3*eeMa c*rs mul add def /v3*ee w*s v3*eeMa c*rs mul add def /o3*ed w*s o3*edMa c*rs mul add def /l3*ed w*s l3*edMa c*rs mul add def /v3*ed w*s v3*edMa c*rs mul add def } ifelse %chromatic colour i*p#6 %For tLAB=1 Transfer to LAB*Ma and LAB*Fa tLAB 1 eq {%tLAB = 1 i*p 6 eq { %achromatic,chromatic colours /L*Ma L*Wio def /A*Ma 0 def /B*Ma 0 def /H*Ma B*Ma A*Ma 0.0001 add atan def /C*Ma 0 def /L*Fa L*Nio L*Wio L*Nio sub w*s mul add def /A*Fa 0 def /B*Fa 0 def /H*Fa B*Fa A*Fa 0.0001 add atan def /C*Fa 0 def /l*rs w*s def } %achromatic i*p=6 {%chromatic i*p#6 /H*M H*Me def %H*M allready defined /L*Ha 50 def /A*Ha 75 H*M cos mul def /B*Ha 75 H*M sin mul def /UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def /UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def /UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def %equations %/c*rs olv*smax olv*smin sub def %/n*s 1 olv*smax sub def %/w*s 1 n*s sub c*rs sub def %/t*s 1 n*s sub c*rs 0.5 mul sub def %l* = t* + c* [L*M - L*N]/[L*W - L*N] - 0.5 c* %l* = (L*Fa - L*Na) / (L*Wa - L*Na) %L*Fa = l* (L*Wa - L*Na) + L*Na %given L*Nio, L*Wio /l*rs t*s L*Ma L*Nio sub L*Wio L*Nio sub div c*rs mul add c*rs 0.5 mul sub def /L*Fa L*Nio L*Wio L*Nio sub l*rs mul add def /C*Fa C*Ma c*rs mul def /H*Fa H*Ma def /A*Fa C*Fa H*Ma cos mul def /B*Fa C*Fa H*Ma sin mul def } ifelse %chromatic colour i*p#6 } if %tLAB = 1 } bind def %END Procedure proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %******************************************************************** /proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG { %BEG Procedure proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG %transfer from device data to device (dd) and elementary data (de) %For tLAB=1 Transfer to LAB*Ma and LAB*Fa /v*s exch def /l*s exch def /o*s exch def /i*p 0 def %test if achromatic %W special case %W: o*s, l*s, v*s = 1.00 1.0 o*s sub abs 0.001 le 1.0 l*s sub abs 0.001 le and 1.0 v*s sub abs 0.001 le and %W special case {/i*p 6 def %W /c*rs 0 def /n*s 0 def /w*s 1 def /t*s 1 def } if %Test if achromatic %N special case %N: o*n, l*n, v*n <= 0.01 o*s abs 0.001 le l*s abs 0.001 le and v*s abs 0.001 le and %N special case {/i*p 6 def %N /c*rs 0 def /n*s 1 def /w*s 0 def /t*s 0 def } if %test if achromatic Grey sample o*s l*s sub abs 0.001 le l*s v*s sub abs 0.001 le and %Achromatic grey special case {/i*p 6 def %Grey /c*rs 0 def /n*s 1 o*s sub def /w*s o*s def /t*s 1 n*s sub c*rs 0.5 mul sub def } if i*p 6 eq {%achromatic,chromatic colours /o3*ddMa 1 def /l3*ddMa 1 def /v3*ddMa 1 def /o3*deMa 1 def /l3*deMa 1 def /v3*deMa 1 def /u*ddMa1 (o) def /u*ddMai 0 def /u*ddMa2 (y) def /u*dtMa1 (r) def /u*dtMai 0 def /u*dtMa2 (j) def /u*deMa1 (r) def /u*deMai 0 def /u*deMa2 (j) def /o3*dd o*s def /l3*dd l*s def /v3*dd v*s def /o3*de o*s def /l3*de l*s def /v3*de v*s def } %achromatic i*p=6 { %chromatic i*p#6 o*s l*s ge o*s v*s ge and {/olv*smax o*s def l*s v*s ge {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /olv*smin v*s def /olv*smean l*s def /jsecd 0 def} {%sector M->O, o3*=1, l3*=0, v3*=1->0 /olv*smin l*s def /olv*smean v*s def /jsecd 5 def} ifelse } if l*s v*s ge l*s o*s ge and {/olv*smax l*s def v*s o*s ge {%sector L->C, o3*=0, l3*=1, v3*=0->1 /olv*smin o*s def /olv*smean v*s def /jsecd 2 def} {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /olv*smin v*s def /olv*smean o*s def /jsecd 1 def} ifelse } if v*s o*s ge v*s l*s ge and {/olv*smax v*s def o*s l*s ge {%sector V->M, o3*=0->1, l3*=0, v3*=1 /olv*smin l*s def /olv*smean o*s def /jsecd 4 def} {%sector C->V, o3*=0, l3*=0->1, v3*=1 /olv*smin o*s def /olv*smean l*s def /jsecd 3 def } ifelse } if /c*rs olv*smax olv*smin sub def /n*s 1 olv*smax sub def /w*s 1 n*s sub c*rs sub def /t*s 1 n*s sub c*rs 0.5 mul sub def /b_a olv*smean olv*smax div def /c_a olv*smin olv*smax div def /alpha 1 c_a sub def /faktd b_a c_a sub alpha 0.00001 add div def /fakmd 1 faktd sub def %jsecd interpreted as device angle jsecd 0 eq {%sector O->Y, o3*=1, l3*=0->1, v3*=0 /o3*ddMa 1 def /l3*ddMa faktd def /v3*ddMa 0 def /H*M LAB*Hd 0 get LAB*Hd 1 get LAB*Hd 0 get sub faktd mul add def /u*ddMa1 (o) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (y) def} if jsecd 1 eq {%sector Y->L, o3*=1->0, l3*=1, v3*=0 /o3*ddMa faktd def /l3*ddMa 1 def /v3*ddMa 0 def /H*M LAB*Hd 1 get LAB*Hd 2 get LAB*Hd 1 get sub fakmd mul add def /u*ddMa1 (y) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (l) def} if jsecd 2 eq {%sector L->C, o3*=0, l3*=1, v3*=0->1 /o3*ddMa 0 def /l3*ddMa 1 def /v3*ddMa faktd def /H*M LAB*Hd 2 get LAB*Hd 3 get LAB*Hd 2 get sub faktd mul add def /u*ddMa1 (l) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (c) def} if jsecd 3 eq {%sector C->V, o3*=0, l3*=0->1, v3*=1 /o3*ddMa 0 def /l3*ddMa faktd def /v3*ddMa 1 def /H*M LAB*Hd 3 get LAB*Hd 4 get LAB*Hd 3 get sub fakmd mul add def /u*ddMa1 (c) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (v) def} if jsecd 4 eq {%sector V->M, o3*=0->1, l3*=0, v3*=1 /o3*ddMa faktd def /l3*ddMa 0 def /v3*ddMa 1 def /H*M LAB*Hd 4 get LAB*Hd 5 get LAB*Hd 4 get sub faktd mul add def /u*ddMa1 (v) def /u*ddMai faktd 99 mul cviht def /u*ddMa2 (m) def} if jsecd 5 eq {%sector M->O, o3*=1, l3*=0, v3*=1->0 /o3*ddMa 1 def /l3*ddMa 0 def /v3*ddMa faktd def /H*M LAB*Hd 5 get LAB*Hd 6 get LAB*Hd 5 get sub fakmd mul add def /u*ddMa1 (m) def /u*ddMai fakmd 99 mul cviht def /u*ddMa2 (o) def} if /i3*ddMa 1 def /c3*ddMa 1 o3*ddMa sub def /m3*ddMa 1 l3*ddMa sub def /y3*ddMa 1 v3*ddMa sub def /n3*ddMa 0 def H*M 360 ge {/H*M H*M 360 sub def} if %H*M = H*abd = H*abe for all hue angles /H*abe H*M def %calculations for elementary (e) system: %faktor and section in actual System (for example ORS18) /jsece -1 def %main equations %fakte = [col_angh - LAB*He(n)]/[LAB*He(n+1) - LAB*He(n)] %col_angh = fakte [LAB*He(n+1) - LAB*He(n)] + LAB*He(n) H*abe LAB*He 0 get lt {/H*abe H*abe 360 add def} if 0 1 5 {/nx exch def /np nx 1 add def H*abe LAB*He nx get ge H*abe LAB*He np get lt and {/jsece nx def /fakte H*abe LAB*He nx get sub LAB*He np get LAB*He nx get sub div def} if } for %nx=0,5 %1 0 0 %R jsece=0 %1 1 0 %J jsece=1 %0 1 0 %G jsece=2 %0 1 1 %C' jsece=3 %0 0 1 %B jsece=4 %1 0 1 %R jsece=5 jsece -1 eq {STOPjsece} if /fakme 1 fakte sub def /o3*deMa -1 def /l3*deMa -1 def /v3*deMa -1 def jsece 0 eq {%sector O->Y, o3*=1, l3*=0->1, v*=0 /o3*deMa 1 def /l3*deMa fakte def /v3*deMa 0 def /u*dtMa1 (r) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (j) def /u*deMa1 (r) def /u*deMai fakte 99 mul cviht def /u*deMa2 (j) def} if jsece 1 eq {%sector Y->L, o3*=1->0, l3*=1, v*=0 /o3*deMa fakme def /l3*deMa 1 def /v3*deMa 0 def /u*dtMa1 (j) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (g) def /u*deMa1 (j) def /u*deMai fakte 99 mul cviht def /u*deMa2 (g) def} if jsece 2 eq {%sector L->C, o3*=0, l3*=1, v*=0->1 /o3*deMa 0 def /l3*deMa 1 def /v3*deMa fakte def /u*dtMa1 (g) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (C) def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (b) def} if jsece 3 eq {%sector C->V, o3*=0, l3*=0->1, v*=1 /o3*deMa 0 def /l3*deMa fakme def /v3*deMa 1 def /u*dtMa1 (C) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (b) def /u*deMa1 (g) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (b) def} if jsece 4 eq {%sector V->M, o3*=0->1, l3*=0, v*=1 /o3*deMa fakte def /l3*deMa 0 def /v3*deMa 1 def /u*dtMa1 (b) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (M) def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul cviht def /u*deMa2 (r) def} if jsece 5 eq {%sector M->O, o3*=1, l3*=0, v*=1->0 /o3*deMa 1 def /l3*deMa 0 def /v3*deMa fakme def /u*dtMa1 (M) def /u*dtMai fakte 99 mul cviht def /u*dtMa2 (r) def /u*deMa1 (b) def /u*deMai fakte 99 mul 0.5 mul 50 add cviht def /u*deMa2 (r) def} if o3*deMa -1 eq {STOPo3*Ma0} if l3*deMa -1 eq {STOPl3*Ma0} if v3*deMa -1 eq {STOPv3*Ma0} if /i3*deMa 1 def /c3*deMa 1 o3*deMa sub def /m3*deMa 1 l3*deMa sub def /y3*deMa 1 v3*deMa sub def /n3*deMa 0 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def /o3*dd o*s def /o3*dd w*s o3*ddMa c*rs mul add def /l3*dd l*s def /l3*dd w*s l3*ddMa c*rs mul add def /v3*dd v*s def /v3*dd w*s v3*ddMa c*rs mul add def /o3*de w*s o3*deMa c*rs mul add def /l3*de w*s l3*deMa c*rs mul add def /v3*de w*s v3*deMa c*rs mul add def } ifelse %chromatic colour i*p#6 %For tLAB=1 Transfer to LAB*Ma and LAB*Fa tLAB 1 eq {%tLAB = 1 i*p 6 eq {%achromatic,chromatic colours /L*Ma L*Wio def /A*Ma 0 def /B*Ma 0 def /H*Ma B*Ma A*Ma 0.0001 add atan def /C*Ma 0 def /L*Fa L*Nio L*Wio L*Nio sub w*s mul add def /A*Fa 0 def /B*Fa 0 def /H*Fa B*Fa A*Fa 0.0001 add atan def /C*Fa 0 def /l*rs w*s def } %achromatic i*p=6 { %chromatic i*p#6 %H*M allready defined /L*Ha 50 def /A*Ha 75 H*M cos mul def /B*Ha 75 H*M sin mul def /UXF1a wLAB*s0 1 get B*Ha mul wLAB*s0 2 get A*Ha mul sub def /UXF2a wLAB*s0 2 get L*Ha mul wLAB*s0 0 get B*Ha mul sub def /UXF3a wLAB*s0 0 get A*Ha mul wLAB*s0 1 get L*Ha mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def %equations %/c*rs olv*smax olv*smin sub def %/n*s 1 olv*smax sub def %/w*s 1 n*s sub c*rs sub def %/t*s 1 n*s sub c*rs 0.5 mul sub def %l* = t* + c* [L*M - L*N]/[L*W - L*N] - 0.5 c* %l* = (L*Fa - L*Na) / (L*Wa - L*Na) %L*Fa = l* (L*Wa - L*Na) + L*Na %given L*Nio, L*Wio /l*rs t*s L*Ma L*Nio sub L*Wio L*Nio sub div c*rs mul add c*rs 0.5 mul sub def /L*Fa L*Nio L*Wio L*Nio sub l*rs mul add def /C*Fa C*Ma c*rs mul def /H*Fa H*Ma def /A*Fa C*Fa H*Ma cos mul def /B*Fa C*Fa H*Ma sin mul def } ifelse %chromatic colour i*p#6 } if %tLAB = 1 } bind def %END Procedure proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG %******************************************************************* from De990-7N04.PS /proc_ColSep*ioG {%BEG Procedure proc_ColSep*ioG ColourSeparation for NP-file 20090201 /setgc {pop pop pop 1 exch sub sggray} bind def /setgm {pop pop 1 exch sub sggray pop} bind def /setgy {pop 1 exch sub sggray pop pop} bind def /setgn {1 exch sub sggray pop pop pop} bind def /setgf {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def 0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub sggray} {1 ccolor sub 0.71 mul 1 mcolor sub 0.22 mul add 1 ycolor sub 0.07 mul add sggray} ifelse } bind def /setcmykcolorf { sgcmykcolor} bind def %fuer PSL1/2-Farbgeraet /setcmyknew { %Ersatz setcolornew durch setcmykcolor1 ausz 1 eq {setgc} if %C ausz 2 eq {setgm} if %M ausz 3 eq {setgy} if %Y ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgc} %PSL1-SW-Geraet ifelse } if %Cbunt ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgm} %PSL1-SW-Geraet ifelse } if %Mbunt ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0 /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgy} %PSL1-SW-Geraet ifelse } if %Ybunt ausz 7 eq {setgn} if %N ausz 8 ge { /setcmykcolor where %Abfrage Farb-/SW-Geraet {pop setcmykcolorf} %PSL1/2-Farb-Geraet {setgf} %PSL1-SW-Geraet ifelse } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker } bind def %********************************************************************* /rgb_LAB_Interp_olv*ioG {%BEG Procedure rgb_LAB_Interp_olv*ioG zm60'LABINPLT.PS %assumes input of rgb, LAB_Interpolation and calculation of olv* %split in chromatic and achromatic colours %two special cases black N and white W /b exch def /g exch def /r exch def r g sub abs 0.001 le r b sub abs 0.001 le and {%achromatic case /Case 0 def r abs 0.001 le g abs 0.001 le and b abs 0.001 le and {%N special case /Case 1 def } if %N special case 1 r sub abs 0.001 le 1 g sub abs 0.001 le and 1 b sub abs 0.001 le and {%W special case /Case 2 def } if }%achromatic {%chromatic /Case 3 def } ifelse %chromatic Case 1 eq {%Black N /o* 0 def /l* 0 def /v* 0 def } if %N special case Case 2 eq {%White W /o* 1 def /l* 1 def /v* 1 def } if %W special case Case 0 eq Case 3 eq or {%chromatic or gray /tLAB 1 def r g b proc_olv3*s_to_olv3*u*dd_de_H*M_LAB*Ma_Fa*ioG L*Fa A*Fa B*Fa Lab2RGBinterpolation /v* exch def /l* exch def /o* exch def } if %chromatic or gray } bind def %END Procedure rgb_LAB_Interp_olv*ioG 'zm60'LABINPLT.PS %********************************************************************* /trans_rgb3*_cmyn4*ioG {%BEG Procedure trans_rgb3*_cmyn4*ioG %assumes input of olv* o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /tdel 0 def v* l* ge l* o* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 v* sub def /w*w o* def /tdel 1 def } if % v* >= l* >= o* v* o* ge o* l* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 v* sub def /w*w l* def /tdel 1 def } if % v* >= o* >= l* o* v* ge v* l* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 o* sub def /w*w l* def /tdel 1 def } if % o* >= v* >= l* o* l* ge l* v* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 o* sub def /w*w v* def /tdel 1 def } if % o* >= l* >= v* l* o* ge o* v* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 l* sub def /w*w v* def /tdel 1 def } if % l* >= o* >= v* l* v* ge v* o* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 l* sub def /w*w o* def /tdel 1 def } if % l* >= v* >= o* %achromatic %W: o*, l*, v* = 1.00 1.0 o* sub abs 0.001 le 1.0 l* sub abs 0.001 le and 1.0 v* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def %W } if %N: o*, l*, v* <= 0.001 o* abs 0.001 le l* abs 0.001 le and v* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def %N } if %Achromatic o* l* sub abs 0.001 le l* v* sub abs 0.001 le and %Achromatic special case {/n*n 1 o* sub def /w*w o* def %grey } if /lab*wFa w*w def /lab*nFa n*n def /c3*Fa 1 o* sub def /m3*Fa 1 l* sub def /y3*Fa 1 v* sub def /c4*Fa c3*Fa lab*nFa sub def %at least one of cmy will be cero /m4*Fa m3*Fa lab*nFa sub def /y4*Fa y3*Fa lab*nFa sub def /n4*Fa lab*nFa def %cmyn4* /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } bind def %END Procedure trans_rgb3*_cmyn4*ioG %******************************************************************* /trans_rgb3*_cmyn5*ioG {%BEG Procedure trans_rgb3*_cmyn5*ioG %assumes input of olv*, 'zm60'CMYN559LT.PS o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /ok* o* def /lk* l* def /vk* v* def /tdel 0 def vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 vk* sub def /w*w ok* def /m*w lk* def /tdel 1 def /isec 3 def } if % v* >= l* >= o* vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 vk* sub def /w*w lk* def /m*w ok* def /tdel 1 def /isec 4 def } if % v* >= o* >= l* ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 ok* sub def /w*w lk* def /m*w vk* def /tdel 1 def /isec 5 def } if % o* >= v* >= l* ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 ok* sub def /w*w vk* def /m*w lk* def /tdel 1 def /isec 0 def } if % o* >= l* >= v* lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 lk* sub def /w*w vk* def /m*w ok* def /tdel 1 def /isec 1 def } if % l* >= o* >= v* lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 lk* sub def /w*w ok* def /m*w vk* def /tdel 1 def /isec 2 def } if % l* >= v* >= o* %achromatic %W: ok*, lk*, vk* = 1.00 1.0 ok* sub abs 0.001 le 1.0 lk* sub abs 0.001 le and 1.0 vk* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def /m*w 1 def %W /isec 6 def } if %N: ok*, lk*, vk* <= 0.001 ok* abs 0.001 le lk* abs 0.001 le and vk* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def /m*w 0 def %N /isec 6 def } if %Achromatic ok* lk* sub abs 0.001 le lk* vk* sub abs 0.001 le and %Achromatic special case {/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey /isec 6 def } if /lab*wFa w*w def /lab*nFa n*n def /lab*cFa 1 n*n sub w*w sub def /argb 1 lab*nFa sub def /brgb m*w def /crgb lab*wFa def /c* lab*cFa def /lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def isec 6 eq {%BEG isec=6 achromatic /o*1 1 def /l*1 1 def /v*1 1 def }%END isec=6 achromatic {%BEG isec#6 chromatic /o*1 ok* argb 0.000001 add div def /l*1 lk* argb 0.000001 add div def /v*1 vk* argb 0.000001 add div def } ifelse %END isec#6 /c3*Fa 1 o*1 sub def /m3*Fa 1 l*1 sub def /y3*Fa 1 v*1 sub def /c4*Fa c3*Fa def %at least one of cmy will be cero /m4*Fa m3*Fa def /y4*Fa y3*Fa def /n4*Fa lab*nFa def %cmyn5* /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } bind def %END Procedure trans_rgb3*_cmyn5*ioG 'zm60'CMYN559LT.PS %********************************************************************* /trans_rgb3*_cmyn6*ioG {%BEG Procedure trans_rgb3*_cmyn6*ioG %assumes input of olv*, 'zm60'CMYN559LT.PS o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /ok* o* def /lk* l* def /vk* v* def /tdel 0 def vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 vk* sub def /w*w ok* def /m*w lk* def /tdel 1 def /isec 3 def } if % v* >= l* >= o* vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 vk* sub def /w*w lk* def /m*w ok* def /tdel 1 def /isec 4 def } if % v* >= o* >= l* ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 ok* sub def /w*w lk* def /m*w vk* def /tdel 1 def /isec 5 def } if % o* >= v* >= l* ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 ok* sub def /w*w vk* def /m*w lk* def /tdel 1 def /isec 0 def } if % o* >= l* >= v* lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 lk* sub def /w*w vk* def /m*w ok* def /tdel 1 def /isec 1 def } if % l* >= o* >= v* lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 lk* sub def /w*w ok* def /m*w vk* def /tdel 1 def /isec 2 def } if % l* >= v* >= o* %achromatic %W: ok*, lk*, vk* = 1.00 1.0 ok* sub abs 0.001 le 1.0 lk* sub abs 0.001 le and 1.0 vk* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def /m*w 1 def %W /isec 6 def } if %N: ok*, lk*, vk* <= 0.001 ok* abs 0.001 le lk* abs 0.001 le and vk* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def /m*w 0 def %N /isec 6 def } if %Achromatic ok* lk* sub abs 0.001 le lk* vk* sub abs 0.001 le and %Achromatic special case {/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey /isec 6 def } if /lab*wFa w*w def /lab*nFa n*n def /lab*cFa 1 n*n sub w*w sub def /argb 1 lab*nFa sub def /brgb m*w def /crgb lab*wFa def /c* lab*cFa def /lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def isec 6 eq {%BEG isec=6 achromatic /o*1 1 def /l*1 1 def /v*1 1 def }%END isec=6 achromatic {%BEG isec#6 chromatic /o*1 ok* argb 0.000001 add div def /l*1 lk* argb 0.000001 add div def /v*1 vk* argb 0.000001 add div def } ifelse %END isec#6 /c3*Fa 1 o*1 sub def /m3*Fa 1 l*1 sub def /y3*Fa 1 v*1 sub def /c41*Fa c3*Fa def %at least one of cmy will be cero /m41*Fa m3*Fa def /y41*Fa y3*Fa def /n4*Fa lab*nFa 1.0 exp def %cmyn6* %change by deepness difference delta d* = c*S1 - c*S2 %use lab*cFa, lab*tFa for correction %equations of three lines %t* = 1 - 0.5 c* %t* = [t* / c*] c* %t* = [(t* + 0,18) / c*] c* - 0,18 %cut point S1 for nt=0,18: %c*s1 = 1 /[ t*F / c*F + 0,5 ] %cut point S2 for n=0,18: %c*s1 = (1 + nt) / [ (t*F + nt) / c*F + 0,5 ] %special case lab*cFa=0 and n=0,18 /nt 0.18 def lab*cFa 0 eq { %lab*cFa=0,#0 /c*S1 0 def /c*S2 0 def } %lab*cFa=0 { %lab*cFa#0 /c*S1 1 lab*tFa lab*cFa div 0.5 add div def /c*S2 1 nt add lab*tFa nt add lab*cFa div 0.5 add div def } ifelse %lab*cFa=0,#0 /c4*Fa c41*Fa c41*Fa c*S1 c*S2 sub mul sub def /m4*Fa m41*Fa m41*Fa c*S1 c*S2 sub mul sub def /y4*Fa y41*Fa y41*Fa c*S1 c*S2 sub mul sub def /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } bind def %END Procedure trans_rgb3*_cmyn6*ioG 'zm60'CMYN559LT.PS %********************************************************************* %BEG 'zm60'COLM57_590415LT.PS 20090201 ColSpx 0 eq {%ColSpx=0 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM57LT.PS cmy0* 20090201 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if %standard cmy0* for input /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if %standard cmy0* for input /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /i* 0 def } {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def /i* 0 def } ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def }%END colorm=0 {%BEG colorm=1 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def /setgray {/w*w exch def /o* w*w def /l* w*w def /v* w*w def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def rgb_cmy 1 eq {c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew} {o* l* v* sgrgbcolor} ifelse } def } ifelse %END colorm=1 }%END %xcharti>=1 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sgrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sggray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa sgcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM57LT.PS cmy0* 20090201 } if %ColSpx=0 %********************************************************************* ColSpx 1 eq {%ColSpx=1 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn6* 20080201 colorm 0 eq {%BEG colorm=0 /olvtrans 1 def %changes olv* to olvk* /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {/w*w exch def /v* w*w def /l* w*w def /o* w*w def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /olvtrans 0 def %no change of olv* /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn6*ioG %in: olv*, out: cmyn6 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xcharti>=0 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sgrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sggray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa sgcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM559LT.PS cmyn6* 20080201 } if %ColSpx=1 %*************************************************************** ColSpx 2 eq {%ColSpx=2 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM58LT.PS cmyn4* 20090201 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn4*ioG %needs olv* for input %produces cmyn4*ioG as output c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn4*ioG %in: olv*, out: cmyn4 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xcharti>=0 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sgrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sggray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa sgcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM58LT.PS cmyn4* 20090201 } if %ColSpx=2 %************************************************************* ColSpx 3 eq {%ColSpx=3 /tLAB 0 def xcharti 1 ge {%xcharti>=1 'zm60'COLM559LT.PS cmyn5* 20090201 colorm 0 eq {%BEG colorm=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def }%END colorm=0 {%BEG colorm=1 /olvtrans 0 def %no change of olv* /setrgbcolor {/v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %DEintp 1 eq {o* l* v* %proc_olv3*s_to_olv3*u*ed_ee_H*M_LAB*Ma_Fa*ioG %/o* o3*ed def /l* l3*ed def /v* v3*ed def} if o* l* v* rgb_LAB_Interp_olv*ioG trans_rgb3*_cmyn5*ioG %in: olv*, out: cmyn5 c4*Fa m4*Fa y4*Fa n4*Fa setcmyknew } def } ifelse %END colorm=1 }%END %xcharti>=0 {%BEG %xcharti=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* l* v* sgrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def o* sggray } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def /n4*Fa 0 def} {/o* 1 def /l* 1 def /v* 1 def /n4*Fa n*n def} ifelse /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def c4*Fa m4*Fa y4*Fa n4*Fa sgcmykcolor } def } ifelse %END %xcharti=0 'zm60'COLM559LT.PS cmyn5* 20090201 } if %ColSpx=3 } bind def %BEG Procedure proc_ColSep*ioG ColourSeparation for NP-file 20090201 %***************************************************************************** %END GK0X->KG13/10L/OUTLIN1X.PS, ident. for NP-(*ioG), FP-files (*ioG) 20090201 /CFilenameS1g %START output of step S1g (http://130.149.60.445/~farbmetrik/KG13/Y10G00N) def %Link file name for data /CDateS1g (2010-01-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (KG13/Y10G00N) def %File name measured in step S1g %change scount2g from 2 to 10 for 10 series %change pcount2g from 8 to 240 for 240 pages of each series /scount1g 1 def /scount2g 1 def /scountg 1 def /pcount1g 1 def /pcount2g 10 def /pcountg 1 def %start=1, one more 9+1! /xchart1g 0 def /xchart2g 9 def /xchartg 0 def /BeginEPSF { % def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF { % def count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def /cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 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 %BEG xx lines comment %1 %2 %3 %4 %5 %6 %7 %8 %9 %1 %2 %END 38 lines comment or new PS operators possible %%EndProlog %%BeginPageSetup /#copies 1 def %A4quer 1.0 1.0 scale /pgsave save def %%EndPageSetup 0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter gsave /LAB*TE [(sRGB Lr=2,5%)] def /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)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 0 def /lanindg2 0 def /colormg1 0 def /colormg2 0 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /pcount2x pcount2g xchart2g sub 2 add def %scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10 %pcount1g 1 pcount2x {/pcountg exch def %p=page, e. g. 1,1,250 /xchart10 00 def /xchart20 10 def %11x2 colour data %pcountg pcount1g eq {/xchart10 17 def /xchart20 0 def} % {/xchart10 1 def /xchart20 1 def} ifelse %pcountg pcount2x eq {/xchart10 2 def /xchart20 9 def} if xchartg 6 def %xchart10 1 xchart20 {/xchartg exch def /xcharti xchartg def /xchartg0 0 def /colorm colormg def /xchart xcharti xchartg0 sub def %LAB*ioL, ColSep*ioL, and procedures (*ioL) are only in Y10-7N.EPS %proc_LAB*ioG, proc_ColSep*ioG, and procedures (*ioG) are only in KG13L0NP.PS6.PS and OUTLIN1X %for colorm=0, default rgb/cmyk-values are used for Frame %for colorm=1, rgb/cmyk-values of proc_LAB*ioG, proc_ColSep*ioG are used for Frame %for colorm=0, rgb/cmyk-values of LAB*ioL, ColSep*ioL are used in Y10-7N %for colorm=1, rgb/cmyk-values of proc_LAB*ioG, proc_ColSep*ioG are used in Y10-7N %for consistancy use same procedures in Y10-7N and KG13L0NP.PS6.PS colorm 1 eq {proc_LAB*ioG proc_ColSep*ioG} if %LAB*ioL, ColSep*ioL only in Y10-7! %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/KG13/ ) 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 get def /GSY$ SY$ 0 get def /GEX$ EX$ 6 get def /GEY$ EY$ 6 get def %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 KG130-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 (KG130-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 KG130-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 (KG130-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 KG130-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 (KG130-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 KG130-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 (KG130-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %!PS-Adobe-3.0 EPSF-3.0 KG130-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 (KG130-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %!PS-Adobe-3.0 EPSF-3.0 KG130-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 (KG130-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 03 MM sub 20 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 KG130-7N %%BoundingBox: 70 82 785 582 %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/KG13/) /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 /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 /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /RGBCMY0*tx 1082 array def /RGBCMY0*tx [ %Measurement new Apple MacBookPro 17" in the series of below table %Colours of file IE31L0NP.PDF (1080 output pages); Mac Preview used %produced with the settings of the LED-LCD monitor; full white used %1000 x rgb* 1000 x cmy0* nr. pos (1080 colours) (0000 0000 0000 1000 1000 1000 0000 %0000 A01) (0000 0000 0125 1000 1000 0875 0000 %0001 A02) (0000 0000 0250 1000 1000 0750 0000 %0002 A03) (0000 0000 0375 1000 1000 0625 0000 %0003 A04) (0000 0000 0500 1000 1000 0500 0000 %0004 A05) (0000 0000 0625 1000 1000 0375 0000 %0005 A06) (0000 0000 0750 1000 1000 0250 0000 %0006 A07) (0000 0000 0875 1000 1000 0125 0000 %0007 A08) (0000 0000 1000 1000 1000 0000 0000 %0008 A09) (0000 0125 0000 1000 0875 1000 0000 %0009 B01) (0000 0125 0125 1000 0875 0875 0000 %0010 B02) (0000 0125 0250 1000 0875 0750 0000 %0011 B03) (0000 0125 0375 1000 0875 0625 0000 %0012 B04) (0000 0125 0500 1000 0875 0500 0000 %0013 B05) (0000 0125 0625 1000 0875 0375 0000 %0014 B06) (0000 0125 0750 1000 0875 0250 0000 %0015 B07) (0000 0125 0875 1000 0875 0125 0000 %0016 B08) (0000 0125 1000 1000 0875 0000 0000 %0017 B09) (0000 0250 0000 1000 0750 1000 0000 %0018 C01) (0000 0250 0125 1000 0750 0875 0000 %0019 C02) (0000 0250 0250 1000 0750 0750 0000 %0020 C03) (0000 0250 0375 1000 0750 0625 0000 %0021 C04) (0000 0250 0500 1000 0750 0500 0000 %0022 C05) (0000 0250 0625 1000 0750 0375 0000 %0023 C06) (0000 0250 0750 1000 0750 0250 0000 %0024 C07) (0000 0250 0875 1000 0750 0125 0000 %0025 C08) (0000 0250 1000 1000 0750 0000 0000 %0026 C09) (0000 0375 0000 1000 0625 1000 0000 %0027 D01) (0000 0375 0125 1000 0625 0875 0000 %0028 D02) (0000 0375 0250 1000 0625 0750 0000 %0029 D03) (0000 0375 0375 1000 0625 0625 0000 %0030 D04) (0000 0375 0500 1000 0625 0500 0000 %0031 D05) (0000 0375 0625 1000 0625 0375 0000 %0032 D06) (0000 0375 0750 1000 0625 0250 0000 %0033 D07) (0000 0375 0875 1000 0625 0125 0000 %0034 D08) (0000 0375 1000 1000 0625 0000 0000 %0035 D09) (0000 0500 0000 1000 0500 1000 0000 %0036 E01) (0000 0500 0125 1000 0500 0875 0000 %0037 E02) (0000 0500 0250 1000 0500 0750 0000 %0038 E03) (0000 0500 0375 1000 0500 0625 0000 %0039 E04) (0000 0500 0500 1000 0500 0500 0000 %0040 E05) (0000 0500 0625 1000 0500 0375 0000 %0041 E06) (0000 0500 0750 1000 0500 0250 0000 %0042 E07) (0000 0500 0875 1000 0500 0125 0000 %0043 E08) (0000 0500 1000 1000 0500 0000 0000 %0044 E09) (0000 0625 0000 1000 0375 1000 0000 %0045 F01) (0000 0625 0125 1000 0375 0875 0000 %0046 F02) (0000 0625 0250 1000 0375 0750 0000 %0047 F03) (0000 0625 0375 1000 0375 0625 0000 %0048 F04) (0000 0625 0500 1000 0375 0500 0000 %0049 F05) (0000 0625 0625 1000 0375 0375 0000 %0050 F06) (0000 0625 0750 1000 0375 0250 0000 %0051 F07) (0000 0625 0875 1000 0375 0125 0000 %0052 F08) (0000 0625 1000 1000 0375 0000 0000 %0053 F09) (0000 0750 0000 1000 0250 1000 0000 %0054 G01) (0000 0750 0125 1000 0250 0875 0000 %0055 G02) (0000 0750 0250 1000 0250 0750 0000 %0056 G03) (0000 0750 0375 1000 0250 0625 0000 %0057 G04) (0000 0750 0500 1000 0250 0500 0000 %0058 G05) (0000 0750 0625 1000 0250 0375 0000 %0059 G06) (0000 0750 0750 1000 0250 0250 0000 %0060 G07) (0000 0750 0875 1000 0250 0125 0000 %0061 G08) (0000 0750 1000 1000 0250 0000 0000 %0062 G09) (0000 0875 0000 1000 0125 1000 0000 %0063 H01) (0000 0875 0125 1000 0125 0875 0000 %0064 H02) (0000 0875 0250 1000 0125 0750 0000 %0065 H03) (0000 0875 0375 1000 0125 0625 0000 %0066 H04) (0000 0875 0500 1000 0125 0500 0000 %0067 H05) (0000 0875 0625 1000 0125 0375 0000 %0068 H06) (0000 0875 0750 1000 0125 0250 0000 %0069 H07) (0000 0875 0875 1000 0125 0125 0000 %0070 H08) (0000 0875 1000 1000 0125 0000 0000 %0071 H09) (0000 1000 0000 1000 0000 1000 0000 %0072 I01) (0000 1000 0125 1000 0000 0875 0000 %0073 I02) (0000 1000 0250 1000 0000 0750 0000 %0074 I03) (0000 1000 0375 1000 0000 0625 0000 %0075 I04) (0000 1000 0500 1000 0000 0500 0000 %0076 I05) (0000 1000 0625 1000 0000 0375 0000 %0077 I06) (0000 1000 0750 1000 0000 0250 0000 %0078 I07) (0000 1000 0875 1000 0000 0125 0000 %0079 I08) (0000 1000 1000 1000 0000 0000 0000 %0080 I09) (0125 0000 0000 0875 1000 1000 0000 %0081 J01) (0125 0000 0125 0875 1000 0875 0000 %0082 J02) (0125 0000 0250 0875 1000 0750 0000 %0083 J03) (0125 0000 0375 0875 1000 0625 0000 %0084 J04) (0125 0000 0500 0875 1000 0500 0000 %0085 J05) (0125 0000 0625 0875 1000 0375 0000 %0086 J06) (0125 0000 0750 0875 1000 0250 0000 %0087 J07) (0125 0000 0875 0875 1000 0125 0000 %0088 J08) (0125 0000 1000 0875 1000 0000 0000 %0089 J09) (0125 0125 0000 0875 0875 1000 0000 %0090 K01) (0125 0125 0125 0875 0875 0875 0000 %0091 K02) (0125 0125 0250 0875 0875 0750 0000 %0092 K03) (0125 0125 0375 0875 0875 0625 0000 %0093 K04) (0125 0125 0500 0875 0875 0500 0000 %0094 K05) (0125 0125 0625 0875 0875 0375 0000 %0095 K06) (0125 0125 0750 0875 0875 0250 0000 %0096 K07) (0125 0125 0875 0875 0875 0125 0000 %0097 K08) (0125 0125 1000 0875 0875 0000 0000 %0098 K09) (0125 0250 0000 0875 0750 1000 0000 %0099 L01) (0125 0250 0125 0875 0750 0875 0000 %0100 L02) (0125 0250 0250 0875 0750 0750 0000 %0101 L03) (0125 0250 0375 0875 0750 0625 0000 %0102 L04) (0125 0250 0500 0875 0750 0500 0000 %0103 L05) (0125 0250 0625 0875 0750 0375 0000 %0104 L06) (0125 0250 0750 0875 0750 0250 0000 %0105 L07) (0125 0250 0875 0875 0750 0125 0000 %0106 L08) (0125 0250 1000 0875 0750 0000 0000 %0107 L09) (0125 0375 0000 0875 0625 1000 0000 %0108 M01) (0125 0375 0125 0875 0625 0875 0000 %0109 M02) (0125 0375 0250 0875 0625 0750 0000 %0110 M03) (0125 0375 0375 0875 0625 0625 0000 %0111 M04) (0125 0375 0500 0875 0625 0500 0000 %0112 M05) (0125 0375 0625 0875 0625 0375 0000 %0113 M06) (0125 0375 0750 0875 0625 0250 0000 %0114 M07) (0125 0375 0875 0875 0625 0125 0000 %0115 M08) (0125 0375 1000 0875 0625 0000 0000 %0116 M09) (0125 0500 0000 0875 0500 1000 0000 %0117 N01) (0125 0500 0125 0875 0500 0875 0000 %0118 N02) (0125 0500 0250 0875 0500 0750 0000 %0119 N03) (0125 0500 0375 0875 0500 0625 0000 %0120 N04) (0125 0500 0500 0875 0500 0500 0000 %0121 N05) (0125 0500 0625 0875 0500 0375 0000 %0122 N06) (0125 0500 0750 0875 0500 0250 0000 %0123 N07) (0125 0500 0875 0875 0500 0125 0000 %0124 N08) (0125 0500 1000 0875 0500 0000 0000 %0125 N09) (0125 0625 0000 0875 0375 1000 0000 %0126 O01) (0125 0625 0125 0875 0375 0875 0000 %0127 O02) (0125 0625 0250 0875 0375 0750 0000 %0128 O03) (0125 0625 0375 0875 0375 0625 0000 %0129 O04) (0125 0625 0500 0875 0375 0500 0000 %0130 O05) (0125 0625 0625 0875 0375 0375 0000 %0131 O06) (0125 0625 0750 0875 0375 0250 0000 %0132 O07) (0125 0625 0875 0875 0375 0125 0000 %0133 O08) (0125 0625 1000 0875 0375 0000 0000 %0134 O09) (0125 0750 0000 0875 0250 1000 0000 %0135 P01) (0125 0750 0125 0875 0250 0875 0000 %0136 P02) (0125 0750 0250 0875 0250 0750 0000 %0137 P03) (0125 0750 0375 0875 0250 0625 0000 %0138 P04) (0125 0750 0500 0875 0250 0500 0000 %0139 P05) (0125 0750 0625 0875 0250 0375 0000 %0140 P06) (0125 0750 0750 0875 0250 0250 0000 %0141 P07) (0125 0750 0875 0875 0250 0125 0000 %0142 P08) (0125 0750 1000 0875 0250 0000 0000 %0143 P09) (0125 0875 0000 0875 0125 1000 0000 %0144 Q01) (0125 0875 0125 0875 0125 0875 0000 %0145 Q02) (0125 0875 0250 0875 0125 0750 0000 %0146 Q03) (0125 0875 0375 0875 0125 0625 0000 %0147 Q04) (0125 0875 0500 0875 0125 0500 0000 %0148 Q05) (0125 0875 0625 0875 0125 0375 0000 %0149 Q06) (0125 0875 0750 0875 0125 0250 0000 %0150 Q07) (0125 0875 0875 0875 0125 0125 0000 %0151 Q08) (0125 0875 1000 0875 0125 0000 0000 %0152 Q09) (0125 1000 0000 0875 0000 1000 0000 %0153 R01) (0125 1000 0125 0875 0000 0875 0000 %0154 R02) (0125 1000 0250 0875 0000 0750 0000 %0155 R03) (0125 1000 0375 0875 0000 0625 0000 %0156 R04) (0125 1000 0500 0875 0000 0500 0000 %0157 R05) (0125 1000 0625 0875 0000 0375 0000 %0158 R06) (0125 1000 0750 0875 0000 0250 0000 %0159 R07) (0125 1000 0875 0875 0000 0125 0000 %0160 R08) (0125 1000 1000 0875 0000 0000 0000 %0161 R09) (0250 0000 0000 0750 1000 1000 0000 %0162 S01) (0250 0000 0125 0750 1000 0875 0000 %0163 S02) (0250 0000 0250 0750 1000 0750 0000 %0164 S03) (0250 0000 0375 0750 1000 0625 0000 %0165 S04) (0250 0000 0500 0750 1000 0500 0000 %0166 S05) (0250 0000 0625 0750 1000 0375 0000 %0167 S06) (0250 0000 0750 0750 1000 0250 0000 %0168 S07) (0250 0000 0875 0750 1000 0125 0000 %0169 S08) (0250 0000 1000 0750 1000 0000 0000 %0170 S09) (0250 0125 0000 0750 0875 1000 0000 %0171 T01) (0250 0125 0125 0750 0875 0875 0000 %0172 T02) (0250 0125 0250 0750 0875 0750 0000 %0173 T03) (0250 0125 0375 0750 0875 0625 0000 %0174 T04) (0250 0125 0500 0750 0875 0500 0000 %0175 T05) (0250 0125 0625 0750 0875 0375 0000 %0176 T06) (0250 0125 0750 0750 0875 0250 0000 %0177 T07) (0250 0125 0875 0750 0875 0125 0000 %0178 T08) (0250 0125 1000 0750 0875 0000 0000 %0179 T09) (0250 0250 0000 0750 0750 1000 0000 %0180 U01) (0250 0250 0125 0750 0750 0875 0000 %0181 U02) (0250 0250 0250 0750 0750 0750 0000 %0182 U03) (0250 0250 0375 0750 0750 0625 0000 %0183 U04) (0250 0250 0500 0750 0750 0500 0000 %0184 U05) (0250 0250 0625 0750 0750 0375 0000 %0185 U06) (0250 0250 0750 0750 0750 0250 0000 %0186 U07) (0250 0250 0875 0750 0750 0125 0000 %0187 U08) (0250 0250 1000 0750 0750 0000 0000 %0188 U09) (0250 0375 0000 0750 0625 1000 0000 %0189 V01) (0250 0375 0125 0750 0625 0875 0000 %0190 V02) (0250 0375 0250 0750 0625 0750 0000 %0191 V03) (0250 0375 0375 0750 0625 0625 0000 %0192 V04) (0250 0375 0500 0750 0625 0500 0000 %0193 V05) (0250 0375 0625 0750 0625 0375 0000 %0194 V06) (0250 0375 0750 0750 0625 0250 0000 %0195 V07) (0250 0375 0875 0750 0625 0125 0000 %0196 V08) (0250 0375 1000 0750 0625 0000 0000 %0197 V09) (0250 0500 0000 0750 0500 1000 0000 %0198 W01) (0250 0500 0125 0750 0500 0875 0000 %0199 W02) (0250 0500 0250 0750 0500 0750 0000 %0200 W03) (0250 0500 0375 0750 0500 0625 0000 %0201 W04) (0250 0500 0500 0750 0500 0500 0000 %0202 W05) (0250 0500 0625 0750 0500 0375 0000 %0203 W06) (0250 0500 0750 0750 0500 0250 0000 %0204 W07) (0250 0500 0875 0750 0500 0125 0000 %0205 W08) (0250 0500 1000 0750 0500 0000 0000 %0206 W09) (0250 0625 0000 0750 0375 1000 0000 %0207 X01) (0250 0625 0125 0750 0375 0875 0000 %0208 X02) (0250 0625 0250 0750 0375 0750 0000 %0209 X03) (0250 0625 0375 0750 0375 0625 0000 %0210 X04) (0250 0625 0500 0750 0375 0500 0000 %0211 X05) (0250 0625 0625 0750 0375 0375 0000 %0212 X06) (0250 0625 0750 0750 0375 0250 0000 %0213 X07) (0250 0625 0875 0750 0375 0125 0000 %0214 X08) (0250 0625 1000 0750 0375 0000 0000 %0215 X09) (0250 0750 0000 0750 0250 1000 0000 %0216 Y01) (0250 0750 0125 0750 0250 0875 0000 %0217 Y02) (0250 0750 0250 0750 0250 0750 0000 %0218 Y03) (0250 0750 0375 0750 0250 0625 0000 %0219 Y04) (0250 0750 0500 0750 0250 0500 0000 %0220 Y05) (0250 0750 0625 0750 0250 0375 0000 %0221 Y06) (0250 0750 0750 0750 0250 0250 0000 %0222 Y07) (0250 0750 0875 0750 0250 0125 0000 %0223 Y08) (0250 0750 1000 0750 0250 0000 0000 %0224 Y09) (0250 0875 0000 0750 0125 1000 0000 %0225 Z01) (0250 0875 0125 0750 0125 0875 0000 %0226 Z02) (0250 0875 0250 0750 0125 0750 0000 %0227 Z03) (0250 0875 0375 0750 0125 0625 0000 %0228 Z04) (0250 0875 0500 0750 0125 0500 0000 %0229 Z05) (0250 0875 0625 0750 0125 0375 0000 %0230 Z06) (0250 0875 0750 0750 0125 0250 0000 %0231 Z07) (0250 0875 0875 0750 0125 0125 0000 %0232 Z08) (0250 0875 1000 0750 0125 0000 0000 %0233 Z09) (0250 1000 0000 0750 0000 1000 0000 %0234 a01) (0250 1000 0125 0750 0000 0875 0000 %0235 a02) (0250 1000 0250 0750 0000 0750 0000 %0236 a03) (0250 1000 0375 0750 0000 0625 0000 %0237 a04) (0250 1000 0500 0750 0000 0500 0000 %0238 a05) (0250 1000 0625 0750 0000 0375 0000 %0239 a06) (0250 1000 0750 0750 0000 0250 0000 %0240 a07) (0250 1000 0875 0750 0000 0125 0000 %0241 a08) (0250 1000 1000 0750 0000 0000 0000 %0242 a09) (0375 0000 0000 0625 1000 1000 0000 %0243 A10) (0375 0000 0125 0625 1000 0875 0000 %0244 A11) (0375 0000 0250 0625 1000 0750 0000 %0245 A12) (0375 0000 0375 0625 1000 0625 0000 %0246 A13) (0375 0000 0500 0625 1000 0500 0000 %0247 A14) (0375 0000 0625 0625 1000 0375 0000 %0248 A15) (0375 0000 0750 0625 1000 0250 0000 %0249 A16) (0375 0000 0875 0625 1000 0125 0000 %0250 A17) (0375 0000 1000 0625 1000 0000 0000 %0251 A18) (0375 0125 0000 0625 0875 1000 0000 %0252 B10) (0375 0125 0125 0625 0875 0875 0000 %0253 B11) (0375 0125 0250 0625 0875 0750 0000 %0254 B12) (0375 0125 0375 0625 0875 0625 0000 %0255 B13) (0375 0125 0500 0625 0875 0500 0000 %0256 B14) (0375 0125 0625 0625 0875 0375 0000 %0257 B15) (0375 0125 0750 0625 0875 0250 0000 %0258 B16) (0375 0125 0875 0625 0875 0125 0000 %0259 B17) (0375 0125 1000 0625 0875 0000 0000 %0260 B18) (0375 0250 0000 0625 0750 1000 0000 %0261 C10) (0375 0250 0125 0625 0750 0875 0000 %0262 C11) (0375 0250 0250 0625 0750 0750 0000 %0263 C12) (0375 0250 0375 0625 0750 0625 0000 %0264 C13) (0375 0250 0500 0625 0750 0500 0000 %0265 C14) (0375 0250 0625 0625 0750 0375 0000 %0266 C15) (0375 0250 0750 0625 0750 0250 0000 %0267 C16) (0375 0250 0875 0625 0750 0125 0000 %0268 C17) (0375 0250 1000 0625 0750 0000 0000 %0269 C18) (0375 0375 0000 0625 0625 1000 0000 %0270 D10) (0375 0375 0125 0625 0625 0875 0000 %0271 D11) (0375 0375 0250 0625 0625 0750 0000 %0272 D12) (0375 0375 0375 0625 0625 0625 0000 %0273 D13) (0375 0375 0500 0625 0625 0500 0000 %0274 D14) (0375 0375 0625 0625 0625 0375 0000 %0275 D15) (0375 0375 0750 0625 0625 0250 0000 %0276 D16) (0375 0375 0875 0625 0625 0125 0000 %0277 D17) (0375 0375 1000 0625 0625 0000 0000 %0278 D18) (0375 0500 0000 0625 0500 1000 0000 %0279 E10) (0375 0500 0125 0625 0500 0875 0000 %0280 E11) (0375 0500 0250 0625 0500 0750 0000 %0281 E12) (0375 0500 0375 0625 0500 0625 0000 %0282 E13) (0375 0500 0500 0625 0500 0500 0000 %0283 E14) (0375 0500 0625 0625 0500 0375 0000 %0284 E15) (0375 0500 0750 0625 0500 0250 0000 %0285 E16) (0375 0500 0875 0625 0500 0125 0000 %0286 E17) (0375 0500 1000 0625 0500 0000 0000 %0287 E18) (0375 0625 0000 0625 0375 1000 0000 %0288 F10) (0375 0625 0125 0625 0375 0875 0000 %0289 F11) (0375 0625 0250 0625 0375 0750 0000 %0290 F12) (0375 0625 0375 0625 0375 0625 0000 %0291 F13) (0375 0625 0500 0625 0375 0500 0000 %0292 F14) (0375 0625 0625 0625 0375 0375 0000 %0293 F15) (0375 0625 0750 0625 0375 0250 0000 %0294 F16) (0375 0625 0875 0625 0375 0125 0000 %0295 F17) (0375 0625 1000 0625 0375 0000 0000 %0296 F18) (0375 0750 0000 0625 0250 1000 0000 %0297 G10) (0375 0750 0125 0625 0250 0875 0000 %0298 G11) (0375 0750 0250 0625 0250 0750 0000 %0299 G12) (0375 0750 0375 0625 0250 0625 0000 %0300 G13) (0375 0750 0500 0625 0250 0500 0000 %0301 G14) (0375 0750 0625 0625 0250 0375 0000 %0302 G15) (0375 0750 0750 0625 0250 0250 0000 %0303 G16) (0375 0750 0875 0625 0250 0125 0000 %0304 G17) (0375 0750 1000 0625 0250 0000 0000 %0305 G18) (0375 0875 0000 0625 0125 1000 0000 %0306 H10) (0375 0875 0125 0625 0125 0875 0000 %0307 H11) (0375 0875 0250 0625 0125 0750 0000 %0308 H12) (0375 0875 0375 0625 0125 0625 0000 %0309 H13) (0375 0875 0500 0625 0125 0500 0000 %0310 H14) (0375 0875 0625 0625 0125 0375 0000 %0311 H15) (0375 0875 0750 0625 0125 0250 0000 %0312 H16) (0375 0875 0875 0625 0125 0125 0000 %0313 H17) (0375 0875 1000 0625 0125 0000 0000 %0314 H18) (0375 1000 0000 0625 0000 1000 0000 %0315 I10) (0375 1000 0125 0625 0000 0875 0000 %0316 I11) (0375 1000 0250 0625 0000 0750 0000 %0317 I12) (0375 1000 0375 0625 0000 0625 0000 %0318 I13) (0375 1000 0500 0625 0000 0500 0000 %0319 I14) (0375 1000 0625 0625 0000 0375 0000 %0320 I15) (0375 1000 0750 0625 0000 0250 0000 %0321 I16) (0375 1000 0875 0625 0000 0125 0000 %0322 I17) (0375 1000 1000 0625 0000 0000 0000 %0323 I18) (0500 0000 0000 0500 1000 1000 0000 %0324 J10) (0500 0000 0125 0500 1000 0875 0000 %0325 J11) (0500 0000 0250 0500 1000 0750 0000 %0326 J12) (0500 0000 0375 0500 1000 0625 0000 %0327 J13) (0500 0000 0500 0500 1000 0500 0000 %0328 J14) (0500 0000 0625 0500 1000 0375 0000 %0329 J15) (0500 0000 0750 0500 1000 0250 0000 %0330 J16) (0500 0000 0875 0500 1000 0125 0000 %0331 J17) (0500 0000 1000 0500 1000 0000 0000 %0332 J18) (0500 0125 0000 0500 0875 1000 0000 %0333 K10) (0500 0125 0125 0500 0875 0875 0000 %0334 K11) (0500 0125 0250 0500 0875 0750 0000 %0335 K12) (0500 0125 0375 0500 0875 0625 0000 %0336 K13) (0500 0125 0500 0500 0875 0500 0000 %0337 K14) (0500 0125 0625 0500 0875 0375 0000 %0338 K15) (0500 0125 0750 0500 0875 0250 0000 %0339 K16) (0500 0125 0875 0500 0875 0125 0000 %0340 K17) (0500 0125 1000 0500 0875 0000 0000 %0341 K18) (0500 0250 0000 0500 0750 1000 0000 %0342 L10) (0500 0250 0125 0500 0750 0875 0000 %0343 L11) (0500 0250 0250 0500 0750 0750 0000 %0344 L12) (0500 0250 0375 0500 0750 0625 0000 %0345 L13) (0500 0250 0500 0500 0750 0500 0000 %0346 L14) (0500 0250 0625 0500 0750 0375 0000 %0347 L15) (0500 0250 0750 0500 0750 0250 0000 %0348 L16) (0500 0250 0875 0500 0750 0125 0000 %0349 L17) (0500 0250 1000 0500 0750 0000 0000 %0350 L18) (0500 0375 0000 0500 0625 1000 0000 %0351 M10) (0500 0375 0125 0500 0625 0875 0000 %0352 M11) (0500 0375 0250 0500 0625 0750 0000 %0353 M12) (0500 0375 0375 0500 0625 0625 0000 %0354 M13) (0500 0375 0500 0500 0625 0500 0000 %0355 M14) (0500 0375 0625 0500 0625 0375 0000 %0356 M15) (0500 0375 0750 0500 0625 0250 0000 %0357 M16) (0500 0375 0875 0500 0625 0125 0000 %0358 M17) (0500 0375 1000 0500 0625 0000 0000 %0359 M18) (0500 0500 0000 0500 0500 1000 0000 %0360 N10) (0500 0500 0125 0500 0500 0875 0000 %0361 N11) (0500 0500 0250 0500 0500 0750 0000 %0362 N12) (0500 0500 0375 0500 0500 0625 0000 %0363 N13) (0500 0500 0500 0500 0500 0500 0000 %0364 N14) (0500 0500 0625 0500 0500 0375 0000 %0365 N15) (0500 0500 0750 0500 0500 0250 0000 %0366 N16) (0500 0500 0875 0500 0500 0125 0000 %0367 N17) (0500 0500 1000 0500 0500 0000 0000 %0368 N18) (0500 0625 0000 0500 0375 1000 0000 %0369 O10) (0500 0625 0125 0500 0375 0875 0000 %0370 O11) (0500 0625 0250 0500 0375 0750 0000 %0371 O12) (0500 0625 0375 0500 0375 0625 0000 %0372 O13) (0500 0625 0500 0500 0375 0500 0000 %0373 O14) (0500 0625 0625 0500 0375 0375 0000 %0374 O15) (0500 0625 0750 0500 0375 0250 0000 %0375 O16) (0500 0625 0875 0500 0375 0125 0000 %0376 O17) (0500 0625 1000 0500 0375 0000 0000 %0377 O18) (0500 0750 0000 0500 0250 1000 0000 %0378 P10) (0500 0750 0125 0500 0250 0875 0000 %0379 P11) (0500 0750 0250 0500 0250 0750 0000 %0380 P12) (0500 0750 0375 0500 0250 0625 0000 %0381 P13) (0500 0750 0500 0500 0250 0500 0000 %0382 P14) (0500 0750 0625 0500 0250 0375 0000 %0383 P15) (0500 0750 0750 0500 0250 0250 0000 %0384 P16) (0500 0750 0875 0500 0250 0125 0000 %0385 P17) (0500 0750 1000 0500 0250 0000 0000 %0386 P18) (0500 0875 0000 0500 0125 1000 0000 %0387 Q10) (0500 0875 0125 0500 0125 0875 0000 %0388 Q11) (0500 0875 0250 0500 0125 0750 0000 %0389 Q12) (0500 0875 0375 0500 0125 0625 0000 %0390 Q13) (0500 0875 0500 0500 0125 0500 0000 %0391 Q14) (0500 0875 0625 0500 0125 0375 0000 %0392 Q15) (0500 0875 0750 0500 0125 0250 0000 %0393 Q16) (0500 0875 0875 0500 0125 0125 0000 %0394 Q17) (0500 0875 1000 0500 0125 0000 0000 %0395 Q18) (0500 1000 0000 0500 0000 1000 0000 %0396 R10) (0500 1000 0125 0500 0000 0875 0000 %0397 R11) (0500 1000 0250 0500 0000 0750 0000 %0398 R12) (0500 1000 0375 0500 0000 0625 0000 %0399 R13) (0500 1000 0500 0500 0000 0500 0000 %0400 R14) (0500 1000 0625 0500 0000 0375 0000 %0401 R15) (0500 1000 0750 0500 0000 0250 0000 %0402 R16) (0500 1000 0875 0500 0000 0125 0000 %0403 R17) (0500 1000 1000 0500 0000 0000 0000 %0404 R18) (0625 0000 0000 0375 1000 1000 0000 %0405 S10) (0625 0000 0125 0375 1000 0875 0000 %0406 S11) (0625 0000 0250 0375 1000 0750 0000 %0407 S12) (0625 0000 0375 0375 1000 0625 0000 %0408 S13) (0625 0000 0500 0375 1000 0500 0000 %0409 S14) (0625 0000 0625 0375 1000 0375 0000 %0410 S15) (0625 0000 0750 0375 1000 0250 0000 %0411 S16) (0625 0000 0875 0375 1000 0125 0000 %0412 S17) (0625 0000 1000 0375 1000 0000 0000 %0413 S18) (0625 0125 0000 0375 0875 1000 0000 %0414 T10) (0625 0125 0125 0375 0875 0875 0000 %0415 T11) (0625 0125 0250 0375 0875 0750 0000 %0416 T12) (0625 0125 0375 0375 0875 0625 0000 %0417 T13) (0625 0125 0500 0375 0875 0500 0000 %0418 T14) (0625 0125 0625 0375 0875 0375 0000 %0419 T15) (0625 0125 0750 0375 0875 0250 0000 %0420 T16) (0625 0125 0875 0375 0875 0125 0000 %0421 T17) (0625 0125 1000 0375 0875 0000 0000 %0422 T18) (0625 0250 0000 0375 0750 1000 0000 %0423 U10) (0625 0250 0125 0375 0750 0875 0000 %0424 U11) (0625 0250 0250 0375 0750 0750 0000 %0425 U12) (0625 0250 0375 0375 0750 0625 0000 %0426 U13) (0625 0250 0500 0375 0750 0500 0000 %0427 U14) (0625 0250 0625 0375 0750 0375 0000 %0428 U15) (0625 0250 0750 0375 0750 0250 0000 %0429 U16) (0625 0250 0875 0375 0750 0125 0000 %0430 U17) (0625 0250 1000 0375 0750 0000 0000 %0431 U18) (0625 0375 0000 0375 0625 1000 0000 %0432 V10) (0625 0375 0125 0375 0625 0875 0000 %0433 V11) (0625 0375 0250 0375 0625 0750 0000 %0434 V12) (0625 0375 0375 0375 0625 0625 0000 %0435 V13) (0625 0375 0500 0375 0625 0500 0000 %0436 V14) (0625 0375 0625 0375 0625 0375 0000 %0437 V15) (0625 0375 0750 0375 0625 0250 0000 %0438 V16) (0625 0375 0875 0375 0625 0125 0000 %0439 V17) (0625 0375 1000 0375 0625 0000 0000 %0440 V18) (0625 0500 0000 0375 0500 1000 0000 %0441 W10) (0625 0500 0125 0375 0500 0875 0000 %0442 W11) (0625 0500 0250 0375 0500 0750 0000 %0443 W12) (0625 0500 0375 0375 0500 0625 0000 %0444 W13) (0625 0500 0500 0375 0500 0500 0000 %0445 W14) (0625 0500 0625 0375 0500 0375 0000 %0446 W15) (0625 0500 0750 0375 0500 0250 0000 %0447 W16) (0625 0500 0875 0375 0500 0125 0000 %0448 W17) (0625 0500 1000 0375 0500 0000 0000 %0449 W18) (0625 0625 0000 0375 0375 1000 0000 %0450 X10) (0625 0625 0125 0375 0375 0875 0000 %0451 X11) (0625 0625 0250 0375 0375 0750 0000 %0452 X12) (0625 0625 0375 0375 0375 0625 0000 %0453 X13) (0625 0625 0500 0375 0375 0500 0000 %0454 X14) (0625 0625 0625 0375 0375 0375 0000 %0455 X15) (0625 0625 0750 0375 0375 0250 0000 %0456 X16) (0625 0625 0875 0375 0375 0125 0000 %0457 X17) (0625 0625 1000 0375 0375 0000 0000 %0458 X18) (0625 0750 0000 0375 0250 1000 0000 %0459 Y10) (0625 0750 0125 0375 0250 0875 0000 %0460 Y11) (0625 0750 0250 0375 0250 0750 0000 %0461 Y12) (0625 0750 0375 0375 0250 0625 0000 %0462 Y13) (0625 0750 0500 0375 0250 0500 0000 %0463 Y14) (0625 0750 0625 0375 0250 0375 0000 %0464 Y15) (0625 0750 0750 0375 0250 0250 0000 %0465 Y16) (0625 0750 0875 0375 0250 0125 0000 %0466 Y17) (0625 0750 1000 0375 0250 0000 0000 %0467 Y18) (0625 0875 0000 0375 0125 1000 0000 %0468 Z10) (0625 0875 0125 0375 0125 0875 0000 %0469 Z11) (0625 0875 0250 0375 0125 0750 0000 %0470 Z12) (0625 0875 0375 0375 0125 0625 0000 %0471 Z13) (0625 0875 0500 0375 0125 0500 0000 %0472 Z14) (0625 0875 0625 0375 0125 0375 0000 %0473 Z15) (0625 0875 0750 0375 0125 0250 0000 %0474 Z16) (0625 0875 0875 0375 0125 0125 0000 %0475 Z17) (0625 0875 1000 0375 0125 0000 0000 %0476 Z18) (0625 1000 0000 0375 0000 1000 0000 %0477 a10) (0625 1000 0125 0375 0000 0875 0000 %0478 a11) (0625 1000 0250 0375 0000 0750 0000 %0479 a12) (0625 1000 0375 0375 0000 0625 0000 %0480 a13) (0625 1000 0500 0375 0000 0500 0000 %0481 a14) (0625 1000 0625 0375 0000 0375 0000 %0482 a15) (0625 1000 0750 0375 0000 0250 0000 %0483 a16) (0625 1000 0875 0375 0000 0125 0000 %0484 a17) (0625 1000 1000 0375 0000 0000 0000 %0485 a18) (0750 0000 0000 0250 1000 1000 0000 %0486 A19) (0750 0000 0125 0250 1000 0875 0000 %0487 A20) (0750 0000 0250 0250 1000 0750 0000 %0488 A21) (0750 0000 0375 0250 1000 0625 0000 %0489 A22) (0750 0000 0500 0250 1000 0500 0000 %0490 A23) (0750 0000 0625 0250 1000 0375 0000 %0491 A24) (0750 0000 0750 0250 1000 0250 0000 %0492 A25) (0750 0000 0875 0250 1000 0125 0000 %0493 A26) (0750 0000 1000 0250 1000 0000 0000 %0494 A27) (0750 0125 0000 0250 0875 1000 0000 %0495 B19) (0750 0125 0125 0250 0875 0875 0000 %0496 B20) (0750 0125 0250 0250 0875 0750 0000 %0497 B21) (0750 0125 0375 0250 0875 0625 0000 %0498 B22) (0750 0125 0500 0250 0875 0500 0000 %0499 B23) (0750 0125 0625 0250 0875 0375 0000 %0500 B24) (0750 0125 0750 0250 0875 0250 0000 %0501 B25) (0750 0125 0875 0250 0875 0125 0000 %0502 B26) (0750 0125 1000 0250 0875 0000 0000 %0503 B27) (0750 0250 0000 0250 0750 1000 0000 %0504 C19) (0750 0250 0125 0250 0750 0875 0000 %0505 C20) (0750 0250 0250 0250 0750 0750 0000 %0506 C21) (0750 0250 0375 0250 0750 0625 0000 %0507 C22) (0750 0250 0500 0250 0750 0500 0000 %0508 C23) (0750 0250 0625 0250 0750 0375 0000 %0509 C24) (0750 0250 0750 0250 0750 0250 0000 %0510 C25) (0750 0250 0875 0250 0750 0125 0000 %0511 C26) (0750 0250 1000 0250 0750 0000 0000 %0512 C27) (0750 0375 0000 0250 0625 1000 0000 %0513 D19) (0750 0375 0125 0250 0625 0875 0000 %0514 D20) (0750 0375 0250 0250 0625 0750 0000 %0515 D21) (0750 0375 0375 0250 0625 0625 0000 %0516 D22) (0750 0375 0500 0250 0625 0500 0000 %0517 D23) (0750 0375 0625 0250 0625 0375 0000 %0518 D24) (0750 0375 0750 0250 0625 0250 0000 %0519 D25) (0750 0375 0875 0250 0625 0125 0000 %0520 D26) (0750 0375 1000 0250 0625 0000 0000 %0521 D27) (0750 0500 0000 0250 0500 1000 0000 %0522 E19) (0750 0500 0125 0250 0500 0875 0000 %0523 E20) (0750 0500 0250 0250 0500 0750 0000 %0524 E21) (0750 0500 0375 0250 0500 0625 0000 %0525 E22) (0750 0500 0500 0250 0500 0500 0000 %0526 E23) (0750 0500 0625 0250 0500 0375 0000 %0527 E24) (0750 0500 0750 0250 0500 0250 0000 %0528 E25) (0750 0500 0875 0250 0500 0125 0000 %0529 E26) (0750 0500 1000 0250 0500 0000 0000 %0530 E27) (0750 0625 0000 0250 0375 1000 0000 %0531 F19) (0750 0625 0125 0250 0375 0875 0000 %0532 F20) (0750 0625 0250 0250 0375 0750 0000 %0533 F21) (0750 0625 0375 0250 0375 0625 0000 %0534 F22) (0750 0625 0500 0250 0375 0500 0000 %0535 F23) (0750 0625 0625 0250 0375 0375 0000 %0536 F24) (0750 0625 0750 0250 0375 0250 0000 %0537 F25) (0750 0625 0875 0250 0375 0125 0000 %0538 F26) (0750 0625 1000 0250 0375 0000 0000 %0539 F27) (0750 0750 0000 0250 0250 1000 0000 %0540 G19) (0750 0750 0125 0250 0250 0875 0000 %0541 G20) (0750 0750 0250 0250 0250 0750 0000 %0542 G21) (0750 0750 0375 0250 0250 0625 0000 %0543 G22) (0750 0750 0500 0250 0250 0500 0000 %0544 G23) (0750 0750 0625 0250 0250 0375 0000 %0545 G24) (0750 0750 0750 0250 0250 0250 0000 %0546 G25) (0750 0750 0875 0250 0250 0125 0000 %0547 G26) (0750 0750 1000 0250 0250 0000 0000 %0548 G27) (0750 0875 0000 0250 0125 1000 0000 %0549 H19) (0750 0875 0125 0250 0125 0875 0000 %0550 H20) (0750 0875 0250 0250 0125 0750 0000 %0551 H21) (0750 0875 0375 0250 0125 0625 0000 %0552 H22) (0750 0875 0500 0250 0125 0500 0000 %0553 H23) (0750 0875 0625 0250 0125 0375 0000 %0554 H24) (0750 0875 0750 0250 0125 0250 0000 %0555 H25) (0750 0875 0875 0250 0125 0125 0000 %0556 H26) (0750 0875 1000 0250 0125 0000 0000 %0557 H27) (0750 1000 0000 0250 0000 1000 0000 %0558 I19) (0750 1000 0125 0250 0000 0875 0000 %0559 I20) (0750 1000 0250 0250 0000 0750 0000 %0560 I21) (0750 1000 0375 0250 0000 0625 0000 %0561 I22) (0750 1000 0500 0250 0000 0500 0000 %0562 I23) (0750 1000 0625 0250 0000 0375 0000 %0563 I24) (0750 1000 0750 0250 0000 0250 0000 %0564 I25) (0750 1000 0875 0250 0000 0125 0000 %0565 I26) (0750 1000 1000 0250 0000 0000 0000 %0566 I27) (0875 0000 0000 0125 1000 1000 0000 %0567 J19) (0875 0000 0125 0125 1000 0875 0000 %0568 J20) (0875 0000 0250 0125 1000 0750 0000 %0569 J21) (0875 0000 0375 0125 1000 0625 0000 %0570 J22) (0875 0000 0500 0125 1000 0500 0000 %0571 J23) (0875 0000 0625 0125 1000 0375 0000 %0572 J24) (0875 0000 0750 0125 1000 0250 0000 %0573 J25) (0875 0000 0875 0125 1000 0125 0000 %0574 J26) (0875 0000 1000 0125 1000 0000 0000 %0575 J27) (0875 0125 0000 0125 0875 1000 0000 %0576 K19) (0875 0125 0125 0125 0875 0875 0000 %0577 K20) (0875 0125 0250 0125 0875 0750 0000 %0578 K21) (0875 0125 0375 0125 0875 0625 0000 %0579 K22) (0875 0125 0500 0125 0875 0500 0000 %0580 K23) (0875 0125 0625 0125 0875 0375 0000 %0581 K24) (0875 0125 0750 0125 0875 0250 0000 %0582 K25) (0875 0125 0875 0125 0875 0125 0000 %0583 K26) (0875 0125 1000 0125 0875 0000 0000 %0584 K27) (0875 0250 0000 0125 0750 1000 0000 %0585 L19) (0875 0250 0125 0125 0750 0875 0000 %0586 L20) (0875 0250 0250 0125 0750 0750 0000 %0587 L21) (0875 0250 0375 0125 0750 0625 0000 %0588 L22) (0875 0250 0500 0125 0750 0500 0000 %0589 L23) (0875 0250 0625 0125 0750 0375 0000 %0590 L24) (0875 0250 0750 0125 0750 0250 0000 %0591 L25) (0875 0250 0875 0125 0750 0125 0000 %0592 L26) (0875 0250 1000 0125 0750 0000 0000 %0593 L27) (0875 0375 0000 0125 0625 1000 0000 %0594 M19) (0875 0375 0125 0125 0625 0875 0000 %0595 M20) (0875 0375 0250 0125 0625 0750 0000 %0596 M21) (0875 0375 0375 0125 0625 0625 0000 %0597 M22) (0875 0375 0500 0125 0625 0500 0000 %0598 M23) (0875 0375 0625 0125 0625 0375 0000 %0599 M24) (0875 0375 0750 0125 0625 0250 0000 %0600 M25) (0875 0375 0875 0125 0625 0125 0000 %0601 M26) (0875 0375 1000 0125 0625 0000 0000 %0602 M27) (0875 0500 0000 0125 0500 1000 0000 %0603 N19) (0875 0500 0125 0125 0500 0875 0000 %0604 N20) (0875 0500 0250 0125 0500 0750 0000 %0605 N21) (0875 0500 0375 0125 0500 0625 0000 %0606 N22) (0875 0500 0500 0125 0500 0500 0000 %0607 N23) (0875 0500 0625 0125 0500 0375 0000 %0608 N24) (0875 0500 0750 0125 0500 0250 0000 %0609 N25) (0875 0500 0875 0125 0500 0125 0000 %0610 N26) (0875 0500 1000 0125 0500 0000 0000 %0611 N27) (0875 0625 0000 0125 0375 1000 0000 %0612 O19) (0875 0625 0125 0125 0375 0875 0000 %0613 O20) (0875 0625 0250 0125 0375 0750 0000 %0614 O21) (0875 0625 0375 0125 0375 0625 0000 %0615 O22) (0875 0625 0500 0125 0375 0500 0000 %0616 O23) (0875 0625 0625 0125 0375 0375 0000 %0617 O24) (0875 0625 0750 0125 0375 0250 0000 %0618 O25) (0875 0625 0875 0125 0375 0125 0000 %0619 O26) (0875 0625 1000 0125 0375 0000 0000 %0620 O27) (0875 0750 0000 0125 0250 1000 0000 %0621 P19) (0875 0750 0125 0125 0250 0875 0000 %0622 P20) (0875 0750 0250 0125 0250 0750 0000 %0623 P21) (0875 0750 0375 0125 0250 0625 0000 %0624 P22) (0875 0750 0500 0125 0250 0500 0000 %0625 P23) (0875 0750 0625 0125 0250 0375 0000 %0626 P24) (0875 0750 0750 0125 0250 0250 0000 %0627 P25) (0875 0750 0875 0125 0250 0125 0000 %0628 P26) (0875 0750 1000 0125 0250 0000 0000 %0629 P27) (0875 0875 0000 0125 0125 1000 0000 %0630 Q19) (0875 0875 0125 0125 0125 0875 0000 %0631 Q20) (0875 0875 0250 0125 0125 0750 0000 %0632 Q21) (0875 0875 0375 0125 0125 0625 0000 %0633 Q22) (0875 0875 0500 0125 0125 0500 0000 %0634 Q23) (0875 0875 0625 0125 0125 0375 0000 %0635 Q24) (0875 0875 0750 0125 0125 0250 0000 %0636 Q25) (0875 0875 0875 0125 0125 0125 0000 %0637 Q26) (0875 0875 1000 0125 0125 0000 0000 %0638 Q27) (0875 1000 0000 0125 0000 1000 0000 %0639 R19) (0875 1000 0125 0125 0000 0875 0000 %0640 R20) (0875 1000 0250 0125 0000 0750 0000 %0641 R21) (0875 1000 0375 0125 0000 0625 0000 %0642 R22) (0875 1000 0500 0125 0000 0500 0000 %0643 R23) (0875 1000 0625 0125 0000 0375 0000 %0644 R24) (0875 1000 0750 0125 0000 0250 0000 %0645 R25) (0875 1000 0875 0125 0000 0125 0000 %0646 R26) (0875 1000 1000 0125 0000 0000 0000 %0647 R27) (1000 0000 0000 0000 1000 1000 0000 %0648 S19) (1000 0000 0125 0000 1000 0875 0000 %0649 S20) (1000 0000 0250 0000 1000 0750 0000 %0650 S21) (1000 0000 0375 0000 1000 0625 0000 %0651 S22) (1000 0000 0500 0000 1000 0500 0000 %0652 S23) (1000 0000 0625 0000 1000 0375 0000 %0653 S24) (1000 0000 0750 0000 1000 0250 0000 %0654 S25) (1000 0000 0875 0000 1000 0125 0000 %0655 S26) (1000 0000 1000 0000 1000 0000 0000 %0656 S27) (1000 0125 0000 0000 0875 1000 0000 %0657 T19) (1000 0125 0125 0000 0875 0875 0000 %0658 T20) (1000 0125 0250 0000 0875 0750 0000 %0659 T21) (1000 0125 0375 0000 0875 0625 0000 %0660 T22) (1000 0125 0500 0000 0875 0500 0000 %0661 T23) (1000 0125 0625 0000 0875 0375 0000 %0662 T24) (1000 0125 0750 0000 0875 0250 0000 %0663 T25) (1000 0125 0875 0000 0875 0125 0000 %0664 T26) (1000 0125 1000 0000 0875 0000 0000 %0665 T27) (1000 0250 0000 0000 0750 1000 0000 %0666 U19) (1000 0250 0125 0000 0750 0875 0000 %0667 U20) (1000 0250 0250 0000 0750 0750 0000 %0668 U21) (1000 0250 0375 0000 0750 0625 0000 %0669 U22) (1000 0250 0500 0000 0750 0500 0000 %0670 U23) (1000 0250 0625 0000 0750 0375 0000 %0671 U24) (1000 0250 0750 0000 0750 0250 0000 %0672 U25) (1000 0250 0875 0000 0750 0125 0000 %0673 U26) (1000 0250 1000 0000 0750 0000 0000 %0674 U27) (1000 0375 0000 0000 0625 1000 0000 %0675 V19) (1000 0375 0125 0000 0625 0875 0000 %0676 V20) (1000 0375 0250 0000 0625 0750 0000 %0677 V21) (1000 0375 0375 0000 0625 0625 0000 %0678 V22) (1000 0375 0500 0000 0625 0500 0000 %0679 V23) (1000 0375 0625 0000 0625 0375 0000 %0680 V24) (1000 0375 0750 0000 0625 0250 0000 %0681 V25) (1000 0375 0875 0000 0625 0125 0000 %0682 V26) (1000 0375 1000 0000 0625 0000 0000 %0683 V27) (1000 0500 0000 0000 0500 1000 0000 %0684 W19) (1000 0500 0125 0000 0500 0875 0000 %0685 W20) (1000 0500 0250 0000 0500 0750 0000 %0686 W21) (1000 0500 0375 0000 0500 0625 0000 %0687 W22) (1000 0500 0500 0000 0500 0500 0000 %0688 W23) (1000 0500 0625 0000 0500 0375 0000 %0689 W24) (1000 0500 0750 0000 0500 0250 0000 %0690 W25) (1000 0500 0875 0000 0500 0125 0000 %0691 W26) (1000 0500 1000 0000 0500 0000 0000 %0692 W27) (1000 0625 0000 0000 0375 1000 0000 %0693 X19) (1000 0625 0125 0000 0375 0875 0000 %0694 X20) (1000 0625 0250 0000 0375 0750 0000 %0695 X21) (1000 0625 0375 0000 0375 0625 0000 %0696 X22) (1000 0625 0500 0000 0375 0500 0000 %0697 X23) (1000 0625 0625 0000 0375 0375 0000 %0698 X24) (1000 0625 0750 0000 0375 0250 0000 %0699 X25) (1000 0625 0875 0000 0375 0125 0000 %0700 X26) (1000 0625 1000 0000 0375 0000 0000 %0701 X27) (1000 0750 0000 0000 0250 1000 0000 %0702 Y19) (1000 0750 0125 0000 0250 0875 0000 %0703 Y20) (1000 0750 0250 0000 0250 0750 0000 %0704 Y21) (1000 0750 0375 0000 0250 0625 0000 %0705 Y22) (1000 0750 0500 0000 0250 0500 0000 %0706 Y23) (1000 0750 0625 0000 0250 0375 0000 %0707 Y24) (1000 0750 0750 0000 0250 0250 0000 %0708 Y25) (1000 0750 0875 0000 0250 0125 0000 %0709 Y26) (1000 0750 1000 0000 0250 0000 0000 %0710 Y27) (1000 0875 0000 0000 0125 1000 0000 %0711 Z19) (1000 0875 0125 0000 0125 0875 0000 %0712 Z20) (1000 0875 0250 0000 0125 0750 0000 %0713 Z21) (1000 0875 0375 0000 0125 0625 0000 %0714 Z22) (1000 0875 0500 0000 0125 0500 0000 %0715 Z23) (1000 0875 0625 0000 0125 0375 0000 %0716 Z24) (1000 0875 0750 0000 0125 0250 0000 %0717 Z25) (1000 0875 0875 0000 0125 0125 0000 %0718 Z26) (1000 0875 1000 0000 0125 0000 0000 %0719 Z27) (1000 1000 0000 0000 0000 1000 0000 %0720 a19) (1000 1000 0125 0000 0000 0875 0000 %0721 a20) (1000 1000 0250 0000 0000 0750 0000 %0722 a21) (1000 1000 0375 0000 0000 0625 0000 %0723 a22) (1000 1000 0500 0000 0000 0500 0000 %0724 a23) (1000 1000 0625 0000 0000 0375 0000 %0725 a24) (1000 1000 0750 0000 0000 0250 0000 %0726 a25) (1000 1000 0875 0000 0000 0125 0000 %0727 a26) (1000 1000 1000 0000 0000 0000 0000 %0728 a27) (1000 1000 1000 0000 0000 0000 0000 %0729 b01) (0875 1000 1000 0125 0000 0000 0000 %0730 b02) (0750 1000 1000 0250 0000 0000 0000 %0731 b03) (0625 1000 1000 0375 0000 0000 0000 %0732 b04) (0500 1000 1000 0500 0000 0000 0000 %0733 b05) (0375 1000 1000 0625 0000 0000 0000 %0734 b06) (0250 1000 1000 0750 0000 0000 0000 %0735 b07) (0125 1000 1000 0875 0000 0000 0000 %0736 b08) (0000 1000 1000 1000 0000 0000 0000 %0737 b09) (1000 0875 0875 0000 0125 0125 0000 %0738 c01) (0875 0875 0875 0125 0125 0125 0000 %0739 c02) (0750 0875 0875 0250 0125 0125 0000 %0740 c03) (0625 0875 0875 0375 0125 0125 0000 %0741 c04) (0500 0875 0875 0500 0125 0125 0000 %0742 c05) (0375 0875 0875 0625 0125 0125 0000 %0743 c06) (0250 0875 0875 0750 0125 0125 0000 %0744 c07) (0125 0875 0875 0875 0125 0125 0000 %0745 c08) (0000 0875 0875 1000 0125 0125 0000 %0746 c09) (1000 0750 0750 0000 0250 0250 0000 %0747 d01) (0875 0750 0750 0125 0250 0250 0000 %0748 d02) (0750 0750 0750 0250 0250 0250 0000 %0749 d03) (0625 0750 0750 0375 0250 0250 0000 %0750 d04) (0500 0750 0750 0500 0250 0250 0000 %0751 d05) (0375 0750 0750 0625 0250 0250 0000 %0752 d06) (0250 0750 0750 0750 0250 0250 0000 %0753 d07) (0125 0750 0750 0875 0250 0250 0000 %0754 d08) (0000 0750 0750 1000 0250 0250 0000 %0755 d09) (1000 0625 0625 0000 0375 0375 0000 %0756 e01) (0875 0625 0625 0125 0375 0375 0000 %0757 e02) (0750 0625 0625 0250 0375 0375 0000 %0758 e03) (0625 0625 0625 0375 0375 0375 0000 %0759 e04) (0500 0625 0625 0500 0375 0375 0000 %0760 e05) (0375 0625 0625 0625 0375 0375 0000 %0761 e06) (0250 0625 0625 0750 0375 0375 0000 %0762 e07) (0125 0625 0625 0875 0375 0375 0000 %0763 e08) (0000 0625 0625 1000 0375 0375 0000 %0764 e09) (1000 0500 0500 0000 0500 0500 0000 %0765 f01) (0875 0500 0500 0125 0500 0500 0000 %0766 f02) (0750 0500 0500 0250 0500 0500 0000 %0767 f03) (0625 0500 0500 0375 0500 0500 0000 %0768 f04) (0500 0500 0500 0500 0500 0500 0000 %0769 f05) (0375 0500 0500 0625 0500 0500 0000 %0770 f06) (0250 0500 0500 0750 0500 0500 0000 %0771 f07) (0125 0500 0500 0875 0500 0500 0000 %0772 f08) (0000 0500 0500 1000 0500 0500 0000 %0773 f09) (1000 0375 0375 0000 0625 0625 0000 %0774 g01) (0875 0375 0375 0125 0625 0625 0000 %0775 g02) (0750 0375 0375 0250 0625 0625 0000 %0776 g03) (0625 0375 0375 0375 0625 0625 0000 %0777 g04) (0500 0375 0375 0500 0625 0625 0000 %0778 g05) (0375 0375 0375 0625 0625 0625 0000 %0779 g06) (0250 0375 0375 0750 0625 0625 0000 %0780 g07) (0125 0375 0375 0875 0625 0625 0000 %0781 g08) (0000 0375 0375 1000 0625 0625 0000 %0782 g09) (1000 0250 0250 0000 0750 0750 0000 %0783 h01) (0875 0250 0250 0125 0750 0750 0000 %0784 h02) (0750 0250 0250 0250 0750 0750 0000 %0785 h03) (0625 0250 0250 0375 0750 0750 0000 %0786 h04) (0500 0250 0250 0500 0750 0750 0000 %0787 h05) (0375 0250 0250 0625 0750 0750 0000 %0788 h06) (0250 0250 0250 0750 0750 0750 0000 %0789 h07) (0125 0250 0250 0875 0750 0750 0000 %0790 h08) (0000 0250 0250 1000 0750 0750 0000 %0791 h09) (1000 0125 0125 0000 0875 0875 0000 %0792 i01) (0875 0125 0125 0125 0875 0875 0000 %0793 i02) (0750 0125 0125 0250 0875 0875 0000 %0794 i03) (0625 0125 0125 0375 0875 0875 0000 %0795 i04) (0500 0125 0125 0500 0875 0875 0000 %0796 i05) (0375 0125 0125 0625 0875 0875 0000 %0797 i06) (0250 0125 0125 0750 0875 0875 0000 %0798 i07) (0125 0125 0125 0875 0875 0875 0000 %0799 i08) (0000 0125 0125 1000 0875 0875 0000 %0800 i09) (1000 0000 0000 0000 1000 1000 0000 %0801 j01) (0875 0000 0000 0125 1000 1000 0000 %0802 j02) (0750 0000 0000 0250 1000 1000 0000 %0803 j03) (0625 0000 0000 0375 1000 1000 0000 %0804 j04) (0500 0000 0000 0500 1000 1000 0000 %0805 j05) (0375 0000 0000 0625 1000 1000 0000 %0806 j06) (0250 0000 0000 0750 1000 1000 0000 %0807 j07) (0125 0000 0000 0875 1000 1000 0000 %0808 j08) (0000 0000 0000 1000 1000 1000 0000 %0809 j09) (1000 1000 1000 0000 0000 0000 0000 %0810 b10) (0875 0875 1000 0125 0125 0000 0000 %0811 b11) (0750 0750 1000 0250 0250 0000 0000 %0812 b12) (0625 0625 1000 0375 0375 0000 0000 %0813 b13) (0500 0500 1000 0500 0500 0000 0000 %0814 b14) (0375 0375 1000 0625 0625 0000 0000 %0815 b15) (0250 0250 1000 0750 0750 0000 0000 %0816 b16) (0125 0125 1000 0875 0875 0000 0000 %0817 b17) (0000 0000 1000 1000 1000 0000 0000 %0818 b18) (1000 1000 0875 0000 0000 0125 0000 %0819 c10) (0875 0875 0875 0125 0125 0125 0000 %0820 c11) (0750 0750 0875 0250 0250 0125 0000 %0821 c12) (0625 0625 0875 0375 0375 0125 0000 %0822 c13) (0500 0500 0875 0500 0500 0125 0000 %0823 c14) (0375 0375 0875 0625 0625 0125 0000 %0824 c15) (0250 0250 0875 0750 0750 0125 0000 %0825 c16) (0125 0125 0875 0875 0875 0125 0000 %0826 c17) (0000 0000 0875 1000 1000 0125 0000 %0827 c18) (1000 1000 0750 0000 0000 0250 0000 %0828 d10) (0875 0875 0750 0125 0125 0250 0000 %0829 d11) (0750 0750 0750 0250 0250 0250 0000 %0830 d12) (0625 0625 0750 0375 0375 0250 0000 %0831 d13) (0500 0500 0750 0500 0500 0250 0000 %0832 d14) (0375 0375 0750 0625 0625 0250 0000 %0833 d15) (0250 0250 0750 0750 0750 0250 0000 %0834 d16) (0125 0125 0750 0875 0875 0250 0000 %0835 d17) (0000 0000 0750 1000 1000 0250 0000 %0836 d18) (1000 1000 0625 0000 0000 0375 0000 %0837 e10) (0875 0875 0625 0125 0125 0375 0000 %0838 e11) (0750 0750 0625 0250 0250 0375 0000 %0839 e12) (0625 0625 0625 0375 0375 0375 0000 %0840 e13) (0500 0500 0625 0500 0500 0375 0000 %0841 e14) (0375 0375 0625 0625 0625 0375 0000 %0842 e15) (0250 0250 0625 0750 0750 0375 0000 %0843 e16) (0125 0125 0625 0875 0875 0375 0000 %0844 e17) (0000 0000 0625 1000 1000 0375 0000 %0845 e18) (1000 1000 0500 0000 0000 0500 0000 %0846 f10) (0875 0875 0500 0125 0125 0500 0000 %0847 f11) (0750 0750 0500 0250 0250 0500 0000 %0848 f12) (0625 0625 0500 0375 0375 0500 0000 %0849 f13) (0500 0500 0500 0500 0500 0500 0000 %0850 f14) (0375 0375 0500 0625 0625 0500 0000 %0851 f15) (0250 0250 0500 0750 0750 0500 0000 %0852 f16) (0125 0125 0500 0875 0875 0500 0000 %0853 f17) (0000 0000 0500 1000 1000 0500 0000 %0854 f18) (1000 1000 0375 0000 0000 0625 0000 %0855 g10) (0875 0875 0375 0125 0125 0625 0000 %0856 g11) (0750 0750 0375 0250 0250 0625 0000 %0857 g12) (0625 0625 0375 0375 0375 0625 0000 %0858 g13) (0500 0500 0375 0500 0500 0625 0000 %0859 g14) (0375 0375 0375 0625 0625 0625 0000 %0860 g15) (0250 0250 0375 0750 0750 0625 0000 %0861 g16) (0125 0125 0375 0875 0875 0625 0000 %0862 g17) (0000 0000 0375 1000 1000 0625 0000 %0863 g18) (1000 1000 0250 0000 0000 0750 0000 %0864 h10) (0875 0875 0250 0125 0125 0750 0000 %0865 h11) (0750 0750 0250 0250 0250 0750 0000 %0866 h12) (0625 0625 0250 0375 0375 0750 0000 %0867 h13) (0500 0500 0250 0500 0500 0750 0000 %0868 h14) (0375 0375 0250 0625 0625 0750 0000 %0869 h15) (0250 0250 0250 0750 0750 0750 0000 %0870 h16) (0125 0125 0250 0875 0875 0750 0000 %0871 h17) (0000 0000 0250 1000 1000 0750 0000 %0872 h18) (1000 1000 0125 0000 0000 0875 0000 %0873 i10) (0875 0875 0125 0125 0125 0875 0000 %0874 i11) (0750 0750 0125 0250 0250 0875 0000 %0875 i12) (0625 0625 0125 0375 0375 0875 0000 %0876 i13) (0500 0500 0125 0500 0500 0875 0000 %0877 i14) (0375 0375 0125 0625 0625 0875 0000 %0878 i15) (0250 0250 0125 0750 0750 0875 0000 %0879 i16) (0125 0125 0125 0875 0875 0875 0000 %0880 i17) (0000 0000 0125 1000 1000 0875 0000 %0881 i18) (1000 1000 0000 0000 0000 1000 0000 %0882 j10) (0875 0875 0000 0125 0125 1000 0000 %0883 j11) (0750 0750 0000 0250 0250 1000 0000 %0884 j12) (0625 0625 0000 0375 0375 1000 0000 %0885 j13) (0500 0500 0000 0500 0500 1000 0000 %0886 j14) (0375 0375 0000 0625 0625 1000 0000 %0887 j15) (0250 0250 0000 0750 0750 1000 0000 %0888 j16) (0125 0125 0000 0875 0875 1000 0000 %0889 j17) (0000 0000 0000 1000 1000 1000 0000 %0890 j18) (1000 1000 1000 0000 0000 0000 0000 %0891 b19) (1000 0875 1000 0000 0125 0000 0000 %0892 b20) (1000 0750 1000 0000 0250 0000 0000 %0893 b21) (1000 0625 1000 0000 0375 0000 0000 %0894 b22) (1000 0500 1000 0000 0500 0000 0000 %0895 b23) (1000 0375 1000 0000 0625 0000 0000 %0896 b24) (1000 0250 1000 0000 0750 0000 0000 %0897 b25) (1000 0125 1000 0000 0875 0000 0000 %0898 b26) (1000 0000 1000 0000 1000 0000 0000 %0899 b27) (0875 1000 0875 0125 0000 0125 0000 %0900 c19) (0875 0875 0875 0125 0125 0125 0000 %0901 c20) (0875 0750 0875 0125 0250 0125 0000 %0902 c21) (0875 0625 0875 0125 0375 0125 0000 %0903 c22) (0875 0500 0875 0125 0500 0125 0000 %0904 c23) (0875 0375 0875 0125 0625 0125 0000 %0905 c24) (0875 0250 0875 0125 0750 0125 0000 %0906 c25) (0875 0125 0875 0125 0875 0125 0000 %0907 c26) (0875 0000 0875 0125 1000 0125 0000 %0908 c27) (0750 1000 0750 0250 0000 0250 0000 %0909 d19) (0750 0875 0750 0250 0125 0250 0000 %0910 d20) (0750 0750 0750 0250 0250 0250 0000 %0911 d21) (0750 0625 0750 0250 0375 0250 0000 %0912 d22) (0750 0500 0750 0250 0500 0250 0000 %0913 d23) (0750 0375 0750 0250 0625 0250 0000 %0914 d24) (0750 0250 0750 0250 0750 0250 0000 %0915 d25) (0750 0125 0750 0250 0875 0250 0000 %0916 d26) (0750 0000 0750 0250 1000 0250 0000 %0917 d27) (0625 1000 0625 0375 0000 0375 0000 %0918 e19) (0625 0875 0625 0375 0125 0375 0000 %0919 e20) (0625 0750 0625 0375 0250 0375 0000 %0920 e21) (0625 0625 0625 0375 0375 0375 0000 %0921 e22) (0625 0500 0625 0375 0500 0375 0000 %0922 e23) (0625 0375 0625 0375 0625 0375 0000 %0923 e24) (0625 0250 0625 0375 0750 0375 0000 %0924 e25) (0625 0125 0625 0375 0875 0375 0000 %0925 e26) (0625 0000 0625 0375 1000 0375 0000 %0926 e27) (0500 1000 0500 0500 0000 0500 0000 %0927 f19) (0500 0875 0500 0500 0125 0500 0000 %0928 f20) (0500 0750 0500 0500 0250 0500 0000 %0929 f21) (0500 0625 0500 0500 0375 0500 0000 %0930 f22) (0500 0500 0500 0500 0500 0500 0000 %0931 f23) (0500 0375 0500 0500 0625 0500 0000 %0932 f24) (0500 0250 0500 0500 0750 0500 0000 %0933 f25) (0500 0125 0500 0500 0875 0500 0000 %0934 f26) (0500 0000 0500 0500 1000 0500 0000 %0935 f27) (0375 1000 0375 0625 0000 0625 0000 %0936 g19) (0375 0875 0375 0625 0125 0625 0000 %0937 g20) (0375 0750 0375 0625 0250 0625 0000 %0938 g21) (0375 0625 0375 0625 0375 0625 0000 %0939 g22) (0375 0500 0375 0625 0500 0625 0000 %0940 g23) (0375 0375 0375 0625 0625 0625 0000 %0941 g24) (0375 0250 0375 0625 0750 0625 0000 %0942 g25) (0375 0125 0375 0625 0875 0625 0000 %0943 g26) (0375 0000 0375 0625 1000 0625 0000 %0944 g27) (0250 1000 0250 0750 0000 0750 0000 %0945 h19) (0250 0875 0250 0750 0125 0750 0000 %0946 h20) (0250 0750 0250 0750 0250 0750 0000 %0947 h21) (0250 0625 0250 0750 0375 0750 0000 %0948 h22) (0250 0500 0250 0750 0500 0750 0000 %0949 h23) (0250 0375 0250 0750 0625 0750 0000 %0950 h24) (0250 0250 0250 0750 0750 0750 0000 %0951 h25) (0250 0125 0250 0750 0875 0750 0000 %0952 h26) (0250 0000 0250 0750 1000 0750 0000 %0953 h27) (0125 1000 0125 0875 0000 0875 0000 %0954 i19) (0125 0875 0125 0875 0125 0875 0000 %0955 i20) (0125 0750 0125 0875 0250 0875 0000 %0956 i21) (0125 0625 0125 0875 0375 0875 0000 %0957 i22) (0125 0500 0125 0875 0500 0875 0000 %0958 i23) (0125 0375 0125 0875 0625 0875 0000 %0959 i24) (0125 0250 0125 0875 0750 0875 0000 %0960 i25) (0125 0125 0125 0875 0875 0875 0000 %0961 i26) (0125 0000 0125 0875 1000 0875 0000 %0962 i27) (0000 1000 0000 1000 0000 1000 0000 %0963 j19) (0000 0875 0000 1000 0125 1000 0000 %0964 j20) (0000 0750 0000 1000 0250 1000 0000 %0965 j21) (0000 0625 0000 1000 0375 1000 0000 %0966 j22) (0000 0500 0000 1000 0500 1000 0000 %0967 j23) (0000 0375 0000 1000 0625 1000 0000 %0968 j24) (0000 0250 0000 1000 0750 1000 0000 %0969 j25) (0000 0125 0000 1000 0875 1000 0000 %0970 j26) (0000 0000 0000 1000 1000 1000 0000 %0971 j27) (0000 0000 0000 1000 1000 1000 0000 %0972 k01) (0125 0125 0125 0875 0875 0875 0000 %0973 k02) (0250 0250 0250 0750 0750 0750 0000 %0974 k03) (0375 0375 0375 0625 0625 0625 0000 %0975 k04) (0500 0500 0500 0500 0500 0500 0000 %0976 k05) (0625 0625 0625 0375 0375 0375 0000 %0977 k06) (0750 0750 0750 0250 0250 0250 0000 %0978 k07) (0875 0875 0875 0125 0125 0125 0000 %0979 k08) (1000 1000 1000 0000 0000 0000 0000 %0980 k09) (0000 0000 0000 1000 1000 1000 0000 %0981 l01) (0125 0125 0125 0875 0875 0875 0000 %0982 l02) (0250 0250 0250 0750 0750 0750 0000 %0983 l03) (0375 0375 0375 0625 0625 0625 0000 %0984 l04) (0500 0500 0500 0500 0500 0500 0000 %0985 l05) (0625 0625 0625 0375 0375 0375 0000 %0986 l06) (0750 0750 0750 0250 0250 0250 0000 %0987 l07) (0875 0875 0875 0125 0125 0125 0000 %0988 l08) (1000 1000 1000 0000 0000 0000 0000 %0989 l09) (0000 0000 0000 1000 1000 1000 0000 %0990 m01) (0125 0125 0125 0875 0875 0875 0000 %0991 m02) (0250 0250 0250 0750 0750 0750 0000 %0992 m03) (0375 0375 0375 0625 0625 0625 0000 %0993 m04) (0500 0500 0500 0500 0500 0500 0000 %0994 m05) (0625 0625 0625 0375 0375 0375 0000 %0995 m06) (0750 0750 0750 0250 0250 0250 0000 %0996 m07) (0875 0875 0875 0125 0125 0125 0000 %0997 m08) (1000 1000 1000 0000 0000 0000 0000 %0998 m09) (0000 0000 0000 1000 1000 1000 0000 %0999 n01) (0125 0125 0125 0875 0875 0875 0000 %1000 n02) (0250 0250 0250 0750 0750 0750 0000 %1001 n03) (0375 0375 0375 0625 0625 0625 0000 %1002 n04) (0500 0500 0500 0500 0500 0500 0000 %1003 n05) (0625 0625 0625 0375 0375 0375 0000 %1004 n06) (0750 0750 0750 0250 0250 0250 0000 %1005 n07) (0875 0875 0875 0125 0125 0125 0000 %1006 n08) (1000 1000 1000 0000 0000 0000 0000 %1007 n09) (0000 0000 0000 1000 1000 1000 0000 %1008 k10) (0066 0066 0066 0933 0933 0933 0000 %1009 k11) (0133 0133 0133 0866 0866 0866 0000 %1010 k12) (0200 0200 0200 0800 0800 0800 0000 %1011 k13) (0266 0266 0266 0333 0333 0333 0000 %1012 k14) (0333 0333 0333 0666 0666 0666 0000 %1013 k15) (0400 0400 0400 0600 0600 0600 0000 %1014 k16) (0466 0466 0466 0533 0533 0533 0000 %1015 k17) (0533 0533 0533 0466 0466 0466 0000 %1016 k18) (0600 0600 0600 0400 0400 0400 0000 %1017 k19) (0666 0666 0666 0333 0333 0333 0000 %1018 k20) (0734 0734 0734 0266 0266 0266 0000 %1019 k21) (0800 0800 0800 0200 0200 0200 0000 %1020 k22) (0866 0866 0866 0133 0133 0133 0000 %1021 k23) (0933 0933 0933 0066 0066 0066 0000 %1022 k24) (1000 1000 1000 0000 0000 0000 0000 %1023 k25) (0000 0000 0000 1000 1000 1000 0000 %1024 l10) (0066 0066 0066 0933 0933 0933 0000 %1025 l11) (0133 0133 0133 0866 0866 0866 0000 %1026 l12) (0200 0200 0200 0800 0800 0800 0000 %1027 l13) (0266 0266 0266 0333 0333 0333 0000 %1028 l14) (0333 0333 0333 0666 0666 0666 0000 %1029 l15) (0400 0400 0400 0600 0600 0600 0000 %1030 l16) (0466 0466 0466 0533 0533 0533 0000 %1031 l17) (0533 0533 0533 0466 0466 0466 0000 %1032 l18) (0600 0600 0600 0400 0400 0400 0000 %1033 l19) (0666 0666 0666 0333 0333 0333 0000 %1034 l20) (0734 0734 0734 0266 0266 0266 0000 %1035 l21) (0800 0800 0800 0200 0200 0200 0000 %1036 l22) (0866 0866 0866 0133 0133 0133 0000 %1037 l23) (0933 0933 0933 0066 0066 0066 0000 %1038 l24) (1000 1000 1000 0000 0000 0000 0000 %1039 l25) (0000 0000 0000 1000 1000 1000 0000 %1040 m10) (0066 0066 0066 0933 0933 0933 0000 %1041 m11) (0133 0133 0133 0866 0866 0866 0000 %1042 m12) (0200 0200 0200 0800 0800 0800 0000 %1043 m13) (0266 0266 0266 0333 0333 0333 0000 %1044 m14) (0333 0333 0333 0666 0666 0666 0000 %1045 m15) (0400 0400 0400 0600 0600 0600 0000 %1046 m16) (0466 0466 0466 0533 0533 0533 0000 %1047 m17) (0533 0533 0533 0466 0466 0466 0000 %1048 m18) (0600 0600 0600 0400 0400 0400 0000 %1049 m19) (0666 0666 0666 0333 0333 0333 0000 %1050 m20) (0734 0734 0734 0266 0266 0266 0000 %1051 m21) (0800 0800 0800 0200 0200 0200 0000 %1052 m22) (0866 0866 0866 0133 0133 0133 0000 %1053 m23) (0933 0933 0933 0066 0066 0066 0000 %1054 m24) (1000 1000 1000 0000 0000 0000 0000 %1055 m25) (0000 0000 0000 1000 1000 1000 0000 %1056 n10) (0066 0066 0066 0933 0933 0933 0000 %1057 n11) (0133 0133 0133 0866 0866 0866 0000 %1058 n12) (0200 0200 0200 0800 0800 0800 0000 %1059 n13) (0266 0266 0266 0333 0333 0333 0000 %1060 n14) (0333 0333 0333 0666 0666 0666 0000 %1061 n15) (0400 0400 0400 0600 0600 0600 0000 %1062 n16) (0466 0466 0466 0533 0533 0533 0000 %1063 n17) (0533 0533 0533 0466 0466 0466 0000 %1064 n18) (0600 0600 0600 0400 0400 0400 0000 %1065 n19) (0666 0666 0666 0333 0333 0333 0000 %1066 n20) (0734 0734 0734 0266 0266 0266 0000 %1067 n21) (0800 0800 0800 0200 0200 0200 0000 %1068 n22) (0866 0866 0866 0133 0133 0133 0000 %1069 n23) (0933 0933 0933 0066 0066 0066 0000 %1070 n24) (1000 1000 1000 0000 0000 0000 0000 %1071 n25) (0000 0000 0000 1000 1000 1000 0000 %1072 k26) (1000 1000 1000 0000 0000 0000 0000 %1073 k27) (1000 0000 0000 0000 1000 1000 0000 %1074 l26) (0000 1000 1000 1000 0000 0000 0000 %1075 l27) (1000 1000 0000 0000 0000 1000 0000 %1076 m26) (0000 0000 1000 1000 1000 0000 0000 %1077 m27) (0000 1000 0000 1000 0000 1000 0000 %1078 n26) (1000 0000 1000 0000 1000 0000 0000 %1079 n27) (0000 1000 0000 1000 0000 1000 0000 %1078 nx6) (1000 0000 1000 0000 1000 0000 0000 %1079 nx7) ] def %END RGBCMY0*tx=RGBCMY0*tx.DAT /RGBCMY0 7427 array def %1080*7 = 7420+7 /RGBCMY0 [%1000 x rgb* 1000 x cmy0* nr. pos 1080 colours 0000 0000 0000 1000 1000 1000 0000 %0000 A01 0000 0000 0125 1000 1000 0875 0000 %0001 A02 0000 0000 0250 1000 1000 0750 0000 %0002 A03 0000 0000 0375 1000 1000 0625 0000 %0003 A04 0000 0000 0500 1000 1000 0500 0000 %0004 A05 0000 0000 0625 1000 1000 0375 0000 %0005 A06 0000 0000 0750 1000 1000 0250 0000 %0006 A07 0000 0000 0875 1000 1000 0125 0000 %0007 A08 0000 0000 1000 1000 1000 0000 0000 %0008 A09 0000 0125 0000 1000 0875 1000 0000 %0009 B01 0000 0125 0125 1000 0875 0875 0000 %0010 B02 0000 0125 0250 1000 0875 0750 0000 %0011 B03 0000 0125 0375 1000 0875 0625 0000 %0012 B04 0000 0125 0500 1000 0875 0500 0000 %0013 B05 0000 0125 0625 1000 0875 0375 0000 %0014 B06 0000 0125 0750 1000 0875 0250 0000 %0015 B07 0000 0125 0875 1000 0875 0125 0000 %0016 B08 0000 0125 1000 1000 0875 0000 0000 %0017 B09 0000 0250 0000 1000 0750 1000 0000 %0018 C01 0000 0250 0125 1000 0750 0875 0000 %0019 C02 0000 0250 0250 1000 0750 0750 0000 %0020 C03 0000 0250 0375 1000 0750 0625 0000 %0021 C04 0000 0250 0500 1000 0750 0500 0000 %0022 C05 0000 0250 0625 1000 0750 0375 0000 %0023 C06 0000 0250 0750 1000 0750 0250 0000 %0024 C07 0000 0250 0875 1000 0750 0125 0000 %0025 C08 0000 0250 1000 1000 0750 0000 0000 %0026 C09 0000 0375 0000 1000 0625 1000 0000 %0027 D01 0000 0375 0125 1000 0625 0875 0000 %0028 D02 0000 0375 0250 1000 0625 0750 0000 %0029 D03 0000 0375 0375 1000 0625 0625 0000 %0030 D04 0000 0375 0500 1000 0625 0500 0000 %0031 D05 0000 0375 0625 1000 0625 0375 0000 %0032 D06 0000 0375 0750 1000 0625 0250 0000 %0033 D07 0000 0375 0875 1000 0625 0125 0000 %0034 D08 0000 0375 1000 1000 0625 0000 0000 %0035 D09 0000 0500 0000 1000 0500 1000 0000 %0036 E01 0000 0500 0125 1000 0500 0875 0000 %0037 E02 0000 0500 0250 1000 0500 0750 0000 %0038 E03 0000 0500 0375 1000 0500 0625 0000 %0039 E04 0000 0500 0500 1000 0500 0500 0000 %0040 E05 0000 0500 0625 1000 0500 0375 0000 %0041 E06 0000 0500 0750 1000 0500 0250 0000 %0042 E07 0000 0500 0875 1000 0500 0125 0000 %0043 E08 0000 0500 1000 1000 0500 0000 0000 %0044 E09 0000 0625 0000 1000 0375 1000 0000 %0045 F01 0000 0625 0125 1000 0375 0875 0000 %0046 F02 0000 0625 0250 1000 0375 0750 0000 %0047 F03 0000 0625 0375 1000 0375 0625 0000 %0048 F04 0000 0625 0500 1000 0375 0500 0000 %0049 F05 0000 0625 0625 1000 0375 0375 0000 %0050 F06 0000 0625 0750 1000 0375 0250 0000 %0051 F07 0000 0625 0875 1000 0375 0125 0000 %0052 F08 0000 0625 1000 1000 0375 0000 0000 %0053 F09 0000 0750 0000 1000 0250 1000 0000 %0054 G01 0000 0750 0125 1000 0250 0875 0000 %0055 G02 0000 0750 0250 1000 0250 0750 0000 %0056 G03 0000 0750 0375 1000 0250 0625 0000 %0057 G04 0000 0750 0500 1000 0250 0500 0000 %0058 G05 0000 0750 0625 1000 0250 0375 0000 %0059 G06 0000 0750 0750 1000 0250 0250 0000 %0060 G07 0000 0750 0875 1000 0250 0125 0000 %0061 G08 0000 0750 1000 1000 0250 0000 0000 %0062 G09 0000 0875 0000 1000 0125 1000 0000 %0063 H01 0000 0875 0125 1000 0125 0875 0000 %0064 H02 0000 0875 0250 1000 0125 0750 0000 %0065 H03 0000 0875 0375 1000 0125 0625 0000 %0066 H04 0000 0875 0500 1000 0125 0500 0000 %0067 H05 0000 0875 0625 1000 0125 0375 0000 %0068 H06 0000 0875 0750 1000 0125 0250 0000 %0069 H07 0000 0875 0875 1000 0125 0125 0000 %0070 H08 0000 0875 1000 1000 0125 0000 0000 %0071 H09 0000 1000 0000 1000 0000 1000 0000 %0072 I01 0000 1000 0125 1000 0000 0875 0000 %0073 I02 0000 1000 0250 1000 0000 0750 0000 %0074 I03 0000 1000 0375 1000 0000 0625 0000 %0075 I04 0000 1000 0500 1000 0000 0500 0000 %0076 I05 0000 1000 0625 1000 0000 0375 0000 %0077 I06 0000 1000 0750 1000 0000 0250 0000 %0078 I07 0000 1000 0875 1000 0000 0125 0000 %0079 I08 0000 1000 1000 1000 0000 0000 0000 %0080 I09 0125 0000 0000 0875 1000 1000 0000 %0081 J01 0125 0000 0125 0875 1000 0875 0000 %0082 J02 0125 0000 0250 0875 1000 0750 0000 %0083 J03 0125 0000 0375 0875 1000 0625 0000 %0084 J04 0125 0000 0500 0875 1000 0500 0000 %0085 J05 0125 0000 0625 0875 1000 0375 0000 %0086 J06 0125 0000 0750 0875 1000 0250 0000 %0087 J07 0125 0000 0875 0875 1000 0125 0000 %0088 J08 0125 0000 1000 0875 1000 0000 0000 %0089 J09 0125 0125 0000 0875 0875 1000 0000 %0090 K01 0125 0125 0125 0875 0875 0875 0000 %0091 K02 0125 0125 0250 0875 0875 0750 0000 %0092 K03 0125 0125 0375 0875 0875 0625 0000 %0093 K04 0125 0125 0500 0875 0875 0500 0000 %0094 K05 0125 0125 0625 0875 0875 0375 0000 %0095 K06 0125 0125 0750 0875 0875 0250 0000 %0096 K07 0125 0125 0875 0875 0875 0125 0000 %0097 K08 0125 0125 1000 0875 0875 0000 0000 %0098 K09 0125 0250 0000 0875 0750 1000 0000 %0099 L01 0125 0250 0125 0875 0750 0875 0000 %0100 L02 0125 0250 0250 0875 0750 0750 0000 %0101 L03 0125 0250 0375 0875 0750 0625 0000 %0102 L04 0125 0250 0500 0875 0750 0500 0000 %0103 L05 0125 0250 0625 0875 0750 0375 0000 %0104 L06 0125 0250 0750 0875 0750 0250 0000 %0105 L07 0125 0250 0875 0875 0750 0125 0000 %0106 L08 0125 0250 1000 0875 0750 0000 0000 %0107 L09 0125 0375 0000 0875 0625 1000 0000 %0108 M01 0125 0375 0125 0875 0625 0875 0000 %0109 M02 0125 0375 0250 0875 0625 0750 0000 %0110 M03 0125 0375 0375 0875 0625 0625 0000 %0111 M04 0125 0375 0500 0875 0625 0500 0000 %0112 M05 0125 0375 0625 0875 0625 0375 0000 %0113 M06 0125 0375 0750 0875 0625 0250 0000 %0114 M07 0125 0375 0875 0875 0625 0125 0000 %0115 M08 0125 0375 1000 0875 0625 0000 0000 %0116 M09 0125 0500 0000 0875 0500 1000 0000 %0117 N01 0125 0500 0125 0875 0500 0875 0000 %0118 N02 0125 0500 0250 0875 0500 0750 0000 %0119 N03 0125 0500 0375 0875 0500 0625 0000 %0120 N04 0125 0500 0500 0875 0500 0500 0000 %0121 N05 0125 0500 0625 0875 0500 0375 0000 %0122 N06 0125 0500 0750 0875 0500 0250 0000 %0123 N07 0125 0500 0875 0875 0500 0125 0000 %0124 N08 0125 0500 1000 0875 0500 0000 0000 %0125 N09 0125 0625 0000 0875 0375 1000 0000 %0126 O01 0125 0625 0125 0875 0375 0875 0000 %0127 O02 0125 0625 0250 0875 0375 0750 0000 %0128 O03 0125 0625 0375 0875 0375 0625 0000 %0129 O04 0125 0625 0500 0875 0375 0500 0000 %0130 O05 0125 0625 0625 0875 0375 0375 0000 %0131 O06 0125 0625 0750 0875 0375 0250 0000 %0132 O07 0125 0625 0875 0875 0375 0125 0000 %0133 O08 0125 0625 1000 0875 0375 0000 0000 %0134 O09 0125 0750 0000 0875 0250 1000 0000 %0135 P01 0125 0750 0125 0875 0250 0875 0000 %0136 P02 0125 0750 0250 0875 0250 0750 0000 %0137 P03 0125 0750 0375 0875 0250 0625 0000 %0138 P04 0125 0750 0500 0875 0250 0500 0000 %0139 P05 0125 0750 0625 0875 0250 0375 0000 %0140 P06 0125 0750 0750 0875 0250 0250 0000 %0141 P07 0125 0750 0875 0875 0250 0125 0000 %0142 P08 0125 0750 1000 0875 0250 0000 0000 %0143 P09 0125 0875 0000 0875 0125 1000 0000 %0144 Q01 0125 0875 0125 0875 0125 0875 0000 %0145 Q02 0125 0875 0250 0875 0125 0750 0000 %0146 Q03 0125 0875 0375 0875 0125 0625 0000 %0147 Q04 0125 0875 0500 0875 0125 0500 0000 %0148 Q05 0125 0875 0625 0875 0125 0375 0000 %0149 Q06 0125 0875 0750 0875 0125 0250 0000 %0150 Q07 0125 0875 0875 0875 0125 0125 0000 %0151 Q08 0125 0875 1000 0875 0125 0000 0000 %0152 Q09 0125 1000 0000 0875 0000 1000 0000 %0153 R01 0125 1000 0125 0875 0000 0875 0000 %0154 R02 0125 1000 0250 0875 0000 0750 0000 %0155 R03 0125 1000 0375 0875 0000 0625 0000 %0156 R04 0125 1000 0500 0875 0000 0500 0000 %0157 R05 0125 1000 0625 0875 0000 0375 0000 %0158 R06 0125 1000 0750 0875 0000 0250 0000 %0159 R07 0125 1000 0875 0875 0000 0125 0000 %0160 R08 0125 1000 1000 0875 0000 0000 0000 %0161 R09 0250 0000 0000 0750 1000 1000 0000 %0162 S01 0250 0000 0125 0750 1000 0875 0000 %0163 S02 0250 0000 0250 0750 1000 0750 0000 %0164 S03 0250 0000 0375 0750 1000 0625 0000 %0165 S04 0250 0000 0500 0750 1000 0500 0000 %0166 S05 0250 0000 0625 0750 1000 0375 0000 %0167 S06 0250 0000 0750 0750 1000 0250 0000 %0168 S07 0250 0000 0875 0750 1000 0125 0000 %0169 S08 0250 0000 1000 0750 1000 0000 0000 %0170 S09 0250 0125 0000 0750 0875 1000 0000 %0171 T01 0250 0125 0125 0750 0875 0875 0000 %0172 T02 0250 0125 0250 0750 0875 0750 0000 %0173 T03 0250 0125 0375 0750 0875 0625 0000 %0174 T04 0250 0125 0500 0750 0875 0500 0000 %0175 T05 0250 0125 0625 0750 0875 0375 0000 %0176 T06 0250 0125 0750 0750 0875 0250 0000 %0177 T07 0250 0125 0875 0750 0875 0125 0000 %0178 T08 0250 0125 1000 0750 0875 0000 0000 %0179 T09 0250 0250 0000 0750 0750 1000 0000 %0180 U01 0250 0250 0125 0750 0750 0875 0000 %0181 U02 0250 0250 0250 0750 0750 0750 0000 %0182 U03 0250 0250 0375 0750 0750 0625 0000 %0183 U04 0250 0250 0500 0750 0750 0500 0000 %0184 U05 0250 0250 0625 0750 0750 0375 0000 %0185 U06 0250 0250 0750 0750 0750 0250 0000 %0186 U07 0250 0250 0875 0750 0750 0125 0000 %0187 U08 0250 0250 1000 0750 0750 0000 0000 %0188 U09 0250 0375 0000 0750 0625 1000 0000 %0189 V01 0250 0375 0125 0750 0625 0875 0000 %0190 V02 0250 0375 0250 0750 0625 0750 0000 %0191 V03 0250 0375 0375 0750 0625 0625 0000 %0192 V04 0250 0375 0500 0750 0625 0500 0000 %0193 V05 0250 0375 0625 0750 0625 0375 0000 %0194 V06 0250 0375 0750 0750 0625 0250 0000 %0195 V07 0250 0375 0875 0750 0625 0125 0000 %0196 V08 0250 0375 1000 0750 0625 0000 0000 %0197 V09 0250 0500 0000 0750 0500 1000 0000 %0198 W01 0250 0500 0125 0750 0500 0875 0000 %0199 W02 0250 0500 0250 0750 0500 0750 0000 %0200 W03 0250 0500 0375 0750 0500 0625 0000 %0201 W04 0250 0500 0500 0750 0500 0500 0000 %0202 W05 0250 0500 0625 0750 0500 0375 0000 %0203 W06 0250 0500 0750 0750 0500 0250 0000 %0204 W07 0250 0500 0875 0750 0500 0125 0000 %0205 W08 0250 0500 1000 0750 0500 0000 0000 %0206 W09 0250 0625 0000 0750 0375 1000 0000 %0207 X01 0250 0625 0125 0750 0375 0875 0000 %0208 X02 0250 0625 0250 0750 0375 0750 0000 %0209 X03 0250 0625 0375 0750 0375 0625 0000 %0210 X04 0250 0625 0500 0750 0375 0500 0000 %0211 X05 0250 0625 0625 0750 0375 0375 0000 %0212 X06 0250 0625 0750 0750 0375 0250 0000 %0213 X07 0250 0625 0875 0750 0375 0125 0000 %0214 X08 0250 0625 1000 0750 0375 0000 0000 %0215 X09 0250 0750 0000 0750 0250 1000 0000 %0216 Y01 0250 0750 0125 0750 0250 0875 0000 %0217 Y02 0250 0750 0250 0750 0250 0750 0000 %0218 Y03 0250 0750 0375 0750 0250 0625 0000 %0219 Y04 0250 0750 0500 0750 0250 0500 0000 %0220 Y05 0250 0750 0625 0750 0250 0375 0000 %0221 Y06 0250 0750 0750 0750 0250 0250 0000 %0222 Y07 0250 0750 0875 0750 0250 0125 0000 %0223 Y08 0250 0750 1000 0750 0250 0000 0000 %0224 Y09 0250 0875 0000 0750 0125 1000 0000 %0225 Z01 0250 0875 0125 0750 0125 0875 0000 %0226 Z02 0250 0875 0250 0750 0125 0750 0000 %0227 Z03 0250 0875 0375 0750 0125 0625 0000 %0228 Z04 0250 0875 0500 0750 0125 0500 0000 %0229 Z05 0250 0875 0625 0750 0125 0375 0000 %0230 Z06 0250 0875 0750 0750 0125 0250 0000 %0231 Z07 0250 0875 0875 0750 0125 0125 0000 %0232 Z08 0250 0875 1000 0750 0125 0000 0000 %0233 Z09 0250 1000 0000 0750 0000 1000 0000 %0234 a01 0250 1000 0125 0750 0000 0875 0000 %0235 a02 0250 1000 0250 0750 0000 0750 0000 %0236 a03 0250 1000 0375 0750 0000 0625 0000 %0237 a04 0250 1000 0500 0750 0000 0500 0000 %0238 a05 0250 1000 0625 0750 0000 0375 0000 %0239 a06 0250 1000 0750 0750 0000 0250 0000 %0240 a07 0250 1000 0875 0750 0000 0125 0000 %0241 a08 0250 1000 1000 0750 0000 0000 0000 %0242 a09 0375 0000 0000 0625 1000 1000 0000 %0243 A10 0375 0000 0125 0625 1000 0875 0000 %0244 A11 0375 0000 0250 0625 1000 0750 0000 %0245 A12 0375 0000 0375 0625 1000 0625 0000 %0246 A13 0375 0000 0500 0625 1000 0500 0000 %0247 A14 0375 0000 0625 0625 1000 0375 0000 %0248 A15 0375 0000 0750 0625 1000 0250 0000 %0249 A16 0375 0000 0875 0625 1000 0125 0000 %0250 A17 0375 0000 1000 0625 1000 0000 0000 %0251 A18 0375 0125 0000 0625 0875 1000 0000 %0252 B10 0375 0125 0125 0625 0875 0875 0000 %0253 B11 0375 0125 0250 0625 0875 0750 0000 %0254 B12 0375 0125 0375 0625 0875 0625 0000 %0255 B13 0375 0125 0500 0625 0875 0500 0000 %0256 B14 0375 0125 0625 0625 0875 0375 0000 %0257 B15 0375 0125 0750 0625 0875 0250 0000 %0258 B16 0375 0125 0875 0625 0875 0125 0000 %0259 B17 0375 0125 1000 0625 0875 0000 0000 %0260 B18 0375 0250 0000 0625 0750 1000 0000 %0261 C10 0375 0250 0125 0625 0750 0875 0000 %0262 C11 0375 0250 0250 0625 0750 0750 0000 %0263 C12 0375 0250 0375 0625 0750 0625 0000 %0264 C13 0375 0250 0500 0625 0750 0500 0000 %0265 C14 0375 0250 0625 0625 0750 0375 0000 %0266 C15 0375 0250 0750 0625 0750 0250 0000 %0267 C16 0375 0250 0875 0625 0750 0125 0000 %0268 C17 0375 0250 1000 0625 0750 0000 0000 %0269 C18 0375 0375 0000 0625 0625 1000 0000 %0270 D10 0375 0375 0125 0625 0625 0875 0000 %0271 D11 0375 0375 0250 0625 0625 0750 0000 %0272 D12 0375 0375 0375 0625 0625 0625 0000 %0273 D13 0375 0375 0500 0625 0625 0500 0000 %0274 D14 0375 0375 0625 0625 0625 0375 0000 %0275 D15 0375 0375 0750 0625 0625 0250 0000 %0276 D16 0375 0375 0875 0625 0625 0125 0000 %0277 D17 0375 0375 1000 0625 0625 0000 0000 %0278 D18 0375 0500 0000 0625 0500 1000 0000 %0279 E10 0375 0500 0125 0625 0500 0875 0000 %0280 E11 0375 0500 0250 0625 0500 0750 0000 %0281 E12 0375 0500 0375 0625 0500 0625 0000 %0282 E13 0375 0500 0500 0625 0500 0500 0000 %0283 E14 0375 0500 0625 0625 0500 0375 0000 %0284 E15 0375 0500 0750 0625 0500 0250 0000 %0285 E16 0375 0500 0875 0625 0500 0125 0000 %0286 E17 0375 0500 1000 0625 0500 0000 0000 %0287 E18 0375 0625 0000 0625 0375 1000 0000 %0288 F10 0375 0625 0125 0625 0375 0875 0000 %0289 F11 0375 0625 0250 0625 0375 0750 0000 %0290 F12 0375 0625 0375 0625 0375 0625 0000 %0291 F13 0375 0625 0500 0625 0375 0500 0000 %0292 F14 0375 0625 0625 0625 0375 0375 0000 %0293 F15 0375 0625 0750 0625 0375 0250 0000 %0294 F16 0375 0625 0875 0625 0375 0125 0000 %0295 F17 0375 0625 1000 0625 0375 0000 0000 %0296 F18 0375 0750 0000 0625 0250 1000 0000 %0297 G10 0375 0750 0125 0625 0250 0875 0000 %0298 G11 0375 0750 0250 0625 0250 0750 0000 %0299 G12 0375 0750 0375 0625 0250 0625 0000 %0300 G13 0375 0750 0500 0625 0250 0500 0000 %0301 G14 0375 0750 0625 0625 0250 0375 0000 %0302 G15 0375 0750 0750 0625 0250 0250 0000 %0303 G16 0375 0750 0875 0625 0250 0125 0000 %0304 G17 0375 0750 1000 0625 0250 0000 0000 %0305 G18 0375 0875 0000 0625 0125 1000 0000 %0306 H10 0375 0875 0125 0625 0125 0875 0000 %0307 H11 0375 0875 0250 0625 0125 0750 0000 %0308 H12 0375 0875 0375 0625 0125 0625 0000 %0309 H13 0375 0875 0500 0625 0125 0500 0000 %0310 H14 0375 0875 0625 0625 0125 0375 0000 %0311 H15 0375 0875 0750 0625 0125 0250 0000 %0312 H16 0375 0875 0875 0625 0125 0125 0000 %0313 H17 0375 0875 1000 0625 0125 0000 0000 %0314 H18 0375 1000 0000 0625 0000 1000 0000 %0315 I10 0375 1000 0125 0625 0000 0875 0000 %0316 I11 0375 1000 0250 0625 0000 0750 0000 %0317 I12 0375 1000 0375 0625 0000 0625 0000 %0318 I13 0375 1000 0500 0625 0000 0500 0000 %0319 I14 0375 1000 0625 0625 0000 0375 0000 %0320 I15 0375 1000 0750 0625 0000 0250 0000 %0321 I16 0375 1000 0875 0625 0000 0125 0000 %0322 I17 0375 1000 1000 0625 0000 0000 0000 %0323 I18 0500 0000 0000 0500 1000 1000 0000 %0324 J10 0500 0000 0125 0500 1000 0875 0000 %0325 J11 0500 0000 0250 0500 1000 0750 0000 %0326 J12 0500 0000 0375 0500 1000 0625 0000 %0327 J13 0500 0000 0500 0500 1000 0500 0000 %0328 J14 0500 0000 0625 0500 1000 0375 0000 %0329 J15 0500 0000 0750 0500 1000 0250 0000 %0330 J16 0500 0000 0875 0500 1000 0125 0000 %0331 J17 0500 0000 1000 0500 1000 0000 0000 %0332 J18 0500 0125 0000 0500 0875 1000 0000 %0333 K10 0500 0125 0125 0500 0875 0875 0000 %0334 K11 0500 0125 0250 0500 0875 0750 0000 %0335 K12 0500 0125 0375 0500 0875 0625 0000 %0336 K13 0500 0125 0500 0500 0875 0500 0000 %0337 K14 0500 0125 0625 0500 0875 0375 0000 %0338 K15 0500 0125 0750 0500 0875 0250 0000 %0339 K16 0500 0125 0875 0500 0875 0125 0000 %0340 K17 0500 0125 1000 0500 0875 0000 0000 %0341 K18 0500 0250 0000 0500 0750 1000 0000 %0342 L10 0500 0250 0125 0500 0750 0875 0000 %0343 L11 0500 0250 0250 0500 0750 0750 0000 %0344 L12 0500 0250 0375 0500 0750 0625 0000 %0345 L13 0500 0250 0500 0500 0750 0500 0000 %0346 L14 0500 0250 0625 0500 0750 0375 0000 %0347 L15 0500 0250 0750 0500 0750 0250 0000 %0348 L16 0500 0250 0875 0500 0750 0125 0000 %0349 L17 0500 0250 1000 0500 0750 0000 0000 %0350 L18 0500 0375 0000 0500 0625 1000 0000 %0351 M10 0500 0375 0125 0500 0625 0875 0000 %0352 M11 0500 0375 0250 0500 0625 0750 0000 %0353 M12 0500 0375 0375 0500 0625 0625 0000 %0354 M13 0500 0375 0500 0500 0625 0500 0000 %0355 M14 0500 0375 0625 0500 0625 0375 0000 %0356 M15 0500 0375 0750 0500 0625 0250 0000 %0357 M16 0500 0375 0875 0500 0625 0125 0000 %0358 M17 0500 0375 1000 0500 0625 0000 0000 %0359 M18 0500 0500 0000 0500 0500 1000 0000 %0360 N10 0500 0500 0125 0500 0500 0875 0000 %0361 N11 0500 0500 0250 0500 0500 0750 0000 %0362 N12 0500 0500 0375 0500 0500 0625 0000 %0363 N13 0500 0500 0500 0500 0500 0500 0000 %0364 N14 0500 0500 0625 0500 0500 0375 0000 %0365 N15 0500 0500 0750 0500 0500 0250 0000 %0366 N16 0500 0500 0875 0500 0500 0125 0000 %0367 N17 0500 0500 1000 0500 0500 0000 0000 %0368 N18 0500 0625 0000 0500 0375 1000 0000 %0369 O10 0500 0625 0125 0500 0375 0875 0000 %0370 O11 0500 0625 0250 0500 0375 0750 0000 %0371 O12 0500 0625 0375 0500 0375 0625 0000 %0372 O13 0500 0625 0500 0500 0375 0500 0000 %0373 O14 0500 0625 0625 0500 0375 0375 0000 %0374 O15 0500 0625 0750 0500 0375 0250 0000 %0375 O16 0500 0625 0875 0500 0375 0125 0000 %0376 O17 0500 0625 1000 0500 0375 0000 0000 %0377 O18 0500 0750 0000 0500 0250 1000 0000 %0378 P10 0500 0750 0125 0500 0250 0875 0000 %0379 P11 0500 0750 0250 0500 0250 0750 0000 %0380 P12 0500 0750 0375 0500 0250 0625 0000 %0381 P13 0500 0750 0500 0500 0250 0500 0000 %0382 P14 0500 0750 0625 0500 0250 0375 0000 %0383 P15 0500 0750 0750 0500 0250 0250 0000 %0384 P16 0500 0750 0875 0500 0250 0125 0000 %0385 P17 0500 0750 1000 0500 0250 0000 0000 %0386 P18 0500 0875 0000 0500 0125 1000 0000 %0387 Q10 0500 0875 0125 0500 0125 0875 0000 %0388 Q11 0500 0875 0250 0500 0125 0750 0000 %0389 Q12 0500 0875 0375 0500 0125 0625 0000 %0390 Q13 0500 0875 0500 0500 0125 0500 0000 %0391 Q14 0500 0875 0625 0500 0125 0375 0000 %0392 Q15 0500 0875 0750 0500 0125 0250 0000 %0393 Q16 0500 0875 0875 0500 0125 0125 0000 %0394 Q17 0500 0875 1000 0500 0125 0000 0000 %0395 Q18 0500 1000 0000 0500 0000 1000 0000 %0396 R10 0500 1000 0125 0500 0000 0875 0000 %0397 R11 0500 1000 0250 0500 0000 0750 0000 %0398 R12 0500 1000 0375 0500 0000 0625 0000 %0399 R13 0500 1000 0500 0500 0000 0500 0000 %0400 R14 0500 1000 0625 0500 0000 0375 0000 %0401 R15 0500 1000 0750 0500 0000 0250 0000 %0402 R16 0500 1000 0875 0500 0000 0125 0000 %0403 R17 0500 1000 1000 0500 0000 0000 0000 %0404 R18 0625 0000 0000 0375 1000 1000 0000 %0405 S10 0625 0000 0125 0375 1000 0875 0000 %0406 S11 0625 0000 0250 0375 1000 0750 0000 %0407 S12 0625 0000 0375 0375 1000 0625 0000 %0408 S13 0625 0000 0500 0375 1000 0500 0000 %0409 S14 0625 0000 0625 0375 1000 0375 0000 %0410 S15 0625 0000 0750 0375 1000 0250 0000 %0411 S16 0625 0000 0875 0375 1000 0125 0000 %0412 S17 0625 0000 1000 0375 1000 0000 0000 %0413 S18 0625 0125 0000 0375 0875 1000 0000 %0414 T10 0625 0125 0125 0375 0875 0875 0000 %0415 T11 0625 0125 0250 0375 0875 0750 0000 %0416 T12 0625 0125 0375 0375 0875 0625 0000 %0417 T13 0625 0125 0500 0375 0875 0500 0000 %0418 T14 0625 0125 0625 0375 0875 0375 0000 %0419 T15 0625 0125 0750 0375 0875 0250 0000 %0420 T16 0625 0125 0875 0375 0875 0125 0000 %0421 T17 0625 0125 1000 0375 0875 0000 0000 %0422 T18 0625 0250 0000 0375 0750 1000 0000 %0423 U10 0625 0250 0125 0375 0750 0875 0000 %0424 U11 0625 0250 0250 0375 0750 0750 0000 %0425 U12 0625 0250 0375 0375 0750 0625 0000 %0426 U13 0625 0250 0500 0375 0750 0500 0000 %0427 U14 0625 0250 0625 0375 0750 0375 0000 %0428 U15 0625 0250 0750 0375 0750 0250 0000 %0429 U16 0625 0250 0875 0375 0750 0125 0000 %0430 U17 0625 0250 1000 0375 0750 0000 0000 %0431 U18 0625 0375 0000 0375 0625 1000 0000 %0432 V10 0625 0375 0125 0375 0625 0875 0000 %0433 V11 0625 0375 0250 0375 0625 0750 0000 %0434 V12 0625 0375 0375 0375 0625 0625 0000 %0435 V13 0625 0375 0500 0375 0625 0500 0000 %0436 V14 0625 0375 0625 0375 0625 0375 0000 %0437 V15 0625 0375 0750 0375 0625 0250 0000 %0438 V16 0625 0375 0875 0375 0625 0125 0000 %0439 V17 0625 0375 1000 0375 0625 0000 0000 %0440 V18 0625 0500 0000 0375 0500 1000 0000 %0441 W10 0625 0500 0125 0375 0500 0875 0000 %0442 W11 0625 0500 0250 0375 0500 0750 0000 %0443 W12 0625 0500 0375 0375 0500 0625 0000 %0444 W13 0625 0500 0500 0375 0500 0500 0000 %0445 W14 0625 0500 0625 0375 0500 0375 0000 %0446 W15 0625 0500 0750 0375 0500 0250 0000 %0447 W16 0625 0500 0875 0375 0500 0125 0000 %0448 W17 0625 0500 1000 0375 0500 0000 0000 %0449 W18 0625 0625 0000 0375 0375 1000 0000 %0450 X10 0625 0625 0125 0375 0375 0875 0000 %0451 X11 0625 0625 0250 0375 0375 0750 0000 %0452 X12 0625 0625 0375 0375 0375 0625 0000 %0453 X13 0625 0625 0500 0375 0375 0500 0000 %0454 X14 0625 0625 0625 0375 0375 0375 0000 %0455 X15 0625 0625 0750 0375 0375 0250 0000 %0456 X16 0625 0625 0875 0375 0375 0125 0000 %0457 X17 0625 0625 1000 0375 0375 0000 0000 %0458 X18 0625 0750 0000 0375 0250 1000 0000 %0459 Y10 0625 0750 0125 0375 0250 0875 0000 %0460 Y11 0625 0750 0250 0375 0250 0750 0000 %0461 Y12 0625 0750 0375 0375 0250 0625 0000 %0462 Y13 0625 0750 0500 0375 0250 0500 0000 %0463 Y14 0625 0750 0625 0375 0250 0375 0000 %0464 Y15 0625 0750 0750 0375 0250 0250 0000 %0465 Y16 0625 0750 0875 0375 0250 0125 0000 %0466 Y17 0625 0750 1000 0375 0250 0000 0000 %0467 Y18 0625 0875 0000 0375 0125 1000 0000 %0468 Z10 0625 0875 0125 0375 0125 0875 0000 %0469 Z11 0625 0875 0250 0375 0125 0750 0000 %0470 Z12 0625 0875 0375 0375 0125 0625 0000 %0471 Z13 0625 0875 0500 0375 0125 0500 0000 %0472 Z14 0625 0875 0625 0375 0125 0375 0000 %0473 Z15 0625 0875 0750 0375 0125 0250 0000 %0474 Z16 0625 0875 0875 0375 0125 0125 0000 %0475 Z17 0625 0875 1000 0375 0125 0000 0000 %0476 Z18 0625 1000 0000 0375 0000 1000 0000 %0477 a10 0625 1000 0125 0375 0000 0875 0000 %0478 a11 0625 1000 0250 0375 0000 0750 0000 %0479 a12 0625 1000 0375 0375 0000 0625 0000 %0480 a13 0625 1000 0500 0375 0000 0500 0000 %0481 a14 0625 1000 0625 0375 0000 0375 0000 %0482 a15 0625 1000 0750 0375 0000 0250 0000 %0483 a16 0625 1000 0875 0375 0000 0125 0000 %0484 a17 0625 1000 1000 0375 0000 0000 0000 %0485 a18 0750 0000 0000 0250 1000 1000 0000 %0486 A19 0750 0000 0125 0250 1000 0875 0000 %0487 A20 0750 0000 0250 0250 1000 0750 0000 %0488 A21 0750 0000 0375 0250 1000 0625 0000 %0489 A22 0750 0000 0500 0250 1000 0500 0000 %0490 A23 0750 0000 0625 0250 1000 0375 0000 %0491 A24 0750 0000 0750 0250 1000 0250 0000 %0492 A25 0750 0000 0875 0250 1000 0125 0000 %0493 A26 0750 0000 1000 0250 1000 0000 0000 %0494 A27 0750 0125 0000 0250 0875 1000 0000 %0495 B19 0750 0125 0125 0250 0875 0875 0000 %0496 B20 0750 0125 0250 0250 0875 0750 0000 %0497 B21 0750 0125 0375 0250 0875 0625 0000 %0498 B22 0750 0125 0500 0250 0875 0500 0000 %0499 B23 0750 0125 0625 0250 0875 0375 0000 %0500 B24 0750 0125 0750 0250 0875 0250 0000 %0501 B25 0750 0125 0875 0250 0875 0125 0000 %0502 B26 0750 0125 1000 0250 0875 0000 0000 %0503 B27 0750 0250 0000 0250 0750 1000 0000 %0504 C19 0750 0250 0125 0250 0750 0875 0000 %0505 C20 0750 0250 0250 0250 0750 0750 0000 %0506 C21 0750 0250 0375 0250 0750 0625 0000 %0507 C22 0750 0250 0500 0250 0750 0500 0000 %0508 C23 0750 0250 0625 0250 0750 0375 0000 %0509 C24 0750 0250 0750 0250 0750 0250 0000 %0510 C25 0750 0250 0875 0250 0750 0125 0000 %0511 C26 0750 0250 1000 0250 0750 0000 0000 %0512 C27 0750 0375 0000 0250 0625 1000 0000 %0513 D19 0750 0375 0125 0250 0625 0875 0000 %0514 D20 0750 0375 0250 0250 0625 0750 0000 %0515 D21 0750 0375 0375 0250 0625 0625 0000 %0516 D22 0750 0375 0500 0250 0625 0500 0000 %0517 D23 0750 0375 0625 0250 0625 0375 0000 %0518 D24 0750 0375 0750 0250 0625 0250 0000 %0519 D25 0750 0375 0875 0250 0625 0125 0000 %0520 D26 0750 0375 1000 0250 0625 0000 0000 %0521 D27 0750 0500 0000 0250 0500 1000 0000 %0522 E19 0750 0500 0125 0250 0500 0875 0000 %0523 E20 0750 0500 0250 0250 0500 0750 0000 %0524 E21 0750 0500 0375 0250 0500 0625 0000 %0525 E22 0750 0500 0500 0250 0500 0500 0000 %0526 E23 0750 0500 0625 0250 0500 0375 0000 %0527 E24 0750 0500 0750 0250 0500 0250 0000 %0528 E25 0750 0500 0875 0250 0500 0125 0000 %0529 E26 0750 0500 1000 0250 0500 0000 0000 %0530 E27 0750 0625 0000 0250 0375 1000 0000 %0531 F19 0750 0625 0125 0250 0375 0875 0000 %0532 F20 0750 0625 0250 0250 0375 0750 0000 %0533 F21 0750 0625 0375 0250 0375 0625 0000 %0534 F22 0750 0625 0500 0250 0375 0500 0000 %0535 F23 0750 0625 0625 0250 0375 0375 0000 %0536 F24 0750 0625 0750 0250 0375 0250 0000 %0537 F25 0750 0625 0875 0250 0375 0125 0000 %0538 F26 0750 0625 1000 0250 0375 0000 0000 %0539 F27 0750 0750 0000 0250 0250 1000 0000 %0540 G19 0750 0750 0125 0250 0250 0875 0000 %0541 G20 0750 0750 0250 0250 0250 0750 0000 %0542 G21 0750 0750 0375 0250 0250 0625 0000 %0543 G22 0750 0750 0500 0250 0250 0500 0000 %0544 G23 0750 0750 0625 0250 0250 0375 0000 %0545 G24 0750 0750 0750 0250 0250 0250 0000 %0546 G25 0750 0750 0875 0250 0250 0125 0000 %0547 G26 0750 0750 1000 0250 0250 0000 0000 %0548 G27 0750 0875 0000 0250 0125 1000 0000 %0549 H19 0750 0875 0125 0250 0125 0875 0000 %0550 H20 0750 0875 0250 0250 0125 0750 0000 %0551 H21 0750 0875 0375 0250 0125 0625 0000 %0552 H22 0750 0875 0500 0250 0125 0500 0000 %0553 H23 0750 0875 0625 0250 0125 0375 0000 %0554 H24 0750 0875 0750 0250 0125 0250 0000 %0555 H25 0750 0875 0875 0250 0125 0125 0000 %0556 H26 0750 0875 1000 0250 0125 0000 0000 %0557 H27 0750 1000 0000 0250 0000 1000 0000 %0558 I19 0750 1000 0125 0250 0000 0875 0000 %0559 I20 0750 1000 0250 0250 0000 0750 0000 %0560 I21 0750 1000 0375 0250 0000 0625 0000 %0561 I22 0750 1000 0500 0250 0000 0500 0000 %0562 I23 0750 1000 0625 0250 0000 0375 0000 %0563 I24 0750 1000 0750 0250 0000 0250 0000 %0564 I25 0750 1000 0875 0250 0000 0125 0000 %0565 I26 0750 1000 1000 0250 0000 0000 0000 %0566 I27 0875 0000 0000 0125 1000 1000 0000 %0567 J19 0875 0000 0125 0125 1000 0875 0000 %0568 J20 0875 0000 0250 0125 1000 0750 0000 %0569 J21 0875 0000 0375 0125 1000 0625 0000 %0570 J22 0875 0000 0500 0125 1000 0500 0000 %0571 J23 0875 0000 0625 0125 1000 0375 0000 %0572 J24 0875 0000 0750 0125 1000 0250 0000 %0573 J25 0875 0000 0875 0125 1000 0125 0000 %0574 J26 0875 0000 1000 0125 1000 0000 0000 %0575 J27 0875 0125 0000 0125 0875 1000 0000 %0576 K19 0875 0125 0125 0125 0875 0875 0000 %0577 K20 0875 0125 0250 0125 0875 0750 0000 %0578 K21 0875 0125 0375 0125 0875 0625 0000 %0579 K22 0875 0125 0500 0125 0875 0500 0000 %0580 K23 0875 0125 0625 0125 0875 0375 0000 %0581 K24 0875 0125 0750 0125 0875 0250 0000 %0582 K25 0875 0125 0875 0125 0875 0125 0000 %0583 K26 0875 0125 1000 0125 0875 0000 0000 %0584 K27 0875 0250 0000 0125 0750 1000 0000 %0585 L19 0875 0250 0125 0125 0750 0875 0000 %0586 L20 0875 0250 0250 0125 0750 0750 0000 %0587 L21 0875 0250 0375 0125 0750 0625 0000 %0588 L22 0875 0250 0500 0125 0750 0500 0000 %0589 L23 0875 0250 0625 0125 0750 0375 0000 %0590 L24 0875 0250 0750 0125 0750 0250 0000 %0591 L25 0875 0250 0875 0125 0750 0125 0000 %0592 L26 0875 0250 1000 0125 0750 0000 0000 %0593 L27 0875 0375 0000 0125 0625 1000 0000 %0594 M19 0875 0375 0125 0125 0625 0875 0000 %0595 M20 0875 0375 0250 0125 0625 0750 0000 %0596 M21 0875 0375 0375 0125 0625 0625 0000 %0597 M22 0875 0375 0500 0125 0625 0500 0000 %0598 M23 0875 0375 0625 0125 0625 0375 0000 %0599 M24 0875 0375 0750 0125 0625 0250 0000 %0600 M25 0875 0375 0875 0125 0625 0125 0000 %0601 M26 0875 0375 1000 0125 0625 0000 0000 %0602 M27 0875 0500 0000 0125 0500 1000 0000 %0603 N19 0875 0500 0125 0125 0500 0875 0000 %0604 N20 0875 0500 0250 0125 0500 0750 0000 %0605 N21 0875 0500 0375 0125 0500 0625 0000 %0606 N22 0875 0500 0500 0125 0500 0500 0000 %0607 N23 0875 0500 0625 0125 0500 0375 0000 %0608 N24 0875 0500 0750 0125 0500 0250 0000 %0609 N25 0875 0500 0875 0125 0500 0125 0000 %0610 N26 0875 0500 1000 0125 0500 0000 0000 %0611 N27 0875 0625 0000 0125 0375 1000 0000 %0612 O19 0875 0625 0125 0125 0375 0875 0000 %0613 O20 0875 0625 0250 0125 0375 0750 0000 %0614 O21 0875 0625 0375 0125 0375 0625 0000 %0615 O22 0875 0625 0500 0125 0375 0500 0000 %0616 O23 0875 0625 0625 0125 0375 0375 0000 %0617 O24 0875 0625 0750 0125 0375 0250 0000 %0618 O25 0875 0625 0875 0125 0375 0125 0000 %0619 O26 0875 0625 1000 0125 0375 0000 0000 %0620 O27 0875 0750 0000 0125 0250 1000 0000 %0621 P19 0875 0750 0125 0125 0250 0875 0000 %0622 P20 0875 0750 0250 0125 0250 0750 0000 %0623 P21 0875 0750 0375 0125 0250 0625 0000 %0624 P22 0875 0750 0500 0125 0250 0500 0000 %0625 P23 0875 0750 0625 0125 0250 0375 0000 %0626 P24 0875 0750 0750 0125 0250 0250 0000 %0627 P25 0875 0750 0875 0125 0250 0125 0000 %0628 P26 0875 0750 1000 0125 0250 0000 0000 %0629 P27 0875 0875 0000 0125 0125 1000 0000 %0630 Q19 0875 0875 0125 0125 0125 0875 0000 %0631 Q20 0875 0875 0250 0125 0125 0750 0000 %0632 Q21 0875 0875 0375 0125 0125 0625 0000 %0633 Q22 0875 0875 0500 0125 0125 0500 0000 %0634 Q23 0875 0875 0625 0125 0125 0375 0000 %0635 Q24 0875 0875 0750 0125 0125 0250 0000 %0636 Q25 0875 0875 0875 0125 0125 0125 0000 %0637 Q26 0875 0875 1000 0125 0125 0000 0000 %0638 Q27 0875 1000 0000 0125 0000 1000 0000 %0639 R19 0875 1000 0125 0125 0000 0875 0000 %0640 R20 0875 1000 0250 0125 0000 0750 0000 %0641 R21 0875 1000 0375 0125 0000 0625 0000 %0642 R22 0875 1000 0500 0125 0000 0500 0000 %0643 R23 0875 1000 0625 0125 0000 0375 0000 %0644 R24 0875 1000 0750 0125 0000 0250 0000 %0645 R25 0875 1000 0875 0125 0000 0125 0000 %0646 R26 0875 1000 1000 0125 0000 0000 0000 %0647 R27 1000 0000 0000 0000 1000 1000 0000 %0648 S19 1000 0000 0125 0000 1000 0875 0000 %0649 S20 1000 0000 0250 0000 1000 0750 0000 %0650 S21 1000 0000 0375 0000 1000 0625 0000 %0651 S22 1000 0000 0500 0000 1000 0500 0000 %0652 S23 1000 0000 0625 0000 1000 0375 0000 %0653 S24 1000 0000 0750 0000 1000 0250 0000 %0654 S25 1000 0000 0875 0000 1000 0125 0000 %0655 S26 1000 0000 1000 0000 1000 0000 0000 %0656 S27 1000 0125 0000 0000 0875 1000 0000 %0657 T19 1000 0125 0125 0000 0875 0875 0000 %0658 T20 1000 0125 0250 0000 0875 0750 0000 %0659 T21 1000 0125 0375 0000 0875 0625 0000 %0660 T22 1000 0125 0500 0000 0875 0500 0000 %0661 T23 1000 0125 0625 0000 0875 0375 0000 %0662 T24 1000 0125 0750 0000 0875 0250 0000 %0663 T25 1000 0125 0875 0000 0875 0125 0000 %0664 T26 1000 0125 1000 0000 0875 0000 0000 %0665 T27 1000 0250 0000 0000 0750 1000 0000 %0666 U19 1000 0250 0125 0000 0750 0875 0000 %0667 U20 1000 0250 0250 0000 0750 0750 0000 %0668 U21 1000 0250 0375 0000 0750 0625 0000 %0669 U22 1000 0250 0500 0000 0750 0500 0000 %0670 U23 1000 0250 0625 0000 0750 0375 0000 %0671 U24 1000 0250 0750 0000 0750 0250 0000 %0672 U25 1000 0250 0875 0000 0750 0125 0000 %0673 U26 1000 0250 1000 0000 0750 0000 0000 %0674 U27 1000 0375 0000 0000 0625 1000 0000 %0675 V19 1000 0375 0125 0000 0625 0875 0000 %0676 V20 1000 0375 0250 0000 0625 0750 0000 %0677 V21 1000 0375 0375 0000 0625 0625 0000 %0678 V22 1000 0375 0500 0000 0625 0500 0000 %0679 V23 1000 0375 0625 0000 0625 0375 0000 %0680 V24 1000 0375 0750 0000 0625 0250 0000 %0681 V25 1000 0375 0875 0000 0625 0125 0000 %0682 V26 1000 0375 1000 0000 0625 0000 0000 %0683 V27 1000 0500 0000 0000 0500 1000 0000 %0684 W19 1000 0500 0125 0000 0500 0875 0000 %0685 W20 1000 0500 0250 0000 0500 0750 0000 %0686 W21 1000 0500 0375 0000 0500 0625 0000 %0687 W22 1000 0500 0500 0000 0500 0500 0000 %0688 W23 1000 0500 0625 0000 0500 0375 0000 %0689 W24 1000 0500 0750 0000 0500 0250 0000 %0690 W25 1000 0500 0875 0000 0500 0125 0000 %0691 W26 1000 0500 1000 0000 0500 0000 0000 %0692 W27 1000 0625 0000 0000 0375 1000 0000 %0693 X19 1000 0625 0125 0000 0375 0875 0000 %0694 X20 1000 0625 0250 0000 0375 0750 0000 %0695 X21 1000 0625 0375 0000 0375 0625 0000 %0696 X22 1000 0625 0500 0000 0375 0500 0000 %0697 X23 1000 0625 0625 0000 0375 0375 0000 %0698 X24 1000 0625 0750 0000 0375 0250 0000 %0699 X25 1000 0625 0875 0000 0375 0125 0000 %0700 X26 1000 0625 1000 0000 0375 0000 0000 %0701 X27 1000 0750 0000 0000 0250 1000 0000 %0702 Y19 1000 0750 0125 0000 0250 0875 0000 %0703 Y20 1000 0750 0250 0000 0250 0750 0000 %0704 Y21 1000 0750 0375 0000 0250 0625 0000 %0705 Y22 1000 0750 0500 0000 0250 0500 0000 %0706 Y23 1000 0750 0625 0000 0250 0375 0000 %0707 Y24 1000 0750 0750 0000 0250 0250 0000 %0708 Y25 1000 0750 0875 0000 0250 0125 0000 %0709 Y26 1000 0750 1000 0000 0250 0000 0000 %0710 Y27 1000 0875 0000 0000 0125 1000 0000 %0711 Z19 1000 0875 0125 0000 0125 0875 0000 %0712 Z20 1000 0875 0250 0000 0125 0750 0000 %0713 Z21 1000 0875 0375 0000 0125 0625 0000 %0714 Z22 1000 0875 0500 0000 0125 0500 0000 %0715 Z23 1000 0875 0625 0000 0125 0375 0000 %0716 Z24 1000 0875 0750 0000 0125 0250 0000 %0717 Z25 1000 0875 0875 0000 0125 0125 0000 %0718 Z26 1000 0875 1000 0000 0125 0000 0000 %0719 Z27 1000 1000 0000 0000 0000 1000 0000 %0720 a19 1000 1000 0125 0000 0000 0875 0000 %0721 a20 1000 1000 0250 0000 0000 0750 0000 %0722 a21 1000 1000 0375 0000 0000 0625 0000 %0723 a22 1000 1000 0500 0000 0000 0500 0000 %0724 a23 1000 1000 0625 0000 0000 0375 0000 %0725 a24 1000 1000 0750 0000 0000 0250 0000 %0726 a25 1000 1000 0875 0000 0000 0125 0000 %0727 a26 1000 1000 1000 0000 0000 0000 0000 %0728 a27 1000 1000 1000 0000 0000 0000 0000 %0729 b01 0875 1000 1000 0125 0000 0000 0000 %0730 b02 0750 1000 1000 0250 0000 0000 0000 %0731 b03 0625 1000 1000 0375 0000 0000 0000 %0732 b04 0500 1000 1000 0500 0000 0000 0000 %0733 b05 0375 1000 1000 0625 0000 0000 0000 %0734 b06 0250 1000 1000 0750 0000 0000 0000 %0735 b07 0125 1000 1000 0875 0000 0000 0000 %0736 b08 0000 1000 1000 1000 0000 0000 0000 %0737 b09 1000 0875 0875 0000 0125 0125 0000 %0738 c01 0875 0875 0875 0125 0125 0125 0000 %0739 c02 0750 0875 0875 0250 0125 0125 0000 %0740 c03 0625 0875 0875 0375 0125 0125 0000 %0741 c04 0500 0875 0875 0500 0125 0125 0000 %0742 c05 0375 0875 0875 0625 0125 0125 0000 %0743 c06 0250 0875 0875 0750 0125 0125 0000 %0744 c07 0125 0875 0875 0875 0125 0125 0000 %0745 c08 0000 0875 0875 1000 0125 0125 0000 %0746 c09 1000 0750 0750 0000 0250 0250 0000 %0747 d01 0875 0750 0750 0125 0250 0250 0000 %0748 d02 0750 0750 0750 0250 0250 0250 0000 %0749 d03 0625 0750 0750 0375 0250 0250 0000 %0750 d04 0500 0750 0750 0500 0250 0250 0000 %0751 d05 0375 0750 0750 0625 0250 0250 0000 %0752 d06 0250 0750 0750 0750 0250 0250 0000 %0753 d07 0125 0750 0750 0875 0250 0250 0000 %0754 d08 0000 0750 0750 1000 0250 0250 0000 %0755 d09 1000 0625 0625 0000 0375 0375 0000 %0756 e01 0875 0625 0625 0125 0375 0375 0000 %0757 e02 0750 0625 0625 0250 0375 0375 0000 %0758 e03 0625 0625 0625 0375 0375 0375 0000 %0759 e04 0500 0625 0625 0500 0375 0375 0000 %0760 e05 0375 0625 0625 0625 0375 0375 0000 %0761 e06 0250 0625 0625 0750 0375 0375 0000 %0762 e07 0125 0625 0625 0875 0375 0375 0000 %0763 e08 0000 0625 0625 1000 0375 0375 0000 %0764 e09 1000 0500 0500 0000 0500 0500 0000 %0765 f01 0875 0500 0500 0125 0500 0500 0000 %0766 f02 0750 0500 0500 0250 0500 0500 0000 %0767 f03 0625 0500 0500 0375 0500 0500 0000 %0768 f04 0500 0500 0500 0500 0500 0500 0000 %0769 f05 0375 0500 0500 0625 0500 0500 0000 %0770 f06 0250 0500 0500 0750 0500 0500 0000 %0771 f07 0125 0500 0500 0875 0500 0500 0000 %0772 f08 0000 0500 0500 1000 0500 0500 0000 %0773 f09 1000 0375 0375 0000 0625 0625 0000 %0774 g01 0875 0375 0375 0125 0625 0625 0000 %0775 g02 0750 0375 0375 0250 0625 0625 0000 %0776 g03 0625 0375 0375 0375 0625 0625 0000 %0777 g04 0500 0375 0375 0500 0625 0625 0000 %0778 g05 0375 0375 0375 0625 0625 0625 0000 %0779 g06 0250 0375 0375 0750 0625 0625 0000 %0780 g07 0125 0375 0375 0875 0625 0625 0000 %0781 g08 0000 0375 0375 1000 0625 0625 0000 %0782 g09 1000 0250 0250 0000 0750 0750 0000 %0783 h01 0875 0250 0250 0125 0750 0750 0000 %0784 h02 0750 0250 0250 0250 0750 0750 0000 %0785 h03 0625 0250 0250 0375 0750 0750 0000 %0786 h04 0500 0250 0250 0500 0750 0750 0000 %0787 h05 0375 0250 0250 0625 0750 0750 0000 %0788 h06 0250 0250 0250 0750 0750 0750 0000 %0789 h07 0125 0250 0250 0875 0750 0750 0000 %0790 h08 0000 0250 0250 1000 0750 0750 0000 %0791 h09 1000 0125 0125 0000 0875 0875 0000 %0792 i01 0875 0125 0125 0125 0875 0875 0000 %0793 i02 0750 0125 0125 0250 0875 0875 0000 %0794 i03 0625 0125 0125 0375 0875 0875 0000 %0795 i04 0500 0125 0125 0500 0875 0875 0000 %0796 i05 0375 0125 0125 0625 0875 0875 0000 %0797 i06 0250 0125 0125 0750 0875 0875 0000 %0798 i07 0125 0125 0125 0875 0875 0875 0000 %0799 i08 0000 0125 0125 1000 0875 0875 0000 %0800 i09 1000 0000 0000 0000 1000 1000 0000 %0801 j01 0875 0000 0000 0125 1000 1000 0000 %0802 j02 0750 0000 0000 0250 1000 1000 0000 %0803 j03 0625 0000 0000 0375 1000 1000 0000 %0804 j04 0500 0000 0000 0500 1000 1000 0000 %0805 j05 0375 0000 0000 0625 1000 1000 0000 %0806 j06 0250 0000 0000 0750 1000 1000 0000 %0807 j07 0125 0000 0000 0875 1000 1000 0000 %0808 j08 0000 0000 0000 1000 1000 1000 0000 %0809 j09 1000 1000 1000 0000 0000 0000 0000 %0810 b10 0875 0875 1000 0125 0125 0000 0000 %0811 b11 0750 0750 1000 0250 0250 0000 0000 %0812 b12 0625 0625 1000 0375 0375 0000 0000 %0813 b13 0500 0500 1000 0500 0500 0000 0000 %0814 b14 0375 0375 1000 0625 0625 0000 0000 %0815 b15 0250 0250 1000 0750 0750 0000 0000 %0816 b16 0125 0125 1000 0875 0875 0000 0000 %0817 b17 0000 0000 1000 1000 1000 0000 0000 %0818 b18 1000 1000 0875 0000 0000 0125 0000 %0819 c10 0875 0875 0875 0125 0125 0125 0000 %0820 c11 0750 0750 0875 0250 0250 0125 0000 %0821 c12 0625 0625 0875 0375 0375 0125 0000 %0822 c13 0500 0500 0875 0500 0500 0125 0000 %0823 c14 0375 0375 0875 0625 0625 0125 0000 %0824 c15 0250 0250 0875 0750 0750 0125 0000 %0825 c16 0125 0125 0875 0875 0875 0125 0000 %0826 c17 0000 0000 0875 1000 1000 0125 0000 %0827 c18 1000 1000 0750 0000 0000 0250 0000 %0828 d10 0875 0875 0750 0125 0125 0250 0000 %0829 d11 0750 0750 0750 0250 0250 0250 0000 %0830 d12 0625 0625 0750 0375 0375 0250 0000 %0831 d13 0500 0500 0750 0500 0500 0250 0000 %0832 d14 0375 0375 0750 0625 0625 0250 0000 %0833 d15 0250 0250 0750 0750 0750 0250 0000 %0834 d16 0125 0125 0750 0875 0875 0250 0000 %0835 d17 0000 0000 0750 1000 1000 0250 0000 %0836 d18 1000 1000 0625 0000 0000 0375 0000 %0837 e10 0875 0875 0625 0125 0125 0375 0000 %0838 e11 0750 0750 0625 0250 0250 0375 0000 %0839 e12 0625 0625 0625 0375 0375 0375 0000 %0840 e13 0500 0500 0625 0500 0500 0375 0000 %0841 e14 0375 0375 0625 0625 0625 0375 0000 %0842 e15 0250 0250 0625 0750 0750 0375 0000 %0843 e16 0125 0125 0625 0875 0875 0375 0000 %0844 e17 0000 0000 0625 1000 1000 0375 0000 %0845 e18 1000 1000 0500 0000 0000 0500 0000 %0846 f10 0875 0875 0500 0125 0125 0500 0000 %0847 f11 0750 0750 0500 0250 0250 0500 0000 %0848 f12 0625 0625 0500 0375 0375 0500 0000 %0849 f13 0500 0500 0500 0500 0500 0500 0000 %0850 f14 0375 0375 0500 0625 0625 0500 0000 %0851 f15 0250 0250 0500 0750 0750 0500 0000 %0852 f16 0125 0125 0500 0875 0875 0500 0000 %0853 f17 0000 0000 0500 1000 1000 0500 0000 %0854 f18 1000 1000 0375 0000 0000 0625 0000 %0855 g10 0875 0875 0375 0125 0125 0625 0000 %0856 g11 0750 0750 0375 0250 0250 0625 0000 %0857 g12 0625 0625 0375 0375 0375 0625 0000 %0858 g13 0500 0500 0375 0500 0500 0625 0000 %0859 g14 0375 0375 0375 0625 0625 0625 0000 %0860 g15 0250 0250 0375 0750 0750 0625 0000 %0861 g16 0125 0125 0375 0875 0875 0625 0000 %0862 g17 0000 0000 0375 1000 1000 0625 0000 %0863 g18 1000 1000 0250 0000 0000 0750 0000 %0864 h10 0875 0875 0250 0125 0125 0750 0000 %0865 h11 0750 0750 0250 0250 0250 0750 0000 %0866 h12 0625 0625 0250 0375 0375 0750 0000 %0867 h13 0500 0500 0250 0500 0500 0750 0000 %0868 h14 0375 0375 0250 0625 0625 0750 0000 %0869 h15 0250 0250 0250 0750 0750 0750 0000 %0870 h16 0125 0125 0250 0875 0875 0750 0000 %0871 h17 0000 0000 0250 1000 1000 0750 0000 %0872 h18 1000 1000 0125 0000 0000 0875 0000 %0873 i10 0875 0875 0125 0125 0125 0875 0000 %0874 i11 0750 0750 0125 0250 0250 0875 0000 %0875 i12 0625 0625 0125 0375 0375 0875 0000 %0876 i13 0500 0500 0125 0500 0500 0875 0000 %0877 i14 0375 0375 0125 0625 0625 0875 0000 %0878 i15 0250 0250 0125 0750 0750 0875 0000 %0879 i16 0125 0125 0125 0875 0875 0875 0000 %0880 i17 0000 0000 0125 1000 1000 0875 0000 %0881 i18 1000 1000 0000 0000 0000 1000 0000 %0882 j10 0875 0875 0000 0125 0125 1000 0000 %0883 j11 0750 0750 0000 0250 0250 1000 0000 %0884 j12 0625 0625 0000 0375 0375 1000 0000 %0885 j13 0500 0500 0000 0500 0500 1000 0000 %0886 j14 0375 0375 0000 0625 0625 1000 0000 %0887 j15 0250 0250 0000 0750 0750 1000 0000 %0888 j16 0125 0125 0000 0875 0875 1000 0000 %0889 j17 0000 0000 0000 1000 1000 1000 0000 %0890 j18 1000 1000 1000 0000 0000 0000 0000 %0891 b19 1000 0875 1000 0000 0125 0000 0000 %0892 b20 1000 0750 1000 0000 0250 0000 0000 %0893 b21 1000 0625 1000 0000 0375 0000 0000 %0894 b22 1000 0500 1000 0000 0500 0000 0000 %0895 b23 1000 0375 1000 0000 0625 0000 0000 %0896 b24 1000 0250 1000 0000 0750 0000 0000 %0897 b25 1000 0125 1000 0000 0875 0000 0000 %0898 b26 1000 0000 1000 0000 1000 0000 0000 %0899 b27 0875 1000 0875 0125 0000 0125 0000 %0900 c19 0875 0875 0875 0125 0125 0125 0000 %0901 c20 0875 0750 0875 0125 0250 0125 0000 %0902 c21 0875 0625 0875 0125 0375 0125 0000 %0903 c22 0875 0500 0875 0125 0500 0125 0000 %0904 c23 0875 0375 0875 0125 0625 0125 0000 %0905 c24 0875 0250 0875 0125 0750 0125 0000 %0906 c25 0875 0125 0875 0125 0875 0125 0000 %0907 c26 0875 0000 0875 0125 1000 0125 0000 %0908 c27 0750 1000 0750 0250 0000 0250 0000 %0909 d19 0750 0875 0750 0250 0125 0250 0000 %0910 d20 0750 0750 0750 0250 0250 0250 0000 %0911 d21 0750 0625 0750 0250 0375 0250 0000 %0912 d22 0750 0500 0750 0250 0500 0250 0000 %0913 d23 0750 0375 0750 0250 0625 0250 0000 %0914 d24 0750 0250 0750 0250 0750 0250 0000 %0915 d25 0750 0125 0750 0250 0875 0250 0000 %0916 d26 0750 0000 0750 0250 1000 0250 0000 %0917 d27 0625 1000 0625 0375 0000 0375 0000 %0918 e19 0625 0875 0625 0375 0125 0375 0000 %0919 e20 0625 0750 0625 0375 0250 0375 0000 %0920 e21 0625 0625 0625 0375 0375 0375 0000 %0921 e22 0625 0500 0625 0375 0500 0375 0000 %0922 e23 0625 0375 0625 0375 0625 0375 0000 %0923 e24 0625 0250 0625 0375 0750 0375 0000 %0924 e25 0625 0125 0625 0375 0875 0375 0000 %0925 e26 0625 0000 0625 0375 1000 0375 0000 %0926 e27 0500 1000 0500 0500 0000 0500 0000 %0927 f19 0500 0875 0500 0500 0125 0500 0000 %0928 f20 0500 0750 0500 0500 0250 0500 0000 %0929 f21 0500 0625 0500 0500 0375 0500 0000 %0930 f22 0500 0500 0500 0500 0500 0500 0000 %0931 f23 0500 0375 0500 0500 0625 0500 0000 %0932 f24 0500 0250 0500 0500 0750 0500 0000 %0933 f25 0500 0125 0500 0500 0875 0500 0000 %0934 f26 0500 0000 0500 0500 1000 0500 0000 %0935 f27 0375 1000 0375 0625 0000 0625 0000 %0936 g19 0375 0875 0375 0625 0125 0625 0000 %0937 g20 0375 0750 0375 0625 0250 0625 0000 %0938 g21 0375 0625 0375 0625 0375 0625 0000 %0939 g22 0375 0500 0375 0625 0500 0625 0000 %0940 g23 0375 0375 0375 0625 0625 0625 0000 %0941 g24 0375 0250 0375 0625 0750 0625 0000 %0942 g25 0375 0125 0375 0625 0875 0625 0000 %0943 g26 0375 0000 0375 0625 1000 0625 0000 %0944 g27 0250 1000 0250 0750 0000 0750 0000 %0945 h19 0250 0875 0250 0750 0125 0750 0000 %0946 h20 0250 0750 0250 0750 0250 0750 0000 %0947 h21 0250 0625 0250 0750 0375 0750 0000 %0948 h22 0250 0500 0250 0750 0500 0750 0000 %0949 h23 0250 0375 0250 0750 0625 0750 0000 %0950 h24 0250 0250 0250 0750 0750 0750 0000 %0951 h25 0250 0125 0250 0750 0875 0750 0000 %0952 h26 0250 0000 0250 0750 1000 0750 0000 %0953 h27 0125 1000 0125 0875 0000 0875 0000 %0954 i19 0125 0875 0125 0875 0125 0875 0000 %0955 i20 0125 0750 0125 0875 0250 0875 0000 %0956 i21 0125 0625 0125 0875 0375 0875 0000 %0957 i22 0125 0500 0125 0875 0500 0875 0000 %0958 i23 0125 0375 0125 0875 0625 0875 0000 %0959 i24 0125 0250 0125 0875 0750 0875 0000 %0960 i25 0125 0125 0125 0875 0875 0875 0000 %0961 i26 0125 0000 0125 0875 1000 0875 0000 %0962 i27 0000 1000 0000 1000 0000 1000 0000 %0963 j19 0000 0875 0000 1000 0125 1000 0000 %0964 j20 0000 0750 0000 1000 0250 1000 0000 %0965 j21 0000 0625 0000 1000 0375 1000 0000 %0966 j22 0000 0500 0000 1000 0500 1000 0000 %0967 j23 0000 0375 0000 1000 0625 1000 0000 %0968 j24 0000 0250 0000 1000 0750 1000 0000 %0969 j25 0000 0125 0000 1000 0875 1000 0000 %0970 j26 0000 0000 0000 1000 1000 1000 0000 %0971 j27 0000 0000 0000 1000 1000 1000 0000 %0972 k01 0125 0125 0125 0875 0875 0875 0000 %0973 k02 0250 0250 0250 0750 0750 0750 0000 %0974 k03 0375 0375 0375 0625 0625 0625 0000 %0975 k04 0500 0500 0500 0500 0500 0500 0000 %0976 k05 0625 0625 0625 0375 0375 0375 0000 %0977 k06 0750 0750 0750 0250 0250 0250 0000 %0978 k07 0875 0875 0875 0125 0125 0125 0000 %0979 k08 1000 1000 1000 0000 0000 0000 0000 %0980 k09 0000 0000 0000 1000 1000 1000 0000 %0981 l01 0125 0125 0125 0875 0875 0875 0000 %0982 l02 0250 0250 0250 0750 0750 0750 0000 %0983 l03 0375 0375 0375 0625 0625 0625 0000 %0984 l04 0500 0500 0500 0500 0500 0500 0000 %0985 l05 0625 0625 0625 0375 0375 0375 0000 %0986 l06 0750 0750 0750 0250 0250 0250 0000 %0987 l07 0875 0875 0875 0125 0125 0125 0000 %0988 l08 1000 1000 1000 0000 0000 0000 0000 %0989 l09 0000 0000 0000 1000 1000 1000 0000 %0990 m01 0125 0125 0125 0875 0875 0875 0000 %0991 m02 0250 0250 0250 0750 0750 0750 0000 %0992 m03 0375 0375 0375 0625 0625 0625 0000 %0993 m04 0500 0500 0500 0500 0500 0500 0000 %0994 m05 0625 0625 0625 0375 0375 0375 0000 %0995 m06 0750 0750 0750 0250 0250 0250 0000 %0996 m07 0875 0875 0875 0125 0125 0125 0000 %0997 m08 1000 1000 1000 0000 0000 0000 0000 %0998 m09 0000 0000 0000 1000 1000 1000 0000 %0999 n01 0125 0125 0125 0875 0875 0875 0000 %1000 n02 0250 0250 0250 0750 0750 0750 0000 %1001 n03 0375 0375 0375 0625 0625 0625 0000 %1002 n04 0500 0500 0500 0500 0500 0500 0000 %1003 n05 0625 0625 0625 0375 0375 0375 0000 %1004 n06 0750 0750 0750 0250 0250 0250 0000 %1005 n07 0875 0875 0875 0125 0125 0125 0000 %1006 n08 1000 1000 1000 0000 0000 0000 0000 %1007 n09 0000 0000 0000 1000 1000 1000 0000 %1008 k10 0066 0066 0066 0933 0933 0933 0000 %1009 k11 0133 0133 0133 0866 0866 0866 0000 %1010 k12 0200 0200 0200 0800 0800 0800 0000 %1011 k13 0266 0266 0266 0333 0333 0333 0000 %1012 k14 0333 0333 0333 0666 0666 0666 0000 %1013 k15 0400 0400 0400 0600 0600 0600 0000 %1014 k16 0466 0466 0466 0533 0533 0533 0000 %1015 k17 0533 0533 0533 0466 0466 0466 0000 %1016 k18 0600 0600 0600 0400 0400 0400 0000 %1017 k19 0666 0666 0666 0333 0333 0333 0000 %1018 k20 0734 0734 0734 0266 0266 0266 0000 %1019 k21 0800 0800 0800 0200 0200 0200 0000 %1020 k22 0866 0866 0866 0133 0133 0133 0000 %1021 k23 0933 0933 0933 0066 0066 0066 0000 %1022 k24 1000 1000 1000 0000 0000 0000 0000 %1023 k25 0000 0000 0000 1000 1000 1000 0000 %1024 l10 0066 0066 0066 0933 0933 0933 0000 %1025 l11 0133 0133 0133 0866 0866 0866 0000 %1026 l12 0200 0200 0200 0800 0800 0800 0000 %1027 l13 0266 0266 0266 0333 0333 0333 0000 %1028 l14 0333 0333 0333 0666 0666 0666 0000 %1029 l15 0400 0400 0400 0600 0600 0600 0000 %1030 l16 0466 0466 0466 0533 0533 0533 0000 %1031 l17 0533 0533 0533 0466 0466 0466 0000 %1032 l18 0600 0600 0600 0400 0400 0400 0000 %1033 l19 0666 0666 0666 0333 0333 0333 0000 %1034 l20 0734 0734 0734 0266 0266 0266 0000 %1035 l21 0800 0800 0800 0200 0200 0200 0000 %1036 l22 0866 0866 0866 0133 0133 0133 0000 %1037 l23 0933 0933 0933 0066 0066 0066 0000 %1038 l24 1000 1000 1000 0000 0000 0000 0000 %1039 l25 0000 0000 0000 1000 1000 1000 0000 %1040 m10 0066 0066 0066 0933 0933 0933 0000 %1041 m11 0133 0133 0133 0866 0866 0866 0000 %1042 m12 0200 0200 0200 0800 0800 0800 0000 %1043 m13 0266 0266 0266 0333 0333 0333 0000 %1044 m14 0333 0333 0333 0666 0666 0666 0000 %1045 m15 0400 0400 0400 0600 0600 0600 0000 %1046 m16 0466 0466 0466 0533 0533 0533 0000 %1047 m17 0533 0533 0533 0466 0466 0466 0000 %1048 m18 0600 0600 0600 0400 0400 0400 0000 %1049 m19 0666 0666 0666 0333 0333 0333 0000 %1050 m20 0734 0734 0734 0266 0266 0266 0000 %1051 m21 0800 0800 0800 0200 0200 0200 0000 %1052 m22 0866 0866 0866 0133 0133 0133 0000 %1053 m23 0933 0933 0933 0066 0066 0066 0000 %1054 m24 1000 1000 1000 0000 0000 0000 0000 %1055 m25 0000 0000 0000 1000 1000 1000 0000 %1056 n10 0066 0066 0066 0933 0933 0933 0000 %1057 n11 0133 0133 0133 0866 0866 0866 0000 %1058 n12 0200 0200 0200 0800 0800 0800 0000 %1059 n13 0266 0266 0266 0333 0333 0333 0000 %1060 n14 0333 0333 0333 0666 0666 0666 0000 %1061 n15 0400 0400 0400 0600 0600 0600 0000 %1062 n16 0466 0466 0466 0533 0533 0533 0000 %1063 n17 0533 0533 0533 0466 0466 0466 0000 %1064 n18 0600 0600 0600 0400 0400 0400 0000 %1065 n19 0666 0666 0666 0333 0333 0333 0000 %1066 n20 0734 0734 0734 0266 0266 0266 0000 %1067 n21 0800 0800 0800 0200 0200 0200 0000 %1068 n22 0866 0866 0866 0133 0133 0133 0000 %1069 n23 0933 0933 0933 0066 0066 0066 0000 %1070 n24 1000 1000 1000 0000 0000 0000 0000 %1071 n25 0000 0000 0000 1000 1000 1000 0000 %1072 k26 1000 1000 1000 0000 0000 0000 0000 %1073 k27 1000 0000 0000 0000 1000 1000 0000 %1074 l26 0000 1000 1000 1000 0000 0000 0000 %1075 l27 1000 1000 0000 0000 0000 1000 0000 %1076 m26 0000 0000 1000 1000 1000 0000 0000 %1077 m27 0000 1000 0000 1000 0000 1000 0000 %1078 n26 1000 0000 1000 0000 1000 0000 0000 %1079 n27 0000 1000 0000 1000 0000 1000 0000 %1078 nx6 1000 0000 1000 0000 1000 0000 0000 %1079 nx7 ] def %END RGBCMY0*tx=RGBCMY0*tx.DAT /indxi 1080 array def /indxi %indxt=0,1079 [0000 0001 0002 0003 0004 0005 0006 0007 0008 %A 0243 0244 0245 0246 0247 0248 0249 0250 0251 0486 0487 0488 0489 0490 0491 0492 0493 0494 0009 0010 0011 0012 0013 0014 0015 0016 0017 %B 0252 0253 0254 0255 0256 0257 0258 0259 0260 0495 0496 0497 0498 0499 0500 0501 0502 0503 0018 0019 0020 0021 0022 0023 0024 0025 0026 %C 0261 0262 0263 0264 0265 0266 0267 0268 0269 0504 0505 0506 0507 0508 0509 0510 0511 0512 0027 0028 0029 0030 0031 0032 0033 0034 0035 %D 0270 0271 0272 0273 0274 0275 0276 0277 0278 0513 0514 0515 0516 0517 0518 0519 0520 0521 0036 0037 0038 0039 0040 0041 0042 0043 0044 %E 0279 0280 0281 0282 0283 0284 0285 0286 0287 0522 0523 0524 0525 0526 0527 0528 0529 0530 0045 0046 0047 0048 0049 0050 0051 0052 0053 %F 0288 0289 0290 0291 0292 0293 0294 0295 0296 0531 0532 0533 0534 0535 0536 0537 0538 0539 0054 0055 0056 0057 0058 0059 0060 0061 0062 %G 0297 0298 0299 0300 0301 0302 0303 0304 0305 0540 0541 0542 0543 0544 0545 0546 0547 0548 0063 0064 0065 0066 0067 0068 0069 0070 0071 %H 0306 0307 0308 0309 0310 0311 0312 0313 0314 0549 0550 0551 0552 0553 0554 0555 0556 0557 0072 0073 0074 0075 0076 0077 0078 0079 0080 %I 0315 0316 0317 0318 0319 0320 0321 0322 0323 0558 0559 0560 0561 0562 0563 0564 0565 0566 0081 0082 0083 0084 0085 0086 0087 0088 0089 %J 0324 0325 0326 0327 0328 0329 0330 0331 0332 0567 0568 0569 0570 0571 0572 0573 0574 0575 0090 0091 0092 0093 0094 0095 0096 0097 0098 %K 0333 0334 0335 0336 0337 0338 0339 0340 0341 0576 0577 0578 0579 0580 0581 0582 0583 0584 0099 0100 0101 0102 0103 0104 0105 0106 0107 %L 0342 0343 0344 0345 0346 0347 0348 0349 0350 0585 0586 0587 0588 0589 0590 0591 0592 0593 0108 0109 0110 0111 0112 0113 0114 0115 0116 %M 0351 0352 0353 0354 0355 0356 0357 0358 0359 0594 0595 0596 0597 0598 0599 0600 0601 0602 0117 0118 0119 0120 0121 0122 0123 0124 0125 %N 0360 0361 0362 0363 0364 0365 0366 0367 0368 0603 0604 0605 0606 0607 0608 0609 0610 0611 0126 0127 0128 0129 0130 0131 0132 0133 0134 %O 0369 0370 0371 0372 0373 0374 0375 0376 0377 0612 0613 0614 0615 0616 0617 0618 0619 0620 0135 0136 0137 0138 0139 0140 0141 0142 0143 %P 0378 0379 0380 0381 0382 0383 0384 0385 0386 0621 0622 0623 0624 0625 0626 0627 0628 0629 0144 0145 0146 0147 0148 0149 0150 0151 0152 %Q 0387 0388 0389 0390 0391 0392 0393 0394 0395 0630 0631 0632 0633 0634 0635 0636 0637 0638 0153 0154 0155 0156 0157 0158 0159 0160 0161 %R 0396 0397 0398 0399 0400 0401 0402 0403 0404 0639 0640 0641 0642 0643 0644 0645 0646 0647 0162 0163 0164 0165 0166 0167 0168 0169 0170 %S 0405 0406 0407 0408 0409 0410 0411 0412 0413 0648 0649 0650 0651 0652 0653 0654 0655 0656 0171 0172 0173 0174 0175 0176 0177 0178 0179 %T 0414 0415 0416 0417 0418 0419 0420 0421 0422 0657 0658 0659 0660 0661 0662 0663 0664 0665 0180 0181 0182 0183 0184 0185 0186 0187 0188 %U 0423 0424 0425 0426 0427 0428 0429 0430 0431 0666 0667 0668 0669 0670 0671 0672 0673 0674 0189 0190 0191 0192 0193 0194 0195 0196 0197 %V 0432 0433 0434 0435 0436 0437 0438 0439 0440 0675 0676 0677 0678 0679 0680 0681 0682 0683 0198 0199 0200 0201 0202 0203 0204 0205 0206 %W 0441 0442 0443 0444 0445 0446 0447 0448 0449 0684 0685 0686 0687 0688 0689 0690 0691 0692 0207 0208 0209 0210 0211 0212 0213 0214 0215 %X 0450 0451 0452 0453 0454 0455 0456 0457 0458 0693 0694 0695 0696 0697 0698 0699 0700 0701 0216 0217 0218 0219 0220 0221 0222 0223 0224 %Y 0459 0460 0461 0462 0463 0464 0465 0466 0467 0702 0703 0704 0705 0706 0707 0708 0709 0710 0225 0226 0227 0228 0229 0230 0231 0232 0233 %Z 0468 0469 0470 0471 0472 0473 0474 0475 0476 0711 0712 0713 0714 0715 0716 0717 0718 0719 0234 0235 0236 0237 0238 0239 0240 0241 0242 %a 0477 0478 0479 0480 0481 0482 0483 0484 0485 0720 0721 0722 0723 0724 0725 0726 0727 0728 0729 0730 0731 0732 0733 0734 0735 0736 0737 %b 0810 0811 0812 0813 0814 0815 0816 0817 0818 0891 0892 0893 0894 0895 0896 0897 0898 0899 0738 0739 0740 0741 0742 0743 0744 0745 0746 %c 0819 0820 0821 0822 0823 0824 0825 0826 0827 0900 0901 0902 0903 0904 0905 0906 0907 0908 0747 0748 0749 0750 0751 0752 0753 0754 0755 %d 0828 0829 0830 0831 0832 0833 0834 0835 0836 0909 0910 0911 0912 0913 0914 0915 0916 0917 0756 0757 0758 0759 0760 0761 0762 0763 0764 %e 0837 0838 0839 0840 0841 0842 0843 0844 0845 0918 0919 0920 0921 0922 0923 0924 0925 0926 0765 0766 0767 0768 0769 0770 0771 0772 0773 %f 0846 0847 0848 0849 0850 0851 0852 0853 0854 0927 0928 0929 0930 0931 0932 0933 0934 0935 0774 0775 0776 0777 0778 0779 0780 0781 0782 %g 0855 0856 0857 0858 0859 0860 0861 0862 0863 0936 0937 0938 0939 0940 0941 0942 0943 0944 0783 0784 0785 0786 0787 0788 0789 0790 0791 %h 0864 0865 0866 0867 0868 0869 0870 0871 0872 0945 0946 0947 0948 0949 0950 0951 0952 0953 0792 0793 0794 0795 0796 0797 0798 0799 0800 %i 0873 0874 0875 0876 0877 0878 0879 0880 0881 0954 0955 0956 0957 0958 0959 0960 0961 0962 0801 0802 0803 0804 0805 0806 0807 0808 0809 %j 0882 0883 0884 0885 0886 0887 0888 0889 0890 0963 0964 0965 0966 0967 0968 0969 0970 0971 0972 0973 0974 0975 0976 0977 0978 0979 0980 %k 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1072 1073 0981 0982 0983 0984 0985 0986 0987 0988 0989 %l 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1074 1075 0990 0991 0992 0993 0994 0995 0996 0997 0998 %m 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1076 1077 0999 1000 1001 1002 1003 1004 1005 1006 1007 %n 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1078 1079 ] def %indxi=0,1079 /XYZ*system { %BEG procedure XYZ*system /XYZrx089 3240 array def %1080*3=3240 /XYZrx100 3240 array def /jend 1073 4 mul 3 add def %White-Measurement /IM0 1080 def /IM1 IM0 1 sub def /IM3 IM0 3 mul 1 sub def /IM4 IM0 4 mul 1 sub def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /j30 i 7 mul def /j31 j30 1 add def /j32 j30 2 add def RGBCMY0 j30 get 0.04045 le %equations of IEC 61966-2-1:2003 {/RsRGB RGBCMY0 j30 get 12.92 div def} {/RsRGB RGBCMY0 j30 get 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse RGBCMY0 j31 get 0.04045 le {/GsRGB RGBCMY0 j31 get 12.92 div def} {/GsRGB RGBCMY0 j31 get 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse RGBCMY0 j32 get 0.04045 le {/BsRGB RGBCMY0 j32 get 12.92 div def} {/BsRGB RGBCMY0 j32 get 0.001 mul 0.055 add 1.055 div 2.4 exp def} ifelse XYZrx100 i30 0.4124 RsRGB mul 0.3576 GsRGB mul add 0.1805 BsRGB mul add 100 mul put XYZrx100 i31 0.2126 RsRGB mul 0.7152 GsRGB mul add 0.0722 BsRGB mul add 100 mul put XYZrx100 i32 0.0193 RsRGB mul 0.1192 GsRGB mul add 0.9505 BsRGB mul add 100 mul put } for %i=0,IM1 0 1 IM3 {/i exch def %i=0,IM3 XYZrx089 i XYZrx100 i get 0.8859 mul put } for %i=0,IM3 /iN 1072 3 mul def /iW 1073 3 mul def /XLN100 XYZrx100 iN get def /YLN100 XYZrx100 iN 1 add get def /ZLN100 XYZrx100 iN 2 add get def /XLW100 XYZrx100 iW get def /YLW100 XYZrx100 iW 1 add get def /ZLW100 XYZrx100 iW 2 add get def /XLN089 XYZrx089 iN get def /YLN089 XYZrx089 iN 1 add get def /ZLN089 XYZrx089 iN 2 add get def /XLW089 XYZrx089 iW get def /YLW089 XYZrx089 iW 1 add get def /ZLW089 XYZrx089 iW 2 add get def % achromatic (D65) colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLWD65089 95.04 0.8859 mul def /YLWD65089 100.00 0.8859 mul def /ZLWD65089 108.88 0.8859 mul def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /LABN [(O (R)) (Y) (L (G)) (C) (V (B)) (M) (O (R)) (N) (W) (N0) (W1)] def } bind def %END procedure XYZ*system /XD65W 95.04 def /YD65W 100.00 def /ZD65W 108.88 def /XD50W 96.42 def /YD50W 100.00 def /ZD50W 82.51 def /DAKTE [(D65) (D50)] def %Save 8 standard colours /COL*01 08 array def /COL*01 [(%O1 0) (%Y1 1) (%L1 2) (%C1 3) (%V1 4) (%M1 5) (%N1 6) (%W1 7) ] def /COL*02 08 array def /COL*02 [(%O2 0) (%Y2 1) (%L2 2) (%C2 3) (%V2 4) (%M2 5) (%N2 6) (%W2 7) ] def /COL*03 08 array def /COL*03 [(%O3 0) (%Y3 1) (%L3 2) (%C3 3) (%V3 4) (%M3 5) (%N3 6) (%W3 7) ] def /COL*04 08 array def /COL*04 [(%O4 0) (%Y4 1) (%L4 2) (%C4 3) (%V4 4) (%M4 5) (%N4 6) (%W4 7) ] def /COL*05 08 array def /COL*05 [(%O5 0) (%Y5 1) (%L5 2) (%C5 3) (%V5 4) (%M5 5) (%N5 6) (%W5 7) ] def /COL*06 08 array def /COL*06 [(%O6 0) (%Y6 1) (%L6 2) (%C6 3) (%V6 4) (%M6 5) (%N6 6) (%W6 7) ] def /COL*07 08 array def /COL*07 [(%O7 0) (%Y7 1) (%L7 2) (%C7 3) (%V7 4) (%M7 5) (%N7 6) (%W7 7) ] def /RGB*01 08 array def /RGB*02 08 array def /RGB*03 08 array def /RGB*04 08 array def /RGB*05 08 array def /RGB*06 08 array def /RGB*07 08 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*a01 24 array def /LAB*a02 24 array def /LAB*a03 24 array def /LAB*a04 24 array def /LAB*a05 24 array def /LAB*a06 24 array def /LAB*a07 24 array def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /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 /cvishowb {cvi 6 string cvs show ( ) show} def /cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def /cvi100 {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 {(0000) show} if xia 10 ge xia 99 le and {(000) show} if xia 100 ge xia 999 le and {(00) show} if xia 1000 ge xia 9999 le and {(0) show} if xia cvishow } bind def %%EndProlog gsave /lanind 0 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 /xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse /xcolorg where {pop /xcolorx xchartg def} {/xcolorx 0 def} ifelse /colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse %3240=1080*3 /LAB*rc089 3240 array def /XYZrc089 3240 array def /LAB*ra089 3240 array def /XYZra089 3240 array def /LAB*la089 3240 array def /XYZla089 3240 array def /LAB*lc089 3240 array def /XYZlc089 3240 array def /XYZ_Xj 1080 array def /XYZ_Yj 1080 array def /XYZ_Zj 1080 array def /LAB*Lj 1080 array def /LAB*aj 1080 array def /LAB*bj 1080 array def /LAB*Lja 1080 array def /LAB*aja 1080 array def /LAB*bja 1080 array def /ymax 16600 def /ydel 203 def 72 90 translate /DAK 0 def 0.010 MM dup scale XYZ*system 06 1 06 {/xcharti exch def %xcharti=0,10 gsave xcharti 2 le {/il 0 def} {/il xcharti 3 sub def} ifelse %Reference black and factors /YrN 2.52 def /ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def /Xtref089 YrN ilf il get mul XLN001 mul def /Ytref089 YrN ilf il get mul def /Ztref089 YrN ilf il get mul ZLN001 mul def /YNil Ytref089 def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def /IM1 1079 def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZrc089 i30 XYZrx089 i30 get put XYZrc089 i31 XYZrx089 i31 get put XYZrc089 i32 XYZrx089 i32 get put /XQ XYZrc089 i30 get XLWD65100 div def /YQ XYZrc089 i31 get YLWD65100 div def /ZQ XYZrc089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*rc089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*rc089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*rc089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=0,IM1 /jN 1072 3 mul def /L*N LAB*rc089 jN get def /A*N LAB*rc089 jN 1 add get def /B*N LAB*rc089 jN 2 add get def /jW 1073 3 mul def /L*W LAB*rc089 jW get def /A*W LAB*rc089 jW 1 add get def /B*W LAB*rc089 jW 2 add get def 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def LAB*ra089 i30 LAB*rc089 i30 get put /l*CIE LAB*rc089 i30 get L*N sub L*W L*N sub div def %system rel. lightn. /a*s A*W A*N sub l*CIE mul def /b*s B*W B*N sub l*CIE mul def LAB*ra089 i31 LAB*rc089 i31 get A*N sub a*s sub put LAB*ra089 i32 LAB*rc089 i32 get B*N sub b*s sub put } for %i=0,IM1 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*ra089 i30 get 16 add 116 div LAB*ra089 i31 get 500 div add} bind def /Y* {LAB*ra089 i30 get 16 add 116 div} bind def /Z* {LAB*ra089 i30 get 16 add 116 div LAB*ra089 i32 get 200 div sub} bind def XYZra089 i30 X* DecodeXYZ* XLWD65100 mul put XYZra089 i31 Y* DecodeXYZ* YLWD65100 mul put XYZra089 i32 Z* DecodeXYZ* ZLWD65100 mul put } for %i=0,IM1 xcharti 2 ge {%xcharti>=2 /jW 1073 3 mul def %for white X data /Xwref089 XYZra089 jW get def /Ywref089 XYZra089 jW 1 add get def /Zwref089 XYZra089 jW 2 add get def /jN 1072 3 mul 1 add def %for black X data /YrN XYZra089 jN 1 add get def /Xnref089 YrN XLN001 mul def /Ynref089 YrN def /Znref089 YrN ZLN001 mul def /LAB*na089 3240 array def /XYZna089 3240 array def 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZna089 i30 XYZra089 i30 get Xnref089 sub Xwref089 Xwref089 Xnref089 sub div mul put XYZna089 i31 XYZra089 i31 get Ynref089 sub Ywref089 Ywref089 Ynref089 sub div mul put XYZna089 i32 XYZra089 i32 get Znref089 sub Zwref089 Zwref089 Znref089 sub div mul put } for %i=I1,I2 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZna089 i30 get XLWD65100 div def /YQ XYZna089 i31 get YLWD65100 div def /ZQ XYZna089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*na089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*na089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*na089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=I1,I2 } if %xchart>=2 xcharti 3 ge {%xchart>=3 /jW 1073 3 mul def %for white X data %/jW 57 3 mul def %W /Xwref089 XYZra089 jW get def /Ywref089 XYZra089 jW 1 add get def /Zwref089 XYZra089 jW 2 add get def /kn Ywref089 Ywref089 Ytref089 sub div def 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZla089 i30 XYZna089 i30 get kn div Xtref089 add put XYZla089 i31 XYZna089 i31 get kn div Ytref089 add put XYZla089 i32 XYZna089 i32 get kn div Ztref089 add put } for %i=I1,I2 0 1 IM1 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZla089 i30 get XLWD65100 div def /YQ XYZla089 i31 get YLWD65100 div def /ZQ XYZla089 i32 get ZLWD65100 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LAB*la089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*la089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LAB*la089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=I1,I2 } if %xchart>=3 xcharti 0 eq {%xcharti=0 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*rc089 i30 get put LAB*aj i LAB*rc089 i31 get put LAB*bj i LAB*rc089 i32 get put XYZ_Xj i XYZrc089 i30 get put XYZ_Yj i XYZrc089 i31 get put XYZ_Zj i XYZrc089 i32 get put } for %i=0,IM1 } if %xcharti=0 (1x) xcharti 1 eq {%xcharti=1 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*ra089 i30 get put LAB*aj i LAB*ra089 i31 get put LAB*bj i LAB*ra089 i32 get put XYZ_Xj i XYZra089 i30 get put XYZ_Yj i XYZra089 i31 get put XYZ_Zj i XYZra089 i32 get put } for %i=0,IM1 } if %xcharti=1 (1x) xcharti 2 eq {%xcharti=2 (1x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*na089 i30 get put LAB*aj i LAB*na089 i31 get put LAB*bj i LAB*na089 i32 get put XYZ_Xj i XYZna089 i30 get put XYZ_Yj i XYZna089 i31 get put XYZ_Zj i XYZna089 i32 get put } for %i=0,IM1 } if %xcharti=2 (1x) xcharti 3 ge {%xcharti=3,4,5,6,7,8,9,10 (8x) 0 1 IM1 {/i exch def %i=0,IM1 /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def % 10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto LAB*Lj i LAB*la089 i30 get put LAB*aj i LAB*la089 i31 get put LAB*bj i LAB*la089 i32 get put XYZ_Xj i XYZla089 i30 get put XYZ_Yj i XYZla089 i31 get put XYZ_Zj i XYZla089 i32 get put } for %i=0,IM1 } if %xcharti=3,4,5,6,7,8,9,10 (8x) xcharti 0 eq {/Xprint 0 def /FileData (LAB*rc) def} if xcharti 1 eq {/Xprint 1 def /FileData (LAB*ra) def} if xcharti 2 eq {/Xprint 1 def /FileData (LAB*na) def} if xcharti 3 eq {/Xprint 1 def /FileData (LAB*la0) def} if xcharti 4 eq {/Xprint 1 def /FileData (LAB*la1) def} if xcharti 5 eq {/Xprint 1 def /FileData (LAB*la2) def} if xcharti 6 eq {/Xprint 1 def /FileData (LAB*la3) def} if xcharti 7 eq {/Xprint 1 def /FileData (LAB*la4) def} if xcharti 8 eq {/Xprint 1 def /FileData (LAB*la5) def} if xcharti 9 eq {/Xprint 1 def /FileData (LAB*la6) def} if xcharti 10 eq {/Xprint 1 def /FileData (LAB*la7) def} if 20 setlinewidth 1 1 1 setrgbcolor 0 0 moveto 25000 0 rlineto 0 17000 rlineto 25000 neg 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 25000 0 rlineto 0 17000 rlineto 25000 neg 0 rlineto closepath stroke TK 0 setgray /Param (; cf1=1.00; nt=0.18; nx=1.0; sRGB_00_95) def 200 -200 moveto (KG130-7N) show (, Page ) showen (, Seite ) showde xcharti 1 add cvishow (/11, ) show FileData show %Param show xcharti 0 eq {(, adapted=not adapted)}{(, adapted=not adapted)} ifelse show 0 1 728 {/j exch def %j=1,728 %necessary in both cases j 072 eq {RGB*01 02 RGBCMY0*tx j get put %072 0-8-0 L 2 LAB*01 06 LAB*Lj j get put LAB*01 07 LAB*aj j get put LAB*01 08 LAB*bj j get put} if j 080 eq {RGB*01 03 RGBCMY0*tx j get put %080 0-8-8 C 3 LAB*01 09 LAB*Lj j get put LAB*01 10 LAB*aj j get put LAB*01 11 LAB*bj j get put} if j 008 eq {RGB*01 04 RGBCMY0*tx j get put %008 0-0-8 V 4 LAB*01 12 LAB*Lj j get put LAB*01 13 LAB*aj j get put LAB*01 14 LAB*bj j get put} if j 000 eq {RGB*01 06 RGBCMY0*tx j get put %000 0-0-0 N 6 LAB*01 18 LAB*Lj j get put LAB*01 19 LAB*aj j get put LAB*01 20 LAB*bj j get put} if j 648 eq {RGB*01 00 RGBCMY0*tx j get put %648 8-0-0 O 0 LAB*01 00 LAB*Lj j get put LAB*01 01 LAB*aj j get put LAB*01 02 LAB*bj j get put} if j 720 eq {RGB*01 01 RGBCMY0*tx j get put %720 8-8-0 Y 1 LAB*01 03 LAB*Lj j get put LAB*01 04 LAB*aj j get put LAB*01 05 LAB*bj j get put} if j 656 eq {RGB*01 05 RGBCMY0*tx j get put %656 8-0-8 M 5 LAB*01 15 LAB*Lj j get put LAB*01 16 LAB*aj j get put LAB*01 17 LAB*bj j get put} if j 728 eq {RGB*01 07 RGBCMY0*tx j get put %728 8-8-8 W 7 LAB*01 21 LAB*Lj j get put LAB*01 22 LAB*aj j get put LAB*01 23 LAB*bj j get put} if } for %j=0,728 729 1 971 {/j exch def %j=729,971 %necessary in both cases j 963 eq {RGB*02 02 RGBCMY0*tx j get put %963 0-8-0 L 2 LAB*02 06 LAB*Lj j get put LAB*02 07 LAB*aj j get put LAB*02 08 LAB*bj j get put} if j 737 eq {RGB*02 03 RGBCMY0*tx j get put %737 0-8-8 C 3 LAB*02 09 LAB*Lj j get put LAB*02 10 LAB*aj j get put LAB*02 11 LAB*bj j get put} if j 818 eq {RGB*02 04 RGBCMY0*tx j get put %818 0-0-8 V 4 LAB*02 12 LAB*Lj j get put LAB*02 13 LAB*aj j get put LAB*02 14 LAB*bj j get put} if j 809 eq {RGB*02 06 RGBCMY0*tx j get put %809 or 890 or 971 0-0-0 N 6 LAB*02 18 LAB*Lj j get LAB*Lj 890 get add LAB*Lj 971 get add 3 div put LAB*02 19 LAB*aj j get LAB*aj 890 get add LAB*aj 971 get add 3 div put LAB*02 20 LAB*bj j get LAB*bj 890 get add LAB*bj 971 get add 3 div put} if j 801 eq {RGB*02 00 RGBCMY0*tx j get put %801 8-0-0 O 0 LAB*02 00 LAB*Lj j get put LAB*02 01 LAB*aj j get put LAB*02 02 LAB*bj j get put} if j 882 eq {RGB*02 01 RGBCMY0*tx j get put %882 8-8-0 Y 1 LAB*02 03 LAB*Lj j get put LAB*02 04 LAB*aj j get put LAB*02 05 LAB*bj j get put} if j 899 eq {RGB*02 05 RGBCMY0*tx j get put %899 8-0-8 M 5 LAB*02 15 LAB*Lj j get put LAB*02 16 LAB*aj j get put LAB*02 17 LAB*bj j get put} if j 729 eq {RGB*02 07 RGBCMY0*tx j get put %729 or 810 or 891 8-8-8 W 7 LAB*02 21 LAB*Lj j get LAB*Lj 810 get add LAB*Lj 891 get add 3 div put LAB*02 22 LAB*aj j get LAB*aj 810 get add LAB*aj 891 get add 3 div put LAB*02 23 LAB*bj j get LAB*bj 810 get add LAB*bj 891 get add 3 div put} if } for %j=j=729,971 972 1 1079 {/j exch def %j=972,1079 %only last colours 1072 to 1079 j 1078 eq {RGB*03 02 RGBCMY0*tx j get put %1078 0-8-0 L 2 LAB*03 06 LAB*Lj j get put LAB*03 07 LAB*aj j get put LAB*03 08 LAB*bj j get put} if j 1075 eq {RGB*03 03 RGBCMY0*tx j get put %1075 0-8-8 C 3 LAB*03 09 LAB*Lj j get put LAB*03 10 LAB*aj j get put LAB*03 11 LAB*bj j get put} if j 1077 eq {RGB*03 04 RGBCMY0*tx j get put %1077 0-0-8 V 4 LAB*03 12 LAB*Lj j get put LAB*03 13 LAB*aj j get put LAB*03 14 LAB*bj j get put} if j 1072 eq {RGB*03 06 RGBCMY0*tx j get put %1072 0-0-0 N 6 LAB*03 18 LAB*Lj j get put LAB*03 19 LAB*aj j get put LAB*03 20 LAB*bj j get put} if j 1074 eq {RGB*03 00 RGBCMY0*tx j get put %1074 8-0-0 O 0 LAB*03 00 LAB*Lj j get put LAB*03 01 LAB*aj j get put LAB*03 02 LAB*bj j get put} if j 1076 eq {RGB*03 01 RGBCMY0*tx j get put %1076 8-8-0 Y 1 LAB*03 03 LAB*Lj j get put LAB*03 04 LAB*aj j get put LAB*03 05 LAB*bj j get put} if j 1079 eq {RGB*03 05 RGBCMY0*tx j get put %1079 8-0-8 M 5 LAB*03 15 LAB*Lj j get put LAB*03 16 LAB*aj j get put LAB*03 17 LAB*bj j get put} if j 1073 eq {RGB*03 07 RGBCMY0*tx j get put %1073 8-8-8 W 7 LAB*03 21 LAB*Lj j get put LAB*03 22 LAB*aj j get put LAB*03 23 LAB*bj j get put} if } for %j=j=972,1079 972 1 1079 {/j exch def %09 step N,W: j=0972,0980; 0981,0989; 0990,0998; % 0999,1007 %16 step N,W: j=1008,1023; 1024,1039; 1040,1055; % 1056,1071 %necessary for four 09-step grey scales j 0972 eq {RGB*04 06 RGBCMY0*tx j get put %0972 or 1008 0-0-0 N 6 LAB*04 18 LAB*Lj j get put LAB*04 19 LAB*aj j get put LAB*04 20 LAB*bj j get put} if j 0980 eq {RGB*04 07 RGBCMY0*tx j get put %0980 or 1023 8-8-8 W 7 LAB*04 21 LAB*Lj j get put LAB*04 22 LAB*aj j get put LAB*04 23 LAB*bj j get put} if j 0981 eq {RGB*05 06 RGBCMY0*tx j get put %0981 or 1024 0-0-0 N 6 LAB*05 18 LAB*Lj j get put LAB*05 19 LAB*aj j get put LAB*05 20 LAB*bj j get put} if j 0989 eq {RGB*05 07 RGBCMY0*tx j get put %0989 or 1039 8-8-8 W 7 LAB*05 21 LAB*Lj j get put LAB*05 22 LAB*aj j get put LAB*05 23 LAB*bj j get put} if j 0990 eq {RGB*06 06 RGBCMY0*tx j get put %0990 or 1040 0-0-0 N 6 LAB*06 18 LAB*Lj j get put LAB*06 19 LAB*aj j get put LAB*06 20 LAB*bj j get put} if j 0998 eq {RGB*06 07 RGBCMY0*tx j get put %0998 or 1055 8-8-8 W 7 LAB*06 21 LAB*Lj j get put LAB*06 22 LAB*aj j get put LAB*06 23 LAB*bj j get put} if j 0999 eq {RGB*07 06 RGBCMY0*tx j get put %0999 or 1056 0-0-0 N 6 LAB*07 18 LAB*Lj j get put LAB*07 19 LAB*aj j get put LAB*07 20 LAB*bj j get put} if j 1007 eq {RGB*07 07 RGBCMY0*tx j get put %1007 or 1071 8-8-8 W 7 LAB*07 21 LAB*Lj j get put LAB*07 22 LAB*aj j get put LAB*07 23 LAB*bj j get put} if } for %j=972,1079 %Adaptation /L*Nio LAB*07 18 get def /A*Nio LAB*07 19 get def /B*Nio LAB*07 20 get def /L*Wio LAB*07 21 get def /A*Wio LAB*07 22 get def /B*Wio LAB*07 23 get def /A*Dio A*Wio A*Nio sub def /B*Dio B*Wio B*Nio sub def 0 1 1079 {/j exch def %j=0,1079 LAB*Lja j LAB*Lj j get put /l*CIE LAB*Lj j 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 LAB*aja j LAB*aj j get A*Nio sub a*s sub put LAB*bja j LAB*bj j get B*Nio sub b*s sub put } for %j=0,1079 %} if %xcharti=2 %*********************************************************************************** /IN 27 array def /IN [0000 0001 0002 0003 0004 0005 0006 0007 0008 0243 0244 0245 0246 0247 0248 0249 0250 0251 0486 0487 0488 0489 0490 0491 0492 0493 0494] def /indx 1080 array def /RX0 44280 array def %1080x41=44280 /RX0A 44280 array def /LUTL* 48 array def /LUTA* 48 array def /LUTB* 48 array def /LUTL*a 48 array def /LUTA*a 48 array def /LUTB*a 48 array def /habton 50 array def /indton 50 array def /LNWton 50 array def /ANWton 50 array def /BNWton 50 array def /RXA 41 array def /RAA 41 array def /Xt 17 array def /Yt 17 array def /Zt 17 array def /LAB*Lt 17 array def /LAB*at 17 array def /LAB*bt 17 array def /LAB*Lta 17 array def /LAB*ata 17 array def /LAB*bta 17 array def /L*ton 5 array def /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 /RJGB16 16 array def /RJGB16 [(r00j=R) (r25j) (r50j) (r75j) (j00g=J) (j25g) (j50g) (j75g) (g00b=G) (g25b) (g50b) (g75b) (b00r=B) (b25r) (b50r) (b75r)] def /L05 5 array def /L05 [(n000w=N) (n025w) (n050w) (n075w) (n100w=W)] def /RGB*16 16 array def /RGB*16 [(1.00 0.00 0.00) (1.00 0.25 0.00) (1.00 0.50 0.00) (1.00 0.75 0.00) (1.00 1.00 0.00) (0.75 1.00 0.00) (0.50 1.00 0.00) (0.25 1.00 0.00) (0.00 1.00 0.00) (0.00 1.00 0.50) (0.00 1.00 1.00) (0.00 0.50 1.00) (0.00 0.00 1.00) (0.50 0.00 1.00) (1.00 0.00 1.00) (1.00 0.00 0.50) ] def /RGBNM*16 16 array def /RGBNW*16 [(1.00 0.00 0.00) (0.50 0.00 0.00) (1.00 0.50 0.50) () (1.00 1.00 0.00) (0.50 0.50 0.00) (1.00 1.00 0.50) () (0.00 1.00 0.00) (0.00 0.50 0.00) (0.50 1.00 0.50) () (0.00 0.00 1.00) (0.00 0.00 0.50) (0.50 0.50 1.00) ()] def /RGB*005 05 array def /RGB*005 [(0.00 0.00 0.00) (0.25 0.25 0.25) (0.50 0.50 0.50) (0.75 0.75 0.75) (1.00 1.00 1.00)] def /RJGBton 17 array def xcharti 2 le {/jN 1072 3 mul def /YNil XYZrx089 jN 1 add get def /L*Nil LAB*rc089 jN get def} if /ymax2 16000 def /ymax3 16200 def /ymax4 13850 def /ymaxton 14150 def /xdel2 700 def /xdel3 890 def /ydel2 250 def /ydel2t 300 def 0 setgray /TGT {250 /Times-ISOL1 FS} bind def /TIGT {250 /TimesI-ISOL1 FS} bind def /TBGT {250 /TimesB-ISOL1 FS} bind def /TBIGT {250 /TimesBI-ISOL1 FS} bind def /TBMT {200 /TimesB-ISOL1 FS} bind def /TBIMT {200 /TimesBI-ISOL1 FS} bind def /ishowGT {TBMT -00 -50 rmoveto show 00 50 rmoveto TBGT} bind def /RJGB0 RJGBLAB* 02 get RJGBLAB* 01 get atan def %026 /RJGB1 RJGBLAB* 05 get RJGBLAB* 04 get atan def %092 /RJGB2 RJGBLAB* 08 get RJGBLAB* 07 get atan def %162 /RJGB3 RJGBLAB* 11 get RJGBLAB* 10 get atan def %272 0 1 16 {/j exch def %i=0,16 elementary and intemediate hue angles /j0 j j 4 idiv 4 mul sub def %0,1,2,3 /b0 j0 0.25 mul def /a0 1 b0 sub def j 00 ge j 03 le and {RJGBton j a0 RJGB0 mul b0 RJGB1 mul add put} if j 04 ge j 07 le and {RJGBton j a0 RJGB1 mul b0 RJGB2 mul add put} if j 08 ge j 11 le and {RJGBton j a0 RJGB2 mul b0 RJGB3 mul add put} if j 12 ge j 15 le and {RJGBton j a0 RJGB3 mul b0 RJGB0 360 add mul add dup 360 ge {360 sub} if put} if j 16 eq {RJGBton j RJGB0 put} if } for %j=0,16 elementary and intemediate hue angles TBGT 100 ymax3 ydel2 2.2 mul add moveto (48 step circle with interpretation) showen (48\255stufiger Bunttonkreis mit Interpretation) showde TBIGT ( rgb -> olv*) show TBGT (\255Ger\344te\255Bunttonstufen von 1080 Normfarben) showde ( device hue steps of 1080 standard colours) showen TGT 0 1 5 {/xtonj exch def %xtonj=0,5 /xton 150 4180 xtonj mul add def xton 0 xdel2 mul add ymax3 ydel2t add moveto TBIGT (rgb -> olv*) show xton 2.0 xdel2 mul add ymax3 ydel2t add moveto TBIGT (h) show (ab,a) ishowGT xton 2.9 xdel2 mul add ymax3 ydel2t add moveto TBIGT (L*) show xton 3.8 xdel2 mul add ymax3 ydel2t add moveto TBIGT (a*) show (a) ishowGT xton 4.7 xdel2 mul add ymax3 ydel2t add moveto TBIGT (b*) show (a) ishowGT 0 1 7 {/j exch def %j=0,7 /itonj xtonj 8 mul j add def xtonj 0 eq {/jx 648 j 09 mul add def} if %see O00Y-O83Y, -0 xtonj 1 eq {/jx 720 j 81 mul sub def} if %see Y00L-Y83L, -81 xtonj 2 eq {/jx 072 j add def} if %see L00C-L83C, +01 xtonj 3 eq {/jx 080 j 09 mul sub def} if %see C00V-C83V, -09 xtonj 4 eq {/jx 008 j 81 mul add def} if %see C00V-C83V, -81 xtonj 5 eq {/jx 656 j sub def} if %see C00V-C83V, +01 LUTL*a j LAB*Lja jx get put LUTA*a j LAB*aja jx get put LUTB*a j LAB*bja jx get put habton itonj LUTB*a j get LUTA*a j get 0.0001 add atan put indton itonj jx 10 mul put TGT xton 0 xdel2 mul add ymax3 j ydel2 mul sub moveto RGBCMY0 jx 7 mul get 0.001 mul cvsshow2 ( ) show RGBCMY0 jx 7 mul 1 add get 0.001 mul cvsshow2 ( ) show RGBCMY0 jx 7 mul 2 add get 0.001 mul cvsshow2 xton 2.0 xdel2 mul add ymax3 j ydel2 mul sub moveto LUTB*a j get LUTA*a j get 0.00001 add atan cvsshow1 TGT xton 2.9 xdel2 mul add ymax3 j ydel2 mul sub moveto LUTL*a j get cvsshow1 xton 3.8 xdel2 mul add ymax3 j ydel2 mul sub moveto LUTA*a j get cvsshow1 xton 4.7 xdel2 mul add ymax3 j ydel2 mul sub moveto LUTB*a j get cvsshow1 } for %j=0,7 } for %xtonj=0,5 0 setgray /xton 150 def xton ymaxton moveto TBIGT (RJGB) show (ton) ishowGT TGT (, ) show RJGB0 cvsshow1 (, ) show RJGB1 cvsshow1 (, ) show RJGB2 cvsshow1 (, ) show RJGB3 cvsshow1 TBIGT ( RJGB) show (all) ishowGT (:) show TGT 0 1 15 {/j exch def %j=0,15 xton 5000 add j 750 mul add ymaxton moveto RJGBton j get cvsshow1 } for %j=0,15 TBIGT ( LAB*Nio: ) show TGT L*Nio cvsshow1 (, ) show A*Nio cvsshow1 (, ) show B*Nio cvsshow1 TBIGT ( LAB*Wio: ) show TGT L*Wio cvsshow1 (, ) show A*Wio cvsshow1 (, ) show B*Wio cvsshow1 /ymax2 13600 def TBGT 100 ymax2 ydel2 8.5 mul sub moveto (16 step elementary hue circle with intended elementary hues:) showen (16\255stufiger Elementar\255Bunttonkreis mit Ziel\255Elementar\255Buntton:) showde TBIGT ( h) show (ab,a)ishowGT TBGT ( = ) show RJGB0 cvsshow1 (, ) show RJGB1 cvsshow1 (, ) show RJGB2 cvsshow1 (, ) show RJGB3 cvsshow1 TGT 0 1 1 {/jmx exch def %jmx=0,1 /j 0 def jmx 0 eq {/jm 4 def}{/jm 20 def} ifelse %color series title text /jx 10.5 j 7 mul add def jmx 0 eq {%jmx=0 xton jm 4 sub xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (Code) show xton jm 2 sub xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (iton) show xton jm 1 sub xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (index) show } if %jmx=0 xton jm xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (X) show xton jm 1 add xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (Y) show xton jm 2 add xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (Z) show xton jm 3 add xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (x) show xton jm 4 add xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (y) show xton jm 5 add xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (L*) show xton jm 6 add xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (a*) show xton jm 7 add xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (b*) show xton jm 8 add xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (L*) show (a) ishowGT xton jm 9 add xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (a*) show (a) ishowGT xton jm 10 add xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (b*) show (a) ishowGT xton jm 10.9 add xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (C*) show (ab,a) ishowGT xton jm 12 add xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT (h) show (ab,a) ishowGT xton jm 13 add xdel2 mul add ymax2 jx ydel2 mul sub ydel2 add moveto TBIGT jmx 0 eq {(rgb -> olv*)}{(rgb -> rgb*)} ifelse show TGT } for %jmx=0,1 habton 48 habton 00 get put indton 48 indton 00 get put habton 49 habton 01 get put indton 49 indton 01 get put TGT 0 1 15 {/j exch def %j=0,15 0 1 47 {/jj exch def %jj=1,47 jj 0 eq {/habtonM habton 47 get def} {/habtonM habton jj 1 sub get def} ifelse /habton0 habton jj get def /habton1 habton jj 1 add get def /habtonP habton jj 2 add get def habton1 habton0 lt {/habton1 habton1 360 add def} if habtonP habton0 lt {/habtonP habtonP 360 add def} if RJGBton j get habton0 ge RJGBton j get habton1 lt and {/itonx jj def jj 0 eq {/habton2M habton 47 get def} {/habton2M habton jj 1 sub get def} ifelse /habton2 habton jj get def /habton3 habton jj 1 add get def /habton3P habton jj 2 add get def /xdel RJGBton j get habton0 sub habton1 habton0 sub div def jj 0 eq {/indtonM indton 47 get 10 idiv def} {/indtonM indton jj 1 sub get 10 idiv def} ifelse /indton1 indton jj get 10 idiv def /indton2 indton jj 1 add get 10 idiv def /indtonP indton jj 2 add get 10 idiv def } if } for %jj=0,47 xton j xdel3 1.75 mul mul add ymax4 moveto RJGBton j get cvsshow1 xton j xdel3 1.75 mul mul add ymax4 1 ydel2 mul sub moveto itonx cvishow xton j xdel3 1.75 mul mul add ymax4 2 ydel2 mul sub moveto habton2M cvsshow1 ( ) show habton2 cvsshow1 xton j xdel3 1.75 mul mul add ymax4 3 ydel2 mul sub moveto habton3 cvsshow1 ( ) show habton3P cvsshow1 xton j xdel3 1.75 mul mul add ymax4 4 ydel2 mul sub moveto xdel cvsshow3 xton j xdel3 1.75 mul mul add ymax4 5 ydel2 mul sub moveto indtonM cvishow ( ) show indton1 cvishow xton j xdel3 1.75 mul mul add ymax4 6 ydel2 mul sub moveto indton2 cvishow ( ) show indtonP cvishow 0 1 1079 {/jj exch def %jj=0,1079 indtonM indxi jj get eq {/indxiM jj def} if indton1 indxi jj get eq {/indxi1 jj def} if indton2 indxi jj get eq {/indxi2 jj def} if indtonP indxi jj get eq {/indxiP jj def} if } for %jj=0,1079 xton j xdel3 1.75 mul mul add ymax4 7 ydel2 mul sub moveto indxiM cvishow ( ) show indxi1 cvishow xton j xdel3 1.75 mul mul add ymax4 8 ydel2 mul sub moveto indxi2 cvishow ( ) show indxiP cvishow 0 1 1 {/indxix exch def %indxix=0,1 indxix 0 eq {/indxi0 indxi1 def} if indxix 1 eq {/indxi0 indxi2 def} if /jm 04 def /jx indxix 0 eq {11}{12} ifelse j 2 mul add def %start data indxix 0 eq { %indix0=0 xton jm 4 sub xdel2 mul add ymax2 jx ydel2 mul sub moveto TBIGT RJGB16 j get show TGT } if %indix0=0 /indti0 indxix 0 eq {indton1}{indton2} ifelse def xton jm 2 sub xdel2 mul add ymax2 jx ydel2 mul sub moveto indti0 cvishow xton jm 1 sub xdel2 mul add ymax2 jx ydel2 mul sub moveto indxi0 cvishow xton jm xdel2 mul add ymax2 jx ydel2 mul sub moveto XYZ_Xj indti0 get cvsshow1 xton jm 1 add xdel2 mul add ymax2 jx ydel2 mul sub moveto XYZ_Yj indti0 get cvsshow1 xton jm 2 add xdel2 mul add ymax2 jx ydel2 mul sub moveto XYZ_Zj indti0 get cvsshow1 xton jm 2.9 add xdel2 mul add ymax2 jx ydel2 mul sub moveto /SUMXZYt XYZ_Xj indti0 get XYZ_Yj indti0 get add XYZ_Zj indti0 get add def XYZ_Xj indti0 get SUMXZYt div 0.00001 add cvsshow3 %xton jm 3.9 add xdel2 mul add ymax2 jx ydel2 mul sub moveto XYZ_Xj indti0 get SUMXZYt div 0.00001 add cvsshow3 xton jm 5 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*Lj indti0 get cvsshow1 xton jm 6 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*aj indti0 get cvsshow1 xton jm 7 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*bj indti0 get cvsshow1 xton jm 8 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*Lja indti0 get cvsshow1 xton jm 9 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*aja indti0 get cvsshow1 xton jm 10 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*bja indti0 get cvsshow1 xton jm 11 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*aja indti0 get dup mul LAB*bja indti0 get dup mul add 0.00001 add sqrt cvsshow1 xton jm 12 add xdel2 mul add ymax2 jx ydel2 mul sub moveto TBGT LAB*bja indti0 get LAB*aja indti0 get atan cvsshow1 TGT xton jm 13 add xdel2 mul add ymax2 jx ydel2 mul sub moveto TBGT RGBCMY0 indti0 7 mul get 0.001 mul cvsshow2 (, ) show RGBCMY0 indti0 7 mul 1 add get 0.001 mul cvsshow2 (, ) show RGBCMY0 indti0 7 mul 2 add get 0.001 mul cvsshow2 TGT } for %indxix=0,1 /X1K 0.0 def /X2K 1.0 def /XIE X1K X2K add 0.5 mul def /mkubend 7 def 0 1 mkubend {/mkub exch def %mkub=0,mkubend /A1 XIE 1 XIE sub mul XIE 2 sub mul 6 div def /A2 XIE 1 add XIE 1 sub mul XIE 2 sub mul 0.5 mul def /A3 XIE 1 add XIE mul 2 XIE sub mul 0.5 mul def /A4 XIE 1 add XIE mul XIE 1 sub mul 6 div def LAB*Lta j LAB*Lja indtonM get A1 mul LAB*Lja indton1 get A2 mul add LAB*Lja indton2 get A3 mul add LAB*Lja indtonP get A4 mul add put LAB*ata j LAB*aja indtonM get A1 mul LAB*aja indton1 get A2 mul add LAB*aja indton2 get A3 mul add LAB*aja indtonP get A4 mul add put LAB*bta j LAB*bja indtonM get A1 mul LAB*bja indton1 get A2 mul add LAB*bja indton2 get A3 mul add LAB*bja indtonP get A4 mul add put %mkub mkubend eq {%mkub=mkubend xton 0.5 add xdel2 mul ymax2 11 j 2 mul add ydel2 mul sub moveto LAB*Lta j get cvishow (, ) show LAB*ata j get cvishow (, ) show LAB*bta j get cvishow % } if %mkub=mkubend LAB*Lt j LAB*Lta j get put %inverse transform /l*CIE LAB*Lt j 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 %LAB*ata j LAB*at j get A*Nio sub a*s sub put %LAB*bta j LAB*bt j get B*Nio sub b*s sub put LAB*at j LAB*ata j get a*s add A*Nio add put LAB*bt j LAB*bta j get b*s add B*Nio add put /X* {LAB*Lta j get 16 add 116 div LAB*ata j get 500 div add} bind def /Y* {LAB*Lta j get 16 add 116 div} bind def /Z* {LAB*Lta j get 16 add 116 div LAB*bta j get 200 div sub} bind def Xt j X* DecodeXYZ* XLWD65100 mul put Yt j Y* DecodeXYZ* YLWD65100 mul put Zt j Z* DecodeXYZ* ZLWD65100 mul put /habtonx LAB*bta j get LAB*ata j get atan def RJGBton j get habtonx le {/X2K XIE def} {/X1K XIE def} ifelse /XIE X1K X2K add 0.5 mul def mkub mkubend eq { %mkub=mkubend TGT /jm 20 def /jx 12 j 2 mul add def %color series mkub=7 actual data xton jm xdel2 mul add ymax2 jx ydel2 mul sub moveto Xt j get cvsshow1 xton jm 1 add xdel2 mul add ymax2 jx ydel2 mul sub moveto Yt j get cvsshow1 xton jm 2 add xdel2 mul add ymax2 jx ydel2 mul sub moveto Zt j get cvsshow1 xton jm 2.9 add xdel2 mul add ymax2 jx ydel2 mul sub moveto /SUMXZYt Xt j get Yt j get add Zt j get add def Xt j get SUMXZYt div 0.00001 add cvsshow3 xton jm 3.9 add xdel2 mul add ymax2 jx ydel2 mul sub moveto Yt j get SUMXZYt div 0.00001 add cvsshow3 xton jm 5 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*Lt j get cvsshow1 xton jm 6 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*at j get cvsshow1 xton jm 7 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*bt j get cvsshow1 xton jm 8 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*Lta j get cvsshow1 xton jm 9 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*ata j get cvsshow1 xton jm 10 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*bta j get cvsshow1 xton jm 11 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*ata j get dup mul LAB*bta j get dup mul add 0.00001 add sqrt cvsshow1 xton jm 12 add xdel2 mul add ymax2 jx ydel2 mul sub moveto TBGT LAB*bta j get LAB*ata j get atan cvsshow1 TGT xton jm 13 add xdel2 mul add ymax2 jx ydel2 mul sub moveto TBGT RGB*16 j get show TGT } if %mkub=mkubend } for %mkub=0,7 } for %j=0,15 %j=0,15 %16 hue steps %************************************************************************ %Begin 5 grey steps /ymax2 4900 def %999-1007 9 step grey scale rgb* %LAB*Lja, LAB*Lj %LAB*aja, LAB*aj %LAB*bja, LAB*bj 0 1 8 {/jj exch def %jj=0,8 %rgb-input and LAB*a-output LNWton jj LAB*Lj 999 jj add get put indton jj 999 jj add 10 mul put } for %jj=0,8 /L*N LNWton 0 get def /L*W LNWton 8 get def 0 1 4 {/j exch def %j=0,4 L*ton j L*N L*W L*N sub j 0.25 mul mul add put } for %j=0,4 TBGT 100 ymax2 ydel2 8.5 mul sub moveto (5 step equidistant grey scale with intended lightness:) showen (5\255stufige gleichabst\344ndige Graureihe mit Ziel\255Helligkeit:) showde TBIGT ( L*) show TBGT ( = ) show L*ton 0 get cvsshow1 (, ) show L*ton 1 get cvsshow1 (, ) show L*ton 2 get cvsshow1 (, ) show L*ton 3 get cvsshow1 (, ) show L*ton 4 get cvsshow1 TGT 0 1 4 {/j exch def %j=0,4 j 1 ge j 3 le and { %1<=j<=3 0 1 7 {/jj exch def %jj=0,7 jj 0 eq {/LNWtonM LNWton 0 get def} {/LNWtonM LNWton jj 1 sub get def} ifelse /LNWton0 LNWton jj get def /LNWton1 LNWton jj 1 add get def jj 7 eq {/LNWtonP LNWton 8 get def} {/LNWtonP LNWton jj 1 add get def} ifelse L*ton j get LNWton0 ge L*ton j get LNWton1 lt and {/itonx jj def %L*ton>=LNWton jj 0 eq {/LNWton2M LNWton 0 get def} {/LNWton2M LNWton jj get def} ifelse /LNWton2 LNWton jj get def /LNWton3 LNWton jj 1 add get def jj 7 eq {/LNWton3P LNWton 8 get def} {/LNWton3P LNWton jj 1 add get def} ifelse /xdel L*ton j get LNWton0 sub LNWton1 LNWton0 sub div def jj 0 eq {/indtonM indton 0 get 10 idiv def} if /indton1 indton jj get 10 idiv def /indton2 indton jj 1 add get 10 idiv def jj 7 eq {/indtonP indton jj 1 add get 10 idiv def} if } if %L*ton>=LNWton } for %jj=0,7 } %1<=j<=3 { %j=0 or j=4 j 0 eq {/LNWtonM L*ton 0 get def /LNWton2 L*ton 0 get def /itonx 0 def /LNWton3 L*ton 0 get def /LNWtonP L*ton 0 get def /xdel 0 def /LNWton2M L*ton 0 get def /LNWton3P L*ton 0 get def /indtonM 999 def /indton1 999 def /indton2 999 def /indtonP 999 def} if j 4 eq {/LNWtonM L*ton 4 get def /LNWton2 L*ton 4 get def /itonx 7 def /LNWton3 L*ton 4 get def /LNWtonP L*ton 4 get def /xdel 0 def /LNWton2M L*ton 4 get def /LNWton3P L*ton 4 get def /indtonM 1007 def /indton1 1007 def /indton2 1007 def /indtonP 1007 def} if } ifelse %1<=j<=3, %j=0 or j=4 /indxiM indtonM def /indxi1 indton1 def /indxi2 indton2 def /indxiP indtonP def xton 100 sub ymax2 10 j 2 mul add ydel2 mul sub moveto TBIGT L05 j get show TGT 0 1 1 {/indxix exch def %indxix=0,1 indxix 0 eq {/indxi0 indxi1 def} if indxix 1 eq {/indxi0 indxi2 def} if TGT /jm 04 def /jx indxix 0 eq {10}{11} ifelse j 2 mul add def %start data /indti0 indxix 0 eq {indton1}{indton2} ifelse def xton jm 2 sub xdel2 mul add ymax2 jx ydel2 mul sub moveto indti0 cvishow xton jm 1 sub xdel2 mul add ymax2 jx ydel2 mul sub moveto indxi0 cvishow xton jm xdel2 mul add ymax2 jx ydel2 mul sub moveto XYZ_Xj indti0 get cvsshow1 xton jm 1 add xdel2 mul add ymax2 jx ydel2 mul sub moveto XYZ_Yj indti0 get cvsshow1 xton jm 2 add xdel2 mul add ymax2 jx ydel2 mul sub moveto XYZ_Zj indti0 get cvsshow1 xton jm 2.9 add xdel2 mul add ymax2 jx ydel2 mul sub moveto /SUMXZYt XYZ_Xj indti0 get XYZ_Yj indti0 get add XYZ_Zj indti0 get add 0.00001 add def XYZ_Xj indti0 get SUMXZYt div 0.00001 add cvsshow3 xton jm 3.9 add xdel2 mul add ymax2 jx ydel2 mul sub moveto XYZ_Xj indti0 get SUMXZYt div 0.00001 add cvsshow3 xton jm 5 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*Lj indti0 get cvsshow1 xton jm 6 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*aj indti0 get cvsshow1 xton jm 7 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*bj indti0 get cvsshow1 xton jm 8 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*Lja indti0 get cvsshow1 xton jm 9 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*aja indti0 get cvsshow1 xton jm 10 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*bja indti0 get cvsshow1 xton jm 11 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*aja indti0 get dup mul LAB*bja indti0 get dup mul add 0.00001 add sqrt cvsshow1 xton jm 12 add xdel2 mul add ymax2 jx ydel2 mul sub moveto TBGT LAB*bja indti0 get LAB*aja indti0 get 0.00001 add atan cvsshow1 TGT xton jm 13 add xdel2 mul add ymax2 jx ydel2 mul sub moveto TBGT RGBCMY0 indti0 7 mul get 0.001 mul cvsshow2 (, ) show RGBCMY0 indti0 7 mul 1 add get 0.001 mul cvsshow2 (, ) show RGBCMY0 indti0 7 mul 2 add get 0.001 mul cvsshow2 TGT } for %indxix=0,1 %STOP3 /X1K 0.0 def /X2K 1.0 def /XIE X1K X2K add 0.5 mul def /mkubend 7 def 0 1 mkubend {/mkub exch def %mkub=0,mkubend /A1 XIE 1 XIE sub mul XIE 2 sub mul 6 div def /A2 XIE 1 add XIE 1 sub mul XIE 2 sub mul 0.5 mul def /A3 XIE 1 add XIE mul 2 XIE sub mul 0.5 mul def /A4 XIE 1 add XIE mul XIE 1 sub mul 6 div def LAB*Lta j LAB*Lja indtonM get A1 mul LAB*Lja indton1 get A2 mul add LAB*Lja indton2 get A3 mul add LAB*Lja indtonP get A4 mul add put LAB*ata j LAB*aja indtonM get A1 mul LAB*aja indton1 get A2 mul add LAB*aja indton2 get A3 mul add LAB*aja indtonP get A4 mul add put LAB*bta j LAB*bja indtonM get A1 mul LAB*bja indton1 get A2 mul add LAB*bja indton2 get A3 mul add LAB*bja indtonP get A4 mul add put LAB*Lt j LAB*Lta j get put %inverse transform /l*CIE LAB*Lt j 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 %LAB*ata j LAB*at j get A*Nio sub a*s sub put %LAB*bta j LAB*bt j get B*Nio sub b*s sub put LAB*at j LAB*ata j get a*s add A*Nio add put LAB*bt j LAB*bta j get b*s add B*Nio add put /X* {LAB*Lta j get 16 add 116 div LAB*ata j get 500 div add} bind def /Y* {LAB*Lta j get 16 add 116 div} bind def /Z* {LAB*Lta j get 16 add 116 div LAB*bta j get 200 div sub} bind def Xt j X* DecodeXYZ* XLWD65100 mul put Yt j Y* DecodeXYZ* YLWD65100 mul put Zt j Z* DecodeXYZ* ZLWD65100 mul put /LNWtonx LAB*Lta j get def L*ton j get LNWtonx le {/X2K XIE def} {/X1K XIE def} ifelse /XIE X1K X2K add 0.5 mul def mkub mkubend eq { %mkub=mkubend TGT /jm 20 def /jx 11 j 2 mul add def %grey series xton jm xdel2 mul add ymax2 jx ydel2 mul sub moveto Xt j get cvsshow1 xton jm 1 add xdel2 mul add ymax2 jx ydel2 mul sub moveto Yt j get cvsshow1 xton jm 2 add xdel2 mul add ymax2 jx ydel2 mul sub moveto Zt j get cvsshow1 xton jm 2.9 add xdel2 mul add ymax2 jx ydel2 mul sub moveto /SUMXZYt Xt j get Yt j get add Zt j get add 0.00001 add def Xt j get SUMXZYt div cvsshow3 xton jm 3.9 add xdel2 mul add ymax2 jx ydel2 mul sub moveto Yt j get SUMXZYt div cvsshow3 xton jm 5 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*Lt j get cvsshow1 xton jm 6 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*at j get cvsshow1 xton jm 7 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*bt j get cvsshow1 xton jm 8 add xdel2 mul add ymax2 jx ydel2 mul sub moveto TBGT LAB*Lta j get cvsshow1 TGT xton jm 9 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*ata j get cvsshow1 xton jm 10 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*bta j get cvsshow1 xton jm 11 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*ata j get dup mul LAB*bta j get dup mul add 0.00001 add sqrt cvsshow1 xton jm 12 add xdel2 mul add ymax2 jx ydel2 mul sub moveto LAB*bta j get LAB*ata j get 0.00001 add atan cvsshow1 xton jm 13 add xdel2 mul add ymax2 jx ydel2 mul sub moveto TBGT RGB*005 j get show TGT } if %mkub=mkubend } for %mkub=0,7 } for %j=0,4 showpage grestore } for %xcharti=0,10 %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 KG130-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 (KG130-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 KG131-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 (KG131-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 KG131-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 (KG131-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 KG131-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 (KG131-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 KG131-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 (KG131-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 KG131-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 (KG131-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 KG131-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 (KG131-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 251 MM 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 KG131-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 (KG131-7,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 KG131-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 (KG131-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20090101 %%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 /xchartx xchartg def} {/xchartx 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 /xcharti xchartx 3 add def %LAB*ioL, ColSep*ioL, and procedures (*ioL) are only in Y10-7N.EPS %proc_LAB*ioG, proc_ColSep*ioG, and procedures (*ioG) are only in KG13L0NP.PS6.PS and OUTLIN1X %for colorm=0, default rgb/cmyk-values are used for Frame %for colorm=1, rgb/cmyk-values of proc_LAB*ioG, proc_ColSep*ioG are used for Frame %for colorm=0, rgb/cmyk-values of LAB*ioL, ColSep*ioL are used in Y10-7N %for colorm=1, rgb/cmyk-values of proc_LAB*ioG, proc_ColSep*ioG are used in Y10-7N %for consistancy use same procedures in Y10-7N and KG13L0NP.PS6.PS colorm 1 eq {proc_LAB*ioG proc_ColSep*ioG} if %LAB*ioL, ColSep*ioL only in Y10-7! 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 /xt 1 def %xcharti 0 le {/xt 1 def} {/xt 0 def} ifelse %without/with frame xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def %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 3.0 MM /Times-ISOL1 FS xx i0 get MM 90 MM add yy i0 get MM 0 MM sub moveto (http://130.149.60.45/~farbmetrik/KG13/KG13L) show (0) show LSC$ show LEX$ show (, Page ) showen (, Seite ) showde xcharti 1 add cvishow (/24) show (; ) show LAB*TE 0 get show (; cf1=1.00; nt=0.01; nx=1.3) show } %xt=0 { %xt=1 /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 /Lrefl 11 array def /Lrefl [(2,5%) (2,5%) (2,5%) (2,5%) (0,6%) (1,2%) (2,5%) (5%) (12,5%) (22,5%) (42,5%)] def 0 setgray 12 /Times-ISOL1 FS 61 MM 13 MM moveto (TUB\255Pr\374fvorlage KG13; CIE\255Daten: sRGB\255Display) showde (TUB\255test chart KG13; CIE data of sRGB display) showen 12 /TimesI-ISOL1 FS ( Lr=) show 12 /Times-ISOL1 FS Lrefl xcharti 3 sub get show 61 MM 09 MM moveto (16\255stufiger Elementarbunttonkreis und 5 Graustufen) showde (16 steps of elementary hue circle and 5 grey steps) showen 0 setgray 12 /Times-ISOL1 FS 168 MM 13 MM moveto ( input: ) showen (Eingabe: ) showde 12 /TimesI-ISOL1 FS (w setgray ) show 12 /Times-ISOL1 FS 168 MM 9 MM moveto ( output: ) showen (Ausgabe: ) showde LSC$ (N) eq {%LSC$=N 12 /Times-ISOL1 FS xcharti 0 eq {(no change compared to input) showen (keine Eingabe\344nderung) showde} {12 /TimesI-ISOL1 FS (->olv* setrgbcolor) show 12 /Times-ISOL1 FS} ifelse } if %LSC$=N LSC$ (S) eq { (Startup (S) data dependend) showen (Startup(S)Daten abh\344ngig) showde } if LSC$ (F) eq { 12 /TimesI-ISOL1 FS i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if i*ptrsc 1 eq {xcharti 0 eq {12 /Times-ISOL1 FS (no change compared to input) showen (keine Eingabe\344nderung) showde } {(->LAB*->olv* setrgb) show } ifelse } if i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if i*ptrsc 4 eq {(lab* setcolor) show} if i*ptrsc 5 eq {(LAB* setcolor) show} if i*ptrsc 6 eq {(000n* setcmykcolor) show} if i*ptrsc 7 eq {(w* setgray) show} if } if %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/KG13/KG13L) show (0) show LSC$ show LEX$ show (; ) show LAB*TE 0 get show %1 setgray %start white and unvisible %(; ) show %LSC$ (N) eq { %xcharti 0 eq {(Start\255Ausgabe) showde (start output) showen} % {(Transfer und Ausgabe) showde (transfer and output) showen} ifelse %(start) showes %(start) showfr %(start) showit %(start) showjp %(start) showm % } if %LSC$ (C) eq { %(Start) showde %(start) showen %(start) showes %(start) showfr %(start) showit %(start) showjp %(start) showm % } if %LSC$ (F) eq { %xcharti 0 eq {(Start\255Ausgabe) showde (start output) showen} % {(Linearisierte Ausgabe) showde (linearized output) showen} ifelse %(linearized) showes %(linearized) showfr %(linearized) showit %(linearized) showjp %(linearized) showm % } if 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 %(KG13/KG13L) 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 %xcharti 2 ge xcharti 5 le and {(; Separation: ) show % tzcolv* setrgbcolor (c) show % tzmolv* setrgbcolor (m) show % tzyolv* setrgbcolor (y) show % tznolv* setrgbcolor (n) show % LSC$ (F) eq {tznolv* setrgbcolor (*) show} if % } if %0 setgray %end white and unvisible (, Page ) showen (, Seite ) showde (1/1) show 16 MM 185 MM moveto -90 rotate (Siehe Original/Kopie: ) showde (See original or copy: ) showen (http://web.me.com/klaus.richter/KG13/KG13L) 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: 20100301\255KG13/KG13L) showde (TUB registration: 20100301\255KG13/KG13L) 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 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 xcharti=0 %/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 } ifelse %xt=0,1 ifelse %} 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 pcountg=pcountg1,pcount2g %} for %end for scountg=scountg1,scount2g %%Trailer