%!PS-Adobe-3.0 EPSF-3.0 CES21-4N
%%BoundingBox: 70 85 228 206

%START PDFDE011.EPS
/pdfmark14 where {pop} {userdict /pdfmark14 /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/CES2/CES2.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:2022040112000)
 /ModDate (D:20220401112000)
/DOCINFO pdfmark14
[ /View [ /Fit ]
/DOCVIEW pdfmark14
%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 -80 rmoveto show 0   80 rmoveto} bind def
/eGs {300 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 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
/kMs {300 /TimesI-ISOL1 FS  show TM} bind def
/bMs {300 /TimesB-ISOL1 FS  show TM} bind def
/jMs {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 140 rmoveto show 0 -140 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
/e*Ms {250 /Times-ISOL1 FS 10 70 rmoveto show 0 -70 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 (CES21-4N) show

72 90 translate

0.01 MM dup scale

15 setlinewidth
1.0 1.0 0.5 setrgbcolor
/xwidth 5400 def
/ywidth 4000 def
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto 
        xwidth neg 0 rlineto closepath fill
0.0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath stroke 

0 3300 moveto xwidth 0 rlineto stroke
 
/TE3 {/T3 exch def /T2 exch def /T1 exch def
      /yu exch def /xu exch def
 350 /Times-ISOL1 FS
 xu yu moveto T1 show
 xu yu yd 1 mul sub moveto T2 show
 xu yu yd 2 mul sub moveto T3 show} bind def
 
/TEk3 {/T3 exch def /T2 exch def /T1 exch def
      /yu exch def /xu exch def
 350 /TimesI-ISOL1 FS
 xu yu moveto T1 show
 xu yu yd 1 mul sub moveto T2 show
 xu yu yd 2 mul sub moveto T3 show} bind def

/x0 0500 def
/x1 4400 def
/yd 0400 def
/y1 2950 def
/y2 0430 def
 
%Titeltext
50 3720 moveto (CIELAB) nMs (v) iMs ( 2022) nMs
( L*) kMs (v) e*Ms 
( a*) kMs (v) e*Ms
( b*) kMs (v) e*Ms 
TM
(\255Farbraum) showde
( color space) showen
( espacio\255color) showes
( color space) showfr
( color space) showit
( color space) showjp

50 3420 moveto
TK
(Definition und Umkehrung) showde
(definition and reversal) showen
(Definici\363n y cambio) showes
(definition and reversal) showfr
(definition and reversal) showit
(definition and reversal) showjp

150 0 rmoveto
(\050) nLs
(X) kLs (v) iLs (/) nLs
0 0 rmoveto (X) kLs (n) iLs 
(=) nLs
(Y) kLs (v) iLs (/) nLs
0 0 rmoveto (Y) kLs (n) iLs
(=) nLs
(Z) kLs (v) iLs (/) nLs
0 0 rmoveto (Z) kLs (n) iLs
(=0,1841\051) nLs

%***************************************************************** 
50 y1 yd 0 mul sub moveto
(L*) kMs (v) e*Ms
x0 y1 yd 0 mul sub moveto
(=) nMs 20 0 rmoveto (116 c) nMs (v) iKs
( \050) nMs (Y/Y) kMs (v) iMs (\051) nMs (1/3) eMs 
(- 16) nMs 20 0 rmoveto (=) nMs 20 0 rmoveto
(L*) kMs -30 0 rmoveto (CIELAB) iLs

50 y1 yd 1 mul sub moveto
(a*) kMs (v) e*Ms
x0 y1 yd 1 mul sub moveto
(=) nMs 20 0 rmoveto (500 c) nMs (v) iKs
( [\050) nMs (X/X) kMs (v) iMs (\051) nMs (1/3) eMs
   (- \050) nMs (Y/Y) kMs (v) iMs (\051) nMs (1/3) eMs (]) nMs
%x1 y1 yd 1 mul sub moveto
(= ) nMs (a*) kMs -30 0 rmoveto (CIELAB) iLs

50 y1 yd 2 mul sub moveto (b*) kMs (v) e*Ms
x0 y1 yd 2 mul sub moveto
(=) nMs 20 0 rmoveto (200 c) nMs (v) iMs 
( [\050) nMs (Y/Y) kMs (v) iMs (\051) nMs (1/3) eMs
   (- \050) nMs (Z/Z) kMs (v) iMs (\051) nMs (1/3) eMs (]) nMs
%x1 y1 yd 2 mul sub moveto
(= ) nMs (b*) kMs -30 0 rmoveto (CIELAB) iLs

0  y1 yd 2.3 mul sub moveto xwidth 0 rlineto stroke

%********************************************************************
50 y1 yd 3.2 mul sub moveto
(X) kMs 20 0 rmoveto (=) nMs 20 0 rmoveto
(X) kMs (v) iMs ([ \050) nMs (L*) kMs (v) e*Ms ( + 16\051 / \050116c) nMs 
(v) iMs (\051 + ) nGs
(a*) kMs (v) e*Ms (/\050500c) nMs (v) iMs (\051]) nMs (3) eMs

50 y1 yd 4.2 mul sub moveto
(Y) kMs 20 0 rmoveto (=) nMs 20 0 rmoveto
(Y) kMs (v) iMs ([ \050) nMs (L*) kMs (v) e*Ms ( + 16\051 / \050116c) nMs
(v) iMs (\051]) nGs (3) eMs

x1 200 sub y1 yd 4.2 mul sub moveto
(Y) kKs (v) iKs 20 0 rmoveto (=) nKs 20 0 rmoveto (18,41) nKs

50 y1 yd 5.2 mul sub moveto
(Z) kMs 20 0 rmoveto (=) nMs 20 0 rmoveto
(Z) kMs (v) iMs ([ \050) nMs (L*) kMs (v) e*Ms ( + 16\051 / \050116c) nMs
(v) iMs (\051 - ) nGs
(b*) kMs (v) e*Ms (/\050200c) nMs (v) iMs (\051]) nMs (3) eMs

0  y1 yd 5.5 mul sub moveto xwidth 0 rlineto stroke

%********************************************************************
050 y2 moveto
(c) nKs (v) iKs (=[) nKs (Y) kKs (v) iKs TM (/) show
10 0 rmoveto (Y) kKs (n) iKs (]) nKs (1/3) eKs
(= 0,1841) nKs (1/3) eKs
(= 0,5689) nKs
TK
(, \344hnlich f\374r ) showde
(, similar for ) showea
(X, Z) kKs

50 y2 yd 0.8 mul sub moveto
(v) nKs (L) iLs (=116c) nKs (v) iKs (=66,  ) nKs
(v) nKs (a) iKs (=500c) nKs (v) iKs (=284,56,  ) nKs
(v) nKs (b) iKs (=200c) nKs (v) iKs (=113,78) nKs

showpage
grestore

%%Trailer