%!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