%!PS-Adobe-3.0 EPSF-3.0 BEU61-2N
%%BoundingBox: 70 85 228 206

%START PDFDE011.EPS
/pdfmark12 where {pop} {userdict /pdfmark12 /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/BEU6/BEU6.HTM)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
 /Keywords (image reproduction, colour devices)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2021040112000)
 /ModDate (D:20210401112000)
/DOCINFO pdfmark12
[ /View [ /Fit ]
/DOCVIEW pdfmark12
%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

/Courier findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/Courier-ISOL1 exch definefont pop

/Courier-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/CourierB-ISOL1 exch definefont pop

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/TS {160 /Times-ISOL1 FS} bind def
/TL {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIS {160 /TimesI-ISOL1 FS} bind def
/TIL {200 /TimesI-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBS {160 /TimesB-ISOL1 FS} bind def
/TBL {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIS {160 /TimesBI-ISOL1 FS} bind def
/TBIL {200 /TimesBI-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/SS {160 /Symbol FS} bind def
/SL {200 1 sub /Symbol FS} bind def
/SK {250 1 sub /Symbol FS} bind def
/SM {300 1 sub /Symbol FS} bind def
/SG {350 1 sub /Symbol FS} bind def

/CS {160 /Courier-ISOL1 FS} bind def
/CL {200 /Courier-ISOL1 FS} bind def
/CK {250 /Courier-ISOL1 FS} bind def
/CM {300 /Courier-ISOL1 FS} bind def
/CG {350 /Courier-ISOL1 FS} bind def

/CBS {160 /CourierB-ISOL1 FS} bind def
/CBL {200 /CourierB-ISOL1 FS} bind def
/CBK {250 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def

/nGs {350 /Times-ISOL1 FS  show} bind def
/kGs {350 /TimesI-ISOL1 FS  show} bind def
/bGs {350 /TimesB-ISOL1 FS  show} bind def
/jGs {350 /TimesBI-ISOL1 FS  show} bind def
/sGs {350 /Symbol FS  show} bind def
/iGs {300 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/eGs {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
/ibGb {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/ebGb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
/ipG {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def

%20% kleiner
/nMs {300 /Times-ISOL1 FS  show TM} bind def
/kM2 {300 /TimesI-ISOL1 FS  show TM} bind def
/bM2 {300 /TimesB-ISOL1 FS  show TM} bind def
/jM2 {300 /TimesBI-ISOL1 FS  show TM} bind def
/sMs {300 /Symbol FS  show TM} bind def
/iMs {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def
/eMs {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ibMs {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def
/ebMs {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ipM {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def

%40% kleiner
/nKs {250 /Times-ISOL1 FS  show TK} bind def
/kKs {250 /TimesI-ISOL1 FS  show TK} bind def
/bKs {250 /TimesB-ISOL1 FS  show TK} bind def
/jKs {250 /TimesBI-ISOL1 FS  show TK} bind def
/sKs {250 /Symbol FS  show TK} bind def
/iKs {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/eKs {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ibKs {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/ebKs {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ipK {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def

%60% kleiner
/nLs {200 /Times-ISOL1 FS  show TS} bind def
/kLs {200 /TimesI-ISOL1 FS  show TS} bind def
/bLs {200 /TimesB-ISOL1 FS  show TS} bind def
/jLs {200 /TimesBI-ISOL1 FS  show TS} bind def
/sLs {200 /Symbol FS  show TS} bind def
/iLs {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def
/eLs {160 /Times-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def
/ibLs {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def
/ebLs {160 /TimesB-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def
/ipL {160 /Times-ISOL1 FS 25 25 rmoveto (\267) show 25 -25 rmoveto TS} bind def

/tdw {1 1 1 setrgbcolor} bind def
/tdr {1 0 0 setrgbcolor} bind def
/tdy {1 1 0 setrgbcolor} bind def
/tdg {0 1 0 setrgbcolor} bind def
/tdc {0 1 1 setrgbcolor} bind def
/tdb {0 0 1 setrgbcolor} bind def
/tdb {1 0 1 setrgbcolor} bind def
/tdn {0 0 0 setrgbcolor} bind def

%%EndProlog
gsave

/lanind 1 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
/showea {1 lanind le {show} {pop} ifelse} bind def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 1 def /lanind2 1 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 0 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

gsave
%XCHA01.PS END

5 /Times-ISOL1 FS
72 85 moveto (BEU61-2N) show

72 90 translate

0.01 MM dup scale

20 setlinewidth
 /xchartl 5 def

/xwidth 5400 def
/ywidth 4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath fill

0 setlinewidth
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
           xwidth neg 0 rlineto closepath clip
20 setlinewidth

0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath stroke

tdn
40 setlinewidth
050 3825 moveto
TBL
(sRGB\255Dreieckshelligkeit) showde
(sRGB\255triangle lightness) showen
TBIL ( t*, ) show
TBL
(CIE\255Hellbezugswertunter\255) showde
(CIE tristimulus value discri\255) showen

050 3600 moveto
TBL
(scheidung ) showde
(mination ) showen
TBIL (dY ) show
TBL
(und CIE\255Kontrast) showde
(and CIE contrast) showen
TBIL ( (Y/dY)) show
TS (  sRGB: see IEC 61966\2552\2551) showen
(  sRGB: siehe IEC 61966\2552\2551) showde

/x0 100 def
/y0 3200 def
/x1  700 def
/y1 3200 def
/xdel 800 def
/ydel 300 def

x0 y0 moveto
TBL (sRGB\255triangle lightness for) showen
TBIL ( achromatic) showen
TBL ( colours:) showen
(sRGB\255Dreieckshelligkeit f\374r) showde
TBIL ( chromatische) showde
TBL ( Farben:) showde
TBL ( RGB) show

%t*= (Y/Yn)**(1/2,4)
x1 y0 0.9 ydel mul sub moveto
TBIL (t*) show (sRGB,100) ibLs
TBL ( = 100 \050) show
TBIL (Y/Y) show
(n) ibLs
TBL (\051) show
(1/2,4) ebLs
%TBL ( = 100 \050) show
%TBIL (Y/Y) show
%(n) ibLs
%TBL (\051) show
%(0,42) ebLs

%data see ME411-8N.EPS: 22.19, 70.68, 7.13
3050 y0 0.9 ydel mul sub moveto
TBL (\050) show
TBIL (Y) show
(n) ibLs
TBL (=22(R)) show %tfr exec TBL ((R)) show tfw
 (, =71(G)) show %tfg TBL ((G)) show tfw
 (, =07(B)) show %tfb TBL ((B)) show tfw
(\051) show

x0 y0 2 ydel mul sub moveto
(For the discrimination we get:) showen
(F\374r die Unterscheidung erh\344lt man:) showde

%dt*/dY=(1/2,4=0,42) (Y/Yn)**(2/3)
x1 y0 2.9 ydel mul sub moveto
TBIL (dt*) show (sRGB,100) ibLs TBIL (/dY) show
TBL ( = (1/2,4) \050) show
TBIL (Y/Y) show
(n) ibLs
TBL (\051) show
(-1,4/2,4) ebLs
TBL ( = 0,42 \050) show
TBIL (Y/Y) show
(n) ibLs
TBL (\051) show
(-0,58) ebLs

x0 y0 4 ydel mul sub moveto
TBL (and for) showen
(und f\374r) showde
TBIL ( dt*) show (sRGB,100) ibLs 
TBL (=1 (about 3 thresholds) we can write:) showen
(=1 (ungef\344hr 3 Schwellen) erhalten wir:) showde

x1 y0 4.9 ydel mul sub moveto
TBIL (dY) show
TBL ( = 2,4 \050) show 
TBIL (Y/Y) show
(n) ibLs
TBL (\051) show
(1,4/2,4) ebLs

x0 y0 5.9 ydel mul sub moveto
TBL (or) showen
(oder) showde

x1 y0 5.9 ydel mul sub moveto
TBL (log) show
TBIL ((dY)) show
TBL ( = log(2,4)) show 
TBL ( + (1,4/2,4) log\050) show
TBIL (Y/Y) show
(n) ibLs
TBL (\051) show

x0 y0 7 ydel mul sub moveto
TBL (therefore in a log\255log diagram the slope is 1,4/2,4.) showen
(deshalb ist in einem log\255log\255Diagramm die Steigung 1,4/2,4.) showde

x0 y0 8 ydel mul sub moveto
TBL (for the CIE contrast sensitivity, and for) showen
(f\374r die CIE\255Kontrastempfindlichkeit und f\374r) showde
TBIL ( dt*) show (sRGB,100) ibLs
TBL (=1:) showen
(=1:) showde

x1 y0 8.9 ydel mul sub moveto
TBIL (Y/dY) show
TBL ( = \050) show
TBIL (Y) show (n) ibLs (1,4/2,4) ebLs
TBL (/2,4\051 \050) show
TBIL (Y/Y) show
(n) ibLs
TBL (\051) show
(1/2,4) ebLs

x0 y0 9.9 ydel mul sub moveto
TBL (or) showen
(oder) showde

x1 y0 9.9 ydel mul sub moveto
TBL (log) show
TBIL ((Y/dY)) show
TBL ( = log\050) show
TBIL (Y) show (n) ibLs (1,4/2,4) ebLs
TBL (/2,4\051 + 1/2,4 log\050) show
TBIL (Y/Y) show
(n) ibLs
TBL (\051) show

showpage
grestore

%%Trailer