%!PS-Adobe-3.0 EPSF-3.0 TF331-8N
%%BoundingBox: 70 83 226 206

%START PDFDE011.EPS
/pdfmark18 where {pop} {userdict /pdfmark18 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/SE68/)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices, colour vision)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2013090112000)
  /ModDate (D:2013090112000)
/DOCINFO pdfmark18
[ /View [ /FitB ]
/DOCVIEW pdfmark18
%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

% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I
 
/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/Times-ISOL1 exch definefont pop
 
/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesI-ISOL1 exch definefont pop
 
/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesB-ISOL1 exch definefont pop
 
/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesBI-ISOL1 exch definefont pop
 
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

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

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

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

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

/SS {160 10 sub /Symbol FS} bind def
/SK {200 10 sub /Symbol FS} bind def
/SM {250 12 sub /Symbol FS} bind def
/SG {300 14 sub /Symbol FS} bind def

/nshowG {TG  show} bind def
/kshowG {TIG show} bind def
/bshowG {TBG show} bind def
/bishowG {TBIG show} bind def
/ishowG {TM 0 -60 rmoveto show 0 60 rmoveto} bind def
/ebshowG {TBM 0 80 rmoveto show 0 -80 rmoveto} bind def
/sshowG {SG show} bind def

/nshowM {TM  show} bind def
/kshowM {TIM show} bind def
/bshowM {TBM show} bind def
/bishowM {TBIM show} bind def
/ishowM {TK 0 -40 rmoveto show 0 40 rmoveto} bind def
/ebshowM {TBK 0 70 rmoveto show 0 -70 rmoveto} bind def
/sshowM {SM show} bind def

/nshowK {TK  show} bind def
/kshowK {TIK show} bind def
/bshowK {TBK show} bind def
/bishowK {TBIK show} bind def
/ishowK {TS 0 -30 rmoveto show 0 30 rmoveto} bind def
/ebshowK {TBS 0 60 rmoveto show 0 -60 rmoveto} bind def
/sshowK {SS show} bind def

/tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzl {1.0 0.0 1.0 0.0} bind def
/tzv {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def

/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def

/tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben
/tzg {1.0 0.0 0.5 0.0} bind def
/tzb {1.0 0.5 0.0 0.0} bind def
/tzj {0.0 0.0 1.0 0.0} bind def

/tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut
/tzgz {1.0 0.0 0.5 0.5} bind def
/tzbz {1.0 0.5 0.0 0.5} bind def
/tzjz {0.0 0.0 1.0 0.5} bind def

/tfo {tzo setcmykcolor} bind def
/tfl {tzl setcmykcolor} bind def
/tfv {tzv setcmykcolor} bind def
/tfc {tzc setcmykcolor} bind def
/tfm {tzm setcmykcolor} bind def
/tfy {tzy setcmykcolor} bind def

/tfn {tzn setcmykcolor} bind def
/tfd {tzd setcmykcolor} bind def
/tfz {tzz setcmykcolor} bind def
/tfh {tzh setcmykcolor} bind def
/tfw {tzw setcmykcolor} bind def

/tfr {tzr setcmykcolor} bind def
/tfg {tzg setcmykcolor} bind def
/tfb {tzb setcmykcolor} bind def
/tfj {tzj setcmykcolor} bind def

/tfrz {tzrz setcmykcolor} bind def
/tfgz {tzgz setcmykcolor} bind def
/tfbz {tzbz setcmykcolor} bind def
/tfjz {tzjz setcmykcolor} bind def
 
/A4quer {598 0 tl 90 rotate} def
/setcmyknew {setcmykcolor} def
/outSM {sshowM} def
/outSK {sshowK} def
/outxshowf {setcmykcolor show} def

%for output test only
/tspace {dup abs 1.0 le {(   ) show} if
         dup dup -1.0 le exch -10 gt and {(  ) show} if
         dup dup 1.0 gt exch  10 lt and {(   ) show} if
         dup dup 1.0 gt exch  10 ge and {( ) show} if
            } bind def

/trushow {tspace 0.005 add 100 mul truncate 100 div
          10 string cvs show} bind def

/troshow {0.005 add 100 mul truncate 100 div
          10 string cvs show} bind def
           
/trushow4 {0.00005 add 10000 mul truncate 10000 div
           10 string cvs show} bind def

/YIXL 88 array def
/YIXM 88 array def
/YIXS 88 array def

/YEXP0 88 array def
/YEXP1 88 array def
/YEXP2 88 array def
/YEXP3 88 array def
/YEXP4 88 array def
/YEXP5 88 array def
/YEXP6 88 array def
/YEXP7 88 array def

/Xi 88 array def
/Yi 88 array def

/KURV$1 8 array def %8 curves, Sensitivity
/KURV$2 8 array def %8 curves, Saturation
/KURV$1 [(U") (L") (M") (S") (N") (J") (B") (J")] def
/KURV$2 [(U") (L") (M") (S") (N") (J") (B") (J")] def

/KURVA 8 array def %8 actual curves
/KURVA1 8 array def %8 curves, Sensitivity, one or two colours
/KURVA2 8 array def %8 curves, Saturation, one or two colours
/KURVA1 [2 1 1 2 2 0 0 0 0] def
/KURVA2 [2 1 1 2 2 0 0 0 0] def

/IDAI1 8 array def %8 curves, Sensitivity, actual setdash data, first curve
/IDAI2 8 array def %8 curves, Saturation,  actual setdash data, second curve
/IDAI00 8 array def %8 curves, Sensitivity, setdash data, first curve
/IDAI01 8 array def %8 curves, Saturation,  setdash data, first curve
/IDAI10 8 array def %8 curves, Sensitivity, setdash data, second curve
/IDAI11 8 array def %8 curves, Saturation,  setdash data, second curve
/IDAI00 [100 000 000 000 100 300 000 300] def
/IDAI01 [100 000 000 000 000 000 000 000] def
/IDAI10 [100 000 000 000 100 100 000 100] def
/IDAI11 [100 000 000 000 000 000 100 000] def

/FKUC1 8 array def %Actual colour C, Sensitivity
/FKUC2 8 array def %Actual colour C, Saturation
/FKUM1 8 array def %Actual colour M, Sensitivity
/FKUM2 8 array def %Actual colour M, Saturation
/FKUY1 8 array def %Actual colour Y, Sensitivity
/FKUY2 8 array def %Actual colour Y, Saturation
/FKUN1 8 array def %Actual colour N, Sensitivity
/FKUN2 8 array def %Actual colour N, Saturation

/tf445 {1.0 0.0 1.0 setrgbcolor} bind def %B50R
/tf457 {0.5 0.0 1.0 setrgbcolor} bind def %B25R
/tf470 {0.0 0.0 1.0 setrgbcolor} bind def %B00R
/tf482 {0.0 0.5 1.0 setrgbcolor} bind def %G75B
/tf495 {0.0 1.0 1.0 setrgbcolor} bind def %G50B
/tf507 {0.0 1.0 0.5 setrgbcolor} bind def %G25B
/tf520 {0.0 1.0 0.0 setrgbcolor} bind def %G00B
/tf532 {0.3 1.0 0.0 setrgbcolor} bind def %Y75G
/tf545 {0.5 1.0 0.0 setrgbcolor} bind def %Y50G
/tf557 {0.7 1.0 0.0 setrgbcolor} bind def %Y25G
/tf570 {1.0 1.0 0.0 setrgbcolor} bind def %Y00G
/tf582 {1.0 0.7 0.0 setrgbcolor} bind def %R75Y
/tf595 {1.0 0.5 0.0 setrgbcolor} bind def %R50Y
/tf607 {1.0 0.3 0.0 setrgbcolor} bind def %R25Y
/tf620 {1.0 0.0 0.0 setrgbcolor} bind def %R00Y

/FKUCI00 8 array def %Cyan, Colour 1, Sensitivity
/FKUCI01 8 array def %Cyan, Colour 2 on top, Sensitivity
/FKUCI10 8 array def %Cyan, Colour 1, Saturation
/FKUCI11 8 array def %Cyan, Colour 2 on top, Saturation

/FKUMI00 8 array def %Magenta, Colour 1, Sensitivity
/FKUMI01 8 array def %Magenta, Colour 2 on top, Sensitivity
/FKUMI10 8 array def %Magenta, Colour 1, Saturation
/FKUMI11 8 array def %Magenta, Colour 2 on top, Saturation

/FKUYI00 8 array def %Yellow, Colour 1, Sensitivity
/FKUYI01 8 array def %Yellow, Colour 2 on top, Sensitivity
/FKUYI10 8 array def %Yellow, Colour 1, Saturation
/FKUYI11 8 array def %Yellow, Colour 2 on top, Saturation

/FKUNI00 8 array def %Black, Colour 1, Sensitivity
/FKUNI01 8 array def %Black, Colour 2 on top, Sensitivity
/FKUNI10 8 array def %Black, Colour 1, Saturation
/FKUNI11 8 array def %Black, Colour 2 on top, Saturation

/XRGAI 8 array def
/XRG$I 8 array def
/XBJAI 8 array def
/XBJ$I 8 array def
%/XRGAI [ 570   557   520   495   570   570   570   570 ] def
%/XRG$I [(570) (557) (520) (495) (570) (570) (570) (570)] def
/XRGAI [ 520   557   520   495   570   570   570   570 ] def
/XRG$I [(520) (557) (520) (495) (570) (570) (570) (570)] def
/XBJAI [ 495   495   495   495   520   505   470   445 ] def
/XBJ$I [(495) (495) (495) (495) (520) (505) (470) (445)] def

/MULX 0600 def
/MULY 1200 0.8 mul def
/JPPM 4 def
/CY 0.35 def
/CX  50 def

%%EndProlog
gsave

/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 3 def /lanind2 3 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 0 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchart2 1 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 %

/GSS$ where {pop /LSS$ GSS$ def}
            {/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
            {/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
            {/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
            {/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
            {/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
            }
            {/IMES 0 def} ifelse

5 /Times-ISOL1 FS
200 85 moveto
    ( TF331-8) show
xchart 0 ge {(N) show} if

%(change of LMS in volour vision) showea
%(\304nderung von LMS beim Farbensehen) showde

72 90 translate

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

xchart  0 eq {/ILK 0 def /ILS 0 def /ILT 0 def/ILU 1 def} if %ILT=0 NO threshold
xchart  1 eq {/ILK 0 def /ILS 1 def /ILT 0 def/ILU 1 def} if
xchart  2 eq {/ILK 0 def /ILS 0 def /ILT 0 def/ILU 1 def} if
xchart  3 eq {/ILK 0 def /ILS 1 def /ILT 0 def/ILU 1 def} if
xchart  4 eq {/ILK 0 def /ILS 0 def /ILT 0 def/ILU 1 def} if
xchart  5 eq {/ILK 0 def /ILS 1 def /ILT 0 def/ILU 1 def} if
xchart  6 eq {/ILK 0 def /ILS 0 def /ILT 0 def/ILU 1 def} if
xchart  7 eq {/ILK 0 def /ILS 1 def /ILT 0 def/ILU 1 def} if

xchart  8 eq {/ILK 0 def /ILS 0 def /ILT 1 def/ILU 1 def} if %ILT=1 threshold
xchart  9 eq {/ILK 0 def /ILS 1 def /ILT 1 def/ILU 1 def} if
xchart 10 eq {/ILK 0 def /ILS 0 def /ILT 1 def/ILU 1 def} if
xchart 11 eq {/ILK 0 def /ILS 1 def /ILT 1 def/ILU 1 def} if
xchart 12 eq {/ILK 0 def /ILS 0 def /ILT 1 def/ILU 1 def} if
xchart 13 eq {/ILK 0 def /ILS 1 def /ILT 1 def/ILU 1 def} if
xchart 14 eq {/ILK 0 def /ILS 0 def /ILT 1 def/ILU 1 def} if
xchart 15 eq {/ILK 0 def /ILS 1 def /ILT 1 def/ILU 1 def} if

/IKOM 3 def %N curve, not used
/ILN  0 def %R&M
/JPPM 3 def %three curves
ILT 0 eq {/ta 0.0 def   /taT (0,0) def   /ltaT (-) def   } if
ILT 1 eq {/ta 0.025 def /taT (0,025) def /lTaT (-1,6) def} if

0.01 MM 0.01 MM scale
 
30 setlinewidth
[ ] 0 setdash

0.0 0.0 0.0 0.5 setcmykcolor
0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath fill

/W 9 array def

/Xa {(a) ishowM} def
/Xo {(o) ishowM} def
/XU  {tf557 (U) bishowM} def
ILN 0 eq {%Y,R,G,570,545, N=NAMES
%          /X0 {tf570 (Y)  bishowM} def
%          /X1 {tf595 (O)  bishowM} def
%          /X2 {tf545 (M)  bishowM} def
%          /X3 {tf595 (O)   ishowK} def
%          /X4 {tf545 (M)   ishowK} def
%          /X5 {tf595 (595) ishowK} def
%          /X6 {tf545 (545) ishowK} def
          
%          /X0 {tf570 (Y)  bishowM} def
%          /X1 {tf620 (R)  bishowM} def
%          /X2 {tf520 (G)  bishowM} def
%          /X3 {tf620 (R)   ishowK} def
%          /X4 {tf520 (G)   ishowK} def
%          /X5 {tf620 (620) ishowK} def
%          /X6 {tf520 (520) ishowK} def

xchart 0 eq xchart 1 eq or xchart 8 eq or xchart 9 eq or {%xchart=0,1,8,9
          /X0 {tf570 (L)  bishowM} def
          /X1 {tf620 (R)  bishowM} def
          /X2 {tf520 (G)  bishowM} def
          /X3 {tf620 (R)   ishowK} def
          /X4 {tf520 (G)   ishowK} def
          /X5 {tf620 (620) ishowK} def
          /X6 {tf520 (520) ishowK} def
          /X7 {tf520 (520)} def
          /X8 {tf570 (570)} def
          /X9 {tf620 (620)} def
          /W [570 620 520 557 575 550 525 505 475] def
%/tf557 {0.3 0.0 1.0 0.0 setcmykcolor} bind def %Y25G
%         570 620 520 557
/FKUCI00 [0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0] def
/FKUCI01 [0.0 0.0 0.0 0.3 1.0 1.0 0.0 1.0] def
/FKUCI10 [0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0] def
/FKUCI11 [0.0 0.0 0.0 0.3 0.0 0.0 0.0 0.0] def

/FKUMI00 [0.0 1.0 0.0 0.0 0.0 0.0 0.0 0.0] def
/FKUMI01 [0.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def
/FKUMI10 [0.0 1.0 0.0 0.0 0.0 0.0 0.0 0.0] def
/FKUMI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def

/FKUYI00 [0.0 1.0 1.0 0.0 0.0 1.0 0.0 1.0] def
/FKUYI01 [1.0 0.0 0.0 1.0 1.0 0.0 0.0 0.0] def
/FKUYI10 [0.0 1.0 1.0 0.0 1.0 1.0 1.0 1.0] def
/FKUYI11 [1.0 0.0 0.0 1.0 0.0 0.0 1.0 0.0] def

/FKUNI00 [1.0 0.0 0.0 1.0 1.0 0.0 0.0 0.0] def
/FKUNI01 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def
/FKUNI10 [1.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0] def
/FKUNI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def
                            } if %xchart=0,1,8,9

xchart 2 eq xchart 3 eq or xchart 10 eq or xchart 11 eq or {%xchart=2,3,10,11
          /X0 {tf545 (M)  bishowM} def
          /X1 {tf595 (O)  bishowM} def
          /X2 {tf495 (C)  bishowM} def
          /X3 {tf595 (O)   ishowK} def
          /X4 {tf495 (C)   ishowK} def
          /X5 {tf595 (595) ishowK} def
          /X6 {tf495 (495) ishowK} def
          /X7 {tf495 (495)} def
          /X8 {tf545 (545)} def
          /X9 {tf595 (595)} def
          /W [545 595 495 557 575 550 525 505 475] def
%/tf557 {0.3 0.0 1.0 0.0 setcmykcolor} bind def %Y25G
%         545 595 495 557
/FKUCI00 [0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0] def
/FKUCI01 [0.5 0.0 0.0 0.3 1.0 1.0 0.0 1.0] def
/FKUCI10 [0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0] def
/FKUCI11 [0.5 0.0 0.0 0.3 0.0 0.0 0.0 0.0] def

/FKUMI00 [0.0 0.5 0.0 0.0 0.0 0.0 0.0 0.0] def
/FKUMI01 [0.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def
/FKUMI10 [0.0 0.5 0.0 0.0 0.0 0.0 0.0 0.0] def
/FKUMI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def

/FKUYI00 [0.0 1.0 0.0 0.0 0.0 1.0 0.0 1.0] def
/FKUYI01 [1.0 0.0 0.0 1.0 1.0 0.0 0.0 0.0] def
/FKUYI10 [0.0 1.0 0.0 0.0 1.0 1.0 1.0 1.0] def
/FKUYI11 [1.0 0.0 0.0 1.0 0.0 0.0 1.0 0.0] def

/FKUNI00 [1.0 0.0 0.0 1.0 1.0 0.0 0.0 0.0] def
/FKUNI01 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def
/FKUNI10 [1.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0] def
/FKUNI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def
                           } if %xchart=2,3,10,11

xchart 4 eq xchart 5 eq or xchart 12 eq or xchart 13 eq or {%xchart=4,5,12,13
          /X0 {tf520 (G)  bishowM} def
          /X1 {tf570 (L)  bishowM} def
          /X2 {tf470 (B)  bishowM} def
          /X3 {tf570 (L)   ishowK} def
          /X4 {tf470 (B)   ishowK} def
          /X5 {tf570 (570) ishowK} def
          /X6 {tf470 (470) ishowK} def
          /X7 {tf470 (470)} def
          /X8 {tf520 (520)} def
          /X9 {tf570 (570)} def
          /W [520 570 470 557 575 550 525 505 475] def
%/tf557 {0.3 0.0 1.0 0.0 setcmykcolor} bind def %Y25G
%         520 570 470 557
/FKUCI00 [0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0] def
/FKUCI01 [1.0 0.0 0.0 0.3 1.0 1.0 0.0 1.0] def
/FKUCI10 [0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0] def
/FKUCI11 [1.0 0.0 0.0 0.3 0.0 0.0 0.0 0.0] def

/FKUMI00 [0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0] def
/FKUMI01 [0.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def
/FKUMI10 [0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0] def
/FKUMI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def

/FKUYI00 [0.0 1.0 0.0 0.0 0.0 1.0 0.0 1.0] def
/FKUYI01 [1.0 0.0 0.0 1.0 1.0 0.0 0.0 0.0] def
/FKUYI10 [0.0 1.0 0.0 0.0 1.0 1.0 1.0 1.0] def
/FKUYI11 [1.0 0.0 0.0 1.0 0.0 0.0 1.0 0.0] def

/FKUNI00 [1.0 0.0 0.0 1.0 1.0 0.0 0.0 0.0] def
/FKUNI01 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def
/FKUNI10 [1.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0] def
/FKUNI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def
                           } if %xchart=4,5,12,13

xchart 6 eq xchart 7 eq or xchart 14 eq or xchart 15 eq or {%xchart=6,7,14,15
          /X0 {tf495 (C)  bishowM} def
          /X1 {tf545 (M)  bishowM} def
          /X2 {tf445 (S)  bishowM} def
          /X3 {tf545 (M)   ishowK} def
          /X4 {tf445 (S)   ishowK} def
          /X5 {tf545 (545) ishowK} def
          /X6 {tf445 (445) ishowK} def
          /X7 {tf445 (445)} def
          /X8 {tf495 (495)} def
          /X9 {tf545 (545)} def
          /W [495 545 445 557 575 550 525 505 475] def
%/tf557 {0.3 0.0 1.0 0.0 setcmykcolor} bind def %Y25G
%         495 545 445 557
/FKUCI00 [0.0 0.5 0.0 0.0 0.0 0.0 0.0 0.0] def
/FKUCI01 [1.0 0.0 0.0 0.3 1.0 1.0 0.0 1.0] def
/FKUCI10 [0.0 0.5 0.0 0.0 0.0 0.0 0.0 0.0] def
/FKUCI11 [1.0 0.0 0.0 0.3 0.0 0.0 0.0 0.0] def

/FKUMI00 [0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0] def
/FKUMI01 [0.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0] def
/FKUMI10 [0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0] def
/FKUMI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def

/FKUYI00 [0.0 1.0 0.0 0.0 0.0 1.0 0.0 1.0] def
/FKUYI01 [0.0 0.0 0.0 1.0 1.0 0.0 0.0 0.0] def
/FKUYI10 [0.0 1.0 0.0 0.0 1.0 1.0 1.0 1.0] def
/FKUYI11 [0.0 0.0 0.0 1.0 0.0 0.0 1.0 0.0] def

/FKUNI00 [1.0 0.0 0.0 1.0 1.0 0.0 0.0 0.0] def
/FKUNI01 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def
/FKUNI10 [1.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0] def
/FKUNI11 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0] def
                           } if %xchart=6,7,14,15
          
          } if %Y,R,G,570,545, N=NAMES
          
ILN 1 eq {%V,L,S,570,445
          /X0 {tfn (V)  bishowM} def
          /X1 {tfo (L)  bishowM} def
          /X2 {tfv (S)  bishowM} def
          /X3 {tfo (L)   ishowK} def
          /X4 {tfv (S)   ishowK} def
          /X5 {tfy (570) ishowK} def
          /X6 {tfv (445) ishowK} def} if
ILN 2 eq {%W,S,M,450,538
          /X0 {tfn (W)  bishowM} def
          /X1 {tfv (S)  bishowM} def
          /X2 {tfl (M)  bishowM} def
          /X3 {tfv (S)   ishowK} def
          /X4 {tfl (M)   ishowK} def
          /X5 {tfv (445) ishowK} def
          /X6 {tfl (545) ishowK} def} if

/AF1 0.5 def
/AF2 0.5 def
/XRGA {XRGAI ILK get} def
/XBJA {XBJAI ILK get} def
/XRG$ {XRG$I ILK get} def
/XBJ$ {XBJ$I ILK get} def

/W0 {W 0 get} def
/W1 {W 1 get ILK 1 eq { 10 add} if
             ILK 2 eq { 20 add} if  ILK 3 eq { 30 add} if} def
/W2 {W 2 get ILK 1 eq {-10 add} if
             ILK 2 eq {-20 add} if  ILK 3 eq {-30 add} if} def
/W3 {W 3 get} def
/W4 {W 4 get} def
/W5 {W 5 get} def
/W6 {W 6 get} def
/W7 {W 7 get} def
/W8 {W 8 get} def

%function value for curve U normalized to 1 at 9 wavelengths
%XRGA, XJBA, 570(L), 545(M), 445(S), 570(Y), 557(U), 520(G), 495(N), 470(B)
/YU1 {XRGA W0 sub CX div dup mul CY mul neg} def
/YU2 {XBJA W0 sub CX div dup mul CY mul neg} def
/YUL {W1 W0 sub CX div dup mul CY mul neg} def
/YUM {W2 W0 sub CX div dup mul CY mul neg} def
/YUT {W3 W0 sub CX div dup mul CY mul neg} def
/YUJ {W4 W0 sub CX div dup mul CY mul neg} def
/YUU {W5 W0 sub CX div dup mul CY mul neg} def
/YUM {W6 W0 sub CX div dup mul CY mul neg} def
/YUG {W7 W0 sub CX div dup mul CY mul neg} def
/YUB {W8 W0 sub CX div dup mul CY mul neg} def

%function value for curve P normalized to 1 at 9 wavelengths
%XRGA, XBJA, 570(L), 545(M), 445(S), 570(Y), 557(U), 520(G), 495(N), 470(B)
/YP1 {XRGA W1 sub CX div dup mul CY mul neg} def
/YP2 {XBJA W0 sub CX div dup mul CY mul neg} def
/YPP {W1 W1 sub CX div dup mul CY mul neg} def
/YPD {W2 W1 sub CX div dup mul CY mul neg} def
/YPT {W3 W1 sub CX div dup mul CY mul neg} def
/YPJ {W4 W1 sub CX div dup mul CY mul neg} def
/YPU {W5 W1 sub CX div dup mul CY mul neg} def
/YPM {W6 W1 sub CX div dup mul CY mul neg} def
/YPG {W7 W1 sub CX div dup mul CY mul neg} def
/YPB {W8 W1 sub CX div dup mul CY mul neg} def

%function value for curve D normalized to 1 at 9 wavelengths
%XRGA, XBJA, 570(L), 545(M), 445(S), 570(Y), 557(U), 520(G), 495(N), 470(B)
/YD1 {XRGA W2 sub CX div dup mul CY mul neg} def
/YD2 {XBJA W2 sub CX div dup mul CY mul neg} def
/YDP {W1 W2 sub CX div dup mul CY mul neg} def
/YDD {W2 W2 sub CX div dup mul CY mul neg} def
/YDT {W3 W2 sub CX div dup mul CY mul neg} def
/YDJ {W4 W2 sub CX div dup mul CY mul neg} def
/YDU {W5 W2 sub CX div dup mul CY mul neg} def
/YDM {W6 W2 sub CX div dup mul CY mul neg} def
/YDG {W7 W2 sub CX div dup mul CY mul neg} def
/YDB {W8 W2 sub CX div dup mul CY mul neg} def

%function value for curve T normalized to 1 at 9 wavelengths
%XRGA, XBJA, 570(L), 545(M), 445(S), 570(Y), 557(U), 520(G), 495(N), 470(B)
/YT1 {XRGA W3 sub CX div dup mul CY mul neg} def
/YT2 {XBJA W3 sub CX div dup mul CY mul neg} def
/YTP {W1 W3 sub CX div dup mul CY mul neg} def
/YTD {W2 W3 sub CX div dup mul CY mul neg} def
/YTT {W3 W3 sub CX div dup mul CY mul neg} def
/YTJ {W4 W3 sub CX div dup mul CY mul neg} def
/YTU {W5 W3 sub CX div dup mul CY mul neg} def
/YTM {W6 W3 sub CX div dup mul CY mul neg} def
/YTG {W7 W3 sub CX div dup mul CY mul neg} def
/YTB {W8 W3 sub CX div dup mul CY mul neg} def

0 1 76 {/i exch def %i=0,1,76
        /XEXI i 5 mul 380 add def
        YIXL i XEXI W1 sub CX div dup mul CY mul neg put
        YIXM i XEXI W2 sub CX div dup mul CY mul neg put
        YIXS i XEXI W3 sub CX div dup mul CY mul neg put
%        ILT 1 eq {%ILT=1
%                  /EYIXL 10 YIXL i get exec exp ta add def
%                  YIXL i EYIXL log put
%                  /EYIXM 10 YIXM i get exec exp ta add def
%                  YIXM i EYIXM log put
%                  /EYIXS 10 YIXS i get exec exp ta add def
%                  YIXS i EYIXS log put
%                 } if %ILT=1
} for %i=0,1,76

%ILT 1 eq {%ILT=1
%          /EYU1 10 YU1 exp ta add def
%          /YU1 EYU1 log def
%          /EYP1 10 YP1 exp ta add def
%          /YP1 EYP1 log def
%          /EYD1 10 YD1 exp ta add def
%          /YD1 EYD1 log def
%          /EYT1 10 YT1 exp ta add def
%          /YT1 EYT1 log def
%         } if %ILT=1

/YM5X5 YIXM 19 get YU1 YD1 sub add def
/YS5X5 YIXS 19 get def

0 1 76 {/i exch def %i=0,1,76
/YEXL {YIXL i get} def
/YEXM {YIXM i get} def
/YEXS {YIXS i get} def

        ILT 1 eq {%ILT=1
                  /EYEXL 10 YEXL exp ta add def
                  /YEXL EYEXL log def
                  YIXL i YEXL put
                  /EYEXM 10 YEXM exp ta add def
                  /YEXM EYEXM log def
                  YIXM i YEXM put
                  /EYEXS 10 YEXS exp ta add def
                  /YEXS EYEXS log def
                  YIXS i YEXS put
                 } if %ILT=1

/YEXU {YEXL AF1 mul YEXM AF2 mul add} def
/YEXN {YEXS YEXU add 0.5 mul} def
/YEXJ {YEXN YEXU YEXN sub 0.3333 mul add} def
/YEXB {YEXN YEXS YEXN sub 0.3333 mul add} def

0 1 JPPM {/j exch def %j=0,JPPM
          IKOM 0 eq {/YEXA YEXN def} if
          IKOM 1 eq {/YEXA YEXJ def} if
          IKOM 2 eq {/YEXA YEXB def} if
          IKOM 3 eq {/YEXA YEXN def} if
          ILS 0 eq {%ILS=0
                    j 0 eq {YEXP0 i YEXU put} if
                    j 1 eq {YEXP1 i YEXL put} if
                    j 2 eq {YEXP2 i YEXM put} if
                    j 3 eq {YEXP3 i YEXS put} if
                    j 4 eq {YEXP4 i YEXA put} if
                   } if %ILS=0
          ILS 1 ge {%ILS>=1
                    j 0 eq {YEXP0 i YEXU YEXS sub put} if
                    j 1 eq {YEXP1 i YEXL YEXS sub put} if
                    j 2 eq {YEXP2 i YEXM YEXS sub put} if
                    j 3 eq {YEXP3 i 0.0 put} if
                    j 4 eq {YEXP4 i YEXN YEXA sub put} if
                   } if %ILS>=1

         } for %j=0,JPPM

} for %i=0,1,76

xchart 0 eq xchart 1 eq or xchart 8 eq or xchart 9 eq or {%xchart=0,1,8,9
2050 2600 ILS 1 eq {100 sub} if moveto X7 bshowM
2650 2600 ILS 1 eq {100 sub} if moveto X8 bshowM
3250 2600 ILS 1 eq {100 sub} if moveto X9 bshowM
} if %xchart=0,1,8,9

xchart 2 eq xchart 3 eq or xchart 10 eq or xchart 11 eq or {%xchart=2,3,10,11
1750 2600 ILS 1 eq {100 sub} if moveto X7 bshowM
2350 2600 ILS 1 eq {100 sub} if moveto X8 bshowM
2950 2600 ILS 1 eq {100 sub} if moveto X9 bshowM
} if %xchart=2,3,10,11

xchart 4 eq xchart 5 eq or xchart 12 eq or xchart 13 eq or {%xchart=4,5,12,13
1450 2600 ILS 1 eq {100 sub} if moveto X7 bshowM
2050 2600 ILS 1 eq {100 sub} if moveto X8 bshowM
2650 2600 ILS 1 eq {100 sub} if moveto X9 bshowM
} if %xchart=4,5,12,13

xchart 6 eq xchart 7 eq or xchart 14 eq or xchart 15 eq or {%xchart=6,7,14,15
1150 2600 ILS 1 eq {100 sub} if  moveto X7 bshowM
1750 2600 ILS 1 eq {100 sub} if  moveto X8 bshowM
2350 2600 ILS 1 eq {100 sub} if  moveto X9 bshowM
} if %xchart=6,7,14,15

4700 050 moveto tfw
(l) outSM 30 0 rmoveto (/nm) bshowM
ILU 1 eq {4900 550 moveto (u) bishowM} if

050 3800 moveto
%ILS 1 le {%ILS=0,1
%          tfw TBM (logarithm. ) showde (logarithmic ) showea
%          X0 Xa tfw (, ) bshowM XU Xo TBM} if %ILS=0,1
ILS 0 eq {%ILS=0
          tfw TBM (logarithm. ) showde (logarithmic ) showea
          X0 Xa tfw (, ) bshowM XU Xo TBM
          tfw TBM (\255Daten) showde (\255data) showea
         } if %ILS=0
ILS 1 eq {%ILS=1
          tfw TBM (logarithm. ) showde (logarithmic ) showea
          XU Xo TBM
          tfw TBM (\255S\344ttigung) showde (\255saturation) showea
         } if %ILS=1
ILS 2 eq {%ILS=2
          tfw TBM (Empfindlichkeitsverh\344ltnis) showde
          (Cone sensitivity ratio) showea
         } if %ILS=2

050 3500 moveto X0 Xa
tfw ( = \050 ) bshowM X1 Xo
tfw 0 50 rmoveto 120 /Symbol FS ( \267 ) show 0 -50 rmoveto 
X2 Xo tfw ( \051) bshowM 20 100 rmoveto (0,5) bshowK 0 -100 rmoveto
 
010 3200 moveto
tfw (log) bshowM 50 0 rmoveto X0 Xa
tfw ( = \050) bshowM 30 0 rmoveto (log) bshowM 50 0 rmoveto
X1 Xo 30 0 rmoveto tfw (+ log) bshowM 50 0 rmoveto X2 Xo
tfw (\051/2) bshowM

010 2900 moveto
ILS 0 eq {%ILS=0
          (log [ ) bshowM X0 Xa tfw (, ) bshowM X1 Xo
          tfw (, ) bshowM X2 Xo
          tfw (, ) bshowM XU Xo ( ]) bshowM} if %ILS=0
ILS 1 eq {(log [) bshowM X1 Xo
          tfw (/) bshowM XU Xo tfw (, ) bshowM X2 Xo
          tfw (/) bshowM XU Xo tfw (, ) bshowM X0 Xa
          tfw (/) bshowM XU Xo tfw ( ]) bshowM} if %ILS=1
ILS 2 eq {(0,5 log [) bshowM X1 Xo
          tfw (/) bshowM X2 Xo tfw (, ) bshowM X2 Xo
          tfw (/) bshowM X1 Xo ( ]) bshowM} if %ILS=2

%3350 3800 moveto tfw (u) bishowM 0 -60 rmoveto (l) outSK 0 60 rmoveto 
%( = \050) bshowM (l) outSM ( - 555\051 / 50) bshowM

2900 3800 moveto tfw (log) bshowM 30 0 rmoveto XU Xo 50 0 rmoveto
tfw (= -0,35[) bshowM (u) bishowM
0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM
ILK 0 eq {tf557 (557)} if
ILK 1 eq {(580)} if
ILK 2 eq {(590)} if
ILK 3 eq {(600)} if 
ishowK 
(]) TBM tfw show (2) ebshowM

2900 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xo 50 0 rmoveto
tfw (= -0,35[) bshowM (u) bishowM
0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM
ILK 0 eq {X7} if
ILK 1 eq {(580)} if
ILK 2 eq {(590)} if
ILK 3 eq {(600)} if 
ishowK 
(]) TBM tfw show (2) ebshowM

2900 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xo 50 0 rmoveto
tfw (= -0,35[) bshowM (u) bishowM
0 -60 rmoveto (l) outSK 0 60 rmoveto (-) bshowM (u) bishowM
ILK 0 eq {X9} if
ILK 1 eq {(530)} if
ILK 2 eq {(520)} if
ILK 3 eq {(510)} if
ishowK
(]) TBM tfw show (2) ebshowM

2900 2900 moveto tfw (Adaptation: ) bshowM
tfw (l) outSM X3 X4
tfw (=) bshowM
X8 bshowM

%3100 3500 moveto tfw (log) bshowM 30 0 rmoveto X1 Xa 50 0 rmoveto
%tfw (= log) bshowM 50 0 rmoveto X1 Xo tfw 
%YU1 YP1 sub 0 ge {( + )} {( - )} ifelse bshowM YU1 YP1 sub abs troshow

%3100 3200 moveto tfw (log) bshowM 30 0 rmoveto X2 Xa 50 0 rmoveto
%tfw (= log) bshowM 50 0 rmoveto X2 Xo tfw
%YU1 YD1 sub 0 ge {( + )} {( - )} ifelse bshowM YU1 YD1 sub abs troshow

tfw
550 350 translate
50 setlinewidth
 0 0 moveto  340 12 mul 0 rlineto  stroke
 0 0 moveto 0 ILS 0 eq {2700} {3000} ifelse 0.8 mul rlineto  stroke
 0 ILS 0 eq {2700} {3000} ifelse 0.8 mul moveto 340 12 mul 0 rlineto stroke
 
TBG
/tx [ (400) (500) (600) (700)] def
/tye [(-2) () (-1) () (  0)] def
/tys [(-1) (  ) (  0) (  ) (  1) ] def
/tu [ (    -3,1) (-1,1) (  0,9)  (  2,9)] def
 
%!u-Achse: 100 Einheiten = 1200 Skalen-Einheiten

ILU 1 eq {%ILU=1 
          0 1 3 {/i exch def %i=0,3
                 /ixt {-180 i 1200 mul add} def
                 /ixl {240 i 1200 mul add} def
                 ixt 150 moveto tu i get exec show
                } for %i=0,3
% 550 nm; u=0.0
          /ixt -180 1.55 1200 mul add def
          /ixl  240 1.55 1200 mul add def
          %0.25 0.0 1.0 0.0 setcmykcolor
          tf557
          ixt 150 moveto (   0,0) show
          /ixt  20  1860 add def
          ixt -320 moveto (555) show
          ixl 75 moveto 0 -150 rlineto stroke
         } if %ILU=1
 
%!x-Achse: 100 Einheiten = 1200 Skalen-Einheiten
tfw
0 1 3 {/i exch def
       /ixt { 20 i 1200 mul add} def
       /ixl {240 i 1200 mul add} def
        ixt -320 moveto tx i get exec show
        ixl 75 moveto 0 -150 rlineto stroke } for
 
%!y-Achse: 100 S-Einheiten = 960 = 1200*0.8 Skalen-Einheiten
 
0 1 4 {/i exch def
       /iyt {100 i 0480 mul add} def
       /iyl {240 i 0480 mul add} def
        -500 iyt moveto ILS 0 eq {tye} {tys} ifelse i get exec show
         -75 iyl moveto 150 0 rlineto stroke } for

/yta 0 def
%ILS 0 ne ILT 1 eq and {/yta 650 def} if
ILS 1 eq {/yta 250 def} if
/xts 250 3 1200 mul add def
/yts 700 2 0480 mul add yta add def
xts yts 250 add moveto TBK (Threshold) showea (Schwelle) showde
xts yts  25 add moveto (S) bshowK (a) ishowK (=) bshowK taT bshowK
ILT 1 eq {xts yts 180 sub moveto (log S) bshowK (a) ishowK (=) bshowM lTaT bshowK} if

50 setlinewidth

%Cero point at 550 nm
/X0 {550 380 sub 12 mul} def
X0 0 translate

0 setlinewidth % fuer clip
0.0 0.0 0.0 0.5 setcmykcolor
ILU 1 eq {/Y0C 450 def /Y1C 2000 def} {/Y0C 050 def /Y1C 2400 def} ifelse
X0 neg 100 add Y0C moveto 4650 0 rlineto 0 Y1C rlineto
                         -4650 0 rlineto 0 Y1C neg rlineto clip stroke

0 1 JPPM {/j exch def %j=0,JPPM
          ILS 0 eq {/IORY 2700 0.8 mul def} {/IORY 1500 0.8 mul def} ifelse

0 1 76 {/i exch def %i=0,1,76
        Xi i i 5 mul 380 add put
        j 0 eq {Yi i YEXP0 i get put} if
        j 1 eq {Yi i YEXP1 i get put} if
        j 2 eq {Yi i YEXP2 i get put} if
        j 3 eq {Yi i YEXP3 i get put} if
        j 4 eq {Yi i YEXP4 i get put} if
        j 5 eq {Yi i YEXP5 i get put} if
        j 6 eq {Yi i YEXP6 i get put} if
        j 7 eq {Yi i YEXP7 i get put} if
       } for %i=0,1,76

j 3 le {%j<=3
ILS 0 eq {%ILS=0
          FKUC1 j FKUCI00 j get put
          FKUM1 j FKUMI00 j get put
          FKUY1 j FKUYI00 j get put
          FKUN1 j FKUNI00 j get put
          FKUC2 j FKUCI01 j get put
          FKUM2 j FKUMI01 j get put
          FKUY2 j FKUYI01 j get put
          FKUN2 j FKUNI01 j get put
          IDAI1 j IDAI00 j get put
          IDAI2 j IDAI01 j get put
          KURVA j KURVA1 j get put
         } if %ILS=0
ILS 1 ge {%ILS>=1
          FKUC1 j FKUCI10 j get put
          FKUM1 j FKUMI10 j get put
          FKUY1 j FKUYI10 j get put
          FKUN1 j FKUNI10 j get put
          FKUC2 j FKUCI11 j get put
          FKUM2 j FKUMI11 j get put
          FKUY2 j FKUYI11 j get put
          FKUN2 j FKUNI11 j get put
          IDAI1 j IDAI10 j get put
          IDAI2 j IDAI11 j get put
          KURVA j KURVA2 j get put
         } if %ILS>=1
} if %j<=3

j 4 eq {%j=4
ILS 0 eq {%ILS=0
          FKUC1 4 FKUCI00 4 IKOM add get  put
          FKUM1 4 FKUMI00 4 IKOM add get  put
          FKUY1 4 FKUYI00 4 IKOM add get  put
          FKUN1 4 FKUNI00 4 IKOM add get  put
          FKUC2 4 FKUCI01 4 IKOM add get  put
          FKUM2 4 FKUMI01 4 IKOM add get  put
          FKUY2 4 FKUYI01 4 IKOM add get  put
          FKUN2 4 FKUNI01 4 IKOM add get  put
          IDAI1 4 IDAI00 4 IKOM add get  put
          IDAI2 4 IDAI01 4 IKOM add get  put
          KURVA 4 KURVA1 4 IKOM add get  put
         } if %ILS=0
ILS 1 ge {%ILS>=1
          FKUC1 4 FKUCI10 4 IKOM add get  put
          FKUM1 4 FKUMI10 4 IKOM add get  put
          FKUY1 4 FKUYI10 4 IKOM add get  put
          FKUN1 4 FKUNI10 4 IKOM add get  put
          FKUC2 4 FKUCI11 4 IKOM add get  put
          FKUM2 4 FKUMI11 4 IKOM add get  put
          FKUY2 4 FKUYI11 4 IKOM add get  put
          FKUN2 4 FKUNI11 4 IKOM add get  put
          IDAI1 4 IDAI10 4 IKOM add get  put
          IDAI2 4 IDAI11 4 IKOM add get  put
          KURVA 4 KURVA2 4 IKOM add get  put
         } if %ILS>=1
} if %j=4

/KURVM {KURVA j get} def

KURVM 0 gt {%if KURVM>0 then KURVE

1 1 KURVM {/KURV exch def %KURV=1,KURVM

/IDA1 {IDAI1 j get cvi} def
/IDA2 {IDAI2 j get cvi} def 

KURV 1 eq {[ ] 0 setdash} if
KURV 2 eq j 0 eq and {%KURV=2
           /IDA1 {IDAI1 j get} def
           /IDA2 {IDAI2 j get} def 
          [ IDA1 IDA2] 0 setdash
          } if %KURV=2

%/TKk {100 /Times-ISOL1 FS} bind def
%TKk
%          100 ILS 1600 mul add 2000 200 j mul sub moveto
%          KURVM trushow4 (  ) show
%          j trushow4 (  ) show
%          IDA1 trushow4 (  ) show
%          KURVA j get trushow4 (  ) show
%          FKUC1 j get trushow4 (  ) show
%          FKUM1 j get trushow4 (  ) show
%          FKUY1 j get trushow4 (  ) show
%          FKUN1 j get trushow4 (  ) show
%          IDA2 trushow4 (  ) show
%          KURVA j get trushow4 (  ) show
%          FKUC2 j get trushow4 (  ) show
%          FKUM2 j get trushow4 (  ) show
%          FKUY2 j get trushow4 (  ) show
%          FKUN2 j get trushow4 (  ) show

KURV 1 eq {%KURV=1
           /FKUC {FKUC1 j get} def
           /FKUM {FKUM1 j get} def
           /FKUY {FKUY1 j get} def
           /FKUN {FKUN1 j get} def
          } if %KURV=1
KURV 2 eq {%KURV=2
           /FKUC {FKUC2 j get} def
           /FKUM {FKUM2 j get} def
           /FKUY {FKUY2 j get} def
           /FKUN {FKUN2 j get} def
          } if %KURV=2

%FKUC FKUM FKUY FKUN setcmykcolor
1 FKUC sub 1 FKUM sub 1 FKUY sub setrgbcolor
FKUN 1 eq {0 0 0 setrgbcolor} if
          
50 setlinewidth
/xst {Xi 0       get 550 sub CX div MULX mul} bind def
/yst {IORY Yi 0 get MULY mul add} bind def
xst yst moveto
1 3 71 {/i exch def  %i=0,75 ab 380nm bis 710nm
        %i 0 eq {
                 %100 ILS 300 mul add 1900 200 KURV mul sub moveto (Xi=) show
                 %Xi i get trushow4 ( Yi=) show
                 %Yi i get trushow4
        %         } if
        /xst {Xi i       get 550 sub CX div MULX mul} bind def
        /yst {IORY Yi i get MULY mul add} bind def
        /x20 {Xi i 1 add get 550 sub CX div MULX mul} bind def
        /y20 {IORY Yi i 1 add get MULY mul add} bind def
        /x21 {Xi i 2 add get 550 sub CX div MULX mul} bind def
        /y21 {IORY Yi i 2 add get MULY mul add} bind def
        /x22 {Xi i 3 add get 550 sub CX div MULX mul} bind def
        /y22 {IORY Yi i 3 add get MULY mul add} bind def
        x21 y21 x21 y21 x22 y22 curveto
        } for %i=0,75 ab 380nm bis 710nm
stroke

} for %KURV=1,KURVM

} if %if KURVM>0 then KURVE

} for %j=0,JPPM

X0 neg 0 translate

-550 -400 translate

showpage
grestore

} for %xchart=0,15

%%Trailor