%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega01-1 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /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/ega0/ega0.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 pdfmark11 [ /View [ /Fit ] /DOCVIEW pdfmark11 %END PDFDE011 /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 %XCHA03.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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor 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 {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} bind def %XCHA03.PS BEG %%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 /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 (ega01-1n, CEA30-1N) show %(Threshold data for constant grey surround luminance) showen %(Schwellendaten f\374r konstante graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (u) show 72 90 translate 0.01 MM dup scale 30 setlinewidth tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfn 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke /xchart 0 def /ix00 450 def /iy00 400 def xchart 0 eq {ix00 0 translate 450 3350 moveto} {050 3725 moveto} ifelse tfw TBM (log \050) 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 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 xchart 0 eq { -400 3700 moveto (D) SG TBIG 50 0 rmoveto (L) show TBM 10 -80 rmoveto (r) show 0 80 rmoveto TBM ( = ) 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 TBG ( = Relative luminance difference) showen ( = Relative Leuchtdichtedifferenz) showde } if xchart 1 eq { 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 [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def tfw ix00 iy00 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke 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 1650 150 moveto (L) TBIM show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show } if tfw TBIM 3400 2500 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 (u)show tfw TBIM 3400 2200 moveto (L) tfw show 10 -80 rmoveto (u) show 0 80 rmoveto TBM (=) show 40 0 rmoveto (50 cd/m) show TBK 10 60 rmoveto (2) show tfw TBIM 3400 1900 moveto (combine laws:) showen (verbinde Gesetze) showde tfb 3400 1600 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (aw) show 0 80 rmoveto TBM (=1,0log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfy 3400 1300 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (as) show 0 80 rmoveto TBM (=0,5log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfw TBG 0400 3000 moveto (Muster:) showde (Samples:) showen tfb TBG 0400 2750 moveto (benachbart) showde (adjacent) showen tfw TBG 0200 1000 moveto (Weber law:) showen (Weber-Gesetz) showde tfb 0100 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 0100 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM ( / ) show TBIM (L) show TBK 10 -60 rmoveto (r) show 0 60 rmoveto TBM ( = const) show tfw TBG 2150 3000 moveto (Muster:) showde (Samples:) showen tfy TBG 2150 2750 moveto (separat) showde (separated) showen tfw TBG 2000 1000 moveto (Stevens law:) showen (Stevens-Gesetz) showde tfy 2000 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = 0,5 log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 2000 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM ( = const ) show TBIM (L) show TBK 10 -60 rmoveto (r) show 0 60 rmoveto TBK 10 80 rmoveto (0,5) show 0 -80 rmoveto /Tkk {120 /Times-ISOL1 FS} bind def /Tk {150 /Times-ISOL1 FS} bind def /TIkk {120 /TimesI-ISOL1 FS} bind def /TIk {150 /TimesI-ISOL1 FS} bind def /TBkk {120 /TimesB-ISOL1 FS} bind def /TBk {150 /TimesB-ISOL1 FS} bind def /TBIkk {120 /TimesBI-ISOL1 FS} bind def /TBIk {150 /TimesBI-ISOL1 FS} bind def /Skk {120 /Symbol FS show} bind def /Sk {150 /Symbol FS show} bind def xchart 1 eq { 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2250 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (surround luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto 3400 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 (u) show 0 30 rmoveto TBk tfw 3400 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3400 2750 moveto (u = surround) showen (u = Umfeld) showde } if 1.5 dup scale /iyl 0900 def /iy0 iyl 400 add def 0 1 1 {/i exch def %i=0,2 /ixl 200 i 1150 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.30} if i 1 eq {0.30} if setgray i 0 eq {/ix1 100 def /ix2 0 def} if i 1 eq {/ix1 150 def /ix2 50 def} if ix0 ix1 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.40} if i 1 eq {0.40} if setgray ix0 ix2 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 (ru) show 0 30 rmoveto TBk (=1) 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 i 0 eq {tfb} {tfy} ifelse ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,1 grestore showpage grestore } for %output with langind end %%Trailer