%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/CGA2/CGA20-7
%%BoundingBox: 70 83 392 335

%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /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/CGA2/CGA2.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 pdfmark07
[ /View [ /Fit ]
/DOCVIEW pdfmark07
%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

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
%special 250->240, 300->290, 350->340
/RS {200 /Times-Roman FS} bind def
/RK {240 /Times-Roman FS} bind def
/RM {290 /Times-Roman FS} bind def
/RG {340 /Times-Roman FS} bind def

/RIS {200 /Times-Italic FS} bind def
/RIK {240 /Times-Italic FS} bind def
/RIM {290 /Times-Italic FS} bind def
/RIG {340 /Times-Italic FS} bind def

/RBS {200 /Times-Bold FS} bind def
/RBK {240 /Times-Bold FS} bind def
/RBM {290 /Times-Bold FS} bind def
/RBG {340 /Times-Bold FS} bind def

/TS_mde {RS (-) showde TS} bind def
/TK_mde {RK (-) showde TK} bind def
/TM_mde {RM (-) showde TM} bind def
/TG_mde {RG (-) showde TG} bind def

/TIS_mde {RIS (-) showde TIS} bind def
/TIK_mde {RIK (-) showde TIK} bind def
/TIM_mde {RIM (-) showde TIM} bind def
/TIG_mde {RIG (-) showde TIG} bind def

/TBS_mde {RBS (-) showde TBS} bind def
/TBK_mde {RBK (-) showde TBK} bind def
/TBM_mde {RBM (-) showde TBM} bind def
/TBG_mde {RBG (-) showde TBG} bind def

/TBIS_mde {RBIS (-) showde TBIS} bind def
/TBIK_mde {RBIK (-) showde TBIK} bind def
/TBIM_mde {RBIM (-) showde TBIM} bind def
/TBIG_mde {RBIG (-) showde TBIG} bind def

/TS_men {RS (-) showen TS} bind def
/TK_men {RK (-) showen TK} bind def
/TM_men {RM (-) showen TM} bind def
/TG_men {RG (-) showen TG} bind def

/TIS_men {RIS (-) showen TIS} bind def
/TIK_men {RIK (-) showen TIK} bind def
/TIM_men {RIM (-) showen TIM} bind def
/TIG_men {RIG (-) showen TIG} bind def

/TBS_men {RBS (-) showen TBS} bind def
/TBK_men {RBK (-) showen TBK} bind def
/TBM_men {RBM (-) showen TBM} bind def
/TBG_men {RBG (-) showen TBG} bind def

/TBIS_men {RBIS (-) showen TBIS} bind def
/TBIK_men {RBIK (-) showen TBIK} bind def
/TBIM_men {RBIM (-) showen TBIM} bind def
/TBIG_men {RBIG (-) showen TBIG} bind def

/TK {240 /Times-ISOL1 FS} bind def
/TM {290 /Times-ISOL1 FS} bind def
/TG {340 /Times-ISOL1 FS} bind def

/TIK {240 /TimesI-ISOL1 FS} bind def
/TIM {290 /TimesI-ISOL1 FS} bind def
/TIG {340 /TimesI-ISOL1 FS} bind def

/TBK {240 /TimesB-ISOL1 FS} bind def
/TBM {290 /TimesB-ISOL1 FS} bind def
/TBG {340 /TimesB-ISOL1 FS} bind def

/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIM {290 /TimesBI-ISOL1 FS} bind def
/TBIG {340 /TimesBI-ISOL1 FS} bind def

/SK {240 1 sub /Symbol FS} bind def
/SM {290 1 sub /Symbol FS} bind def
/SG {340 1 sub /Symbol FS} bind def

%XCHA01.PS BEG
/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
  {setcmyk_olvcolor rec fill} bind def

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

/rem %x, y width heigth
  {/heigth exch 0.5 mul def /width exch 0.5 mul def
   /yleftb exch heigth 0.5 mul add def
   /xleftb exch width  0.5 mul add def
   xleftb yleftb
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colremfi %x y width heigth c m y k
  {setcmykcolor rem fill} bind def

/colremst %x y width heigth c m y k
  {setcmykcolor rem stroke} bind def

/tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzg {1.0 0.0 1.0 0.0} bind def
/tzb {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

/tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def

/tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def
/tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfyz {0.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def

/tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe
/tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def
/tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def
/tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def
/tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def

/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} 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 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 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 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 %

colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output

5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
%lanind cvishow (-) show
%colorm cvishow
%deintp cvishow
%xcolor cvishow
%xchart cvishow
%pchart cvishow
%colsep cvishow (-L) show pmetam cvishow

gsave
/xchart xchart1 def

4 /Times-ISOL1 FS
74 86 moveto
(CGA20-7N) show
%xchart 0 eq {(N) show}
%            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate

/yhoe    8500 def
/xwidth 11200 def
0.01 MM dup scale

15 setlinewidth
1.0 1.0 0.0 setrgbcolor
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
 
 0 yhoe 850 sub  moveto xwidth 0 rlineto stroke
 
/ns {350 /Times-ISOL1 FS  show} bind def
/ks {350 /TimesI-ISOL1 FS  show} bind def
/bs {350 /TimesB-ISOL1 FS  show} bind def
/js {350 /TimesBI-ISOL1 FS  show} bind def
/ss {350 /Symbol FS  show} bind def
/is {250 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/es {250 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
/ipoint {350 /Times-ISOL1 FS 50 50 rmoveto show 50 -50 rmoveto} bind def
/ip {(.) ipoint} bind def
/ipr {(.) ipoint -40 0 rmoveto} bind def

%20% kleiner
/ns2 {280 /Times-ISOL1 FS  show TG} bind def
/ks2 {280 /TimesI-ISOL1 FS  show TG} bind def
/bs2 {280 /TimesB-ISOL1 FS  show TG} bind def
/js2 {280 /TimesBI-ISOL1 FS  show TG} bind def
/is2 {200 /Times-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto TG} bind def
/iks2 {200 /TimesI-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto TG} bind def
/es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TG} bind def

%40% kleiner
/ns4 {230 /Times-ISOL1 FS  show TG} bind def
/ks4 {230 /TimesI-ISOL1 FS  show TG} bind def
/bs4 {230 /TimesB-ISOL1 FS  show TG} bind def
/js4 {230 /TimesBI-ISOL1 FS  show TG} bind def
/is4 {160 /Times-ISOL1 FS 8 -48 rmoveto show -8 48 rmoveto TG} bind def
/iks4 {160 /TimesI-ISOL1 FS 8 -48 rmoveto show -8 48 rmoveto TG} bind def
/es4 {200 /Times-ISOL1 FS 0 190 rmoveto show 0 -190 rmoveto TG} bind def
 
/yd 600 def %y-Zeilenabstand
%Spalten
/S1 080 def
/S2 500 def
/S3 900 def
/S4 10600 def

/yz   450 def 
/yt0 8200 def
/yt1 7300 def
/yt2 6500 def
/yt3 3200 def
 
%Titeltext
 100 yt0 moveto TBG
(CIELAB modifications of the colour space and the colour\255difference ) showea
(CIELAB\255Modifikationen des Farbenraums und der Farbabstandformel ) showde

 S1 yt0 400 sub moveto
(formula by line elements for different applications) showea
(mit Linienelementen f\374r unterschiedliche Anwendungen) showde

TG
 S1 yt1 moveto
(Example line element in lightness direction of ) showea
(Beispiel\255Linienelement in Helligkeitsrichtung nach ) showde
TIG
(Stiles (1946), ) show

S1 yt1 350 sub moveto
TG
(who uses the luminance ) showea
(der die Leuchtdichte ) showde
TIG
(L) show
TG
( instead of the tristimulus value ) showea
( anstelle von des Normfarbwertes ) showde
TIG
(Y) show
TG
(.) showea
( benutzte.) showde


TIG
 S2 yt2 yz 0 mul sub moveto
(L*(Y)) show
TG
( = s ln[1+9) show
TIG
(Y) show
TG
(]) show
TG
(  s=scaling factor) showea
(  s=Skalierungsfaktor) showde

 S4 yt2 yz 0 mul sub moveto
TG ([1a]) show

 S2 yt2 yz 1 mul sub moveto
TIG
(d\050L*(Y)\051) show
TG
( / ) show
TIG
(dY) show
TG
( = 9s / [1+9) show
TIG
(Y) show
TG
(]) show
 S4 yt2 yz 1 mul sub moveto
TG ([2a]) show

 S1 yt2 yz 2 mul sub moveto
(For this derivation, and for the lightness threshold ) showea
(F\374r diese Ableitung und die Helligkeitsschwelle ) showde
TIG
(d\050L*(Y)\051) show
TG
(=1 ) show
(gilt:) showde
(it is valid:) showea

 S2 yt2 yz 3 mul sub moveto
TIG
(dY) show
TG
( = [1+9) show
TIG
(Y) show
TG
(] / 9s) show
 S4 yt2 yz 3 mul sub moveto
TG ([3a]) show

 S1 yt2 yz 4 mul sub moveto
TG
(For the normalization with the surround values ) showea
(F\374r die Normierung mit den Umfeldwerten ) showde
TIG
(Y) show (u) is
TG
(=18, ) show
TIG
(dY) show (u) is
TG
( and ) showea
( und ) showde
TIG
(L*\050Y) show (u) is
TIG
(\051) show
TG
(:) showea
(gilt:) showde

 S2 yt2 yz 5 mul sub moveto
TIG
(dY/dY) show (u) is
TG
( = [1+9) show
TIG
(Y) show
TG
(] / [1+9) show
TIG
(Y) show (u) is
TG
(]) show
 S4 yt2 yz 5 mul sub moveto
TG ([4a]) show

 S2 yt2 yz 6 mul sub moveto
TIG
(L*(Y)) show
TG ( / ) show
TIG
(L*\050Y) show (u) is
TIG
(\051) show
TG
( = ln[1+9) show
TIG
(Y) show
TG
(] / ln[1+9) show
TIG
(Y) show (u) is
TG
(]) show
 S4 yt2 yz 6 mul sub moveto
TG ([5a]) show

%*************************************************
 S2 yt3 350 add moveto xwidth 2 S2 mul sub 0 rlineto stroke

 S1 yt3 moveto
(For the CIELAB colour\255space according to ) showea
(F\374r den CIELAB\255Farbenraum gilt nach ) showde
(ISO/CIE 11664\2554:2019) show

 S2 yt3 yz 1 mul sub moveto
TIG
(L*(Y)) show
TG
( = s [) show
TIG
(Y/Y) show (n) is
TG
(]) show (k) es
TG
(-16) show
TG
( = s) show (u) is
TG
([) show
TIG
(Y/Y) show (u) is
TG
(]) show (k) es
TG
(-16) show
TG
(    s=116, k=1/3, ) show
TIG
(Y) show (n) is
TG
(=100, ) show
TIG
(Y) show (u) is
TG
(=18) show
 S4 yt3 yz 1 mul sub moveto
TG ([1b]) show


 S2 yt3 yz 2.1 mul sub moveto
TIG
(d\050L*(Y)\051) show
TG
( / ) show
TIG
(dY) show
TG
( = s) show (u) is
TG
(k [) show
TIG
(Y/Y) show (n) is
TG
(]) show (k\2551) es
TG
(  with ) showea
(  mit ) showde
TG
(s) show (u) is
TG
(=116[) show
TIG
(Y) show (u) is
TG
(/) show
TIG
(Y) show (n) is
TG
(]) show (k) es
TG
(=65,50, 1<=) show
TIG
(Y) show
TG
(<=100) show
 S4 yt3 yz 2 mul sub moveto
TG ([2b]) show

 S1 yt3 yz 3 mul sub moveto
(For this derivation, and for the lightness threshold ) showea
(F\374r diese Ableitung und die Helligkeitsschwelle ) showde
TIG
(d\050L*(Y)\051) show
TG
(=1 ) show
(gilt:) showde
(it is valid:) showea

 S2 yt3 yz 4 mul sub moveto
TIG
(dY) show
TG
( = [) show
TIG
(Y/Y) show (u) is
TG
(]) show (1-k) es
TG
(/ s) show (u) is
TG
(k) show
 S4 yt3 yz 4 mul sub moveto
TG ([3b]) show


 S2 yt3 yz 5.1 mul sub moveto
TIG
(dY/dY) show (u) is
TG
( = [) show
TIG
(Y/Y) show (u) is
TG
(]) show (1-k) es
 S4 yt3 yz 5 mul sub moveto
TG ([4b]) show

 S2 yt3 yz 6 mul sub moveto
TIG
(L*(Y)) show
TG ( / ) show
TIG
(L*\050Y) show (u) is
TIG
(\051) show
TG
( = {s) show (u) is
TG
([) show
TIG
(Y/Y) show (u) is
TG
(]) show (k) es
TG
(-16} / {s) show (u) is
TG
(-16}) show
 S4 yt3 yz 6 mul sub moveto
TG ([5b]) show

S1 yt3 yz 7 mul sub moveto
(Line elements for the CIELAB\255colour space are included in ) showea
(Linienelements zum CIELAB\255Farbenraum sind enthalten in ) showde
(ISO/CIE 11664\2554.) show

showpage
grestore

%%Trailer