%!PS-Adobe-3.0 EPSF-3.0 MG050-3
%%BoundingBox: 70 83 226 206

%START PDFDE011.EPS
/pdfmark03 where {pop} {userdict /pdfmark03 /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/MG05/)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices, colour vision)
  /Creator (klaus.richter@me.com)
  /CreationDate (D:2012050112000)
  /ModDate (D:2012050112000)
/DOCINFO pdfmark03
[ /View [ /FitB ]
/DOCVIEW pdfmark03
%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

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

/TK {250 16.67 div /Times-ISOL1 FS} bind def
/TM {300 16.67 div /Times-ISOL1 FS} bind def
/TG {350 16.67 div /Times-ISOL1 FS} bind def

/TIK {250 16.67 div /TimesI-ISOL1 FS} bind def
/TIM {300 16.67 div /TimesI-ISOL1 FS} bind def
/TIG {350 16.67 div /TimesI-ISOL1 FS} bind def

/TBS {250 16.67 div /TimesB-ISOL1 FS} bind def
/TBK {250 16.67 div /TimesB-ISOL1 FS} bind def
/TBM {300 16.67 div /TimesB-ISOL1 FS} bind def
/TBG {350 16.67 div /TimesB-ISOL1 FS} bind def

/TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def

/SK {250 16.67 div 1 sub /Symbol FS} bind def
/SM {300 16.67 div 1 sub /Symbol FS} bind def
/SG {350 16.67 div 1 sub /Symbol FS} bind def

/tolvfcol    %Farbkreis-Reihenfolge
[ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF)
  (777) (700) (770) (070) (077) (007) (707) (F07) %15=R
  (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B
  (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G
] def

/tcmyfcol    %Farbkreis-Reihenfolge
[ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000)
  (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R
  (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B
  (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G
] def

/tcmykfcol   %Farbkreis-Reihenfolge
[ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000)
  (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R
  (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B
  (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G
] def

/tolvfcols    %Farbkreis-Reihenfolge
[ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*)
  (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R
  (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B
  (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G
] def

/tcmyfcols    %Farbkreis-Reihenfolge
[ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*)
  (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R
  (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B
  (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G
] def

/tcmykfcols   %Farbkreis-Reihenfolge
[ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*)
  (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R
  (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B
  (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G
] def

/fcolors     %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge
[{0.0 0.0 0.0 1.0}  {0.0 1.0 1.0 0.0}  {0.0 0.0 1.0 0.0}  {1.0 0.0 1.0 0.0}
 {1.0 0.0 0.0 0.0}  {1.0 1.0 0.0 0.0}  {0.0 1.0 0.0 0.0}  {0.0 0.0 0.0 0.0}

 {0.0 0.0 0.0 0.5}  {0.0 1.0 1.0 0.5}  {0.0 0.0 1.0 0.5}  {1.0 0.0 1.0 0.5}
 {1.0 0.0 0.0 0.5}  {1.0 1.0 0.0 0.5}  {0.0 1.0 0.0 0.5}  {0.0 1.0 0.5 0.0}

 {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0}  {0.0 0.0 0.5 0.0}  {0.5 0.0 0.5 0.0}
 {0.5 0.0 0.0 0.0}  {0.5 0.5 0.0 0.0}  {0.0 0.5 0.0 0.0}  {1.0 0.5 0.0 0.0}

 {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0}  {0.5 0.0 1.0 0.0}  {1.0 0.0 0.5 0.0}
 {1.0 0.5 0.0 0.0}  {0.5 1.0 0.0 0.0}  {0.0 1.0 0.5 0.0}  {1.0 0.0 0.5 0.0}
] def

/fak 0.5 def

/Far     %Farbkreis-Reihenfolge
 [ 0  1  2  3  4  5  6  7
   8  9 10 11 12 13 14 15 %R
  16 17 18 19 20 21 22 23 %B
  24 25 26 27 28 29 30 31 %G
 ] def

/cFar     %Kompensativ-Farbkreis-Reihenfolge
 [ 8  4  5  6  1  2  3  0
   0 20 21 22 17 18 19 31 %G
  24 12 13 14  9 10 11  2 %J
  16 28 29 30 25 26 27 15 %R
 ] def

/Btx    %Farbkreis- -> %Btx-Reihenfolge
 [ 0  1  3  2  5  6  4  7
   8  9 11 10 13 14 12 15  %R
  16 17 19 18 21 22 20 23  %B
  24 25 26 27 28 29 30 31  %G
 ] def

/cBtx    %Farbkreis- -> %Kompensativ-Btx-Reihenfolge
 [ 7  4  6  5  2  3  1  0
   8 20 22 21 18 19 17 31 %G
  24 12 14 13 10 11  9  2 %J
  16 25 26 27 28 29 30 15 %R
 ] def

%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

%%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 0 def /lanind2 0 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 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 %

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

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

gsave
%XCHA01.PS END

5 /Times-ISOL1 FS
175 85 moveto (MG050-3) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse
(, B2_49_1) show %    ( B8550_2, M8160-3, B2_49_1, N=2_49_1) show

72 90 translate

/pixf 1.0 def 0.1667 pixf div MM dup scale

     /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F

0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau

lanind 3 eq {
/TK {250 16.67 div /Times-ISOL1 FS} bind def
/TM1 {250 16.67 div /Times-ISOL1 FS} bind def
/TIM1 {250 16.67 div /TimesI-ISOL1 FS} bind def
/TBM1 {250 16.67 div /TimesB-ISOL1 FS} bind def
/TBIM1 {250 16.67 div /TimesBI-ISOL1 FS} bind def
/SM1 {250 16.67 div 1 sub /Symbol FS} bind def
}
{
/TM1 {270 16.67 div /Times-ISOL1 FS} bind def
/TIM1 {270 16.67 div /TimesI-ISOL1 FS} bind def
/TBM1 {270 16.67 div /TimesB-ISOL1 FS} bind def
/TBIM1 {270 16.67 div /TimesBI-ISOL1 FS} bind def
/SM1 {270 16.67 div 1 sub /Symbol FS} bind def
} ifelse

TBM1                                  %Schrift Times-Bold-Gross
0.0 0.0 0.0 0.0  setcmyk_olvcolor          %Schrift Weiss
100 006 moveto
(Wellenl\344nge ) showde                                        %0MG050-3 00361
(wavelength ) showen                                            %1MG050-3 00361
(longitud de onda ) showes                                      %2MG050-3 00361
(longueur d'onde ) showfr                                       %3MG050-3 00361
(lunghezza d'onda ) showit                                      %4MG050-3 00361
(wavelength ) showjp                                            %5MG050-3 00361
SM1 (l) show
TBM1 2 0 rmoveto (/nm) show

003 225 moveto TBIM1 (R) show TBM1 (\050) show SM1 (l) show
TBM1
(\051 Reflexionsfaktor) showde                                  %0MG050-3 01361
(\051 reflection factor) showen                                 %1MG050-3 01361
(\051 factor de reflexi\363n) showes                            %2MG050-3 01361
(\051 facteur de r\351flexion) showfr                           %3MG050-3 01361
(\051 fattore di riflessione) showit                            %4MG050-3 01361
(\051 reflection factor) showjp                                 %5MG050-3 01361

(; optimal colour: ) showen                                     %1MG050-3 01361
(; Optimalfarbe: ) showde                                       %0MG050-3 02361
(; color \363ptimo: ) showes                                    %2MG050-3 02361
(; couleur : ) showfr                                           %3MG050-3 02361
(; colore ottima: ) showit                                      %4MG050-3 02361
(; optimal colour: ) showjp                                     %5MG050-3 02361

280 200 35 35 fcolors 1 get exec colrecfi %Rechteck B
280 200 35 35 fcolors 1 get exec colremfi

tfw
003 205 moveto
xchart 0 eq {%xchart=0,>0
(undefiniertes ) showde                                         %0MG050-3 03361
(undefined ) showen                                             %1MG050-3 03361
(indefinido ) showes                                            %2MG050-3 03361
(rouge optimale non d\351fini ) showfr                          %3MG050-3 03361
(indefinito ) showit                                            %4MG050-3 03361
(undefined ) showjp                                             %5MG050-3 03361
            }%xchart=0
            {%xchart>0
deintp 0 eq {%deintp=0,1
(Ger\344te\255) showde                                          %0MG050-3 04361
(device ) showen                                                %1MG050-3 04361
(dispositivo ) showes                                           %2MG050-3 04361
(rouge optimale p\351riph\351rique ) showfr                     %3MG050-3 04361
(dispositivo ) showit                                           %4MG050-3 04361
(device ) showjp                                                %5MG050-3 04361
            }%deintp=0
            {%deintp=1
(Elementar\255) showde                                          %0MG050-3 05361
(elementary ) showen                                            %1MG050-3 05361
(elemental ) showes                                             %2MG050-3 05361
(rouge optimale \351l\351mentaire ) showfr                      %3MG050-3 05361
(elementare ) showit                                            %4MG050-3 05361
(elementary ) showjp                                            %5MG050-3 05361
            } ifelse %deintp=0,1
            } ifelse %xchart=0,>0

(Rot ) showde                                                   %0MG050-3 06361
(red ) showen                                                   %1MG050-3 06361
(rojo ) showes                                                  %2MG050-3 06361
() showfr                                                       %3MG050-3 06361
(rosso ) showit                                                 %4MG050-3 06361
(red ) showjp                                                   %5MG050-3 06361

TBIM1 (R) show
TBK 0 -2 rmoveto Fxx show 0 2 rmoveto TBM1

/xd 4.0 def  /xd2 8.0 def /ix0 45 def /iy0 45 def

deintp 0 eq {%deintp=0
/yex10 [
 000 000 000 000 000 000 000 000 000 000
 000 000 000 000 000 000 000 000 000 000
 000 000 999 999 999 999 999 999 999 999
 999 999 999 999 999 999 999 999 999 ] def
            }%deintp=0
            {%deintp=1
/yex10 [
 999 999 999 999 999 999 999 999 999 999
 000 000 000 000 000 000 000 000 000 000
 999 999 999 999 999 999 999 999 999 999
 999 999 999 999 999 999 999 999 999 ] def
            }ifelse %deintp=0,1

/yexp 77 array def
0 1 38 {/i exch def  yexp i 2 mul       %Werte 0,2,...,76
        yex10 i get exec put} for
0 1 37 {/i exch def  yexp i 2 mul 1 add %Werte 1,3,...,75
        yex10 i get exec put} for

/solvscols    %Farbkreis-Reihenfolge: 31 Sonder-Farben (=scol)
[ (30F*) (00F*) (03F*) (07F*) (0BF*) (0FF*) (0FB*) (0F7*)
  (0F3*) (0F0*) (3F0*) (7F0*) (BF0*) (FF0*) (FB0*) (F70*)
  (F30*) (F00*) (F03*) (F07*) (F0B*) (F0F*) (B0F*) (70F*) (30F*)] def

/scolors     %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben
[{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0}
 {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0}
 {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0}
 {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0}
 {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0}
 {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0}
 {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0}
 {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0}
 {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0}
 {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0}
 {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0}
 {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0}
 {0.00 0.00 0.00 1.0}] def

/ifa %Verteilung 48 Farben auf 65 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

ix0 iy0  65 xd mul 150 0.0 0.0 0.0 1.0 colrecfi

2 1 66 {/i exch def  %ab 390nm bis 710nm, 65 Well.  2..66 %3=390, delta=1
     /y11 yexp i get exec 0.150 mul def
     /y20 yexp i 1 add get exec 0.150 mul def
     /x10 ix0 i 2 sub xd mul add def %ab 390nm

/k {ifa i 2 sub get exec} def       %max 65 Farben 0..64
scolors k get exec setcmyk_olvcolor
 x10        iy0         moveto
 x10 xd add iy0         lineto
 x10 xd add iy0 y11 add lineto
 x10        iy0 y11 add lineto
 closepath fill
} for %i-Schleife

/tx [ (400) (500) (600) (700)] def
/ty [(0,0) (0,2) (0,4) (0,6) (0,8) (1,0) ] def
/ix0 45 def /iy0 45 def

0.0 0.0 0.0 0.0 setcmyk_olvcolor %W
0 1 3 {/i exch def  %x-Achsen-Beschriftung
ix0 23 sub 5 i 20 mul add xd mul add iy0 21 sub moveto tx i get exec show } for

0 1 5 {/i exch def  %y-Achsen-Beschriftung
ix0 37 sub iy0 07 sub i 30 mul add moveto ty i get exec show } for

ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi
ix0 1 sub iy0 3 sub 2 153 fcolors 7 get exec colrecfi

0 30 150 {/iyd exch def
ix0 4 sub  iy0 1 sub iyd add 8 2 fcolors 07 get exec colrecfi
 } for %Schleife iyd

5 20 65 {/ixd exch def
ix0 9 sub  ixd xd mul add iy0 3 sub 2 8 fcolors 07 get exec colrecfi
 } for %Schleife ixd

deintp 0 eq {%deintp=0,>0
             SM1  185 iy0 28 add moveto (l) show
             TBK 0 -2 rmoveto (1) show 0 2 rmoveto
             TBM1 (=) show
             TBM1 185 iy0 10 add moveto (590) show
            }%deintp=0
            {%deintp>0
             SM1  170 iy0 28 add moveto (l) show
             TBK 0 -2 rmoveto (1) show 0 2 rmoveto
             TBM1 (=) show
             TBM1 170 iy0 10 add moveto (570) show

             SM1  118 iy0 28 add moveto (l) show
             TBK 0 -2 rmoveto (2) show 0 2 rmoveto
             TBM1 (=) show
             TBM1 118 iy0 10 add moveto (470) show

             118 iy0 130 add moveto
(Rot ) showde                                                   %0MG050-3 07361
(Red ) showen                                                   %1MG050-3 07361
(rojo ) showes                                                  %2MG050-3 07361
(rouge ) showfr                                                 %3MG050-3 07361
(rosso ) showit                                                 %4MG050-3 07361
             (red ) showjp                                      %5MG050-3 07361
             TBIM1 (R) show
             TBK 0 -2 rmoveto (o) show Txx show (, m) show
             0 2 rmoveto TBM1 (:) show
             118 iy0 110 add moveto (maximum) show
             118 iy0 090 add moveto (CIELAB ) show
             118 iy0 070 add moveto (chroma ) show TBIM (C*) show
            } ifelse %deintp=0,>0

showpage
grestore

%%Trailer