%!PS-Adobe-3.0 EPSF-3.0 XE670-7 %%BoundingBox: 14 08 828 584 %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://farbe.li.tu-berlin.de/XE67/XE67.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2016060112000) /ModDate (D:20160601112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 /sfgray {setgray} bind def %Early Frame File (f) definition %BEG XE67/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %Early Binding: needed for colour separation %/sgcmykcolor {setcmykcolor} bind def %/sggray {setgray} bind def %/sgrgbcolor {setrgbcolor} bind def %FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00 /IMES 0 def %0=LAB* used, no reflection factor necessary %/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection %/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray %/ISIN*ioG 0 def %default input for Offset Reflective System (ORS18/FRS09) %/ISOU*ioG 0 def %default output dto. /ISIN*ioG 1 def %input for Television Luminous System (TLS00) /ISOU*ioG 1 def %output dto. %/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS09) %/ISOU*ioG 2 def %output dto. %/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18) %/ISOU*ioG 3 def %output dto. %/ISIN*ioG 4 def %input for Natural Luminous System (NLS00) %/ISOU*ioG 4 def %output dto. %/ISIN*ioG 5 def %input for Natural Reflective System (NRS11) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (CIE18) %/ISOU*ioG 6 def %output dto. %/ISIN*ioG 7 def %input for Standard Reflective System (TLS70) %/ISOU*ioG 7 def %output dto. /iLAB 0 def %/colormg 0 def %END XE67/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %BEG XE67/OUTLIN1X.PS 20110801 %EMPTY %END XE67/OUTLIN1X.PS 20110801 %BEG XE67/OUTLIN1Y2.PS Emty 20101101 %END XE67/OUTLIN1Y2.PS Emty 20101101 /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** /BeginEPSF {% def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF {% def % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /A4quer {598 0 translate 90 rotate} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 1.0 1.0 scale /pgsave save def %%EndPageSetup /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /xc0d 02 def /xc2d 02 def /xc4d 02 def /xcal xc0d 1 add 2 mul % xc2d 1 add 2 mul add % xc4d 1 add 2 mul add 1 sub def %******************************************************************* /lanind1f 01 def /lanind2f 01 def /laninddf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def /xchart1f 00 def /xchart2f xcal def /xchartdf 01 def /xchart3f 02 def /xchart4f 03 def /xchart5f 00 def /pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0 /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % /xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* /setgray {sfgray} bind def /setrgbcolor {sfrgbcolor} bind def /setcmykcolor {sfcmykcolor} bind def %72 90 translate %0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke %000 -240 moveto %240 /Times-ISOL1 FS %lanindf cvishow (-) show %colormf cvishow %deintpf cvishow %xcolorf cvishow %xchartf cvishow %pchartf cvishow %colsepf cvishow (-F) show pmetamf cvishow %grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 6 get def /GEY$ EY$ 6 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 XE670-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (XE670-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 XE670-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (XE670-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 XE670-3, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (XE670-3,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 XE670-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (XE670-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %!PS-Adobe-3.0 EPSF-3.0 XE670-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (XE670-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %!PS-Adobe-3.0 EPSF-3.0 XE670-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (XE670-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 25 MM 2 MM sub 20 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 XE670-7N %%BoundingBox: 70 83 795 587 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://farbe.li.tu-berlin.de/XE67/XE67.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2016060112000) /ModDate (D:20160601112000) /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 %max 2800 sample pairs with 10 data per line = minimum 28000 data /Wdata0 28000 array def /Wdata1 28000 array def /Wdata2 28000 array 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 /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 /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 %alternative: %for 2 an 10 degree observer, see Richter (1996) %a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417 %a'2 and a'10 used for both 12 and 190 degree observer %BEG LABD65_1976=C76 /S76L 1 def /S76A 1 def /S76B 1 def /K76L 1 def /K76A 1 def /K76B 1 def /AS2 0.2191 def /BS2 -0.08376 def %C76a'=AS2*(x/y)**(1/3) %C76b'=BS2*(z/y)**(1/3) %C76L*=L*CIE %C76a*=500*[C76a'-C76a'n]*Y**(1/3) %C76b*=500*[C76b'-C76b'n]*Y**(1/3) /C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def /C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def /C76a'n XW YW FL add div 0.3333 exp AS2 mul def /C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def /C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def /C76b'n ZW YW FL add div 0.3333 exp BS2 mul def /C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def /C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def /C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def /C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def %name d_CIELCHi instead of d_LABD65i 1976 d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul C76a*1 C76a*0 sub K76A div S76A div dup mul add C76b*1 C76b*0 sub K76B div S76B div dup mul add 0.00000001 add sqrt put %END LABD65_1976=C76 /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 %************************************************************* %************************************************************* %Aus Kittelmann_CD_DA/Daten der Ausertung/ %Farbwerte der Farbfelder und Reihen.xls/CIELAB_1 %siehe auch Dipl-Arbeit Seite 31 ff /LAB_KIi 3100 array def %310x10 /LAB_KIi [ %n L*r a*r b*r L*t a*t b*t E*r-t C*r h*r % L*r a*r b*r CIELAB data of 310 printel samples, see page 34 % 95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2 1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710 2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818 3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915 4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985 5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998 6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880 7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684 8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204 9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632 10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775 11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231 12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539 13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573 14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867 15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054 16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734 17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777 18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972 19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576 20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931 21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977 22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743 23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200 24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899 25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645 26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509 27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328 28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938 29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532 30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339 31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689 32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561 33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968 34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883 35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717 36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152 37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008 38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471 39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184 40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039 41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132 42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031 43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613 44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898 45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115 46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935 47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911 48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193 49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362 50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138 51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874 52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391 53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131 54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917 55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394 56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696 57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398 58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358 59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547 60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836 61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562 62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324 63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195 64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591 65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279 66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062 67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619 68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359 69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801 70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134 71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479 72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060 73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855 74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481 75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205 76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613 77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060 78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556 79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624 80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346 81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406 82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988 83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276 84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522 85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478 86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280 87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432 88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098 89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604 90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502 91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543 92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040 93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243 94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505 95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505 96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727 97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151 98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127 99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470 100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220 101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089 102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936 103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325 104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433 105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077 106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845 107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324 108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905 109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543 110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468 111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056 112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120 113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990 114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617 115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497 116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938 117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211 118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107 119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176 120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825 121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566 122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565 123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365 124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036 125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232 126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910 127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511 128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061 129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455 130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554 131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555 132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636 133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496 134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140 135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295 136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962 137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161 138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234 139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419 140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250 141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092 142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792 143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493 144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611 145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245 146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341 147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049 148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554 149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007 150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345 151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387 152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743 153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645 154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150 155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172 156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205 157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377 158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068 159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628 160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440 161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463 162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764 163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142 164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121 165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557 166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317 167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243 168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648 169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335 170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750 171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003 172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279 173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340 174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091 175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553 176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515 177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076 178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306 179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267 180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061 181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158 182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858 183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119 184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270 185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955 186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179 187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209 188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028 189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487 190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272 191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755 192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764 193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252 194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144 195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153 196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504 197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394 198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022 199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649 200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598 201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301 202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611 203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517 204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486 205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527 206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796 207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519 208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791 209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699 210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137 211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426 212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567 213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248 214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872 215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566 216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257 217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769 218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579 219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210 220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704 221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645 222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289 223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045 224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589 225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465 226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503 227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750 228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126 229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119 230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740 231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880 232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224 233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749 234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298 235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252 236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892 237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326 238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297 239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699 240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823 241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403 242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693 243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235 244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705 245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357 246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389 247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475 248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363 249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332 250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431 251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277 252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172 253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467 254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364 255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902 256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525 257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353 258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045 259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190 260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358 261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202 262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145 263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462 264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204 265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897 266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194 267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181 268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229 269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615 270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425 271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106 272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912 273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458 274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274 275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122 276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484 277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412 278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141 279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109 280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188 281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090 282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969 283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538 284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092 285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608 286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277 287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163 288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297 289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908 290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465 291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674 292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503 293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135 294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055 295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472 296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481 297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468 298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080 299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892 300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429 301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516 302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251 303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976 304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780 305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163 306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447 307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179 308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258 309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077 310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349 ] def %LAB_KIi %************************************************************ %151212_Experimental_Data_UGR_Triplets_3.txt %Tristimulus Values Reference White Tristimulus Values %triplets X0 Y0 Z0 X1 Y1 Z1 X2 Y2 Z2 /XYZ_MEi 1000 array def %147x4 /XYZ_MEi [%BEG XYZ_MEi 001 70.188 75.432 60.812 %001 S1-1 W-WC-C 002 37.416 46.323 59.435 003 17.219 26.573 53.545 007 70.173 75.418 60.694 %002 S1-2 W-WV-V 008 27.079 26.226 37.489 009 6.844 5.494 17.846 013 70.231 75.461 60.548 %003 S1-3 W-WM-M 014 46.938 38.265 36.669 015 29.153 16.396 18.216 019 70.671 75.886 61.105 %004 S1-4 W-WO-O 020 45.488 38.090 19.729 021 27.376 16.119 3.052 025 70.217 75.535 60.299 %005 S1-5 W-WY-Y 026 60.343 64.298 20.892 027 59.918 63.786 6.808 031 70.554 75.886 60.812 %006 S1-6 W-WL-L 032 29.127 39.628 23.333 033 9.496 18.447 5.754 039 3.277 3.500 3.211 %007 S2-1 N-CN-C 038 10.472 7.637 3.056 037 26.973 15.825 3.002 045 3.321 3.553 3.273 %008 S2-2 N-VN-V 044 4.654 4.259 8.408 043 6.928 5.486 18.331 051 3.273 3.491 3.220 %009 S2-3 N-MN-M 050 10.916 7.740 8.170 049 28.837 16.050 17.909 057 3.277 3.500 3.211 %010 S2-4 N-ON-O 056 10.472 7.637 3.056 055 26.973 15.825 3.002 063 3.367 3.599 3.274 %011 S2-5 N-YN-Y 062 18.224 19.565 4.769 061 59.874 63.668 7.187 069 3.304 3.532 3.239 %012 S2-6 N-LN-L 068 5.410 8.321 4.352 067 9.641 18.384 6.245 075 3.302 3.532 3.223 %013 S2-7 N-Z-W 074 21.314 22.968 20.538 073 70.100 75.286 61.090 211 3.438 3.664 3.318 %014 S3-1 N-C-W 210 17.854 27.502 53.882 209 71.213 76.604 61.163 217 3.463 3.686 3.330 %015 S3-2 N-V-W 216 7.208 5.756 18.396 215 71.023 76.370 60.914 223 3.503 3.712 3.314 %016 S3-3 N-M-W 222 29.710 16.786 18.810 221 70.759 76.047 60.812 229 3.517 3.737 3.368 %017 S3-4 N-O-W 228 27.668 16.383 3.198 227 71.008 76.326 61.090 235 3.416 3.636 3.226 %018 S3-5 N-Y-W 234 60.738 64.723 7.054 233 71.228 76.604 60.900 241 3.430 3.661 3.302 %019 S3-6 N-L-W 240 10.048 19.139 5.958 239 71.008 76.384 60.856 %flags 247 29.563 16.748 18.535 %020 S4-1 M-V-C v negativ 246 7.343 5.864 18.463 245 17.934 27.561 53.721 253 29.871 16.862 18.920 %021 S4-2 Y-O-M v negativ 252 27.650 16.360 3.097 251 60.768 64.811 7.181 257 60.431 64.342 7.089 %022 S4-3 Y-L-C v positiv 258 9.962 18.966 5.857 259 17.546 27.143 52.959 263 7.178 5.691 18.362 %023 S4-4 V-C-L v positiv 264 17.816 27.464 53.882 265 10.048 19.185 5.889 269 10.179 19.392 5.916 %024 S4-5 L-Y-O v positiv 270 60.284 64.284 7.168 271 27.511 16.283 3.093 277 7.344 5.823 18.646 %025 S4-6 V-M-O v negativ 276 29.710 16.773 18.787 275 27.662 16.360 3.176 089 70.979 76.267 61.515 %026 (S5-1) W-Wc-WC 090 52.710 60.240 60.724 091 36.844 45.708 57.662 099 70.481 75.711 61.075 %027 (S5-2) W-Wv-WV 100 45.942 47.129 48.623 101 26.626 25.759 36.727 109 70.612 75.842 61.310 %028 (S5-3) W-Wm-WM 110 58.892 55.889 48.081 111 46.587 37.943 35.878 119 70.744 76.033 61.002 %029 (S5-4) W-Wo-WO 120 56.182 53.677 34.500 121 44.770 37.255 17.803 129 71.037 76.326 61.368 %030 (S5-5) W-Wy-WY 130 66.276 72.004 39.188 131 63.478 69.294 22.917 139 70.920 76.179 61.705 %031 (S5-6) W-Wl-WL 140 47.553 56.519 38.939 141 28.755 39.013 22.526 151 7.168 9.906 16.799 %032 (S6-1) C-Cw-CW v negativ alle 150 10.352 15.498 30.208 149 15.062 23.725 50.747 161 4.553 4.341 8.548 %033 (S6-2) V-Vw-VW 160 5.542 4.927 12.901 159 6.548 5.434 17.841 171 11.364 8.306 8.793 %034 (S6-3) M-Mw-MW 170 17.647 10.941 11.866 169 28.226 15.754 16.812 181 10.447 7.750 3.166 %035 (S6-4) O-Ow-OW 180 16.907 10.939 3.068 179 26.642 15.642 2.853 191 18.153 19.577 4.622 %036 (S6-5) Y-Ww-YW 190 35.174 37.826 5.422 189 59.713 62.936 5.831 201 4.786 7.725 4.377 %037 (S6-6) L-Wl-LW 200 6.494 11.674 5.092 199 8.563 16.969 5.703 093 15.144 23.775 50.879 %038 (S7-1) CN-Cn-C 092 25.491 34.867 55.626 091 36.361 45.166 56.827 103 6.751 5.598 18.336 %039 (S7-2) VN-Vn-V 102 15.037 13.624 27.536 101 26.633 25.810 36.127 113 28.635 16.001 17.260 %040 (S7-3) MN-Mn-M 112 37.181 25.661 25.782 111 46.499 37.943 35.350 123 26.932 15.775 2.779 %041 (S7-4) ON-On-O 122 35.160 24.730 7.549 121 44.960 37.445 17.444 133 59.493 62.687 5.902 %042 (S7-5) YN-Yn-Y 132 61.207 66.217 11.149 131 62.994 68.913 22.318 143 8.755 17.277 5.795 %043 (S7-6) LN-Ln-L 142 17.597 27.986 12.476 141 28.712 39.057 21.875 153 2.914 3.245 3.159 %044 (S8-1) N-Nc-NC 152 4.461 5.800 7.838 151 7.001 9.798 16.565 163 3.049 3.386 3.296 %045 (S8-2) N-Nv-NV 162 3.805 3.938 5.394 161 4.577 4.370 8.488 173 3.151 3.488 3.364 %046 (S8-3) N-Nw-NM 172 6.163 5.409 5.432 171 11.418 8.304 8.577 183 3.019 3.355 3.279 %047 (S8-4) N-No-NO 182 5.766 5.092 3.173 181 10.501 7.718 2.999 193 3.096 3.434 3.314 %048 (S8-5) N-Ny-NY 192 8.038 8.929 4.018 191 18.226 19.628 4.638 203 3.238 3.592 3.491 %049 (S8-6) N-Nl-NL 202 3.725 5.107 3.838 201 4.810 7.775 4.383 ] def %END XYZ_MEi %************************************************************* /D57SERWi 2000 array def %max 57 series of 15 data (100x20) /D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i WANG1 WANG2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 26.45 26.39 (W03) (W04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 29.54 41.95 (W13) (W14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 31.00 32.74 (W23) (W24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 28.01 37.64 (W33) (W34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 16.99 11.01 (W43) (W44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 25.44 28.39 (W53) (W54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 25.80 35.47 (W06) (W05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 9.30 16.62 (W16) (W15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 26.80 29.68 (W26) (W25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 30.62 34.58 (W36) (W35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 29.85 41.77 (W46) (W45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 18.79 35.12 (W56) (W55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 64.17 61.50 (W01) (W02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 67.03 32.91 (W11) (W12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 74.48 61.26 (W21) (W22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 71.77 67.21 (W31) (W32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.26 86.10 (W41) (W42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 50.89 56.11 (W51) (W52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 41.67 45.01 (W09) (W19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 28.41 72.32 (W29) (W39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 64.80 40.72 (W49) (W59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 41.67 40.72 (W09) (W59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 64.80 72.32 (W49) (W39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 28.41 45.01 (W29) (W19) %Serie 5, BAM test chart order 2:26 025 004 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 26.45 0.00 (W03) (W00) 026 004 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 29.54 0.00 (W13) (W00) 027 004 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 31.00 0.00 (W23) (W00) 028 004 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 28.01 0.00 (W33) (W00) 029 004 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 16.99 0.00 (W43) (W00) 030 004 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 25.44 0.00 (W53) (W00) %Serie 6, BAM test chart order 2:26 031 004 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 26.39 0.00 (W04) (W00) 032 004 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 41.95 0.00 (W14) (W00) 033 004 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 32.74 0.00 (W24) (W00) 034 004 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 37.64 0.00 (W34) (W00) 035 004 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 110.1 0.00 (W44) (W00) 036 004 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 28.39 0.00 (W54) (W00) %Serie 7, BAM test chart order 2:26 037 004 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 25.80 0.00 (W06) (W00) 038 004 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 9.30 0.00 (W16) (W00) 039 004 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 26.80 0.00 (W26) (W00) 040 004 179 180 181 000 000 (O) (On) (ON) (0) (0) 30.62 0.00 (W36) (W00) 041 004 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 29.85 0.00 (W46) (W00) 042 004 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 18.79 0.00 (W56) (W00) %Serie 8, BAM test chart order 2:26 043 004 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 61.50 0.00 (W02) (W00) 044 004 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 32.91 0.00 (W12) (W00) 045 004 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 61.26 0.00 (W22) (W00) 046 004 181 182 183 000 000 (ON) (No) (N) (0) (0) 67.21 0.00 (W32) (W00) 047 004 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 86.10 0.00 (W42) (W00) 048 004 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 56.11 0.00 (W52) (W00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 10.00 9.00 (W61) (W62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 41.67 0.00 (W09) (W00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 45.01 0.00 (W19) (W00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 28.41 0.00 (W29) (W00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 72.32 0.00 (W39) (W00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 64.80 0.00 (W49) (W00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 40.72 0.00 (W59) (W00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 10.00 0.00 (W61) (W00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 9.00 0.00 (W62) (W00) ] def %END D57SERWi %************************************************************* /D57SERVi 2000 array def %max 57 series of 15 data (100x20) /D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 DV*1i DV*2i VIK1 VIK2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 25.24 39.23 (V01) (V02) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 33.11 46.66 (V03) (V04) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 30.92 45.35 (V05) (V06) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 26.55 46.66 (V07) (V08) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 22.62 23.06 (V09) (V10) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 29.18 40.98 (V11) (V12) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 38.35 42.73 (V13) (V14) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 21.75 31.36 (V15) (V16) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 40.98 44.47 (V17) (V18) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 34.86 43.16 (V19) (V20) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 35.73 47.97 (V21) (V22) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 36.17 42.29 (V23) (V24) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 53.65 55.40 (V26) (V25) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 65.02 29.61 (V28) (V27) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 60.21 53.22 (V30) (V29) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 58.46 48.84 (V32) (V31) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 37.38 61.52 (V34) (V33) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 55.84 45.35 (V36) (V35) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 44.47 42.29 (V37) (V38) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 22.62 47.97 (V40) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 46.22 31.36 (V41) (V42) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 48.41 30.49 (V44) (V43) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 51.03 53.65 (V46) (V45) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 23.49 48.84 (V47) (V48) %Serie 5, BAM test chart order 2:26; Serie 1 and relativ VIK-data used, see XK39 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 12.00 13.00 (V01) (V00) %25.24 026 003 099 100 101 000 000 (W) (Wv) (VW) (0) (0) 16.00 17.00 (V03) (V00) %33.11 027 003 109 110 111 000 000 (W) (Wm) (MW) (0) (0) 15.00 16.00 (V05) (V00) %30.92 028 003 119 120 121 000 000 (W) (Wo) (OW) (0) (0) 13.00 13.00 (V07) (V00) %26.55 029 003 129 130 131 000 000 (W) (Wy) (YW) (0) (0) 8.00 15.00 (V09) (V00) %22.52 030 003 139 140 141 000 000 (W) (Wl) (LW) (0) (0) 14.00 15.00 (V11) (V00) %29.1.18 %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 22.62 27.87 (V62) (V61) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 26.99 33.98 (V64) (V63) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 28.30 35.73 (V66) (V65) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 24.37 33.98 (V68) (V67) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 18.25 20.00 (V70) (V69) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 23.49 32.24 (V72) (V71) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 29.61 28.74 (V74) (V73) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 19.56 18.25 (V76) (V75) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 35.73 27.87 (V78) (V77) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 37.48 26.12 (V80) (V79) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 38.35 30.49 (V82) (V81) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 33.11 26.99 (V84) (V83) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 37.48 26.12 (V86) (V85) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 20.43 18.25 (V88) (V87) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 34.86 28.30 (V90) (V89) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 33.98 27.87 (V92) (V91) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 39.67 34.86 (V94) (V93) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 32.24 26.12 (V96) (V95) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 40.10 36.61 (V97) (V98) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 44.47 0.00 (V37) (V00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 42.29 0.00 (V38) (V00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 22.62 0.00 (V40) (V00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 47.97 0.00 (V39) (V00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 46.22 0.00 (V41) (V00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 31.36 0.00 (V42) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 40.10 0.00 (V97) (V00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 36.61 0.00 (V98) (V00) ] def %END D57SERVi /R57VIK1i [%BEG R57VIK1i top data VIK1_ELCD relative data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 RDV DV1 DV2 VIK_1 VIK_2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 434 000 000 (V03) (V04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 452 000 000 (V13) (V14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 430 000 000 (V23) (V24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 431 000 000 (V33) (V34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 474 000 000 (V43) (V44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 480 000 000 (V53) (V54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 543 000 000 (V06) (V05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 602 000 000 (V16) (V15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 515 000 000 (V26) (V25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 520 000 000 (V36) (V35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 487 000 000 (V46) (V45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 514 000 000 (V56) (V55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 451 000 000 (V01) (V02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 622 000 000 (V11) (V12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 457 000 000 (V21) (V22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 464 000 000 (V31) (V32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 346 000 000 (V41) (V42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 499 000 000 (V51) (V52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 506 000 000 (V09) (V19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 375 000 000 (V29) (V39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 517 000 000 (V49) (V59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 517 000 000 (V09) (V59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 509 000 000 (V49) (V39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 396 000 000 (V29) (V19) %Serie 5, BAM test chart order 2:26 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 481 206 428 (V03) (V00) 026 003 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 497 236 474 (V13) (V00) 027 003 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 492 231 469 (V23) (V00) 028 003 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 493 224 452 (V33) (V00) 029 003 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 358 176 488 (V43) (V00) 030 003 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 492 232 471 (V53) (V00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 375 428 643 (V04) (V00) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 420 474 695 (V14) (V00) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 416 469 690 (V24) (V00) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 412 452 678 (V34) (V00) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 476 488 732 (V44) (V00) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 429 471 698 (V54) (V00) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 533 268 502 (V06) (V00) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 503 267 530 (V16) (V00) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 535 268 500 (V26) (V00) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 534 262 490 (V36) (V00) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 504 248 492 (V46) (V00) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 515 258 500 (V56) (V00) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 493 502 748 (V02) (V00) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 565 530 796 (V12) (V00) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 445 500 723 (V22) (V00) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 449 490 719 (V32) (V00) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 419 492 705 (V42) (V00) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 443 500 722 (V52) (V00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 477 000 000 (V61) (V62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 003 281 282 283 000 000 (C) (CV) (V) (0) (0) 462 000 000 (V09) (V00) 051 003 283 284 285 000 000 (V) (MV) (M) (0) (0) 554 000 000 (V19) (V00) 052 003 291 292 293 000 000 (M) (MO) (O) (0) (0) 565 000 000 (V29) (V00) 053 003 293 294 295 000 000 (O) (YO) (Y) (0) (0) 460 000 000 (V39) (V00) 054 003 301 302 303 000 000 (Y) (YL) (L) (0) (0) 438 000 000 (V49) (V00) 055 003 303 304 305 000 000 (L) (CL) (C) (0) (0) 525 000 000 (V59) (V00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 003 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 476 230 484 (V61) (V00) 057 003 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 444 483 713 (V62) (V00) ] def %END R57VIK1i /R57KIT1i [%BEG R57KIT1i top data KIT1_ELCD relative data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 RDV DV1 DV2 KIT_1 KIT_2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 523 000 000 (K03) (K04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 454 000 000 (K13) (K14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 450 000 000 (K23) (K24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 400 000 000 (K33) (K34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 429 000 000 (K43) (K44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 501 000 000 (K53) (K54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 541 000 000 (K06) (K05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 497 000 000 (K16) (K15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 526 000 000 (K26) (K25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 529 000 000 (K36) (K35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 452 000 000 (K46) (K45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 438 000 000 (K56) (K55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 454 000 000 (K01) (K02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 714 000 000 (K11) (K12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 435 000 000 (K21) (K22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 479 000 000 (K31) (K32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 304 000 000 (K41) (K42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 505 000 000 (K51) (K52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 479 000 000 (K09) (K19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 329 000 000 (K29) (K39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 604 000 000 (K49) (K59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 587 000 000 (K09) (K59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 552 000 000 (K49) (K39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 347 000 000 (K29) (K19) %Serie 5, BAM test chart order 2:26 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 483 220 455 (K03) (K00) 026 003 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 522 232 444 (K13) (K00) 027 003 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 539 255 473 (K23) (K00) 028 003 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 505 226 447 (K33) (K00) 029 003 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 510 235 460 (K43) (K00) 030 003 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 542 251 463 (K53) (K00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 383 455 664 (K04) (K00) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 386 444 659 (K14) (K00) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 445 473 708 (K24) (K00) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 437 447 689 (K34) (K00) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 477 460 718 (K44) (K00) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 432 463 695 (K54) (K00) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 557 285 511 (K06) (K00) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 450 217 482 (K16) (K00) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 558 291 521 (K26) (K00) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 589 284 482 (K36) (K00) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 556 273 491 (K46) (K00) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 586 270 460 (K56) (K00) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 515 511 763 (K02) (K00) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 584 482 785 (K12) (K00) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 402 521 714 (K22) (K00) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 459 482 720 (K32) (K00) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 369 491 679 (K42) (K00) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 509 460 735 (K52) (K00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 244 000 000 (K61) (K62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 003 281 282 283 000 000 (C) (CV) (V) (0) (0) 476 000 000 (K09) (K00) 051 003 283 284 285 000 000 (V) (MV) (M) (0) (0) 526 000 000 (K19) (K00) 052 003 291 292 293 000 000 (M) (MO) (O) (0) (0) 607 000 000 (K29) (K00) 053 003 293 294 295 000 000 (O) (YO) (Y) (0) (0) 500 000 000 (K39) (K00) 054 003 301 302 303 000 000 (Y) (YL) (L) (0) (0) 525 000 000 (K49) (K00) 055 003 303 304 305 000 000 (L) (CL) (C) (0) (0) 552 000 000 (K59) (K00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 529 244 461 (K61) (K00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 463 461 711 (K62) (K00) ] def %END R57KIT1i /R57KIT2i [%BEG R57KIT2i top data KIT2_ELCD relative data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 RDV DV1 DV2 KIT_1 KIT_2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 494 000 000 (K03) (K04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 441 000 000 (K13) (K14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 464 000 000 (K23) (K24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 464 000 000 (K33) (K34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 491 000 000 (K43) (K44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 473 000 000 (K53) (K54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 488 000 000 (K06) (K05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 497 000 000 (K16) (K15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 535 000 000 (K26) (K25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 502 000 000 (K36) (K35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 467 000 000 (K46) (K45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 429 000 000 (K56) (K55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 458 000 000 (K01) (K02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 720 000 000 (K11) (K12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 429 000 000 (K21) (K22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 502 000 000 (K31) (K32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 341 000 000 (K41) (K42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 508 000 000 (K51) (K52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 505 000 000 (K09) (K19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 329 000 000 (K29) (K39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 585 000 000 (K49) (K59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 557 000 000 (K09) (K59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 511 000 000 (K49) (K39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 373 000 000 (K29) (K19) %Serie 5, BAM test chart order 2:26 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 468 223 476 (K03) (K00) 026 003 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 442 208 470 (K13) (K00) 027 003 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 471 223 473 (K23) (K00) 028 003 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 519 244 470 (K33) (K00) 029 003 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 474 241 508 (K43) (K00) 030 003 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 481 217 451 (K53) (K00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 398 476 685 (K04) (K00) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 460 470 714 (K14) (K00) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 413 473 691 (K24) (K00) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 411 470 688 (K34) (K00) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 615 508 811 (K44) (K00) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 448 451 697 (K54) (K00) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 546 276 505 (K06) (K00) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 345 170 492 (K16) (K00) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 563 282 500 (K26) (K00) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 585 282 482 (K36) (K00) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 597 299 500 (K46) (K00) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 603 272 451 (K56) (K00) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 511 505 758 (K02) (K00) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 671 492 833 (K12) (K00) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 463 500 732 (K22) (K00) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 440 482 710 (K32) (K00) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 403 500 702 (K42) (K00) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 460 451 704 (K52) (K00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 464 000 000 (K61) (K62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 003 281 282 283 000 000 (C) (CV) (V) (0) (0) 511 000 000 (K09) (K00) 051 003 283 284 285 000 000 (V) (MV) (M) (0) (0) 541 000 000 (K19) (K00) 052 003 291 292 293 000 000 (M) (MO) (O) (0) (0) 594 000 000 (K29) (K00) 053 003 293 294 295 000 000 (O) (YO) (Y) (0) (0) 470 000 000 (K39) (K00) 054 003 301 302 303 000 000 (Y) (YL) (L) (0) (0) 528 000 000 (K49) (K00) 055 003 303 304 305 000 000 (L) (CL) (C) (0) (0) 570 000 000 (K59) (K00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 003 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 480 223 464 (K61) (K00) 057 003 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 509 464 737 (K62) (K00) ] def %END R57KIT2i %*************************************************************************** /R57MEL1i [%BEG R57MEL1i top data MEL1_ELCD relative data %0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 %N S N1 N2 N3 N4 N5 NA1 NA2 NA3 NA4 NA5 RDV DV1 DV2 MEL_1 MEL_2 %Serie 1, BAM test chart order 1:25 001 003 001 002 003 000 000 (W) (CW) (C) (0) (0) 505 000 000 (M03) (M04) 002 003 007 008 009 000 000 (W) (VW) (V) (0) (0) 526 000 000 (M13) (M14) 003 003 013 014 015 000 000 (W) (MW) (M) (0) (0) 507 000 000 (M23) (M24) 004 003 019 020 021 000 000 (W) (OW) (O) (0) (0) 465 000 000 (M33) (M34) 005 003 025 026 027 000 000 (W) (YW) (Y) (0) (0) 564 000 000 (M43) (M44) 006 003 031 032 033 000 000 (W) (LW) (L) (0) (0) 511 000 000 (M53) (M54) %Serie 2, BAM test chart order 1:25 007 003 037 038 039 000 000 (C) (CN) (N) (0) (0) 561 000 000 (M06) (M05) 008 003 043 044 045 000 000 (V) (VN) (N) (0) (0) 515 000 000 (M16) (M15) 009 003 049 050 051 000 000 (M) (MN) (N) (0) (0) 512 000 000 (M26) (M25) 010 003 055 056 057 000 000 (O) (ON) (N) (0) (0) 519 000 000 (M36) (M35) 011 003 061 062 063 000 000 (Y) (YN) (N) (0) (0) 532 000 000 (M46) (M45) 012 003 067 068 069 000 000 (L) (LN) (N) (0) (0) 511 000 000 (M56) (M55) %Serie 3, BAM test chart order 3:27 013 003 209 210 211 000 000 (W) (C) (N) (0) (0) 449 000 000 (M01) (M02) 014 003 215 216 217 000 000 (W) (V) (N) (0) (0) 591 000 000 (M11) (M12) 015 003 221 222 223 000 000 (W) (M) (N) (0) (0) 434 000 000 (M21) (M22) 016 003 227 228 229 000 000 (W) (O) (N) (0) (0) 475 000 000 (M31) (M32) 017 003 233 234 235 000 000 (W) (Y) (N) (0) (0) 368 000 000 (M41) (M42) 018 003 239 240 241 000 000 (W) (L) (N) (0) (0) 443 000 000 (M51) (M52) %Serie 4, BAM test chart order 3:27 019 003 245 246 247 000 000 (C) (V) (M) (0) (0) 510 000 000 (M09) (M19) 020 003 251 252 253 000 000 (M) (O) (Y) (0) (0) 344 000 000 (M29) (M39) 021 003 257 258 259 000 000 (Y) (L) (C) (0) (0) 492 000 000 (M49) (M59) 022 003 263 264 265 000 000 (V) (C) (L) (0) (0) 464 000 000 (M09) (M59) 023 003 269 270 271 000 000 (L) (Y) (O) (0) (0) 474 000 000 (M49) (M39) 024 003 275 276 277 000 000 (O) (M) (V) (0) (0) 559 000 000 (M29) (M19) %Serie 5, BAM test chart order 2:26 025 003 089 090 091 000 000 (W) (Wc) (CW) (0) (0) 502 000 000 (M03) (M00) 026 003 099 100 101 102 103 (W) (Wv) (VW) (0) (0) 517 000 000 (M13) (M00) 027 003 109 110 111 112 113 (W) (Wm) (MW) (0) (0) 494 000 000 (M23) (M00) 028 003 119 120 121 122 123 (W) (Wo) (OW) (0) (0) 474 000 000 (M33) (M00) 029 003 129 130 131 132 133 (W) (Wy) (YW) (0) (0) 510 000 000 (M43) (M00) 030 003 139 140 141 142 143 (W) (Wl) (LW) (0) (0) 512 000 000 (M53) (M00) %Serie 6, BAM test chart order 2:26 031 003 091 092 093 000 000 (CW) (Cw) (C) (0) (0) 574 000 000 (M04) (M00) 032 003 101 102 103 000 000 (VW) (Vw) (V) (0) (0) 465 000 000 (M14) (M00) 033 003 111 112 113 000 000 (MW) (Mw) (M) (0) (0) 574 000 000 (M24) (M00) 034 003 121 122 123 000 000 (OW) (Ow) (O) (0) (0) 569 000 000 (M34) (M00) 035 003 131 132 133 000 000 (YW) (Yw) (Y) (0) (0) 506 000 000 (M44) (M00) 036 003 141 142 143 000 000 (LW) (Lw) (L) (0) (0) 537 000 000 (M54) (M00) %Serie 7, BAM test chart order 2:26 037 003 149 150 151 000 000 (C) (Cn) (CN) (0) (0) 562 000 000 (M06) (M00) 038 003 159 160 161 000 000 (V) (Vn) (VN) (0) (0) 590 000 000 (M16) (M00) 039 003 169 170 171 000 000 (M) (Mn) (MN) (0) (0) 426 000 000 (M26) (M00) 040 003 179 180 181 000 000 (O) (On) (ON) (0) (0) 430 000 000 (M36) (M00) 041 003 189 190 191 000 000 (Y) (Yn) (YN) (0) (0) 469 000 000 (M46) (M00) 042 003 199 200 201 000 000 (L) (Ln) (LN) (0) (0) 575 000 000 (M56) (M00) %Serie 8, BAM test chart order 2:26 043 003 151 152 153 000 000 (CN) (Nc) (N) (0) (0) 483 000 000 (M02) (M00) 044 003 161 162 163 000 000 (VN) (Nv) (N) (0) (0) 498 000 000 (M12) (M00) 045 003 171 172 173 000 000 (MN) (Nm) (N) (0) (0) 441 000 000 (M22) (M00) 046 003 181 182 183 000 000 (ON) (No) (N) (0) (0) 434 000 000 (M32) (M00) 047 003 191 192 193 000 000 (YN) (Ny) (N) (0) (0) 581 000 000 (M42) (M00) 048 003 201 202 203 000 000 (LN) (Nl) (N) (0) (0) 526 000 000 (M52) (M00) %Serie 2N, BAM test chart order 1:25, 1 triplet 049 003 073 074 075 000 000 (W) (WN) (N) (0) (0) 505 000 000 (M61) (M62) %Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets 050 004 281 282 283 000 000 (C) (CV) (V) (0) (0) 000 000 000 (M09) (M00) 051 004 283 284 285 000 000 (V) (MV) (M) (0) (0) 000 000 000 (M19) (M00) 052 004 291 292 293 000 000 (M) (MO) (O) (0) (0) 000 000 000 (M29) (M00) 053 004 293 294 295 000 000 (O) (YO) (Y) (0) (0) 000 000 000 (M39) (M00) 054 004 301 302 303 000 000 (Y) (YL) (L) (0) (0) 000 000 000 (M49) (M00) 055 004 303 304 305 000 000 (L) (CL) (C) (0) (0) 000 000 000 (M59) (M00) %Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets 056 004 079 080 081 000 000 (W) (Wn) (WN) (0) (0) 000 000 000 (M61) (M00) 057 004 081 082 083 000 000 (WN) (Nw) (N) (0) (0) 000 000 000 (M62) (M00) ] def %END R57MEL1i %************************************************************* /D114NAMi 200 array def 0 1 113 {/i exch def %i=0,113 D114NAMi i (0) put } for %i=0,113 %112 pairs: 12 triplets = 24 pairs (page 1) % 12 triplets = 24 pairs (page 3) % 06 triplets = 12 pairs (page 3) % 9 5 step series (page 2) = 36 pairs % 01 triplet (W-Z-N) = 2 pairs % 3 5 step series (page 2) = 12 pairs % 01 5 step series (W-H-Z-D-N) = 4 pairs % total 114 pairs % /D116NAMi [%BEG D114NAMi %page 1: 12 triplets (CW_W) (CW-C) (VW-W) (VW-V) (MW-W) (MW-M) %6 triplets, each 6 pairs (OW_W) (OW-O) (YW-W) (YW-Y) (LW-W) (LW-L) (CN-C) (CN-N) (VN-V) (VN-N) (MN-M) (MN-N) %6 triplets, each 6 pairs (ON-O) (ON-N) (YN-Y) (YN-N) (LN-L) (LN-N) %page 3: 12 triplets (C-W) (C-N) (V-W) (V-N) (M-W) (W-N) %6 triplets, each 6 pairs (O-W) (O-N) (Y-W) (Y-N) (L-W) (L-N) (V-C) (V-M) (O-M) (O-Y) (L-Y) (L-C) %6 triplets, each 6 pairs (C-V) (C-L) (Y-L) (Y-O) (M-O) (M-V) %page 2: 12 x 5 step series: each 5 step series %page 2: 12 x 4 pairs = 48 pairs (W-Wc) (Wc-CW) (CW-Cw) (Cw-C) %01 each 4 pairs (W-Wv) (Wv-VW) (VW-Vw) (Vw-V) %02 (W-Wm) (Wm-MW) (MW-Mw) (Mw-M) %03 (W-Wo) (Wo-OW) (OW-Ow) (Ow-O) %04 (W-Wy) (Wy-YW) (YW-Yw) (Yw-Y) %05 (W-Wl) (Wl-LW) (LW-Lw) (Lw-L) %06 (C-Cn) (Cn-CN) (CN-Nc) (Nc-N) %07 (V-Vn) (Vn-VN) (VN-Nv) (Nv-N) %08 (M-Mn) (Mn-MN) (MN-Nm) (Nm-N) %09 (O-On) (On-ON) (ON-No) (No-N) %10 (Y-Yn) (Yn-YN) (YN-Ny) (Ny-N) %11 (L-Ln) (Ln-LN) (LN-Nl) (Nl-N) %12 (Z-W) (Z-N) %triplet, 2 pairs %page 3: 6 triplets, each 2 pairs %5 step series C-CV-V-MV-M, only two triplets evaluations (CV-C) (CV-V) %01 each 2 pairs (VM-V) (VM-M) %02 %5 step series M-MO-O-YO-Y, only two triplets evaluations (MO-M) (MO-O) %03 (YO-O) (YO-Y) %04 %5 step series Y-YL-L_CL_C, only two triplets evaluations (YL-Y) (YL-L) %05 (CL-L) (CL-C) %06 (H-W) (H-Z) (D-Z) (D-N) %5 step series, 4 pairs ( ) % more default ] def %END D114NAMi %*************************************************************** /VIK_VIS1_Ei 1500 array def %max 100x15, real 70x12 %VIK (2007), Test chart 1, mean of 14 observers, Table4_1.TXT /VIK_VIS1_Ei [%YE060-7T.TXT %YE060-7N, , Colour difference experiments ELCD_E, VA_EE069=VIK_ADJACENT_EE %no i1 i2 % VIS1 VID1 VIS2 VID2 VIS3 VID3 COD1 COD2 COD3 %0 1 2 3 4 5 6 7 8 9 10 11 %page 25: triplets 0 1 1 0.433 0.046 0.0 0.0 0.0 0.0 (W-CW) (CW-C) (1:25 0.434 0.046) % 1 2 1 0.452 0.074 0.0 0.0 0.0 0.0 (W-VW) (VW-V) (1:25 0.452 0.075) % 2 3 1 0.429 0.065 0.0 0.0 0.0 0.0 (W-MW) (MW-M) (1:25 0.430 0.066) % 3 4 1 0.430 0.082 0.0 0.0 0.0 0.0 (W-OW) (OW-O) (1:25 0.431 0.082) % 4 5 1 0.473 0.108 0.0 0.0 0.0 0.0 (W-VW) (VW-V) (1:25 0.474 0.109) % 5 6 1 0.480 0.071 0.0 0.0 0.0 0.0 (W-LW) (LW-L) (1:25 0.480 0.072) % 6 7 1 0.542 0.081 0.0 0.0 0.0 0.0 (C-CN) (CN-N) (1:25 0.543 0.082) % 7 8 1 0.602 0.097 0.0 0.0 0.0 0.0 (V-VN) (VN-N) (1:25 0.602 0.098) % 8 9 1 0.515 0.080 0.0 0.0 0.0 0.0 (M-MN) (MN-N) (1:25 0.515 0.080) % 9 10 1 0.520 0.070 0.0 0.0 0.0 0.0 (O-ON) (ON-N) (1:25 0.520 0.071) % 10 11 1 0.487 0.088 0.0 0.0 0.0 0.0 (Y-YN) (YN-N) (1:25 0.487 0.088) % 11 12 1 0.513 0.082 0.0 0.0 0.0 0.0 (L-LN) (LN-N) (1:25 0.514 0.083) % %page 27: triplets 12 13 1 0.451 0.058 0.0 0.0 0.0 0.0 (W-C) (C-N) (1:27 0.451 0.?) % 13 14 1 0.622 0.045 0.0 0.0 0.0 0.0 (W-V) (V-N) (1:27 0.622 0.?) % 14 15 1 0.457 0.062 0.0 0.0 0.0 0.0 (W-M) (M-N) (1:27 0.457 0.?) % 15 16 1 0.464 0.077 0.0 0.0 0.0 0.0 (W-O) (O-N) (1:27 0.464 0.?) % 16 17 1 0.346 0.101 0.0 0.0 0.0 0.0 (W-Y) (Y-N) (1:27 0.347 0.?) % 17 18 1 0.499 0.060 0.0 0.0 0.0 0.0 (W-L) (L-N) (1:27 0.499 0.?) % 18 19 1 0.506 0.083 0.0 0.0 0.0 0.0 (C-V) (V-M) (1:27 0.499 0.?) % 19 20 1 0.375 0.111 0.0 0.0 0.0 0.0 (M-O) (O-Y) (1:27 0.375 0.?) % 20 21 1 0.517 0.056 0.0 0.0 0.0 0.0 (Y-L) (L-C) (1:27 0.518 0.?) % 21 22 1 0.517 0.088 0.0 0.0 0.0 0.0 (V-C) (C-L) (1:27 0.518 0.?) % 22 23 1 0.509 0.087 0.0 0.0 0.0 0.0 (L-Y) (Y-O) (1:27 0.509 0.?) % 23 24 1 0.396 0.126 0.0 0.0 0.0 0.0 (O-M) (M-V) (1:27 0.397 0.?) % %page 26: 5-step series 24 25 1 0.206 0.042 0.0 0.0 0.0 0.0 (W-Wc) (Wc-C) (1:26 0.207 0.042) % 25 25 2 0.0 0.0 0.428 0.048 0.0 0.0 (W-WC) (WC-C) (2:26 0.428 0.048) % 26 25 3 0.0 0.0 0.0 0.0 0.643 0.064 (W-Cw) (Cw-C) (3:26 0.643 0.064) % 27 26 1 0.236 0.046 0.0 0.0 0.0 0.0 (W-Wv) (Wv-V) (1:26 0.236 0.047) % 28 26 2 0.0 0.0 0.474 0.056 0.0 0.0 (W-WV) (WV-V) (2:26 0.474 0.057) % 29 26 3 0.0 0.0 0.0 0.0 0.695 0.051 (W-Vw) (Vw-V) (3:26 0.697 0.053) % 30 27 1 0.231 0.041 0.0 0.0 0.0 0.0 (W-Wm) (Wm-M) (1:26 0.231 0.042) % 31 27 2 0.0 0.0 0.469 0.049 0.0 0.0 (W-WM) (WM-M) (2:26 0.469 0.049) % 32 27 3 0.0 0.0 0.0 0.0 0.690 0.065 (W-Mw) (Mw-M) (3:26 0.690 0.066) % 33 28 1 0.223 0.049 0.0 0.0 0.0 0.0 (W-Wo) (Wo-O) (1:26 0.224 0.049) % 34 28 2 0.0 0.0 0.452 0.049 0.0 0.0 (W-WO) (WO-O) (2:26 0.453 0.049) % 35 28 3 0.0 0.0 0.0 0.0 0.678 0.070 (W-Ow) (Ow-O) (3:26 0.679 0.070) % 36 29 1 0.175 0.042 0.0 0.0 0.0 0.0 (W-Wy) (Wy-Y) (1:26 0.176 0.043) % 37 29 2 0.0 0.0 0.488 0.053 0.0 0.0 (W-WY) (WY-Y) (2:26 0.489 0.053) % 38 29 3 0.0 0.0 0.0 0.0 0.732 0.086 (W-Yw) (Yw-Y) (3:26 0.732 0.086) % 39 30 1 0.232 0.062 0.0 0.0 0.0 0.0 (W-Wl) (Wl-L) (1:26 0.232 0.062) % 40 30 2 0.0 0.0 0.471 0.061 0.0 0.0 (W-WL) (WL-L) (2:26 0.471 0.061) % 41 30 3 0.0 0.0 0.0 0.0 0.698 0.069 (W-Lw) (Lw-L) (3:26 0.699 0.070) % 42 31 1 0.268 0.055 0.0 0.0 0.0 0.0 (C-Cn) (Cn-N) (1:26 0.268 0.055) % 43 31 2 0.0 0.0 0.502 0.062 0.0 0.0 (C-CN) (CN-N) (2:26 0.502 0.062) % 44 31 3 0.0 0.0 0.0 0.0 0.748 0.056 (C-Nc) (Nc-N) (3:26 0.749 0.056) % 45 32 1 0.267 0.070 0.0 0.0 0.0 0.0 (V-Vn) (Vn-N) (1:26 0.268 0.070) % 46 32 2 0.0 0.0 0.530 0.063 0.0 0.0 (V-VN) (VN-N) (2:26 0.531 0.063) % 47 32 3 0.0 0.0 0.0 0.0 0.796 0.050 (V-Nv) (Nv-N) (3:26 0.796 0.050) % 48 33 1 0.268 0.041 0.0 0.0 0.0 0.0 (M-Mn) (Mn-N) (1:26 0.269 0.042) % 49 33 2 0.0 0.0 0.500 0.040 0.0 0.0 (M-MN) (MN-N) (2:26 0.501 0.041) % 50 33 3 0.0 0.0 0.0 0.0 0.723 0.056 (M-Nm) (Nm-N) (3:26 0.724 0.057) % 51 34 1 0.262 0.063 0.0 0.0 0.0 0.0 (O-On) (On-N) (1:26 0.262 0.063) % 52 34 2 0.0 0.0 0.490 0.035 0.0 0.0 (O-ON) (ON-N) (2:26 0.491 0.036) % 53 34 3 0.0 0.0 0.0 0.0 0.719 0.052 (O-No) (No-N) (3:26 0.719 0.053) % 54 35 1 0.248 0.060 0.0 0.0 0.0 0.0 (Y-Yn) (Yn-N) (1:26 0.248 0.061) % 55 35 2 0.0 0.0 0.492 0.063 0.0 0.0 (Y-YN) (YN-N) (2:26 0.492 0.063) % 56 35 3 0.0 0.0 0.0 0.0 0.705 0.066 (Y-Ny) (Ny-N) (3:26 0.705 0.066) % 57 36 1 0.258 0.053 0.0 0.0 0.0 0.0 (L-Ln) (Ln-N) (1:26 0.258 0.053) % 58 36 2 0.0 0.0 0.500 0.040 0.0 0.0 (L-LN) (LN-N) (2:26 0.501 0.041) % 59 36 3 0.0 0.0 0.0 0.0 0.722 0.054 (L-Nl) (Nl-N) (3:26 0.723 0.054) % %page 27: 5-step series C-CV-V-MV-M, only two triplet evaluations 60 37 1 0.462 0.087 0.0 0.0 0.0 0.0 (C-CV) (CV-V) (1:27 0.462 0.?) % 61 38 1 0.554 0.072 0.0 0.0 0.0 0.0 (V-VM) (VM-M) (1:27 0.554 0.?) % %page 27: 5 step series M-MO-O-YO-Y, only two triplet evaluations 62 39 1 0.565 0.138 0.0 0.0 0.0 0.0 (M-MO) (MO-O) (1:27 0.565 0.?) % 63 40 1 0.460 0.085 0.0 0.0 0.0 0.0 (O-YO) (YO-Y) (1:27 0.460 0.?) % %page 27: 5 step series Y-YL-L_CL_C, only two triplet evaluations 64 41 1 0.438 0.074 0.0 0.0 0.0 0.0 (Y-YL) (YL-L) (1:27 0.439 0.?) % 65 42 1 0.525 0.108 0.0 0.0 0.0 0.0 (L-CL) (CL-C) (1:27 0.525 0.?) % %page 25: triplet W-N 66 43 1 0.477 0.046 0.0 0.0 0.0 0.0 (W-WN) (WN-N) (1:25 0.478 0.046) % %page 25: 5-step grey top x 13%W-N 67 44 1 0.230 0.051 0.0 0.0 0.0 0.0 (W-Wn) (Wn-N) (1:25 0.230 0.051) % 68 44 2 0.0 0.0 0.483 0.047 0.0 0.0 (W-WN) (WN-N) (1:25 0.477 0.038) % 69 44 3 0.0 0.0 0.0 0.0 0.713 0.042 (W-Nw) (Nw-N) (1:25 0.714 0.042) % ] def VIK_VIS1_Ei %****************************************************************************** /KIT_VIS1_Ei 1500 array def %max 100x15, real 70x12 %Kittelmann (2005), Test chart 1, 17 observers, 32 fields, D-Work, Table4_1.TXT /KIT_VIS1_Ei [%YE070-7T.TXT %YE070-7N, Colour difference experiments ELCD_E, KA_EE069=KIT_ADJACENT_EE %no i1 i2 % VIS1 VID1 VIS2 VID2 VIS3 VID3 COD1 COD2 COD3 %0 1 2 3 4 5 6 7 8 9 10 11 %page 25: triplets 0 1 1 0.523 0.115 0.0 0.0 0.0 0.0 (W-CW) (CW-C) (1:25) % 1 2 1 0.454 0.11 0.0 0.0 0.0 0.0 (W-VW) (VW-V) (1:25) % 2 3 1 0.45 0.112 0.0 0.0 0.0 0.0 (W-MW) (MW-M) (1:25) % 3 4 1 0.4 0.084 0.0 0.0 0.0 0.0 (W-OW) (OW-O) (1:25) % 4 5 1 0.429 0.143 0.0 0.0 0.0 0.0 (W-YW) (YW-Y) (1:25) % 5 6 1 0.501 0.136 0.0 0.0 0.0 0.0 (W-LW) (LW-L) (1:25) % 6 7 1 0.541 0.137 0.0 0.0 0.0 0.0 (C-CN) (CN-N) (1:25) % 7 8 1 0.497 0.189 0.0 0.0 0.0 0.0 (V-VN) (VN-N) (1:25) % 8 9 1 0.526 0.129 0.0 0.0 0.0 0.0 (M-MN) (MN-N) (1:25) % 9 10 1 0.529 0.131 0.0 0.0 0.0 0.0 (O-ON) (ON-N) (1:25) % 10 11 1 0.452 0.13 0.0 0.0 0.0 0.0 (Y-YN) (YN-N) (1:25) % 11 12 1 0.438 0.14 0.0 0.0 0.0 0.0 (L-LN) (LN-N) (1:25) % %page 27: triplets 12 13 1 0.454 0.12 0.0 0.0 0.0 0.0 (W-C) (C-N) (1:27) % 13 14 1 0.714 0.074 0.0 0.0 0.0 0.0 (W-V) (V-N) (1:27) % 14 15 1 0.435 0.098 0.0 0.0 0.0 0.0 (W-M) (M-N) (1:27) % 15 16 1 0.479 0.112 0.0 0.0 0.0 0.0 (W-O) (O-N) (1:27) % 16 17 1 0.304 0.098 0.0 0.0 0.0 0.0 (W-Y) (Y-N) (1:27) % 17 18 1 0.505 0.093 0.0 0.0 0.0 0.0 (W-L) (L-N) (1:27) % 18 19 1 0.479 0.097 0.0 0.0 0.0 0.0 (C-V) (V-M) (1:27) % 19 20 1 0.329 0.128 0.0 0.0 0.0 0.0 (M-O) (O-Y) (1:27) % 20 21 1 0.604 0.094 0.0 0.0 0.0 0.0 (Y-L) (L-C) (1:27) % 21 22 1 0.587 0.128 0.0 0.0 0.0 0.0 (V-C) (C-L) (1:27) % 22 23 1 0.552 0.089 0.0 0.0 0.0 0.0 (L-Y) (Y-O) (1:27) % 23 24 1 0.347 0.131 0.0 0.0 0.0 0.0 (O-M) (M-V) (1:27) % %page 26: 5-step series 24 25 1 0.22 0.038 0.0 0.0 0.0 0.0 (W-Wc) (Wc-C) (1:26) % 25 25 2 0.0 0.0 0.455 0.09 0.0 0.0 (W-WC) (WC-C) (2:26) % 26 25 3 0.0 0.0 0.0 0.0 0.664 0.095 (W-Cw) (Cw-C) (3:26) % 27 26 1 0.232 0.059 0.0 0.0 0.0 0.0 (W-Wv) (Wv-V) (1:26) % 28 26 2 0.0 0.0 0.444 0.07 0.0 0.0 (W-WV) (WV-V) (2:26) % 29 26 3 0.0 0.0 0.0 0.0 0.659 0.076 (W-Vw) (Vw-V) (3:26) % 30 27 1 0.255 0.063 0.0 0.0 0.0 0.0 (W-Wm) (Wm-M) (1:26) % 31 27 2 0.0 0.0 0.473 0.085 0.0 0.0 (W-WM) (WM-M) (2:26) % 32 27 3 0.0 0.0 0.0 0.0 0.708 0.086 (W-Mw) (Mw-M) (3:26) % 33 28 1 0.226 0.062 0.0 0.0 0.0 0.0 (W-Wo) (Wo-O) (1:26) % 34 28 2 0.0 0.0 0.447 0.089 0.0 0.0 (W-WO) (WO-O) (2:26) % 35 28 3 0.0 0.0 0.0 0.0 0.689 0.089 (W-Ow) (Ow-O) (3:26) % 36 29 1 0.235 0.081 0.0 0.0 0.0 0.0 (W-Wy) (Wy-Y) (1:26) % 37 29 2 0.0 0.0 0.46 0.089 0.0 0.0 (W-WY) (WY-Y) (2:26) % 38 29 3 0.0 0.0 0.0 0.0 0.718 0.108 (W-Yw) (Yw-Y) (3:26) % 39 30 1 0.251 0.078 0.0 0.0 0.0 0.0 (W-Wl) (Wl-L) (1:26) % 40 30 2 0.0 0.0 0.463 0.066 0.0 0.0 (W-WL) (WL-L) (2:26) % 41 30 3 0.0 0.0 0.0 0.0 0.695 0.096 (W-Lw) (Lw-L) (3:26) % 42 31 1 0.285 0.081 0.0 0.0 0.0 0.0 (C-Cn) (Cn-N) (1:26) % 43 31 2 0.0 0.0 0.511 0.063 0.0 0.0 (C-CN) (CN-N) (2:26) % 44 31 3 0.0 0.0 0.0 0.0 0.763 0.064 (C-Nc) (Nc-N) (3:26) % 45 32 1 0.217 0.109 0.0 0.0 0.0 0.0 (V-Vn) (Vn-N) (1:26) % 46 32 2 0.0 0.0 0.482 0.096 0.0 0.0 (V-VN) (VN-N) (2:26) % 47 32 3 0.0 0.0 0.0 0.0 0.785 0.08 (V-Nv) (Nv-N) (3:26) % 48 33 1 0.291 0.075 0.0 0.0 0.0 0.0 (M-Mn) (Mn-N) (1:26) % 49 33 2 0.0 0.0 0.521 0.09 0.0 0.0 (M-MN) (MN-N) (2:26) % 50 33 3 0.0 0.0 0.0 0.0 0.714 0.096 (M-Nm) (Nm-N) (3:26) % 51 34 1 0.284 0.096 0.0 0.0 0.0 0.0 (O-On) (On-N) (1:26) % 52 34 2 0.0 0.0 0.482 0.096 0.0 0.0 (O-ON) (ON-N) (2:26) % 53 34 3 0.0 0.0 0.0 0.0 0.72 0.109 (O-No) (No-N) (3:26) % 54 35 1 0.273 0.097 0.0 0.0 0.0 0.0 (Y-Yn) (Yn-N) (1:26) % 55 35 2 0.0 0.0 0.491 0.116 0.0 0.0 (Y-YN) (YN-N) (2:26) % 56 35 3 0.0 0.0 0.0 0.0 0.679 0.128 (Y-Ny) (Ny-N) (3:26) % 57 36 1 0.27 0.082 0.0 0.0 0.0 0.0 (L-Ln) (Ln-N) (1:26) % 58 36 2 0.0 0.0 0.46 0.067 0.0 0.0 (L-LN) (LN-N) (2:26) % 59 36 3 0.0 0.0 0.0 0.0 0.735 0.068 (L-Nl) (Nl-N) (3:26) % %page 27: 5-step series C-CV-V-MV-M, only two triplet evaluations 60 37 1 0.476 0.105 0.0 0.0 0.0 0.0 (C-CV) (CV-V) (1:27) % 61 38 1 0.526 0.089 0.0 0.0 0.0 0.0 (V-VM) (VM-M) (1:27) % %page 27: 5 step series M-MO-O-YO-Y, only two triplet evaluations 62 39 1 0.607 0.205 0.0 0.0 0.0 0.0 (M-MO) (MO-O) (1:27) % 63 40 1 0.5 0.102 0.0 0.0 0.0 0.0 (O-YO) (YO-Y) (1:27) % %page 27: 5 step series Y-YL-L_CL_C, only two triplet evaluations 64 41 1 0.525 0.143 0.0 0.0 0.0 0.0 (Y-YL) (YL-L) (1:27) % 65 42 1 0.552 0.127 0.0 0.0 0.0 0.0 (L-CL) (CL-C) (1:27) % %page 25: triplet W-N 66 43 1 0.45 0.078 0.0 0.0 0.0 0.0 (W-WN) (WN-N) (1:25) % 67 44 1 0.244 0.048 0.0 0.0 0.0 0.0 (W-Wn) (Wn-N) (1:25) % 68 44 2 0.0 0.0 0.461 0.047 0.0 0.0 (W-WN) (WN-N) (1:25) % 69 44 3 0.0 0.0 0.0 0.0 0.711 0.071 (W-Nw) (Nw-N) (1:25) % ] def KIT_VIS1_Ei %****************************************************************************** /KIT_VIS2_Ei 1500 array def %max 100x15, real 70x12 %Kittelmann (2005), Test chart 1, 17 observers, 32 fields, D-Work, Table4_1.TXT /KIT_VIS2_Ei [%XE670-7T.TXT %XE670-7N, Colour difference experiments ELCD_E, KS_EE069=KIT_SEPARATE_EE %no i1 i2 % VIS1 VID1 VIS2 VID2 VIS3 VID3 COD1 COD2 COD3 %0 1 2 3 4 5 6 7 8 9 10 11 %page 25: triplets 0 1 1 0.494 0.101 0.0 0.0 0.0 0.0 (W-CW) (CW-C) (1:25) % 1 2 1 0.441 0.159 0.0 0.0 0.0 0.0 (W-VW) (VW-V) (1:25) % 2 3 1 0.464 0.103 0.0 0.0 0.0 0.0 (W-MW) (MW-M) (1:25) % 3 4 1 0.464 0.108 0.0 0.0 0.0 0.0 (W-OW) (OW-O) (1:25) % 4 5 1 0.491 0.18 0.0 0.0 0.0 0.0 (W-YW) (YW-Y) (1:25) % 5 6 1 0.473 0.128 0.0 0.0 0.0 0.0 (W-LW) (LW-L) (1:25) % 6 7 1 0.488 0.149 0.0 0.0 0.0 0.0 (C-CN) (CN-N) (1:25) % 7 8 1 0.497 0.185 0.0 0.0 0.0 0.0 (V-VN) (VN-N) (1:25) % 8 9 1 0.535 0.119 0.0 0.0 0.0 0.0 (M-MN) (MN-N) (1:25) % 9 10 1 0.502 0.1 0.0 0.0 0.0 0.0 (O-ON) (ON-N) (1:25) % 10 11 1 0.467 0.125 0.0 0.0 0.0 0.0 (Y-YN) (YN-N) (1:25) % 11 12 1 0.429 0.117 0.0 0.0 0.0 0.0 (L-LN) (LN-N) (1:25) % %page 27: triplets 12 13 1 0.458 0.114 0.0 0.0 0.0 0.0 (W-C) (C-N) (1:27) % 13 14 1 0.72 0.074 0.0 0.0 0.0 0.0 (W-V) (V-N) (1:27) % 14 15 1 0.429 0.098 0.0 0.0 0.0 0.0 (W-M) (M-N) (1:27) % 15 16 1 0.502 0.118 0.0 0.0 0.0 0.0 (W-O) (O-N) (1:27) % 16 17 1 0.341 0.125 0.0 0.0 0.0 0.0 (W-Y) (Y-N) (1:27) % 17 18 1 0.508 0.091 0.0 0.0 0.0 0.0 (W-L) (L-N) (1:27) % 18 19 1 0.505 0.08 0.0 0.0 0.0 0.0 (C-V) (V-M) (1:27) % 19 20 1 0.329 0.126 0.0 0.0 0.0 0.0 (M-O) (O-Y) (1:27) % 20 21 1 0.585 0.087 0.0 0.0 0.0 0.0 (Y-L) (L-C) (1:27) % 21 22 1 0.557 0.137 0.0 0.0 0.0 0.0 (V-C) (C-L) (1:27) % 22 23 1 0.511 0.135 0.0 0.0 0.0 0.0 (L-Y) (Y-O) (1:27) % 23 24 1 0.373 0.158 0.0 0.0 0.0 0.0 (O-M) (M-V) (1:27) % %page 26: 5-step series 24 25 1 0.223 0.062 0.0 0.0 0.0 0.0 (W-Wc) (Wc-C) (1:26) % 25 25 2 0.0 0.0 0.476 0.092 0.0 0.0 (W-CW) (CW-C) (2:26) % 26 25 3 0.0 0.0 0.0 0.0 0.685 0.106 (W-Cw) (Cw-C) (3:26) % 27 26 1 0.208 0.064 0.0 0.0 0.0 0.0 (W-Wv) (Wv-V) (1:26) % 28 26 2 0.0 0.0 0.47 0.087 0.0 0.0 (W-VW) (VW-V) (2:26) % 29 26 3 0.0 0.0 0.0 0.0 0.714 0.098 (W-Vw) (Vw-V) (3:26) % 30 27 1 0.223 0.059 0.0 0.0 0.0 0.0 (W-Wm) (Wm-M) (1:26) % 31 27 2 0.0 0.0 0.473 0.054 0.0 0.0 (W-MW) (MW-M) (2:26) % 32 27 3 0.0 0.0 0.0 0.0 0.691 0.064 (W-Mw) (Mw-M) (3:26) % 33 28 1 0.244 0.061 0.0 0.0 0.0 0.0 (W-Wo) (Wo-O) (1:26) % 34 28 2 0.0 0.0 0.47 0.064 0.0 0.0 (W-OW) (OW-O) (2:26) % 35 28 3 0.0 0.0 0.0 0.0 0.688 0.063 (W-Ow) (Ow-O) (3:26) % 36 29 1 0.241 0.087 0.0 0.0 0.0 0.0 (W-Wy) (Wy-Y) (1:26) % 37 29 2 0.0 0.0 0.508 0.101 0.0 0.0 (W-YW) (YW-Y) (2:26) % 38 29 3 0.0 0.0 0.0 0.0 0.811 0.093 (W-Yw) (Yw-Y) (3:26) % 39 30 1 0.217 0.048 0.0 0.0 0.0 0.0 (W-Wl) (Wl-L) (1:26) % 40 30 2 0.0 0.0 0.451 0.082 0.0 0.0 (W-LW) (LW-L) (2:26) % 41 30 3 0.0 0.0 0.0 0.0 0.697 0.089 (W-Lw) (Lw-L) (3:26) % 42 31 1 0.276 0.1 0.0 0.0 0.0 0.0 (C-Cw) (Cw-N) (1:26) % 43 31 2 0.0 0.0 0.505 0.085 0.0 0.0 (C-CN) (CN-N) (2:26) % 44 31 3 0.0 0.0 0.0 0.0 0.758 0.059 (C-Nc) (Nc-N) (3:26) % 45 32 1 0.17 0.072 0.0 0.0 0.0 0.0 (V-Vw) (Vw-N) (1:26) % 46 32 2 0.0 0.0 0.492 0.116 0.0 0.0 (V-VN) (VN-N) (2:26) % 47 32 3 0.0 0.0 0.0 0.0 0.833 0.056 (V-Nv) (Nv-N) (2:26) % 48 33 1 0.282 0.099 0.0 0.0 0.0 0.0 (M-Mw) (Mw-N) (1:26) % 49 33 2 0.0 0.0 0.5 0.117 0.0 0.0 (M-MN) (MN-N) (2:26) % 50 33 3 0.0 0.0 0.0 0.0 0.732 0.112 (M-Nm) (Nm-N) (3:26) % 51 34 1 0.282 0.089 0.0 0.0 0.0 0.0 (O-Ow) (Ow-N) (1:26) % 52 34 2 0.0 0.0 0.482 0.102 0.0 0.0 (O-ON) (ON-N) (2:26) % 53 34 3 0.0 0.0 0.0 0.0 0.71 0.116 (O-No) (No-N) (3:26) % 54 35 1 0.299 0.09 0.0 0.0 0.0 0.0 (Y-Yw) (Yw-N) (1:26) % 55 35 2 0.0 0.0 0.5 0.122 0.0 0.0 (Y-YN) (YN-N) (2:26) % 56 35 3 0.0 0.0 0.0 0.0 0.702 0.118 (Y-Ny) (Ny-N) (3:26) % 57 36 1 0.272 0.102 0.0 0.0 0.0 0.0 (L-Lw) (Lw-N) (1:26) % 58 36 2 0.0 0.0 0.451 0.105 0.0 0.0 (L-LN) (LN-N) (2:26) % 59 36 3 0.0 0.0 0.0 0.0 0.704 0.11 (L-Nl) (Nl-N) (3:26) % %page 27: 5-step series C-CV-V-MV-M, only two triplet evaluations 60 37 1 0.511 0.109 0.0 0.0 0.0 0.0 (C-CV) (CV-V) (1:27) % 61 38 1 0.541 0.131 0.0 0.0 0.0 0.0 (V-VM) (VM-M) (1:27) % %page 27: 5 step series M-MO-O-YO-Y, only two triplet evaluations 62 39 1 0.594 0.175 0.0 0.0 0.0 0.0 (M-MO) (MO-O) (1:27) % 63 40 1 0.47 0.108 0.0 0.0 0.0 0.0 (O-YO) (YO-Y) (1:27) % %page 27: 5 step series Y-YL-L_CL_C, only two triplet evaluations 64 41 1 0.528 0.131 0.0 0.0 0.0 0.0 (Y-YL) (YL-L) (1:27) % 65 42 1 0.57 0.147 0.0 0.0 0.0 0.0 (L-CL) (CL-C) (1:27) % %page 25: triplet W-N 66 43 1 0.464 0.09 0.0 0.0 0.0 0.0 (W-WN) (WN-N) (1:25) % 67 44 1 0.223 0.051 0.0 0.0 0.0 0.0 (W-Wn) (Wn-N) (1:25) % 68 44 2 0.0 0.0 0.464 0.085 0.0 0.0 (W-WN) (WN-N) (2:25) % 69 44 3 0.0 0.0 0.0 0.0 0.737 0.093 (W-Nw) (Nw-N) (3:25) % ] def KIT_VIS2_Ei %****************************************************************************** /MEL_VIS1_Ei 1500 array def %max 100x15, real 70x12 %49 series x 4 of Melgosa, already mean values /MEL_VIS1_Ei [%XE670-7T.TXT %XE670-7N, Colour difference experiments ELCD_E, MA_EE049=MEL_ADJACENT_EE %no i1 i2 % VIS1 VID1 VIS2 VID2 VIS3 VID3 COD1 COD2 COD3 %0 1 2 3 4 5 6 7 8 9 10 11 %page 25 0 1 1 0.505 0.105 0.0 0.0 0.0 0.0 (W-CW) (CW-C) (1:25 5.06 1.08 S1-1) % 1 2 1 0.526 0.120 0.0 0.0 0.0 0.0 (W-VW) (VW-V) (1:25 5.27 1.24 S1-2) % 2 3 1 0.507 0.131 0.0 0.0 0.0 0.0 (W-MW) (MW-M) (1:25 5.08 1.35 S1-3) % 3 4 1 0.465 0.095 0.0 0.0 0.0 0.0 (W-OW) (OW-O) (1:25 4.65 0.98 S1-4) % 4 5 1 0.564 0.154 0.0 0.0 0.0 0.0 (W-YW) (YW-Y) (1:25 5.65 1.60 S1-5) % 5 6 1 0.511 0.096 0.0 0.0 0.0 0.0 (W-LW) (LW-L) (1:25 5.12 0.99 S1-6) % 6 7 1 0.561 0.114 0.0 0.0 0.0 0.0 (N-CN) (CN-C) (1:25 5.62 1.20 S2-1) % 7 8 1 0.515 0.157 0.0 0.0 0.0 0.0 (N-VN) (VN-V) (1:25 5.15 1.62 S2-2) % 8 9 1 0.512 0.109 0.0 0.0 0.0 0.0 (N-MN) (MN-M) (1:25 5.13 1.13 S2-3) % 9 10 1 0.519 0.119 0.0 0.0 0.0 0.0 (N-ON) (ON-O) (1:25 5.20 1.22 S2-4) % 10 11 1 0.532 0.116 0.0 0.0 0.0 0.0 (N-YN) (YN-Y) (1:25 5.33 1.20 S2-5) % 11 12 1 0.511 0.122 0.0 0.0 0.0 0.0 (N-LN) (LN-L) (1:25 5.12 1.27 S2-6) % %page 27 12 13 1 0.449 0.119 0.0 0.0 0.0 0.0 (W-C) (C-N) (1:27 5.51 1.23 S3-1) % 13 14 1 0.591 0.12 0.0 0.0 0.0 0.0 (W-V) (V-N) (1:27 4.09 1.24 S3-2) % 14 15 1 0.434 0.121 0.0 0.0 0.0 0.0 (W-M) (M-N) (1:27 5.67 1.25 S3-3) % 15 16 1 0.475 0.117 0.0 0.0 0.0 0.0 (W-O) (O-N) (1:27 5.25 1.24 S3-4) % 16 17 1 0.368 0.108 0.0 0.0 0.0 0.0 (W-Y) (Y-N) (1:27 6.33 1.11 S3-5) % 17 18 1 0.443 0.111 0.0 0.0 0.0 0.0 (W-L) (L-N) (1:27 5.58 1.15 S3-6) % %page 26: only triplets of 5-step series 24 25 1 0.502 0.097 0.0 0.0 0.0 0.0 (CW-Wc)(Wc-W) (1:26 4.98 1.00 S5-1) % 25 26 1 0.517 0.108 0.0 0.0 0.0 0.0 (VW-Wv)(Wv-W) (1:26 4.83 1.12 S5-2) % 26 27 1 0.494 0.101 0.0 0.0 0.0 0.0 (MW-Wm)(Wm-W) (1:26 5.06 1.04 S5-3) % 27 28 1 0.474 0.099 0.0 0.0 0.0 0.0 (OW-Wo)(Wo-W) (1:26 5.25 1.03 S5-4) % 28 29 1 0.51 0.113 0.0 0.0 0.0 0.0 (YW-Wy)(Wy-W) (1:26 4.89 1.16 S5-5) % 29 30 1 0.512 0.108 0.0 0.0 0.0 0.0 (LW-Wl)(Wl-W) (1:26 4.88 1.12 S5-6) % 30 31 1 0.574 0.074 0.0 0.0 0.0 0.0 (CW-Cw)(Cw-C) (1:26 4.25 0.76 S6-1) % 31 32 1 0.465 0.154 0.0 0.0 0.0 0.0 (VW-Vw)(Vw-V) (1:26 5.34 1.59 S6-2) % 32 33 1 0.574 0.065 0.0 0.0 0.0 0.0 (MW-Mw)(Mw-M) (1:26 4.26 0.68 S6-3) % 33 34 1 0.569 0.083 0.0 0.0 0.0 0.0 (OW-Ow)(Ow-O) (1:26 4.31 0.86 S6-4) % 34 35 1 0.506 0.08 0.0 0.0 0.0 0.0 (YW-Yw)(Yw-Y) (1:26 4.93 0.83 S6-5) % 35 36 1 0.537 0.106 0.0 0.0 0.0 0.0 (LW-Lw)(Lw-L) (1:26 4.63 1.10 S6-6) % 36 37 1 0.562 0.077 0.0 0.0 0.0 0.0 (CN-Cn)(Cn-C) (1:26 5.63 0.79 S7-1) % 37 38 1 0.59 0.085 0.0 0.0 0.0 0.0 (VN-Vn)(Vn-V) (1:26 5.91 0.88 S7-2) % 38 39 1 0.426 0.08 0.0 0.0 0.0 0.0 (M-Mn) (Mn-MN)(1:26 5.73 0.82 S7-3) % 39 40 1 0.43 0.086 0.0 0.0 0.0 0.0 (O-On) (On-ON)(1:26 5.69 0.88 S7-4) % 40 41 1 0.469 0.13 0.0 0.0 0.0 0.0 (YN-Yn)(Yn-Y) (1:26 4.70 1.34 S7-5) % 41 42 1 0.575 0.083 0.0 0.0 0.0 0.0 (LN-Ln)(Ln-L) (1:26 5.76 0.86 S7-6) % 42 43 1 0.483 0.112 0.0 0.0 0.0 0.0 (CN-Nc)(Nc-N) (1:26 5.17 1.15 S8-1) % 43 44 1 0.498 0.158 0.0 0.0 0.0 0.0 (VN-Nv)(Nv-N) (1:26 5.02 1.63 S8-2) % 44 45 1 0.441 0.115 0.0 0.0 0.0 0.0 (MN-Nm)(Nm-N) (1:26 5.58 1.19 S8-3) % 45 46 1 0.434 0.104 0.0 0.0 0.0 0.0 (ON-No)(No-N) (1:26 5.65 1.07 S8-4) % 46 47 1 0.581 0.094 0.0 0.0 0.0 0.0 (N-Ny) (Ny-YN)(1:26 5.82 0.97 S8-5) % 47 48 1 0.526 0.128 0.0 0.0 0.0 0.0 (N-Nl) (Nl-LN)(1:26 5.27 1.32 S8-6) % %page 27: 5 step series M-MO-O-YO-Y, only two triplet evaluations 18 19 1 0.51 0.119 0.0 0.0 0.0 0.0 (M-V) (V-C) (1:27 4.90 1.23 S4-1) % 19 20 1 0.344 0.098 0.0 0.0 0.0 0.0 (M-O) (O-Y) (1:27 6.57 1.01 S4-2) % %page 27: 5 step series M-MO-O-YO-Y, only two triplet evaluations 20 21 1 0.492 0.084 0.0 0.0 0.0 0.0 (C-L) (L-Y) (1:27 5.08 0.86 S4-3) % 21 22 1 0.464 0.1 0.0 0.0 0.0 0.0 (V-C) (C-L) (1:27 5.35 1.03 S4-4) % %page 27: 5 step series Y-YL-L_CL_C, only two triplet evaluations 22 23 1 0.474 0.078 0.0 0.0 0.0 0.0 (L-Y) (Y-O) (1:27 5.26 0.81 S4-5) % 23 24 1 0.559 0.141 0.0 0.0 0.0 0.0 (V-M) (M-O) (1:27 4.41 1.45 S4-6) % %page 25: triplet W-N 48 49 1 0.505 0.056 0.0 0.0 0.0 0.0 (N-NW) (NW-W) (1:27 5.06 0.58 S2-7) % ] def MEL_VIS1_Ei %********************************************************* %%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 1 def /lanind2 1 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 2 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 3 def} ifelse /xchart5f where {pop /xchart5 xchart5f def} {/xchart5 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 %see Kittelmann DWORK, page 9 /XWD6502 95.05 def /YWD6502 100.00 def /ZWD6502 108.90 def /XW XWD6502 def /YW YWD6502 def /ZW ZWD6502 def /FL 0.000001 def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /CIEL*0i 310 array def /CIEa*0i 310 array def /CIEb*0i 310 array def /X0i 310 array def /Y0i 310 array def /Z0i 310 array def %calculate XYZ-values for 310 colours 0 1 309 {/i exch def %i=0,309 /i10 i 10 mul def CIEL*0i i LAB_KIi i10 1 add get put CIEa*0i i LAB_KIi i10 2 add get put CIEb*0i i LAB_KIi i10 3 add get put /X* {CIEL*0i i get 16 add 116 div CIEa*0i i get 500 div add} bind def /Y* {CIEL*0i i get 16 add 116 div} bind def /Z* {CIEL*0i i get 16 add 116 div CIEb*0i i get 200 div sub} bind def X0i i X* DecodeXYZ* XW mul put Y0i i Y* DecodeXYZ* YW mul put Z0i i Z* DecodeXYZ* ZW mul put } for %i=0,309 %************************************************************* /IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-N /IM0 113 def %(max IM=057)*2-1 = 057 X 2-1 0 1 IM0 {/i exch def %i=0,IM0 /i10 i 10 mul def 0 1 9 {/j exch def %j=0,9 Wdata1 i10 j add 1. put Wdata2 i10 j add 1. put } for %j=0,9 } for %i=0,IM0 /R57xSERi 2000 array def 0 1 1999 {/i exch def R57xSERi i 1 put } for 0 1 IM {/ii exch def %ii=0,IM /i17 ii 17 mul def 0 1 16 {/j exch def %j=0,16 xchart3 0 eq {R57xSERi i17 j add R57VIK1i i17 j add get put} if xchart3 1 eq {R57xSERi i17 j add R57KIT1i i17 j add get put} if xchart3 2 eq {R57xSERi i17 j add R57KIT2i i17 j add get put} if xchart3 3 eq {R57xSERi i17 j add R57MEL1i i17 j add get put} if } for %j=0,16 } for %ii=0,IM /D57xSERi 2000 array def %xchart4=0 and 1: calculation for CIELAB and CIEDE2000 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def 0 1 15 {/j exch def %j=0,15 xchart4 2 eq {D57xSERi i16 j add D57SERWi i16 j add get put} if xchart4 3 eq {D57xSERi i16 j add D57SERVi i16 j add get put} if } for %j=0,15 } for %ii=0,IM /DV*1 200 array def /DV*2 200 array def 0 1 IM {/ii exch def %ii=0,IM /i16 ii 16 mul def DV*1 ii 1. put %default DV*2 ii 1. put } for %ii=0,IM xchart4 2 ge {%xchart4>=2 (only for WANG and VIK) 0 1 IM {/ii exch def %ii=0,IM /D57xSER12 D57xSERi i16 12 add get def /D57xSER13 D57xSERi i16 13 add get def DV*1 ii D57xSER12 put DV*2 ii D57xSER13 put xchart4 2 eq {%xchart4=2 %corection for WANG only D57xSER12 0 ne {%D57xSER12#0 DV*1 ii D57xSER12 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER12#0 D57xSER13 0 ne {%D57xSER13#0 DV*2 ii D57xSER13 42.62 div 1. 1.1322 div exp 10 mul put } if %D57xSER13#0 } if %xchart4=2 %corection for WANG only } for %ii=0,IM } if %xchart4>=2 (only for WANG and VIK) %calculation order in D57xSERi based on comparison data % of CIELAB, CIEDE2000, WANG and VIK (xchart4=0,1,2,3) %relative data order in R57xSERi equal to order in D57xSERi % of VIK1, KIT1, KIT2, MEL1 (xchart3=0,1,2,3) %Series XK41..01..XK48: ioutn=1 % XK41..01..XK44: WANG_ELCD (xchart3=0,1,2,3, xchart4=2) REL % XK45..01..XK48: VIK_ELCD (xchart3=0,1,2,3, xchart4=3) REL %Series XK51..01..XK58: ioutn=0 % XK51..01..XK54: CIELAB (xchart3=0,1,2,3, xchart4=0) % XK55..01..XK58: CIEDE2000 (xchart3=0,1,2,3, xchart4=1) %Series XK61..01..XK68: ioutn=0 % XK61..01..XK64: WANG-ELCD (xchart3=0,1,2,3, xchart4=2) Pair C % XK65..01..XK68: VIK-ELCD (xchart3=0,1,2,3, xchart4=3) Pair C /ix -1 def 0 1 IM {/ii exch def %ii=0,IM /i17 ii 17 mul def /S R57xSERi i17 1 add get def S 3 eq {%S=3 /N1 R57xSERi i17 2 add get 1 sub def %Nx-count STARTs at "1" /N2 R57xSERi i17 3 add get 1 sub def /N3 R57xSERi i17 4 add get 1 sub def /X10 X0i N1 get def /Y10 Y0i N1 get def /Z10 Z0i N1 get def /X20 X0i N2 get def /Y20 Y0i N2 get def /Z20 Z0i N2 get def /X30 X0i N3 get def /Y30 Y0i N3 get def /Z30 Z0i N3 get def 0 1 1 {/i exch def %i=0,1 i 0 eq {%i=0,1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X10 def /Y1 Y10 def /Z1 Z10 def } if %i=0 i 1 eq {%i=1 /X0 X20 def /Y0 Y20 def /Z0 Z20 def /X1 X30 def /Y1 Y30 def /Z1 Z30 def } if %i=1 proc_coldiff } for %i=0,1 xchart4 0 eq {%xchart4=0 %CIELAB /DLAB21 d_CIELABi 0 get def /DLAB32 d_CIELABi 1 get def } if %xchart4=0 xchart4 1 eq {%xchart4=1 %CIEDE2000 /DLAB21 d_C00LCHi 0 get def /DLAB32 d_C00LCHi 1 get def } if %xchart4=1 xchart4 2 ge {%xchart4>=2 %WANG and VIK /DLAB21 DV*1 ii get def /DLAB32 DV*2 ii get def } if %xchart4>=2 /SUM3 DLAB21 DLAB32 add def /DREL321 DLAB21 SUM3 FL add div def /DREL332 DLAB32 SUM3 FL add div def /ii17 ii 17 mul def /VREL321 R57xSERi ii17 12 add get 0.001 mul def /VREL332 1 VREL321 sub def /ix ix 1 add def /ix10 ix 10 mul def 0 1 09 {/j exch def %j=0,9 j 0 eq {Wdata1 ix10 0 add XW put} if j 1 eq {Wdata1 ix10 1 add YW put} if j 2 eq {Wdata1 ix10 2 add ZW put} if j 3 eq {Wdata1 ix10 3 add X20 put} if j 4 eq {Wdata1 ix10 4 add Y20 put} if j 5 eq {Wdata1 ix10 5 add Z20 put} if j 6 eq {Wdata1 ix10 6 add X10 put} if j 7 eq {Wdata1 ix10 7 add Y10 put} if j 8 eq {Wdata1 ix10 8 add Z10 put} if j 9 eq {Wdata1 ix10 9 add VREL321 SUM3 mul put Wdata2 ix10 0 add SUM3 put Wdata2 ix10 1 add DLAB21 put Wdata2 ix10 2 add DREL321 put Wdata2 ix10 3 add VREL321 put Wdata2 ix10 4 add 1 DREL321 sub put Wdata2 ix10 5 add 1 VREL321 sub put % Wdata2 ix10 6 add D114NAMi ix get put Wdata2 ix10 6 add (x) put } if } for %j=0,9 %STOP2 /ix ix 1 add def /ix10 ix 10 mul def 0 1 09 {/j exch def %j=0,9 j 0 eq {Wdata1 ix10 0 add XW put} if j 1 eq {Wdata1 ix10 1 add YW put} if j 2 eq {Wdata1 ix10 2 add ZW put} if j 3 eq {Wdata1 ix10 3 add X20 put} if j 4 eq {Wdata1 ix10 4 add Y20 put} if j 5 eq {Wdata1 ix10 5 add Z20 put} if j 6 eq {Wdata1 ix10 6 add X30 put} if j 7 eq {Wdata1 ix10 7 add Y30 put} if j 8 eq {Wdata1 ix10 8 add Z30 put} if j 9 eq {Wdata1 ix10 9 add VREL332 SUM3 mul put Wdata2 ix10 0 add SUM3 put Wdata2 ix10 1 add DLAB32 put Wdata2 ix10 2 add DREL332 put Wdata2 ix10 3 add VREL332 put Wdata2 ix10 4 add 1 DREL332 sub put Wdata2 ix10 5 add 1 VREL332 sub put % Wdata2 ix10 6 add D114NAMi ix get put Wdata2 ix10 6 add (y) put } if } for %j=0,9 %STOP3 } if %S=3 %STOP3a } for %ii=0,IM %STOP4 /xp0 0050 def /xp1 6650 def /xdel 620 def /xdel0 650 def /xdel1 550 def /xdela 29 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*ab DS*ab DE*abr DE*DVr DE*abm DE*DVm NR 6500 7000 7500 8000 8500 9000 9500 %17 %18 %19 %20 %21 %L*0 a*0 b*0 C*ab hab 10200 10500 10850 11200 11550 %22 %23 %24 %25 %26 %27 %28 %L*1 a*1 b*1 C*ab hab CODE (%) 11900 12200 12550 12900 13250 13600 14200] def /ydel 160 def %*************************************************************** %%STOP1 /xchart xchart1 def % /xc0d 02 def /xc2d 02 def /xc4d 02 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 /iXYZLAB 0 def %0 1 xc0d {/xchart exch def %xchart=0,xc0d /iXYZLAB 0 def /xc1a 00 def /xc1e xc0d def /xc2a xc1e 1 add def /xc2e xc2a xc0d add def /xc3a xc2e 1 add def /xc3e xc3a xc2d add def /xc4a xc3e 1 add def /xc4e xc4a xc2d add def /xc5a xc4e 1 add def /xc5e xc5a xc4d add def /xc6a xc5e 1 add def /xc6e xc6a xc4d add def xchart xc1e le {/iXYZLAB 0 def /xchartl xchart def} if xchart xc2a ge xchart xc2e le and {/iXYZLAB 1 def /xchartl xchart xc2a sub def} if xchart xc3a ge xchart xc3e le and {/iXYZLAB 2 def /xchartl xchart xc3a sub def} if xchart xc4a ge xchart xc4e le and {/iXYZLAB 3 def /xchartl xchart xc4a sub def} if xchart xc5a ge xchart xc5e le and {/iXYZLAB 4 def /xchartl xchart xc5a sub def} if xchart xc6a ge xchart xc6e le and {/iXYZLAB 5 def /xchartl xchart xc6a sub def} if %********************************************************** %iXYZLAB 00-05: %00=XYZa, 01=LABa, 02=XYZ2 03=LAB2 04=XYZ2 05=LAB2 /textXYZ 29 array def xchart4 0 eq {%xchart4=0 /textXYZ [(%Xn) (Yn) (Zn) (X0) (Y0) (Z0) (X1) (Y1) (Z1) (DV*ab) (dS*ab) (dE*ab) (dE*abr) (dE*DVr) (dE*abm) (dE*DVm) ( no.) ( L*0) ( a*0) ( b*0) ( C*0) ( h0) ( L*1) ( a*1) ( b*1) ( C*1) ( h1) ( CODE) (%)] def } if %xchart4=0 xchart4 1 eq {%xchart4=1 /textXYZ [(%Xn) (Yn) (Zn) (X0) (Y0) (Z0) (X1) (Y1) (Z1) (DV*00) (dS*00) (dE*00) (dE*00r) (dE*DVr) (dE*00m) (dE*DVm) ( no.) ( L*0) ( a*0) ( b*0) ( C*0) ( h0) ( L*1) ( a*1) ( b*1) ( C*1) ( h1) ( CODE) (%)] def } if %xchart4=1 xchart4 2 eq {%xchart4=2 /textXYZ [(%Xn) (Yn) (Zn) (X0) (Y0) (Z0) (X1) (Y1) (Z1) (DV*DV) (dS*DV) (dE*DV) (dE*DVr) (dE*DVr) (dE*DVm) (dE*DVm) ( no.) ( L*0) ( a*0) ( b*0) ( C*0) ( h0) ( L*1) ( a*1) ( b*1) ( C*1) ( h1) ( CODE) (%)] def } if %xchart4=2 xchart4 3 eq {%xchart4=3 /textXYZ [(%Xn) (Yn) (Zn) (X0) (Y0) (Z0) (X1) (Y1) (Z1) (DV*DV) (dS*DV) (dE*DV) (dE*DVr) (dE*DVr) (dE*DVm) (dE*DVm) ( no.) ( L*0) ( a*0) ( b*0) ( C*0) ( h0) ( L*1) ( a*1) ( b*1) ( C*1) ( h1) ( CODE) (%)] def } if %xchart3=3 /textLAB 29 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) ( L*0) ( a*0) ( b*0) ( C*0) ( h0) ( L*1) ( a*1) ( b*1) ( C*1) ( h1) ( CODE) (%)] def /textXYZ2 29 array def /textXYZ2 [(%Xn2) (Yn2) (Zn2) (X02) (Y02) (Z02) (X12) (Y12) (Z12) (DV2) (dE*ab) (dE*76) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) ( L*0) ( a*0) ( b*0) ( C*0) ( h0) ( L*1) ( a*1) ( b*1) ( C*1) ( h1) ( CODE) (%)] def /textLAB2 29 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) ( L*0) ( a*0) ( b*0) ( C*0) ( h0) ( L*1) ( a*1) ( b*1) ( C*1) ( h1) ( CODE) (%)] def /textXYZ4 29 array def /textXYZ4 [(%Xn4) (Yn4) (Zn4) (X04) (Y04) (Z04) (X14) (Y14) (Z14) (DV4) (dE*ab) (dE*76) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) ( L*0) ( a*0) ( b*0) ( C*0) ( h0) ( L*1) ( a*1) ( b*1) ( C*1) ( h1) ( CODE) (%)] def /textLAB4 29 array def /textLAB4 [(%L*04) (a*04) (b*04) (C*ab04) (hab04) (L*14) (a*14) (b*14) (C*ab14) (hab14) (DV4) (dE*ab) ( L*0) ( a*0) ( b*0) ( C*0) ( h0) ( L*1) ( a*1) ( b*1) ( C*1) ( h1) ( CODE) (%)] 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 /iimp 98 def %/iimp 78 def /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 Wdata0 i10 j add Wdata1 i10 j add get 1.000 mul put } for %j=0,9 } for %i=0,iim /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 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow %STOP 5 /Times-ISOL1 FS 700 85 moveto (XE670-7N) show (_) show iXYZLAB cvishow (_) show ii cvishow (, xchart3=) show xchart3 cvishow (, xchart4=) show xchart4 cvishow 72 90 translate /yhoe 8500 def 0.0176 MM 0.02 MM scale /xwidth 14400 def 15 setlinewidth 0.0 0.0 0.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 CBSK xp0 yhoe ydel 0.9 mul sub moveto /ioutk 0 def %ioutk=0 ioutk 0 eq {/ik 28 def} {/ik 09 def} ifelse iXYZLAB 0 eq iXYZLAB 2 eq or iXYZLAB 4 eq or {%iXYZLAB=0,2,4 0 1 ik {/k exch def %k=0,ik 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,ik } if %iXYZLAB=0,2,4 iXYZLAB 1 eq iXYZLAB 3 eq or iXYZLAB 5 eq or {%iXYZLAB=1,3,5 0 1 ik {/k exch def %k=0,ik 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,ik } if %iXYZLAB=1,3,5 xp0 yhoe ydel 1.9 mul sub moveto ioutk 0 eq {%ioutk=0 iXYZLAB 0 eq {(%1000*(CIEXYZ & DV) for all colours (a) of experiment, ) show} if iXYZLAB 1 eq {(%CIELAB data for all colour (a) of experiment, ) show} if iXYZLAB 2 eq {(%1000*(CIEXYZ & DV) 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 & DV) 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 } if %ioutk=0 (, %iimp=) show iimp cvishow (, colour difference pairs ) show %Series XK41..01..XK48: ioutn=1 % XK41..01..XK44: WANG_ELCD (xchart3=0,1,2,3, xchart4=2) REL % XK45..01..XK48: VIK_ELCD (xchart3=0,1,2,3, xchart4=3) REL %Series XK51..01..XK58: ioutn=0 % XK51..01..XK54: CIELAB (xchart3=0,1,2,3, xchart4=0) % XK55..01..XK58: CIEDE2000 (xchart3=0,1,2,3, xchart4=1) %Series XK61..01..XK68: ioutn=0 % XK61..01..XK64: WANG-ELCD (xchart3=0,1,2,3, xchart4=2) Pair C % XK65..01..XK68: VIK-ELCD (xchart3=0,1,2,3, xchart4=3) Pair C %xchart3=0,1,2,3=VA, KA, KS, MA /iouts 0 def %output without/with scale data /ioutn 0 def %output with different name data ioutn 0 eq {%ioutn=0 xchart4 0 eq {%xchart4=0 xchart3 0 eq {(VA_EC098=VIK_ADJACENT_EC) show /inr000 51000001 def} if xchart3 1 eq {(KA_EC098=KIT_ADJACENT_EC) show /inr000 52000001 def} if xchart3 2 eq {(KS_EC098=KIT_SEPARATE_EC) show /inr000 53000001 def} if xchart3 3 eq {(MA_EC098=MEL_ADJACENT_EC) show /inr000 54000001 def} if } if %xchart4=0 xchart4 1 eq {%xchart4=1 xchart3 0 eq {(VA_ED098=VIK_ADJACENT_ED) show /inr000 55000001 def} if xchart3 1 eq {(KA_ED098=KIT_ADJACENT_ED) show /inr000 56000001 def} if xchart3 2 eq {(KS_ED098=KIT_SEPARATE_ED) show /inr000 57000001 def} if xchart3 3 eq {(MA_ED098=MEL_ADJACENT_ED) show /inr000 58000001 def} if } if %xchart3=1 xchart4 2 eq {%xchart4=2 xchart3 0 eq {(VA_EW098=VIK_ADJACENT_EW) show /inr000 61000001 def} if xchart3 1 eq {(KA_EW098=KIT_ADJACENT_EW) show /inr000 62000001 def} if xchart3 2 eq {(KS_EW098=KIT_SEPARATE_EW) show /inr000 63000001 def} if xchart3 3 eq {(MA_EW098=MEL_ADJACENT_EW) show /inr000 64000001 def} if } if %xchart4=2 xchart4 3 eq {%xchart4=3 xchart3 0 eq {(VA_EV098=VIK_ADJACENT_EV) show /inr000 65000001 def} if xchart3 1 eq {(KA_EV098=KIT_ADJACENT_EV) show /inr000 66000001 def} if xchart3 2 eq {(KS_EV098=KIT_SEPARATE_EV) show /inr000 67000001 def} if xchart3 3 eq {(MA_EV098=MEL_ADJACENT_EV) show /inr000 68000001 def} if } if %xchart4=2 } if %ioutn=0 ioutn 1 eq {%ioutn=1 xchart4 2 eq {%xchart4=2 xchart3 0 eq {(VA_EW098=VIK_ADJACENT_EW) show /inr000 41000001 def} if xchart3 1 eq {(Ka_EW098=KIT_ADJACENT_EW) show /inr000 42000001 def} if xchart3 2 eq {(Ks_EW098=KIT_SEPARATE_EW) show /inr000 43000001 def} if xchart3 3 eq {(Ma_EW098=MEL_ADJACENT_EW) show /inr000 44000001 def} if } if %xchart4=2 xchart4 3 eq {%xchart4=3 xchart3 0 eq {(Vs_EV098=VIK_ADJACENT_EV) show /inr000 45000001 def} if xchart3 1 eq {(Ka_EV098=KIT_ADJACENT_EV) show /inr000 46000001 def} if xchart3 2 eq {(Ks_EV098=KIT_SEPARATE_EV) show /inr000 47000001 def} if xchart3 3 eq {(Ma_EV098=MEL_ADJACENT_EV) show /inr000 48000001 def} if } if %xchart4=3 } if %ioutn=1 (, ioutn=) show ioutn cvishow (, iouts=) show iouts cvishow ( % ) show ii iimaxP1 lt {%ii=1 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=1 /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {%xt=0,1 ifelse /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto (http://130.149.60.45/~farbmetrik/XE67/XE67) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/XE67/XE67) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/XE67/XE67.HTM) show } %xt=0 { %xt=1 /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 0 setgray 12 /Times-ISOL1 FS 61 MM 13.5 MM moveto (TUB\255Pr\374fvorlage XE67; ) showde %0XE67X-Y 0000# (TUB\255test chart XE67; ) showen %1XE67X-Y 0000# (gr\341fico TUB\255XE67; ) showes %2XE67X-Y 0000# (TUB\255test graphique XE67; ) showfr %3XE67X-Y 0000# (grafico TUB\255XE67; ) showit %4XE67X-Y 0000# (TUB\255test chart XE67; ) showjp %5XE67X-Y 0000# (Farbabst\344nde und -Formeln) showde %0XE67X-Y 0200# (Colour differences and formulae) showea %1XE67X-Y 0200# 61 MM 09.5 MM moveto 12 /TimesI-ISOL1 FS /ioutn 0 def %Series XK41..01..XK48: ioutn=1 % XK41..01..XK44: WANG_ELCD (xchart3=0,1,2,3, xchart4=2) REL % XK45..01..XK48: VIK_ELCD (xchart3=0,1,2,3, xchart4=3) REL %Series XK51..01..XK58: ioutn=0 % XK51..01..XK54: CIELAB (xchart3=0,1,2,3, xchart4=0) % XK55..01..XK58: CIEDE2000 (xchart3=0,1,2,3, xchart4=1) %Series XK61..01..XK68: ioutn=0 % XK61..01..XK64: WANG-ELCD (xchart3=0,1,2,3, xchart4=2) Pair C % XK65..01..XK68: VIK-ELCD (xchart3=0,1,2,3, xchart4=3) Pair C %xchart3=0,1,2,3=VA, KA, KS, MA ioutn 0 eq {%ioutn=0 xchart4 0 eq {%xchart4=0, XK51..XK54 xchart3 0 eq {(VA_EC098=VIK_ADJACENT_EC) show} if xchart3 1 eq {(KA_EC098=KIT_ADJACENT_EC) show} if xchart3 2 eq {(KS_EC098=KIT_SEPARATE_EC) show} if xchart3 3 eq {(MA_EC098=MEL_ADJACENT_EC) show} if } if %xchart4=0 xchart4 1 eq {%xchart4=1, XK55..XK58 xchart3 0 eq {(VA_ED098=VIK_ADJACENT_ED) show} if xchart3 1 eq {(KA_ED098=KIT_ADJACENT_ED) show} if xchart3 2 eq {(KS_ED098=KIT_SEPARATE_ED) show} if xchart3 3 eq {(MA_ED098=MEL_ADJACENT_ED) show} if } if %xchart4=1 xchart4 2 eq {%xchart4=2, XK61..XK64 xchart3 0 eq {(VA_EW098=VIK_ADJACENT_EW) show} if xchart3 1 eq {(KA_EW098=KIT_ADJACENT_EW) show} if xchart3 2 eq {(KS_EW098=KIT_SEPARATE_EW) show} if xchart3 3 eq {(MA_EW096=MEL_ADJACENT_EW) show} if } if %xchart4=2 xchart4 3 eq {%xchart4=3, XK65..XK68 xchart3 0 eq {(VA_EV098=VIK_ADJACENT_EW) show} if xchart3 1 eq {(KA_EV098=KIT_ADJACENT_EW) show} if xchart3 2 eq {(KS_EV098=KIT_SEPARATE_EW) show} if xchart3 3 eq {(MA_EV096=MEL_ADJACENT_EW) show} if } if %xchart4=3 } if %ioutn=0 ioutn 1 eq {%ioutn=1 xchart4 0 eq {%xchart4=0, XK41..XK44 xchart3 0 eq {(VA_EW098=VIK_ADJACENT_EW) show} if xchart3 1 eq {(Ka_EW098=KIT_ADJACENT_EW) show} if xchart3 2 eq {(Ks_EW098=KIT_SEPARATE_EW) show} if xchart3 3 eq {(Ma_EW098=MEL_ADJACENT_EW) show} if } if %xchart4=0 xchart4 1 eq {%xchart4=1, XK45..XK48 xchart3 0 eq {(VA_EV098=VIK_ADJACENT_EV) show} if xchart3 1 eq {(Ka_EV098=KIT_ADJACENT_EV) show} if xchart3 2 eq {(Ks_EV098=KIT_SEPARATE_EV) show} if xchart3 3 eq {(Ma_EV098=MEL_ADJACENT_EV) show} if } if %xchart4=1 } if %ioutn=1 12 /Times-ISOL1 FS (, Farbdifferenz\255Experimente) showde %0XE67X-Y 0200# (, colour difference experiments) showea %0XE67X-Y 0200# /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 xc5a xc4d add def %xchart xc1a ge xchart xc2e le and %{(, alle Farben von ) showde % (, all colours of ) showen % iimp cvishow %} if %xchart xc3a ge xchart xc4e le and %{(, xxx? Farben von ) showde % (, xxx? colours of ) showen % iimp cvishow (, ) show %12 /Symbol FS (D) show %12 /TimesI-ISOL1 FS (E*) show 10 /Times-ISOL1 FS %0 -2 rmoveto (CIELAB) show 0 2 rmoveto %12 /Times-ISOL1 FS (<=2) show} if %xchart xc5a ge xchart xc6e le and %{(, xxx? Farben von ) showde % (, xxx? colours of ) showen % iimp cvishow (, ) show %12 /Symbol FS (D) show %12 /TimesI-ISOL1 FS (E*) show 10 /Times-ISOL1 FS %0 -2 rmoveto (DE2000) show 0 2 rmoveto %12 /Times-ISOL1 FS (<=2) show} if %xchart 1 ge {%xchart>=1 %12 /Times-ISOL1 FS %(, 3D=) show colorm cvishow %(, de=) show deintp cvishow %12 /TimesI-ISOL1 FS %xchart5f 0 eq {(, sRGB) show} if %xchart5f 1 eq {(, cmyk) show} if %xchart5f 2 eq {(, cmy0) show} if %xchart5f 3 eq {(, cmyk) show} if %colorm 1 eq {(*) show} if %} if %xchart>=1 12 /Times-ISOL1 FS 165 MM 13 MM moveto (Eingabe: ) showde %0XE67X-Y 0500# (input: ) showen %1XE67X-Y 0500# (entrada: ) showes %2XE67X-Y 0500# (entr\351e: ) showfr %3XE67X-Y 0500# (immettere: ) showit %4XE67X-Y 0500# (input: ) showjp %5XE67X-Y 0500# 12 /TimesI-ISOL1 FS (w/rgb/cmyk -> (w/rgb/cmyk)) show %xchart xchart3 lt {(w/rgb/cmyk) show % } if %xchart xchart3 ge {%xchart>=xchart3 % (rgb) show % } if %xchart>=xchart3 %10 /Times-ISOL1 FS %0 -2 rmoveto Txx show 0 2 rmoveto %12 /Times-ISOL1 FS /idat 0 def idat 1 eq {%idat=1 12 /Times-ISOL1 FS 165 MM 9 MM moveto (Ausgabe: ) showde %0XE67X-Y 0600# (output: ) showen %1XE67X-Y 0600# (salida: ) showes %2XE67X-Y 0600# (sortie: ) showfr %3XE67X-Y 0600# (uscita: ) showit %4XE67X-Y 0600# (output: ) showjp %5XE67X-Y 0600# %colorm=0,1! 12 /Times-ISOL1 FS xchart 0 eq {%xchart=0,#0 12 /Times-ISOL1 FS (keine \304nderung) showde %0XE67X-Y 0700# (no change) showen %1XE67X-Y 0700# (ning\372n cambio) showes %2XE67X-Y 0700# (aucun changement) showfr %3XE67X-Y 0700# (nessun cambiamento) showit %4XE67X-Y 0700# (no change compared) showjp %5XE67X-Y 0700# }%xchart=0 {%xchart#0 12 /Times-ISOL1 FS colorm 0 eq {%colorm=0 (Transfer nach ) showde %0XE67X-Y 0800# (transfer to ) showen %1XE67X-Y 0800# (transfiera a ) showes %2XE67X-Y 0800# (transf\351rer \340 ) showfr %3XE67X-Y 0800# (trasferire a ) showit %4XE67X-Y 0800# (transfer to ) showjp %5XE67X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0XE67X-Y 0900# (3D\255linearization to ) showen %1XE67X-Y 0900# (3D\255linealizaci\363n a ) showes %2XE67X-Y 0900# (linearisation 3D selon ) showfr %3XE67X-Y 0900# (3D\255linearizzazione a ) showit %4XE67X-Y 0900# (3D\255linearization to ) showjp %5XE67X-Y 0900# } ifelse %colorm=1 12 /TimesI-ISOL1 FS xchart5f 0 eq {(rgb) show} if xchart5f 1 eq {(cmyk) show} if xchart5f 2 eq {(cmy0) show} if xchart5f 3 eq {(cmyk) show} if colorm 1 eq {(*) show} if 10 /Times-ISOL1 FS 0 -2 rmoveto Txx show 0 2 rmoveto 12 /Times-ISOL1 FS } ifelse %xchart=0,#0 } if %idat=1 %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (http://130.149.60.45/~farbmetrik/XE67/XE67L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde %0XE67X-Y 1000# (start output) showen %1XE67X-Y 1000# (comience salida) showes %2XE67X-Y 1000# (sortie de production) showfr %3XE67X-Y 1000# (cominciare l'uscita) showit %4XE67X-Y 1000# (start output) showjp %5XE67X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0XE67X-Y 1100# (start output) showen %1XE67X-Y 1100# (comience salida) showes %2XE67X-Y 1100# (sortie de production) showfr %3XE67X-Y 1100# (cominciare l'uscita) showit %4XE67X-Y 1100# (start output) showjp %5XE67X-Y 1100# } if xchart 1 ge {%xchart>=1 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0XE67X-Y 1200# (transfer output) showen %1XE67X-Y 1200# (salida de transferencia) showes %2XE67X-Y 1200# (sortie de transfert) showfr %3XE67X-Y 1200# (uscita di trasferimento) showit %4XE67X-Y 1200# (transfer output) showjp %5XE67X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0XE67X-Y 1300# (3D\255linearization) showen %1XE67X-Y 1300# (3D\255linealizaci\363n) showes %2XE67X-Y 1300# (linearisation 3D) showfr %3XE67X-Y 1300# (3D\255linearizzzazione) showit %4XE67X-Y 1300# (3D\255linearization) showjp %5XE67X-Y 1300# } ifelse %colorm=0,1 } if %xchart>=1 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0XE67X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1XE67X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2XE67X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3XE67X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4XE67X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5XE67X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0XE67X-Y 1500# (in file (F) or PS\255startup (S)) showen %1XE67X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2XE67X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3XE67X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4XE67X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5XE67X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0XE67X-Y 1600# (3D\255linearization) showen %1XE67X-Y 1600# (3D\255linealizaci\363n) showes %2XE67X-Y 1600# (linearisation 3D) showfr %3XE67X-Y 1600# (3D\255linearizzzazione) showit %4XE67X-Y 1600# (3D\255linearization) showjp %5XE67X-Y 1600# ( XE67/XE67L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0XE67X-Y 1700# ( in file (F)) showen %1XE67X-Y 1700# ( en archivo (F)) showes %2XE67X-Y 1700# ( dans fichier (F)) showfr %3XE67X-Y 1700# ( nel file (F)) showit %4XE67X-Y 1700# ( in file (F)) showjp %5XE67X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0XE67X-Y 1800# ( in Distiller Startup (S) Directory) showen %1XE67X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2XE67X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3XE67X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4XE67X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5XE67X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0XE67X-Y 1900# ( in PS\255device (D)) showen %1XE67X-Y 1900# ( en el PS\255device (D)) showes %2XE67X-Y 1900# ( dans l'appareil PS (D)) showfr %3XE67X-Y 1900# ( nel PS\255dispositivo (D)) showit %4XE67X-Y 1900# ( in PS\255Device (D)) showjp %5XE67X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0XE67X-Y 2000# ( in Distiller Startup (S) Directory) showen %1XE67X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2XE67X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3XE67X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4XE67X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5XE67X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0XE67X-Y 2100# ( in PS\255device (D)) showen %1XE67X-Y 2100# ( en el PS\255device (D)) showes %2XE67X-Y 2100# ( dans appareil PS (D)) showfr %3XE67X-Y 2100# ( nel PS\255dispositivo (D)) showit %4XE67X-Y 2100# ( in PS\255Device (D)) showjp %5XE67X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0XE67X-Y 2200# (, page ) showen %1XE67X-Y 2200# (, p\341gina ) showes %2XE67X-Y 2200# (, page ) showfr %3XE67X-Y 2200# (, pagina ) showit %4XE67X-Y 2200# (, page ) showjp %5XE67X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0XE67X-Y 2300# (see similar files: ) showen %1XE67X-Y 2300# (vea archivos semejantes: ) showes %2XE67X-Y 2300# (voir des fichiers similaires: ) showfr %3XE67X-Y 2300# (vedere dei file simili: ) showit %4XE67X-Y 2300# (see similar files: ) showjp %5XE67X-Y 2300# (http://130.149.60.45/~farbmetrik/XE67/XE67.HTM) show %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0XE67X-Y 2400# (technical information: ) showen %1XE67X-Y 2400# (informaci\363n t\351cnica: ) showes %2XE67X-Y 2400# (informations techniques: ) showfr %3XE67X-Y 2400# (informazioni tecniche: ) showit %4XE67X-Y 2400# (technical information: ) showjp %5XE67X-Y 2400# (http://www.ps.bam.de) show ( oder ) showde %0XE67X-Y 2500# ( or ) showen %1XE67X-Y 2500# ( o ) showes %2XE67X-Y 2500# ( ou ) showfr %3XE67X-Y 2500# ( o ) showit %4XE67X-Y 2500# ( or ) showjp %5XE67X-Y 2500# (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20140801\255XE67/XE67L) showde %0XE67X-Y 2600# (TUB registration: 20140801\255XE67/XE67L) showen %1XE67X-Y 2600# (TUB matr\355cula: 20140801\255XE67/XE67L) showes %2XE67X-Y 2600# (TUB enregistrement: 20140801\255XE67/XE67L) showfr %3XE67X-Y 2600# (TUB iscrizione: 20140801\255XE67/XE67L) showit %4XE67X-Y 2600# (TUB registration: 20140801\255XE67/XE67L) showjp %5XE67X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0XE67X-Y 2700# (TUB material: code=rha4ta) showen %1XE67X-Y 2700# (TUB material: code=rha4ta) showes %2XE67X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3XE67X-Y 2700# (TUB materiale: code=rha4ta) showit %4XE67X-Y 2700# (TUB material: code=rha4ta) showjp %5XE67X-Y 2700# 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Messung ) showde %0XE67X-Y 2800# ( application for measurement ) showen %1XE67X-Y 2800# ( aplicaci\363n para la medida ) showes %2XE67X-Y 2800# ( application pour la mesure ) showfr %3XE67X-Y 2800# ( la domanda per la misura ) showit %4XE67X-Y 2800# ( application for measurement ) showjp %5XE67X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display- oder Drucker-Ausgabe) showde %0XE67X-Y 2900# (of display or printer output) showen %1XE67X-Y 2900# (de display output) showes %2XE67X-Y 2900# (de sortie sur \350cran) showfr %3XE67X-Y 2900# (di stampa di display) showit %4XE67X-Y 2900# (of display output) showjp %5XE67X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0XE67X-Y 3000# (of offset print output) showen %1XE67X-Y 3000# (salida en la impressi\363n offset) showes %2XE67X-Y 3000# (des sorties sur offset) showfr %3XE67X-Y 3000# (uscita nella stampa di offset) showit %4XE67X-Y 3000# (of offset print output) showjp %5XE67X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0XE67X-Y 3100# (of laser printer output) showen %1XE67X-Y 3100# (salida de impresora l\341ser) showes %2XE67X-Y 3100# (des sorties sur imprimante laser) showfr %3XE67X-Y 3100# (di uscita della stampante laser) showit %4XE67X-Y 3100# (of laser printer output) showjp %5XE67X-Y 3100# } if %xchart5f=3 xchart 1 ge {%xchart>=1 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0XE67X-Y 3200# (, no separation) showen %1XE67X-Y 3200# (, ninguna separaci\363n) showes %2XE67X-Y 3200# (, aucune s\351paration) showfr %3XE67X-Y 3200# (, nessuna separazione) showit %4XE67X-Y 3200# (, no separation) showjp %5XE67X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0XE67X-Y 3300# (, separation) showen %1XE67X-Y 3300# (, separaci\363n) showes %2XE67X-Y 3300# (, s\351paration) showfr %3XE67X-Y 3300# (, separazione) showit %4XE67X-Y 3300# (, separation) showjp %5XE67X-Y 3300# xchart5f 1 eq xchart5f 3 eq or {(cmyn6) show} if xchart5f 2 eq {(cmy0) show} if colorm 1 eq {(*) show} if colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show } if %xchart5f>=1 } if %xchart>=1 IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke } ifelse %xt=1 grestore gsave %********************************************************** %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 } for %xchartf=0,53 %} for %xcolorf=3,3 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer