%!PS-Adobe-3.0 EPSF-3.0 IE640-3N.EPS %%BoundingBox: 70 85 392 328 %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: IE640-3N.EPS) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009090112000) /ModDate (D:2009090112000) /DOCINFO pdfmark03 [ /View [ /FitB ] /DOCVIEW pdfmark03 %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 /A4quer {598 0 translate 90 rotate} def /scalef 1 def /Tk {200 scalef mul /Times-ISOL1 FS} bind def /TK {250 scalef mul /Times-ISOL1 FS} bind def /TM {300 scalef mul /Times-ISOL1 FS} bind def /TG {350 scalef mul /Times-ISOL1 FS} bind def /TIk {200 scalef mul /TimesI-ISOL1 FS} bind def /TIK {250 scalef mul /TimesI-ISOL1 FS} bind def /TIM {300 scalef mul /TimesI-ISOL1 FS} bind def /TIG {350 scalef mul /TimesI-ISOL1 FS} bind def /TBk {250 scalef mul /TimesB-ISOL1 FS} bind def /TBK {250 scalef mul /TimesB-ISOL1 FS} bind def /TBM {300 scalef mul /TimesB-ISOL1 FS} bind def /TBG {350 scalef mul /TimesB-ISOL1 FS} bind def /TBIk {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIK {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIM {300 scalef mul /TimesBI-ISOL1 FS} bind def /TBIG {350 scalef mul /TimesBI-ISOL1 FS} bind def /SK {250 scalef mul /Symbol FS show} bind def /SM {300 scalef mul /Symbol FS show} bind def /SG {350 scalef mul /Symbol FS show} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind def /XYZD65TLS 24 array def /XYZD50TLS 24 array def /XYZ00ATLS 24 array def /XYZD65TLS [ %D65 XYZW fuer CIELAB-Normierung, Daten normiert auf Y=100.00 41.24 21.26 1.93 %XYZO 77.00 92.78 13.85 %XYZY 35.76 71.52 11.92 %XYZL 53.80 78.74 106.95 %XYZC 18.04 7.22 95.03 %XYZV 59.28 28.48 96.96 %XYZM 0.01 0.01 0.01 %XYZN 95.04 100.00 108.88 %XYZW ] def %D65 /XYZD50TLS [ %D50 XYZW fuer CIELAB-Normierung, Daten normiert auf Y=100.00 48.50 25.01 2.27 %XYZO 83.39 94.79 13.90 %XYZY 34.89 69.78 11.63 %XYZL 47.92 74.99 80.24 %XYZC 13.03 5.21 68.61 %XYZV 61.53 30.22 70.88 %XYZM 0.01 0.01 0.01 %XYZN 96.42 100.00 82.51 %XYZD50 ] def %D50 /XYZ00ATLS [ %00A XYZW fuer CIELAB-Normierung, Daten normiert auf Y=100.00 76.10 39.24 3.57 %XYZO 105.64 98.32 13.41 %XYZY 29.54 59.08 9.85 %XYZL 33.75 60.76 32.01 %XYZC 4.21 1.68 22.17 %XYZV 80.31 40.92 25.73 %XYZM 0.01 0.01 0.01 %XYZN 109.85 100.00 35.58 %XYZ00A ] def %00A %only For comparison /LAB*TLS00 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS00) 50.50 76.92 64.55 %0 0 92.66 -20.70 90.75 %Y 1 83.63 -82.76 79.90 %L 2 86.88 -46.17 -13.56 %C 3 %see Table 1 of ISO/IEC 15775:1999-12 25.72 31.45 -44.30 %V 4 57.30 94.35 -58.42 %M 5 50.50 76.92 64.55 %0 6 0.01 0.00 0.00 %N0 7 95.41 0.00 0.00 %W 8 18.01 0.00 0.00 %N 9 100.0 0.00 0.00 %W1 10 ] def %OYLCVMO+NW %%EndProlog gsave /iyd 300 def /nshow {iyd /Times-ISOL1 FS show} def /tspace {dup abs 1.0 le {( ) show} if dup dup -1.0 le exch -10 gt and {( ) show} if dup dup 1.0 gt exch 10 lt and {( ) show} if dup dup 1.0 gt exch 10 ge and {( ) show} if } bind def /trishow { 0.5 add truncate cvi 10 string cvs show} bind def /trushow {tspace 0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /troshow {0.005 add 100 mul truncate 100 div 10 string cvs show} bind def /trushow1 {0.05 add 10 mul truncate 10 div 10 string cvs show} bind def /trushow3 {0.0005 add 1000 mul truncate 1000 div 10 string cvs show} bind def /trushow4 {0.00005 add 10000 mul truncate 10000 div 10 string cvs show} bind def /bshow {iyd /TimesB-ISOL1 FS show} def /ishow {0 -20 rmoveto iyd 20 sub /TimesB-ISOL1 FS show 0 20 rmoveto} def /bnshow {iyd /TimesB-ISOL1 FS show} def %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 /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 /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind 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 gsave %LANINDL2 END 5 /Times-ISOL1 FS 365 86 moveto ( IE640-3) show 72 90 translate 0.01 MM dup scale %special instead of 0.02 15 setlinewidth 0 0 moveto 11200 0 rlineto 0 8300 rlineto -11200 0 rlineto closepath stroke /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse gsave /x0 1000 def /xd 1000 def /yd 300 def /y00 8000 def /y01 7650 def 400 xd add 000 sub 0 moveto 0 8300 rlineto stroke 0 7500 moveto 11200 0 rlineto stroke 0 5000 moveto 11200 0 rlineto stroke 0 2500 moveto 11200 0 rlineto stroke 00 1 2 {/xchart exch def %xchart=0,2: D65, D50 00A /y0 7500 xchart 2500 mul sub def /y1 y0 300 sub def /XYZLAX 24 array def /yfakt 0.8959 def xchart 0 eq {0 1 23 {/i exch def %i=0,23 XYZLAX i XYZD65TLS i get put } for %i=0,23 /XLA XYZD65TLS 21 get def /YLA XYZD65TLS 22 get def /ZLA XYZD65TLS 23 get def XYZLAX 18 XYZD65TLS 21 get 10000 div put XYZLAX 19 XYZD65TLS 22 get 10000 div put XYZLAX 20 XYZD65TLS 23 get 10000 div put } if %xchart=0 xchart 1 eq {0 1 23 {/i exch def %i=0,23 XYZLAX i XYZD50TLS i get put } for %i=0,23 /XLA XYZD50TLS 21 get def /YLA XYZD50TLS 22 get def /ZLA XYZD50TLS 23 get def XYZLAX 18 XYZD50TLS 21 get 10000 div put XYZLAX 19 XYZD50TLS 22 get 10000 div put XYZLAX 20 XYZD50TLS 23 get 10000 div put } if %xchart=1 xchart 2 eq {0 1 23 {/i exch def %i=0,23 XYZLAX i XYZ00ATLS i get put } for %i=0,23 /XLA XYZ00ATLS 21 get def /YLA XYZ00ATLS 22 get def /ZLA XYZ00ATLS 23 get def XYZLAX 18 XYZ00ATLS 21 get 10000 div put XYZLAX 19 XYZ00ATLS 22 get 10000 div put XYZLAX 20 XYZ00ATLS 23 get 10000 div put } if %xchart=2 /XLA1 XLA 100 div def /YLA1 YLA 100 div def /ZLA1 ZLA 100 div def /LABLAX 24 array def 0 1 7 {/i exch def %i=0,6% /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZLAX i30 get XLA div def /YQ XYZLAX i31 get YLA div def /ZQ XYZLAX i32 get ZLA div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if LABLAX i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LABLAX i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put LABLAX i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=0,7 %D=Device OYLCVMO+NW /LABD65*TLS00 33 array def %for Television Luminous System (TLS00), D65 /LABD50*TLS00 33 array def %for Television Luminous System (TLS00), D50 /LAB00A*TLS00 33 array def %for Television Luminous System (TLS00), 00A xchart 0 eq {0 1 23 {/i exch def %i=0,23 LABD65*TLS00 i LABLAX i get put } for %i=0,23 } if %xchart=0 xchart 1 eq {0 1 23 {/i exch def %i=0,23 LABD50*TLS00 i LABLAX i get put } for %i=0,23 } if %xchart=1 xchart 2 eq {0 1 23 {/i exch def %i=0,23 LAB00A*TLS00 i LABLAX i get put } for %i=0,23 } if %xchart=2 TBM xchart 0 eq {000 y00 moveto (Lichtart) showde (Illuminant) showen 000 y00 300 sub moveto ( Farbe) showde ( Colour) showen 500 xd 1 mul add y00 moveto (CIE\255Normfarbwerte) showde (CIE\255Tristimulus values) showen 500 xd 6 mul add y00 moveto (CIELAB\255Daten) showde (CIELAB data) showen TBIM 400 xd 1 mul add y01 moveto ( X) show 400 xd 2 mul add y01 moveto ( Y) show 400 xd 3 mul add y01 moveto ( Z) show 400 xd 4 mul add y01 moveto ( x) show 400 xd 5 mul add y01 moveto ( y) show 400 xd 6 mul add y01 moveto ( L*) show 400 xd 7 mul add y01 moveto ( a*) show 400 xd 8 mul add y01 moveto ( b*) show 400 xd 9 mul add y01 moveto ( C*) show TBK 0 -100 rmoveto (ab) show 400 xd 10 mul add y01 moveto ( h) show TBK 50 -100 rmoveto (ab) show } if TK 000 y1 yd 0 mul sub moveto (100%) show TBM xchart 0 eq {000 y1 yd 1 mul sub moveto (D65) show} if xchart 1 eq {000 y1 yd 1 mul sub moveto (D50) show} if xchart 2 eq {000 y1 yd 1 mul sub moveto (A) show} if /Name [(O) (Y) (L) (C) (V) (M) (N) (W)] def TM 0 1 7 {/i exch def %i=0,6 TBM -200 xd 1 mul add y1 yd i mul sub moveto Name i get show TM %XYZ 400 xd 1 mul add y1 yd i mul sub moveto XYZLAX i 3 mul 0 add get trushow 400 xd 2 mul add y1 yd i mul sub moveto XYZLAX i 3 mul 1 add get trushow 400 xd 3 mul add y1 yd i mul sub moveto XYZLAX i 3 mul 2 add get trushow %xy /XSUM XYZLAX i 3 mul 0 add get XYZLAX i 3 mul 1 add get add XYZLAX i 3 mul 2 add get add def /xan XYZLAX i 3 mul 0 add get XSUM div def /yan XYZLAX i 3 mul 1 add get XSUM div def 500 xd 4 mul add y1 yd i mul sub moveto xan trushow3 500 xd 5 mul add y1 yd i mul sub moveto yan trushow3 %LAB 400 xd 6 mul add y1 yd i mul sub moveto LABLAX i 3 mul 0 add get trushow 400 xd 7 mul add y1 yd i mul sub moveto LABLAX i 3 mul 1 add get trushow 400 xd 8 mul add y1 yd i mul sub moveto LABLAX i 3 mul 2 add get trushow %CH /Cab LABLAX i 3 mul 1 add get dup mul LABLAX i 3 mul 2 add get dup mul add 0.000001 add sqrt def /hab LABLAX i 3 mul 2 add get LABLAX i 3 mul 1 add get 0.000001 add atan def 400 xd 9 mul add y1 yd i mul sub moveto Cab trushow 500 xd 10 mul add y1 yd i mul sub moveto hab trushow1 } for %i=0,7 } for %xchart=0,2 showpage grestore %%Trailer