%!PS-Adobe-3.0 EPSF-3.0 JE300-7A.EPS %%BoundingBox: 70 80 740 590 %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/JE30/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.Richter@mac.com) /CreationDate (D:2010010112000) /ModDate (D:2010010112000) /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 /TKKK {130 /Times-ISOL1 FS} bind def /TKK {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIKKK {130 /TimesI-ISOL1 FS} bind def /TIKK {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBKKK {130 /TimesB-ISOL1 FS} bind def /TBKK {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIKKK {130 /TimesBI-ISOL1 FS} bind def /TBIKK {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /A4quer {598 0 translate 90 rotate} def /LABN [(O (R)) (Y) (L (G)) (C) (V (B)) (M) (O (R)) (N) (W) (N0) (W1)] def /RGB 44 array def /RGB [1.000 0.000 0.000 %oXXy 1.000 1.000 0.000 %yXXl 0.000 1.000 0.000 %lXXc 0.000 1.000 1.000 %cXXv 0.000 0.000 1.000 %vXXm 1.000 0.000 1.000 %mXXo 1.000 0.000 0.000 %o00y 0.000 0.000 0.000 %nXXw 1.000 1.000 1.000 %n99w 0.000 0.000 0.000 %nXXw 1.000 1.000 1.000 %n99w ] def /LAB*TLS00 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS) 50.50 76.92 64.55 %0 0 %see Table 1 of ISO/IEC 15775:1999-12 92.66 -20.70 90.75 %Y 1 83.63 -82.76 79.90 %L 2 86.88 -46.17 -13.56 %C 3 25.72 31.45 -44.30 %V 4 57.30 94.35 -58.42 %M 5 50.50 76.92 64.55 %0 6 again 0.01 0.00 0.00 %N 7 95.41 0.00 0.00 %W 8 0.01 0.00 0.00 %N 9 95.41 0.00 0.00 %W 10 ] def %OYLCVMO+NW /LAB*TLS18 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS) 52.76 71.63 49.88 %0 0 %computed from Table 1 of ISO/IEC 15775:1999-12 92.74 -20.04 84.97 %Y 1 % with Yn=2.52 84.00 -79.00 73.94 %L 2 87.14 -44.43 -13.13 %C 3 31.90 24.46 -37.39 %V 4 59.01 89.33 -19.44 %M 5 52.76 71.63 49.88 %0 6 %again 18.01 0.00 0.00 %N 7 95.41 0.00 0.00 %W 8 18.01 0.00 0.00 %N 9 95.41 0.00 0.00 %W 10 ] def %OYLCVMO+NW /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} def /nshow {TKKK 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 /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 /trushow4 {0.00005 add 10000 mul truncate 10000 div 10 string cvs show} bind def /nshow {TKKK show} def /kshow {TIKKK show} def /bshow {TBKKK show} def /bishow {TBIKKK show} def /ishow {0 -20 rmoveto 110 /TimesB-ISOL1 FS show 0 20 rmoveto} 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 /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 /xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse /xcolorg where {pop /xcolorx xcolorg def} {/xcolorx 0 def} ifelse %174=58*3 /LAB*rc089 174 array def /XYZrc089 174 array def /LAB*ra089 174 array def /XYZra089 174 array def /LAB*la089 174 array def /XYZla089 174 array def /LAB*lc089 174 array def /XYZlc089 174 array def /LAB*na089 33 array def /XYZna089 33 array def /LAB*ta089 33 array def /XYZta089 33 array def gsave /Touten0 (Colorimetric data of Television Lumimous System TLS18 and calculated) def /Toutenx [ ( Television Luminous Systems TLS00/06/11/18 for CIE standard illuminant D65) ( Television Luminous Systems TLS27/38/52/70 for CIE standard illuminant D65) ] def /Toutde0 (Farbmetrische Daten des Fernseh\255Lichtfarben\255Systems TLS18 und berechnete) def /Toutdex [ ( Fernseh\255Lichtfarben\255Systeme TLS00/06/11/18 f\374r CIE\255Normlichtart D65) ( Fernseh\255Lichtfarben\255Systeme TLS27/38/52/70 f\374r CIE\255Normlichtart D65) ] def /ISYSTEM 1 def /xchartl xchartx def 00 1 2 {/xchartl exch def %xchartl=00,02 gsave /xchart xchartl xchartl 3 idiv 3 mul sub def /xcolor xchartl 3 idiv def %start with TRS0 for L*N=2.52 0 1 10 {/sISO exch def /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def LAB*rc089 i30 LAB*TLS18 i30 get put LAB*rc089 i31 LAB*TLS18 i31 get put LAB*rc089 i32 LAB*TLS18 i32 get put } for 0 1 10 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*rc089 i30 get 16 add 116 div LAB*rc089 i31 get 500 div add} bind def /Y* {LAB*rc089 i30 get 16 add 116 div} bind def /Z* {LAB*rc089 i30 get 16 add 116 div LAB*rc089 i32 get 200 div sub} bind def XYZrc089 i30 X* DecodeXYZ* 95.05 mul put XYZrc089 i31 Y* DecodeXYZ* 100.00 mul put XYZrc089 i32 Z* DecodeXYZ* 108.90 mul put } for /jN 07 3 mul def /L*N LAB*rc089 jN get def /A*N LAB*rc089 jN 1 add get def /B*N LAB*rc089 jN 2 add get def /jW 08 3 mul def /L*W LAB*rc089 jW get def /A*W LAB*rc089 jW 1 add get def /B*W LAB*rc089 jW 2 add get def /YN XYZrc089 jN 1 add get def % achromatic colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLW089 XYZrc089 24 get def /YLW089 XYZrc089 25 get def /ZLW089 XYZrc089 26 get def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def /iout xchart 1 add def /Touten0 (Colorimetric data of Television Luminous System TLS) def /Toutenx [ ( and calculated Television Luminous Systems TLS00/06/11/18 for CIE standard illuminant D65) ( and calculated Television Luminous Systems TLS00/06/11/18 for CIE standard illuminant D65) ( and calculated Television Luminous Systems TLS27/38/52/70 for CIE standard illuminant D65) ( and calculated Television Luminous Systems TLS27/38/52/70 for CIE standard illuminant D65) ] def /Toutde0 (Farbmetrische Daten des Fernseh\255Lichtfarben\255Systems TLS) def /Toutdex [ ( und berechnete Fernseh\255Lichtfarben\255Systeme TLS00/06/11/18 f\374r CIE\255Normlichtart D65) ( und berechnete Fernseh\255Lichtfarben\255Systeme TLS00/06/11/18 f\374r CIE\255Normlichtart D65) ( und berechnete Fernseh\255Lichtfarben\255Systeme TLS27/38/52/70 f\374r CIE\255Normlichtart D65) ( und berechnete Fernseh\255Lichtfarben\255Systeme TLS27/38/52/70 f\374r CIE\255Normlichtart D65) ] def 8 /Times-ISOL1 FS 72 82.5 moveto ( JE300-7A, ) show Toutde0 showde Touten0 showen L*N 10 le {(0) show} if L*N cvishow xchart 1 eq xchart 2 eq or {(a) show} if ( for CIE standard illuminant D65) showen ( f\374r CIE\255Normlichtart D65) showde (; sRGB System) showde (; sRGB\255System) showen (; Seite: ) showde (; Page: ) showen xchart 1 add cvishow (/3) show 72 90 translate 0.0208 MM dup scale %special instead of 0.02 15 setlinewidth 1 setgray 0 0 moveto 11200 0 rlineto 0 8300 rlineto -11200 0 rlineto closepath fill 0 setgray 0 0 moveto 11200 0 rlineto 0 8300 rlineto -11200 0 rlineto closepath stroke /ix1 50 def /ix2 1600 def /ixd 800 def /ixx 2000 def %RGB /ix21 ixx ixd 0.0 mul add def /ix22 ixx ixd 0.6 mul add def /ix23 ixx ixd 1.2 mul add def %LAB /ix3 ixx ixd 1.80 mul add def /ix4 ixx ixd 2.50 mul add def /ix5 ixx ixd 3.20 mul add def /ix6 ixx ixd 3.90 mul add def /ix61 ixx ixd 4.60 mul add def %%XYZxy /ix7 ixx ixd 5.0 mul add def /ix8 ixx ixd 6.6 mul add def /ix9 ixx ixd 8.2 mul add def /ix10 ixx ixd 9.80 mul add def /ix11 ixx ixd 10.40 mul add def %Y/89.60 /ix12 ixx ixd 11.00 mul add def /iyd0130 130 def %regular line difference, middle text /iyd0160 160 def %line difference after text line, middle text /iyd0200 200 def %regular line difference, left text /iyd2000 2000 def %p0=page 0, bloc difference /iyd1500 1540 def %p1=page 1, bloc difference %p0=page 0, p1/p2=page p1, section 1 and page p1, sextion 2 and following /iyp00 8100 def %p0=page 0, top Colorimetric line /iyp01 iyp00 iyd0200 sub def %p0=page 0, top data text line /iyp02 iyp01 iyd0160 sub def %p0=page 0, next data line /iyp10 8100 def %p1=section 1, top colorimetric line /iyp11 iyp10 iyd0200 sub def %p1=section 1, top data line /iyp12 iyp11 iyd0160 sub def %p1=section 1, next data line /iyp20 6200 def %p1=section 2, top colorimetric line /iyp21 iyp20 iyd0200 sub def %p1=section 2, top data text line /iyp22 iyp21 iyd0160 sub def %p1=section 2, next data line 0 1 10 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*rc089 i30 get 16 add 116 div LAB*rc089 i31 get 500 div add} bind def /Y* {LAB*rc089 i30 get 16 add 116 div} bind def /Z* {LAB*rc089 i30 get 16 add 116 div LAB*rc089 i32 get 200 div sub} bind def XYZrc089 i30 X* DecodeXYZ* XLWD65100 mul put XYZrc089 i31 Y* DecodeXYZ* YLWD65100 mul put XYZrc089 i32 Z* DecodeXYZ* ZLWD65100 mul put } for 0 1 10 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def LAB*ra089 i30 LAB*rc089 i30 get put /l*CIE LAB*rc089 i30 get L*N sub L*W L*N sub div def %system rel. lightn. /a*s A*W A*N sub l*CIE mul def /b*s B*W B*N sub l*CIE mul def LAB*ra089 i31 LAB*rc089 i31 get A*N sub a*s sub put LAB*ra089 i32 LAB*rc089 i32 get B*N sub b*s sub put } for %i=0,10 0 1 10 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /X* {LAB*ra089 i30 get 16 add 116 div LAB*ra089 i31 get 500 div add} bind def /Y* {LAB*ra089 i30 get 16 add 116 div} bind def /Z* {LAB*ra089 i30 get 16 add 116 div LAB*ra089 i32 get 200 div sub} bind def XYZra089 i30 X* DecodeXYZ* XLWD65100 mul put XYZra089 i31 Y* DecodeXYZ* YLWD65100 mul put XYZra089 i32 Z* DecodeXYZ* ZLWD65100 mul put } for %i=0,10 /Xwref089 XYZra089 24 get def /Ywref089 XYZra089 25 get def /Zwref089 XYZra089 26 get def /YrN XYZra089 22 get def /Xnref089 YrN XLN001 mul def /Ynref089 YrN def /Znref089 YrN ZLN001 mul def /fakx Xwref089 Xwref089 Xnref089 sub div def /faky Ywref089 Ywref089 Ynref089 sub div def /fakz Zwref089 Zwref089 Znref089 sub div def 0 1 10 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZna089 i30 XYZra089 i30 get Xnref089 sub fakx mul put XYZna089 i31 XYZra089 i31 get Ynref089 sub faky mul put XYZna089 i32 XYZra089 i32 get Znref089 sub fakz mul put } for %i=0,10} if 0 1 10 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZna089 i30 get XLWD65100 div def /YQ XYZna089 i31 get YLWD65100 div def /ZQ XYZna089 i32 get ZLWD65100 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 LAB*na089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*na089 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 LAB*na089 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,10 %separat for xchart=0 and #0 xchart 0 eq {%xchart=0 0 1 2 {/xtype exch def %xtype /iy iyp00 iyd2000 xtype mul sub def 20 iy moveto 180 /TimesB-ISOL1 FS xtype 0 eq {%xtype=0 (Farbmetrische "Norm\255Daten": ) showde (Colorimetric "Standard data": ) showen } if %xtype=0 xtype 1 eq {%xtype=1 (Farbmetrische "Adaptierte Daten (a)": ) showde (Colorimetric "Adapted data (a)": ) showen } if %xtype=1 xtype 2 eq {%xtype=2 (Farbmetrische "Adaptierte Daten (a0)": ) showde (Colorimetric "Adapted data (a0)": ) showen } if %xtype=2 180 /TimesB-ISOL1 FS (Fernseh\255Lichtfarben\255System TLS) showde (Television Luminous System TLS) showen xtype 0 eq {/L*X LAB*rc089 21 get def} if xtype 1 eq {/L*X LAB*ra089 21 get def} if xtype 2 eq {/L*X LAB*na089 21 get def} if L*X 10 le {(0) show} if L*X cvishow xtype 1 eq {(a) show} if xtype 2 eq {(a0) show} if ( f\374r Helligkeit ) showde ( for CIE lightness ) showen 180 /TimesBI-ISOL1 FS (L*) show 145 /TimesB-ISOL1 FS 0 -30 rmoveto (N) show 0 30 rmoveto 180 /TimesB-ISOL1 FS (=) show L*X 10 le {(0) show} if L*X cvishow %xtype 1 eq {(a) show} if %xtype 2 eq {(a0) show} if ( von Schwarz f\374r Lichtart D65) showde ( of black for illuminant D65) showen /iy iyp01 iyd2000 xtype mul sub def 20 iy moveto 180 /TimesB-ISOL1 FS (System TLS) show L*X 10 le {(0) show} if L*X cvishow xtype 1 eq {(a) show} if xtype 2 eq {(a0) show} if /iy iyp01 iyd2000 xtype mul sub iyd0200 sub def 170 /TimesB-ISOL1 FS 20 iy moveto (sRGB\255System) showde (sRGB system) showen 20 iy iyd0200 1.5 mul sub moveto (D65\255Reflexion:) showde (D65 reflection:) showen 20 iy iyd0200 2.5 mul sub moveto 170 /TimesBI-ISOL1 FS (Y) show 130 /TimesB-ISOL1 FS 0 -20 rmoveto (N) show 0 20 rmoveto 170 /TimesB-ISOL1 FS ( = ) show xtype 0 eq {XYZrc089 22 get} if xtype 1 eq {XYZra089 22 get} if xtype 2 eq {XYZna089 22 get} if cvsshow2 20 iy iyd0200 3.5 mul sub moveto 170 /TimesBI-ISOL1 FS (L*) show 130 /TimesB-ISOL1 FS 0 -20 rmoveto (N) show 0 20 rmoveto 170 /TimesB-ISOL1 FS ( = ) show xtype 0 eq {LAB*rc089 21 get} if xtype 1 eq {LAB*ra089 21 get} if xtype 2 eq {LAB*na089 21 get} if cvsshow2 xtype 0 eq {%xtype=0 /iy iyp01 iyd2000 xtype mul sub def 20 iy moveto ix2 iy moveto lanind 0 eq {(Farbe)} {(Color)} ifelse bshow ix21 iy moveto (r) bishow () ishow (=olv*) bishow (1) ishow ix22 iy moveto (g) bishow () ishow (=olv*) bishow (2) ishow ix23 iy moveto (b) bishow () ishow (=olv*) bishow (3) ishow ix3 iy moveto (L*) bishow () ishow %(=LAB*) bishow (1) ishow ix4 iy moveto (a*) bishow () ishow %(=LAB*) bishow (2) ishow ix5 iy moveto (b*) bishow () ishow %(=LAB*) bishow (3) ishow ix6 iy moveto (C*) bishow (ab) ishow %(=LAB*) bishow(r) ishow ix61 50 sub iy moveto (h) bishow (ab) ishow ix7 iy moveto (X) bishow () ishow (=XYZ) bishow (1) ishow ix8 iy moveto (Y) bishow () ishow (=XYZ) bishow (2) ishow ix9 iy moveto (Z) bishow () ishow (=XYZ) bishow (3) ishow ix10 iy moveto (x) bishow () ishow ix11 iy moveto (y) bishow () ishow ix12 50 sub iy moveto (Y) bishow () ishow (/88.59) bishow TKKK /jend 8 3 mul 1 add def 0 1 10 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /iy iyp02 iyd2000 xtype mul sub i 5 le {i} {i 1 sub} ifelse iyd0130 mul sub def i 6 ne {%i 6 ne ix2 iy moveto ( ) nshow LABN i get show ix21 iy moveto RGB i30 get cvsshow3 ix22 iy moveto RGB i31 get cvsshow3 ix23 iy moveto RGB i32 get cvsshow3 ix3 iy moveto LAB*rc089 i30 get trushow ix4 iy moveto LAB*rc089 i31 get trushow ix5 iy moveto LAB*rc089 i32 get trushow ix6 iy moveto LAB*rc089 i31 get dup mul LAB*rc089 i32 get dup mul add 0.0001 add sqrt trushow ix61 iy moveto LAB*rc089 i32 get LAB*rc089 i31 get 0.0001 add atan cvishow ix7 iy moveto XYZrc089 i30 get troshow ix8 iy moveto XYZrc089 i31 get troshow ix9 iy moveto XYZrc089 i32 get troshow /sumXYZrc089 XYZrc089 i30 get XYZrc089 i31 get add XYZrc089 i32 get add def ix10 iy moveto XYZrc089 i30 get sumXYZrc089 div trushow4 ix11 iy moveto XYZrc089 i31 get sumXYZrc089 div trushow4 ix12 iy moveto XYZrc089 i31 get XYZrc089 jend get div trushow4 } if %i 6 ne } for } if %xtype=0 xtype 1 eq {%xtype=1 /iy iyp01 iyd2000 xtype mul sub def 20 iy moveto ix2 iy moveto lanind 0 eq {(Farbe)} {(Color)} ifelse bshow ix21 iy moveto (r) bishow () ishow (=olv*) bishow (1) ishow ix22 iy moveto (g) bishow () ishow (=olv*) bishow (2) ishow ix23 iy moveto (b) bishow () ishow (=olv*) bishow (3) ishow ix3 iy moveto (L*) bishow (a) ishow %(=LAB*) bishow (1a) ishow ix4 iy moveto (a*) bishow (a) ishow %(=LAB*) bishow (2a) ishow ix5 iy moveto (b*) bishow (a) ishow %(=LAB*) bishow (3a) ishow ix6 iy moveto (C*) bishow (ab,a) ishow %(=LAB*) bishow(ra) ishow ix61 50 sub iy moveto (h) bishow (ab,a) ishow ix7 iy moveto (X) bishow (a) ishow (=XYZ) bishow (1a) ishow ix8 iy moveto (Y) bishow (a) ishow (=XYZ) bishow (2a) ishow ix9 iy moveto (Z) bishow (a) ishow (=XYZ) bishow (3a) ishow ix10 iy moveto (x) bishow (a) ishow ix11 iy moveto (y) bishow (a) ishow ix12 100 sub iy moveto (Y) bishow (a) ishow (/88.59) bishow TKKK /jend 8 3 mul 1 add def 0 1 10 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /iy iyp02 iyd2000 xtype mul sub i 5 le {i} {i 1 sub} ifelse iyd0130 mul sub def i 6 ne {%i 6 ne ix2 iy moveto ( ) nshow LABN i get show ix21 iy moveto RGB i30 get cvsshow3 ix22 iy moveto RGB i31 get cvsshow3 ix23 iy moveto RGB i32 get cvsshow3 ix3 iy moveto LAB*ra089 i30 get trushow ix4 iy moveto LAB*ra089 i31 get trushow ix5 iy moveto LAB*ra089 i32 get trushow ix6 iy moveto LAB*ra089 i31 get dup mul LAB*ra089 i32 get dup mul add 0.0001 add sqrt trushow ix61 iy moveto LAB*ra089 i32 get LAB*ra089 i31 get 0.0001 add atan cvishow ix7 iy moveto XYZra089 i30 get troshow ix8 iy moveto XYZra089 i31 get troshow ix9 iy moveto XYZra089 i32 get troshow /sumXYZra089 XYZra089 i30 get XYZra089 i31 get add XYZra089 i32 get add def ix10 iy moveto XYZra089 i30 get sumXYZra089 div trushow4 ix11 iy moveto XYZra089 i31 get sumXYZra089 div trushow4 ix12 iy moveto XYZra089 i31 get XYZra089 jend get div trushow4 } if %i 6 ne } for } if %xtype=1 xtype 2 eq {%xtype=2 /iy iyp01 iyd2000 xtype mul sub def 20 iy moveto ix2 iy moveto lanind 0 eq {(Farbe)} {(Color)} ifelse bshow ix21 iy moveto (r) bishow () ishow (=olv*) bishow (1) ishow ix22 iy moveto (g) bishow () ishow (=olv*) bishow (2) ishow ix23 iy moveto (b) bishow () ishow (=olv*) bishow (3) ishow ix3 iy moveto (L*) bishow (a0) ishow %(=LAB*) bishow (1a0) ishow ix4 iy moveto (a*) bishow (a0) ishow %(=LAB*) bishow (2a0) ishow ix5 iy moveto (b*) bishow (a0) ishow %(=LAB*) bishow (3a0) ishow ix6 iy moveto (C*) bishow (ab,a0) ishow %(=LAB*) bishow (ab,a0) ishow ix61 50 sub iy moveto (h) bishow (ab,a0) ishow ix7 iy moveto (X) bishow (a0) ishow (=XYZ) bishow (1a0) ishow ix8 iy moveto (Y) bishow (a0) ishow (=XYZ) bishow (2a0) ishow ix9 iy moveto (Z) bishow (a0) ishow (=XYZ) bishow (3a0) ishow ix10 iy moveto (x) bishow (a0) ishow ix11 iy moveto (y) bishow (a0) ishow ix12 150 sub iy moveto (Y) bishow (a0) ishow (/88.59) bishow TKKK /jend 8 3 mul 1 add def /i 7 def %W /i31 i 3 mul 1 add def /kfak XYZra089 i31 get XYZra089 i31 get Ynref089 sub div def 0 1 10 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /iy iyp02 iyd2000 xtype mul sub i 5 le {i} {i 1 sub} ifelse iyd0130 mul sub def i 6 ne {%i 6 ne ix2 iy moveto ( ) nshow LABN i get show ix21 iy moveto RGB i30 get cvsshow3 ix22 iy moveto RGB i31 get cvsshow3 ix23 iy moveto RGB i32 get cvsshow3 ix3 iy moveto LAB*na089 i30 get trushow ix4 iy moveto LAB*na089 i31 get trushow ix5 iy moveto LAB*na089 i32 get trushow ix6 iy moveto LAB*na089 i31 get dup mul LAB*na089 i32 get dup mul add 0.0001 add sqrt trushow ix61 iy moveto LAB*na089 i32 get LAB*na089 i31 get 0.0001 add atan cvishow ix7 iy moveto XYZna089 i30 get troshow (=) nshow (k) bishow (\050) nshow XYZra089 i30 get troshow (-) show Xnref089 troshow (\051) show ix8 iy moveto XYZna089 i31 get troshow (=) nshow (k) bishow (\050) nshow XYZra089 i31 get troshow (-) show Ynref089 troshow (\051) show ix9 iy moveto XYZna089 i32 get troshow (=) nshow (k) bishow (\050) nshow XYZra089 i32 get troshow (-) show Znref089 troshow (\051) show /sumXYZna089 XYZna089 i30 get XYZna089 i31 get add XYZna089 i32 get add def ix10 iy moveto XYZna089 i30 get sumXYZna089 0.00001 add div trushow4 ix11 iy moveto XYZna089 i31 get sumXYZna089 0.00001 add div trushow4 ix12 iy moveto XYZna089 i31 get XYZna089 jend get 0.00001 add div trushow4 } if %i 6 ne } for /iy iyp21 iyd1500 sub def 20 iy iyd0200 8.5 mul sub moveto (k) bishow ( = ) bshow XYZra089 i31 get troshow ( / \050 ) bshow XYZra089 i31 get troshow ( - ) bshow Ynref089 troshow (\051) bshow 20 iy iyd0200 9.2 mul sub moveto ( = ) bshow kfak cvsshow3 } if %xtype=2 } for %xtype=0,2 } if %xchart=0 xchart 0 ne {%xchart#0 /iy iyp10 def 20 iy moveto 180 /TimesB-ISOL1 FS (Farbmetrische "Adaptierte Daten (a0)": ) showde (Colorimetric "Adapted data (a0)": ) showen (Fernseh\255Lichtfarben\255System TLS00a0) showde (Television Luminous System TLS00a0) showen ( f\374r Helligkeit ) showde ( for CIE lightness ) showen 180 /TimesBI-ISOL1 FS (L*) show 145 /TimesB-ISOL1 FS 0 -30 rmoveto (N) show 0 30 rmoveto 180 /TimesB-ISOL1 FS (=00) show ( von Schwarz f\374r Lichtart D65) showde ( of black for illuminant D65) showen /iy iyp11 def 20 iy moveto 180 /TimesB-ISOL1 FS (System TLS00a0) show 170 /TimesB-ISOL1 FS /iy iyp11 iyd0200 sub def 20 iy moveto (sRGB\255System) showde (sRGB system) showen /iy iyp11 iyd0200 2.5 mul sub def 20 iy moveto (D65\255Reflexion:) showde (D65 reflection:) showen /iy iyp11 iyd0200 3.5 mul sub def 20 iy moveto 170 /TimesBI-ISOL1 FS (Y) show 130 /TimesB-ISOL1 FS 0 -20 rmoveto (N) show 0 20 rmoveto 170 /TimesB-ISOL1 FS ( = 0.0) show /iy iyp11 iyd0200 4.5 mul sub def 20 iy moveto 170 /TimesBI-ISOL1 FS (L*) show 130 /TimesB-ISOL1 FS 0 -20 rmoveto (N) show 0 20 rmoveto 170 /TimesB-ISOL1 FS ( = 0.0) show %without xtype mul /iy iyp11 def ix2 iy moveto lanind 0 eq {(Farbe)} {(Color)} ifelse bshow ix21 iy moveto (r) bishow () ishow (=olv*) bishow (1) ishow ix22 iy moveto (g) bishow () ishow (=olv*) bishow (2) ishow ix23 iy moveto (b) bishow () ishow (=olv*) bishow (3) ishow ix3 iy moveto (L*) bishow (a0) ishow %(=LAB*) bishow (1a0) ishow ix4 iy moveto (a*) bishow (a0) ishow %(=LAB*) bishow (2a0) ishow ix5 iy moveto (b*) bishow (a0) ishow %(=LAB*) bishow (3a0) ishow ix6 iy moveto (C*) bishow (ab,a0) ishow %(=LAB*) bishow (ab,a0) ishow ix61 50 sub iy moveto (h) bishow (ab,a0) ishow ix7 iy moveto (X) bishow (a0) ishow (=XYZ) bishow (1a0) ishow ix8 iy moveto (Y) bishow (a0) ishow (=XYZ) bishow (2a0) ishow ix9 iy moveto (Z) bishow (a0) ishow (=XYZ) bishow (3a0) ishow ix10 iy moveto (x) bishow (a0) ishow ix11 iy moveto (y) bishow (a0) ishow ix12 150 sub iy moveto (Y) bishow (a0) ishow (/88.59) bishow TKKK /jend 8 3 mul 1 add def /i 7 def %W /i31 i 3 mul 1 add def /kfak XYZra089 i31 get XYZra089 i31 get Ynref089 sub div def 0 1 10 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /iy iyp12 i 5 le {i} {i 1 sub} ifelse iyd0130 mul sub def i 6 ne {%i 6 ne ix2 iy moveto ( ) nshow LABN i get show ix21 iy moveto RGB i30 get cvsshow3 ix22 iy moveto RGB i31 get cvsshow3 ix23 iy moveto RGB i32 get cvsshow3 ix3 iy moveto LAB*na089 i30 get trushow ix4 iy moveto LAB*na089 i31 get trushow ix5 iy moveto LAB*na089 i32 get trushow ix6 iy moveto LAB*na089 i31 get dup mul LAB*na089 i32 get dup mul add 0.0001 add sqrt trushow ix61 iy moveto LAB*na089 i32 get LAB*na089 i31 get 0.0001 add atan cvishow ix7 iy moveto XYZna089 i30 get troshow (=) nshow (k) bishow (\050) nshow XYZra089 i30 get troshow (-) show Xnref089 troshow (\051) show ix8 iy moveto XYZna089 i31 get troshow (=) nshow (k) bishow (\050) nshow XYZra089 i31 get troshow (-) show Ynref089 troshow (\051) show ix9 iy moveto XYZna089 i32 get troshow (=) nshow (k) bishow (\050) nshow XYZra089 i32 get troshow (-) show Znref089 troshow (\051) show /sumXYZna089 XYZna089 i30 get XYZna089 i31 get add XYZna089 i32 get add def ix10 iy moveto XYZna089 i30 get sumXYZna089 0.00001 add div trushow4 ix11 iy moveto XYZna089 i31 get sumXYZna089 0.00001 add div trushow4 ix12 iy moveto XYZna089 i31 get XYZna089 jend get 0.00001 add div trushow4 } if %i 6 ne } for /iy iyp00 def %iyd1500 sub def 20 iy iyd0200 6.5 mul sub moveto (k) bishow ( = ) bshow XYZra089 i31 get troshow ( / \050 ) bshow XYZra089 i31 get troshow ( - ) bshow Ynref089 troshow (\051) bshow 20 iy iyd0200 7.2 mul sub moveto ( = ) bshow kfak cvsshow3 xchart 01 eq {/ila1 0 def /ila2 3 def /ilad 1 def} if xchart 02 eq {/ila1 4 def /ila2 7 def /ilad 1 def} if ila1 ilad ila2 {/il exch def %il=0,3; 4,7 /YrN 2.52 def %Reference black and white il 0 eq {/Xtref089 0.00 def /Ytref089 0.00 def /Ztref089 0.00 def /PLref (System OLS00) def /TLref (System TLS00) def} if il 1 eq {/Xtref089 YrN 0.25 mul XLN001 mul def /Ytref089 YrN 0.25 mul def /Ztref089 YrN 0.25 mul ZLN001 mul def /PLref (System OLS06) def /TLref (System TLS06) def} if il 2 eq {/Xtref089 YrN 0.50 mul XLN001 mul def /Ytref089 YrN 0.50 mul def /Ztref089 YrN 0.50 mul ZLN001 mul def /PLref (System OLS11) def /TLref (System TLS11) def} if il 3 eq {/Xtref089 YrN 1.00 mul XLN001 mul def /Ytref089 YrN 1.00 mul def /Ztref089 YrN 1.00 mul ZLN001 mul def /PLref (System OLS18) def /TLref (System TLS18) def} if il 4 eq {/Xtref089 YrN 2.00 mul XLN001 mul def /Ytref089 YrN 2.00 mul def /Ztref089 YrN 2.00 mul ZLN001 mul def /PLref (System OLS27) def /TLref (System TLS27) def} if il 5 eq {/Xtref089 YrN 4.00 mul XLN001 mul def /Ytref089 YrN 4.00 mul def /Ztref089 YrN 4.00 mul ZLN001 mul def /PLref (System OLS38) def /TLref (System TLS38) def} if il 6 eq {/Xtref089 YrN 8.00 mul XLN001 mul def /Ytref089 YrN 8.00 mul def /Ztref089 YrN 8.00 mul ZLN001 mul def /PLref (System OLS52) def /TLref (System TLS52) def} if il 7 eq {/Xtref089 YrN 16.00 mul XLN001 mul def /Ytref089 YrN 16.00 mul def /Ztref089 YrN 16.00 mul ZLN001 mul def /PLref (System OLS70) def /TLref (System TLS70) def} if /YNil Ytref089 def /YNil001 YNil 100 div def YNil001 6 29 div 3 exp ge {/FYYn YNil001 0.3333 exp def} {/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse /L*Nil 116 FYYn mul 16 sub def 0 1 10 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def XYZta089 i30 XYZna089 i30 get Xwref089 Xtref089 sub Xwref089 div mul put XYZta089 i31 XYZna089 i31 get Ywref089 Ytref089 sub Ywref089 div mul put XYZta089 i32 XYZna089 i32 get Zwref089 Ztref089 sub Zwref089 div mul put XYZla089 i30 XYZta089 i30 get Xtref089 add put XYZla089 i31 XYZta089 i31 get Ytref089 add put XYZla089 i32 XYZta089 i32 get Ztref089 add put } for %i=0,10 0 1 10 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZla089 i30 get XLWD65100 div def /YQ XYZla089 i31 get YLWD65100 div def /ZQ XYZla089 i32 get ZLWD65100 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 LAB*la089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*la089 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 LAB*la089 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,10 il 0 eq il 4 eq or { %il=0,4 /iy iyp20 ila1 0 eq ila1 4 eq or {iyd1500 il ila1 sub mul sub} if def 20 iy moveto 180 /TimesB-ISOL1 FS (Berechnete farbmetrische Daten: ) showde (Calculated colorimetric data: ) showen 180 /TimesB-ISOL1 FS (Fernseh\255Lichtfarben\255Systeme TLSxxa f\374r Helligkeit ) showde (Television Luminous Systems TLSxxa for CIE lightness ) showen 180 /TimesBI-ISOL1 FS (L*) show 145 /TimesB-ISOL1 FS 0 -30 rmoveto (N) show 0 30 rmoveto 180 /TimesB-ISOL1 FS il 0 eq {(=00, 06, 11, 18 von Schwarz f\374r Lichtart D65) showde (=00, 06, 11, 18 of black for illuminant D65) showen } if il 4 eq {(=27, 33, 52, 70 von Schwarz f\374r Lichtart D65) showde (=27, 33, 52, 70 of black for illuminant D65) showen } if } if %il=0,4 /iy iyp21 ila1 0 eq ila1 4 eq or {iyd1500 il ila1 sub mul sub} if def 20 iy moveto ISYSTEM 0 eq {PLref 180 /TimesB-ISOL1 FS show (a) show} if ISYSTEM 1 eq {TLref 180 /TimesB-ISOL1 FS show (a) show} if ix2 iy moveto lanind 0 eq {(Farbe)} {(Color)} ifelse bshow ix21 iy moveto (r) bishow () ishow (=olv*) bishow (1) ishow ix22 iy moveto (g) bishow () ishow (=olv*) bishow (2) ishow ix23 iy moveto (b) bishow () ishow (=olv*) bishow (3) ishow ix3 iy moveto (L*) bishow (a) ishow %(=LAB*) bishow (1a) ishow ix4 iy moveto (a*) bishow (a) ishow %(=LAB*) bishow (2a) ishow ix5 iy moveto (b*) bishow (a) ishow %(=LAB*) bishow (3a) ishow ix6 iy moveto (C*) bishow (ab,a) ishow %(=LAB*) bishow (ab,a) ishow ix61 50 sub iy moveto (h) bishow (ab,a) ishow ix7 iy moveto (X) bishow (a) ishow (=XYZ) bishow (1a) ishow ix8 iy moveto (Y) bishow (a) ishow (=XYZ) bishow (2a) ishow ix9 iy moveto (Z) bishow (a) ishow (=XYZ) bishow (3a) ishow ix10 iy moveto (x) bishow (a) ishow ix11 iy moveto (y) bishow (a) ishow ix12 100 sub iy moveto (Y) bishow (a) ishow (/88.59) bshow 170 /TimesB-ISOL1 FS /iy iyp21 ila1 0 eq ila1 4 eq or {iyd1500 il ila1 sub mul sub} if def 20 iy iyd0200 1.0 mul sub moveto (sRGB\255System) showde (sRGB system) showen 20 iy iyd0200 2.5 mul sub moveto (D65\255Reflexion:) showde (D65 reflection:) showen 20 iy iyd0200 3.5 mul sub moveto 170 /TimesBI-ISOL1 FS (Y) show 130 /TimesB-ISOL1 FS 0 -20 rmoveto (N) show 0 20 rmoveto 170 /TimesB-ISOL1 FS ( = ) show YNil cvsshow2 20 iy iyd0200 4.5 mul sub moveto 170 /TimesBI-ISOL1 FS (L*) show 130 /TimesB-ISOL1 FS 0 -20 rmoveto (N) show 0 20 rmoveto 170 /TimesB-ISOL1 FS ( = ) show L*Nil cvsshow2 0 1 10 {/i exch def /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /iy iyp22 ila1 0 eq ila1 4 eq or {iyd1500 il ila1 sub mul sub} if i 5 le {i} {i 1 sub} ifelse iyd0130 mul sub def i 6 ne {%i 6 ne ix2 iy moveto ( ) nshow LABN i get show ix21 iy moveto RGB i30 get cvsshow3 ix22 iy moveto RGB i31 get cvsshow3 ix23 iy moveto RGB i32 get cvsshow3 ix3 iy moveto LAB*la089 i30 get trushow ix4 iy moveto LAB*la089 i31 get trushow ix5 iy moveto LAB*la089 i32 get trushow ix6 iy moveto LAB*la089 i31 get dup mul LAB*la089 i32 get dup mul add sqrt trushow ix61 iy moveto LAB*la089 i32 get LAB*la089 i31 get 0.0001 add atan cvishow ix7 iy moveto XYZla089 i30 get trushow (\050=) nshow XYZna089 i30 get troshow (n) bishow () nshow (+) show Xtref089 troshow (\051) show ix8 iy moveto XYZla089 i31 get trushow (\050=) nshow XYZna089 i31 get troshow (n) bishow () nshow (+) show Ytref089 troshow (\051) show ix9 iy moveto XYZla089 i32 get trushow (\050=) nshow XYZna089 i32 get troshow (n) bishow () nshow (+) show Ztref089 troshow (\051) show /sumXYZla089 XYZla089 i30 get XYZla089 i31 get add XYZla089 i32 get add def ix10 iy moveto XYZla089 i30 get sumXYZla089 0.0001 add div trushow4 ix11 iy moveto XYZla089 i31 get sumXYZla089 0.0001 add div trushow4 ix12 iy moveto XYZla089 i31 get XYZla089 25 get 0.0001 add div trushow4 } if %i 6 ne } for /nfak XYZra089 i31 get Ytref089 sub XYZra089 i31 get div def /iy iyp21 ila1 0 eq ila1 4 eq or {iyd1500 il ila1 sub mul sub} if def 20 iy iyd0200 5.5 mul sub moveto (n) bishow ( = \050) bshow XYZna089 i31 get troshow ( - ) bshow Ytref089 troshow (\051 / ) bshow XYZna089 i31 get troshow 20 iy iyd0200 6.2 mul sub moveto ( = ) bshow nfak cvsshow3 } for %il=0,3; 4,7 } if %xchart#0 showpage grestore } for %xchartl=00,02 %%Trailer