%!PS-Adobe-3.0 EPSF-3.0 XE190-7N %%BoundingBox: 70 83 512 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/XE19/) /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@mac.com) /CreationDate (D:2015120112000) /ModDate (D:2015120112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /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 /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 1 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 /xchart4 1 def %0 1 2 {/xchart4 exch def %xchart4=0,2 5 /Times-ISOL1 FS 340 85 moveto (XE190-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 /xwidth 15400 def 0.0 0.0 1.0 0.0 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke 0 yhoe 550 sub moveto xwidth 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-7 1 (Relative and scaled visual differences; ) showea %18560-7 1 (Triplets & Paare; 6stufige Intervalskalierung) showde %08560-7 11 (triplets and pairs; 6 step interval scaling) showea %18560-7 11 /ix1 0600 def /ix2 5400 def /ix20 ix2 250 sub def /ix3 9700 def /ix4 12100 def ix1 7650 moveto TG (relative visuelle) showde (relative visual) showea ix1 7300 moveto (Skala ) showde (scale ) showea SG (D) show -40 0 rmoveto TIG (V) show -40 0 rmoveto (3,i) is TM ( (i=0,1)) show ix1 6950 moveto TG (Bereich 0 bis 1) showde (range 0 to 1) showea ix1 100 add 100 moveto TG (relative Tripletskalierung) showde (relative triplet scaling) showea ix1 4500 add 100 moveto (Paarvergleich) showde (pair comparison) showea ix3 800 sub 100 moveto TG ( slider to adjust the sample) showea (Schieber-Musterjustierung) showde ix3 3400 add 100 moveto TG (finale skalierte Daten) showde (final scaled data) showea ix20 200 sub 7650 moveto TG (Paarvergleich) showde (pair comparison) showea TIG ( (P)) show TG ix20 200 sub 7300 moveto (Grau - Gr\374n) showde (to grey - turquoise) showea ix20 200 sub 6950 moveto SG (D) show TIG (P*) show (i) is0 TG ( : ) show SG (D) show TIG (V*) show (R) is0 TG (=10) show ix3 600 sub 7650 moveto TG (relative visual) showea (relative visuelle) showde ix3 600 sub 7300 moveto (Skala ) showde (scale ) showea SG (D) show -40 0 rmoveto TIG (V) show -40 0 rmoveto (6,i) is TM ( (i=0,4)) show ix3 600 sub 6950 moveto TG (Bereiche ) showde (ranges ) showea xchart4 0 eq {(N-Z) show} if xchart4 1 eq {(G_Z) show} if xchart4 2 eq {(B-Z) show} if TG ( and ) showea ( und ) showde TIG xchart4 0 eq {(Z-W) show} if xchart4 1 eq {(Z_M) show} if xchart4 2 eq {(Z-Y) show} if /ix41 ix4 200 add def ix41 7650 moveto TG (skalierte Daten) showde (scaled visual data) showea ix41 7300 moveto SG (D) show -40 0 rmoveto TIG (V*) show (i) is TG (=) show SG (D) show -40 0 rmoveto TIG (V) show -40 0 rmoveto (6,i) is2 ip SG (D) show TIG (P*) show (i) is0 TM ((i=0,4)) show /ixj [200 600 1500 2200] def /ixi [200 800 1700 2400] def ix41 6950 moveto SK (D) show TIK (V) show (6,i) is2 ix41 ixj 1 get add 6950 moveto SK (D) show TIK (P*) show (i) is20 ix41 ixj 2 get add 6950 moveto SK (D) show TIK (V*) show (i) is20 ix41 ixj 3 get add 6950 moveto SK (D) show TIK (V*) show (ri) is20 /col3 [ %1 0.00 0.00 0.00 1.00 %N 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.00 %W %2 1.00 0.00 1.00 0.00 %G 0.00 0.00 0.00 0.50 %Z 0.00 1.00 0.00 0.00 %M %3 1.00 1.00 0.00 0.00 %B 0.00 0.00 0.00 0.50 %Z 0.00 0.00 1.00 0.00 %Y ] def /col6 [ %1 0.00 0.00 0.00 1.00 %N 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.00 %W %2 1.00 0.00 1.00 0.00 %G 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.50 %Z 0.00 1.00 0.00 0.00 %M %3 1.00 1.00 0.00 0.00 %B 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.50 %Z 0.00 0.00 1.00 0.00 %Y ] def /colall 96 array def /colNZW 96 array def /colNZW [ 0.00 0.00 0.00 1.00 %N 0.00 0.00 0.00 0.90 %N+0.1 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 1.00 %N 0.00 0.00 0.00 0.80 %N+0.2 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 1.00 %N 0.00 0.00 0.00 0.70 %N+0.3 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 1.00 %N 0.00 0.00 0.00 0.60 %N+0.4 0.00 0.00 0.00 0.50 %Z %0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.40 %Z+0.1 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.30 %Z+0.2 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.20 %Z+0.3 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.10 %Z+0.4 0.00 0.00 0.00 0.00 %W ] def %colNZW /colGRZ 96 array def /colGZR [ 1.00 0.00 1.00 0.00 %G 0.80 0.00 0.80 0.10 %G+0.1 0.00 0.00 0.00 0.50 %Z 1.00 0.00 1.00 0.00 %G 0.60 0.00 0.60 0.20 %N+0.2 0.00 0.00 0.00 0.50 %Z 1.00 0.00 1.00 0.00 %G 0.40 0.00 0.40 0.30 %N+0.3 0.00 0.00 0.00 0.50 %Z 1.00 0.00 1.00 0.00 %G 0.20 0.00 0.20 0.40 %N+0.4 0.00 0.00 0.00 0.50 %Z %0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.50 %Z 0.00 0.20 0.00 0.40 %Z+0.1 0.00 1.00 0.00 0.00 %M 0.00 0.00 0.00 0.50 %Z 0.00 0.40 0.00 0.30 %Z+0.2 0.00 1.00 0.00 0.00 %M 0.00 0.00 0.00 0.50 %Z 0.00 0.60 0.00 0.20 %Z+0.3 0.00 1.00 0.00 0.00 %M 0.00 0.00 0.00 0.50 %Z 0.00 0.80 0.00 0.10 %Z+0.4 0.00 1.00 0.00 0.00 %M ] def %colGZR /colBZY 96 array def /colBZY [ 1.00 1.00 0.00 0.00 %B 0.80 0.80 0.00 0.10 %B+0.1 0.00 0.00 0.00 0.50 %Z 1.00 1.00 0.00 0.00 %B 0.60 0.60 0.00 0.20 %B+0.2 0.00 0.00 0.00 0.50 %Z 1.00 1.00 0.00 0.00 %B 0.40 0.40 0.00 0.30 %B+0.3 0.00 0.00 0.00 0.50 %Z 1.00 1.00 0.00 0.00 %B 0.20 0.20 0.00 0.40 %B+0.4 0.00 0.00 0.00 0.50 %Z %0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.20 0.40 %Z+0.1 0.00 0.00 1.00 0.00 %Y 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.40 0.30 %Z+0.2 0.00 0.00 1.00 0.00 %Y 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.60 0.20 %Z+0.3 0.00 0.00 1.00 0.00 %Y 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.80 0.10 %Z+0.4 0.00 0.00 1.00 0.00 %Y ] def %colBZY %Reference colour /colTZ 96 array def /colTZ [ 1.00 0.00 0.50 0.00 %T 0.00 0.00 0.00 0.50 %Z ] def %colTZ /txt30 [( 0) (0,70) ( 1)] def %NDW /txt31 [( 0) (0,60) ( 1)] def %GDV /txt32 [( 0) (0,40) ( 1)] def %BDY /txx00n [(16,7) (R=10) ()] def %NZ /txx01n [( 5,0) (R=10) ()] def %ZW /txx10n [(14,3) (R=10) ()] def %GZ /txx11n [(11,3) (R=10) ()] def %ZM /txx20n [( 4,2) (R=10) ()] def %BZ /txx21n [(10,8) (R=10) ()] def %ZY /txx00x [(16,7) (5,0) (10,0)] def %NZW + Ref /txx01x [(14,3) (11,3) (10,0)] def %GZR + Ref /txx02x [(4,2) (10,8) (10,0)] def %BZY + Ref /txx00y [(15,2=0,7) (6,5=0,3)] def %NZW 0.7*21.7= 15.2 - 6.5 /txx01y [(15,4=0,6) (10,2=0,4)] def %GZR 0.6*25.6=15.4 - 10.2 /txx02y [(6,0=0,4) (9,0=0,6)] def %BZY 0.4*15.0= 6.0 - 9.0 /txx00y1 [(21,7) (21,7) (10,0)] def %NZW 0.7*21.7= 15.2 - 6.5 /txx01y1 [(25,6) (25,6) (10,0)] def %GZR 0.6*25.6=15.4 - 10.2 /txx02y1 [(15,0) (15,0) (10,0)] def %BZY 0.4*15.0= 6.0 - 9.0 /txx00 [(0) (a) (1)] def /txx30Vn [(0,70) (0,30)] def %NZW %visual /txx31Vn [(0,60) (0,40)] def %GZV /txx32Vn [(0,40) (0,60)] def %BZY /txr00 [(0,77=16,7/21,7=) (0,56=14,3/25,6=) (0,28=4,2/15,0=)] def /txr01 [(0,23=5,0/21,7=) (0,44=11,3/25,6=) (0,72=10,8/15,0=)] def /ix0 0100 def /iy0 0500 def /s 700 def ix0 iy0 12100 s 9 mul 0.0 0.0 0.0 0.47 colrecfi %grey surround /s 500 def /iy0 5900 def /ix0 0300 500 add def /ix1 0050 def /ixl 0300 def /n 0 def 0 1 2 {/j exch def TBK /n12 xchart4 12 mul j 4 mul add def 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 {TBIK} if txx00 j get show j 1 eq {(i) is2 TBK} if tfn /dcirc 280 def newpath ix0 j s mul add dcirc add 100 sub j 1 eq {s add} if j 2 eq {s 2 mul add} if % iy0 s s iy0 dcirc add col3 n12 0 add get col3 n12 1 add get col3 n12 2 add get col3 n12 3 add get colarcfi col3 n12 0 add get 0.00 eq col3 n12 1 add get 0.00 eq and col3 n12 2 add get 0.00 eq and col3 n12 3 add get 0.50 eq and {%eq Z newpath ix0 j s mul add dcirc add 100 sub j 1 eq {s add} if j 2 eq {s 2 mul add} if % iy0 s s iy0 dcirc add 0 0 0 0 colarcst } if %eq Z tfn ix0 j s mul add j 1 eq {s add} if j 2 eq {s 2 mul add} if iy0 300 sub moveto xchart4 0 eq {txt30 j get show} if xchart4 1 eq {txt31 j get show} if xchart4 2 eq {txt32 j get show} if j 1 le {%j<=1 ix0 j 0.9 add s mul add 100 add j 1 eq {s add} if j 2 eq {s 2 mul add} if iy0 600 sub moveto xchart4 0 eq {txx30Vn j get show} if xchart4 1 eq {txx31Vn j get show} if xchart4 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 600 sub moveto SK (D) show TBIK (V) show (3,i) is2 tfn } if %triplet TBIK j 0 eq {tfw ix0 350 sub iy0 200 add moveto xchart4 0 eq {(N) show} if xchart4 1 eq {(G) show} if xchart4 2 eq {(B) show} if } if j 2 eq {tfw ix0 4 s mul add 600 add iy0 200 add moveto xchart4 0 eq {(W) show} if xchart4 1 eq {(M) show} if xchart4 2 eq {(Y) show} if } if TBK } for %j TBK tfw ix0 1.1 s mul add iy0 0900 sub moveto txr00 xchart4 get show SK (D) show TBIK (P*) show (0) is20 TBK ( / ) show SK (D) show TBIK (S*) show j 1 le {%j<=1 ix0 j 0.9 add s mul add 100 add j 1 eq {s add} if xchart4 0 eq {txx30Vn j get show} if xchart4 1 eq {txx31Vn j get show} if xchart4 2 eq {txx32Vn j get show} if } if %j<=1 TBK ix0 1.1 s mul add s 2 mul add iy0 1200 sub moveto txr01 xchart4 get show SK (D) show TBIK (P*) show (1) is20 TBK ( / ) show SK (D) show TBIK (S*) show TBK ix0 1.1 s mul add iy0 1500 sub moveto (\050pair comparison, ) showea (\050Paarvergleich, ) showde SK (D) show TBIK (S*) show TBK ( = ) show SK (D) show TBIK (P*) show (0) is20 TBK (+) show SK (D) show TBIK (P*) show (1) is20 TBK ( \051) show TBK tfn /s 500 def /ydef 700 def /iy0 5900 def /ix0 ix2 def /ixl 0300 def 0 1 1 {/n exch def 0 1 1 {/j exch def TBK /n16 xchart4 16 mul n 8 mul add j 4 mul add def % /iyn ydef 4.4 mul n mul def /iyn ydef 3.5 mul n mul def j 0 eq {1 1 1 setrgbcolor ix0 0.5 s mul add iy0 650 add iyn sub moveto SK (D) show TBIK (P*) show n 0 eq {(0)}{(1)} ifelse is20 TBK (=) show xchart4 0 eq {txx00x n get show} if xchart4 1 eq {txx01x n get show} if xchart4 2 eq {txx02x n get show} if tfn ix0 0.2 s mul sub iy0 650 add s 1.8 mul sub iyn sub moveto SK (D) show TBIK (V*) show n 0 eq {(0)}{(1)} ifelse is20 TBK (=) show xchart4 0 eq {txx00y n get show ib4 TBK txx00y1 n get show} if xchart4 1 eq {txx01y n get show ib4 TBK txx01y1 n get show} if xchart4 2 eq {txx02y n get show ib4 TBK txx02y1 n get show} if ix0 0.0 s mul sub iy0 650 add s 2.4 mul sub iyn sub moveto TBK (=) show SK (D) show TBIK (V) show n 0 eq {(3,0)}{(3,1)} ifelse is2 ip2 SK (D) show TBK (S*) show tfn } if %j=0 newpath ix0 j s mul add dcirc add j 1 eq {s add} if % iy0 n ydef mul 4.4 mul sub s s % iy0 n ydef mul 4.4 mul sub dcirc add iy0 iyn sub dcirc add col6 n16 0 add get col6 n16 1 add get col6 n16 2 add get col6 n16 3 add get colarcfi col6 n16 0 add get 0.00 eq col6 n16 1 add get 0.00 eq and col6 n16 2 add get 0.00 eq and col6 n16 3 add get 0.50 eq and {%eq Z newpath ix0 j s mul add dcirc add j 1 eq {s add} if % iy0 n ydef mul 4.4 mul sub s s % iy0 n ydef mul 4.4 mul sub dcirc add iy0 iyn sub dcirc add 0 0 0 0 colarcst } if %eq Z tfn } for %j TBIK n 0 eq {tfw ix0 250 sub iy0 200 add iyn sub moveto xchart4 0 eq {(N) show} if xchart4 1 eq {(G) show} if xchart4 2 eq {(B) show} if ix0 2 s mul add 650 add iy0 200 add iyn sub moveto (Z) show } if n 1 eq {tfw ix0 250 sub iy0 200 add iyn sub moveto (Z) show ix0 2 s mul add 650 add iy0 200 add iyn sub moveto xchart4 0 eq {(W) show} if xchart4 1 eq {(M) show} if xchart4 2 eq {(Y) show} if } if n 1 eq {tfw newpath ix0 2 s mul add 1000 add iy0 700 add moveto -500 0 rlineto stroke ix0 2 s mul add 1000 add iy0 700 add moveto ix0 2 s mul add 1000 add iy0 700 add iyn sub lineto stroke ix0 2 s mul add 1000 add iy0 700 add iyn sub moveto -500 0 rlineto stroke ix0 2 s mul add 1100 add iy0 700 add iyn 0.5 mul sub moveto SK (D) show TBIK (S*) show TBK xchart4 0 eq {(=21,7) show} if xchart4 1 eq {(=25,6) show} if xchart4 2 eq {(=15,0) show} if ix0 2 s mul add 1100 add iy0 700 add iyn 0.5 mul sub 300 sub moveto TBK xchart4 0 eq {(=16,7+5,0) show} if xchart4 1 eq {(=14,3+11,3) show} if xchart4 2 eq {(=4,2+10,8) show} if } if TBK } for %n %referenz colours T-Z TBK /j 0 def /n 1 def /iyn ydef 3.5 mul 2.0 mul def 1 1 1 setrgbcolor ix0 0.5 s mul add iy0 650 add iyn sub moveto SK (D) show TBIK (V*) show (R) is20 TBK (=10,0) show ix0 0.2 s mul add iy0 650 add iyn sub 1.8 s mul sub moveto (reference pair) showea (Referenzpaar) showde tfn newpath /j 0 def ix0 j s mul add dcirc add j 1 eq {s add} if ix0 j s 1 mul mul add dcirc add iy0 iyn sub dcirc add 0 0 0 0 colarcst /j 1 def ix0 j s mul add dcirc add j 1 eq {s add} if ix0 j s 2 mul mul add dcirc add iy0 iyn sub dcirc add 1 0 0.25 0 colarcfi tfw TBIK ix0 250 sub iy0 200 add iyn sub moveto (Z) show ix0 2 s mul add 650 add iy0 200 add iyn sub moveto (T) show TBK /gstep 24 array def /gstep [( 0) ( 1) ( 5) ( 0) ( 2) ( 5) ( 0) ( 3) ( 5) ( 0) ( 4) ( 5) ( 5) ( 6) (10) ( 5) ( 7) (10) ( 5) ( 8) (10) ( 5) ( 9) (10)] def 0 1 95 {/i exch def %i=0,95 xchart4 0 eq {colall i colNZW i get put} if xchart4 1 eq {colall i colGZR i get put} if xchart4 2 eq {colall i colBZY i get put} if } for %i=0,95 /s 500 def /iy0 5900 def /ix0 ix2 3000 add s 2 mul add def /ixl 0300 def 0 1 7 {/n exch def 0 1 2 {/j exch def n 3 le {/j4 j 4 mul n 12 mul add def} if n 4 ge {/j4 j 4 mul n 12 mul add def} if n 0 eq {%n=0 1 1 1 setrgbcolor TBIK ix0 j s mul add 0.1 s mul sub j 1 eq {s add} if j 2 eq {s 2.2 mul add} if iy0 650 add moveto j 0 eq {xchart4 0 eq {( N) show} if xchart4 1 eq {( G) show} if xchart4 2 eq {( B) show} if } if j 1 eq {xchart4 0 eq {( grey) show} if xchart4 1 eq n 3 le and {(greenish) show} if xchart4 2 eq n 3 le and {( bluish) show} if } if j 2 eq {( Z) show} if } if %n=0 n 3 eq {%n=3 1 1 1 setrgbcolor TBIK ix0 j s mul add 0.1 s mul sub j 1 eq {s add} if j 2 eq {s 2.2 mul add} if iy0 650 add ydef 4.4 mul sub moveto j 0 eq {( Z) show} if j 1 eq {xchart4 0 eq {( grey) show} if xchart4 1 eq {( redish) show} if xchart4 2 eq {(yellowish) show} if } if j 2 eq {xchart4 0 eq {( W) show} if xchart4 1 eq {( M) show} if xchart4 2 eq {( Y) show} if } if } if %n=3 TBK tfw /nn n n 4 ge {0.4 add} if def /n3 n 3 mul j add def ix0 j s mul add 0.6 s mul sub j 1 eq {s add} if j 2 eq {s 2 mul add} if iy0 nn ydef mul sub 0.3 s mul add moveto gstep n3 get show newpath ix0 j s mul add dcirc add j 1 eq {s add} if j 2 eq {s 2 mul add} if % iy0 nn ydef mul sub s s iy0 nn ydef mul sub dcirc add colall j4 0 add get colall j4 1 add get colall j4 2 add get colall j4 3 add get colarcfi colall j4 0 add get 0.00 eq colall j4 1 add get 0.00 eq and colall j4 2 add get 0.00 eq and colall j4 3 add get 0.50 eq and {%eq Z newpath ix0 j s mul add dcirc add j 1 eq {s add} if j 2 eq {s 2 mul add} if /nn n n 4 ge {0.4 add} if def % iy0 nn ydef mul sub s s iy0 nn ydef mul sub dcirc add 0 0 0 0 colarcst } if %eq Z tfn } for %j } for %n /ix0 ix4 def /iy0 5900 def /SV*0 [16.7 16.7 16.7 16.7 5.0 5.0 5.0 5.0] def /SV*1 [14.3 14.3 14.3 14.3 11.3 11.3 11.3 11.3] def /SV*2 [ 4.2 4.2 4.2 4.2 10.8 10.8 10.8 10.8] def /DVi [0.20 0.40 0.60 0.80 0.20 0.40 0.60 0.80] def /SV*t0 [(16,7) (16,7) (16,7) (16,7) (5,0) (5,0) (5,0) (5,0)] def /SV*t1 [(14,3) (14,3) (14,3) (14,3) (11,3) (11,3) (11,3) (11,3)] def /SV*t2 [( 4,2) ( 4,2) ( 4,2) ( 4,2) (10,8) (10,8) (10,8) (10,8)] def /DV0t [(0,20) (0,40) (0,60) (0,80) (0,20) (0,40) (0,60) (0,80)] def /DV1t [(0,20) (0,40) (0,60) (0,80) (0,20) (0,40) (0,60) (0,80)] def /DVit [(0,20) (0,40) (0,60) (0,80) (0,20) (0,40) (0,60) (0,80)] def /DVxt0 [(3,34) (3,34) (3,34) (3,34) (1,00) (1,00) (1,00) (1,00)] def /DVxt1 [(2,86) (2,86) (2,86) (2,86) (2,26) (2,26) (2,26) (2,26)] def /DVxt2 [(0,84) (0,84) (0,84) (0,84) (2,16) (2,16) (2,16) (2,16)] def /iy01 iy0 200 add def 0 1 7 {/n exch def 0 1 3 {/j exch def TK /j4 j 4 mul n 24 mul add def TK /nn n n 4 ge {0.4 add} if def ix0 ixi 0 get add iy01 nn ydef mul sub moveto DVit n get show ix0 ixi 1 get add iy01 nn ydef mul sub moveto xchart4 0 eq {SV*t0 n get show} if xchart4 1 eq {SV*t1 n get show} if xchart4 2 eq {SV*t2 n get show} if ix0 ixi 2 get add iy01 nn ydef mul sub moveto DVi n get xchart4 0 eq {SV*0 n get mul cvsshow2} if xchart4 1 eq {SV*1 n get mul cvsshow2} if xchart4 2 eq {SV*2 n get mul cvsshow2} if ix0 ixi 3 get add iy01 nn ydef mul sub 350 add moveto xchart4 0 eq {DVxt0 n get show} if xchart4 1 eq {DVxt1 n get show} if xchart4 2 eq {DVxt2 n get show} if n 3 eq {ix0 ixi 3 get add iy01 nn 1 add ydef mul sub 350 add moveto xchart4 0 eq {DVxt0 n get show} if xchart4 1 eq {DVxt1 n get show} if xchart4 2 eq {DVxt2 n get show} if } if n 7 eq {ix0 ixi 3 get add iy01 nn 1 add ydef mul sub 350 add moveto xchart4 0 eq {DVxt0 n get show} if xchart4 1 eq {DVxt1 n get show} if xchart4 2 eq {DVxt2 n get show} if } if } for %j } for %n 15 setlinewidth /xwidth 3100 def /ywidth 3100 def /xwidtz xwidth 400 sub def /ywidtz ywidth 400 sub def /xr0 1700 def /yr0 600 def /xr1 xr0 200 add def /yr1 yr0 200 add def 0.0 0.0 0.0 0.0 setcmyk_olvcolor %W xr0 yr0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0.0 0.0 0.0 0.5 setcmyk_olvcolor %Z xr1 yr1 moveto xwidtz 0 rlineto 0 ywidtz rlineto xwidtz neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor %N xr0 yr0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke xchart4 0 eq {0.0 0.0 0.0 1.0 setcmyk_olvcolor} if %N xchart4 1 eq {1.0 0.0 1.0 0.0 setcmyk_olvcolor} if %G xchart4 2 eq {1.0 1.0 0.0 0.0 setcmyk_olvcolor} if %B xr1 xwidtz 0.2 mul add yr1 ywidtz 0.8 mul add dcirc 0 360 arc fill xchart4 0 eq {0.0 0.0 0.0 0.0 setcmyk_olvcolor} if %W xchart4 1 eq {0.0 1.0 0.0 0.0 setcmyk_olvcolor} if %R xchart4 2 eq {0.0 0.0 1.0 0.0 setcmyk_olvcolor} if %Y xr1 xwidtz 0.8 mul add yr1 ywidtz 0.8 mul add dcirc 0 360 arc fill 0.0 0.0 0.0 0.0 setcmyk_olvcolor %Z xr1 xwidtz 0.5 mul add yr1 ywidtz 0.5 mul add dcirc 0 360 arc stroke newpath TBG tfn xr1 900 add yr1 700 add moveto (0 ... 10) show %xr1 500 add yr1 400 add moveto ( slider for) showen %(Schieber \f374r) showde xchart4 0 eq {xr1 500 add yr1 400 add moveto ( grey step) showen ( Graustufe) showde } if xchart4 1 ge {xr1 500 add yr1 400 add moveto ( colour step) showen ( Farbstufe) showde } if TBIG xchart4 0 eq {xr1 500 add yr1 100 add moveto ( N...Z...W) show } if xchart4 1 eq {xr1 500 add yr1 100 add moveto ( G...Z...M) show } if xchart4 2 eq {xr1 500 add yr1 100 add moveto ( B...Z...Y) show } if TBIG xr1 200 add yr1 1500 add moveto xchart4 0 eq {(N=0) show} if xchart4 1 eq {(G=0) show} if xchart4 2 eq {(B=0) show} if xr1 1800 add yr1 1500 add moveto xchart4 0 eq {(W=10) show} if xchart4 1 eq {(M=10) show} if xchart4 2 eq {(Y=10) show} if TBG 0.0 0.0 0.0 1.0 setcmyk_olvcolor %N xr0 yr0 ywidth add 100 add moveto ( wiewing situation) showen (Beobachtungssituation) showde showpage grestore %} for %xchart4=0,2 %%Trailer