%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/XE84/XE84L00XX.PS 20140801 %%BoundingBox: 14 08 828 584 /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/XE84) /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:2014080112000) /ModDate (D:20140810112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 /sfgray {setgray} bind def %Early Frame File (f) definition /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** %BEG XE84/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 XE84/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %BEG XE84/OUTLIN1X.PS 20110801 %EMPTY %END XE84/OUTLIN1X.PS 20110801 %BEG XE84/OUTLIN1Y2.PS Emty 20101101 %END XE84/OUTLIN1Y2.PS Emty 20101101 /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 /iimp 128 def /xc0d 06 def /xc2d 06 def /xc4d 06 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 01 def /xchart4f 01 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$ 0 get def /GEY$ EY$ 0 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %11 %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 XE840-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 (XE840-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 XE840-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 (XE840-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 XE840-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 (XE840-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 XE840-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 (XE840-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 XE840-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 (XE840-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 XE840-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 (XE840-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 XE840-7N %%BoundingBox: 70 83 795 587 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/XE84/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@me.com) /CreationDate (D:2015120112000) /ModDate (D:2015120112000) /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 /Wdata1 [ %'XK0X'XE840-7T.TXT %LCD_datasets_0292_Guan.txt, 20150216, from ME17AG/Melgosa_15: LCD_datasets.xlsx %Reference White, Sample 1, Sample 2, Vis. Dif, LCD_datasets, Export Tabstop separated txt %X0 Y0 Z0 X1 Y1 Z1 X2 Y2 Z2 dV 94.811 100 107.304 26.761 19.47 3.235 28.36625 18.35 2.07349 12.28 94.811 100 107.304 23.547 18.32 3.079 26.15083 18.37 2.04442 8.34 94.811 100 107.304 26.761 19.47 3.235 23.56484 18.08 2.02627 9 94.811 100 107.304 22.31 18.78 3.036 23.56507 18.08 2.02649 9.1 94.811 100 107.304 23.547 18.32 3.079 20.40125 17.21 2.03398 11.12 94.811 100 107.304 18.372 17.18 2.891 20.40175 17.21 2.03391 9.62 94.811 100 107.304 22.31 18.78 3.036 19.60567 18.14 2.19274 8.9 94.811 100 107.304 17.977 18.46 3.194 19.60625 18.14 2.19237 10.69 94.811 100 107.304 22.965 17.83 4.97 26.76156 19.47 3.23503 10.44 94.811 100 107.304 25.695 18.6 5.147 23.54731 18.32 3.07889 10.41 94.811 100 107.304 21.301 18.1 4.994 23.5473 18.32 3.07833 8.09 94.811 100 107.304 22.965 17.83 4.97 22.31024 18.78 3.0358 10.54 94.811 100 107.304 19.014 17.75 4.961 22.30976 18.78 3.03572 10.09 94.811 100 107.304 21.301 18.1 4.994 18.37182 17.18 2.89048 11.74 94.811 100 107.304 16.67 17.25 4.748 18.37173 17.18 2.89042 10.22 94.811 100 107.304 19.014 17.75 4.961 17.97626 18.46 3.19411 10.42 94.811 100 107.304 16.914 19.19 5.21 17.97688 18.46 3.19459 9.97 94.811 100 107.304 16.67 17.25 4.748 15.44483 17.66 3.20981 10.47 94.811 100 107.304 13.891 17.73 5.041 15.44433 17.66 3.21018 11.11 94.811 100 107.304 16.914 19.19 5.21 14.10486 17.79 3.30558 9.18 94.811 100 107.304 23.07 17.99 7.549 25.69534 18.6 5.14697 10.74 94.811 100 107.304 26.484 18.89 7.957 22.96449 17.83 4.97004 12.19 94.811 100 107.304 22.444 19.03 7.788 22.96493 17.83 4.96974 8.7 94.811 100 107.304 23.07 17.99 7.549 21.30127 18.1 4.99455 12.86 94.811 100 107.304 19.441 18.84 7.941 21.30103 18.1 4.99456 10.83 94.811 100 107.304 22.444 19.03 7.788 19.0144 17.75 4.96086 11.56 94.811 100 107.304 17.204 17.74 7.608 19.01443 17.75 4.96084 10.6 94.811 100 107.304 19.441 18.84 7.941 16.67007 17.25 4.74856 10.02 94.811 100 107.304 15.631 17.9 7.733 16.67045 17.25 4.74869 10.15 94.811 100 107.304 17.204 17.74 7.608 16.9138 19.19 5.20929 11.29 94.811 100 107.304 14.978 18.9 7.497 16.91398 19.19 5.20948 10.11 94.811 100 107.304 15.631 17.9 7.733 13.89183 17.73 5.04129 9.07 94.811 100 107.304 12.52 17.73 7.37 13.89173 17.73 5.04142 9.07 94.811 100 107.304 23.778 18.75 11.305 26.48441 18.89 7.95714 10.39 94.811 100 107.304 25.855 18.63 11.394 23.06947 17.99 7.54916 12.96 94.811 100 107.304 21.956 18.95 11.471 23.06918 17.99 7.5493 9.75 94.811 100 107.304 23.778 18.75 11.305 22.44388 19.03 7.78844 11.86 94.811 100 107.304 19.732 19.18 10.394 22.44365 19.03 7.78867 11.08 94.811 100 107.304 21.956 18.95 11.471 19.4405 18.84 7.94129 11.68 94.811 100 107.304 18.048 18.59 10.907 19.4409 18.84 7.94111 10.43 94.811 100 107.304 19.732 19.18 10.394 17.20365 17.74 7.6086 9.91 94.811 100 107.304 15.306 17.61 10.32 17.20431 17.74 7.60791 10.52 94.811 100 107.304 18.048 18.59 10.907 15.63052 17.9 7.73292 10.67 94.811 100 107.304 13.909 17.66 10.811 15.63019 17.9 7.73249 9.38 94.811 100 107.304 15.306 17.61 10.32 14.97812 18.9 7.4967 7.44 94.811 100 107.304 12.954 18.21 9.204 14.97758 18.9 7.49721 9.85 94.811 100 107.304 13.909 17.66 10.811 12.51946 17.73 7.36941 7.44 94.811 100 107.304 24.157 19 15.25 25.85473 18.63 11.39351 7.95 94.811 100 107.304 26.667 19.25 15.841 23.77787 18.75 11.30496 11.73 94.811 100 107.304 21.054 18.29 15.074 23.77753 18.75 11.30506 9.64 94.811 100 107.304 24.157 19 15.25 21.95611 18.95 11.47039 12.47 94.811 100 107.304 19.177 18.53 14.89 21.95648 18.95 11.47031 10.51 94.811 100 107.304 21.054 18.29 15.074 19.73183 19.18 10.39383 12.07 94.811 100 107.304 16.865 17.48 14.881 19.73256 19.18 10.39375 11.21 94.811 100 107.304 19.177 18.53 14.89 18.04804 18.59 10.90654 10.19 94.811 100 107.304 16.212 18.48 14.826 18.04791 18.59 10.90713 10.13 94.811 100 107.304 16.865 17.48 14.881 15.30579 17.61 10.32048 10.35 94.811 100 107.304 14.078 18.16 14.956 15.30575 17.61 10.32076 9.91 94.811 100 107.304 16.212 18.48 14.826 13.90923 17.66 10.81162 7.89 94.811 100 107.304 12.494 17.77 13.995 13.90901 17.66 10.81158 10.48 94.811 100 107.304 24.486 19.43 20.571 26.66733 19.25 15.84056 10.96 94.811 100 107.304 21.696 18.81 19.744 24.15743 19 15.25034 10.04 94.811 100 107.304 24.486 19.43 20.571 21.05463 18.29 15.07353 12.76 94.811 100 107.304 19.288 18.67 19.755 21.05492 18.29 15.07385 9.48 94.811 100 107.304 21.696 18.81 19.744 19.17697 18.53 14.89037 11.84 94.811 100 107.304 17.654 18.26 19.202 19.17721 18.53 14.88982 10.3 94.811 100 107.304 19.288 18.67 19.755 16.86508 17.48 14.88087 10.44 94.811 100 107.304 15.68 18.33 19.524 16.86462 17.48 14.88106 12.65 94.811 100 107.304 17.654 18.26 19.202 16.21235 18.48 14.82517 11.99 94.811 100 107.304 14.436 18.48 18.936 16.21252 18.48 14.8253 10.22 94.811 100 107.304 15.68 18.33 19.524 14.07771 18.16 14.95573 8.74 94.811 100 107.304 12.042 16.98 18.782 14.07793 18.16 14.95537 10.01 94.811 100 107.304 14.436 18.48 18.936 12.4947 17.77 13.99444 8.26 94.811 100 107.304 10.348 17.28 18.986 12.4939 17.77 13.99467 12.35 94.811 100 107.304 12.042 16.98 18.782 11.23254 18.33 14.3311 11.1 94.811 100 107.304 22.072 18.61 26.021 24.48594 19.43 20.57172 9.91 94.811 100 107.304 18.862 17.79 25.681 21.69582 18.81 19.74352 12.28 94.811 100 107.304 22.072 18.61 26.021 19.28763 18.67 19.75526 12.19 94.811 100 107.304 17.85 18.79 24.806 19.28765 18.67 19.75542 11.66 94.811 100 107.304 18.862 17.79 25.681 17.65361 18.26 19.20216 12.7 94.811 100 107.304 15.415 17.73 24.72 17.65335 18.26 19.20239 13.77 94.811 100 107.304 17.85 18.79 24.806 15.68016 18.33 19.5242 10.99 94.811 100 107.304 13.319 17.11 23.889 15.68044 18.33 19.52393 10.8 94.811 100 107.304 15.415 17.73 24.72 14.43523 18.48 18.93621 11.85 94.811 100 107.304 13.319 17.11 23.889 12.04215 16.98 18.78233 10.73 94.811 100 107.304 11.265 19.05 28.755 12.04217 16.98 18.78206 15.04 94.811 100 107.304 19.027 17.72 30.99 22.07154 18.61 26.02097 13.05 94.811 100 107.304 17.705 18.71 31.498 18.86224 17.79 25.68143 12.88 94.811 100 107.304 19.027 17.72 30.99 17.84959 18.79 24.8058 12.9 94.811 100 107.304 15.12 18.11 32.913 17.84958 18.79 24.80567 14.71 94.811 100 107.304 17.705 18.71 31.498 15.41547 17.73 24.72015 9.8 94.811 100 107.304 12.705 16.25 28.587 15.41498 17.73 24.7201 10.29 94.811 100 107.304 15.12 18.11 32.913 13.31837 17.11 23.88897 12.04 94.811 100 107.304 18.152 18.69 35.91 19.02766 17.72 30.9893 12.4 94.811 100 107.304 18.152 18.69 35.91 15.12066 18.11 32.91247 14.15 94.811 100 107.304 26.151 18.37 2.044 28.36655 18.35 2.07336 7.71 94.811 100 107.304 23.565 18.08 2.026 26.15088 18.37 2.04383 9.65 94.811 100 107.304 26.761 19.47 3.235 26.15071 18.37 2.04412 4.79 94.811 100 107.304 20.401 17.21 2.034 23.56464 18.08 2.02658 8.72 94.811 100 107.304 23.547 18.32 3.079 23.56492 18.08 2.02655 4.96 94.811 100 107.304 19.606 18.14 2.193 20.40173 17.21 2.03418 8.8 94.811 100 107.304 22.31 18.78 3.036 20.40137 17.21 2.03392 4.02 94.811 100 107.304 18.372 17.18 2.891 19.60603 18.14 2.19273 3.47 94.811 100 107.304 23.547 18.32 3.079 26.76111 19.47 3.23532 6.98 94.811 100 107.304 25.695 18.6 5.147 26.76146 19.47 3.23521 8.09 94.811 100 107.304 22.31 18.78 3.036 23.54715 18.32 3.07894 9.67 94.811 100 107.304 22.965 17.83 4.97 23.5474 18.32 3.07873 7.07 94.811 100 107.304 18.372 17.18 2.891 22.31042 18.78 3.036 9.29 94.811 100 107.304 21.301 18.1 4.994 22.31017 18.78 3.0354 6.82 94.811 100 107.304 17.977 18.46 3.194 18.37221 17.18 2.89065 10.09 94.811 100 107.304 19.014 17.75 4.961 18.37146 17.18 2.89076 7.94 94.811 100 107.304 15.445 17.66 3.21 17.97674 18.46 3.19397 9.98 94.811 100 107.304 16.67 17.25 4.748 17.97653 18.46 3.19376 5.56 94.811 100 107.304 14.105 17.79 3.305 15.44523 17.66 3.20997 8.93 94.811 100 107.304 16.914 19.19 5.21 15.4451 17.66 3.21057 4.55 94.811 100 107.304 13.891 17.73 5.041 14.10416 17.79 3.3052 4.55 94.811 100 107.304 22.965 17.83 4.97 25.69509 18.6 5.14682 9.27 94.811 100 107.304 26.484 18.89 7.957 25.69453 18.6 5.14686 7.98 94.811 100 107.304 21.301 18.1 4.994 22.9649 17.83 4.96957 8.31 94.811 100 107.304 23.07 17.99 7.549 22.96521 17.83 4.97014 8.9 94.811 100 107.304 19.014 17.75 4.961 21.30059 18.1 4.99432 10.33 94.811 100 107.304 22.444 19.03 7.788 21.30102 18.1 4.99417 7.55 94.811 100 107.304 16.67 17.25 4.748 19.01429 17.75 4.96063 11.13 94.811 100 107.304 19.441 18.84 7.941 19.01439 17.75 4.96123 7.02 94.811 100 107.304 16.914 19.19 5.21 16.67034 17.25 4.74886 9.72 94.811 100 107.304 17.204 17.74 7.608 16.67012 17.25 4.7482 6.94 94.811 100 107.304 13.891 17.73 5.041 16.91312 19.19 5.20949 8.57 94.811 100 107.304 15.631 17.9 7.733 16.91412 19.19 5.20981 7.71 94.811 100 107.304 14.978 18.9 7.497 13.89172 17.73 5.04099 5.46 94.811 100 107.304 23.07 17.99 7.549 26.48488 18.89 7.95717 8.69 94.811 100 107.304 25.855 18.63 11.394 26.48427 18.89 7.95734 8.17 94.811 100 107.304 22.444 19.03 7.788 23.0697 17.99 7.54854 8.72 94.811 100 107.304 23.778 18.75 11.305 23.06959 17.99 7.54897 7.88 94.811 100 107.304 19.441 18.84 7.941 22.44401 19.03 7.78846 12.09 94.811 100 107.304 21.956 18.95 11.471 22.44346 19.03 7.78877 8.46 94.811 100 107.304 17.204 17.74 7.608 19.44105 18.84 7.94055 8.37 94.811 100 107.304 19.732 19.18 10.394 19.44067 18.84 7.94119 6.25 94.811 100 107.304 15.631 17.9 7.733 17.20437 17.74 7.6086 10.17 94.811 100 107.304 18.048 18.59 10.907 17.20385 17.74 7.60852 6.95 94.811 100 107.304 14.978 18.9 7.497 15.63086 17.9 7.73263 8.9 94.811 100 107.304 15.306 17.61 10.32 15.63098 17.9 7.73233 6.88 94.811 100 107.304 12.52 17.73 7.37 14.97801 18.9 7.49751 8.55 94.811 100 107.304 13.909 17.66 10.811 14.97736 18.9 7.49688 7.41 94.811 100 107.304 12.954 18.21 9.204 12.51964 17.73 7.36972 5.07 94.811 100 107.304 23.778 18.75 11.305 25.85514 18.63 11.39379 9.32 94.811 100 107.304 26.667 19.25 15.841 25.855 18.63 11.39374 9.49 94.811 100 107.304 21.956 18.95 11.471 23.77754 18.75 11.30536 8.78 94.811 100 107.304 24.157 19 15.25 23.77763 18.75 11.30473 9.18 94.811 100 107.304 19.732 19.18 10.394 21.9562 18.95 11.4709 10.34 94.811 100 107.304 21.054 18.29 15.074 21.95601 18.95 11.47071 10.26 94.811 100 107.304 18.048 18.59 10.907 19.73224 19.18 10.39392 8.19 94.811 100 107.304 19.177 18.53 14.89 19.73228 19.18 10.39345 9.34 94.811 100 107.304 15.306 17.61 10.32 18.04852 18.59 10.90631 11.61 94.811 100 107.304 16.865 17.48 14.881 18.0483 18.59 10.90683 8.59 94.811 100 107.304 13.909 17.66 10.811 15.30518 17.61 10.32013 9.36 94.811 100 107.304 16.212 18.48 14.826 15.30544 17.61 10.32075 7.08 94.811 100 107.304 12.954 18.21 9.204 13.90922 17.66 10.8114 8.22 94.811 100 107.304 14.078 18.16 14.956 13.90952 17.66 10.81163 6.67 94.811 100 107.304 12.494 17.77 13.995 12.95379 18.21 9.20417 8.11 94.811 100 107.304 24.157 19 15.25 26.66671 19.25 15.8407 7.99 94.811 100 107.304 21.054 18.29 15.074 24.15689 19 15.25037 8.22 94.811 100 107.304 24.486 19.43 20.571 24.15758 19 15.24986 7.61 94.811 100 107.304 19.177 18.53 14.89 21.0545 18.29 15.07359 8.9 94.811 100 107.304 21.696 18.81 19.744 21.05448 18.29 15.07398 7.78 94.811 100 107.304 16.865 17.48 14.881 19.1773 18.53 14.89038 9.36 94.811 100 107.304 19.288 18.67 19.755 19.17738 18.53 14.89024 10.26 94.811 100 107.304 16.212 18.48 14.826 16.8646 17.48 14.8813 8.83 94.811 100 107.304 17.654 18.26 19.202 16.86493 17.48 14.88047 7.09 94.811 100 107.304 14.078 18.16 14.956 16.21235 18.48 14.82604 8.01 94.811 100 107.304 15.68 18.33 19.524 16.21202 18.48 14.82576 9.47 94.811 100 107.304 12.494 17.77 13.995 14.07743 18.16 14.95589 7.57 94.811 100 107.304 14.436 18.48 18.936 14.07818 18.16 14.95529 8.26 94.811 100 107.304 11.232 18.33 14.331 12.4939 17.77 13.99441 7.33 94.811 100 107.304 12.042 16.98 18.782 12.49447 17.77 13.99451 10.13 94.811 100 107.304 10.348 17.28 18.986 11.23199 18.33 14.33126 8.69 94.811 100 107.304 21.696 18.81 19.744 24.48584 19.43 20.57156 6.33 94.811 100 107.304 22.072 18.61 26.021 21.69609 18.81 19.74415 10.75 94.811 100 107.304 19.288 18.67 19.755 21.69648 18.81 19.74388 7.55 94.811 100 107.304 18.862 17.79 25.681 19.2874 18.67 19.75466 10.92 94.811 100 107.304 17.654 18.26 19.202 19.28781 18.67 19.75448 9.4 94.811 100 107.304 15.68 18.33 19.524 17.65365 18.26 19.20269 11.13 94.811 100 107.304 17.85 18.79 24.806 17.65383 18.26 19.20289 9.37 94.811 100 107.304 14.436 18.48 18.936 15.68054 18.33 19.5235 7.03 94.811 100 107.304 15.415 17.73 24.72 15.67972 18.33 19.52371 9.65 94.811 100 107.304 12.042 16.98 18.782 14.43573 18.48 18.93607 8.05 94.811 100 107.304 13.319 17.11 23.889 14.4359 18.48 18.93641 10.01 94.811 100 107.304 10.348 17.28 18.986 12.04139 16.98 18.78212 7.68 94.811 100 107.304 11.265 19.05 28.755 10.34873 17.28 18.98594 13.92 94.811 100 107.304 18.862 17.79 25.681 22.07169 18.61 26.0202 11.61 94.811 100 107.304 17.85 18.79 24.806 18.86227 17.79 25.68196 11.11 94.811 100 107.304 19.027 17.72 30.99 18.86184 17.79 25.68173 6.89 94.811 100 107.304 15.415 17.73 24.72 17.84947 18.79 24.80535 10.2 94.811 100 107.304 17.705 18.71 31.498 17.84999 18.79 24.8055 8.92 94.811 100 107.304 13.319 17.11 23.889 15.41578 17.73 24.72035 9.78 94.811 100 107.304 15.12 18.11 32.913 15.41509 17.73 24.72031 10.75 94.811 100 107.304 12.705 16.25 28.587 13.31828 17.11 23.88876 9.89 94.811 100 107.304 17.705 18.71 31.498 19.02744 17.72 30.98968 13.17 94.811 100 107.304 15.12 18.11 32.913 17.70455 18.71 31.49817 11.89 94.811 100 107.304 18.152 18.69 35.91 17.70523 18.71 31.49762 4.79 94.811 100 107.304 12.705 16.25 28.587 15.11988 18.11 32.91271 6.59 94.811 100 107.304 25.695 18.6 5.147 17.5991 11.7 2.33121 14.48 94.811 100 107.304 22.965 17.83 4.97 15.52176 11.38 2.36786 12.53 94.811 100 107.304 21.301 18.1 4.994 14.42909 11.77 2.3617 11.69 94.811 100 107.304 19.014 17.75 4.961 13.85357 12.43 2.3633 9.45 94.811 100 107.304 16.67 17.25 4.748 11.143 11.46 2.35859 10.68 94.811 100 107.304 16.914 19.19 5.21 9.35969 10.91 2.33274 13.64 94.811 100 107.304 13.891 17.73 5.041 8.4753 11.3 2.53436 11.13 94.811 100 107.304 26.484 18.89 7.957 17.93059 11.81 3.7247 14.62 94.811 100 107.304 23.07 17.99 7.549 16.93427 12.37 3.74443 12.75 94.811 100 107.304 19.441 18.84 7.941 13.10191 12.03 3.75871 11.9 94.811 100 107.304 17.204 17.74 7.608 12.13422 12.81 4.06382 9.79 94.811 100 107.304 15.631 17.9 7.733 9.40896 11 3.5932 10.45 94.811 100 107.304 14.978 18.9 7.497 8.80003 11.9 3.96331 12.42 94.811 100 107.304 12.52 17.73 7.37 7.5166 11.72 3.8984 11.23 94.811 100 107.304 25.855 18.63 11.394 17.74238 11.77 6.18685 13.3 94.811 100 107.304 23.778 18.75 11.305 17.16846 11.17 5.55117 13.7 94.811 100 107.304 21.956 18.95 11.471 14.68844 12.25 6.24141 12.07 94.811 100 107.304 19.732 19.18 10.394 13.97132 12.83 6.18922 10.51 94.811 100 107.304 18.048 18.59 10.907 12.51338 12.87 6.17636 10.03 94.811 100 107.304 15.306 17.61 10.32 9.73884 11.46 6.12594 8.92 94.811 100 107.304 13.909 17.66 10.811 8.62466 11.92 6.05026 10.55 94.811 100 107.304 26.667 19.25 15.841 17.40139 11.77 9.53292 12.54 94.811 100 107.304 21.054 18.29 15.074 15.41699 13.02 9.9812 9.61 94.811 100 107.304 19.177 18.53 14.89 12.98682 12.11 9.28691 10.41 94.811 100 107.304 16.865 17.48 14.881 12.50786 13.35 9.68557 7.9 94.811 100 107.304 16.212 18.48 14.826 10.6169 12.59 9.62251 9.8 94.811 100 107.304 14.078 18.16 14.956 9.06885 12.21 9.33841 9.1 94.811 100 107.304 24.486 19.43 20.571 16.48491 12.39 13.38278 11.39 94.811 100 107.304 19.288 18.67 19.755 13.5716 12.66 12.87902 9.13 94.811 100 107.304 17.654 18.26 19.202 11.41346 12.13 12.65455 9.32 94.811 100 107.304 15.68 18.33 19.524 10.17096 12.35 13.14184 8.87 94.811 100 107.304 14.436 18.48 18.936 8.94715 12.28 13.17071 10.16 94.811 100 107.304 22.072 18.61 26.021 15.07362 12.72 17.99506 9.78 94.811 100 107.304 18.862 17.79 25.681 12.96898 12.04 17.22143 9.53 94.811 100 107.304 17.85 18.79 24.806 11.55076 12.4 17.47966 11.11 94.811 100 107.304 15.415 17.73 24.72 10.0787 12.09 17.41836 10.35 94.811 100 107.304 17.705 18.71 31.498 11.4783 12.21 22.33515 11.98 94.811 100 107.304 26.151 18.37 2.044 39.77156 29.54 4.7231 15.96 94.811 100 107.304 20.401 17.21 2.034 32.8108 28.73 4.82516 16 94.811 100 107.304 19.606 18.14 2.193 30.43859 29.55 4.84353 15.75 94.811 100 107.304 26.761 19.47 3.235 39.28722 28.84 6.82009 14.61 94.811 100 107.304 23.547 18.32 3.079 36.06096 29.11 7.31406 14.33 94.811 100 107.304 22.31 18.78 3.036 32.5116 28.3 7.11937 14.24 94.811 100 107.304 18.372 17.18 2.891 29.71279 28.14 6.85243 14.18 94.811 100 107.304 17.977 18.46 3.194 27.66908 29.45 7.43637 14.46 94.811 100 107.304 15.445 17.66 3.21 24.15705 27.45 6.78473 12.8 94.811 100 107.304 14.105 17.79 3.305 22.68794 28.19 7.41431 13.76 94.811 100 107.304 22.965 17.83 4.97 35.37414 28.33 9.89957 14.71 94.811 100 107.304 21.301 18.1 4.994 34.09495 30.35 10.90195 15.14 94.811 100 107.304 19.014 17.75 4.961 31.20154 29.51 10.98351 15.04 94.811 100 107.304 16.67 17.25 4.748 28.10621 29.52 10.67467 14.09 94.811 100 107.304 16.914 19.19 5.21 26.23396 29.83 10.41825 13.06 94.811 100 107.304 13.891 17.73 5.041 22.74109 28.28 10.9955 13.77 94.811 100 107.304 22.444 19.03 7.788 33.9794 29.4 14.23374 14.07 94.811 100 107.304 19.441 18.84 7.941 31.31639 30.23 14.94689 14.7 94.811 100 107.304 17.204 17.74 7.608 29.01067 29.91 15.42652 13.64 94.811 100 107.304 15.631 17.9 7.733 24.98581 28.27 14.89881 14.17 94.811 100 107.304 14.978 18.9 7.497 22.61693 28.12 14.70444 13.33 94.811 100 107.304 12.52 17.73 7.37 21.13091 29.26 14.64694 16.83 94.811 100 107.304 21.956 18.95 11.471 33.04157 29.38 19.50815 13.48 94.811 100 107.304 19.732 19.18 10.394 31.16092 30 19.48439 14 94.811 100 107.304 18.048 18.59 10.907 29.8422 31.36 20.40114 11.97 94.811 100 107.304 15.306 17.61 10.32 26.54894 30.32 19.33121 13.2 94.811 100 107.304 13.909 17.66 10.811 24.16169 30.3 20.29664 14.11 94.811 100 107.304 12.954 18.21 9.204 21.67423 29.62 19.83932 14.91 94.811 100 107.304 12.607 18.4 12.949 21.67504 29.62 19.83841 14.38 94.811 100 107.304 21.054 18.29 15.074 34.75563 30.92 25.88437 12.74 94.811 100 107.304 19.177 18.53 14.89 31.6999 30.45 25.24927 12.53 94.811 100 107.304 16.865 17.48 14.881 29.80151 31.23 26.10652 12.59 94.811 100 107.304 16.212 18.48 14.826 25.7311 29.18 24.18944 11.96 94.811 100 107.304 14.078 18.16 14.956 22.55619 28.39 24.14083 13.03 94.811 100 107.304 12.494 17.77 13.995 21.0258 28.76 24.43351 13.77 94.811 100 107.304 17.654 18.26 19.202 28.25351 29.62 30.88852 11.56 94.811 100 107.304 15.68 18.33 19.524 26.40195 30.62 31.96401 12.63 94.811 100 107.304 14.436 18.48 18.936 24.09527 29.63 31.17469 13.45 94.811 100 107.304 12.042 16.98 18.782 21.66965 29.17 30.7775 13.67 94.811 100 107.304 17.85 18.79 24.806 28.86385 30.55 38.62947 13.68 94.811 100 107.304 15.415 17.73 24.72 25.85672 29.72 38.17638 13.68 94.811 100 107.304 13.319 17.11 23.889 22.1223 28.13 35.45845 14.94 94.811 100 107.304 12.954 18.21 9.204 7.50582 11.97 6.10658 12.02 94.811 100 107.304 12.607 18.4 12.949 7.50611 11.97 6.10626 11.99 94.811 100 107.304 12.494 17.77 13.995 7.65073 12.29 9.27247 12.34 94.811 100 107.304 11.232 18.33 14.331 6.27441 11.48 8.8439 12.28 94.811 100 107.304 12.042 16.98 18.782 7.26769 11.6 12.3907 11.32 94.811 100 107.304 10.348 17.28 18.986 6.35509 11.41 12.48379 11.58 94.811 100 107.304 13.319 17.11 23.889 8.88597 12.34 17.24074 11.28 94.811 100 107.304 15.12 18.11 32.913 10.19923 12.44 22.35162 12.24 94.811 100 107.304 12.705 16.25 28.587 8.4145 11.41 21.54569 11.07 94.811 100 107.304 11.232 18.33 14.331 19.38185 29.28 24.9788 14.26 94.811 100 107.304 10.348 17.28 18.986 19.41392 28.88 31.04585 15.56 94.811 100 107.304 14.078 18.16 14.956 12.95427 18.21 9.2042 8.24 94.811 100 107.304 11.232 18.33 14.331 12.9537 18.21 9.20371 10.97 94.811 100 107.304 12.07 10.98 26.59 10.53873 11.74 27.07128 3.008 ] def %Wdata /CODTi 2800 array def %BEG CODL1.PS (L=LEER) /i1 0 def i1 1 2799 {/i exch def CODTi i ( ) put} for %test %END CODL1.PS %************************************* /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 %************************************************************* %%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 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetaMD pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output /xchart xchart1 def % /xc0d 06 def /xc2d 06 def /xc4d 06 def /xcal xc0d 1 add 2 mul % xc2d 1 add 2 mul add % xc4d 1 add 2 mul add 1 sub def /xchartl xchart def %0 1 xc0d {/xchart exch def %xchart=0,xc0d /iXYZLAB 0 def /xc1a 00 def /xc1e xc0d def /xc2a xc1e 1 add def /xc2e xc2a xc0d add def /xc3a xc2e 1 add def /xc3e xc3a xc2d add def /xc4a xc3e 1 add def /xc4e xc4a xc2d add def /xc5a xc4e 1 add def /xc5e xc5a xc4d add def /xc6a xc5e 1 add def /xc6e xc6a xc4d add def xchart xc1e le {/iXYZLAB 0 def /xchartl xchart def} if xchart xc2a ge xchart xc2e le and {/iXYZLAB 1 def /xchartl xchart xc2a sub def} if xchart xc3a ge xchart xc3e le and {/iXYZLAB 2 def /xchartl xchart xc3a sub def} if xchart xc4a ge xchart xc4e le and {/iXYZLAB 3 def /xchartl xchart xc4a sub def} if xchart xc5a ge xchart xc5e le and {/iXYZLAB 4 def /xchartl xchart xc5a sub def} if xchart xc6a ge xchart xc6e le and {/iXYZLAB 5 def /xchartl xchart xc6a sub def} if /xp0 0050 def /xp1 6650 def /xdel 620 def /xdel0 650 def /xdel1 550 def /xdela 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 DE*76 DE*CM DE*94 DE*00 DE*85 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 %********************************************************** %iXYZLAB 00-05: %00=XYZa, 01=LABa, 02=XYZ2 03=LAB2 04=XYZ2 05=LAB2 /textXYZ 29 array def /textXYZ [(%Xn) (Yn) (Zn) (X0) (Y0) (Z0) (X1) (Y1) (Z1) (DV) (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 /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) (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 %********************************************************** %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 292 def /Datasettxt (GA_L0292) def /inr000 84000001 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 5 /Times-ISOL1 FS 700 85 moveto (XE840-7N) show (_) show iXYZLAB cvishow (_) show ii 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 Datasettxt show (, xchart3=) show xchart3 cvishow (, xchart4=) show xchart4 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/XE84/XE84) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/XE84/XE84) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/XE84/XE84.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 61 MM 13.5 MM moveto (TUB\255Pr\374fvorlage XE84; ) showde %0XE84X-Y 0000# (TUB\255test chart XE84; ) showen %1XE84X-Y 0000# (gr\341fico TUB\255XE84; ) showes %2XE84X-Y 0000# (TUB\255test graphique XE84; ) showfr %3XE84X-Y 0000# (grafico TUB\255XE84; ) showit %4XE84X-Y 0000# (TUB\255test chart XE84; ) showjp %5XE84X-Y 0000# xchart4 0 eq {%xchart4=0 (Farbabst\344nde und -Formeln) showde %0XE84X-Y 0200# (Colour differences and formulae) showea %1XE84X-Y 0200# } if %xchart4=0 xchart4 1 eq {() show} if xchart4 2 eq {() show} if 61 MM 09.5 MM moveto 12 /Times-ISOL1 FS xchart4 0 eq {%xchart4=0 12 /TimesI-ISOL1 FS (GA_L0292) show %0XE84X-Y 0200# 12 /Times-ISOL1 FS (\255Farbdifferenz\255Experimente) showde %0XE84X-Y 0200# ( colour difference experiments) showea %0XE84X-Y 0200# } if %xchart4=0 /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 xchart4 1 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0XE84X-Y 0300# (chromatic test chart) showen %1XE84X-Y 0300# (test crom\341tico gr\341fico) showes %2XE84X-Y 0300# (chromatic graphique de test) showfr %3XE84X-Y 0300# (prova cromatica grafico) showit %4XE84X-Y 0300# (chromatic test chart) showjp %5XE84X-Y 0300# 12 /TimesI-ISOL1 FS ( RGB) show } if xchart4 2 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0XE84X-Y 0400# (chromatic test chart) showen %1XE84X-Y 0400# (test crom\341tico gr\341fico) showes %2XE84X-Y 0400# (chromatic graphique de test) showfr %3XE84X-Y 0400# (prova cromatica grafico) showit %4XE84X-Y 0400# (chromatic test chart) showjp %5XE84X-Y 0400# 12 /TimesI-ISOL1 FS ( CMY) 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 %0XE84X-Y 0500# (input: ) showen %1XE84X-Y 0500# (entrada: ) showes %2XE84X-Y 0500# (entr\351e: ) showfr %3XE84X-Y 0500# (immettere: ) showit %4XE84X-Y 0500# (input: ) showjp %5XE84X-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 %0XE84X-Y 0600# (output: ) showen %1XE84X-Y 0600# (salida: ) showes %2XE84X-Y 0600# (sortie: ) showfr %3XE84X-Y 0600# (uscita: ) showit %4XE84X-Y 0600# (output: ) showjp %5XE84X-Y 0600# %colorm=0,1! 12 /Times-ISOL1 FS xchart 0 eq {%xchart=0,#0 12 /Times-ISOL1 FS (keine \304nderung) showde %0XE84X-Y 0700# (no change) showen %1XE84X-Y 0700# (ning\372n cambio) showes %2XE84X-Y 0700# (aucun changement) showfr %3XE84X-Y 0700# (nessun cambiamento) showit %4XE84X-Y 0700# (no change compared) showjp %5XE84X-Y 0700# }%xchart=0 {%xchart#0 12 /Times-ISOL1 FS colorm 0 eq {%colorm=0 (Transfer nach ) showde %0XE84X-Y 0800# (transfer to ) showen %1XE84X-Y 0800# (transfiera a ) showes %2XE84X-Y 0800# (transf\351rer \340 ) showfr %3XE84X-Y 0800# (trasferire a ) showit %4XE84X-Y 0800# (transfer to ) showjp %5XE84X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0XE84X-Y 0900# (3D\255linearization to ) showen %1XE84X-Y 0900# (3D\255linealizaci\363n a ) showes %2XE84X-Y 0900# (linearisation 3D selon ) showfr %3XE84X-Y 0900# (3D\255linearizzazione a ) showit %4XE84X-Y 0900# (3D\255linearization to ) showjp %5XE84X-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/XE84/XE84L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde %0XE84X-Y 1000# (start output) showen %1XE84X-Y 1000# (comience salida) showes %2XE84X-Y 1000# (sortie de production) showfr %3XE84X-Y 1000# (cominciare l'uscita) showit %4XE84X-Y 1000# (start output) showjp %5XE84X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0XE84X-Y 1100# (start output) showen %1XE84X-Y 1100# (comience salida) showes %2XE84X-Y 1100# (sortie de production) showfr %3XE84X-Y 1100# (cominciare l'uscita) showit %4XE84X-Y 1100# (start output) showjp %5XE84X-Y 1100# } if xchart 1 ge {%xchart>=1 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0XE84X-Y 1200# (transfer output) showen %1XE84X-Y 1200# (salida de transferencia) showes %2XE84X-Y 1200# (sortie de transfert) showfr %3XE84X-Y 1200# (uscita di trasferimento) showit %4XE84X-Y 1200# (transfer output) showjp %5XE84X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0XE84X-Y 1300# (3D\255linearization) showen %1XE84X-Y 1300# (3D\255linealizaci\363n) showes %2XE84X-Y 1300# (linearisation 3D) showfr %3XE84X-Y 1300# (3D\255linearizzzazione) showit %4XE84X-Y 1300# (3D\255linearization) showjp %5XE84X-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 %0XE84X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1XE84X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2XE84X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3XE84X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4XE84X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5XE84X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0XE84X-Y 1500# (in file (F) or PS\255startup (S)) showen %1XE84X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2XE84X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3XE84X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4XE84X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5XE84X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0XE84X-Y 1600# (3D\255linearization) showen %1XE84X-Y 1600# (3D\255linealizaci\363n) showes %2XE84X-Y 1600# (linearisation 3D) showfr %3XE84X-Y 1600# (3D\255linearizzzazione) showit %4XE84X-Y 1600# (3D\255linearization) showjp %5XE84X-Y 1600# ( XE84/XE84L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0XE84X-Y 1700# ( in file (F)) showen %1XE84X-Y 1700# ( en archivo (F)) showes %2XE84X-Y 1700# ( dans fichier (F)) showfr %3XE84X-Y 1700# ( nel file (F)) showit %4XE84X-Y 1700# ( in file (F)) showjp %5XE84X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0XE84X-Y 1800# ( in Distiller Startup (S) Directory) showen %1XE84X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2XE84X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3XE84X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4XE84X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5XE84X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0XE84X-Y 1900# ( in PS\255device (D)) showen %1XE84X-Y 1900# ( en el PS\255device (D)) showes %2XE84X-Y 1900# ( dans l'appareil PS (D)) showfr %3XE84X-Y 1900# ( nel PS\255dispositivo (D)) showit %4XE84X-Y 1900# ( in PS\255Device (D)) showjp %5XE84X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0XE84X-Y 2000# ( in Distiller Startup (S) Directory) showen %1XE84X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2XE84X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3XE84X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4XE84X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5XE84X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0XE84X-Y 2100# ( in PS\255device (D)) showen %1XE84X-Y 2100# ( en el PS\255device (D)) showes %2XE84X-Y 2100# ( dans appareil PS (D)) showfr %3XE84X-Y 2100# ( nel PS\255dispositivo (D)) showit %4XE84X-Y 2100# ( in PS\255Device (D)) showjp %5XE84X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0XE84X-Y 2200# (, page ) showen %1XE84X-Y 2200# (, p\341gina ) showes %2XE84X-Y 2200# (, page ) showfr %3XE84X-Y 2200# (, pagina ) showit %4XE84X-Y 2200# (, page ) showjp %5XE84X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0XE84X-Y 2300# (see similar files: ) showen %1XE84X-Y 2300# (vea archivos semejantes: ) showes %2XE84X-Y 2300# (voir des fichiers similaires: ) showfr %3XE84X-Y 2300# (vedere dei file simili: ) showit %4XE84X-Y 2300# (see similar files: ) showjp %5XE84X-Y 2300# (http://130.149.60.45/~farbmetrik/XE84/XE84.HTM) show %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0XE84X-Y 2400# (technical information: ) showen %1XE84X-Y 2400# (informaci\363n t\351cnica: ) showes %2XE84X-Y 2400# (informations techniques: ) showfr %3XE84X-Y 2400# (informazioni tecniche: ) showit %4XE84X-Y 2400# (technical information: ) showjp %5XE84X-Y 2400# (http://www.ps.bam.de) show ( oder ) showde %0XE84X-Y 2500# ( or ) showen %1XE84X-Y 2500# ( o ) showes %2XE84X-Y 2500# ( ou ) showfr %3XE84X-Y 2500# ( o ) showit %4XE84X-Y 2500# ( or ) showjp %5XE84X-Y 2500# (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20140801\255XE84/XE84L) showde %0XE84X-Y 2600# (TUB registration: 20140801\255XE84/XE84L) showen %1XE84X-Y 2600# (TUB matr\355cula: 20140801\255XE84/XE84L) showes %2XE84X-Y 2600# (TUB enregistrement: 20140801\255XE84/XE84L) showfr %3XE84X-Y 2600# (TUB iscrizione: 20140801\255XE84/XE84L) showit %4XE84X-Y 2600# (TUB registration: 20140801\255XE84/XE84L) showjp %5XE84X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0XE84X-Y 2700# (TUB material: code=rha4ta) showen %1XE84X-Y 2700# (TUB material: code=rha4ta) showes %2XE84X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3XE84X-Y 2700# (TUB materiale: code=rha4ta) showit %4XE84X-Y 2700# (TUB material: code=rha4ta) showjp %5XE84X-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 %0XE84X-Y 2800# ( application for measurement ) showen %1XE84X-Y 2800# ( aplicaci\363n para la medida ) showes %2XE84X-Y 2800# ( application pour la mesure ) showfr %3XE84X-Y 2800# ( la domanda per la misura ) showit %4XE84X-Y 2800# ( application for measurement ) showjp %5XE84X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display- oder Drucker-Ausgabe) showde %0XE84X-Y 2900# (of display or printer output) showen %1XE84X-Y 2900# (de display output) showes %2XE84X-Y 2900# (de sortie sur \350cran) showfr %3XE84X-Y 2900# (di stampa di display) showit %4XE84X-Y 2900# (of display output) showjp %5XE84X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0XE84X-Y 3000# (of offset print output) showen %1XE84X-Y 3000# (salida en la impressi\363n offset) showes %2XE84X-Y 3000# (des sorties sur offset) showfr %3XE84X-Y 3000# (uscita nella stampa di offset) showit %4XE84X-Y 3000# (of offset print output) showjp %5XE84X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0XE84X-Y 3100# (of laser printer output) showen %1XE84X-Y 3100# (salida de impresora l\341ser) showes %2XE84X-Y 3100# (des sorties sur imprimante laser) showfr %3XE84X-Y 3100# (di uscita della stampante laser) showit %4XE84X-Y 3100# (of laser printer output) showjp %5XE84X-Y 3100# } if %xchart5f=3 xchart 1 ge {%xchart>=1 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0XE84X-Y 3200# (, no separation) showen %1XE84X-Y 3200# (, ninguna separaci\363n) showes %2XE84X-Y 3200# (, aucune s\351paration) showfr %3XE84X-Y 3200# (, nessuna separazione) showit %4XE84X-Y 3200# (, no separation) showjp %5XE84X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0XE84X-Y 3300# (, separation) showen %1XE84X-Y 3300# (, separaci\363n) showes %2XE84X-Y 3300# (, s\351paration) showfr %3XE84X-Y 3300# (, separazione) showit %4XE84X-Y 3300# (, separation) showjp %5XE84X-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