%!PS-Adobe-3.0 EPSF-3.0 BG901-1N_95
%%BoundingBox: 70 83 228 206

%START PDFDE011.EPS
/pdfmark11 where {pop} {userdict /pdfmark11 /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/BG90/)
  /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@me.com)
  /CreationDate (D:2013090112000)
  /ModDate (D:2013090112000)
/DOCINFO pdfmark11
[ /View [ /FitB ]
/DOCVIEW pdfmark11
%END  PDFDE011

%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq 
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub 
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} bind def

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

/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

/Courier findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Courier-ISOL1 exch definefont pop

/Courier-Oblique findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierI-ISOL1 exch definefont pop

/Courier-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierB-ISOL1 exch definefont pop

/Courier-BoldOblique findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierBI-ISOL1 exch definefont pop

/TG   {350 /Times-ISOL1 FS} bind def
/TM   {280 /Times-ISOL1 FS} bind def
/TK   {240 /Times-ISOL1 FS} bind def
/TS   {200 /Times-ISOL1 FS} bind def
/TL   {160 /Times-ISOL1 FS} bind def

/TIG  {350 /TimesI-ISOL1 FS} bind def
/TIM  {280 /TimesI-ISOL1 FS} bind def
/TIK  {240 /TimesI-ISOL1 FS} bind def
/TIS  {200 /TimesI-ISOL1 FS} bind def
/TIL  {160 /TimesI-ISOL1 FS} bind def

/TBG  {350 /TimesB-ISOL1 FS} bind def
/TBM  {280 /TimesB-ISOL1 FS} bind def
/TBK  {240 /TimesB-ISOL1 FS} bind def
/TBS  {200 /TimesB-ISOL1 FS} bind def
/TBL  {160 /TimesB-ISOL1 FS} bind def

/TBIG {350 /TimesBI-ISOL1 FS} bind def
/TBIM {280 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIL {160 /TimesBI-ISOL1 FS} bind def

/SG {350 /Symbol FS} bind def
/SM {280 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SS {200 /Symbol FS} bind def
/SL {160 /Symbol FS} bind def

/CL {160 /Courier-ISOL1 FS} bind def
/CS {200 /Courier-ISOL1 FS} bind def
/CK {240 /Courier-ISOL1 FS} bind def
/CM {280 /Courier-ISOL1 FS} bind def
/CG {350 /Courier-ISOL1 FS} bind def

/CBL {160 /CourierB-ISOL1 FS} bind def
/CBS {200 /CourierB-ISOL1 FS} bind def
/CBK {240 /CourierB-ISOL1 FS} bind def
/CBM {280 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def

/ns {TG   show} bind def
/ks {TIG  show} bind def
/bs {TBG  show} bind def
/js {TBIG show} bind def
/sy {SG   show} bind def
/is {TM  0 -90 rmoveto show 0   90 rmoveto TG} bind def
/es {TM  0 200 rmoveto show 0 -200 rmoveto TG} bind def
/ib {TBM 0 -90 rmoveto show 0   90 rmoveto TG} bind def
/eb {TBM 0 200 rmoveto show 0 -200 rmoveto TG} bind def
/ip {TM 50  50 rmoveto (\267) show 50 -50 rmoveto TG} bind def

%20% kleiner
/ns2 {TM   show TM} bind def
/ks2 {TIM  show TM} bind def
/bs2 {TBM  show TM} bind def
/js2 {TBIM show TM} bind def
/sy2 {SM   show TM} bind def
/is2 {TK  0 -70 rmoveto show 0   70 rmoveto TM} bind def
/es2 {TK  0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ib2 {TBK 0 -70 rmoveto show 0   70 rmoveto TM} bind def
/eb2 {TBK 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ip2 {TK 40  40 rmoveto (\267) show 40 -40 rmoveto TM} bind def
/iy2 {SK  0 -70 rmoveto show 0   70 rmoveto TM} bind def

%40% kleiner
/ns4 {TK   show TK} bind def
/ks4 {TIK  show TK} bind def
/bs4 {TBK  show TK} bind def
/js4 {TBIK show TK} bind def
/ss4 {SK   show TK} bind def
/is4 {TS  0 -60 rmoveto show 0   60 rmoveto TK} bind def
/es4 {TS  0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ib4 {TBS 0 -60 rmoveto show 0   60 rmoveto TK} bind def
/eb4 {TBS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ip4 {TS  30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def
/iy4 {SS  0 -60 rmoveto show 0   60 rmoveto TK} bind def

%60% kleiner
/ns6 {TS   show TS} bind def
/ks6 {TIS  show TS} bind def
/bs6 {TBS  show TS} bind def
/js6 {TBIS show TS} bind def
/ss6 {SS   show TS} bind def
/is6 {TL 0 -50 rmoveto show 0 50 rmoveto TS} bind def
/es6 {TL 0 110 rmoveto show 0 -110 rmoveto TS} bind def
/ib6 {TBL 0 -50 rmoveto show 0 50 rmoveto TS} bind def
/eb6 {TBL 0 110 rmoveto show 0 -110 rmoveto TS} bind def
/ip6 {TL 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind def
/iy6 {SL 0 -50 rmoveto show 0 50 rmoveto TS} bind def

/CK {240 /Courier-ISOL1 FS} bind def
/CM {280 /Courier-ISOL1 FS} bind def
/CG {350 /Courier-ISOL1 FS} bind def

/CBV {160 /CourierB-ISOL1 FS} bind def
/CBS {200 /CourierB-ISOL1 FS} bind def
/CBK {240 /CourierB-ISOL1 FS} bind def
/CBM {280 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def

/ns {350 /Times-ISOL1 FS  show} bind def
/ks {350 /TimesI-ISOL1 FS  show} bind def
/bs {350 /TimesB-ISOL1 FS  show} bind def
/js {350 /TimesBI-ISOL1 FS  show} bind def
/sy {350 /Symbol FS  show} bind def
/is {280 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/es {280 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
/ib {280 /TimesB-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/eb {280 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
/ip {280 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def

%20% kleiner
/ns2 {280 /Times-ISOL1 FS  show TM} bind def
/ks2 {280 /TimesI-ISOL1 FS  show TM} bind def
/bs2 {280 /TimesB-ISOL1 FS  show TM} bind def
/js2 {280 /TimesBI-ISOL1 FS  show TM} bind def
/sy2 {280 /Symbol FS  show TM} bind def
/is2 {240 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def
/es2 {240 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ib2 {240 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def
/eb2 {240 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ip2 {240 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def
/iy2 {240 /Symbol FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def

%40% kleiner
/ns4 {240 /Times-ISOL1 FS  show TK} bind def
/ks4 {240 /TimesI-ISOL1 FS  show TK} bind def
/bs4 {240 /TimesB-ISOL1 FS  show TK} bind def
/js4 {240 /TimesBI-ISOL1 FS  show TK} bind def
/ss4 {240 /Symbol FS  show TK} bind def
/is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def
/iy4 {200 /Symbol FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def

%60% kleiner
/ns6 {200 /Times-ISOL1 FS  show TS} bind def
/ks6 {200 /TimesI-ISOL1 FS  show TS} bind def
/bs6 {200 /TimesB-ISOL1 FS  show TS} bind def
/js6 {200 /TimesBI-ISOL1 FS  show TS} bind def
/ss6 {200 /Symbol FS  show TS} bind def
/is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def
/es6 {160 /Times-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def
/ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def
/eb6 {160 /TimesB-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def
/ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind def
/iy6 {160 /Symbol FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def

/cvicvs  {cvi 6 string cvs} def
/cvishow {cvi 6 string cvs show ( ) show} def
/cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def
/cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def
/cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def
/cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def
/cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def

/cvsshow1x {/nxx exch def                              %example nxx=99.1/99.0
             nxx 0 lt {(-) show /nxx nxx abs def} if
             nxx 10 mul cvi /nxi exch def              %nxi=991/990
             nxi 10 idiv /nxa exch def                 %nxa=99
             nxi nxa 10 mul sub /nxb exch def          %nxb=1/0
             nxa cvishow (,) show                      %nxa=99
             nxb cvishow                               %nxb=1/0
           } def
/cvsshow2x {/nxx exch def                              %example nxx=99.12/99,02/99,00
             nxx 0 lt {(-) show /nxx nxx abs def} if
             nxx 100 mul cvi /nxi exch def             %nxi=9912/9902/00
             nxi 100 idiv /nxa exch def                %nxa=99
             nxi nxa 100 mul sub /nxb exch def         %nxb=12/02/00
             nxa cvishow (,) show                      %nxb=99,
             nxb 10 ge {nxb cvishow} if                %nxb=12
             nxb  1 ge
             nxb  9 le and {(0) show nxb cvishow} if   %nxb=02
             nxb  0 eq {(00) show} if                  %nxb=00
           } def
/cvsshow3x {/nxx exch def                              %example nxx=99.123/99.012/99.001/99.000
             nxx 0 lt {(-) show /nxx nxx abs def} if
             nxx 1000 mul cvi /nxi exch def            %nxi=99123/99012/99001/99000
             nxi 1000 idiv /nxa exch def               %nxa=99
             nxi nxa 1000 mul sub /nxb exch def        %nxb=123/012/001/000
             nxa cvishow (,) show                      %nxb=99,
             nxb 100 ge {nxb cvishow} if               %nxb=123/012/001/000
             nxb  10 ge
             nxb  99 le and {(0) show nxb cvishow} if  %nxb=012
             nxb   1 ge
             nxb   9 le and {(00) show nxb cvishow} if %nxb=001
             nxb   0 eq {(000) show} if                %nxb=000
           } def
/cvsshow4x {/nxx exch def                               %example nxx=99.1234/99.0123/99.0010/99.0001
             nxx 0 lt {(-) show /nxx nxx abs def} if
             nxx 10000 mul cvi /nxi exch def            %nxi=991234/990123/990010/990000
             nxi 10000 idiv /nxa exch def               %nxa=99
             nxi nxa 10000 mul sub /nxb exch def        %nxb=1234/0123/0010/0001
             nxa cvishow (,) show                       %nxb=99,
             nxb 1000 ge {nxb cvishow} if               %nxb=1234/0123/0010/0001
             nxb  100 ge
             nxb  999 le and {(0) show nxb cvishow} if  %nxb=012
             nxb   10 ge
             nxb   99 le and {(00) show nxb cvishow} if %nxb=012
             nxb   1 ge
             nxb   9 le and {(000) show nxb cvishow} if %nxb=001
             nxb   0 eq {(000) show} if                 %nxb=000
           } 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
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 0 def /lanind2 0 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 0 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 1 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 8 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart xchart3 lt {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

/xchart8 1 def %only local
%for xchart8=0
/SP60 80 array def %380 bis 775 mit deltalambda=05
/SP55 80 array def %380 bis 775 mit deltalambda=05
/SP50 80 array def %380 bis 775 mit deltalambda=05
/SP45 80 array def %380 bis 775 mit deltalambda=05
/SP40 80 array def %380 bis 775 mit deltalambda=05
/SP35 80 array def %380 bis 775 mit deltalambda=05
/SP30 80 array def %380 bis 775 mit deltalambda=05
/SP25 80 array def %380 bis 775 mit deltalambda=05
%for xchart8=1
/SD65 80 array def %380 bis 775 mit deltalambda=05
/SD50 80 array def %380 bis 775 mit deltalambda=05
/SP40 80 array def %380 bis 775 mit deltalambda=05
/SA00 80 array def %380 bis 775 mit deltalambda=05
/SE00 80 array def %380 bis 775 mit deltalambda=05
/SC00 80 array def %380 bis 775 mit deltalambda=05
/SP00 80 array def %380 bis 775 mit deltalambda=05
/SQ00 80 array def %380 bis 775 mit deltalambda=05

/SDAK 80 array def %380 bis 775 mit deltalambda=05
/RA   80 array def %380 bis 770 nm
/F2  240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm
/F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm
/F10 240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm

%C
%C      LITERATURQUELLEN  LICHTARTEN
%C      SA,SC,SD65,  CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 1.1.1, SEITE 81
%C      SD55,SD75,   CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 1.1.4, SEITE 85
%C                   LINEAR INTERPOLIERT VON 5 ZU 5NM
%C      SG,SP,SXE,   DIN 5033, BLATT 7 ,SEITE 8-9
%C                   AUSGABE  1966

/SD65 %80 data 5 nm
[50.0  52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 
 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 
 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 
 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 
 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 
 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 
 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 
 46.4 56.6 66.8 65.1] def

/SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS
[24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9
 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2
 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6
102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3
 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4
 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1
 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7
 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used

/SA00 %80 data 5 nm CIE 15.3  Seite 30; aus JE540-1N.PS
[9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99
 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30
 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06
 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44
 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39
 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42
 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12
 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41
 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59
 232.12 234.59 237.01 239.37 0.0] def %0.0 not used

% AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92
%C     PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI-
%C     LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA  
%C     BEI GEGEBENER TEMPERATUR T                                        
%C     VERWENDETE VARIABLE                                               
%C        T                   TEMPERATUR                                 
%C        C2                  PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) 
%C        LAMDA(I)            WELLENLAENGE                               
%C        S(I)                STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS 
%C                                                                       
%C     LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION,       
%C               CA. 1969, SEITE 21 UND TABELLE 1.1.1                    
%C                                                                       
%SDP4 80 array def %380 bis 775 mit deltalambda=05
%      DO 50 I=1,54                                                      
%   50 S(I)=100.
%     1*(560./FLOAT(LAMDA(I)))**5
%     2*(EXP(C2/(560.*10.**(-7)*T))-1.)
%     3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.)

%new CIE 15.3:2004, Eq. (3.1) page 2
%S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560   )} - 1]
%                           /[exp{(c2*10**7)/(TNC*lambda)} - 1]
% exp = e {...} = 2.71 {...} 

/EE 2.718281 def %e=mac pocket calculator
/C2 1.4350000 10 7 exp mul def
/lamd 80 array def

/TNCj 8 array def
/TNCj [6000 5500 5000 4500 4000 3500 3000 2500] def

0 1 7 {/j exch def %j=0,7
0 1 79 {%i=0,79
        /i exch def
        /lambda 380 i 5 mul add def
        lamd i lambda put
        /E1 560 lambda div 5 exp def

        /E4 C2 TNCj j get 560    mul div def
        /E5 C2 TNCj j get lambda mul div def

        /E6 EE E4 exp def
        /E7 EE E5 exp def

        j 0 eq {SP60 i} if
        j 1 eq {SP55 i} if
        j 2 eq {SP50 i} if
        j 3 eq {SP45 i} if
        j 4 eq {SP40 i} if
        j 5 eq {SP35 i} if
        j 6 eq {SP30 i} if
        j 7 eq {SP25 i} if

        E1 100 mul E6 1 sub
                   E7 1 sub div mul
        put
       } for %i=0,79
       } for %j=0,7

/xex 10 2 exp def
/yex EE 2 exp def

/SE00 %80 data 5 nm
[100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used

/SC00 %80 data 5 nm
[ 33.00  39.92  47.40  55.17  63.30  71.81  80.60  89.53  98.10 105.80
 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09
 123.90 122.92 120.70 116.90 112.10 106.98 102.30  98.81  96.90  96.78
  98.00  99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15
  97.80  95.43  93.20  91.22  89.70  88.83  88.40  88.19  88.10  88.06
  88.00  87.86  87.80  87.99  88.20  88.20  87.90  87.22  86.30  85.30
  84.00  82.21  80.20  78.24  76.30  74.36  72.40  70.40  68.30  66.30
  64.40  62.80  61.50  60.20  59.20  58.50  58.10  58.00  58.20  58.50
 ] def %0.0 not used
 
0 1 79 {/i exch def %i=0,79
        /lamda 380 i 5 mul add def
        SP00 i SE00 i get lamda 560 div mul put
        SQ00 i SE00 i get 560 lamda div mul put
       } for %i=0,79

%C      LITERATURQUELLEN  SPEKTRALWERTE
%C       F2          CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 2.1, SEITE 93-102

/F2  %3x80 data
[.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 
 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 
 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 
 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 
 .7621
 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 
 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 
 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 
 .004109 .002899 .002049 .001440 .0009999 .0006901 
 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 
 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 
 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 
 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 
 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 
 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 
 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 
 .01192 .00821 .005723 .004102 .002929 .002091 .001484 
 .001047 .00074 .00052 .0003611 .0002492 .0001719 
 .00012 .0000848 .00006 .0000424 .00003 .0000212 
 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 
 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 
 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 
 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 
 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 
 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20
 0.0 0.0 0.0 0.0 0.0 0.0 %26
] def

/F10 %3x80 data
[.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 
 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323
  .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177
  .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 
 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 
 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 
 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 
 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 
 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 
 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 
 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 
 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 
 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 
 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 
 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 
 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 
 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 
 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 
 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 
 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 
 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 
 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 
 .001091 
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40
 0.0 0.0 0.0 0.0 %44
] def

%calculation of transformation data
/FARBE 27 array def
/FARBE [(R) (me) ( 570_770) %00
        (Y) (me) ( 510_770) %01
        (G) (me) ( 470_570) %02
        (C) (m ) ( 380_570) %03
        (B) (me) ( 380_510) %04
        (M) (m ) ( 570_470) %05
        (R) (o ) ( 570_440) %06
        (G) (o ) ( 520_570) %07
        (w) (1 ) ( 380_770) %08
       ] def

/xshift 10 array def %max 6 device + 4 elementary
/yshift 10 array def
/colori 10 array def

/RX0 640 array def %8x80
/RX0 [

%(%Rme     00 570_770)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036

%480 %485 %490 %495 %500 %505 %510 %515 %520 %525
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%530 %535 %540 %545 %550 %555 %560 %565 %570 %575
0036 0036 0036 0036 0036 0036 0036 0036 4500 9000

%580 %585 %590 %595 %600 %605 %610 %615 %620 %625
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%630 %635 %640 %645 %650 %655 %660 %665 %670 %675
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%680 %685 %690 %695 %700 %705 %710 %715 %720 %725
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%730 %735 %740 %745 %750 %755 %760 %765 %770 %775
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%(%Yme   01 510_770)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036

%480 %485 %490 %495 %500 %505 %510 %515 %520 %525
0036 0036 0036 0036 0036 0036 4500 9000 9000 9000
%530 %535 %540 %545 %550 %555 %560 %565 %570 %575
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%580 %585 %590 %595 %600 %605 %610 %615 %620 %625
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%630 %635 %640 %645 %650 %655 %660 %665 %670 %675
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%680 %685 %690 %695 %700 %705 %710 %715 %720 %725
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%730 %735 %740 %745 %750 %755 %760 %765 %770 %775
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%(%Gme    02 470_570)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
0036 0036 0036 0036 0036 0036 0036 0036 4500 9000

%480 %485 %490 %495 %500 %505 %510 %515 %520 %525
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%530 %535 %540 %545 %550 %555 %560 %565 %570 %575
9000 9000 9000 9000 9000 9000 9000 9000 4500 0036

%580 %585 %590 %595 %600 %605 %610 %615 %620 %625
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%630 %635 %640 %645 %650 %655 %660 %665 %670 %675
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036

%680 %685 %690 %695 %700 %705 %710 %715 %720 %725
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%730 %735 %740 %745 %750 %755 %760 %765 %770 %775
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036

%(%Cm     03 380_570)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%480 %485 %490 %495 %500 %505 %510 %515 %520 %525
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%530 %535 %540 %545 %550 %555 %560 %565 %570 %575
9000 9000 9000 9000 9000 9000 9000 9000 4500 0036

%580 %585 %590 %595 %600 %605 %610 %615 %620 %625
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%630 %635 %640 %645 %650 %655 %660 %665 %670 %675
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036

%680 %685 %690 %695 %700 %705 %710 %715 %720 %725
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%730 %735 %740 %745 %750 %755 %760 %765 %770 %775
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036

%(%Bme   04 380_510)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%480 %485 %490 %495 %500 %505 %510 %515 %520 %525
9000 9000 9000 9000 9000 9000 4500 0036 0036 0036
%530 %535 %540 %545 %550 %555 %560 %565 %570 %575
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036

%580 %585 %590 %595 %600 %605 %610 %615 %620 %625
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%630 %635 %640 %645 %650 %655 %660 %665 %670 %675
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036

%680 %685 %690 %695 %700 %705 %710 %715 %720 %725
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%730 %735 %740 %745 %750 %755 %760 %765 %770 %775
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036

%(%Mm     05 570_470)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
9000 9000 9000 9000 9000 9000 9000 9000 4500 0036

%480 %485 %490 %495 %500 %505 %510 %515 %520 %525
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%530 %535 %540 %545 %550 %555 %560 %565 %570 %575
0036 0036 0036 0036 0036 0036 0036 0036 4500 9000

%580 %585 %590 %595 %600 %605 %610 %615 %620 %625
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%630 %635 %640 %645 %650 %655 %660 %665 %670 %675
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%680 %685 %690 %695 %700 %705 %710 %715 %720 %725
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%730 %735 %740 %745 %750 %755 %760 %765 %770 %775
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%(%Ro      06 570_440)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
9000 9000 4500 0036 0036 0036 0036 0036 0036 0036

%480 %485 %490 %495 %500 %505 %510 %515 %520 %525
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%530 %535 %540 %545 %550 %555 %560 %565 %570 %575
0036 0036 0036 0036 0036 0036 0036 0036 4500 9000

%580 %585 %590 %595 %600 %605 %610 %615 %620 %625
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%630 %635 %640 %645 %650 %655 %660 %665 %670 %675
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%680 %685 %690 %695 %700 %705 %710 %715 %720 %725
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%730 %735 %740 %745 %750 %755 %760 %765 %770 %775
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%(%Go      07 510_570)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036

%480 %485 %490 %495 %500 %505 %510 %515 %520 %525
0036 0036 0036 0036 0036 0036 4500 9000 9000 9000
%530 %535 %540 %545 %550 %555 %560 %565 %570 %575
9000 9000 9000 9000 9000 9000 9000 9000 4500 0036

%580 %585 %590 %595 %600 %605 %610 %615 %620 %625
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%630 %635 %640 %645 %650 %655 %660 %665 %670 %675
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036

%680 %685 %690 %695 %700 %705 %710 %715 %720 %725
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036
%730 %735 %740 %745 %750 %755 %760 %765 %770 %775
0036 0036 0036 0036 0036 0036 0036 0036 0036 0036

%(%W1(r=1,000) 08 380_770)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%480 %485 %490 %495 %500 %505 %510 %515 %520 %525
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%530 %535 %540 %545 %550 %555 %560 %565 %570 %575
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%580 %585 %590 %595 %600 %605 %610 %615 %620 %625
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%630 %635 %640 %645 %650 %655 %660 %665 %670 %675
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

%680 %685 %690 %695 %700 %705 %710 %715 %720 %725
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000
%730 %735 %740 %745 %750 %755 %760 %765 %770 %775
9000 9000 9000 9000 9000 9000 9000 9000 9000 9000

] def

/xcolorl 0 def %only local
%0 1 1 {/xcolorl exch def %xcolorl=0,1

xcolorl 1 eq {0 1 239 {/i exch def %i=0,239
                       F2 i F10 i get put
                      } for %i=0,239
           } if

/YKSUM 0 def %For CIE Illuminant E
0 1 79 {/i exch def %i=0,1,79
        /YKSUM YKSUM F2  80 i add get add def
} for %i=0,1,79

/F2N 240 array def
0 1 79 {/i exch def %i=0,1,79
        F2N  00 i add F2  00 i add get YKSUM div 100 mul put
        F2N  80 i add F2  80 i add get YKSUM div 100 mul put
        F2N 160 i add F2 160 i add get YKSUM div 100 mul put
} for %i=0,1,79

/FXN 80 array def %FXN 0 = F2N imax
/FYN 80 array def
/FZN 80 array def
%defines FXN, FYN, FZN 0 to 79
0 1 79 {/i exch def %i=0,79
        FXN i F2N 000 i add get put
        FYN i F2N 080 i add get put
        FZN i F2N 160 i add get put
} for %i=0,79

%special wavelength range with complementary colours for E?
/FXD 63 array def
/FYD 63 array def
/FZD 63 array def
/DOW 63 array def

00 1 60 {/i exch def %i=0,60 %range 400..700nm
         FXD i FXN 005 i add get put
         FYD i FYN 005 i add get put
         FZD i FZN 005 i add get put
         DOW i 400 i 5 mul add put %range 400 to 700
        } for %i=0,60

%for interpolation
FXD 61 FXD 60 get put
FYD 61 FYD 60 get put
FZD 61 FZD 60 get put

FXD 62 FXD 60 get put
FYD 62 FYD 60 get put
FZD 62 FZD 60 get put

/FAD 63 array def
/FBD 63 array def
/FCD 63 array def

/xdel  1030 def
/ydel   395 def
/x0 600 def

xchart8 0 eq {%xchart8=0
/TELi [(P60) (P55) (P50) (P45) (P40) (P35) (P30) (P25)] def
             }%xchart8=0
             {%xchart8=1
/TELi [(D65) (D50) (P45) (A00) (E00) (C00) (P00) (Q00)] def
             } ifelse %xchart8=1

/Xi 79 array def %79 spectral or max 6 device colour + 4 elementary colours
/Yi 79 array def
/Zi 79 array def
/XANi 79 array def
/YANi 79 array def
/ZANi 79 array def

/xchart4l 0 def
%0 1 7 {/xchart4l exch def %xchart4l=0,7

/xchartl xchart def
0 1 7 {/xchartl exch def %xchartl=0,7

/K 0 def %for normalization 1
%/K 1 def %for normalization 0,886

gsave

5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolorl cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow

5 /Times-ISOL1 FS
180 85 moveto
(BG901-) show
xchart4l 1 add cvishow
xchart 0 ge {(A) show} if
(_) show xchart 1 add cvishow
%xchart 0 eq {(N) show}
%            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate

0.010 MM dup scale

25 setlinewidth
0 0 0 0 setcmyk_olvcolor
0 0 moveto 5400     0 rlineto 0 4000 rlineto
           5400 neg 0 rlineto closepath fill

0 0  moveto  5400 0 rlineto 0 4000 rlineto
            -5400 0 rlineto closepath clip

0 0 0 1 setcmyk_olvcolor
0 0 moveto 5400     0 rlineto 0 4000 rlineto
           5400 neg 0 rlineto closepath stroke

%calculation of XW,YW,ZW for illuminant D65, D50, ...
0 1 79 {/i exch def %i=0,79
        xchart8 0 eq {%xchart8=0
        SDAK i xchartl 0 eq {SP60 i get} if
               xchartl 1 eq {SP55 i get} if
               xchartl 2 eq {SP50 i get} if
               xchartl 3 eq {SP45 i get} if
               xchartl 4 eq {SP40 i get} if
               xchartl 5 eq {SP35 i get} if
               xchartl 6 eq {SP30 i get} if
               xchartl 7 eq {SP25 i get} if
               put
                     } if %xchart8=0
        xchart8 1 eq {%xchart8=1
        SDAK i xchartl 0 eq {SD65 i get} if
               xchartl 1 eq {SD50 i get} if
               xchartl 2 eq {SP45 i get} if
               xchartl 3 eq {SA00 i get} if
               xchartl 4 eq {SE00 i get} if
               xchartl 5 eq {SC00 i get} if
               xchartl 6 eq {SP00 i get} if
               xchartl 7 eq {SQ00 i get} if
               put
                     } if %xchart8=1
       } for %i=0,79

/YKSUM 0 def
0 1 79 {/i exch def %i=0,1,79
        /YKSUM YKSUM SDAK i get F2  80 i add get mul add def
} for %i=0,1,79

0 1 79 {/i exch def %i=0,1,79
        F2N  00 i add SDAK i get F2  00 i add get mul YKSUM div 100 mul put
        F2N  80 i add SDAK i get F2  80 i add get mul YKSUM div 100 mul put
        F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put
} for %i=0,1,79

%XW,YW,ZW for white
/XW 0 def
/YW 0 def
/ZW 0 def
0 1 079 {/i exch def %i=0,79
         /XW XW F2N  00 i add get add def
         /YW YW F2N  80 i add get add def
         /ZW ZW F2N 160 i add get add def
        } for %i=0,79

/SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00
/XANW XW SUMW div def
/YANW YW SUMW div def
/ZANW ZW SUMW div def

/AANW XW YW 0.0001 add div def
/BANW ZW YW 0.0001 add div 0.4 mul neg def

K 0 eq {%K=0
        /XK XW def
        /YK YW def
        /ZK ZW def
       }%K=0
       {%K=1
        /XK XW 0.8859 mul def
        /YK YW 0.8859 mul def
        /ZK ZW 0.8859 mul def
       } ifelse %K=1

/SUMK XK YK add ZK add def %for D65, D50, P40, A00, E00
/XANK XK SUMK div def
/YANK YK SUMK div def
/ZANK ZK SUMK div def

0 1 08 {/k exch def %k=0,8 %09 Reflections
        /kx k 80 mul def
           0 1 79 {/i exch def %i=0,79
                              RA i RX0
                              kx i add get 10000 div put %special
                     } for %i=0,79

          /X 0 def
          /Y 0 def
          /Z 0 def
          0 1 079 {/i exch def %i=0,79
                   /X X F2N  00 i add get RA i get mul add def
                   /Y Y F2N  80 i add get RA i get mul add def
                   /Z Z F2N 160 i add get RA i get mul add def
                  } for %i=0,79

         Xi k X put
         Yi k Y put
         Zi k Z put
         
         /SUM X Y add Z add def
         XANi k X SUM 0.0001 add div put
         YANi k Y SUM 0.0001 add div put
         ZANi k Z SUM 0.0001 add div put

        } for %k=0,8

K 1 eq {%K=1
        0 1 7 {/L exch def %L=0,7 only 0 to 7!
               Xi L Xi L get 0.8859 mul put
               Yi L Yi L get 0.8859 mul put
               Zi L Zi L get 0.8859 mul put
              } for %L=0,7
       } if %K=1

/xtexti 96 array def
/ytexti 96 array def
/xtexti [
%T00 T10  T20   T30   T40  T41   T50  T51   T60  T61  T70  T71
%0   1    2     3     4    5     6    7     8    9    10   11
1800 1800 1800  2800  2800 4000  2800 4000  2800 4000 2800 4000 %0
0600 0600 0600  0600  0600 1800  0600 1800  0600 1800 0600 1800 %1
0700 0700 0700  0700  0700 1900  0700 1900  0700 1900 0700 1900 %2
0050 0050 0050  0050  0050 1300  0050 1300  0050 1300 0050 1300 %3
0050 0050 0050  0050  0050 1300  0050 1300  0050 1300 0050 1300 %4
0050 0050 0050  0050  0050 1300  0050 1300  0050 1300 0050 1300 %5
0050 0050 0050  0050  0050 1300  0050 1300  0050 1300 0050 1300 %6
0050 0050 0050  0050  0050 1300  0050 1300  0050 1300 0050 1300 %7
] def
/ytexti [
3800 3580 3360  3140  2920 2920  2700 2700  2480 2480 2260 2260 %0
1480 1280 1080  0880  0680 0680  0480 0480  0280 0280 0080 0080 %1
1480 1280 1080  0880  0680 0680  0480 0480  0280 0280 0080 0080 %2
1480 1280 1080  0880  0680 0680  0480 0480  0280 0280 0080 0080 %3
1480 1280 1080  0880  0680 0680  0480 0480  0280 0280 0080 0080 %4
1480 1280 1080  0880  0680 0680  0480 0480  0280 0280 0080 0080 %5
1480 1280 1080  0880  0680 0680  0480 0480  0280 0280 0080 0080 %6
1480 1280 1080  0880  0680 0680  0480 0480  0280 0280 0080 0080 %7
] def

0 0 0 1 setcmyk_olvcolor
/xchart12 xchart4l 12 mul def

TBS
xchart4l 1 ge { %xchart4l >=1
xtexti xchart12 0 add get ytexti xchart12 0 add get 200 add moveto
xchart4l 1 eq {(YAB_77) show} if
xchart4l 2 eq {(CIELAB_D65) show} if
xchart4l 3 eq {(LABHNU1_79) show} if
xchart4l 4 eq {(YAB_77) show} if
xchart4l 5 eq {(CIELAB_76) show} if
xchart4l 6 eq {(CIELAB_D65) show} if
xchart4l 7 eq {(LABHNU1_79) show} if
(; ) show TELi xchartl get show
             } if %xchart4l >=1

TBS
0 0 0 1 setcmyk_olvcolor
xtexti xchart12 0 add get ytexti xchart12 0 add get moveto
(Optimalfarben (o)) showde                                      %0BG901-7 02581
(Optimal colours (o)) showen                                    %1BG901-7 02581
(Colores \363ptimos (o)) showes                                 %2BG901-7 02581
(Couleurs optimales (o)) showfr                                 %3BG901-7 02581
(Colori ottimi (o)) showit                                      %4BG901-7 02581
(Optimal colours (o)) showjp                                    %5BG901-7 02581
(;) show

%TBIS (, Y) show TBL 0 -60 rmoveto (w) show 0 60 rmoveto
%TBS K 0 eq {(=100) show}{(=88,6) show} ifelse

xtexti xchart12 1 add get ytexti xchart12 1 add get moveto
(6 von maximalem (m)) showde                                    %0BG901-7 03581
(6 of maximum (m)) showen                                       %1BG901-7 03581
(6 de chroma m\341ximo (m)) showes                              %2BG901-7 03581
(6 de la chroma maximum (m)) showfr                             %3BG901-7 03581
(6 di massimo (m)) showit                                       %4BG901-7 03581
(6 of maximum (m)) showjp                                       %5BG901-7 03581
TBIS ( C) show (AB) ib6
(;) show

xtexti xchart12 2 add get ytexti xchart12 2 add get moveto

TBS
xchart4l 0 eq {%xchart4l=0
(Normfarbtafel) showde                                          %0BG901-7 04581
(CIE chromaticity) showen                                       %1BG901-7 04581
(CIE chromaticidad) showes                                      %2BG901-7 04581
(chromaticit\351 CIE) showfr                                    %3BG901-7 04581
(CIE cromaticit\340) showit                                     %4BG901-7 04581
(CIE chromaticity) showjp                                       %5BG901-7 04581
TBS ( \050) show
TBIS (x) show xcolorl 1 eq {(10) ib6} if TBS (, ) show
TBIS (y) show xcolorl 1 eq {(10) ib6} if TBS (\051) show
             } if %xchart4l=0

xchart4l 1 eq {%xchart4l=1
(Farbtafel) showde                                              %0BG901-7 0581
(chromaticity) showen                                           %1BG901-7 05581
(chromaticidad) showes                                          %2BG901-7 05581
(chromaticit\351) showfr                                        %3BG901-7 05581
(cromaticit\340) showit                                         %4BG901-7 05581
(chromaticity) showjp                                           %5BG901-7 05581
TBIS ( \050) show
TBIS (a) show (0) ib6 xcolorl 1 eq {(10) ib6} if TBS (, ) show
TBIS (b) show (0) ib6 xcolorl 1 eq {(10) ib6} if TBS (\051) show
             } if %xchart4l=1

xchart4l 2 eq {%xchart4l=2
(Farbtafel) showde                                              %0BG901-7 06581
(chromaticity) showen                                           %1BG901-7 06581
(chromaticidad) showes                                          %2BG901-7 06581
(chromaticit\351) showfr                                        %3BG901-7 06581
(cromaticit\340) showit                                         %4BG901-7 06581
(chromaticity) showjp                                           %5BG901-7 06581
TBIS ( \050) show
TBIS (a') show (D65) ib6 xcolorl 1 eq {(,10) ib6} if TBS (, ) show
TBIS (b') show (D65) ib6 xcolorl 1 eq {(,10) ib6} if TBS (\051) show
             } if %xchart4l=2

xchart4l 3 eq {%xchart4l=3
(Farbarttafel) showde                                           %0BG901-7 07581
(chromaticity) showen                                           %1BG901-7 07581
(chromaticidad) showes                                          %2BG901-7 07581
(chromaticit\351) showfr                                        %3BG901-7 07581
(cromaticit\340) showit                                         %4BG901-7 07581
(chromaticity) showjp                                           %5BG901-7 07581
TBIS ( \050) show
TBIS (a') show xcolorl 1 eq {(10) ib6} if TBS (, ) show
TBIS (b') show xcolorl 1 eq {(10) ib6} if TBS (\051) show
             } if %xchart4l=3

xchart4l 4 eq {%xchart4l=4
(Buntwert) showde                                               %0BG901-7 08581
(chromatic value) showen                                        %1BG901-7 08581
(valor crom\341tico) showes                                     %2BG901-7 08581
(valeur chromatique) showfr                                     %3BG901-7 08581
(valore cromatico) showit                                       %4BG901-7 08581
(chromatic value) showjp                                        %5BG901-7 08581
TBIS ( \050) show
TBIS (A) show (0) ib6 xcolorl 1 eq {(,10) ib6} if TBS (, ) show
TBIS (B) show (0) ib6 xcolorl 1 eq {(,10) ib6} if TBS (\051) show
             } if %xchart4l=4

xchart4l 5 eq {%xchart4l=5
(Buntheit) showde                                               %0BG901-7 09581
(chroma) showen                                                 %1BG901-7 09581
(croma) showes                                                  %2BG901-7 09581
(chroma) showfr                                                 %3BG901-7 09581
(chroma) showit                                                 %4BG901-7 09581
(chroma) showjp                                                 %5BG901-7 09581
TBIS ( \050) show
TBIS (a*) show xcolorl 1 eq {(10) ib6} if TBS (, ) show
TBIS (b*) show xcolorl 1 eq {(10) ib6} if TBS (\051) show
             } if %xchart4l=5

xchart4l 6 eq {%xchart4l=6
(Buntheit) showde                                               %0BG901-7 10581
(chroma) showen                                                 %1BG901-7 10581
(croma) showes                                                  %2BG901-7 10581
(chroma) showfr                                                 %3BG901-7 10581
(chroma) showit                                                 %4BG901-7 10581
(chroma) showjp                                                 %5BG901-7 10581
TBIS ( \050) show
TBIS (a*) show (D65) ib6 xcolorl 1 eq {(,10) ib6} if TBS (, ) show
TBIS (b*) show (D65) ib6 xcolorl 1 eq {(,10) ib6} if TBS (\051) show
             } if %xchart4l=6

xchart4l 7 eq {%xchart4l=7
(Buntheit) showde                                               %0BG901-7 11581
(chroma) showen                                                 %1BG901-7 11581
(croma) showes                                                  %2BG901-7 11581
(chroma) showfr                                                 %3BG901-7 11581
(chroma) showit                                                 %4BG901-7 11581
(chroma) showjp                                                 %5BG901-7 11581
TBIS ( \050) show
TBIS (A*) show xcolorl 1 eq {(10) ib6} if TBS (, ) show
TBIS (B*) show xcolorl 1 eq {(10) ib6} if TBS (\051) show
             } if %xchart4l=7
(;) show

xtexti xchart12 3 add get ytexti xchart12 3 add get moveto
TBS
(Name und Spektralbereich:) showde                              %0BG901-7 00581
(Name and spectral range:) showen                               %1BG901-7 00581
(Nombre y gama espectral:) showes                               %2BG901-7 00581
(Nom et la gamma spectrale:) showfr                             %3BG901-7 00581
(Nome e la gamma spettrale:) showit                             %4BG901-7 00581
(Name and spectral range:) showjp                               %5BG901-7 00581

xtexti xchart12 4 add get ytexti xchart12 4 add get moveto
TBIS FARBE 0 get show
TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto
TBIS FARBE 2 get show

xtexti xchart12 5 add get ytexti xchart12 5 add get moveto
TBIS FARBE 3 get show
TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto
TBIS FARBE 5 get show

xtexti xchart12 6 add get ytexti xchart12 6 add get moveto
TBIS FARBE 6 get show
TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto
TBIS FARBE 8 get show

xtexti xchart12 7 add get ytexti xchart12 7 add get moveto
TBIS FARBE 9 get show
TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto
TBIS FARBE 11 get show

xtexti xchart12 8 add get ytexti xchart12 8 add get moveto
TBIS FARBE 12 get show
TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto
TBIS FARBE 14 get show

xtexti xchart12 9 add get ytexti xchart12 9 add get moveto
TBIS FARBE 15 get show
TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto
TBIS FARBE 17 get show

xtexti xchart12 10 add get ytexti xchart12 10 add get moveto
TBIS FARBE 18 get show
TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto
TBIS FARBE 20 get show

xtexti xchart12 11 add get ytexti xchart12 11 add get moveto
TBIS FARBE 21 get show
TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto
TBIS FARBE 23 get show

xchart4l 0 eq {%xchart4l=0

600 400 translate

0 0 moveto  4000 0 rlineto  stroke
0 0 moveto  0 3200 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS

   0 -50 moveto  0 100 rlineto  stroke
 800 -50 moveto  0 100 rlineto  stroke
1600 -50 moveto  0 100 rlineto  stroke
2400 -50 moveto  0 100 rlineto  stroke
3200 -50 moveto  0 100 rlineto  stroke
4000 -50 moveto  0 100 rlineto  stroke

-100 -300 moveto (0,0) show
 700 -300 moveto (0,2) show
1500 -300 moveto (0,4) show
2300 -300 moveto (0,6) show
3100 -300 moveto (0,8) show
3900 -300 moveto (1,0) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50    0 moveto  100 0 rlineto  stroke
 -50  800 moveto  100 0 rlineto  stroke
 -50 1600 moveto  100 0 rlineto  stroke
 -50 2400 moveto  100 0 rlineto  stroke
 -50 3200 moveto  100 0 rlineto  stroke

-450  -80 moveto (0,0) show
-450  720 moveto (0,2) show
-450 1520 moveto (0,4) show
-450 2320 moveto (0,6) show
-450 3120 moveto (0,8) show

TBIS
-300 2800 moveto (y) show xcolorl 1 eq {(10) ib6} if
TBIS
4200  150 moveto (x) show xcolorl 1 eq {(10) ib6} if


TBIS
2600 150 moveto (CIE_1931) show

-600 -400 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0:  600  400
    600    400 translate
    693     19 moveto
    693     19    692     19    690     19 curveto
    688     19    685     20    681     23 curveto
    675     27    667     34    657     43 curveto
    644     55    626     70    603     90 curveto
    575    118    542    159    496    231 curveto
    438    347    365    530    274    802 curveto
    181   1179     93   1650     32   2153 curveto
     15   2619     55   3000    155   3248 curveto
    297   3335    456   3304    618   3223 curveto
    771   3126    918   3017   1063   2897 curveto
   1206   2769   1349   2635   1492   2497 curveto
   1634   2358   1776   2218   1915   2080 curveto
   2049   1946   2179   1817   2300   1696 curveto
   2411   1585   2508   1489   2592   1405 curveto
   2663   1336   2720   1278   2765   1233 curveto
   2802   1197   2831   1168   2856   1143 curveto
   2876   1123   2892   1107   2903   1096 curveto
   2913   1086   2919   1080   2924   1075 curveto
   2927   1072   2930   1069   2933   1066 curveto
   2936   1063   2937   1062   2938   1061 curveto
   2938   1061   2939   1060   2744    971 curveto
   2261    748   2040    643   1908    582 curveto
   1819    541   1758    512   1708    490 curveto
   1660    468   1612    445   1558    420 curveto
   1495    391   1419    356   1320    309 curveto
   1184    247    986    155    693     19 curveto
 stroke
0 0 0 1 setcmyk_olvcolor
    693     19 30 0 360 arc fill % 400
    681     23 30 0 360 arc fill % 425
    626     70 30 0 360 arc fill % 450
    438    347 30 0 360 arc fill % 475
     32   2153 30 0 360 arc fill % 500
    456   3304 30 0 360 arc fill % 525
   1206   2769 30 0 360 arc fill % 550
   1915   2080 30 0 360 arc fill % 575
   2508   1489 30 0 360 arc fill % 600
   2802   1197 30 0 360 arc fill % 625
   2903   1096 30 0 360 arc fill % 650
   2930   1069 30 0 360 arc fill % 675
   2938   1061 30 0 360 arc fill % 700
   2261    748 30 0 360 arc fill %500c
   1708    490 30 0 360 arc fill %525c
   1419    356 30 0 360 arc fill %550c
0 0 0 1 setcmyk_olvcolor
    693     19 30 0 360 arc stroke % 400
    681     23 30 0 360 arc stroke % 425
    626     70 30 0 360 arc stroke % 450
    438    347 30 0 360 arc stroke % 475
     32   2153 30 0 360 arc stroke % 500
    456   3304 30 0 360 arc stroke % 525
   1206   2769 30 0 360 arc stroke % 550
   1915   2080 30 0 360 arc stroke % 575
   2508   1489 30 0 360 arc stroke % 600
   2802   1197 30 0 360 arc stroke % 625
   2903   1096 30 0 360 arc stroke % 650
   2930   1069 30 0 360 arc stroke % 675
   2938   1061 30 0 360 arc stroke % 700
   2261    748 30 0 360 arc stroke %500c
   1708    490 30 0 360 arc stroke %525c
   1419    356 30 0 360 arc stroke %550c
%   1250   1316 30 0 360 arc fill %D65 
0 0 0 1 setcmyk_olvcolor
TBIS
    693  375 sub     19 250 sub moveto (400) show
%    681 500 sub     23 100 sub moveto (425) show
%    626 500 sub     70 100 sub moveto (450) show
    438 350 sub    347 200 sub moveto (475) show
     32 450 sub   2153 100 sub moveto (500) show
    456 100 add   3304 000 add moveto (525) show
   1206 100 add   2769 000 add moveto (550) show
   1915 080 sub   2080 100 add moveto (575) show
   2508 100 add   1489 000 add moveto (600) show
   2802 100 add   1197 100 add moveto (625) show
%   2903 200 sub   1096 100 add moveto (650) show
%   2930 200 sub   1069 100 add moveto (675) show
   2938 100 add   1061 100 sub moveto (700) show
   2261 100 add    748 200 sub moveto (500c,E) show
   1708 100 add    490 200 sub moveto (525c,E) show
   1419 000 add    356 250 sub moveto (550c,E) show
%   1250 100 add   1316 100 sub moveto (D65 ) show
   -600   -400 translate
 %ENDE: 1

       } if %xchart4l=0

xchart4l 1 eq {%xchart4l=1

500 3200 translate
 
0 400 moveto  4000  0 rlineto  stroke
0 400 moveto  0 -3600 rlineto  stroke
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS
 
   0 350 moveto  0 100 rlineto  stroke
 800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke
 
-150  500 moveto (-0,8) show
 650  500 moveto (0,0) show
1450  500 moveto (0,8) show
2250  500 moveto (1,6) show
3050  500 moveto (2,4) show
3850  500 moveto (3,2) show
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten
 
 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke
 
-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,8) show
-450 -1700 moveto (-1,6) show
%-450 -2500 moveto (-2,4) show

-175 -3050 moveto
90 rotate 
TBIS (b) show xcolorl 1 eq {(10) ib6} if
TBS (=-0,40) show TBIS (z) show xcolorl 1 eq {(10) ib6} if
TBS (/) show TBIS (y) show xcolorl 1 eq {(10) ib6} if
-90 rotate
3650   100 moveto TBIS (a) show xcolorl 1 eq {(10) ib6} if
TBS (=) show TBIS (x) show xcolorl 1 eq {(10) ib6} if
TBS (/) show TBIS (y) show xcolorl 1 eq {(10) ib6} if
 
-500 -3200 translate
 
 %1000 02 01 16 01-.03****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200

   1300   3200 translate

%  36136 -68535 moveto
%  36136 -68535  36234 -68875  35958 -68561 curveto
%  35610 -68128  33600 -64560  29424 -56936 curveto
%  24474 -47779  19507 -38551  15143 -30384 curveto
%  11681 -23927   8847 -18653   6639 -14534 curveto
%   4846 -11128   3397  -8271   2147  -5661 curveto
   1261  -3701 moveto
   1261  -3701    688  -2339    342  -1455 curveto
    153   -894     56   -546     15   -336 curveto
      5   -208     18   -125     47    -73 curveto
     89    -44    138    -28    191    -19 curveto
    246    -13    304     -8    366     -5 curveto
    435     -3    512     -2    597     -1 curveto
    693     -1    800      0    920      0 curveto
   1053      0   1198      0   1355      0 curveto
   1520      0   1683      0   1844      0 curveto
   1993      0   2126      0   2242      0 curveto
   2340      0   2424      0   2497      0 curveto
   2559      0   2610      0   2649      0 curveto
   2680      0   2703      0   2718      0 curveto
   2731      0   2741      0   2751      0 curveto
   2760      0   2764      0   2767      0 curveto
   2769      0   2770      0   2824   -116 curveto
   3023   -529   3168   -817   3275  -1036 curveto
   3357  -1209   3430  -1349   3482  -1469 curveto
   3545  -1597   3622  -1746   3704  -1922 curveto
   3817  -2156   3983  -2496   4262  -3058 curveto
%   4786  -4149   6341  -7346  35775 -67850 curveto
 stroke
  0 0 0 1 setcmyk_olvcolor
%  36136 -68535 30 0 360 arc fill % 400
%  29424 -56936 30 0 360 arc fill % 425
%   8847 -18653 30 0 360 arc fill % 450
   1261  -3701 30 0 360 arc fill % 475
     15   -336 30 0 360 arc fill % 500
    138    -28 30 0 360 arc fill % 525
    435     -3 30 0 360 arc fill % 550
    920      0 30 0 360 arc fill % 575
   1683      0 30 0 360 arc fill % 600
   2340      0 30 0 360 arc fill % 625
   2649      0 30 0 360 arc fill % 650
   2741      0 30 0 360 arc fill % 675
   2769      0 30 0 360 arc fill % 700
   3023   -529 30 0 360 arc fill %500c
   3482  -1469 30 0 360 arc fill %525c
   3983  -2496 30 0 360 arc fill %550c
  0 0 0 1 setcmyk_olvcolor
%  36136 -68535 30 0 360 arc stroke % 400
%  29424 -56936 30 0 360 arc stroke % 425
%   8847 -18653 30 0 360 arc stroke % 450
   1261  -3701 30 0 360 arc stroke % 475
     15   -336 30 0 360 arc stroke % 500
    138    -28 30 0 360 arc stroke % 525
    435     -3 30 0 360 arc stroke % 550
    920      0 30 0 360 arc stroke % 575
   1683      0 30 0 360 arc stroke % 600
   2340      0 30 0 360 arc stroke % 625
   2649      0 30 0 360 arc stroke % 650
   2741      0 30 0 360 arc stroke % 675
   2769      0 30 0 360 arc stroke % 700
   3023   -529 30 0 360 arc stroke %500c
   3482  -1469 30 0 360 arc stroke %525c
   3983  -2496 30 0 360 arc stroke %550c
%    950   -435 30 0 360 arc fill %D65
  0 0 0 1 setcmyk_olvcolor
TBIS
% 36136 500 sub -68535 100 sub moveto (400) show
% 29424 500 sub -56936 100 sub moveto (425) show
%  8847 500 sub -18653 100 sub moveto (450) show
%  1261 500 sub  -3701 100 sub moveto (475) show
     15 400 sub   -336 100 sub moveto (500) show
%   138 200 sub    -28 100 add moveto (525) show
    435 200 sub     -3 100 add moveto (550) show
%    920 200 sub      0 100 add moveto (575) show
   1683 200 sub      0 100 add moveto (600) show
   2340 200 sub      0 100 add moveto (625) show
%  2649 200 sub      0 100 add moveto (650) show
%  2741 200 sub      0 100 add moveto (675) show
   2769 100 add      0 150 sub moveto (700) show
   3023 100 add   -529 100 sub moveto (500c,E) show
   3482 800 sub  -1469 050 sub moveto (525c,E) show
%  3983 500 sub  -2496 100 sub moveto (550c,E) show
%    950 100 add   -435 100 sub moveto (D65 ) show

  -1300  -3200 translate
 %ENDE: 2

             } if %xchart4l=1

xchart4l 2 eq {%xchart4l=2

600 3200 translate

0 400 moveto  4400  0 rlineto  stroke
0 400 moveto  0 -3600 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS
 000 350 moveto  0 100 rlineto  stroke
0800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

-200  500 moveto (0,00) show
 600  500 moveto (0,06) show
1400  500 moveto (0,12) show
2200  500 moveto (0,18) show
3000  500 moveto (0,24) show
3800  500 moveto (0,30) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke

-575  -100 moveto (  0,00) show
-575  -900 moveto (-0,06) show
-575 -1700 moveto (-0,12) show
-575 -2500 moveto (-0,18) show

TBIS
-380 -0500 moveto (b') show (D65) ib6 xcolorl 1 eq {(,10) ib6} if
4300   500 moveto (a') show (D65) ib6 xcolorl 1 eq {(,10) ib6} if

-600 -3200 translate

xcolorl 0 eq {%xcolorl=0
 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0:  400 3200
    400   3200 translate
   9657  -6202 moveto
   9657  -6202   9666  -6212   9642  -6203 curveto
   9610  -6190   9426  -6080   9018  -5830 curveto
   8481  -5499   7863  -5120   7227  -4729 curveto
   6628  -4367   6041  -4019   5490  -3698 curveto
   4943  -3383   4391  -3065   3769  -2701 curveto
   3156  -2344   2578  -2012   2043  -1717 curveto
   1565  -1460   1123  -1239    723  -1054 curveto
    527   -898    772   -759   1060   -634 curveto
   1304   -535   1510   -464   1685   -408 curveto
   1832   -356   1965   -309   2091   -267 curveto
   2214   -230   2337   -200   2460   -176 curveto
   2585   -157   2712   -145   2841   -139 curveto
   2972   -138   3103   -133   3233   -126 curveto
   3359   -126   3475   -120   3582   -113 curveto
   3676    -98   3756    -91   3823    -88 curveto
   3878    -75   3924    -64   3963    -57 curveto
   3995    -54   4022    -46   4042      0 curveto
   4057      0   4069      0   4077      0 curveto
   4083      0   4088      0   4093      0 curveto
   4097      0   4100      0   4101      0 curveto
   4102      0   4103      0   4129   -740 curveto
   4224  -1226   4290  -1417   4338  -1533 curveto
   4374  -1614   4405  -1674   4427  -1723 curveto
   4454  -1771   4486  -1825   4520  -1884 curveto
   4565  -1958   4630  -2056   4736  -2200 curveto
   4923  -2435   5407  -2946   9625  -6181 curveto
 stroke
 0 0 0 1 setcmyk_olvcolor
   9657  -6202 30 0 360 arc fill % 400
   9018  -5830 30 0 360 arc fill % 425
   6041  -4019 30 0 360 arc fill % 450
   3156  -2344 30 0 360 arc fill % 475
    723  -1054 30 0 360 arc fill % 500
   1510   -464 30 0 360 arc fill % 525
   2214   -230 30 0 360 arc fill % 550
   2841   -139 30 0 360 arc fill % 575
   3475   -120 30 0 360 arc fill % 600
   3878    -75 30 0 360 arc fill % 625
   4042      0 30 0 360 arc fill % 650
   4088      0 30 0 360 arc fill % 675
   4102      0 30 0 360 arc fill % 700
   4224  -1226 30 0 360 arc fill %500c
   4427  -1723 30 0 360 arc fill %525c
   4630  -2056 30 0 360 arc fill %550c
 0 0 0 1 setcmyk_olvcolor
   9657  -6202 30 0 360 arc stroke % 400
   9018  -5830 30 0 360 arc stroke % 425
   6041  -4019 30 0 360 arc stroke % 450
   3156  -2344 30 0 360 arc stroke % 475
    723  -1054 30 0 360 arc stroke % 500
   1510   -464 30 0 360 arc stroke % 525
   2214   -230 30 0 360 arc stroke % 550
   2841   -139 30 0 360 arc stroke % 575
   3475   -120 30 0 360 arc stroke % 600
   3878    -75 30 0 360 arc stroke % 625
   4042      0 30 0 360 arc stroke % 650
   4088      0 30 0 360 arc stroke % 675
   4102      0 30 0 360 arc stroke % 700
   4224  -1226 30 0 360 arc stroke %500c
   4427  -1723 30 0 360 arc stroke %525c
   4630  -2056 30 0 360 arc stroke %550c
%   2872  -1148 30 0 360 arc fill %D65 
 0 0 0 1 setcmyk_olvcolor
TBIS
%   9657 500 sub  -6202 100 sub moveto (400) show
%   9018 500 sub  -5830 100 sub moveto (425) show
%   6041 500 sub  -4019 100 sub moveto (450) show
   3156 400 sub  -2344 100 sub moveto (475) show
    723 250 sub  -1054 250 sub moveto (500) show
   1510 200 sub   -464 150 add moveto (525) show
   2214 200 sub   -230 100 add moveto (550) show
   2841 200 sub   -139 100 add moveto (575) show
   3475 200 sub   -120 100 add moveto (600) show
%   3878 200 sub    -75 100 add moveto (625) show
%   4042 200 sub      0 100 add moveto (650) show
%   4088 200 sub      0 100 add moveto (675) show
   4102 050 add      0 100 sub moveto (700) show
   4224 050 add  -1226 000 sub moveto (500c,E) show
   4427 010 sub  -1723 100 add moveto (525c,E) show
%   4630 100 add  -2056 100 sub moveto (550c,E) show
%   2872 050 add  -1148 000 sub moveto (D65 ) show
   -400  -3200 translate
 %ENDE: 3
} if %xcolorl=0

xcolorl 1 eq {%xcolorl=1

 %1000 10             ****************************************
 %ANF  PROZSPEP.FOR: MULYA=13333 BEO=10 CIELAB 1976 IXY0:  400 3200
    400   3200 translate
%   6200  -3929 moveto
%   6200  -3929   6219  -3953   6231  -3976 curveto
%   6240  -4004   6205  -4005   6075  -3946 curveto
%   5880  -3843   5649  -3714   5365  -3551 curveto
   5365  -3551 moveto
   5058  -3372   4696  -3158   4320  -2934 curveto
   3891  -2679   3464  -2431   2977  -2158 curveto
   2468  -1877   1994  -1626   1510  -1393 curveto
   1060  -1200    687  -1026    591   -875 curveto
    898   -750   1155   -638   1375   -553 curveto
   1568   -482   1738   -419   1890   -366 curveto
   2019   -315   2139   -271   2256   -225 curveto
   2372   -178   2488   -115   2604      0 curveto
   2723      0   2843      0   2961      0 curveto
   3078      0   3192      0   3300      0 curveto
   3401      0   3494      0   3578      0 curveto
   3654      0   3719      0   3774      0 curveto
   3816      0   3850      0   3884      0 curveto
   3914      0   3942      0   3964      0 curveto
   3976      0   3984      0   3991      0 curveto
   3997      0   4001      0   4004      0 curveto
   4005      0   4006      0   4007      0 curveto
   4011      0   4007      0   4126  -1264 curveto
   4171  -1416   4201  -1506   4228  -1574 curveto
   4246  -1623   4267  -1669   4290  -1718 curveto
   4313  -1770   4344  -1827   4379  -1896 curveto
   4427  -1985   4506  -2114   4646  -2320 curveto
%   4966  -2724   6735  -4379   6204  -3931 curveto
 stroke
 1 setgray
%   6200  -3929 30 0 360 arc fill % 400
%   6075  -3946 30 0 360 arc fill % 425
   4696  -3158 30 0 360 arc fill % 450
   2468  -1877 30 0 360 arc fill % 475
    591   -875 30 0 360 arc fill % 500
   1738   -419 30 0 360 arc fill % 525
   2372   -178 30 0 360 arc fill % 550
   2961      0 30 0 360 arc fill % 575
   3494      0 30 0 360 arc fill % 600
   3816      0 30 0 360 arc fill % 625
   3964      0 30 0 360 arc fill % 650
   4001      0 30 0 360 arc fill % 675
   4011      0 30 0 360 arc fill % 700
   4171  -1416 30 0 360 arc fill %500c
   4290  -1718 30 0 360 arc fill %525c
   4506  -2114 30 0 360 arc fill %550c
 0 setgray
%   6200  -3929 30 0 360 arc stroke % 400
%   6075  -3946 30 0 360 arc stroke % 425
   4696  -3158 30 0 360 arc stroke % 450
   2468  -1877 30 0 360 arc stroke % 475
    591   -875 30 0 360 arc stroke % 500
   1738   -419 30 0 360 arc stroke % 525
   2372   -178 30 0 360 arc stroke % 550
   2961      0 30 0 360 arc stroke % 575
   3494      0 30 0 360 arc stroke % 600
   3816      0 30 0 360 arc stroke % 625
   3964      0 30 0 360 arc stroke % 650
   4001      0 30 0 360 arc stroke % 675
   4011      0 30 0 360 arc stroke % 700
   4171  -1416 30 0 360 arc stroke %500c
   4290  -1718 30 0 360 arc stroke %525c
   4506  -2114 30 0 360 arc stroke %550c
   2872  -1148 30 0 360 arc fill %D65
 0 setgray
TBIS
%  6200 600 sub  -3929 100 sub moveto (400) show
%  6075 600 sub  -3946 100 sub moveto (425) show
   4696 200 sub  -3158 150 add moveto (450) show
   2468 600 sub  -1877 100 sub moveto (475) show
    591 150 sub   -875 400 sub moveto (500) show
   1738 250 sub   -419 100 add moveto (525) show
   2372 300 sub   -178 100 add moveto (550) show
   2961 200 sub      0 100 add moveto (575) show
   3494 200 sub      0 100 add moveto (600) show
%  3816 200 sub      0 100 add moveto (625) show
%  3964 200 sub      0 100 add moveto (650) show
%  4001 200 sub      0 100 add moveto (675) show
   4011 100 add      0 100 sub moveto (700) show
   4171 100 add  -1416 100 sub moveto (500c) show
   4290 100 add  -1718 100 sub moveto (525c) show
%  4506 600 sub  -2114 100 sub moveto (550c) show
%   2872 100 add  -1148 100 sub moveto (D65 ) show
   -400  -3200 translate
 %ENDE: 3
} if %xcolorl=1

             } if %xchart4l=2

xchart4l 3 eq {%xchart4l=3
800 200 add 3200 translate
 
0 400 moveto  4000  0 rlineto  stroke
0 400 moveto  0 -1700 rlineto  stroke
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS
 400 350 moveto  0 100 rlineto  stroke
1200 350 moveto  0 100 rlineto  stroke
2000 350 moveto  0 100 rlineto  stroke
2800 350 moveto  0 100 rlineto  stroke
3600 350 moveto  0 100 rlineto  stroke
 
 100  500 moveto (0,05) show
 900  500 moveto (0,10) show
1700  500 moveto (0,15) show
2500  500 moveto (0,20) show
3300  500 moveto (0,25) show
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten
 
 -50   400 moveto  100 0 rlineto  stroke
 -50  -400 moveto  100 0 rlineto  stroke
 -50 -1200 moveto  100 0 rlineto  stroke
% -50 -2000 moveto  100 0 rlineto  stroke
% -50 -2800 moveto  100 0 rlineto  stroke
 
-775   300 moveto (  0,00) show
-775  -500 moveto (-0,05) show
-775 -1300 moveto (-0,10) show
% -775 -2100 moveto (-0,15) show

TBS
%-580  -1650 moveto 
-590  -0100 moveto
(b') show xcolorl 1 eq {(10) ib6} if
 
TBS
4000 200 moveto (a') show xcolorl 1 eq {(10) ib6} if
 
800 200 add neg 3200 neg translate

xcolorl 0 eq {%xcolorl=0 
 %1000 02             ****************************************
 %ANF  PROZSPEP.FOR: MULYA=16000 BEO=02 LABHNU2 1979 IXY0:  400 3600
    400   200 add 3600 translate
%  39612  -7407 moveto
%  39612  -7407  39716  -7420  39422  -7408 curveto
%  39050  -7393  36906  -7261  32452  -6964 curveto
%  27172  -6569  21874  -6116  17219  -5650 curveto
%  13526  -5219  10503  -4804   8148  -4422 curveto
%   6236  -4048   4691  -3669   3357  -3237 curveto
   4691  -3669   moveto
   4691  -3669   4691  -3669   3357  -3237 curveto
   2412  -2815   1800  -2424   1431  -2081 curveto
   1230  -1785   1127  -1537   1082  -1337 curveto
   1072  -1177   1086  -1044   1117   -939 curveto
   1161   -869   1214   -827   1271   -799 curveto
   1329   -778   1391   -763   1458   -753 curveto
   1531   -746   1612   -742   1703   -739 curveto
   1806   -737   1920   -736   2048   -736 curveto
   2190   -736   2345   -736   2512   -735 curveto
   2688   -735   2862   -735   3034   -735 curveto
   3192   -734   3335   -734   3458   -734 curveto
   3563   -734   3652   -734   3730   -733 curveto
   3796   -733   3851   -733   3892   -733 curveto
   3925   -733   3950   -733   3966   -733 curveto
   3980   -733   3990   -733   4001   -733 curveto
   4010   -733   4015   -733   4018   -733 curveto
   4020   -733   4022   -733   4079  -1028 curveto
   4291  -1523   4445  -1736   4560  -1869 curveto
   4648  -1962   4726  -2031   4781  -2087 curveto
   4849  -2144   4930  -2206   5018  -2275 curveto
%   5138  -2361   5315  -2476   5613  -2645 curveto
%   6172  -2923   7830  -3528  39226  -7383 curveto
 stroke
 1 setgray
%  39612  -7407 30 0 360 arc fill % 400
%  32452  -6964 30 0 360 arc fill % 425
%  10503  -4804 30 0 360 arc fill % 450
   2412  -2815 30 0 360 arc fill % 475
   1082  -1337 30 0 360 arc fill % 500
   1214   -827 30 0 360 arc fill % 525
   1531   -746 30 0 360 arc fill % 550
   2048   -736 30 0 360 arc fill % 575
   2862   -735 30 0 360 arc fill % 600
   3563   -734 30 0 360 arc fill % 625
   3892   -733 30 0 360 arc fill % 650
   3990   -733 30 0 360 arc fill % 675
   4020   -733 30 0 360 arc fill % 700
   4291  -1523 30 0 360 arc fill %500c
   4781  -2087 30 0 360 arc fill %525c
   5315  -2476 30 0 360 arc fill %550c
 0 setgray
%  39612  -7407 30 0 360 arc stroke % 400
%  32452  -6964 30 0 360 arc stroke % 425
%  10503  -4804 30 0 360 arc stroke % 450
   2412  -2815 30 0 360 arc stroke % 475
   1082  -1337 30 0 360 arc stroke % 500
   1214   -827 30 0 360 arc stroke % 525
   1531   -746 30 0 360 arc stroke % 550
   2048   -736 30 0 360 arc stroke % 575
   2862   -735 30 0 360 arc stroke % 600
   3563   -734 30 0 360 arc stroke % 625
   3892   -733 30 0 360 arc stroke % 650
   3990   -733 30 0 360 arc stroke % 675
   4020   -733 30 0 360 arc stroke % 700
   4291  -1523 30 0 360 arc stroke %500c
   4781  -2087 30 0 360 arc stroke %525c
   5315  -2476 30 0 360 arc stroke %550c
   2080  -1438 30 0 360 arc fill %D65
 0 setgray
TBIS
% 39612 600 sub  -7407 100 sub moveto (400) show
% 32452 600 sub  -6964 100 sub moveto (425) show
% 10503 600 sub  -4804 100 sub moveto (450) show
   2412  50 sub  -2815 400 sub moveto (475) show
   1082 350 sub  -1337 100 sub moveto (500) show
   1214 400 sub   -827  50 add moveto (525) show
   1531 200 sub   -746 100 add moveto (550) show
   2048 200 sub   -736 100 add moveto (575) show
   2862 200 sub   -735 100 add moveto (600) show
   3563 200 sub   -734 100 add moveto (625) show
%  3892 200 sub   -733 100 add moveto (650) show
%  3990 200 sub   -733 100 add moveto (675) show
   4020 100 add   -733         moveto (700) show
   4291 100 add  -1523  50 sub moveto (500c,E) show
   4781 950 sub  -2087 100 sub moveto (525c,E) show
%  5315 550 sub  -2476 100 sub moveto (550c,E) show
%   2080 100 add  -1438 100 sub moveto (D65 ) show
   400 200 add neg -3600 translate
 %ENDE: 5
} if %xcolorl=0

xcolorl 1 eq {%xcolorl=1
 %1000 10             ****************************************
 %ANF  PROZSPEP.FOR: MULYA=16000 BEO=10 LABHNU2 1979 IXY0:  400 3600
    400 200 add   3600 translate
%  11238  -4674 moveto
%  11238  -4674  11333  -4702  11389  -4729 curveto
%  11438  -4763  11264  -4764  10637  -4694 curveto
%   9745  -4572   8759  -4419   7659  -4226 curveto
%   6588  -4015   5486  -3762   4508  -3497 curveto
   5486  -3762 moveto
   5486  -3762   5486  -3762   4508  -3497 curveto
   3581  -3196   2840  -2905   2193  -2584 curveto
   1708  -2257   1405  -1967   1213  -1702 curveto
   1117  -1488   1080  -1302   1075  -1149 curveto
   1097  -1033   1132   -940   1177   -879 curveto
   1231   -835   1290   -803   1354   -781 curveto
   1417   -765   1484   -754   1557   -745 curveto
   1636   -739   1724   -735   1820   -733 curveto
   1928   -733   2047   -733   2175   -733 curveto
   2311   -733   2454   -733   2601   -733 curveto
   2746   -733   2887   -733   3022   -733 curveto
   3148   -733   3262   -733   3361   -733 curveto
   3438   -733   3502   -733   3567   -733 curveto
   3627   -733   3681   -733   3726   -733 curveto
   3750   -733   3766   -733   3780   -733 curveto
   3792   -733   3800   -733   3807   -733 curveto
   3809   -733   3811   -733   3813   -733 curveto
   3821   -733   3813   -733   4065  -1559 curveto
   4165  -1728   4230  -1829   4293  -1907 curveto
   4333  -1963   4382  -2016   4435  -2072 curveto
   4492  -2132   4566  -2199   4650  -2278 curveto
   4769  -2382   4972  -2532   5346  -2774 curveto
%   6292  -3249  14105  -5208  11258  -4677 curveto
 stroke
 1 setgray
%  11238  -4674 30 0 360 arc fill % 400
%  10637  -4694 30 0 360 arc fill % 425
   5486  -3762 30 0 360 arc fill % 450
   1708  -2257 30 0 360 arc fill % 475
   1075  -1149 30 0 360 arc fill % 500
   1290   -803 30 0 360 arc fill % 525
   1636   -739 30 0 360 arc fill % 550
   2175   -733 30 0 360 arc fill % 575
   2887   -733 30 0 360 arc fill % 600
   3438   -733 30 0 360 arc fill % 625
   3726   -733 30 0 360 arc fill % 650
   3800   -733 30 0 360 arc fill % 675
   3821   -733 30 0 360 arc fill % 700
   4165  -1728 30 0 360 arc fill %500c
   4435  -2072 30 0 360 arc fill %525c
%   4972  -2532 30 0 360 arc fill %550c
 0 setgray
%  11238  -4674 30 0 360 arc stroke % 400
%  10637  -4694 30 0 360 arc stroke % 425
   5486  -3762 30 0 360 arc stroke % 450
   1708  -2257 30 0 360 arc stroke % 475
   1075  -1149 30 0 360 arc stroke % 500
   1290   -803 30 0 360 arc stroke % 525
   1636   -739 30 0 360 arc stroke % 550
   2175   -733 30 0 360 arc stroke % 575
   2887   -733 30 0 360 arc stroke % 600
   3438   -733 30 0 360 arc stroke % 625
   3726   -733 30 0 360 arc stroke % 650
   3800   -733 30 0 360 arc stroke % 675
   3821   -733 30 0 360 arc stroke % 700
   4165  -1728 30 0 360 arc stroke %500c
   4435  -2072 30 0 360 arc stroke %525c
%   4972  -2532 30 0 360 arc stroke %550c
   2077  -1432 30 0 360 arc fill %D65
 0 setgray
TBIS
% 11238 600 sub  -4674 100 sub moveto (400) show
% 10637 600 sub  -4694 100 sub moveto (425) show
%  5486 600 sub  -3762 100 sub moveto (450) show
   1708 150 sub  -2257 200 sub moveto (475) show
   1075 400 sub  -1149 100 sub moveto (500) show
   1290 300 sub   -803 100 add moveto (525) show
   1636 200 sub   -739 100 add moveto (550) show
   2175 200 sub   -733 100 add moveto (575) show
   2887 200 sub   -733 100 add moveto (600) show
   3438 200 sub   -733 100 add moveto (625) show
%  3726 200 sub   -733 100 add moveto (650) show
%  3800 200 sub   -733 100 add moveto (675) show
   3821 100 add   -733         moveto (700) show
   4165  50 add  -1728  50 add moveto (500c,E) show
   4435 700 sub  -2072 050 sub moveto (525c,E) show
%  4972 100 add  -2532 100 sub moveto (550c,E) show
%   2077 100 add  -1432 100 sub moveto (D65 ) show
   400 200 add neg  3600 neg translate
 %ENDE: 5

} if %xcolorl=1
             } if %xchart4l=3

xchart4l 4 ge xchart4l 7 le and {%4>=xchart4l<=7

3500 2000 translate
xchart4l 5 eq {0250 0000 translate} if %for a*,b*

%axis and scales
0 0 0 1 setcmyk_olvcolor
-2250 0 moveto xchart4l 5 eq {3700}{3950} ifelse  0 rlineto stroke
0 -1880  moveto 0 3600  rlineto stroke
xchart4l 5 eq {1450}{1700} ifelse 100 sub 50 moveto 100 -50 rlineto
                      -100 -50 rlineto closepath fill
0 50 sub 1800 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill

/xt10x 5 array def
/yt10x 5 array def

xchart4l 4 eq {%xchart4l=4
/xt10x [(-40) ( ) ( ) ( ) (  40)] def
/yt10x [(-40) ( ) ( ) ( ) (40)] def
             } if %xchart4l=3

xchart4l 5 ge xchart4l 7 le and {%5>=xchart4l<=7
/xt10x [(-120) ( ) ( ) ( ) (120)] def
xchart4l 5 eq {
/xt10x [(-120) ( ) ( ) ( ) ()] def
             } if

/yt10x [(-120) ( ) ( ) ( ) (  120)] def
             } if %4>=xchart4l<=6

0 0 0 1 setcmyk_olvcolor
0 1 4 {/i exch def %i=0,4 x-axis
        -1600   i 800   mul add  -75 moveto 0 150 rlineto stroke
        -1800   i 800   mul add -250 moveto
        TBS xt10x i get show
        i 4 eq {-1600 i 800 mul add 0 moveto
               xchart4l 4 eq { %xchart4l=4
                             -150 150 rmoveto
                             TBIS (A) show xcolorl 1 eq {(10) ib6} if
                            } if %xchart4l=4
               xchart4l 5 eq { %xchart4l=5
                             -250 100 rmoveto
                             TBIS (a*) show xcolorl 1 eq {(10) ib6} if
                            } if %xchart4l=5
               xchart4l 6 eq { %xchart4l=6
                             -400 150 rmoveto
                             TBIS (a*) show (D65) ib6
                             xcolorl 1 eq {(,10) ib6} if
                            } if %xchart4l=6
               xchart4l 7 eq { %xchart4l=7
                             -200 150 rmoveto
                             TBIS (A*) show xcolorl 1 eq {(10) ib6} if
                            } if %xchart4l=7
               } if

       } for %i=0,4

0 1 4 {/i exch def %i=0,4 y-axis
       -75 -1600 i 800 mul    add moveto 150 0 rlineto stroke
       100 -1600 i 800 mul    add 100 sub moveto
       TBS yt10x i get show
       i 4 eq {0 -1600 i 800 mul add moveto
               xchart4l 4 eq { %xchart4l=4
                             -450 150 rmoveto
                             TBIS (B) show xcolorl 1 eq {(10) ib6} if
                            } if %xchart4l=4
               xchart4l 5 eq { %xchart4l=5
                             -500 150 rmoveto
                             TBIS (b*) show xcolorl 1 eq {(10) ib6} if
                            } if %xchart4l=5
               xchart4l 6 eq { %xchart4l=6
                             -750 200 rmoveto
                             TBIS (b*) show (D65) ib6
                             xcolorl 1 eq {(,10) ib6} if
                            } if %xchart4l=6
               xchart4l 7 eq { %xchart4l=7
                             -500 150 rmoveto
                             TBIS (B*) show xcolorl 1 eq {(10) ib6} if 
                            } if %xchart4l=7
             } if

       } for %i=0,4

xchart4l 5 eq {-0250 0000 translate} if %for a*,b*
-3500 -2000 translate

} if %4>=xchart4l<=7


%*******************************************************
%actual data

/imshow {0 -50 rmoveto TBL (m) show 0 50 rmoveto TBIS} def
/ioshow {0 -50 rmoveto TBL (o) show 0 50 rmoveto TBIS} def
/imeshow {0 -50 rmoveto TBL (me) show 0 50 rmoveto TBIS} def
/ioeshow {0 -50 rmoveto TBL (oe) show 0 50 rmoveto TBIS} def

%*************************************************

%used for both the 2- and 10-degree observer
xcolorl 0 eq {%xcolorl=0
             /XD65 95.04 def
             /YD65 100.00 def
             /ZD65 108.89 def
            } %xcolorl=0
            { %xcolorl=1
             /XD65 94.81 def
             /YD65 100.00 def
             /ZD65 107.33 def
            } ifelse %xcolorl=1

xchart4l 0 eq {%xchart4l=0 %only for (x,y)

/fakt 4000 def

600 400 translate %for scala and graphic

0 1 05 {/i exch def %i=0,39
        XANi i get fakt mul
        YANi i get fakt mul 
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XANW fakt mul YANW fakt mul 90 0 360 arc stroke
XANW fakt mul 200 sub YANW fakt mul 250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 7 {/i exch def %i=0,5
/SUM Xi i get
     Yi i get add
     Zi i get add 0.0001 add def 
/AnY Xi i get SUM div fakt mul def
/BnY Yi i get SUM div fakt mul def
i 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imeshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imeshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 450 sub BnY 050 sub moveto (G) show imeshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 200 sub BnY 200 add moveto (B) show imeshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 100 add BnY 150 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Ro
i 7 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Go

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,7

-600 -400 translate %for scala and grafic

} if %xchart4l=0

xchart4l 1 eq {%xchart4l=1 %only for (a,b)

/fakt 1000 def
/a20 XW YW 0.0001 add div def
/b20 ZW YW 0.0001 add div -0.4 mul def

 1300 3200 translate %for grafic

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div fakt mul %a
        Zi i get Yi i get 0.0001 add div fakt mul %b
        0.4 mul neg
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW YW 0.0001 add div fakt mul
ZW YW 0.0001 add div fakt mul
0.4 mul neg 90 0 360 arc stroke

XW YW 0.0001 add div fakt mul
200 sub
ZW YW 0.0001 add div fakt mul
0.4 mul neg
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 7 {/i exch def %i=0,7
/AnY Xi i get Yi i get 0.0001 add div
     fakt mul def
/BnY Zi i get Yi i get 0.0001 add div
     fakt mul 0.4 mul neg def
i 0 eq {AnY 100 add BnY 250 sub moveto (R) show imeshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imeshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 450 sub BnY 250 add moveto (G) show imeshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 200 sub BnY 200 add moveto (B) show imeshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 150 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 000 add BnY 200 add moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Ro
i 7 eq {AnY 150 add BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Go


newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,7

-1300 -3200 translate %for grafic

} if %xchart4l=1


xchart4l 2 eq {%xchart4l=2 %only for (a',b') CIELAB_D65

/D13 1 3 div def
/fakt 13333 def

/a20 1 XD65 div D13 exp def          %a20,2=0.2191  a20,10=0.2193
/b20 1 ZD65 div D13 exp -0.4 mul def %b20,2=-0.0837 b20,10=-0.08417

%/a20 XW YW 0.0001 add div
%    D13 exp 0.2191 mul def
%/b20 ZW YW 0.0001 add div 
%    D13 exp -0.08376 mul def

 200 3200 translate %for graphic

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div                 %a'
        D13 exp a20 mul fakt mul
        Zi i get Yi i get 0.0001 add div                 %b' 
        D13 exp b20 mul fakt mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW YW 0.0001 add div                 %a'
D13 exp a20 mul fakt mul
ZW YW 0.0001 add div                 %b' 
D13 exp b20 mul fakt mul
90 0 360 arc stroke

XW YW 0.0001 add div                 %a'
D13 exp a20 mul fakt mul
200 sub
ZW YW 0.0001 add div                 %b' 
D13 exp b20 mul fakt mul
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 7 {/i exch def %i=0,7

/AnY Xi i get Yi i get 0.0001 add div       %a'
     D13 exp a20 mul fakt mul def
/BnY Zi i get Yi i get 0.0001 add div       %b'
     D13 exp b20 mul fakt mul def

i 0 eq {AnY 100 add BnY 250 sub moveto (R) show imeshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imeshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 050 sub moveto (G) show imeshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imeshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 100 add BnY 250 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 400 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,5

-200  -3200 translate %for graphic

} if %xchart4l=2

xchart4l 3 eq {%xchart4l=3 %only for (a', b') LABHNU1

/fakt 13333 def
/D13 1 3 div def
/D16 1 6 div def

/a20 1 15 div def     %a20=0.06666
/b20 1 12 div neg def %b20=-0.08333

200    0 translate %add shift (a',b')
800 3200 translate %for grafic

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div                 %a'
        1 add a20 mul fakt mul
        Zi i get Yi i get 0.0001 add div                 %b'
        D16 add D13 exp b20 mul fakt mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW YW 0.0001 add div                 %a'
1 add a20 mul fakt mul
ZW YW 0.0001 add div                 %b' 
D16 add D13 exp b20 mul fakt mul
90 0 360 arc stroke

XW YW 0.0001 add div                 %a'
1 add a20 mul fakt mul
%200 sub
ZW YW 0.0001 add div                 %b' 
D16 add D13 exp b20 mul fakt mul
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 7 {/i exch def %i=0,7

/AnY Xi i get Yi i get 0.0001 add div         %a'
     1 add a20 mul fakt mul def
/BnY Zi i get Yi i get 0.0001 add div         %b'
     D16 add D13 exp b20 mul fakt mul def

0 setgray
i 0 eq {AnY 150 add BnY 050 sub moveto (R) show imeshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imeshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 500 sub BnY 050 sub moveto (G) show imeshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 500 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 150 add BnY 100 sub moveto (B) show imeshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 100 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 150 add BnY 050 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Ro
i 7 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Go

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,5

800 neg -3200 translate %for graphic
200    0 translate %add shift (a',b')

} if %xchart4l=3

xchart4l 4 eq {%xchart4l=4 %only for (A,B)

/fakt 40 def
/a20 1.00 def
/b20 -0.4 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show (w) ib6 xcolorl 1 eq {(,10) ib6} if TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (A) show xcolorl 1 eq {(10) ib6} if
TBS ( = \050) show
TBIS (a) show xcolorl 1 eq {(10) ib6} if
TBS ( - ) show
TBIS (a) show (n) ib6 xcolorl 1 eq {(,10) ib6} if
TBS (\051 ) show
TBIS (Y) show xcolorl 1 eq {(10) ib6} if

-3400 1300 moveto
TBIS (B) show xcolorl 1 eq {(10) ib6} if
TBS ( = \050) show
TBIS (b) show xcolorl 1 eq {(10) ib6} if
TBS ( - ) show
TBIS (b) show (n) ib6 xcolorl 1 eq {(10) ib6} if
TBS (\051 ) show
TBIS (Y) show xcolorl 1 eq {(10) ib6} if

-3400 1050 moveto
TBIS (a) show xcolorl 1 eq {(10) ib6} if
TBS ( = ) show
TBIS (a) show (20) ib6 
TBS ( [) show
TBIS (x) show xcolorl 1 eq {(10) ib6} if TBS (/) show
TBIS (y) show xcolorl 1 eq {(10) ib6} if TBS (]) show

-3400 800 moveto
TBIS (b) show xcolorl 1 eq {(10) ib6} if
TBS ( = ) show
TBIS (b) show (20) ib6
TBS ( [) show
TBIS (z) show xcolorl 1 eq {(10) ib6} if TBS (/) show
TBIS (y) show xcolorl 1 eq {(10) ib6} if TBS (]) show

-3400 550 moveto
TBIS (a) show (20) ib6 TBS ( = 1) show

-3400 300 moveto
TBIS (b) show (20) ib6 TBS ( = -0,4) show

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div          %(a-an)Y
        XK       YK       0.0001 add div sub
        Yi i get mul fakt mul
        Zi i get Yi i get 0.0001 add div          %(b-bn)Y
        ZK       YK       0.0001 add div sub 0.4 mul neg
        Yi i get mul fakt mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div                 %(a-an)YW
XK       YK       0.0001 add div sub
YW mul fakt mul
ZW       YW       0.0001 add div                 %(b-an)YW
ZK       YK       0.0001 add div sub 0.4 mul neg
YW mul fakt mul
90 0 360 arc stroke

0 200 sub
0 250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 7 {/i exch def %i=0,7

/AnY Xi i get Yi i get 0.0001 add div          %(a-an)Y
     XK       YK       0.0001 add div sub
     Yi i get mul fakt mul def
/BnY Zi i get Yi i get 0.0001 add div          %(b-bn)Y
     ZK       YK       0.0001 add div sub 0.4 mul neg
     Yi i get mul fakt mul def

i 0 eq {AnY 100 add BnY 050 sub moveto (R) show imeshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 200 sub BnY 200 add moveto (Y) show imeshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 500 sub BnY 000 add moveto (G) show imeshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 150 add BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 100 sub BnY 250 sub moveto (B) show imeshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 000 add BnY 250 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 400 sub BnY 050 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Ro
i 7 eq {AnY 150 sub BnY 200 add moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Go

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,7

} if %xchart4l=4

xchart4l 5 eq {%xchart4l=5 %only for (a*,b*)

/D13 1 3 div def
/fakt 40 3 div def
/a20 0.2191 def
/b20 -0.08376 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show (w) ib6 xcolorl 1 eq {(,10) ib6} if TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show xcolorl 1 eq {(10) ib6} if
TBS ( = 500 \050) show
TBIS (a') show xcolorl 1 eq {(10) ib6} if
TBS ( - ) show
TBIS (a') show (n) ib6 xcolorl 1 eq {(,10) ib6} if
TBS (\051 ) show
TBIS (Y) show xcolorl 1 eq {(10) ib6} if
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show xcolorl 1 eq {(10) ib6} if
TBS ( = 500 \050) show
TBIS (b') show xcolorl 1 eq {(10) ib6} if
TBS ( - ) show
TBIS (b') show (n) ib6 xcolorl 1 eq {(,10) ib6} if
TBS (\051 ) show
TBIS (Y) show xcolorl 1 eq {(10) ib6} if
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a') show xcolorl 1 eq {(10) ib6} if
TBS ( = ) show
TBIS (a) show (20) ib6
TBS ( [) show
TBIS (x) show xcolorl 1 eq {(10) ib6} if TBS (/) show
TBIS (y) show xcolorl 1 eq {(10) ib6} if TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b') show xcolorl 1 eq {(10) ib6} if
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (20) show 0 50 rmoveto
TBS ( [) show
TBIS (z) show xcolorl 1 eq {(10) ib6} if TBS (/) show
TBIS (y) show xcolorl 1 eq {(10) ib6} if TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
/a20 1 XW div 0.3333 exp def
TBIS (a) show (20) ib6 xcolorl 1 eq {(10) ib6} if
TBS (=[1/) show TBIS (X) show (n) ib6 xcolorl 1 eq {(,10) ib6} if
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a20 cvsshow4x

-3400 300 moveto
/b20 1 ZW div 0.3333 exp -0.4 mul def
TBIS (b) show (20) ib6 xcolorl 1 eq {(10) ib6} if
TBS (=-[1/) show TBIS (Z) show (n) ib6 xcolorl 1 eq {(,10) ib6} if
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b20 cvsshow4x

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

 0250 0000 translate

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a20 mul                               %a'= a20 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a20 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b20 mul                               %b' = b20 (z/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b20 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div
D13 exp a20 mul
XK       YK       0.0001 add div
D13 exp a20 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D13 exp b20 mul
ZK       YK       0.0001 add div
D13 exp b20 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

90 0 360 arc stroke

XW       YW       0.0001 add div
D13 exp a20 mul
XK       YK       0.0001 add div
D13 exp a20 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div
D13 exp b20 mul
ZK       YK       0.0001 add div
D13 exp b20 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
TBS TELi xchartl get show

TBIS
0 1 7 {/i exch def %i=0,7

/AnY    Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a20 mul                               %a'= a20 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a20 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b20 mul                               %b'= b20 (x/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b20 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

0 setgray
i 0 eq {AnY 100 add BnY 050 sub moveto (R) show imeshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 250 sub BnY 350 sub moveto (Y) show imeshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 100 add BnY 100 sub moveto (G) show imeshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 150 add BnY 000 add moveto (B) show imeshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 100 add BnY 050 add moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Ro
i 7 eq {AnY 100 add BnY 100 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Go

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,7
-0250   000 translate
-3500 -2000 translate %for text and grafic

} if %xchart4l=5

xchart4l 6 eq {%xchart4l=6 %only for (a*,b*) with const. for D65

/D13 1 3 div def
/fakt 40 3 div def
%/a20 0.2191 def
%/b20 -0.08376 def

/a20 1 XD65 div 0.3333 exp def
/b20 1 ZD65 div 0.3333 exp -0.4 mul def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show (w) ib6 xcolorl 1 eq {(,10) ib6} if TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show xcolorl 1 eq {(10) ib6} if
TBS ( = 500 \050) show
TBIS (a') show xcolorl 1 eq {(10) ib6} if
TBS ( - ) show
TBIS (a') show (n) ib6 xcolorl 1 eq {(,10) ib6} if
TBS (\051 ) show
TBIS (Y) show xcolorl 1 eq {(10) ib6} if
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show xcolorl 1 eq {(10) ib6} if
TBS ( = 500 \050) show
TBIS (b') show xcolorl 1 eq {(10) ib6} if
TBS ( - ) show
TBIS (b') show (n) ib6 xcolorl 1 eq {(,10) ib6} if
TBS (\051 ) show
TBIS (Y) show xcolorl 1 eq {(10) ib6} if
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a') show xcolorl 1 eq {(10) ib6} if
TBS ( = ) show
TBIS (a) show (20) ib6
TBS ( [) show
TBIS (x) show xcolorl 1 eq {(10) ib6} if TBS (/) show
TBIS (y) show xcolorl 1 eq {(10) ib6} if TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b') show xcolorl 1 eq {(10) ib6} if
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (20) show 0 50 rmoveto
TBS ( [) show
TBIS (z) show xcolorl 1 eq {(10) ib6} if TBS (/) show
TBIS (y) show xcolorl 1 eq {(10) ib6} if TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show (20) ib6
TBS (=[1/) show TBIS (X) show (D65) ib6 xcolorl 1 eq {(,10) ib6} if
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a20 cvsshow4x

-3400 300 moveto
TBIS (b) show (2) ib6 xcolorl 1 eq {(10) ib6} if
TBS (=-[1/) show TBIS (Z) show (D65) ib4 xcolorl 1 eq {(,10) ib6} if
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b20 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a20 mul                               %a'= a20 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a20 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b20 mul                               %b'= b20 (z/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b20 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div
D13 exp a20 mul
XK       YK       0.0001 add div
D13 exp a20 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D13 exp b20 mul
ZK       YK       0.0001 add div
D13 exp b20 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

90 0 360 arc stroke

XW       YW       0.0001 add div             %500(a'-a'n)Y**(1/3)
D13 exp a20 mul                               %a'= a20 (x/y)**(1/3)
XK       YK       0.0001 add div
D13 exp a20 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div             %500(b'-b'n)Y**(1/3)
D13 exp b20 mul                               %a'= a20 (x/y)**(1/3)
ZK       YK       0.0001 add div
D13 exp b20 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
TBS TELi xchartl get show

TBIS
0 1 7 {/i exch def %i=0,7

/AnY    Xi i get Yi i get 0.0001 add div
        D13 exp a20 mul
        XK       YK       0.0001 add div
        D13 exp a20 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div
        D13 exp b20 mul
        ZK       YK       0.0001 add div
        D13 exp b20 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

0 setgray
i 0 eq {AnY 100 add BnY 100 sub moveto (R) show imeshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imeshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 100 add BnY 250 sub moveto (G) show imeshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 010 add BnY 150 add moveto (B) show imeshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 100 add BnY 100 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Ro
i 7 eq {AnY 100 add BnY 250 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Go

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,5

-3500 -2000 translate %for text and grafic

} if %xchart4l=6

xchart4l 7 eq {%xchart4l=7 %only for (A*,B*) LABHNU1_79

/D13 1 3 div def
/D11 1 def
/D16  1 6 div def
/fakt 40 3 div def
/a20 1 15 div def
/b20 1 12 div neg def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show (w) ib6 xcolorl 1 eq {(,10) ib6} if TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (A*) show xcolorl 1 eq {(10) ib6} if
TBS ( = 500 \050) show
TBIS (a') show xcolorl 1 eq {(10) ib6} if
TBS ( - ) show
TBIS (a') show (n) ib6 xcolorl 1 eq {(,10) ib6} if
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (B*) show xcolorl 1 eq {(10) ib6} if
TBS ( = 500 \050) show
TBIS (b') show xcolorl 1 eq {(10) ib6} if
TBS ( - ) show
TBIS (b') show (n) ib6 xcolorl 1 eq {(,10) ib6} if
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a') show xcolorl 1 eq {(10) ib6} if
TBS ( = ) show
TBIS (a) show (20) ib6
TBS ( [) show
TBIS (x) show xcolorl 1 eq {(10) ib6} if TBS (/) show
TBIS (y) show xcolorl 1 eq {(10) ib6} if TBS ( + 1]) show

-3400 800 moveto
TBIS (b') show xcolorl 1 eq {(10) ib6} if
TBS ( = ) show
TBIS (b) show (20) ib6
TBS ( [) show
TBIS (z) show xcolorl 1 eq {(10) ib6} if TBS (/) show
TBIS (y) show xcolorl 1 eq {(10) ib6} if TBS ( + 1/6 ]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS

-3400 550 moveto
TBIS (a) show (20) ib6
TBS ( = 1/15 = ) show a20 cvsshow5

-3400 300 moveto
TBIS (b) show (20) ib6
TBS ( = -1/12 = ) show b20 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div            %500(a'-a'n)Y**(1/3)
        D11 add a20 mul                              %a'=(x/y+1)/15
        XK       YK       0.0001 add div
        D11 add a20 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
                                                       
        Zi i get Yi i get 0.0001 add div            %500(b'-b'n)Y**(1/3)
        D16 add D13 exp b20 mul                      %b'=-[(z/y +1/6)**(1/3)]/12
        ZK       YK       0.0001 add div
        D16 add D13 exp b20 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div
D11 add a20 mul
XK       YK       0.0001 add div
D11 add a20 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D16 add D13 exp b20 mul
ZK       YK       0.0001 add div
D16 add D13 exp b20 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

90 0 360 arc stroke

XW       YW       0.0001 add div
D11 add a20 mul
XK       YK       0.0001 add div
D11 add a20 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div
D16 add D13 exp b20 mul
ZK       YK       0.0001 add div
D16 add D13 exp b20 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
TBS TELi xchartl get show

TBIS
0 1 7 {/i exch def %i=0,7

/AnY    Xi i get Yi i get 0.0001 add div            %500(a'-a'n)Y**(1/3)
        D11 add a20 mul                              %a'=(x/y+1)/15
        XK       YK       0.0001 add div
        D11 add a20 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div            %500(b'-b'n)Y**(1/3)
        D16 add D13 exp b20 mul                      %b'=-[(z/y +1/6)**(1/3)]/12
        ZK       YK       0.0001 add div
        D16 add D13 exp b20 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

0 setgray
i 0 eq {AnY 150 add BnY 000 sub moveto (R) show imeshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 450 sub BnY 050 add moveto (Y) show imeshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 350 sub BnY 200 sub moveto (G) show imeshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 500 sub BnY 000 add moveto (B) show imeshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 150 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 000 add BnY 150 add moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 100 sub BnY 200 add moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,7

-3500 -2000 translate %for text and grafic

} if %xchart4l=7

showpage
grestore

} for %xchartl=0,7

%} for %xchart4l=0,7

%} for %xcolorl=0,1

%%Trailer