%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/WE95/WE95L00XX.PS 20140801 %%BoundingBox: 00 00 414 292 /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/WE95) /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 WE95/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 WE95/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %BEG WE95/OUTLIN1X.PS 20110801 %EMPTY %END WE95/OUTLIN1X.PS 20110801 %BEG WE95/OUTLIN1Y2.PS Emty 20101101 %END WE95/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 0.5 0.5 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$ [(1.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$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /iimp 312 def /xc0d 07 def /xc2d 07 def /xc4d 07 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 00 def /xchartdf 01 def /xchart3f 01 def /xchart4f 00 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 WE950-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 (WE950-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 WE950-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 (WE950-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 WE950-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 (WE950-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 WE950-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 (WE950-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 WE950-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 (WE950-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 WE950-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 (WE950-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 WE950-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/WE95/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@me.com) /CreationDate (D:2014100112000) /ModDate (D:2014100112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {290 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CSS {115 /Courier-ISOL1 FS} bind def /CSK {140 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBSS {115 /CourierB-ISOL1 FS} bind def /CBSK {140 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /ss {350 /Symbol FS show} bind def /is {300 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ib {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {300 /Times-ISOL1 FS show TM} bind def /ks2 {300 /TimesI-ISOL1 FS show TM} bind def /bs2 {300 /TimesB-ISOL1 FS show TM} bind def /js2 {300 /TimesBI-ISOL1 FS show TM} bind def /ss2 {300 /Symbol FS show TM} bind def /is2 {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def /tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfyz {0.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def /cvishow {cvi 10 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 10 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 10 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 10 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 10 string cvs show} def %0 %1 %2 %max 2800 sample pairs with 10 data per line = minimum 28000 data /WData0 28000 array def /WData0 [ %SCD_datasets_0312_RIT_DUPONT.txt, 20150216, from ME17AG/Melgosa_15: SCD_datasets.xlsx %Reference White, Sample 1, Sample 2, Vis. Dif, SCD_datasets, Export Tabstop separated txt %X0 Y0 Z0 X1 Y1 Z1 X2 Y2 Z2 dV 94.810000 100.000000 107.330000 8.440904149 9.065447597 21.56753418 8.931311371 9.568050813 22.48785077 1.02 94.810000 100.000000 107.330000 8.308817836 8.930428845 21.22237637 8.451689916 8.918397835 21.25885315 1.02 94.810000 100.000000 107.330000 8.301311955 8.935596917 21.12811727 8.252280994 8.828670254 20.14973253 1.02 94.810000 100.000000 107.330000 8.31799353 8.966647226 21.97460279 8.395160122 8.965077292 21.56581047 1.02 94.810000 100.000000 107.330000 8.493853241 9.159714932 22.37856193 8.321801947 9.114106713 20.6385133 1.02 94.810000 100.000000 107.330000 7.779426147 8.359181729 20.77299844 8.018277946 8.516349738 20.76203235 1.02 94.810000 100.000000 107.330000 8.450450794 9.122978152 22.23131195 8.788842648 9.55184658 22.63439903 1.02 94.810000 100.000000 107.330000 7.814444214 8.383927663 20.68489118 7.634352591 8.130002607 19.97929002 1.02 94.810000 100.000000 107.330000 7.114250232 7.6206428 19.30338081 7.511853473 7.932910367 20.39717032 1.02 94.810000 100.000000 107.330000 15.10810682 18.96821631 26.92953164 15.68007921 19.64027549 27.82026949 1.02 94.810000 100.000000 107.330000 15.19979177 19.07085486 26.96598739 15.38231875 18.96554249 26.88087912 1.02 94.810000 100.000000 107.330000 15.12985357 18.96821631 26.78249692 15.13386429 18.86054882 25.69419809 1.02 94.810000 100.000000 107.330000 15.18301013 19.07085486 27.32009061 15.43445821 19.12204064 26.80507364 1.02 94.810000 100.000000 107.330000 15.24104604 19.11372997 27.03412611 15.13959392 19.13660458 26.24077325 1.02 94.810000 100.000000 107.330000 14.53789445 18.38518369 26.26915882 15.10287679 18.87257181 26.53360441 1.02 94.810000 100.000000 107.330000 14.51155444 18.326712 26.18063311 14.91581499 18.88633099 26.50489012 1.02 94.810000 100.000000 107.330000 14.48900262 18.27669219 26.0153997 14.1176109 17.68320086 24.93509151 1.02 94.810000 100.000000 107.330000 13.84974377 17.58594227 25.23580014 14.38733076 18.1578896 26.21696013 1.02 94.810000 100.000000 107.330000 26.19323283 27.87981163 29.0727457 27.19182595 28.92932491 30.16163212 1.02 94.810000 100.000000 107.330000 26.4059025 28.09004349 29.27377845 26.53424108 28.00327941 29.20775113 1.02 94.810000 100.000000 107.330000 26.04308096 27.72557699 28.93722848 26.03482926 27.68349006 28.01997042 1.02 94.810000 100.000000 107.330000 25.92357179 27.62672714 28.92703537 26.08730706 27.61958318 28.51708503 1.02 94.810000 100.000000 107.330000 25.92613358 27.59382948 28.77165614 25.72147731 27.58408578 28.11614634 1.02 94.810000 100.000000 107.330000 25.48896304 27.01693595 28.45569499 26.37214232 27.84144733 28.95544723 1.02 94.810000 100.000000 107.330000 25.61024844 27.12516229 28.51048771 26.21877522 27.87987902 28.90658375 1.02 94.810000 100.000000 107.330000 25.12230703 26.61900185 27.96820748 24.67520944 26.04963975 27.00414157 1.02 94.810000 100.000000 107.330000 25.34387792 26.86590325 28.32872755 26.07660903 27.54342284 29.43435055 1.02 94.810000 100.000000 107.330000 16.86855776 23.44718486 23.47286949 17.6370196 24.40149893 24.44808883 1.02 94.810000 100.000000 107.330000 16.8975527 23.54566094 24.02793332 17.68071504 24.52366107 25.03415791 1.02 94.810000 100.000000 107.330000 16.89780119 23.48654227 23.53075231 17.31745726 23.49552252 23.66031782 1.02 94.810000 100.000000 107.330000 16.75568943 23.38823122 23.84093258 17.25000347 23.44451445 23.99222577 1.02 94.810000 100.000000 107.330000 17.12149495 23.7930566 23.86863533 17.17421656 23.78014853 23.12266443 1.02 94.810000 100.000000 107.330000 17.09719016 23.81292277 24.35319568 17.14226792 23.79581678 23.63174577 1.02 94.810000 100.000000 107.330000 16.91918079 23.54566094 23.61482094 17.19282046 23.56554222 23.11546962 1.02 94.810000 100.000000 107.330000 16.86030617 23.55552368 24.0916454 17.17577962 23.6135065 23.57771988 1.02 94.810000 100.000000 107.330000 16.8990437 23.47669879 23.52066136 16.75854071 23.56739282 22.84945528 1.02 94.810000 100.000000 107.330000 16.88922955 23.52594371 23.95411913 16.75674482 23.64153539 23.2877633 1.02 94.810000 100.000000 107.330000 16.75729563 23.57525744 23.95779603 17.46124716 24.26794856 24.30312603 1.02 94.810000 100.000000 107.330000 16.72352525 23.51608922 23.86109643 17.31090459 24.43107526 24.24126294 1.02 94.810000 100.000000 107.330000 16.62181048 23.35879149 23.7396746 16.20921294 22.62616048 22.69356891 1.02 94.810000 100.000000 107.330000 16.68031367 23.44718486 23.79575799 17.33102448 24.11516553 24.88403945 1.02 94.810000 100.000000 107.330000 33.99231264 32.23909131 21.0650582 35.13308567 33.33814234 21.87290557 1.02 94.810000 100.000000 107.330000 34.1563179 32.3974243 21.21446367 34.47017703 32.31442728 21.07094506 1.02 94.810000 100.000000 107.330000 34.44534398 32.71564381 21.58163118 34.62429225 32.82785704 20.78773988 1.02 94.810000 100.000000 107.330000 34.02727081 32.32428328 21.21257998 34.32967231 32.28365397 20.6148527 1.02 94.810000 100.000000 107.330000 34.19804755 32.49511719 21.36116738 34.34607206 32.3990104 21.70288616 1.02 94.810000 100.000000 107.330000 33.4900 31.6229 21.0328 34.7299 32.5838 21.2811 1.02 94.810000 100.000000 107.330000 30.7150 28.6821 18.1984 31.4541 29.5613 18.6484 1.02 94.810000 100.000000 107.330000 31.4768 29.5454 19.0449 30.7349 28.6562 18.0931 1.02 94.810000 100.000000 107.330000 33.4302 31.6589 21.5872 34.3617 32.4152 22.5079 1.02 94.810000 100.000000 107.330000 17.0222 15.6260 23.8646 17.7614 16.3381 24.7751 1.02 94.810000 100.000000 107.330000 16.8863 15.4988 23.6330 17.1848 15.5318 23.7937 1.02 94.810000 100.000000 107.330000 16.9639 15.5961 23.6531 17.0307 15.6374 22.7441 1.02 94.810000 100.000000 107.330000 17.0390 15.6561 23.8817 17.2832 15.7153 23.5447 1.02 94.810000 100.000000 107.330000 17.0864 15.7087 24.0421 16.6238 15.5661 22.5298 1.02 94.810000 100.000000 107.330000 16.7138 15.5437 23.3427 17.2407 15.9242 23.5658 1.02 94.810000 100.000000 107.330000 16.8016 15.6411 23.4209 17.2517 16.2152 23.6431 1.02 94.810000 100.000000 107.330000 16.5195 15.3501 23.0711 16.1927 14.9106 22.2429 1.02 94.810000 100.000000 107.330000 16.5517 15.4020 23.1409 17.3395 16.0549 24.4014 1.02 94.810000 100.000000 107.330000 17.9984 12.7146 6.9153 18.7638 13.3383 7.3461 1.02 94.810000 100.000000 107.330000 17.2766 12.1668 6.5380 17.6555 12.1841 6.5487 1.02 94.810000 100.000000 107.330000 17.3654 12.2177 6.2526 17.3351 12.1912 5.8267 1.02 94.810000 100.000000 107.330000 17.5908 12.4097 6.7230 17.8613 12.4201 6.3664 1.02 94.810000 100.000000 107.330000 17.6561 12.4355 6.7075 17.4626 12.4006 6.4245 1.02 94.810000 100.000000 107.330000 18.5511 13.2315 6.7778 19.4763 13.8363 6.9198 1.02 94.810000 100.000000 107.330000 19.1075 13.8313 6.8926 19.3726 14.1329 6.9313 1.02 94.810000 100.000000 107.330000 18.7097 13.3933 6.9305 18.2159 12.8487 6.3263 1.02 94.810000 100.000000 107.330000 18.3399 13.1110 6.3774 17.7992 12.7341 5.8955 1.02 94.810000 100.000000 107.330000 50.1172 51.2994 26.1806 52.0566 53.2977 27.4749 1.02 94.810000 100.000000 107.330000 51.4642 53.7402 26.4392 52.1402 53.8831 26.3827 1.02 94.810000 100.000000 107.330000 51.8283 54.0142 27.7743 52.3649 54.5061 26.6905 1.02 94.810000 100.000000 107.330000 51.9119 54.2891 28.7370 52.7395 54.7392 28.2190 1.02 94.810000 100.000000 107.330000 51.9865 54.1000 29.0124 52.3538 54.0802 29.5301 1.02 94.810000 100.000000 107.330000 50.8472 52.9915 26.5541 52.4565 54.3267 26.8472 1.02 94.810000 100.000000 107.330000 50.9052 52.9069 26.4931 52.0559 54.3552 26.8341 1.02 94.810000 100.000000 107.330000 50.7945 52.7717 26.5071 49.9450 51.5534 25.3157 1.02 94.810000 100.000000 107.330000 51.1019 53.1950 26.6728 52.4449 54.3058 27.7835 1.02 94.810000 100.000000 107.330000 29.1362 33.5453 26.5545 30.0722 34.6213 27.4772 1.02 94.810000 100.000000 107.330000 29.2842 33.7078 26.6461 29.5729 33.6932 26.7443 1.02 94.810000 100.000000 107.330000 29.2209 33.7329 26.7636 29.1707 33.6734 25.8059 1.02 94.810000 100.000000 107.330000 29.3781 33.8333 26.7814 29.3864 33.5863 26.0587 1.02 94.810000 100.000000 107.330000 29.5352 33.7204 27.5771 29.4468 33.9017 26.8228 1.02 94.810000 100.000000 107.330000 29.7500 34.2873 27.1987 30.6106 35.0888 27.5852 1.02 94.810000 100.000000 107.330000 29.7963 34.3127 27.2597 30.5779 35.4119 27.6601 1.02 94.810000 100.000000 107.330000 29.8006 34.3380 27.0886 29.3057 33.5902 26.0430 1.02 94.810000 100.000000 107.330000 29.7134 34.2493 27.2170 30.5775 35.0651 28.3277 1.02 94.810000 100.000000 107.330000 1.7075 1.8267 1.9162 1.9237 2.0538 2.1595 1.02 94.810000 100.000000 107.330000 1.6462 1.7419 1.8181 1.7092 1.7772 1.8695 1.02 94.810000 100.000000 107.330000 1.6160 1.7108 1.7583 1.6758 1.7908 1.7217 1.02 94.810000 100.000000 107.330000 1.6210 1.7298 1.8011 1.7927 1.8925 1.9272 1.02 94.810000 100.000000 107.330000 1.6923 1.8034 1.8873 1.7635 1.9064 1.9244 1.02 94.810000 100.000000 107.330000 1.6832 1.7893 1.9116 1.5874 1.6650 1.7308 1.02 94.810000 100.000000 107.330000 1.5573 1.6801 1.7728 1.6620 1.7615 1.8995 1.02 94.810000 100.000000 107.330000 28.4153 39.0259 46.3432 29.7858 40.7859 48.3868 1.02 94.810000 100.000000 107.330000 28.1902 38.7778 46.2143 28.8555 38.8439 46.3830 1.02 94.810000 100.000000 107.330000 27.9832 38.5171 45.8137 28.0954 38.3953 44.2554 1.02 94.810000 100.000000 107.330000 28.0656 38.5445 46.0189 29.0928 39.5445 46.5711 1.02 94.810000 100.000000 107.330000 28.6763 39.3444 46.5611 29.6209 40.7770 47.1929 1.02 94.810000 100.000000 107.330000 28.3920 38.9293 46.1406 27.8108 37.8032 44.1782 1.02 94.810000 100.000000 107.330000 28.6603 39.2889 46.5529 29.6741 40.4090 48.9193 1.02 94.810000 100.000000 107.330000 7.5046 5.7953 2.8628 7.9940 6.2131 3.1145 1.02 94.810000 100.000000 107.330000 7.4444 5.7759 2.8490 7.5800 5.7873 2.8413 1.02 94.810000 100.000000 107.330000 7.5087 5.8069 2.8472 7.5139 5.8206 2.6423 1.02 94.810000 100.000000 107.330000 7.4252 5.7335 2.8176 7.7865 5.9899 2.8829 1.02 94.810000 100.000000 107.330000 7.6382 5.9044 2.8833 7.8354 6.1278 2.9468 1.02 94.810000 100.000000 107.330000 7.5685 5.8419 2.8566 7.2395 5.4924 2.5428 1.02 94.810000 100.000000 107.330000 7.4031 5.7182 2.7641 7.7392 5.9492 2.9686 1.02 94.810000 100.000000 107.330000 4.0523 7.2009 9.2294 4.3918 7.6679 9.7862 1.02 94.810000 100.000000 107.330000 3.8393 6.9052 8.8352 4.0293 6.8213 8.8592 1.02 94.810000 100.000000 107.330000 3.8375 6.9095 8.8618 3.8827 6.9120 8.4810 1.02 94.810000 100.000000 107.330000 3.8155 6.8834 8.8638 4.1832 7.2217 9.0548 1.02 94.810000 100.000000 107.330000 3.7213 6.7840 8.7100 3.9213 7.1438 8.8528 1.02 94.810000 100.000000 107.330000 3.7368 6.8185 8.7094 3.5937 6.4857 8.1552 1.02 94.810000 100.000000 107.330000 3.8531 6.9970 8.9244 4.0774 7.2534 9.4426 1.02 94.810000 100.000000 107.330000 23.4058 28.0679 51.7097 24.6263 29.4277 53.8598 1.02 94.810000 100.000000 107.330000 22.7572 27.3425 51.7117 22.8739 27.0634 50.9476 1.02 94.810000 100.000000 107.330000 23.5837 28.1122 51.7581 23.3567 27.7234 49.2417 1.02 94.810000 100.000000 107.330000 23.0215 27.5829 50.9431 23.7363 28.2271 51.5182 1.02 94.810000 100.000000 107.330000 23.7638 28.3571 51.8764 24.3862 29.2804 52.0684 1.02 94.810000 100.000000 107.330000 24.0869 28.7271 52.4426 23.3784 27.7098 50.2921 1.02 94.810000 100.000000 107.330000 23.3535 27.9461 51.3842 24.6969 29.2004 54.8647 1.02 94.810000 100.000000 107.330000 3.9625 2.5717 2.3278 4.2974 2.8185 2.5760 1.02 94.810000 100.000000 107.330000 3.6438 2.3721 2.1332 3.4924 2.1856 1.9474 1.02 94.810000 100.000000 107.330000 3.5471 2.3002 2.0030 3.6060 2.3383 1.8556 1.02 94.810000 100.000000 107.330000 3.9362 2.5470 2.2633 4.2583 2.7476 2.3582 1.02 94.810000 100.000000 107.330000 3.9104 2.5403 2.2865 4.2012 2.8058 2.4205 1.02 94.810000 100.000000 107.330000 3.2930 2.1409 1.9275 3.3876 2.1467 1.8119 1.02 94.810000 100.000000 107.330000 3.3841 2.1993 1.9586 3.6012 2.3254 2.1846 1.02 94.810000 100.000000 107.330000 33.0342 26.4055 28.4472 34.6485 27.8161 29.7243 1.02 94.810000 100.000000 107.330000 32.8319 26.0980 28.2682 33.4828 26.0779 28.1770 1.02 94.810000 100.000000 107.330000 32.7753 26.0242 28.0764 32.5170 25.6601 26.5073 1.02 94.810000 100.000000 107.330000 32.8250 26.1509 28.2988 34.2193 27.1077 28.6949 1.02 94.810000 100.000000 107.330000 32.2849 25.5215 27.2112 33.3666 26.6331 27.7788 1.02 94.810000 100.000000 107.330000 32.8468 26.1086 28.1739 31.7674 24.9577 26.4824 1.02 94.810000 100.000000 107.330000 32.8872 26.2250 28.2860 34.6260 27.5294 30.2389 1.02 94.810000 100.000000 107.330000 6.5781 6.2889 18.0400 7.0080 6.7148 18.8782 1.02 94.810000 100.000000 107.330000 6.7500 6.4000 18.6777 6.8485 6.3645 18.7591 1.02 94.810000 100.000000 107.330000 6.5772 6.2889 17.9959 6.5503 6.2340 17.3352 1.02 94.810000 100.000000 107.330000 6.6479 6.3340 18.4997 6.8964 6.4973 18.6662 1.02 94.810000 100.000000 107.330000 6.7074 6.3917 18.5154 7.0447 6.8167 18.8451 1.02 94.810000 100.000000 107.330000 6.5119 6.2075 17.8569 6.3310 5.9515 17.2538 1.02 94.810000 100.000000 107.330000 6.5769 6.2726 18.0896 7.0964 6.6850 19.4680 1.02 94.810000 100.000000 107.330000 59.6430 62.8815 67.3372 61.8914 65.3439 69.8581 1.02 94.810000 100.000000 107.330000 61.9527 65.3621 69.2838 62.3313 65.3005 69.2930 1.02 94.810000 100.000000 107.330000 58.8968 61.5808 65.3286 59.5219 62.6130 64.6953 1.02 94.810000 100.000000 107.330000 60.3930 63.8546 68.8220 62.0148 65.2097 69.4549 1.02 94.810000 100.000000 107.330000 61.0266 63.9121 68.5969 61.9701 65.2893 69.1367 1.02 94.810000 100.000000 107.330000 60.1101 62.9765 67.4036 59.5565 62.0394 66.0122 1.02 94.810000 100.000000 107.330000 57.5516 61.0209 65.4127 60.0125 63.5708 69.0703 1.02 94.810000 100.000000 107.330000 53.8673 49.7247 6.5517 56.7304 52.3341 7.2747 1.02 94.810000 100.000000 107.330000 54.3036 50.0664 6.5947 54.8242 49.8540 6.5602 1.02 94.810000 100.000000 107.330000 54.3919 50.1970 6.6395 54.4035 50.2835 5.6111 1.02 94.810000 100.000000 107.330000 54.4248 50.1643 6.5906 56.6208 51.6579 6.7263 1.02 94.810000 100.000000 107.330000 54.3416 50.0501 6.6105 56.0559 52.0582 6.7754 1.02 94.810000 100.000000 107.330000 53.9381 49.6274 6.4244 52.5349 47.9259 5.7329 1.02 94.810000 100.000000 107.330000 54.2776 50.0338 6.5861 56.2362 51.3271 7.2537 1.02 94.810000 100.000000 107.330000 8.4409 9.0654 21.5675 7.9688 8.5808 20.6727 1.02 94.810000 100.000000 107.330000 8.3088 8.9304 21.2224 8.1676 8.9425 21.1859 1.02 94.810000 100.000000 107.330000 8.3013 8.9356 21.1281 8.3505 9.0434 22.1377 1.02 94.810000 100.000000 107.330000 8.3180 8.9666 21.9746 8.2413 8.9682 22.3885 1.02 94.810000 100.000000 107.330000 8.4939 9.1597 22.3786 8.6683 9.2055 24.2138 1.02 94.810000 100.000000 107.330000 7.7794 8.3592 20.7730 7.5454 8.2040 20.7840 1.02 94.810000 100.000000 107.330000 8.4505 9.1230 22.2313 8.1209 8.7071 21.8330 1.02 94.810000 100.000000 107.330000 7.8144 8.3839 20.6849 7.9973 8.6431 21.4069 1.02 94.810000 100.000000 107.330000 7.1143 7.6206 19.3034 6.7309 7.3167 18.2494 1.02 94.810000 100.000000 107.330000 15.1081 18.9682 26.9295 14.5502 18.3117 26.0580 1.02 94.810000 100.000000 107.330000 15.1998 19.0709 26.9660 15.0187 19.1766 27.0513 1.02 94.810000 100.000000 107.330000 15.1299 18.9682 26.7825 15.1258 19.0763 27.9011 1.02 94.810000 100.000000 107.330000 15.1830 19.0709 27.3201 14.9343 19.0198 27.8417 1.02 94.810000 100.000000 107.330000 15.2410 19.1137 27.0341 15.3430 19.0909 27.8433 1.02 94.810000 100.000000 107.330000 14.5379 18.3852 26.2692 13.9872 17.9063 26.0065 1.02 94.810000 100.000000 107.330000 14.5116 18.3267 26.1806 14.1147 17.7783 25.8590 1.02 94.810000 100.000000 107.330000 14.4890 18.2767 26.0154 14.8669 18.8833 27.1265 1.02 94.810000 100.000000 107.330000 13.8497 17.5859 25.2358 13.3257 17.0261 24.2794 1.02 94.810000 100.000000 107.330000 26.1932 27.8798 29.0727 25.2194 26.8560 28.0104 1.02 94.810000 100.000000 107.330000 26.4059 28.0900 29.2738 26.2780 28.1770 29.3399 1.02 94.810000 100.000000 107.330000 26.0431 27.7256 28.9372 26.0513 27.7677 29.8743 1.02 94.810000 100.000000 107.330000 25.9236 27.6267 28.9270 25.7605 27.6339 29.3409 1.02 94.810000 100.000000 107.330000 25.9261 27.5938 28.7717 26.1319 27.6036 29.4373 1.02 94.810000 100.000000 107.330000 25.4890 27.0169 28.4557 24.6257 26.2089 27.9617 1.02 94.810000 100.000000 107.330000 25.6102 27.1252 28.5105 25.0112 26.3842 28.1180 1.02 94.810000 100.000000 107.330000 25.1223 26.6190 27.9682 25.5748 27.1966 28.9549 1.02 94.810000 100.000000 107.330000 25.3439 26.8659 28.3287 24.6250 26.1996 27.2511 1.02 94.810000 100.000000 107.330000 16.8686 23.4472 23.4729 16.1227 22.5181 22.5239 1.02 94.810000 100.000000 107.330000 16.8976 23.5457 24.0279 16.1379 22.5940 23.0490 1.02 94.810000 100.000000 107.330000 16.8978 23.4865 23.5308 16.4850 23.4776 23.4017 1.02 94.810000 100.000000 107.330000 16.7557 23.3882 23.8409 16.2709 23.3320 23.6903 1.02 94.810000 100.000000 107.330000 17.1215 23.7931 23.8686 17.0689 23.8060 24.6305 1.02 94.810000 100.000000 107.330000 17.0972 23.8129 24.3532 17.0522 23.8300 25.0892 1.02 94.810000 100.000000 107.330000 16.9192 23.5457 23.6148 16.6485 23.5258 24.1213 1.02 94.810000 100.000000 107.330000 16.8603 23.5555 24.0916 16.5487 23.4976 24.6130 1.02 94.810000 100.000000 107.330000 16.8990 23.4767 23.5207 17.0403 23.3862 24.2049 1.02 94.810000 100.000000 107.330000 16.8892 23.5259 23.9541 17.0224 23.4107 24.6331 1.02 94.810000 100.000000 107.330000 16.7573 23.5753 23.9578 16.0725 22.8959 23.6158 1.02 94.810000 100.000000 107.330000 16.7235 23.5161 23.8611 16.1496 22.6242 23.4849 1.02 94.810000 100.000000 107.330000 16.6218 23.3588 23.7397 17.0414 24.1071 24.8174 1.02 94.810000 100.000000 107.330000 16.6803 23.4472 23.7958 16.0461 22.7917 22.7397 1.02 94.810000 100.000000 107.330000 33.9923 32.2391 21.0651 32.8765 31.1645 20.2774 1.02 94.810000 100.000000 107.330000 34.1563 32.3974 21.2145 33.8444 32.4806 21.3586 1.02 94.810000 100.000000 107.330000 34.4453 32.7156 21.5816 34.2670 32.6037 22.3955 1.02 94.810000 100.000000 107.330000 34.0273 32.3243 21.2126 33.7267 32.3649 21.8218 1.02 94.810000 100.000000 107.330000 34.1980 32.4951 21.3612 34.0504 32.5914 21.0231 1.02 94.810000 100.000000 107.330000 33.4900 31.6229 21.0328 32.2800 30.6811 20.7865 1.02 94.810000 100.000000 107.330000 30.7150 28.6821 18.1984 29.9875 27.8205 17.7557 1.02 94.810000 100.000000 107.330000 31.4768 29.5454 19.0449 32.2305 30.4529 20.0294 1.02 94.810000 100.000000 107.330000 33.4302 31.6589 21.5872 32.5156 30.9145 20.6919 1.02 94.810000 100.000000 107.330000 17.0222 15.6260 23.8646 16.3038 14.9350 22.9766 1.02 94.810000 100.000000 107.330000 16.8863 15.4988 23.6330 16.5913 15.4659 23.4730 1.02 94.810000 100.000000 107.330000 16.9639 15.5961 23.6531 16.8973 15.5548 24.5860 1.02 94.810000 100.000000 107.330000 17.0390 15.6561 23.8817 16.7970 15.5970 24.2219 1.02 94.810000 100.000000 107.330000 17.0864 15.7087 24.0421 17.5576 15.8522 25.6205 1.02 94.810000 100.000000 107.330000 16.7138 15.5437 23.3427 16.1977 15.1692 23.1210 1.02 94.810000 100.000000 107.330000 16.8016 15.6411 23.4209 16.3595 15.0806 23.2001 1.02 94.810000 100.000000 107.330000 16.5195 15.3501 23.0711 16.8506 15.7981 23.9197 1.02 94.810000 100.000000 107.330000 16.5517 15.4020 23.1409 15.7882 14.7671 21.9246 1.02 94.810000 100.000000 107.330000 17.9984 12.7146 6.9153 17.2541 12.1106 6.5017 1.02 94.810000 100.000000 107.330000 17.2766 12.1668 6.5380 16.9032 12.1496 6.5273 1.02 94.810000 100.000000 107.330000 17.3654 12.2177 6.2526 17.3958 12.2441 6.6989 1.02 94.810000 100.000000 107.330000 17.5908 12.4097 6.7230 17.3230 12.3994 7.0926 1.02 94.810000 100.000000 107.330000 17.6561 12.4355 6.7075 17.8510 12.4704 6.9987 1.02 94.810000 100.000000 107.330000 18.5511 13.2315 6.7778 17.6558 12.6446 6.6377 1.02 94.810000 100.000000 107.330000 19.1075 13.8313 6.8926 18.8448 13.5340 6.8540 1.02 94.810000 100.000000 107.330000 18.7097 13.3933 6.9305 19.2123 13.9531 7.5720 1.02 94.810000 100.000000 107.330000 18.3399 13.1110 6.3774 18.8915 13.4953 6.8848 1.02 94.810000 100.000000 107.330000 50.1172 51.2994 26.1806 48.2265 49.3517 24.9276 1.02 94.810000 100.000000 107.330000 51.4642 53.7402 26.4392 50.7940 53.5976 26.4957 1.02 94.810000 100.000000 107.330000 51.8283 54.0142 27.7743 51.2954 53.5253 28.8871 1.02 94.810000 100.000000 107.330000 51.9119 54.2891 28.7370 51.0930 53.8415 29.2614 1.02 94.810000 100.000000 107.330000 51.9865 54.1000 29.0124 51.6209 54.1198 28.5007 1.02 94.810000 100.000000 107.330000 50.8472 52.9915 26.5541 49.2710 51.6784 26.2631 1.02 94.810000 100.000000 107.330000 50.9052 52.9069 26.4931 49.7715 51.4846 26.1550 1.02 94.810000 100.000000 107.330000 50.7945 52.7717 26.5071 51.6535 54.0090 27.7353 1.02 94.810000 100.000000 107.330000 51.1019 53.1950 26.6728 49.7820 52.0995 25.5922 1.02 94.810000 100.000000 107.330000 29.1362 33.5453 26.5545 28.2198 32.4917 25.6528 1.02 94.810000 100.000000 107.330000 29.2842 33.7078 26.6461 28.9974 33.7225 26.5481 1.02 94.810000 100.000000 107.330000 29.2209 33.7329 26.7636 29.2710 33.7925 27.7447 1.02 94.810000 100.000000 107.330000 29.3781 33.8333 26.7814 29.3698 34.0814 27.5173 1.02 94.810000 100.000000 107.330000 29.5352 33.7204 27.5771 29.6239 33.5397 28.3454 1.02 94.810000 100.000000 107.330000 29.7500 34.2873 27.1987 28.9057 33.4982 26.8159 1.02 94.810000 100.000000 107.330000 29.7963 34.3127 27.2597 29.0282 33.2364 26.8632 1.02 94.810000 100.000000 107.330000 29.8006 34.3380 27.0886 30.3010 35.0969 28.1619 1.02 94.810000 100.000000 107.330000 29.7134 34.2493 27.2170 28.8658 33.4463 26.1357 1.02 94.810000 100.000000 107.330000 1.7075 1.8267 1.9162 1.5081 1.6169 1.6920 1.02 94.810000 100.000000 107.330000 1.6462 1.7419 1.8181 1.5847 1.7071 1.7678 1.02 94.810000 100.000000 107.330000 1.6160 1.7108 1.7583 1.5576 1.6332 1.7953 1.02 94.810000 100.000000 107.330000 1.6210 1.7298 1.8011 1.4607 1.5766 1.6807 1.02 94.810000 100.000000 107.330000 1.6923 1.8034 1.8873 1.6230 1.7043 1.8507 1.02 94.810000 100.000000 107.330000 1.6832 1.7893 1.9116 1.7828 1.9195 2.1046 1.02 94.810000 100.000000 107.330000 1.5573 1.6801 1.7728 1.4572 1.6012 1.6518 1.02 94.810000 100.000000 107.330000 28.4153 39.0259 46.3432 27.0876 37.3173 44.3580 1.02 94.810000 100.000000 107.330000 28.1902 38.7778 46.2143 27.5353 38.7118 46.0460 1.02 94.810000 100.000000 107.330000 27.9832 38.5171 45.8137 27.8714 38.6391 47.4082 1.02 94.810000 100.000000 107.330000 28.0656 38.5445 46.0189 27.0627 37.5614 45.4711 1.02 94.810000 100.000000 107.330000 28.6763 39.3444 46.5611 27.7521 37.9457 45.9350 1.02 94.810000 100.000000 107.330000 28.3920 38.9293 46.1406 28.9812 40.0775 48.1602 1.02 94.810000 100.000000 107.330000 28.6603 39.2889 46.5529 27.6699 38.1896 44.2640 1.02 94.810000 100.000000 107.330000 7.5046 5.7953 2.8628 7.0356 5.3967 2.6250 1.02 94.810000 100.000000 107.330000 7.4444 5.7759 2.8490 7.3105 5.7646 2.8567 1.02 94.810000 100.000000 107.330000 7.5087 5.8069 2.8472 7.5036 5.7933 3.0625 1.02 94.810000 100.000000 107.330000 7.4252 5.7335 2.8176 7.0753 5.4846 2.7533 1.02 94.810000 100.000000 107.330000 7.6382 5.9044 2.8833 7.4444 5.6865 2.8208 1.02 94.810000 100.000000 107.330000 7.5685 5.8419 2.8566 7.9072 6.2059 3.1952 1.02 94.810000 100.000000 107.330000 7.4031 5.7182 2.7641 7.0769 5.4932 2.5692 1.02 94.810000 100.000000 107.330000 4.0523 7.2009 9.2294 3.7307 6.7533 8.6941 1.02 94.810000 100.000000 107.330000 3.8393 6.9052 8.8352 3.6554 6.9897 8.8112 1.02 94.810000 100.000000 107.330000 3.8375 6.9095 8.8618 3.7927 6.9070 9.2538 1.02 94.810000 100.000000 107.330000 3.8155 6.8834 8.8638 3.4700 6.5558 8.6755 1.02 94.810000 100.000000 107.330000 3.7213 6.7840 8.7100 3.5283 6.4365 8.5688 1.02 94.810000 100.000000 107.330000 3.7368 6.8185 8.7094 3.8835 7.1624 9.2882 1.02 94.810000 100.000000 107.330000 3.8531 6.9970 8.9244 3.6371 6.7466 8.4256 1.02 94.810000 100.000000 107.330000 23.4058 28.0679 51.7097 22.2264 26.7506 49.6176 1.02 94.810000 100.000000 107.330000 22.7572 27.3425 51.7117 22.6408 27.6234 52.4835 1.02 94.810000 100.000000 107.330000 23.5837 28.1122 51.7581 23.8121 28.5047 54.3590 1.02 94.810000 100.000000 107.330000 23.0215 27.5829 50.9431 22.3211 26.9485 50.3723 1.02 94.810000 100.000000 107.330000 23.7638 28.3571 51.8764 23.1520 27.4534 51.6848 1.02 94.810000 100.000000 107.330000 24.0869 28.7271 52.4426 24.8095 29.7690 54.6535 1.02 94.810000 100.000000 107.330000 23.3535 27.9461 51.3842 22.0597 26.7282 48.0541 1.02 94.810000 100.000000 107.330000 3.9625 2.5717 2.3278 3.6454 2.3398 2.0960 1.02 94.810000 100.000000 107.330000 3.6438 2.3721 2.1332 3.7994 2.5689 2.3305 1.02 94.810000 100.000000 107.330000 3.5471 2.3002 2.0030 3.4889 2.2626 2.1579 1.02 94.810000 100.000000 107.330000 3.9362 2.5470 2.2633 3.6307 2.3565 2.1710 1.02 94.810000 100.000000 107.330000 3.9104 2.5403 2.2865 3.6333 2.2922 2.1576 1.02 94.810000 100.000000 107.330000 3.2930 2.1409 1.9275 3.2002 2.1351 2.0479 1.02 94.810000 100.000000 107.330000 3.3841 2.1993 1.9586 3.1759 2.0778 1.7487 1.02 94.810000 100.000000 107.330000 33.0342 26.4055 28.4472 31.4709 25.0435 27.2073 1.02 94.810000 100.000000 107.330000 32.8319 26.0980 28.2682 32.1894 26.1182 28.3597 1.02 94.810000 100.000000 107.330000 32.7753 26.0242 28.0764 33.0350 26.3917 29.7062 1.02 94.810000 100.000000 107.330000 32.8250 26.1509 28.2988 31.4691 25.2169 27.9064 1.02 94.810000 100.000000 107.330000 32.2849 25.5215 27.2112 31.2268 24.4412 26.6514 1.02 94.810000 100.000000 107.330000 32.8468 26.1086 28.1739 33.9503 27.2943 29.9359 1.02 94.810000 100.000000 107.330000 32.8872 26.2250 28.2860 31.2077 24.9625 26.4191 1.02 94.810000 100.000000 107.330000 6.5781 6.2889 18.0400 6.1662 5.8815 17.2270 1.02 94.810000 100.000000 107.330000 6.7500 6.4000 18.6777 6.6524 6.4357 18.5966 1.02 94.810000 100.000000 107.330000 6.5772 6.2889 17.9959 6.6041 6.3441 18.6733 1.02 94.810000 100.000000 107.330000 6.6479 6.3340 18.4997 6.4054 6.1735 18.3342 1.02 94.810000 100.000000 107.330000 6.7074 6.3917 18.5154 6.3811 5.9848 18.1895 1.02 94.810000 100.000000 107.330000 6.5119 6.2075 17.8569 6.6962 6.4707 18.4738 1.02 94.810000 100.000000 107.330000 6.5769 6.2726 18.0896 6.0835 5.8774 16.7779 1.02 94.810000 100.000000 107.330000 59.6430 62.8815 67.3372 57.4498 60.4818 64.8777 1.02 94.810000 100.000000 107.330000 61.9527 65.3621 69.2838 61.5757 65.4238 69.2745 1.02 94.810000 100.000000 107.330000 58.8968 61.5808 65.3286 58.2762 60.5600 65.9659 1.02 94.810000 100.000000 107.330000 60.3930 63.8546 68.8220 58.7998 62.5183 68.1930 1.02 94.810000 100.000000 107.330000 61.0266 63.9121 68.5969 60.0927 62.5544 68.0599 1.02 94.810000 100.000000 107.330000 60.1101 62.9765 67.4036 60.6672 63.9230 68.8144 1.02 94.810000 100.000000 107.330000 57.5516 61.0209 65.4127 55.1590 58.5402 61.8866 1.02 94.810000 100.000000 107.330000 53.8673 49.7247 6.5517 51.1021 47.2036 5.8783 1.02 94.810000 100.000000 107.330000 54.3036 50.0664 6.5947 53.7863 50.2795 6.6294 1.02 94.810000 100.000000 107.330000 54.3919 50.1970 6.6395 54.3802 50.1106 7.7863 1.02 94.810000 100.000000 107.330000 54.4248 50.1643 6.5906 52.2863 48.6998 6.4568 1.02 94.810000 100.000000 107.330000 54.3416 50.0501 6.6105 52.6627 48.0943 6.4483 1.02 94.810000 100.000000 107.330000 53.9381 49.6274 6.4244 55.3660 51.3687 7.1693 1.02 94.810000 100.000000 107.330000 54.2776 50.0338 6.5861 52.3650 48.7624 5.9608 1.02 ] def %************************************* /cvi36show {1000 mul /nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 9999 le {(0) show} if nx 99999 le {(0) show} if nx 999999 le {(0) show} if nx cvi 10 string cvs show } def /cvi24show {100 mul /nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 9999 le {(0) show} if nx cvi 8 string cvs show } def %******************************************* /cvi03show {/nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx cvi 7 string cvs show } def /cvi02show {/nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx cvi 6 string cvs show } def /cvi02nshow {/nx exch def %with round nx 0 eq {%nx=0 (00) show nx cvi 6 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 /nx nx 0.5 add cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 6 string cvs show } if nx 0 lt {%nx<0 /nx nx 0.5 sub cvi def nx abs 99 le {(0) show} if nx 6 string cvs show } if %nx>=0 } def /cvi02xshow {/nx exch def %with round nx 0 eq {%nx=0 ( ) show nx cvi 6 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 /nx nx 0.5 add cvi def nx 9 le {( ) show} if nx 99 le {( ) show} if nx 6 string cvs show } if nx 0 lt {%nx<0 /nx nx 0.5 sub cvi def nx abs 99 le {( ) show} if nx 6 string cvs show } if %nx>=0 } def /cvi03nshow {/nx exch def %with round nx 0 eq {%nx=0 (000) show nx cvi 7 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 /nx nx 0.5 add cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 7 string cvs show } if nx 0 lt {%nx<0 /nx nx 0.5 sub cvi def nx abs 9 le {(0) show} if nx abs 99 le {(0) show} if nx 7 string cvs show } if %nx>=0 } def /cvi03xshow {/nx exch cvi def %with round nx 0 eq {%nx=0 ( ) show nx cvi 7 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 % /nx nx 0.5 add cvi def nx 9 le {( ) show} if nx 99 le {( ) show} if nx 999 le {( ) show} if nx 7 string cvs show } if nx 0 lt {%nx<0 % /nx nx 0.5 sub cvi def nx abs 9 le {( ) show} if nx abs 99 le {( ) show} if nx 7 string cvs show } if %nx>=0 } def %************************************************************* /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /proc_coldiff {%BEG procedure proc_coldiff PROC_coldifF_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %************************************************************* %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 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 07 def /xc2d 07 def /xc4d 07 def /xcal xc0d 1 add 2 mul % xc2d 1 add 2 mul add % xc4d 1 add 2 mul add 1 sub def /xchartl xchart def %0 1 xc0d {/xchart exch def %xchart=0,xc0d /iXYZLAB 0 def /xc1a 00 def /xc1e xc0d def /xc2a xc1e 1 add def /xc2e xc2a xc0d add def /xc3a xc2e 1 add def /xc3e xc3a xc2d add def /xc4a xc3e 1 add def /xc4e xc4a xc2d add def /xc5a xc4e 1 add def /xc5e xc5a xc4d add def /xc6a xc5e 1 add def /xc6e xc6a xc4d add def xchart xc1e le {/iXYZLAB 0 def /xchartl xchart def} if xchart xc2a ge xchart xc2e le and {/iXYZLAB 1 def /xchartl xchart xc2a sub def} if xchart xc3a ge xchart xc3e le and {/iXYZLAB 2 def /xchartl xchart xc3a sub def} if xchart xc4a ge xchart xc4e le and {/iXYZLAB 3 def /xchartl xchart xc4a sub def} if xchart xc5a ge xchart xc5e le and {/iXYZLAB 4 def /xchartl xchart xc5a sub def} if xchart xc6a ge xchart xc6e le and {/iXYZLAB 5 def /xchartl xchart xc6a sub def} if /xp0 0050 def /xp1 6650 def /xdel 620 def /xdel0 650 def /xdel1 550 def /xdela 21 array def /xdela %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 %XYZS, XYZ0, XYZ1, DY [0000 0650 1300 1950 2600 3250 3900 4550 5200 5850 %10 %11 %12 %13 %14 %15 %16 DE*(6X)+NR 6500 7000 7500 8000 8500 9000 9500 %17 %18 %19 %20 %21 %22 CODE, L*, a*, b*, % 10220 11300 11800 12300 12700] def /ydel 160 def %********************************************************** %iXYZLAB 00-05: %00=XYZa, 01=LABa, 02=XYZ2 03=LAB2 04=XYZ2 05=LAB2 /textXYZ 21 array def /textXYZ [(%XS) (YS) (ZS) (X0) (Y0) (Z0) (X1) (Y1) (Z1) (DV) (dE*ab) (dE*CH) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (L*) (a*) (b*)] def /textLAB 21 array def /textLAB [(%L*0) (a*0) (b*0) (C*ab0) (hab0) (L*1) (a*1) (b*1) (C*ab1) (hab1) (DV) (dE*ab) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (L*) (a*) (b*)] def /textXYZ2 21 array def /textXYZ2 [(%XS2) (YS2) (ZS2) (X02) (Y02) (Z02) (X12) (Y12) (Z12) (DV2) (dE*ab) (dE*CH) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (L*) (a*) (b*)] def /textLAB2 21 array def /textLAB2 [(%L*02) (a*02) (b*02) (C*ab02) (hab02) (L*12) (a*12) (b*12) (C*ab12) (hab12) (DV2) (dE*ab) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (L*) (a*) (b*)] def /textXYZ4 21 array def /textXYZ4 [(%XS4) (YS4) (ZS4) (X04) (Y04) (Z04) (X14) (Y14) (Z14) (DV4) (dE*ab) (dE*CH) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (L*) (a*) (b*)] def /textLAB4 21 array def /textLAB4 [(%L*04) (a*04) (b*04) (C*ab04) (hab04) (L*14) (a*14) (b*14) (C*ab14) (hab14) (DV4) (dE*ab) (dE*94) (dE*CM) (dE*00) (dE*85) (NR) (Code) (L*) (a*) (b*)] def %********************************************************** /D13 1 3 div def /D841_108 841 108 div def /D4_29 4 29 div def /D6_29 6 29 div 3 exp def %calculated data: CIELAB01ai, 2800 x 10 dat = 28000 /WXYZR01Vai 28000 array def %CIEXYZ /CIELAB01ai 28000 array def %CIELAB /C00LAB01ai 28000 array def %CIE DE2000 /d_CIELABai 2800 array def /d_CIELCHai 2800 array def /d_C94LABai 2800 array def %CIE94 /d_C94LCHai 2800 array def /d_CMCLABai 2800 array def %CMC /d_CMCLCHai 2800 array def /d_C00LABai 2800 array def %CIE DE2000 /d_C00LCHai 2800 array def /d_C85LABai 2800 array def %LABJND 1985 /d_C85LCHai 2800 array def /WXYZR01V2i 28000 array def %CIEXYZ /CIELAB012i 28000 array def %CIELAB /C00LAB012i 28000 array def %CIE DE2000 /d_CIELAB2i 2800 array def /d_CIELCH2i 2800 array def /d_C94LAB2i 2800 array def %CIE94 /d_C94LCH2i 2800 array def /d_CMCLAB2i 2800 array def %CMC /d_CMCLCH2i 2800 array def /d_C00LAB2i 2800 array def %CIE DE2000 /d_C00LCH2i 2800 array def /d_C85LAB2i 2800 array def %LABJND 1985 /d_C85LCH2i 2800 array def /WXYZR01V4i 28000 array def %CIEXYZ /CIELAB014i 28000 array def %CIELAB /C00LAB014i 28000 array def %CIE DE2000 /d_CIELAB4i 2800 array def /d_CIELCH4i 2800 array def /d_C94LAB4i 2800 array def %CIE94 /d_C94LCH4i 2800 array def /d_CMCLAB4i 2800 array def %CMC /d_CMCLCH4i 2800 array def /d_C00LAB4i 2800 array def %CIE DE2000 /d_C00LCH4i 2800 array def /d_C85LAB4i 2800 array def %LABJND 1985 /d_C85LCH4i 2800 array def /iai -1 def %count d_CIELAB all /i2i -1 def %count d_CIELAB<=2 /i4i -1 def %count d_C00LAB<=2 /dVsuma 0 def /dVsum2 0 def /dVsum4 0 def /d_CIELABmina 2800 def /d_CIELABmaxa 0 def /d_CIELABsuma 0 def /d_CIELABVsuma 0 def /d_CIELCHmina 2800 def /d_CIELCHmaxa 0 def /d_CIELCHsuma 0 def /d_CIELCHVsuma 0 def /d_C94LCHmina 2800 def /d_C94LCHmaxa 0 def /d_C94LCHsuma 0 def /d_C94LCHVsuma 0 def /d_CMCLCHmina 2800 def /d_CMCLCHmaxa 0 def /d_CMCLCHsuma 0 def /d_CMCLCHVsuma 0 def /d_C00LCHmina 2800 def /d_C00LCHmaxa 0 def /d_C00LCHsuma 0 def /d_C00LCHVsuma 0 def /d_C85LCHmina 2800 def /d_C85LCHmaxa 0 def /d_C85LCHsuma 0 def /d_C85LCHVsuma 0 def /d_CIELABmin2 2800 def /d_CIELABmax2 0 def /d_CIELABsum2 0 def /d_CIELABVsum2 0 def /d_CIELCHmin2 2800 def /d_CIELCHmax2 0 def /d_CIELCHsum2 0 def /d_CIELCHVsum2 0 def /d_C94LCHmin2 2800 def /d_C94LCHmax2 0 def /d_C94LCHsum2 0 def /d_C94LCHVsum2 0 def /d_CMCLCHmin2 2800 def /d_CMCLCHmax2 0 def /d_CMCLCHsum2 0 def /d_CMCLCHVsum2 0 def /d_C00LCHmin2 2800 def /d_C00LCHmax2 0 def /d_C00LCHsum2 0 def /d_C00LCHVsum2 0 def /d_C85LCHmin2 2800 def /d_C85LCHmax2 0 def /d_C85LCHsum2 0 def /d_C85LCHVsum2 0 def /d_CIELABmin4 2800 def /d_CIELABmax4 0 def /d_CIELABsum4 0 def /d_CIELABVsum4 0 def /d_CIELCHmin4 2800 def /d_CIELCHmax4 0 def /d_CIELCHsum4 0 def /d_CIELCHVsum4 0 def /d_C94LCHmin4 2800 def /d_C94LCHmax4 0 def /d_C94LCHsum4 0 def /d_C94LCHVsum4 0 def /d_CMCLCHmin4 2800 def /d_CMCLCHmax4 0 def /d_CMCLCHsum4 0 def /d_CMCLCHVsum4 0 def /d_C00LCHmin4 2800 def /d_C00LCHmax4 0 def /d_C00LCHsum4 0 def /d_C00LCHVsum4 0 def /d_C85LCHmin4 2800 def /d_C85LCHmax4 0 def /d_C85LCHsum4 0 def /d_C85LCHVsum4 0 def %STOP1 /iimp 312 def /iim iimp 1 sub def /iimax iim 50 idiv def %=1 for iimp=100 /iimm1 iimax 1 sub def /iimp1 iimax 1 add def 0 1 iimax {/ii exch def %ii=0,iimax /i1 50 ii mul def /i2 i1 49 add def ii iimax eq {/i2 iim def} if i1 1 i2 {/i exch def %i=i1,i2 /i10 i 10 mul def /XW WData0 i10 0 add get def /YW WData0 i10 1 add get def /ZW WData0 i10 2 add get def /X0 WData0 i10 3 add get def /Y0 WData0 i10 4 add get def /Z0 WData0 i10 5 add get def /X1 WData0 i10 6 add get def /Y1 WData0 i10 7 add get def /Z1 WData0 i10 8 add get def proc_coldiff /d_CIELAB d_CIELABi i get def /d_CIELCH d_CIELCHi i get def /d_C94LCH d_C94LCHi i get def /d_CMCLCH d_CMCLCHi i get def /d_C00LCH d_C00LCHi i get def /d_C85LCH d_C85LCHi i get def CIELAB01ai i10 0 add CIEL*0 put CIELAB01ai i10 1 add CIEa*0 put CIELAB01ai i10 2 add CIEb*0 put CIELAB01ai i10 3 add CIEC*ab0 put CIELAB01ai i10 4 add CIEhab0 put CIELAB01ai i10 5 add CIEL*1 put CIELAB01ai i10 6 add CIEa*1 put CIELAB01ai i10 7 add CIEb*1 put CIELAB01ai i10 8 add CIEC*ab1 put CIELAB01ai i10 9 add CIEhab1 put C00LAB01ai i10 0 add CIEL*0 put C00LAB01ai i10 1 add CIEa*0 put C00LAB01ai i10 2 add CIEb*0 put C00LAB01ai i10 3 add CIEC*ab0 put C00LAB01ai i10 4 add CIEhab0 put C00LAB01ai i10 5 add CIEL*1 put C00LAB01ai i10 6 add CIEa*1 put C00LAB01ai i10 7 add CIEb*1 put C00LAB01ai i10 8 add CIEC*ab1 put C00LAB01ai i10 9 add CIEhab1 put d_CIELABai i d_CIELAB put d_CIELCHai i d_CIELCH put d_C94LCHai i d_C94LCH put d_CMCLCHai i d_CMCLCH put d_C00LCHai i d_C00LCH put d_C85LCHai i d_C85LCH put %STOP31b %always /iai iai 1 add def d_CIELAB d_CIELABmina lt {/d_CIELABmina d_CIELAB def} if d_CIELAB d_CIELABmaxa gt {/d_CIELABmaxa d_CIELAB def} if /d_CIELABsuma d_CIELABsuma d_CIELAB add def d_CIELCH d_CIELCHmina lt {/d_CIELCHmina d_CIELCH def} if d_CIELCH d_CIELCHmaxa gt {/d_CIELCHmaxa d_CIELCH def} if /d_CIELCHsuma d_CIELCHsuma d_CIELCH add def d_C94LCH d_C94LCHmina lt {/d_C94LCHmina d_C94LCH def} if d_C94LCH d_C94LCHmaxa gt {/d_C94LCHmaxa d_C94LCH def} if /d_C94LCHsuma d_C94LCHsuma d_C94LCH add def d_CMCLCH d_CMCLCHmina lt {/d_CMCLCHmina d_CMCLCH def} if d_CMCLCH d_CMCLCHmaxa gt {/d_CMCLCHmaxa d_CMCLCH def} if /d_CMCLCHsuma d_CMCLCHsuma d_CMCLCH add def d_C00LCH d_C00LCHmina lt {/d_C00LCHmina d_C00LCH def} if d_C00LCH d_C00LCHmaxa gt {/d_C00LCHmaxa d_C00LCH def} if /d_C00LCHsuma d_C00LCHsuma d_C00LCH add def d_C85LCH d_C85LCHmina lt {/d_C85LCHmina d_C85LCH def} if d_C85LCH d_C85LCHmaxa gt {/d_C85LCHmaxa d_C85LCH def} if /d_C85LCHsuma d_C85LCHsuma d_C85LCH add def /dVsuma dVsuma WData0 i10 9 add get add def %save data in array 0 1 09 {/j exch def %j=0,09 WXYZR01Vai i10 j add WData0 i10 j add get put } for %j=0,09 %STOP5 d_CIELAB 2 le {%d_CIELAB<=2 /i2i i2i 1 add def /i2i10 i2i 10 mul def CIELAB012i i2i10 0 add CIEL*0 put CIELAB012i i2i10 1 add CIEa*0 put CIELAB012i i2i10 2 add CIEb*0 put CIELAB012i i2i10 3 add CIEC*ab0 put CIELAB012i i2i10 4 add CIEhab0 put CIELAB012i i2i10 5 add CIEL*1 put CIELAB012i i2i10 6 add CIEa*1 put CIELAB012i i2i10 7 add CIEb*1 put CIELAB012i i2i10 8 add CIEC*ab1 put CIELAB012i i2i10 9 add CIEhab1 put d_CIELAB2i i2i d_CIELABai i get put d_CIELCH2i i2i d_CIELCH put d_C94LCH2i i2i d_C94LCH put d_CMCLCH2i i2i d_CMCLCH put d_C00LCH2i i2i d_C00LCH put d_C85LCH2i i2i d_C85LCH put %always d_CIELAB d_CIELABmin2 lt {/d_CIELABmin2 d_CIELAB def} if d_CIELAB d_CIELABmax2 gt {/d_CIELABmax2 d_CIELAB def} if /d_CIELABsum2 d_CIELABsum2 d_CIELAB add def d_CIELCH d_CIELCHmin2 lt {/d_CIELCHmin2 d_CIELCH def} if d_CIELCH d_CIELCHmax2 gt {/d_CIELCHmax2 d_CIELCH def} if /d_CIELCHsum2 d_CIELCHsum2 d_CIELCH add def d_C94LCH d_C94LCHmin2 lt {/d_C94LCHmin2 d_C94LCH def} if d_C94LCH d_C94LCHmax2 gt {/d_C94LCHmax2 d_C94LCH def} if /d_C94LCHsum2 d_C94LCHsum2 d_C94LCH add def d_CMCLCH d_CMCLCHmin2 lt {/d_CMCLCHmin2 d_CMCLCH def} if d_CMCLCH d_CMCLCHmax2 gt {/d_CMCLCHmax2 d_CMCLCH def} if /d_CMCLCHsum2 d_CMCLCHsum2 d_CMCLCH add def d_C00LCH d_C00LCHmin2 lt {/d_C00LCHmin2 d_C00LCH def} if d_C00LCH d_C00LCHmax2 gt {/d_C00LCHmax2 d_C00LCH def} if /d_C00LCHsum2 d_C00LCHsum2 d_C00LCH add def d_C85LCH d_C85LCHmin2 lt {/d_C85LCHmin2 d_C85LCH def} if d_C85LCH d_C85LCHmax2 gt {/d_C85LCHmax2 d_C85LCH def} if /d_C85LCHsum2 d_C85LCHsum2 d_C85LCH add def /dVsum2 dVsum2 WData0 i10 9 add get add def %save data in array 0 1 09 {/j exch def %j=0,09 WXYZR01V2i i10 j add WData0 i10 j add get put } for %j=0,09 } if %d_CIELAB<=2 d_C00LCH 2 le {%d_C00LCH<=2 /i4i i4i 1 add def /i4i10 i4i 10 mul def CIELAB014i i4i10 0 add CIEL*0 put CIELAB014i i4i10 1 add CIEa*0 put CIELAB014i i4i10 2 add CIEb*0 put CIELAB014i i4i10 3 add CIEC*ab0 put CIELAB014i i4i10 4 add CIEhab0 put CIELAB014i i4i10 5 add CIEL*1 put CIELAB014i i4i10 6 add CIEa*1 put CIELAB014i i4i10 7 add CIEb*1 put CIELAB014i i4i10 8 add CIEC*ab1 put CIELAB014i i4i10 9 add CIEhab1 put d_CIELAB4i i4i d_CIELABai i get put d_CIELCH4i i4i d_CIELCH put d_C94LCH4i i4i d_C94LCH put d_CMCLCH4i i4i d_CMCLCH put d_C00LCH4i i4i d_C00LCH put d_C85LCH4i i4i d_C85LCH put %always d_CIELAB d_CIELABmin4 lt {/d_CIELABmin4 d_CIELAB def} if d_CIELAB d_CIELABmax4 gt {/d_CIELABmax4 d_CIELAB def} if /d_CIELABsum4 d_CIELABsum4 d_CIELAB add def d_CIELCH d_CIELCHmin4 lt {/d_CIELCHmin4 d_CIELCH def} if d_CIELCH d_CIELCHmax4 gt {/d_CIELCHmax4 d_CIELCH def} if /d_CIELCHsum4 d_CIELCHsum4 d_CIELCH add def d_C94LCH d_C94LCHmin4 lt {/d_C94LCHmin4 d_C94LCH def} if d_C94LCH d_C94LCHmax4 gt {/d_C94LCHmax4 d_C94LCH def} if /d_C94LCHsum4 d_C94LCHsum4 d_C94LCH add def d_CMCLCH d_CMCLCHmin4 lt {/d_CMCLCHmin4 d_CMCLCH def} if d_CMCLCH d_CMCLCHmax4 gt {/d_CMCLCHmax4 d_CMCLCH def} if /d_CMCLCHsum4 d_CMCLCHsum4 d_CMCLCH add def d_C00LCH d_C00LCHmin4 lt {/d_C00LCHmin4 d_C00LCH def} if d_C00LCH d_C00LCHmax4 gt {/d_C00LCHmax4 d_C00LCH def} if /d_C00LCHsum4 d_C00LCHsum4 d_C00LCH add def d_C85LCH d_C85LCHmin4 lt {/d_C85LCHmin4 d_C85LCH def} if d_C85LCH d_C85LCHmax4 gt {/d_C85LCHmax4 d_C85LCH def} if /d_C85LCHsum4 d_C85LCHsum4 d_C85LCH add def /dVsum4 dVsum4 WData0 i10 9 add get add def %save data in array 0 1 09 {/j exch def %j=0,09 WXYZR01V4i i10 j add WData0 i10 j add get put } for %j=0,09 } if %d_C00LCH<=2 %STOP5a } for %i=i1,i2 %STOP5b } for %ii=0,iimax %STOP6 %************************************************** iXYZLAB 0 ge iXYZLAB 1 le and {/iim iai def /iimax iim 50 idiv def} if iXYZLAB 2 ge iXYZLAB 3 le and {/iim i2i def /iimax i2i 50 idiv def} if iXYZLAB 4 ge iXYZLAB 5 le and {/iim i4i def /iimax i4i 50 idiv def} if /ii xchartl def /iimaxP1 iimax 1 add def gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS 700 85 moveto (WE950-7N) show (_) show iXYZLAB cvishow (_) show ii cvishow 72 90 translate /yhoe 8500 def 0.02 MM dup scale 15 setlinewidth 0.0 0.0 0.0 0.0 setcmyk_olvcolor 0 0 moveto 12700 0 rlineto 0 yhoe rlineto -12700 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto 12700 0 rlineto 0 yhoe rlineto -12700 0 rlineto closepath stroke CBSK xp0 yhoe ydel 0.9 mul sub moveto iXYZLAB 0 eq iXYZLAB 2 eq or iXYZLAB 4 eq or {%iXYZLAB=0,2,4 0 1 20 {/k exch def %k=0,20 xp0 xdela k get add yhoe ydel 0.9 mul sub moveto iXYZLAB 0 eq {textXYZ k get show} if iXYZLAB 2 eq {textXYZ2 k get show} if iXYZLAB 4 eq {textXYZ4 k get show} if } for %k=0,20 } if %iXYZLAB=0,2,4 iXYZLAB 1 eq iXYZLAB 3 eq or iXYZLAB 5 eq or {%iXYZLAB=1,3,5 0 1 20 {/k exch def %k=0,20 xp0 xdela k get add yhoe ydel 0.9 mul sub moveto iXYZLAB 1 eq {textLAB k get show} if iXYZLAB 3 eq {textLAB2 k get show} if iXYZLAB 5 eq {textLAB4 k get show} if } for %k=0,20 } if %iXYZLAB=1,3,5 ( %) show xp0 yhoe ydel 1.9 mul sub moveto iXYZLAB 0 eq {(%1000*CIEXYZ & 100*dE* data for all colour (a) of experiment) show} if iXYZLAB 1 eq {(%CIELAB data for all colour (a) of experiment) show} if iXYZLAB 2 eq {(%1000*CIEXYZ & 100*dE* data for colours (2) of experiment with CIELAB dE*ab<=2) show} if iXYZLAB 3 eq {(%CIELAB data for colours (2) of experiment with CIELAB dE*ab<=2) show} if iXYZLAB 4 eq {(%1000*CIEXYZ & 100*dE* data for colours (4) of experiment with CIE DE2000 dE*<=2) show} if iXYZLAB 5 eq {(%CIELAB data for colours (4) of experiment with CIE DE2000 dE*<=2) show} if (, iimp=) show iimp cvishow (, colour difference pairs ) show (RP_0312=RIT_DUPONT) show ( %) 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/WE95/WE95) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/WE95/WE95) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/WE95/WE95.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 WE95; ) showde %0WE95X-Y 0000# (TUB\255test chart WE95; ) showen %1WE95X-Y 0000# (gr\341fico TUB\255WE95; ) showes %2WE95X-Y 0000# (TUB\255test graphique WE95; ) showfr %3WE95X-Y 0000# (grafico TUB\255WE95; ) showit %4WE95X-Y 0000# (TUB\255test chart WE95; ) showjp %5WE95X-Y 0000# xchart4 0 eq {%xchart4=0 (Farbabst\344nde und -Formeln) showde %0WE95X-Y 0200# (Colour differences and formulae) showea %1WE95X-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 (RP_0312=RIT_DUPONT) show %0WE95X-Y 0200# 12 /Times-ISOL1 FS (\255Farbdifferenz\255Experimente) showde %0WE95X-Y 0200# ( colour difference experiments) showea %0WE95X-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 %0WE95X-Y 0300# (chromatic test chart) showen %1WE95X-Y 0300# (test crom\341tico gr\341fico) showes %2WE95X-Y 0300# (chromatic graphique de test) showfr %3WE95X-Y 0300# (prova cromatica grafico) showit %4WE95X-Y 0300# (chromatic test chart) showjp %5WE95X-Y 0300# 12 /TimesI-ISOL1 FS ( RGB) show } if xchart4 2 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0WE95X-Y 0400# (chromatic test chart) showen %1WE95X-Y 0400# (test crom\341tico gr\341fico) showes %2WE95X-Y 0400# (chromatic graphique de test) showfr %3WE95X-Y 0400# (prova cromatica grafico) showit %4WE95X-Y 0400# (chromatic test chart) showjp %5WE95X-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 %0WE95X-Y 0500# (input: ) showen %1WE95X-Y 0500# (entrada: ) showes %2WE95X-Y 0500# (entr\351e: ) showfr %3WE95X-Y 0500# (immettere: ) showit %4WE95X-Y 0500# (input: ) showjp %5WE95X-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 %0WE95X-Y 0600# (output: ) showen %1WE95X-Y 0600# (salida: ) showes %2WE95X-Y 0600# (sortie: ) showfr %3WE95X-Y 0600# (uscita: ) showit %4WE95X-Y 0600# (output: ) showjp %5WE95X-Y 0600# %colorm=0,1! 12 /Times-ISOL1 FS xchart 0 eq {%xchart=0,#0 12 /Times-ISOL1 FS (keine \304nderung) showde %0WE95X-Y 0700# (no change) showen %1WE95X-Y 0700# (ning\372n cambio) showes %2WE95X-Y 0700# (aucun changement) showfr %3WE95X-Y 0700# (nessun cambiamento) showit %4WE95X-Y 0700# (no change compared) showjp %5WE95X-Y 0700# }%xchart=0 {%xchart#0 12 /Times-ISOL1 FS colorm 0 eq {%colorm=0 (Transfer nach ) showde %0WE95X-Y 0800# (transfer to ) showen %1WE95X-Y 0800# (transfiera a ) showes %2WE95X-Y 0800# (transf\351rer \340 ) showfr %3WE95X-Y 0800# (trasferire a ) showit %4WE95X-Y 0800# (transfer to ) showjp %5WE95X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0WE95X-Y 0900# (3D\255linearization to ) showen %1WE95X-Y 0900# (3D\255linealizaci\363n a ) showes %2WE95X-Y 0900# (linearisation 3D selon ) showfr %3WE95X-Y 0900# (3D\255linearizzazione a ) showit %4WE95X-Y 0900# (3D\255linearization to ) showjp %5WE95X-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/WE95/WE95L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde %0WE95X-Y 1000# (start output) showen %1WE95X-Y 1000# (comience salida) showes %2WE95X-Y 1000# (sortie de production) showfr %3WE95X-Y 1000# (cominciare l'uscita) showit %4WE95X-Y 1000# (start output) showjp %5WE95X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0WE95X-Y 1100# (start output) showen %1WE95X-Y 1100# (comience salida) showes %2WE95X-Y 1100# (sortie de production) showfr %3WE95X-Y 1100# (cominciare l'uscita) showit %4WE95X-Y 1100# (start output) showjp %5WE95X-Y 1100# } if xchart 1 ge {%xchart>=1 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0WE95X-Y 1200# (transfer output) showen %1WE95X-Y 1200# (salida de transferencia) showes %2WE95X-Y 1200# (sortie de transfert) showfr %3WE95X-Y 1200# (uscita di trasferimento) showit %4WE95X-Y 1200# (transfer output) showjp %5WE95X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0WE95X-Y 1300# (3D\255linearization) showen %1WE95X-Y 1300# (3D\255linealizaci\363n) showes %2WE95X-Y 1300# (linearisation 3D) showfr %3WE95X-Y 1300# (3D\255linearizzzazione) showit %4WE95X-Y 1300# (3D\255linearization) showjp %5WE95X-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 %0WE95X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1WE95X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2WE95X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3WE95X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4WE95X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5WE95X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0WE95X-Y 1500# (in file (F) or PS\255startup (S)) showen %1WE95X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2WE95X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3WE95X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4WE95X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5WE95X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0WE95X-Y 1600# (3D\255linearization) showen %1WE95X-Y 1600# (3D\255linealizaci\363n) showes %2WE95X-Y 1600# (linearisation 3D) showfr %3WE95X-Y 1600# (3D\255linearizzzazione) showit %4WE95X-Y 1600# (3D\255linearization) showjp %5WE95X-Y 1600# ( WE95/WE95L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0WE95X-Y 1700# ( in file (F)) showen %1WE95X-Y 1700# ( en archivo (F)) showes %2WE95X-Y 1700# ( dans fichier (F)) showfr %3WE95X-Y 1700# ( nel file (F)) showit %4WE95X-Y 1700# ( in file (F)) showjp %5WE95X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0WE95X-Y 1800# ( in Distiller Startup (S) Directory) showen %1WE95X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2WE95X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3WE95X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4WE95X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5WE95X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0WE95X-Y 1900# ( in PS\255device (D)) showen %1WE95X-Y 1900# ( en el PS\255device (D)) showes %2WE95X-Y 1900# ( dans l'appareil PS (D)) showfr %3WE95X-Y 1900# ( nel PS\255dispositivo (D)) showit %4WE95X-Y 1900# ( in PS\255Device (D)) showjp %5WE95X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0WE95X-Y 2000# ( in Distiller Startup (S) Directory) showen %1WE95X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2WE95X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3WE95X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4WE95X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5WE95X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0WE95X-Y 2100# ( in PS\255device (D)) showen %1WE95X-Y 2100# ( en el PS\255device (D)) showes %2WE95X-Y 2100# ( dans appareil PS (D)) showfr %3WE95X-Y 2100# ( nel PS\255dispositivo (D)) showit %4WE95X-Y 2100# ( in PS\255Device (D)) showjp %5WE95X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0WE95X-Y 2200# (, page ) showen %1WE95X-Y 2200# (, p\341gina ) showes %2WE95X-Y 2200# (, page ) showfr %3WE95X-Y 2200# (, pagina ) showit %4WE95X-Y 2200# (, page ) showjp %5WE95X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0WE95X-Y 2300# (see similar files: ) showen %1WE95X-Y 2300# (vea archivos semejantes: ) showes %2WE95X-Y 2300# (voir des fichiers similaires: ) showfr %3WE95X-Y 2300# (vedere dei file simili: ) showit %4WE95X-Y 2300# (see similar files: ) showjp %5WE95X-Y 2300# (http://130.149.60.45/~farbmetrik/WE95/WE95.HTM) show %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0WE95X-Y 2400# (technical information: ) showen %1WE95X-Y 2400# (informaci\363n t\351cnica: ) showes %2WE95X-Y 2400# (informations techniques: ) showfr %3WE95X-Y 2400# (informazioni tecniche: ) showit %4WE95X-Y 2400# (technical information: ) showjp %5WE95X-Y 2400# (http://www.ps.bam.de) show ( oder ) showde %0WE95X-Y 2500# ( or ) showen %1WE95X-Y 2500# ( o ) showes %2WE95X-Y 2500# ( ou ) showfr %3WE95X-Y 2500# ( o ) showit %4WE95X-Y 2500# ( or ) showjp %5WE95X-Y 2500# (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20140801\255WE95/WE95L) showde %0WE95X-Y 2600# (TUB registration: 20140801\255WE95/WE95L) showen %1WE95X-Y 2600# (TUB matr\355cula: 20140801\255WE95/WE95L) showes %2WE95X-Y 2600# (TUB enregistrement: 20140801\255WE95/WE95L) showfr %3WE95X-Y 2600# (TUB iscrizione: 20140801\255WE95/WE95L) showit %4WE95X-Y 2600# (TUB registration: 20140801\255WE95/WE95L) showjp %5WE95X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0WE95X-Y 2700# (TUB material: code=rha4ta) showen %1WE95X-Y 2700# (TUB material: code=rha4ta) showes %2WE95X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3WE95X-Y 2700# (TUB materiale: code=rha4ta) showit %4WE95X-Y 2700# (TUB material: code=rha4ta) showjp %5WE95X-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 %0WE95X-Y 2800# ( application for measurement ) showen %1WE95X-Y 2800# ( aplicaci\363n para la medida ) showes %2WE95X-Y 2800# ( application pour la mesure ) showfr %3WE95X-Y 2800# ( la domanda per la misura ) showit %4WE95X-Y 2800# ( application for measurement ) showjp %5WE95X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display- oder Drucker-Ausgabe) showde %0WE95X-Y 2900# (of display or printer output) showen %1WE95X-Y 2900# (de display output) showes %2WE95X-Y 2900# (de sortie sur \350cran) showfr %3WE95X-Y 2900# (di stampa di display) showit %4WE95X-Y 2900# (of display output) showjp %5WE95X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0WE95X-Y 3000# (of offset print output) showen %1WE95X-Y 3000# (salida en la impressi\363n offset) showes %2WE95X-Y 3000# (des sorties sur offset) showfr %3WE95X-Y 3000# (uscita nella stampa di offset) showit %4WE95X-Y 3000# (of offset print output) showjp %5WE95X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0WE95X-Y 3100# (of laser printer output) showen %1WE95X-Y 3100# (salida de impresora l\341ser) showes %2WE95X-Y 3100# (des sorties sur imprimante laser) showfr %3WE95X-Y 3100# (di uscita della stampante laser) showit %4WE95X-Y 3100# (of laser printer output) showjp %5WE95X-Y 3100# } if %xchart5f=3 xchart 1 ge {%xchart>=1 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0WE95X-Y 3200# (, no separation) showen %1WE95X-Y 3200# (, ninguna separaci\363n) showes %2WE95X-Y 3200# (, aucune s\351paration) showfr %3WE95X-Y 3200# (, nessuna separazione) showit %4WE95X-Y 3200# (, no separation) showjp %5WE95X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0WE95X-Y 3300# (, separation) showen %1WE95X-Y 3300# (, separaci\363n) showes %2WE95X-Y 3300# (, s\351paration) showfr %3WE95X-Y 3300# (, separazione) showit %4WE95X-Y 3300# (, separation) showjp %5WE95X-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