%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/CEA2/CEA21-3
%%BoundingBox: 70 83 392 335

%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/CEA2/CEA2.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 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

/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 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 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
(CEA21-3N) show
%xchart 0 eq {(N) show}
%            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate

/yhoe 8500 def
0.01 MM dup scale

15 setlinewidth
1.0 1.0 0.0 setrgbcolor
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0 setgray
 0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke
 
 0 yhoe 550 sub  moveto 11200 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 600 def
/yu0 3100 def
/yu1 {yu0 200 add yz 0 mul add} bind def
/yu2 {yu1 000 add yz 1 mul add} bind def
/yu3 {yu2 000 add yz 1 mul add} bind def
/yu4 {yu3 000 add yz 1 mul add} bind def
/yu5 {yu4 000 add yz 1 mul add} bind def
/yu6 {yu5 000 add yz 1 mul add} bind def
/yu7 {yu6 000 add yz 1 mul add} bind def
/yu8 {yu7 000 add yz 1 mul add} bind def
/yu9 {yu8  50 add yz 1 mul add} bind def
 
%Titeltext
 100 yu9 moveto TBG
(Farbabstandsformel LABJND 1985 ) showde                            %08560-3 1
(Colour\255difference formula LABJND 1985 ) showea                     %18560-3 1

((JND = just noticeable difference)) showde                         %08560-3 11
((JND=just noticeable difference)) showea                           %18560-3 11
 
 S1 yu8 moveto
(D) ss (E) ks (*) es -100 0 rmoveto (JND) is
( = ) ns
(D) ss (E) ks (*) es -100 0 rmoveto (85) is
( = ) ns (A) ks (0) is
( [ \050) ns (D) ss ( Y) ks (\051) ns (2) es
(+\050) ns (A) ns (3) is ( D) ss
( a") ks ipr (Y) ks (\051) ns (2) es
(+\050) ns (A) ns (4) is ( D) ss
( b") ks ipr (Y) ks (\051) ns (2) es (]) ns (1/2) es
(/\050) ns (A) ns (1) is (+) ns  (A) ns (2) is ipr (Y) ks  (\051) ns
 S4 yu8 moveto
TG ([1]) show

 S1 yu7 yd 0 mul sub moveto
(a) ks
 S2 yu7 yd 0 mul sub moveto
( = ) ns
  S3 yu7 moveto
(x / y) ks (     a) ns (n) is ( = ) ns
                   (x) ns (n) is ( / ) ns
                   (y) ns (n) is
              (     b) ks ( = - 0,4 ) ns
                   (z) ks ( / ) ns
                   (Y) ks
              (     b) ns (n) is ( = - 0,4 ) ns
                   (z) ns (n) is ( / ) ns
                   (y) ns (n) is
 S4 yu7 moveto
TG ([2]) show
 
 
 S1 yu6 moveto
(a") ks
 S2 yu6 moveto
( = ) ns
 S3 yu6 moveto
(a) ns (n) is ( + \050 ) ns
(a) ks ( - a) ns (n) is (\051 / \050 1 + 0,5 ) ns
(\275) ss (a) ks ( - a) ns (n) is (\275) ss ( \051) ns
 S4 yu6 moveto
TG ([3]) show

 S1 yu5 moveto
(b") ks
 S2 yu5 moveto
( = ) ns
 S3 yu5 moveto
(b) ns (n) is ( + \050 ) ns
(b) ks ( - b) ns (n) is (\051 / \050 1 + 0,5 ) ns
(\275) ss (b) ks ( - b) ns (n) is (\275) ss ( \051) ns
 S4 yu5 moveto
TG ([4]) show 

TG
 6600 yu5 400 add moveto
(n = D65 oder  A (Umfeld)) showde                                  %08560-3 2
(n = D65 or  A (background)) showea                                %18560-3 2

 S1 yu4 moveto
(Y) ks
 S2 yu4 moveto
( = ) ns 
 S3 yu4 moveto
(\050 ) ns (Y) ks (1) is ( + ) ns
              (Y) ks (2) is ( \051 / 2) ns
(       ) ns (D) ss 50 0 rmoveto (Y) ks ( = ) ns (Y) ks (1) is
( - ) ns (Y) ks (2) is
(       ) ns (D) ss 50 0 rmoveto (a") ks ( = ) ns
            (a") ks -150 0 rmoveto (1) is
( - ) ns (a") ks -150 0 rmoveto (2) is
(       ) ns (D) ss 50 0 rmoveto (b") ks ( = ) ns
            (b") ks -150 0 rmoveto (1) is
( - ) ns (b") ks -150 0 rmoveto (2) is
 S4 yu4 moveto
TG ([5]) show
 
 S1 yu3 moveto
(A) ns (1) is ( = 0,0170) ns (      A) ns (2) is ( = 0,0058) ns
 S4 yu3 moveto
TG ([6]) show

 S1 yu2 moveto
      (A) ns (3) is ( = 1,0) ns
(      A) ns (4) is ( = 1,8) ns
 (     A) ns (0) is ( = 1,5) ns
(    Umfeld D65 ) showde                                         %08560-3 3
(    background D65 ) showea                                       %18560-3 3
 S4 yu2 moveto
TG ([7]) show
 
 S1 yu1 moveto
      (A) ns (3) is ( = 1,0) ns
(      A) ns (4) is ( = 1,7) ns
 (     A) ns (0) is ( = 1,0) ns
(    Umfeld A) showde                                            %08560-3 4
(    background A) showen                                          %18560-3 4
 S4 yu1 moveto
TG ([8]) show

/yv1 yu1 yd 1.0 mul sub def
/yv2 yu1 yd 2.1 mul sub def
/yv3 yu1 yd 3.1 mul sub def
/yv4 yu1 yd 4.1 mul sub def
/yv5 yu1 yd 5.1 mul sub def

TBG
 S1 yv1 moveto
(Gerade erkennbarer Unterschied (JND) ) showde                      %08560-3 11
(Just noticeable difference (JND) ) showea                          %18560-3 11
(in vier Farbrichtungen) showde
(in four colour directions) showea

/xt   920 def
/xtt 6500 def

 S1 yv2 moveto
(D) ss (Y) ks 
 S1 xt add yv2 moveto
( = const \050) ns (A) ns (1) is ( + ) ns (A) ns (2) is
ipr (Y) ks ( \051 / A) ns (0) is
 S1 xtt add yv2 moveto
TG (in Leuchtdichterichtung ) showde
(in luminance direction ) showea
TIG (WN) show
 S4 yv2 moveto
TG ([1a]) show


 S1 yv3 moveto
(D) ss (a") ks ipr (Y) ks 
 S1 xt add yv3 moveto
( = const \050) ns (A) ns (1) is ( + ) ns (A) ns (2) is
ipr (Y) ks ( \051 / \050A) ns (0) is
ip ( A) ns (3) is (\051) ns
 S1 xtt add yv3 moveto
TG (in Farbartrichtung ) showde
(in chromaticity direction ) showea
(RG) ks
 S4 yv3 moveto
TG ([2a]) show

 S1 yv4 moveto
(D) ss (b") ks TBG ip TIG (Y) show
 S1 xt add yv4 moveto
( = const \050) ns (A) ns (1) is ( + ) ns (A) ns (2) is
ipr (Y) ks ( \051 / \050A) ns (0) is
ip ( A) ns (4) is (\051) show
 S1 xtt add yv4 moveto
TG (in Farbartrichtung ) showde
(in chromaticity direction ) showea
(YB) ks
 S4 yv4 moveto
TG ([3a]) show

 S1 yv5 moveto
(D) ss (c) ks (ab) is -50 0 rmoveto (") ns
-20 0 rmoveto ipr (Y) ks
 S1 xt add yv5 moveto
( = const \050) ns (A) ns (1) is (+) ns (A) ns (2) is ip
(Y) ks ( \051/\050A) ns (0) is
ip ([A) ns (3) is (2) es (+A) ns (4) is (2) es
(]) ns (1/2) es (\051) ns
 S1 xtt add yv5 moveto
TG (in Farbartrichtung ) showde
(in chromaticity direction ) showea
(c) ns (ab) is
 S4 yv5 moveto
TG ([4a]) show

showpage
grestore

%%Trailer