%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/AGQ3/AGQ30-2
%%BoundingBox: 70 85 226 206

%START PDFDE011.EPS
/pdfmark02 where {pop} {userdict /pdfmark02 /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 pdfmark02
[ /View [ /Fit ]
/DOCVIEW pdfmark02
%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
(AGQ30-2N) 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 (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

/xchart 1 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 (rb) show 0 80 rmoveto
TBM 10 0 rmoveto (=) show
TBM 10 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 (b)show

tfw TBIM
3400 2200 moveto 
(L) tfw show
10 -80 rmoveto (b) 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

tfv
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

tfv
TBG
0400 2750 moveto
(benachbart) showde
(adjacent) showen

tfw
TBG
0200 1000 moveto
(Weber law:) showen
(Weber-Gesetz) showde

tfv
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 (aw) 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 ( / ) show
TBIM (L) show
TBK 10 -60 rmoveto (as) show 0 60 rmoveto
TBM ( = const) show


/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
2300 150 moveto
TBIM (x) show
TBK 0 -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
(background luminance) showen
(Umfeld\255Leuchtdichte) showde
TBIk ( L) show
TBkk 10 -30 rmoveto (b) 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 (b) show 0 30 rmoveto

TBk tfw
3400 2900 moveto
(w = white border) showen
(w = wei\337er Rahmen) showde
3400 2750 moveto
(b = background) showen
(b = 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 (rb) 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 {tfv} {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