%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/CEA3/CEA31-7 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /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/CEA3/CEA3.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 pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %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 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 74 86 moveto (CEA31-7N) 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 (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 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 (ru) 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 (u) 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 [ ] 0 setdash 000 000 166 sub moveto 4000 2000 166 2 mul add rlineto stroke 50 setlinewidth tfb [100 ] 0 setdash 0 000 moveto 1000 1000 rlineto 3000 0 rlineto stroke 50 setlinewidth tfb [ ] 0 setdash 0 000 moveto 1000 1000 166 sub rlineto 3000 166 3 mul rlineto stroke 80 setlinewidth tfr 1625 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 3700 1700 moveto (Stufung) showde (scaling) showen tfb TBM 3400 1400 moveto (Schwellen) showde (threshold) showen tfw [ ] 0 setdash /Tkk {105 /Times-ISOL1 FS} bind def /Tk {135 /Times-ISOL1 FS} bind def /TIkk {105 /TimesI-ISOL1 FS} bind def /TIk {135 /TimesI-ISOL1 FS} bind def /TBkk {105 /TimesB-ISOL1 FS} bind def /TBk {135 /TimesB-ISOL1 FS} bind def /TBIkk {105 /TimesBI-ISOL1 FS} bind def /TBIk {135 /TimesBI-ISOL1 FS} bind def /Skk {105 /Symbol FS show} bind def /Sk {135 /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 (ru) 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 (ru) 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 (u) 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 tfb ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw /TBv {135 /TimesB-ISOL1 FS} bind def TBv 40 iy0 600 sub moveto (Example:) showen (Beispiel:) 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 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 (u) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (u = surround) showen (u = Umfeld) showde tfb 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=0,16log) show TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) 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,58log) show TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 30 setlinewidth [100] 0 setdash %threshold tfb 1000 1000 133 sub moveto 0 1100 133 add rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 1000 133 add moveto 0 1100 133 sub 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