%!PS-Adobe-3.0 EPSF-3.0 IE360-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/IE36/)
  /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

/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

/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

/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

/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 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 {iyd /Times-ISOL1 FS show} def
/tspace {dup abs 1.0 le {(   ) show} if
         dup dup -1.0 le exch -10 gt and {(  ) show} if
         dup dup 1.0 gt exch  10 lt and {(   ) show} if
         dup dup 1.0 gt exch  10 ge and {( ) show} if
            } bind def

/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  {iyd /Times-ISOL1 FS show} def
/kshow  {iyd /TimesI-ISOL1 FS show} def
/bshow  {iyd /TimesB-ISOL1 FS show} def
/bishow {iyd /TimesBI-ISOL1 FS show} def
/TBind {iyd 20 sub /TimesB-ISOL1 FS} bind def
/ishow {TBind 0 -20 rmoveto 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 65 {/xchartl exch def %xchartl=0,65

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
     ( IE360-7A, ) 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
( 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 22 mul xchart add 1 add cvishow (/66) 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  1400 def
/ixx  2000 def
/ixd  800 def
/iyd  130 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
/iy00 iy 250 sub def
/iyd0130  126 def
/iy0d  1510 def
/iy01 iy00 iy0d sub def
/iy02 iy01 iy0d sub def
/iy03 iy02 iy0d sub def
/iy04 iy03 iy0d sub def
/iy05 iy04 iy0d sub def
/iy0t iy01 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
        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 iy0d 3.75 mul def       
/iy iy01 iy0ds sub iyd add 250 add def
xchart 4 ge {/L*N 0 def} if
20 iy moveto
195 /TimesB-ISOL1 FS
(Farbmetrische Daten von "Norm\255Original": ) showde
(Colorimetric data of "Standard Original": ) showen

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
( 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
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 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
20 iy 200 sub moveto 170 /TimesB-ISOL1 FS
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

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

%20 iy iyd 1 mul sub moveto
%lanind 0 eq {(und CIELAB Nullpunkt\051 )} {(and CIELAB cero point\051 )} ifelse
%             bshow
%20 iy iyd 2 mul sub moveto
%lanind 0 eq {(\050 CIELAB ) } {(\050CIELAB according )} ifelse
%             bshow
%20 iy iyd 3 mul sub moveto
%lanind 0 eq {(nach ISO/IEC 15775\051)} {(to ISO/IEC 15775\051)} ifelse
%             bshow


xchart 0 eq {%xchart=0
/iy iy01 iy0ds sub iyd 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 (c) ishow (=LAB*) bishow (1c) ishow
ix4 iy moveto (a*) bishow (c) ishow (=LAB*) bishow (2c) ishow
ix5 iy moveto (b*) bishow (c) ishow (=LAB*) bishow (3c) ishow
ix6 iy moveto (C*) bishow (ab,c) ishow (=LAB*) bishow (rc) ishow
ix61 iy moveto (h) bishow (ab,c) ishow
ix7 iy moveto (X) bishow (c) ishow (=XYZ) bishow (1c) ishow
ix8 iy moveto (Y) bishow (c) ishow (=XYZ) bishow (2c) ishow
ix9 iy moveto (Z) bishow (c) ishow (=XYZ) bishow (3c) ishow
ix10 iy moveto (x) bishow (c) ishow
ix11 iy moveto (y) bishow (c) ishow
ix12 100 sub iy moveto (Y) bishow (c) ishow (/88.59) bshow  
iyd /Times-ISOL1 FS


/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 iy01 iy0ds sub iyd 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  
iyd /Times-ISOL1 FS


/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 iy01 iy0ds sub iyd 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 iyd 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 Xwref089 Xtref089 sub Xwref089 div mul Xtref089 add put
       XYZla089 i31 XYZna089 i31 get Ywref089 Ytref089 sub Ywref089 div mul Ytref089 add put
       XYZla089 i32 XYZna089 i32 get Zwref089 Ztref089 sub Zwref089 div mul Ztref089 add 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 iy01 iy0ds sub iyd 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*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
      
ix8 iy iyd sub moveto
(n =) bishow ( ) nshow XYZla089 i31 get troshow ( / \050) show
              XYZla089 i31 get troshow ( - ) show Ynref089 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 [(-100) (  -50) ( ) (  50) (  100)] 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,65

%%Trailer