%!PS-Adobe-3.0 EPSF-3.0 UG110-7
%%BoundingBox: 70 83 392 335

%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /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/UG11/)
  /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:2014010112000)
  /ModDate (D:2014010112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%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 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

5 /Times-ISOL1 FS
340 85 moveto
(UG110-7) 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
 
/nshow {350 /Times-ISOL1 FS  show} bind def
/kshow {350 /TimesI-ISOL1 FS  show} bind def
/bshow {350 /TimesB-ISOL1 FS  show} bind def
/jshow {350 /TimesBI-ISOL1 FS  show} bind def
/sshow {350 /Symbol FS  show} bind def
/ishow {250 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def
/eshow1 {300 /Times-ISOL1 FS 50 200 rmoveto show -50 -200 rmoveto} bind def
/eshow {250 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def

/epunct {300 /Times-ISOL1 FS 50 100 rmoveto (.) show 00 -100 rmoveto} bind def
 
%20% kleiner
/nshow2 {290 /Times-ISOL1 FS  show} bind def
/kshow2 {290 /TimesI-ISOL1 FS  show} bind def
/bshow2 {290 /TimesB-ISOL1 FS  show} bind def
/jshow2 {290 /TimesBI-ISOL1 FS  show} bind def
/ishow2 {200 /Times-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto} bind def
/ikshow2 {200 /TimesI-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto} bind def
/eshow2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto} bind def
 
/yd 600 def %y-Zeilenabstand
%Spalten
/S1 150 def
/S2 500 def
/S3 900 def
/S4 6600 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
(Farbschwellen\255Formel LABJNDS 1985 ) showde                   %08560-7 1
(Color threshold formula LABJNDS 1985 ) showea                   %18560-7 1

(f\344r) showde                                                  %08560-7 11
(for) showea                                                     %18560-7 11
TBIG ( Ostwald) show
TBG (\255Farben (o)) showde
( (o) colours) showen

 S1 yu8 moveto
(D) sshow (E) kshow (*) eshow -100 0 rmoveto (JND,o) ishow
( = ) nshow (Y) nshow (0) ishow
( [ \050) nshow (D) sshow ( Y) kshow (o) ishow (\051) nshow (2) eshow
( + \050 ) nshow (a) nshow (0) ishow
( D) sshow ( a) kshow (o) ishow ( \267 ) nshow (Y) kshow (o) ishow
(\051) nshow (2) eshow
( + \050 ) nshow (b) nshow (0) ishow
( D) sshow ( b) kshow (o) ishow ( \267 ) nshow (Y) kshow (o) ishow
(\051) nshow (2) eshow (]) nshow (1/2) eshow
( /  \050 ) nshow (s) nshow ( + ) nshow (q \267 ) nshow 
(Y) kshow (o) ishow (t) eshow1 ( \051) nshow

 S1 1100 add yu7 moveto
( = ) nshow (Y) nshow (0) ishow
( [ \050) nshow (D) sshow ( Y) kshow (o) ishow
(\051) nshow (2) eshow ( + \050) nshow
( D) sshow ( c) kshow (ab,o) ishow ( \267 ) nshow (Y) kshow (o) ishow
(\051) nshow (2) eshow
(]) nshow (1/2) eshow
( /  \050 ) nshow (s) nshow ( + ) nshow (q \267 ) nshow 
(Y) kshow (o) ishow (t) eshow1 ( \051) nshow

 S1 100 add yu6 moveto
TIG (a) show
 S2 yu6 moveto
TG ( = ) show
 S3 yu6 moveto
(x / y) kshow (     a) kshow (n) ishow ( = ) nshow
                   (x) kshow (n) ishow ( / ) nshow
                   (y) kshow (n) ishow
              (     b) kshow ( = - 0,4 ) nshow
                   (z) kshow ( / ) nshow
                   (y) kshow
              (     b) kshow (n) ishow ( = - 0,4 ) nshow
                   (z) kshow (n) ishow ( / ) nshow
                   (y) kshow (n) ishow
 

 S1 yu5 moveto
TIG (c) kshow (ab) ishow
 S2 yu5 moveto
TG ( = ) show
 S3 yu5 moveto ([) nshow
(a) nshow (0) ishow (2) eshow
(\050) nshow (a - a) kshow (n) ishow (\051) nshow (2) eshow
( + ) nshow
(b) nshow (0) ishow (2) eshow
(\050) nshow (b - b) kshow (n) ishow (\051) nshow (2) eshow
(]) nshow (1/2) eshow
 
TG
 S4 yu5 moveto
(n = D65 oder  A (Umfeld)) showde                                %08560-7 2
(n = D65 or  A (surround)) showea                                %18560-7 2
 

 S1 yu4 moveto
TIG (Y) show
 S2 yu4 moveto
TG ( = ) show
 S3 yu4 moveto
(\050 ) nshow (Y) kshow (1) ishow ( + ) nshow
              (Y) kshow (2) ishow ( \051 / 2) nshow
(       ) nshow (D) sshow 50 0 rmoveto (Y) kshow ( = ) nshow (Y) kshow (1) ishow
( - ) nshow (Y) kshow (2) ishow
(       ) nshow (D) sshow 50 0 rmoveto (a) kshow ( = ) nshow
            (a) kshow (1) ishow
( - ) nshow (a) kshow (2) ishow
(       ) nshow (D) sshow 50 0 rmoveto (b) kshow ( = ) nshow
            (b) kshow (1) ishow
( - ) nshow (b) kshow (2) ishow
 
 S1 yu3 moveto
(p) kshow (c,o) ishow ( = ) nshow
(c) kshow (ab) ishow ( / ) nshow (c) kshow (ab,o) ishow

 S1 4000 add yu3 moveto
(s) nshow ( = 0,0170) nshow (      q) nshow ( = 0,0058) nshow
              (      t) nshow ( = 1,0) nshow
 
 S1 yu2 moveto
      (a) nshow (0) ishow ( = 1,0) nshow
(      b) nshow (0) ishow ( = 1,8) nshow
 (     Y) nshow (0) ishow ( = 1,5) nshow
(    Umfeld D65 ) showde                                         %08560-7 3
(    surround D65 ) showea                                       %18560-7 3
 
 S1 yu1 moveto
      (a) nshow (0) ishow ( = 1,0) nshow
(      b) nshow (0) ishow ( = 1,7) nshow
 (     Y) nshow (0) ishow ( = 1,0) nshow
(    Umfeld A) showde                                            %08560-7 4
(    surround A) showen                                          %18560-7 4

/yv1 yu1 yd 1.0 mul sub def
/yv2 yu1 yd 1.9 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
(Just noticeable difference komplemaent\344rer (c)) showde          %08560-7 11
(Just noticeable difference of complementary (c)) showea            %18560-7 11
TBIG ( Ostwald) show TBG
(\255Farben (o) mit:) showde
( (o) colours with:) showea

 S1 yv2 moveto
(\050) nshow (a) kshow (o) ishow ( - a) kshow (n) ishow (\051) nshow
(Y) kshow (o) ishow
(=) nshow
(\050) nshow (a) kshow (oc) ishow ( - a) kshow (n) ishow (\051) nshow 
(Y) kshow (oc) ishow
(;    ) show

(\050) nshow (b) kshow (o) ishow ( - b) kshow (n) ishow (\051) nshow
(Y) kshow (o) ishow
(=) nshow
(\050) nshow (b) kshow (oc) ishow ( - b) kshow (n) ishow (\051) nshow
(Y) kshow (oc) ishow
(;    ) show


(c) kshow (ab,o) ishow (Y) kshow (o) ishow
(=) nshow
(c) kshow (ab,oc) ishow (Y) kshow (oc) ishow

/xt   900 def
/xtt 6000 def

 S1 300 add yv3 moveto
(D) sshow (Y) kshow (o) ishow
 S1 xt add 600 add yv3 moveto
( = const \050 s + q \267) nshow
(Y) kshow (o) ishow (t) eshow
( \051 / Y) nshow (0) ishow
 S1 xtt add yv3 moveto
TG (in Leuchtdichte-Richtung ) showde
(in luminance direction ) showea
(WN) kshow


 S1 yv4 moveto
(D) sshow TIG (c) show (ab,o) ishow
( \267) nshow (Y) kshow (o) ishow

 S1 xt add 600 add yv4 moveto
( = const \050 s + q \267) nshow
(Y) kshow (o) ishow (t) eshow
( \051 / Y) nshow (0) ishow


 S1 xtt add yv4 100 sub moveto
TG (in jede Farbartrichtung ) showde
(in any chromaticity direction ) showea
(c) kshow (ab) ishow

 S1 yv5 moveto
(D) sshow (c) kshow (ab,oc) ishow
( \267) nshow (Y) kshow (oc) ishow

 S1 xt add 600 add yv5 moveto
( = const \050 s + q \267) nshow
(Y) kshow (oc) ishow (t) eshow
( \051 / Y) nshow (0) ishow

 S1 xtt add yv5 100 add moveto
TG (und jede) showde
(and for the) showen
TIG ( Ostwald) show
TG (\255S\344ttigung ) showde
( purity ) showea
(p) nshow (c,o) ishow (=1) nshow


showpage
grestore

%%Trailer