%!PS-Adobe-3.0 EPSF-3.0 IE640-7N.EPS %%BoundingBox: 70 85 392 328 %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: IE640-7N.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 pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %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-7) 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.8859 def xchart 0 eq {0 1 23 {/i exch def %i=0,23 XYZLAX i XYZD65TLS i get yfakt mul 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 yfakt mul put XYZLAX 19 XYZD65TLS 22 get 10000 div yfakt mul put XYZLAX 20 XYZD65TLS 23 get 10000 div yfakt mul put } if %xchart=0 xchart 1 eq {0 1 23 {/i exch def %i=0,23 XYZLAX i XYZD50TLS i get yfakt mul 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 yfakt mul put XYZLAX 19 XYZD50TLS 22 get 10000 div yfakt mul put XYZLAX 20 XYZD50TLS 23 get 10000 div yfakt mul put } if %xchart=1 xchart 2 eq {0 1 23 {/i exch def %i=0,23 XYZLAX i XYZ00ATLS i get yfakt mul 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 yfakt mul put XYZLAX 19 XYZ00ATLS 22 get 10000 div yfakt mul put XYZLAX 20 XYZ00ATLS 23 get 10000 div yfakt mul 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 (88,59%) 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