%!PS-Adobe-3.0 EPSF-3.0 XE010-3N %%BoundingBox: 70 83 392 335 %START PDFDE011.EPS /pdfmark03 where {pop} {userdict /pdfmark03 /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/XE01/) /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:2015060112000) /ModDate (D:2015060112000) /DOCINFO pdfmark03 [ /View [ /FitB ] /DOCVIEW pdfmark03 %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 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 (XE010-3N) 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 (2, 3 & 5 Stufen; benachbarte Farben) showde %08560-3 11 (2, 3 & 5 steps; adjacent colours) showea %18560-3 11 /ix1 0100 def /ix2 2500 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 TM ( (i=0,1)) show ix1 6950 moveto TG (Bereich 0 bis 1) showde (range 0 to 1) showea ix1 100 moveto TG (2 Experimente von >14 Beobachtern) showde (2 experiments of >14 observers) showea ix2 7650 moveto TG (Paarvergleich) showde (pair comparison) showea ix2 7300 moveto (mit Graupaar) showde (with grey pair) showea ix2 6950 moveto SG (D) show TIG (R*) show (i) is TG ( : ) show SG (D) show TIG (R*) show TG (=10) show /ix31 ix3 100 add def ix31 7650 moveto TG (Relative visuelle) showde (relative visual) showea ix31 7300 moveto (scale ) showea (Skala ) showde SG (D) show TIG (V) show (6,i) is TG ( (i=0,4)) show ix31 6950 moveto TG (Bereich 0 bis 1) showde (range 0 to 1) showea ix3 100 moveto TG (gleiche Differenz ) showde (equal difference ) showea SG (D) show TIG (E*) show (ab) is2 TG /ix40 ix4 050 add def /ix41 ix4 300 add def ix40 7650 moveto TG (skalierte visuelle) showde (scaled visual) showea ix40 7300 moveto (Daten ) showde (data ) showea SG (D) show TIG (V*) show (i) is2 TG ( (i=0 bis 4)) showde ( (i=0 to 4)) showea ix40 6950 moveto SG (D) show TIG (V*) show (i) is2 TG (=) show SG (D) show TIG (V) show (3,i) is2 ip2 SG (D) show TIG (V) show (6,i) is2 ip2 SG (D) show TIG (S*) show ix41 100 moveto TG (skalierte Daten) showde (final scaled data) showea /col3 [ 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 1.00 0.00 1.00 0.00 %G 0.00 0.00 0.00 0.50 %Z 0.00 1.00 1.00 0.00 %R 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 [ 0.00 0.00 0.00 1.00 %N 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.00 %W 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C 1.00 0.00 1.00 0.00 %G 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C 0.00 1.00 1.00 0.00 %R 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C 1.00 1.00 0.00 0.00 %B 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C 0.00 0.00 1.00 0.00 %Y 0.00 0.00 0.00 0.50 %Z 1.00 0.00 0.00 0.00 %C ] def /col6p [ 0.00 0.00 0.00 0.65 %D 0.00 0.00 0.00 0.25 %H 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.65 %D 0.00 0.00 0.00 0.25 %H 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.65 %D 0.00 0.00 0.00 0.25 %H 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.65 %D 0.00 0.00 0.00 0.25 %H 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.65 %D 0.00 0.00 0.00 0.25 %H 1.00 0.00 0.00 0.00 %C 0.00 0.00 0.00 0.65 %D 0.00 0.00 0.00 0.25 %H 1.00 0.00 0.00 0.00 %C ] def /col62 [ %NZW 0.00 0.00 0.00 1.00 %N 0.00 0.00 0.00 0.90 % 0.00 0.00 0.00 0.80 % 0.00 0.00 0.00 0.70 % 0.00 0.00 0.00 0.60 % 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 % 0.00 0.00 0.00 0.30 % 0.00 0.00 0.00 0.20 % 0.00 0.00 0.00 0.10 % 0.00 0.00 0.00 0.00 %W %GZR 1.00 0.00 1.00 0.00 %G 0.80 0.00 0.80 0.10 % 0.60 0.00 0.60 0.20 % 0.40 0.00 0.40 0.30 % 0.20 0.00 0.20 0.40 % 0.00 0.00 0.00 0.50 %Z 0.00 0.00 0.00 0.50 %Z 0.00 0.20 0.20 0.40 % 0.00 0.40 0.40 0.30 % 0.00 0.60 0.60 0.20 % 0.00 0.80 0.80 0.10 % 0.00 1.00 1.00 0.00 %R %BZY 1.00 1.00 0.00 0.00 %B 0.80 0.80 0.00 0.10 % 0.60 0.60 0.00 0.20 % 0.40 0.40 0.00 0.30 % 0.20 0.20 0.00 0.40 % 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 % 0.00 0.00 0.40 0.30 % 0.00 0.00 0.60 0.20 % 0.00 0.00 0.80 0.10 % 0.00 0.00 1.00 0.00 %Y ] def /txt30 [( 0) (0,70) ( 1)] def %NDW /txt31 [( 0) (0,60) ( 1)] def %GDV /txt32 [( 0) (0,40) ( 1)] def %BDY /txm00 [(16,7 : 10) ()] def %WZ /txm01 [( 5,0 : 10) ()] def %ZN /txm10 [(14,3 : 10) ()] def %GZ /txm11 [(11,3 : 10) ()] def %ZV /txm20 [( 4,2 : 10) ()] def %BZ /txm21 [(10,8 : 10) ()] def %ZY /txx00 [(0) (a) (1)] def /txx01 [(S) (0) (10)] def /txx02 [(0) (0,2) (0,4) (0,6) (0,8) (1)] def /txx30V (0,70 0,30) def /txx31V (0,60 0,40) def /txx32V (0,40 0,60) def /txr000 [(0,77=16,7/21,7) (0,56=14,3/25,6) (0,28=4,2/15,0)] def /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 TBK /j4 j 4 mul n 12 mul add def n 0 eq {1 1 1 setrgbcolor ix0 j 0.3 add s mul add iy0 680 add moveto txx00 j get show j 1 eq {(j) is2 TBK} if tfn } if ix0 j s mul add 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 s mul add iy0 n 2000 mul sub s s 0 0 0 0 colrecst } if %eq Z tfn ix0 j s mul add 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 0 eq { ix0 j 0.4 add s mul add 100 add iy0 n 2000 mul sub 600 sub moveto n 0 eq {txx30V show} if n 1 eq {txx31V show} if n 2 eq {txx32V show} if } if j 0 eq {tfn ix0 j 0.4 add s mul sub 020 add iy0 n 2000 mul sub 600 sub moveto SK (D) show -40 0 rmoveto TBK (V) show -40 0 rmoveto (3,i) is2 } if } for %j TBK tfw ix0 0.6 s mul add iy0 n 2000 mul sub 0900 sub moveto txr000 n get show ix0 0.6 s mul add iy0 n 2000 mul sub 1200 sub moveto ((Paarvergleich)) showde ((pair comparison)) showea } for %n /s 500 def /iy0 5900 def /ix0 ix2 def %/ix1 0050 def /ixl 0300 def 0 1 5 {/n exch def 0 1 1 {/j exch def TBK /j4 j 4 mul n 12 mul add def n 0 eq j 0 eq and {tfw ix0 j 0.5 add s mul add iy0 650 add moveto SK (D) show TBIK (R*) show (i) is2 TBK ix0 s sub 100 sub iy0 650 add moveto SK (D) show TBIK (S*) show TBK } if n n 2 idiv 2 mul sub 0 eq j 0 eq and {tfw ix0 0.5 s mul add iy0 n 1000 mul sub 0.5 s mul add moveto -350 0 rlineto 0 -1000 rlineto 350 0 rlineto stroke } if ix0 j s mul add iy0 n 1000 mul sub s s col6 j4 0 add get col6 j4 1 add get col6 j4 2 add get col6 j4 3 add get colrecfi col6 j4 0 add get 0.00 eq col6 j4 1 add get 0.00 eq and col6 j4 2 add get 0.00 eq and col6 j4 3 add get 0.50 eq and {%eq Z ix0 j s mul add iy0 n 1000 mul sub s s 0 0 0 0 colrecst } if %eq Z tfw ix0 j 0.5 add s mul add %300 add iy0 n 1000 mul sub 300 sub moveto n 0 eq {txm00 j get show} if n 1 eq {txm01 j get show} if n 2 eq {txm10 j get show} if n 3 eq {txm11 j get show} if n 4 eq {txm20 j get show} if n 5 eq {txm21 j get show} if j 0 eq {%j=0 ix0 s sub 100 sub % iy0 n 1000 mul sub 300 sub moveto n 0 eq {TBK (21,7) show} if n 2 eq {TBK (25,6) show} if n 4 eq {TBK (15,0) show} if } if %j=0 tfn } for %j } for %n /s 500 def /iy0 5900 def /ix0 ix2 1200 add def %/ix1 0050 def /ixl 0300 def 0 1 5 {/n exch def 0 1 1 {/j exch def TBK /j4 j 4 mul n 12 mul add def n 0 eq j 0 eq and {tfw ix0 j 0.2 add s mul add iy0 650 add moveto SK (D) show TBIK (R*) show TBK (=10) show tfn } if ix0 j s mul add iy0 n 1000 mul sub s s col6p j4 0 add get col6p j4 1 add get col6p j4 2 add get col6p j4 3 add get colrecfi col6p j4 0 add get 0.00 eq col6p j4 1 add get 0.00 eq and col6p j4 2 add get 0.00 eq and col6p j4 3 add get 0.50 eq and {%eq Z ix0 j s mul add iy0 n 1000 mul sub s s 0 0 0 0 colrecst } if %eq Z tfn } for %j } for %n /s 500 def /iy0 5900 def /ix0 ix3 def %/ix1 0050 def /ixl 0300 def /txt02 (0,2) def /txt02t [ (0,1) (0,2) (0,2) (0,2) (0,3) (0,2) (0,1) (0,2) (0,2) (0,3) (0,3) (0,2) (0,2) (0,2) (0,1) (0,1) (0,2) (0,2) (0,2) (0,3) (0,1) (0,3) (0,2) (0,2) (0,3) (0,3) (0,2) (0,2) (0,2) (0,1) ] def 0 1 5 {/n exch def 0 1 5 {/j exch def TBK /j4 j 4 mul n 24 mul add def n 0 eq {1 1 1 setrgbcolor ix0 j 0.3 add s mul add iy0 650 add moveto txx02 j get show tfn } if ix0 j s mul add iy0 n 1000 mul sub s s col62 j4 0 add get col62 j4 1 add get col62 j4 2 add get col62 j4 3 add get colrecfi col62 j4 0 add get 0.00 eq col62 j4 1 add get 0.00 eq and col62 j4 2 add get 0.00 eq and col62 j4 3 add get 0.50 eq and {%eq Z ix0 j s mul add iy0 n 1000 mul sub s s 0 0 0 0 colrecst } if %eq Z j 4 le {tfn ix0 j 0.5 add s mul add 100 add iy0 n 1000 mul sub 300 sub moveto txt02t n 5 mul j add get show } if j 0 eq {tfn ix0 j 0.5 add s mul sub iy0 n 1000 mul sub 300 sub moveto SK (D) show -40 0 rmoveto TBIK (V) show -40 0 rmoveto (6,i) is2 tfn } if } for %j } for %n /SV* [21.7 21.7 25.6 25.6 15.0 15.0] def /DVi [0.70 0.30 0.60 0.40 0.40 0.60] def /s 500 def /iy0 5900 def /ix0 ix4 def %/ix1 0050 def /ixl 0300 def /txt02n [ %equal difference 0.1 0.2 0.2 0.2 0.3 0.2 0.1 0.2 0.2 0.3 0.3 0.2 0.2 0.2 0.1 0.1 0.2 0.2 0.2 0.3 0.1 0.3 0.2 0.2 0.3 0.3 0.2 0.2 0.2 0.1 ] def 0 1 5 {/n exch def 0 1 5 {/j exch def /j4 j 4 mul n 24 mul add def j 4 le {tfn n 0 eq {tfn ix0 j 0.6 add s mul add iy0 650 add moveto SK (D) show TBIK (V*) show TS -100 -100 rmoveto j cvishow 0 100 rmoveto TK tfn } if ix0 j 0.5 add s mul add 100 add iy0 n 1000 mul sub 150 add moveto txt02n n 5 mul j add get DVi n get mul SV* n get mul cvsshow2 } if } for %j } for %n showpage grestore %%Trailer