%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/AGQ3/AGQ31-5 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark15 where {pop} {userdict /pdfmark15 /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: farbe.li.tu-berlin.de/AGQ3/AGQ3.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2020110112000) /ModDate (D:20201101112000) /DOCINFO pdfmark15 [ /View [ /Fit ] /DOCVIEW pdfmark15 %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 /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 /scalef 0.70 def /Tk {200 scalef mul /Times-ISOL1 FS} bind def /TK {250 scalef mul /Times-ISOL1 FS} bind def /TM {300 scalef mul /Times-ISOL1 FS} bind def /TG {350 scalef mul /Times-ISOL1 FS} bind def /TIk {200 scalef mul /TimesI-ISOL1 FS} bind def /TIK {250 scalef mul /TimesI-ISOL1 FS} bind def /TIM {300 scalef mul /TimesI-ISOL1 FS} bind def /TIG {350 scalef mul /TimesI-ISOL1 FS} bind def /TBk {250 scalef mul /TimesB-ISOL1 FS} bind def /TBK {250 scalef mul /TimesB-ISOL1 FS} bind def /TBM {300 scalef mul /TimesB-ISOL1 FS} bind def /TBG {350 scalef mul /TimesB-ISOL1 FS} bind def /TBIk {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIK {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIM {300 scalef mul /TimesBI-ISOL1 FS} bind def /TBIG {350 scalef mul /TimesBI-ISOL1 FS} bind def /SK {250 scalef mul /Symbol FS show} bind def /SM {300 scalef mul /Symbol FS show} bind def /SG {350 scalef mul /Symbol FS show} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {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 /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 74 86 moveto (AGQ31-5N) show %(Threshold discriminability for constant surround luminance) showen %(Schwellenunterscheidungsverm\366gen f\374r konstante) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto TBM (log \050) show TBIM 50 0 rmoveto (L) show TBM 10 0 rmoveto (/) show 50 0 rmoveto (D) SM TBIM 50 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 50 0 rmoveto (\051) show TBM ( = log \050) show TBIM 50 0 rmoveto (L) show TBM 10 0 rmoveto (/) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBM 20 0 rmoveto (\051) show 30 setlinewidth 100 3000 moveto 0 500 rlineto 100 -50 add 3500 -150 add moveto 50 150 rlineto 50 -150 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty [(-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def tfw /ix00 550 def /iy00 400 def ix00 iy00 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke TBM TBM %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for tfw 3750 -300 moveto TBIM (x) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show tfw TBIM 2050 600 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3700 700 moveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM (=) show TBIM (L) show TBM (/) show TBIM (L) show TBK 10 -80 rmoveto (b) show 30 setlinewidth tfw [100] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke %50 setlinewidth %tfy %[100 ] 0 setdash %0 0 moveto 4000 2000 rlineto stroke 50 setlinewidth tfy [100 ] 0 setdash 000 000 moveto 4000 2000 rlineto stroke %50 setlinewidth %tfv %[100 ] 0 setdash %0 000 moveto 1000 1000 rlineto 3000 0 rlineto stroke 50 setlinewidth tfv [ ] 0 setdash 0 000 moveto 1000 1000 rlineto 3000 0 rlineto stroke 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfy TBM 3750 1600 moveto (Stufung) showde (scaling) showen tfv TBM 3400 1200 moveto (Schwellen) showde (threshold) showen tfw [ ] 0 setdash /Tkk {110 /Times-ISOL1 FS} bind def /Tk {140 /Times-ISOL1 FS} bind def /TIkk {110 /TimesI-ISOL1 FS} bind def /TIk {140 /TimesI-ISOL1 FS} bind def /TBkk {110 /TimesB-ISOL1 FS} bind def /TBk {140 /TimesB-ISOL1 FS} bind def /TBIkk {110 /TimesBI-ISOL1 FS} bind def /TBIk {140 /TimesBI-ISOL1 FS} bind def /Skk {110 /Symbol FS show} bind def /Sk {140 /Symbol FS show} bind def /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 mul add def /ix0 ixl 400 add def 50 setlinewidth tfw ixl iyl moveto 800 0 rlineto 0 800 rlineto -800 0 rlineto closepath stroke 0.00 0.00 0.00 i 0 eq {0.05} if i 1 eq {0.45} if i 2 eq {0.85} if setgray % ix0 iy0 100 090 270 arc fill ix0 100 sub iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill 0.00 0.00 0.00 i 0 eq {0.20} if i 1 eq {0.55} if i 2 eq {0.95} if setgray % ix0 iy0 100 270 090 arc fill ix0 000 add iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill tfw ix0 200 sub iy0 200 add moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {300 sub} if i 1 eq {150 sub} if i 2 eq {300 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show i 0 eq {()} if i 1 eq {()} if i 2 eq {(100)} if show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (50 cd/m) show TBkk 5 30 rmoveto (2) show ix0 345 sub iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r1) show 0 30 rmoveto ix0 155 add iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r2) show 0 30 rmoveto 25 setlinewidth tfv ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 3100 moveto TBIk (L) tfw show TBkk 10 -30 rmoveto (w) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (4,5) show TBIk (L) tfw show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log\050) show TBIk 0 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 0 30 rmoveto TBk 0 0 rmoveto (/) show 0 0 rmoveto (D) Skk TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (rw) show 0 30 rmoveto TBk 5 0 rmoveto (\051 = const) show tfy 3500 2300 moveto TBk (log\050) show TBIk 0 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 0 30 rmoveto TBk 0 0 rmoveto (/) show 0 0 rmoveto (D) Skk TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (rs) show 0 30 rmoveto TBk 5 0 rmoveto (\051=0,5log) show TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 30 setlinewidth [100] 0 setdash %threshold tfv 1000 1000 moveto 0 1100 rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 1000 moveto 0 1100 rlineto stroke %scaling %tfy %1000 0550 moveto 0 1600 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 1550 moveto 0 0600 rlineto stroke grestore showpage grestore } for %output with langind end %%Trailer