%!PS-Adobe-3.0 EPSF-3.0 XE180-7N %%BoundingBox: 70 83 392 335 %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/XE18/) /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:2015100112000) /ModDate (D:2015100112000) /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {190 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIS {190 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBS {190 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIS {190 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SS {190 1 sub /Symbol FS} bind def /SK {240 1 sub /Symbol FS} bind def /SM {290 1 sub /Symbol FS} bind def /SG {340 1 sub /Symbol FS} 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 /circ %x, y radius {dcirc 0 360 arc } 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 /colarcfi %x y c m y k {setcmyk_olvcolor circ fill} bind def /colarcst %x y width heigth c m y k {setcmyk_olvcolor circ 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 /cvistr {cvi 10 string cvs} def /cvishow {cvi 10 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 gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colorMD colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetaMD pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 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 gsave /xchart xchart1 def 5 /Times-ISOL1 FS 340 85 moveto (XE180-7N) show %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate /yhoe 8500 def 0.01 MM dup scale 15 setlinewidth 0.0 0.0 1.0 0.0 setcmyk_olvcolor 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath stroke 0 yhoe 550 sub moveto 11200 0 rlineto stroke /ns {340 /Times-ISOL1 FS show TG} bind def /ks {340 /TimesI-ISOL1 FS show TG} bind def /bs {340 /TimesB-ISOL1 FS show TG} bind def /js {340 /TimesBI-ISOL1 FS show TG} bind def /ss {340 /Symbol FS show TG} bind def /is {240 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto TG} bind def /is0 {240 /Times-ISOL1 FS -30 -90 rmoveto show 0 90 rmoveto TG} bind def /es {240 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto TG} bind def /ipoint {340 /Times-ISOL1 FS 50 50 rmoveto show 50 -50 rmoveto TG} bind def /ip {(.) ipoint} bind def %/ip {(\267) ns TG} bind def /ib {(\267) bs TG} bind def %20% kleiner /ns2 {290 /Times-ISOL1 FS show TM} bind def /ks2 {290 /TimesI-ISOL1 FS show TM} bind def /bs2 {290 /TimesB-ISOL1 FS show TM} bind def /js2 {290 /TimesBI-ISOL1 FS show TM} bind def /is2 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TM} bind def /is20 {200 /Times-ISOL1 FS -20 -60 rmoveto show 0 60 rmoveto TM} bind def /iks2 {200 /TimesI-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto TM} bind def /es2 {240 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {(\267) ns2 TM} bind def /ib2 {(\267) bs2 TM} bind def %40% kleiner /ns4 {240 /Times-ISOL1 FS show TK} bind def /ks4 {240 /TimesI-ISOL1 FS show TK} bind def /bs4 {240 /TimesB-ISOL1 FS show TK} bind def /js4 {240 /TimesBI-ISOL1 FS show TK} bind def /is4 {160 /Times-ISOL1 FS 8 -48 rmoveto show -8 48 rmoveto TK} bind def /iks4 {160 /TimesI-ISOL1 FS 8 -48 rmoveto show -8 48 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 190 rmoveto show 0 -190 rmoveto TK} bind def /ip4 {(\267) ns4 TK} bind def /ib4 {(\267) bs4 TK} bind def /ydel 300 def %Titeltext 100 8100 moveto TBG (Relative & skalierte visuelle Differenz; ) showde %08560-3 1 (Relative and scaled visual differences; ) showea %18560-3 1 (Triplets & Paare; separate Farben) showde %08560-3 11 (triplets and pairs; separate colours) showea %18560-3 11 /ix1 0100 def /ix2 6200 def /ix20 ix2 1600 sub def /ix3 5000 def /ix4 8100 def ix1 7650 moveto TG (relative visuelle) showde (relative visual) showea ix1 7300 moveto (Skala ) showde (scale ) showea SG (D) show TIG (V) show (3,i) is TG ( (i=0,1)) show ix1 6950 moveto TG (Bereich 9 bis 1) showde (range 0 to 1) showea ix1 100 moveto TG TG (Experimente von) showde (Experiments of) showea TIG ( KITTELMANN (2005) and CIELAB use) showea ( KITTELMANN (2005) und CIELAB\255Benutzung) showde ix20 7650 moveto TG (Benutzung der CIELAB\255) showde (Use of the CIELAB) showea ix20 7300 moveto (Farbdifferenz ) showde (colour difference ) showea SG (D) show TIG (E*) show (ab,i) is ix20 6950 moveto TIG (kein Paarvergleich) showde (no pair comparison) showea /ix41 ix4 200 add def ix41 7650 moveto TG (skalierte visuelle) showde (scaled visual) showea ix41 7300 moveto (Daten ) showde (data ) showea SG (D) show TIG (V*) show (i) is TG ( (i=0 to 1)) show ix41 6950 moveto SM (D) show TIM (V*) show (i) is2 TM (=) show SM (D) show TIM (V) show (3,i) is2 ip SM (D) show TIM (S*) show ix41 100 moveto TG (skalierte Daten) showde (final scaled data) showea /col3 [ 0.00 0.00 0.00 0.00 %W 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 1.00 %N 0.00 0.00 0.00 0.00 %W 0.50 0.00 0.00 0.00 %CW 1.00 0.00 0.00 0.00 %C 1.00 1.00 0.00 0.00 %V 1.00 0.00 0.00 0.00 %C 1.00 0.00 1.00 0.00 %L ] def /col6x [ 0.00 0.00 0.00 0.00 %W 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.00 %not used 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 1.00 %N 1.00 0.00 0.00 0.00 %not used 0.00 0.00 0.00 0.00 %W 0.50 0.00 0.00 0.00 %CW 1.00 0.00 0.00 0.00 %not used 0.50 0.00 0.00 0.00 %CW 1.00 0.00 0.00 0.00 %C 1.00 0.00 0.00 0.00 %not used 1.00 1.00 0.00 0.00 %V 1.00 0.00 0.00 0.00 %C 1.00 0.00 1.00 0.00 %not used 1.00 0.00 0.00 0.00 %C 1.00 0.00 1.00 0.00 %T 1.00 0.00 0.00 0.00 %not used ] def /txt30 [( 0) (0,46) ( 1)] def %NPW /txt31 [( 0) (0,49) ( 1)] def %GDV /txt32 [( 0) (0,56) ( 1)] def %BDY /txx00n [(68,1) () ()] def %W-C /txx01n [(66,7) () ()] def %C-N /txx10n [(34,3) () ()] def %W-CW /txx11n [(33,1) () ()] def %CW-C /txx20n [(69,7) () ()] def %BZ /txx21n [(88,2) () ()] def %ZY /txxn0n [(68,1) (66,7) (34,3)(33,1)(69,7)(88,2)] def /txxn0s [(134,7)(134,7)(67,4)(67,4)(157,9)(157,9)] def /txx00 [(0) (a) (1)] def /txx01 [(S) (0) (10)] def /txx02 [(0) (0,2) (0,4) (0,6) (0,8) (1)] def /txx30Vn [(0,46) (0,54)] def %013 /txx31Vn [(0,49) (0,51)] def %001 /txx32Vn [(0,56) (0,44)] def %022 /txr00 [(0,51=68,1/134,7) %013 (0,51=34,3/67,4) %001 (0,44=69,7/157,9)] def %022 /txr01 [(0,49=66,6/134,7) %013 (0,49=33,1/67,4) %001 (0,56=88,2/157,9)] def %022 /ix0 0100 def /iy0 0500 def /s 700 def ix0 iy0 8100 s 9 mul 0.0 0.0 0.0 0.5 colrecfi %grey surround /s 500 def /iy0 5900 def /ix0 0300 def /ix1 0050 def /ixl 0300 def 0 1 2 {/n exch def 0 1 2 {/j exch def TBM /j4 j 4 mul n 12 mul add def n 0 eq {1 1 1 setrgbcolor ix0 j 0.3 add s mul add j 1 eq {s add} if j 2 eq {s 2 mul add} if iy0 680 add moveto j 1 eq {TBIM} if txx00 j get show j 1 eq {(i) is2 TBM} if tfn } if ix0 j s mul add j 1 eq {s add} if j 2 eq {s 2 mul add} if iy0 n 2000 mul sub s s col3 j4 0 add get col3 j4 1 add get col3 j4 2 add get col3 j4 3 add get colrecfi col3 j4 0 add get 0.00 eq col3 j4 1 add get 0.00 eq and col3 j4 2 add get 0.00 eq and col3 j4 3 add get 0.50 eq and {%eq Z ix0 j 1 add s mul add iy0 n 2000 mul sub s s 0 0 0 1 colrecst } if %eq Z tfn TBM ix0 j s mul add j 1 eq {s add} if j 2 eq {s 2 mul add} if iy0 n 2000 mul sub 300 sub moveto n 0 eq {txt30 j get show} if n 1 eq {txt31 j get show} if n 2 eq {txt32 j get show} if j 1 le {%j<=1 ix0 j 1 add s mul add j 1 eq {s add} if j 2 eq {s 2 mul add} if iy0 n 2000 mul sub 600 sub moveto n 0 eq {txx30Vn j get show} if n 1 eq {txx31Vn j get show} if n 2 eq {txx32Vn j get show} if } if %j<=1 j 0 eq {tfn ix0 j 0.4 add s mul sub 020 add iy0 n 2000 mul sub 600 sub moveto SM (D) show TBIM (V) show (3,i) is2 tfn } if } for %j TBM tfw ix0 j 1 sub s mul add iy0 n 2000 mul sub 0900 sub moveto txr00 n get show TBM (=) show SM (D) show TBIM (E*) show (ab,0) is2 TBM (/) show SM (D) show TBIM (S) show TBM ix0 j 1 add s mul add iy0 n 2000 mul sub 1200 sub moveto txr01 n get show TBM (=) show SM (D) show TBIM (E*) show (ab,1) is2 TBM (/) show SM (D) show TBIM (S) show } for %n /s 500 def /iy0 5900 def /ix0 ix2 def /ixl 0300 def 0 1 5 {/n exch def 0 1 1 {/j exch def TBM /j4 j 4 mul n 12 mul add def j 0 eq {%j=0 1 1 1 setrgbcolor ix0 0 0.5 add s mul add iy0 650 add n 1000 mul sub moveto SM (D) show TBIM (E*) show (ab,) is2 n n 2 idiv 2 mul sub cvistr is2 TBM (=) show txxn0n n get show n n 2 idiv 2 mul sub 0 eq {1 1 1 setrgbcolor ix0 0 0.5 add s mul add iy0 650 add n 1 add 1000 mul sub 1.2 s mul add moveto -350 0 rlineto 0 -1000 rlineto 350 0 rlineto stroke newpath ix0 3.0 s mul sub iy0 650 add n 1 add 1000 mul sub moveto SM (D) show TBIM (S*) show TBM (=) show txxn0s n get show } if } if %j=0 ix0 j s mul add j 1 eq {s add} if iy0 n 1000 mul sub s s col6x j4 0 add get col6x j4 1 add get col6x j4 2 add get col6x j4 3 add get colrecfi tfn col6x j4 0 add get 0.00 eq col6x j4 1 add get 0.00 eq and col6x j4 2 add get 0.00 eq and col6x j4 3 add get 0.50 eq and {%eq Z ix0 j s mul add j 1 eq {s add} if iy0 n 1000 mul sub s s 0 0 0 1 colrecst } if %eq Z } for %j } for %n /ix0 ix4 def /ixi [200 800 1700 2400] def /iy0 5900 def /SV* [134.7 134.7 67.4 67.4 157.9 157.9] def /DVi [0.46 0.54 0.49 0.51 0.56 0.44] def /SV*t [(134,7) (134,7) (67,4) (67,4) (157,9) (157,9)] def /DV0t [(0,46) ( ) (0,49) ( ) (0,56) ( )] def /DV1t [( ) (0,54) ( ) (0,51) ( ) (0,44)] def /DVit [(0,46) (0,54) (0,49) (0,51) (0,56) (0,44)] def 0 1 5 {/n exch def 0 1 3 {/j exch def TBK /j4 j 4 mul n 24 mul add def n 0 eq {tfn ix0 ixi 0 get add iy0 650 add moveto SK (D) show TBIK (V) show (3,i) is4 TBK ix0 ixi 1 get add iy0 650 add moveto SK (D) show TBIK (S*) show ix0 ixi 2 get add iy0 650 add moveto SK (D) show TBIK (V*) show (0) is4 TBK ix0 ixi 3 get add iy0 650 add moveto SK (D) show TBIK (V*) show (1) is4 TBK % ix0 ixi 2 get add lanind 0 eq {300 sub} if % iy0 300 add moveto % TK % (skalierte Daten) showde % (scaled data) showea tfn } if TK ix0 ixi 0 get add iy0 n 1000 mul sub 200 add moveto DVit n get show ix0 ixi 1 get add iy0 n 1000 mul sub 200 add moveto SV*t n get show n 0 eq n 2 eq or n 4 eq or {%n=0,2,4 ix0 ixi 2 get add iy0 n 1000 mul sub 200 add moveto DVi n get SV* n get mul cvsshow2 } if n 1 eq n 3 eq or n 5 eq or {%n=1,3,5 ix0 ixi 3 get add iy0 n 1000 mul sub 200 add moveto DVi n get SV* n get mul cvsshow2 } if } for %j } for %n %ix0 ixi 2 get add 700 moveto %SK (D) show TIK (V*) show (i) is2 TK ((i=0,1):) show %ix0 ixi 2 get add 400 moveto %(berechnete) showde %(calculated) showea %ix0 ixi 2 get add 100 moveto %(skalierte Daten) showde %(scaled data) showea showpage grestore %%Trailer