%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.45/~farbmetrik/WG96/WG96L00XX.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/WG96) /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 WG96/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 WG96/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %BEG WG96/OUTLIN1X.PS 20110801 %EMPTY %END WG96/OUTLIN1X.PS 20110801 %BEG WG96/OUTLIN1Y2.PS Emty 20101101 %END WG96/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 307 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 00 def /lanind2f 00 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 WG960-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 (WG960-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 WG960-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 (WG960-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 WG960-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 (WG960-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 WG960-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 (WG960-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 WG960-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 (WG960-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 WG960-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 (WG960-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 WG960-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/WG96/) /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_0307_LEEDS.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 72.1264 76.3250 82.2831 72.8497 77.0850 82.8159 0.409816 94.810000 100.000000 107.330000 7.8832 8.6038 20.9810 7.8303 8.5038 20.8117 0.773062 94.810000 100.000000 107.330000 20.7791 15.0481 7.7769 20.5828 14.7981 7.5859 0.507712 94.810000 100.000000 107.330000 17.3485 18.3601 19.7997 17.6244 18.6501 20.0085 0.493642 94.810000 100.000000 107.330000 61.7479 68.1072 29.4045 62.7547 69.3172 30.2449 0.502956 94.810000 100.000000 107.330000 15.3941 22.6500 24.3222 15.7761 23.0900 24.7643 0.819632 94.810000 100.000000 107.330000 15.3941 22.6500 24.3222 15.7761 23.0900 24.7643 0.912295 94.810000 100.000000 107.330000 19.5649 13.8105 7.0639 19.9215 14.1005 7.1459 0.936094 94.810000 100.000000 107.330000 49.1871 52.0153 56.2875 50.2700 53.1453 57.5935 0.530898 94.810000 100.000000 107.330000 21.5735 15.4616 8.2990 22.0581 15.8416 8.5895 0.55884 94.810000 100.000000 107.330000 19.8391 14.0888 7.2465 20.2032 14.2188 7.3520 0.626707 94.810000 100.000000 107.330000 20.7184 14.7357 7.6264 21.2039 15.1257 7.8523 0.587042 94.810000 100.000000 107.330000 53.5994 56.6813 61.3557 54.8708 58.0413 62.6831 0.65198 94.810000 100.000000 107.330000 7.7247 8.1532 20.0415 7.4784 7.9032 19.0721 0.922086 94.810000 100.000000 107.330000 7.7247 8.1532 20.0415 7.4784 7.9032 19.0721 0.817099 94.810000 100.000000 107.330000 19.0713 13.5769 6.9060 19.7013 13.9869 7.1557 0.507712 94.810000 100.000000 107.330000 17.2790 18.2268 19.3822 17.5325 18.5568 19.6749 1.005912 94.810000 100.000000 107.330000 19.9195 14.0678 7.0923 19.6009 13.6878 6.8689 1.070955 94.810000 100.000000 107.330000 19.5155 13.7691 7.0735 19.9512 14.1291 7.1277 1.102687 94.810000 100.000000 107.330000 26.8671 28.4130 30.5583 27.6707 29.2530 31.4257 0.65198 94.810000 100.000000 107.330000 61.5228 67.8672 29.3727 63.1804 69.8072 30.3898 0.633352 94.810000 100.000000 107.330000 20.0752 14.2082 7.6110 19.9226 14.0982 7.2451 0.507712 94.810000 100.000000 107.330000 61.6348 67.9471 29.5419 63.6203 70.0671 30.9023 0.819632 94.810000 100.000000 107.330000 19.5735 14.1098 7.7187 19.8648 14.1098 7.3788 0.507712 94.810000 100.000000 107.330000 19.7731 14.0678 7.2380 20.2705 14.2378 7.3604 0.753635 94.810000 100.000000 107.330000 19.4809 13.7140 7.2516 20.1188 14.2340 7.6273 0.83826 94.810000 100.000000 107.330000 19.4809 13.7140 7.2516 20.1188 14.2340 7.6273 0.87263 94.810000 100.000000 107.330000 7.1989 7.7610 19.6529 7.2234 7.8510 18.7773 0.735806 94.810000 100.000000 107.330000 55.72530122 55.5203051 32.57029968 55.642718 55.17029752 31.24988139 0.735806 94.810000 100.000000 107.330000 17.1216 18.1106 19.1357 17.5475 18.4906 19.4706 1.015226 94.810000 100.000000 107.330000 17.1216 18.1106 19.1357 17.5475 18.4906 19.4706 0.674305 94.810000 100.000000 107.330000 16.9302 17.8798 18.9715 17.4614 18.4098 19.4047 0.940714 94.810000 100.000000 107.330000 16.9302 17.8798 18.9715 17.4614 18.4098 19.4047 0.761568 94.810000 100.000000 107.330000 20.0756 14.1449 7.6206 19.9015 14.1449 7.4145 0.71397 94.810000 100.000000 107.330000 24.0509 21.3496 24.1733 24.0360 21.3596 23.5369 0.661294 94.810000 100.000000 107.330000 8.4787 9.3929 23.6581 8.4178 9.3529 22.3407 0.847574 94.810000 100.000000 107.330000 8.4787 9.3929 23.6581 8.4178 9.3529 22.3407 0.817099 94.810000 100.000000 107.330000 30.63459846 22.76549777 20.39950144 30.71025264 22.44550034 19.77198268 0.74512 94.810000 100.000000 107.330000 23.3173 20.8728 24.2769 23.4338 20.8628 23.7137 0.65198 94.810000 100.000000 107.330000 21.3174 15.2170 8.3520 20.7148 14.7270 7.8205 0.71397 94.810000 100.000000 107.330000 18.9981 13.5428 6.8864 19.7790 14.0228 7.1781 0.769501 94.810000 100.000000 107.330000 20.5886 14.6421 7.5427 21.3428 15.2221 7.9418 0.785367 94.810000 100.000000 107.330000 20.61640274 28.93020034 21.92350207 20.79301307 29.17019924 21.37720013 0.642666 94.810000 100.000000 107.330000 19.21380138 13.748499 7.37950034 19.68282179 13.88849994 7.09774438 1.126994 94.810000 100.000000 107.330000 17.4650 16.1265 36.1805 17.2449 16.1765 35.5817 0.79169 94.810000 100.000000 107.330000 7.7417 8.1824 20.3128 7.4509 7.8924 18.9860 1.015226 94.810000 100.000000 107.330000 7.7417 8.1824 20.3128 7.4509 7.8924 18.9860 0.991625 94.810000 100.000000 107.330000 5.5666 5.8731 6.0611 5.9474 6.2731 6.4834 0.810318 94.810000 100.000000 107.330000 17.0842 18.0693 19.1223 17.6024 18.6493 19.5818 1.11768 94.810000 100.000000 107.330000 17.0842 18.0693 19.1223 17.6024 18.6493 19.5818 0.817099 94.810000 100.000000 107.330000 8.2356 9.1755 23.3558 8.0938 9.0355 21.8551 0.689236 94.810000 100.000000 107.330000 63.65010292 69.9655968 29.60609584 64.10679692 70.57560119 28.28960413 0.549526 94.810000 100.000000 107.330000 35.8587949 29.04349928 13.84259762 36.83521229 29.47350084 13.49385206 0.707864 94.810000 100.000000 107.330000 17.2687 16.1265 36.5640 17.3416 16.3365 35.5113 0.624038 94.810000 100.000000 107.330000 19.5689 14.1028 7.7613 19.8793 14.1228 7.3439 0.690171 94.810000 100.000000 107.330000 20.0156 14.1519 7.6033 19.9814 14.1519 7.2466 0.785367 94.810000 100.000000 107.330000 10.9856 11.6227 12.3447 11.5369 12.2027 12.9908 0.670608 94.810000 100.000000 107.330000 8.4629 9.7445 22.5484 8.9117 10.2745 23.6073 1.07111 94.810000 100.000000 107.330000 20.00099784 13.83129956 7.517301465 19.45702419 13.66129973 7.32405836 0.717178 94.810000 100.000000 107.330000 10.3303 10.9286 11.6050 10.8822 11.5086 12.2068 0.88483 94.810000 100.000000 107.330000 10.3303 10.9286 11.6050 10.8822 11.5086 12.2068 0.761568 94.810000 100.000000 107.330000 8.4893 9.6246 23.2501 8.5994 9.6546 22.5722 0.819632 94.810000 100.000000 107.330000 30.03979904 22.01230132 20.10180118 30.5716738 22.31230006 19.65881947 0.679922 94.810000 100.000000 107.330000 19.7927 14.1308 7.2956 20.2426 14.1708 7.2996 0.936094 94.810000 100.000000 107.330000 8.2834 9.4625 21.8188 8.7405 10.0025 22.9054 0.69855 94.810000 100.000000 107.330000 8.2834 9.4625 21.8188 8.7405 10.0025 22.9054 0.674305 94.810000 100.000000 107.330000 58.29379995 58.20029554 35.568501 58.20817581 58.51030158 35.47807276 0.754434 94.810000 100.000000 107.330000 19.4675 13.7416 7.0764 20.2571 14.3816 7.5602 1.229448 94.810000 100.000000 107.330000 19.4675 13.7416 7.0764 20.2571 14.3816 7.5602 1.26928 94.810000 100.000000 107.330000 8.7094 9.9375 23.9378 9.0895 10.3575 23.7707 0.903458 94.810000 100.000000 107.330000 8.7094 9.9375 23.9378 9.0895 10.3575 23.7707 0.761568 94.810000 100.000000 107.330000 16.9115 17.8962 19.2643 17.5984 18.6162 19.9819 0.801004 94.810000 100.000000 107.330000 8.4807 9.6844 24.1378 8.4827 9.5944 23.1661 0.9314 94.810000 100.000000 107.330000 8.4807 9.6844 24.1378 8.4827 9.5944 23.1661 0.674305 94.810000 100.000000 107.330000 60.7616 66.9526 28.8377 62.9743 69.5426 30.2814 0.707864 94.810000 100.000000 107.330000 19.5556 14.1098 7.7857 19.8851 14.1098 7.3227 0.864697 94.810000 100.000000 107.330000 19.8364 14.1941 7.4021 20.2034 14.1141 7.1966 1.070955 94.810000 100.000000 107.330000 18.54899792 13.3594992 7.457399884 19.22630652 13.55950073 7.311212369 0.856888 94.810000 100.000000 107.330000 20.66280178 28.98680045 22.00529946 20.65978048 29.18679983 21.23093284 0.707864 94.810000 100.000000 107.330000 16.9188 17.8716 18.9932 17.5687 18.5916 19.6893 1.126994 94.810000 100.000000 107.330000 16.9188 17.8716 18.9932 17.5687 18.5916 19.6893 0.674305 94.810000 100.000000 107.330000 19.3902 13.6728 7.0391 20.0899 14.2328 7.1664 1.340677 94.810000 100.000000 107.330000 28.0669 29.6833 31.9308 29.2493 30.9333 33.2467 0.894144 94.810000 100.000000 107.330000 8.7162 9.9708 22.9242 9.2555 10.5808 24.1188 0.940714 94.810000 100.000000 107.330000 8.7162 9.9708 22.9242 9.2555 10.5808 24.1188 0.87263 94.810000 100.000000 107.330000 8.4953 9.7172 22.4086 9.0103 10.3172 23.5509 0.847574 94.810000 100.000000 107.330000 8.4953 9.7172 22.4086 9.0103 10.3172 23.5509 0.817099 94.810000 100.000000 107.330000 19.9868 14.1449 7.6399 20.0173 14.1649 7.2205 1.047156 94.810000 100.000000 107.330000 17.2306 16.0806 36.4514 17.4816 16.1406 36.2794 1.126994 94.810000 100.000000 107.330000 32.9586 34.8222 37.3667 34.3363 36.3022 39.0442 0.79169 94.810000 100.000000 107.330000 17.0463 18.1520 19.2205 17.5033 18.5520 19.3799 1.378472 94.810000 100.000000 107.330000 17.0463 18.1520 19.2205 17.5033 18.5520 19.3799 1.078888 94.810000 100.000000 107.330000 20.1072 14.1589 7.6688 19.8628 14.1289 7.3644 0.848831 94.810000 100.000000 107.330000 30.00379474 21.99339892 20.10999795 30.87814876 22.25340181 19.78027125 0.69855 94.810000 100.000000 107.330000 24.7082 21.8524 24.4371 24.7268 22.1224 24.2633 0.819632 94.810000 100.000000 107.330000 17.2603 18.3017 18.9813 17.4553 18.4717 19.6363 1.11768 94.810000 100.000000 107.330000 17.2603 18.3017 18.9813 17.4553 18.4717 19.6363 0.87263 94.810000 100.000000 107.330000 7.8599 8.2902 20.6540 7.4644 7.9002 18.9764 1.173564 94.810000 100.000000 107.330000 7.8599 8.2902 20.6540 7.4644 7.9002 18.9764 1.18995 94.810000 100.000000 107.330000 23.5607 29.1912 55.7215 23.3299 29.2112 54.3776 1.07111 94.810000 100.000000 107.330000 34.6513 36.6187 39.3359 36.1857 38.2287 41.0893 0.940714 94.810000 100.000000 107.330000 23.2493 20.8001 24.1647 23.8546 21.0901 24.3340 0.856888 94.810000 100.000000 107.330000 57.08429592 56.98289921 34.14429869 57.25918178 56.64289253 33.38677075 0.828946 94.810000 100.000000 107.330000 16.6455 20.5199 28.4108 16.8754 20.7299 27.7440 1.173564 94.810000 100.000000 107.330000 56.43920591 56.20440554 33.71210614 56.33759038 55.67439307 32.02590407 0.903458 94.810000 100.000000 107.330000 20.08839892 29.04349928 21.16869653 20.69874122 29.26350177 21.30211808 0.79169 94.810000 100.000000 107.330000 16.79849787 21.50699869 28.23999674 16.88029645 21.29700016 27.9845728 0.875516 94.810000 100.000000 107.330000 7.6902 8.1484 20.5843 7.5544 8.1584 19.2393 1.145622 94.810000 100.000000 107.330000 7.6902 8.1484 20.5843 7.5544 8.1584 19.2393 1.126486 94.810000 100.000000 107.330000 8.6417 9.8545 24.0869 9.0538 10.3245 23.8715 1.015226 94.810000 100.000000 107.330000 8.6417 9.8545 24.0869 9.0538 10.3245 23.8715 0.991625 94.810000 100.000000 107.330000 17.0680 18.1769 19.2521 17.1725 18.2169 18.8696 1.220134 94.810000 100.000000 107.330000 17.0680 18.1769 19.2521 17.1725 18.2169 18.8696 1.03129 94.810000 100.000000 107.330000 20.45230394 28.93020034 21.762001 20.02055367 28.94020075 21.07166765 0.642666 94.810000 100.000000 107.330000 30.1979021 36.35459693 22.1619979 30.33342966 36.51459594 21.20404918 0.754434 94.810000 100.000000 107.330000 15.94160203 23.38820275 25.13930446 16.42284824 23.52819979 24.99346882 0.83826 94.810000 100.000000 107.330000 19.8051 14.1800 7.3819 20.2380 14.1300 7.2170 1.308945 94.810000 100.000000 107.330000 8.4503 9.3769 23.6160 8.4084 9.3569 21.9906 1.080424 94.810000 100.000000 107.330000 8.4503 9.3769 23.6160 8.4084 9.3569 21.9906 1.126486 94.810000 100.000000 107.330000 69.2881 73.3198 79.3505 72.3739 76.5798 82.5932 0.717178 94.810000 100.000000 107.330000 31.14960456 21.73060158 19.85659972 31.04538826 21.96060041 19.3860407 0.521584 94.810000 100.000000 107.330000 16.9826 15.2687 21.7235 17.1935 15.2787 21.3856 0.847574 94.810000 100.000000 107.330000 23.2603 28.9642 55.8309 23.5564 28.9642 53.7507 1.061796 94.810000 100.000000 107.330000 15.85280002 23.25110022 25.00410003 15.71557195 23.1310995 23.99482574 0.847574 94.810000 100.000000 107.330000 33.79769994 28.15670138 13.94890196 33.51486117 28.27670049 13.88441979 0.801004 94.810000 100.000000 107.330000 17.14870088 18.13549863 19.27969797 16.89248523 17.90550144 18.5602049 1.154936 94.810000 100.000000 107.330000 17.24939884 18.16860013 19.1002995 17.30864643 18.23859916 18.64447535 1.25739 94.810000 100.000000 107.330000 20.1603 14.1871 7.6852 19.8209 14.1071 7.3539 0.936094 94.810000 100.000000 107.330000 8.2205 9.3875 21.5574 8.4693 9.5175 21.5724 0.801004 94.810000 100.000000 107.330000 8.2205 9.3875 21.5574 8.4693 9.5175 21.5724 0.817099 94.810000 100.000000 107.330000 8.2500 9.4303 21.5397 8.3459 9.3803 21.4652 0.968656 94.810000 100.000000 107.330000 8.2500 9.4303 21.5397 8.3459 9.3803 21.4652 0.95196 94.810000 100.000000 107.330000 23.5917 29.4766 56.9904 23.2767 29.1366 54.1868 0.847574 94.810000 100.000000 107.330000 28.11949644 34.14819609 21.13859311 27.82715886 34.30820477 20.55096708 1.061796 94.810000 100.000000 107.330000 17.2262 18.1769 19.3239 17.6412 18.6969 19.6008 1.434356 94.810000 100.000000 107.330000 17.2262 18.1769 19.3239 17.6412 18.6969 19.6008 1.18995 94.810000 100.000000 107.330000 20.65730192 28.9982007 21.99810205 20.90167506 28.96819692 21.32258282 1.11768 94.810000 100.000000 107.330000 15.4838 22.8621 24.3757 16.2852 23.9321 25.4579 0.97797 94.810000 100.000000 107.330000 5.0547 5.3612 5.6382 5.5384 5.8712 6.2087 0.726492 94.810000 100.000000 107.330000 5.0547 5.3612 5.6382 5.5384 5.8712 6.2087 0.761568 94.810000 100.000000 107.330000 17.5276 18.4773 18.9114 17.6105 18.5573 19.5493 1.322588 94.810000 100.000000 107.330000 17.5276 18.4773 18.9114 17.6105 18.5573 19.5493 0.95196 94.810000 100.000000 107.330000 16.22750462 23.38820275 24.97450517 15.84244931 23.44820071 25.02123384 0.875516 94.810000 100.000000 107.330000 56.18330234 55.94060232 33.46819838 55.6144622 55.15060332 31.21894109 1.126994 94.810000 100.000000 107.330000 8.4205 9.5974 23.6847 8.5482 9.6374 22.7308 1.061796 94.810000 100.000000 107.330000 8.4205 9.5974 23.6847 8.5482 9.6374 22.7308 0.991625 94.810000 100.000000 107.330000 24.7486 30.3675 55.8137 25.0356 30.2475 54.0897 1.238762 94.810000 100.000000 107.330000 20.5019 14.6133 7.6366 21.5083 15.4033 8.2306 1.145622 94.810000 100.000000 107.330000 17.2208 18.1769 19.2573 17.1510 18.1969 18.8619 1.322588 94.810000 100.000000 107.330000 17.2208 18.1769 19.2573 17.1510 18.1969 18.8619 1.03129 94.810000 100.000000 107.330000 63.72170474 70.19010488 30.94210356 63.24809838 70.44009916 30.74872462 0.950028 94.810000 100.000000 107.330000 30.0935039 36.20990004 22.05550219 30.25009443 35.95989877 21.60314308 0.987284 94.810000 100.000000 107.330000 17.4654 15.4020 22.4249 17.0938 15.1720 21.2404 0.83826 94.810000 100.000000 107.330000 18.8762 13.4611 6.8126 19.9217 14.1211 7.2669 1.023357 94.810000 100.000000 107.330000 23.3380 29.2140 54.2828 23.6726 29.1040 53.9291 0.996598 94.810000 100.000000 107.330000 50.0901 52.9577 57.2514 52.5463 55.5377 60.0756 1.108366 94.810000 100.000000 107.330000 16.9649 15.8522 36.2658 17.2774 16.0822 35.7023 1.052482 94.810000 100.000000 107.330000 50.3679 53.2630 57.7296 52.8521 55.8730 60.5938 0.903458 94.810000 100.000000 107.330000 50.3679 53.2630 57.7296 52.8521 55.8730 60.5938 0.817099 94.810000 100.000000 107.330000 32.6111 34.4523 36.9381 34.2102 36.1423 38.7836 1.276018 94.810000 100.000000 107.330000 62.29109637 68.93129608 30.37029846 63.43944824 69.76129232 29.34692185 0.735806 94.810000 100.000000 107.330000 8.6433 9.8435 24.1319 9.0785 10.3435 23.8080 1.182878 94.810000 100.000000 107.330000 8.6433 9.8435 24.1319 9.0785 10.3435 23.8080 1.078888 94.810000 100.000000 107.330000 10.5937 11.2028 11.9084 11.3027 11.9528 12.7167 1.11768 94.810000 100.000000 107.330000 10.5937 11.2028 11.9084 11.3027 11.9528 12.7167 0.912295 94.810000 100.000000 107.330000 20.6637 14.6996 7.7301 19.8130 13.9896 7.0060 1.023357 94.810000 100.000000 107.330000 15.9902 23.3882 24.9623 16.8444 24.5482 26.1950 1.266704 94.810000 100.000000 107.330000 15.9902 23.3882 24.9623 16.8444 24.5482 26.1950 1.126486 94.810000 100.000000 107.330000 15.6161 14.2858 21.6156 15.5279 14.4258 21.4935 0.661294 94.810000 100.000000 107.330000 18.8471 13.4611 6.8331 19.9405 14.1111 7.2318 1.237548 94.810000 100.000000 107.330000 10.2621 10.8402 11.4890 10.9715 11.5902 12.3159 1.11768 94.810000 100.000000 107.330000 20.5732 14.7935 7.5817 19.9145 14.0635 7.0895 1.42794 94.810000 100.000000 107.330000 17.1883 18.2351 18.9114 17.5607 18.5151 18.8804 1.508868 94.810000 100.000000 107.330000 17.1883 18.2351 18.9114 17.5607 18.5151 18.8804 1.26928 94.810000 100.000000 107.330000 31.55949507 26.97369807 14.15969837 32.42641264 27.22370031 13.95455634 0.88483 94.810000 100.000000 107.330000 29.30200532 36.77780193 22.22489684 29.32747241 36.25780467 21.74347891 1.089738 94.810000 100.000000 107.330000 68.9703 72.9838 78.8567 72.3392 76.5638 82.2494 0.959342 94.810000 100.000000 107.330000 66.1239 69.9656 75.7048 69.5146 73.5756 79.5646 0.79169 94.810000 100.000000 107.330000 16.64409782 17.70800007 18.7885001 16.8427495 17.84799934 18.43949068 1.201506 94.810000 100.000000 107.330000 16.94350096 17.86340014 18.92370173 16.86469264 17.88339995 18.52985743 1.21082 94.810000 100.000000 107.330000 30.23200296 36.05250127 22.16390386 30.21301769 36.38250433 21.15551456 0.83826 94.810000 100.000000 107.330000 32.51969179 27.32069735 14.06889652 33.39088989 28.0607017 13.78790492 0.959342 94.810000 100.000000 107.330000 8.0707 8.9770 21.6820 7.9565 8.7070 21.0477 1.220134 94.810000 100.000000 107.330000 8.0707 8.9770 21.6820 7.9565 8.7070 21.0477 0.991625 94.810000 100.000000 107.330000 20.1268 14.1519 7.6863 19.8551 14.1419 7.3498 1.158218 94.810000 100.000000 107.330000 5.0289 5.3135 5.6215 5.5568 5.8735 6.2373 1.285332 94.810000 100.000000 107.330000 5.0289 5.3135 5.6215 5.5568 5.8735 6.2373 1.126486 94.810000 100.000000 107.330000 19.29039911 13.46109953 7.241400581 19.03330871 13.46109953 6.924629892 0.763748 94.810000 100.000000 107.330000 16.5556 20.7094 28.1409 16.9857 20.9294 27.5857 1.25739 94.810000 100.000000 107.330000 16.9170 17.8716 18.9831 17.1956 18.2416 18.8920 1.639264 94.810000 100.000000 107.330000 16.9170 17.8716 18.9831 17.1956 18.2416 18.8920 1.078888 94.810000 100.000000 107.330000 16.5668 20.7185 28.1457 16.9581 20.8285 27.8674 1.201506 94.810000 100.000000 107.330000 68.9749 72.9838 79.0141 72.5519 76.7838 82.6507 0.959342 94.810000 100.000000 107.330000 68.9749 72.9838 79.0141 72.5519 76.7838 82.6507 0.761568 94.810000 100.000000 107.330000 27.6625 29.2481 31.4417 29.1663 30.8381 33.1509 1.201506 94.810000 100.000000 107.330000 27.6625 29.2481 31.4417 29.1663 30.8381 33.1509 0.991625 94.810000 100.000000 107.330000 15.88429943 23.29019782 25.04010168 15.68429639 23.24020132 23.97301163 0.959342 94.810000 100.000000 107.330000 20.0109 14.1660 7.7097 19.9944 14.1460 7.1499 1.285146 94.810000 100.000000 107.330000 8.5024 9.6681 23.6754 8.6142 9.6781 22.5366 1.16425 94.810000 100.000000 107.330000 8.5024 9.6681 23.6754 8.6142 9.6781 22.5366 1.03129 94.810000 100.000000 107.330000 60.9904 67.2102 28.9613 64.0401 70.7602 30.8177 0.83826 94.810000 100.000000 107.330000 60.9904 67.2102 28.9613 64.0401 70.7602 30.8177 0.87263 94.810000 100.000000 107.330000 16.8323 17.7651 18.8544 16.9271 18.0151 19.0506 1.72309 94.810000 100.000000 107.330000 34.85039623 29.96039733 15.41479983 35.36818606 29.7804015 14.61638496 1.005912 94.810000 100.000000 107.330000 8.5407 9.4518 24.1608 8.3892 9.3218 21.9521 1.285332 94.810000 100.000000 107.330000 8.5407 9.4518 24.1608 8.3892 9.3218 21.9521 1.412074 94.810000 100.000000 107.330000 20.7157 14.7284 7.8165 19.7714 13.9584 7.0059 1.308945 94.810000 100.000000 107.330000 60.4986 66.6167 28.8021 64.0438 70.3567 31.1228 1.061796 94.810000 100.000000 107.330000 60.5334 66.6956 28.7345 64.1126 70.4556 31.0009 1.061796 94.810000 100.000000 107.330000 60.5334 66.6956 28.7345 64.1126 70.4556 31.0009 0.991625 94.810000 100.000000 107.330000 8.0690 9.1020 21.1454 7.9491 9.1620 21.1999 0.940714 94.810000 100.000000 107.330000 17.4850 15.4169 22.4387 16.9540 15.2169 21.6595 0.940714 94.810000 100.000000 107.330000 30.57859966 22.73659945 20.38259808 30.9994382 22.35660238 19.82163535 1.005912 94.810000 100.000000 107.330000 19.34360016 13.46109953 7.265499754 19.46830454 13.58110043 6.808500092 0.987284 94.810000 100.000000 107.330000 8.4900 9.7227 22.3901 9.1919 10.5327 24.0051 1.099052 94.810000 100.000000 107.330000 8.4900 9.7227 22.3901 9.1919 10.5327 24.0051 0.991625 94.810000 100.000000 107.330000 16.7195 20.6190 28.5835 16.5435 20.6890 28.0987 1.182878 94.810000 100.000000 107.330000 19.4789 14.1168 7.8833 19.9708 14.1068 7.2263 1.158218 94.810000 100.000000 107.330000 17.1864 18.2351 18.9266 17.6728 18.6251 19.7302 1.53681 94.810000 100.000000 107.330000 17.1864 18.2351 18.9266 17.6728 18.6251 19.7302 1.18995 94.810000 100.000000 107.330000 8.1835 9.3662 21.5912 8.4239 9.4362 21.6559 1.089738 94.810000 100.000000 107.330000 8.1835 9.3662 21.5912 8.4239 9.4362 21.6559 1.078888 94.810000 100.000000 107.330000 20.3836 14.4561 7.4042 21.5620 15.4261 8.0904 1.070955 94.810000 100.000000 107.330000 27.1587 28.7158 30.7857 28.7652 30.4058 32.6447 1.052482 94.810000 100.000000 107.330000 20.0291 21.1745 22.7724 21.2028 22.4145 24.0643 1.480926 94.810000 100.000000 107.330000 16.9821 18.0858 19.1297 17.2634 18.2158 19.3710 1.620636 94.810000 100.000000 107.330000 19.3133 13.5633 6.9178 20.4783 14.5233 7.5970 1.359844 94.810000 100.000000 107.330000 7.6902 8.1484 20.5789 7.5328 8.1884 18.9975 1.369158 94.810000 100.000000 107.330000 7.6902 8.1484 20.5789 7.5328 8.1884 18.9975 1.18995 94.810000 100.000000 107.330000 15.82240081 23.23150284 24.99530406 16.14121459 23.24149959 24.08164983 1.266704 94.810000 100.000000 107.330000 7.8352 9.0602 21.1356 8.0328 9.0802 21.0982 1.015226 94.810000 100.000000 107.330000 65.3467 69.1535 74.5503 69.2851 73.3435 79.0213 1.02454 94.810000 100.000000 107.330000 62.94120722 69.49790518 30.10239825 64.11795113 70.57790138 28.27519545 0.9314 94.810000 100.000000 107.330000 17.0981 18.0858 19.0991 17.5114 18.4658 18.8864 1.508868 94.810000 100.000000 107.330000 17.0981 18.0858 19.0991 17.5114 18.4658 18.8864 1.18995 94.810000 100.000000 107.330000 35.4949 37.5128 40.3128 37.6649 39.7928 42.7140 1.16425 94.810000 100.000000 107.330000 35.4949 37.5128 40.3128 37.6649 39.7928 42.7140 0.761568 94.810000 100.000000 107.330000 4.9569 5.2191 5.3885 5.5707 5.8691 6.0684 1.126994 94.810000 100.000000 107.330000 8.0539 9.2599 23.2023 8.3050 9.3899 22.3903 0.959342 94.810000 100.000000 107.330000 20.3317 21.5070 23.1413 21.5614 22.8070 24.4977 1.35053 94.810000 100.000000 107.330000 20.3317 21.5070 23.1413 21.5614 22.8070 24.4977 1.078888 94.810000 100.000000 107.330000 16.8557 15.9357 36.2734 17.2415 16.1757 35.6992 1.276018 94.810000 100.000000 107.330000 16.6489 15.2244 21.8718 17.0375 15.3144 21.8257 1.145622 94.810000 100.000000 107.330000 24.2214 21.1011 23.4854 24.0444 21.3711 23.5755 0.950028 94.810000 100.000000 107.330000 17.0127 18.1106 19.1612 17.6788 18.9406 20.1529 1.67652 94.810000 100.000000 107.330000 17.2275 18.1686 19.3099 17.4279 18.3786 18.8245 1.639264 94.810000 100.000000 107.330000 17.2275 18.1686 19.3099 17.4279 18.3786 18.8245 1.26928 94.810000 100.000000 107.330000 20.1550 14.1730 7.7536 19.8140 14.1130 7.2791 1.380342 94.810000 100.000000 107.330000 60.80241179 67.24990588 30.30910234 61.17282018 66.8098941 29.41667432 1.173564 94.810000 100.000000 107.330000 8.3764 9.3023 22.0045 7.9870 8.7223 21.1292 1.462298 94.810000 100.000000 107.330000 50.2913 53.1780 57.5954 53.5077 56.5780 61.2250 1.043168 94.810000 100.000000 107.330000 50.2913 53.1780 57.5954 53.5077 56.5780 61.2250 0.912295 94.810000 100.000000 107.330000 17.3814 18.3852 19.5150 17.4652 18.4152 18.8496 1.574066 94.810000 100.000000 107.330000 17.3814 18.3852 19.5150 17.4652 18.4152 18.8496 1.412074 94.810000 100.000000 107.330000 8.1607 9.0342 21.8096 7.9835 8.6742 20.8898 1.331902 94.810000 100.000000 107.330000 8.1607 9.0342 21.8096 7.9835 8.6742 20.8898 1.412074 94.810000 100.000000 107.330000 8.2097 9.4625 22.0310 9.0267 10.3625 23.7643 1.35053 94.810000 100.000000 107.330000 16.9883 17.9373 19.0074 17.4749 18.4273 18.8456 1.49024 94.810000 100.000000 107.330000 16.9883 17.9373 19.0074 17.4749 18.4273 18.8456 1.412074 94.810000 100.000000 107.330000 17.03230304 17.94560102 19.07720248 16.75548827 17.83559902 18.8910257 1.527496 94.810000 100.000000 107.330000 8.1607 9.3236 21.5426 8.9216 10.2136 23.3680 1.285332 94.810000 100.000000 107.330000 8.1607 9.3236 21.5426 8.9216 10.2136 23.3680 1.078888 94.810000 100.000000 107.330000 34.8174 36.7911 39.5375 37.1585 39.2511 42.0964 1.238762 94.810000 100.000000 107.330000 14.4207 21.3588 22.9359 15.4799 22.7788 24.4120 1.369158 94.810000 100.000000 107.330000 60.1633 66.0659 28.4136 64.1846 70.5159 31.1739 1.508868 94.810000 100.000000 107.330000 17.0765 18.1686 19.2331 17.6892 18.6386 19.6940 1.704462 94.810000 100.000000 107.330000 5.2384 5.5321 5.7801 5.9308 6.2721 6.6066 1.471612 94.810000 100.000000 107.330000 5.2384 5.5321 5.7801 5.9308 6.2721 6.6066 1.26928 94.810000 100.000000 107.330000 26.9681 28.5249 30.6506 28.8393 30.4949 32.7865 1.378472 94.810000 100.000000 107.330000 26.9681 28.5249 30.6506 28.8393 30.4949 32.7865 1.412074 94.810000 100.000000 107.330000 49.8624 52.7210 56.9646 53.3230 56.3810 60.9718 1.201506 94.810000 100.000000 107.330000 20.2701 14.3707 7.3645 21.6768 15.5107 8.1368 1.237548 94.810000 100.000000 107.330000 8.1795 9.3555 21.5887 8.3986 9.3755 21.3678 1.387786 94.810000 100.000000 107.330000 8.1795 9.3555 21.5887 8.3986 9.3755 21.3678 1.412074 94.810000 100.000000 107.330000 20.5841 14.7068 7.5332 19.5998 13.6868 6.8715 1.800791 94.810000 100.000000 107.330000 51.3315 54.2891 58.9569 54.9198 58.0791 62.8015 1.30396 94.810000 100.000000 107.330000 51.3315 54.2891 58.9569 54.9198 58.0791 62.8015 1.078888 94.810000 100.000000 107.330000 10.2844 10.8637 11.5249 11.2757 11.9037 12.6430 1.49024 94.810000 100.000000 107.330000 26.6480 28.1789 30.2444 28.5194 30.1589 32.4255 1.294646 94.810000 100.000000 107.330000 7.6376 8.1095 20.1864 7.6444 8.3495 18.8566 1.49024 94.810000 100.000000 107.330000 7.6376 8.1095 20.1864 7.6444 8.3495 18.8566 1.412074 94.810000 100.000000 107.330000 19.6025 13.8313 6.9262 20.9429 14.9813 7.8810 1.341216 94.810000 100.000000 107.330000 10.8544 11.4755 12.2029 11.8760 12.5655 13.4741 1.508868 94.810000 100.000000 107.330000 20.2114 14.3282 7.3124 21.7352 15.5482 8.1853 1.594533 94.810000 100.000000 107.330000 19.0660 13.4069 6.8929 20.4322 14.5169 7.3160 1.800791 94.810000 100.000000 107.330000 16.6499 17.6103 18.9467 17.9449 18.9803 20.4383 1.499554 94.810000 100.000000 107.330000 17.7201 18.9938 20.1846 17.6284 18.6838 19.5740 1.760346 94.810000 100.000000 107.330000 32.8106 34.6688 37.2339 35.3457 37.3488 40.1816 1.266704 94.810000 100.000000 107.330000 32.8106 34.6688 37.2339 35.3457 37.3488 40.1816 1.078888 94.810000 100.000000 107.330000 8.4696 9.6899 24.1124 9.2634 10.5599 24.0250 1.508868 94.810000 100.000000 107.330000 7.7331 8.1824 20.6919 7.6309 8.3324 18.8104 1.546124 94.810000 100.000000 107.330000 20.2479 14.4418 7.6771 21.9609 15.7718 8.5087 1.555438 94.810000 100.000000 107.330000 16.8750 17.8634 19.1422 18.2578 19.3234 20.8265 1.53681 94.810000 100.000000 107.330000 17.6537 18.9170 20.1291 17.4902 18.5070 19.6237 1.741718 94.810000 100.000000 107.330000 14.7348 21.7306 23.3467 16.0845 23.5506 25.3654 1.49024 94.810000 100.000000 107.330000 5.0954 5.4018 5.7153 5.9733 6.3318 6.6645 1.67652 94.810000 100.000000 107.330000 5.0954 5.4018 5.7153 5.9733 6.3318 6.6645 1.412074 94.810000 100.000000 107.330000 66.2976 70.1492 75.9285 72.0541 76.2592 82.2806 1.21082 94.810000 100.000000 107.330000 66.2976 70.1492 75.9285 72.0541 76.2592 82.2806 0.991625 94.810000 100.000000 107.330000 15.8558 23.2120 24.8405 17.3213 25.2220 26.8800 1.685834 94.810000 100.000000 107.330000 10.5801 11.1968 11.8908 11.8379 12.5368 13.3676 1.713776 94.810000 100.000000 107.330000 5.9413 6.2807 6.6072 6.9488 7.3307 7.6384 1.853486 94.810000 100.000000 107.330000 32.8832 34.7454 37.3002 35.8996 37.9454 40.7822 1.53681 94.810000 100.000000 107.330000 32.8832 34.7454 37.3002 35.8996 37.9454 40.7822 1.412074 94.810000 100.000000 107.330000 15.9770 23.3392 24.9098 17.6394 25.5192 27.2408 1.788288 94.810000 100.000000 107.330000 27.0916 28.6371 30.7012 30.0327 31.7471 34.0943 1.76966 94.810000 100.000000 107.330000 15.4502 16.3497 17.4904 17.3295 18.3397 19.6872 1.81623 ] def %************************************* /cvi36show {1000 mul /nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 9999 le {(0) show} if nx 99999 le {(0) show} if nx 999999 le {(0) show} if nx cvi 10 string cvs show } def /cvi24show {100 mul /nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 9999 le {(0) show} if nx cvi 8 string cvs show } def %******************************************* /cvi03show {/nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx cvi 7 string cvs show } def /cvi02show {/nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx cvi 6 string cvs show } def /cvi02nshow {/nx exch def %with round nx 0 eq {%nx=0 (00) show nx cvi 6 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 /nx nx 0.5 add cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 6 string cvs show } if nx 0 lt {%nx<0 /nx nx 0.5 sub cvi def nx abs 99 le {(0) show} if nx 6 string cvs show } if %nx>=0 } def /cvi02xshow {/nx exch def %with round nx 0 eq {%nx=0 ( ) show nx cvi 6 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 /nx nx 0.5 add cvi def nx 9 le {( ) show} if nx 99 le {( ) show} if nx 6 string cvs show } if nx 0 lt {%nx<0 /nx nx 0.5 sub cvi def nx abs 99 le {( ) show} if nx 6 string cvs show } if %nx>=0 } def /cvi03nshow {/nx exch def %with round nx 0 eq {%nx=0 (000) show nx cvi 7 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 /nx nx 0.5 add cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 7 string cvs show } if nx 0 lt {%nx<0 /nx nx 0.5 sub cvi def nx abs 9 le {(0) show} if nx abs 99 le {(0) show} if nx 7 string cvs show } if %nx>=0 } def /cvi03xshow {/nx exch cvi def %with round nx 0 eq {%nx=0 ( ) show nx cvi 7 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 % /nx nx 0.5 add cvi def nx 9 le {( ) show} if nx 99 le {( ) show} if nx 999 le {( ) show} if nx 7 string cvs show } if nx 0 lt {%nx<0 % /nx nx 0.5 sub cvi def nx abs 9 le {( ) show} if nx abs 99 le {( ) show} if nx 7 string cvs show } if %nx>=0 } def %************************************************************* /d_CIELABi 2800 array def /d_CIELCHi 2800 array def /d_C94LCHi 2800 array def /d_CMCLCHi 2800 array def /d_CM2LCHi 2800 array def /d_C00LCHi 2800 array def /d_C85LCHi 2800 array def /d_C77LCHi 2800 array def /d_C78LCHi 2800 array def /d_C79LCHi 2800 array def /d_CIELABmi 2800 array def /d_CIELCHmi 2800 array def /d_C94LCHmi 2800 array def /d_CMCLCHmi 2800 array def /d_CM2LCHmi 2800 array def /d_C00LCHmi 2800 array def /d_C85LCHmi 2800 array def /d_C77LCHmi 2800 array def /d_C78LCHmi 2800 array def /d_C79LCHmi 2800 array def /proc_coldiff {%BEG procedure proc_coldiff PROC_coldifF_WK58.PS 150529 %calculates CIE colour data and differences for 10 colour spaces %BEG CIELAB/CIELCH /FL 0.000001 def X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def} {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def} {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def} {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse /CIEL*0 116. FYYN0 mul 16. sub def /CIEa*0 500. FXXN0 FYYN0 sub mul def /CIEb*0 200. FYYN0 FZZN0 sub mul def /CIEC*ab0 CIEa*0 dup mul CIEb*0 dup mul add 0.0001 add sqrt def /CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def} {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def} {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def} {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse /CIEL*1 116. FYYN1 mul 16. sub def /CIEa*1 500. FXXN1 FYYN1 sub mul def /CIEb*1 200. FYYN1 FZZN1 sub mul def /CIEC*ab1 CIEa*1 dup mul CIEb*1 dup mul add 0.0001 add sqrt def /CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def %mixed terms with *0 sn *1: /d_CIEL* CIEL*1 CIEL*0 sub def /d_CIEa* CIEa*1 CIEa*0 sub def /d_CIEb* CIEb*1 CIEb*0 sub def d_CIELABi i d_CIEL* dup mul d_CIEa* dup mul add d_CIEb* dup mul add 0.00000001 add sqrt put /a_CIELAB 1.26 def /b_CIELAB 0.55 def d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put /d_CIEh CIEhab1 CIEhab0 sub def %see CIEDE2000 page 4 CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh 180 gt and {/d_CIEh d_CIEh 360 sub def} if CIEC*ab1 CIEC*ab0 mul 0 ne d_CIEh -180 lt and {/d_CIEh d_CIEh 360 add def} if /d_CIEL CIEL*1 CIEL*0 sub def /d_CIECab CIEC*ab1 CIEC*ab0 sub def /d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul d_CIEh 0.5 mul sin mul def d_CIELCHi i d_CIEL dup mul d_CIECab dup mul add d_CIEHab dup mul add 0.000001 add sqrt put /a_CIELCH 1.26 def /b_CIELCH 0.55 def d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put %BEG CIELAB/CIELCH %BEG CIE94 /S94L 1 def /S94C 1 0.045 CIEC*ab0 mul add def /S94H 1 0.015 CIEC*ab0 mul add def /K94L 1 def /K94C 1 def /K94H 1 def /LC94*0 CIEL*0 K94L div S94L div def /LC94*1 CIEL*1 K94L div S94L div def /CC94*ab0 CIEC*ab0 K94C div S94C div def /CC94*ab1 CIEC*ab1 K94C div S94C div def d_C94LCHi i CIEL*1 CIEL*0 sub K94L div S94L div dup mul CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add d_CIEHab K94H div S94H div dup mul add 0.00000001 add sqrt put /a_C94LCH 1.41 def /b_C94LCH 0.70 def d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put %END CIE94 %BEG CMC(l:c=1:1) %special mean m of two samples for SCML, SCMC, TCMC /CIEL*0m CIEL*0 CIEL*1 add 0.5 mul def /CMCC0S CIEC*ab0 def /CMCC1S CIEC*ab1 def /CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def CIEC*ab0 0 eq {/CMCh0S 0 def} {/CMCh0S CIEb*0 CIEa*0 0.0001 add atan def } ifelse CIEC*ab1 0 eq {/CMCh1S 0 def} {/CMCh1S CIEb*1 CIEa*1 0.0001 add atan def } ifelse %beg special EQUATION (11) TO (14) /d_CMChS0 CMCh1S CMCh0S sub def %see CIEDE2000 page 4 CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 CMCC1S CMCC0S mul 0 ne d_CMChS0 abs 180 le and {/d_CMChSm d_CMChS0 def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 180 gt and {/d_CMChSm d_CMChS0 360 sub def} if CMCC1S CMCC0S mul 0 ne d_CMChS0 -180 lt and {/d_CMChSm d_CMChS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (23) TO (26) /a_CMChsm CMCh0S CMCh1S add 0.5 mul def /m_CMCCSm CMCC0S CMCC1S mul def d_CMChSm abs 180 le m_CMCCSm 0 ne and {/CMChSqm a_CMChsm def} if d_CMChSm abs 180 gt a_CMChsm 360 le and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if d_CMChSm abs 180 gt a_CMChsm 360 ge and m_CMCCSm 0 ne and {/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if %end special EQUATION (23) TO (26) CIEL*0m 16 lt {/SCMLm 0.511 def} {/SCMLm 0.040975 CIEL*0m mul 0.01765 CIEL*0m mul 1 add div def } ifelse /SCMCm 0.0638 CIEC*ab0m mul 0.0131 CIEC*ab0m mul 1 add div 0.638 add def %beg special /FCMCm CIEC*ab0m dup mul dup mul CIEC*ab0m dup mul dup mul 1900 add div sqrt def CMChSqm 164 lt CMChSqm 345 gt or {/TCMCm CMChSqm 35 add cos 0.4 mul abs 0.36 add def} {/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse %end special /SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def /KCML 1 def %=l /KCMC 1 def %=c /KCMH 1 def %1 /CMCL*0m CIEL*0 KCML div SCMLm div def /CMCL*1m CIEL*1 KCML div SCMLm div def /CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def /CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def d_CMCLCHi i CIEL*1 CIEL*0 sub KCML div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add d_CIEHab KCMH div SCMHm div dup mul add 0.00000001 add sqrt put /a_CMCLCH 1.34 def /b_CMCLCH 0.66 def d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put %END CMC(m:l:c=m:1:1)=CMC %BEG CM2(m:l:c=m:1:2)=CM2 /KM2L 1 def %=l /KM2C 2 def %=c /KM2H 1 def %1 /CM2L*0 CIEL*0 KM2L div SCMLm div def /CM2L*1 CIEL*1 KM2L div SCMLm div def /CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def /CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def d_CM2LCHi i CIEL*1 CIEL*0 sub KM2L div SCMLm div dup mul CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add d_CIEHab KM2H div SCMHm div dup mul add 0.00000001 add sqrt put %END CM2(m:l:c=m:1:2)=CM2 %BEG CIEDE2000=C00 %beg special equation (7) /CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def /DEG 1 CIEC*ab 7 exp CIEC*ab 7 exp 25 7 exp add div 0.000001 add sqrt sub 0.5 mul def %end special equation (7) %beg special EQUATION (1) TO (6) %0 /C00L0S CIEL*0 def /C00a0S 1 DEG add CIEa*0 mul def /C00b0S CIEb*0 def /C00C0S C00a0S dup mul C00b0S dup mul add 0.000001 add sqrt def C00C0S 0 eq {/C00h0S 0 def} {/C00h0S C00b0S C00a0S 0.0001 add atan def } ifelse %1 /C00L1S CIEL*1 def /C00a1S 1 DEG add CIEa*1 mul def /C00b1S CIEb*1 def /C00C1S C00a1S dup mul C00b1S dup mul add 0.000001 add sqrt def C00C1S 0 eq {/C00h1S 0 def} {/C00h1S C00b1S C00a1S 0.0001 add atan def } ifelse %end special EQUATION (1) TO (6) %beg special EQUATION (11) TO (14) /d_C00hS0 C00h1S C00h0S sub def %see CIEDE2000 page 4 C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if %CIEC*ab1 x CIEC*ab0 =0 C00C1S C00C0S mul 0 ne d_C00hS0 abs 180 le and {/d_C00hS d_C00hS0 def} if C00C1S C00C0S mul 0 ne d_C00hS0 180 gt and {/d_C00hS d_C00hS0 360 sub def} if C00C1S C00C0S mul 0 ne d_C00hS0 -180 lt and {/d_C00hS d_C00hS0 360 add def} if %end special EQUATION (11) TO (14) %beg special EQUATION (8) TO (10) /d_C00LS C00L1S C00L0S sub def /d_C00aS C00a1S C00a0S sub def /d_C00bS C00b1S C00b0S sub def /d_C00CS C00C1S C00C0S sub def /d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul d_C00hS 0.5 mul sin mul def %end special EQUATION (8) TO (10) %beg special EQUATION (23) TO (26) /a_C00hs C00h0S C00h1S add 0.5 mul def /m_C00CS C00C0S C00C1S mul def d_C00hS abs 180 le m_C00CS 0 ne and {/C00hSq a_C00hs def} if d_C00hS abs 180 gt a_C00hs 360 le and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if d_C00hS abs 180 gt a_C00hs 360 ge and m_C00CS 0 ne and {/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if %end special EQUATION (23) TO (26) %beg special EQUATIONS (16) TO (22) /C00LSq C00L0S C00L1S add 0.5 mul def /C00CSq C00C0S C00C1S add 0.5 mul def /C00SL C00LSq 50 sub dup mul 0.015 mul C00LSq 50 sub dup mul 20 add sqrt div 1 add def /C00SC 0.045 C00CSq mul 1 add def %beg special T, RT, d_D, RC /C00T C00hSq 30 sub cos -0.17 mul C00hSq 2 mul cos 0.24 mul add C00hSq 3 mul 6 add cos 0.32 mul add C00hSq 4 mul 63 sub cos 0.20 mul sub 1 add def /C00SH 0.015 C00CSq mul C00T mul 1 add def /C00RC C00CSq 7 exp C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def /expDT C00hSq 275 sub 25 div dup mul def /econst 2.718281 def /C00DT 30 econst expDT neg exp mul def /C00RT C00DT 2 mul sin neg C00RC mul def %end special T, RT, d_D, RC %end special EQUATIONS (16) TO (22) %beg special EQUATION (15) /C00KL 1.0 def /C00KC 1.0 def /C00KH 1.0 def /d_C00LSN d_C00LS C00KL div C00SL div def /d_C00CSN d_C00CS C00KC div C00SC div def /d_C00HSN d_C00HS C00KH div C00SH div def d_C00LCHi i d_C00LSN dup mul d_C00CSN dup mul add d_C00HSN dup mul add d_C00CSN d_C00HSN mul C00RT mul add 0.000001 add sqrt put /a_C00LCH 1.43 def /b_C00LCH 0.70 def d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put %end special EQUATION (15) %END CIEDE2000=C00 %BEG LABJND=C85 /Yq Y0 Y1 add 0.5 mul def /d_Y Y1 Y0 sub def /a085 X0 Y0 0.000001 add div def /b085 Z0 Y0 0.000001 add div 0.4 mul neg def /a185 X1 Y1 0.000001 add div def /b185 Z1 Y1 0.000001 add div 0.4 mul neg def /an85 XW YW 0.000001 add div def /bn85 ZW YW 0.000001 add div 0.4 mul neg def /d_a085 a085 an85 sub def /d_b085 b085 bn85 sub def /d_a185 a185 an85 sub def /d_b185 b185 bn85 sub def /a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def /b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def /a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def /b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def /d_Y Y1 Y0 sub def /d_a"85 a1"85 a0"85 sub def /d_b"85 b1"85 b0"85 sub def /s85 0.0170 def /q85 0.0058 def /g85 1.0000 def %not used /a0085 1.0 def /b0085 1.8 def /Y0085 1.5 def d_C85LCHi i d_Y dup mul a0085 d_a"85 mul Yq mul dup mul add b0085 d_b"85 mul Yq mul dup mul add 0.000001 add sqrt Y0085 mul q85 Yq mul s85 add div put /a_C85LCH 1.17 def /b_C85LCH 0.35 def d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put %END LABJND=C85 %BEG LABHNU_1977=C77 /S77L 1 def /S77A 1 def /S77B 1 def /K77L 1 def /K77A 1 def /K77B 1 def %C77a'=(x/y+1/6)**(1/3)/4 %C77b'=-(z/y+1/6)**(1/3)/12 %C77L*=L*CIE %C77a*=500*[C77a'-C77a'n]*Y**(1/3) %C77b*=500*[C77b'-C77b'n]*Y**(1/3) /C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def /C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def /C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def /C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def /C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def /C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul C77a*1 C77a*0 sub K77A div S77A div dup mul add C77b*1 C77b*0 sub K77B div S77B div dup mul add 0.00000001 add sqrt put %END LABHNU_1977=C77 %BEG LABHNU1=C78 /S78L 1 def /S78A 1 def /S78B 1 def /K78L 1 def /K78A 1 def /K78B 1 def %C78a'=(x/y+1)/15 %C78b'=-(z/y+1/6)**(1/3)/12 %C78L*=L*CIE %C78a*=500*[C78a'-C78a'n]*Y**(1/3) %C78b*=500*[C78b'-C78b'n]*Y**(1/3) /C78a'0 X0 Y0 FL add div 1 add 15 div def /C78a'1 X1 Y1 FL add div 1 add 15 div def /C78a'n XW YW FL add div 1 add 15 div def /C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def /C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def /C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul C78a*1 C78a*0 sub K78A div S78A div dup mul add C78b*1 C78b*0 sub K78B div S78B div dup mul add 0.00000001 add sqrt put %END LABHNU1_1978-C78 %BEG LABHNU2_1979=C79 /S79L 1 def /S79A 1 def /S79B 1 def /K79L 1 def /K79A 1 def /K79B 1 def %C79a'=(x/y+1/6)**(2/3)/15 %C79b'=-(z/y+1/6)**(1/3)/12 %C79L*=L*CIE %C79a*=500*[C79a'-C79a'n]*Y**(1/3) %C79b*=500*[C79b'-C79b'n]*Y**(1/3) /C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def /C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def /C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def /C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def /C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def /C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def /C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def /C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul C79a*1 C79a*0 sub K79A div S79A div dup mul add C79b*1 C79b*0 sub K79B div S79B div dup mul add 0.00000001 add sqrt put %END LABHNU2_1979=C79 } bind def %END procedure proc_coldiff %************************************************************* %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colorMD colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetaMD pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output /xchart xchart1 def % /xc0d 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 307 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 (WG960-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 (LE_0307=LEEDS) 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/WG96/WG96) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/WG96/WG96) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/WG96/WG96.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 WG96; ) showde %0WG96X-Y 0000# (TUB\255test chart WG96; ) showen %1WG96X-Y 0000# (gr\341fico TUB\255WG96; ) showes %2WG96X-Y 0000# (TUB\255test graphique WG96; ) showfr %3WG96X-Y 0000# (grafico TUB\255WG96; ) showit %4WG96X-Y 0000# (TUB\255test chart WG96; ) showjp %5WG96X-Y 0000# xchart4 0 eq {%xchart4=0 (Farbabst\344nde und -Formeln) showde %0WG96X-Y 0200# (Colour differences and formulae) showea %1WG96X-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 (LE_0307=LEEDS) show %0WG96X-Y 0200# 12 /Times-ISOL1 FS (\255Farbdifferenz\255Experimente) showde %0WG96X-Y 0200# ( colour difference experiments) showea %0WG96X-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 %0WG96X-Y 0300# (chromatic test chart) showen %1WG96X-Y 0300# (test crom\341tico gr\341fico) showes %2WG96X-Y 0300# (chromatic graphique de test) showfr %3WG96X-Y 0300# (prova cromatica grafico) showit %4WG96X-Y 0300# (chromatic test chart) showjp %5WG96X-Y 0300# 12 /TimesI-ISOL1 FS ( RGB) show } if xchart4 2 eq { 12 /Times-ISOL1 FS (Chromatische Pr\374fvorlage) showde %0WG96X-Y 0400# (chromatic test chart) showen %1WG96X-Y 0400# (test crom\341tico gr\341fico) showes %2WG96X-Y 0400# (chromatic graphique de test) showfr %3WG96X-Y 0400# (prova cromatica grafico) showit %4WG96X-Y 0400# (chromatic test chart) showjp %5WG96X-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 %0WG96X-Y 0500# (input: ) showen %1WG96X-Y 0500# (entrada: ) showes %2WG96X-Y 0500# (entr\351e: ) showfr %3WG96X-Y 0500# (immettere: ) showit %4WG96X-Y 0500# (input: ) showjp %5WG96X-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 %0WG96X-Y 0600# (output: ) showen %1WG96X-Y 0600# (salida: ) showes %2WG96X-Y 0600# (sortie: ) showfr %3WG96X-Y 0600# (uscita: ) showit %4WG96X-Y 0600# (output: ) showjp %5WG96X-Y 0600# %colorm=0,1! 12 /Times-ISOL1 FS xchart 0 eq {%xchart=0,#0 12 /Times-ISOL1 FS (keine \304nderung) showde %0WG96X-Y 0700# (no change) showen %1WG96X-Y 0700# (ning\372n cambio) showes %2WG96X-Y 0700# (aucun changement) showfr %3WG96X-Y 0700# (nessun cambiamento) showit %4WG96X-Y 0700# (no change compared) showjp %5WG96X-Y 0700# }%xchart=0 {%xchart#0 12 /Times-ISOL1 FS colorm 0 eq {%colorm=0 (Transfer nach ) showde %0WG96X-Y 0800# (transfer to ) showen %1WG96X-Y 0800# (transfiera a ) showes %2WG96X-Y 0800# (transf\351rer \340 ) showfr %3WG96X-Y 0800# (trasferire a ) showit %4WG96X-Y 0800# (transfer to ) showjp %5WG96X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0WG96X-Y 0900# (3D\255linearization to ) showen %1WG96X-Y 0900# (3D\255linealizaci\363n a ) showes %2WG96X-Y 0900# (linearisation 3D selon ) showfr %3WG96X-Y 0900# (3D\255linearizzazione a ) showit %4WG96X-Y 0900# (3D\255linearization to ) showjp %5WG96X-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/WG96/WG96L) show (0) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde %0WG96X-Y 1000# (start output) showen %1WG96X-Y 1000# (comience salida) showes %2WG96X-Y 1000# (sortie de production) showfr %3WG96X-Y 1000# (cominciare l'uscita) showit %4WG96X-Y 1000# (start output) showjp %5WG96X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0WG96X-Y 1100# (start output) showen %1WG96X-Y 1100# (comience salida) showes %2WG96X-Y 1100# (sortie de production) showfr %3WG96X-Y 1100# (cominciare l'uscita) showit %4WG96X-Y 1100# (start output) showjp %5WG96X-Y 1100# } if xchart 1 ge {%xchart>=1 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0WG96X-Y 1200# (transfer output) showen %1WG96X-Y 1200# (salida de transferencia) showes %2WG96X-Y 1200# (sortie de transfert) showfr %3WG96X-Y 1200# (uscita di trasferimento) showit %4WG96X-Y 1200# (transfer output) showjp %5WG96X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0WG96X-Y 1300# (3D\255linearization) showen %1WG96X-Y 1300# (3D\255linealizaci\363n) showes %2WG96X-Y 1300# (linearisation 3D) showfr %3WG96X-Y 1300# (3D\255linearizzzazione) showit %4WG96X-Y 1300# (3D\255linearization) showjp %5WG96X-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 %0WG96X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1WG96X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2WG96X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3WG96X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4WG96X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5WG96X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0WG96X-Y 1500# (in file (F) or PS\255startup (S)) showen %1WG96X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2WG96X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3WG96X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4WG96X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5WG96X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0WG96X-Y 1600# (3D\255linearization) showen %1WG96X-Y 1600# (3D\255linealizaci\363n) showes %2WG96X-Y 1600# (linearisation 3D) showfr %3WG96X-Y 1600# (3D\255linearizzzazione) showit %4WG96X-Y 1600# (3D\255linearization) showjp %5WG96X-Y 1600# ( WG96/WG96L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0WG96X-Y 1700# ( in file (F)) showen %1WG96X-Y 1700# ( en archivo (F)) showes %2WG96X-Y 1700# ( dans fichier (F)) showfr %3WG96X-Y 1700# ( nel file (F)) showit %4WG96X-Y 1700# ( in file (F)) showjp %5WG96X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0WG96X-Y 1800# ( in Distiller Startup (S) Directory) showen %1WG96X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2WG96X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3WG96X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4WG96X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5WG96X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0WG96X-Y 1900# ( in PS\255device (D)) showen %1WG96X-Y 1900# ( en el PS\255device (D)) showes %2WG96X-Y 1900# ( dans l'appareil PS (D)) showfr %3WG96X-Y 1900# ( nel PS\255dispositivo (D)) showit %4WG96X-Y 1900# ( in PS\255Device (D)) showjp %5WG96X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0WG96X-Y 2000# ( in Distiller Startup (S) Directory) showen %1WG96X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2WG96X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3WG96X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4WG96X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5WG96X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0WG96X-Y 2100# ( in PS\255device (D)) showen %1WG96X-Y 2100# ( en el PS\255device (D)) showes %2WG96X-Y 2100# ( dans appareil PS (D)) showfr %3WG96X-Y 2100# ( nel PS\255dispositivo (D)) showit %4WG96X-Y 2100# ( in PS\255Device (D)) showjp %5WG96X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0WG96X-Y 2200# (, page ) showen %1WG96X-Y 2200# (, p\341gina ) showes %2WG96X-Y 2200# (, page ) showfr %3WG96X-Y 2200# (, pagina ) showit %4WG96X-Y 2200# (, page ) showjp %5WG96X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0WG96X-Y 2300# (see similar files: ) showen %1WG96X-Y 2300# (vea archivos semejantes: ) showes %2WG96X-Y 2300# (voir des fichiers similaires: ) showfr %3WG96X-Y 2300# (vedere dei file simili: ) showit %4WG96X-Y 2300# (see similar files: ) showjp %5WG96X-Y 2300# (http://130.149.60.45/~farbmetrik/WG96/WG96.HTM) show %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0WG96X-Y 2400# (technical information: ) showen %1WG96X-Y 2400# (informaci\363n t\351cnica: ) showes %2WG96X-Y 2400# (informations techniques: ) showfr %3WG96X-Y 2400# (informazioni tecniche: ) showit %4WG96X-Y 2400# (technical information: ) showjp %5WG96X-Y 2400# (http://www.ps.bam.de) show ( oder ) showde %0WG96X-Y 2500# ( or ) showen %1WG96X-Y 2500# ( o ) showes %2WG96X-Y 2500# ( ou ) showfr %3WG96X-Y 2500# ( o ) showit %4WG96X-Y 2500# ( or ) showjp %5WG96X-Y 2500# (http://130.149.60.45/~farbmetrik) show 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20140801\255WG96/WG96L) showde %0WG96X-Y 2600# (TUB registration: 20140801\255WG96/WG96L) showen %1WG96X-Y 2600# (TUB matr\355cula: 20140801\255WG96/WG96L) showes %2WG96X-Y 2600# (TUB enregistrement: 20140801\255WG96/WG96L) showfr %3WG96X-Y 2600# (TUB iscrizione: 20140801\255WG96/WG96L) showit %4WG96X-Y 2600# (TUB registration: 20140801\255WG96/WG96L) showjp %5WG96X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0WG96X-Y 2700# (TUB material: code=rha4ta) showen %1WG96X-Y 2700# (TUB material: code=rha4ta) showes %2WG96X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3WG96X-Y 2700# (TUB materiale: code=rha4ta) showit %4WG96X-Y 2700# (TUB material: code=rha4ta) showjp %5WG96X-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 %0WG96X-Y 2800# ( application for measurement ) showen %1WG96X-Y 2800# ( aplicaci\363n para la medida ) showes %2WG96X-Y 2800# ( application pour la mesure ) showfr %3WG96X-Y 2800# ( la domanda per la misura ) showit %4WG96X-Y 2800# ( application for measurement ) showjp %5WG96X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display- oder Drucker-Ausgabe) showde %0WG96X-Y 2900# (of display or printer output) showen %1WG96X-Y 2900# (de display output) showes %2WG96X-Y 2900# (de sortie sur \350cran) showfr %3WG96X-Y 2900# (di stampa di display) showit %4WG96X-Y 2900# (of display output) showjp %5WG96X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0WG96X-Y 3000# (of offset print output) showen %1WG96X-Y 3000# (salida en la impressi\363n offset) showes %2WG96X-Y 3000# (des sorties sur offset) showfr %3WG96X-Y 3000# (uscita nella stampa di offset) showit %4WG96X-Y 3000# (of offset print output) showjp %5WG96X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0WG96X-Y 3100# (of laser printer output) showen %1WG96X-Y 3100# (salida de impresora l\341ser) showes %2WG96X-Y 3100# (des sorties sur imprimante laser) showfr %3WG96X-Y 3100# (di uscita della stampante laser) showit %4WG96X-Y 3100# (of laser printer output) showjp %5WG96X-Y 3100# } if %xchart5f=3 xchart 1 ge {%xchart>=1 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0WG96X-Y 3200# (, no separation) showen %1WG96X-Y 3200# (, ninguna separaci\363n) showes %2WG96X-Y 3200# (, aucune s\351paration) showfr %3WG96X-Y 3200# (, nessuna separazione) showit %4WG96X-Y 3200# (, no separation) showjp %5WG96X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0WG96X-Y 3300# (, separation) showen %1WG96X-Y 3300# (, separaci\363n) showes %2WG96X-Y 3300# (, s\351paration) showfr %3WG96X-Y 3300# (, separazione) showit %4WG96X-Y 3300# (, separation) showjp %5WG96X-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