%!PS-Adobe-3.0 EPSF-3.0 WG860-7A %%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/WG86/) /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 10 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 10 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 10 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 10 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_0238_Badu_P.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 2.6982 2.8905 3.0137 4.24347 4.51309 4.74481 5.7682 94.811 100 107.304 4.2434 4.5131 4.7448 5.90675 6.27665 6.5384 4.7925 94.811 100 107.304 5.9067 6.2767 6.5384 7.94528 8.44853 8.85661 4.2576 94.811 100 107.304 7.9453 8.4485 8.8566 10.32398 11.0116 11.60357 4.7925 94.811 100 107.304 10.324 11.0116 11.6036 13.59567 14.47031 15.36129 5.092 94.811 100 107.304 13.5957 14.4703 15.3613 16.71168 17.75696 18.8646 4.0175 94.811 100 107.304 16.7117 17.757 18.8646 20.84918 22.16348 23.4469 3.7927 94.811 100 107.304 20.8491 22.1635 23.4469 25.89593 27.46255 29.15023 4.0175 94.811 100 107.304 25.896 27.4625 29.1503 30.38961 32.19048 33.96445 2.8375 94.811 100 107.304 30.3896 32.1905 33.9644 36.64042 38.92929 41.37431 3.3816 94.811 100 107.304 36.6404 38.9293 41.3743 43.57169 46.23849 48.97966 3.011 94.811 100 107.304 43.5717 46.2385 48.9797 50.7266 53.89424 57.2339 2.6701 94.811 100 107.304 50.7266 53.8942 57.2339 60.03409 63.49091 67.22906 2.1954 94.811 100 107.304 60.0341 63.4909 67.2291 72.17566 76.5195 81.09337 2.1954 94.811 100 107.304 12.498 18.0858 7.5105 13.70451 17.92088 5.97595 4.9393 94.811 100 107.304 13.7045 17.9209 5.976 15.64072 18.50252 4.89922 6.0717 94.811 100 107.304 21.2186 18.0858 2.1852 24.31165 18.58661 1.74284 6.1509 94.811 100 107.304 12.498 18.0858 7.5105 12.44827 18.25172 11.48931 5.1548 94.811 100 107.304 12.498 18.0858 7.5105 13.74561 18.0858 9.33651 4.1839 94.811 100 107.304 13.7045 17.9209 5.976 13.7456 18.08582 9.33657 4.5152 94.811 100 107.304 13.7045 17.9209 5.976 15.18556 18.00323 7.62808 5.7317 94.811 100 107.304 15.6408 18.5025 4.8992 15.18564 18.00321 7.62806 4.1596 94.811 100 107.304 15.6408 18.5025 4.8992 16.98576 18.08579 5.98652 7.0219 94.811 100 107.304 21.2186 18.0858 2.1852 21.14781 18.25172 3.97373 3.4011 94.811 100 107.304 21.2186 18.0858 2.1852 23.18463 18.0858 2.94346 6.7446 94.811 100 107.304 24.3117 18.5866 1.7429 23.18469 18.08579 2.94352 3.5813 94.811 100 107.304 24.3117 18.5866 1.7429 25.80691 18.00321 2.03603 5.9939 94.811 100 107.304 12.4483 18.2517 11.4893 13.74564 18.08578 9.3365 5.8796 94.811 100 107.304 13.7456 18.0858 9.3365 15.18555 18.00322 7.62801 5.6955 94.811 100 107.304 15.1856 18.0032 7.628 16.98572 18.08578 5.98645 6.6113 94.811 100 107.304 16.9857 18.0858 5.9865 18.92877 18.25172 4.61346 6.8815 94.811 100 107.304 18.9288 18.2517 4.6135 21.14787 18.2517 3.9738 5.9939 94.811 100 107.304 21.1479 18.2517 3.9737 23.18472 18.08578 2.94343 5.5535 94.811 100 107.304 23.1847 18.0858 2.9435 25.80692 18.00322 2.03601 5.9555 94.811 100 107.304 12.4483 18.2517 11.4893 13.99727 18.33504 13.87882 5.4162 94.811 100 107.304 13.7456 18.0858 9.3365 13.99723 18.33507 13.87881 5.4162 94.811 100 107.304 13.7456 18.0858 9.3365 15.30853 18.0858 11.58218 5.2834 94.811 100 107.304 15.1856 18.0032 7.628 15.30859 18.08578 11.58216 5.2508 94.811 100 107.304 15.1856 18.0032 7.628 16.96765 18.08578 9.43164 6.9279 94.811 100 107.304 16.9857 18.0858 5.9865 16.96763 18.0858 9.43169 4.5963 94.811 100 107.304 16.9857 18.0858 5.9865 18.60166 18.00322 7.73909 7.5175 94.811 100 107.304 18.9288 18.2517 4.6135 18.60169 18.00319 7.73914 4.9694 94.811 100 107.304 18.9288 18.2517 4.6135 21.17386 18.58659 6.33011 7.4149 94.811 100 107.304 21.1479 18.2517 3.9737 21.17389 18.58659 6.33 5.8796 94.811 100 107.304 21.1479 18.2517 3.9737 23.06526 18.2517 4.83417 7.7821 94.811 100 107.304 23.1847 18.0858 2.9435 23.06524 18.25172 4.83425 4.6791 94.811 100 107.304 23.1847 18.0858 2.9435 26.0118 18.41866 3.99974 7.0696 94.811 100 107.304 25.8069 18.0032 2.036 26.01177 18.41864 3.99973 4.41 94.811 100 107.304 13.9973 18.3351 13.8788 15.30861 18.08583 11.58216 6.2722 94.811 100 107.304 15.3086 18.0858 11.5822 16.96767 18.0858 9.43167 7.215 94.811 100 107.304 16.9676 18.0858 9.4317 18.60163 18.00322 7.73909 6.9279 94.811 100 107.304 18.6017 18.0032 7.7391 21.17387 18.58659 6.33007 6.6113 94.811 100 107.304 21.1738 18.5866 6.33 23.06517 18.25171 4.83417 6.0717 94.811 100 107.304 23.0652 18.2517 4.8342 26.01175 18.41863 3.99969 5.3493 94.811 100 107.304 13.9973 18.3351 13.8788 14.04997 18.41869 19.10775 6.2722 94.811 100 107.304 13.9973 18.3351 13.8788 15.45448 18.25176 16.46535 6.3133 94.811 100 107.304 15.3086 18.0858 11.5822 15.45448 18.25172 16.4654 5.4843 94.811 100 107.304 15.3086 18.0858 11.5822 16.52797 17.6754 13.68242 7.3141 94.811 100 107.304 16.9676 18.0858 9.4317 16.5279 17.6754 13.68244 5.6239 94.811 100 107.304 16.9676 18.0858 9.4317 18.52622 17.75698 11.51314 7.4149 94.811 100 107.304 18.6017 18.0032 7.7391 18.52629 17.75696 11.51315 6.6998 94.811 100 107.304 18.6017 18.0032 7.7391 20.35147 17.83879 9.48999 8.1724 94.811 100 107.304 21.1738 18.5866 6.33 20.3514 17.8388 9.48991 6.5243 94.811 100 107.304 21.1738 18.5866 6.33 23.62929 18.5866 7.71308 8.0022 94.811 100 107.304 23.0652 18.2517 4.8342 23.62933 18.58659 7.71311 5.9174 94.811 100 107.304 23.0652 18.2517 4.8342 26.21187 18.50248 6.04828 6.8815 94.811 100 107.304 26.0118 18.4187 3.9997 26.21192 18.50255 6.0483 5.5535 94.811 100 107.304 14.0499 18.4187 19.1078 15.45442 18.25177 16.46539 7.1176 94.811 100 107.304 15.4545 18.2517 16.4654 16.52798 17.67537 13.68242 8.0022 94.811 100 107.304 16.5279 17.6754 13.6824 18.52622 17.75698 11.51311 8.2884 94.811 100 107.304 18.5263 17.757 11.5131 20.35148 17.83883 9.48994 6.1509 94.811 100 107.304 20.3514 17.8388 9.49 23.6293 18.5866 7.71317 5.6239 94.811 100 107.304 23.6293 18.5866 7.7131 26.21184 18.5025 6.04827 6.0327 94.811 100 107.304 14.0499 18.4187 19.1078 13.78189 18.16868 25.45311 7.6749 94.811 100 107.304 14.0499 18.4187 19.1078 15.42691 18.08584 22.16784 6.8355 94.811 100 107.304 15.4545 18.2517 16.4654 15.42701 18.08578 22.16786 7.5175 94.811 100 107.304 15.4545 18.2517 16.4654 17.2093 18.16861 19.20109 9.1599 94.811 100 107.304 16.5279 17.6754 13.6824 17.2092 18.16864 19.20106 7.5175 94.811 100 107.304 16.5279 17.6754 13.6824 18.98105 18.16864 16.66347 8.3472 94.811 100 107.304 18.5263 17.757 11.5131 18.98113 18.16866 16.66347 7.7821 94.811 100 107.304 18.5263 17.757 11.5131 20.35921 17.67542 13.76412 7.3141 94.811 100 107.304 20.3514 17.8388 9.49 20.35913 17.67539 13.76419 7.6749 94.811 100 107.304 20.3514 17.8388 9.49 23.14017 18.08579 11.65539 7.8912 94.811 100 107.304 23.6293 18.5866 7.7131 23.14017 18.08579 11.65531 6.6113 94.811 100 107.304 23.6293 18.5866 7.7131 25.78872 18.33506 9.66176 7.6749 94.811 100 107.304 26.2119 18.5025 6.0483 25.78879 18.33506 9.6618 5.9174 94.811 100 107.304 13.7819 18.1686 25.4531 15.42692 18.08576 22.16783 7.2643 94.811 100 107.304 15.427 18.0858 22.1679 17.20929 18.16864 19.20113 7.9464 94.811 100 107.304 17.2092 18.1686 19.2011 18.98105 18.1686 16.66351 7.4149 94.811 100 107.304 18.9811 18.1686 16.6635 20.35917 17.67536 13.76416 5.2186 94.811 100 107.304 20.3592 17.6754 13.7642 23.14024 18.0858 11.6554 6.3133 94.811 100 107.304 23.1402 18.0858 11.6554 25.78877 18.33507 9.66184 5.3493 94.811 100 107.304 13.7819 18.1686 25.4531 15.56178 18.33503 29.43525 8.0584 94.811 100 107.304 15.427 18.0858 22.1679 15.56187 18.33507 29.43535 7.5695 94.811 100 107.304 15.427 18.0858 22.1679 17.19106 18.16864 25.88747 7.6749 94.811 100 107.304 17.2092 18.1686 19.2011 17.19097 18.1686 25.88742 8.0022 94.811 100 107.304 17.2092 18.1686 19.2011 18.52621 17.75694 22.17368 9.1599 94.811 100 107.304 18.9811 18.1686 16.6635 18.52627 17.75694 22.17368 6.4388 94.811 100 107.304 18.9811 18.1686 16.6635 20.54191 17.92085 19.39744 7.0696 94.811 100 107.304 20.3592 17.6754 13.7642 20.54194 17.92089 19.39749 6.6113 94.811 100 107.304 20.3592 17.6754 13.7642 23.15557 18.00322 16.36541 7.9464 94.811 100 107.304 23.1402 18.0858 11.6554 23.15552 18.00322 16.36542 6.5243 94.811 100 107.304 23.1402 18.0858 11.6554 25.8844 18.33507 14.33676 6.1112 94.811 100 107.304 25.7888 18.3351 9.6618 25.88444 18.3351 14.33671 5.4501 94.811 100 107.304 15.5618 18.3351 29.4353 17.191 18.16867 25.88743 7.8912 94.811 100 107.304 17.191 18.1686 25.8874 18.52625 17.75694 22.17366 8.0022 94.811 100 107.304 18.5263 17.757 22.1737 20.54195 17.92091 19.39745 6.2314 94.811 100 107.304 20.5419 17.9209 19.3974 23.15553 18.00323 16.36532 6.191 94.811 100 107.304 23.1555 18.0032 16.3654 25.88438 18.33505 14.33676 5.092 94.811 100 107.304 15.5618 18.3351 29.4353 15.38137 18.16867 38.25078 5.9939 94.811 100 107.304 15.5618 18.3351 29.4353 17.27534 18.3351 34.15301 7.5175 94.811 100 107.304 17.191 18.1686 25.8874 17.27534 18.33503 34.15297 6.1509 94.811 100 107.304 17.191 18.1686 25.8874 18.6859 17.83877 29.54792 7.1176 94.811 100 107.304 18.5263 17.757 22.1737 18.68595 17.83883 29.54796 6.2314 94.811 100 107.304 18.5263 17.757 22.1737 20.62415 17.92091 26.12698 5.3826 94.811 100 107.304 20.5419 17.9209 19.3974 20.62409 17.9209 26.12691 6.7446 94.811 100 107.304 20.5419 17.9209 19.3974 22.98502 18.08582 22.79248 5.9555 94.811 100 107.304 23.1555 18.0032 16.3654 22.985 18.08578 22.79256 6.7899 94.811 100 107.304 23.1555 18.0032 16.3654 25.55229 18.08578 19.47213 5.6595 94.811 100 107.304 25.8844 18.3351 14.3367 25.5523 18.08583 19.47206 5.8796 94.811 100 107.304 25.8844 18.3351 14.3367 29.00007 18.671 17.00745 5.1548 94.811 100 107.304 15.3814 18.1686 38.2508 17.27536 18.33503 34.15302 8.1724 94.811 100 107.304 17.2754 18.3351 34.153 18.68596 17.83884 29.54794 8.7108 94.811 100 107.304 18.6859 17.8388 29.5479 20.62409 17.92088 26.12693 7.3643 94.811 100 107.304 20.6241 17.9209 26.127 22.98503 18.08582 22.79256 6.3133 94.811 100 107.304 22.985 18.0858 22.7925 25.55229 18.0858 19.47206 5.7317 94.811 100 107.304 25.5523 18.0858 19.4721 29.00007 18.67097 17.00749 4.9694 94.811 100 107.304 15.3814 18.1686 38.2508 17.42775 18.41862 43.59514 5.5535 94.811 100 107.304 17.2754 18.3351 34.153 17.4278 18.41869 43.59513 5.8796 94.811 100 107.304 17.2754 18.3351 34.153 19.03961 18.16867 38.65692 6.3966 94.811 100 107.304 18.6859 17.8388 29.5479 19.03954 18.16863 38.65685 6.0327 94.811 100 107.304 18.6859 17.8388 29.5479 20.80983 17.92088 33.73285 5.6239 94.811 100 107.304 20.6241 17.9209 26.127 20.80984 17.9209 33.73293 5.0302 94.811 100 107.304 20.6241 17.9209 26.127 23.91481 18.75559 30.57953 4.9997 94.811 100 107.304 22.985 18.0858 22.7925 23.91477 18.75558 30.57946 5.5535 94.811 100 107.304 22.985 18.0858 22.7925 25.60716 18.16864 25.76281 4.7638 94.811 100 107.304 25.5523 18.0858 19.4721 25.60718 18.16864 25.76287 5.092 94.811 100 107.304 17.4278 18.4187 43.5951 19.03961 18.16868 38.65688 8.5875 94.811 100 107.304 19.0396 18.1686 38.6569 20.80988 17.92085 33.73289 8.2884 94.811 100 107.304 20.8099 17.9209 33.7329 23.91487 18.75559 30.5795 6.6998 94.811 100 107.304 23.9148 18.7556 30.5795 25.60719 18.16866 25.76284 5.6595 94.811 100 107.304 18.7305 17.9209 5.2989 20.7272 17.9209 6.7847 8.0584 94.811 100 107.304 20.7272 17.9209 6.7847 22.48311 17.59408 5.25791 6.4814 94.811 100 107.304 22.4831 17.5941 5.2579 25.70982 18.25175 7.04072 7.5175 94.811 100 107.304 52.0331 54.7551 7.9331 52.35064 54.92838 15.22656 5.9405 94.811 100 107.304 52.0331 54.7551 7.9331 52.38894 54.92838 19.57017 8.8357 94.811 100 107.304 44.2174 48.7572 19.1184 62.80226 69.194 23.77679 6.7992 94.811 100 107.304 44.2174 48.7572 19.1184 59.59256 68.1873 32.17644 10.0394 94.811 100 107.304 44.2174 48.7572 19.1184 64.037 68.7901 35.00891 10.0394 94.811 100 107.304 42.9995 48.2781 17.8637 62.80226 69.1939 23.77677 6.7992 94.811 100 107.304 42.9995 48.2781 17.8637 59.59265 68.1873 32.17648 8.8357 94.811 100 107.304 42.9995 48.2781 17.8637 64.03709 68.7901 35.00896 12.1194 94.811 100 107.304 62.8023 69.1939 23.7767 59.59262 68.18721 32.17636 8.2828 94.811 100 107.304 62.8023 69.1939 23.7767 64.03709 68.79005 35.00885 8.8357 94.811 100 107.304 59.5926 68.1873 32.1764 64.03707 68.79013 35.00888 7.7602 94.811 100 107.304 21.9892 18.1686 3.6145 22.34581 17.51296 5.22088 7.7602 94.811 100 107.304 23.0583 18.1686 4.3857 21.03691 18.1686 3.96085 8.2828 94.811 100 107.304 21.27 17.6754 4.4946 23.0889 18.00322 2.91833 5.1733 94.811 100 107.304 35.3914 27.4625 6.1517 23.08894 18.00321 2.91828 8.8357 94.811 100 107.304 35.3914 27.4625 6.1517 21.1284 18.00321 2.16456 14.582 94.811 100 107.304 35.3914 27.4625 6.1517 24.18999 18.5025 1.75605 8.8357 94.811 100 107.304 35.3914 27.4625 6.1517 25.72791 17.92088 2.00493 10.6941 94.811 100 107.304 35.3914 27.4625 6.1517 22.34584 17.51298 5.22083 10.6941 94.811 100 107.304 35.3914 27.4625 6.1517 26.03582 18.41865 3.98175 12.1194 94.811 100 107.304 35.3914 27.4625 6.1517 21.03696 18.16863 3.96079 12.1194 94.811 100 107.304 35.3914 27.4625 6.1517 21.98923 18.16863 3.61445 10.6941 94.811 100 107.304 35.3914 27.4625 6.1517 21.27004 17.67539 4.49456 10.6941 94.811 100 107.304 35.3914 27.4625 6.1517 23.05836 18.16863 4.38564 9.4206 94.811 100 107.304 34.176 27.5719 6.7373 21.03694 18.16862 3.96084 12.8945 94.811 100 107.304 34.176 27.5719 6.7373 21.9892 18.16862 3.6145 9.4206 94.811 100 107.304 34.176 27.5719 6.7373 23.05833 18.16862 4.38569 9.4206 94.811 100 107.304 34.176 27.5719 6.7373 23.08891 18.0032 2.91833 10.0394 94.811 100 107.304 21.9892 18.1686 3.6145 23.05833 18.1686 4.3857 6.3578 94.811 100 107.304 21.27 17.6754 4.4946 21.03692 18.16864 3.96084 5.5461 94.811 100 107.304 21.27 17.6754 4.4946 22.34579 17.51299 5.22087 6.3578 94.811 100 107.304 23.9877 18.0032 8.1651 23.02241 18.0032 11.55581 6.7992 94.811 100 107.304 23.9422 18.0032 10.2592 23.36152 18.33505 7.57006 8.2828 94.811 100 107.304 22.707 17.9209 8.9178 25.70977 18.25174 9.57395 7.7602 94.811 100 107.304 16.0352 10.7172 4.8041 25.70973 18.25173 9.57403 12.8945 94.811 100 107.304 16.0352 10.7172 4.8041 23.02236 18.00322 11.55586 12.1194 94.811 100 107.304 16.0352 10.7172 4.8041 23.3615 18.33507 7.57013 12.1194 94.811 100 107.304 16.0352 10.7172 4.8041 26.02827 18.33507 5.96712 12.1194 94.811 100 107.304 16.0352 10.7172 4.8041 27.14169 18.25173 7.63286 12.1194 94.811 100 107.304 16.0352 10.7172 4.8041 28.23214 18.67097 11.51194 13.7145 94.811 100 107.304 16.0352 10.7172 4.8041 25.7813 18.25173 14.22248 13.7145 94.811 100 107.304 16.0352 10.7172 4.8041 23.98766 18.00322 8.16515 10.6941 94.811 100 107.304 16.0352 10.7172 4.8041 23.94217 18.00322 10.25928 10.0394 94.811 100 107.304 16.0352 10.7172 4.8041 22.70696 17.92089 8.91787 11.3867 94.811 100 107.304 17.0875 18.2517 37.2658 18.76905 17.92086 38.07526 8.8357 94.811 100 107.304 17.8368 18.1686 35.3335 17.31197 18.33503 43.09155 8.2828 94.811 100 107.304 17.5664 17.757 39.015 17.11825 18.16866 33.74575 4.173 94.811 100 107.304 6.4874 6.4 18.4564 10.60203 11.25097 24.10549 8.2828 94.811 100 107.304 6.4874 6.4 18.4564 11.44098 11.43276 30.98996 10.0394 94.811 100 107.304 6.4874 6.4 18.4564 11.94939 11.25097 24.52434 13.7145 94.811 100 107.304 10.602 11.251 24.1055 11.44094 11.43279 30.98996 3.8753 94.811 100 107.304 10.602 11.251 24.1055 11.94936 11.251 24.52436 10.0394 94.811 100 107.304 11.441 11.4328 30.99 11.94942 11.25101 24.52439 9.4206 94.811 100 107.304 25.8168 27.3534 46.7916 17.11824 18.16865 33.74574 10.0394 94.811 100 107.304 25.8168 27.3534 46.7916 17.31197 18.33508 43.09155 11.3867 94.811 100 107.304 25.8168 27.3534 46.7916 18.7691 17.9209 38.07521 12.8945 94.811 100 107.304 25.8168 27.3534 46.7916 15.39834 18.16865 29.13398 12.8945 94.811 100 107.304 25.8168 27.3534 46.7916 17.09444 18.08582 25.71784 11.3867 94.811 100 107.304 25.8168 27.3534 46.7916 15.25804 18.08582 37.95016 14.582 94.811 100 107.304 25.8168 27.3534 46.7916 18.50119 17.67541 29.24585 13.7145 94.811 100 107.304 25.6753 27.0277 46.7757 18.76907 17.92083 38.07522 12.1194 94.811 100 107.304 25.6753 27.0277 46.7757 17.83677 18.16858 35.33349 8.2828 94.811 100 107.304 25.6753 27.0277 46.7757 17.31195 18.33501 43.09157 11.3867 94.811 100 107.304 25.6753 27.0277 46.7757 17.08752 18.25167 37.26577 9.8501 94.811 100 107.304 17.9058 18.0858 23.3123 16.95644 17.92088 18.88731 8.8357 94.811 100 107.304 17.8439 18.0032 20.5907 17.09444 18.08578 25.71779 8.2828 94.811 100 107.304 17.0219 18.0858 21.6654 18.34259 17.59407 21.92436 9.4206 94.811 100 107.304 25.3597 26.9198 28.5054 16.95647 17.9209 18.88727 7.2661 94.811 100 107.304 25.3597 26.9198 28.5054 17.09446 18.08581 25.71783 11.3867 94.811 100 107.304 25.3597 26.9198 28.5054 18.34262 17.59408 21.92431 12.1194 94.811 100 107.304 25.3597 26.9198 28.5054 15.38143 18.16865 16.34002 12.8945 94.811 100 107.304 25.3597 26.9198 28.5054 16.43388 17.59408 13.57162 11.3867 94.811 100 107.304 25.3597 26.9198 28.5054 15.26445 17.9209 21.86275 12.1194 94.811 100 107.304 25.3597 26.9198 28.5054 18.94223 18.16865 16.61703 10.6941 94.811 100 107.304 25.3597 26.9198 28.5054 17.90582 18.08581 23.31224 11.3867 94.811 100 107.304 25.3597 26.9198 28.5054 17.84391 18.00323 20.59074 11.3867 94.811 100 107.304 25.3597 26.9198 28.5054 17.02193 18.08581 21.66534 10.6941 94.811 100 107.304 17.8439 18.0032 20.5907 16.95645 17.92087 18.88723 6.3578 94.811 100 107.304 17.8439 18.0032 20.5907 18.3426 17.59405 21.92426 5.1733 94.811 100 107.304 17.0219 18.0858 21.6654 16.95643 17.92088 18.88732 5.9405 94.811 100 107.304 17.0219 18.0858 21.6654 17.09442 18.0858 25.71788 5.9405 94.811 100 107.304 17.9058 18.0858 23.3123 18.34259 17.59407 21.92436 5.5461 94.811 100 107.304 17.9058 18.0858 23.3123 17.09442 18.0858 25.71789 6.7992 94.811 100 107.304 17.9058 18.0858 23.3123 17.84388 18.00322 20.59078 4.4878 94.811 100 107.304 17.9058 18.0858 23.3123 17.0219 18.0858 21.6654 6.3578 94.811 100 107.304 17.8439 18.0032 20.5907 17.02192 18.08578 21.66531 6.3578 94.811 100 107.304 17.5664 17.757 39.015 17.31198 18.33509 43.09159 6.7992 94.811 100 107.304 17.5664 17.757 39.015 18.76912 17.92091 38.07524 7.7602 94.811 100 107.304 15.4036 18.2517 4.8342 15.25282 18.00319 11.51937 8.2828 94.811 100 107.304 15.4036 18.2517 4.8342 15.38141 18.16861 16.33997 12.1194 94.811 100 107.304 24.19 18.5025 1.7561 22.34585 17.51298 5.22089 8.8357 94.811 100 107.304 21.1284 18.0032 2.1646 21.06285 18.50249 6.28811 6.7992 94.811 100 107.304 50.2434 53.382 56.1636 70.90923 75.2287 78.53682 5.1733 94.811 100 107.304 4.2362 4.5131 4.7047 2.76729 2.9642 3.01629 5.1733 ] 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 /cvi24show {100 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 %************************************************************* /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /proc_coldiff {%BEG procedure proc_coldiff PROC_COLDIFF_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 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 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 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_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /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_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG 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_C94LCHi i 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 put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %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 0.0001 add 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 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 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_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 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) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 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 abs 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 /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul 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_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /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_C85LCHi i 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 put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %************************************************************* %%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 05 def /xc2d 05 def /xc4d 05 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 xcal {/xchart exch def %xchart=0,xcal /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_CMCLABai 2800 array def %CMC /d_CMCLCHai 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_CMCLAB2i 2800 array def %CMC /d_CMCLCH2i 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_CMCLAB4i 2800 array def %CMC /d_CMCLCH4i 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_CMCLCHmina 2800 def /d_CMCLCHmaxa 0 def /d_CMCLCHsuma 0 def /d_CMCLCHVsuma 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_CMCLCHmin2 2800 def /d_CMCLCHmax2 0 def /d_CMCLCHsum2 0 def /d_CMCLCHVsum2 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_CMCLCHmin4 2800 def /d_CMCLCHmax4 0 def /d_CMCLCHsum4 0 def /d_CMCLCHVsum4 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 238 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 /X1 WData0 i10 6 add get def /Y1 WData0 i10 7 add get def /Z1 WData0 i10 8 add get def proc_coldiff /d_CIELAB d_CIELABi i get def /d_CIELCH d_CIELCHi i get def /d_C94LCH d_C94LCHi i get def /d_CMCLCH d_CMCLCHi i get def /d_C00LCH d_C00LCHi i get def /d_C85LCH d_C85LCHi i get def 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_CMCLCHai i d_CMCLCH 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_CMCLCH d_CMCLCHmina lt {/d_CMCLCHmina d_CMCLCH def} if d_CMCLCH d_CMCLCHmaxa gt {/d_CMCLCHmaxa d_CMCLCH def} if /d_CMCLCHsuma d_CMCLCHsuma d_CMCLCH 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_CMCLCH2i i2i d_CMCLCH 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_CMCLCH d_CMCLCHmin2 lt {/d_CMCLCHmin2 d_CMCLCH def} if d_CMCLCH d_CMCLCHmax2 gt {/d_CMCLCHmax2 d_CMCLCH def} if /d_CMCLCHsum2 d_CMCLCHsum2 d_CMCLCH 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_CMCLCH4i i4i d_CMCLCH 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_CMCLCH d_CMCLCHmin4 lt {/d_CMCLCHmin4 d_CMCLCH def} if d_CMCLCH d_CMCLCHmax4 gt {/d_CMCLCHmax4 d_CMCLCH def} if /d_CMCLCHsum4 d_CMCLCHsum4 d_CMCLCH 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 (WG860-7A) 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 {(%1000*CIEXYZ & 100*dE* 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 {(%1000*CIEXYZ & 100*dE* 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 {(%1000*CIEXYZ & 100*dE* 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 (BA_0238=BADU-P) show ( %) show ii iimaxP1 lt {%ii