%!PS-Adobe-3.0 EPSF-3.0 WG400-3
%%BoundingBox: 70 83 392 168

%START PDFDE011.EPS
/pdfmark03 where {pop} {userdict /pdfmark03 /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: http://130.149.60.45/~farbmetrik/WG40/)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://farbe.li.tu-berlin.de
   or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@me.com)
  /CreationDate (D:2016100112000)
  /ModDate (D:2016100112000)
/DOCINFO pdfmark03
[ /View [ /FitB ]
/DOCVIEW pdfmark03
%END  PDFDE011

%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} bind def

% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I

/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

/RS {200 /Times-Roman FS} bind def
/RK {250 /Times-Roman FS} bind def
/RM {300 /Times-Roman FS} bind def
/RG {350 /Times-Roman FS} bind def

/RIS {200 /Times-Italic FS} bind def
/RIK {250 /Times-Italic FS} bind def
/RIM {300 /Times-Italic FS} bind def
/RIG {350 /Times-Italic FS} bind def

/RBS {200 /Times-Bold FS} bind def
/RBK {250 /Times-Bold FS} bind def
/RBM {300 /Times-Bold FS} bind def
/RBG {350 /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

/TS {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 {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 {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 {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 {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {290 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/CSS {115 /Courier-ISOL1 FS} bind def
/CSK {140 /Courier-ISOL1 FS} bind def
/CS {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

/CBSS {115 /CourierB-ISOL1 FS} bind def
/CBSK {140 /CourierB-ISOL1 FS} bind def
/CBS {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

/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 {300 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/es {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
/ib {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/eb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
%/ip {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def
/ipoint {350 /Times-ISOL1 FS 50 50 rmoveto show 50 -50 rmoveto} bind def
/ipK {(.) ipoint} bind def
/ipKr {(.) ipoint -40 0 rmoveto} bind def

%20% kleiner
/ns2 {300 /Times-ISOL1 FS  show TM} bind def
/ks2 {300 /TimesI-ISOL1 FS  show TM} bind def
/bs2 {300 /TimesB-ISOL1 FS  show TM} bind def
/js2 {300 /TimesBI-ISOL1 FS  show TM} bind def
/ss2 {300 /Symbol FS  show TM} bind def
/is2 {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def
/es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ib2 {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def
/eb2 {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ip2 {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def

%40% kleiner
/ns4 {250 /Times-ISOL1 FS  show TK} bind def
/ks4 {250 /TimesI-ISOL1 FS  show TK} bind def
/bs4 {250 /TimesB-ISOL1 FS  show TK} bind def
/js4 {250 /TimesBI-ISOL1 FS  show TK} bind def
/ss4 {250 /Symbol FS  show TK} bind def
/is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} 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 9 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def
/cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def

%%EndProlog
gsave
%LANINDL2 START  20150505
/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
%LANINDL2 END

5 /Times-ISOL1 FS
300 85 moveto
(WG400-3) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate

0.01 MM 0.01 MM scale  %d2:[rr.b4f]bausz8y.eps

/xwidth 11200 def
/ywidth  2700 def

15 setlinewidth
0.0 0.0 0.5 0.0 setcmyk_olvcolor
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor

0 0  moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath stroke

%Spalten
/S1 100 def

/S50 3400 def %CIELAB
/S51 S50 1600 add def %CMC
/S52 S50 3200 add def %C94
/S53 S50 4800 add def %CIEDE2000
/S54 S50 6400 add def %LABJND

/yu0  ywidth 0300 sub def %titel
/yu1  ywidth 0700 sub def %sub-header
/yu2  ywidth 1700 sub def %data
/yu3  ywidth 2550 sub def %formula

/yu0l ywidth  450 sub def %line below title
/yu1l ywidth 1400 sub def %line above data
/yu2l ywidth 2100 sub def %line below data

0 yu0l moveto xwidth 0 rlineto stroke %sub title
0 yu1l moveto xwidth 0 rlineto stroke %above data
0 yu2l moveto xwidth 0 rlineto stroke %below data

/yd 520 def %y-Zeilenabstand for font G
/yd2 300 def %y-Zeilenabstand for font M

/yli  0750 def
/yli1 0450 def

S50 100 sub yu0l         moveto S50 100 sub yu2l lineto stroke
S51 100 sub yu1l 650 add moveto S51 100 sub yu2l lineto stroke
S52 100 sub yu1l 650 add moveto S52 100 sub yu2l lineto stroke
S53 100 sub yu1l 650 add moveto S53 100 sub yu2l lineto stroke
S54 100 sub yu1l 650 add moveto S54 100 sub yu2l lineto stroke

%Titeltext
TBG
 S1 yu0 yd 0 mul add moveto
(Koeffizienten f\374r PF) showde
TBG_mde (Korrektur in Farbabstandsformel) showde
(Coefficients for PF correction in colour difference formulae) showea

TBM
S1 yu1 yd2 0 mul sub moveto
(Exponentenfunktions) showde TBM_mde 
(Power) showea TBM_men (function (PF)) showea

S1 yu1 yd2 1 mul sub moveto
(Koeffizienten) showde ( (PF)) showde
(coefficients) showea

TBM
S50 yu1 yd2 0 mul sub moveto
(Formel und Farbdifferenz) showde
(Formula and colour difference) showea

%*******************************************************
S50 yu1 yd2 1 mul sub moveto
(CIELAB) ns2
S51 yu1 yd2 1 mul sub moveto
(CMC) ns2
S52 yu1 yd2 1 mul sub moveto
(CIE94) ns2
S53 yu1 yd2 1 mul sub moveto
(CIEDE2000) ns2
S54 yu1 yd2 1 mul sub moveto
(LABJND) ns2

S50 yu1 yd2 2 mul sub moveto
(D) ss2 (E*) ks2 (ab) is2
S51 yu1 yd2 2 mul sub moveto
(D) ss2 (E*) ks2 (CM) is2
S52 yu1 yd2 2 mul sub moveto
(D) ss2 (E*) ks2 (94) is2
S53 yu1 yd2 2 mul sub moveto
(D) ss2 (E*) ks2 (00) is2
S54 yu1 yd2 2 mul sub moveto
(D) ss2 (E*) ks2 (85) is2

S1 1000 add yu2 yd2 0 mul sub moveto
(a) js2
S1 1000 add yu2 yd2 1 mul sub moveto
(b) js2

S50 yu2 yd2 0 mul sub moveto
(1,26) show
S50 yu2 yd2 1 mul sub moveto
(0,55) show

S51 yu2 yd2 0 mul sub moveto
(1,34) show
S51 yu2 yd2 1 mul sub moveto
(0,66) show

S52 yu2 yd2 0 mul sub moveto
(1,41) show
S52 yu2 yd2 1 mul sub moveto
(0,70) show

S53 yu2 yd2 0 mul sub moveto
(1,43) show
S53 yu2 yd2 1 mul sub moveto
(0,70) show

S54 yu2 yd2 0 mul sub moveto
(1,17) show
S54 yu2 yd2 1 mul sub moveto
(0,35) show

TM
S1 yu3 moveto
(PF) show
TM_mde (Farbabstandsformel:) showde
TM_men (colour difference formula:) showea

/is2x {250 /Times-ISOL1 FS -50 -100 rmoveto show -50 100 rmoveto TM} bind def

S50 600 add yu3 moveto
(D) ss2 (E*) ks2 (PF) is2
TM ( = ) show
TIM (a) show ipK TM (\050) show 
(D) ss2 (E*) ks2 (XX) is2
TM ( \051) show (b) es

TM (   (XX = ab, CM, 94, 00, 85)) show 

showpage
grestore

%%Trailer