%!PS-Adobe-3.0 EPSF-3.0 WE991-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: http://130.149.60.45/~farbmetrik/WE99/)
  /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:2015060112000)
  /ModDate (D:2015060112000)
/DOCINFO pdfmark13
[ /View [ /FitB ]
/DOCVIEW pdfmark13
%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

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } 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

5 /Times-ISOL1 FS
340 85 moveto
(WE991-3) 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
0.0 0.0 1.0 0.0 setcmyk_olvcolor
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor
 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
/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

/ydel 300 def

%Titeltext
 100 8000 moveto TBG
(Visuelle & farbmetrische Differenz; ) showde                       %08560-3 1
(Visual and colorimetric differences ) showea                       %18560-3 1
(relative Farbskalierung (3 & 5 Stufen)) showde                     %08560-3 11
(for relative colour scaling (3 and 5 steps)) showea                %18560-3 11

/col3 [0.00 0.00 0.00 0.00 %W
       0.50 0.00 0.00 0.00 %Cw
       1.00 0.00 0.00 0.00 %C
      ] def

/col5 [0.00 0.00 0.00 0.00 %W
       0.25 0.00 0.00 0.00 %C1
       0.50 0.00 0.00 0.00 %Cw
       0.75 0.00 0.00 0.00 %C3
       1.00 0.00 0.00 0.00 %C
      ] def
/txt3 [(0) (a) (1)] def
/txt5 [(0) (b) (c) (d) (1)] def 

/txt3d [(a-0) (1-a)] def
/txt5d [(b-0) (c-b) (d-c) (1-d)] def

/ix0 0100 def
/iy0 6300 def
/s 1400 def

ix0 iy0 8900 s 0.0 0.0 0.0 0.5 colrecfi %grey surround

/s 1000 def
/iy0 6500 def
/ix0 0300 def
/ix1 0050 def
/ixl 0300 def
 0 1 2 {/j exch def
        TBK
        /j4 j 4 mul def
        ix0 j s mul add iy0 s s
        col3 j4 0 add get
        col3 j4 1 add get
        col3 j4 2 add get
        col3 j4 3 add get 
        colrecfi
        0 0 0 1 setcmykcolor
        ix0 j s mul add 0.5 s mul add
        iy0 moveto 0 -100 rlineto stroke
        ix0 j s mul add 0.5 s mul add 050 sub 
        iy0 450 sub moveto
        txt3 j get show

        j 0 eq {%j=0
        ix1
        iy0 1000 sub moveto
        SM (D) show TBM (V) show
        TBK 0 -100 rmoveto (i) show 0 100 rmoveto
        TBM (:) show

        ix1
        iy0 1900 sub moveto
        SM (D) show -20 0 rmoveto TBM (E*) show
        TBK -50 -100 rmoveto (ab,i) show -20 100 rmoveto
        TBM (:) show

        ix1
        iy0 2800 sub moveto
        SM (D) show TBM (S*) show
        TBK -50 -100 rmoveto (3) show -20 100 rmoveto
        TBM ( = ) show
        SM (D) show -20 0 rmoveto TBM (E*) show
        TBK -50 -100 rmoveto (ab,0) show -20 100 rmoveto
        TBM (+) show
        SM (D) show -20 0 rmoveto TBM (E*) show
        TBK -50 -100 rmoveto (ab,1) show -20 100 rmoveto


        3650
        iy0 2800 sub moveto
        SM (D) show TBM (S*) show
        TBK -50 -100 rmoveto (5) show -20 100 rmoveto
        TBM ( = ) show
        SM (D) show -20 0 rmoveto TBM (E*) show
        TBK -50 -100 rmoveto (ab,0) show -20 100 rmoveto
        TBM (+) show
        SM (D) show -20 0 rmoveto TBM (E*) show
        TBK -50 -100 rmoveto (ab,1) show -20 100 rmoveto
        TBM (+) show
        SM (D) show -20 0 rmoveto TBM (E*) show
        TBK -50 -100 rmoveto (ab,3) show -20 100 rmoveto
        TBM (+) show
        SM (D) show -20 0 rmoveto TBM (E*) show
        TBK -50 -100 rmoveto (ab,4) show -20 100 rmoveto

               } if %j=0

        j 1 le {%j<=1
        ix0 j s mul add 1.0 s mul add
        iy0 moveto 0 -500 rlineto stroke

        ix0 j s mul add 0.7 s mul add
        iy0 1000 sub moveto
        TBM txt3d j get show

        ix0 j s mul add 0.65 s mul add
        iy0 1900 sub moveto
        SM (D) show TBM (E*) show
        -50 -100 rmoveto
        TBK txt3d j get show

               } if %j<=1



       } for %j

/ix0 3800 def
/ixr 3800 def
/ydel1 900 def
 0 1 4 {/j exch def
        TBK
        /j4 j 4 mul def
        ix0 j s mul add iy0 s s
        col5 j4 0 add get
        col5 j4 1 add get
        col5 j4 2 add get
        col5 j4 3 add get
        colrecfi
        0 0 0 1 setcmykcolor
        ix0 j s mul add 0.5 s mul add
        iy0 moveto 0 -100 rlineto stroke
        ix0 j s mul add 0.5 s mul add 050 sub
        iy0 450 sub moveto
        txt5 j get show

        j 3 le {%j<=3
        ix0 j s mul add 1.0 s mul add
        iy0 moveto 0 -500 rlineto stroke

        ix0 j s mul add 0.7 s mul add
        iy0 ydel1 1 mul sub moveto
        TBM txt5d j get show

        ix0 j s mul add 0.6 s mul add
        iy0 ydel1 2 mul sub moveto
        SM (D) show TBM (E*) show
        -50 -100 rmoveto
        TBK txt5d j get show

               } if %j<=3

        j 4 eq {%j=4
                TBM
                ix0 j s mul add 1.1 s mul add 300 add
                iy0 400 add moveto
                (relative) show
                ix0 j s mul add 1.1 s mul add 300 add
                iy0 050 add moveto
                (visual scale) showen
                (visuelle Skala) showde
                ix0 j s mul add 1.1 s mul add 300 add
                iy0 300 sub moveto
                (range 0 to 1) showen
                (Bereich 0 bis 1) showde

                ix0 j s mul add 1.1 s mul add
                iy0 ydel1 sub 050 add moveto
                (relative) showen
                (relative) showde
                ix0 j s mul add 1.1 s mul add
                iy0 ydel1 sub 300 sub moveto
                (visual difference) showen
                (visuelle Differenz) showde


                ix0 j s mul add 1.1 s mul add
                iy0 ydel1 2 mul sub 050 add moveto
                (CIELAB) showen
                (CIELAB\255) showde
                ix0 j s mul add 1.1 s mul add
                iy0 ydel1 2 mul sub 300 sub moveto
                (colour difference) showen
                (Farbdifferenz) showde

                ix0 j s mul add 1.1 s mul add
                iy0 ydel1 3 mul sub 050 add moveto
                (sum of CIELAB) showen
                (Summe CIELAB\255) showde
                ix0 j s mul add 1.1 s mul add
                iy0 ydel1 3 mul sub 300 sub moveto
                (colour differences) showen
                (Farbdifferenzen) showde

               } if %j=4

       } for %j


/ymax iy0 ydel1 4 mul sub def
/ydel 0500 def

ix1 ymax moveto
TBM
(visual scaled (V*) colour difference:) showen
(visuelle skalierte (V*) Farbdifferenz:) showde

5300 ymax moveto
SM (D) show TBM (V*) show
TBK -50 -100 rmoveto (3,i) show 0 100 rmoveto
TBM ( = ) show
SM (D) show TBM (V) show
TBK 0 -100 rmoveto (i) show 0 100 rmoveto
ip
SM (D) show TBM (S*) show
TBK -50 -100 rmoveto (3) show 0 100 rmoveto
(  (i=0 to 1)) showea

5300 ymax 400 sub moveto
SM (D) show TBM (V*) show
TBK -50 -100 rmoveto (5,i) show 0 100 rmoveto
TBM ( = ) show
SM (D) show TBM (V) show
TBK 0 -100 rmoveto (i) show 0 100 rmoveto
ip
SM (D) show TBM (S*) show
TBK -50 -100 rmoveto (5) show 0 100 rmoveto
(  (i=0 to 4)) showea


        ix1
        ymax ydel 2.0 mul sub moveto
        SM (D) show -20 0 rmoveto TBM (V*) show
        TBK -50 -100 rmoveto (3) show -20 100 rmoveto
        TBM ( = ) show
        SM (D) show -20 0 rmoveto TBM (V*) show
        TBK -50 -100 rmoveto (3,0) show -20 100 rmoveto
        TBM ( + ) show
        SM (D) show -20 0 rmoveto TBM (V*) show
        TBK -50 -100 rmoveto (3,1) show -20 100 rmoveto
        ix1 550 add
        ymax ydel 2.0 mul sub 400 sub moveto
        TBM ( = ) show
        SM (D) show TBM (S*) show
        TBK -50 -100 rmoveto (3) show -20 100 rmoveto

        3650
        ymax ydel 2.0 mul sub moveto
        SM (D) show -20 0 rmoveto TBM (V*) show
        TBK -50 -100 rmoveto (5) show -20 100 rmoveto
        TBM ( = ) show
        SM (D) show -20 0 rmoveto TBM (V*) show
        TBK -50 -100 rmoveto (5,0) show -20 100 rmoveto
        TBM ( + ) show
        SM (D) show -20 0 rmoveto TBM (V*) show
        TBK -50 -100 rmoveto (5,1) show -20 100 rmoveto
        TBM ( + ) show
        SM (D) show -20 0 rmoveto TBM (V*) show
        TBK -50 -100 rmoveto (5,3) show -20 100 rmoveto
        TBM ( + ) show
        SM (D) show -20 0 rmoveto TBM (V*) show
        TBK -50 -100 rmoveto (5,4) show -20 100 rmoveto
        3650 550 add
        ymax ydel 2.0 mul sub 400 sub moveto
        TBM ( = ) show
        SM (D) show TBM (S*) show
        TBK -50 -100 rmoveto (5) show -20 100 rmoveto

ix1 ymax ydel 3.7 mul sub moveto
TBM
(73 mean visual data of the x observers) showea
( from experiments with the BAM\255test charts:) showea
(73 gemittelte visuelle Daten der x Beobachter) showde
( von Experimenten mit BAM\255Pr\374fvorlagen:) showde

200 ymax ydel 4.5 mul sub moveto
(25 trilets for 25 series with 3 colour steps) showea
(25 Triplets f\374r 25 Serien mit 3 Farbstufen) showde

200 ymax ydel 5.3 mul sub moveto
(48 triplets for 16 series with 5 colour steps) showea
(48 Triplets f\374r 16 Serien mit 5 Farbstufen) showde

5800 ymax ydel 4.9 mul sub moveto
(x>14 observers for data set VR_0128) showea
(x>14 Beobachter f\374r Datensatz VR_0128) showde

showpage
grestore

%%Trailer