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

%START PDFDE011.EPS
/pdfmark13 where {pop} {userdict /pdfmark13 /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 pdfmark13
[ /View [ /Fit ]
/DOCVIEW pdfmark13
%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-3N) show

72 90 translate

0.01 MM dup scale

20 setlinewidth

/xwidth 5400 def
/ywidth 4000 def
0.5 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

/cvishow {cvi 6 string cvs show} def

20 setlinewidth
050 3825 moveto tdw
TBL
(sRGB\255Dreieckshelligkeit) showde
(sRGB\255triangle lightness) showen
TBIL ( t* ) show
TBL
(as function of CIE) showen
(als Funktion von CIE) showde
TBIL ( Y) show

050 3600 moveto
TBL
(lineare Koordinaten) showde
(linear coordinates) showen
TBIL ( Y) show
TBL ( und) showde
( and) showen
TBIL ( t*) show
TBL ( for 4 colours) showen
( f\374r 4 Farben) showde
TBIL ( W) show
tdr (R) show
tdg (G) show
tdb (B) show
tdw

680 280 translate

40 setlinewidth
tdn
 0 0 moveto 3000 250 add 0 rlineto stroke
 0 0 moveto 0 3000 250 add rlineto stroke

3000 250 add 0 moveto
-100 50 rlineto 0 -100 rlineto closepath fill
0 3000 300 add moveto
-50 -100 rlineto 100 0 rlineto closepath fill

TBL
/txw [(  0) ( 20) ( 40) ( 60) ( 80) (100)] def
/tye [(    0) (  20) (  40) (  60) (  80) (100)] def

%!x-Achse: 100 Einheiten = 0600 Skalen-Einheiten
0 1 5 {/i exch def
       /ixt {-150 i 600 mul add} def
       /ixl { 000 i 600 mul add} def
        ixt -250 moveto txw i get exec show
        ixl   60 moveto 0 -120 rlineto stroke
     } for

/ixtt 5 600 mul def
/iytt -200 def
ixtt 200 add iytt moveto
TBIL (Y) show

tdw
0 0000 moveto 2700 0 rlineto stroke
tdg
[100] 0 setdash
0 0000 moveto 2700 0 rlineto stroke
[ ] 0 setdash
tdn

%!y-Achse: 100 S-Einheiten = 0600 Skalen-Einheiten
TBL
0 1 5 {/i exch def
       /iyt {-50 i 0600 mul add} def
       /iyl {000 i 0600 mul add} def
        -370 iyt moveto tye i get show
         -60 iyl moveto 120 0 rlineto stroke
      } for

/i 5 def
-300 130 i 0600 mul add moveto
TBIL (t*) show

tdw
0 0300 moveto 0 2550 rlineto stroke
tdg
[100] 0 setdash
0 0300 moveto 0 2550 rlineto stroke
[ ] 0 setdash
tdn

/Yi   101 array def
/L*i  101 array def
/L*iW 101 array def
/L*iR 101 array def
/L*iG 101 array def
/L*iB 101 array def
/YnW 100 def %sRGB
/YnR  21 def
/YnG  72 def
/YnB  07 def

/e1D24 1. 2.4 div def

0 1 3 {/k exch def %k=0,3:W,R,G,B
0 1 100 {/i exch def %i=0,100
         k 0 eq {1 1 1 setrgbcolor
                 Yi i i YnW mul 100. div put
                 L*i i Yi i get YnW div e1D24 exp 100 mul put
                } if
         k 1 eq {1 0 0 setrgbcolor
                 Yi i i YnR mul 100. div put
                 L*i i Yi i get YnR div e1D24 exp 100 mul put
                } if
         k 2 eq {0 1 0 setrgbcolor
                 Yi i i YnG mul 100. div put
                 L*i i Yi i get YnG div e1D24 exp 100 mul put
                } if
         k 3 eq {0 0 1 setrgbcolor
                 Yi i i YnB mul 100. div put
                 L*i i Yi i get YnB div e1D24 exp 100 mul put
                } if
        } for %i=0,100

/MULX 30 def
/MULY 30 def
40 setlinewidth
/i1 001 def
/i2 100 def

L*i 0 0. put
i1 1 i2 {/i exch def %i=i1,i2
         Yi  i get MULX mul
         L*i i get MULY mul
         i i1 eq {moveto} if
         i i1 1 add ge
         i i2 1 sub le and {lineto} if
         i i2 eq {stroke} if
        } for %i=i1,i2
} for %k=0,3

tdw
/i1 18 def
[100] 0 setdash
0           L*i i1 get MULY mul moveto
i1 MULX mul L*i i1 get MULY mul lineto
i1 MULX mul 0.         MULY mul lineto stroke
[ ] 0 setdash

-250 1500 060 sub moveto TBL (50) show
 0600 1500 200 sub moveto TBIL (t*) show (Wu) ibLs

 600 300 sub -200 moveto TBL (18) show
 600 020 add  080 moveto TBIL (Y) show (Wu) ibLs

/x0 1550 def
/y0 2050 def
/ydel 300 def

x0 y0 moveto
TBL (sRGB\255triangle lightness) showen
(sRGB\255Dreieckshelligkeit) showde
%TBIL ( t*) show (W) ibLs
TBL ( \050 0<) show
TBIL (Y) show TBL (<) show
TBIL (Y) show (Wn) ibLs
TBL (\051) show

%L*= 100(Y/100)**(1/2,4)
x0 y0 1.0 ydel mul sub moveto
TBIL (t*) show (W) ibLs
TBL ( = 100 \050) show
TBIL (Y/Y) show (Wn) ibLs
TBL (\051) show (1/2,4) ebLs

%(YW,n=100)
TBL (    \050) show
TBIL (Y) show (Wn) ibLs
TBL (=100\051) show

/L*u 50 def
/YWn 100 def
/YWu L*u 100 div 2.4 exp YWn mul def

%YWu= YWn (t*u/100)**(2.4)
x0 y0 2.0 ydel mul sub moveto
TBIL (Y) show (Wu) ibLs
TBL ( = ) show
TBIL (Y) show (Wn) ibLs
TBL (\050) show
TBIL (t*) show (u) ibLs
TBL (/100\051) show (2,4) ebLs
TBL (=) show YWu cvishow

x0 y0 3.2 ydel mul sub moveto
TBL (sRGB\255triangle lightness) showen
(sRGB\255Dreieckshelligkeit) showde
%TBIL ( L*) show (B) ibLs
TBL ( \050 0<) show
TBIL (Y) show TBL (<) show
TBIL (Y) show (Bn) ibLs
TBL (\051) show

%L*= 100(Y/YBn)**(1/2,4)
x0 y0 4.2 ydel mul sub moveto
TBIL (t*) show (B) ibLs
TBL ( = 100 \050) show
TBIL (Y/Y) show (Bn) ibLs
TBL (\051) show (1/2,4) ebLs

%(YBn=7)
TBL (    \050) show
TBIL (Y) show (Bn) ibLs
TBL (=7\051) show

/L*u 50 def
/YBn 7 def
/YBu L*u 100 div 2.4 exp YBn mul def

%YBu= YBn (t*/100)**(2.4)
x0 y0 5.2 ydel mul sub moveto
TBIL (Y) show (Bu) ibLs
TBL ( = ) show
TBIL (Y) show (Bn) ibLs
TBL (\050) show
TBIL (t*) show (u) ibLs
TBL (/100\051) show (2,4) ebLs
TBL (=) show YBu cvishow

tdw
/x0 3600 def
/y0 0250 def
x0 y0 moveto
1000 0 rlineto stroke
tdg
[100] 0 setdash
x0 y0 moveto
1000 0 rlineto stroke
[ ] 0 setdash

tdw
x0 y0 0.7 ydel mul sub moveto
TBL (application) showen
TS (Anwendungs\255) showde
x0 y0 1.3 ydel mul sub moveto
TBL (range) showen
TS (bereich) showde

680 neg 280 neg translate

showpage
grestore

%%Trailer