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

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

/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
(CGA21-7N) 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 {250 /Times-ISOL1 FS 50 50 rmoveto show 50 -50 rmoveto} bind def
/ip {(.) ipoint} bind def
/ipr {(.) ipoint -40 0 rmoveto} bind def
%/ip {(\267) ns} 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
%/ip2 {(\267) ns2} 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
%/ip4 {(\267) ns4} 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

(f\374r nahezu unbunte Farben) showde                               %08560-3 11
(for near achromatic colours) 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
(Y) ks
 S2 yu6 moveto
( = ) ns 
 S3 yu6 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  (1) is
( - ) ns (a) ks  (2) is
(       ) ns (D) ss 50 0 rmoveto (b) ks ( = ) ns
            (b) ks  (1) is
( - ) ns (b) ks (2) is
 S4 yu6 moveto
TG ([3]) show 

 S1 yu5 moveto
(A) ns (1) is ( = 0,0170) ns (      A) ns (2) is ( = 0,0058) ns
 S4 yu5 moveto
TG ([4]) show

 S1 yu4 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 yu4 moveto
TG ([5]) show
 
 S1 yu3 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 yu3 moveto
TG ([6]) show

/yv1 yu3 yd 0.9 mul sub def
/yv2 yu3 yd 1.8 mul sub def
/yv3 yu3 yd 2.8 mul sub def
/yv4 yu3 yd 3.8 mul sub def

/yv5 yu3 yd 4.8 mul sub def
/yv6 yu3 yd 5.9 mul sub def
/yv7 yu3 yd 7.0 mul sub def


TBG
 S1 40 sub yv1 moveto
(Erkennbarer Unterschied (JND) ) showde                             %08560-3 11
(Just noticeable difference (JND) ) showea                          %18560-3 11
(in drei Farbrichtungen und Linienelemente) showde
(in three colour directions and line elements) showea

/xt  1900 def
/xtt 6400 def
/xt2 6800 def


 S1 yv2 moveto
(A) ns (0) is ip (D) ss (Y) ks 
 S1 xt add yv2 moveto
( = \050) ns (A) ns (1) is ( + ) ns (A) ns (2) is ip
(Y) ks ( \051) ns
 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
(A) ns (0) is ip (D) ss (a) ks ip (A) ns (3) is ipr (Y) ks 
 S1 xt add yv3 moveto
( = \050) ns (A) ns (1) is ( + ) ns (A) ns (2) is ip
(Y) ks ( \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
(A) ns (0) is ip (D) ss (b) ks TBG ip (A) ns (4) is ipr (Y) ks
 S1 xt add yv4 moveto
( = \050) ns (A) ns (1) is ( + ) ns (A) ns (2) is ip
(Y) ks ( \051) ns
 S1 xtt add yv4 moveto
TG (in Farbartrichtung ) showde
(in chromaticity direction ) showea
(YB) ks
 S4 yv4 moveto
TG ([3a]) show

/xt1 1000 def
S1 yv5 moveto
(dE*) ks -50 0 rmoveto (85,L) is 
 S1 xt1 add yv7 moveto

 S1 950 add yv5 moveto
(=) ns 050 150 rmoveto (__) ns -250 030 rmoveto (d) ss -300 -350 rmoveto
(d) ss (Y) ks 50 170 rmoveto
(L*) ks -50 0 rmoveto (85) is

 S1 2200 add yv5 moveto
(=) ns %(dY) ks ip
050 150 rmoveto (__) ns -250 030 rmoveto (d) ss -300 -350 rmoveto
(d) ss (Y) ks 50 170 rmoveto
([\050) ns  (A) ns (0) is ( / ) ns (A) ns (2) is (\051) ns ipr (ln) ks
( \050 A) ns (1) is (+A) ns (2) is ipr (Y) ks ( \051]) ns

 S1 xtt add 250 add yv5 moveto
(= ) ns (A) ns (0) is ip (dY) ks
(/\050 A) ns (1) is (+A) ns (2) is ipr (Y) ks (\051) ns
 S4 yv5 moveto
TG ([4a]) show

S1 yv6 moveto
(dE*) ks -50 0 rmoveto (85,a) is 
 S1 xt1 add yv6 moveto

 S1 950 add yv6 moveto
(=) ns 050 150 rmoveto (__) ns -250 030 rmoveto (d) ss -300 -350 rmoveto
(d) ss (a) ks 50 170 rmoveto
(a*) ks -50 0 rmoveto (85) is

 S1 2200 add yv6 moveto
(=) ns %(db) ks ip
050 150 rmoveto (__) ns -250 030 rmoveto (d) ss -300 -350 rmoveto
(d) ss (a) ks 50 170 rmoveto
([\050) ns  (A) ns (0) is ip (A) ns (3) is ipr (Y) ks ip (a) ks
(\051/\050 A) ns (1) is (+A) ns (2) is ipr (Y) ks ( \051]) ns

 S1 xtt add 250 add yv6 moveto
(= ) ns (A) ns (0) is ip (da) ks ip (A) ns (3) is ipr (Y) ks
(/\050 A) ns (1) is (+A) ns (2) is ipr (Y) ks (\051) ns
 S4 yv6 moveto
TG ([5a]) show

S1 yv7 moveto
(dE*) ks -50 0 rmoveto (85,b) is 
 S1 xt1 add yv7 moveto

 S1 950 add yv7 moveto
(=) ns 050 150 rmoveto (__) ns -250 030 rmoveto (d) ss -300 -350 rmoveto
(d) ss (b) ks 50 170 rmoveto
(b*) ks -50 0 rmoveto (85) is

 S1 2200 add yv7 moveto
(=) ns %(db) ks ip
050 150 rmoveto (__) ns -250 030 rmoveto (d) ss -300 -350 rmoveto
(d) ss (b) ks 50 170 rmoveto
([\050) ns  (A) ns (0) is ip (A) ns (4) is ipr (Y) ks ip (b) ks
(\051/\050 A) ns (1) is (+A) ns (2) is ipr (Y) ks ( \051]) ns

 S1 xtt add 250 add yv7 moveto
(= ) ns (A) ns (0) is ip (db) ks ip (A) ns (4) is ipr (Y) ks
(/\050 A) ns (1) is (+A) ns (2) is ipr (Y) ks (\051) ns
 S4 yv7 moveto
TG ([6a]) show

showpage
grestore

%%Trailer