%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/CE47/CE470-7N_R 20180201
%%BoundingBox: 70 82 785 580

%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: farbe.li.tu-berlin.de/CE47/CE47.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2018020112000)
  /ModDate (D:20180201112000)
/DOCINFO pdfmark07
[ /View [ /Fit ]
/DOCVIEW pdfmark07
%END  PDFDE011

/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
/TV   {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
/TIV  {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
/TBV  {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
/TBIV {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
/SV {160 /Symbol FS} bind def

/CV {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

/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 {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

/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

/tolvfcol    %Farbkreis-Reihenfolge
[ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF)
  (777) (700) (770) (070) (077) (007) (707) (F07) %15=R
  (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B
  (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G
] def
 
/tcmyfcol    %Farbkreis-Reihenfolge
[ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000)
  (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R
  (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B
  (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G
] def
 
/tcmykfcol   %Farbkreis-Reihenfolge
[ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000)
  (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R
  (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B
  (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G
] def
 
/tolvfcols    %Farbkreis-Reihenfolge
[ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*)
  (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R
  (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B
  (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G
] def
 
/tcmyfcols    %Farbkreis-Reihenfolge
[ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*)
  (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R
  (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B
  (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G
] def
 
/tcmykfcols   %Farbkreis-Reihenfolge
[ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*)
  (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R
  (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B
  (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G
] def
 
/fcolors     %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge
[{0.0 0.0 0.0 1.0}  {0.0 1.0 1.0 0.0}  {0.0 0.0 1.0 0.0}  {1.0 0.0 1.0 0.0}
 {1.0 0.0 0.0 0.0}  {1.0 1.0 0.0 0.0}  {0.0 1.0 0.0 0.0}  {0.0 0.0 0.0 0.0}
 
 {0.0 0.0 0.0 0.5}  {0.0 1.0 1.0 0.5}  {0.0 0.0 1.0 0.5}  {1.0 0.0 1.0 0.5}
 {1.0 0.0 0.0 0.5}  {1.0 1.0 0.0 0.5}  {0.0 1.0 0.0 0.5}  {0.0 1.0 0.5 0.0}
 
 {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0}  {0.0 0.0 0.5 0.0}  {0.5 0.0 0.5 0.0}
 {0.5 0.0 0.0 0.0}  {0.5 0.5 0.0 0.0}  {0.0 0.5 0.0 0.0}  {1.0 0.5 0.0 0.0}
 
 {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0}  {0.5 0.0 1.0 0.0}  {1.0 0.0 0.5 0.0}
 {1.0 0.5 0.0 0.0}  {0.5 1.0 0.0 0.0}  {0.0 1.0 0.5 0.0}  {1.0 0.0 0.5 0.0}
] def
 
/fak 0.5 def
 
/Far     %Farbkreis-Reihenfolge
 [ 0  1  2  3  4  5  6  7
   8  9 10 11 12 13 14 15 %R
  16 17 18 19 20 21 22 23 %B
  24 25 26 27 28 29 30 31 %G
 ] def
 
/cFar     %Kompensativ-Farbkreis-Reihenfolge
 [ 8  4  5  6  1  2  3  0
   0 20 21 22 17 18 19 31 %G
  24 12 13 14  9 10 11  2 %J
  16 28 29 30 25 26 27 15 %R
 ] def
 
/Btx    %Farbkreis- -> %Btx-Reihenfolge
 [ 0  1  3  2  5  6  4  7
   8  9 11 10 13 14 12 15  %R
  16 17 19 18 21 22 20 23  %B
  24 25 26 27 28 29 30 31  %G
 ] def
 
/cBtx    %Farbkreis- -> %Kompensativ-Btx-Reihenfolge
 [ 7  4  6  5  2  3  1  0
   8 20 22 21 18 19 17 31 %G
  24 12 14 13 10 11  9  2 %J
  16 25 26 27 28 29 30 15 %R
 ] def
 
/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def
 
/colrecfi %x y width heigth c m y k
  {setcmykcolor rec fill} bind def
 
/colrecst %x y width heigth c m y k
  {setcmykcolor rec stroke} bind def
 
/tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzl {1.0 0.0 1.0 0.0} bind def
/tzv {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def
 
/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def
 
/tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben
/tzg {1.0 0.0 0.5 0.0} bind def
/tzb {1.0 0.5 0.0 0.0} bind def
/tzj {0.0 0.0 1.0 0.0} bind def
 
/tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut
/tzgz {1.0 0.0 0.5 0.5} bind def
/tzbz {1.0 0.5 0.0 0.5} bind def
/tzjz {0.0 0.0 1.0 0.5} bind def
 
/tfo {tzo setcmykcolor} bind def
/tfl {tzl setcmykcolor} bind def
/tfv {tzv setcmykcolor} bind def
/tfc {tzc setcmykcolor} bind def
/tfm {tzm setcmykcolor} bind def
/tfy {tzy setcmykcolor} bind def
 
/tfn {tzn setcmykcolor} bind def
/tfd {tzd setcmykcolor} bind def
/tfz {tzz setcmykcolor} bind def
/tfh {tzh setcmykcolor} bind def
/tfw {tzw setcmykcolor} bind def
 
/tfr {tzr setcmykcolor} bind def
/tfg {tzg setcmykcolor} bind def
/tfb {tzb setcmykcolor} bind def
/tfj {tzj setcmykcolor} bind def
 
/tfrz {tzrz setcmykcolor} bind def
/tfgz {tzgz setcmykcolor} bind def
/tfbz {tzbz setcmykcolor} bind def
/tfjz {tzjz setcmykcolor} bind def
 
%2-degree CIE fundamental observer, 77 data, 380-760nm, delta=5nm
/l02Ii 77 array def  /m02Ii 77 array def  /s02Ii 77 array def
/l02Mi 77 array def  /m02Mi 77 array def  /s02Mi 77 array def
/X02Ii   77 array def  /Y02Ii   77 array def  /Z02Ii   77 array def
/xan02Ii 77 array def  /yan02Ii 77 array def  /zan02Ii 77 array def
/X02Mi   77 array def  /Y02Mi   77 array def  /Z02Mi   77 array def
/xan02Mi 77 array def  /yan02Mi 77 array def  /zan02Mi 77 array def
/ycuri   77 array def

%10-degree CIE fundamental observer, 77 data, 380-760nm, delta=5nm
/l10Ii 77 array def  /m10Ii 77 array def  /s10Ii 77 array def
/l10Mi 77 array def  /m10Mi 77 array def  /s10Mi 77 array def
/X10Ii   77 array def  /Y10Ii   77 array def  /Z10Ii   77 array def
/xan10Ii 77 array def  /yan10Ii 77 array def  /zan10Ii 77 array def
/X10Mi   77 array def  /Y10Mi   77 array def  /Z10Mi   77 array def
/xan10Mi 77 array def  /yan10Mi 77 array def  /zan10Mi 77 array def
/ycurj   80 array def

%2-degree CIE standard observer, 80 data, 380-775nm, delta=5nm 
/l02Ij 80 array def  /m02Ij 80 array def  /s02Ij 80 array def
/l02Mj 80 array def  /m02Mj 80 array def  /s02Mj 80 array def
/X02Ij   80 array def  /Y02Ij   80 array def  /Z02Ij   80 array def
/xan02Ij 80 array def  /yan02Ij 80 array def  /zan02Ij 80 array def
/X02Mj   80 array def  /Y02Mj   80 array def  /Z02Mj   80 array def
/xan02Mj 80 array def  /yan02Mj 80 array def  /zan02Mj 80 array def
/ycurj   80 array def

%10-degree CIE standard observer, 80 data, 380-775nm, delta=5nm
/l10Ij 80 array def  /m10Ij 80 array def  /s10Ij 80 array def
/l10Mj 80 array def  /m10Mj 80 array def  /s10Mj 80 array def
/X10Ij   80 array def  /Y10Ij   80 array def  /Z10Ij   80 array def
/xan10Ij 80 array def  /yan10Ij 80 array def  /zan10Ij 80 array def
/X10Mj   80 array def  /Y10Mj   80 array def  /Z10Mj   80 array def
/xan10Mj 80 array def  /yan10Mj 80 array def  /zan10Mj 80 array def
/ycurj   80 array def

%actual 2 or 10-degree CIE standard observer, 80 data, 380-775nm, delta=5nm
/lA1j 80 array def  /mA1j 80 array def  /sA1j 80 array def
/lASj 80 array def  /mASj 80 array def  /sASj 80 array def
/XA1j   80 array def  /YA1j   80 array def  /ZA1j   80 array def
/xanA1j 80 array def  /yanA1j 80 array def  /zanA1j 80 array def
/XASj   80 array def  /YASj   80 array def  /ZASj   80 array def
/xanASj 80 array def  /yanASj 80 array def  /zanASj 80 array def
/ycurj   80 array def

/l10Mi [
%LMS2.TXT
%L2.DAT CIE Table 6.7, p. 34 380=390,385=390, 390, 395, ...760nm
4.150019e-4 4.150019e-4 4.150019e-4 1.051914e-3 2.408353e-3 %400
4.833371e-3 8.721273e-3 1.338382e-2 1.844803e-2 2.293190e-2
2.818772e-2 3.410515e-2 4.025595e-2 4.493761e-2 4.986433e-2 %450
5.534138e-2 6.471575e-2 8.069006e-2 9.947639e-2 1.188010e-1
1.401458e-1 1.639532e-1 1.915579e-1 2.329271e-1 2.889615e-1 %500
3.597162e-1 4.436801e-1 5.364880e-1 6.285647e-1 7.047255e-1
7.706373e-1 8.257146e-1 8.810083e-1 9.190730e-1 9.401995e-1 %550
9.657395e-1 9.814541e-1 9.944890e-1 1           9.923160e-1
9.694379e-1 9.556085e-1 9.276625e-1 8.859720e-1 8.339884e-1 %600
7.751040e-1 7.057161e-1 6.307685e-1 5.542300e-1 4.799434e-1
4.007098e-1 3.278612e-1 2.657847e-1 2.132849e-1 1.651391e-1 %650
1.247498e-1 9.300794e-2 6.850937e-2 4.986664e-2 3.582284e-2
2.537932e-2 1.772025e-2 1.216998e-2 8.471687e-3 5.897527e-3 %700
4.091288e-3 2.804465e-3 1.920570e-3 1.326875e-3 9.177829e-4
6.393665e-4 4.460361e-4 3.108708e-4 2.193310e-4 1.545503e-4 %750
1.095065e-4 7.799195e-5
] def

/m02Mi [
%M2.DAT
3.683495e-4 3.683495e-4 3.683495e-4 9.586496e-4 2.269917e-3 %400
4.700132e-3 8.793667e-3 1.452780e-2 2.166506e-2 2.957127e-2
3.945663e-2 5.182030e-2 6.477837e-2 7.588048e-2 8.705225e-2 %450
9.819288e-2 1.162733e-1 1.445407e-1 1.758936e-1 2.053998e-1
2.357545e-1 2.680649e-1 3.036267e-1 3.570590e-1 4.277598e-1 %500
5.155847e-1 6.155169e-1 7.191508e-1 8.166012e-1 8.855437e-1
9.356857e-1 9.688577e-1 9.952165e-1 9.971948e-1 9.771922e-1 %550 9.995->9.95?
9.565771e-1 9.177407e-1 8.732126e-1 8.135046e-1 7.402868e-1
6.532810e-1 5.725950e-1 4.925950e-1 4.112444e-1 3.344260e-1 %600
2.648744e-1 2.052721e-1 1.562428e-1 1.166407e-1 8.558743e-2
6.211264e-2 4.448770e-2 3.142624e-2 2.180369e-2 1.544792e-2 %650
1.071199e-2 7.302475e-3 4.971759e-3 3.436687e-3 2.376184e-3
1.637344e-3 1.121270e-3 7.610442e-4 5.254605e-4 3.653171e-4 %700
2.534195e-4 1.744014e-4 1.206090e-4 8.417245e-5 5.893455e-5
4.160449e-5 2.943542e-5 2.088575e-5 1.504562e-5 1.082007e-5 %750
7.822762e-6 5.690886e-6
] def
/s02Mi [
%S2.DAT CIE 171.1:2006
9.547289e-3 9.547289e-3 %380,385
9.547289e-3 2.382484e-2 5.665002e-2 1.224503e-1 2.330076e-1 %410
3.813643e-1 5.436132e-1 6.744815e-1 8.025461e-1 9.035662e-1
9.910145e-1 9.915166e-1 9.553885e-1 8.602408e-1 7.867016e-1 %460
7.382611e-1 6.463534e-1 5.164164e-1 3.903373e-1 2.903220e-1
2.118654e-1 1.605240e-1 1.228400e-1 8.889554e-2 6.082050e-2 %510
4.281244e-2 2.920317e-2 1.939099e-2 1.260114e-2 8.094500e-3 
5.088971e-3 3.168911e-3 1.958935e-3 1.202763e-3 7.401673e-4 %560
4.559845e-4 2.817993e-4 1.750370e-4 1.094536e-4 6.899855e-5
4.390257e-5 2.822280e-5 1.834593e-5 1.206675e-5 8.034895e-6 %610
5.418387e-6 0           0           0           0
0           0           0           0           0           %650
0           0           0           0           0
0           0           0           0           0           %700
0           0           0           0           0
0           0           0           0           0           %750
0           0
] def

/CIEF_LMS_02 298 array def %77x4
/CIEF_LMS_02 [%BEG CIEF_LMS_02 Cone fundamentals 5nm LMS 02-degree
%Cone fundamentals 5nm L M S 02-degree from Stockmann, see
%http://cvrl.ioo.ucl.ac.uk/ciepr8dp.htm Energy (linear) 5nm tab or
%http://cvrl.ioo.ucl.ac.uk/database/data/cones/linss10e_5_8dp.htm
380.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 %=390
385.0 4.15003360E-04 3.68349248E-04 9.54728799E-03 %=390
390.0 4.15003360E-04 3.68349248E-04 9.54728799E-03
395.0 1.05192281E-03 9.58658287E-04 2.38249757E-02
400.0 2.40836274E-03 2.26990665E-03 5.66497751E-02
405.0 4.83338951E-03 4.70010083E-03 1.22450936E-01
410.0 8.72126562E-03 8.79368990E-03 2.33008318E-01
415.0 1.33836930E-02 1.45277327E-02 3.81363350E-01
420.0 1.84480328E-02 2.16648593E-02 5.43618105E-01
425.0 2.29317499E-02 2.95714420E-02 6.74474074E-01
430.0 2.81877052E-02 3.94566147E-02 8.02554955E-01
435.0 3.41053893E-02 5.18198823E-02 9.03572547E-01
440.0 4.02562524E-02 6.47782187E-02 9.91020299E-01
445.0 4.49379920E-02 7.58812175E-02 9.91515250E-01
450.0 4.98639402E-02 8.70523965E-02 9.55393000E-01
455.0 5.53418498E-02 9.81933595E-02 8.60240453E-01
460.0 6.47164360E-02 1.16272079E-01 7.86703893E-01
465.0 8.06893625E-02 1.44540604E-01 7.38267621E-01
470.0 9.94755270E-02 1.75892769E-01 6.46359219E-01
475.0 1.18802152E-01 2.05398073E-01 5.16410649E-01
480.0 1.40145131E-01 2.35754060E-01 3.90333407E-01
485.0 1.63951537E-01 2.68063038E-01 2.90322411E-01
490.0 1.91556224E-01 3.03629653E-01 2.11866834E-01
495.0 2.32925516E-01 3.57060581E-01 1.60525792E-01
500.0 2.88959412E-01 4.27764487E-01 1.22838921E-01
505.0 3.59716421E-01 5.15586863E-01 8.88965361E-02
510.0 4.43682863E-01 6.15520174E-01 6.08209513E-02
515.0 5.36493787E-01 7.19154047E-01 4.28122756E-02
520.0 6.28561087E-01 8.16609632E-01 2.92032829E-02
525.0 7.04720332E-01 8.85549719E-01 1.93911943E-02
530.0 7.70629906E-01 9.35687022E-01 1.26012838E-02
535.0 8.25710771E-01 9.68858338E-01 8.09453368E-03
540.0 8.81010908E-01 9.95216550E-01 5.08900051E-03
545.0 9.19066658E-01 9.97192616E-01 3.16893322E-03
550.0 9.40197682E-01 9.77193335E-01 1.95895533E-03
555.0 9.65733133E-01 9.56583237E-01 1.20277126E-03
560.0 9.81444621E-01 9.17749837E-01 7.40173919E-04
565.0 9.94485919E-01 8.73204873E-01 4.55979308E-04
570.0 9.99993160E-01 8.13509255E-01 2.81799951E-04
575.0 9.92309909E-01 7.40291037E-01 1.75038547E-04

580.0 9.69429172E-01 6.53273547E-01 1.09453897E-04
585.0 9.55601819E-01 5.72596792E-01 6.89990581E-05
590.0 9.27672559E-01 4.92598798E-01 4.39023849E-05
595.0 8.85969334E-01 4.11245617E-01 2.82228417E-05
600.0 8.33982132E-01 3.34428550E-01 1.83458912E-05
605.0 7.75103324E-01 2.64872009E-01 1.20667447E-05
610.0 7.05713103E-01 2.05273346E-01 8.03487566E-06
615.0 6.30773388E-01 1.56242654E-01 5.41843079E-06
620.0 5.54224372E-01 1.16641491E-01 0.00000000E-00
625.0 4.79940995E-01 8.55871752E-02 0.00000000E-00
630.0 4.00710831E-01 6.21120321E-02 0.00000000E-00
635.0 3.27863707E-01 4.44878727E-02 0.00000000E-00
640.0 2.65784185E-01 3.14282295E-02 0.00000000E-00
645.0 2.13283643E-01 2.18037465E-02 0.00000000E-00
650.0 1.65140826E-01 1.54479552E-02 0.00000000E-00
655.0 1.24749078E-01 1.07119605E-02 0.00000000E-00
660.0 9.30084863E-02 7.30255150E-03 0.00000000E-00
665.0 6.85099590E-02 4.97179190E-03 0.00000000E-00
670.0 4.98660938E-02 3.43667061E-03 0.00000000E-00
675.0 3.58232509E-02 2.37617227E-03 0.00000000E-00
680.0 2.53790394E-02 1.63733769E-03 0.00000000E-00
685.0 1.77201275E-02 1.12127805E-03 0.00000000E-00
690.0 1.21701123E-02 7.61050801E-04 0.00000000E-00
695.0 8.47170037E-03 5.25456816E-04 0.00000000E-00
700.0 5.89748808E-03 3.65317316E-04 0.00000000E-00
705.0 4.09129197E-03 2.53417295E-04 0.00000000E-00
710.0 2.80446659E-03 1.74401753E-04 0.00000000E-00
715.0 1.92057783E-03 1.20607982E-04 0.00000000E-00
720.0 1.32686544E-03 8.41716373E-05 0.00000000E-00
725.0 9.17776773E-04 5.89349310E-05 0.00000000E-00
730.0 6.39372955E-04 4.16048509E-05 0.00000000E-00
735.0 4.46035067E-04 2.94354152E-05 0.00000000E-00
740.0 3.10869146E-04 2.08859570E-05 0.00000000E-00
745.0 2.19329240E-04 1.50457558E-05 0.00000000E-00
750.0 1.54549195E-04 1.08200177E-05 0.00000000E-00
755.0 1.09507604E-04 7.82271489E-06 0.00000000E-00
760.0 7.79912028E-05 5.69092610E-06 0.00000000E-00
%765.0 5.56263839E-05 4.13998115E-06 0.00000000E-00
%770.0 3.99294560E-05 3.02682745E-06 0.00000000E-00
%775.0 2.86162863E-05 2.21100363E-06 0.00000000E-00

%780.0 2.07321327E-05 1.63432668E-06 0.00000000E-00
%785.0 1.50432118E-05 1.21053851E-06 0.00000000E-00
%790.0 1.09446148E-05 8.99169870E-07 0.00000000E-00
%795.0 7.97750298E-06 6.69594072E-07 0.00000000E-00
%800.0 5.85057291E-06 5.03187359E-07 0.00000000E-00
%805.0 4.31101652E-06 3.80046377E-07 0.00000000E-00
%810.0 3.17008616E-06 2.86328659E-07 0.00000000E-00
%815.0 2.34468299E-06 2.16878259E-07 0.00000000E-00
%820.0 1.74666331E-06 1.65157769E-07 0.00000000E-00
%825.0 1.30240694E-06 1.25508416E-07 0.00000000E-00
%830.0 9.74306403E-07 9.53411481E-08 0.00000000E-00
] def  %END CIEF_LMS_02 Cone fundamentals 5nm LMS 02-degree

/CIEF_LMS_10 298 array def %77x4
/CIEF_LMS_10 [%BEG CIEF_LMS_10 Cone fundamentals 5nm LMS 10-degree
%Cone fundamentals 5nm L M S 02-degree from Stockmann, see
%http://cvrl.ioo.ucl.ac.uk/ciepr8dp.htm Energy (linear) 5nm tab or
%http://cvrl.ioo.ucl.ac.uk/database/data/cones/linss10e_5_8dp.htm
380 4.07619067E-04 3.58227395E-04 6.14264795E-03 %=390
385 4.07619067E-04 3.58227395E-04 6.14264795E-03 %=390
390 4.07619067E-04 3.58227395E-04 6.14264795E-03
395 1.06920754E-03 9.64828092E-04 1.59514687E-02
400 2.54073042E-03 2.37207532E-03 3.96307943E-02
405 5.31546236E-03 5.12316225E-03 8.97612227E-02
410 9.98835098E-03 9.98840819E-03 1.78529924E-01
415 1.60129841E-02 1.72595696E-02 3.05941113E-01
420 2.33957137E-02 2.73163327E-02 4.62692207E-01
425 3.09103789E-02 3.96928205E-02 6.09570091E-01
430 3.97809896E-02 5.55383864E-02 7.56884632E-01
435 4.94171973E-02 7.50298610E-02 8.69984288E-01
440 5.94618805E-02 9.57611568E-02 9.66959512E-01
445 6.86537572E-02 1.16220119E-01 9.93336464E-01
450 7.95647427E-02 1.39493318E-01 9.91328844E-01
455 9.07704422E-02 1.62006089E-01 9.06735013E-01
460 1.06663473E-01 1.93201620E-01 8.23725866E-01
465 1.28336042E-01 2.32275228E-01 7.37042702E-01
470 1.51650594E-01 2.71441153E-01 6.10456321E-01
475 1.77116190E-01 3.10372033E-01 4.70893608E-01
480 2.07940052E-01 3.55066420E-01 3.50107654E-01
485 2.44045655E-01 4.05688377E-01 2.58496996E-01
490 2.82751994E-01 4.56137225E-01 1.85297483E-01
495 3.34785930E-01 5.22969940E-01 1.35350675E-01
500 3.91705331E-01 5.91002878E-01 9.67990105E-02
505 4.56251511E-01 6.66404323E-01 6.49613925E-02
510 5.26538428E-01 7.43612020E-01 4.12337488E-02
515 5.99866880E-01 8.16807889E-01 2.71299980E-02
520 6.75313179E-01 8.89213535E-01 1.76298483E-02
525 7.37107602E-01 9.34976841E-01 1.13251604E-02
530 7.88899549E-01 9.61961662E-01 7.17089441E-03
535 8.37403142E-01 9.81480903E-01 4.54287284E-03
540 8.90871319E-01 9.98930730E-01 2.83351880E-03
545 9.26659723E-01 9.91382642E-01 1.75572783E-03
550 9.44527173E-01 9.61875524E-01 1.08230483E-03
555 9.70702545E-01 9.35829058E-01 6.64512043E-04
560 9.85635735E-01 8.90949073E-01 4.08931409E-04
565 9.96979206E-01 8.40968769E-01 2.51918429E-04
570 9.99542570E-01 7.76525624E-01 1.55687802E-04
575 9.87057062E-01 7.00013057E-01 9.67045032E-05

580 9.57840611E-01 6.11727998E-01 6.04705364E-05
585 9.39781455E-01 5.31825085E-01 3.81202298E-05
590 9.06693013E-01 4.54142113E-01 2.42549460E-05
595 8.59605469E-01 3.76527354E-01 1.55923957E-05
600 8.03173191E-01 3.04377894E-01 1.01356328E-05
605 7.40679903E-01 2.39837365E-01 6.66656535E-06
610 6.68991113E-01 1.85103689E-01 4.43906145E-06
615 5.93247836E-01 1.40431078E-01 2.99354308E-06
620 5.17448826E-01 1.04572924E-01 0.00000000E-00
625 4.45124577E-01 7.65841125E-02 0.00000000E-00
630 3.69167951E-01 5.54989859E-02 0.00000000E-00
635 3.00316199E-01 3.97096689E-02 0.00000000E-00
640 2.42316360E-01 2.80314193E-02 0.00000000E-00
645 1.93730034E-01 1.94366360E-02 0.00000000E-00
650 1.49509341E-01 1.37659889E-02 0.00000000E-00
655 1.12637747E-01 9.54315350E-03 0.00000000E-00
660 8.38077035E-02 6.50455441E-03 0.00000000E-00
665 6.16383685E-02 4.42794317E-03 0.00000000E-00
670 4.48131819E-02 3.06049600E-03 0.00000000E-00
675 3.21659546E-02 2.11596127E-03 0.00000000E-00
680 2.27738100E-02 1.45797939E-03 0.00000000E-00
685 1.58939173E-02 9.98423741E-04 0.00000000E-00
690 1.09123394E-02 6.77652785E-04 0.00000000E-00
695 7.59452818E-03 4.67870233E-04 0.00000000E-00
700 5.28607164E-03 3.25278334E-04 0.00000000E-00
705 3.66675373E-03 2.25641354E-04 0.00000000E-00
710 2.51327467E-03 1.55285744E-04 0.00000000E-00
715 1.72107607E-03 1.07387972E-04 0.00000000E-00
720 1.18899676E-03 7.49453321E-05 0.00000000E-00
725 8.22396074E-04 5.24748323E-05 0.00000000E-00
730 5.72916838E-04 3.70443421E-05 0.00000000E-00
735 3.99670182E-04 2.62088417E-05 0.00000000E-00
740 2.78552580E-04 1.85965278E-05 0.00000000E-00
745 1.96527784E-04 1.33965008E-05 0.00000000E-00
750 1.38481790E-04 9.63396916E-06 0.00000000E-00
755 9.81226253E-05 6.96521810E-06 0.00000000E-00
760 6.98827164E-05 5.06710754E-06 0.00000000E-00
%765 4.98430350E-05 3.68617125E-06 0.00000000E-00
%770 3.57780519E-05 2.69503733E-06 0.00000000E-00
%775 2.56410800E-05 1.96864116E-06 0.00000000E-00

%780 1.85766264E-05 1.45517748E-06 0.00000000E-00
%785 1.34791749E-05 1.07784347E-06 0.00000000E-00
%790 9.80670540E-06 8.00605973E-07 0.00000000E-00
%795 7.14808254E-06 5.96195475E-07 0.00000000E-00
%800 5.24228869E-06 4.48029690E-07 0.00000000E-00
%805 3.86279972E-06 3.38386998E-07 0.00000000E-00
%810 2.84049184E-06 2.54942293E-07 0.00000000E-00
%815 2.10090587E-06 1.93104807E-07 0.00000000E-00
%820 1.56506236E-06 1.47053740E-07 0.00000000E-00
%825 1.16699539E-06 1.11750613E-07 0.00000000E-00
%830 8.73007530E-07 8.48901776E-08 0.00000000E-00
] def %END CIEF_LMS_10 Cone fundamentals 5nm LMS 10-degree

/CIEF_XYZ_02 298 array def %77x4
/CIEF_XYZ_02 [%BEG CIEF_XYZ_02 Colour matching functions 5nm 02-degree from Stockmann, see
%http://www.cvrl.org/ under CVRL Database
%output as format ps, convert to ASCII with macps2pdf
380 3.769647E-03 4.146161E-04 1.847260E-02 %=390
385 3.769647E-03 4.146161E-04 1.847260E-02 %=390
390 3.769647E-03 4.146161E-04 1.847260E-02
395 9.382967E-03 1.059646E-03 4.609784E-02
400 2.214302E-02 2.452194E-03 1.096090E-01
405 4.742986E-02 4.971717E-03 2.369246E-01
410 8.953803E-02 9.079860E-03 4.508369E-01
415 1.446214E-01 1.429377E-02 7.378822E-01
420 2.035729E-01 2.027369E-02 1.051821E+00
425 2.488523E-01 2.612106E-02 1.305008E+00
430 2.918246E-01 3.319038E-02 1.552826E+00
435 3.227087E-01 4.157940E-02 1.748280E+00
440 3.482554E-01 5.033657E-02 1.917479E+00
445 3.418483E-01 5.743393E-02 1.918437E+00
450 3.224637E-01 6.472352E-02 1.848545E+00
455 2.826646E-01 7.238339E-02 1.664439E+00
460 2.485254E-01 8.514816E-02 1.522157E+00
465 2.219781E-01 1.060145E-01 1.428440E+00
470 1.806905E-01 1.298957E-01 1.250610E+00
475 1.291920E-01 1.535066E-01 9.991789E-01
480 8.182895E-02 1.788048E-01 7.552379E-01
485 4.600865E-02 2.064828E-01 5.617313E-01
490 2.083981E-02 2.379160E-01 4.099313E-01
495 7.097731E-03 2.850680E-01 3.105939E-01
500 2.461588E-03 3.483536E-01 2.376753E-01
505 3.649178E-03 4.277595E-01 1.720018E-01
510 1.556989E-02 5.204972E-01 1.176796E-01
515 4.315171E-02 6.206256E-01 8.283548E-02
520 7.962917E-02 7.180890E-01 5.650407E-02
525 1.268468E-01 7.946448E-01 3.751912E-02
530 1.818026E-01 8.575799E-01 2.438164E-02
535 2.405015E-01 9.071347E-01 1.566174E-02
540 3.098117E-01 9.544675E-01 9.846470E-03
545 3.804244E-01 9.814106E-01 6.131421E-03
550 4.494206E-01 9.890228E-01 3.790291E-03
555 5.280233E-01 9.994608E-01 2.327186E-03
560 6.133784E-01 9.967737E-01 1.432128E-03
565 7.016774E-01 9.902549E-01 8.822531E-04
570 7.967750E-01 9.732611E-01 5.452416E-04
575 8.853376E-01 9.424569E-01 3.386739E-04

580 9.638388E-01 8.963613E-01 2.117772E-04
585 1.051011E+00 8.587203E-01 1.335031E-04
590 1.109767E+00 8.115868E-01 8.494468E-05
595 1.143620E+00 7.544785E-01 5.460706E-05
600 1.151033E+00 6.918553E-01 3.549661E-05
605 1.134757E+00 6.270066E-01 2.334738E-05
610 1.083928E+00 5.583746E-01 1.554631E-05
615 1.007344E+00 4.895950E-01 1.048387E-05
620 9.142877E-01 4.229897E-01 0.000000E+00
625 8.135565E-01 3.609245E-01 0.000000E+00
630 6.924717E-01 2.980865E-01 0.000000E+00
635 5.755410E-01 2.416902E-01 0.000000E+00
640 4.731224E-01 1.943124E-01 0.000000E+00
645 3.844986E-01 1.547397E-01 0.000000E+00
650 2.997374E-01 1.193120E-01 0.000000E+00
655 2.277792E-01 8.979594E-02 0.000000E+00
660 1.707914E-01 6.671045E-02 0.000000E+00
665 1.263808E-01 4.899699E-02 0.000000E+00
670 9.224597E-02 3.559982E-02 0.000000E+00
675 6.639960E-02 2.554223E-02 0.000000E+00
680 4.710606E-02 1.807939E-02 0.000000E+00
685 3.292138E-02 1.261573E-02 0.000000E+00
690 2.262306E-02 8.661284E-03 0.000000E+00
695 1.575417E-02 6.027677E-03 0.000000E+00
700 1.096778E-02 4.195941E-03 0.000000E+00
705 7.608750E-03 2.910864E-03 0.000000E+00
710 5.214608E-03 1.995557E-03 0.000000E+00
715 3.569452E-03 1.367022E-03 0.000000E+00
720 2.464821E-03 9.447269E-04 0.000000E+00
725 1.703876E-03 6.537050E-04 0.000000E+00
730 1.186238E-03 4.555970E-04 0.000000E+00
735 8.269535E-04 3.179738E-04 0.000000E+00
740 5.758303E-04 2.217445E-04 0.000000E+00
745 4.058303E-04 1.565566E-04 0.000000E+00
750 2.856577E-04 1.103928E-04 0.000000E+00
755 2.021853E-04 7.827442E-05 0.000000E+00
760 1.438270E-04 5.578862E-05 0.000000E+00
%765 1.024685E-04 3.981884E-05 0.000000E+00
%770 7.347551E-05 2.860175E-05 0.000000E+00
%775 5.259870E-05 2.051259E-05 0.000000E+00

%780 3.806114E-05 1.487243E-05 0.000000E+00
%785 2.758222E-05 1.080001E-05 0.000000E+00
%790 2.004122E-05 7.863920E-06 0.000000E+00
%795 1.458792E-05 5.736935E-06 0.000000E+00
%800 1.068141E-05 4.211597E-06 0.000000E+00
%805 7.857521E-06 3.106561E-06 0.000000E+00
%810 5.768284E-06 2.286786E-06 0.000000E+00
%815 4.259166E-06 1.693147E-06 0.000000E+00
%820 3.167765E-06 1.262556E-06 0.000000E+00
%825 2.358723E-06 9.422514E-07 0.000000E+00
%830 1.762465E-06 7.053860E-07 0.000000E+00
] def %END CIEF_XYZ_02 Colour matching functions 5nm 02-degree

/CIEF_XYZ_10 298 array def %77x4
/CIEF_XYZ_10 [%BEG CIEF_XYZ_10 Colour matching functions 5nm 10-degree from Stockmann, see
%http://www.cvrl.org/ under CVRL Database
%output as format ps, convert to ASCII with macps2pdf
380 2.952420E-03 4.076779E-04 1.318752E-02 %=390
385 2.952420E-03 4.076779E-04 1.318752E-02 %=390
390 2.952420E-03 4.076779E-04 1.318752E-02
395 7.641137E-03 1.078166E-03 3.424588E-02
400 1.879338E-02 2.589775E-03 8.508254E-02
405 4.204986E-02 5.474207E-03 1.927065E-01
410 8.277331E-02 1.041303E-02 3.832822E-01
415 1.395127E-01 1.712968E-02 6.568187E-01
420 2.077647E-01 2.576133E-02 9.933444E-01
425 2.688989E-01 3.529554E-02 1.308674E+00
430 3.281798E-01 4.698226E-02 1.624940E+00
435 3.693084E-01 6.047429E-02 1.867751E+00
440 4.026189E-01 7.468288E-02 2.075946E+00
445 4.042529E-01 8.820537E-02 2.132574E+00
450 3.932139E-01 1.039030E-01 2.128264E+00
455 3.482214E-01 1.195389E-01 1.946651E+00
460 3.013112E-01 1.414586E-01 1.768440E+00
465 2.534221E-01 1.701373E-01 1.582342E+00
470 1.914176E-01 1.999859E-01 1.310576E+00
475 1.283167E-01 2.312426E-01 1.010952E+00
480 7.593120E-02 2.682271E-01 7.516389E-01
485 3.836770E-02 3.109438E-01 5.549619E-01
490 1.400745E-02 3.554018E-01 3.978114E-01
495 3.446810E-03 4.148227E-01 2.905816E-01
500 5.652072E-03 4.780482E-01 2.078158E-01
505 1.561956E-02 5.491344E-01 1.394643E-01
510 3.778185E-02 6.248296E-01 8.852389E-02
515 7.538941E-02 7.012292E-01 5.824484E-02
520 1.201511E-01 7.788199E-01 3.784916E-02
525 1.756832E-01 8.376358E-01 2.431375E-02
530 2.380254E-01 8.829552E-01 1.539505E-02
535 3.046991E-01 9.233858E-01 9.753000E-03
540 3.841856E-01 9.665325E-01 6.083223E-03
545 4.633109E-01 9.886887E-01 3.769336E-03
550 5.374170E-01 9.907500E-01 2.323578E-03
555 6.230892E-01 9.997775E-01 1.426627E-03
560 7.123849E-01 9.944304E-01 8.779264E-04
565 8.016277E-01 9.848127E-01 5.408385E-04
570 8.933408E-01 9.640545E-01 3.342429E-04
575 9.721304E-01 9.286495E-01 2.076129E-04

580 1.034327E+00 8.775360E-01 1.298230E-04
585 1.106886E+00 8.370838E-01 8.183954E-05
590 1.147304E+00 7.869950E-01 5.207245E-05
595 1.160477E+00 7.272309E-01 3.347499E-05
600 1.148163E+00 6.629035E-01 2.175998E-05
605 1.113846E+00 5.970375E-01 1.431231E-05
610 1.048485E+00 5.282296E-01 9.530130E-06
615 9.617111E-01 4.601308E-01 6.426776E-06
620 8.629581E-01 3.950755E-01 0.000000E+00
625 7.603498E-01 3.351794E-01 0.000000E+00
630 6.413984E-01 2.751807E-01 0.000000E+00
635 5.290979E-01 2.219564E-01 0.000000E+00
640 4.323126E-01 1.776882E-01 0.000000E+00
645 3.496358E-01 1.410203E-01 0.000000E+00
650 2.714900E-01 1.083996E-01 0.000000E+00
655 2.056507E-01 8.137687E-02 0.000000E+00
660 1.538163E-01 6.033976E-02 0.000000E+00
665 1.136072E-01 4.425383E-02 0.000000E+00
670 8.281010E-02 3.211852E-02 0.000000E+00
675 5.954815E-02 2.302574E-02 0.000000E+00
680 4.221473E-02 1.628841E-02 0.000000E+00
685 2.948752E-02 1.136106E-02 0.000000E+00
690 2.025590E-02 7.797457E-03 0.000000E+00
695 1.410230E-02 5.425391E-03 0.000000E+00
700 9.816228E-03 3.776140E-03 0.000000E+00
705 6.809147E-03 2.619372E-03 0.000000E+00
710 4.666298E-03 1.795595E-03 0.000000E+00
715 3.194041E-03 1.229980E-03 0.000000E+00
720 2.205568E-03 8.499903E-04 0.000000E+00
725 1.524672E-03 5.881375E-04 0.000000E+00
730 1.061495E-03 4.098928E-04 0.000000E+00
735 7.400120E-04 2.860718E-04 0.000000E+00
740 5.153113E-04 1.994949E-04 0.000000E+00
745 3.631969E-04 1.408466E-04 0.000000E+00
750 2.556624E-04 9.931439E-05 0.000000E+00
755 1.809649E-04 7.041878E-05 0.000000E+00
760 1.287394E-04 5.018934E-05 0.000000E+00
%765 9.172477E-05 3.582218E-05 0.000000E+00
%770 6.577532E-05 2.573083E-05 0.000000E+00
%775 4.708916E-05 1.845353E-05 0.000000E+00

%780 3.407653E-05 1.337946E-05 0.000000E+00
%785 2.469630E-05 9.715798E-06 0.000000E+00
%790 1.794555E-05 7.074424E-06 0.000000E+00
%795 1.306345E-05 5.160948E-06 0.000000E+00
%800 9.565993E-06 3.788729E-06 0.000000E+00
%805 7.037621E-06 2.794625E-06 0.000000E+00
%810 5.166853E-06 2.057152E-06 0.000000E+00
%815 3.815429E-06 1.523114E-06 0.000000E+00
%820 2.837980E-06 1.135758E-06 0.000000E+00
%825 2.113325E-06 8.476168E-07 0.000000E+00
%830 1.579199E-06 6.345380E-07 0.000000E+00
] def %END CIEF_XYZ_10 Colour matching functions 5nm 10-degree
 
%/ixi [ %Reflexion CIE ix judd-wyszecki, 380-760nm, Tab 3.3, S.242
% .001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763
% .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511
% .1954 .1421 .09564 .05795 .03201 .0147 .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 ] def
 
%/iyi [ %Reflexion CIE iy judd-wyszecki, 380-760nm, Tab 3.3, S.242
% .39E-04 .000064 .00012 .000217 .000396 .00064 .00121 .00218
% .004 .0073 .0116 .01684 .023 .0298 .038 .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 .87 .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 ] def
 
%/izi [ %Reflexion CIE iz judd-wyszecki, 380-760nm, Tab 3.3, S.242
% .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 .0284 .0203 .0134 .00875
% .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008
% .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001
% .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001
% .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001
% .00001 .00001 .00001 ] def

%for xchart5=0
/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

%for xchart5=1
/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

/ilDtxt [(D65)(D50)(P40)(A00)(E00)(C00)(P00)(Q00)] def
/ilPtxt [(P60)(P55)(P50)(P45)(P40)(P35)(P30)(P25)] def

%for combined
/SX00 80 array def %380 bis 775 mit deltalambda=05
/SX01 80 array def %380 bis 775 mit deltalambda=05
/SX02 80 array def %380 bis 775 mit deltalambda=05
/SX03 80 array def %380 bis 775 mit deltalambda=05
/SX04 80 array def %380 bis 775 mit deltalambda=05
/SX05 80 array def %380 bis 775 mit deltalambda=05
/SX06 80 array def %380 bis 775 mit deltalambda=05
/SX07 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

%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 {...} 

%/TNC 2848 def %NLA
/TNC 4000 def
/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

/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 76 {/i exch def %i=0,76
        /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,76
 
%C      LITERATURQUELLEN  SPEKTRALWERTE
%C       F2          CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 2.1, SEITE 93-102

/F2  %3x80 data
[
%x(380-775)
 .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
%y(380-775)
 .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 
%z(380-775)
 .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

/proc_Cij_Eij {%BEG proc_Cij_Eij
%procedure inverse matrix according to Ohta, Cook Wiley, page 278
%DCij=|C11 C12 C13|
%     |C21 C22 C23|
%     |C31 C32 C33|

/DC C11 C22 mul C33 mul
    C12 C23 mul C31 mul add
    C13 C21 mul C32 mul add
    C11 C23 mul C32 mul sub
    C12 C21 mul C33 mul sub
    C13 C22 mul C31 mul sub def

%delete collum and row for DCij
%aus transponierter Matrix zu Cerechnen DCij->DCji
%see Wikipedia "Adjunkte"%
%DC11= |C22 C23|
%      |C32 C33|
%DC21=-|C21 C23|
%      |C31 C33|
%DC31= |C21 C22|
%      |C31 C32|
%DC12=-|C12 C13|
%      |C32 C33|
%DC22= |C11 C13|
%      |C31 C33|
%DC32=-|C11 C12|
%      |C31 C32|
%DC13= |C12 C13|
%      |C22 C23|
%DC23=-|C11 C13|
%      |C21 C23|
%DC33= |C11 C12|
%      |C21 C22|

/DC11 C22 C33 mul
      C32 C23 mul sub def
/DC21 C21 C33 mul
      C31 C23 mul sub neg def
/DC31 C21 C32 mul
      C31 C22 mul sub def
%
/DC12 C12 C33 mul
      C32 C13 mul sub neg def
/DC22 C11 C33 mul
      C31 C13 mul sub def
/DC32 C11 C32 mul
      C31 C12 mul sub neg def
%
/DC13 C12 C23 mul
      C22 C13 mul sub def
/DC23 C11 C23 mul
      C21 C13 mul sub neg def
/DC33 C11 C22 mul
      C21 C12 mul sub def

%Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E 
%Cij transforms nomalized XYZ to normalized LMS values for CIE illuminant E
/E11 DC11 DC div def
/E12 DC12 DC div def
/E13 DC13 DC div def
%
/E21 DC21 DC div def
/E22 DC22 DC div def
/E23 DC23 DC div def
%
/E31 DC31 DC div def
/E32 DC32 DC div def
/E33 DC33 DC div def
} bind def %END proc_Cij_Eij

/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 00 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 00 def /xchartm 01 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 00 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 03 def} ifelse %02/03 XYZ_CIEF02/10, Dxx/Pxx
/xchart5f where {pop /xchart5 xchart5f def}
                {/xchart5 01 def} ifelse %5=0 illD
/xchart xchart1 def

xchart5 0 eq { %xchart5=0
0 1 76 {%i=0,76
        /i exch def
        /lambda 380 i 5 mul add def
        lamd i lambda put
        /E1 560 lambda div 5 exp def

        /E4 C2 TNC 560    mul div def
        /E5 C2 TNC lambda mul div def

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

        SP40 i
        E1 100 mul E6 1 sub
                   E7 1 sub div mul

        put
       } for %i=0,76
            } if %xchart5=0
xchart5 1 eq {%xchart5=1
0 1 7 {/j exch def %j=0,7
0 1 76 {%i=0,76
        /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,76
       } for %j=0,7
           } if %xchart5=1

/xcolor xcolor1 def %2,10 degree observer
%0 1 1 {/xcolor exch def %xcolor=0,1 %2,10 degree observer
 
/xchartx xchart1 def %8 illuminants
%0 1 7 {/xchartx exch def %xchartx=0,7 %8 illuminants

%calculation of XW,YW,ZW for illuminant D65, D50, ...
0 1 76 {/i exch def %i=0,76
        xchart5 0 eq {%xchart5=0
        xchartx 0 eq {SX00 i SD65 i get put} if
        xchartx 1 eq {SX01 i SD50 i get put} if
        xchartx 2 eq {SX02 i SP40 i get put} if
        xchartx 3 eq {SX03 i SA00 i get put} if
        xchartx 4 eq {SX04 i SE00 i get put} if
        xchartx 5 eq {SX05 i SC00 i get put} if
        xchartx 6 eq {SX06 i SP00 i get put} if
        xchartx 7 eq {SX07 i SQ00 i get put} if
                     } %xchart5=0
                     {%xchart5=1
        xchartx 0 eq {SX00 i SP60 i get put} if
        xchartx 1 eq {SX01 i SP55 i get put} if
        xchartx 2 eq {SX02 i SP50 i get put} if
        xchartx 3 eq {SX03 i SP45 i get put} if
        xchartx 4 eq {SX04 i SP40 i get put} if
        xchartx 5 eq {SX05 i SP35 i get put} if
        xchartx 6 eq {SX06 i SP30 i get put} if
        xchartx 7 eq {SX07 i SP25 i get put} if
                     } ifelse %xchart5=1
       } for %i=0,76

0 1 76 {/i exch def %i=0,76
        SDAK i xchartx 0 eq {SX00 i get} if
               xchartx 1 eq {SX01 i get} if
               xchartx 2 eq {SX02 i get} if
               xchartx 3 eq {SX03 i get} if
               xchartx 4 eq {SX04 i get} if
               xchartx 5 eq {SX05 i get} if
               xchartx 6 eq {SX06 i get} if
               xchartx 7 eq {SX07 i get} if
               put
       } for %i=0,76

0 1 76 {/i exch def %i=0,76
        /i40 i 4 mul def
        xcolor 0 eq {%xcolor=0 Dxx
        XASj i CIEF_XYZ_02 i40 1 add get SDAK i get mul 100. div put
        YASj i CIEF_XYZ_02 i40 2 add get SDAK i get mul 100. div put
        ZASj i CIEF_XYZ_02 i40 3 add get SDAK i get mul 100. div put
                            } if %xcolor=0
        xcolor 1 eq {%xcolor=1 Pxx
        XASj i CIEF_XYZ_10 i40 1 add get SDAK i get mul 100. div put
        YASj i CIEF_XYZ_10 i40 2 add get SDAK i get mul 100. div put
        ZASj i CIEF_XYZ_10 i40 3 add get SDAK i get mul 100. div put
                            } if %xcolor=1
       } for %i=0,76

/fsYAS 0 def
0 1 76 {/i exch def  %i=0,76 Summe fsumxyzMi
             /fsYAS fsYAS YASj i get add def
       } for %i=0,76

0 1 76 {/i exch def %i=0,76 Normierung XYZ auf 3x100
             XASj i XASj i get fsYAS div 100. mul put
             YASj i YASj i get fsYAS div 100. mul put
             ZASj i ZASj i get fsYAS div 100. mul put
       } for %i=0,76

/fsXAS 0 def  /fsYAS 0 def  /fsZAS 0 def
0 1 76 {/i exch def  %i=0,76 Summe fsumxyzMi
             /fsXAS fsXAS XASj i get add def
             /fsYAS fsYAS YASj i get add def
             /fsZAS fsZAS ZASj i get add def
       } for %i=0,76

/i555 555 380 sub 5 idiv def
/fakY 1. YASj i555 get div def
0 1 76 {/i exch def %i=0,76 Normierung XYZ auf 3x100
             XA1j i XASj i get fakY mul put
             YA1j i YASj i get fakY mul put
             ZA1j i ZASj i get fakY mul put
       } for %i=0,76

/fsXA1 0 def  /fsYA1 0 def  /fsZA1 0 def
0 1 76 {/i exch def  %i=0,76 Summe fsumxyzMi
             /fsXA1 fsXA1 XA1j i get add def
             /fsYA1 fsYA1 YA1j i get add def
             /fsZA1 fsZA1 ZA1j i get add def
       } for %i=0,76

/scolors     %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben
[{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0}
 {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0}
 {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0}
 {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0}
 {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0}
 {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0}
 {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0}
 {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0}
 {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0}
 {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0}
 {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0}
 {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0}
 {0.00 0.00 0.00 1.0}] def
 
/ifa %Verteilung 48 Farben auf 65 Wellenlaengen ohne Purpur, 380_700:64
[00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09
 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
 30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35
 35 35 35 35 35] def

%ED TC1-36 CIE 171-2, 2015, page 16, line 20-23, eq. (8.18)
%transforms lmsF (2 degree) to xyzF (2 degree)
%Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E
%Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E
/A11_F02  1.94735469 def
/A12_F02 -1.41445123 def
/A13_F02  0.36476327 def
/A21_F02  0.68990272 def
/A22_F02  0.34832189 def
/A23_F02  0.00000000 def
/A31_F02  0.00000000 def
/A32_F02  0.00000000 def
/A33_F02  1.93485343 def

%ED TC1-36 CIE 171-2, 2015, page 20, line 14. eq. (8.21)
%transforms lmsF (10 degree) to xyzF (10 degree)
%Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E
%Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E
/A11_F10  1.93986443 def
/A12_F10 -1.34664359 def
/A13_F10  0.43044935 def
/A21_F10  0.69283932 def
/A22_F10  0.34967567 def
/A23_F10  0.00000000 def
/A31_F10  0.00000000 def
/A32_F10  0.00000000 def
/A33_F10  2.14687945 def

%R17_M1
%transforms lmsF (10 degree) to xyzF (10 degree)
%Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E
%Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E
/A11_R17_M1  1.93986443 def
/A12_R17_M1 -1.34664359 def
/A13_R17_M1  0.43044935 def
/A21_R17_M1  0.69283932 def
/A22_R17_M1  0.34967567 def
/A23_R17_M1  0.00000000 def
/A31_R17_M1  0.00000000 def
/A32_R17_M1  0.00000000 def
/A33_R17_M1  2.14687945 def

%R17_M2
%transforms lmsF (02 degree) to xyzF (02 degree)
%Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E
%Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E
/A11_R17_M2  1.40000000 def
/A12_R17_M2 -0.70000000 def
/A13_R17_M2  0.30000000 def
/A21_R17_M2  0.50000000 def
/A22_R17_M2  0.50000000 def
/A23_R17_M2  0.00000000 def
/A31_R17_M2  0.00000000 def
/A32_R17_M2  0.00000000 def
/A33_R17_M2  1.00000000 def

%R17_M3
%transforms lmsF (02 degree) to xyzF (02 degree)
%Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E
%Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E
/A11_R17_M3  1.32000000 def
/A12_R17_M3 -0.66000000 def
/A13_R17_M3  0.34000000 def
/A21_R17_M3  0.50000000 def
/A22_R17_M3  0.50000000 def
/A23_R17_M3  0.00000000 def
/A31_R17_M3  0.00000000 def
/A32_R17_M3  0.00000000 def
/A33_R17_M3  1.00000000 def

%R17_M4
%transforms lmsF (02 degree) to xyzF (02 degree)
%Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E
%Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E
/A11_R17_M4  1.30000000 def
/A12_R17_M4 -0.65000000 def
/A13_R17_M4  0.35000000 def
/A21_R17_M4  0.50000000 def
/A22_R17_M4  0.50000000 def
/A23_R17_M4  0.00000000 def
/A31_R17_M4  0.00000000 def
/A32_R17_M4  0.00000000 def
/A33_R17_M4  1.00000000 def

%R17_M5
%transforms lmsF (02 degree) to xyzF (02 degree)
%Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E
%Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E
/A11_R17_M5  2.64000000 def
/A12_R17_M5 -1.32000000 def
/A13_R17_M5  0.68000000 def
/A21_R17_M5  0.50000000 def
/A22_R17_M5  0.50000000 def
/A23_R17_M5  0.00000000 def
/A31_R17_M5  0.00000000 def
/A32_R17_M5  0.00000000 def
/A33_R17_M5  1.00000000 def

%R17_M6
%transforms lmsF (02 degree) to xyzF (02 degree)
%Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E
%Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E
/A11_R17_M6  2.60000000 def
/A12_R17_M6 -1.30000000 def
/A13_R17_M6  0.70000000 def
/A21_R17_M6  0.50000000 def
/A22_R17_M6  0.50000000 def
/A23_R17_M6  0.00000000 def
/A31_R17_M6  0.00000000 def
/A32_R17_M6  0.00000000 def
/A33_R17_M6  1.00000000 def

%Convert Xc,Yc,Zc to cone responses L, M, S (R',G',B')
%using the Hunt-Pointer_Estevez (HPE) matrix
%see CIE 214:2077 colour fidelity-Index
%see Ohta/Robertson, book Wiley, p. 202
%see Fairchild, book Wiley, p. 211
%Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E
%Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E
/B11_HPE  0.38971 def
/B12_HPE  0.68898 def
/B13_HPE -0.07868 def
/B21_HPE -0.22981 def
/B22_HPE  1.18340 def
/B23_HPE  0.04641 def
/B31_HPE  0.00000 def
/B32_HPE  0.00000 def
/B33_HPE  1.00000 def

%Nayatani in Ohta S. 195-196, similar data not for CIE illuminant E
%/B11_NAY  0.40024 def
%/B12_NAY  0.70760 def
%/B13_NAY -0.08081 def
%/B21_NAY -0.22630 def
%/B22_NAY  1.16532 def
%/B23_NAY  0.04570 def
%/B31_NAY  0.00000 def
%/B32_NAY  0.00000 def
%/B33_NAY  0.91822 def

%Aij transforms nomalized LMS to normalized XYZ values for CIE illuminant E
%Bij transforms nomalized XYZ to normalized LMS values for CIE illuminant E

xchart4 0 eq
xchart4 1 eq or {%XYZ_02, XYZ_10
/B11 B11_HPE def
/B12 B12_HPE def
/B13 B13_HPE def
/B21 B21_HPE def
/B22 B22_HPE def
/B23 B23_HPE def
/B31 B31_HPE def
/B32 B32_HPE def
/B33 B33_HPE def
                } if

xchart4 2 eq 
xchart4 4 eq or {%LMS_F02
/A11 A11_F02 def
/A12 A12_F02 def
/A13 A13_F02 def
/A21 A21_F02 def
/A22 A22_F02 def
/A23 A23_F02 def
/A31 A31_F02 def
/A32 A32_F02 def
/A33 A33_F02 def
                } if

xchart4 3 eq
xchart4 5 eq or {%LMS_F10
/A11 A11_F10 def
/A12 A12_F10 def
/A13 A13_F10 def
/A21 A21_F10 def
/A22 A22_F10 def
/A23 A23_F10 def
/A31 A31_F10 def
/A32 A32_F10 def
/A33 A33_F10 def
                } if

xchart4 6 eq {%LMS_R17_M1
/A11 A11_R17_M1 def
/A12 A12_R17_M1 def
/A13 A13_R17_M1 def
/A21 A21_R17_M1 def
/A22 A22_R17_M1 def
/A23 A23_R17_M1 def
/A31 A31_R17_M1 def
/A32 A32_R17_M1 def
/A33 A33_R17_M1 def
                } if

xchart4 7 eq {%LMS_R17_M2
/A11 A11_R17_M2 def
/A12 A12_R17_M2 def
/A13 A13_R17_M2 def
/A21 A21_R17_M2 def
/A22 A22_R17_M2 def
/A23 A23_R17_M2 def
/A31 A31_R17_M2 def
/A32 A32_R17_M2 def
/A33 A33_R17_M2 def
                } if

xchart4 8 eq {%LMS_R17_M3
/A11 A11_R17_M3 def
/A12 A12_R17_M3 def
/A13 A13_R17_M3 def
/A21 A21_R17_M3 def
/A22 A22_R17_M3 def
/A23 A23_R17_M3 def
/A31 A31_R17_M3 def
/A32 A32_R17_M3 def
/A33 A33_R17_M3 def
                } if

xchart4 9 eq {%LMS_R17_M4
/A11 A11_R17_M4 def
/A12 A12_R17_M4 def
/A13 A13_R17_M4 def
/A21 A21_R17_M4 def
/A22 A22_R17_M4 def
/A23 A23_R17_M4 def
/A31 A31_R17_M4 def
/A32 A32_R17_M4 def
/A33 A33_R17_M4 def
                } if

xchart4 0 eq
xchart4 1 eq or {%xchart4=0,1
/C11 B11 def
/C12 B12 def
/C13 B13 def
/C21 B21 def
/C22 B22 def
/C23 B23 def
/C31 B31 def
/C32 B32 def
/C33 B33 def

proc_Cij_Eij

/A11 E11 def
/A12 E12 def
/A13 E13 def
/A21 E21 def
/A22 E22 def
/A23 E23 def
/A31 E31 def
/A32 E32 def
/A33 E33 def
           } if %xchart4=0,1

xchart4 2 eq
xchart4 3 eq or
xchart4 4 eq or
xchart4 5 eq or 
xchart4 6 eq or
xchart4 7 eq or 
xchart4 8 eq or
xchart4 9 eq or {%xchart4=2,9,1
/C11 A11 def
/C12 A12 def
/C13 A13 def
/C21 A21 def
/C22 A22 def
/C23 A23 def
/C31 A31 def
/C32 A32 def
/C33 A33 def

proc_Cij_Eij

/B11 E11 def
/B12 E12 def
/B13 E13 def
/B21 E21 def
/B22 E22 def
/B23 E23 def
/B31 E31 def
/B32 E32 def
/B33 E33 def
      } if %xchart4=2,9,1

%%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 1 def /lanind2 1 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
/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 %
/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 0 eq {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

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

gsave
%XCHA01.PS END

5 /Times-ISOL1 FS
175 85 moveto (CE470-7N) show
%xchart 0 eq {(R) show}
%            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate

0.01 MM dup scale
30 setlinewidth

20 setlinewidth
0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey

0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz

/xchartl xchart def
0 1 15 {/xchartl   exch def %xchartl=0,15
gsave

  xchartl   0 eq {  100 13000 translate} if
  xchartl   1 eq { 6100 13000 translate} if
  xchartl   2 eq {  100 08750 translate} if
  xchartl   3 eq { 6100 08750 translate} if

  xchartl   4 eq {  100  4500 translate} if
  xchartl   5 eq { 6100  4500 translate} if
  xchartl   6 eq {  100  0250 translate} if
  xchartl   7 eq { 6100  0250 translate} if

  xchartl   8 eq {13500 13000 translate} if
  xchartl   9 eq {19500 13000 translate} if
  xchartl   10 eq {13500 08750 translate} if
  xchartl   11 eq {19500 08750 translate} if

  xchartl   12 eq {13500  4500 translate} if
  xchartl   13 eq {19500  4500 translate} if
  xchartl   14 eq {13500  0250 translate} if
  xchartl   15 eq {19500  0250 translate} if

150 /Times-ISOL1 FS
0 setgray
300 -150 moveto
xchartl 7 le {(CE470-) show}
             {(CE471-) show} ifelse
xchartl 0 ge xchartl   7 le and {xchartl 1 add cvishow} if
xchartl 8 ge xchartl  15 le and {xchartl 7 sub cvishow} if
(N) show %N
(_) show xchart 1 add cvishow

/xwidth 5400 def
/ywidth 4000 def
0.0 0.0 0.0 0.0 setcmykcolor
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath fill

0 setlinewidth
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
           xwidth neg 0 rlineto closepath clip

20 setlinewidth
0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black

/xpos 6 array def
/xpos [100 1000 1900 2800 3700 4600] def
/ymax 3000 def
/ydel 0500 def

200 /Times-ISOL1 FS
0 setgray

TBK                                  %Schrift Times-Bold-Gross
0.0 0.0 0.0 1.0  setcmykcolor          %font black
1800 100 moveto
(Wellenl\344nge ) showde                                        %08141-1 1
(wavelength ) showen                                            %18141-1 1
(Ancho de banda ) showes                                        %28141-1 1
(wavelength ) showfr                                            %38141-1 1
(wavelength ) showit                                            %48141-1 1
(wavelength ) showjp                                            %58141-1 1
SK (l) show TBK 30 0 rmoveto (/nm) show

%scale x 3*1200=3600
%scale y 4*600=2400

/xd 70 def  /xd2 140 def /ix0 450 def /iy0 650 def
/ixd0 240 def %x-start at 380 nm
/ixd 1200 def
/iyd  600 def
/tx [ (400) (500) (600) (700)] def
/ty1 [(0,0) (   ) (1,0) (   ) (2,0) (   ) ] def
/tys [(0,0) (2,5) (5,0) (7,5) (10) (  ) ] def
/ty20 [(  0) (10) (20) (30) (40) (50) ] def

40 setlinewidth
ix0 iy0 moveto 4300 0 rlineto stroke %x
ix0 iy0 moveto 0 2700 rlineto stroke %y
30 setlinewidth
ix0 4300 add iy0 moveto -100  050 rlineto stroke %x_arrow
ix0 4300 add iy0 moveto -100 -050 rlineto stroke %x_arrow
ix0 iy0 2700 add moveto -050 -100 rlineto stroke %y_arrow
ix0 iy0 2700 add moveto  050 -100 rlineto stroke %y_arrow

%cero line
20 setlinewidth
[100 ] 0 setdash
xchartl 00 ge
xchartl 02 le and {
ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero
                 } if
xchartl 03 ge
xchartl 05 le and {
ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero
                 } if
xchartl 08 ge
xchartl 10 le and {
ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero
                 } if
xchartl 11 ge
xchartl 13 le and {
ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero
                 } if
[ ] 0 setdash

40 setlinewidth
0 1 3 {/i exch def %x
       ix0 ixd0 add i ixd mul add iy0 50 sub moveto
       0 100 rlineto stroke
      } for

0 1 4 {/i exch def %y
       ix0 050 sub iy0 i iyd mul add moveto
       100 0 rlineto stroke
      } for

TBS       
0 1 3 {/i exch def %xtex
       ix0 ixd0 add i ixd mul add 150 sub iy0 250 sub moveto
       tx i get show
      } for

/i 3 def
ix0 ixd0 add i ixd mul add 150 add iy0 300 add moveto
xchart5 0 eq {ilDtxt xchartx get show}
             {ilPtxt xchartx get show} ifelse

0 1 4 {/i exch def %ytex
       ix0 300 sub iy0 i iyd mul add 100 sub moveto
       xchartl 00 ge
       xchartl 02 le and {ty1 i get show} if
       xchartl 03 ge
       xchartl 05 le and {tys i get show} if
       xchartl 06 ge
       xchartl 07 le and {ty1 i get show} if
       xchartl 08 ge
       xchartl 10 le and {ty1 i get show} if
       xchartl 11 ge
       xchartl 13 le and {tys i get show} if
       xchartl 14 ge
       xchartl 15 le and {ty1 i get show} if
      } for

0 1 76 {/i exch def %i=0,76
        lASj i B11 XASj i get mul
               B12 YASj i get mul add
               B13 ZASj i get mul add put
        mASj i B21 XASj i get mul
               B22 YASj i get mul add
               B23 ZASj i get mul add put
        sASj i B31 XASj i get mul
               B32 YASj i get mul add
               B33 ZASj i get mul add put
       } for %i=0,76

0 1 76 {/i exch def %i=0,76
        lA1j i B11 XA1j i get mul
               B12 YA1j i get mul add
               B13 ZA1j i get mul add put
        mA1j i B21 XA1j i get mul
               B22 YA1j i get mul add
               B23 ZA1j i get mul add put
        sA1j i B31 XA1j i get mul
               B32 YA1j i get mul add
               B33 ZA1j i get mul add put
       } for %i=0,76

%STOPD
/fslA1 0 def  /fsmA1 0 def  /fssA1 0 def
0 1 76 {/i exch def  %i=0,76 Summe fsumlms
             /fslA1 fslA1 lA1j i get add def
             /fsmA1 fsmA1 mA1j i get add def
             /fssA1 fssA1 sA1j i get add def
       } for %i=0,76

/fslAS 0 def  /fsmAS 0 def  /fssAS 0 def
0 1 76 {/i exch def  %i=0,76 Summe fsumlms
             /fslAS fslAS lASj i get add def
             /fsmAS fsmAS mASj i get add def
             /fssAS fssAS sASj i get add def
       } for %i=0,76

0 1 76 {/i exch def %i=0,76 xyzan
             /sumXYZ XASj i get
                     YASj i get add
                     ZASj i get add def
             xanASj i XASj i get sumXYZ 0.01 add div put
             yanASj i YASj i get sumXYZ 0.01 add div put
             zanASj i ZASj i get sumXYZ 0.01 add div put
       } for %i=0,76

/inx4 10 array def %index for xchart4 and number BLxx (xx=40 to 65)
       %0,40    1,42     2,44     3,46
/inx4 [(02)     (10)     (F02_X)  (F10_X)
       %4,48    5,50     6,52     7,54
       (F02_L)  (F10_L)  (R17M1)  (R17M2)
       %8,56    9,58
       (R17M3)  (R17M4)] def

/xposj 3000 def
/yposj 2900 def
/yposj0 yposj 300 add def %3200
/yposjP yposj 600 add def %3500
/yposjT yposj 900 add def %3800
/yposjM yposj 300 sub def %2600
/yposjK yposj 600 sub def %2300

/W0 570 def %dummy
/W1 540 def
/W2 440 def

%*********************************************************************
/proc_LMS1_02 {%BEG proc_LMS1_02 xchartl=0,7

/lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def
xchartl 00 ge
xchartl 02 le and {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def
                   /lamdak1s {lamda01s lamdak} def
                  } if
xchartl 03 ge
xchartl 07 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def
                   /lamdak1s {lamda01s lamdak} def
                  } if

100 yposjT moveto
TBK
(HPE_CIE) show inx4 xchart4 get show
xchartl 0 ge
xchartl 5 le and {
(\255Zapfen\255Empfindlichkeit) showde                               %08141-1 2
( cone sensitivity) showen                                           %18141-1 2
                 } if
xchartl 6 ge
xchartl 7 le and {
(\255Zapfen\255Erregung) showde                                      %08141-1 2
( cone excitation) showen                                            %18141-1 2
                 } if

xchartl 00 ge
xchartl 02 le and {TBIK ( y) show 
                   -120 100 rmoveto (-) show 0 -100 rmoveto
                   (max) ib4 lamdak
                   TBK (=1) show
                  } if
xchartl 03 ge
xchartl 05 le and {TBIK ( Y) show (sum) ib4
                   TBK (=100) show
                  } if

100 yposjP moveto
TBIK
xchartl 0 eq {(l) show} if
xchartl 1 eq {(m) show} if
xchartl 2 eq {(s) show} if
xchartl 3 eq {(l) show} if
xchartl 4 eq {(m) show} if
xchartl 5 eq {(s) show} if
xchartl 6 eq {TBK (log [) show TBIK (l) show} if
xchartl 7 eq {TBK (log [) show TBIK (s) show} if

xchartl 0 eq {-100 120 rmoveto (-) show 0 -120 rmoveto} if
xchartl 1 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
xchartl 2 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
xchartl 3 eq {-100 120 rmoveto (-) show 0 -120 rmoveto} if
xchartl 4 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
xchartl 5 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
xchartl 6 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
xchartl 7 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
lamdak1s

xchartl 06 ge
xchartl 07 le and {
TBK (/{0,5) show TBIK (l) show
-100 120 rmoveto (-) show 0 -120 rmoveto
lamdak1s
TBK (+0,5) show TBIK (m) show
-120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s (}]) show
                  } if

xchartl 00 eq
xchartl 03 eq or {%xchartl=00,03
TBK (=) show
TBK (B) show (11) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s TBK (+) show
TBK (B) show (12) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s 1400 yposj0 moveto TBK (+) show
TBK (B) show (13) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s
             } if %xchartl=00,03
xchartl 01 eq
xchartl 04 eq or {%xchartl=01,04
TBK (=) show
TBK (B) show (21) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s TBK (+) show
TBK (B) show (22) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s 1400 yposj0 moveto TBK (+) show
TBK (B) show (23) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s
             } if %xchartl=01,04
xchartl 02 eq
xchartl 05 eq or {%xchartl=02,05
TBK (=) show
TBK (B) show (31) is4 TBIK (x) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s TBK (+) show
TBK (B) show (32) is4 TBIK (y) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s 1400 yposj0 moveto TBK (+) show
TBK (B) show (33) is4 TBIK (z) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s
             } if %xchartl=02,05

TK
/xpos [1000 1700 2600 3500 4400 5200] def
xchartl 00 eq {xpos 0 get yposj moveto (B) show (1j) is4
               xpos 1 get yposj moveto B11 cvsshow4x
               xpos 2 get yposj moveto B12 cvsshow4x
               xpos 3 get yposj moveto B13 cvsshow4x
               xpos 4 get yposj moveto
               SK (l) show TK (=) show W0 cvishow } if
xchartl 01 eq {xpos 0 get yposj moveto (B) show (2j) is4
               xpos 1 get yposj moveto B21 cvsshow4x
               xpos 2 get yposj moveto B22 cvsshow4x
               xpos 3 get yposj moveto B23 cvsshow4x
               xpos 4 get yposj moveto
               SK (l) show TK (=) show W1 cvishow } if
xchartl 02 eq {xpos 0 get yposj moveto (B) show (3j) is4
               xpos 1 get yposj moveto B31 cvsshow4x
               xpos 2 get yposj moveto B32 cvsshow4x
               xpos 3 get yposj moveto B33 cvsshow4x
               xpos 4 get yposj moveto
               SK (l) show TK (=) show W2 cvishow } if

xchartl 03 eq {xpos 0 get yposj moveto (B) show (1j) is4
               xpos 1 get yposj moveto B11 cvsshow4x
               xpos 2 get yposj moveto B12 cvsshow4x
               xpos 3 get yposj moveto B13 cvsshow4x
               xpos 4 get yposj moveto
               SK (l) show TK (=) show W0 cvishow } if

xchartl 04 eq {xpos 0 get yposj moveto (B) show (2j) is4
               xpos 1 get yposj moveto B21 cvsshow4x
               xpos 2 get yposj moveto B22 cvsshow4x
               xpos 3 get yposj moveto B23 cvsshow4x
               xpos 4 get yposj moveto
               SK (l) show TK (=) show W1 cvishow } if
xchartl 05 eq {xpos 0 get yposj moveto (B) show (3j) is4
               xpos 1 get yposj moveto B31 cvsshow4x
               xpos 2 get yposj moveto B32 cvsshow4x
               xpos 3 get yposj moveto B33 cvsshow4x
               xpos 4 get yposj moveto
               SK (l) show TK (=) show W2 cvishow } if

0 1 76 {/i exch def %i=0,76
        xchartl 0 eq {ycuri i lA1j i get 1 mul put} if
        xchartl 1 eq {ycuri i mA1j i get 1 mul put} if
        xchartl 2 eq {ycuri i sA1j i get 1 mul put} if
        xchartl 3 eq {ycuri i lASj i get 0.2 mul put} if
        xchartl 4 eq {ycuri i mASj i get 0.2 mul put} if
        xchartl 5 eq {ycuri i sASj i get 0.2 mul put} if

        xchartl 6 eq {ycuri i mASj i get 
                              mASj i get lASj i get add 0.5 mul %Y
                              div 1 add log put %log[1+M/Y]
                     } if
        xchartl 7 eq {ycuri i sASj i get
                              mASj i get lASj i get add 0.5 mul %Y
                              div 1 add log put %log[1+S/Y]
                     } if
      } for %i=0,76

30 setlinewidth
/xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units
2 1 66 {/i exch def  %i=2,66 %ab 390nm bis 710nm, 65 Well.  2..66 %3=390, delta
        /y10 iy0 def
        /y11 iy0 ycuri i       get 1200 mul add def
        /y21 iy0 ycuri i 1 add get 1200 mul add def
        /x10 ix0 i 2 sub xdlamda mul add def %ab 390nm
        /k {ifa i 2 sub get exec} def       %max 65 Farben 0..64
        scolors k get exec setcmykcolor
        x10             y10         moveto
        x10 xdlamda add y10         lineto
        x10 xdlamda add y21         lineto
        x10             y11         lineto closepath fill
       } for %i=2,66

%only for 0<=xchartl<=7
0 setgray
xposj 500 sub yposjM moveto
xchart5 0 eq {ilDtxt xchartx get show}
             {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx
xposj yposjM moveto
xchartl 0 eq {SK (S) show TIK (l) show} if
xchartl 1 eq {SK (S) show TIK (m) show} if
xchartl 2 eq {SK (S) show TIK (s) show} if
xchartl 3 eq {SK (S) show TIK (l) show} if
xchartl 4 eq {SK (S) show TIK (m) show} if
xchartl 5 eq {SK (S) show TIK (s) show} if
xchartl 6 eq {SK (S) show TIK (m) show} if
xchartl 7 eq {SK (S) show TIK (s) show} if

xchartl 0 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if
xchartl 1 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
xchartl 2 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
xchartl 3 eq {-080 120 rmoveto (-) show 0 -120 rmoveto} if
xchartl 4 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
xchartl 5 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
xchartl 6 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
xchartl 7 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
lamdak1s

xchartl 00 ge
xchartl 07 le and {
TK (=) show} if

TK
xchartl 0 eq {fslA1 cvsshow2x} if
xchartl 1 eq {fsmA1 cvsshow2x} if
xchartl 2 eq {fssA1 cvsshow2x} if 
xchartl 3 eq {fslAS cvsshow2x} if
xchartl 4 eq {fsmAS cvsshow2x} if
xchartl 5 eq {fssAS cvsshow2x} if
xchartl 6 eq {fsmAS cvsshow2x} if
xchartl 7 eq {fssAS cvsshow2x} if

xchartl 00 ge
xchartl 02 le and {%00<=xchartl<=02, 03<=xchartl<=07
/sum fsXA1 fsYA1 add fsZA1 add def
/xan fsXA1 sum 0.01 add div def
/yan fsYA1 sum 0.01 add div def
                  }%00<=xchartl<=02
                  {%03<=xchartl<=07
/sum fsXAS fsYAS add fsZAS add def
/xan fsXAS sum 0.01 add div def
/yan fsYAS sum 0.01 add div def
                  } ifelse %00<=xchartl<=02, 03<=xchartl<=07

xposj yposjK moveto
TIK (x) show lamda01s TK (=) show xan cvsshow4x
xposj yposjK 300 sub moveto
TIK (y) show lamda01s TK (=) show yan cvsshow4x

} bind def %END proc_LMS1_02, xchartl=0,7

%*********************************************************************
/proc_XYZI_02 {%BEG proc_XYZI_02, xchartl=8,15

/lamdak {TBK (\050) show SK (l) show TBK (\051) show} bind def
xchartl 08 ge
xchartl 10 le and {/lamda01s {inx4 xchart4 get ib4 (,1) ib4} def
                   /lamdak1s {lamda01s lamdak} def
                  } if
xchartl 11 ge
xchartl 15 le and {/lamda01s {inx4 xchart4 get ib4 (,s) ib4} def
                   /lamdak1s {lamda01s lamdak} def
                  } if


100 yposjT moveto
TBK
100 yposjT moveto
TBK
(CIE) show inx4 xchart4 get show
xchartl 08 ge
xchartl 13 le and {
(\255Normspektralwerte) showde                                       %08141-1 2
( spectral tristimulus values) showen                                %18141-1 2
                  } if

xchartl 14 ge
xchartl 15 le and {
(\255Normspektralwert\255Erregung) showde                            %08141-1 2
( spectral tristimulus value excitation) showen                      %18141-1 2
                  } if

xchartl 08 ge
xchartl 10 le and {TBIK ( y) show
                  -120 100 rmoveto (-) show 0 -100 rmoveto
                  (max) ib4 lamdak
                  TBK (=1) show
                  } if
xchartl 11 ge
xchartl 13 le and {TBIK ( Y) show (sum) ib4
                   TBK (=100) show
                  } if

100 yposjP moveto
TBIK
xchartl  8 eq {(x) show} if
xchartl  9 eq {(y) show} if
xchartl 10 eq {(z) show} if
xchartl 11 eq {(x) show} if
xchartl 12 eq {(y) show} if
xchartl 13 eq {(z) show} if
xchartl 14 eq {TBK (log [) show TBIK (x) show} if
xchartl 15 eq {TBK (log [) show TBIK (z) show} if

xchartl  8 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
xchartl  9 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
xchartl 10 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
xchartl 11 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
xchartl 12 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
xchartl 13 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
xchartl 14 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
xchartl 15 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if
lamdak1s

xchartl 14 ge
xchartl 15 le and {
TBK (/) show TBIK (y) show
-120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s (]) show
                  } if

xchartl 08 eq
xchartl 11 eq or {%xchartl=8,11
TBK (=) show
TBK (A) show (11) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto
lamdak1s TBK (+) show
TBK (A) show (12) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s 1400 yposj0 moveto TBK (+) show
TBK (A) show (13) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s
             } if %xchartl=11
xchartl 09 eq
xchartl 12 eq or {%xchartl=9,12
TBK (=) show
TBK (A) show (21) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto
lamdak1s TBK (+) show
TBK (A) show (22) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s 1400 yposj0 moveto TBK (+) show
TBK (A) show (23) is4 TBIK (s) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s
             } if %xchartl=9,12
xchartl 10 eq
xchartl 13 eq or {%xchartl=10,13
TBK (=) show
TBK (A) show (31) is4 TBIK (l) show -100 140 rmoveto (-) show 0 -140 rmoveto
lamdak1s TBK (+) show
TBK (A) show (32) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s 1400 yposj0 moveto TBK (+) show
TBK (A) show (33) is4 TBIK (m) show -120 100 rmoveto (-) show 0 -100 rmoveto
lamdak1s
             } if %xchartl=10,13

TK
/xpos [1000 1700 2600 3500 4400 5200] def
xchartl 08 eq {xpos 0 get yposj moveto (A) show (1j) is4
               xpos 1 get yposj moveto A11 cvsshow4x
               xpos 2 get yposj moveto A12 cvsshow4x
               xpos 3 get yposj moveto A13 cvsshow4x
               xpos 4 get yposj moveto (\050) show
               SK (l) show TK (=) show W0 cvishow (\051) show} if
xchartl 09 eq {xpos 0 get yposj moveto (A) show (2j) is4
               xpos 1 get yposj moveto A21 cvsshow4x
               xpos 2 get yposj moveto A22 cvsshow4x
               xpos 3 get yposj moveto A23 cvsshow4x
               xpos 4 get yposj moveto (\050) show
               SK (l) show TK (=) show W1 cvishow (\051) show} if
xchartl 10 eq {xpos 0 get yposj moveto (A) show (3j) is4
               xpos 1 get yposj moveto A31 cvsshow4x
               xpos 2 get yposj moveto A32 cvsshow4x
               xpos 3 get yposj moveto A33 cvsshow4x
               xpos 4 get yposj moveto (\050) show
               SK (l) show TK (=) show W2 cvishow (\051) show} if

xchartl 11 eq {xpos 0 get yposj moveto (A) show (1j) is4
               xpos 1 get yposj moveto A11 cvsshow4x
               xpos 2 get yposj moveto A12 cvsshow4x
               xpos 3 get yposj moveto A13 cvsshow4x
               xpos 4 get yposj moveto (\050) show
               SK (l) show TK (=) show W0 cvishow (\051) show} if

xchartl 12 eq {xpos 0 get yposj moveto (A) show (2j) is4
               xpos 1 get yposj moveto A21 cvsshow4x
               xpos 2 get yposj moveto A22 cvsshow4x
               xpos 3 get yposj moveto A23 cvsshow4x
               xpos 4 get yposj moveto (\050) show
               SK (l) show TK (=) show W1 cvishow (\051) show} if
xchartl 13 eq {xpos 0 get yposj moveto (A) show (3j) is4
               xpos 1 get yposj moveto A31 cvsshow4x
               xpos 2 get yposj moveto A32 cvsshow4x
               xpos 3 get yposj moveto A33 cvsshow4x
               xpos 4 get yposj moveto (\050) show
               SK (l) show TK (=) show W2 cvishow (\051) show} if

0 1 76 {/i exch def %i=0,76
        xchartl 08 eq {ycuri i XA1j i get 1 mul put} if
        xchartl 09 eq {ycuri i YA1j i get 1 mul put} if
        xchartl 10 eq {ycuri i ZA1j i get 1 mul put} if
        xchartl 11 eq {ycuri i XASj i get 0.2 mul put} if
        xchartl 12 eq {ycuri i YASj i get 0.2 mul put} if
        xchartl 13 eq {ycuri i ZASj i get 0.2 mul put} if

        xchartl 14 eq {ycuri i XASj i get
                               YASj i get 0.01 add div 1 add log put
                      } if
        xchartl 15 eq {ycuri i ZASj i get
                               YASj i get 0.01 add div 1 add log put
                      } if
       } for %i=0,76

/xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units
2 1 66 {/i exch def  %i=2,66 %ab 390nm bis 710nm, 65 Well.  2..66 %3=390, delta
        /y10 iy0 def
        /y11 iy0 ycuri i       get 1200 mul add def
        /y21 iy0 ycuri i 1 add get 1200 mul add def
        /x10 ix0 i 2 sub xdlamda mul add def %ab 390nm
        /k {ifa i 2 sub get exec} def       %max 65 Farben 0..64
        scolors k get exec setcmykcolor
        x10             y10         moveto
        x10 xdlamda add y10         lineto
        x10 xdlamda add y21         lineto
        x10             y11         lineto closepath fill
       } for %i=2,66

%only for 8<=xchartl<=15
0 setgray
xposj 500 sub yposjM moveto
xchart5 0 eq {ilDtxt xchartx get show}
             {ilPtxt xchartx get show} ifelse (:) show %Data for Dxx, Pxx
xposj yposjM moveto
xchartl  8 eq {SK (S) show TIK (x) show} if
xchartl  9 eq {SK (S) show TIK (y) show} if
xchartl 10 eq {SK (S) show TIK (z) show} if
xchartl 11 eq {SK (S) show TIK (x) show} if
xchartl 12 eq {SK (S) show TIK (y) show} if
xchartl 13 eq {SK (S) show TIK (z) show} if
xchartl 14 eq {SK (S) show TIK (x) show} if
xchartl 15 eq {SK (S) show TIK (z) show} if

xchartl  8 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
xchartl  9 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
xchartl 10 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
xchartl 11 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
xchartl 12 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
xchartl 13 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
xchartl 14 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
xchartl 15 eq {-100  80 rmoveto (-) show 0  -80 rmoveto} if
lamdak1s

xchartl 08 ge
xchartl 15 le and {
TK (=) show} if

TK            
xchartl  8 eq {fsXA1 cvsshow2x} if
xchartl  9 eq {fsYA1 cvsshow2x} if
xchartl 10 eq {fsZA1 cvsshow2x} if 
xchartl 11 eq {fsXAS cvsshow2x} if
xchartl 12 eq {fsYAS cvsshow2x} if
xchartl 13 eq {fsZAS cvsshow2x} if
xchartl 14 eq {fsXAS cvsshow2x} if
xchartl 15 eq {fsZAS cvsshow2x} if

xchartl 08 ge
xchartl 10 le and {%08<=xchartl<=10, 11<=xchartl<=15 
/sum fsXA1 fsYA1 add fsZA1 add def
/xan fsXA1 sum 0.01 add div def
/yan fsYA1 sum 0.01 add div def
                  }%08<=xchartl<=10
                  {%11<=xchartl<=15
/sum fsXAS fsYAS add fsZAS add def
/xan fsXAS sum 0.01 add div def
/yan fsYAS sum 0.01 add div def
                  } ifelse %08<=xchartl<=10, 11<=xchartl<=15

xposj yposjK moveto
TIK (x) show lamda01s TK (=) show xan cvsshow4x
xposj yposjK 300 sub moveto
TIK (y) show lamda01s TK (=) show yan cvsshow4x

} bind def %END proc_XYZI_02, xchartl=8,15

%**************************************************************
xchartl 0 ge 
xchartl 7 le and {proc_LMS1_02} if

xchartl  8 ge
xchartl 15 le and {proc_XYZI_02} if

%special space for 'xm03'PROZ0.COM 2x before/after xchartl
  xchartl    0 eq {  100 neg 13000 neg translate} if
  xchartl    1 eq { 6100 neg 13000 neg translate} if
  xchartl    2 eq {  100 neg 08750 neg translate} if
  xchartl    3 eq { 6100 neg 08750 neg translate} if

  xchartl    4 eq {  100 neg  4500 neg translate} if
  xchartl    5 eq { 6100 neg  4500 neg translate} if
  xchartl    6 eq {  100 neg  0250 neg translate} if
  xchartl    7 eq { 6100 neg  0250 neg translate} if

  xchartl    8 eq {13500 neg 13000 neg translate} if
  xchartl    9 eq {19500 neg 13000 neg translate} if
  xchartl   10 eq {13500 neg 08750 neg translate} if
  xchartl   11 eq {19500 neg 08750 neg translate} if

  xchartl   12 eq {13500 neg  4500 neg translate} if
  xchartl   13 eq {19500 neg  4500 neg translate} if
  xchartl   14 eq {13500 neg  0250 neg translate} if
  xchartl   15 eq {19500 neg  0250 neg translate} if

%} if %iout=1

grestore
} for %xchartl=0,15

showpage
grestore

%} for %xchartx=0,7 %8 illuminants


%} for %xcolor=0,1 %2,10 degree observer

%%Trailer