%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DGQ3/DGQ30-3N
%%BoundingBox: 70 85 245 206

%START PDFDE011.EPS
/pdfmark02 where {pop} {userdict /pdfmark02 /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/DGQ3/DGQ3.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 pdfmark02
[ /View [ /Fit ]
/DOCVIEW pdfmark02
%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
 
/TV {120 /Times-ISOL1 FS} 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

/TIV {120 /TimesI-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

/TBV {120 /TimesB-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

/TBIV {120 /TimesBI-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

/SV {120 /Symbol FS} bind def
/SS {160 /Symbol FS} bind def
/SL {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/CV {120 /Courier FS} bind def
/CS {160 /Courier FS} bind def
/CL {200 /Courier FS} bind def
/CK {250 /Courier FS} bind def
/CM {300 /Courier FS} bind def
/CG {350 /Courier FS} bind def

/CIV {120 /Courier-Oblique FS} bind def
/CIS {160 /Courier-Oblique FS} bind def
/CIL {200 /Courier-Oblique FS} bind def
/CIK {250 /Courier-Oblique FS} bind def
/CIM {300 /Courier-Oblique FS} bind def
/CIG {350 /Courier-Oblique FS} bind def

/CBV {120 /Courier-Bold FS} bind def
/CBS {160 /Courier-Bold FS} bind def
/CBL {200 /Courier-Bold FS} bind def
/CBK {250 /Courier-Bold FS} bind def
/CBM {300 /Courier-Bold FS} bind def
/CBG {350 /Courier-Bold FS} bind def

/CBIV {120 /Courier-BoldOblique FS} bind def
/CBIS {160 /Courier-BoldOblique FS} bind def
/CBIL {200 /Courier-BoldOblique FS} bind def
/CBIK {250 /Courier-BoldOblique FS} bind def
/CBIM {300 /Courier-BoldOblique FS} bind def
/CBIG {350 /Courier-BoldOblique FS} bind def

/nshow1 {TG  show} bind def
/kshow1 {TIG show} bind def
/bshow1 {TBM show} bind def
/bkshow1 {TBIM show} bind def
/ishow1 {TM 0 -50 rlineto show 0 50 rlineto} bind def
/eshow1 {TM 0 200 rlineto show 0 -200 rlineto} bind def
 
/nshow2 {TM  show} bind def
/kshow2 {TIM show} bind def
/bshow2 {TBM show} bind def
/ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto TM} bind def
/eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto TM} bind def
/jshow2 {TBK 0 -50 rmoveto show 0 50 rmoveto TBM} bind def
/jshow20 {TBK -50 -70 rmoveto show 0 70 rmoveto TBM} bind def 

%XCHA03.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
  {setrgbcolor rec fill} bind def

/colrecst %x y width heigth c m y k
  {setrgbcolor 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
  {setrgbcolor rem fill} bind def

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

/tzr {1 0 0} bind def %Reproduktionsfarben
/tzg {0 1 0} bind def
/tzb {0 0 1} bind def
/tzc {0 1 1} bind def
/tzm {1 0 1} bind def
/tzy {1 1 0} bind def
/tzo {1 0 0} bind def %Reproduktionsfarben
/tzl {0 1 0} bind def
/tzv {0 0 1} bind def

/tzn {0.00} bind def %Graureihe
/tzd {0.25} bind def
/tzz {0.50} bind def
/tzh {0.75} bind def
/tzw {1.00} bind def

/tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben
/tfg {0 1 0 setrgbcolor} bind def
/tfb {0 0 1 setrgbcolor} bind def
/tfc {0 1 1 setrgbcolor} bind def
/tfm {1 0 1 setrgbcolor} bind def
/tfy {1 1 0 setrgbcolor} bind def
/tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben
/tfl {0 1 0 setrgbcolor} bind def
/tfv {0 0 1 setrgbcolor} bind def

/tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben
/tfgn {0.0 0.5 0.0 setrgbcolor} bind def
/tfbn {0.0 0.0 0.5 setrgbcolor} bind def
/tfcn {0.0 0.5 0.5 setrgbcolor} bind def
/tfmn {0.5 0.0 0.5 setrgbcolor} bind def
/tfyn {0.5 0.5 0.0 setrgbcolor} bind def
/tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben
/tfln {0.0 0.5 0.0 setrgbcolor} bind def
/tfvn {0.0 0.0 0.5 setrgbcolor} bind def

/tfn {0.00 setgray} bind def %Graureihe
/tfd {0.25 setgray} bind def
/tfz {0.50 setgray} bind def
/tfh {0.75 setgray} bind def
/tfw {1.00 setgray} bind def
%XCHA03.PS BEG

%%EndProlog
gsave
%LANINDL2 START  20000505
/lanind 0 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
/showm  {6 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 def} ifelse
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave
%LANINDL2 END
 
4 /Times-ISOL1 FS
74 86 moveto
(DGQ30-3N) show
 
72 90 translate
 
0.01 MM dup scale

30 setlinewidth

/xwidth 6000 def
/ywidth 4000 def

tfz %Z
0000 0000 moveto xwidth 0 rlineto 0 ywidth rlineto 
             xwidth neg 0 rlineto closepath fill

tfy
0000 3300  moveto xwidth 0 rlineto 0 0700 rlineto
              xwidth neg 0 rlineto closepath fill
 
tfw
0000 2400  moveto xwidth 0 rlineto 0 0900 rlineto
              xwidth neg 0 rlineto closepath fill

tfy
0000 1600  moveto xwidth 0 rlineto 0 0800 rlineto
              xwidth neg 0 rlineto closepath fill

tfw
0000 0800  moveto xwidth 0 rlineto 0 0800 rlineto
              xwidth neg 0 rlineto closepath fill

tfy
0000 0000  moveto xwidth 0 rlineto 0 0800 rlineto
              xwidth neg 0 rlineto closepath fill
 
tfn

/TBKu {TBL -20 -60 rmoveto (u) show 0 60 rmoveto TBK} def
/TBKr {TBL -20 -60 rmoveto (r) show 0 60 rmoveto TBK} def
/TBK1 {TBL 0 -80 rmoveto (1) show 0 80 rmoveto TBK} def
/TBK2 {TBL 0 -80 rmoveto (2) show 0 80 rmoveto TBK} def
/TBK3 {TBL 0 -80 rmoveto (3) show 0 80 rmoveto TBK} def
/TBK4 {TBL 0 -80 rmoveto (4) show 0 80 rmoveto TBK} def
/TBK5 {TBL 0 -80 rmoveto (5) show 0 80 rmoveto TBK} def
/TBK1u {TBL 0 -80 rmoveto (1u) show 0 80 rmoveto TBK} def
/TBK2u {TBL 0 -80 rmoveto (2u) show 0 80 rmoveto TBK} def
/TBK3u {TBL 0 -80 rmoveto (3u) show 0 80 rmoveto TBK} def
/TBK4u {TBL 0 -80 rmoveto (4u) show 0 80 rmoveto TBK} def
/TBK5u {TBL 0 -80 rmoveto (5u) show 0 80 rmoveto TBK} def

/TBLu {TBS -15 -60 rmoveto (u) show 0 60 rmoveto TBL} def
/TBLr {TBS -15 -60 rmoveto (r) show 0 60 rmoveto TBL} def
/TBL1 {TBS 0 -80 rmoveto (1) show 0 80 rmoveto TBL} def
/TBL2 {TBS 0 -80 rmoveto (2) show 0 80 rmoveto TBL} def
/TBL3 {TBS 0 -80 rmoveto (3) show 0 80 rmoveto TBL} def
/TBL4 {TBS 0 -80 rmoveto (4) show 0 80 rmoveto TBL} def
/TBL5 {TBS 0 -80 rmoveto (5) show 0 80 rmoveto TBL} def
/TBL1u {TBS 0 -80 rmoveto (1u) show 0 80 rmoveto TBL} def
/TBL2u {TBS 0 -80 rmoveto (2u) show 0 80 rmoveto TBL} def
/TBL3u {TBS 0 -80 rmoveto (3u) show 0 80 rmoveto TBL} def
/TBL4u {TBS 0 -80 rmoveto (4u) show 0 80 rmoveto TBL} def
/TBL5u {TBS 0 -80 rmoveto (5u) show 0 80 rmoveto TBL} def
                          

/x0 0050 def %left start
/x1 0320 def %=
/x2 2000 def %error
/x3 2600 def %Ai
/x4e 5650 def %[x]

x0 3750 moveto
TBK
(LABJND colour difference formula of CIE 230:2019) showea
(LABJND-Farbdiffernzformel von CIE 230:2019) showde

x0 3450 moveto 
(Modifications with normalization to ) showea
(Modifikationen mit Normierung zu ) showde
TBIK
(Y) show
TBKu
TBK
( of surround) showea
( vom Umfeld) showde 

/y0  2900 def
/y0d 0300 def
/y1  2100 def
/y2  1300 def
/y3  0500 def

tfn
x2 y0 y0d add moveto
TBL
tfo
(error) showea
(Fehler) showde
tfn

x0 y0 moveto
TBIK
(dY) show
x1 y0 moveto
TBK
(=A) show
TBK1
TBK
(+A) show
TBK2
TBIK
(Y) show

x2 y0 100 add moveto
tfo
TBL
(0,0044) show
tfn

x3 y0 moveto
TBL
(A) show
TBL1
(=0,0170, A) show
TBL2
(=0,0058) show

x4e y0 moveto
TBL
([1]) show

x1 y0 y0d sub moveto
TBK
(=A) show
TBK1
TBK
(+A) show
TBK2u
TBK
(\050) show
TBIK
(Y/Y) show
TBKu
TBK
(\051) show

x3 y0 y0d sub moveto
TBL
(A) show
TBL1
(=0,0170, A) show
TBL2u
(=0,1004) show
TBL
(=A) show
TBL2
TBIL
(Y) show
TBLu

x4e y0 y0d sub moveto
TBL
([2]) show

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

tfn
x0 y1 moveto
TBIK
(dY) show
x1 y1 moveto
TBK
(=A) show
TBK1
TBK
(+A) show
TBK2
TBIK
(Y) show
20 100 rmoveto
TBL
(A) show
TBL3
0 -100 rmoveto

x2 y1 100 add moveto
tfo
TBL
(0,0019) show
tfn

x3 y1 moveto
TBL
(A) show
TBL1
(=0,0258, A) show
TBL2
(=0,0036, A) show
TBL3
(=1,087) show

x4e y1 moveto
TBL
([3]) show

x1 y1 y0d sub moveto
TBK
(=A) show
TBK1
TBK
(+A) show
TBK2u
TBK
(\050) show
TBIK
(Y/Y) show
TBKu
TBK
(\051) show
20 100 rmoveto
TBL
(A) show
TBL3
0 -100 rmoveto

x3 y1 y0d sub moveto
TBL
(A) show
TBL1
(=0,0258, A) show
TBL2u
(=0,0823, A) show
TBL3
(=1,087) show

x4e y1 y0d sub moveto
TBL
([4]) show

%********************************************
tfn
x0 y2 moveto
TBIK
(dY) show
x1 y2 moveto
TBK
(=A) show
TBK1
TBK
([1+A) show
TBK2
TBIK
(Y) show
TBK
(]) show

x2 y2 100 add moveto
tfo
TBL
(0,0044) show
tfn

x3 y2 moveto 
TBL
(A) show
TBL1
(=0,0170, A) show
TBL2
(=0,3343) show

x4e y2 moveto
TBL
([5]) show

x1 y2 y0d sub moveto
TBK
(=A) show
TBK1
TBK
([1+A) show
TBK2u
TBK
(\050) show
TBIK
(Y/Y) show
TBKu
TBK
(\051]) show

x3 y2 y0d sub moveto 
TBL
(A) show
TBL1
(=0,0170, A) show
TBL2u
(=5,931) show
TBL
(=A) show
TBL2
TBIL
(Y) show
TBLu

x4e y2 y0d sub moveto
TBL
([6]) show

%********************************************
tfn
x0 y3 moveto
TBIK
(dY) show
x1 y3 moveto
TBK
(=A) show
TBK1
TBK
([1+A) show
TBK2
TBIK
(Y) show
TBK
(]) show
20 100 rmoveto
TBL
(A) show
TBL3
0 -100 rmoveto

x2 y3 100 add moveto
tfo
TBL
(0,0018) show
tfn

x3 y3 moveto 
TBL
(A) show
TBL1
(=0,0251, A) show
TBL2
(=0,1566, A) show
TBL3
(=1,107) show

x4e y3 moveto
TBL
([7]) show

x1 y3 y0d sub moveto
TBK
(=A) show
TBK1
TBK
([1+A) show
TBK2u
TBK
(\050) show
TBIK
(Y/Y) show
TBKu
TBK
(\051]) show
20 100 rmoveto
TBL
(A) show
TBL3
0 -100 rmoveto

x3 y3 y0d sub moveto
TBL
(A) show
TBL1
(=0,0251, A) show
TBL2u
(=2,778, A) show
TBL3
(=1,107) show

x4e y3 y0d sub moveto
TBL
([8]) show

30 setlinewidth
tfn
0 0 xwidth ywidth rec stroke
 
showpage
grestore
} for %output with langind end
%%Trailer