%!PS-Adobe-3.0 EPSF-3.0 VG810-7N %%BoundingBox: 70 83 795 587 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/VG81/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@me.com) /CreationDate (D:2014100112000) /ModDate (D:2014100112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } 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 /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 /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 /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 /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {290 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CSS {115 /Courier-ISOL1 FS} bind def /CSK {140 /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 /CBSS {115 /CourierB-ISOL1 FS} bind def /CBSK {140 /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 /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /ss {350 /Symbol FS show} bind def /is {300 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ib {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {300 /Times-ISOL1 FS show TM} bind def /ks2 {300 /TimesI-ISOL1 FS show TM} bind def /bs2 {300 /TimesB-ISOL1 FS show TM} bind def /js2 {300 /TimesBI-ISOL1 FS show TM} bind def /ss2 {300 /Symbol FS show TM} bind def /is2 {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def /tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfyz {0.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def /cvishow {cvi 10 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %0 %1 %2 %max 2800 sample pairs with 10 data per line = minimum 28000 data /WData0 28000 array def /WData0 [ %LCD_datasets_0128_OSA.txt, 20150216, from ME17AG/Melgosa_15: LCD_datasets.xlsx %Reference White, Sample 1, Sample 2, Vis. Dif, LCD_datasets, Export Tabstop separated txt %X0 Y0 Z0 X1 Y1 Z1 X2 Y2 Z2 dV 94.811 100 107.304 18.48 29.96 14.16 17.58377 30.5 8.27308 2.311 94.811 100 107.304 18.48 29.96 14.16 18.26751 29.58 21.68799 2.16 94.811 100 107.304 20.72 29.28 9.77 17.58737 30.5 8.27118 2.608 94.811 100 107.304 20.72 29.28 9.77 18.48405 29.96 14.1581 2.176 94.811 100 107.304 20.72 29.28 9.77 21.89853 27.15 6.39609 2.569 94.811 100 107.304 19.41 27.84 16.63 18.47557 29.96 14.16144 1.818 94.811 100 107.304 19.41 27.84 16.63 20.71169 29.28 9.77352 2.788 94.811 100 107.304 19.41 27.84 16.63 18.26258 29.58 21.68917 2.268 94.811 100 107.304 21.54 27.16 11.97 20.71883 29.28 9.77241 2.038 94.811 100 107.304 21.54 27.16 11.97 21.8975 27.15 6.39827 1.877 94.811 100 107.304 21.54 27.16 11.97 19.4176 27.84 16.62965 2.039 94.811 100 107.304 21.87 25.06 8.68 21.89096 27.15 6.3968 2.127 94.811 100 107.304 21.87 25.06 8.68 21.53291 27.16 11.96752 2.234 94.811 100 107.304 21.87 25.06 8.68 26.05173 26.79 5.4559 2.944 94.811 100 107.304 19.2 29.51 32.1 18.2673 29.58 21.69092 2.602 94.811 100 107.304 19.2 29.51 32.1 21.53104 30.03 41.85139 2.537 94.811 100 107.304 20.51 28.26 25.89 18.26688 29.58 21.68507 1.746 94.811 100 107.304 20.51 28.26 25.89 19.41395 27.84 16.62622 2.054 94.811 100 107.304 20.51 28.26 25.89 19.19941 29.51 32.0921 1.705 94.811 100 107.304 22.16 27.56 20.44 19.40994 27.84 16.63017 1.24 94.811 100 107.304 22.16 27.56 20.44 21.53244 27.16 11.97096 1.56 94.811 100 107.304 22.16 27.56 20.44 20.5053 28.26 25.8946 2.122 94.811 100 107.304 25.46 28.68 16.27 21.5347 27.16 11.96706 1.957 94.811 100 107.304 25.46 28.68 16.27 21.87169 25.06 8.67953 1.706 94.811 100 107.304 25.46 28.68 16.27 22.16261 27.56 20.43523 1.943 94.811 100 107.304 26.65 27.55 12.01 21.87366 25.06 8.68104 2.525 94.811 100 107.304 26.65 27.55 12.01 26.05579 26.79 5.45668 2.133 94.811 100 107.304 26.65 27.55 12.01 25.46253 28.68 16.27235 2.122 94.811 100 107.304 28.92 27.3 8.41 26.0534 26.79 5.45854 2.727 94.811 100 107.304 28.92 27.3 8.41 26.64729 27.55 12.01205 2.462 94.811 100 107.304 28.92 27.3 8.41 25.88394 26.54 10.45149 1.739 94.811 100 107.304 22.57 29.53 37.08 19.19648 29.51 32.09235 2.177 94.811 100 107.304 22.57 29.53 37.08 20.50722 28.26 25.89039 2.728 94.811 100 107.304 22.57 29.53 37.08 21.52666 30.03 41.8411 1.709 94.811 100 107.304 23.78 28.39 30.89 20.50984 28.26 25.89309 1.655 94.811 100 107.304 23.78 28.39 30.89 22.16434 27.56 20.43839 2.279 94.811 100 107.304 23.78 28.39 30.89 22.57321 29.53 37.08405 2.247 94.811 100 107.304 26.13 28.84 25.5 22.166 27.56 20.43793 1.972 94.811 100 107.304 26.13 28.84 25.5 25.4636 28.68 16.27229 1.86 94.811 100 107.304 26.13 28.84 25.5 23.78198 28.39 30.88964 2.342 94.811 100 107.304 28.15 28.75 20.72 25.45988 28.68 16.27604 1.994 94.811 100 107.304 28.15 28.75 20.72 26.64755 27.55 12.01342 1.689 94.811 100 107.304 28.15 28.75 20.72 26.12575 28.84 25.5043 2.257 94.811 100 107.304 29.88 28.21 15.37 26.64518 27.55 12.01192 2.391 94.811 100 107.304 29.88 28.21 15.37 28.91786 27.3 8.40999 2.312 94.811 100 107.304 29.88 28.21 15.37 28.1472 28.75 20.71771 1.599 94.811 100 107.304 32.41 28.23 12.04 28.92297 27.3 8.40542 2.436 94.811 100 107.304 32.41 28.23 12.04 30.38866 26.54 5.94521 2.315 94.811 100 107.304 32.41 28.23 12.04 29.88581 28.21 15.36486 1.409 94.811 100 107.304 32.64 26.38 7.38 30.38668 26.54 5.95103 2.538 94.811 100 107.304 32.64 26.38 7.38 32.40771 28.23 12.04712 1.846 94.811 100 107.304 24.53 29.58 49.49 21.5264 30.03 41.84334 3.399 94.811 100 107.304 24.53 29.58 49.49 22.56979 29.53 37.08205 3.345 94.811 100 107.304 26.42 29.83 43.02 22.57763 29.53 37.08165 3.223 94.811 100 107.304 26.42 29.83 43.02 23.78416 28.39 30.88766 3.019 94.811 100 107.304 26.42 29.83 43.02 24.53929 29.58 49.49073 2.232 94.811 100 107.304 28.53 30.26 36.1 23.77747 28.39 30.89388 2.588 94.811 100 107.304 28.53 30.26 36.1 26.12562 28.84 25.50412 2.459 94.811 100 107.304 28.53 30.26 36.1 26.41199 29.83 43.02736 2.126 94.811 100 107.304 27.97 27.95 27.77 26.13112 28.84 25.50423 2.387 94.811 100 107.304 27.97 27.95 27.77 28.15531 28.75 20.71964 1.792 94.811 100 107.304 27.97 27.95 27.77 28.53657 30.26 36.10086 2 94.811 100 107.304 31.13 28.77 23.37 28.15556 28.75 20.71269 2.358 94.811 100 107.304 31.13 28.77 23.37 29.88801 28.21 15.36504 1.643 94.811 100 107.304 31.13 28.77 23.37 27.97021 27.95 27.76178 2.014 94.811 100 107.304 32.64 28.49 18.67 29.88526 28.21 15.36493 2.16 94.811 100 107.304 32.64 28.49 18.67 32.40944 28.23 12.04008 1.872 94.811 100 107.304 32.64 28.49 18.67 31.12686 28.77 23.36954 1.369 94.811 100 107.304 34.97 27.72 13.53 32.41084 28.23 12.04494 2.507 94.811 100 107.304 34.97 27.72 13.53 32.64289 26.38 7.37796 2.907 94.811 100 107.304 34.97 27.72 13.53 32.64154 28.49 18.67595 2.052 94.811 100 107.304 37.75 28.29 11.49 32.64264 26.38 7.37705 2.974 94.811 100 107.304 37.75 28.29 11.49 34.9697 27.72 13.52885 1.218 94.811 100 107.304 29.55 30.72 57.03 24.53682 29.58 49.49357 3.389 94.811 100 107.304 29.55 30.72 57.03 26.41764 29.83 43.0227 3.001 94.811 100 107.304 30.54 30.73 47.93 26.41134 29.83 43.02316 2.74 94.811 100 107.304 30.54 30.73 47.93 28.52929 30.26 36.09634 2.734 94.811 100 107.304 30.54 30.73 47.93 29.5424 30.72 57.02969 2.709 94.811 100 107.304 30.16 29.14 39.14 28.52948 30.26 36.09388 2.513 94.811 100 107.304 30.16 29.14 39.14 27.96353 27.95 27.76463 2.73 94.811 100 107.304 30.16 29.14 39.14 30.54018 30.73 47.92687 1.805 94.811 100 107.304 31.72 29.18 32.23 27.96453 27.95 27.76172 1.957 94.811 100 107.304 31.72 29.18 32.23 31.1242 28.77 23.37029 2.071 94.811 100 107.304 31.72 29.18 32.23 30.16116 29.14 39.13632 1.889 94.811 100 107.304 32.55 28.12 25.28 31.13025 28.77 23.37834 1.496 94.811 100 107.304 32.55 28.12 25.28 32.64351 28.49 18.6778 2.483 94.811 100 107.304 32.55 28.12 25.28 31.7268 29.18 32.24059 1.915 94.811 100 107.304 35.87 28.5 21.06 32.63729 28.49 18.67519 2.039 94.811 100 107.304 35.87 28.5 21.06 34.96575 27.72 13.52956 2.519 94.811 100 107.304 35.87 28.5 21.06 32.54327 28.12 25.27636 1.489 94.811 100 107.304 37.89 28.14 17.15 34.96935 27.72 13.52679 2.487 94.811 100 107.304 37.89 28.14 17.15 37.74958 28.29 11.48799 2.564 94.811 100 107.304 37.89 28.14 17.15 35.87404 28.5 21.05698 1.457 94.811 100 107.304 33.68 29.86 51.09 30.54703 30.73 47.93072 2.435 94.811 100 107.304 33.68 29.86 51.09 30.16629 29.14 39.14289 2.15 94.811 100 107.304 33.86 28.77 42.37 30.16149 29.14 39.14445 2.372 94.811 100 107.304 33.86 28.77 42.37 31.72044 29.18 32.23713 2.853 94.811 100 107.304 33.86 28.77 42.37 33.67431 29.86 51.09141 2.242 94.811 100 107.304 36.03 28.65 35.15 31.72515 29.18 32.23603 2.024 94.811 100 107.304 36.03 28.65 35.15 32.54835 28.12 25.27616 2.436 94.811 100 107.304 36.03 28.65 35.15 33.86542 28.77 42.36922 2.093 94.811 100 107.304 36.71 27.92 30.33 32.54274 28.12 25.27371 2.525 94.811 100 107.304 36.71 27.92 30.33 35.86938 28.5 21.05753 2.945 94.811 100 107.304 36.71 27.92 30.33 36.02318 28.65 35.14615 1.275 94.811 100 107.304 16.15 10.6 4.48 14.56654 10.3 4.63645 1.611 94.811 100 107.304 16.15 10.6 4.48 23.00355 17.27 6.71745 3.15 94.811 100 107.304 25.34 18.1 13.84 16.15092 10.6 4.6108 3.497 94.811 100 107.304 25.34 18.1 13.84 14.56279 10.3 4.76116 3.538 94.811 100 107.304 22.99 17.27 6.91 14.56143 10.3 4.75989 2.59 94.811 100 107.304 22.99 17.27 6.91 25.33739 18.1 13.837 3.253 94.811 100 107.304 73.38 79.95 44.57 71.95043 80.15 32.58043 2.498 94.811 100 107.304 73.38 79.95 44.57 51.62895 58.85 23.00047 3.701 94.811 100 107.304 54.51 58.27 21.67 73.38655 79.95 44.56179 3.365 94.811 100 107.304 54.51 58.27 21.67 71.95655 80.15 32.57286 2.773 94.811 100 107.304 51.63 58.85 23 71.95189 80.15 32.57978 2.61 94.811 100 107.304 51.63 58.85 23 54.50663 58.27 21.67501 2.253 94.811 100 107.304 22.02 28.85 31.47 20.13296 30.07 32.50315 1.733 94.811 100 107.304 22.02 28.85 31.47 12.43794 18.7 23.76897 2.804 94.811 100 107.304 11.98 18.37 16.44 22.01901 28.85 31.46423 3.375 94.811 100 107.304 11.98 18.37 16.44 20.13219 30.07 32.49739 3.803 94.811 100 107.304 12.44 18.7 23.77 20.13608 30.07 32.50441 3.375 94.811 100 107.304 12.44 18.7 23.77 11.98216 18.37 16.44356 2.508 94.811 100 107.304 7.08 6.48 23.13 5.96446 6.04 14.53159 1.835 94.811 100 107.304 7.08 6.48 23.13 12.06965 10.98 26.58535 3.151 94.811 100 107.304 10.54 11.74 27.07 7.0812 6.48 23.13343 2.467 94.811 100 107.304 10.54 11.74 27.07 5.96526 6.04 14.53338 2.641 94.811 100 107.304 12.07 10.98 26.59 5.96458 6.04 14.53407 2.936 94.811 100 107.304 12.07 10.98 26.59 10.53873 11.74 27.07128 3.008 ] def %************************************* /cvi36show {1000 mul /nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 9999 le {(0) show} if nx 99999 le {(0) show} if nx 999999 le {(0) show} if nx cvi 10 string cvs show } def /cvi34show {1000 mul /nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 9999 le {(0) show} if nx cvi 8 string cvs show } def %******************************************* /cvi03show {/nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx cvi 7 string cvs show } def /cvi02show {/nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx cvi 6 string cvs show } def /cvi02nshow {/nx exch def %with round nx 0 eq {%nx=0 (00) show nx cvi 6 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 /nx nx 0.5 add cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 6 string cvs show } if nx 0 lt {%nx<0 /nx nx 0.5 sub cvi def nx abs 99 le {(0) show} if nx 6 string cvs show } if %nx>=0 } def /cvi02xshow {/nx exch def %with round nx 0 eq {%nx=0 ( ) show nx cvi 6 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 /nx nx 0.5 add cvi def nx 9 le {( ) show} if nx 99 le {( ) show} if nx 6 string cvs show } if nx 0 lt {%nx<0 /nx nx 0.5 sub cvi def nx abs 99 le {( ) show} if nx 6 string cvs show } if %nx>=0 } def /cvi03nshow {/nx exch def %with round nx 0 eq {%nx=0 (000) show nx cvi 7 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 /nx nx 0.5 add cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 7 string cvs show } if nx 0 lt {%nx<0 /nx nx 0.5 sub cvi def nx abs 9 le {(0) show} if nx abs 99 le {(0) show} if nx 7 string cvs show } if %nx>=0 } def /cvi03xshow {/nx exch cvi def %with round nx 0 eq {%nx=0 ( ) show nx cvi 7 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 % /nx nx 0.5 add cvi def nx 9 le {( ) show} if nx 99 le {( ) show} if nx 999 le {( ) show} if nx 7 string cvs show } if nx 0 lt {%nx<0 % /nx nx 0.5 sub cvi def nx abs 9 le {( ) show} if nx abs 99 le {( ) show} if nx 7 string cvs show } if %nx>=0 } 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 /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colorMD colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetaMD pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output /xchart xchart1 def % /xc0d 03 def /xc2d 03 def /xc4d 03 def /xcal xc0d 1 add 2 mul % xc2d 1 add 2 mul add % xc4d 1 add 2 mul add 1 sub def /xchartl xchart def %0 1 xc0d {/xchart exch def %xchart=0,xc0d /iXYZLAB 0 def /xc1a 00 def /xc1e xc0d def /xc2a xc1e 1 add def /xc2e xc2a xc0d add def /xc3a xc2e 1 add def /xc3e xc3a xc2d add def /xc4a xc3e 1 add def /xc4e xc4a xc2d add def /xc5a xc4e 1 add def /xc5e xc5a xc4d add def /xc6a xc5e 1 add def /xc6e xc6a xc4d add def xchart xc1e le {/iXYZLAB 0 def /xchartl xchart def} if xchart xc2a ge xchart xc2e le and {/iXYZLAB 1 def /xchartl xchart xc2a sub def} if xchart xc3a ge xchart xc3e le and {/iXYZLAB 2 def /xchartl xchart xc3a sub def} if xchart xc4a ge xchart xc4e le and {/iXYZLAB 3 def /xchartl xchart xc4a sub def} if xchart xc5a ge xchart xc5e le and {/iXYZLAB 4 def /xchartl xchart xc5a sub def} if xchart xc6a ge xchart xc6e le and {/iXYZLAB 5 def /xchartl xchart xc6a sub def} if /xp0 0050 def /xp1 6650 def /xdel 620 def /xdel0 650 def /xdel1 550 def /xdela 21 array def /xdela %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 %XYZS, XYZ0, XYZ1, DY [0000 0650 1300 1950 2600 3250 3900 4550 5200 5850 %10 %11 %12 %13 %14 %15 %16 DE*(6X)+NR 6500 7000 7500 8000 8500 9000 9500 %17 %18 %19 %20 %21 %22 CODE, L*, a*, b*, % 10220 11300 11800 12300 12700] def /ydel 160 def %********************************************************** %iXYZLAB 00-05: %00=XYZa, 01=LABa, 02=XYZ2 03=LAB2 04=XYZ2 05=LAB2 /textXYZ 21 array def /textXYZ [(%XS) (YS) (ZS) (X0) (Y0) (Z0) (X1) (Y1) (Z1) (DV) (dE*ab) (dE*CH) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (L*) (a*) (b*)] def /textLAB 21 array def /textLAB [(%L*0) (a*0) (b*0) (C*ab0) (hab0) (L*1) (a*1) (b*1) (C*ab1) (hab1) (DV) (dE*ab) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (L*) (a*) (b*)] def /textXYZ2 21 array def /textXYZ2 [(%XS2) (YS2) (ZS2) (X02) (Y02) (Z02) (X12) (Y12) (Z12) (DV2) (dE*ab) (dE*CH) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (L*) (a*) (b*)] def /textLAB2 21 array def /textLAB2 [(%L*02) (a*02) (b*02) (C*ab02) (hab02) (L*12) (a*12) (b*12) (C*ab12) (hab12) (DV2) (dE*ab) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (L*) (a*) (b*)] def /textXYZ4 21 array def /textXYZ4 [(%XS4) (YS4) (ZS4) (X04) (Y04) (Z04) (X14) (Y14) (Z14) (DV4) (dE*ab) (dE*CH) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (L*) (a*) (b*)] def /textLAB4 21 array def /textLAB4 [(%L*04) (a*04) (b*04) (C*ab04) (hab04) (L*14) (a*14) (b*14) (C*ab14) (hab14) (DV4) (dE*ab) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (L*) (a*) (b*)] def %********************************************************** /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def %calculated data: CIELAB01ai, 2800 x 10 dat = 28000 /WXYZR01Vai 28000 array def %CIEXYZ /CIELAB01ai 28000 array def %CIELAB /C00LAB01ai 28000 array def %CIE DE2000 /d_CIELABai 2800 array def /d_CIELCHai 2800 array def /d_C94LABai 2800 array def %CIE94 /d_C94LCHai 2800 array def /d_CCMLABai 2800 array def %CMC /d_CCMLCHai 2800 array def /d_C00LABai 2800 array def %CIE DE2000 /d_C00LCHai 2800 array def /d_C85LABai 2800 array def %LABJND 1985 /d_C85LCHai 2800 array def /WXYZR01V2i 28000 array def %CIEXYZ /CIELAB012i 28000 array def %CIELAB /C00LAB012i 28000 array def %CIE DE2000 /d_CIELAB2i 2800 array def /d_CIELCH2i 2800 array def /d_C94LAB2i 2800 array def %CIE94 /d_C94LCH2i 2800 array def /d_CCMLAB2i 2800 array def %CMC /d_CCMLCH2i 2800 array def /d_C00LAB2i 2800 array def %CIE DE2000 /d_C00LCH2i 2800 array def /d_C85LAB2i 2800 array def %LABJND 1985 /d_C85LCH2i 2800 array def /WXYZR01V4i 28000 array def %CIEXYZ /CIELAB014i 28000 array def %CIELAB /C00LAB014i 28000 array def %CIE DE2000 /d_CIELAB4i 2800 array def /d_CIELCH4i 2800 array def /d_C94LAB4i 2800 array def %CIE94 /d_C94LCH4i 2800 array def /d_CCMLAB4i 2800 array def %CMC /d_CCMLCH4i 2800 array def /d_C00LAB4i 2800 array def %CIE DE2000 /d_C00LCH4i 2800 array def /d_C85LAB4i 2800 array def %LABJND 1985 /d_C85LCH4i 2800 array def /iai -1 def %count d_CIELAB all /i2i -1 def %count d_CIELAB<=2 /i4i -1 def %count d_C00LAB<=2 /dVsuma 0 def /dVsum2 0 def /dVsum4 0 def /d_CIELABmina 2800 def /d_CIELABmaxa 0 def /d_CIELABsuma 0 def /d_CIELABVsuma 0 def /d_CIELCHmina 2800 def /d_CIELCHmaxa 0 def /d_CIELCHsuma 0 def /d_CIELCHVsuma 0 def /d_C94LCHmina 2800 def /d_C94LCHmaxa 0 def /d_C94LCHsuma 0 def /d_C94LCHVsuma 0 def /d_CCMLCHmina 2800 def /d_CCMLCHmaxa 0 def /d_CCMLCHsuma 0 def /d_CCMLCHVsuma 0 def /d_C00LCHmina 2800 def /d_C00LCHmaxa 0 def /d_C00LCHsuma 0 def /d_C00LCHVsuma 0 def /d_C85LCHmina 2800 def /d_C85LCHmaxa 0 def /d_C85LCHsuma 0 def /d_C85LCHVsuma 0 def /d_CIELABmin2 2800 def /d_CIELABmax2 0 def /d_CIELABsum2 0 def /d_CIELABVsum2 0 def /d_CIELCHmin2 2800 def /d_CIELCHmax2 0 def /d_CIELCHsum2 0 def /d_CIELCHVsum2 0 def /d_C94LCHmin2 2800 def /d_C94LCHmax2 0 def /d_C94LCHsum2 0 def /d_C94LCHVsum2 0 def /d_CCMLCHmin2 2800 def /d_CCMLCHmax2 0 def /d_CCMLCHsum2 0 def /d_CCMLCHVsum2 0 def /d_C00LCHmin2 2800 def /d_C00LCHmax2 0 def /d_C00LCHsum2 0 def /d_C00LCHVsum2 0 def /d_C85LCHmin2 2800 def /d_C85LCHmax2 0 def /d_C85LCHsum2 0 def /d_C85LCHVsum2 0 def /d_CIELABmin4 2800 def /d_CIELABmax4 0 def /d_CIELABsum4 0 def /d_CIELABVsum4 0 def /d_CIELCHmin4 2800 def /d_CIELCHmax4 0 def /d_CIELCHsum4 0 def /d_CIELCHVsum4 0 def /d_C94LCHmin4 2800 def /d_C94LCHmax4 0 def /d_C94LCHsum4 0 def /d_C94LCHVsum4 0 def /d_CCMLCHmin4 2800 def /d_CCMLCHmax4 0 def /d_CCMLCHsum4 0 def /d_CCMLCHVsum4 0 def /d_C00LCHmin4 2800 def /d_C00LCHmax4 0 def /d_C00LCHsum4 0 def /d_C00LCHVsum4 0 def /d_C85LCHmin4 2800 def /d_C85LCHmax4 0 def /d_C85LCHsum4 0 def /d_C85LCHVsum4 0 def %STOP1 /iimp 128 def /iim iimp 1 sub def /iimax iim 50 idiv def %=1 for iimp=100 /iimm1 iimax 1 sub def /iimp1 iimax 1 add def 0 1 iimax {/ii exch def %ii=0,iimax /i1 50 ii mul def /i2 i1 49 add def ii iimax eq {/i2 iim def} if i1 1 i2 {/i exch def %i=i1,i2 /i10 i 10 mul def /XW WData0 i10 0 add get def /YW WData0 i10 1 add get def /ZW WData0 i10 2 add get def /X0 WData0 i10 3 add get def /Y0 WData0 i10 4 add get def /Z0 WData0 i10 5 add get def X0 XW div D6_29 gt {/FXXN X0 XW div 0.0001 add D13 exp def} {/FXXN D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN Y0 YW div 0.0001 add D13 exp def} {/FYYN D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN Z0 ZW div 0.0001 add D13 exp def} {/FZZN D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN mul 16. sub def /CIEa*0 500. FXXN FYYN sub mul def /CIEb*0 200. FYYN FZZN sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def /X1 WData0 i10 6 add get def /Y1 WData0 i10 7 add get def /Z1 WData0 i10 8 add get def X1 XW div D6_29 gt {/FXXN X1 XW div 0.0001 add D13 exp def} {/FXXN D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN Y1 YW div 0.0001 add D13 exp def} {/FYYN D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN Z1 ZW div 0.0001 add D13 exp def} {/FZZN D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN mul 16. sub def /CIEa*1 500. FXXN FYYN sub mul def /CIEb*1 200. FYYN FZZN sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def /d_CIELAB d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt def /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def /d_CIELCH d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt def %CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def /d_C94LCH CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt def %CMC l:c=1:1 CIEL*0 16 lt {/SCML 0.511 def} {/SCML 0.040975 CIEL*0 mul 0.011765 CIEL*0 mul 1 add div def } ifelse /SCMC 0.0638 CIEC*ab0 mul 0.0131 CIEC*ab0 mul 1 add div 0.638 add def %beg special /FCMC CIEC*ab0 dup mul dup mul CIEC*ab0 dup mul dup mul 1900 add div sqrt def CIEhab1 164 lt CIEhab1 345 gt and {/TCMC CIEhab0 35 add cos 0.4 mul 0.36 add def} {/TCMC CIEhab0 168 add cos 0.2 mul 0.56 add def} ifelse %end special /SCMH TCMC FCMC mul 1 add FCMC sub SCMC mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CCML*0 CIEL*0 KCML div SCML div def /CCML*1 CIEL*1 KCML div SCML div def /CCMC*ab0 CIEC*ab0 KCMC div SCMC div def /CCMC*ab1 CIEC*ab1 KCMC div SCMC div def /d_CCMLCH CIEL*1 CIEL*0 sub KCML div SCML div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMC div dup mul add d_CIEHab KCMH div SCMH div dup mul add 0.00000001 add sqrt def %CIE DE2000 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS 180 gt and {/d_C00hS d_C00hS 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS -180 lt and {/d_C00hS d_C00hS 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /d_C00hS C00h0S C00h1S sub abs def /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00h0S C00h1S mul def d_C00hS 180 le m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 0.5 mul def} if d_C00hS 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /C00DT 30 C00hSq 275 sub 25 div dup mul neg exp def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LS d_C00LS C00KL div C00SL div def /d_C00CS d_C00CS C00KC div C00SC div def /d_C00HS d_C00HS C00KH div C00SH div def /d_C00LCH d_C00LS dup mul d_C00CS dup mul add d_C00HS dup mul add d_C00CS d_C00HS mul C00RT mul add 0.000001 add sqrt def %beg additional definitions not in DE2000 /d_C00LS d_C00LS C00KL div C00SL div def /d_C00aS d_C00aS C00KC div C00SC div def /d_C00bS d_C00bS C00KC div C00SC div def %end additional definitions not in DE2000 %end special EQUATION (15) %end CIE DE2000 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def /d_C85LCH d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div def %end LABJND 1985 CIELAB01ai i10 0 add CIEL*0 put CIELAB01ai i10 1 add CIEa*0 put CIELAB01ai i10 2 add CIEb*0 put CIELAB01ai i10 3 add CIEC*ab0 put CIELAB01ai i10 4 add CIEhab0 put CIELAB01ai i10 5 add CIEL*1 put CIELAB01ai i10 6 add CIEa*1 put CIELAB01ai i10 7 add CIEb*1 put CIELAB01ai i10 8 add CIEC*ab1 put CIELAB01ai i10 9 add CIEhab1 put C00LAB01ai i10 0 add CIEL*0 put C00LAB01ai i10 1 add CIEa*0 put C00LAB01ai i10 2 add CIEb*0 put C00LAB01ai i10 3 add CIEC*ab0 put C00LAB01ai i10 4 add CIEhab0 put C00LAB01ai i10 5 add CIEL*1 put C00LAB01ai i10 6 add CIEa*1 put C00LAB01ai i10 7 add CIEb*1 put C00LAB01ai i10 8 add CIEC*ab1 put C00LAB01ai i10 9 add CIEhab1 put d_CIELABai i d_CIELAB put d_CIELCHai i d_CIELCH put d_C94LCHai i d_C94LCH put d_CCMLCHai i d_CCMLCH put d_C00LCHai i d_C00LCH put d_C85LCHai i d_C85LCH put %STOP31b %always /iai iai 1 add def d_CIELAB d_CIELABmina lt {/d_CIELABmina d_CIELAB def} if d_CIELAB d_CIELABmaxa gt {/d_CIELABmaxa d_CIELAB def} if /d_CIELABsuma d_CIELABsuma d_CIELAB add def d_CIELCH d_CIELCHmina lt {/d_CIELCHmina d_CIELCH def} if d_CIELCH d_CIELCHmaxa gt {/d_CIELCHmaxa d_CIELCH def} if /d_CIELCHsuma d_CIELCHsuma d_CIELCH add def d_C94LCH d_C94LCHmina lt {/d_C94LCHmina d_C94LCH def} if d_C94LCH d_C94LCHmaxa gt {/d_C94LCHmaxa d_C94LCH def} if /d_C94LCHsuma d_C94LCHsuma d_C94LCH add def d_CCMLCH d_CCMLCHmina lt {/d_CCMLCHmina d_CCMLCH def} if d_CCMLCH d_CCMLCHmaxa gt {/d_CCMLCHmaxa d_CCMLCH def} if /d_CCMLCHsuma d_CCMLCHsuma d_CCMLCH add def d_C00LCH d_C00LCHmina lt {/d_C00LCHmina d_C00LCH def} if d_C00LCH d_C00LCHmaxa gt {/d_C00LCHmaxa d_C00LCH def} if /d_C00LCHsuma d_C00LCHsuma d_C00LCH add def d_C85LCH d_C85LCHmina lt {/d_C85LCHmina d_C85LCH def} if d_C85LCH d_C85LCHmaxa gt {/d_C85LCHmaxa d_C85LCH def} if /d_C85LCHsuma d_C85LCHsuma d_C85LCH add def /dVsuma dVsuma WData0 i10 9 add get add def %save data in array 0 1 09 {/j exch def %j=0,09 WXYZR01Vai i10 j add WData0 i10 j add get put } for %j=0,09 %STOP5 d_CIELAB 2 le {%d_CIELAB<=2 /i2i i2i 1 add def /i2i10 i2i 10 mul def CIELAB012i i2i10 0 add CIEL*0 put CIELAB012i i2i10 1 add CIEa*0 put CIELAB012i i2i10 2 add CIEb*0 put CIELAB012i i2i10 3 add CIEC*ab0 put CIELAB012i i2i10 4 add CIEhab0 put CIELAB012i i2i10 5 add CIEL*1 put CIELAB012i i2i10 6 add CIEa*1 put CIELAB012i i2i10 7 add CIEb*1 put CIELAB012i i2i10 8 add CIEC*ab1 put CIELAB012i i2i10 9 add CIEhab1 put d_CIELAB2i i2i d_CIELABai i get put d_CIELCH2i i2i d_CIELCH put d_C94LCH2i i2i d_C94LCH put d_CCMLCH2i i2i d_CCMLCH put d_C00LCH2i i2i d_C00LCH put d_C85LCH2i i2i d_C85LCH put %always d_CIELAB d_CIELABmin2 lt {/d_CIELABmin2 d_CIELAB def} if d_CIELAB d_CIELABmax2 gt {/d_CIELABmax2 d_CIELAB def} if /d_CIELABsum2 d_CIELABsum2 d_CIELAB add def d_CIELCH d_CIELCHmin2 lt {/d_CIELCHmin2 d_CIELCH def} if d_CIELCH d_CIELCHmax2 gt {/d_CIELCHmax2 d_CIELCH def} if /d_CIELCHsum2 d_CIELCHsum2 d_CIELCH add def d_C94LCH d_C94LCHmin2 lt {/d_C94LCHmin2 d_C94LCH def} if d_C94LCH d_C94LCHmax2 gt {/d_C94LCHmax2 d_C94LCH def} if /d_C94LCHsum2 d_C94LCHsum2 d_C94LCH add def d_CCMLCH d_CCMLCHmin2 lt {/d_CCMLCHmin2 d_CCMLCH def} if d_CCMLCH d_CCMLCHmax2 gt {/d_CCMLCHmax2 d_CCMLCH def} if /d_CCMLCHsum2 d_CCMLCHsum2 d_CCMLCH add def d_C00LCH d_C00LCHmin2 lt {/d_C00LCHmin2 d_C00LCH def} if d_C00LCH d_C00LCHmax2 gt {/d_C00LCHmax2 d_C00LCH def} if /d_C00LCHsum2 d_C00LCHsum2 d_C00LCH add def d_C85LCH d_C85LCHmin2 lt {/d_C85LCHmin2 d_C85LCH def} if d_C85LCH d_C85LCHmax2 gt {/d_C85LCHmax2 d_C85LCH def} if /d_C85LCHsum2 d_C85LCHsum2 d_C85LCH add def /dVsum2 dVsum2 WData0 i10 9 add get add def %save data in array 0 1 09 {/j exch def %j=0,09 WXYZR01V2i i10 j add WData0 i10 j add get put } for %j=0,09 } if %d_CIELAB<=2 d_C00LCH 2 le {%d_C00LCH<=2 /i4i i4i 1 add def /i4i10 i4i 10 mul def CIELAB014i i4i10 0 add CIEL*0 put CIELAB014i i4i10 1 add CIEa*0 put CIELAB014i i4i10 2 add CIEb*0 put CIELAB014i i4i10 3 add CIEC*ab0 put CIELAB014i i4i10 4 add CIEhab0 put CIELAB014i i4i10 5 add CIEL*1 put CIELAB014i i4i10 6 add CIEa*1 put CIELAB014i i4i10 7 add CIEb*1 put CIELAB014i i4i10 8 add CIEC*ab1 put CIELAB014i i4i10 9 add CIEhab1 put d_CIELAB4i i4i d_CIELABai i get put d_CIELCH4i i4i d_CIELCH put d_C94LCH4i i4i d_C94LCH put d_CCMLCH4i i4i d_CCMLCH put d_C00LCH4i i4i d_C00LCH put d_C85LCH4i i4i d_C85LCH put %always d_CIELAB d_CIELABmin4 lt {/d_CIELABmin4 d_CIELAB def} if d_CIELAB d_CIELABmax4 gt {/d_CIELABmax4 d_CIELAB def} if /d_CIELABsum4 d_CIELABsum4 d_CIELAB add def d_CIELCH d_CIELCHmin4 lt {/d_CIELCHmin4 d_CIELCH def} if d_CIELCH d_CIELCHmax4 gt {/d_CIELCHmax4 d_CIELCH def} if /d_CIELCHsum4 d_CIELCHsum4 d_CIELCH add def d_C94LCH d_C94LCHmin4 lt {/d_C94LCHmin4 d_C94LCH def} if d_C94LCH d_C94LCHmax4 gt {/d_C94LCHmax4 d_C94LCH def} if /d_C94LCHsum4 d_C94LCHsum4 d_C94LCH add def d_CCMLCH d_CCMLCHmin4 lt {/d_CCMLCHmin4 d_CCMLCH def} if d_CCMLCH d_CCMLCHmax4 gt {/d_CCMLCHmax4 d_CCMLCH def} if /d_CCMLCHsum4 d_CCMLCHsum4 d_CCMLCH add def d_C00LCH d_C00LCHmin4 lt {/d_C00LCHmin4 d_C00LCH def} if d_C00LCH d_C00LCHmax4 gt {/d_C00LCHmax4 d_C00LCH def} if /d_C00LCHsum4 d_C00LCHsum4 d_C00LCH add def d_C85LCH d_C85LCHmin4 lt {/d_C85LCHmin4 d_C85LCH def} if d_C85LCH d_C85LCHmax4 gt {/d_C85LCHmax4 d_C85LCH def} if /d_C85LCHsum4 d_C85LCHsum4 d_C85LCH add def /dVsum4 dVsum4 WData0 i10 9 add get add def %save data in array 0 1 09 {/j exch def %j=0,09 WXYZR01V4i i10 j add WData0 i10 j add get put } for %j=0,09 } if %d_C00LCH<=2 %STOP5a } for %i=i1,i2 %STOP5b } for %ii=0,iimax %STOP6 %************************************************** iXYZLAB 0 ge iXYZLAB 1 le and {/iim iai def /iimax iim 50 idiv def} if iXYZLAB 2 ge iXYZLAB 3 le and {/iim i2i def /iimax i2i 50 idiv def} if iXYZLAB 4 ge iXYZLAB 5 le and {/iim i4i def /iimax i4i 50 idiv def} if /ii xchartl def /iimaxP1 iimax 1 add def gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS 700 85 moveto (VG810-7N) show (_) show iXYZLAB cvishow (_) show ii cvishow 72 90 translate /yhoe 8500 def 0.02 MM dup scale 15 setlinewidth 0.0 0.0 0.0 0.0 setcmyk_olvcolor 0 0 moveto 12700 0 rlineto 0 yhoe rlineto -12700 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto 12700 0 rlineto 0 yhoe rlineto -12700 0 rlineto closepath stroke CBSK xp0 yhoe ydel 0.9 mul sub moveto iXYZLAB 0 eq iXYZLAB 2 eq or iXYZLAB 4 eq or {%iXYZLAB=0,2,4 0 1 20 {/k exch def %k=0,20 xp0 xdela k get add yhoe ydel 0.9 mul sub moveto iXYZLAB 0 eq {textXYZ k get show} if iXYZLAB 2 eq {textXYZ2 k get show} if iXYZLAB 4 eq {textXYZ4 k get show} if } for %k=0,20 } if %iXYZLAB=0,2,4 iXYZLAB 1 eq iXYZLAB 3 eq or iXYZLAB 5 eq or {%iXYZLAB=1,3,5 0 1 20 {/k exch def %k=0,20 xp0 xdela k get add yhoe ydel 0.9 mul sub moveto iXYZLAB 1 eq {textLAB k get show} if iXYZLAB 3 eq {textLAB2 k get show} if iXYZLAB 5 eq {textLAB4 k get show} if } for %k=0,20 } if %iXYZLAB=1,3,5 ( %) show xp0 yhoe ydel 1.9 mul sub moveto iXYZLAB 0 eq {(%CIEXYZ*1000 data for all colour (a) of experiment) show} if iXYZLAB 1 eq {(%CIELAB data for all colour (a) of experiment) show} if iXYZLAB 2 eq {(%CIEXYZ*1000 data for colours (2) of experiment with CIELAB dE*ab<=2) show} if iXYZLAB 3 eq {(%CIELAB data for colours (2) of experiment with CIELAB dE*ab<=2) show} if iXYZLAB 4 eq {(%CIEXYZ*1000 data for colours (4) of experiment with CIE DE2000 dE*<=2) show} if iXYZLAB 5 eq {(%CIELAB data for colours (4) of experiment with CIE DE2000 dE*<=2) show} if (, iimp=) show iimp cvishow (, colour difference pairs ) show (OS=OSA) show ( %) show ii iimaxP1 lt {%ii