%!PS-Adobe-3.0 EPSF-3.0 WG570-7R %%BoundingBox: 70 83 441 575 %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/WG57/) /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:2015020112000) /ModDate (D:2015020112000) /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 %max 2800 sample pairs with 10 data per line = minimum 28000 data /WDataX 28000 array def %max 2800 sample pairs with 10 data per line = minimum 28000 data /WData0 28000 array def /iimp0 128 def /Wdatt0 (VR=VIK_Relative) def /Wdatk0 (VR_0128) def /WData0 %BEG WData0 [ %WE700-7U.TXT VR_128(146)=VIK_Relative %1-003030-L0 WE700-7R_0 %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* % 0094841 0100000 0098118 0043056 0051427 0077363 0081861 0087159 0084853 0029073 %03410 03410 02227 02411 02198 15598 11000000 (11001000) 77 -16 -24 % 0094841 0100000 0098118 0043056 0051427 0077363 0019335 0027473 0069806 0038003 %03303 03303 02126 01807 01676 19357 11000001 (11001002) 77 -16 -24 % 0094841 0100000 0098118 0030839 0028282 0046094 0081830 0087136 0084727 0040388 %04592 04592 03774 03431 03195 27366 11000002 (11007006) 60 15 -24 % 0094841 0100000 0098118 0030839 0028282 0046094 0007798 0005152 0022357 0048876 %04342 04342 03518 03469 03205 38591 11000003 (11007008) 60 15 -24 % 0094841 0100000 0098118 0053897 0042704 0046564 0081923 0087176 0085251 0039436 %04592 04592 02868 03154 03580 18410 11000004 (11013012) 71 37 -5 % 0094841 0100000 0098118 0053897 0042704 0046564 0082007 0087291 0085221 0052398 %04600 04600 02878 03160 03561 18443 11000005 (11013015) 71 37 -5 % 0094841 0100000 0098118 0052052 0043502 0024311 0081991 0087214 0085630 0041317 %04709 04709 02817 03087 02957 18827 11000006 (11019018) 72 30 25 % 0094841 0100000 0098118 0052052 0043502 0024311 0030649 0017102 0002670 0054673 %04899 04899 02809 02496 02361 22990 11000007 (11019020) 72 30 25 % 0094841 0100000 0098118 0071895 0080693 0032027 0081983 0087277 0085038 0046474 %04879 04879 01600 02665 02319 09566 11000008 (11025024) 92 -9 48 % 0094841 0100000 0098118 0071895 0080693 0032027 0066636 0073806 0006992 0051682 %04945 04945 01614 01677 01238 04691 11000009 (11025026) 92 -9 48 % 0094841 0100000 0098118 0032278 0044663 0029326 0081944 0087247 0084929 0048050 %04283 04283 02595 02743 02596 17510 11000010 (11031030) 73 -33 19 % 0094841 0100000 0098118 0032278 0044663 0029326 0009708 0020830 0006415 0043153 %04015 04015 02368 02083 01958 18499 11000011 (11031032) 73 -33 19 % 0094841 0100000 0098118 0008524 0010959 0021132 0019762 0027965 0070557 0037724 %03510 03510 02387 02224 02255 20633 11000012 (11037036) 40 -15 -24 % 0094841 0100000 0098118 0008524 0010959 0021132 0002979 0003099 0003080 0031808 %03449 03449 02315 03189 02604 23068 11000013 (11037038) 40 -15 -24 % 0094841 0100000 0098118 0005282 0004233 0010251 0008214 0005476 0023242 0034133 %02776 02776 01235 01247 00985 11116 11000014 (11043042) 24 16 -24 % 0094841 0100000 0098118 0005282 0004233 0010251 0003088 0003186 0003173 0022510 %02893 02893 01302 02067 01842 12663 11000015 (11043044) 24 16 -24 % 0094841 0100000 0098118 0012271 0008036 0009321 0032524 0016547 0021187 0041314 %04103 04103 01983 01997 01630 15296 11000016 (11049048) 34 37 -4 % 0094841 0100000 0098118 0012271 0008036 0009321 0002840 0002946 0002961 0038827 %03919 03919 01971 02953 02487 17345 11000017 (11049050) 34 37 -4 % 0094841 0100000 0098118 0011574 0007961 0002635 0030301 0016860 0002491 0045567 %04383 04383 02017 02062 01666 15672 11000018 (11055054) 34 32 26 % 0094841 0100000 0098118 0011574 0007961 0002635 0002900 0003013 0002998 0042062 %04379 04379 02014 03067 02512 18036 11000019 (11055056) 34 32 26 % 0094841 0100000 0098118 0020091 0022165 0004767 0066770 0074098 0007441 0057750 %05956 05956 03796 03127 02873 26344 11000020 (11061060) 54 -4 48 % 0094841 0100000 0098118 0020091 0022165 0004767 0003032 0003118 0003074 0060715 %05901 05901 03744 04550 03696 33236 11000021 (11061062) 54 -4 48 % 0094841 0100000 0098118 0005365 0008949 0004484 0010239 0021552 0006750 0041402 %04014 04014 02234 02192 01967 18177 11000022 (11067066) 36 -31 17 % 0094841 0100000 0098118 0005365 0008949 0004484 0003139 0003224 0003187 0039223 %04056 04056 02195 03196 02340 18235 11000023 (11067068) 36 -31 17 % 0094841 0100000 0098118 0024100 0025411 0024933 0081806 0087107 0084833 0035745 %03734 03734 03734 02812 02700 26958 11000024 (11073072) 57 0 0 % 0094841 0100000 0098118 0024100 0025411 0024933 0002841 0002952 0002903 0039117 %03759 03759 03759 03991 03248 33942 11000025 (11073074) 57 0 0 % 0094841 0100000 0098118 0046592 0049509 0049348 0081699 0086938 0085053 0017083 %01897 01897 01897 01367 01248 13608 11000026 (11079078) 76 -1 0 % 0094841 0100000 0098118 0046592 0049509 0049348 0024429 0025719 0025384 0018791 %01804 01804 01803 01445 01458 15176 11000027 (11079080) 76 -1 0 % 0094841 0100000 0098118 0024429 0025719 0025384 0046592 0049509 0049348 0018791 %01804 01804 01804 01445 01458 15176 11000028 (11080079) 58 0 0 % 0094841 0100000 0098118 0024429 0025719 0025384 0010113 0010588 0010328 0017008 %01889 01889 01889 01769 01873 18560 11000029 (11080081) 58 0 0 % 0094841 0100000 0098118 0010113 0010588 0010328 0024429 0025719 0025384 0017008 %01889 01889 01889 01769 01873 18560 11000030 (11081080) 39 0 0 % 0094841 0100000 0098118 0010113 0010588 0010328 0003002 0003115 0003092 0021242 %01836 01836 01836 02299 01416 19758 11000031 (11081082) 39 0 0 % 0094841 0100000 0098118 0061388 0068767 0083071 0081932 0087195 0085208 0013898 %01709 01709 01250 01490 01304 07190 11000032 (11089088) 86 -8 -12 % 0094841 0100000 0098118 0061388 0068767 0083071 0042828 0051178 0077688 0014977 %01737 01737 01285 01083 00982 08746 11000033 (11089090) 86 -8 -12 % 0094841 0100000 0098118 0042828 0051178 0077688 0061388 0068767 0083071 0014977 %01737 01737 01141 01083 00982 08746 11000034 (11090089) 77 -16 -25 % 0094841 0100000 0098118 0042828 0051178 0077688 0030117 0038759 0074330 0014437 %01577 01577 01001 00874 00797 08649 11000035 (11090091) 77 -16 -25 % 0094841 0100000 0098118 0030117 0038759 0074330 0042828 0051178 0077688 0014437 %01577 01577 00939 00874 00797 08649 11000036 (11091090) 69 -23 -36 % 0094841 0100000 0098118 0030117 0038759 0074330 0019109 0027166 0069727 0024018 %01722 01722 01063 00949 00901 11054 11000037 (11091092) 69 -23 -36 % 0094841 0100000 0098118 0053751 0053723 0066375 0081642 0086843 0085191 0021061 %02264 02264 01936 01939 01728 12560 11000038 (11099098) 78 7 -12 % 0094841 0100000 0098118 0053751 0053723 0066375 0030994 0028449 0046958 0021151 %02310 02310 01999 01640 01591 16154 11000039 (11099100) 78 7 -12 % 0094841 0100000 0098118 0030994 0028449 0046958 0053751 0053723 0066375 0021151 %02310 02310 01906 01640 01591 16154 11000040 (11100099) 60 15 -24 % 0094841 0100000 0098118 0030994 0028449 0046958 0017132 0013979 0033857 0019723 %02122 02122 01715 01574 01667 17925 11000041 (11100101) 60 15 -24 % 0094841 0100000 0098118 0017132 0013979 0033857 0030994 0028449 0046958 0019723 %02122 02122 01675 01574 01667 17925 11000042 (11101100) 44 23 -36 % 0094841 0100000 0098118 0017132 0013979 0033857 0007721 0005099 0022434 0027130 %02227 02227 01783 01993 01486 22871 11000043 (11101102) 44 23 -36 % 0094841 0100000 0098118 0068524 0064010 0066198 0081982 0087216 0085492 0020883 %02225 02225 01628 02051 01959 08291 11000044 (11109108) 84 17 -3 % 0094841 0100000 0098118 0068524 0064010 0066198 0054202 0042964 0047342 0021426 %02363 02363 01667 01386 01273 10438 11000045 (11109110) 84 17 -3 % 0094841 0100000 0098118 0054202 0042964 0047342 0068524 0064010 0066198 0021426 %02363 02363 01447 01386 01273 10438 11000046 (11110109) 72 37 -5 % 0094841 0100000 0098118 0054202 0042964 0047342 0043114 0028245 0033501 0019889 %02210 02210 01337 01186 01108 10837 11000047 (11110111) 72 37 -5 % 0094841 0100000 0098118 0043114 0028245 0033501 0054202 0042964 0047342 0019889 %02210 02210 01259 01186 01108 10837 11000048 (11111110) 60 56 -8 % 0094841 0100000 0098118 0043114 0028245 0033501 0032927 0016859 0021825 0027935 %02241 02241 01314 01244 01248 12711 11000049 (11111112) 60 56 -8 % 0094841 0100000 0098118 0064886 0061743 0048202 0081863 0087155 0084542 0021547 %02345 02345 01702 02056 02027 09473 11000050 (11119118) 83 14 12 % 0094841 0100000 0098118 0064886 0061743 0048202 0051411 0042502 0023747 0022126 %02440 02440 01629 01373 01241 10218 11000051 (11119120) 83 14 12 % 0094841 0100000 0098118 0051411 0042502 0023747 0064886 0061743 0048202 0022126 %02440 02440 01382 01373 01241 10218 11000052 (11120119) 71 31 25 % 0094841 0100000 0098118 0051411 0042502 0023747 0039711 0027280 0009048 0021740 %02556 02556 01438 01295 01192 11645 11000053 (11120121) 71 31 25 % 0094841 0100000 0098118 0039711 0027280 0009048 0051411 0042502 0023747 0021740 %02556 02556 01333 01295 01192 11645 11000054 (11121120) 59 49 39 % 0094841 0100000 0098118 0039711 0027280 0009048 0030140 0016716 0002438 0031016 %02319 02319 01248 01206 01192 12045 11000055 (11121122) 59 49 39 % 0094841 0100000 0098118 0075903 0083223 0055256 0081963 0087239 0085034 0016860 %02306 02306 01174 01775 01508 05426 11000056 (11129128) 93 -6 22 % 0094841 0100000 0098118 0075903 0083223 0055256 0072051 0080771 0032941 0030059 %02453 02453 01195 01123 00947 03984 11000057 (11129130) 93 -6 22 % 0094841 0100000 0098118 0072051 0080771 0032941 0075903 0083223 0055256 0030059 %02453 02453 00788 01123 00947 03984 11000058 (11130129) 92 -9 47 % 0094841 0100000 0098118 0072051 0080771 0032941 0069080 0077892 0016264 0023412 %02693 02693 00876 00973 00744 02923 11000059 (11130131) 92 -9 47 % 0094841 0100000 0098118 0069080 0077892 0016264 0072051 0080771 0032941 0023412 %02693 02693 00646 00973 00744 02923 11000060 (11131130) 91 -10 74 % 0094841 0100000 0098118 0069080 0077892 0016264 0066757 0074005 0007577 0025724 %02180 02180 00567 00715 00523 01931 11000061 (11131132) 91 -10 74 % 0094841 0100000 0098118 0054934 0065264 0054910 0081857 0087084 0085274 0019227 %02039 02039 01397 01629 01622 07875 11000062 (11139138) 85 -16 8 % 0094841 0100000 0098118 0054934 0065264 0054910 0032588 0044922 0030613 0019807 %02161 02161 01530 01275 01165 09740 11000063 (11139140) 85 -16 8 % 0094841 0100000 0098118 0032588 0044922 0030613 0054934 0065264 0054910 0019807 %02161 02161 01359 01275 01165 09740 11000064 (11140139) 73 -32 17 % 0094841 0100000 0098118 0032588 0044922 0030613 0019604 0032347 0016215 0018813 %02014 02014 01142 01027 00934 08560 11000065 (11140141) 73 -32 17 % 0094841 0100000 0098118 0019604 0032347 0016215 0032588 0044922 0030613 0018813 %02014 02014 01057 01027 00934 08560 11000066 (11141140) 64 -47 27 % 0094841 0100000 0098118 0019604 0032347 0016215 0009862 0021113 0006735 0024945 %02072 02072 01174 01092 01056 10342 11000067 (11141142) 64 -47 27 % 0094841 0100000 0098118 0012810 0017460 0040582 0019266 0027357 0069582 0018648 %01723 01723 01144 01065 01090 10345 11000068 (11149148) 49 -22 -37 % 0094841 0100000 0098118 0012810 0017460 0040582 0008048 0010396 0020650 0016283 %01772 01772 01137 01208 01100 11383 11000069 (11149150) 49 -22 -37 % 0094841 0100000 0098118 0008048 0010396 0020650 0012810 0017460 0040582 0016283 %01772 01772 01202 01208 01100 11383 11000070 (11150149) 39 -15 -24 % 0094841 0100000 0098118 0008048 0010396 0020650 0004689 0005674 0008899 0017048 %01694 01694 01158 01395 01064 11948 11000071 (11150151) 39 -15 -24 % 0094841 0100000 0098118 0004689 0005674 0008899 0008048 0010396 0020650 0017048 %01694 01694 01281 01395 01064 11948 11000072 (11151150) 29 -8 -12 % 0094841 0100000 0098118 0004689 0005674 0008899 0002731 0002842 0002933 0017465 %01768 01768 01304 01952 01502 11622 11000073 (11151152) 29 -8 -12 % 0094841 0100000 0098118 0006164 0004418 0015589 0007630 0005004 0022135 0015174 %01286 01286 00457 00546 00399 04680 11000074 (11159158) 25 24 -37 % 0094841 0100000 0098118 0006164 0004418 0015589 0004844 0003858 0009867 0014890 %01453 01453 00511 00693 00556 05904 11000075 (11159160) 25 24 -37 % 0094841 0100000 0098118 0004844 0003858 0009867 0006164 0004418 0015589 0014890 %01453 01453 00636 00693 00556 05904 11000076 (11160159) 23 16 -25 % 0094841 0100000 0098118 0004844 0003858 0009867 0003742 0003394 0005658 0015060 %01539 01539 00667 00908 00791 06637 11000077 (11160161) 23 16 -25 % 0094841 0100000 0098118 0003742 0003394 0005658 0004844 0003858 0009867 0015060 %01539 01539 00928 00908 00791 06637 11000078 (11161160) 22 8 -12 % 0094841 0100000 0098118 0003742 0003394 0005658 0002827 0002931 0002978 0011537 %01404 01404 00853 01299 01141 06077 11000079 (11161162) 22 8 -12 % 0094841 0100000 0098118 0020060 0011211 0014288 0032786 0016758 0021452 0018243 %02016 02016 00954 01015 00879 08643 11000080 (11169168) 40 56 -8 % 0094841 0100000 0098118 0020060 0011211 0014288 0012449 0008161 0009703 0018563 %02059 02059 00787 00998 00790 06964 11000081 (11169170) 40 56 -8 % 0094841 0100000 0098118 0012449 0008161 0009703 0020060 0011211 0014288 0018563 %02059 02059 00925 00998 00790 06964 11000082 (11170169) 34 37 -5 % 0094841 0100000 0098118 0012449 0008161 0009703 0006619 0005133 0005566 0017763 %01891 01891 00970 01250 00963 08737 11000083 (11170171) 34 37 -5 % 0094841 0100000 0098118 0006619 0005133 0005566 0012449 0008161 0009703 0017763 %01891 01891 01166 01250 00963 08737 11000084 (11171170) 27 20 -2 % 0094841 0100000 0098118 0006619 0005133 0005566 0002955 0003059 0003073 0022083 %02033 02033 01217 01848 01730 08718 11000085 (11171172) 27 20 -2 % 0094841 0100000 0098118 0018776 0011347 0002509 0030119 0016704 0002460 0023188 %02273 02273 00956 01040 00877 08376 11000086 (11179178) 40 49 37 % 0094841 0100000 0098118 0018776 0011347 0002509 0011279 0007750 0002627 0020178 %02184 02184 00865 01082 00841 07914 11000087 (11179180) 40 49 37 % 0094841 0100000 0098118 0011279 0007750 0002627 0018776 0011347 0002509 0020178 %02184 02184 00988 01082 00841 07914 11000088 (11180179) 33 32 25 % 0094841 0100000 0098118 0011279 0007750 0002627 0006220 0004944 0002706 0020178 %02036 02036 00961 01264 00959 08466 11000089 (11180181) 33 32 25 % 0094841 0100000 0098118 0006220 0004944 0002706 0011279 0007750 0002627 0020178 %02036 02036 01180 01264 00959 08466 11000090 (11181180) 27 18 12 % 0094841 0100000 0098118 0006220 0004944 0002706 0002743 0002868 0002949 0024781 %02356 02356 01391 02106 01853 09944 11000091 (11181182) 27 18 12 % 0094841 0100000 0098118 0039419 0044284 0006439 0066630 0073857 0007564 0029509 %02900 02900 01740 01423 01242 12351 11000092 (11189188) 72 -7 71 % 0094841 0100000 0098118 0039419 0044284 0006439 0019732 0021839 0004833 0028914 %03101 03101 01945 01761 01702 16159 11000093 (11189190) 72 -7 71 % 0094841 0100000 0098118 0019732 0021839 0004833 0039419 0044284 0006439 0028914 %03101 03101 02018 01761 01702 16159 11000094 (11190189) 54 -4 47 % 0094841 0100000 0098118 0019732 0021839 0004833 0008992 0009737 0003905 0025226 %02875 02875 01811 01922 01818 16867 11000095 (11190191) 54 -4 47 % 0094841 0100000 0098118 0008992 0009737 0003905 0019732 0021839 0004833 0025226 %02875 02875 02002 01922 01818 16867 11000096 (11191190) 37 -2 23 % 0094841 0100000 0098118 0008992 0009737 0003905 0002810 0002925 0002971 0035102 %03022 03022 02183 02988 02130 20299 11000097 (11191192) 37 -2 23 % 0094841 0100000 0098118 0007156 0013858 0005357 0009797 0021038 0006735 0000000 %02009 02009 01035 01047 01003 09180 11000098 (11199198) 44 -47 27 % 0094841 0100000 0098118 0007156 0013858 0005357 0005088 0008604 0004496 0000000 %02075 02075 01039 01200 00990 09793 11000099 (11199200) 44 -47 27 % 0094841 0100000 0098118 0005088 0008604 0004496 0007156 0013858 0005357 0019570 %02075 02075 01139 01200 00990 09793 11000100 (11200199) 35 -32 16 % 0094841 0100000 0098118 0005088 0008604 0004496 0003681 0005086 0003617 0017872 %02034 02034 01085 01396 01082 09721 11000101 (11200201) 35 -32 16 % 0094841 0100000 0098118 0003681 0005086 0003617 0005088 0008604 0004496 0017872 %02034 02034 01324 01396 01082 09721 11000102 (11201200) 27 -15 7 % 0094841 0100000 0098118 0003681 0005086 0003617 0002991 0003106 0003126 0022400 %01968 01968 01306 01969 01817 08547 11000103 (11201202) 27 -15 7 % 0094841 0100000 0098118 0018970 0027010 0069379 0081868 0087166 0084862 0061968 %06765 06765 03958 03956 03615 34055 11000104 (11209208) 59 -30 -48 % 0094841 0100000 0098118 0018970 0027010 0069379 0002713 0002829 0002884 0075296 %06975 06975 04286 05102 04577 39770 11000105 (11209210) 59 -30 -48 % 0094841 0100000 0098118 0007464 0004897 0021974 0081841 0087121 0084875 0091486 %09010 09010 07073 06469 06492 57629 11000106 (11215214) 26 31 -48 % 0094841 0100000 0098118 0007464 0004897 0021974 0002735 0002851 0002906 0055450 %05698 05698 01724 03031 02520 23700 11000107 (11215216) 26 31 -48 % 0094841 0100000 0098118 0032636 0016676 0021382 0081905 0087190 0084998 0078000 %09053 09053 05091 05104 05144 37518 11000108 (11221220) 48 75 -10 % 0094841 0100000 0098118 0032636 0016676 0021382 0002831 0002949 0003015 0092508 %08014 08014 03287 04628 03586 30988 11000109 (11221222) 48 75 -10 % 0094841 0100000 0098118 0030202 0016816 0002560 0081932 0087204 0085219 0085317 %09615 09615 05068 05152 04740 38365 11000110 (11227226) 48 65 51 % 0094841 0100000 0098118 0030202 0016816 0002560 0002848 0002958 0003068 0098372 %08771 08771 03372 04802 03744 32208 11000111 (11227228) 48 65 51 % 0094841 0100000 0098118 0066708 0073834 0007174 0081973 0087317 0084661 0075141 %09669 09669 01952 03829 03064 13955 11000112 (11233232) 89 -7 97 % 0094841 0100000 0098118 0066708 0073834 0007174 0002670 0002786 0002856 0141813 %12047 12047 07234 07287 07419 46645 11000113 (11233234) 89 -7 97 % 0094841 0100000 0098118 0009330 0020322 0006400 0081827 0087155 0084542 0081927 %08316 08316 04573 04551 04139 33503 11000114 (11239238) 52 -63 37 % 0094841 0100000 0098118 0009330 0020322 0006400 0002710 0002826 0002882 0082091 %08101 08101 03771 04986 03970 33598 11000115 (11239240) 52 -63 37 % 0094841 0100000 0098118 0007645 0005037 0022239 0019123 0027146 0069654 0066484 %06975 06975 04632 04963 04865 35836 11000116 (11245244) 27 31 -48 % 0094841 0100000 0098118 0007645 0005037 0022239 0032761 0016792 0021380 0064776 %06163 06163 03667 03586 03094 34210 11000117 (11245246) 27 31 -48 % 0094841 0100000 0098118 0030177 0016793 0002539 0032735 0016740 0021469 0058858 %06217 06217 02753 02613 02865 15870 11000118 (11251250) 48 65 51 % 0094841 0100000 0098118 0030177 0016793 0002539 0066610 0073825 0007504 0098097 %09478 09478 05560 06738 05698 34316 11000119 (11251252) 48 65 51 % 0094841 0100000 0098118 0009233 0020192 0006395 0066612 0073753 0007317 0093908 %08969 08969 05267 04468 04305 29176 11000120 (11257256) 52 -63 36 % 0094841 0100000 0098118 0009233 0020192 0006395 0018956 0026976 0069317 0087550 %09194 09194 04376 04197 04709 30673 11000121 (11257258) 52 -63 36 % 0094841 0100000 0098118 0018926 0026937 0069255 0007528 0004955 0021867 0083551 %06984 06984 04630 04976 04872 35870 11000122 (11263262) 59 -30 -48 % 0094841 0100000 0098118 0018926 0026937 0069255 0009303 0020222 0006420 0077894 %09176 09176 04902 04194 04709 30657 11000123 (11263264) 59 -30 -48 % 0094841 0100000 0098118 0066590 0073785 0007369 0009551 0020600 0006526 0093607 %08876 08876 04834 04420 04259 28841 11000124 (11269268) 89 -7 96 % 0094841 0100000 0098118 0066590 0073785 0007369 0030047 0016679 0002508 0090113 %09513 09513 05369 06760 05712 34416 11000125 (11269270) 89 -7 96 % 0094841 0100000 0098118 0032741 0016755 0021334 0030160 0016785 0002551 0048875 %06177 06177 02876 02598 02847 15730 11000126 (11275274) 48 75 -10 % 0094841 0100000 0098118 0032741 0016755 0021334 0007666 0005063 0022189 0074423 %06164 06164 03345 03578 03087 34018 11000127 (11275276) 48 75 -10 % ] def %END WData0 %***************************************************************** %max 2800 sample pairs with 10 data per line = minimum 28000 data /WData1 28000 array def /iimp1 128 def /Wdatt1 (KR=KITTELMANN_Relative) def /Wdatk1 (KR_0128) def /WData1 %BEG WData1 [ %WE900-7U.TXT KR_128(146)=KIT_Relative %1-003030-L0 WE900-7R_0 %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* % 0094841 0100000 0098118 0043056 0051427 0077363 0081861 0087159 0084853 0035116 %03410 03410 02227 02411 02198 15598 11000000 (11001000) 77 -16 -24 % 0094841 0100000 0098118 0043056 0051427 0077363 0019335 0027473 0069806 0031960 %03303 03303 02126 01807 01676 19357 11000001 (11001002) 77 -16 -24 % 0094841 0100000 0098118 0030839 0028282 0046094 0081830 0087136 0084727 0040566 %04592 04592 03774 03431 03195 27366 11000002 (11007006) 60 15 -24 % 0094841 0100000 0098118 0030839 0028282 0046094 0007798 0005152 0022357 0048698 %04342 04342 03518 03469 03205 38591 11000003 (11007008) 60 15 -24 % 0094841 0100000 0098118 0053897 0042704 0046564 0081923 0087176 0085251 0041275 %04592 04592 02868 03154 03580 18410 11000004 (11013012) 71 37 -5 % 0094841 0100000 0098118 0053897 0042704 0046564 0082007 0087291 0085221 0050559 %04600 04600 02878 03160 03561 18443 11000005 (11013015) 71 37 -5 % 0094841 0100000 0098118 0052052 0043502 0024311 0081991 0087214 0085630 0038434 %04709 04709 02817 03087 02957 18827 11000006 (11019018) 72 30 25 % 0094841 0100000 0098118 0052052 0043502 0024311 0030649 0017102 0002670 0057651 %04899 04899 02809 02496 02361 22990 11000007 (11019020) 72 30 25 % 0094841 0100000 0098118 0071895 0080693 0032027 0081983 0087277 0085038 0042151 %04879 04879 01600 02665 02319 09566 11000008 (11025024) 92 -9 48 % 0094841 0100000 0098118 0071895 0080693 0032027 0066636 0073806 0006992 0056005 %04945 04945 01614 01677 01238 04691 11000009 (11025026) 92 -9 48 % 0094841 0100000 0098118 0032278 0044663 0029326 0081944 0087247 0084929 0041576 %04283 04283 02595 02743 02596 17510 11000010 (11031030) 73 -33 19 % 0094841 0100000 0098118 0032278 0044663 0029326 0009708 0020830 0006415 0041328 %04015 04015 02368 02083 01958 18499 11000011 (11031032) 73 -33 19 % 0094841 0100000 0098118 0008524 0010959 0021132 0019762 0027965 0070557 0037654 %03510 03510 02387 02224 02255 20633 11000012 (11037036) 40 -15 -24 % 0094841 0100000 0098118 0008524 0010959 0021132 0002979 0003099 0003080 0031877 %03449 03449 02315 03189 02604 23068 11000013 (11037038) 40 -15 -24 % 0094841 0100000 0098118 0005282 0004233 0010251 0008214 0005476 0023242 0028180 %02776 02776 01235 01247 00985 11116 11000014 (11043042) 24 16 -24 % 0094841 0100000 0098118 0005282 0004233 0010251 0003088 0003186 0003173 0028463 %02893 02893 01302 02067 01842 12663 11000015 (11043044) 24 16 -24 % 0094841 0100000 0098118 0012271 0008036 0009321 0032524 0016547 0021187 0042196 %04103 04103 01983 01997 01630 15296 11000016 (11049048) 34 37 -4 % 0094841 0100000 0098118 0012271 0008036 0009321 0002840 0002946 0002961 0037945 %03919 03919 01971 02953 02487 17345 11000017 (11049050) 34 37 -4 % 0094841 0100000 0098118 0011574 0007961 0002635 0030301 0016860 0002491 0046356 %04383 04383 02017 02062 01666 15672 11000018 (11055054) 34 32 26 % 0094841 0100000 0098118 0011574 0007961 0002635 0002900 0003013 0002998 0041186 %04379 04379 02014 03067 02512 18036 11000019 (11055056) 34 32 26 % 0094841 0100000 0098118 0020091 0022165 0004767 0066770 0074098 0007441 0053600 %05956 05956 03796 03127 02873 26344 11000020 (11061060) 54 -4 48 % 0094841 0100000 0098118 0020091 0022165 0004767 0003032 0003118 0003074 0064865 %05901 05901 03744 04550 03696 33236 11000021 (11061062) 54 -4 48 % 0094841 0100000 0098118 0005365 0008949 0004484 0010239 0021552 0006750 0035349 %04014 04014 02234 02192 01967 18177 11000022 (11067066) 36 -31 17 % 0094841 0100000 0098118 0005365 0008949 0004484 0003139 0003224 0003187 0045276 %04056 04056 02195 03196 02340 18235 11000023 (11067068) 36 -31 17 % 0094841 0100000 0098118 0024100 0025411 0024933 0081806 0087107 0084833 0033722 %03734 03734 03734 02812 02700 26958 11000024 (11073072) 57 0 0 % 0094841 0100000 0098118 0024100 0025411 0024933 0002841 0002952 0002903 0041215 %03759 03759 03759 03991 03248 33942 11000025 (11073074) 57 0 0 % 0094841 0100000 0098118 0046592 0049509 0049348 0081699 0086938 0085053 0018122 %01897 01897 01897 01367 01248 13608 11000026 (11079078) 76 -1 0 % 0094841 0100000 0098118 0046592 0049509 0049348 0024429 0025719 0025384 0016117 %01804 01804 01803 01445 01458 15176 11000027 (11079080) 76 -1 0 % 0094841 0100000 0098118 0024429 0025719 0025384 0046592 0049509 0049348 0016117 %01804 01804 01804 01445 01458 15176 11000028 (11080079) 58 0 0 % 0094841 0100000 0098118 0024429 0025719 0025384 0010113 0010588 0010328 0018568 %01889 01889 01889 01769 01873 18560 11000029 (11080081) 58 0 0 % 0094841 0100000 0098118 0010113 0010588 0010328 0024429 0025719 0025384 0018568 %01889 01889 01889 01769 01873 18560 11000030 (11081080) 39 0 0 % 0094841 0100000 0098118 0010113 0010588 0010328 0003002 0003115 0003092 0021391 %01836 01836 01836 02299 01416 19758 11000031 (11081082) 39 0 0 % 0094841 0100000 0098118 0061388 0068767 0083071 0081932 0087195 0085208 0014842 %01709 01709 01250 01490 01304 07190 11000032 (11089088) 86 -8 -12 % 0094841 0100000 0098118 0061388 0068767 0083071 0042828 0051178 0077688 0015854 %01737 01737 01285 01083 00982 08746 11000033 (11089090) 86 -8 -12 % 0094841 0100000 0098118 0042828 0051178 0077688 0061388 0068767 0083071 0015854 %01737 01737 01141 01083 00982 08746 11000034 (11090089) 77 -16 -25 % 0094841 0100000 0098118 0042828 0051178 0077688 0030117 0038759 0074330 0014033 %01577 01577 01001 00874 00797 08649 11000035 (11090091) 77 -16 -25 % 0094841 0100000 0098118 0030117 0038759 0074330 0042828 0051178 0077688 0014033 %01577 01577 00939 00874 00797 08649 11000036 (11091090) 69 -23 -36 % 0094841 0100000 0098118 0030117 0038759 0074330 0019109 0027166 0069727 0022601 %01722 01722 01063 00949 00901 11054 11000037 (11091092) 69 -23 -36 % 0094841 0100000 0098118 0053751 0053723 0066375 0081642 0086843 0085191 0020704 %02264 02264 01936 01939 01728 12560 11000038 (11099098) 78 7 -12 % 0094841 0100000 0098118 0053751 0053723 0066375 0030994 0028449 0046958 0018830 %02310 02310 01999 01640 01591 16154 11000039 (11099100) 78 7 -12 % 0094841 0100000 0098118 0030994 0028449 0046958 0053751 0053723 0066375 0018830 %02310 02310 01906 01640 01591 16154 11000040 (11100099) 60 15 -24 % 0094841 0100000 0098118 0030994 0028449 0046958 0017132 0013979 0033857 0019187 %02122 02122 01715 01574 01667 17925 11000041 (11100101) 60 15 -24 % 0094841 0100000 0098118 0017132 0013979 0033857 0030994 0028449 0046958 0019187 %02122 02122 01675 01574 01667 17925 11000042 (11101100) 44 23 -36 % 0094841 0100000 0098118 0017132 0013979 0033857 0007721 0005099 0022434 0030254 %02227 02227 01783 01993 01486 22871 11000043 (11101102) 44 23 -36 % 0094841 0100000 0098118 0068524 0064010 0066198 0081982 0087216 0085492 0023053 %02225 02225 01628 02051 01959 08291 11000044 (11109108) 84 17 -3 % 0094841 0100000 0098118 0068524 0064010 0066198 0054202 0042964 0047342 0019618 %02363 02363 01667 01386 01273 10438 11000045 (11109110) 84 17 -3 % 0094841 0100000 0098118 0054202 0042964 0047342 0068524 0064010 0066198 0019618 %02363 02363 01447 01386 01273 10438 11000046 (11110109) 72 37 -5 % 0094841 0100000 0098118 0054202 0042964 0047342 0043114 0028245 0033501 0021245 %02210 02210 01337 01186 01108 10837 11000047 (11110111) 72 37 -5 % 0094841 0100000 0098118 0043114 0028245 0033501 0054202 0042964 0047342 0021245 %02210 02210 01259 01186 01108 10837 11000048 (11111110) 60 56 -8 % 0094841 0100000 0098118 0043114 0028245 0033501 0032927 0016859 0021825 0026308 %02241 02241 01314 01244 01248 12711 11000049 (11111112) 60 56 -8 % 0094841 0100000 0098118 0064886 0061743 0048202 0081863 0087155 0084542 0021837 %02345 02345 01702 02056 02027 09473 11000050 (11119118) 83 14 12 % 0094841 0100000 0098118 0064886 0061743 0048202 0051411 0042502 0023747 0021257 %02440 02440 01629 01373 01241 10218 11000051 (11119120) 83 14 12 % 0094841 0100000 0098118 0051411 0042502 0023747 0064886 0061743 0048202 0021257 %02440 02440 01382 01373 01241 10218 11000052 (11120119) 71 31 25 % 0094841 0100000 0098118 0051411 0042502 0023747 0039711 0027280 0009048 0023383 %02556 02556 01438 01295 01192 11645 11000053 (11120121) 71 31 25 % 0094841 0100000 0098118 0039711 0027280 0009048 0051411 0042502 0023747 0023383 %02556 02556 01333 01295 01192 11645 11000054 (11121120) 59 49 39 % 0094841 0100000 0098118 0039711 0027280 0009048 0030140 0016716 0002438 0029953 %02319 02319 01248 01206 01192 12045 11000055 (11121122) 59 49 39 % 0094841 0100000 0098118 0075903 0083223 0055256 0081963 0087239 0085034 0022641 %02306 02306 01174 01775 01508 05426 11000056 (11129128) 93 -6 22 % 0094841 0100000 0098118 0075903 0083223 0055256 0072051 0080771 0032941 0021677 %02453 02453 01195 01123 00947 03984 11000057 (11129130) 93 -6 22 % 0094841 0100000 0098118 0072051 0080771 0032941 0075903 0083223 0055256 0021677 %02453 02453 00788 01123 00947 03984 11000058 (11130129) 92 -9 47 % 0094841 0100000 0098118 0072051 0080771 0032941 0069080 0077892 0016264 0024857 %02693 02693 00876 00973 00744 02923 11000059 (11130131) 92 -9 47 % 0094841 0100000 0098118 0069080 0077892 0016264 0072051 0080771 0032941 0024857 %02693 02693 00646 00973 00744 02923 11000060 (11131130) 91 -10 74 % 0094841 0100000 0098118 0069080 0077892 0016264 0066757 0074005 0007577 0027073 %02180 02180 00567 00715 00523 01931 11000061 (11131132) 91 -10 74 % 0094841 0100000 0098118 0054934 0065264 0054910 0081857 0087084 0085274 0020802 %02039 02039 01397 01629 01622 07875 11000062 (11139138) 85 -16 8 % 0094841 0100000 0098118 0054934 0065264 0054910 0032588 0044922 0030613 0017487 %02161 02161 01530 01275 01165 09740 11000063 (11139140) 85 -16 8 % 0094841 0100000 0098118 0032588 0044922 0030613 0054934 0065264 0054910 0017487 %02161 02161 01359 01275 01165 09740 11000064 (11140139) 73 -32 17 % 0094841 0100000 0098118 0032588 0044922 0030613 0019604 0032347 0016215 0019227 %02014 02014 01142 01027 00934 08560 11000065 (11140141) 73 -32 17 % 0094841 0100000 0098118 0019604 0032347 0016215 0032588 0044922 0030613 0019227 %02014 02014 01057 01027 00934 08560 11000066 (11141140) 64 -47 27 % 0094841 0100000 0098118 0019604 0032347 0016215 0009862 0021113 0006735 0025194 %02072 02072 01174 01092 01056 10342 11000067 (11141142) 64 -47 27 % 0094841 0100000 0098118 0012810 0017460 0040582 0019266 0027357 0069582 0019831 %01723 01723 01144 01065 01090 10345 11000068 (11149148) 49 -22 -37 % 0094841 0100000 0098118 0012810 0017460 0040582 0008048 0010396 0020650 0015726 %01772 01772 01137 01208 01100 11383 11000069 (11149150) 49 -22 -37 % 0094841 0100000 0098118 0008048 0010396 0020650 0012810 0017460 0040582 0015726 %01772 01772 01202 01208 01100 11383 11000070 (11150149) 39 -15 -24 % 0094841 0100000 0098118 0008048 0010396 0020650 0004689 0005674 0008899 0017465 %01694 01694 01158 01395 01064 11948 11000071 (11150151) 39 -15 -24 % 0094841 0100000 0098118 0004689 0005674 0008899 0008048 0010396 0020650 0017465 %01694 01694 01281 01395 01064 11948 11000072 (11151150) 29 -8 -12 % 0094841 0100000 0098118 0004689 0005674 0008899 0002731 0002842 0002933 0016422 %01768 01768 01304 01952 01502 11622 11000073 (11151152) 29 -8 -12 % 0094841 0100000 0098118 0006164 0004418 0015589 0007630 0005004 0022135 0012332 %01286 01286 00457 00546 00399 04680 11000074 (11159158) 25 24 -37 % 0094841 0100000 0098118 0006164 0004418 0015589 0004844 0003858 0009867 0015003 %01453 01453 00511 00693 00556 05904 11000075 (11159160) 25 24 -37 % 0094841 0100000 0098118 0004844 0003858 0009867 0006164 0004418 0015589 0015003 %01453 01453 00636 00693 00556 05904 11000076 (11160159) 23 16 -25 % 0094841 0100000 0098118 0004844 0003858 0009867 0003742 0003394 0005658 0017163 %01539 01539 00667 00908 00791 06637 11000077 (11160161) 23 16 -25 % 0094841 0100000 0098118 0003742 0003394 0005658 0004844 0003858 0009867 0017163 %01539 01539 00928 00908 00791 06637 11000078 (11161160) 22 8 -12 % 0094841 0100000 0098118 0003742 0003394 0005658 0002827 0002931 0002978 0012162 %01404 01404 00853 01299 01141 06077 11000079 (11161162) 22 8 -12 % 0094841 0100000 0098118 0020060 0011211 0014288 0032786 0016758 0021452 0023283 %02016 02016 00954 01015 00879 08643 11000080 (11169168) 40 56 -8 % 0094841 0100000 0098118 0020060 0011211 0014288 0012449 0008161 0009703 0018403 %02059 02059 00787 00998 00790 06964 11000081 (11169170) 40 56 -8 % 0094841 0100000 0098118 0012449 0008161 0009703 0020060 0011211 0014288 0018403 %02059 02059 00925 00998 00790 06964 11000082 (11170169) 34 37 -5 % 0094841 0100000 0098118 0012449 0008161 0009703 0006619 0005133 0005566 0015362 %01891 01891 00970 01250 00963 08737 11000083 (11170171) 34 37 -5 % 0094841 0100000 0098118 0006619 0005133 0005566 0012449 0008161 0009703 0015362 %01891 01891 01166 01250 00963 08737 11000084 (11171170) 27 20 -2 % 0094841 0100000 0098118 0006619 0005133 0005566 0002955 0003059 0003073 0022803 %02033 02033 01217 01848 01730 08718 11000085 (11171172) 27 20 -2 % 0094841 0100000 0098118 0018776 0011347 0002509 0030119 0016704 0002460 0025135 %02273 02273 00956 01040 00877 08376 11000086 (11179178) 40 49 37 % 0094841 0100000 0098118 0018776 0011347 0002509 0011279 0007750 0002627 0017523 %02184 02184 00865 01082 00841 07914 11000087 (11179180) 40 49 37 % 0094841 0100000 0098118 0011279 0007750 0002627 0018776 0011347 0002509 0017523 %02184 02184 00988 01082 00841 07914 11000088 (11180179) 33 32 25 % 0094841 0100000 0098118 0011279 0007750 0002627 0006220 0004944 0002706 0021063 %02036 02036 00961 01264 00959 08466 11000089 (11180181) 33 32 25 % 0094841 0100000 0098118 0006220 0004944 0002706 0011279 0007750 0002627 0021063 %02036 02036 01180 01264 00959 08466 11000090 (11181180) 27 18 12 % 0094841 0100000 0098118 0006220 0004944 0002706 0002743 0002868 0002949 0024692 %02356 02356 01391 02106 01853 09944 11000091 (11181182) 27 18 12 % 0094841 0100000 0098118 0039419 0044284 0006439 0066630 0073857 0007564 0032484 %02900 02900 01740 01423 01242 12351 11000092 (11189188) 72 -7 71 % 0094841 0100000 0098118 0039419 0044284 0006439 0019732 0021839 0004833 0025821 %03101 03101 01945 01761 01702 16159 11000093 (11189190) 72 -7 71 % 0094841 0100000 0098118 0019732 0021839 0004833 0039419 0044284 0006439 0025821 %03101 03101 02018 01761 01702 16159 11000094 (11190189) 54 -4 47 % 0094841 0100000 0098118 0019732 0021839 0004833 0008992 0009737 0003905 0022370 %02875 02875 01811 01922 01818 16867 11000095 (11190191) 54 -4 47 % 0094841 0100000 0098118 0008992 0009737 0003905 0019732 0021839 0004833 0022370 %02875 02875 02002 01922 01818 16867 11000096 (11191190) 37 -2 23 % 0094841 0100000 0098118 0008992 0009737 0003905 0002810 0002925 0002971 0038077 %03022 03022 02183 02988 02130 20299 11000097 (11191192) 37 -2 23 % 0094841 0100000 0098118 0007156 0013858 0005357 0009797 0021038 0006735 0021830 %02009 02009 01035 01047 01003 09180 11000098 (11199198) 44 -47 27 % 0094841 0100000 0098118 0007156 0013858 0005357 0005088 0008604 0004496 0021830 %02075 02075 01039 01200 00990 09793 11000099 (11199200) 44 -47 27 % 0094841 0100000 0098118 0005088 0008604 0004496 0007156 0013858 0005357 0015284 %02075 02075 01139 01200 00990 09793 11000100 (11200199) 35 -32 16 % 0094841 0100000 0098118 0005088 0008604 0004496 0003681 0005086 0003617 0022239 %02034 02034 01085 01396 01082 09721 11000101 (11200201) 35 -32 16 % 0094841 0100000 0098118 0003681 0005086 0003617 0005088 0008604 0004496 0022239 %02034 02034 01324 01396 01082 09721 11000102 (11201200) 27 -15 7 % 0094841 0100000 0098118 0003681 0005086 0003617 0002991 0003106 0003126 0021349 %01968 01968 01306 01969 01817 08547 11000103 (11201202) 27 -15 7 % 0094841 0100000 0098118 0018970 0027010 0069379 0081868 0087166 0084862 0062380 %06765 06765 03958 03956 03615 34055 11000104 (11209208) 59 -30 -48 % 0094841 0100000 0098118 0018970 0027010 0069379 0002713 0002829 0002884 0074884 %06975 06975 04286 05102 04577 39770 11000105 (11209210) 59 -30 -48 % 0094841 0100000 0098118 0007464 0004897 0021974 0081841 0087121 0084875 0105017 %09010 09010 07073 06469 06492 57629 11000106 (11215214) 26 31 -48 % 0094841 0100000 0098118 0007464 0004897 0021974 0002735 0002851 0002906 0041918 %05698 05698 01724 03031 02520 23700 11000107 (11215216) 26 31 -48 % 0094841 0100000 0098118 0032636 0016676 0021382 0081905 0087190 0084998 0074246 %09053 09053 05091 05104 05144 37518 11000108 (11221220) 48 75 -10 % 0094841 0100000 0098118 0032636 0016676 0021382 0002831 0002949 0003015 0096263 %08014 08014 03287 04628 03586 30988 11000109 (11221222) 48 75 -10 % 0094841 0100000 0098118 0030202 0016816 0002560 0081932 0087204 0085219 0088075 %09615 09615 05068 05152 04740 38365 11000110 (11227226) 48 65 51 % 0094841 0100000 0098118 0030202 0016816 0002560 0002848 0002958 0003068 0095614 %08771 08771 03372 04802 03744 32208 11000111 (11227228) 48 65 51 % 0094841 0100000 0098118 0066708 0073834 0007174 0081973 0087317 0084661 0066020 %09669 09669 01952 03829 03064 13955 11000112 (11233232) 89 -7 97 % 0094841 0100000 0098118 0066708 0073834 0007174 0002670 0002786 0002856 0150934 %12047 12047 07234 07287 07419 46645 11000113 (11233234) 89 -7 97 % 0094841 0100000 0098118 0009330 0020322 0006400 0081827 0087155 0084542 0082912 %08316 08316 04573 04551 04139 33503 11000114 (11239238) 52 -63 37 % 0094841 0100000 0098118 0009330 0020322 0006400 0002710 0002826 0002882 0081106 %08101 08101 03771 04986 03970 33598 11000115 (11239240) 52 -63 37 % 0094841 0100000 0098118 0007645 0005037 0022239 0019123 0027146 0069654 0062937 %06975 06975 04632 04963 04865 35836 11000116 (11245244) 27 31 -48 % 0094841 0100000 0098118 0007645 0005037 0022239 0032761 0016792 0021380 0068324 %06163 06163 03667 03586 03094 34210 11000117 (11245246) 27 31 -48 % 0094841 0100000 0098118 0030177 0016793 0002539 0032735 0016740 0021469 0051638 %06217 06217 02753 02613 02865 15870 11000118 (11251250) 48 65 51 % 0094841 0100000 0098118 0030177 0016793 0002539 0066610 0073825 0007504 0105160 %09478 09478 05560 06738 05698 34316 11000119 (11251252) 48 65 51 % 0094841 0100000 0098118 0009233 0020192 0006395 0066612 0073753 0007317 0109711 %08969 08969 05267 04468 04305 29176 11000120 (11257256) 52 -63 36 % 0094841 0100000 0098118 0009233 0020192 0006395 0018956 0026976 0069317 0071748 %09194 09194 04376 04197 04709 30673 11000121 (11257258) 52 -63 36 % 0094841 0100000 0098118 0018926 0026937 0069255 0007528 0004955 0021867 0094863 %06984 06984 04630 04976 04872 35870 11000122 (11263262) 59 -30 -48 % 0094841 0100000 0098118 0018926 0026937 0069255 0009303 0020222 0006420 0066582 %09176 09176 04902 04194 04709 30657 11000123 (11263264) 59 -30 -48 % 0094841 0100000 0098118 0066590 0073785 0007369 0009551 0020600 0006526 0101515 %08876 08876 04834 04420 04259 28841 11000124 (11269268) 89 -7 96 % 0094841 0100000 0098118 0066590 0073785 0007369 0030047 0016679 0002508 0082205 %09513 09513 05369 06760 05712 34416 11000125 (11269270) 89 -7 96 % 0094841 0100000 0098118 0032741 0016755 0021334 0030160 0016785 0002551 0042827 %06177 06177 02876 02598 02847 15730 11000126 (11275274) 48 75 -10 % 0094841 0100000 0098118 0032741 0016755 0021334 0007666 0005063 0022189 0080471 %06164 06164 03345 03578 03087 34018 11000127 (11275276) 48 75 -10 % ] def %END WData1 %***************************************************************** %max 2800 sample pairs with 10 data per line = minimum 28000 data /WData2 28000 array def /iimp2 132 def /Wdatt2 (AV=AVRAMOPOULOS) def /Wdatk2 (AV_0132) def /WData2 %BEG WData2 [ ] def %END WData2 %max 2800 sample pairs with 10 data per line = minimum 28000 data /WData3 28000 array def /iimp3 2776 def /Wdatt3 (BF=BFD_ALL) def /Wdatk3 (BF_2776) def /WData3 %BEG WData3 [ ] def %END WData3 %***************************************************************** %max 2800 sample pairs with 10 data per line = minimum 28000 data /WData4 28000 array def /iimp4 446 def /Wdatt4 (SS=BIGC_SSG) def /Wdatk4 (SS_0446) def /WData4 %BEG WData4 [ ] def %END WData4 %***************************************************************** %max 2800 sample pairs with 10 data per line = minimum 28000 data /WData5 28000 array def /iimp5 0000 def /Wdatt5 (XX=BIGC_SSG) def /Wdatk5 (XX_0000) def /WData5 %BEG WData5 [ ] def %END WData5 %************************************* /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 /FL 0.000001 def %******************************************************************** /proc_coldiff {%BEG procedure proc_coldiff %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH 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(m:l:c=m: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 % /Datname 2000 array def /Dattab 2000 array def % 0 1 2 3 4 5 6 7 8 9 10 12 %min 5x12 data: obs kat im, ia, Min. Max, Mean, CIELAB, CMC, C94, C00, C85 %obs=xchart %kat=kk 0 1 1999 {/i exch def %i=0,1999 Datname i (-1) put %default Dattab i -1 put %default } for %i=0,1999 %************************************************** 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 /xchartlm 2 def /datasetm 1 def /kkmax 12 def /xchartl xchart def 0 1 xchartlm {/xchartl exch def %xchartl=0,xchartlm gsave 5 /Times-ISOL1 FS 350 85 moveto (WG570-7R) show (_1) show %(_) show iXYZLAB cvishow (_) show ii cvishow 72 90 translate /xwidth 12900 def /yhoe 17000 def 0.01 MM dup scale 20 setlinewidth 0.0 0.0 1.0 0.0 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke 0 1 datasetm {/dataset exch def %dataset=0,datasetm % 0 1 2 3 4 5 6 7 8 9 10 11 12 /d_range1 [0.0 0.0 0.0 0.5 1.0 1.5 2.0 5.0 5.0 20. 05. 25. 30.] def /d_range2 [99. 5.0 0.5 1.0 1.5 2.0 5.0 10. 20. 99. 99. 30. 99.] def /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 %********************************************************** /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 /d_CIELABmai 2800 array def /d_CIELCHmai 2800 array def /d_C94LCHmai 2800 array def /d_CMCLCHmai 2800 array def /d_C00LCHmai 2800 array def /d_C85LCHmai 2800 array def /indiai 2800 array def /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LABi 2800 array def %CIE94 /d_C94LCHi 2800 array def /d_CMCLABi 2800 array def %CMC /d_CMCLCHi 2800 array def /d_CM2LABi 2800 array def %CMC /d_CM2LCHi 2800 array def /d_C00LABi 2800 array def %CIE DE2000 /d_C00LCHi 2800 array def /d_C85LABi 2800 array def %LABJND 1985 /d_C85LCHi 2800 array def /d_CM2LCHi 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_C94LABmi 2800 array def %CIE94 /d_C94LCHmi 2800 array def /d_CMCLABmi 2800 array def %CMC /d_CMCLCHmi 2800 array def /d_CM2LABmi 2800 array def %CM2 /d_CM2LCHmi 2800 array def /d_C00LABmi 2800 array def %CIE DE2000 /d_C00LCHmi 2800 array def /d_C85LABmi 2800 array def %LABJND 1985 /d_C85LCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def %STOP0 dataset 0 eq {/iimp iimp0 def /WdattX Wdatt0 def} if dataset 1 eq {/iimp iimp1 def /WdattX Wdatt1 def} if dataset 2 eq {/iimp iimp2 def /WdattX Wdatt2 def} if dataset 3 eq {/iimp iimp3 def /WdattX Wdatt3 def} if dataset 4 eq {/iimp iimp4 def /WdattX Wdatt4 def} if %dataset 5 eq {/iimp iimp5 def /WdattX Wdatt5 def} if %dataset 6 eq {/iimp iimp6 def /WdattX Wdatt6 def} if %dataset 7 eq {/iimp iimp7 def /WdattX Wdatt7 def} if /iim iimp 1 sub def 0 1 iim {/i exch def %i=0,iim /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 WDataX i10 j add %special 0.001 mul dataset 0 eq {WData0 i10 j add get 0.001 mul put} if dataset 1 eq {WData1 i10 j add get 0.001 mul put} if dataset 2 eq {WData2 i10 j add get 0.001 mul put} if dataset 3 eq {WData3 i10 j add get 0.001 mul put} if dataset 4 eq {WData4 i10 j add get 0.001 mul put} if dataset 5 eq {WData5 i10 j add get 0.001 mul put} if % dataset 6 eq {WData6 i10 j add get 0.001 mul put} if % dataset 7 eq {WData7 i10 j add get 0.001 mul put} if } for %j=0,9 } for %i=0,iim 0 1 iim {/i exch def %i=0,iim /i10 i 10 mul def /XW WDataX i10 0 add get def /YW WDataX i10 1 add get def /ZW WDataX i10 2 add get def /X0 WDataX i10 3 add get def /Y0 WDataX i10 4 add get def /Z0 WDataX i10 5 add get def /X1 WDataX i10 6 add get def /Y1 WDataX i10 7 add get def /Z1 WDataX i10 8 add get def proc_coldiff 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_CIELABi i get put d_CIELCHai i d_CIELCHi i get put d_C94LCHai i d_C94LCHi i get put d_CMCLCHai i d_CMCLCHi i get put d_C00LCHai i d_C00LCHi i get put d_C85LCHai i d_C85LCHi i get put d_CIELABmai i d_CIELABmi i get put d_CIELCHmai i d_CIELCHmi i get put d_C94LCHmai i d_C94LCHmi i get put d_CMCLCHmai i d_CMCLCHmi i get put d_C00LCHmai i d_C00LCHmi i get put d_C85LCHmai i d_C85LCHmi i get put %save data in array 0 1 09 {/j exch def %j=0,09 WXYZR01Vai i10 j add WDataX i10 j add get put } for %j=0,09 } for %i=i,iim %************************************************** 0 1 kkmax {/kk exch def %kk=0,kkmax /iai -1 def /dVsuma 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 %%STOPA 0 1 iim {/i exch def %i=0,iim indiai i -1 put } for %i=0,iim 0 1 iim {/i exch def %i=0,iim %xchartl ranges of delta_E xchartl 0 eq {/d_CIEXXX d_CIELABai i get def} if xchartl 1 eq {/d_CIEXXX d_C00LCHai i get def} if xchartl 2 eq {/d_CIEXXX d_C85LCHai i get def} if d_CIEXXX d_range1 kk get ge d_CIEXXX d_range2 kk get lt and {%d_CIEXXX within range /iai iai 1 add def indiai i i put /d_CIELAB d_CIELABai i get 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_CIELCHai i get 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_C94LCHai i get 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_C94LCHavea d_C94LCHsuma iai 1 add div def /d_CMCLCH d_CMCLCHai i get 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_CMCLCHavea d_CMCLCHsuma iai 1 add div def /d_C00LCH d_C00LCHai i get 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_C00LCHavea d_C00LCHsuma iai 1 add div def /d_C85LCH d_C85LCHai i get 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 /d_C85LCHavea d_C85LCHsuma iai 1 add div def } if %d_range } for %i=0,iim %STOPA /nr dataset 200 mul kk 12 mul add def Dattab nr 00 add iimp put Dattab nr 01 add iai 1 add put iai -1 gt {%iai>=-1 %*********************************************** %CIELAB /d_CIELABavea d_CIELABsuma iai 1 add div def /dEaiVai 0 def /dVaiVai 0 def 0 1 iim {/i exch def %i=0,iim indiai i get 0 ge {%indiai>=0 /ik indiai i get def /dVai WXYZR01Vai ik 10 mul 09 add get def /dEai d_CIELABai ik get def /dEaiVai dEaiVai dEai dVai mul add def /dVaiVai dVaiVai dVai dVai mul add def } if %indiai>=0 } for %i=0,iim /FSa dEaiVai dVaiVai div def /dEaiMFVai2 0 def /dEaiEai 0 def 0 1 iim {/i exch def %i=0,iim indiai i get 0 ge {%indiai>=0 /ik indiai i get def /dVai WXYZR01Vai ik 10 mul 09 add get def /dEai d_CIELABai ik get def /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def /dEaiEai dEaiEai dEai dEai mul add def } if %indiai>=0 } for %i=0,iim /SSaCIELAB dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def %%STOPA1 %*********************************************** %CIELCH /d_CIELCHavea d_CIELCHsuma iai 1 add div def /dEaiVai 0 def /dVaiVai 0 def 0 1 iim {/i exch def %i=0,iim indiai i get 0 ge {%indiai>=0 /ik indiai i get def /dVai WXYZR01Vai ik 10 mul 09 add get def /dEai d_CIELCHai ik get def /dEaiVai dEaiVai dEai dVai mul add def /dVaiVai dVaiVai dVai dVai mul add def } if %indiai>=0 } for %i=0,iim /FSa dEaiVai dVaiVai div def /dEaiMFVai2 0 def /dEaiEai 0 def 0 1 iim {/i exch def %i=0,iim indiai i get 0 ge {%indiai>=0 /ik indiai i get def /dVai WXYZR01Vai ik 10 mul 09 add get def /dEai d_CIELCHai ik get def /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def /dEaiEai dEaiEai dEai dEai mul add def } if %indiai>=0 } for %i=0,iim /SSaCIELCH dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def %*********************************************** %C94LCH /d_C94LCHavea d_C94LCHsuma iai 1 add div def /dEaiVai 0 def /dVaiVai 0 def 0 1 iim {/i exch def %i=0,iim indiai i get 0 ge {%indiai>=0 /ik indiai i get def /dVai WXYZR01Vai ik 10 mul 09 add get def /dEai d_C94LCHai ik get def /dEaiVai dEaiVai dEai dVai mul add def /dVaiVai dVaiVai dVai dVai mul add def } if %indiai>=0 } for %i=0,iim /FSa dEaiVai dVaiVai div def /dEaiMFVai2 0 def /dEaiEai 0 def 0 1 iim {/i exch def %i=0,iim indiai i get 0 ge {%indiai>=0 /ik indiai i get def /dVai WXYZR01Vai ik 10 mul 09 add get def /dEai d_C94LCHai ik get def /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def /dEaiEai dEaiEai dEai dEai mul add def } if %indiai>=0 } for %i=0,iim /SSaC94LCH dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def %*********************************************** %CCMLCH /d_CMCLCHavea d_CMCLCHsuma iai 1 add div def /dEaiVai 0 def /dVaiVai 0 def 0 1 iim {/i exch def %i=0,iim indiai i get 0 ge {%indiai>=0 /ik indiai i get def /dVai WXYZR01Vai ik 10 mul 09 add get def /dEai d_CMCLCHai ik get def /dEaiVai dEaiVai dEai dVai mul add def /dVaiVai dVaiVai dVai dVai mul add def } if %indiai>=0 } for %i=0,iim /FSa dEaiVai dVaiVai div def /dEaiMFVai2 0 def /dEaiEai 0 def 0 1 iim {/i exch def %i=0,iim indiai i get 0 ge {%indiai>=0 /ik indiai i get def /dVai WXYZR01Vai ik 10 mul 09 add get def /dEai d_CMCLCHai ik get def /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def /dEaiEai dEaiEai dEai dEai mul add def } if %indiai>=0 } for %i=0,iim /SSaCCMLCH dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def %*********************************************** %C00LCH /d_C00LCHavea d_C00LCHsuma iai 1 add div def /dEaiVai 0 def /dVaiVai 0 def 0 1 iim {/i exch def %i=0,iim indiai i get 0 ge {%indiai>=0 /ik indiai i get def /dVai WXYZR01Vai ik 10 mul 09 add get def /dEai d_C00LCHai ik get def /dEaiVai dEaiVai dEai dVai mul add def /dVaiVai dVaiVai dVai dVai mul add def } if %indiai>=0 } for %i=0,iim /FSa dEaiVai dVaiVai div def /dEaiMFVai2 0 def /dEaiEai 0 def 0 1 iim {/i exch def %i=0,iim indiai i get 0 ge {%indiai>=0 /ik indiai i get def /dVai WXYZR01Vai ik 10 mul 09 add get def /dEai d_C00LCHai ik get def /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def /dEaiEai dEaiEai dEai dEai mul add def } if %indiai>=0 } for %i=0,iim /SSaC00LCH dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def %*********************************************** %C85LCH /d_C85LCHavea d_C85LCHsuma iai 1 add div def /dEaiVai 0 def /dVaiVai 0 def 0 1 iim {/i exch def %i=0,iim indiai i get 0 ge {%indiai>=0 /ik indiai i get def /dVai WXYZR01Vai ik 10 mul 09 add get def /dEai d_C85LCHai ik get def /dEaiVai dEaiVai dEai dVai mul add def /dVaiVai dVaiVai dVai dVai mul add def } if %indiai>=0 } for %i=0,iim /FSa dEaiVai dVaiVai div def /dEaiMFVai2 0 def /dEaiEai 0 def 0 1 iim {/i exch def %i=0,iim indiai i get 0 ge {%indiai>=0 /ik indiai i get def /dVai WXYZR01Vai ik 10 mul 09 add get def /dEai d_C85LCHai ik get def /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def /dEaiEai dEaiEai dEai dEai mul add def } if %indiai>=0 } for %i=0,iim /SSaC85LCH dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def %*************************************************** } if %iai>=-1 %STOPY Datname dataset WdattX put /nr dataset 200 mul kk 12 mul add def Dattab nr 02 add d_range1 kk get put Dattab nr 03 add d_range2 kk get put Dattab nr 04 add d_CIELABmina put Dattab nr 05 add d_CIELABmaxa put Dattab nr 06 add d_CIELABavea put Dattab nr 07 add SSaCIELAB put Dattab nr 08 add SSaCCMLCH put Dattab nr 09 add SSaC94LCH put Dattab nr 10 add SSaC00LCH put Dattab nr 11 add SSaC85LCH put } for %kk=0,kkmax %****************************************************************** dataset 0 eq {%dataset=0 %Spalten /S1 100 def /S2 200 def /S30 1500 def %nr, pairs /S31 2300 def %delta_E*-range /S32 3400 def /S40 4075 def %min,max,mean /S41 4850 def /S42 5625 def /S50 6425 def %CIELAB /S51 7625 def %CMC /S52 8900 def %C94 /S53 10100 def %CIEDE2000 /S54 11700 def %LABJND /yu0 yhoe 0300 sub def %8100 titel /yu1 yhoe 0700 sub def %7600 dataset /yu2 yhoe 2250 sub def %6400 0 yhoe 450 sub moveto xwidth 0 rlineto stroke %sub title /yd 520 def %y-Zeilenabstand for font G /ydg 600 def %yd for equation lines /yd2 300 def %y-Zeilenabstand for font M S30 100 sub yhoe 0550 sub moveto 0 yhoe 1050 sub neg rlineto stroke S50 100 sub yhoe 0850 sub moveto 0 yhoe 1350 sub neg rlineto stroke /yli 1250 def /yli2 1750 def %S30 100 sub yhoe yli sub moveto 0 yhoe yli2 sub neg rlineto stroke S31 100 sub yhoe yli sub moveto 0 yhoe yli2 sub neg rlineto stroke %S32 100 sub yhoe yli sub moveto 0 yhoe yli2 sub neg rlineto stroke S40 100 sub yhoe yli sub moveto 0 yhoe yli2 sub neg rlineto stroke %S42 100 sub yhoe yli sub moveto 0 yhoe yli2 sub neg rlineto stroke %S50 100 sub yhoe yli sub moveto 0 yhoe yli2 sub neg rlineto stroke S51 100 sub yhoe yli sub moveto 0 yhoe yli2 sub neg rlineto stroke S52 100 sub yhoe yli sub moveto 0 yhoe yli2 sub neg rlineto stroke S53 100 sub yhoe yli sub moveto 0 yhoe yli2 sub neg rlineto stroke S54 100 sub yhoe yli sub moveto 0 yhoe yli2 sub neg rlineto stroke %Titeltext TBG S1 yu0 yd 0 mul add moveto (G\374te (STRESS-Werte) f\374r extra grosse Farbdifferenzdaten (ECD)) showde (Performance (STRESS values) for extra large colour difference data (ECD)) showea TBM S1 yu1 yd2 0 mul sub moveto (Datensatz) showde (data set) showen TBM S30 yu1 yd2 0 mul sub moveto (Berechnungen mit Daten f\374r graues Umfeld D65) showde (Calculations with data for grey surrounds near D65) showea %TBIM %(Y) show %TBM %( < 190) show TBM S30 yu1 yd2 1 mul sub moveto (Farbabstand ) showde (Difference ) showea (D) ss2 (E*) js2 xchartl 0 eq {(CIELAB) is2} if xchartl 1 eq {(CIEDE2000) is2} if xchartl 2 eq {(LABJND) is2} if %******************************************************* 0 yu1 yd2 2.4 mul sub 300 add moveto xwidth 0 rlineto stroke %above Name 0 yu1 yd2 3.4 mul sub 150 sub moveto xwidth 0 rlineto stroke %below Name S1 yu1 yd2 2.4 mul sub moveto (Name) showde (Name) showea TM S30 yu1 yd2 2.4 mul sub moveto (Paare) showde (Pairs) showen S31 yu1 yd2 2.4 mul sub moveto (D) ss2 (E*) js2 xchartl 0 eq {(ab) is2} if xchartl 1 eq {(C00) is2} if xchartl 2 eq {(C85) is2} if TM ( range) showea (\255Bereich) showde S40 yu1 yd2 2.4 mul sub moveto (min max mean) ns2 TBM S50 yu1 yd2 1 mul sub moveto (Farbabstandsformel und STRESS\255Wert) showde (Colour difference formula and STRESS value) showea S50 yu1 yd2 2.4 mul sub moveto (CIELAB) ns2 S51 yu1 yd2 2.4 mul sub moveto (CMC) ns2 S52 yu1 yd2 2.4 mul sub moveto (CIE94) ns2 S53 yu1 yd2 2.4 mul sub moveto (CIEDE2000) ns2 S54 yu1 yd2 2.4 mul sub moveto (LABJND) ns2 S50 yu1 yd2 3.4 mul sub moveto (D) ss2 (E*) js2 xchartl 0 eq {(ab) is2} if S51 yu1 yd2 3.4 mul sub moveto (D) ss2 (E*) js2 xchartl 0 eq {(CMs) is2} if S52 yu1 yd2 3.4 mul sub moveto (D) ss2 (E*) js2 xchartl 0 eq {(94) is2} if S53 yu1 yd2 3.4 mul sub moveto (D) ss2 (E*) js2 xchartl 0 eq {(00) is2} if S54 yu1 yd2 3.4 mul sub moveto (D) ss2 (E*) js2 xchartl 0 eq {(85) is2} if } if %dataset=0 dataset datasetm eq {%dataset=datasetm /irangemax 5 def /irangedif irangemax 3.5 add yd2 mul def 0 1 irangemax {/irange exch def %irange=0,5: ira=0,1,2,3,4,5 irange 0 eq {/ira 0 def} if irange 1 eq {/ira 1 def} if irange 2 eq {/ira 10 def} if irange 3 eq {/ira 7 def} if irange 4 eq {/ira 8 def} if irange 5 eq {/ira 9 def} if irange 6 eq {/ira 5 def} if 0 1 datasetm {/xc exch def %xc=0,datasetm /i200 xc 200 mul ira 12 mul add def /yu2_irange yu2 yd2 xc mul sub irange irangedif mul sub def S1 yu2_irange moveto xc 0 eq {Wdatk0 show} if xc 1 eq {Wdatk1 show} if xc 2 eq {Wdatk2 show} if xc 3 eq {Wdatk3 show} if xc 4 eq {Wdatk4 show} if xc 5 eq {Wdatk5 show} if %Dattab 01 i200 add get 0 gt {%=iai>0 S30 yu2_irange moveto Dattab 01 i200 add get cvishow %pairs Dattab 01 i200 add get 0 gt {%=iai>0 S31 yu2_irange moveto Dattab 02 i200 add get cvsshow1 %range1 ( to <) showea ( bis <) showde Dattab 03 i200 add get cvsshow1 S40 yu2_irange moveto Dattab 04 i200 add get cvsshow2 %min,max,mean S41 yu2_irange moveto Dattab 05 i200 add get cvsshow2 S42 yu2_irange moveto Dattab 06 i200 add get cvsshow2 S50 yu2_irange moveto Dattab 07 i200 add get cvsshow1 %CIELAB.CMC,C94,C00,C85 S51 yu2_irange moveto Dattab 08 i200 add get cvsshow1 S52 yu2_irange moveto Dattab 09 i200 add get cvsshow1 S53 yu2_irange moveto Dattab 10 i200 add get cvsshow1 S54 yu2_irange moveto Dattab 11 i200 add get cvsshow1 } if %iai>0 } for %xc=0,datasetm } for %irange=0,irangemax %dataset datasetm eq {%dataset=datasetm TM 100 100 moveto (Datens\374tze: ) showde (data sets: ) showea TIM 0 1 datasetm {/ix exch def %ix=0,datasetm ix 0 eq {Wdatt0 show} if ix 1 eq {(, ) show Wdatt1 show} if ix 2 eq {(, ) show Wdatt2 show} if ix 3 eq {(, ) show Wdatt3 show} if ix 4 eq {(, ) show Wdatt4 show} if ix 5 eq {(, ) show Wdatt5 show} if } for %ix=0,datasetm } if %dataset=datasetm } for %dataset=0,datasetm showpage grestore } for %xchartl=0,xchartlm %%Trailer