%!PS-Adobe-3.0 EPSF-3.0 AGF30-5N.PS, compare ISO 9241-306:2018 A(E/F/G)39 %%BoundingBox: 70 85 240 206 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /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: farbe.li.tu-berlin.de/AGF3/AGF3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2020020112000) /ModDate (D:2020020112000) /DOCINFO pdfmark01 [ /View [ /Fit ] /DOCVIEW pdfmark01 %END PDFDE011 %BEG AGF3 EARLY BINDING IMAGE FILE (G) 1MR-0000F 200301 %BEG 1MR-0000F.TXT, 1MR & relative gamma change 200301 /gammaFi 15 array def /gammaFi %rel. gamma according to ISO 9241-306:2018 [0.475 0.550 0.625 0.700 0.775 0.849 0.924 1.000 1.081 1.176 1.290 1.428 1.600 1.818 2.105] def /1MR-0000F {%BEG procedure 1MR-0000F /FF_LM_setgrayF0 {setgray} bind def /FF_LM_setrgbcolorF0 {setrgbcolor} bind def /FF_LM_setcmykcolorF0 {setcmykcolor} bind def /FF_LM_transferF0 {settransfer} bind def /FF_LM_colortransferF0 {setcolortransfer} bind def /FF_LM_xchartg_gammaF {gammaFi xchart get exp} def /FF_LM_setrgbcolorF {%BEG FF_LM_setrgbcolorF /FF_LM_b0L exch def /FF_LM_g0L exch def /FF_LM_r0L exch def FF_LM_r0L 0 le {/FF_LM_r0L 0.0001 def} if FF_LM_g0L 0 le {/FF_LM_g0L 0.0001 def} if FF_LM_b0L 0 le {/FF_LM_b0L 0.0001 def} if /FF_LM_r1F FF_LM_r0L FF_LM_xchartg_gammaF def /FF_LM_g1F FF_LM_g0L FF_LM_xchartg_gammaF def /FF_LM_b1F FF_LM_b0L FF_LM_xchartg_gammaF def FF_LM_r1F FF_LM_g1F FF_LM_b1F FF_LM_setrgbcolorF0} def %END FF_LM_setrgbcolorF /setgray {%BEG procedure setgrayF dup dup FF_LM_setrgbcolorF %STOPs } def %END procedure setgrayF %part2 /setcmykcolor {%BEG procedure setcmykcolorF /FF_LM_k exch def /FF_LM_y exch def /FF_LM_m exch def /FF_LM_c exch def FF_LM_k 0 eq {1 FF_LM_c sub 1 FF_LM_m sub 1 FF_LM_y sub FF_LM_setrgbcolorF} {1 FF_LM_k sub dup dup FF_LM_setrgbcolorF} ifelse %STOPc } def %END procedure setcmykcolorF /setrgbcolor {%BEG procedure setrgbcolorF /FF_LM_b exch def /FF_LM_g exch def /FF_LM_r exch def FF_LM_r FF_LM_g FF_LM_b FF_LM_setrgbcolorF %STOPr } def %BEG procedure setrgbcolorF /FF_LM_transferF {%BEG FF_LM_transferF {FF_LM_xchartg_gammaF} FF_LM_transferF0} def %END FF_LM_transferF /settransfer {FF_LM_transferF} def /FF_LM_colortransferF {%BEG FF_LM_colortransferF {FF_LM_xchartg_gammaF} {FF_LM_xchartg_gammaF} {FF_LM_xchartg_gammaF} FF_LM_colortransferF0} def %END FF_LM_colortransferF /setcolortransfer {FF_LM_colortransferF} def } def %END procedure 1MR-0000F /iproc1MR 1 def %/1MR-0000G where {pop 1MR-0000G}{1MR-0000F} ifelse iproc1MR 1 eq {1MR-0000F} if %1MR-0000G %END 1MR-0000F.TXT, 1MR & relative gamma change 200301 %END AGF3 EARLY BINDING IMAGE FILE (G) 1MR-0000F 200301 %****************************************************************** /xchart1f 03 def /xchart2f 03 def /xchartdf 01 def /xchartmf 08 def /xchartf xchart1f def %****************************************************************** /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} 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 /LAB*ioL {%BEG Procedure LAB*ioL (L=local) %requires ISRL*ioL=0,1,3 /RJGBLAB* 12 array def /RJGBLAB*[ 39.92 58.74 27.99 % R CIE No.09 elementary colours in LAB, D65 81.26 -2.89 71.56 % J CIE No.10 52.23 -42.42 13.60 % G CIE No.11 30.57 1.41 -46.47 % B CIE No.12 ] def /LAB* 36 array def /LAB*a 36 array def /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 ISRL*ioL 0 eq { %ISRL*ioL=0 /LAB*00 [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS18) 47.94 65.31 52.07 %O 0 90.37 -11.16 96.17 %Y 1 50.90 -62.97 36.71 %L 2 58.62 -30.63 -42.75 %C 3 %see TABle 1 of ISO/IEC 15775:1999-12 25.72 31.45 -44.36 %V 4 48.13 75.20 -6.80 %M 5 18.01 0.50 -0.47 %N 7 95.41 -0.99 4.76 %W 8 ] 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*ioL=0 ISRL*ioL 1 eq { %ISRL*ioL=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*ioL=1 ISRL*ioL 2 eq { %ISRL*ioL=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*ioL=2 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def sISO 7 le { %sISO=0,7 ISIO*ioL 0 eq { %ORS18/TLS00/OLS00 LAB* i30 LAB*00 i30 get put LAB* i31 LAB*00 i31 get put LAB* i32 LAB*00 i32 get put } if ISIO*ioL 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*ioL 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*ioL 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*ioL 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*ioL 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*ioL 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*ioL 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 /jISO sISO 8 sub def /j30 jISO 3 mul def /j31 j30 1 add def /j32 j30 2 add def LAB* i30 RJGBLAB* j30 get put LAB* i31 RJGBLAB* j31 get put LAB* i32 RJGBLAB* j32 get put } ifelse %sISO=0,7 and 8,11 } for /L*Nio LAB* 18 get def /A*Nio LAB* 19 get def /B*Nio LAB* 20 get def /L*Wio LAB* 21 get def /A*Wio LAB* 22 get def /B*Wio LAB* 23 get def /A*Dio A*Wio A*Nio sub def /B*Dio B*Wio B*Nio sub def 0 1 11 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def LAB*a i30 LAB* i30 get put /l*CIE LAB* i30 get L*Nio sub L*Wio L*Nio sub div def %system rel. lightn. /a*s A*Wio A*Nio sub l*CIE mul def /b*s B*Wio B*Nio sub l*CIE mul def LAB*a i31 LAB* i31 get A*Nio sub a*s sub put LAB*a i32 LAB* i32 get B*Nio sub b*s sub put } for /cLAB*s0 3 array def %C cyan blue /vLAB*s0 3 array def %V violet blue /mLAB*s0 3 array def %M magenta red /oLAB*s0 3 array def %O orange red /yLAB*s0 3 array def %Y yellow /lLAB*s0 3 array def %L leaf green /nLAB*s0 3 array def %N black /wLAB*s0 3 array def %W white /rLAB*s0 3 array def %R elementary red /jLAB*s0 3 array def %J elementary yellow /gLAB*s0 3 array def %G elementary green /bLAB*s0 3 array def %B elementary blue %Determine Matrix data input or output data oLAB*s0 0 LAB*a 0 get L*Nio sub put oLAB*s0 1 LAB*a 1 get put oLAB*s0 2 LAB*a 2 get put yLAB*s0 0 LAB*a 3 get L*Nio sub put yLAB*s0 1 LAB*a 4 get put yLAB*s0 2 LAB*a 5 get put lLAB*s0 0 LAB*a 6 get L*Nio sub put lLAB*s0 1 LAB*a 7 get put lLAB*s0 2 LAB*a 8 get put cLAB*s0 0 LAB*a 9 get L*Nio sub put cLAB*s0 1 LAB*a 10 get put cLAB*s0 2 LAB*a 11 get put vLAB*s0 0 LAB*a 12 get L*Nio sub put vLAB*s0 1 LAB*a 13 get put vLAB*s0 2 LAB*a 14 get put mLAB*s0 0 LAB*a 15 get L*Nio sub put mLAB*s0 1 LAB*a 16 get put mLAB*s0 2 LAB*a 17 get put nLAB*s0 0 LAB*a 18 get L*Nio sub put nLAB*s0 1 LAB*a 19 get put nLAB*s0 2 LAB*a 20 get put wLAB*s0 0 LAB*a 21 get L*Nio sub put wLAB*s0 1 LAB*a 22 get put wLAB*s0 2 LAB*a 23 get put rLAB*s0 0 LAB*a 24 get L*Nio sub put rLAB*s0 1 LAB*a 25 get put rLAB*s0 2 LAB*a 26 get put jLAB*s0 0 LAB*a 27 get L*Nio sub put jLAB*s0 1 LAB*a 28 get put jLAB*s0 2 LAB*a 29 get put gLAB*s0 0 LAB*a 30 get L*Nio sub put gLAB*s0 1 LAB*a 31 get put gLAB*s0 2 LAB*a 32 get put bLAB*s0 0 LAB*a 33 get L*Nio sub put bLAB*s0 1 LAB*a 34 get put bLAB*s0 2 LAB*a 35 get put % Determine the input or output angle in the A* B* plane % of each of the colours defined above /C*Ang cLAB*s0 2 get cLAB*s0 1 get 0.0001 add atan def /V*Ang vLAB*s0 2 get vLAB*s0 1 get 0.0001 add atan def /M*Ang mLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /O*Ang oLAB*s0 2 get oLAB*s0 1 get 0.0001 add atan def /Y*Ang yLAB*s0 2 get yLAB*s0 1 get 0.0001 add atan def /L*Ang lLAB*s0 2 get mLAB*s0 1 get 0.0001 add atan def /N*Ang 0 def /W*Ang 0 def /R*Ang rLAB*s0 2 get rLAB*s0 1 get 0.0001 add atan def /J*Ang jLAB*s0 2 get jLAB*s0 1 get 0.0001 add atan def /G*Ang gLAB*s0 2 get gLAB*s0 1 get 0.0001 add atan def /B*Ang bLAB*s0 2 get bLAB*s0 1 get 0.0001 add atan def % The detprocL below finds the determinant of the Matrix: % | A1 B1 C1 D1 | % | A2 B2 C2 D2 | % | A3 B3 C3 D3 | % | A4 B4 C4 D4 | % /detprocL { %BEG procedure detprocL /term1 B2 C3 mul D4 mul C2 D3 mul B4 mul add D2 B3 mul C4 mul add B4 C3 mul D2 mul sub C4 D3 mul B2 mul sub D4 B3 mul C2 mul sub def /term2 A2 C3 mul D4 mul C2 D3 mul A4 mul add D2 A3 mul C4 mul add A4 C3 mul D2 mul sub C4 D3 mul A2 mul sub D4 A3 mul C2 mul sub def /term3 A2 B3 mul D4 mul B2 D3 mul A4 mul add D2 A3 mul B4 mul add A4 B3 mul D2 mul sub B4 D3 mul A2 mul sub D4 A3 mul B2 mul sub def /term4 A2 B3 mul C4 mul B2 C3 mul A4 mul add C2 A3 mul B4 mul add A4 B3 mul C2 mul sub B4 C3 mul A2 mul sub C4 A3 mul B2 mul sub def /det A1 term1 mul B1 term2 mul sub C1 term3 mul add D1 term4 mul sub def } bind def %END procedure detprocL % The CoeffprocL procedure solves for WhiteCoeff, black Coeff, Col1Coeff and % Col2Coeff in the matrix equation below. It takes as inputs A1->A4 B1->B4 % C1->C4 D1->D4 and s,y,z,t. It solves for these using Cramer's rule. % Note: Cramer's rule is valid only for non-singular matrices, ie |A| not % equal to 0. % % | A1 B1 C1 D1 | |WhiteCoeff| |x| % | A2 B2 C2 D2 | |BlackCoeff| = |y| % | A3 B3 C3 D3 | |Col1Coeff | |z| % | A4 B4 C4 D4 | |Col2Coeff | |t| % A B = C % /CoeffprocL { %BEG procedure CoeffprocL /t exch def /z exch def /y exch def /x exch def /D4 exch def /D3 exch def /D2 exch def /D1 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def /B4 exch def /B3 exch def /B2 exch def /B1 exch def /A4 exch def /A3 exch def /A2 exch def /A1 exch def detprocL /den det def % determine white coefficient /temp1 A1 def /temp2 A2 def /temp3 A3 def /temp4 A4 def /A1 x def /A2 y def /A3 z def /A4 t def detprocL /numW det def /A1 temp1 def /A2 temp2 def /A3 temp3 def /A4 temp4 def % determine black coefficient /temp1 B1 def /temp2 B2 def /temp3 B3 def /temp4 B4 def /B1 x def /B2 y def /B3 z def /B4 t def detprocL /numB det def /B1 temp1 def /B2 temp2 def /B3 temp3 def /B4 temp4 def % determine colour1 coefficient /temp1 C1 def /temp2 C2 def /temp3 C3 def /temp4 C4 def /C1 x def /C2 y def /C3 z def /C4 t def detprocL /numCol1 det def /C1 temp1 def /C2 temp2 def /C3 temp3 def /C4 temp4 def % determine colour2 coefficient /temp1 D1 def /temp2 D2 def /temp3 D3 def /temp4 D4 def /D1 x def /D2 y def /D3 z def /D4 t def detprocL /numCol2 det def /D1 temp1 def /D2 temp2 def /D3 temp3 def /D4 temp4 def /WhiteCoeff numW den div def /BlackCoeff numB den div def /Col1Coeff numCol1 den div def /Col2Coeff numCol2 den div def WhiteCoeff BlackCoeff Col1Coeff Col2Coeff % returns these *color data } bind def %BEG procedure CoeffprocL } def %END Procedure LAB*ioL %*********************************************************** /cmyolv*io_to_LAB*ioL { %BEG Procedure transfer cmyolv*io_to_LAB*ioL %input olv* for IMODE=0 and cmy* for IMODE=1 %the following calculations based on olv* %Procedure LAB*inoutL is required in advance IMODE 1 eq {%IMODE=1, input cmy* /o* 1 c* sub def /l* 1 m* sub def /v* 1 y* sub def } if %skip of olv* data <0 and >1 o* 0 le {/o* 0.0001 def} if l* 0 le {/l* 0.0001 def} if v* 0 le {/v* 0.0001 def} if o* 1 ge {/o* 0.9999 def} if l* 1 ge {/l* 0.9999 def} if v* 1 ge {/v* 0.9999 def} if %output olv* and cmy* for both olv* and cmy* input %n*n: relative blackness %r*n: relative chromaticness %w*n: relative whiteness %L*F: CIE lightness L* %A*F: CIE chromaticness a* %B*F: CIE chromaticness b* %C*F: CIE radial chroma Cab* %x*F: x-position of colour F %y*F: y-position of colour F %e*w: eigencolour value of F o* 0 le {/o* 0.0001 def} if l* 0 le {/l* 0.0001 def} if v* 0 le {/v* 0.0001 def} if o* 1 ge {/o* 0.9999 def} if l* 1 ge {/l* 0.9999 def} if v* 1 ge {/v* 0.9999 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 {/w*n o* def /n*n 1 v* sub def /t*a v* l* sub def /array1 vLAB*s0 def % colour 1 is violet blue /t*b l* o* sub def /array2 cLAB*s0 def % colour 2 is cyan blue /i*p 0 def o* l* sub abs 0.001 le {/i*p 1 def} if /t*p l* l* v* add 0.0001 add div 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 {/w*n l* def /n*n 1 v* sub def /t*a v* o* sub def /array1 vLAB*s0 def % colour 1 is violet blue /t*b o* l* sub def /array2 mLAB*s0 def % colour 2 is magenta red /i*p 1 def v* o* sub abs 0.001 le {/i*p 2 def} if /t*p o* o* v* add 0.0001 add div 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 {/w*n l* def /n*n 1 o* sub def /t*a o* v* sub def /array1 oLAB*s0 def % colour 1 is orange /t*b v* l* sub def /array2 mLAB*s0 def % colour 2 is magenta red /i*p 2 def l* v* sub abs 0.001 le {/i*p 3 def} if /t*p v* v* o* add 0.0001 add div 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 {/w*n v* def /n*n 1 o* sub def /t*a o* l* sub def /array1 oLAB*s0 def % colour 1 is orange red /t*b l* v* sub def /array2 yLAB*s0 def % colour 2 is yellow /i*p 3 def o* l* sub abs 0.001 le {/i*p 4 def} if /t*p l* l* o* add 0.0001 add div 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 {/w*n v* def /n*n 1 l* sub def /t*a l* o* sub def /array1 lLAB*s0 def % colour 1 is leaf green /t*b o* v* sub def /array2 yLAB*s0 def % colour 2 is yellow /i*p 4 def o* v* sub abs 0.001 le {/i*p 5 def} if /t*p o* o* l* add 0.0001 add div 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 {/w*n o* def /n*n 1 l* sub def /t*a l* v* sub def /array1 lLAB*s0 def % colour 1 is leaf green /t*b v* o* sub def /array2 cLAB*s0 def % colour 2 is cyan blue /i*p 5 def l* v* sub abs 0.001 le {/i*p 0 def} if /t*p v* v* l* add 0.0001 add div 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 {/i*p 6 def %W /e*w 0 def /n*n 0 def /w*n 1 def /t*a 0.0001 def /t*b 0.0001 def /t*p 0.0001 def } 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 {/i*p 6 def %N /e*w 0 def /n*n 1 def /w*n 0 def /t*a 0.0001 def /t*b 0.0001 def /t*p 0.0001 def } if %Achromatic o* l* sub abs 0.001 le l* v* sub abs 0.001 le and %Achromatic special case {/i*p 6 def %N /e*w 0 def /n*n 1 o* sub def /w*n o* def /t*a 0.0001 def /t*b 0.0001 def /t*p 0.0001 def } if /r*n 1 w*n sub n*n sub def /t*n 1 t*p sub def %w0-line of equal relative whiteness in colour triangle: y = 0.5 / h x + yw0 %n0-line of equal relative blackness in colour triangle: y = -0.5 / h x + yn0 %x*F = (yn0 - yw0) h %y*F = 0.5 (yn0 - yw0) + yw0 = 0.5 (yn0 + yw0) /h 0.75 sqrt def /yn0 1 n*n sub def /yw0 w*n def /x*F yn0 yw0 sub h mul def /y*F yn0 yw0 add 0.5 mul def /t*F y*F def /lab*tFa t*F def /lab*cFa r*n def /lab*wFa w*n def /lab*nFa n*n def %x*F / (1-y*F) = e*x / 1 %e*w = e*x /(2h) = [x*F / (1-y*F)]/(2h) %/e*w x*F 1 y*F sub div 2 h mul div def /e*w r*n n*n r*n add 0.0001 add div def %Eigencolor ratio r*n abs 0.001 le r*n abs 0.001 le and {/e*w 0.0001 def} if % with 0 for achromatic (c*n=0) and 1 for whitish colors (n*n=0) %cmyolv*_to_cmy* /c* 1 o* sub def /m* 1 l* sub def /y* 1 v* sub def %cmyolv*_to_LAB*LFs0 %L*Fs0 = w*n wLAB*s0 (0) + n*n nLAB*s0 (0) + t*a array1(0) + t*b array2(0) %A*Fs0 = w*n wLAB*s0 (1) + n*n nLAB*s0 (1) + t*a array1(1) + t*b array2(1) %B*Fs0 = w*n wLAB*s0 (2) + n*n nLAB*s0 (2) + t*a array1(2) + t*b array2(2) /L*Fs0 w*n wLAB*s0 0 get mul n*n nLAB*s0 0 get mul add t*a array1 0 get mul add t*b array2 0 get mul add def /A*Fs0 w*n wLAB*s0 1 get mul n*n nLAB*s0 1 get mul add t*a array1 1 get mul add t*b array2 1 get mul add def /B*Fs0 w*n wLAB*s0 2 get mul n*n nLAB*s0 2 get mul add t*a array1 2 get mul add t*b array2 2 get mul add def /L*Fsm t*a array1 0 get mul t*b array2 0 get mul add L*Nio add def %LAB*Fs0_to_LAB*F /L*F L*Fs0 L*Nio add def /l*CIE L*F L*Nio sub L*Wio L*Nio sub 0.0001 add div def /A*F A*Fs0 A*Nio add A*Dio l*CIE mul add def /B*F B*Fs0 B*Nio add B*Dio l*CIE mul add def /lab*lFa l*CIE def /LAB*LF L*F def /LAB*AF A*F def /LAB*BF B*F def /LAB*LFa L*F def /LAB*AFa A*Fs0 def /LAB*BFa B*Fs0 def %FOR CIELAB LCH /C*Fs0 A*Fs0 dup mul B*Fs0 dup mul add 0.000001 add sqrt def /H*Fs0 B*Fs0 A*Fs0 0.0001 add atan def /LAB*CFa C*Fs0 def /LAB*HFa H*Fs0 def /lab*hFa LAB*HFa 360 div def } bind def %END Procedure transfer cmyolv*io_to_LAB*ioL (L=local) /LAB*io_to_cmyolv*ioL {%BEG Procedure LAB*io_to_cmyolv*ioL (L=local) /B*F exch def /A*F exch def /L*F exch def %ISIO*ioL 0 eq ISOUP*ioL 3 eq and % {%achromatic transfer L*F,A*F,B*F (PR18) % % -> L*Fsa, A*Fsa, B*Fsa (PR18) % % -> L*F, A*F, B*F (TV18) % %LAB*F_to_LAB*Fsa % /l*CIE L*F L*Nio sub L*Wio L*Nio sub 0.0001 add div def % /A*Fs0 A*F A*Nio sub A*Dio l*CIE mul sub def % /B*Fs0 B*F B*Nio sub B*Dio l*CIE mul sub def % /A*F A*Fs0 def % /B*F B*Fs0 def % } if %achromatic transfer L*F,A*F,B*F (PR18) /l*CIE L*F L*Nio sub L*Wio L*Nio sub 0.0001 add div def /L*Fs0 L*F L*Nio sub def /A*Fs0 A*F A*Nio sub A*Dio l*CIE mul sub def /B*Fs0 B*F B*Nio sub B*Dio l*CIE mul sub def /C*Fs0 A*Fs0 dup mul B*Fs0 dup mul add 0.000001 add sqrt def /H*Fs0 B*Fs0 A*Fs0 0.0001 add atan def /LAB*LF L*F def /LAB*AF A*F def /LAB*BF B*F def /LAB*LFa L*F def /LAB*AFa A*Fs0 def /LAB*BFa B*Fs0 def % the angle formed by the input LAB* *color data in the A*B* plane /col_ang B*Fs0 A*Fs0 0.0001 add atan def %determine which two colours the LAB* *color data corresponds to %by testing the angles and solve the related four simultaneous equations %to find the olv *color data. % angle between magenta red and orange red, sector M-O of M-Y, M>=Y col_ang M*Ang ge col_ang O*Ang lt or {1 wLAB*s0 0 get wLAB*s0 1 get wLAB*s0 2 get 1 nLAB*s0 0 get nLAB*s0 1 get nLAB*s0 2 get 1 mLAB*s0 0 get mLAB*s0 1 get mLAB*s0 2 get 1 oLAB*s0 0 get oLAB*s0 1 get oLAB*s0 2 get 1 L*Fs0 A*Fs0 B*Fs0 CoeffprocL /c1*w exch def %O /c2*w exch def %M /n*w exch def /w*w exch def %magenta is a mixture of orange red and voilet blue, therefore leaf green(l) = white, %orange(o) = 1-black(n), voilet blue(v) = white + magenta red (c2*w) /v*n w*w c2*w add def % /l*n w*w def /o*n 1 n*w sub def /i*p 2 def /t*p v*n v*n o*n add 0.0001 add div def } if % angle between orange red and yellow, sector O-Y of M-Y, Y>=M col_ang O*Ang ge col_ang Y*Ang lt and {1 wLAB*s0 0 get wLAB*s0 1 get wLAB*s0 2 get 1 nLAB*s0 0 get nLAB*s0 1 get nLAB*s0 2 get 1 oLAB*s0 0 get oLAB*s0 1 get oLAB*s0 2 get 1 yLAB*s0 0 get yLAB*s0 1 get yLAB*s0 2 get 1 L*Fs0 A*Fs0 B*Fs0 CoeffprocL /c1*w exch def %Y /c2*w exch def %O /n*w exch def /w*w exch def %yellow is a mixture of orange red and leaf green, therefore voilet blue(v) = white, %orange(o) = 1-black(n), leaf green(l) = white + yellow (c1*w) /l*n w*w c1*w add def /v*n w*w def /o*n 1 n*w sub def /i*p 3 def /t*p l*n l*n o*n add 0.0001 add div def } if % angle between yellow and leaf green, sector Y-L of Y-C, Y>=C col_ang Y*Ang ge col_ang L*Ang lt and {1 wLAB*s0 0 get wLAB*s0 1 get wLAB*s0 2 get 1 nLAB*s0 0 get nLAB*s0 1 get nLAB*s0 2 get 1 yLAB*s0 0 get yLAB*s0 1 get yLAB*s0 2 get 1 lLAB*s0 0 get lLAB*s0 1 get lLAB*s0 2 get 1 L*Fs0 A*Fs0 B*Fs0 CoeffprocL /c1*w exch def %L /c2*w exch def %Y /n*w exch def /w*w exch def %yellow is a mixture of orange red and leaf green, therefore voilet blue(v) = white , %leaf green(l) = 1-black(n), orange red(o) = white + yellow (c2*w) /v*n w*w def /l*n 1 n*w sub def /o*n w*w c2*w add def /i*p 4 def /t*p o*n o*n l*n add 0.0001 add div def } if % angle between leaf green and cyan blue, sector L-C of Y-C, C>=Y col_ang L*Ang ge col_ang C*Ang lt and {1 wLAB*s0 0 get wLAB*s0 1 get wLAB*s0 2 get 1 nLAB*s0 0 get nLAB*s0 1 get nLAB*s0 2 get 1 lLAB*s0 0 get lLAB*s0 1 get lLAB*s0 2 get 1 cLAB*s0 0 get cLAB*s0 1 get cLAB*s0 2 get 1 L*Fs0 A*Fs0 B*Fs0 CoeffprocL /c1*w exch def %C /c2*w exch def %L /n*w exch def /w*w exch def %cyan is a mixture of leaf green and voilet blue, therefore orange red(o) = white, %leaf green(l) = 1-black(n), voilet blue(v) = white + cyan blue (c1*w) /v*n w*w c1*w add def /l*n 1 n*w sub def /o*n w*w def /i*p 5 def /t*p v*n v*n l*n add 0.0001 add div def } if % angle between cyan blue and voilet blue, sector C-V of C-M, C>=M col_ang C*Ang ge col_ang V*Ang lt and {1 wLAB*s0 0 get wLAB*s0 1 get wLAB*s0 2 get 1 nLAB*s0 0 get nLAB*s0 1 get nLAB*s0 2 get 1 cLAB*s0 0 get cLAB*s0 1 get cLAB*s0 2 get 1 vLAB*s0 0 get vLAB*s0 1 get vLAB*s0 2 get 1 L*Fs0 A*Fs0 B*Fs0 CoeffprocL /c1*w exch def %V /c2*w exch def %C /n*w exch def /w*w exch def %cyan is a mixture of leaf green and voilet blue, therefore orange red(o) = white, %violet blue(v) = 1-black(n), leaf green(l) = white + cyan blue (c2*w) /v*n 1 n*w sub def /l*n w*w c2*w add def /o*n w*w def /i*p 0 def /t*p l*n l*n v*n add 0.0001 add div def } if % angle between voilet blue and magenta red, sector V-M of C-M, M>=C col_ang V*Ang ge col_ang M*Ang lt and {1 wLAB*s0 0 get wLAB*s0 1 get wLAB*s0 2 get 1 nLAB*s0 0 get nLAB*s0 1 get nLAB*s0 2 get 1 vLAB*s0 0 get vLAB*s0 1 get vLAB*s0 2 get 1 mLAB*s0 0 get mLAB*s0 1 get mLAB*s0 2 get 1 L*Fs0 A*Fs0 B*Fs0 CoeffprocL /c1*w exch def %M /c2*w exch def %V /n*w exch def /w*w exch def %magenta is a mixture of orange red and voilet blue, therefore leaf green(l) = white, %violet(o) = 1-black(n), orange red(o) = white + magenta red (c1*w) /v*n 1 n*w sub def /l*n w*w def /o*n w*w c1*w add def /i*p 1 def /t*p o*n o*n v*n add 0.0001 add div def } if %achromatic %W: o*n, l*n, v*n = 1.00 1.0 o*n sub abs 0.001 le 1.0 l*n sub abs 0.001 le and 1.0 v*n sub abs 0.001 le and %W special case {/i*p 6 def %W /e*w 0 def /n*n 0 def /w*n 1 def /t*p 0.0001 def } if %N: o*n, l*n, v*n <= 0.01 o*n abs 0.001 le l*n abs 0.001 le and v*n abs 0.001 le and %N special case {/i*p 6 def %N /e*w 0 def /n*n 1 def /w*n 0 def /t*p 0.0001 def } if %Achromatic o*n l*n sub abs 0.001 le l*n v*n sub abs 0.001 le and %Achromatic special case {/i*p 6 def %N /e*w 0 def /n*n o*n def /w*n 1 o*n sub def /t*p 0.0001 def } if /c*w 1 o*n sub def /m*w 1 l*n sub def /y*w 1 v*n sub def /t*n 1 t*p sub def /r*w 1 n*w sub w*w sub def %Ostwald equation for radial chromaticness: %with r*w=radial chromaticness, n*w=blackness, w*w=whiteness /t*w 1 n*w sub r*w 0.5 mul add def %triangle lightness /e*w r*w n*w r*w add 0.0001 add div def %Eigencolor ratio r*w abs 0.001 le r*w abs 0.001 le and {/e*w 0.0001 def} if % with 0 for achromatic (c*w=0) and 1 for whitish colors (n*w=0) /lab*rFa r*w def %/lab*tFa t*w def /h1* (-) def /h2* (-) def /H 0 def /H1* (-) def /H2* (-) def /H 0 def /IEND 0 def col_ang R*Ang gt col_ang J*Ang le and {/H* col_ang R*Ang sub J*Ang R*Ang sub div def /p*F 0.00 H* 0.25 mul add def /h1* (r) def /h2* (j) def /H1* (R) def /H2* (J) def /HM* R*Ang def /HP* J*Ang def /IEND 1 def} if col_ang J*Ang gt col_ang G*Ang le and {/H* col_ang J*Ang sub G*Ang J*Ang sub div def /p*F 0.25 H* 0.25 mul add def /h1* (j) def /h2* (g) def /H1* (J) def /H2* (G) def /HM* J*Ang def /HP* G*Ang def /IEND 1 def} if col_ang G*Ang gt col_ang B*Ang le and {/H* col_ang G*Ang sub B*Ang G*Ang sub div def /p*F 0.50 H* 0.25 mul add def /h1* (g) def /h2* (b) def /H1* (G) def /H2* (B) def /HM* G*Ang def /HP* B*Ang def /IEND 1 def} if col_ang R*Ang le IEND 0 eq and {/Pcol_ang col_ang 360 add def} {/Pcol_ang col_ang def} ifelse Pcol_ang B*Ang gt Pcol_ang R*Ang 360 add le and {/H* Pcol_ang B*Ang sub R*Ang 360 add B*Ang sub div def /p*F 0.75 H* 0.25 mul add def /h1* (b) def /h2* (r) def /H1* (B) def /H2* (R) def /HM* B*Ang def /HP* R*Ang 360 add def} if /lab*e1Fa h1* def /lab*EFa H* def /lab*e2Fa h2* def /lab*eFa p*F def /CIEF 100 88.60 div def /X* {L*F 16 add 116 div A*Fs0 500 div add } bind def /Y* {L*F 16 add 116 div } bind def /Z* {L*F 16 add 116 div B*Fs0 200 div sub} bind def /DecodeXYZ* { dup 6 29 div ge { dup dup mul mul } { 4 29 div sub 108 841 div mul } ifelse } bind def /XCIE {X* DecodeXYZ* 0.9505 mul} bind def /YCIE {Y* DecodeXYZ* } bind def /ZCIE {Z* DecodeXYZ* 1.0890 mul} bind def /XCIE1 {X* DecodeXYZ* 0.9505 mul CIEF mul} bind def /YCIE1 {Y* DecodeXYZ* CIEF mul} bind def /ZCIE1 {Z* DecodeXYZ* 1.0890 mul CIEF mul} bind def %Transformation X Y Z to RsRGB, GsRGB, BsRGB /RsRGB XCIE1 3.2406 mul YCIE1 -1.5372 mul add ZCIE1 -0.4986 mul add def /GsRGB XCIE1 -0.9686 mul YCIE1 1.8758 mul add ZCIE1 0.0415 mul add def /BsRGB XCIE1 0.0557 mul YCIE1 -0.2040 mul add ZCIE1 1.0570 mul add def /Slope 1.0 2.4 div def RsRGB 0.00313008 le {/R'sRGB RsRGB 12.92 mul def} {/R'sRGB RsRGB Slope exp 1.055 mul 0.055 sub def} ifelse GsRGB 0.00313008 le {/G'sRGB GsRGB 12.92 mul def} {/G'sRGB GsRGB Slope exp 1.055 mul 0.055 sub def} ifelse BsRGB 0.00313008 le {/B'sRGB BsRGB 12.92 mul def} {/B'sRGB BsRGB Slope exp 1.055 mul 0.055 sub def} ifelse c*w m*w y*w 0 %default output data definition } bind def %END Procedure LAB*io_to_cmyolv*ioL (L=local) /ouTab*ioL {%BEG Procedure ouTab*ioL (L=local) /Fontsize 152 Tabfakt mul def /TN {Fontsize /Times-ISOL1 FS} def /TI {Fontsize /TimesI-ISOL1 FS} def /TB {Fontsize /TimesB-ISOL1 FS} def /TBI {Fontsize /TimesBI-ISOL1 FS} def 0 0 0 setrgbcolor /o* r def /l* g def /v* b def %olv*, cmy* /yTABm ya ys 0.81 mul add def /yTABd 132 Tabfakt mul def /yTABx yTABm yTABd 1 mul sub def /yTAB0 yTABm yTABd 2 mul sub def /yTAB1 yTABm yTABd 3 mul sub def /yTAB2 yTABm yTABd 4 mul sub def /yTAB3 yTABm yTABd 5.1 mul sub def /yTAB4 yTABm yTABd 6.1 mul sub def /yTABn yTABm yTABd 7.1 mul sub def /yTAB5 yTABm yTABd 8.1 mul sub def /yTAB6 yTABm yTABd 9.2 mul sub def /yTAB7 yTABm yTABd 10.2 mul sub def /yTAB8 yTABm yTABd 11.2 mul sub def /yTAB9 yTABm yTABd 12.2 mul sub def /yTAB10 yTABm yTABd 13.3 mul sub def /yTAB11 yTABm yTABd 14.3 mul sub def /yTAB12 yTABm yTABd 15.2 mul sub def /yTAB13 yTABm yTABd 16.1 mul sub def /xTABm xa xs 0.84 mul sub def /xTABd 500 Tabfakt mul def /xTAB10 xTABm xTABd 1.15 mul add def /xTAB20 xTABm xTABd 2.00 mul add def /xTAB30 xTABm xTABd 2.85 mul add def /xTAB40 xTABm xTABd 3.70 mul add def /xTAB1 xTABm xTABd 1.60 mul add def /xTAB2 xTABm xTABd 2.55 mul add def /xTAB3 xTABm xTABd 3.50 mul add def /o3*Fa o* def /l3*Fa l* def /v3*Fa v* def xTABm yTABm moveto TBI (relative ) show TB (Inform. Technology (IT)) show xTABm yTABx moveto TI (olvi3*) show TN xTAB10 yTABx moveto o3*Fa cvsshow3 xTAB20 yTABx moveto l3*Fa cvsshow3 xTAB30 yTABx moveto v3*Fa cvsshow3 xTAB40 yTABx moveto ((1.0)) show /c3*Fa 1 o3*Fa sub def /m3*Fa 1 l3*Fa sub def /y3*Fa 1 v3*Fa sub def xTABm yTAB0 moveto TI (cmyn3*) show TN xTAB10 yTAB0 moveto c3*Fa cvsshow3 xTAB20 yTAB0 moveto m3*Fa cvsshow3 xTAB30 yTAB0 moveto y3*Fa cvsshow3 xTAB40 yTAB0 moveto ((0.0)) show LAB*ioL /c* c3*Fa def /m* m3*Fa def /y* y3*Fa def /n* 0.0 def /o* 1 c* sub def /l* 1 m* sub def /v* 1 y* sub def cmyolv*io_to_LAB*ioL xTABm yTAB3 moveto TBI (standard ) show TB (and ) show TBI (adapted ) show TB (CIELAB) show xTABm yTAB4 moveto TI (LAB*LAB) show TN xTAB1 yTAB4 moveto LAB*LF cvsshow2 xTAB2 yTAB4 moveto LAB*AF cvsshow2 xTAB3 yTAB4 moveto LAB*BF cvsshow2 xTABm yTABn moveto TI (LAB*LABa) show TN xTAB1 yTABn moveto LAB*LFa cvsshow2 xTAB2 yTABn moveto LAB*AFa cvsshow2 xTAB3 yTABn moveto LAB*BFa cvsshow2 xTABm yTAB5 moveto TI (LAB*TCHa) show TN xTAB1 yTAB5 moveto lab*tFa 100 mul cvsshow2 xTAB2 yTAB5 moveto LAB*CFa cvsshow2 xTAB3 yTAB5 moveto LAB*CFa 1.0 ge {LAB*HFa cvsshow2} {( -) show} ifelse L*F A*F B*F LAB*io_to_cmyolv*ioL %lab relative CIELAB /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 /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 colorm 0 eq {xTABm yTAB1 moveto TI (olvi4*) show TN xTAB10 yTAB1 moveto o4*Fa cvsshow3 xTAB20 yTAB1 moveto l4*Fa cvsshow3 xTAB30 yTAB1 moveto v4*Fa cvsshow3 xTAB40 yTAB1 moveto i4*Fa cvsshow3 xTABm yTAB2 moveto TI (cmyn4*) show TN xTAB10 yTAB2 moveto c4*Fa cvsshow3 xTAB20 yTAB2 moveto m4*Fa cvsshow3 xTAB30 yTAB2 moveto y4*Fa cvsshow3 xTAB40 yTAB2 moveto n4*Fa cvsshow3 } if colorm 1 eq {1 0 0 setrgbcolor xTABm yTAB1 moveto TI (olvi3*') show TN xTAB10 yTAB1 moveto o*sTab cvsshow3 xTAB20 yTAB1 moveto l*sTab cvsshow3 xTAB30 yTAB1 moveto v*sTab cvsshow3 xTAB40 yTAB1 moveto ((1.0)) show xTABm yTAB2 moveto TI (cmyn3*') show TN xTAB10 yTAB2 moveto 1 o*sTab sub cvsshow3 xTAB20 yTAB2 moveto 1 l*sTab sub cvsshow3 xTAB30 yTAB2 moveto 1 v*sTab sub cvsshow3 xTAB40 yTAB2 moveto ((0.0)) show 0 0 0 setrgbcolor } if xTABm yTAB6 moveto TBI (relative ) show TB (CIELAB ) show TBI (lab*) show xTABm yTAB7 moveto TI (lab*lab) show TN xTAB1 yTAB7 moveto lab*lFa cvsshow3 /lab*aFa lab*cFa LAB*HFa cos mul def /lab*bFa lab*cFa LAB*HFa sin mul def xTAB2 yTAB7 moveto lab*aFa cvsshow3 xTAB3 yTAB7 moveto lab*bFa cvsshow3 xTABm yTAB8 moveto TI (lab*tch) show TN xTAB1 yTAB8 moveto lab*tFa cvsshow3 xTAB2 yTAB8 moveto lab*cFa cvsshow3 xTAB3 yTAB8 moveto lab*cFa 0.01 ge {lab*hFa cvsshow3} {( -) show} ifelse xTABm yTAB9 moveto TI (lab*nch) show TN xTAB1 yTAB9 moveto lab*nFa cvsshow3 xTAB2 yTAB9 moveto lab*cFa cvsshow3 xTAB3 yTAB9 moveto lab*cFa 0.01 ge {lab*hFa cvsshow3} {( -) show} ifelse %lab*lrj,tce,ncE: similar to NCS xTABm yTAB10 moveto TBI (relative ) show TB (Natural Colour (NC)) show xTABm yTAB11 moveto TI (lab*lrj) show TN xTAB1 yTAB11 moveto lab*lFa cvsshow3 /lab*rFa lab*cFa lab*eFa 360 mul cos mul def /lab*jFa lab*cFa lab*eFa 360 mul sin mul def xTAB2 yTAB11 moveto lab*rFa cvsshow3 xTAB3 yTAB11 moveto lab*jFa cvsshow3 xTABm yTAB12 moveto TI (lab*tce) show TN xTAB1 yTAB12 moveto lab*tFa cvsshow3 xTAB2 yTAB12 moveto lab*cFa cvsshow3 xTAB3 yTAB12 moveto lab*cFa 0.01 ge {lab*eFa cvsshow3}{( -) show} ifelse xTABm yTAB13 moveto TI (lab*ncE) show TN xTAB1 yTAB13 moveto lab*nFa cvsshow3 xTAB2 yTAB13 moveto lab*cFa cvsshow3 xTAB3 yTAB13 moveto lab*cFa 0.01 ge {lab*e1Fa show lab*EFa 100 mul truncate cvi dup 10 lt {(0) show } if 6 string cvs show lab*e2Fa show} {( -) show} ifelse } bind def %END Procedure ouTab*ioL /ouCal*ioL {%BEG Procedure ouCal*ioL 0 0 0 setrgbcolor /o* r def /l* g def /v* b def /o3*Fa o* def /l3*Fa l* def /v3*Fa v* def /c3*Fa 1 o3*Fa sub def /m3*Fa 1 l3*Fa sub def /y3*Fa 1 v3*Fa sub def LAB*ioL /c* c3*Fa def /m* m3*Fa def /y* y3*Fa def /n* 0.0 def /o* 1 c* sub def /l* 1 m* sub def /v* 1 y* sub def cmyolv*io_to_LAB*ioL L*F A*F B*F LAB*io_to_cmyolv*ioL %lab relative CIELAB /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 /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 ouCal*ioL /proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL { %BEG proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL %only for calculation without hue tables %input LAB*Fa %input LAB*a (6 adapted colours OYLCVM) %input nLAB*s0 (colour white N for calculation of lab*l) %input wLAB*s0 (colour white W for achromatic axis) %output LAB*Ma %output olvi3*Ma %output cmyn3*Ma /UXF1a wLAB*s0 1 get B*Fa mul wLAB*s0 2 get A*Fa mul sub def /UXF2a wLAB*s0 2 get L*Fa mul wLAB*s0 0 get B*Fa mul sub def /UXF3a wLAB*s0 0 get A*Fa mul wLAB*s0 1 get L*Fa mul sub def /T1 0 def /T2 0 def 0 1 5 {/ia exch def /ia30 ia 3 mul def ia 5 eq {/ia31 0 def} {/ia31 ia30 3 add def} ifelse /T1 LAB*a ia30 get UXF1a mul LAB*a ia30 1 add get UXF2a mul add LAB*a ia30 2 add get UXF3a mul add def /T2 LAB*a ia31 get UXF1a mul LAB*a ia31 1 add get UXF2a mul add LAB*a ia31 2 add get UXF3a mul add def T1 0 le {/T1X (N) def} {/T1X (P) def} ifelse T2 0 gt {/T2X (P) def} {/T2X (N) def} ifelse T1 0 le T2 0 gt and {/ia3END ia30 def exit} if } for /L*11a LAB*a ia3END get def /A*11a LAB*a ia3END 1 add get def /B*11a LAB*a ia3END 2 add get def ia3END 15 ge {/ia3END -3 def} if /L*21a LAB*a ia3END 3 add get def /A*21a LAB*a ia3END 4 add get def /B*21a LAB*a ia3END 5 add get def /NENNER L*21a L*11a sub UXF1a mul A*21a A*11a sub UXF2a mul add B*21a B*11a sub UXF3a mul add def /ZAEHLE L*21a UXF1a mul A*21a UXF2a mul add B*21a UXF3a mul add def NENNER 0 ne {/ALPH ZAEHLE NENNER div def} {/ALPH 99999} ifelse /L*Ma ALPH L*11a mul 1 ALPH sub L*21a mul add def /A*Ma ALPH A*11a mul 1 ALPH sub A*21a mul add def /B*Ma ALPH B*11a mul 1 ALPH sub B*21a mul add def /C*Ma A*Ma dup mul B*Ma dup mul add 0.000001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def /ia30 ia 3 mul def /iap 1 ALPH sub def /iam ALPH def ia 0 eq {/c3*Ma 0 def %L, c*=0, sector O->Y /m3*Ma iam def %L, m*=1->0 /y3*Ma 1 def %L, y*=1 } if ia 1 eq {/c3*Ma iap def %L, c*=0->1, sector Y->L /m3*Ma 0 def %L, m*=0 /y3*Ma 1 def %L, y*=1 } if ia 2 eq {/c3*Ma 1 def %L, c*=1, sector L->C /m3*Ma 0 def %L, m*=0 /y3*Ma iam def %L, y*=1->0 } if ia 3 eq {/c3*Ma 1 def %L, c*=1, sector C->V /m3*Ma iap def %L, m*=1->0 /y3*Ma 0 def %L, y*=0 } if ia 4 eq {/c3*Ma iam def %L, c*=1->0, sector V->M /m3*Ma 1 def %L, m*=1 /y3*Ma 0 def %L, y*=0 } if ia 5 eq {/c3*Ma 0 def %L, c*=0, sector M->O /m3*Ma 1 def %L, m*=1 /y3*Ma iap def %L, y*=0->1 } if /o3*Ma 1 c3*Ma sub def /l3*Ma 1 m3*Ma sub def /v3*Ma 1 y3*Ma sub def /i3*Ma 1 def /lab*nMa 0.00 def /lab*cMa 1.00 def /lab*wMa 0.00 def /lab*tMa 0.50 def /lab*hMa H*Ma 360 div def /lab*lMa L*Ma nLAB*s0 0 get sub wLAB*s0 0 get nLAB*s0 0 get sub 0.000001 add div def } bind def %END /proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL /rec %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul sub y0 heigth 0.5 mul sub moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /A4quer {598 0 tl 90 rotate} def /cvsshow1g {/nxx exch def %example nxx=99.1/99.0 nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %******************************************************************* %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /nr1 27 array def /tx1 52 array def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27)] def /tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V) (W) (X) (Y) (Z) (a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) (l) (m) (n) (o) (p) (q) (r) (s) (t) (u) (v) (w) (x) (y) (z)] def /RGB54CC17_L 17 array def /RGB54CC17_L [%high chromatic series: %relative hue h*, brillance i*, and chroma c*, range 0 ... 100 (R00Y_100_100) 1.00 0.00 0.00 %00 (R25Y_100_100) 1.00 0.25 0.00 %01 (R50Y_100_100) 1.00 0.50 0.00 %02 (R75Y_100_100) 1.00 0.75 0.00 %03 (Y00G_100_100) 1.00 1.00 0.00 %04 (Y25G_100_100) 0.75 1.00 0.00 %05 (Y50G_100_100) 0.50 1.00 0.00 %06 (Y75G_100_100) 0.25 1.00 0.00 %07 (G00B_100_100) 0.00 1.00 0.00 %08 (G25B_100_100) 0.00 1.00 0.50 %09 (G50B_100_100) 0.00 1.00 1.00 %10 (G75B_100_100) 0.00 0.50 1.00 %11 (B00R_100_100) 0.00 0.00 1.00 %12 (B25R_100_100) 0.50 0.00 1.00 %13 (B50R_100_100) 1.00 0.00 1.00 %14 (B75R_100_100) 1.00 0.00 0.50 %15 (R00Y_100_100) 1.00 0.00 0.00 %16 repeat for circle ] def /LAB*ee 12 array def %2x3=12 Lab* for D65 /LAB*ee [39.92 58.74 27.99 %0 00_04 R CIE No.09 elementary in LAB 81.26 -2.89 71.56 %1 05_09 J CIE No.10 52.23 -42.42 13.60 %2 10_14 G CIE No.11 30.57 1.41 -46.47 %3 20_24 B CIE No.12 ] def /rgb_12 12 array def %RYGCBMd, NWd,e, RYGBe /rgb_12 [1.0 0.0 0.0 1.0 1.0 0.0 0.0 1.0 0.0 %RYGd 0.0 1.0 1.0 0.0 0.0 1.0 1.0 0.0 1.0 %CBMd 0.0 0.0 0.0 1.0 1.0 1.0 %NWd,e 1.0 0.0 0.0 1.0 1.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 %RYGBe ] def %************************************************************ /proc_CIELAB_D {%BEG proc_CIELAB_D 25 setlinewidth 1.0 setgray 0 0 moveto 2800 0 rlineto 0 2800 rlineto -2800 0 rlineto closepath fill 0.0 setgray 0 0 moveto 2800 0 rlineto 0 2800 rlineto -2800 0 rlineto closepath stroke 1200 1300 translate -1000 0 moveto 1000 0 lineto stroke 0 -1000 moveto 0 1000 lineto stroke 1100 0 moveto (a*) kshow (a) ishow 0 1100 moveto (b*) kshow (a) ishow /rx 774 def %standard hexagon gamut 0.0 setgray rx 030 cos mul rx 030 sin mul moveto 0 rx lineto rx 150 cos mul rx 150 sin mul lineto rx 210 cos mul rx 210 sin mul lineto 0 rx neg lineto rx 330 cos mul rx 330 sin mul lineto closepath stroke /r*x 1 def /g*x 0 def /b*x 0 def r*x g*x b*x setrgbcolor rx 030 cos mul rx 030 sin mul 100 0 360 arc fill /r*x 1 def /g*x 1 def /b*x 0 def r*x g*x b*x setrgbcolor 0 rx 100 0 360 arc fill /r*x 0 def /g*x 1 def /b*x 0 def r*x g*x b*x setrgbcolor rx 150 cos mul rx 150 sin mul 100 0 360 arc fill /r*x 0 def /g*x 1 def /b*x 1 def r*x g*x b*x setrgbcolor rx 210 cos mul rx 210 sin mul 100 0 360 arc fill /r*x 0 def /g*x 0 def /b*x 1 def r*x g*x b*x setrgbcolor 0 rx neg 100 0 360 arc fill /r*x 1 def /g*x 0 def /b*x 1 def r*x g*x b*x setrgbcolor rx 330 cos mul rx 330 sin mul 100 0 360 arc fill %plot hexagon in device (d) space 45 setlinewidth 0 setgray 0 1 5 {/i exch def %i=0,5 /A*Ma LAB*a i 3 mul 1 add get def /B*Ma LAB*a i 3 mul 2 add get def i 0 eq {A*Ma 10 mul B*Ma 10 mul moveto} {A*Ma 10 mul B*Ma 10 mul lineto} ifelse i 5 eq {closepath stroke} if } for %i=0,5 xchart 1 ge {%xchart>=1, always only for device space %plot hexagon in actual device (d) space 45 setlinewidth /deintpd deintp def %attention change of deintp to device d! /deintp 0 def %draws allways device space gamut! 0 1 5 {/i exch def %i=0,5 /r*x r*dd08M i get def /g*x g*dd08M i get def /b*x b*dd08M i get def r*x g*x b*x setrgbcolor %default for calculation of LAB* /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /A*Ma LAB*axF def /B*Ma LAB*bxF def 1 0 0 setrgbcolor i 0 eq {A*Ma 10 mul B*Ma 10 mul moveto} {A*Ma 10 mul B*Ma 10 mul lineto} ifelse i 5 eq {closepath stroke} if } for %i=0,5 /deintp deintpd def %change back to deintp! } if %xchart>=1 %plot line of actual hue 50 setlinewidth xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if xcharts 5 le {%xcharts<=5 r*x g*x b*x setrgbcolor 0 0 moveto /A*Ma LAB*a xcharts 3 mul 1 add get def /B*Ma LAB*a xcharts 3 mul 2 add get def A*Ma 10 mul B*Ma 10 mul lineto stroke } if %xcharts<=5 xcharts 6 ge {%xcharts>=6 xchart 0 eq {%xchart=0,>0 xcharts 9 eq {/i1 0 def /i2 5 def i1 1 i2 {/i exch def %i=i1,i2 /L*Ma0 LAB*a i 3 mul 0 add get def %produces ORS18 /A*Ma0 LAB*a i 3 mul 1 add get def /B*Ma0 LAB*a i 3 mul 2 add get def rgb_12 i 3 mul 0 add get rgb_12 i 3 mul 1 add get rgb_12 i 3 mul 2 add get setrgbcolor 0 0 moveto A*Ma0 10 mul B*Ma0 10 mul lineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 -100 rlineto 200 200 rlineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 100 rlineto 200 -200 rlineto stroke } for %i=i1,i2 } if %one or 6 lines xcharts 10 ge xcharts 25 le and {%xcharts>=10,<=25 %16 measured data, see PE54L0NP.pdf, page 11/24 %PE540-7N, Page 11/24 HIC*Fd rgb*Fd LabCh*Fd /LAB*a48 432 array def %48x9=432 /LAB*a48 [%HIC rgb LabCh nr (R00Y_100_100d) 1.000 0.000 0.000 48.4 66.1 40.2 77.4 31.3 %00 (R13Y_100_100d) 1.000 0.116 0.000 52.5 57.3 45.5 73.2 38.4 %01 (R25Y_100_100d) 1.000 0.233 0.000 56.8 48.0 50.5 69.8 46.4 %02 (R38Y_100_100d) 1.000 0.366 0.000 62.5 36.5 57.1 67.8 57.3 %03 (R50Y_100_100d) 1.000 0.500 0.000 68.6 25.0 63.9 68.7 68.6 %04 (R63Y_100_100d) 1.000 0.633 0.000 74.9 14.1 71.1 72.5 78.7 %05 (R75Y_100_100d) 1.000 0.766 0.000 80.6 4.8 77.2 77.4 86.4 %06 (R88Y_100_100d) 1.000 0.883 0.000 85.4 -2.5 82.3 82.3 91.7 %07 (Y00G_100_100d) 1.000 1.000 0.000 90.2 -9.6 88.2 88.7 96.2 %08 (Y13G_100_100d) 0.883 1.000 0.000 86.7 -14.2 83.5 84.7 99.6 %09 (Y25G_100_100d) 0.766 1.000 0.000 83.2 -18.4 79.9 82.0 102.9 %10 (Y38G_100_100d) 0.633 1.000 0.000 77.9 -25.1 69.5 74.0 109.8 %11 (Y50G_100_100d) 0.500 1.000 0.000 73.3 -31.7 62.7 70.3 116.8 %12 (Y63G_100_100d) 0.366 1.000 0.000 68.2 -39.5 55.9 68.5 125.2 %13 (Y75G_100_100d) 0.233 1.000 0.000 62.0 -49.7 43.2 65.9 138.9 %14 (Y88G_100_100d) 0.116 1.000 0.000 59.1 -57.1 38.5 68.9 145.9 %15 (G00C_100_100d) 0.000 1.000 0.000 55.8 -65.2 33.8 73.5 152.5 %16 (G13C_100_100d) 0.000 1.000 0.116 56.6 -62.9 24.0 67.3 159.0 %17 (G25C_100_100d) 0.000 1.000 0.233 57.4 -59.7 13.9 61.3 166.8 %18 (G38C_100_100d) 0.000 1.000 0.366 58.5 -54.9 1.5 55.0 178.4 %19 (G50C_100_100d) 0.000 1.000 0.500 59.3 -50.3 -9.0 51.1 190.2 %20 (G63C_100_100d) 0.000 1.000 0.633 60.1 -45.6 -18.7 49.3 202.3 %21 (G75C_100_100d) 0.000 1.000 0.766 61.1 -40.3 -27.8 49.0 214.6 %22 (G88C_100_100d) 0.000 1.000 0.883 62.0 -35.8 -34.7 49.9 224.0 %23 (C00B_100_100d) 0.000 1.000 1.000 63.0 -30.5 -42.0 51.9 234.0 %24 (C13B_100_100d) 0.000 0.883 1.000 59.4 -25.3 -42.7 49.7 239.2 %25 (C25B_100_100d) 0.000 0.766 1.000 55.8 -20.3 -43.2 47.7 244.7 %26 (C38B_100_100d) 0.000 0.633 1.000 50.8 -13.3 -43.9 45.9 253.0 %27 (C50B_100_100d) 0.000 0.500 1.000 45.7 -5.7 -44.6 45.0 262.6 %28 (C63B_100_100d) 0.000 0.366 1.000 40.4 2.6 -45.2 45.2 273.3 %29 (C75B_100_100d) 0.000 0.233 1.000 36.0 10.1 -46.1 47.2 282.3 %30 (C88B_100_100d) 0.000 0.116 1.000 32.1 17.3 -46.7 49.8 290.3 %31 (B00M_100_100d) 0.000 0.000 1.000 27.5 25.9 -47.3 54.0 298.7 %32 (B13M_100_100d) 0.116 0.000 1.000 29.5 33.4 -43.1 54.6 307.7 %33 (B25M_100_100d) 0.233 0.000 1.000 31.0 39.9 -38.5 55.5 315.9 %34 (B38M_100_100d) 0.366 0.000 1.000 35.1 44.5 -34.7 56.5 322.0 %35 (B50M_100_100d) 0.500 0.000 1.000 38.3 52.6 -28.5 59.9 331.5 %36 (B63M_100_100d) 0.633 0.000 1.000 41.2 59.3 -22.0 63.3 339.6 %37 (B75M_100_100d) 0.766 0.000 1.000 45.2 63.8 -18.2 66.4 344.0 %38 (B88M_100_100d) 0.883 0.000 1.000 47.5 68.6 -13.8 69.9 348.5 %39 (M00R_100_100d) 1.000 0.000 1.000 49.5 73.5 -9.0 74.1 352.9 %40 (M13R_100_100d) 1.000 0.000 0.883 49.4 72.4 -4.0 72.5 356.7 %41 (M25R_100_100d) 1.000 0.000 0.766 49.3 71.4 0.4 71.4 0.3 %42 (M38R_100_100d) 1.000 0.000 0.633 49.3 69.8 6.6 70.1 5.4 %43 (M50R_100_100d) 1.000 0.000 0.500 48.9 69.3 12.9 70.5 10.5 %44 (M63R_100_100d) 1.000 0.000 0.366 48.9 68.1 19.6 70.9 16.1 %45 (M75R_100_100d) 1.000 0.000 0.233 48.8 67.1 27.9 72.7 22.6 %46 (M88R_100_100d) 1.000 0.000 0.116 48.6 66.5 34.1 74.8 27.1 %47 ] def /indFa16 16 array def /indFa16 [%0 1 2 3 4 5 6 7 %0=R and xchart3=1, 4=Y and xchart3=5 00 02 04 06 08 10 12 14 %8 9 10 11 12 13 14 15 %8=G and xchart3=9, 12=B and xchart3=13 16 20 24 28 32 36 40 44] def /ix xchart3 1 sub def %i=0,15 /indx indFa16 ix get def /i90 indx 9 mul 4 add def /i91 i90 1 add def /i92 i90 2 add def /A*Ma0 LAB*a48 i91 get def /B*Ma0 LAB*a48 i92 get def /i90r indx 9 mul 1 add def /i91r i90r 1 add def /i92r i90r 2 add def /r_*Ma LAB*a48 i90r get def /g_*Ma LAB*a48 i91r get def /b_*Ma LAB*a48 i92r get def r_*Ma g_*Ma b_*Ma setrgbcolor 0 0 moveto A*Ma0 10 mul B*Ma0 10 mul lineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 -100 rlineto 200 200 rlineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 100 rlineto 200 -200 rlineto stroke } if %xcharts>=10,<=25 }%xchart=0 {%xchart>0 xcharts 9 eq {/i1 0 def /i2 15 def} %one or 16 lines {/i1 xcharts 10 sub def /i2 i1 def} ifelse i1 1 i2 {/i exch def %i=i1,i2 /r*x r*dd18M i get def /g*x g*dd18M i get def /b*x b*dd18M i get def r*x g*x b*x setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /A*Ma0 LAB*axF def /B*Ma0 LAB*bxF def r*x g*x b*x setrgbcolor 0 0 moveto A*Ma0 10 mul B*Ma0 10 mul lineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 -100 rlineto 200 200 rlineto stroke A*Ma0 10 mul B*Ma0 10 mul moveto -100 100 rlineto 200 -200 rlineto stroke } for %i=i1,i2 } ifelse %xchart=0,>0 } if %xcharts>=6 -1200 -1300 translate } bind def %END proc_CIELAB_D %************************************************************ /proc_CIELAB_T16 {%BEG proc_CIELAB_T16 /yhoe 6300 def ibild 0 eq {/xmi0 0 def /ymi0 -50 def} {/xmi0 700 def /ymi0 -1400 def} ifelse 15 setlinewidth 1.0 setgray 0 ymi0 moveto 5300 xmi0 add 0 rlineto 0 4800 ymi0 sub rlineto -5300 xmi0 sub 0 rlineto closepath fill 0.0 setgray 0 ymi0 moveto 5300 xmi0 add 0 rlineto 0 4800 ymi0 sub rlineto -5300 xmi0 sub 0 rlineto closepath stroke /nshow {TG show} bind def /kshow {TIG show} bind def /bshow {TBG show} bind def /jshow {TBIG show} bind def /sshow {SG show} bind def /ishow {SM -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {SM 0 100 rmoveto show 0 -100 rmoveto} bind def /yd 340 def %y-Zeilenabstand %Spalten /S1 20 def /S2 450 def /S3 1550 def /S4 2650 def /S5 3750 def /S6 4800 def /yu1 4650 def /yu2 3800 def 0 4100 moveto ibild 0 eq {5300}{6000} ifelse 0 rlineto stroke %Titeltext S1t 4550 moveto TBG xchart 0 eq {ibild 1 eq {(ORS20a) show}{TSYSIOa show} ifelse} {Devicea show} ifelse (;) show xcharti 12 lt ibild 0 ne or { TBM0 ( adaptierte CIELAB-Daten) showde ( adapted (a) CIELAB data) showen ( datos adaptados CIELAB (a)) showes ( donn\351es CIELAB (a) adapt\351es) showfr ( dati atti CIELAB (a)) showit ( adapterte (a) CIELAB data) showjp } if ibild 0 eq {%BEG ibild=0 S11 4250 moveto TM0 (Name) showde (name) showen (name) showes (nom) showfr (name) showit (navn) showjp S21 200 sub 4250 moveto TIG (L*=L*) show xcharti 12 lt ibild 0 ne or {(a) ishowTG} if S31 4250 moveto TIG (a*) show xcharti 12 lt ibild 0 ne or {(a) ishowTG} if S41 4250 moveto TIG (b*) show xcharti 12 lt ibild 0 ne or {(a) ishowTG} if S51 100 sub 4250 moveto TIG (C*) show (ab) ishowTG xcharti 12 lt ibild 0 ne or {(,a) ishowTG} if S61 100 sub 4250 moveto TIG (h*) show (ab) ishowTG xcharti 12 lt ibild 0 ne or {(,a) ishowTG} if 0 1 11 {/i exch def %i=0,11 /ya yu2 yd i mul sub def S11 ya moveto TG ColNames i get show Fxx ishowTG (,) ishowTG i 8 ge {(CIE) ishowTG} {(M) ishowTG xcharti 12 lt {(a) ishowTG} if} ifelse ( ) show xcharti 12 lt {%xcharti<=12,>12 i 7 le {%i<=7 xchart 0 eq {%xchart=0,1 /L*Fax LAB*a i 3 mul get def /A*Fax LAB*a i 3 mul 1 add get def /B*Fax LAB*a i 3 mul 2 add get def /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def }%xchart=0 {%xchart=1 /r*x r*dd08M i get def /g*x g*dd08M i get def /b*x b*dd08M i get def r*x g*x b*x setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /L*Fax LAB*LxF def /A*Fax LAB*axF def /B*Fax LAB*bxF def } ifelse %xchart=0,1 } if %i<=7 i 8 ge {%i>=8 TYGB /L*Fax LAB*ee i 8 sub 3 mul get def /A*Fax LAB*ee i 8 sub 3 mul 1 add get def /B*Fax LAB*ee i 8 sub 3 mul 2 add get def } if %i>=8 /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def 0 setgray S21 ya moveto L*Fax cvsshow1 S31 ya moveto A*Fax cvsshow1 S41 ya moveto B*Fax cvsshow1 S51 ya moveto C*Fax cvsshow1 S61 ya moveto H*Fax cvishow }%xcharti<=12 {%xcharti>12 xchart 0 eq {%xchart=0,1 /L*Fax LAB*a i 3 mul get def /A*Fax LAB*a i 3 mul 1 add get def /B*Fax LAB*a i 3 mul 2 add get def /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def }%xchart=0 {%xchart=1 /L*Fax LAB*Ldd08M i get def /A*Fax LAB*add08M i get def /B*Fax LAB*bdd08M i get def } ifelse %xchart=0,1 /C*Fax A*Fax dup mul B*Fax dup mul add sqrt def /H*Fax B*Fax A*Fax 0.0001 add atan def 0 setgray S21 ya moveto L*Fax cvsshow1 S31 ya moveto A*Fax cvsshow1 S41 ya moveto B*Fax cvsshow1 S51 ya moveto C*Fax cvsshow1 S61 ya moveto H*Fax cvishow /L*Fx LAB* i 3 mul get def /A*Fx LAB* i 3 mul 1 add get def /B*Fx LAB* i 3 mul 2 add get def /C*Fx A*Fx dup mul B*Fx dup mul add sqrt def /H*Fx B*Fx A*Fx 0.0001 add atan def S2 350 add ya moveto L*Fx cvsshow2 S3 100 add ya moveto A*Fx cvsshow2 S4 100 add ya moveto B*Fx cvsshow2 S5 ya moveto C*Fx cvsshow2 S6 ya moveto H*Fx cvishow } ifelse %xcharti=12,#12 } for %i=0,11 }%END ibild=0 {%BEG ibild=1 S1t 4250 moveto (H*) kshow Fxx ishow () nshow S2t 200 sub 4250 moveto (L*=L*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S3t 4250 moveto (a*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S4t 4250 moveto (b*) kshow xcharti 12 lt ibild 0 ne or {(a) ishow} if S5t 150 sub 4250 moveto (C*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if S6t 150 sub 4250 moveto (h*) kshow (ab) ishow xcharti 12 lt ibild 0 ne or {(,a) ishow} if %16 measured data, see PE54L0NP.pdf, page 11/24 %PE540-7N, Page 11/24 HIC*Fd rgb*Fd LabCh*Fd /LAB*a48 432 array def %48x9=432 /LAB*a48 [%HIC rgb LabCh nr (R00Y_100_100d) 1.000 0.000 0.000 48.4 66.1 40.2 77.4 31.3 %00 (R13Y_100_100d) 1.000 0.116 0.000 52.5 57.3 45.5 73.2 38.4 %01 (R25Y_100_100d) 1.000 0.233 0.000 56.8 48.0 50.5 69.8 46.4 %02 (R38Y_100_100d) 1.000 0.366 0.000 62.5 36.5 57.1 67.8 57.3 %03 (R50Y_100_100d) 1.000 0.500 0.000 68.6 25.0 63.9 68.7 68.6 %04 (R63Y_100_100d) 1.000 0.633 0.000 74.9 14.1 71.1 72.5 78.7 %05 (R75Y_100_100d) 1.000 0.766 0.000 80.6 4.8 77.2 77.4 86.4 %06 (R88Y_100_100d) 1.000 0.883 0.000 85.4 -2.5 82.3 82.3 91.7 %07 (Y00G_100_100d) 1.000 1.000 0.000 90.2 -9.6 88.2 88.7 96.2 %08 (Y13G_100_100d) 0.883 1.000 0.000 86.7 -14.2 83.5 84.7 99.6 %09 (Y25G_100_100d) 0.766 1.000 0.000 83.2 -18.4 79.9 82.0 102.9 %10 (Y38G_100_100d) 0.633 1.000 0.000 77.9 -25.1 69.5 74.0 109.8 %11 (Y50G_100_100d) 0.500 1.000 0.000 73.3 -31.7 62.7 70.3 116.8 %12 (Y63G_100_100d) 0.366 1.000 0.000 68.2 -39.5 55.9 68.5 125.2 %13 (Y75G_100_100d) 0.233 1.000 0.000 62.0 -49.7 43.2 65.9 138.9 %14 (Y88G_100_100d) 0.116 1.000 0.000 59.1 -57.1 38.5 68.9 145.9 %15 (G00C_100_100d) 0.000 1.000 0.000 55.8 -65.2 33.8 73.5 152.5 %16 (G13C_100_100d) 0.000 1.000 0.116 56.6 -62.9 24.0 67.3 159.0 %17 (G25C_100_100d) 0.000 1.000 0.233 57.4 -59.7 13.9 61.3 166.8 %18 (G38C_100_100d) 0.000 1.000 0.366 58.5 -54.9 1.5 55.0 178.4 %19 (G50C_100_100d) 0.000 1.000 0.500 59.3 -50.3 -9.0 51.1 190.2 %20 (G63C_100_100d) 0.000 1.000 0.633 60.1 -45.6 -18.7 49.3 202.3 %21 (G75C_100_100d) 0.000 1.000 0.766 61.1 -40.3 -27.8 49.0 214.6 %22 (G88C_100_100d) 0.000 1.000 0.883 62.0 -35.8 -34.7 49.9 224.0 %23 (C00B_100_100d) 0.000 1.000 1.000 63.0 -30.5 -42.0 51.9 234.0 %24 (C13B_100_100d) 0.000 0.883 1.000 59.4 -25.3 -42.7 49.7 239.2 %25 (C25B_100_100d) 0.000 0.766 1.000 55.8 -20.3 -43.2 47.7 244.7 %26 (C38B_100_100d) 0.000 0.633 1.000 50.8 -13.3 -43.9 45.9 253.0 %27 (C50B_100_100d) 0.000 0.500 1.000 45.7 -5.7 -44.6 45.0 262.6 %28 (C63B_100_100d) 0.000 0.366 1.000 40.4 2.6 -45.2 45.2 273.3 %29 (C75B_100_100d) 0.000 0.233 1.000 36.0 10.1 -46.1 47.2 282.3 %30 (C88B_100_100d) 0.000 0.116 1.000 32.1 17.3 -46.7 49.8 290.3 %31 (B00M_100_100d) 0.000 0.000 1.000 27.5 25.9 -47.3 54.0 298.7 %32 (B13M_100_100d) 0.116 0.000 1.000 29.5 33.4 -43.1 54.6 307.7 %33 (B25M_100_100d) 0.233 0.000 1.000 31.0 39.9 -38.5 55.5 315.9 %34 (B38M_100_100d) 0.366 0.000 1.000 35.1 44.5 -34.7 56.5 322.0 %35 (B50M_100_100d) 0.500 0.000 1.000 38.3 52.6 -28.5 59.9 331.5 %36 (B63M_100_100d) 0.633 0.000 1.000 41.2 59.3 -22.0 63.3 339.6 %37 (B75M_100_100d) 0.766 0.000 1.000 45.2 63.8 -18.2 66.4 344.0 %38 (B88M_100_100d) 0.883 0.000 1.000 47.5 68.6 -13.8 69.9 348.5 %39 (M00R_100_100d) 1.000 0.000 1.000 49.5 73.5 -9.0 74.1 352.9 %40 (M13R_100_100d) 1.000 0.000 0.883 49.4 72.4 -4.0 72.5 356.7 %41 (M25R_100_100d) 1.000 0.000 0.766 49.3 71.4 0.4 71.4 0.3 %42 (M38R_100_100d) 1.000 0.000 0.633 49.3 69.8 6.6 70.1 5.4 %43 (M50R_100_100d) 1.000 0.000 0.500 48.9 69.3 12.9 70.5 10.5 %44 (M63R_100_100d) 1.000 0.000 0.366 48.9 68.1 19.6 70.9 16.1 %45 (M75R_100_100d) 1.000 0.000 0.233 48.8 67.1 27.9 72.7 22.6 %46 (M88R_100_100d) 1.000 0.000 0.116 48.6 66.5 34.1 74.8 27.1 %47 ] def /indFa16 16 array def /indFa16 [00 02 04 06 08 10 12 14 16 20 24 28 32 36 40 44] def 0 1 15 {/i exch def %i=0,15 /ya yu2 yd i mul sub def xchart 0 eq {%xchart=0,>0 /indx indFa16 i get def /i90 indx 9 mul 4 add def /i91 i90 1 add def /i92 i90 2 add def /L*Ma LAB*a48 i90 get def /A*Ma LAB*a48 i91 get def /B*Ma LAB*a48 i92 get def /C*Ma A*Ma dup mul B*Ma dup mul add 0.0001 add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def }%xchart=0 {%xchart>0 /r*x r*dd18M i get def /g*x g*dd18M i get def /b*x b*dd18M i get def r*x g*x b*x setrgbcolor %default to create data %setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F" %colorm=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF, ,cmyk*dyF and more %colorm=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more /r*xF r*dyF def /g*xF g*dyF def /b*xF b*dyF def /LAB*LxF LAB*LdyF def /LAB*axF LAB*adyF def /LAB*bxF LAB*bdyF def /LAB*CxF LAB*adyF dup mul LAB*bdyF dup mul add 0.0001 add sqrt def /LAB*hxF LAB*bdyF LAB*adyF 0.0001 add atan def /L*Ma LAB*LxF def /A*Ma LAB*axF def /B*Ma LAB*bxF def /C*Ma LAB*CxF def /H*Ma LAB*hxF def } ifelse %xchart=0,>0 0 setgray S1t ya moveto () nshow S1t ya moveto RGB54CC17_L i 4 mul get show Fxx ishow () nshow S2t 60 add ya moveto L*Ma cvsshow1 S3t ya moveto A*Ma cvsshow1 S4t ya moveto B*Ma cvsshow1 S5t ya moveto C*Ma cvsshow1 S6t ya moveto H*Ma cvishow } for %i=0,15 } ifelse %END ibild=1 } bind def %END proc_CIELAB_T16 %****************************************************************** /proc_CIELAB_G {%BEG CIELAB_G /u* 0 def /H*MGam 6 array def /C*MGam 6 array def 0 1 5 {/i exch def %i=0,5 /A*Ma LAB*a i 3 mul 1 add get def /B*Ma LAB*a i 3 mul 2 add get def /C*MGama A*Ma dup mul B*Ma dup mul add sqrt def H*MGam i B*Ma A*Ma 0.0001 add atan put C*MGam i C*MGama put /u* u* C*MGama L*Wio L*Nio sub mul add def } for %i=0,5 /u*r u* 77.4 77.4 mul 6 mul div 100 mul def 1 1 1 setrgbcolor /xmtext 2200 def /xms 0 def xmtext xms sub 11500 moveto TBG0 (%Gamut) showen (%Umfang) showde (%Gama) showes (%Gamme) showfr (%Gamma) showit (%Omfang) showjp xmtext xms sub 11100 moveto TBG0 (u*) show TBM0 -20 -50 rmoveto (rel) show 0 50 rmoveto TBG0 ( = ) show u*r cvishow 0 1 4 {/i exch def %i=0,4 /H*dif H*MGam i 1 add get H*MGam i get sub def i 0 eq {/H*MGamin H*dif def /H*MGamax H*dif def} if H*dif H*MGamin lt {/H*MGamin H*dif def} if H*dif H*MGamax gt {/H*MGamax H*dif def} if } for %i=0,4 /g*Hr H*MGamin H*MGamax div 100 mul def xmtext xms sub 10700 moveto TBG0 (%Regularity) showen (%Regularit\344t) showde (%Regularidad) showes (%R\351gularit\351) showfr (%Regularit\340) showit (%Regularitet) showjp xmtext 10300 moveto TBG0 (g*) show TBM0 -20 -50 rmoveto (H,rel) show 0 50 rmoveto TBG0 ( = ) show g*Hr cvishow 0 1 4 {/i exch def %i=0,4 /C*akt C*MGam i get def i 0 eq {/C*MGamin C*akt def /C*MGamax C*akt def} if C*akt C*MGamin lt {/C*MGamin C*akt def} if C*akt C*MGamax gt {/C*MGamax C*akt def} if } for %i=0,4 /g*Cr C*MGamin C*MGamax div 100 mul def xmtext 09900 moveto TBG0 (g*) show TBM0 -20 -50 rmoveto (C,rel) show 0 50 rmoveto TBG0 ( = ) show g*Cr cvishow } bind def %CIELAB_G %****************************************************************** /ilf 8 array def /ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def /Lrefl 11 array def /Lrefl [(0%) (0%) (0%) (0%) (0,6%) (1,2%) (2,5%) (5%) (10%) (20%) (40%)] 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 /cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /cvsshow1br {0.05 add 10 mul cvi 0.1 mul 7 string cvs show ( ) show} def /cvsshow2br {0.005 add 100 mul cvi 0.01 mul 7 string cvs show ( ) show} def /cvsshow3br {0.0005 add 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 {(-) 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 %************************************************ %******BEG RGB_48_16_6.PS default rgb data for 48/16/6 steps for device colours /r*dd64M 64 array def /r*dd64M [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %G 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %C 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %B 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %M 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J ] def /g*dd64M 64 array def /g*dd64M [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %G 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %C 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %B 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %M 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J ] def /b*dd64M 64 array def /b*dd64M [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %G 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %C 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %B 1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %M 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J ] def %calculate all data of 16+1=17 step elementary colour circle /ind64M 17 array def /ind64M %R00Y R25Y R50Y R75Y Y00G Y25G Y50G Y75G [0 2 4 6 8 10 12 14 %G00B G25B G50B G75G B00R B25R B50R B75R R00Y 16 20 24 28 32 36 40 44 0 ] def %actual 16 step device circle + N + W /r*dd18M 18 array def /g*dd18M 18 array def /b*dd18M 18 array def 0 1 15 {/i exch def %i=0,15 /indi ind64M i get def r*dd18M i r*dd64M indi get put %16 device colours g*dd18M i g*dd64M indi get put b*dd18M i b*dd64M indi get put } for %i=0,15 r*dd18M 16 0 put %N g*dd18M 16 0 put b*dd18M 16 0 put r*dd18M 17 1 put %W g*dd18M 17 1 put b*dd18M 17 1 put %actual 6 step device circle + N + W /r*dd08M 08 array def /g*dd08M 08 array def /b*dd08M 08 array def 0 1 5 {/i exch def %i=0,5 r*dd08M i r*dd64M i 8 mul get put %6 device colours g*dd08M i g*dd64M i 8 mul get put b*dd08M i b*dd64M i 8 mul get put } for %i=0,5 r*dd08M 6 0 put %N g*dd08M 6 0 put b*dd08M 6 0 put r*dd08M 7 1 put %W g*dd08M 7 1 put b*dd08M 7 1 put %******END RGB_48_16_6.PS default rgb data for 48/16/6 steps for device colours /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 /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanind1 0 def /lanind2 0 def /lanindd 01 def /lanindm 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def /xchart1 07 def /xchart2 07 def /xchartd 01 def /xchartm 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /pchartm 03 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def /xchart3 00 def %free /xchart4 00 def %test charts ISO/IEC 3, 2, 4; CIE R8-09 G, O, H /xchart5 00 def %free /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def /lanindm lanindmf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def /colormm colormmf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def /deintpm deintpmf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def /xcolorm xcolormf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchartmf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def /colsepm colsepmf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def /pmetamm pmetammf def} if /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 2 def} ifelse /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /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 %A4querL /colorml colorm def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl xchart def %0 1 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def %0 1 2 {/pchartl exch def %pchartl=0,2 colorml 0 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if colorml 0 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if colorml 1 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if colorml 1 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if %xchart 0 eq {/Txx (-) def /Fxx (-) def} if gsave xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 1 eq {/tfnx* {0 setgray} def /tfwx* {1 setgray} def /colrecfix* {setgray rec fill} bind def /colrecstx* {setgray rec stroke} bind def } if xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def /tfwx* {1 1 1 setrgbcolor} def /colrecfix* {setrgbcolor rec fill} bind def /colrecstx* {setrgbcolor rec stroke} bind def } if %pchartl 0 eq {%%pchartl=0 Y10-7N_AL39_JSO.E%pS %font0309.ps*********************************************** /CW {100 /Courier-ISOL1 FS} bind def /CV {150 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBW {100 /CourierB-ISOL1 FS} bind def /CBV {150 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /RW {100 /Times-Roman FS} bind def /RV {150 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {250 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIW {100 /Times-Italic FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {250 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBW {100 /Times-Bold FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {250 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIW {100 /Times-BoldItalic FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {250 /Times-BoldItalic FS} bind def /RBIM {300 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /TW {100 /Times-ISOL1 FS} bind def /TV {150 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIW {100 /TimesI-ISOL1 FS} bind def /TIV {150 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBW {100 /TimesB-ISOL1 FS} bind def /TBV {150 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIW {100 /TimesBI-ISOL1 FS} bind def /TBIV {150 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SW {100 /Symbol FS} bind def /SV {150 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /ishowRV {RW -00 -30 rmoveto show 00 30 rmoveto RV} def /jshowRV {RBW -00 -30 rmoveto show 00 30 rmoveto RBV} def /ishowTV {TW -00 -30 rmoveto show 00 30 rmoveto TV} def /jshowTV {TBW -00 -30 rmoveto show 00 30 rmoveto TBV} def /ishowRS {RV -00 -40 rmoveto show 00 40 rmoveto RS} def /jshowRS {RBV -00 -40 rmoveto show 00 40 rmoveto RBS} def /ishowTS {TV -00 -40 rmoveto show 00 40 rmoveto TS} def /jshowTS {TBV -00 -40 rmoveto show 00 40 rmoveto TBS} def /ishowRK {RS -00 -50 rmoveto show 00 50 rmoveto RK} def /jshowRK {RBS -00 -50 rmoveto show 00 50 rmoveto RBK} def /ishowTK {TS -00 -50 rmoveto show 00 50 rmoveto TK} def /jshowTK {TBS -00 -50 rmoveto show 00 50 rmoveto TBK} def /ishowRM {RK -00 -60 rmoveto show 00 60 rmoveto RM} def /jshowRM {RBK -00 -60 rmoveto show 00 60 rmoveto RBM} def /ishowTM {TK -00 -60 rmoveto show 00 60 rmoveto TM} def /jshowTM {TBK -00 -60 rmoveto show 00 60 rmoveto TBM} def /ishowRG {RM -00 -70 rmoveto show 00 70 rmoveto RG} def /jshowRG {RBM -00 -70 rmoveto show 00 70 rmoveto RBG} def /ishowTG {TM -00 -70 rmoveto show 00 70 rmoveto TG} def /jshowTG {TBM -00 -70 rmoveto show 00 70 rmoveto TBG} def %font0309.ps*********************************************** /L*Nl 18.01 def %standard lightness black /L*Wl 95.41 def %standard lightness white /L*ND where {pop /L*Nl L*ND def} if /L*WD where {pop /L*Wl L*WD def} if /L*Dl L*Wl L*Nl sub def %range between white and black /cvishow {cvi 6 string cvs show} def /IMODE 0 def /xs 1000 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def /xs5x xs 5.4 mul def /ys5x ys 5.4 mul def /x xs 0.1 mul def /y ys 12.0 mul def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /xd 800 def /yd 800 def /xd5x xs5x 200 sub def /yd5x ys5x 200 sub def /j 0 def /i 0 def /xmin 0000 def /xmax 10000 def /ymin 0000 def /ymax 10000 def /ISIN*ioG where {pop /ISIN*ioL ISIN*ioG def} {/ISIN*ioL 1 def} ifelse /ISOU*ioG where {pop /ISOU*ioL ISOU*ioG def} {/ISOU*ioL 1 def} ifelse /ISRL*ioL 0 def %***************************************************************************** /vheigh 3.4 def /vheigk 3.0 def /TIN {vheigh /Times-ISOL1 FS} bind def /TII {vheigh /TimesI-ISOL1 FS} bind def /RIN {vheigh /Times-Roman FS} bind def /TIK {vheigk /Times-ISOL1 FS} bind def 72 86.9 moveto /xchart16 5 def %1..16 RIN xchart16 8 le {(AGF30-) show xchart16 cvishow} {/xchartX xchart16 8 sub def (AGF31-) show xchart16 cvishow} ifelse TIN (N, ) show (Input file: ) showen (Eingabedatei: ) showde RIN 0 0 1 setrgbcolor (http://farbe.li.tu-berlin.de/AEF2/AEF20-1N.PS) showen (http://farbe.li.tu-berlin.de/AGF2/AGF20-1N.PS) showde (, ) show 0 setgray TIN iproc1MR 0 eq {%iproc1MR=0 (No 1MR, ) showen (No 1MR, ) showde} {%iproc1MR=1 (1MR, ) show } ifelse %iproc1MR=0,1 /ioutg 1 def ioutg 1 eq {%ioutg=1 TIN (Gamma ) showde (gamma ) showen TII (g) show 0 -1 rmoveto TIK (P) show 0 1 rmoveto TIN (=) show gammaFi xchart get cvsshow3g (, ) show TII (C) show /xchartP xchart 1 add def 0 -1 rmoveto TIK (YP) show xchartP cvishow 0 1 rmoveto xchartP 8 ge {%xchartP>=8 TIN (=) show TII (C) show 0 -1 rmoveto TIK (YN) show 8 xchartP 8 sub sub cvishow 0 1 rmoveto } if %xchartP>=8 %RIN %( AGF30-5N) show } if %ioutg=1 72 90 translate %72 90 translate 0.00237 MM dup scale %00229? 15 setlinewidth /xyf 1 def /xwidth 24700 def /ywidth 17000 def 0.5 0.5 0.5 setrgbcolor 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0.0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke 0 1 1 {/ibild exch def %ibild=0,1 ibild 0 eq {/ISIO*ioL ISIN*ioL def} {/ISIO*ioL ISOU*ioL def} ifelse /ISIO*ioG where {pop /ISIO*ioG ISIO*ioL def} if /ISRL*ioG where {pop /ISRL*ioG ISRL*ioL def} if /LAB*ioG where {pop LAB*ioG}{LAB*ioL} ifelse %new for hue data 0 0 0 setrgbcolor ibild 0 eq { 1500 1700 translate} if ibild 1 eq {13800 1700 translate} if %ibild 0 eq {-1250 -1950 moveto % RM % (AGF30-7N) show % RM (-) show colorml cvishow xcolorl cvishow % xchartd 1 eq {xchartl cvishow} % {xchartl xchartd idiv cvishow} ifelse % RM (-) show pchartl cvishow (: ) show} % {-600 -1950 moveto} ifelse %TM %(20stufiger Bunttonkreis mit 4 Elementarfarben) showde %(20 step hue circle with 4 elementary colours) showen %(Hue circulo con 20 pasos y 4 colores elementales) showes %(Cercle cromatique avec 20 paliers et 4 coleurs \351l\351mentales) showfr %(Cerchio tinta con 20 passi e 4 colori elementari) showit %(Kulor sirkel med 20 trinn og 4 elementarfarger) showjp %TIM ( R) show (e) jshowTM %TIM (, J) show (e) jshowTM %TIM (, G) show (e) jshowTM %TIM (, B) show (e) jshowTM %ibild 0 eq { %TM %( (links) ) showde %( (left) ) showen %( (izquierda) ) showes %( (gauche) ) showfr %( (sinistra) ) showit %( (venstre) ) showjp % } % { %TM %( (rechts) ) showde %( (right) ) showen %( (derecha) ) showes %( (droit) ) showfr %( (destra) ) showit %( (hoyre) ) showjp % } ifelse 1 1 1 setrgbcolor -1200 15000 moveto ibild 0 eq { %ibild=0,1 TBG (Eingabe: Farbmetrisches ) showde (Input: Colorimetric ) showen (Entrada: Colorimetrico ) showes (Entr\351e: Colorim\351trique ) showfr (Ingresso: Colorimetrico ) showit (Input: Kolorimetrisk ) showjp } { TBG (Ausgabe: Farbmetrisches ) showde (Output: Colorimetric ) showen (Salida: Colorimetrico ) showes (Sortie: Colorim\351trique ) showfr (Uscita: Colorimetrico ) showit (Utgang: Kolorimetrisk ) showjp } ifelse ISRL*ioL 0 eq {%ISRL*ioL=0 %default ISIN*ioL=1, ISOU*ioL=1, ISIO*ioL 0 eq {/TSYSIO (ORS18a) def (Offset Reflective System ) showen (Offset-Reflektiv-System ) showde} if ISIO*ioL 1 eq {/TSYSIO (TLS00a) def RBG (Fernseh-Licht-System ) showde (Television Luminous System ) showen TBG (Televisi\363n sistema luminoso ) showes (Syst\350me lumineux de la t\351l\351vision ) showfr (Televisione sistema luminoso ) showit (Tv Lysende System ) showjp } if ISIO*ioL 2 eq {/TSYSIO (FRS06a) def (Printer Reflective System ) showen (Drucker-Reflektiv-System ) showde} if ISIO*ioL 3 eq {/TSYSIO (TLS18a) def (Television Luminous System ) showen (Fernseh-Licht-System ) showde} if ISIO*ioL 4 eq {/TSYSIO (NLS00a) def (Natural Luminous System ) showen (Nat\374rliches-Licht-System ) showde} if ISIO*ioL 5 eq {/TSYSIO (NRS18a) def (Natural Reflective System ) showen (Nat\374rliches-Reflektiv-System ) showde} if ISIO*ioL 6 eq {/TSYSIO (SRS18a) def (Standard Reflective System ) showen (Standard-Reflektiv-System ) showde} if ISIO*ioL 7 eq {/TSYSIO (TLS70a) def (Television Luminous System ) showen (Fernseh-Licht-System ) showde} if } if %ISRL*ioL=0 ISRL*ioL 1 eq {%ISRL*ioL=1 TBG ISIO*ioL 0 eq {/TSYSIO (TLS00a) def} if ISIO*ioL 1 eq {/TSYSIO (TLS06a) def} if ISIO*ioL 2 eq {/TSYSIO (TLS11a) def} if ISIO*ioL 3 eq {/TSYSIO (TLS18a) def} if ISIO*ioL 4 eq {/TSYSIO (TLS27a) def} if ISIO*ioL 5 eq {/TSYSIO (TLS38a) def} if ISIO*ioL 6 eq {/TSYSIO (TLS52a) def} if ISIO*ioL 7 eq {/TSYSIO (TLS70a) def} if RBG (Fernseh-Licht-System ) showde (Television Luminous System ) showen TBG (Televisi\363n sistema luminoso ) showes (Syst\350me lumineux de la t\351l\351vision ) showfr (Televisione sistema luminoso ) showit (Tv Lysende System ) showjp } if %ISRL*ioL=1 ISRL*ioL 2 eq {%ISRL*ioL=2 TBG ISIO*ioL 0 eq {/TSYSIO (OLS00a) def} if ISIO*ioL 1 eq {/TSYSIO (OLS06a) def} if ISIO*ioL 2 eq {/TSYSIO (OLS11a) def} if ISIO*ioL 3 eq {/TSYSIO (OLS18a) def} if ISIO*ioL 4 eq {/TSYSIO (OLS27a) def} if ISIO*ioL 5 eq {/TSYSIO (OLS38a) def} if ISIO*ioL 6 eq {/TSYSIO (OLS52a) def} if ISIO*ioL 7 eq {/TSYSIO (OLS70a) def} if (Offset Luminous System ) showen (Offset-Licht-System ) showde } if %ISRL*ioL=2 TSYSIO show ibild 0 eq {%ibild=0 -1200 14500 moveto TBG (mit) showde (with ) showen (con ) showes (avec ) showfr (con ) showit (med ) showjp (rgb) show (d) jshowTG TBG (\255Daten der) showde ( data of the) showen ( los datos de los) showes ( les donn\351es de) showfr ( i dati di) showit ( data i) showjp -1200 14000 moveto TBG (vier Elementarbuntt\366ne) showde (four elementary hues) showen (ciatro colores elementales) showes (4 couleur \351l\351mentaire) showfr (quattro colori elementari) showit (fire elementaerfarge) showjp -1200 13500 moveto TBG ((1 0 0)) show 0 -50 rmoveto (d) show 0 50 rmoveto ( = ) show TBG (Rot) showde (Red) showen (Rojo) showes (Rouge) showfr (Rosso) showit (R\370d) showjp TBIG ( R) show (d) jshowTG -1200 13000 moveto TBG ((1 1 0)) show 0 -50 rmoveto (d) show 0 50 rmoveto ( = ) show TBG (Gelb) showde (Yellow) showen (Amarillo) showes (Jaune) showfr (Giallo) showit (Gul) showjp TBIG ( Y) show (d) jshowTG -1200 12500 moveto TBG ((0 1 0)) show 0 -50 rmoveto (d) show 0 50 rmoveto ( = ) show TBG (Gr\374n) showde (Green) showen (Verde) showes (Vert) showfr (Verde) showit (Gr\370nn) showjp TBIG ( G) show (d) jshowTG -1200 12000 moveto TBG ((0 0 1)) show 0 -50 rmoveto (d) show 0 50 rmoveto ( = ) show TBG (Blau) showde (Blue) showen (Azul) showes (Bleu) showfr (Blu) showit (Bl\345) showjp TBIG ( B) show (d) jshowTG } if %ibild=0 ibild 1 eq {%ibild=0 -1200 14500 moveto TBG (mit Bunttonnummer) showde (with hue number) showen (con tono n\372mero) showes (avec num\351ro de teinte) showfr (con numero di tonalit\340) showit (med fargetone nummer) showjp -1200 14000 moveto TBIG (n) show TBG (= 01 bis 16) showde (= 01 to 16) showen (= 01 to 16) showes (= 01 to 16) showfr (= 01 to 16) showit (= 01 to 16) showjp -1200 13500 moveto TBG (01 = ) show (Rot) showde (Red) showen (Rojo) showes (Rouge) showfr (Rosso) showit (R\370d) showjp TBIG ( R) show (d) jshowTG -1200 13000 moveto TBG (05 = ) show (Gelb) showde (Yellow) showen (Amarillo) showes (Jaune) showfr (Giallo) showit (Gul) showjp TBIG ( Y) show (d) jshowTG -1200 12500 moveto TBG (09 = ) show (Gr\374n) showde (Green) showen (Verde) showes (Vert) showfr (Verde) showit (Gr\370nn) showjp TBIG ( G) show (d) jshowTG -1200 12000 moveto TBG (13 = ) show (Blau) showde (Blue) showen (Azul) showes (Bleu) showfr (Blu) showit (Bl\345) showjp TBIG ( B) show (d) jshowTG -1200 11500 moveto TBG (mit Bunttonposition) showde (with hue position) showen %(con tono n\372mero) showes %(avec num\351ro de teinte) showfr %(con numero di tonalit\340) showit %(med fargetone nummer) showjp -1200 11000 moveto TBG ((Zeile und Spalte)) showde ((row and column)) showen -1200 10500 moveto TBG (von Pr\374fvorlage ) showde (of test chart ) showen (ISO 9241\255306:) show (AG49) showde (AE49) showen } if %ibild=1 0.0 setgray %CIELAB-Table 5400 10000 translate /yhoe 6300 def 15 setlinewidth 1 1 1 setrgbcolor 0 0 moveto 5400 0 rlineto 0 4800 rlineto -5400 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 5400 0 rlineto 0 4800 rlineto -5400 0 rlineto closepath stroke /yd 340 def %y-Zeilenabstand %Spalten /S1 20 def /S2 450 def /S3 1550 def /S4 2650 def /S5 3750 def /S6 4800 def /yu1 4650 def /yu2 3800 def 0 4100 moveto 5200 0 rlineto stroke %Titeltext /ColNames [(R) (Y) (G) (C) (B) (M) (N) (W) (R) (J) (G) (B)] def S1 4550 moveto TBM ibild 0 eq {TSYSIO show} {TSYSIO show} ifelse (; adaptierte CIELAB-Daten) showde (; adapted (a) CIELAB data) showen (; adaptatos (a) datos CIELAB) showes (; adapt\351 (a) donn\351es CIELAB) showfr (; adattato (a) dati CIELAB) showit (; tilpasset (a) CIELAB data) showjp S2 000 add 4250 moveto TBIM (L*=L*) show (a) jshowTM S3 100 add 4250 moveto TBIM (a*) show (a) jshowTM S4 000 add 4250 moveto TBIM (b*) show (a) jshowTM S5 100 sub 4250 moveto TBIM (C*) show (ab,a) jshowTM S6 200 sub 4250 moveto TBIM (h*) show (ab,a) jshowTM 0 1 11 {/ic exch def %ic=0,11 S1 20 add yu2 yd ic mul sub moveto TM ColNames ic get show ic 8 ge {(CIE) ishowTM}{(Ma) ishowTM} ifelse } for %ic=0,11 0 1 11 {/i exch def %i=0,11 /ya yu2 yd i mul sub def /L*Ma LAB*a i 3 mul get def /A*Ma LAB*a i 3 mul 1 add get def /B*Ma LAB*a i 3 mul 2 add get def /C*Ma A*Ma dup mul B*Ma dup mul add sqrt def /H*Ma B*Ma A*Ma 0.0001 add atan def S2 200 add ya moveto L*Ma cvsshow2 S3 ya moveto A*Ma cvsshow2 S4 ya moveto B*Ma cvsshow2 S5 ya moveto C*Ma cvsshow2 S6 ya moveto H*Ma cvishow } for %i=0,11 -5400 -10000 translate %CIELAB-Diagram 2500 11600 translate 25 setlinewidth 1 1 1 setrgbcolor 0 0 moveto 2800 0 rlineto 0 2800 rlineto -2800 0 rlineto closepath fill 0 0 0 setrgbcolor 0 0 moveto 2800 0 rlineto 0 2800 rlineto -2800 0 rlineto closepath stroke 1200 1300 translate -1000 0 moveto 1000 0 lineto stroke 0 -1000 moveto 0 1000 lineto stroke 1100 0 moveto TIG (a*) show (a) ishowTG 0 1100 moveto TIG (b*) show (a) ishowTG /rx 774 def %standard hexagon gamut 0 0 0 setrgbcolor rx 030 cos mul rx 030 sin mul moveto 0 rx lineto rx 150 cos mul rx 150 sin mul lineto rx 210 cos mul rx 210 sin mul lineto 0 rx neg lineto rx 330 cos mul rx 330 sin mul lineto closepath stroke /r 1 def /g 0 def /b 0 def r g b setrgbcolor rx 030 cos mul rx 030 sin mul 100 0 360 arc fill /r 1 def /g 1 def /b 0 def r g b setrgbcolor 0 rx 100 0 360 arc fill /r 0 def /g 1 def /b 0 def r g b setrgbcolor rx 150 cos mul rx 150 sin mul 100 0 360 arc fill /r 0 def /g 1 def /b 1 def r g b setrgbcolor rx 210 cos mul rx 210 sin mul 100 0 360 arc fill /r 0 def /g 0 def /b 1 def r g b setrgbcolor 0 rx neg 100 0 360 arc fill /r 1 def /g 0 def /b 1 def r g b setrgbcolor rx 330 cos mul rx 330 sin mul 100 0 360 arc fill %calculation line of actual hue 45 setlinewidth %actual gamut 0 0 0 setrgbcolor 0 1 5 {/i exch def %i=0,5 /A*Ma LAB*a i 3 mul 1 add get def /B*Ma LAB*a i 3 mul 2 add get def i 0 eq {A*Ma 10 mul B*Ma 10 mul moveto} {A*Ma 10 mul B*Ma 10 mul lineto} ifelse i 5 eq {closepath stroke} if } for %i=0,5 -1200 -1300 translate -2500 -11600 translate %BEG CIELAB-Hue Circle -1200 -1500 translate /xym xyf 4 mul def 25 setlinewidth /xd2 xd 0.85 mul def 0.5 0.5 0.5 setrgbcolor 0 0 moveto 2800 xym mul 0 rlineto 0 2800 xym mul rlineto -2800 xym mul 0 rlineto closepath fill 0.0 setgray 0 0 moveto 2800 xym mul 0 rlineto 0 2800 xym mul rlineto -2800 xym mul 0 rlineto closepath stroke 1400 xym mul 1400 xym mul translate %cero at center -550 xym mul 0 moveto 550 xym mul 0 lineto stroke 0 -650 xym mul moveto 0 650 xym mul lineto stroke /rx 774 xym mul 1.56 mul def %standard hexagon gamut 0 0 0 setrgbcolor 0 0 rx 0 360 arc stroke %not used, rgb & cmy data, and position %of 1080 samples %of ISO 9241-306:2018, test chart A(E/G)49 %partly used in the following table /RGBCMY0*tx 1080 array def /RGBCMY0*tx [ %BEG RGBCMY0ALL.DAT %A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n %XE160-7A, Test chart with 40x27=1080 colours; digital equidistant 9 or 16 step colour scales; %Colour data in column (A¥n): rgb (A¥j, n), 000n (k), w (l), nnn0 (m), 6,0mm x 6,0mm, 270mm x 187mm, %Page 3/11, ORS18, special L16E00NA12.PS used for this output %01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 %A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n %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) ] def %END RGBCMY0*tx=RGBCMY0*tx.DAT %not used, position 48 step hue circle %of ISO 9241-306:2018, test chart A(E/G)49 %partly used in the following table /huepos49 49 array def %huepos_circle /huepos49 %BEG huepos49 (49=48+1) % R %Y [(19S)(19T)(19U)(19V)(19W)(19X)(19Y)(19Z)%(19a) % Y %G (19a)(19R)(19I)(10a)(10R)(10I)(01a)(01R)%(01I) % G %C (01I)(02I)(03I)(04I)(05I)(06I)(07I)(08I)%(09I) % C %B (09I)(09H)(09G)(09F)(09E)(09D)(09C)(09B)%(09A) % B %M (09A)(09J)(09S)(18A)(18J)(18S)(27A)(27J)%(27S) % M %R (27S)(26S)(25S)(24S)(23S)(22S)(21S)(20S)(19S) ] def %BEG huepos49 /AngrgbTabte 119 array def %7x16+1 /AngrgbTabte [%31 angles = 360/18 + 1 = 20 + 1 000.0 1.00 0.00 0.00 ( (1 0 0)) (01) (19S) 022.5 1.00 0.25 0.00 ((1 0,25 0)) (02) (19U) 045.0 1.00 0.50 0.00 ((1 0,50 0)) (03) (19W) 067.5 1.00 0.75 0.00 ((1 0,75 0)) (04) (19Y) 090.0 1.00 1.00 0.00 ( (1 1 0)) (05) (19a) 112.5 0.75 1.00 0.00 ((0,75 1 0)) (06) (19I) 135.0 0.50 1.00 0.00 ((0,50 1 0)) (07) (10R) 157.5 0.25 1.00 0.00 ((0,25 1 0)) (08) (01a) 180.0 0.00 1.00 0.00 ( (0 1 0)) (09) (01I) 202.5 0.00 1.00 0.50 ((0 1 0,50)) (10) (05I) 225.0 0.00 1.00 1.00 ( (0 1 1)) (11) (09I) 247.5 0.00 0.50 1.00 ((0 0,50 1)) (12) (09E) 270.0 0.00 0.00 1.00 ( (0 0 1)) (13) (09A) 292.5 0.50 0.00 1.00 ((0,50 0 1)) (14) (18J) 315.0 1.00 0.00 1.00 ( (1 0 1)) (15) (27S) 337.5 1.00 0.00 0.50 ((1 0 0,50)) (16) (23S) 360.0 1.00 0.00 0.00 ( (1 0 0)) (01) (19S) ] def /xd2r xd2 0.7 mul def 0 1 16 {/j exch def %j=0,16 /xpos rx AngrgbTabte j 7 mul get cos mul def /ypos rx AngrgbTabte j 7 mul get sin mul def /r AngrgbTabte j 7 mul 1 add get def /g AngrgbTabte j 7 mul 2 add get def /b AngrgbTabte j 7 mul 3 add get def r g b setrgbcolor xpos ypos xd2 0 360 arc fill /xchax 0 def xchax 0 eq {%xchax=0 /xpos rx AngrgbTabte j 7 mul get cos mul def /ypos rx AngrgbTabte j 7 mul get sin mul def /r AngrgbTabte j 7 mul 1 add get def /g AngrgbTabte j 7 mul 2 add get def /b AngrgbTabte j 7 mul 3 add get def 1 r sub 1 g sub 1 b sub 0 setcmykcolor xpos ypos xd2r 0 360 arc fill } if %xchax=0 } for %j=0,16 ibild 0 eq {%ibild=0 TBM 0 0 0 setrgbcolor 0 1 15 {/j exch def %j=0,15 /xpos rx AngrgbTabte j 7 mul get cos mul def /ypos rx AngrgbTabte j 7 mul get sin mul def 0 0 0 setrgbcolor j 11 ge j 13 le and {1 1 1 setrgbcolor} if xpos 650 sub ypos 050 sub moveto AngrgbTabte j 7 mul 4 add get show 0 -50 rmoveto TBM (d) show 0 50 rmoveto } for %j=0,15 } if %ibild=0 ibild 1 eq {%ibild=1 0 1 15 {/j exch def %j=0,15 /xpos rx AngrgbTabte j 7 mul get cos mul def /ypos rx AngrgbTabte j 7 mul get sin mul def 0 0 0 setrgbcolor j 11 ge j 13 le and {1 1 1 setrgbcolor} if xpos 200 sub ypos 100 add moveto AngrgbTabte j 7 mul 5 add get show xpos 300 sub ypos 300 sub moveto AngrgbTabte j 7 mul 6 add get show } for %j=0,15 } if %ibild=1 0.5 0.5 0.5 setrgbcolor -1700 1000 moveto 3000 0 rlineto 0 1200 rlineto -3000 0 rlineto closepath fill 1 1 1 setrgbcolor TBG -0600 1900 moveto ( device) showen (Ger\344te\255) showde -1400 1500 moveto (hue output according) showen ( Bunttonausgabe nach) showde -1400 1100 moveto (to ISO 9241\255306:2018) showen ( ISO 9241\255306:2018) showde 1 1 1 setrgbcolor 2600 800 moveto TBG ( gelblich) showde (yellowish?) showen (jaun\342tre) showfr ( gullig) showjp -250 0 rmoveto (amarillento) showes ( giallastro) showit -3800 800 moveto TBG ( gelblich) showde (yellowish?) showen (amarillento) showes (jaun\342tre) showfr (giallastro) showit ( gullig) showjp 2600 -1150 moveto TBG (bl\344ulich) showde ( bluish?) showen ( azulado) showes ( blu\342tre) showfr ( bluastro) showit ( bl\345lig) showjp -3800 -1150 moveto TBG (bl\344ulich) showde ( bluish?) showen ( azulado) showes ( blu\342tre) showfr ( bluastro) showit ( bl\345lig) showjp -1600 3400 moveto TBG (gr\374nlich) showde (greenish?) showen (verdoso) showes (verd\342tre) showfr (verdastro) showit ( gr\370nnlig) showjp -1600 -3600 moveto TBG (gr\374nlich) showde (greenish?) showen (verdoso) showes (verd\342tre) showfr (verdastro) showit ( gr\370nnlig) showjp 700 3400 moveto TBG (r\366tlich) showde ( redish?) showen (rojizo) showes (rouge\342tre) showfr (rossastro) showit ( r\370dlig) showjp 700 -3600 moveto TBG (r\366tlich) showde ( redish?) showen (rojizo) showes (rouge\342tre) showfr (rossastro) showit ( r\370dlig) showjp 2700 -100 moveto TBG ( Rot) showde ( Red) showen (Rojo) showes (Rouge) showfr (Rosso) showit ( R\370d) showjp TBIG ( R) show (d) jshowTG -600 3800 moveto TBG ( Gelb) showde ( Yellow) showen (Amarillo) showes ( Jaune) showfr ( Giallo) showit ( Gul) showjp TBIG ( Y) show (d) jshowTG -4000 -100 moveto TBG (Gr\374n) showde (Green) showen (Verde) showes (Vert) showfr (Verde) showit (Gr\370nn) showjp TBIG ( G) show (d) jshowTG -500 -4000 moveto TBG (Blau) showde (Blue) showen (Azul) showes (Bleu) showfr (Blu) showit (Bl\345) showjp TBIG ( B) show (d) jshowTG -1400 xym mul -1400 xym mul translate %END CIELAB-Hue Circle 1200 1500 translate ibild 0 eq { -1500 -1700 translate} if ibild 1 eq {-13800 -1700 translate} if 0 0 0 setrgbcolor /xwidth 24700 def /ywidth 17000 def 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke } for %ibild=0,1 %} if %pchartl=0 Y10-7N_AL39_JSO.EPS %} for %pchartl=0,2 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 grestore showpage %%EOF