%!PS-Adobe-3.0 EPSF-3.0 eez70-7n
%%BoundingBox: 71 85 247 205

%START PDFDE011.EPS
/pdfmark13 where {pop} {userdict /pdfmark13 /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/eez7/eez7.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:2022080112000)
 /ModDate (D:2022080112000)
/DOCINFO pdfmark13
[ /View [ /Fit ]
/DOCVIEW pdfmark13
%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

/TV {120 /Times-ISOL1 FS} bind def
/TS {160 /Times-ISOL1 FS} bind def
/TL {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIV {120 /TimesI-ISOL1 FS} bind def
/TIS {160 /TimesI-ISOL1 FS} bind def
/TIL {200 /TimesI-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBV {120 /TimesB-ISOL1 FS} bind def
/TBS {160 /TimesB-ISOL1 FS} bind def
/TBL {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIV {120 /TimesBI-ISOL1 FS} bind def
/TBIS {160 /TimesBI-ISOL1 FS} bind def
/TBIL {200 /TimesBI-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/SV {120 /Symbol FS} bind def
/SS {160 /Symbol FS} bind def
/SL {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/TV0 {120 16.67 div /Times-ISOL1 FS} bind def
/TS0 {160 16.67 div /Times-ISOL1 FS} bind def
/TL0 {200 16.67 div /Times-ISOL1 FS} bind def
/TK0 {250 16.67 div /Times-ISOL1 FS} bind def
/TM0 {300 16.67 div /Times-ISOL1 FS} bind def
/TG0 {350 16.67 div /Times-ISOL1 FS} bind def

/TIV0 {120 16.67 div /TimesI-ISOL1 FS} bind def
/TIS0 {160 16.67 div /TimesI-ISOL1 FS} bind def
/TIL0 {200 16.67 div /TimesI-ISOL1 FS} bind def
/TIK0 {250 16.67 div /TimesI-ISOL1 FS} bind def
/TIM0 {300 16.67 div /TimesI-ISOL1 FS} bind def
/TIG0 {350 16.67 div /TimesI-ISOL1 FS} bind def

/TBV0 {120 16.67 div /TimesB-ISOL1 FS} bind def
/TBS0 {160 16.67 div /TimesB-ISOL1 FS} bind def
/TBL0 {200 16.67 div /TimesB-ISOL1 FS} bind def
/TBK0 {250 16.67 div /TimesB-ISOL1 FS} bind def
/TBM0 {300 16.67 div /TimesB-ISOL1 FS} bind def
/TBG0 {350 16.67 div /TimesB-ISOL1 FS} bind def

/TBIV0 {120 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIS0 {160 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIL0 {200 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIK0 {250 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIM0 {300 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIG0 {350 16.67 div /TimesBI-ISOL1 FS} bind def

/SV0 {120 16.67 div /Symbol FS} bind def
/SS0 {160 16.67 div /Symbol FS} bind def
/SL0 {200 16.67 div /Symbol FS} bind def
/SK0 {250 16.67 div /Symbol FS} bind def
/SM0 {300 16.67 div /Symbol FS} bind def
/SG0 {350 16.67 div /Symbol FS} bind def

/iTBK0r {TBL0 0 -2 rmoveto (r) show 0 2 rmoveto TBK0} def
/iTBK0s {TBL0 0 -2 rmoveto (s) show 0 2 rmoveto TBK0} def
/iTBK01 {TBL0 0 -2 rmoveto (1) show 0 2 rmoveto TBK0} def
/iTBK02 {TBL0 0 -2 rmoveto (2) show 0 2 rmoveto TBK0} def
/iTBK0d {TBL0 0 -2 rmoveto (d) show 0 2 rmoveto TBK0} def
/iTBK0w {TBL0 0 -2 rmoveto (w) show 0 2 rmoveto TBK0} def
/iTBK0z {TBL0 0 -2 rmoveto (z) show 0 2 rmoveto TBK0} def
/iTBK0n {TBL0 0 -2 rmoveto (n) show 0 2 rmoveto TBK0} def

/iTBL0r {TBS0 0 -2 rmoveto (r) show 0 2 rmoveto TBL0} def
/iTBL0s {TBS0 0 -2 rmoveto (s) show 0 2 rmoveto TBL0} def
/iTBL01 {TBS0 0 -2 rmoveto (1) show 0 2 rmoveto TBL0} def
/iTBL02 {TBS0 0 -2 rmoveto (2) show 0 2 rmoveto TBL0} def
/iTBL0d {TBS0 0 -2 rmoveto (d) show 0 2 rmoveto TBL0} def
/iTBL0w {TBS0 0 -2 rmoveto (w) show 0 2 rmoveto TBL0} def
/iTBL0z {TBS0 0 -2 rmoveto (z) show 0 2 rmoveto TBL0} def
/iTBL0n {TBS0 0 -2 rmoveto (n) show 0 2 rmoveto TBL0} def

/iTBK0ra {TBL0 0 -2 rmoveto (ra) show 0 2 rmoveto TBK0} def
/iTBK0sa {TBL0 0 -2 rmoveto (sa) show 0 2 rmoveto TBK0} def
/iTBK01a {TBL0 0 -2 rmoveto (1a) show 0 2 rmoveto TBK0} def
/iTBK02a {TBL0 0 -2 rmoveto (2a) show 0 2 rmoveto TBK0} def
/iTBK0da {TBL0 0 -2 rmoveto (da) show 0 2 rmoveto TBK0} def
/iTBK0wa {TBL0 0 -2 rmoveto (wa) show 0 2 rmoveto TBK0} def
/iTBK0za {TBL0 0 -2 rmoveto (za) show 0 2 rmoveto TBK0} def
/iTBK0na {TBL0 0 -2 rmoveto (na) show 0 2 rmoveto TBK0} def

/iTBL0ra {TBS0 0 -2 rmoveto (ra) show 0 2 rmoveto TBL0} def
/iTBL0sa {TBS0 0 -2 rmoveto (sa) show 0 2 rmoveto TBL0} def
/iTBL01a {TBS0 0 -2 rmoveto (1a) show 0 2 rmoveto TBL0} def
/iTBL02a {TBS0 0 -2 rmoveto (2a) show 0 2 rmoveto TBL0} def
/iTBL0da {TBS0 0 -2 rmoveto (da) show 0 2 rmoveto TBL0} def
/iTBL0wa {TBS0 0 -2 rmoveto (wa) show 0 2 rmoveto TBL0} def
/iTBL0za {TBS0 0 -2 rmoveto (za) show 0 2 rmoveto TBL0} def
/iTBL0na {TBS0 0 -2 rmoveto (na) show 0 2 rmoveto TBL0} 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

/cmyk32hue     %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

/cmyk48hue     %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 Wellenl. ohne Purpur 390-710nm, 0..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

/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

%XCHA01.PS BEG
/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
  {setcmyk_olvcolor rec fill} bind def

/colrecst %x y width heigth c m y k
  {setcmyk_olvcolor rec stroke} bind def

/rem %x, y width heigth
  {/heigth exch 0.5 mul def /width exch 0.5 mul def
   /yleftb exch heigth 0.5 mul add def
   /xleftb exch width  0.5 mul add def
   xleftb yleftb
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colremfi %x y width heigth c m y k
  {setcmykcolor rem fill} bind def

/colremst %x y width heigth c m y k
  {setcmykcolor rem stroke} bind def

/tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzg {1.0 0.0 1.0 0.0} bind def
/tzb {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

/tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def

/tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe
/tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def
/tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def
/tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def
/tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def

%**********************************************************
/proz_RYGCBMWd {%BEG proz_RYGCBMWd

/yex05 80 array def
/yexpe  80 array def
/yexpg  80 array def

xchartc 0 eq {%BEG c=R(0)
              /lam1 570 def
              /lam2 700 def
              /tlamd (595) def
              /sname (R) def
              /enamei [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /enamgi [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /eposei [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /eposgi [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /ecolei [ {1.000 0.000 0.000} {0.900 0.100 0.100}  %R
                        {0.800 0.200 0.200} {0.700 0.300 0.300}
                        {0.600 0.400 0.400} {0.550 0.450 0.450}] def
              /ecolgi [ {0.000 1.000 1.000} {0.100 0.900 0.900}  %C
                        {0.200 0.800 0.800} {0.300 0.700 0.700}
                        {0.400 0.600 0.600} {0.450 0.550 0.550}] def
              %        G    E    F    S    I    N
              /namese [(Rot)(red)(red)(red)(red)(red)] def
              /yex05e [%R 570_775
              %380 385 390 395 400 405 410 415 420 425 %00-09
               036 036 036 036 036 036 036 036 036 036
              %430 435 440 445 450 455 460 465 470 475 %10-19
               036 036 036 036 036 036 036 036 036 036
              %480 485 490 495 500 505 510 515 520 525 %20-29
               036 036 036 036 036 036 036 036 036 036
              %530 535 540 545 550 555 560 565 570 575 %30-39
               036 036 036 036 036 036 036 036 900 900
              %580 585 590 595 600 605 610 615 620 625 %40-49
               900 900 900 900 900 900 900 900 900 900               
              %630 635 640 645 650 655 660 665 670 675 %50-59
               900 900 900 900 900 900 900 900 900 900
              %680 685 690 695 700 705 710 715 720 725 %60-69
               900 900 900 900 900 900 900 900 900 900
              %730 735 740 745 750 755 760 765 770 775 %70-79
               900 900 900 900 900 900 900 900 900 900 ] def
              %        G    E    F    S    I    N
              /namesg [(Cyan)(cyan)(red)(red)(red)(red)] def
              /yex05g [%C 380_570
              %380 385 390 395 400 405 410 415 420 425 %00-09
               900 900 900 900 900 900 900 900 900 900
              %430 435 440 445 450 455 460 465 470 475 %10-19
               900 900 900 900 900 900 900 900 900 900
              %480 485 490 495 500 505 510 515 520 525 %20-29
               900 900 900 900 900 900 900 900 900 900
              %530 535 540 545 550 555 560 565 570 575 %30-39
               900 900 900 900 900 900 900 900 900 036
              %580 585 590 595 600 605 610 615 620 625 %40-49
               036 036 036 036 036 036 036 036 036 036
              %630 635 640 645 650 655 660 665 670 675 %50-59
               036 036 036 036 036 036 036 036 036 036
              %680 685 690 695 700 705 710 715 720 725 %60-69
               036 036 036 036 036 036 036 036 036 036
              %730 735 740 745 750 755 760 765 770 775 %70-79
               036 036 036 036 036 036 036 036 036 036 ] def
             } if %END c=R(0)

xchartc 1 eq {%BEG c=Y(1)
              /lam1 495 def
              /lam2 700 def
              /tlamd (570) def
              /sname (Y) def
              /enamei [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /enamgi [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /eposei [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /eposgi [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /ecolei [ {1.000 1.000 0.000} {0.900 0.900 0.100}  %Y
                        {0.800 0.800 0.200} {0.700 0.700 0.300}
                        {0.600 0.600 0.400} {0.550 0.550 0.450}] def
              /ecolgi [ {0.000 0.000 1.000} {0.100 0.100 0.900}  %B
                        {0.200 0.200 0.800} {0.300 0.300 0.700}
                        {0.400 0.400 0.600} {0.450 0.450 0.550}] def
              %        G     E        F      S    I    N
              /namese [(Gelb)(yellow)(jeaune)(red)(red)(red)] def
              /yex05e [%Y 495_775
              %380 385 390 395 400 405 410 415 420 425 %00-09
               036 036 036 036 036 036 036 036 036 036
              %430 435 440 445 450 455 460 465 470 475 %10-19
               036 036 036 036 036 036 036 036 036 036
              %480 485 490 495 500 505 510 515 520 525 %20-29
               036 036 036 900 900 900 900 900 900 900
              %530 535 540 545 550 555 560 565 570 575 %30-39
               900 900 900 900 900 900 900 900 900 900
              %580 585 590 595 600 605 610 615 620 625 %40-49
               900 900 900 900 900 900 900 900 900 900
              %630 635 640 645 650 655 660 665 670 675 %50-59
               900 900 900 900 900 900 900 900 900 900
              %680 685 690 695 700 705 710 715 720 725 %60-69
               900 900 900 900 900 900 900 900 900 900
              %730 735 740 745 750 755 760 765 770 775 %70-79
               900 900 900 900 900 900 900 900 900 900 ] def
              %       G    E    F    S    I    N
              /namesg [(Blau)(blue)(bleux)(red)(red)(red)] def
              /yex05g [%B 380_495
              %380 385 390 395 400 405 410 415 420 425 %00-09
               900 900 900 900 900 900 900 900 900 900
              %430 435 440 445 450 455 460 465 470 475 %10-19
               900 900 900 900 900 900 900 900 900 900
              %480 485 490 495 500 505 510 515 520 525 %20-29
               900 900 900 900 036 036 036 036 036 036
              %530 535 540 545 550 555 560 565 570 575 %30-39
               036 036 036 036 036 036 036 036 036 036
              %580 585 590 595 600 605 610 615 620 625 %40-49
               036 036 036 036 036 036 036 036 036 036
              %630 635 640 645 650 655 660 665 670 675 %50-59
               036 036 036 036 036 036 036 036 036 036
              %680 685 690 695 700 705 710 715 720 725 %60-69
               036 036 036 036 036 036 036 036 036 036
              %730 735 740 745 750 755 760 765 770 775 %70-79
               036 036 036 036 036 036 036 036 036 036 ] def
             } if %END c=Y(1)
             

xchartc 2 eq {%BEG c=G(2)
              /lam1 470 def
              /lam2 570 def
              /tlamd (520) def
              /sname (G) def
              /enamei [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /enamgi [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /eposei [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /eposgi [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /ecolei [ {0.000 1.000 0.000} {0.100 0.900 0.100}  %G
                        {0.200 0.800 0.200} {0.300 0.700 0.300}
                        {0.400 0.600 0.400} {0.450 0.550 0.450}] def
              /ecolgi [ {1.000 0.000 1.000} {0.900 0.100 0.900}  %M
                        {0.800 0.200 0.800} {0.700 0.300 0.700}
                        {0.600 0.400 0.600} {0.550 0.450 0.550}] def
              %       G        E      F      S    I    N
              /namese [(Gr\374n)(green)(verde)(red)(red)(red)] def
              /yex05e [%G 470_570
              %380 385 390 395 400 405 410 415 420 425 %00-09
               036 036 036 036 036 036 036 036 036 036
              %430 435 440 445 450 455 460 465 470 475 %10-19
               036 036 036 036 036 036 036 036 900 900
              %480 485 490 495 500 505 510 515 520 525 %20-29
               900 900 900 900 900 900 900 900 900 900
              %530 535 540 545 550 555 560 565 570 575 %30-39
               900 900 900 900 900 900 900 900 900 036
              %580 585 590 595 600 605 610 615 620 625 %40-49
               036 036 036 036 036 036 036 036 036 036
              %630 635 640 645 650 655 660 665 670 675 %50-59
               036 036 036 036 036 036 036 036 036 036
              %680 685 690 695 700 705 710 715 720 725 %60-69
               036 036 036 036 036 036 036 036 036 036
              %730 735 740 745 750 755 760 765 770 775 %70-79
               036 036 036 036 036 036 036 036 036 036 ] def
              %       G        E        F        S    I    N
              /namesg [(Magenta)(magenta)(magenta)(red)(red)(red)] def
              /yex05g [%M 570_470
              %380 385 390 395 400 405 410 415 420 425 %00-09
               900 900 900 900 900 900 900 900 900 900
              %430 435 440 445 450 455 460 465 470 475 %10-19
               900 900 900 900 900 900 900 900 900 036
              %480 485 490 495 500 505 510 515 520 525 %20-29
               036 036 036 036 036 036 036 036 036 036
              %530 535 540 545 550 555 560 565 570 575 %30-39
               036 036 036 036 036 036 036 036 900 900
              %580 585 590 595 600 605 610 615 620 625 %40-49
               900 900 900 900 900 900 900 900 900 900
              %630 635 640 645 650 655 660 665 670 675 %50-59
               900 900 900 900 900 900 900 900 900 900
              %680 685 690 695 700 705 710 715 720 725 %60-69
               900 900 900 900 900 900 900 900 900 900
              %730 735 740 745 750 755 760 765 770 775 %70-79
               900 900 900 900 900 900 900 900 900 900 ] def
             } if %END c=G(2)

xchartc 3 eq {%BEG c=C(3)
              /lam1 400 def
              /lam2 570 def
              /tlamd (495) def
              /sname (C) def
              /enamei [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /enamgi [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /eposei [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /eposgi [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /ecolei [ {0.000 1.000 1.000} {0.100 0.900 0.900}  %C
                        {0.200 0.800 0.800} {0.300 0.700 0.700}
                        {0.400 0.600 0.600} {0.450 0.550 0.550}] def
              /ecolgi [ {1.000 0.000 0.000} {0.900 0.100 0.100}  %R
                        {0.800 0.200 0.200} {0.700 0.300 0.300}
                        {0.600 0.400 0.400} {0.550 0.450 0.450}] def
              %       G    E    F    S    I    N
              /namese [(Cyan)(cyan)(red)(red)(red)(red)] def
              /yex05e [%C 380_570
              %380 385 390 395 400 405 410 415 420 425 %00-09
               900 900 900 900 900 900 900 900 900 900
              %430 435 440 445 450 455 460 465 470 475 %10-19
               900 900 900 900 900 900 900 900 900 900
              %480 485 490 495 500 505 510 515 520 525 %20-29
               900 900 900 900 900 900 900 900 900 900
              %530 535 540 545 550 555 560 565 570 575 %30-39
               900 900 900 900 900 900 900 900 900 036
              %580 585 590 595 600 605 610 615 620 625 %40-49
               036 036 036 036 036 036 036 036 036 036
              %630 635 640 645 650 655 660 665 670 675 %50-59
               036 036 036 036 036 036 036 036 036 036
              %680 685 690 695 700 705 710 715 720 725 %60-69
               036 036 036 036 036 036 036 036 036 036
              %730 735 740 745 750 755 760 765 770 775 %70-79
               036 036 036 036 036 036 036 036 036 036 ] def
              %        G    E    F    S    I    N
              /namesg [(Rot)(red)(red)(red)(red)(red)] def
              /yex05g [%R 570_775
              %380 385 390 395 400 405 410 415 420 425 %00-09
               036 036 036 036 036 036 036 036 036 036
              %430 435 440 445 450 455 460 465 470 475 %10-19
               036 036 036 036 036 036 036 036 036 036
              %480 485 490 495 500 505 510 515 520 525 %20-29
               036 036 036 036 036 036 036 036 036 036
              %530 535 540 545 550 555 560 565 570 575 %30-39
               036 036 036 036 036 036 036 036 900 900
              %580 585 590 595 600 605 610 615 620 625 %40-49
               900 900 900 900 900 900 900 900 900 900               
              %630 635 640 645 650 655 660 665 670 675 %50-59
               900 900 900 900 900 900 900 900 900 900
              %680 685 690 695 700 705 710 715 720 725 %60-69
               900 900 900 900 900 900 900 900 900 900
              %730 735 740 745 750 755 760 765 770 775 %70-79
               900 900 900 900 900 900 900 900 900 900 ] def
             } if %END c=C(3)

xchartc 4 eq {%BEG c=B(4)
              /lam1 400 def
              /lam2 495 def
              /tlamd (470) def
              /sname (B) def
              /enamei [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /enamgi [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /eposei [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /eposgi [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /ecolei [ {0.000 0.000 1.000} {0.100 0.100 0.900}  %B
                        {0.200 0.200 0.800} {0.300 0.300 0.700}
                        {0.400 0.400 0.600} {0.450 0.450 0.550}] def
              /ecolgi [ {1.000 1.000 0.000} {0.900 0.900 0.100}  %Y
                        {0.800 0.800 0.200} {0.700 0.700 0.300}
                        {0.600 0.600 0.400} {0.550 0.550 0.450}] def
              %       G    E    F    S    I    N
              /namese [(Blau)(blue)(bleux)(red)(red)(red)] def
              /yex05e [%B 380_495
              %380 385 390 395 400 405 410 415 420 425 %00-09
               900 900 900 900 900 900 900 900 900 900
              %430 435 440 445 450 455 460 465 470 475 %10-19
               900 900 900 900 900 900 900 900 900 900
              %480 485 490 495 500 505 510 515 520 525 %20-29
               900 900 900 900 036 036 036 036 036 036
              %530 535 540 545 550 555 560 565 570 575 %30-39
               036 036 036 036 036 036 036 036 036 036
              %580 585 590 595 600 605 610 615 620 625 %40-49
               036 036 036 036 036 036 036 036 036 036
              %630 635 640 645 650 655 660 665 670 675 %50-59
               036 036 036 036 036 036 036 036 036 036
              %680 685 690 695 700 705 710 715 720 725 %60-69
               036 036 036 036 036 036 036 036 036 036
              %730 735 740 745 750 755 760 765 770 775 %70-79
               036 036 036 036 036 036 036 036 036 036 ] def
              %        G     E        F      S    I    N
              /namesg [(Gelb)(yellow)(jeaune)(red)(red)(red)] def
              /yex05g [%Y 495_775
              %380 385 390 395 400 405 410 415 420 425 %00-09
               036 036 036 036 036 036 036 036 036 036
              %430 435 440 445 450 455 460 465 470 475 %10-19
               036 036 036 036 036 036 036 036 036 036
              %480 485 490 495 500 505 510 515 520 525 %20-29
               036 036 036 900 900 900 900 900 900 900
              %530 535 540 545 550 555 560 565 570 575 %30-39
               900 900 900 900 900 900 900 900 900 900
              %580 585 590 595 600 605 610 615 620 625 %40-49
               900 900 900 900 900 900 900 900 900 900
              %630 635 640 645 650 655 660 665 670 675 %50-59
               900 900 900 900 900 900 900 900 900 900
              %680 685 690 695 700 705 710 715 720 725 %60-69
               900 900 900 900 900 900 900 900 900 900
              %730 735 740 745 750 755 760 765 770 775 %70-79
               900 900 900 900 900 900 900 900 900 900 ] def
             } if %END c=B(4)

xchartc 5 eq {%BEG c=M(5)
              /lam1 570 def
              /lam2 470 def
              /tlamd (520c) def
              /sname (M) def
              /enamei [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /enamgi [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /eposei [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /eposgi [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /ecolei [ {1.000 0.000 1.000} {0.900 0.100 0.900}  %M
                        {0.800 0.200 0.800} {0.700 0.300 0.700}
                        {0.600 0.400 0.600} {0.550 0.450 0.550}] def
              /ecolgi [ {0.000 1.000 0.000} {0.100 0.900 0.100}  %G
                        {0.200 0.800 0.200} {0.300 0.700 0.300}
                        {0.400 0.600 0.400} {0.450 0.550 0.450}] def
              %       G        E        F        S    I    N
              /namese [(Magenta)(magenta)(magenta)(red)(red)(red)] def
              /yex05e [%M 570_470
              %380 385 390 395 400 405 410 415 420 425 %00-09
               900 900 900 900 900 900 900 900 900 900
              %430 435 440 445 450 455 460 465 470 475 %10-19
               900 900 900 900 900 900 900 900 900 036
              %480 485 490 495 500 505 510 515 520 525 %20-29
               036 036 036 036 036 036 036 036 036 036
              %530 535 540 545 550 555 560 565 570 575 %30-39
               036 036 036 036 036 036 036 036 900 900
              %580 585 590 595 600 605 610 615 620 625 %40-49
               900 900 900 900 900 900 900 900 900 900
              %630 635 640 645 650 655 660 665 670 675 %50-59
               900 900 900 900 900 900 900 900 900 900
              %680 685 690 695 700 705 710 715 720 725 %60-69
               900 900 900 900 900 900 900 900 900 900
              %730 735 740 745 750 755 760 765 770 775 %70-79
               900 900 900 900 900 900 900 900 900 900 ] def
              %       G        E      F      S    I    N
              /namesg [(Gr\374n)(green)(verde)(red)(red)(red)] def
              /yex05g [%G 470_570
              %380 385 390 395 400 405 410 415 420 425 %00-09
               036 036 036 036 036 036 036 036 036 036
              %430 435 440 445 450 455 460 465 470 475 %10-19
               036 036 036 036 036 036 036 036 900 900
              %480 485 490 495 500 505 510 515 520 525 %20-29
               900 900 900 900 900 900 900 900 900 900
              %530 535 540 545 550 555 560 565 570 575 %30-39
               900 900 900 900 900 900 900 900 900 036
              %580 585 590 595 600 605 610 615 620 625 %40-49
               036 036 036 036 036 036 036 036 036 036
              %630 635 640 645 650 655 660 665 670 675 %50-59
               036 036 036 036 036 036 036 036 036 036
              %680 685 690 695 700 705 710 715 720 725 %60-69
               036 036 036 036 036 036 036 036 036 036
              %730 735 740 745 750 755 760 765 770 775 %70-79
               036 036 036 036 036 036 036 036 036 036 ] def
             } if %END c=M(5)

xchartc 6 eq {%BEG c=W(6)
              /lam1 400 def
              /lam2 700 def
              /tlamd (-) def
              /sname (W) def
              /enamei [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /enamgi [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /eposei [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
              /eposgi [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
              /ecolei [ {1.000 1.000 1.000} {0.900 0.900 0.900}  %W
                        {0.800 0.800 0.800} {0.700 0.700 0.700}
                        {0.600 0.600 0.600} {0.550 0.550 0.550}] def
              /ecolgi [ {0.000 0.000 0.000} {0.100 0.100 0.100}  %N
                        {0.200 0.200 0.200} {0.300 0.300 0.300}
                        {0.400 0.400 0.400} {0.450 0.450 0.450}] def
              %       G    E    F    S    I    N
              /namese [(Wei\337)(white)(blanc)(red)(red)(red)] def
              /yex05e [%W 380_775
              %380 385 390 395 400 405 410 415 420 425 %00-09
               900 900 900 900 900 900 900 900 900 900
              %430 435 440 445 450 455 460 465 470 475 %10-19
               900 900 900 900 900 900 900 900 900 900
              %480 485 490 495 500 505 510 515 520 525 %20-29
               900 900 900 900 900 900 900 900 900 900
              %530 535 540 545 550 555 560 565 570 575 %30-39
               900 900 900 900 900 900 900 900 900 900
              %580 585 590 595 600 605 610 615 620 625 %40-49
               900 900 900 900 900 900 900 900 900 900
              %630 635 640 645 650 655 660 665 670 675 %50-59
               900 900 900 900 900 900 900 900 900 900
              %680 685 690 695 700 705 710 715 720 725 %60-69
               900 900 900 900 900 900 900 900 900 900
              %730 735 740 745 750 755 760 765 770 775 %70-79
               900 900 900 900 900 900 900 900 900 900 ] def
              %       G       E      F     S    I    N
              /namesg [(Scharz)(black)(noir)(red)(red)(red)] def
              /yex05g [%Z 380_775
              %380 385 390 395 400 405 410 415 420 425 %00-09
               036 036 036 036 036 036 036 036 036 036
              %430 435 440 445 450 455 460 465 470 475 %10-19
               036 036 036 036 036 036 036 036 036 036
              %480 485 490 495 500 505 510 515 520 525 %20-29
               036 036 036 036 036 036 036 036 036 036
              %530 535 540 545 550 555 560 565 570 575 %30-39
               036 036 036 036 036 036 036 036 036 036
              %580 585 590 595 600 605 610 615 620 625 %40-49
               036 036 036 036 036 036 036 036 036 036
              %630 635 640 645 650 655 660 665 670 675 %50-59
               036 036 036 036 036 036 036 036 036 036
              %680 685 690 695 700 705 710 715 720 725 %60-69
               036 036 036 036 036 036 036 036 036 036
              %730 735 740 745 750 755 760 765 770 775 %70-79
               036 036 036 036 036 036 036 036 036 036 ] def
             } if %END c=W(6)

xchartc 7 eq {%BEG c=N(7)
              /lam1 400 def
              /lam2 700 def
              /tlamd (-) def
              /sname (N) def
              /enamei [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /enamgi [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /eposei [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
              /eposgi [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
              /ecolei [ {0.000 0.000 0.000} {0.100 0.100 0.100}  %N
                        {0.200 0.200 0.200} {0.300 0.300 0.300}
                        {0.400 0.400 0.400} {0.450 0.450 0.450}] def
              /ecolgi [ {1.000 1.000 1.000} {0.900 0.900 0.900}  %W
                        {0.800 0.800 0.800} {0.700 0.700 0.700}
                        {0.600 0.600 0.600} {0.550 0.550 0.550}] def
              %       G       E      F     S    I    N
              /namese [(Scharz)(black)(noir)(red)(red)(red)] def
              /yex05e [%Z 380_775
              %380 385 390 395 400 405 410 415 420 425 %00-09
               036 036 036 036 036 036 036 036 036 036
              %430 435 440 445 450 455 460 465 470 475 %10-19
               036 036 036 036 036 036 036 036 036 036
              %480 485 490 495 500 505 510 515 520 525 %20-29
               036 036 036 036 036 036 036 036 036 036
              %530 535 540 545 550 555 560 565 570 575 %30-39
               036 036 036 036 036 036 036 036 036 036
              %580 585 590 595 600 605 610 615 620 625 %40-49
               036 036 036 036 036 036 036 036 036 036
              %630 635 640 645 650 655 660 665 670 675 %50-59
               036 036 036 036 036 036 036 036 036 036
              %680 685 690 695 700 705 710 715 720 725 %60-69
               036 036 036 036 036 036 036 036 036 036
              %730 735 740 745 750 755 760 765 770 775 %70-79
               036 036 036 036 036 036 036 036 036 036 ] def
              %       G    E    F    S    I    N
              /namesg [(Wei\337)(white)(blanc)(red)(red)(red)] def
              /yex05g [%W 380_775
              %380 385 390 395 400 405 410 415 420 425 %00-09
               900 900 900 900 900 900 900 900 900 900
              %430 435 440 445 450 455 460 465 470 475 %10-19
               900 900 900 900 900 900 900 900 900 900
              %480 485 490 495 500 505 510 515 520 525 %20-29
               900 900 900 900 900 900 900 900 900 900
              %530 535 540 545 550 555 560 565 570 575 %30-39
               900 900 900 900 900 900 900 900 900 900
              %580 585 590 595 600 605 610 615 620 625 %40-49
               900 900 900 900 900 900 900 900 900 900
              %630 635 640 645 650 655 660 665 670 675 %50-59
               900 900 900 900 900 900 900 900 900 900
              %680 685 690 695 700 705 710 715 720 725 %60-69
               900 900 900 900 900 900 900 900 900 900
              %730 735 740 745 750 755 760 765 770 775 %70-79
               900 900 900 900 900 900 900 900 900 900 ] def
             } if %END c=N(7)

xchartc 8 eq {%BEG c=G2(8)
              /lam1 495 def
              /lam2 570 def
              /tlamd (538) def
              /sname (G2) def
              /enamei [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /enamgi [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /eposei [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /eposgi [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /ecolei [ {0.000 1.000 0.000} {0.100 0.900 0.100}  %G
                        {0.200 0.800 0.200} {0.300 0.700 0.300}
                        {0.400 0.600 0.400} {0.450 0.550 0.450}] def
              /ecolgi [ {1.000 0.000 1.000} {0.900 0.100 0.900}  %M
                        {0.800 0.200 0.800} {0.700 0.300 0.700}
                        {0.600 0.400 0.600} {0.550 0.450 0.550}] def
              %       G          E        F        S    I    N
              /namese [(Gr\374n)(green)(verde)(red)(red)(red)] def
              /yex05e [%G2 495_570
              %380 385 390 395 400 405 410 415 420 425 %00-09
               036 036 036 036 036 036 036 036 036 036
              %430 435 440 445 450 455 460 465 470 475 %10-19
               036 036 036 036 036 036 036 036 036 036
              %480 485 490 495 500 505 510 515 520 525 %20-29
               036 036 036 900 900 900 900 900 900 900
              %530 535 540 545 550 555 560 565 570 575 %30-39
               900 900 900 900 900 900 900 900 900 036
              %580 585 590 595 600 605 610 615 620 625 %40-49
               036 036 036 036 036 036 036 036 036 036
              %630 635 640 645 650 655 660 665 670 675 %50-59
               036 036 036 036 036 036 036 036 036 036
              %680 685 690 695 700 705 710 715 720 725 %60-69
               036 036 036 036 036 036 036 036 036 036
              %730 735 740 745 750 755 760 765 770 775 %70-79
               036 036 036 036 036 036 036 036 036 036 ] def
              %       G    E    F    S    I    N
              /namesg [(Magenta)(magenta)(magenta)(red)(red)(red)] def
              /yex05g [%M2 570_495
              %380 385 390 395 400 405 410 415 420 425 %00-09
               900 900 900 900 900 900 900 900 900 900
              %430 435 440 445 450 455 460 465 470 475 %10-19
               900 900 900 900 900 900 900 900 900 900
              %480 485 490 495 500 505 510 515 520 525 %20-29
               900 900 900 900 036 036 036 036 036 036
              %530 535 540 545 550 555 560 565 570 575 %30-39
               036 036 036 036 036 036 036 036 900 900
              %580 585 590 595 600 605 610 615 620 625 %40-49
               900 900 900 900 900 900 900 900 900 900
              %630 635 640 645 650 655 660 665 670 675 %50-59
               900 900 900 900 900 900 900 900 900 900
              %680 685 690 695 700 705 710 715 720 725 %60-69
               900 900 900 900 900 900 900 900 900 900
              %730 735 740 745 750 755 760 765 770 775 %70-79
               900 900 900 900 900 900 900 900 900 900 ] def
             } if %END c=G2(8)

xchartc 9 eq {%BEG c=M2(9)
              /lam1 570 def
              /lam2 495 def
              /tlamd (538c) def
              /sname (M2) def
              /enamei [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /enamgi [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /eposei [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /eposgi [ {TVa}{TVa0}{TVa1}{TVa2}{TVa3}{TVa4}] def
              /ecolei [ {1.000 0.000 1.000} {0.900 0.100 0.900}  %M
                        {0.800 0.200 0.800} {0.700 0.300 0.700}
                        {0.600 0.400 0.600} {0.550 0.450 0.550}] def
              /ecolgi [ {0.000 1.000 0.000} {0.100 0.900 0.100}  %G
                        {0.200 0.800 0.200} {0.300 0.700 0.300}
                        {0.400 0.600 0.400} {0.450 0.550 0.450}] def
              %       G    E    F    S    I    N
              /namese [(Magenta)(magenta)(magenta)(red)(red)(red)] def
              /yex05e [%M2 570_495
              %380 385 390 395 400 405 410 415 420 425 %00-09
               900 900 900 900 900 900 900 900 900 900
              %430 435 440 445 450 455 460 465 470 475 %10-19
               900 900 900 900 900 900 900 900 900 900
              %480 485 490 495 500 505 510 515 520 525 %20-29
               900 900 900 900 036 036 036 036 036 036
              %530 535 540 545 550 555 560 565 570 575 %30-39
               036 036 036 036 036 036 036 036 900 900
              %580 585 590 595 600 605 610 615 620 625 %40-49
               900 900 900 900 900 900 900 900 900 900
              %630 635 640 645 650 655 660 665 670 675 %50-59
               900 900 900 900 900 900 900 900 900 900
              %680 685 690 695 700 705 710 715 720 725 %60-69
               900 900 900 900 900 900 900 900 900 900
              %730 735 740 745 750 755 760 765 770 775 %70-79
               900 900 900 900 900 900 900 900 900 900 ] def
              %       G          E        F        S    I    N
              /namesg [(Gr\374n)(green)(verde)(red)(red)(red)] def
              /yex05g [%G2 495_570
              %380 385 390 395 400 405 410 415 420 425 %00-09
               036 036 036 036 036 036 036 036 036 036
              %430 435 440 445 450 455 460 465 470 475 %10-19
               036 036 036 036 036 036 036 036 036 036
              %480 485 490 495 500 505 510 515 520 525 %20-29
               036 036 036 900 900 900 900 900 900 900
              %530 535 540 545 550 555 560 565 570 575 %30-39
               900 900 900 900 900 900 900 900 900 036
              %580 585 590 595 600 605 610 615 620 625 %40-49
               036 036 036 036 036 036 036 036 036 036
              %630 635 640 645 650 655 660 665 670 675 %50-59
               036 036 036 036 036 036 036 036 036 036
              %680 685 690 695 700 705 710 715 720 725 %60-69
               036 036 036 036 036 036 036 036 036 036
              %730 735 740 745 750 755 760 765 770 775 %70-79
               036 036 036 036 036 036 036 036 036 036 ] def
             } if %END c=M2(9)

xchartc 10 eq {%BEG c=Z(10)
              /lam1 400 def
              /lam2 700 def
              /tlamd (-) def
              /sname (Z) def
              /enamei [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /enamgi [ ()   (0)   (1)   (2)   (3)   (4)   ] def
              /eposei [ {TVz}{TVz0}{TVz1}{TVz2}{TVz3}{TVz4}] def
              /eposgi [ {TVz}{TVz0}{TVz1}{TVz2}{TVz3}{TVz4}] def
              /ecolei [ {0.500 0.500 0.500} {0.500 0.500 0.500}  %Ze
                        {0.500 0.500 0.500} {0.500 0.500 0.500}
                        {0.500 0.500 0.500} {0.500 0.500 0.500}] def
              /ecolgi [ {0.500 0.500 0.500} {0.500 0.500 0.500}  %Zg
                        {0.500 0.500 0.500} {0.500 0.500 0.500}
                        {0.500 0.500 0.500} {0.500 0.500 0.500}] def
              %       G     E     F     S    I    N
              /namese [(Grau)(grey)(grey)(red)(red)(red)] def
              /yex05e [%Z 380_775
              %380 385 390 395 400 405 410 415 420 425 %00-09
               180 180 180 180 180 180 180 180 180 180
              %430 435 440 445 450 455 460 465 470 475 %10-19
               180 180 180 180 180 180 180 180 180 180
              %480 485 490 495 500 505 510 515 520 525 %20-29
               180 180 180 180 180 180 180 180 180 180
              %530 535 540 545 550 555 560 565 570 575 %30-39
               180 180 180 180 180 180 180 180 180 180
              %580 585 590 595 600 605 610 615 620 625 %40-49
               180 180 180 180 180 180 180 180 180 180
              %630 635 640 645 650 655 660 665 670 675 %50-59
               180 180 180 180 180 180 180 180 180 180
              %680 685 690 695 700 705 710 715 720 725 %60-69
               180 180 180 180 180 180 180 180 180 180
              %730 735 740 745 750 755 760 765 770 775 %70-79
               180 180 180 180 180 180 180 180 180 180 ] def
                     %       G     E     F     S    I    N
              /namesg [(Grau)(grey)(grey)(red)(red)(red)] def
              /yex05g [%Z 380_775
              %380 385 390 395 400 405 410 415 420 425 %00-09
               180 180 180 180 180 180 180 180 180 180
              %430 435 440 445 450 455 460 465 470 475 %10-19
               180 180 180 180 180 180 180 180 180 180
              %480 485 490 495 500 505 510 515 520 525 %20-29
               180 180 180 180 180 180 180 180 180 180
              %530 535 540 545 550 555 560 565 570 575 %30-39
               180 180 180 180 180 180 180 180 180 180
              %580 585 590 595 600 605 610 615 620 625 %40-49
               180 180 180 180 180 180 180 180 180 180
              %630 635 640 645 650 655 660 665 670 675 %50-59
               180 180 180 180 180 180 180 180 180 180
              %680 685 690 695 700 705 710 715 720 725 %60-69
               180 180 180 180 180 180 180 180 180 180
              %730 735 740 745 750 755 760 765 770 775 %70-79
               180 180 180 180 180 180 180 180 180 180 ] def
             } if %END c=Z(10)

/y11n 036 def %default
/y11w 900 def %default

xchart6 0 eq {/y11n 180 6 div def
              /y11w 180 6 mul def} if      %030,1008
xchart6 1 eq {/y11n 180 5 div def
              /y11w 180 5 mul def} if      %036,900
xchart6 2 eq {/y11n 180 4 div def
              /y11w 180 4 mul def} if      %045,720
xchart6 3 eq {/y11n 180 3 div def
              /y11w 180 3 mul def} if      %060,540
xchart6 4 eq {/y11n 180 2 div def
              /y11w 180 2 mul def} if      %090,360
xchart6 5 eq {/y11n 180 2 sqrt div def
              /y11w 180 2 sqrt mul def} if %127,254
              
/xchart6n 0 def
/inw 0 def %0:serie n, 1:serie w
inw 0 eq {%inw=0
xchart6n 0 eq {/y11na 180 5.0 div def} if
xchart6n 1 eq {/y11na 180 5 sqrt div def} if
xchart6n 2 eq {/y11na 180 1.0 mul def} if
xchart6n 3 eq {/y11na 180 5 sqrt mul def} if
xchart6n 4 eq {/y11na 180 5.0 mul def} if
         } if %inw=0

inw 1 eq {%inw=1
xchart6n 0 eq {/y11na 180 5.0 mul def} if
xchart6n 1 eq {/y11na 180 5 sqrt mul def} if
xchart6n 2 eq {/y11na 180 1.0 mul def} if
xchart6n 3 eq {/y11na 180 5 sqrt div def} if
xchart6n 4 eq {/y11na 180 5.0 div def} if
         } if %inw=1

/xchart6w 2 def
xchart6w 0 eq {/y11wa 180 5.0 mul def} if
xchart6w 1 eq {/y11wa 180 5 sqrt mul def} if
xchart6w 2 eq {/y11wa 180 1.0 mul def} if
xchart6w 3 eq {/y11wa 180 5 sqrt div def} if
xchart6w 4 eq {/y11wa 180 5.0 div def} if

0 1 79 {/i exch def %i=0,79
%        xchartl 2 le {%xchartl<=2, R, Y, G
        yex05e i get 036 eq {/y11 y11na def} if
        yex05e i get 900 eq {/y11 y11wa def} if
%                     } if %xchartl<=2, R, Y, G
%        xchartl 3 ge {%xchartl>=3, C, B, M
%        yex05e i get 036 eq {/y11 y11n def} if
%        yex05e i get 900 eq {/y11 y11w def} if
%                     } if %xchartl>=3, C, B, M
        yexpe i y11 put
       } for %i=0,79
       
0 1 79 {/i exch def %i=0,79
%       xchartl 2 le {%xchartl<=2, R, Y, G
        yex05g i get 036 eq {/y11 y11na def} if
        yex05g i get 900 eq {/y11 y11wa def} if
%                     } if %xchartl<=2, R, Y, G
%        xchartl 3 ge {%xchartl>=3, C, B, M
%        yex05g i get 036 eq {/y11 y11na def} if
%        yex05g i get 900 eq {/y11 y11wa def} if
%                     } if %xchartl>=3, C, B, M
%        yexpg i y11 put
       } for %i=0,79

/Yz 18.00 def
/Rz 0.180 def
%/Lzn Yz 100 div 0.3333 exp 116 mul 16 sub def %49,4998
/Lzn 0 def

/Yn y11n 10 div def
/Rn y11n 1000 div def
%Yn 1 ge {/Lnn Yn 100 div 0.3333 exp 116 mul 16 sub def}
%        {/Lnn 0.001 def} ifelse
Yn 1 ge {/Lnn Yn Yz div log 40 mul 5 log div def}
        {/Lnn 0.001 def} ifelse

/Yw y11w 10 div def
/Rw y11w 1000 div def
%/Lwn Yw 100 div 0.3333 exp 116 mul 16 sub def
/Lwn Yw Yz div log 40 mul 5 log div def


%normalization to +/-75 for log6=0,7781 or better the scale +/-0,800
/log6 6 log def
%/log6m100 log6 100 mul 0.7500 mul log6   div def
/log6m100 log6 100 mul 0.7787 mul 0.8000 div def
/Y1n Yn Yz div def
/R1n Rn Rz div def
/R2n R1n log def
/R2nr R2n log6 div def

/Y1w Yw Yz div def
/R1w Rw Rz div def
/R2w R1w log def
/R2wr R2w log6 div def

/Y1z 1 def
/R1z 1 def
/R2z 0 def
/R2zr 0 def

/Yna y11na 10 div def
/Rna y11na 1000 div def
%Yna 1 ge {/Lnna Yna 100 div 0.3333 exp 116 mul 16 sub def}
%         {/Lnna 0.001 def} ifelse
/Lnna Yna Yz div log 40 mul 5 log div def

/Ywa y11wa 10 div def
/Rwa y11wa 1000 div def
%/Lwna Ywa 100 div 0.3333 exp 116 mul 16 sub def
/Lwna Ywa Yz div log 40 mul 5 log div def

/Y1na Yna Yz div def
/R1na Rna Rz div def
/R2na R1na log def
/R2nar R2na log6 div def

/Y1wa Ywa Yz div def
/R1wa Rwa Rz div def
/R2wa R1wa log def
/R2war R2wa log6 div def

} bind def %END proz_RYGCBMWd

%****************************************************************
/proz_Ostw {%BEG proz_Ostw
%pixel code

/i60shi 0 def   %0/1 No/Yes for additional data shift of only CNV2
/i60shid 13 def %shift difference if i60shi=1

ix0 iy0 translate

/xmaxN 296 def
/ymaxN 174 def
0 setgray
0 0 moveto xmaxN 0 rlineto 0 ymaxN rlineto
       xmaxN neg 0 rlineto closepath fill

2 setlinewidth
/x0sq 297 def
/y0sq 175 def
/disq 028 def
/d2sq disq 2 div def
ecolei xchart6 get exec setrgbcolor
x0sq y0sq moveto disq 0 rlineto 0 disq rlineto
             disq neg 0 rlineto closepath fill

xchart4 1 ge {%xchart4>=1
ecolgi xchart6 get exec setrgbcolor
x0sq d2sq add y0sq moveto d2sq 0 rlineto 0 d2sq rlineto
                      d2sq neg 0 rlineto closepath fill
0 setgray
[4 4] 0 setdash
x0sq y0sq d2sq add moveto disq 0 rlineto stroke
             } if %xchart4>=1

1 setgray
x0sq y0sq moveto disq 0 rlineto 0 disq rlineto
             disq neg 0 rlineto closepath stroke
[ ] 0 setdash

/ioutb 1 def
xchart4 0 eq {%xchart4=0

/ioute 1 def
ioute 1 eq {%ioute=1
%400(4)_700(64): i=4 to i=63 + 1shift, data 380(0)_775(79)nm
4 1 63 {/i exch def
        /y11 yexpe i get 1000 div
             150 mul def  %range (0,0..1,0)*150
        /x10 i 4 sub xd mul def %ab 380nm
        /k {ifa i get exec} def       %max colors 0..64
        cmyk48hue k get exec setcmyk_olvcolor
        x10        0 moveto
        x10 xd add 0 lineto
        x10 xd add y11 lineto
        x10        y11 lineto
        closepath fill
       } for %i-Schleife
       } if %ioute=1

/ioutg 0 def
ioutg 1 eq {%ioutg=1
xchartc 3 ge {%xchartc>=3
%400(4)_700(64): i=4 to i=63 + 1shift, data 380(0)_775(79)nm
4 1 63 {/i exch def
        /y11 yexpg i get 1000 div
             150 mul def  %range (0,0..1,0)*150
        /x10 i 4 sub xd mul def %ab 380nm
        /k {ifa i get exec} def       %max colors 0..64
        cmyk48hue k get exec setcmyk_olvcolor
        x10        0 moveto
        x10 xd add 0 lineto
        x10 xd add y11 lineto
        x10        y11 lineto
        closepath fill
       } for %i-Schleife
         } if %xchartc>=3
       } if %ioutg=1

3 setlinewidth
%y-axis
1 setgray
0 37.5 150 {/iyd exch def
            -3 iyd moveto 6 0 rlineto stroke
           } for %Schleife iyd

ioutb 1 eq {%ioutb=1
            2 setlinewidth
            0 setgray
            0 0 moveto 300 0 rlineto 0 Rn 150 mul rlineto
                      -300 0 rlineto closepath fill
            3 setlinewidth
           } if %ioutb=1

1 setgray
[6 6] 0 setdash
2 setlinewidth
0 Rw 150 mul moveto 298 0 rlineto stroke
0 Rz 150 mul moveto 298 0 rlineto stroke
0 Rn 150 mul moveto 298 0 rlineto stroke
[ ] 0 setdash
3 setlinewidth

newpath
TBL0
006 Rw 150 mul 3 add i60shi 1 eq {i60shid sub} if moveto Rw cvsshow3x
006 Rz 150 mul 3 add moveto Rz cvsshow3x
%006 Rn 150 mul 3 add nytex 1 eq {nytsh sub} if moveto Rn cvsshow3x

256 Rw 150 mul 3 add i60shi 1 eq {i60shid sub} if moveto Lwn cvsshow1x
256 Rz 150 mul 3 add moveto Lzn cvsshow1x
%256 Rn 150 mul 3 add nytex 1 eq {nytsh sub} if moveto Lnn cvsshow1x

newpath
TBK0
300 Rw 150 mul 3 sub moveto (R) show iTBK0w
300 Rz 150 mul 3 sub moveto (R) show iTBK0z
%300 Rn 150 mul 3 sub moveto (R) show iTBK0n

%***********************************************
1 0 0 setrgbcolor
[6 6] 0 setdash
2 setlinewidth
0 Rwa 150 mul moveto 298 0 rlineto stroke
0 Rna 150 mul moveto 298 0 rlineto stroke
[ ] 0 setdash
3 setlinewidth

newpath
TBL0
006 Rwa 150 mul 3 add i60shi 1 eq {i60shid sub} if moveto Rwa cvsshow3x
006 Rna 150 mul 3 add nytex 1 eq {nytsh sub} if moveto Rna cvsshow3x

1 0 0 setrgbcolor
256 Rwa 150 mul 3 add i60shi 1 eq {i60shid sub} if moveto Lwna cvsshow1x
256 Rna 150 mul 3 add nytex 1 eq {nytsh sub} if moveto Lnna cvsshow1x

newpath
TBK0
300 Rwa 150 mul 3 sub moveto (R) show iTBK0wa
300 Rna 150 mul 3 sub moveto (R) show iTBK0na

%TBL0
%1 setgray
%150 80 moveto (Rwa,Rw,Rz,Rna,Rn) show
%150 60 moveto
%Rwa cvsshow3x (, ) show
%Rw  cvsshow3x (, ) show
%Rz  cvsshow3x (, ) show
%Rna cvsshow3x (, ) show
%Rn  cvsshow3x (, ) show

             } if %xchart4=0

xchart4 1 ge {%xchart4>=1
              /ytr2 75 def
              0 ytr2 translate

%only e
0 1 0 {/j exch def %j=0,1, 2 parts of reflections

%400(4)_700(64): i=4 to i=63 + 1shift, data 380(0)_775(79)nm
4 1 63 {/i exch def 
        /y11 j 0 eq {yexpe i get}
                    {yexpg i get} ifelse
        1000 div 0.18 div log
             log6 div log6m100 mul def
        /x10 i 4 sub xd mul def %ab 380nm
        /k {ifa i get exec} def       %max colors 0..64
        cmyk48hue k get exec setcmyk_olvcolor
        x10        0 moveto
        x10 xd add 0 lineto
        x10 xd add y11 lineto
        x10        y11 lineto
        closepath fill
       } for %i-Schleife
       
      } for %%j=0,1
      
       1 setgray
       /dlog6m100 log6m100 2 div def
       log6m100 neg dlog6m100 log6m100 {/iyd exch def
                                        -3 iyd moveto 6 0 rlineto stroke
                                       } for %Schleife iyd

1 setgray
2 setlinewidth
[6 6] 0 setdash
0 R2wr log6m100 mul moveto 298 0 rlineto stroke
0 R2zr log6m100 mul moveto 298 0 rlineto stroke
0 R2nr log6m100 mul moveto 298 0 rlineto stroke
[ ] 0 setdash
3 setlinewidth

newpath
TBL0
256 R2wr log6m100 mul 3 add i60shi 1 eq {i60shid sub} if moveto Lwn cvsshow1x
256 R2zr log6m100 mul 3 add moveto Lzn cvsshow1x
256 R2nr log6m100 mul 3 add nytex 1 eq {nytsh sub} if moveto Lnn cvsshow1x

newpath
xchart4 1 eq {%xchart4=1
TBL0
006 R2wr log6m100 mul 3 add i60shi 1 eq {i60shid sub} if moveto R1w cvsshow3x
006 R2zr log6m100 mul 3 add moveto R1z cvsshow3x
006 R2nr log6m100 mul 3 add nytex 1 eq {nytsh sub} if moveto 
R1n 0 lt {(-) show} if R1n abs cvsshow3x

TBK0
300 R2wr log6m100 mul 3 sub moveto (R) show iTBK0r iTBK0w
300 R2zr log6m100 mul 3 sub moveto (R) show iTBK0r iTBK0z
300 R2nr log6m100 mul 3 sub moveto (R) show iTBK0r iTBK0n
             } if %xchart4=1

xchart4 2 eq {%xchart4=2
TBL0
006 R2wr log6m100 mul 3 add i60shi 1 eq {i60shid sub} if moveto R2w cvsshow3x
006 R2zr log6m100 mul 3 add moveto R2z cvsshow3x
006 R2nr log6m100 mul 3 add nytex 1 eq {nytsh sub} if moveto
R2n 0 lt {(-) show} if R2n abs cvsshow3x
TBK0
300 R2wr log6m100 mul 3 sub moveto (R) show iTBK0s iTBK0w
300 R2zr log6m100 mul 3 sub moveto (R) show iTBK0s iTBK0z
300 R2nr log6m100 mul 3 sub moveto (R) show iTBK0s iTBK0n
             } if %xchart4=2

                0 ytr2 neg translate
               } if %xchart4>=1

/ymaxsq 166 def
1 setgray
xchart4 1 ge {/ymaxsq 164 def} if
TBL0
006 ymaxsq moveto
(R) show 
xchart4 1 eq {iTBL0r} if
xchart4 2 eq {iTBL0s} if
(\050) show SL0 (l) show TBL0 (\051) show

153 ymaxsq moveto
TBL0
(  triangle lightness ) showen
(Dreiecks\255Helligkeit ) showde

260 ymaxsq moveto
TBIL0 (T*) show TBS0 0 -2 rmoveto (TUB) show 0 2 rmoveto

/ipmout 0 def %0/1: whithout or with physiological components
/isiout 813 def %files: 813, 817, 823, 827, 913, 917, 923, 927 

ipmout 1 eq {%ipmout

/signi [(R) (Y) (G) (C) (B) (M) (W) (N) (G2) (M2) (Z)] def 
/sigmi [(-) (-) (-) (-) (-) (-) (-) (-) (-)  (-)  (-)] def
/sigpi [(+) (+) (+) (+) (+) (+) (+) (+) (+)  (+)  (+)] def

isiout 813 eq 
isiout 817 eq or {%isiout=813,817
%         R    Y    G    C    B    M    W  
/xpotei [ 110  050  145  145  085  110  250] def
/ypotei [ 060  060  060  060  060  060  060] def
/xpotgi [ 110  050  145  145  085  110  230] def
/ypotgi [ 010  010  010  010  010  010  010] def
                 } if %isiout=813, 817
isiout 823 eq
isiout 827 eq or {%isiout=823,827
%         R    Y    G    C    B    M    W
%/xpotei [ 140  080  117  117  059  140  250] def
/xpotei [ 114  054  145  145  085  112  245] def
/ypotei [ 125  125  125  125  125  125  125] def
%/xpotgi [ 110  050  145  145  085  110  230] def
/xpotgi [ 140  081  119  119  061  140  245] def
/ypotgi [ 014  014  014  014  014  014  019] def
                 } if %isiout=823, 827
isiout 913 eq
isiout 917 eq or {%isiout=913,917
%         R    Y    G    C    B    M    W
/xpotei [ 140  080  117  117  059  140  150] def
/ypotei [ 045  045  045  045  045  045  045] def
/xpotgi [ 140  080  117  117  059  140  150] def
/ypotgi [ 004  004  004  004  004  004  004] def
                  } if %isiout=913,917
isiout 923 eq
isiout 927 eq or {%isiout=923,927
%         R    Y    G    C    B    M    W
/xpotei [ 140  080  117  117  059  140  150] def
/ypotei [ 090  090  090  090  090  090  090] def
/xpotgi [ 112  052  145  145  085  112  150] def
/ypotgi [ 045  045  045  045  045  045  045] def
                 } if %isiout=923, 927

xpotei xchartl get ypotei xchartl get moveto
signi xchartl get show 0 6 rmoveto sigpi xchartl get show

xpotgi xchartl get ypotgi xchartl get moveto
isiout 913 eq {0 setgray} if
signi xchartl get show 0 7 rmoveto sigmi xchartl get show

} if %ipmout=1

/tx [ (400) (500) (600) (700)] def
/ty [(0,00) (0,25) (0,50) (0,75) (1,00) ] def
/ty2 [(0,0) (0,4) (0,8) (1,2) (1,6) (2,0) ] def
/ty3 [(1/6) (1/3) (1,00) (3,00) (6,00) ] def
%/ty4 [(-0,80) (-0,40) (0,00) (0,40) (0,80)] def
/ty4 [(-0,8) (-0,4) (  0,0) (  0,4) (  0,8)] def


1 setgray
%400_700,495_565=(60+20*0.7)*4=74*4=296
0 0 moveto xmaxN 0 rlineto stroke
0 0 moveto 0 ymaxN rlineto stroke
2 setlinewidth
0 ymaxN moveto -3 -8 rlineto stroke
0 ymaxN moveto  3 -8 rlineto stroke
xmaxN 0 moveto -8  3 rlineto stroke
xmaxN 0 moveto -8 -3 rlineto stroke
3 setlinewidth

TBK0
%x-axis, 400-700
0 1 3 {/i exch def %i=0,3
       i 20 mul xd mul -3 moveto 0 6 rlineto stroke
      } for %i=0,3
0 1 3 {/i exch def  %x-axis text
       i 20 mul xd mul 9 sub -15 moveto tx i get show
      } for

pspec 1 eq {%psec=1 purple spectrum
%x-axis, 495_565=70nm
20 0.70 mul 60 add xd mul -3 moveto 0 6 rlineto stroke
20 0.35 mul 60 add xd mul -3 moveto 0 6 rlineto stroke
3.35 20 mul xd mul 11 sub -15 moveto (530c) show
3.70 20 mul xd mul 09 sub -15 moveto (400) show
           } if %psec=1 purple spectrum

%y-axis, text
xchart4 0 eq {%xchart4=0
0 1 4 {/i exch def
       xchart4 0 eq {-32 -05  i 37.5 mul add moveto ty i get show} if
      } for
             } if %xchart4=0
xchart4 1 ge {%xchart4>=1
0 ytr2 translate
0 1 4 {/i exch def  %y-axis text
       xchart4 1 eq {-32 -05 -75 i 37.5 mul add add moveto ty3 i get show} if
       xchart4 2 eq {-32 -05 -75 i 37.5 mul add add moveto ty4 i get show} if
      } for
0 ytr2 neg translate
             } if %xchart4>=1

2 setlinewidth

%/lamx 500 400 sub 5 div xd mul def
%0 lamx add 0 moveto 0 100 rlineto stroke %test for 500

lam1 400 gt {%lam1>400
             /lamxpos1 lam1 400 sub 5 div xd mul def
             lamxpos1 24 sub 110 moveto SK0 (l) show 
             iTBK01 TBK0 (=) show
             lamxpos1 24 sub 095 moveto lam1 cvishow
             newpath
             0 1 0 setrgbcolor
             [6 6] 0 setdash             
             /xlam1 lam1 400 sub 5 div 0 sub xd mul def
             xlam1 0 moveto 0 150 rlineto stroke
             [ ] 0 setdash
             1 setgray
            } if %lam1>400

lam2 700 lt {%lam2<700
             /lamxpos2 lam2 400 sub 5 div xd mul def
             lamxpos2 8 add 110 moveto SK0 (l) show 
             iTBK02 TBK0 (=) show
             lamxpos2 8 add 095 moveto lam2 cvishow
             newpath
             0 1 0 setrgbcolor
             [6 6] 0 setdash
             /xlam2 lam2 400 sub 5 div 1 add xd mul def
             xlam2 0 moveto 0 150 rlineto stroke
             [ ] 0 setdash
             1 setgray
            } if %lam2<700

ix0 neg iy0 neg translate

} bind def %END proz_Ostw

%*****************************************************************
/proz_frame {%BEG proz_frame
%pixel code
%full frame
 
TBK0                                  %Schrift Times-Bold-Gross
0.0 0.0 0.0 0.0  setcmyk_olvcolor          %Schrift Weiss
50 006 moveto
(Wellenl\344nge ) showde                                        %0eez70-5 00362
(wavelength ) showen                                            %1eez70-5 00362
(longitud de onda ) showes                                      %2eez70-5 00362
(longueur d'onde ) showfr                                       %3eez70-5 00362
(lunghezza d'onda ) showit                                      %4eez70-5 00362
(b\370lgelengde ) showjp                                        %5eez70-5 00362
SK0 (l) show
TBK0 2 0 rmoveto (/nm) show

0 setgray
250 003 moveto
TBK0
(contrast ) showen
(Kontrast ) showde
TBIK0
(C) show
TBK0
xchart6 0 eq {(=36:1) show} if
xchart6 1 eq {(=25:1) show} if
xchart6 2 eq {(=16:1) show} if
xchart6 3 eq {(=9:1) show} if
xchart6 4 eq {(=4:1) show} if
xchart6 5 eq {(=2:1) show} if %not used

/ymaxt 228 def
1 setgray
xchart4 0 eq {%xchart4=0
003 ymaxt moveto TBIK0 (R) show
TBK0 (\050) show SK0 (l) show
TBK0 (\051) show
} if %xchart4=0

xchart4 1 eq {%xchart4=1
003 ymaxt moveto
TBIK0 (R) show iTBK0r
TBK0 (\050) show SK0 (l) show TBK0 (\051 = ) show
TBIK0 (R) show
TBK0 (\050) show SK0 (l) show TBK0 (\051/0,18) show
} if %xchart4=1

xchart4 2 eq {%xchart4=2
003 ymaxt moveto
TBIK0 (R) show iTBK0s
TBK0 (\050) show SK0 (l) show TBK0 (\051 = log[) show
TBIK0 (R) show iTBK0r
TBK0 (\050) show SK0 (l) show TBK0 (\051] = log[) show
TBIK0 (R) show
TBK0 (\050) show SK0 (l) show TBK0 (\051/0,18]) show
} if %xchart4=2

TBK0
xchart4 0 eq {%xchart4=0
( Normreflexion) showde
( standard reflection) showen
( factor standard de reflexi\363n) showes
( facteur standard de r\351flexion) showfr
( fattore standard di riflessione) showit
( standard refleksjonsfaktor) showjp
(, ) show
TBIL0 (R) show iTBL0n TBL0 (=0,036, ) show
TBIL0 (R) show iTBL0w TBL0 (=0,900) show
             } if %xchart4=0

xchart4 1 eq {%xchart4=1
( Relative Reflexion) showde
( relative reflection) showen
( factor relative de reflexi\363n) showes
( facteur relative de r\351flexion) showfr
( fattore relative di riflessione) showit
( relative refleksjonsfaktor) showjp
             } if %xchart4=1

xchart4 2 eq {%xchart4=2
( Reflexion (log)) showde
( reflection (log)) showen
( reflexi\363n (log)) showes
( r\351flexion (log)) showfr
( riflessione (log)) showit
( refleksjon (log)) showjp
             } if %xchart4=2

tfw
003 213 moveto
TBK0
xchartc 5 le {%xchartc<=5, >=6
               TBIK0 (Ostwald) show TBK0
               ( colour:) showen
               (\255Farbe:) showde
               ( color:) showes
               ( couleur:) showfr
               ( colore:) showit
               ( farge:) showjp
              } %xchartc<=5
              {%xchartc>=6
               (optimal colour:) showen
               (OptimalFarbe:) showde
               (color \363ptimo:) showes
               (couleur optimale:) showfr
               (colore optimal:) showit
               (optimalfarge:) showjp
              } ifelse %xchartc<=5, >=6

TBK0
( ) show namese lanind get show ( ) show sname show (, ) show
SL0 (l) show iTBL01 TBL0 (=) show lam1 cvishow (, ) show
SL0 (l) show iTBL02 TBL0 (=) show lam2 cvishow (, ) show
SL0 (l) show iTBL0d TBL0 (=) show tlamd show

} bind def %END proz_frame

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

/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

/cvishow0  {cvi 6 string cvs show} def
/cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def
/cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def
/cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def
/cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def
/cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def
/cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def
/cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310
            dup 0 ge {(  ) show} if
            dup abs 10 lt {(  ) show} if
            10 string cvs show} def
/cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310
            dup 0 ge {(  ) show} if
            dup abs 10 lt {(  ) show} if
            10 string cvs show} def
/cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def

%now with cvishow0 instead of cvishow
/cvsshow1x {/nxx exch def                              %example nxx=99.1/99.0
             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 cvishow0 (,) show                      %nxa=99
             nxb cvishow0                               %nxb=1/0
           } def
/cvsshow2x {/nxx exch def                              %example nxx=99.12/99,02/99,00
             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 cvishow0 (,) show                      %nxb=99,
             nxb 10 ge {nxb cvishow0} if                %nxb=12
             nxb  1 ge
             nxb  9 le and {(0) show nxb cvishow0} 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 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 cvishow0 (,) show                      %nxb=99,
             nxb 100 ge {nxb cvishow0} if               %nxb=123/012/001/000
             nxb  10 ge
             nxb  99 le and {(0) show nxb cvishow0} if  %nxb=012
             nxb   1 ge
             nxb   9 le and {(00) show nxb cvishow0} if %nxb=001
             nxb   0 eq {(000) show} if                %nxb=000
           } def

%*********************************************************
%%EndProlog
gsave

/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm  {6 lanind eq {show} {pop} ifelse} bind def

/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
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 0 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 %

gsave
%XCHA01.PS END

72 90 translate
/sfak 16.67 def
0.1667 MM dup scale
%0.0100 MM dup scale


/pspec 0 def  %pspec 0/1 without/with purple wavelength
/nytex 0 def  %nytex 0/1 No/Yes shift of "n" data below N level
/nytsh 13 def %value of y-pos-shift for colour "n"

/ymax1 17100 sfak div 0.5 mul def
/xmax1 12500 sfak div def

/xbtex0 0 def  %xbtex=0 for files Y1(0/1)-(1..8)A.EPS
xbtex0 1 eq {%xbtex0=1

40 sfak div setlinewidth
1 setgray
0 0  moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto
closepath fill
0 setgray
0 0  moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto
closepath stroke

TK
0 setgray
150 sfak div  /Times-ISOL1 FS
050 sfak div -140 sfak div moveto
(eez70-7n) show
%xchart 1 add cvishow0
} if %xbtex0=1

/kchartl 0 def %0: left(l), 1: right(r)
/xcharta 1 def %0: default, output hue circle, %1:only output of A.EPS figure
/xchart4 0 def %0:R, 1:R1=rel R, 2:logR1
/xchart5 1 def
/xchart6 1 def %for hue plane contrast 0=36:1, 1:25; 2:16, 3:9, 4:4, 5=2:1
               %only used in HUECC_01.EPS

/fakt0 1.00 def
/xd3 xmax1 3 div fakt0 div 2 sub def %larger because of later fakt0 dup scale
                                     %manual smaller x-shift
/yd3 ymax1 3 div fakt0 div def
/xd0 00 def
/yd0 00 def

/xt0i 8 array def
/yt0i 8 array def

xt0i 2 xd0 xd3 0.0 mul add put %1lt, G
yt0i 2 yd0 yd3 1.5 mul add put

xt0i 3 xd0 xd3 0.0 mul add put %1ld, C
yt0i 3 yd0 yd3 0.5 mul add put

xt0i 1 xd0 xd3 1.0 mul add put %2ct, Y
yt0i 1 yd0 yd3 2.0 mul add put

xt0i 6 xd0 xd3 1.0 mul add put %2cc, W
yt0i 6 yd0 yd3 1.0 mul add put

xt0i 4 xd0 xd3 1.0 mul add put %2cd, B
yt0i 4 yd0 yd3 0.0 mul add put

xt0i 0 xd0 xd3 2.0 mul add put %3rt, R
yt0i 0 yd0 yd3 1.5 mul add put

xt0i 5 xd0 xd3 2.0 mul add put %3rd, M
yt0i 5 yd0 yd3 0.5 mul add put

xt0i 7 xd0 xd3 0.0 mul add put %left corner for A.EPS files
yt0i 7 yd0 yd3 0.0 mul add put

fakt0 dup scale

2 1 2 {/xchartl exch def %xchartl=0,6

       /xchartx xchartl def

       xcharta 1 eq {/xchartx 7 def} if

       xt0i xchartx get yt0i xchartx get translate

/fakt1 1.00 def
20 sfak div fakt1 mul setlinewidth
0 setgray
150 sfak div fakt1 mul /Times-ISOL1 FS
050 sfak div fakt1 mul -140 sfak div fakt1 mul moveto
(eez71-) show
xchartl 1 add cvishow0
(A) show %A

/xwidth 6100 sfak div fakt1 mul def
/ywidth 4000 sfak div fakt1 mul def
25 sfak div fakt1 mul setlinewidth
0.5 setgray
0 0 moveto xwidth     0 rlineto 0 ywidth rlineto
           xwidth neg 0 rlineto closepath fill

0 setgray
0 0 moveto xwidth     0 rlineto 0 ywidth rlineto
           xwidth neg 0 rlineto closepath stroke

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

%lambda diference and cero point of all figures
/xd 4.0 def /ix0 36 def /iy0 34 def

/xchartc xchartl def
/ibild xchartl def
/ylshift 0 def
xchart4 1 ge {/ylshift 79 def} if %RYGw
proz_RYGCBMWd
proz_frame
proz_Ostw

 xt0i xchartx get neg yt0i xchartx get neg translate

} for %xchartl=0,6

xcharta 1 eq {%xcharta=1 %replaced by HUEK0_01.EPS
              grestore
              gsave
             }%xcharta=1

             {%xcharta=0
grestore
gsave

%uses xchart6 of main program

/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

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

/TV {120 /Times-ISOL1 FS} bind def
/TL {150 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIV {120 /TimesI-ISOL1 FS} bind def
/TIL {150 /TimesI-ISOL1 FS} bind def
/TIS {200 /TimesI-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBV {120 /TimesB-ISOL1 FS} bind def
/TBL {150 /TimesB-ISOL1 FS} bind def
/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIV {120 /TimesBI-ISOL1 FS} bind def
/TBIL {150 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/SV {120 /Symbol FS} bind def
/SL {150 /Symbol FS} bind def
/SS {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/RV {120 /Times-Roman FS} bind def
/RL {150 /Times-Roman FS} bind def
/RS {200 /Times-Roman FS} bind def
/RK {250 /Times-Roman FS} bind def
/RM {300 /Times-Roman FS} bind def
/RG {350 /Times-Roman FS} bind def

/RIV {120 /Times-Italic FS} bind def
/RIL {150 /Times-Italic FS} bind def
/RIS {200 /Times-Italic FS} bind def
/RIK {250 /Times-Italic FS} bind def
/RIM {300 /Times-Italic FS} bind def
/RIG {350 /Times-Italic FS} bind def

/RBV {120 /Times-Bold FS} bind def
/RBL {150 /Times-Bold FS} bind def
/RBS {200 /Times-Bold FS} bind def
/RBK {250 /Times-Bold FS} bind def
/RBM {300 /Times-Bold FS} bind def
/RBG {350 /Times-Bold FS} bind def

/RBIV {120 /Times-BoldItalic FS} bind def
/RBIL {150 /Times-BoldItalic FS} bind def
/RBIS {200 /Times-BoldItalic FS} bind def
/RBIK {250 /Times-BoldItalic FS} bind def
/RBIM {300 /Times-BoldItalic FS} bind def
/RBIG {350 /Times-BoldItalic FS} bind def

72 90 translate
0.01 MM dup scale
/xwdith 10200 def
/ywidth 08200 def

/iouth 1 def
iouth 1 eq {%iouth=1 %hue output

%xmax=330, ymax=250 in PS
%xwidth=10200, ywidth=08200
/xhi 6 array def
/yhi 6 array def
%from down to top, from left to right
%     0ld    1lt   2ld   3lt   4rd    5rt
/xhi [ 0900  0900  2900  2900  11300  11300] def
/yhi [ 0200  7300  0200  7300   0200   7300] def

/xai 6 array def
/yai 6 array def
%top arrow relative to black point
%     0ld    1lt   2ld   3lt   4rd    5rt
/xai [ 1000  1000  1250  1250   1000   1000] def
/yai [ 1200  -100  1050  -050   1200   -100] def

/xdi 6 array def
/ydi 6 array def
%arrow difference
/xdi [  000   000  -300  -300    000    000] def
/ydi [ -300   300   000   000   -300    300] def

/x0i 6 array def
/y0i 6 array def
/x1i 6 array def
/y1i 6 array def
%relative arrow shift 0 and 1
/x0i [ -050  -050  -100  -100   -050   -050] def
/y0i [ -100   100  -050  -050   -100    100] def
/x1i [  050   050  -100  -100    050    050] def
/y1i [ -100   100   050   050   -100    100] def

20 setlinewidth

0 1 5 {/i exch def %i=0,5
xhi i get yhi i get translate

/xwidth 1660 def
/ywidth 1300 def
0.5 setgray
-0800 -150 moveto xwidth 0 rlineto 0 ywidth rlineto
              xwidth neg 0 rlineto closepath fill
0.0 setgray
-0800 -150 moveto xwidth 0 rlineto 0 ywidth rlineto
              xwidth neg 0 rlineto closepath stroke 

xai i get yai i get moveto xdi i get ydi i get rlineto stroke
xai i get yai i get moveto x0i i get y0i i get rlineto stroke
xai i get yai i get moveto x1i i get y1i i get rlineto stroke

0 setgray
0 0 moveto 0000 1000 rlineto
 0700 -0500 rlineto
-0700 -0500 rlineto
-0700  0500 rlineto
 0700  0500 rlineto stroke

/afM 60 def
/af0 70 def
/afP 75 def

/TVn  {TV 0 -40 rmoveto () show   0 40 rmoveto TL} def
/TVn0 {TV 0 -40 rmoveto (n0) show 0 40 rmoveto TL} def
/TVn1 {TV 0 -40 rmoveto (n1) show 0 40 rmoveto TL} def
/TVn2 {TV 0 -40 rmoveto (n2) show 0 40 rmoveto TL} def
/TVn3 {TV 0 -40 rmoveto (n3) show 0 40 rmoveto TL} def
/TVn4 {TV 0 -40 rmoveto (n4) show 0 40 rmoveto TL} def

/TVz  {TV 0 -40 rmoveto () show   0 40 rmoveto TL} def
/TVz0 {TV 0 -40 rmoveto (z0) show 0 40 rmoveto TL} def
/TVz1 {TV 0 -40 rmoveto (z1) show 0 40 rmoveto TL} def
/TVz2 {TV 0 -40 rmoveto (z2) show 0 40 rmoveto TL} def
/TVz3 {TV 0 -40 rmoveto (z3) show 0 40 rmoveto TL} def
/TVz4 {TV 0 -40 rmoveto (z4) show 0 40 rmoveto TL} def

/TVw  {TV 0 -40 rmoveto () show   0 40 rmoveto TL} def
/TVw0 {TV 0 -40 rmoveto (w0) show 0 40 rmoveto TL} def
/TVw1 {TV 0 -40 rmoveto (w1) show 0 40 rmoveto TL} def
/TVw2 {TV 0 -40 rmoveto (w2) show 0 40 rmoveto TL} def
/TVw3 {TV 0 -40 rmoveto (w3) show 0 40 rmoveto TL} def
/TVw4 {TV 0 -40 rmoveto (w4) show 0 40 rmoveto TL} def

/TVa  {TV 0 -40 rmoveto () show   0 40 rmoveto TL} def
/TVa0 {TV 0 -40 rmoveto (a0) show 0 40 rmoveto TL} def
/TVa1 {TV 0 -40 rmoveto (a1) show 0 40 rmoveto TL} def
/TVa2 {TV 0 -40 rmoveto (a2) show 0 40 rmoveto TL} def
/TVa3 {TV 0 -40 rmoveto (a3) show 0 40 rmoveto TL} def
/TVa4 {TV 0 -40 rmoveto (a4) show 0 40 rmoveto TL} def

/xposNi 6 array def
/yposNi 6 array def
/eposNi 6 array def
/xposNi [0000  0000  0000  0000  0000  0000] def
/yposNi [0000  0100  0160  0220  0280  0340] def
/eposNi [{TVw} {TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def

/xposWi 6 array def
/yposWi 6 array def
/eposWi 6 array def
/xposWi [0000  0000  0000  0000  0000  0000] def
/yposWi [0999  0900  0840  0780  0720  0660] def
/eposWi [{TVn} {TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def

TL
newpath
%N
/ecoli 6 array def
/ecoli [ {0.000 0.000 0.000} {0.100 0.100 0.100} %N
         {0.200 0.200 0.200} {0.300 0.300 0.300}
         {0.400 0.400 0.400} {0.450 0.450 0.450}] def
/x6n xposNi xchart6 get def
/y6n yposNi xchart6 get def
ecoli xchart6 get exec setrgbcolor
x6n y6n af0 0 360 arc fill

newpath
%W
/ecoli [ {1.000 1.000 1.000} {0.900 0.900 0.900} %W
         {0.800 0.800 0.800} {0.700 0.700 0.700}
         {0.600 0.600 0.600} {0.550 0.550 0.550}] def
/x6w xposWi xchart6 get def
/y6w yposWi xchart6 get def
ecoli xchart6 get exec setrgbcolor
x6w y6w afM 0 360 arc fill

%fix position for Z with ring
newpath
0 setgray
0000 0500 afP 0 360 arc fill
0.5 setgray
0000 0500 afM 0 360 arc fill

1 setgray
newpath
i 0 eq
i 2 eq or
i 4 eq or {%i=0,2,4:C,B,M
           x6w 050 add y6w 100 add moveto
           xchart6 1 ge {(W) show eposWi xchart6 get exec} if
           100 0450 moveto (Z) show
           x6n 070 add y6n 170 sub moveto
           (N) show eposNi xchart6 get exec
          }
          {%i#0,2,4:G,Y,R
           x6w 350 sub y6w 100 add moveto
            xchart6 1 ge {(W) show eposWi xchart6 get exec} if
           -180 0450 moveto (Z) show
           x6n 320 sub y6n 170 sub moveto
           (N) show eposNi xchart6 get exec
          } ifelse
%***************END nain triangle plot

%n=noir, w=white, l=left, r=right
%CBM->N
/xposnli 6 array def
/yposnli 6 array def
/xpotnli 6 array def
/ypotnli 6 array def
/xposnli [-700 -600 -450 -300 -150  000] def
/yposnli [ 500  500  400  300  200  100] def
/xpotnli [-790 -790 -550 -410 -260 -110] def
/ypotnli [ 620  620  200  100  000 -100] def

%RYG->N
/xposnri 6 array def
/yposnri 6 array def
/xpotnri 6 array def
/ypotnri 6 array def
/xposnri [ 700  600  450  300  150  000] def
/yposnri [ 500  500  400  300  200  100] def
/xpotnri [ 640  540  410  260  110  -40] def
/ypotnri [ 620  620  200  100  000 -100] def

%W->CBM
/xposwli 6 array def
/yposwli 6 array def
/xpotwli 6 array def
/ypotwli 6 array def
/xposwli [-700 000  -150 -300 -450 -600] def
/yposwli [ 500  900  800  700  600  500] def
/xpotwli [-790 -210 -360 -510 -650 -790] def
/ypotwli [ 620 1020  920  820  720  620] def

%W->RYG
/xposwri 6 array def
/yposwri 6 array def
/xpotwri 6 array def
/ypotwri 6 array def
/xposwri [ 700  000  150  300  450  600] def
/yposwri [ 500  900  800  700  600  500] def
/xpotwri [ 640  -40  110  260  410  540] def
/ypotwri [ 620 1020  920  820  720  620] def

i 0 eq {%i=0 C-R
/xnamee (C) def %0
/xnameg (R) def %5
/eposnli [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnli [ {0.000 1.000 1.000} {0.100 0.900 0.900}
           {0.100 0.700 0.700} {0.100 0.500 0.500}
           {0.100 0.300 0.300} {0.100 0.100 0.100}] def
/eposwli [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwli [ {0.000 1.000 1.000} {0.900 0.900 0.900}
           {0.700 0.900 0.900} {0.500 0.900 0.900}
           {0.300 0.900 0.900} {0.100 0.900 0.900}] def
/eposnri [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnri [ {1.000 0.000 0.000} {0.900 0.100 0.100}
           {0.700 0.100 0.100} {0.500 0.100 0.100}
           {0.300 0.100 0.100} {0.100 0.100 0.100}] def
/eposwri [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwri [ {1.000 0.000 0.000} {0.900 0.900 0.900}
           {0.900 0.700 0.700} {0.900 0.500 0.500}
           {0.900 0.300 0.300} {0.900 0.100 0.100}] def
        } if %i=0


i 1 eq {%i=1 G-M
/xnamee (G) def %1
/xnameg (M) def %4
/eposnri [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnri [ {0.000 1.000 0.000} {0.100 0.900 0.100}
           {0.100 0.700 0.100} {0.100 0.500 0.100}
           {0.100 0.300 0.100} {0.100 0.100 0.100}] def
/eposwri [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwri [ {0.000 1.000 0.000} {0.900 0.900 0.900}
           {0.700 0.900 0.700} {0.500 0.900 0.500}
           {0.300 0.900 0.300} {0.100 0.900 0.100}] def
/eposnli [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnli [ {1.000 0.000 1.000} {0.900 0.100 0.900}
           {0.700 0.100 0.700} {0.500 0.100 0.500}
           {0.300 0.100 0.300} {0.100 0.100 0.100}] def
/eposwli [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwli [ {1.000 0.000 1.000} {0.900 0.900 0.900}
           {0.900 0.700 0.900} {0.900 0.500 0.900}
           {0.900 0.300 0.900} {0.900 0.100 0.900}] def
        } if %i=1

i 2 eq {%i=2 B-Y
/xnamee (B) def %2
/xnameg (Y) def %3
/eposnli [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnli [ {0.000 0.000 1.000} {0.100 0.100 0.900}
           {0.100 0.100 0.700} {0.100 0.100 0.500}
           {0.100 0.100 0.300} {0.100 0.100 0.100}] def
/eposwli [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwli [ {0.000 0.000 1.000} {0.900 0.900 0.900}
           {0.700 0.700 0.900} {0.500 0.500 0.900}
           {0.300 0.300 0.900} {0.100 0.100 0.900}] def
/eposnri [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnri [ {1.000 1.000 0.000} {0.900 0.900 0.100}
           {0.700 0.700 0.100} {0.500 0.500 0.100}
           {0.300 0.300 0.100} {0.100 0.100 0.100}] def
/eposwri [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwri [ {1.000 1.000 0.000} {0.900 0.900 0.900}
           {0.900 0.900 0.700} {0.900 0.900 0.500}
           {0.900 0.900 0.300} {0.900 0.900 0.100}] def
        } if %i=2

i 3 eq {%i=3 Y-B
/xnamee (Y) def %3
/xnameg (B) def %2
/eposnri [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnri [ {1.000 1.000 0.000} {0.900 0.900 0.100}
           {0.700 0.700 0.100} {0.500 0.500 0.100}
           {0.300 0.300 0.100} {0.100 0.100 0.100}] def
/eposwri [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwri [ {1.000 1.000 0.000} {0.900 0.900 0.900}
           {0.900 0.900 0.700} {0.900 0.900 0.500}
           {0.900 0.900 0.300} {0.900 0.900 0.100}] def
/eposnli [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnli [ {0.000 0.000 1.000} {0.100 0.100 0.900}
           {0.100 0.100 0.700} {0.100 0.100 0.500}
           {0.100 0.100 0.300} {0.100 0.100 0.100}] def
/eposwli [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwli [ {0.000 0.000 1.000} {0.900 0.900 0.900}
           {0.700 0.700 0.900} {0.500 0.500 0.900}
           {0.300 0.300 0.900} {0.100 0.100 0.900}] def
        } if %i=3

i 4 eq {%i=4 M-G
/xnamee (M) def %4
/xnameg (G) def %1
/eposnli [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnli [ {1.000 0.000 1.000} {0.900 0.100 0.900}
           {0.700 0.100 0.700} {0.500 0.100 0.500}
           {0.300 0.100 0.300} {0.100 0.100 0.100}] def
/eposwli [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwli [ {1.000 0.000 1.000} {0.900 0.900 0.900}
           {0.900 0.700 0.900} {0.900 0.500 0.900}
           {0.900 0.300 0.900} {0.900 0.100 0.900}] def
/eposnri [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnri [ {0.000 1.000 0.000} {0.100 0.900 0.100}
           {0.100 0.700 0.100} {0.100 0.500 0.100}
           {0.100 0.300 0.100} {0.100 0.100 0.100}] def
/eposwri [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwri [ {0.000 1.000 0.000} {0.900 0.900 0.900}
           {0.700 0.900 0.700} {0.500 0.900 0.500}
           {0.300 0.900 0.300} {0.100 0.900 0.100}] def
        } if %i=4

i 5 eq {%i=5 R=C
/xnamee (R) def %5
/xnameg (C) def %0
/eposnri [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnri [ {1.000 0.000 0.000} {0.900 0.100 0.100}
           {0.700 0.100 0.100} {0.500 0.100 0.100}
           {0.300 0.100 0.100} {0.100 0.100 0.100}] def
/eposwri [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwri [ {1.000 0.000 0.000} {0.900 0.900 0.900}
           {0.900 0.700 0.700} {0.900 0.500 0.500}
           {0.900 0.300 0.300} {0.900 0.100 0.100}] def
/eposnli [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnli [ {0.000 1.000 1.000} {0.100 0.900 0.900}
           {0.100 0.700 0.700} {0.100 0.500 0.500}
           {0.100 0.300 0.300} {0.100 0.100 0.100}] def
/eposwli [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwli [ {0.000 1.000 1.000} {0.900 0.900 0.900}
           {0.700 0.900 0.900} {0.500 0.900 0.900}
           {0.300 0.900 0.900} {0.100 0.900 0.900}] def
        } if %i=5

i 6 eq {%i=6 W-N
/xnamee (W) def %6
/xnameg (N) def %7
/eposnri [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolnri [ {1.000 1.000 1.000} {0.900 0.900 0.900}
           {0.700 0.700 0.700} {0.500 0.500 0.500}
           {0.300 0.300 0.300} {0.100 0.100 0.100}] def
/eposwri [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwri [ {1.000 1.000 1.000} {0.900 0.900 0.900}
           {0.700 0.700 0.700} {0.500 0.500 0.500}
           {0.300 0.300 0.300} {0.100 0.100 0.100}] def
/eposnli [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolnli [ {1.000 1.000 1.000} {0.900 0.900 0.900}
           {0.700 0.700 0.700} {0.500 0.500 0.500}
           {0.300 0.300 0.300} {0.100 0.100 0.100}] def
/eposwli [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwli [ {1.000 1.000 1.000} {0.900 0.900 0.900}
           {0.700 0.700 0.700} {0.500 0.500 0.500}
           {0.300 0.300 0.300} {0.100 0.100 0.100}] def
         } if %i=6

i 7 eq {%i=7 N-W
/xnamee (N) def %7
/xnameg (W) def %6
/eposnri [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnri [ {0.000 0.000 0.000} {0.100 0.100 0.100}
           {0.300 0.300 0.300} {0.500 0.500 0.500}
           {0.700 0.700 0.700} {0.900 0.900 0.900}] def
/eposwri [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolwri [ {0.000 0.000 0.000} {0.100 0.100 0.100}
           {0.300 0.300 0.300} {0.500 0.500 0.500}
           {0.700 0.700 0.700} {0.900 0.900 0.900}] def
/eposnli [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnli [ {0.000 0.000 0.000} {0.100 0.100 0.100}
           {0.300 0.300 0.300} {0.500 0.500 0.500}
           {0.700 0.700 0.700} {0.900 0.900 0.900}] def
/eposwli [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolwli [ {0.000 0.000 0.000} {0.100 0.100 0.100}
           {0.300 0.300 0.300} {0.500 0.500 0.500}
           {0.700 0.700 0.700} {0.900 0.900 0.900}] def
        } if %i=7

i 8 eq {%i=8 G2-M2
/xnamee (G2) def %8
/xnameg (M2) def %9
/eposnri [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnri [ {0.000 1.000 0.000} {0.100 0.900 0.100}
           {0.100 0.700 0.100} {0.100 0.500 0.100}
           {0.100 0.300 0.100} {0.190 0.100 0.100}] def
/eposwri [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwri [ {0.000 1.000 0.000} {0.900 0.900 0.900}
           {0.700 0.900 0.700} {0.500 0.900 0.500}
           {0.300 0.900 0.300} {0.100 0.900 0.100}] def
/eposnli [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnli [ {1.000 0.000 1.000} {0.900 0.100 0.900}
           {0.700 0.100 0.700} {0.500 0.100 0.500}
           {0.300 0.100 0.300} {0.100 0.100 0.100}] def
/eposwli [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwli [ {1.000 0.000 1.000} {0.900 0.900 0.900}
           {0.900 0.700 0.900} {0.900 0.500 0.900}
           {0.900 0.300 0.900} {0.900 0.100 0.900}] def
         } if %i=8

i 9 eq {%i=9 M2-G2
/xnamee (M2) def %9
/xnameg (G2) def %8
/eposnli [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnli [ {1.000 0.000 1.000} {0.900 0.100 0.900}
           {0.700 0.100 0.700} {0.500 0.100 0.500}
           {0.300 0.100 0.300} {0.100 0.100 0.100}] def
/eposwli [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwli [ {1.000 0.000 1.000} {0.900 0.900 0.900}
           {0.900 0.700 0.900} {0.900 0.500 0.900}
           {0.900 0.300 0.900} {0.900 0.100 0.900}] def
/eposnri [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnri [ {0.000 1.000 0.000} {0.100 0.900 0.100}
           {0.100 0.700 0.100} {0.100 0.500 0.100}
           {0.100 0.300 0.100} {0.190 0.100 0.100}] def
/eposwri [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwri [ {0.000 1.000 0.000} {0.900 0.900 0.900}
           {0.700 0.900 0.700} {0.500 0.900 0.500}
           {0.300 0.900 0.300} {0.100 0.900 0.100}] def
        } if %i=9

i 10 eq {%i=10 Z-Z
/xnamee (Z) def %10
/xnameg (Z) def %10
/eposnri [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnri [ {0.000 0.000 0.000} {0.100 0.100 0.100}
           {0.200 0.200 0.200} {0.300 0.300 0.300}
           {0.400 0.400 0.400} {0.450 0.450 0.450}] def
/eposwri [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwri [ {0.000 0.000 0.000} {0.100 0.100 0.100}
           {0.200 0.200 0.200} {0.300 0.300 0.300}
           {0.400 0.400 0.400} {0.450 0.450 0.450}] def
/eposnli [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolnli [ {0.000 0.000 0.000} {0.100 0.100 0.100}
           {0.200 0.200 0.200} {0.300 0.300 0.300}
           {0.400 0.400 0.400} {0.450 0.450 0.450}] def
/eposwli [ {TVw}{TVw0}{TVw1}{TVw2}{TVw3}{TVw4}] def
/ecolwli [ {0.000 0.000 0.000} {0.100 0.100 0.100}
           {0.200 0.200 0.200} {0.300 0.300 0.300}
           {0.400 0.400 0.400} {0.450 0.450 0.450}] def
         } if %i=7

/xposNci 6 array def
/yposNci 6 array def
/xposNci [0000  0000  0000  0000  0000  0000] def
/yposNci [0999  0900  0700  0500  0300  0100] def
/eposNci [ {TVn}{TVn0}{TVn1}{TVn2}{TVn3}{TVn4}] def
/ecolNci [ {1.000 1.000 1.000} {0.900 0.900 0.900}
           {0.700 0.700 0.700} {0.500 0.500 0.500}
           {0.300 0.300 0.300} {0.100 0.100 0.100}] def

i 0 eq
i 2 eq or
i 4 eq or {%i=0,2,4:C,B,M

/iout0 1 def
iout0 1 eq {%iout0=1
newpath
/x6c xposnli xchart6 get def
/y6c yposnli xchart6 get def
xchart6 1 ge {%xchart6>=1
              0 1 0 setrgbcolor
              x6n y6n moveto x6c y6c lineto
              x6w y6w lineto closepath stroke
             } if %xchart6>=1
ecolnli xchart6 get exec setrgbcolor
x6c y6c af0 0 360 arc fill
newpath
0 setgray
xpotnli xchart6 get ypotnli xchart6 get moveto xnamee show
eposnli xchart6 get exec
} if %iout0=1

/ioutn 1 def
ioutn 1 eq {%ioutn=1
newpath
/xchart6P xchart6w 1 add def
/x6c  xposnli xchart6P get def
/y6c  yposnli xchart6P get def
/x6nc xposNci xchart6P get def
/y6nc yposNci xchart6P get def
xchart6P 1 ge {%xchart6P>=1
              0 1 0 setrgbcolor
              x6c y6c moveto x6nc y6nc lineto stroke
             } if %xchart6P>=1
1 0 0 setrgbcolor
x6c y6c afP 0 360 arc fill
ecolnli xchart6P get exec setrgbcolor
x6c y6c afM 0 360 arc fill
ecolNci xchart6P get exec setrgbcolor
x6nc y6nc af0 0 360 arc fill
newpath
1 setgray
x6nc 050 add y6nc moveto (W) show eposnli xchart6P get exec
1 0 0 setrgbcolor
xpotnli xchart6P get ypotnli xchart6P get moveto xnamee show
eposnli xchart6P get exec
0 setgray
} if %ioutn=1
          }%i=0,2,4:C,B,M
          {%i#0,2,4:G,Y,R

/iout1 1 def
iout1 1 eq {%iout1=1
newpath
/x6c xposnri xchart6 get def
/y6c yposnri xchart6 get def
xchart6 1 ge {%xchart6>=1
              0 1 0 setrgbcolor
              x6n y6n moveto x6c y6c lineto
              x6w y6w lineto closepath stroke
             } if %xchart6>=1
ecolnri xchart6 get exec setrgbcolor
x6c y6c af0 0 360 arc fill
newpath
0 setgray
xpotnri xchart6 get ypotnri xchart6 get moveto xnamee show
eposnri xchart6 get exec
} if %iout1=1

/ioutw 1 def
ioutw 1 eq {%ioutw=1
newpath
/xchart6P xchart6w 1 add def
/x6c  xposnri xchart6P get def
/y6c  yposnri xchart6P get def
/x6nc xposNci xchart6P get def
/y6nc yposNci xchart6P get def
xchart6P 1 ge {%xchart6P>=1
              0 1 0 setrgbcolor
              x6c y6c moveto x6nc y6nc lineto stroke
             } if %xchart6P>=1
1 0 0 setrgbcolor
x6c y6c afP 0 360 arc fill
ecolnri xchart6P get exec setrgbcolor
x6c y6c afM 0 360 arc fill
ecolNci xchart6P get exec setrgbcolor
x6nc y6nc af0 0 360 arc fill
newpath
1 setgray
x6nc 350 sub y6nc moveto (W) show eposnri xchart6P get exec
1 0 0 setrgbcolor
xpotnri xchart6P get ypotnri xchart6P get moveto xnamee show
eposnri xchart6P get exec
0 setgray
} if %ioutw=1
          } ifelse %i#0,2,4:G,Y,R
          
xhi i get neg yhi i get neg translate

} for %i=0,5

} if %iouth=1 %hue output

%********************************************************
/ioute 1 def
ioute 1 eq {%ioute=1 %equation output 

/ixe  8350 def
/ixe0 8350 def
/iye  1050 def
/ixed  220 def

ixe0 iye ixed 1 mul add moveto
TBS
ioutb 0 eq {%ioutb=0
            (with N reflection) showen
            (mit N\255Reflexion) showde
           }%ioutb=0
           {%ioutb=1
            (without N reflection) showen
            (ohne N\255Reflexion) showde
           } ifelse %ioutb=1

ixe iye ixed 0 mul sub moveto
TBS
(Normreflexion) showde
(standard reflection) showen

ixe iye ixed 1 mul sub moveto
TBS
xchart6 0 eq {(0,030<=) show} if %C=36:1
xchart6 1 eq {(0,036<=) show} if %C=25:1
xchart6 2 eq {(0,045<=) show} if %C=16:1
xchart6 3 eq {(0,060<=) show} if %C=9:1
xchart6 4 eq {(0,090<=) show} if %C=4:1
xchart6 5 eq {(0,127<=) show} if %C=2:1

TBIS
(R) show
TBS (\050) show SS (l) show TBS (\051) show

xchart6 0 eq {(<=1,080) show} if %C=36:1
xchart6 1 eq {(<=0,900) show} if %C=25:1
xchart6 2 eq {(<=0,720) show} if %C=16:1
xchart6 3 eq {(<=0,540) show} if %C=9:1
xchart6 4 eq {(<=0,360) show} if %C=4:1
xchart6 5 eq {(<=0,254) show} if %C=2:1

ixe0 iye ixed 2 mul sub moveto
xchart4 1 eq {%xchart4=1
              (Relative Reflexion) showde
              (relative reflection) showen
             } if %xchart4=1
xchart4 2 eq {%xchart4=2
              (log[Relative Reflexion]) showde
              (log[relative reflection]) showen
             } if %xchart4=2

ixe0 iye ixed 3 mul sub moveto
xchart4 1 eq {%%xchart4=1
              TBIS (R) show TBL 0 -30 rmoveto (r) show 0 30 rmoveto
              TBS (\050) show SS (l) show TBS (\051=) show
              TBIS (R) show
              TBS (\050) show SS (l) show TBS (\051/0,18) show
             } if %xchart4=1

xchart4 2 eq {%%xchart4=2
              TBIS (R) show TBL 0 -30 rmoveto (s) show 0 30 rmoveto
              TBS (\050) show SS (l) show TBS (\051=log[) show
              TBIS (R) show
              TBS (\050) show SS (l) show TBS (\051/0,18]) show
             } if %xchart4=2

ixe0 iye ixed 4 mul sub moveto
              TBIS (T*) show TBL -20 -40 rmoveto (TUB) show 0 40 rmoveto
              TBS (=40) show 10 0 rmoveto (log[) show
              TBIS (R) show TBL 0 -30 rmoveto (r) show 0 30 rmoveto
              TBS (\050) show SS (l) show TBS (\051]) show
              10 0 rmoveto (/log5) show

} if %ioute=1 %equation output

} ifelse %xcharta=0,1

showpage
grestore

%%Trailer