%!PS-Adobe-3.0 EPSF-3.0 IE330-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/IE33/) /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: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 /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 /xyY0 232 array def %58x4 /xyY0 [%Apple Cinema Display HP, full white, 2009-09-30 01 6230 3278 66.10 %O00Y 02 6174 3325 68.10 %O13Y 03 5958 3505 77.00 %O25Y 04 5664 3754 91.40 %O38Y 05 5340 4022 111.10 %O50Y 06 5016 4296 137.50 %O63Y 07 4725 4540 169.40 %O75Y 08 4480 4748 205.80 %O88Y 09 4250 4951 255.00 %Y00L 10 4047 5098 240.60 11 3854 5240 228.90 12 3649 5393 218.30 13 3447 5545 209.10 14 3271 5680 202.00 15 3121 5790 196.60 16 3021 5865 193.10 17 2996 5883 192.20 %L 18 2976 5823 192.40 19 2903 5576 193.00 20 2797 5224 194.50 21 2676 4823 196.60 22 2552 4403 199.30 23 2435 4019 202.50 24 2336 3692 205.90 25 2249 3413 209.80 %C 26 2134 3026 162.10 27 2026 2651 126.10 28 1908 2235 94.60 29 1786 1804 68.20 30 1673 1403 48.60 31 1578 1056 33.90 32 1507 0806 24.70 33 1489 0747 22.60 %V 34 1522 0761 23.30 35 1669 0838 26.30 36 1889 0952 31.40 37 2152 1089 38.00 38 2457 1244 46.80 39 2760 1403 57.00 40 3046 1552 68.30 41 3349 1706 82.40 %M 42 3599 1837 78.50 43 3908 2005 75.00 44 4299 2218 71.70 45 4764 2478 68.90 46 5260 2750 66.50 47 5747 3017 64.80 48 6130 3230 63.70 49 6230 3278 66.10 %O00Y 50 3134 2867 3.66 %N00W 51 3146 2988 6.59 %N13W 52 3142 3110 19.51 %N25W 53 3142 3152 40.30 %N37W 54 3145 3181 68.54 %N50W 55 3151 3214 105.90 %N63W 56 3163 3248 150.10 %N75W 57 3174 3292 199.80 %N87W 58 3208 3380 264.10 %N99W ] def /xyY1 232 array def %58x4 /xyY1 [%CRT D50, 2.8 mit VGA Display, full white, 2009-09-30 01 6257 3374 28.20 %O00Y 02 6253 3377 28.20 %O13Y 03 6106 3492 30.50 %O25Y 04 5789 3740 36.09 %O38Y 05 5422 4028 44.30 %O50Y 06 5071 4301 54.60 %O63Y 07 4762 4542 66.71 %O75Y 08 4513 4742 80.15 %O88Y 09 4286 4910 94.92 %Y00L 10 4090 5063 89.00 11 3868 5236 83.64 12 3629 5423 78.80 13 3380 5618 74.50 14 3141 5804 71.10 15 2940 5961 68.64 16 2821 6054 67.31 17 2805 6066 67.15 %L 18 2802 6057 67.13 19 2753 5860 67.38 20 2644 5430 68.05 21 2512 4903 69.05 22 2380 4384 70.43 23 2259 3905 72.00 24 2156 3495 73.84 25 2071 3155 76.00 %C 26 1991 2827 61.20 27 1900 2452 47.70 28 1801 2040 35.50 29 1685 1606 25.20 30 1577 1183 17.00 31 1492 0848 11.40 32 1459 0700 9.20 33 1452 0700 9.10 %V 34 1470 0707 9.30 35 1616 0790 10.70 36 1861 0923 13.20 37 2161 1084 16.70 38 2470 1265 20.90 39 2781 1435 25.90 40 3073 1600 31.40 41 3335 1743 37.30 %M 42 3633 1906 35.18 43 4004 2113 33.35 44 4458 2366 31.72 45 4976 2556 30.36 46 5533 2969 29.27 47 6016 3239 28.57 48 6247 3367 28.29 49 6257 3374 28.20 %O00Y 50 2802 3230 0.06 %N00W 51 4350 3218 0.31 %N13W 52 3576 3267 4.23 %N25W 53 3352 3270 13.20 %N37W 54 3260 3252 26.02 %N50W 55 3217 3244 42.07 %N63W 56 3185 3230 60.84 %N75W 57 3166 3218 81.70 %N87W 58 3151 3215 104.40 %N99W ] def /xyY2 232 array def %58x4 /xyY2 [%Acer XD1150 with profile, full white, 2009-09-30 01 6415 3400 108.30 %O00Y 02 6381 3421 110.20 %O13Y 03 6243 3527 119.20 %O25Y 04 5859 3844 144.30 %O38Y 05 5556 4049 181.50 %O50Y 06 5112 4387 249.60 %O63Y 07 4730 4676 346.70 %O75Y 08 4465 4878 470.30 %O88Y 09 4250 5044 704.40 %Y00L 10 4087 5164 664.00 11 3864 5325 545.50 12 3711 5435 528.60 13 3596 5519 517.80 14 3523 5572 511.60 15 3484 5601 508.40 16 3467 5613 507.10 17 3464 5615 506.90 %L 18 3457 5595 507.50 19 3422 5510 509.30 20 3346 5327 512.70 21 3222 5026 519.30 22 3050 4610 530.50 23 2852 4135 541.40 24 2648 3640 568.40 25 2483 3239 593.60 %C 26 2334 2879 459.00 27 2140 2407 327.60 28 1931 1896 222.90 29 1741 1436 150.40 30 1603 1102 106.90 31 1520 0898 83.40 32 1483 0810 73.90 33 1475 0789 71.70 %V 34 1479 0791 72.80 35 1506 0805 73.50 36 1572 0839 77.40 37 1691 0901 85.20 38 1883 1000 97.70 39 2143 1134 115.70 40 2461 1305 152.70 41 2731 1450 193.10 %M 42 3119 1652 160.10 43 3721 1964 137.50 44 4369 2310 125.80 45 5077 2687 117.70 46 5702 3019 112.80 47 6138 3251 110.20 48 6359 3370 109.10 49 6415 3400 108.30 %O00Y 50 3103 3398 3.13 %N00W 51 2962 3263 5.70 %N13W 52 2978 3193 16.92 %N25W 53 3013 3208 44.11 %N37W 54 3037 3220 94.70 %N50W 55 3054 3230 179.20 %N63W 56 3071 3251 335.20 %N75W 57 3119 3293 657.10 %N87W 58 3119 3293 999.99 %N99W not measured ] def /coltext 58 array def /coltext [(o00y) (o13y) (o25y) (o38y) (o50y) (o63y) (o75y) (o88y) (y00l) (y13l) (y25l) (y38l) (y50l) (y63l) (y75l) (y88l) (l00c) (l13c) (l25c) (l38c) (l50c) (l63c) (l75c) (l88c) (c00v) (c13v) (c25v) (c38v) (c50v) (c63v) (c75v) (c88v) (v00m) (v13m) (v25m) (v38m) (v50m) (v63m) (v75m) (v88m) (m00o) (m13o) (m25o) (m38o) (m50o) (m63o) (m75o) (m88o) (o00y) (n00w) (n13w) (n25w) (n38w) (n50w) (n63w) (n75w) (n88w) (n99w) ] def /RGB 174 array def /RGB [1.000 0.000 0.000 %oXXy 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 %yXXl 0.875 1.000 0.000 0.750 1.000 0.000 0.625 1.000 0.000 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000 0.000 1.000 0.000 %lXXc 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 %cXXv 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.675 1.000 0.000 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000 0.000 1.000 %vXXm 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000 1.000 0.000 1.000 %mXXo 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.675 1.000 0.000 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000 0.000 %o00y 0.000 0.000 0.000 %nXXw 0.125 0.125 0.125 0.250 0.250 0.250 0.375 0.375 0.375 0.500 0.500 0.500 0.625 0.625 0.625 0.750 0.750 0.750 0.875 0.875 0.875 1.000 1.000 1.000 %n99w ] def /xyY 232 array def %58x4 /XYZ*system { %BEG procedure XYZ*system 0 1 231 {/i exch def %i=0,231 xyY i xcolor 0 eq {xyY0 i get} if xcolor 1 eq {xyY1 i get} if xcolor 2 eq {xyY2 i get} if put } for %i=0,231 /XYZrx089 174 array def %58*3=174 /XYZrx100 174 array def /jend 57 4 mul 3 add def /fakt 100 xyY jend get div def 0 1 57 {/i exch def /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def /j30 i 4 mul 1 add def /j31 j30 1 add def /j32 j30 2 add def /SUM xyY j32 get xyY j31 get 0.0001 mul div def XYZrx100 i30 xyY j30 get 0.0001 mul SUM mul fakt mul put XYZrx100 i31 xyY j32 get fakt mul put XYZrx100 i32 1 xyY j30 get 0.0001 mul sub xyY j31 get 0.0001 mul sub SUM mul fakt mul put } for %i=0,56 0 1 173 {/i exch def %i=0,173 XYZrx089 i XYZrx100 i get 0.8859 mul put } for %i=0,173 /iN 49 3 mul def /iW 57 3 mul def /XLN100 XYZrx100 iN get def /YLN100 XYZrx100 iN 1 add get def /ZLN100 XYZrx100 iN 2 add get def /XLW100 XYZrx100 iW get def /YLW100 XYZrx100 iW 1 add get def /ZLW100 XYZrx100 iW 1 add get def /XLN089 XYZrx089 iN get def /YLN089 XYZrx089 iN 1 add get def /ZLN089 XYZrx089 iN 2 add get def /XLW089 XYZrx089 iW get def /YLW089 XYZrx089 iW 1 add get def /ZLW089 XYZrx089 iW 1 add get def % achromatic (D65) colours /XLD65100 95.04 def /YLD65100 100.00 def /ZLD65100 108.88 def /XLD65089 95.04 0.8859 mul def /YLD65089 100.00 0.8859 mul def /ZLD65089 108.88 0.8859 mul def /LABN [(O (R)) (Y) (L (G)) (C) (V (B)) (M) (O (R)) (N) (W) (N0) (W1)] def } bind def %END procedure XYZ*system /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 /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 8 {/xchartl exch def %xchartl=0,8 gsave /xchart xchartl xchartl 3 idiv 3 mul sub def /xcolor xchartl 3 idiv def %needs xcolor to calculate XYZrx089 XYZ*system /XYZry089 33 array def XYZry089 00 XYZrx089 00 get put %O XYZry089 01 XYZrx089 01 get put XYZry089 02 XYZrx089 02 get put XYZry089 03 XYZrx089 24 get put %Y XYZry089 04 XYZrx089 25 get put XYZry089 05 XYZrx089 26 get put XYZry089 06 XYZrx089 48 get put %L XYZry089 07 XYZrx089 49 get put XYZry089 08 XYZrx089 50 get put XYZry089 09 XYZrx089 72 get put %C XYZry089 10 XYZrx089 73 get put XYZry089 11 XYZrx089 74 get put XYZry089 12 XYZrx089 96 get put %V XYZry089 13 XYZrx089 97 get put XYZry089 14 XYZrx089 98 get put XYZry089 15 XYZrx089 120 get put %M XYZry089 16 XYZrx089 121 get put XYZry089 17 XYZrx089 122 get put XYZry089 18 XYZrx089 0 get put %O again XYZry089 19 XYZrx089 1 get put XYZry089 20 XYZrx089 2 get put XYZry089 21 XYZrx089 147 get put %N XYZry089 22 XYZrx089 148 get put XYZry089 23 XYZrx089 149 get put XYZry089 24 XYZrx089 171 get put %W XYZry089 25 XYZrx089 172 get put XYZry089 26 XYZrx089 173 get put XYZry089 27 XYZrx089 147 get put %N again XYZry089 28 XYZrx089 148 get put XYZry089 29 XYZrx089 149 get put XYZry089 30 XYZrx089 171 get put %W XYZry089 31 XYZrx089 172 get put XYZry089 32 XYZrx089 173 get put % achromatic colours /XLWD65100 95.04 def /YLWD65100 100.00 def /ZLWD65100 108.88 def /XLW089 XYZry089 24 get def /YLW089 XYZry089 25 get def /ZLW089 XYZry089 26 get def /XLN001 XLWD65100 100 div def /YLN001 YLWD65100 100 div def /ZLN001 ZLWD65100 100 div def 0 1 10 {/i exch def %i=0,10% /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def /XQ XYZry089 i30 get XLD65100 div def /YQ XYZry089 i31 get YLD65100 div def /ZQ XYZry089 i32 get ZLD65100 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*rc089 i30 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put LAB*rc089 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*rc089 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 /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 XYZry089 jN 1 add get 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 ( IE330-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 xcolor 0 eq {(; LCD\255Monitor) showde (; LCD monitor) showen} if xcolor 1 eq {(; CRT\255Monitor) showde (; CRT monitor) showen} if xcolor 2 eq {(; LCD\255Projektor) showde (; LCD projector) showen} if (; Seite: ) showde (; Page: ) showen xcolor 3 mul xchart add 1 add cvishow (/9) 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* XLD65100 mul put XYZrc089 i31 Y* DecodeXYZ* YLD65100 mul put XYZrc089 i32 Z* DecodeXYZ* ZLD65100 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* XLD65100 mul put XYZra089 i31 Y* DecodeXYZ* YLD65100 mul put XYZra089 i32 Z* DecodeXYZ* ZLD65100 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 XLD65100 div def /YQ XYZna089 i31 get YLD65100 div def /ZQ XYZna089 i32 get ZLD65100 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 195 /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 195 /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 195 /TimesBI-ISOL1 FS (L*) show 145 /TimesB-ISOL1 FS 0 -30 rmoveto (N) show 0 30 rmoveto 195 /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 195 /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 xcolor 0 eq {(LCD\255Monitor) showde (LCD monitor) showen} if xcolor 1 eq {(CRT\255Monitor) showde (CRT monitor) showen} if xcolor 2 eq {(LCD\255Projektor) showde (LCD projector) showen} if 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 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 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 195 /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 195 /TimesBI-ISOL1 FS (L*) show 145 /TimesB-ISOL1 FS 0 -30 rmoveto (N) show 0 30 rmoveto 195 /TimesB-ISOL1 FS (=00) show ( von Schwarz f\374r Lichtart D65) showde ( of black for illuminant D65) showen /iy iyp11 def 20 iy moveto 195 /TimesB-ISOL1 FS (System TLS00a0) show 170 /TimesB-ISOL1 FS /iy iyp11 iyd0200 sub def 20 iy moveto xcolor 0 eq {(LCD\255Monitor) showde (LCD monitor) showen} if xcolor 1 eq {(CRT\255Monitor) showde (CRT monitor) showen} if xcolor 2 eq {(LCD\255Projektor) showde (LCD projector) showen} if /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 XYZla089 i30 XYZna089 i30 get Xtref089 add Xwref089 Xwref089 Xtref089 add div mul put XYZla089 i31 XYZna089 i31 get Ytref089 add Ywref089 Ywref089 Ytref089 add div mul put XYZla089 i32 XYZna089 i32 get Ztref089 add Zwref089 Zwref089 Ztref089 add div mul 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 XLD65100 div def /YQ XYZla089 i31 get YLD65100 div def /ZQ XYZla089 i32 get ZLD65100 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 195 /TimesB-ISOL1 FS (Berechnete farbmetrische Daten: ) showde (Calculated colorimetric data: ) showen 195 /TimesB-ISOL1 FS (Fernseh\255Lichtfarben\255Systeme TLSxxa f\374r Helligkeit ) showde (Television Luminous Systems TLSxxa for CIE lightness ) showen 195 /TimesBI-ISOL1 FS (L*) show 145 /TimesB-ISOL1 FS 0 -30 rmoveto (N) show 0 30 rmoveto 195 /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 195 /TimesB-ISOL1 FS show (a) show} if ISYSTEM 1 eq {TLref 195 /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 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 xcolor 0 eq {(LCD\255Monitor) showde (LCD monitor) showen} if xcolor 1 eq {(CRT\255Monitor) showde (CRT monitor) showen} if xcolor 2 eq {(LCD\255Projektor) showde (LCD projector) showen} if 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 (=) show (n) bishow (\050) nshow XYZna089 i30 get troshow (+) show Xtref089 troshow (\051) show ix8 iy moveto XYZla089 i31 get trushow (=) show (n) bishow (\050) nshow XYZna089 i31 get troshow (+) show Ytref089 troshow (\051) show ix9 iy moveto XYZla089 i32 get trushow (=) show (n) bishow (\050) nshow XYZna089 i32 get troshow (+) 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 XYZna089 i31 get XYZna089 i31 get Ytref089 add 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 %20 iy iyd0130 sub moveto (n =) bishow ( ) bshow XYZna089 i31 get troshow ( / \050) show XYZna089 i31 get troshow ( + ) bshow Ytref089 troshow (\051) bshow 20 iy iyd0200 6.2 mul sub moveto ( = ) bshow nfak cvsshow3 } for %il=0,3; 4,7 } if %xchart#0 showpage grestore } for %xchartl=0,8 %%Trailer