%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/CGA1/CGA10-4
%%BoundingBox: 70 85 226 206

%START PDFDE011.EPS
/pdfmark04 where {pop} {userdict /pdfmark04 /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/CGA1/CGA1.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:2021080112000)
 /ModDate (D:20210801112000)
/DOCINFO pdfmark04
[ /View [ /Fit ]
/DOCVIEW pdfmark04
%END  PDFDE011
 
%  40mm =  80*72/25.4 = 232; 232+90+13 = 335
% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I
/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

/TV {120 /Times-ISOL1 FS} bind def
/TL {160 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TK {240 /Times-ISOL1 FS} bind def
/TM {280 /Times-ISOL1 FS} bind def
/TG {320 /Times-ISOL1 FS} bind def

/TIV {120 /TimesI-ISOL1 FS} bind def
/TIL {160 /TimesI-ISOL1 FS} bind def
/TIS {200 /TimesI-ISOL1 FS} bind def
/TIK {240 /TimesI-ISOL1 FS} bind def
/TIM {280 /TimesI-ISOL1 FS} bind def
/TIG {320 /TimesI-ISOL1 FS} bind def

/TBV {120 /TimesB-ISOL1 FS} bind def
/TBL {160 /TimesB-ISOL1 FS} bind def
/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {240 /TimesB-ISOL1 FS} bind def
/TBM {280 /TimesB-ISOL1 FS} bind def
/TBG {320 /TimesB-ISOL1 FS} bind def

/TBIV {120 /TimesBI-ISOL1 FS} bind def
/TBIL {160 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIM {280 /TimesBI-ISOL1 FS} bind def
/TBIG {320 /TimesBI-ISOL1 FS} bind def

/SV {120 /Symbol FS} bind def
/SL {160 /Symbol FS} bind def
/SS {200 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SM {280 /Symbol FS} bind def
/SG {320 /Symbol FS} bind def

/RV {120 /Times-Roman FS} bind def
/RL {160 /Times-Roman FS} bind def
/RS {200 /Times-Roman FS} bind def
/RK {240 /Times-Roman FS} bind def
/RM {280 /Times-Roman FS} bind def
/RG {320 /Times-Roman FS} bind def

/RIV {120 /Times-Italic FS} bind def
/RIL {160 /Times-Italic FS} bind def
/RIS {200 /Times-Italic FS} bind def
/RIK {240 /Times-Italic FS} bind def
/RIM {280 /Times-Italic FS} bind def
/RIG {320 /Times-Italic FS} bind def

/RBV {120 /Times-Bold FS} bind def
/RBL {160 /Times-Bold FS} bind def
/RBS {200 /Times-Bold FS} bind def
/RBK {240 /Times-Bold FS} bind def
/RBM {280 /Times-Bold FS} bind def
/RBG {320 /Times-Bold FS} bind def

/RBIV {120 /Times-BoldItalic FS} bind def
/RBIL {160 /Times-BoldItalic FS} bind def
/RBIS {200 /Times-BoldItalic FS} bind def
/RBIK {240 /Times-BoldItalic FS} bind def
/RBIM {280 /Times-BoldItalic FS} bind def
/RBIG {320 /Times-BoldItalic FS} bind def

/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
  {setcmykcolor rec fill} bind def

/colrecst %x y width heigth c m y k
  {setcmykcolor rec stroke} bind def

/cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse
           cvi 6 string cvs show} def

/cvishow {cvi 6 string cvs show ( ) show} def
/cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def
/cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def
/cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def
/cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def
/cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def

/cvishow0 {cvi 6 string cvs show} def
/cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def
/cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def
/cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def
/cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def
/cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def

/cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def
/cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310
            dup 0 ge {(  ) show} if
            dup abs 10 lt {(  ) show} if
            10 string cvs show} def
/cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310
            dup 0 ge {(  ) show} if
            dup abs 10 lt {(  ) show} if
            10 string cvs show} def
/cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def

%now with cvishow0 instead of cvishow
/cvsshow1x {/nxx exch def                              %example nxx=99.1/99.0
             nxx 10 mul cvi /nxi exch def              %nxi=991/990
             nxi 10 idiv /nxa exch def                 %nxa=99
             nxi nxa 10 mul sub /nxb exch def          %nxb=1/0
             nxa cvishow0 (,) show                      %nxa=99
             nxb cvishow0                               %nxb=1/0
           } def
/cvsshow2x {/nxx exch def                              %example nxx=99.12/99,02/99,00
             nxx 100 mul cvi /nxi exch def             %nxi=9912/9902/00
             nxi 100 idiv /nxa exch def                %nxa=99
             nxi nxa 100 mul sub /nxb exch def         %nxb=12/02/00
             nxa cvishow0 (,) show                      %nxb=99,
             nxb 10 ge {nxb cvishow0} if                %nxb=12
             nxb  1 ge
             nxb  9 le and {(0) show nxb cvishow0} if   %nxb=02
             nxb  0 eq {(00) show} if                  %nxb=00
           } def
/cvsshow3x {/nxx exch def                              %example nxx=99.123/99.012/99.001/99.000
             nxx 1000 mul cvi /nxi exch def            %nxi=99123/99012/99001/99000
             nxi 1000 idiv /nxa exch def               %nxa=99
             nxi nxa 1000 mul sub /nxb exch def        %nxb=123/012/001/000
             nxa cvishow0 (,) show                      %nxb=99,
             nxb 100 ge {nxb cvishow0} if               %nxb=123/012/001/000
             nxb  10 ge
             nxb  99 le and {(0) show nxb cvishow0} if  %nxb=012
             nxb   1 ge
             nxb   9 le and {(00) show nxb cvishow0} if %nxb=001
             nxb   0 eq {(000) show} if                %nxb=000
           } def

%*********************************************************
%%EndProlog
gsave
%lanindL2 START  20000505
/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 {3 lanind eq {show} {pop} ifelse} bind def
/showfr {2 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 0 def /lanind2 0 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 0 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 3 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

4 /Times-ISOL1 FS
72 86 moveto
(CGA10-4N) show %BNU50-1N

72 90 translate

0.01 MM dup scale

20 setlinewidth

30 setlinewidth
[ ] 0 setdash

/yhoe 4000 def /xwidth 5400 def

0.5 setgray
0 0  moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto
closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto
closepath stroke

%gsave %start in case of clip

/textde
[(Empfindungs-Stufungsfunktionen)
 (Adaptation auf Umgebung Wei\337 )
 (Adaptation auf Umgebung Grau )
 (Beschreibung durch CIELAB 1976)
 (Adaptation auf Umgebung Schwarz )
] def

/texten
[(sensation scaling functions)
 (adaptation on surround white )
 (adaptation on surround grey )
 (description with CIELAB 1976)
 (adaptation on surround black )
] def

/x0 50 def
/yuz  800 def
/yuz2 400 def
%      0    1    2    3    4    5    6    7    8    9
/yu0i [3200 2400 1600 0800 0000] def
/yu1i [3700 2900 2100 1300 0500] def
/yu2i [3300 2500 1700 0900 0100] def

0 1 4 {/i exch def %5 streifen
       i 0 eq {1 1 0 setrgbcolor} if
       i 1 eq {1 setgray} if
       i 2 eq {0.5 setgray} if
       i 3 eq {0.5 setgray} if
       i 4 eq {0.0 setgray} if
       0 yu0i i get moveto xwidth 0 rlineto 0 yuz rlineto
                       xwidth neg 0 rlineto closepath fill
      } for

0 1 4  {/i exch def
        TBG
        i 3 ge {1} {0} ifelse
        setgray %Schiftfarbe N oder W
        x0 yu1i i get moveto
        textde i get showde
        texten i get showen
        TBIG
        i 1 eq {(W) show} if 
        i 2 eq {(Z) show} if
        i 4 eq {(N) show} if
       } for

x0 yu2i 0 get moveto
0 setgray
TBG
(lightness ) showen
(Helligkeit ) showde
TBIG
(L* ) show
TBG
(and tristimulus value ) showen
(und Normfarbwert ) showde
TBIG
(Y ) show

x0 500 add yu2i 1 get moveto
0 setgray
TBIG
(L*) show TBM 0 -60 rmoveto (W) show 0 60 rmoveto
TBG
( = 100 \050 ) show
TBIG
(Y) show
TBG
( / 100\051) show
TBM
0 100 rmoveto (1/2,0) show


x0 500 add yu2i 2 get moveto
0 setgray
TBIG
(L*) show TBM 0 -60 rmoveto (Z) show 0 60 rmoveto
TBG
( = 100 \050 ) show
TBIG
(Y) show
TBG
( / 100\051) show
TBM
0 100 rmoveto (1/2,4) show


x0 200 add yu2i 3 get moveto
1 setgray
TBIG
(L*) show TBM 0 -60 rmoveto (CIELAB) show 0 60 rmoveto
TBG
( = 116 \050 ) show
TBIG
(Y) show
TBG
( / 100\051) show
TBM
0 100 rmoveto (1/3,0) show 0 -100 rmoveto
TBG
( - 16) show


x0 500 add yu2i 4 get moveto
1 setgray
TBIG
(L*) show TBM 0 -60 rmoveto (N) show 0 60 rmoveto
TBG
( = 100 \050 ) show
TBIG
(Y) show
TBG
( / 100\051) show
TBM
0 100 rmoveto (1/3,0) show
 
%*****************************************************************
/yhoe 4000 def /xwidth 5400 def
30 setlinewidth
0 setgray
0 0  moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto
closepath stroke

%*****************************************************************

%grestore %end in case of clip

showpage
grestore

%} for %output with langind end
%%Trailer