%!PS-Adobe-3.0 EPSF-3.0 JE020-7N.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/JE02/)
  /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

%%Creator: K. Richter, BAM und TU Berlin, 200603001

% !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 MacBook 17" without glossy display 2009-12-07
01 6352 3383 0681 %O00Y
02 6231 3491 0729 %O13Y
03 5941 3739 0856 %O25Y
04 5647 4000 1016 %O38Y
05 5356 4256 1215 %O50Y
06 5093 4489 1445 %O63Y
07 4836 4721 1743 %O75Y
08 4578 4959 2156 %O88Y
09 4282 5239 2890 %Y00L
10 4011 5457 2691
11 3819 5620 2570
12 3641 5768 2473
13 3487 5896 2399
14 3349 6013 2338
15 3235 6110 2291
16 3138 6192 2255
17 3099 6225 2239 %L
18 3053 6069 2243
19 2951 5713 2255
20 2851 5364 2268
21 2747 5006 2284
22 2650 4671 2302
23 2550 4334 2325
24 2443 3969 2357
25 2241 3305 2446 %C
26 2063 2730 1695
27 1937 2310 1281
28 1832 1941 0985
29 1740 1608 0759
30 1650 1280 0565
31 1571 0982 0409
32 1503 0718 0286
33 1475 0613 0239 %V
34 1531 0645 0254
35 1664 0719 0291
36 1826 0807 0338
37 2020 0915 0400
38 2236 1036 0476
39 2486 1173 0573
40 2761 1323 0693
41 3126 1522 0883 %M
42 3717 1842 0793
43 4069 2040 0761
44 4415 2238 0739
45 4787 2455 0720
46 5200 2698 0704
47 5640 2960 0690
48 6130 3249 0679
49 6352 3383 0681 %O00Y

50 3226 3333 0031 %N00W
51 3060 3180 0097 %N13W
52 3009 3140 0268 %N25W
53 3032 3199 0485 %N37W
54 3071 3245 0757 %N50W
55 3114 3284 1079 %N63W
56 3164 3340 1496 %N75W
57 3190 3398 2063 %N87W
58 3113 3318 3084 %N99W
] def

/xyY1 232 array def %58x4

/xyY1 [%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

/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
               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 2 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 2 add get def

% achromatic (D65) colours
/XLWD65100  95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def

/XLWD65089  95.04 0.8859 mul def
/YLWD65089 100.00 0.8859 mul def
/ZLWD65089 108.88 0.8859 mul def

/XLN001 XLWD65100 100 div def
/YLN001 YLWD65100 100 div def
/ZLN001 ZLWD65100 100 div def

/LABN [(O (R)) (Y) (L (G)) (C) (V (B)) (M) (O (R)) (N) (W) (N0) (W1)] def

} bind def %END procedure XYZ*system

/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
/inshow {0 -20 rmoveto show 0 20 rmoveto} def
/icshow {0 -20 rmoveto cvishow 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

gsave

/ISYSTEM 1 def

/xchartl xchartx def

%00 1 43 {/xchartl exch def %xchartl=0,43

gsave

/xchart xchartl xchartl 22 idiv 22 mul sub def
/xcolor xchartl 22 idiv def

XYZ*system

xchart 5 le {/il 0 def}{/il xchart 6 sub 2 idiv def} ifelse

%Reference black and factors
/YrN 2.52 def
/ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def         

/Xtref089 YrN ilf il get mul XLN001 mul def
/Ytref089 YrN ilf il get mul def
/Ztref089 YrN ilf il get mul ZLN001 mul def

/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 57 {/i exch def %i=0,57%
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /XQ XYZrx089 i30 get XLWD65100 div def
       /YQ XYZrx089 i31 get YLWD65100 div def
       /ZQ XYZrx089 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*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,57

/jN 49 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 57 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

/Touten0
(Colorimetric data of Television Luminous System TLS) def
/Toutde0
(Farbmetrische Daten des Fernseh\255Lichtfarben\255Systems TLS) def

8 /Times-ISOL1 FS
72 82.5 moveto
     ( JE020-7N, ) show
Toutde0 showde Touten0 showen 
xchart 5 le {L*N 10 le {(0) show} if L*N cvishow}
            {L*Nil 10 le {(0) show} if L*Nil cvishow} ifelse
xchart 2 ge {(a) show} if
xchart 4 ge xchart 5 le and {(0) show} if
( for CIE standard illuminant D65) showen
( f\374r CIE\255Normlichtart D65) showde
xcolor 0 eq {(; LECD\255Monitor) showde (; LECD monitor) showen} if
xcolor 1 eq {(; LCD\255Monitor) showde (; LCD monitor) showen} if
(; Seite: ) showde (; Page: ) showen
xcolor 22 mul xchart add 1 add cvishow (/44) 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  1500 def
/ixx  2050 def
/ixd  800 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.80 mul add def
/ix5  ixx ixd 3.80 mul add def
/ix6  ixx ixd 4.80 mul add def
/ix61  ixx ixd 6.00 mul add def
%XYZxy
/ix7  ixx ixd 6.5 mul add def
/ix8  ixx ixd 7.5 mul add def
/ix9  ixx ixd 8.5 mul add def
/ix10 ixx ixd 9.50 mul add def
/ix11 ixx ixd 10.20 mul add def
%Y/89.60
/ix12 ixx ixd 10.90 mul add def

/iy 15140 def
/iyd0130  126 def
/iyd1510 1510 def

/iy00 iy       250 sub def
/iy01 iy00 iyd1510 sub def
/iy0t iy01 def %top table

0 1 57 {/i exch def %i=0,57
        /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,57 
        
0 1 57 {/i exch def %i=0,56
       /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,57

/iy0ds iyd1510 3.75 mul def       
/iy iy01 iy0ds sub iyd0130 add 250 add def
xchart 4 ge {/L*N 0 def} if
20 iy moveto
195 /TimesB-ISOL1 FS

xchart 1 le {%xchart <=1
(Farbmetrische "Norm\255Daten": ) showde
(Colorimetric "Standard data": ) showen
} if %xchart <=1

xchart 2 ge xchart 3 le and {%xchart >=2, <=3
(Farbmetrische "Adaptierte Daten (a)": ) showde
(Colorimetric "Adapted data (a)": ) showen
} if %xchart >=2, <=3

xchart 4 ge xchart 5 le and {%xchart >=4, <=5
(Farbmetrische "Adaptierte Daten (a0)": ) showde
(Colorimetric "Adapted data (a0)": ) showen
} if %xchart >=4, <=5

xchart 6 ge {%xchart >=6
(Farbmetrische "Adaptierte Daten (a)": ) showde
(Colorimetric "Adapted data (a)": ) showen
} if %xchart >=6

195 /TimesB-ISOL1 FS
(Fernseh\255Lichtfarben\255System TLS) showde
(Television Luminous System TLS) showen
xchart 5 le {L*N 10 le {(0) show} if L*N cvishow}
            {L*Nil 10 le {(0) show} if L*Nil cvishow} ifelse
xchart 2 ge {(a) show} if
xchart 4 ge xchart 5 le and {(0) show} if

( f\374r Helligkeit ) showde
( for CIE lightness ) showen
195 /TimesBI-ISOL1 FS
(L*) show
195 /TimesB-ISOL1 FS
(=) show
xchart 5 le {L*N 10 le {(0) show} if L*N cvishow}
            {L*Nil 10 le {(0) show} if L*Nil cvishow} ifelse
( von Schwarz f\374r Lichtart D65) showde
( of black for illuminant D65) showen

/iy iy01 iy0ds sub iyd0130 add 30 add def
20 iy moveto 195
/TimesB-ISOL1 FS
(System TLS) show
xchart 5 le {L*N 10 le {(0) show} if L*N cvishow}
            {L*Nil 10 le {(0) show} if L*Nil cvishow} ifelse
xchart 2 ge {(a) show} if
xchart 4 ge xchart 5 le and {(0) show} if

20 iy 200 sub moveto 170 /TimesB-ISOL1 FS
xcolor 0 eq {(LECD\255Monitor) showde (LECD monitor) showen} if
xcolor 1 eq  {(LCD\255Monitor) showde (LCD monitor) showen} if

xchart 6 ge { %xchart>=6
             /iy iy01 iy0ds sub def
             20 iy iyd0130 2.5 mul sub moveto
             (D65\255Reflexion:) showde (D65 reflection:) showen
             20 iy iyd0130 4 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 iyd0130 5.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
            } if %xchart>=6

xchart 0 eq {%xchart=0
/iy iy0t iy0ds sub iyd0130 add 30 add 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 () 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 100 sub iy moveto (Y) bishow () ishow (/88.59) bshow
TKKK

/jend 57 3 mul 1 add def
0 1 57 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /iy iy0t iy0ds sub i iyd0130 mul sub def
       /iydd i 48 le {i 8 idiv} {6} ifelse 80 mul def
       /iy iy iydd sub def
       ix2 100 sub iy moveto i 9 le {(0) show} if
       i cvishow (  ) nshow coltext 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*ra089 i32 get LAB*ra089 i31 get 0.000001 add atan cvishow
        ix7 iy moveto XYZrx089 i30 get troshow
        ix8 iy moveto XYZrx089 i31 get troshow
        ix9 iy moveto XYZrx089 i32 get troshow
        /sumXYZrx089 XYZrx089 i30 get
                     XYZrx089 i31 get add
                     XYZrx089 i32 get add def
        ix10 iy moveto XYZrx089 i30 get sumXYZrx089 0.000001 add div trushow4
        ix11 iy moveto XYZrx089 i31 get sumXYZrx089 0.000001 add div trushow4
        ix12 iy moveto XYZrx089 i31 get XYZrx089 jend get div trushow4
      } for
} if %xchart=0

xchart 2 eq {%xchart=2
/iy iy0t iy0ds sub iyd0130 add 30 add 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 (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) bshow  
TKKK

/jend 57 3 mul 1 add def
0 1 57 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /iy iy0t iy0ds sub i iyd0130 mul sub def
       /iydd i 48 le {i 8 idiv} {6} ifelse 80 mul def
       /iy iy iydd sub def
       ix2 50 sub iy moveto i 9 le {(0) show} if
       i cvishow (  ) nshow coltext 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.000001 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 0.000001 add div trushow4
        ix11 iy moveto XYZra089 i31 get sumXYZra089 0.000001 add div trushow4
        ix12 iy moveto XYZra089 i31 get XYZra089 jend get div trushow4
      } for
} if %xchart=2


xchart 4 ge {%xchart>=4

/jW 57 3 mul def %W
/Xwref089 XYZra089 jW get def
/Ywref089 XYZra089 jW 1 add get def
/Zwref089 XYZra089 jW 2 add get def

/jN 49 3 mul def %N
/YrN XYZra089 jN 1 add get def

/Xnref089 YrN XLN001 mul def
/Ynref089 YrN def
/Znref089 YrN ZLN001 mul def

/LAB*na089 174 array def
/XYZna089  174 array def

0 1 57 {/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 Xwref089 Xwref089 Xnref089 sub div mul put
         XYZna089 i31 XYZra089 i31 get Ynref089 sub Ywref089 Ywref089 Ynref089 sub div mul put
         XYZna089 i32 XYZra089 i32 get Znref089 sub Zwref089 Zwref089 Znref089 sub div mul put
        } for %i=0,57

0 1 57 {/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,57
} if %xchart>+4

xchart 4 eq {%xchart=4
/iy iy0t iy0ds sub iyd0130 add 30 add 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 (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


/jend 8 3 mul 1 add def
/i 7 def %W /i31 i 3 mul 1 add def
/nfak XYZna089 i31 get XYZna089 i31 get Ynref089 sub div def

0 1 57 {/i exch def %i=0,57
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /iy iy0t iy0ds sub i iyd0130 mul sub def
       /iydd i 48 le {i 8 idiv} {6} ifelse 80 mul def
       /iy iy iydd sub def
       ix2 50 sub iy moveto i 9 le {(0) show} if
       i cvishow (  ) nshow coltext 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.000001 add atan cvishow
        ix7 iy moveto XYZna089 i30 get troshow
        ix8 iy moveto XYZna089 i31 get troshow
        ix9 iy moveto XYZna089 i32 get troshow
        /sumXYZna089 XYZna089 i30 get
                     XYZna089 i31 get add
                     XYZna089 i32 get add def
        ix10 iy moveto XYZna089 i30 get sumXYZna089 0.000001 add div trushow4
        ix11 iy moveto XYZna089 i31 get sumXYZna089 0.000001 add div trushow4
        ix12 iy moveto XYZna089 i31 get XYZna089 jend get div trushow4

      } for %i=0,57

ix8 iy iyd0130 sub moveto
(n =) bishow ( ) nshow XYZna089 i31 get troshow ( / \050) show
              XYZna089 i31 get troshow ( - ) show Ynref089 troshow (\051 = ) show
              nfak cvsshow3

} if %xchart=4

xchart 6 ge {%xchart>=6

/jW 57 3 mul def %W
/Xwref089 XYZra089 jW get def
/Ywref089 XYZra089 jW 1 add get def
/Zwref089 XYZra089 jW 2 add get def

0 1 57 {/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,57

0 1 57 {/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,57

} if %xchart>=6

xchart 6 ge xchart xchart 2 idiv 2 mul eq and {%xchart=6,8,10,12,14,16,18,20 (8x)

/iy iy0t iy0ds sub iyd0130 add 30 add 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 (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


/jend 8 3 mul 1 add def
/i 7 def %W /i31 i 3 mul 1 add def
0 1 57 {/i exch def %i=0,57
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /iy iy0t iy0ds sub i iyd0130 mul sub def
       /iydd i 48 le {i 8 idiv} {6} ifelse 80 mul def
       /iy iy iydd sub def
       ix2 50 sub iy moveto i 9 le {(0) show} if
       i cvishow (  ) nshow coltext 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 0.0001 add sqrt trushow
       ix61 iy moveto LAB*la089 i32 get LAB*la089 i31 get 0.000001 add atan cvishow
        ix7 iy moveto XYZla089 i30 get troshow
        ix8 iy moveto XYZla089 i31 get troshow
        ix9 iy moveto XYZla089 i32 get troshow
        /sumXYZla089 XYZla089 i30 get
                     XYZla089 i31 get add
                     XYZla089 i32 get add def
        ix10 iy moveto XYZla089 i30 get sumXYZla089 0.000001 add div trushow4
        ix11 iy moveto XYZla089 i31 get sumXYZla089 0.000001 add div trushow4
        ix12 iy moveto XYZla089 i31 get XYZla089 jend get div trushow4
      } for %i=0,57

/nfak XYZna089 i31 get XYZna089 i31 get Ytref089 add div def
ix8 iy iyd0130 sub moveto
(n =) bishow ( ) nshow XYZna089 i31 get troshow ( / \050) show
              XYZna089 i31 get troshow ( + ) show Ytref089 troshow (\051 = ) show
              nfak cvsshow3

} if %xchart=6,8,10,12,14,16,18,20 (8x)


xchart xchart 2 idiv 2 mul ne {%%xchart=1,3,5,...

/yhoe  8500 def
/xhoe 12300 def
%         0     1     2     3     4     5
/Tcol   [(O )  (Y )  (L )  (C )  (V )  (M )  ] def
/Tcolen [(Orange red) (Yellow) (Leaf green)
         (Cyan blue) (Violet blue) (Magenta red)] def
/Tcolde [(Orangerot) (Gelb) (Laubgr\374n)
         (Cyanblau) (Violettblau) (Magentarot)] def
/xshift [ 2800 -04000 -05400 -05100  2700  2900 ] def
/yshift [ 2500   3700   1800  -2000 -2600 -0850 ] def

xhoe 0.5 mul 600 sub yhoe 0.5 mul 400 sub translate
} if %xchart=1,3,5,...

xchart 1 eq {%xchart=1
0 1 47 {/kn exch def %kn=0,47

/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/kn930 kn 1 add 3 mul def
/kn931 kn930 1 add def
/kn932 kn930 2 add def

/LAB*Lc LAB*rc089 kn830 get def
/LAB*Ac LAB*rc089 kn831 get def
/LAB*Bc LAB*rc089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def

/LAB*Lv LAB*rc089 kn930 get def
/LAB*Av LAB*rc089 kn931 get def
/LAB*Bv LAB*rc089 kn932 get def
/LAB*Cv LAB*Av dup mul LAB*Bv dup mul add 0.000001 add sqrt def
/LAB*Hv LAB*Bv LAB*Av 0.000001 add atan def

/fakt 30 def
LAB*Ac fakt mul LAB*Bc fakt mul moveto
LAB*Av fakt mul LAB*Bv fakt mul lineto stroke

newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill

} for %kn=0,47

/kn 49 def %N
/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/LAB*Lc LAB*rc089 kn830 get def
/LAB*Ac LAB*rc089 kn831 get def
/LAB*Bc LAB*rc089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def
newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill

/kn 53 def %Z
/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/LAB*Lc LAB*rc089 kn830 get def
/LAB*Ac LAB*rc089 kn831 get def
/LAB*Bc LAB*rc089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def
newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill

/kn 57 def %W
/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/LAB*Lc LAB*rc089 kn830 get def
/LAB*Ac LAB*rc089 kn831 get def
/LAB*Bc LAB*rc089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def
newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill
newpath
0.0 dup dup setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc stroke

0 1 5 {/kn exch def %kn=0,5

/kn830 kn 8 mul 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/kn930 kn 1 add 8 mul 3 mul def
/kn931 kn930 1 add def
/kn932 kn930 2 add def

/LAB*Lc LAB*rc089 kn830 get def
/LAB*Ac LAB*rc089 kn831 get def
/LAB*Bc LAB*rc089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def

/LAB*Lv LAB*rc089 kn930 get def
/LAB*Av LAB*rc089 kn931 get def
/LAB*Bv LAB*rc089 kn932 get def
/LAB*Cv LAB*Av dup mul LAB*Bv dup mul add 0.000001 add sqrt def
/LAB*Hv LAB*Bv LAB*Av 0.000001 add atan def

0 setgray
-4000 0 moveto 8000 0 rlineto stroke
0 -3500 moveto 0 7500 rlineto stroke
3800 70 moveto 200 -70 rlineto -200 -70 rlineto closepath fill
-70 3800 moveto 70 200 rlineto 70 -200 rlineto closepath fill

/fakt 30 def
LAB*Ac fakt mul LAB*Bc fakt mul moveto
LAB*Av fakt mul LAB*Bv fakt mul lineto stroke

xshift kn get
yshift kn get moveto
TBIK Tcol kn get show
TBK Tcolen kn get showen
    Tcolde kn get showde

TIK
xshift kn get
yshift kn get 350 sub moveto
(LCH*) show %TK -30 -50 rmoveto (c) show 0 50 rmoveto 
TK ( = ) show
LAB*Lc cvsshow1 (  ) show
LAB*Cc cvsshow1 (  ) show
LAB*Hc round cvi cvishow

TIK
xshift kn get
yshift kn get 700 sub moveto
(LAB*) show %TK -30 -50 rmoveto (c) show 0 50 rmoveto
TK ( = ) show
LAB*Lc cvsshow1 (  ) show
LAB*Ac cvsshow1 (  ) show
LAB*Bc cvsshow1

newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill
0 setgray
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc stroke

} for %kn=0,5

0300 3900 moveto TBIK (standard ) showen (Standard\255) showde
                 TBK (CIELAB) show
                 TBIK ( \050 a*) show
                 %TBKK -30 -50 rmoveto (c) show 0 50 rmoveto
                 TBIK (, b*) show
                 %TBKK -30 -50 rmoveto (c) show 0 50 rmoveto      
                 TBIK (\051) show
                 TBK ( chroma diagram) showen
                     (\255Diagramm) showde

TBIK
3500 0150 moveto (a*) show %TBKK -30 -50 rmoveto (c) show 0 50 rmoveto
-300 4000 moveto (b*) show %TBKK -30 -50 rmoveto (c) show 0 50 rmoveto

} if %xchart=1

xchart 3 eq {%xchart=1
0 1 47 {/kn exch def %kn=0,47

/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/kn930 kn 1 add 3 mul def
/kn931 kn930 1 add def
/kn932 kn930 2 add def

/LAB*Lc LAB*ra089 kn830 get def
/LAB*Ac LAB*ra089 kn831 get def
/LAB*Bc LAB*ra089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def

/LAB*Lv LAB*ra089 kn930 get def
/LAB*Av LAB*ra089 kn931 get def
/LAB*Bv LAB*ra089 kn932 get def
/LAB*Cv LAB*Av dup mul LAB*Bv dup mul add 0.000001 add sqrt def
/LAB*Hv LAB*Bv LAB*Av 0.000001 add atan def

/fakt 30 def
LAB*Ac fakt mul LAB*Bc fakt mul moveto
LAB*Av fakt mul LAB*Bv fakt mul lineto stroke

newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill

} for %kn=0,47

/kn 49 def %N
/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/LAB*Lc LAB*ra089 kn830 get def
/LAB*Ac LAB*ra089 kn831 get def
/LAB*Bc LAB*ra089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def
newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill

/kn 53 def %Z
/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/LAB*Lc LAB*ra089 kn830 get def
/LAB*Ac LAB*ra089 kn831 get def
/LAB*Bc LAB*ra089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def
newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill

/kn 57 def %W
/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/LAB*Lc LAB*ra089 kn830 get def
/LAB*Ac LAB*ra089 kn831 get def
/LAB*Bc LAB*ra089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def
newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill
newpath
0.0 dup dup setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc stroke

0 1 5 {/kn exch def %kn=0,5

/kn830 kn 8 mul 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/kn930 kn 1 add 8 mul 3 mul def
/kn931 kn930 1 add def
/kn932 kn930 2 add def

/LAB*Lc LAB*ra089 kn830 get def
/LAB*Ac LAB*ra089 kn831 get def
/LAB*Bc LAB*ra089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def

/LAB*Lv LAB*ra089 kn930 get def
/LAB*Av LAB*ra089 kn931 get def
/LAB*Bv LAB*ra089 kn932 get def
/LAB*Cv LAB*Av dup mul LAB*Bv dup mul add 0.000001 add sqrt def
/LAB*Hv LAB*Bv LAB*Av 0.000001 add atan def

0 setgray
-4000 0 moveto 8000 0 rlineto stroke
0 -3500 moveto 0 7500 rlineto stroke
3800 70 moveto 200 -70 rlineto -200 -70 rlineto closepath fill
-70 3800 moveto 70 200 rlineto 70 -200 rlineto closepath fill

/fakt 30 def
LAB*Ac fakt mul LAB*Bc fakt mul moveto
LAB*Av fakt mul LAB*Bv fakt mul lineto stroke

xshift kn get
yshift kn get moveto
TBIK Tcol kn get show
TBK Tcolen kn get showen
    Tcolde kn get showde

TIK
xshift kn get
yshift kn get 350 sub moveto
(LCH*) show TK -30 -50 rmoveto (a) show 0 50 rmoveto TK ( = ) show
LAB*Lc cvsshow1 (  ) show
LAB*Cc cvsshow1 (  ) show
LAB*Hc round cvi cvishow

TIK
xshift kn get
yshift kn get 700 sub moveto
(LAB*) show TK -30 -50 rmoveto (a) show 0 50 rmoveto TK ( = ) show
LAB*Lc cvsshow1 (  ) show
LAB*Ac cvsshow1 (  ) show
LAB*Bc cvsshow1

newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill
0 setgray
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc stroke

} for %kn=0,5

0300 3900 moveto TBIK (adapted) showen (adaptiertes) showde
                 TBK ( CIELAB) show
                 TBIK ( \050 a*) show
                 TBKK -30 -50 rmoveto (a) show 0 50 rmoveto
                 TBIK (, b*) show
                 TBKK -30 -50 rmoveto (a) show 0 50 rmoveto      
                 TBIK (\051) show
                 TBK ( chroma diagram) showen
                     (\255Diagramm) showde

TBIK
3400 0150 moveto (a*) show TBKK -30 -50 rmoveto (a) show 0 50 rmoveto
-400 4000 moveto (b*) show TBKK -30 -50 rmoveto (a) show 0 50 rmoveto

} if %xchart=3

xchart 5 eq {%xchart=5
0 1 47 {/kn exch def %kn=0,47

/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/kn930 kn 1 add 3 mul def
/kn931 kn930 1 add def
/kn932 kn930 2 add def

/LAB*Lc LAB*na089 kn830 get def
/LAB*Ac LAB*na089 kn831 get def
/LAB*Bc LAB*na089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def

/LAB*Lv LAB*na089 kn930 get def
/LAB*Av LAB*na089 kn931 get def
/LAB*Bv LAB*na089 kn932 get def
/LAB*Cv LAB*Av dup mul LAB*Bv dup mul add 0.000001 add sqrt def
/LAB*Hv LAB*Bv LAB*Av 0.000001 add atan def

/fakt 30 def
LAB*Ac fakt mul LAB*Bc fakt mul moveto
LAB*Av fakt mul LAB*Bv fakt mul lineto stroke

newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill

} for %kn=0,47

/kn 49 def %N
/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/LAB*Lc LAB*na089 kn830 get def
/LAB*Ac LAB*na089 kn831 get def
/LAB*Bc LAB*na089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def
newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill

/kn 53 def %Z
/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/LAB*Lc LAB*na089 kn830 get def
/LAB*Ac LAB*na089 kn831 get def
/LAB*Bc LAB*na089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def
newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill

/kn 57 def %W
/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/LAB*Lc LAB*na089 kn830 get def
/LAB*Ac LAB*na089 kn831 get def
/LAB*Bc LAB*na089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def
newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill
newpath
0.0 dup dup setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc stroke

0 1 5 {/kn exch def %kn=0,5

/kn830 kn 8 mul 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/kn930 kn 1 add 8 mul 3 mul def
/kn931 kn930 1 add def
/kn932 kn930 2 add def

/LAB*Lc LAB*na089 kn830 get def
/LAB*Ac LAB*na089 kn831 get def
/LAB*Bc LAB*na089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def

/LAB*Lv LAB*na089 kn930 get def
/LAB*Av LAB*na089 kn931 get def
/LAB*Bv LAB*na089 kn932 get def
/LAB*Cv LAB*Av dup mul LAB*Bv dup mul add 0.000001 add sqrt def
/LAB*Hv LAB*Bv LAB*Av 0.000001 add atan def

0 setgray
-4000 0 moveto 8000 0 rlineto stroke
0 -3500 moveto 0 7500 rlineto stroke
3800 70 moveto 200 -70 rlineto -200 -70 rlineto closepath fill
-70 3800 moveto 70 200 rlineto 70 -200 rlineto closepath fill

/fakt 30 def
LAB*Ac fakt mul LAB*Bc fakt mul moveto
LAB*Av fakt mul LAB*Bv fakt mul lineto stroke

xshift kn get
yshift kn get moveto
TBIK Tcol kn get show
TBK Tcolen kn get showen
    Tcolde kn get showde

TIK
xshift kn get
yshift kn get 350 sub moveto
(LCH*) show TK -30 -50 rmoveto (a) show 0 50 rmoveto TK ( = ) show
LAB*Lc cvsshow1 (  ) show
LAB*Cc cvsshow1 (  ) show
LAB*Hc round cvi cvishow

TIK
xshift kn get
yshift kn get 700 sub moveto
(LAB*) show TK -30 -50 rmoveto (a) show 0 50 rmoveto TK ( = ) show
LAB*Lc cvsshow1 (  ) show
LAB*Ac cvsshow1 (  ) show
LAB*Bc cvsshow1

newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill
0 setgray
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc stroke

} for %kn=0,5


0300 3900 moveto TBIK (adapted) showen (adaptiertes) showde
                 TBK ( CIELAB) show
                 TBIK ( \050 a*) show
                 TBKK -30 -50 rmoveto (a) show 0 50 rmoveto
                 TBIK (, b*) show
                 TBKK -30 -50 rmoveto (a) show 0 50 rmoveto      
                 TBIK (\051) show
                 TBK ( chroma diagram) showen
                     (\255Diagramm) showde

TBIK
3300 0150 moveto (a*) show TBKK -30 -50 rmoveto (a) show 0 50 rmoveto
-500 4000 moveto (b*) show TBKK -30 -50 rmoveto (a) show 0 50 rmoveto

} if %xchart=5

xchart 7 ge xchart xchart 2 idiv 2 mul ne and {%xchart=7,9,11,13,15,17,19,21 (8x)

0 1 47 {/kn exch def %kn=0,47
/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/kn930 kn 1 add 3 mul def
/kn931 kn930 1 add def
/kn932 kn930 2 add def

/LAB*Lc LAB*la089 kn830 get def
/LAB*Ac LAB*la089 kn831 get def
/LAB*Bc LAB*la089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def

/LAB*Lv LAB*la089 kn930 get def
/LAB*Av LAB*la089 kn931 get def
/LAB*Bv LAB*la089 kn932 get def
/LAB*Cv LAB*Av dup mul LAB*Bv dup mul add 0.000001 add sqrt def
/LAB*Hv LAB*Bv LAB*Av 0.000001 add atan def

/fakt 30 def
LAB*Ac fakt mul LAB*Bc fakt mul moveto
LAB*Av fakt mul LAB*Bv fakt mul lineto stroke

newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill

} for %kn=0,47

/kn 49 def %N
/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/LAB*Lc LAB*la089 kn830 get def
/LAB*Ac LAB*la089 kn831 get def
/LAB*Bc LAB*la089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def
newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill

/kn 53 def %Z
/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/LAB*Lc LAB*la089 kn830 get def
/LAB*Ac LAB*la089 kn831 get def
/LAB*Bc LAB*la089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def
newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill

/kn 57 def %W
/kn830 kn 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/LAB*Lc LAB*la089 kn830 get def
/LAB*Ac LAB*la089 kn831 get def
/LAB*Bc LAB*la089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def
newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill
newpath
0.0 dup dup setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc stroke

0 1 5 {/kn exch def %kn=0,5

/kn830 kn 8 mul 3 mul def
/kn831 kn830 1 add def
/kn832 kn830 2 add def
/kn930 kn 1 add 8 mul 3 mul def
/kn931 kn930 1 add def
/kn932 kn930 2 add def

/LAB*Lc LAB*la089 kn830 get def
/LAB*Ac LAB*la089 kn831 get def
/LAB*Bc LAB*la089 kn832 get def
/LAB*Cc LAB*Ac dup mul LAB*Bc dup mul add 0.000001 add sqrt def
/LAB*Hc LAB*Bc LAB*Ac 0.000001 add atan def

/LAB*Lv LAB*la089 kn930 get def
/LAB*Av LAB*la089 kn931 get def
/LAB*Bv LAB*la089 kn932 get def
/LAB*Cv LAB*Av dup mul LAB*Bv dup mul add 0.000001 add sqrt def
/LAB*Hv LAB*Bv LAB*Av 0.000001 add atan def

0 setgray
-4000 0 moveto 8000 0 rlineto stroke
0 -3500 moveto 0 7500 rlineto stroke
3800 70 moveto 200 -70 rlineto -200 -70 rlineto closepath fill
-70 3800 moveto 70 200 rlineto 70 -200 rlineto closepath fill

/fakt 30 def
LAB*Ac fakt mul LAB*Bc fakt mul moveto
LAB*Av fakt mul LAB*Bv fakt mul lineto stroke

xshift kn get
yshift kn get moveto
TBIK Tcol kn get show
TBK Tcolen kn get showen
    Tcolde kn get showde

TIK
xshift kn get
yshift kn get 350 sub moveto
(LCH*) show TK -30 -50 rmoveto (a) show 0 50 rmoveto TK ( = ) show
LAB*Lc cvsshow1 (  ) show
LAB*Cc cvsshow1 (  ) show
LAB*Hc round cvi cvishow

TIK
xshift kn get
yshift kn get 700 sub moveto
(LAB*) show TK -30 -50 rmoveto (a) show 0 50 rmoveto TK ( = ) show
LAB*Lc cvsshow1 (  ) show
LAB*Ac cvsshow1 (  ) show
LAB*Bc cvsshow1

newpath
RGB kn830 get
RGB kn831 get
RGB kn832 get
setrgbcolor
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc fill
0 setgray
LAB*Ac fakt mul LAB*Bc fakt mul 100 0 360 arc stroke

} for %kn=0,5

0300 3900 moveto TBIK (adapted) showen (adaptiertes) showde
                 TBK ( CIELAB) show
                 TBIK ( \050 a*) show
                 TBKK -30 -50 rmoveto (a) show 0 50 rmoveto
                 TBIK (, b*) show
                 TBKK -30 -50 rmoveto (a) show 0 50 rmoveto      
                 TBIK (\051) show
                 TBK ( chroma diagram) showen
                     (\255Diagramm) showde

TBIK
3300 0150 moveto (a*) show TBKK -30 -50 rmoveto (a) show 0 50 rmoveto
-500 4000 moveto (b*) show TBKK -30 -50 rmoveto (a) show 0 50 rmoveto

} if %xchart=7,9,11,..

xchart xchart 2 idiv 2 mul ne {%xchart=1,3,5,-,7,9,11,13,15,17,19,21 (8x)
/Tx [(-1.0) (-0.5) ( ) (  0.5) (  1.0)] def

TK
30 setlinewidth
0 1 4 {/i exch def
        -50 -3000 i 1500 mul add moveto 100 0 rlineto stroke
        -610 -3100 i 1500 mul add moveto Tx i get show
        } for


0 1 4 {/i exch def
        -3000 i 1500 mul add -50 moveto 0 100 rlineto stroke
        -3300 i 1500 mul add 130 moveto Tx i get show} for

xhoe 0.5 mul 600 sub neg yhoe 0.5 mul 400 sub neg translate

} if %xchart=1,3,5,...

showpage
grestore

%} for %xchartl=0,43

%%Trailer