%!PS-Adobe-3.0 EPSF-3.0 EE840-1N.EPS
%%BoundingBox: 70 85 226 206

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

% !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     %Umrechnung Inch -> mm
/A4quer {598 0 translate 90 rotate} def
/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

%font0309.ps***********************************************
%special TK 250->220
/CW {100 /Courier-ISOL1 FS} bind def
/CV {150 /Courier-ISOL1 FS} bind def
/CS {200 /Courier-ISOL1 FS} bind def
/CK {240 /Courier-ISOL1 FS} bind def
/CM {300 /Courier-ISOL1 FS} bind def
/CG {350 /Courier-ISOL1 FS} bind def

/CBW {100 /CourierB-ISOL1 FS} bind def
/CBV {150 /CourierB-ISOL1 FS} bind def
/CBS {200 /CourierB-ISOL1 FS} bind def
/CBK {240 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def

/RW {100 /Times-Roman FS} bind def
/RV {150 /Times-Roman FS} bind def
/RS {200 /Times-Roman FS} bind def
/RK {240 /Times-Roman FS} bind def
/RM {300 /Times-Roman FS} bind def
/RG {350 /Times-Roman FS} bind def

/RIW {100 /Times-Italic FS} bind def
/RIV {150 /Times-Italic FS} bind def
/RIS {200 /Times-Italic FS} bind def
/RIK {240 /Times-Italic FS} bind def
/RIM {300 /Times-Italic FS} bind def
/RIG {350 /Times-Italic FS} bind def

/RBW {100 /Times-Bold FS} bind def
/RBV {150 /Times-Bold FS} bind def
/RBS {200 /Times-Bold FS} bind def
/RBK {240 /Times-Bold FS} bind def
/RBM {300 /Times-Bold FS} bind def
/RBG {350 /Times-Bold FS} bind def

/RBIW {100 /Times-BoldItalic FS} bind def
/RBIV {150 /Times-BoldItalic FS} bind def
/RBIS {200 /Times-BoldItalic FS} bind def
/RBIK {240 /Times-BoldItalic FS} bind def
/RBIM {300 /Times-BoldItalic FS} bind def
/RBIG {350 /Times-BoldItalic FS} bind def

/TW {100 /Times-ISOL1 FS} bind def
/TV {150 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TK {240 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIW {100 /TimesI-ISOL1 FS} bind def
/TIV {150 /TimesI-ISOL1 FS} bind def
/TIS {200 /TimesI-ISOL1 FS} bind def
/TIK {240 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBW {100 /TimesB-ISOL1 FS} bind def
/TBV {150 /TimesB-ISOL1 FS} bind def
/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {240 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIW {100 /TimesBI-ISOL1 FS} bind def
/TBIV {150 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/SW {100 /Symbol FS} bind def
/SV {150 /Symbol FS} bind def
/SS {200 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/ishowRV  {RW  -00 -30 rmoveto
           show 00  30 rmoveto RV} def
/jshowRV  {RBW -00 -30 rmoveto
           show 00  30 rmoveto RBV} def

/ishowTV  {TW  -00 -30 rmoveto
           show 00  30 rmoveto TV} def
/jshowTV  {TBW -00 -30 rmoveto
           show 00  30 rmoveto TBV} def

/ishowRS  {RV  -00 -40 rmoveto
           show 00  40 rmoveto RS} def
/jshowRS  {RBV -00 -40 rmoveto
           show 00  40 rmoveto RBS} def

/ishowTS  {TV  -00 -40 rmoveto
           show 00  40 rmoveto TS} def
/jshowTS  {TBV -00 -40 rmoveto
           show 00  40 rmoveto TBS} def

/ishowRK  {RS  -00 -50 rmoveto
           show 00  50 rmoveto RK} def
/jshowRK  {RBS -00 -50 rmoveto
           show 00  50 rmoveto RBK} def

/ishowTK  {TS  -00 -50 rmoveto
           show 00  50 rmoveto TK} def
/jshowTK  {TBS -00 -50 rmoveto
           show 00  50 rmoveto TBK} def

/ishowRM  {RK  -00 -60 rmoveto
           show 00  60 rmoveto RM} def
/jshowRM  {RBK -00 -60 rmoveto
           show 00  60 rmoveto RBM} def

/ishowTM  {TK  -00 -60 rmoveto
           show 00  60 rmoveto TM} def
/jshowTM  {TBK -00 -60 rmoveto
           show 00  60 rmoveto TBM} def

/ishowRG  {RM  -00 -70 rmoveto
           show 00  70 rmoveto RG} def
/jshowRG  {RBM -00 -70 rmoveto
           show 00  70 rmoveto RBG} def

/ishowTG  {TM  -00 -70 rmoveto
           show 00  70 rmoveto TG} def
/jshowTG  {TBM -00 -70 rmoveto
           show 00  70 rmoveto TBG} def

%special
/enshowTK  {TS  -00  80 rmoveto
            show 00 -80 rmoveto TK} def
/ebshowTK  {TBS -00  80 rmoveto
            show 00 -80 rmoveto TBK} def
/enshowTM  {TK  -00  90 rmoveto
            show 00 -90 rmoveto TM} def
/ebshowTM  {TBK -00  90 rmoveto
            show 00 -90 rmoveto TBM} def
%font0309.ps***********************************************

/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

/tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours
/tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor
/tzvcmy0* {1.0 1.0 0.0 0.0} bind def
/tzccmy0* {1.0 0.0 0.0 0.0} bind def
/tzmcmy0* {0.0 1.0 0.0 0.0} bind def
/tzycmy0* {0.0 0.0 1.0 0.0} bind def

/tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours
/tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor
/tzvolv* {0.0 0.0 1.0} bind def
/tzcolv* {0.0 1.0 1.0} bind def
/tzmolv* {1.0 0.0 1.0} bind def
/tzyolv* {1.0 1.0 0.0} bind def
 
/tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series
/tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor
/tzzcmy0* {0.50 0.50 0.50 0.00} bind def
/tzhcmy0* {0.25 0.25 0.25 0.00} bind def
/tzwcmy0* {0.00 0.00 0.00 0.00} bind def
 
/tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n*
/tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor
/tzz000n* {0.00 0.00 0.00 0.50} bind def
/tzh000n* {0.00 0.00 0.00 0.25} bind def
/tzw000n* {0.00 0.00 0.00 0.00} bind def

/tznw* {0.00} bind def %grey series
/tzdw* {0.25} bind def %w* 1.0 exp setgray
/tzzw* {0.50} bind def
/tzhw* {0.75} bind def
/tzww* {1.00} bind def

/tznolv* {0.00 0.00 0.00} bind def %grey series
/tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor
/tzzolv* {0.50 0.50 0.50} bind def
/tzholv* {0.75 0.75 0.75} bind def
/tzwolv* {1.00 1.00 1.00} bind def

/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} bind def

/cvishow {cvi 6 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

%LANINDL2.EPS 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
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showes {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
/showm  {6 lanind eq {show} {pop} ifelse} bind def
 
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 1 def /lanind2 1 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
               {/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
               {/xcolor1 3 def /xcolor2 3 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def
                    /xchartd xchartgd def}
               {/xchart1 0 def /xchart2 0 def /xchartd 1 def} ifelse
/pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def
                    /pchartd pchartgd def}
               {/pchart1 1 def /pchart2 1 def /pchartd 1 def} ifelse

/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def} if
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def} if

/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage
/pchart pchart1 def %pchart1 1 pchart2 {/pchart exch def %output showpage

/GSS$ where {pop /LSS$ GSS$ def}
            {/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
            {/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
            {/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
            {/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
            {/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
            }
            {/IMES 0 def} ifelse

/cvishow {cvi 6 string cvs show} def

gsave
5 /Times-ISOL1 FS
72 85 moveto (EE840-1N) show

72 90 translate
0.01 MM dup scale

30 setlinewidth
/xwidth  5400 def
/ywidth  4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath stroke

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

/iyt   300 def          %text size
/iyd   350 def          %line difference

/ix00    40 def %text 1
/iy00  3300 def %text 2

%special for fr
/TKF   {270 /Times-ISOL1 FS} bind def
/TBKF  {270 /TimesB-ISOL1 FS} bind def
/TIKF  {270 /TimesI-ISOL1 FS} bind def
/TBIKF {270 /TimesBI-ISOL1 FS} bind def

ix00 iy00 400 add moveto
TBM
(Kontraststufe ) showde
(Contrast step ) showen
(Paso de contraste ) showes
TBKF
(Gammes de contrastes ) showfr
TBM
(Contrasto fase ) showit
(Kontrast trinn ) showjp

lanind 2 ne {TBIM  (C) show (Yi) jshowTM
             %TM  ( (i=1 to 8), ) show
            }
            {TBIKF (C) show (Yi) jshowTK
             %TKF ( (i=1 to 8), ) show
            } ifelse

(, siehe ) showde
(, see ) showen
(, según ) showes
TBKF
(, selon l') showfr
TBM
(, secondo ) showit
(, i henhold til ) showjp


lanind 2 ne {TBM  (ISO 9241\255306) show}
            {TBKF (ISO 9241\255306) show} ifelse

(1\051) ebshowTM

%******************************************************************************
%table content
/ix10    40 def
/ix11   060 def %Contrast step
/ix12  1800 def %YW:YN
/ix13  3600 def %YN1..YN2

/iyt1 3300 def
/iy01 iyt1 def               %title
/iy11 iyt1 iyt 1 mul sub def %question CIE colours
/iy21 iyt1 iyt 2 mul sub def %14 steps
/iy31 iyt1 iyt 3 mul sub def %....
/iy41 iyt1 iyt 4 mul sub def %....
/iy51 iyt1 iyt 5 mul sub def %....

ix11  iy01 moveto
RBM
(Kontrast-) showde
TBM
(Contrast) showen
RBM
(paso de con-) showes
TBK
(Gamme de) showfr
TBM
(Contrasto) showit
(Kontrast) showjp

ix11  iy11 moveto
TBM
(Stufe) showde
(step) showen
(trast) showes
TBK
(contrastes) showfr
TBM
(fase) showit
(trinn) showjp


ix11  iy21 moveto
lanind 2 ne {TBIM (C) show (Yi) jshowTM}
            {TBIK (C) show (Yi) jshowTK} ifelse

lanind 2 ne {TM ( (i=1 .. 8)) show}
            {TK ( (i=1 .. 8)) show} ifelse

ix11  iy31 moveto
TBM
(und ) showde
(and ) showen
(y ) showes
TBK
(et ) showfr
TBM
(e ) showit
(og ) showjp

lanind 2 ne {RBIM (Y) show}
            {RBIK () show} ifelse


ix11  iy41 moveto
TBM
(\255Verh\344ltnis) showde
(ratio) showen
(\255relaci\363n) showes
TBK
(rapport ) showfr

lanind 2 eq {TBIK (Y) show} if
TBM
(\255raporto) showit
(\255forholdet) showjp

ix11  iy51 moveto
lanind 2 ne {TBIM (C) show (Yi) jshowTM}
            {TBIK (C) show (Yi) jshowTK} ifelse
lanind 2 ne
{TBIM (   Y) show (W) jshowTM ( : ) show TBIM (Y) show (N) jshowTM}
{TBIK (   Y) show (W) jshowTK ( : ) show TBIK (Y) show (N) jshowTK} ifelse

ix12  iy01 moveto
RBM
(CIE-Norm-) showde
(CIE tristi-) showen
(CIE valores) showes
RBK
(Composantes) showfr
RBM
(CIE tristi-) showit
(CIE tristi-) showjp

ix12  iy11 moveto
TBM
(Farbwert;) showde
(mulus value;) showen
(triest\355mulos;) showes
TBK
(trichromatiques) showfr
TBM
(mulus valore;) showit
(mulus verdi;) showjp

ix12  iy21 moveto
TBM
(Verh\344ltnis) showde
(ratio for) showen
(relaci\363n) showes
TBK
(CIE; Rapport) showfr
TBM
(raporto) showit
(forholdet) showjp

ix12  iy31 moveto
TBM
(Wei\337) showde
(White) showen
(Blanco) showes
TBK
(du Blanc) showfr
TBM
(bianco) showit
(hvit) showjp

lanind 2 ne {TBIM ( W) show}
            {TBIK ( W) show} ifelse
TBM
( und) showde

ix12  iy41 moveto
TBM
() showde
(and) showen
(y) showes
TBK
(et) showfr
TBM
(e) showit
(og) showjp

TBM ( ) show
(Schwarz) showde
(Black) showen
(Negro) showes
TBK
(du Noir) showfr
TBM
(Nero) showit
(Svart) showjp

lanind 2 ne {TBIM ( N) show} 
            {TBIK ( N) show} ifelse

ix12  iy51 moveto
lanind 2 ne
{TBIM (Y) show (W) jshowTM ( : ) show TBIM (Y) show (N) jshowTM}
{TBIK (Y) show (W) jshowTK ( : ) show TBIK (Y) show (N) jshowTK} ifelse

%**************************************************************
%**************************************************************
ix13  iy01 moveto
RBM
(Papier (S)-) showde
TBM
(Paper (S)) showen
(Papel (S)) showes
TBK
(Luminance) showfr
TBM
(Carta (S)) showit
(Papir (S)) showjp

ix13  iy11 moveto
RBM
(Leucht-) showde
(lumi-) showen
(lumi-) showes
RBK
(du papier) showfr
RBM
(lumi-) showit
(lumi-) showjp

ix13  iy21 moveto
TBM
(dichte) showde
(nance) showen
(nosidad) showes
((S)) showfr
(nanza) showit
(nance) showjp

(1\051) ebshowTM TBM (;) show

ix13  iy31 moveto
TBM
(Verh\344ltnis) showde
(ratio) showen
(relaci\363n) showes
TBK
(rapport) showfr
TBM
(raporto) showit
(forholdet) showjp

ix13  iy41 moveto
lanind 2 ne {TBM ([cd/m) show (2) ebshowTM TBM (]) show}
            {TBK ([cd/m) show (2) ebshowTK TBK (]) show} ifelse

ix13  iy51 moveto
lanind 2 ne {TBIM (L) show (WS) jshowTM TBM ( : ) show
             TBIM (L) show (NS) jshowTM}
            {TBIK (L) show (WS) jshowTK TBK ( : ) show
             TBIK (L) show (NS) jshowTK} ifelse

%**************************************************************
%******************************************************************************
/ix20  ix10 def
/ix21  ix11 def %Contrast step
/ix22  ix12 def %YW:YN
/ix23  ix13 def %YN1..YN2
/ix2r   250 def %remark table

/iyt2 1250 def
/iy02 iyt2 def               %C1
/iy32 iyt2 iyd 1 mul sub def %C2
/iy72 iyt2 iyd 2 mul sub def %C3

ix21  iy02 moveto TBIM (C) show (Y8 ) jshowTM TBM ( 288 : 1) show
ix21  iy32 moveto TBIM (C) show (Y5 ) jshowTM (   36 : 1) show
ix21  iy72 moveto TBIM (C) show (Y1 ) jshowTM (2,25 : 1) show (1\051) ebshowTM

TM
ix22  iy02 moveto     (88,9 : 0,31) show
ix22  iy32 moveto TBM (88,9 : 2,50) show TM
ix22  iy72 moveto     (88,9 : 40,0) show

TM
ix23  iy02 moveto     (142 : 142/288) show
ix23  iy32 moveto TBM (142 : 142/36) show TM
ix23  iy72 moveto     (142 : 142/2,25) show

ix21  iy72 450 sub moveto
(1\051) ebshowTK
RK
0 0 1 setrgbcolor
(http://standards.iso.org/iso/9241/306/ed-2/index.html) show
0 setgray
TM

%lines
/iy01x iy01 300 add def
/iy51x iy51 200 sub def
/iy72x iy72 160 sub def
/iyy iy01x iy72x sub def

0 iy01x moveto xwidth 0 rlineto stroke
0 iy51x moveto xwidth 0 rlineto stroke
0 iy01x iyy sub moveto xwidth 0 rlineto stroke

ix12 40 sub iy01x moveto 0 iyy neg rlineto stroke
ix13 40 sub iy01x moveto 0 iyy neg rlineto stroke

showpage
grestore

%%Trailer