%!PS-Adobe-3.0 EPSF-3.0 http://130.149.60.445/~farbmetrik/MF49/MF49L00XX.PS 20120401
%%BoundingBox: 00 00 414 292

/pdfmark where {pop} {userdict /pdfmark /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: www.ps.bam.de/MF49/MF49.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2013120112000)
  /ModDate (D:20131201112000)
/DOCINFO pdfmark
[ /View [ /Fit ]
/DOCVIEW pdfmark
/sfgray {setgray} bind def /ypaper 0 def %Early Frame File (f) definition
/sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def
%line20******************************************************
%BEG MF49/OUTLIN10.PS Emty 20120301

%END MF49/OUTLIN10.PS Emty 20120301
                                                                         
%****************************************************
%BEG 'MF49'OUTLIN1X.PS Other procedures for sRGB output linearization
%****************************************************
%BEG COLDATA_SRGB_00.PS
%BEG TRANSFER_EARLY_F.TXT **********************************2012-02-01
%Early definition of FF_LM_setgray_F0 identical to former setgray

/FF_LM_setgray_F0 {setgray} bind def
/FF_LM_setrgbcolor_F0 {setrgbcolor} bind def
/FF_LM_setcmykcolor_F0 {setcmykcolor} bind def
/FF_LM_transfer_F0 {settransfer} bind def
/FF_LM_colortransfer_F0 {setcolortransfer} bind def
%END TRANSFER_EARLY_F.TXT **********************************2012-02-01

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

/setcolortrans_F {%BEG procedure setcolortrans_F
%1MR-Transform of setgray and setcmykcolor to FF_LM_de_setrgbcolor_F
%Three procedures and use of the procedure FF_LM_de_setrgbcolor_F of main FF

/setgray {%BEG procedure setgray_F
          dup dup FF_LM_de_setrgbcolor_F
          %STOPs
         } def %END procedure setgray_F

/setcmykcolor {%BEG procedure setcmykcolor_F
               /FF_LM_k exch def /FF_LM_y exch def
               /FF_LM_m exch def /FF_LM_c exch def
               FF_LM_k 0 eq {%FF_LM_k=0
                             1 FF_LM_c sub 1 FF_LM_m sub
                             1 FF_LM_y sub FF_LM_de_setrgbcolor_F
                            }%FF_LM_k=0
                            {%FF_LM_k#0
                             FF_LM_c 0 eq
                             FF_LM_m 0 eq and
                             FF_LM_y 0 eq and 
                                {%FF_LM_k#0 and c=m=y=0 achromatic
                                 1 FF_LM_k sub dup dup
                                 FF_LM_de_setrgbcolor_F
                                }%FF_LM_k#0 and c=m=y=0 achromatic
                                {%FF_LM_k#0 and c or m or y#0 chromatic
                                 1 FF_LM_c sub 1 FF_LM_k sub mul
                                 1 FF_LM_m sub 1 FF_LM_k sub mul
                                 1 FF_LM_y sub 1 FF_LM_k sub mul
                                 FF_LM_de_setrgbcolor_F
                                } ifelse %FF_LM_k#0 and c or m or y#0 chromatic
                            } ifelse %FF_LM_k#0
              } def %END procedure setcmykcolor_F

/setrgbcolor {%BEG procedure setrgbcolor_F
              /FF_LM_b exch def /FF_LM_g exch def /FF_LM_r exch def
              FF_LM_r FF_LM_g FF_LM_b
              FF_LM_de_setrgbcolor_F
              %STOPr
             } def %BEG procedure setrgbcolor_F

/settransfer {FF_LM_transfer_F} def

/setcolortransfer {FF_LM_colortransfer_F} def

%*******************************************************************
/FF_LM_de_setrgbcolor_F {
%BEG FF_LM_de_setrgbcolor_F

%assumes input of rgb, which is called rgb_dyF
%calculation of intended rgb*dyF, LABCh*dyF
%Lab2RGBinterpolation for colorm=1
%calculation of inverse  rgb'*dyF, LABCh'*dyF, which produces rgb*dyF, LABCh*dyF

%requires /hab*dy362Mi 362 array def  %(y=s,d,e)
%requires /rgb*dy362Mi 362 array def  %(y=s,d,e)
%requires /LAB*dyx362Mi 362 array def %(y=s,d,e, x=LabCh)
 
 /b_dyF exch def
 /g_dyF exch def
 /r_dyF exch def

 %calculation of i_dyF, c_dyF, and t_dyF
 /maxd r_dyF def
 g_dyF maxd gt {/maxd g_dyF def} if
 b_dyF maxd gt {/maxd b_dyF def} if
 /mind r_dyF def
 g_dyF mind lt {/mind g_dyF def} if
 b_dyF mind lt {/mind b_dyF def} if
 /i_dyF maxd def
 /c_dyF maxd mind sub def
 /t_dyF i_dyF c_dyF 0.5 mul sub def

 /hsiF r_dyF 030 sin mul
       g_dyF 150 sin mul add
       b_dyF 270 sin mul add %y_e
       r_dyF 030 cos mul
       g_dyF 150 cos mul add %x_e
       0.0001 add atan 0.5 add cvi def        %range 30 ... 390

  %perhaps change
  %to decide hab*dyF/dsF/deF !
  hsiF hab*ds362Mi 0 get sub 0 le {/hsiF hsiF 360 add def} if
  /hsiFm30 hsiF 30 sub def                    %range 00 ... 360

 %test grey
 r_dyF g_dyF sub abs 0.002 le
 g_dyF b_dyF sub abs 0.002 le and 
 {%grey, not grey
 
  /r*dyM 1 def
  /g*dyM 1 def
  /b*dyM 1 def
  
  /hsiM r*dyM 030 sin mul
        g*dyM 150 sin mul add
        b*dyM 270 sin mul add %y_d
        r*dyM 030 cos mul
        g*dyM 150 cos mul add %x_d
        0.0001 add atan def
  hsiM hab*ds362Mi 0 get sub 0 le {/hsiM hsiM 360 add def} if
  /hsiMm30 hsiM 30 sub def
 
  /LAB*LdyM L*Wioa def
  /LAB*adyM 0 def
  /LAB*bdyM 0 def

  /LAB*LdyF L*Nioa r_dyF L*Wioa L*Nioa sub mul add def
  /LAB*adyF 0 def
  /LAB*bdyF 0 def

  /r*dyF r_dyF def
  /g*dyF g_dyF def
  /b*dyF b_dyF def

  /r'*dyF r_dyF def
  /g'*dyF g_dyF def
  /b'*dyF b_dyF def
 }%grey

 {%color

  hsiFm30 0 lt {/hsiFm30 0 def} if     %for correction to be deleted!
  hsiFm30 360 gt {/hsiFm30 360 def} if

  %calculation of intended rgb*dyM, LAB*LabdyM

  deintp 0 eq {%deintp=0
  /r*dyM r*dd362Mi hsiFm30 get def
  /g*dyM g*dd362Mi hsiFm30 get def
  /b*dyM b*dd362Mi hsiFm30 get def

  /LAB*LdyM LAB*Ldd362Mi hsiFm30 get def
  /LAB*adyM LAB*add362Mi hsiFm30 get def
  /LAB*bdyM LAB*bdd362Mi hsiFm30 get def
  } if %deintp=0

  deintp 1 eq {%deintp=1
  /r*dyM r*de362Mi hsiFm30 get def
  /g*dyM g*de362Mi hsiFm30 get def
  /b*dyM b*de362Mi hsiFm30 get def

  /LAB*LdyM LAB*Lde362Mi hsiFm30 get def
  /LAB*adyM LAB*ade362Mi hsiFm30 get def
  /LAB*bdyM LAB*bde362Mi hsiFm30 get def
  } if %deintp=1

  %calculation of intended rgb*dyF, LAB*LabdyF
  c_dyF 1 eq {%c_dy=1,#1

              /r*dyF r*dyM def
              /g*dyF g*dyM def
              /b*dyF b*dyM def

              /LAB*LdyF LAB*LdyM def
              /LAB*adyF LAB*adyM def
              /LAB*bdyF LAB*bdyM def

            }%c_dyF=1

            {%c_dyF#1
             /t00 1.0 c_dyF 0.5 mul sub def
             /t0x 0.5
                  t_dyF 0.5 sub 0.5 mul t00 0.5 sub div add def
             /r*dyF t0x r*dyM t0x sub c_dyF mul add def
             /g*dyF t0x g*dyM t0x sub c_dyF mul add def
             /b*dyF t0x b*dyM t0x sub c_dyF mul add def

             /L*Xioa L*Nioa t0x L*Wioa L*Nioa sub mul add def
             /LAB*LdyF L*Xioa LAB*LdyM L*Xioa sub c_dyF mul add def
             /LAB*adyF 0      LAB*adyM 0      sub c_dyF mul add def
             /LAB*bdyF 0      LAB*bdyM 0      sub c_dyF mul add def

            } ifelse %c_dyF=1,#1

} ifelse %grey or color

%only for control, not used: calculation of hsiM
  /hsiM r*dyM 030 sin mul
        g*dyM 150 sin mul add
        b*dyM 270 sin mul add %y_d
        r*dyM 030 cos mul
        g*dyM 150 cos mul add %x_d
        0.0001 add atan def
  hsiM hab*ds362Mi 0 get sub 0 le {/hsiM hsiM 360 add def} if
  /hsiMm30 hsiM 30 sub def
  
%only for control, not used: calculation of ict*dyM and ict*dyF
%calculation of i*dyM, c*dyM, and t*dyM
 /maxd r*dyM def
 g*dyM maxd gt {/maxd g*dyM def} if
 b*dyM maxd gt {/maxd b*dyM def} if
 /mind r*dyM def
 g*dyM mind lt {/mind g*dyM def} if
 b*dyM mind lt {/mind b*dyM def} if
 /i*dyM maxd def
 /c*dyM maxd mind sub def
 /t*dyM i*dyM c*dyM 0.5 mul sub def


%%only for control, not used: calculation of i*dyF, c*dyF, and t*dyF
 /maxd r*dyF def
 g*dyF maxd gt {/maxd g*dyF def} if
 b*dyF maxd gt {/maxd b*dyF def} if
 /mind r*dyF def
 g*dyF mind lt {/mind g*dyF def} if
 b*dyF mind lt {/mind b*dyF def} if
 /i*dyF maxd def
 /c*dyF maxd mind sub def
 /t*dyF i*dyF c*dyF 0.5 mul sub def

colorm 0 eq {%colorm=0
             r*dyF g*dyF b*dyF
            }%colorm=0
            {%colorm=1
             LAB*LdyF LAB*adyF LAB*bdyF
             Lab2RGBinterpolation
             /b'*dyF exch def /g'*dyF exch def /r'*dyF exch def
             r'*dyF g'*dyF b'*dyF
            } ifelse %colorm=1

FF_LM_setrgbcolor_F

} bind def %END FF_LM_de_setrgbcolor_F


/FF_LM_xchart_gamma_F {/xchart where {pop /xchartN xchart 8 idiv def
                                         /xchartP xchart
                                         xchart 8 idiv 8 mul sub def}
                                    {/xchartN 2.0 def %default
                                     /xchartP 0.5 def} ifelse
                      /gamma_F 2.4 xchartP 0.18 mul sub 2.4 div
                            1 2.4 xchartN 0.18 mul sub 2.4 div div mul def
                       gamma_F exp
                      } def

/FF_LM_setrgbcolor_F {%FF_LM_setrgbcolor_F
                     /FF_LM_b0L exch def /FF_LM_g0L exch def
                     /FF_LM_r0L exch def
                     FF_LM_r0L 0 le {/FF_LM_r0L 0.0001 def} if
                     FF_LM_g0L 0 le {/FF_LM_g0L 0.0001 def} if
                     FF_LM_b0L 0 le {/FF_LM_b0L 0.0001 def} if
                     /FF_LM_r1F FF_LM_r0L FF_LM_xchart_gamma_F def
                     /FF_LM_g1F FF_LM_g0L FF_LM_xchart_gamma_F def
                     /FF_LM_b1F FF_LM_b0L FF_LM_xchart_gamma_F def
                     FF_LM_r1F FF_LM_g1F FF_LM_b1F
                     FF_LM_setrgbcolor_F0
                    } def %FF_LM_setrgbcolor_F

/FF_LM_transfer_F {{FF_LM_xchart_gamma_F} FF_LM_transfer_F0} def

/FF_LM_colortransfer_F {{FF_LM_xchart_gamma_F} {FF_LM_xchart_gamma_F}
                       {FF_LM_xchart_gamma_F} FF_LM_colortransfer_F0} def

} def %END procedure setcolortrans_F

%*******************************************************************
/Colordata_sRGB_F {%BEG procedure Colordata_sRGB_F

/Xrx089   729 array def
/Yrx089   729 array def
/Zrx089   729 array def
/Xrx100   729 array def
/Yrx100   729 array def
/Zrx100   729 array def
/R0 729 array def
/G0 729 array def
/B0 729 array def

%/RGB0_to_XYZj_F { %BEG procedure RGB0_to_XYZj_F
%transfers standard sRGB data (IEC 61966-2-1) to XYZ data for 9x9x9=729 colours
%normalized XYZ data with Y=88.59 for display white, compare ISO 9241-306:2008.

%requires /(XYZ)rx089   729 array def
%         /(XYZ)rx100   729 array def
%requires in addition /RGB0_F 1080 array def

%/Xrx089   729 array def
%/Yrx089   729 array def
%/Zrx089   729 array def
%/Xrx100   729 array def
%/Yrx100   729 array def
%/Zrx100   729 array def
%/R0 729 array def
%/G0 729 array def
%/B0 729 array def


%row no.1 and 2: 9xrgb
/imax 08 def
/jmax 08 def
/kmax 08 def
0 1 kmax {/k exch def %beg k=0,08
0 1 jmax {/j exch def %beg j=0,jmax
0 1 imax {/i exch def %beg i=0,imax
          /n i j 9 mul add k 81 mul add def
          R0 n k kmax div 1000 mul put
          G0 n j jmax div 1000 mul put
          B0 n i imax div 1000 mul put
         } for %end i=0,jmax
         } for %end j=0,jmax
         } for %end k=0,kmax

/IM0 729 def
/IM1 IM0       1 sub def
0 1 IM1 {/i exch def %i=0,IM1
         R0 i get 0.04045 le           %equations of IEC 61966-2-1:2003
         {/RsRGB R0 i get 12.92 div def}
         {/RsRGB R0 i get 0.001 mul 0.055 add
                    1.055 div 2.4 exp def} ifelse
         G0 i get 0.04045 le
         {/GsRGB G0 i get 12.92 div def}
         {/GsRGB G0 i get 0.001 mul 0.055 add
                    1.055 div 2.4 exp def} ifelse
         B0 i get 0.04045 le
         {/BsRGB B0 i get 12.92 div def}
         {/BsRGB B0 i get 0.001 mul 0.055 add
                    1.055 div 2.4 exp def} ifelse

         Xrx100 i 0.4124 RsRGB mul 
                  0.3576 GsRGB mul add
                  0.1805 BsRGB mul add 100 mul put
         Yrx100 i 0.2126 RsRGB mul
                  0.7152 GsRGB mul add
                  0.0722 BsRGB mul add 100 mul put
         Zrx100 i 0.0193 RsRGB mul
                  0.1192 GsRGB mul add
                  0.9505 BsRGB mul add 100 mul put
        } for %i=0,IM1

0 1 IM1 {/i exch def %i=0,IM1
         Xrx089 i Xrx100 i get 0.8859 mul put
         Yrx089 i Yrx100 i get 0.8859 mul put
         Zrx089 i Zrx100 i get 0.8859 mul put
        } for %i=0,IM1

/iN 0 def
/iW 728 def

/XLN100 Xrx100 iN get def
/YLN100 Yrx100 iN get def
/ZLN100 Zrx100 iN get def

/XLW100 Xrx100 iW get def
/YLW100 Yrx100 iW get def
/ZLW100 Zrx100 iW get def

/XLN089 Xrx089 iN get def
/YLN089 Yrx089 iN get def
/ZLN089 Zrx089 iN get def

/XLW089 Xrx089 iW get def
/YLW089 Yrx089 iW get def
/ZLW089 Zrx089 iW get def

% achromatic (D65) colours
/XLWD65100  95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def

/XLWD65089  95.04 0.8859 mul def
/YLWD65089 100.00 0.8859 mul def
/ZLWD65089 108.88 0.8859 mul def

/XLN001 XLWD65100 100 div def
/YLN001 YLWD65100 100 div def
/ZLN001 ZLWD65100 100 div def

%} bind def %END procedure RGB0_to_XYZj_F

%/xchartj_XYZj_FAB729a_F { %BEG Procedure xchartj_FAB729a_F
%transfer from XYZj data to LAB729a CIELAB data for 9x9x9=729 colours

%requires 0<= xchartj <=10 (11 luminance reflections)
%requires             /(XYZ)x089 3240 array def (x=rc,ra,na,la)
%requires             /(Lab)x089 3240 array def (x=rc,ra,na,la)


%requires             /x729  729 array def (x=X,Y,Z) %not adapted

%requires             /x729  729 array def (x=L,a,b) %not adapted
%requires             /x729a 729 array def (x=L,a,b) %adapted


/Lrc089 729 array def
/arc089 729 array def
/brc089 729 array def
/Xrc089  729 array def
/Yrc089  729 array def
/Zrc089  729 array def

/Lra089 729 array def
/ara089 729 array def
/bra089 729 array def
/Xra089  729 array def
/Yra089  729 array def
/Zra089  729 array def

/Lna089 729 array def
/ana089 729 array def
/bna089 729 array def
/Xna089  729 array def
/Yna089  729 array def
/Zna089  729 array def

/Lla089 729 array def
/ala089 729 array def
/bla089 729 array def
/Xla089  729 array def
/Yla089  729 array def
/Zla089  729 array def

/Xj 729 array def
/Yj 729 array def
/Zj 729 array def

/LAB*Lj 729 array def %not adapted
/LAB*aj 729 array def
/LAB*bj 729 array def

/LAB*Lja 729 array def %adapted
/LAB*aja 729 array def
/LAB*bja 729 array def

/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} bind def

/XD65W  95.04 def /YD65W 100.00 def /ZD65W 108.88 def
/XD50W  96.42 def /YD50W 100.00 def /ZD50W  82.51 def
/DAKTE [(D65) (D50)] def

/ilf 8 array def
/ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def

/Lrefl 11 array def
/Lrefl [(0%) (0%) (0%)
        (0%) (0,6%) (1,2%) (2,5%)
        (5%) (10%) (20%) (40%)] def

xchartj 2 le {/il 0 def}
             {/il xchartj 3 sub def} ifelse

%Reference black and factors
/YrN 2.52 def

/Xtref089 YrN ilf il get mul XLN001 mul def
/Ytref089 YrN ilf il get mul def
/Ztref089 YrN ilf il get mul ZLN001 mul def

/YNil Ytref089 def
/YNil001 YNil 100 div def

YNil001 6 29 div 3 exp ge
{/FYYn YNil001 0.3333 exp def}
{/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse

/L*Nil 116 FYYn mul 16 sub def

/IM1 728 def

0 1 IM1 {/i exch def %i=0,IM1
         Xrc089 i Xrx089 i get put
         Yrc089 i Yrx089 i get put
         Zrc089 i Zrx089 i get put
         /XQ Xrc089 i get XLWD65100 div def
         /YQ Yrc089 i get YLWD65100 div def
         /ZQ Zrc089 i get ZLWD65100 div def
         XQ 0 lt {/XQ 0.00000001 def} if
         YQ 0 lt {/YQ 0.00000001 def} if
         ZQ 0 lt {/ZQ 0.00000001 def} if
         Lrc089 i YQ 0.008856 lt {903.3 YQ mul}
                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
         arc089 i XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                  {XQ 0.33333333 exp} ifelse
                  YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                  {YQ 0.33333333 exp} ifelse sub 500 mul put
         brc089 i YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                  {YQ 0.33333333 exp} ifelse
                  ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                  {ZQ 0.33333333 exp} ifelse sub 200 mul put
       } for %i=0,IM1

/L*N Lrc089 0 get def
/A*N arc089 0 get def
/B*N brc089 0 get def

/L*W Lrc089 728 get def
/A*W arc089 728 get def
/B*W brc089 728 get def

0 1 IM1 {/i exch def %i=0,IM1
        Lra089 i Lrc089 i get put
        /l*CIE Lrc089 i get L*N sub L*W L*N sub div def
                                                       %system rel. lightn.
        /a*s A*W A*N sub l*CIE mul def
        /b*s B*W B*N sub l*CIE mul def
        ara089  i arc089 i get A*N sub a*s sub put
        bra089  i brc089 i get B*N sub b*s sub put
       } for %i=0,IM1

0 1 IM1 {/i exch def %i=0,IM1
       /X* {Lra089  i get 16 add 116 div
            ara089  i get 500 div add} bind def
       /Y* {Lra089  i get 16 add 116 div} bind def
       /Z* {Lra089  i get 16 add 116 div
            bra089  i get 200 div sub} bind def
       Xra089 i X* DecodeXYZ* XLWD65100 mul put
       Yra089 i Y* DecodeXYZ* YLWD65100 mul put
       Zra089 i Z* DecodeXYZ* ZLWD65100 mul put
      } for %i=0,IM1

xchartj 2 ge {%xchartj>=2

%for white X data
/Xwref089 Xra089 728 get def
/Ywref089 Yra089 728 get def
/Zwref089 Zra089 728 get def

%for black X data
/YrN Yra089 0 get def

/Xnref089 YrN XLN001 mul def
/Ynref089 YrN def
/Znref089 YrN ZLN001 mul def

/IM1 728 def
0 1 IM1 {/i exch def %i=1,IM1
         Xna089 i Xra089 i get Xnref089 sub
                  Xwref089 Xwref089 Xnref089 sub div mul put
         Yna089 i Yra089 i get Ynref089 sub
                  Ywref089 Ywref089 Ynref089 sub div mul put
         Zna089 i Zra089 i get Znref089 sub
                  Zwref089 Zwref089 Znref089 sub div mul put
        } for %i=1,IM1

0 1 IM1 {/i exch def %i=1,IM1
       /XQ Xna089 i get XLWD65100 div def
       /YQ Yna089 i get YLWD65100 div def
       /ZQ Zna089 i get ZLWD65100 div def
       XQ 0 lt {/XQ 0.00000001 def} if
       YQ 0 lt {/YQ 0.00000001 def} if
       ZQ 0 lt {/ZQ 0.00000001 def} if
       Lna089 i YQ 0.008856 lt {903.3 YQ mul}
                {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
       ana089 i XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                {XQ 0.33333333 exp} ifelse
                YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                {YQ 0.33333333 exp} ifelse sub 500 mul put
       bna089 i YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                {YQ 0.33333333 exp} ifelse
                ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                {ZQ 0.33333333 exp} ifelse sub 200 mul put
     } for %i=1,IM1

} if %xchart>=2

xchartj 3 ge {%xchart>=3

%for white X data
/Xwref089 Xra089 728 get def
/Ywref089 Yra089 728 get def
/Zwref089 Zra089 728 get def

/kn Ywref089 Ywref089 Ytref089 sub div def

0 1 IM1 {/i exch def %i=1,IM1
         Xla089 i Xna089 i get kn div Xtref089 add put
         Yla089 i Yna089 i get kn div Ytref089 add put
         Zla089 i Zna089 i get kn div Ztref089 add put
        } for %i=1,IM1

0 1 IM1 {/i exch def %i=1,IM1
         /XQ Xla089 i get XLWD65100 div def
         /YQ Yla089 i get YLWD65100 div def
         /ZQ Zla089 i get ZLWD65100 div def
         XQ 0 lt {/XQ 0.00000001 def} if
         YQ 0 lt {/YQ 0.00000001 def} if
         ZQ 0 lt {/ZQ 0.00000001 def} if
         Lla089 i YQ 0.008856 lt {903.3 YQ mul}
                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
         ala089 i XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                  {XQ 0.33333333 exp} ifelse
                  YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                  {YQ 0.33333333 exp} ifelse sub 500 mul put
         bla089 i YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                  {YQ 0.33333333 exp} ifelse
                  ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                  {ZQ 0.33333333 exp} ifelse sub 200 mul put
     } for %i=1,IM1

} if %xchart>=3

xchartj 0 eq {%xchartj=0 (1x)
0 1 IM1 {/i exch def %i=0,IM1
         LAB*Lj i Lrc089 i get put
         LAB*aj i arc089 i get put
         LAB*bj i brc089 i get put
         Xj i Xrc089 i get put
         Yj i Yrc089 i get put
         Zj i Zrc089 i get put
        } for %i=0,IM1
} if %xchartj=0 (1x)

xchartj 1 eq {%xchartj=1 (1x)
0 1 IM1 {/i exch def %i=0,IM1
         LAB*Lj i Lra089 i get put
         LAB*aj i ara089 i get put
         LAB*bj i bra089 i get put
         Xj i Xra089 i get put
         Yj i Yra089 i get put
         Zj i Zra089 i get put
        } for %i=0,IM1
} if %xchartj=1 (1x)

xchartj 2 eq {%xchartj=2 (1x)
0 1 IM1 {/i exch def %i=0,IM1
         LAB*Lj i Lna089 i get put
         LAB*aj i ana089 i get put
         LAB*bj i bna089 i get put
         Xj i Xna089 i get put
         Yj i Yna089 i get put
         Zj i Zna089 i get put
        } for %i=0,IM1
} if %xchartj=2 (1x)

xchartj 3 ge {%xchartj=3,4,5,6,7,8,9,10 (8x)
0 1 728 {/i exch def %i=0,IM1
         LAB*Lj i Lla089 i get put
         LAB*aj i ala089 i get put
         LAB*bj i bla089 i get put
         Xj i Xla089 i get put
         Yj i Yla089 i get put
         Zj i Zla089 i get put
        } for %i=0,IM1
} if %xchartj=3,4,5,6,7,8,9,10 (8x)

%Adaptation
/L*Nio LAB*Lj 000 get def
/A*Nio LAB*aj 000 get def
/B*Nio LAB*bj 000 get def

/L*Wio LAB*Lj 728 get def
/A*Wio LAB*aj 728 get def
/B*Wio LAB*bj 728 get def

/A*Dio A*Wio A*Nio sub def
/B*Dio B*Wio B*Nio sub def

0 1 728 {/j exch def %j=0,728
         LAB*Lja j LAB*Lj j get put
         /l*CIE LAB*Lj j get L*Nio sub L*Wio L*Nio sub div def
                                                      %system rel. lightn.
         /a*s A*Wio A*Nio sub l*CIE mul def
         /b*s B*Wio B*Nio sub l*CIE mul def
         LAB*aja j LAB*aj j get A*Nio sub a*s sub put
         LAB*bja j LAB*bj j get B*Nio sub b*s sub put
        } for %j=0,728

/L*Nioa LAB*Lja 0 get def
/A*Nioa LAB*aja 0 get def
/B*Nioa LAB*bja 0 get def

/L*Wioa LAB*Lja 728 get def
/A*Wioa LAB*aja 728 get def
/B*Wioa LAB*bja 728 get def

/nR 9 def  %lut size
/nG 9 def
/nB 9 def
/nges nR nG nB mul mul def

/lut 2187 array def %729x3=2187 (only 9x9x9 used)
0 1 728 {/i exch def %i=0,728
         /i3 i 3 mul def
         lut i3       LAB*Lja i get put
         lut i3 1 add LAB*aja i get put
         lut i3 2 add LAB*bja i get put
         } for %i=0,729

%} bind def %END xchartj_XYZj_FAB729a_F

} bind def %END procedure Colordata_sRGB_F

%*****************************************************************************
%BEG Procedure PROC_SPEC_IOF Colour special for NP-file 20120401
%*****************************************************************************
%different procedures:
% proc_LAB729a_to_LAB*LabCh64M and proc_LAB*LabCh64M_to_tab362_dy

%***********************************************************
/proc_LAB729a_to_LAB*LabCh64M {
%BEG Procedure proc_LAB729a_to_LAB*LabCh64M
%transfer from proc_LAB729a_to_LAB*LabCh64M, %9x9x9=729 steps used for LAB729a

%requires             /LAB*LabCh64M  64 array def
%requires in addition /LAB729a 729 array def

/LAB*Ldd64M 64 array def
/LAB*add64M 64 array def
/LAB*bdd64M 64 array def
/LAB*Cdd64M 64 array def
/LAB*hdd64M 64 array def
/hab*dd64M  64 array def
/M1jx 49 array def

0 1 5 {/xtonj exch def %xtonj=0,5
0 1 7 {/j exch def %j=0,7
       /ja xtonj 8 mul j add def
       xtonj 0 eq {/jx 648 j 09 mul add def} if %see O00Y-O83Y, -0
       xtonj 1 eq {/jx 720 j 81 mul sub def} if %see Y00L-Y83L, -81
       xtonj 2 eq {/jx 072 j        add def} if %see L00C-L83C, +01
       xtonj 3 eq {/jx 080 j 09 mul sub def} if %see C00V-C83V, -09
       xtonj 4 eq {/jx 008 j 81 mul add def} if %see V00M-V83M, -81
       xtonj 5 eq {/jx 656 j        sub def} if %see M00O-M83O, +01
       
       LAB*Ldd64M ja LAB*Lja jx get put
       LAB*add64M ja LAB*aja jx get put
       LAB*bdd64M ja LAB*bja jx get put
       LAB*Cdd64M ja LAB*add64M ja get dup mul
                     LAB*bdd64M ja get dup mul add sqrt put
       LAB*hdd64M ja LAB*bdd64M ja get
                     LAB*add64M ja get 0.0001 add atan put
       xtonj 5 eq    LAB*hdd64M ja get 90 le and
       {LAB*hdd64M ja LAB*hdd64M ja get 360 add put} if
       M1jx ja jx put
      } for %j=0,7
      } for %xtonj=0,5

M1jx 48 M1jx 0 get put

0 1 15 {/i exch def %i=0,15
        LAB*Ldd64M 48 i add LAB*Ldd64M i get put
        LAB*add64M 48 i add LAB*add64M i get put
        LAB*bdd64M 48 i add LAB*bdd64M i get put
        LAB*Cdd64M 48 i add LAB*Cdd64M i get put
        LAB*hdd64M 48 i add LAB*hdd64M i get 360 add put
       } for %i=1,15

0 1 63 {/i exch def %i=0,63
        hab*dd64M i LAB*hdd64M i get put
       } for %i=0,63

%data test according to increasing hue angle and appropriate correction
/xtesthuea -1 def
/xtesthuei 64 array def
0 1 48 {/i exch def %i=0,49
        hab*dd64M i get 
        hab*dd64M i 1 add get gt {/xtesthuea xtesthuea 1 add def
                                  xtesthuei xtesthuea i put 
                                  hab*dd64M  i 1 add hab*dd64M  i get put
                                  LAB*Ldd64M i 1 add LAB*Ldd64M i get put
                                  LAB*add64M i 1 add LAB*add64M i get put
                                  LAB*bdd64M i 1 add LAB*bdd64M i get put
                                  LAB*Cdd64M i 1 add LAB*Cdd64M i get put
                                  LAB*hdd64M i 1 add LAB*hdd64M i get put
                                 } if
       } for %i=0,49

} bind def %END proc_LAB729a_to_LAB*LabCh64M

%***********************************************************
/proc_LAB*LabCh64M_to_tab362_dy {
%BEG procedure proc_LAB*LabCh64M_to_tab362_dy
/LAB*e 40 array def %8x5=40 LabCh*
/LAB*e [39.92  58.74  27.99 0.0 0.0 %0 00_04 R CIE No.09 elementary in LAB
        81.26  -2.89  71.56 0.0 0.0 %1 05_09 J CIE No.10
        52.23 -42.42  13.60 0.0 0.0 %2 10_14 G CIE No.11
         0.0    0.0    0.0  0.0 0.0 %3 15_19 Cgb to be calculated
        30.57   1.41 -46.47 0.0 0.0 %4 20_24 B CIE No.12
         0.0    0.0    0.0  0.0 0.0 %5 25_29 Mbr to be calculated
        39.92  58.74  27.99 0.0 0.0 %6 30_34 Re+360 to be calculated
        81.26  -2.89  71.56 0.0 0.0 %7 35_39 Ye+360 to be calculated
      ] def

%add no. 03_04 Re
               LAB*e 03 LAB*e 01 get dup mul
                        LAB*e 02 get dup mul add sqrt put
               LAB*e 04 LAB*e 02 get LAB*e 01 get 0.0001 add atan put
%add no. 08_09 Ye
               LAB*e 08 LAB*e 06 get dup mul
                        LAB*e 07 get dup mul add sqrt put
               LAB*e 09 LAB*e 07 get LAB*e 06 get 0.0001 add atan put
%add no. 13_14 Ge
               LAB*e 13 LAB*e 11 get dup mul
                        LAB*e 12 get dup mul add sqrt put
               LAB*e 14 LAB*e 12 get LAB*e 11 get 0.0001 add atan put
%add no. 23_24 Be
               LAB*e 23 LAB*e 21 get dup mul
                        LAB*e 22 get dup mul add sqrt put
               LAB*e 24 LAB*e 22 get LAB*e 21 get 0.0001 add atan put
%add no. 33_34 Re+360
               LAB*e 33 LAB*e 31 get dup mul
                        LAB*e 32 get dup mul add sqrt put
               LAB*e 34 LAB*e 32 get LAB*e 31 get 0.0001 add atan 
               360 add put
%add no. 38_39 Ye+360
               LAB*e 38 LAB*e 36 get dup mul
                        LAB*e 37 get dup mul add sqrt put
               LAB*e 39 LAB*e 37 get LAB*e 36 get 0.0001 add atan
               360 add put
%new no. 15_19 Cgb with Ge_Be
               LAB*e 19 LAB*e 14 get LAB*e 24 get add 0.5 mul put %hab
               LAB*e 18 LAB*e 13 get LAB*e 23 get add 0.5 mul put %C*ab
               LAB*e 15 LAB*e 10 get LAB*e 20 get add 0.5 mul put %L*
               LAB*e 16 LAB*e 18 get LAB*e 19 get cos mul put     %a*
               LAB*e 17 LAB*e 18 get LAB*e 19 get sin mul put     %b*
%new no. 25_29 Mbr with Be_Re+360
               LAB*e 29 LAB*e 24 get LAB*e 34 get add 0.5 mul put %hab
               LAB*e 28 LAB*e 23 get LAB*e 33 get add 0.5 mul put %C*ab
               LAB*e 25 LAB*e 20 get LAB*e 00 get add 0.5 mul put %L*
               LAB*e 26 LAB*e 28 get LAB*e 29 get cos mul put     %a*
               LAB*e 27 LAB*e 28 get LAB*e 29 get sin mul put     %b*

/LAB*He     8 array def
0 1 7 {/i exch def %i=0,7
       LAB*He i LAB*e i 5 mul 4 add get put
      } for %i=0,7

/hab*de64M 50 array def
0 1 47 {/i exch def %i=0,47
        /i8 i 8 idiv def
        /i8d i i8 8 mul sub def
        /dLAB*He LAB*He i8 1 add get LAB*He i8 get sub 8 div def
        hab*de64M i  LAB*He i8 get dLAB*He i8d mul add put
       } for %i=0,47
hab*de64M 48 hab*de64M 0 get 360 add put
hab*de64M 49 hab*de64M 1 get 360 add put

/LAB*Hs     8 array def
/LAB*Hs [30. 90. 150. 210. 270. 330. 390. 450.] def
/hab*ds64M 50 array def
0 1 47 {/i exch def %i=0,47
        /i8 i 8 idiv def
        /i8d i i8 8 mul sub def
        /dLAB*Hs LAB*Hs i8 1 add get LAB*Hs i8 get sub 8 div def
        hab*ds64M i  LAB*Hs i8 get dLAB*Hs i8d mul add put
       } for %i=0,47
hab*ds64M 48 hab*ds64M 0 get 360 add put
hab*ds64M 49 hab*ds64M 1 get 360 add put

%***************** calculation of LAB*LabChd362Mi and rgb*dd362Mi
%***************** for 362 elementary hue angles
/LAB*Ldd362Mi 362 array def
/LAB*add362Mi 362 array def
/LAB*bdd362Mi 362 array def
/LAB*Cdd362Mi 362 array def
/LAB*hdd362Mi 362 array def

/r*dd362Mi 362 array def
/g*dd362Mi 362 array def
/b*dd362Mi 362 array def

%******default rgb-input data for output of device colours
/r*dd64M 64 array def
/r*dd64M [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R
          1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %G
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %C
          0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %B
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %M
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R
          1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J
         ] def
/g*dd64M 64 array def
/g*dd64M [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %G
          1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %C
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %B
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %M
          0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J
         ] def
/b*dd64M 64 array def
/b*dd64M [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J
          0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %G
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %C
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %B
          1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %M
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J
         ] def

%calculate all data of 16+1=17 step elementary colour circle

/ind64M 17 array def
/ind64M 
%R00Y R25Y R50Y R75Y Y00G Y25G Y50G Y75G
[0    2    4    6    8    10   12   14
%G00B G25B G50B G75G B00R B25R B50R B75R R00Y
 16   20   24   28   32   36   40   44   0
] def

%actual 16 step device circle + N + W
/r*dd18M 18 array def
/g*dd18M 18 array def
/b*dd18M 18 array def

0 1 15 {/i exch def %i=0,15
        /indi ind64M i get def
        r*dd18M i r*dd64M indi get put %16 device colours
        g*dd18M i g*dd64M indi get put
        b*dd18M i b*dd64M indi get put
       } for %i=0,15

r*dd18M 16 0 put %N
g*dd18M 16 0 put
b*dd18M 16 0 put

r*dd18M 17 1 put %W
g*dd18M 17 1 put
b*dd18M 17 1 put

%actual 6 step device circle + N + W
/r*dd08M 08 array def
/g*dd08M 08 array def
/b*dd08M 08 array def

0 1 5 {/i exch def %i=0,5
        r*dd08M i r*dd64M i 8 mul get put %6 device colours
        g*dd08M i g*dd64M i 8 mul get put
        b*dd08M i b*dd64M i 8 mul get put
       } for %i=0,5

r*dd08M 6 0 put %N
g*dd08M 6 0 put
b*dd08M 6 0 put
r*dd08M 7 1 put %W
g*dd08M 7 1 put
b*dd08M 7 1 put

0 1 361 {/i exch def %i=0,361     %default only for test
         r*dd362Mi i 0 put        %of irregularities
         g*dd362Mi i 0 put
         b*dd362Mi i 0 put
         LAB*Ldd362Mi i 0.0001 put
         LAB*add362Mi i 0 put
         LAB*bdd362Mi i 0 put
         LAB*Cdd362Mi i 0 put
         LAB*hdd362Mi i 0 put
        } for %i=0,361

% s-data 030,0 -> LAB*hdd64M 0 get -> LAB*Ldd362Mi 30,0 put: LAB*hdd362Mi=40
% s-data 037,5 -> LAB*hdd64M 1 get -> LAB*Ldd362Mi 37,5 put: LAB*hdd362Mi=41,3
% s-data 045,0 -> LAB*hdd64M 2 get -> LAB*Ldd362Mi 45,0 put: LAB*hdd362Mi=44,6
% s-data 052,5 -> LAB*hdd64M 3 get -> LAB*Ldd362Mi 52,5 put: LAB*hdd362Mi=50,7
%...
% s-data 090,0 -> LAB*hdd64M 8 get -> LAB*Ldd362Mi 90,0 put: LAB*hdd362Mi=102,8

% s-data 330,0 -> LAB*hdd64M 41 get -> LAB*Ldd362Mi 330,0 put: LAB*hdd362Mi=328
% s-data 337,5 -> LAB*hdd64M 42 get -> LAB*Ldd362Mi 337,5 put: LAB*hdd362Mi=334
% s-data 345,0 -> LAB*hdd64M 43 get -> LAB*Ldd362Mi 345,0 put: LAB*hdd362Mi=341
% s-data 352,5 -> LAB*hdd64M 44 get -> LAB*Ldd362Mi 352,5 put: LAB*hdd362Mi=351
% s-data 360,0 -> LAB*hdd64M 45 get -> LAB*Ldd362Mi 360,0 put: LAB*hdd362Mi=352
%...
% s-data 390,0 -> LAB*hdd64M 49 get -> LAB*Ldd362Mi 390,0 put: LAB*hdd362Mi=400

0 15 345 {/i exch def %i=0,15,345
          /ix00 i 15 idiv 2 mul def
          /ix01 ix00 1 add def
          /ix02 ix00 2 add def
          0 1 14 {/j exch def %j=0,14
                  j 07 le {%j<=7
                           /XIE j 7.5 div def
                           /i0 i j add def
                           /ix0 ix00 def
                           /ix1 ix01 def
                          }%j<=7
                          {%j>7
                           /XIE j 8 sub 0.5 add 7.5 div def
                           /i0 i j add def
                           /ix0 ix01 def
                           /ix1 ix02 def
                          } ifelse %j>7
                  LAB*Ldd362Mi i0 LAB*Ldd64M ix0 get
                                  LAB*Ldd64M ix1 get LAB*Ldd64M ix0 get sub
                                  XIE mul add put
                  LAB*Cdd362Mi i0 LAB*Cdd64M ix0 get
                                  LAB*Cdd64M ix1 get LAB*Cdd64M ix0 get sub
                                  XIE mul add put
                  LAB*hdd362Mi i0 LAB*hdd64M ix0 get
                                  LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub
                                  XIE mul add
                                  dup 90 gt i0 45 le and {360 sub} if
                                  put
                  LAB*add362Mi i0 LAB*Cdd362Mi i0 get LAB*hdd362Mi i0 get
                                  cos mul put
                  LAB*bdd362Mi i0 LAB*Cdd362Mi i0 get LAB*hdd362Mi i0 get
                                  sin mul put
                  r*dd362Mi i0 r*dd64M ix0 get
                               r*dd64M ix1 get r*dd64M ix0 get sub
                               XIE mul add put
                  g*dd362Mi i0 g*dd64M ix0 get
                               g*dd64M ix1 get g*dd64M ix0 get sub
                               XIE mul add put
                  b*dd362Mi i0 b*dd64M ix0 get
                               b*dd64M ix1 get b*dd64M ix0 get sub
                               XIE mul add put

                 } for %j=0,14

         } for %i0=0,15,345

0 1 1 {/i exch def %i=0,1
       LAB*Ldd362Mi 360 i add LAB*Ldd362Mi i get put
       LAB*add362Mi 360 i add LAB*add362Mi i get put
       LAB*bdd362Mi 360 i add LAB*bdd362Mi i get put
       LAB*Cdd362Mi 360 i add LAB*Cdd362Mi i get put
       LAB*hdd362Mi 360 i add LAB*hdd362Mi i get 360 add put
       r*dd362Mi 360 i add r*dd362Mi i get put
       g*dd362Mi 360 i add g*dd362Mi i get put
       b*dd362Mi 360 i add b*dd362Mi i get put
       } for %i=0,1

/hab*dd362Fi 362 array def
0 1 361 {/i exch def %i=0,361
         hab*dd362Fi i LAB*hdd362Mi i get put %floating point F
        } for %i=0,361

%***************** calculation of hab*ds362Mi %integer
%***************** for 362 standard hue angles
/hab*ds362Mi 362 array def
0 1 361 {/i exch def %i=0,361 %range 30..391
         hab*ds362Mi i 30 i add put %always integer
        } for %i=0,361

%***************** calculation of LAB*LabChs362Mi and rgb*ds362Mi
%***************** for 362 device hue angles
/LAB*Lds362Mi 362 array def
/LAB*ads362Mi 362 array def
/LAB*bds362Mi 362 array def
/LAB*Cds362Mi 362 array def
/LAB*hds362Mi 362 array def

/r*ds362Mi 362 array def
/g*ds362Mi 362 array def
/b*ds362Mi 362 array def

0 1 361 {/i exch def %i=0,361     %default only for test
         r*ds362Mi i 0 put        %of irregularities
         g*ds362Mi i 0 put
         b*ds362Mi i 0 put
         LAB*Lds362Mi i 0.0001 put
         LAB*ads362Mi i 0 put
         LAB*bds362Mi i 0 put
         LAB*Cds362Mi i 0 put
         LAB*hds362Mi i 0 put
        } for %i=0,361

0 1 359 {/i0 exch def %i=0,359
         /i0i hab*ds362Mi i0 get def              %integer range 30...390
          i0i hab*dd362Fi 0 get lt {/i0i i0i 360 add def} if
          0 1 47 {/ix0 exch def %ix0=0,48
                  /ix1 ix0 1 add def
                  i0i LAB*hdd64M ix0 get sub 0 ge
                  i0i LAB*hdd64M ix1 get sub 0 lt and {%ge..lt
                  
                  /XIE i0i LAB*hdd64M ix0 get sub
                       LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub div def
                  LAB*Lds362Mi i0 LAB*Ldd64M ix0 get
                                  LAB*Ldd64M ix1 get LAB*Ldd64M ix0 get sub
                                  XIE mul add put
                  LAB*Cds362Mi i0 LAB*Cdd64M ix0 get
                                  LAB*Cdd64M ix1 get LAB*Cdd64M ix0 get sub
                                  XIE mul add put
                  LAB*hds362Mi i0 LAB*hdd64M ix0 get
                                  LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub
                                  XIE mul add
                                  dup 90 gt i0 45 le and {360 sub} if
                                  put
                  LAB*ads362Mi i0 LAB*Cds362Mi i0 get LAB*hds362Mi i0 get
                                  cos mul put
                  LAB*bds362Mi i0 LAB*Cds362Mi i0 get LAB*hds362Mi i0 get
                                  sin mul put
                  r*ds362Mi i0 r*dd64M ix0 get
                               r*dd64M ix1 get r*dd64M ix0 get sub
                               XIE mul add put
                  g*ds362Mi i0 g*dd64M ix0 get
                               g*dd64M ix1 get g*dd64M ix0 get sub
                               XIE mul add put
                  b*ds362Mi i0 b*dd64M ix0 get
                               b*dd64M ix1 get b*dd64M ix0 get sub
                               XIE mul add put
                  exit
                                               } if %ge..lt
                 } for %ix0=0,47
} for %i=0,359

0 1 1 {/i exch def %i=0,1
       LAB*Lds362Mi 360 i add LAB*Lds362Mi i get put
       LAB*ads362Mi 360 i add LAB*ads362Mi i get put
       LAB*bds362Mi 360 i add LAB*bds362Mi i get put
       LAB*Cds362Mi 360 i add LAB*Cds362Mi i get put
       LAB*hds362Mi 360 i add LAB*hds362Mi i get 360 add put
       r*ds362Mi 360 i add r*ds362Mi i get put
       g*ds362Mi 360 i add g*ds362Mi i get put
       b*ds362Mi 360 i add b*ds362Mi i get put
       } for %i=0,1

%***************** calculation of hab*de362Fi
%***************** for 362 elementary hue angles
/hab*de362Fi 362 array def %floating point %range 26..386

30 1 389 {/i exch def %i=30,389
          /im30 i 30 sub def
          /hab*sM i def

%alphas = [habs - LAB*Hs(h)]/[LAB*Hs(n+1) - LAB*Hs(n)]
%       = [habs - LAB*Hs(h)]/60
%habe   = LAB*He(n) + alphas [LAB*He(n+1) - LAB*He(n)]
%use of LAB*He 0..7 Re_to_Ye

i 030 ge i 089 le and {/ipan0 0 def /ipan1 1 def} if
i 090 ge i 149 le and {/ipan0 1 def /ipan1 2 def} if
i 150 ge i 209 le and {/ipan0 2 def /ipan1 3 def} if
i 210 ge i 269 le and {/ipan0 3 def /ipan1 4 def} if
i 270 ge i 329 le and {/ipan0 4 def /ipan1 5 def} if
i 330 ge i 359 le and {/ipan0 5 def /ipan1 6 def} if
i 360 ge i 389 le and {/ipan0 6 def /ipan1 7 def} if

/alphas {hab*sM LAB*Hs ipan0 get sub 60 div} bind def

/habe {LAB*He ipan0 get
       LAB*He ipan1 get LAB*He ipan0 get sub alphas mul
       add} bind def

hab*de362Fi im30 habe put %floating point
          } for %i=30,389

hab*de362Fi 360 hab*de362Fi 0 get 360 add put
hab*de362Fi 361 hab*de362Fi 1 get 360 add put

%***************** calculation LAB*LabChe32Mi and rgb*de362Mi
%***************** for 362 elementary hue angles
/LAB*Lde362Mi 362 array def
/LAB*ade362Mi 362 array def
/LAB*bde362Mi 362 array def
/LAB*Cde362Mi 362 array def
/LAB*hde362Mi 362 array def

/r*de362Mi 362 array def
/g*de362Mi 362 array def
/b*de362Mi 362 array def

0 1 361 {/i exch def %i=0,361     %default only for test
         r*de362Mi i 0 put        %of irregularities
         g*de362Mi i 0 put
         b*de362Mi i 0 put
         LAB*Lde362Mi i 0.0001 put
         LAB*ade362Mi i 0 put
         LAB*bde362Mi i 0 put
         LAB*Cde362Mi i 0 put
         LAB*hde362Mi i 0 put
        } for %i=0,361

0 1 359 {/i0 exch def %i=0,359
         /i0i hab*de362Fi i0 get def              %range 26...386
          i0i hab*dd362Fi 0 get lt {/i0i i0i 360 add def} if
          0 1 47 {/ix0 exch def %ix0=0,48
                  /ix1 ix0 1 add def
                  i0i LAB*hdd64M ix0 get sub 0 ge
                  i0i LAB*hdd64M ix1 get sub 0 lt and {%ge..lt
                  
                  /XIE i0i LAB*hdd64M ix0 get sub
                       LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub div def
                  LAB*Lde362Mi i0 LAB*Ldd64M ix0 get
                                  LAB*Ldd64M ix1 get LAB*Ldd64M ix0 get sub
                                  XIE mul add put
                  LAB*Cde362Mi i0 LAB*Cdd64M ix0 get
                                  LAB*Cdd64M ix1 get LAB*Cdd64M ix0 get sub
                                  XIE mul add put
                  LAB*hde362Mi i0 LAB*hdd64M ix0 get
                                  LAB*hdd64M ix1 get LAB*hdd64M ix0 get sub
                                  XIE mul add
                                  dup 90 gt i0 45 le and {360 sub} if
                                  put
                  LAB*ade362Mi i0 LAB*Cde362Mi i0 get LAB*hde362Mi i0 get
                                  cos mul put
                  LAB*bde362Mi i0 LAB*Cde362Mi i0 get LAB*hde362Mi i0 get
                                  sin mul put
                  r*de362Mi i0 r*dd64M ix0 get
                               r*dd64M ix1 get r*dd64M ix0 get sub
                               XIE mul add put
                  g*de362Mi i0 g*dd64M ix0 get
                               g*dd64M ix1 get g*dd64M ix0 get sub
                               XIE mul add put
                  b*de362Mi i0 b*dd64M ix0 get
                               b*dd64M ix1 get b*dd64M ix0 get sub
                               XIE mul add put
                  exit
                                               } if %ge..lt
                 } for %ix0=0,47
} for %i=0,359

0 1 1 {/i exch def %i=0,1
       LAB*Lde362Mi 360 i add LAB*Lde362Mi i get put
       LAB*ade362Mi 360 i add LAB*ade362Mi i get put
       LAB*bde362Mi 360 i add LAB*bde362Mi i get put
       LAB*Cde362Mi 360 i add LAB*Cde362Mi i get put
       LAB*hde362Mi 360 i add LAB*hde362Mi i get 360 add put
       r*de362Mi 360 i add r*de362Mi i get put
       g*de362Mi 360 i add g*de362Mi i get put
       b*de362Mi 360 i add b*de362Mi i get put
       } for %i=0,1


%special LAB* data calculation of 17 step colour circle
%needs LAB*LabCh64M, hab*dd64M

/ind64M 17 array def
/ind64M 
%R00Y R25Y R50Y R75Y Y00G Y25G Y50G Y75G
[0    2    4    6    8    10   12   14
%G00B G25B G50B G75G B00R B25R B50R B75R R00Y
 16   20   24   28   32   36   40   44   0
] def

/LAB*Ldd18M 17 array def
/LAB*add18M 17 array def
/LAB*bdd18M 17 array def
/LAB*Cdd18M 17 array def
/LAB*hdd18M 17 array def
/hab*dd18M  17 array def

0 1 16 {/i exch def %i=0,16
        /indi ind64M i get def
        LAB*Ldd18M i LAB*Ldd64M indi get put
        LAB*add18M i LAB*add64M indi get put
        LAB*bdd18M i LAB*bdd64M indi get put
        LAB*Cdd18M i LAB*Cdd64M indi get put
        LAB*hdd18M i LAB*hdd64M indi get put
        hab*dd18M  i hab*dd64M  indi get put
       } for %i=0,16

} bind def %END proc_LAB*LabCh64M_to_tab362_dy
%*****************************************************************************
%END Procedure PROC_SPEC_IOF Colour special for NP-file 20120401
%*****************************************************************************

/FileDaten (sRGB standard device; no separation, D65) def
/FileDatde (sRGB Norm\255Ger\344t; keine Separation, D65) def

/RGB0_F 3240 array def %1080*3

/RGB0_F
[%1000 x rgb*    nr.  pos  1080 colours
 0000 0000 0000 %0000 A01
 0000 0000 0125 %0001 A02
 0000 0000 0250 %0002 A03
 0000 0000 0375 %0003 A04
 0000 0000 0500 %0004 A05
 0000 0000 0625 %0005 A06
 0000 0000 0750 %0006 A07
 0000 0000 0875 %0007 A08
 0000 0000 1000 %0008 A09
 0000 0125 0000 %0009 B01
 0000 0125 0125 %0010 B02
 0000 0125 0250 %0011 B03
 0000 0125 0375 %0012 B04
 0000 0125 0500 %0013 B05
 0000 0125 0625 %0014 B06
 0000 0125 0750 %0015 B07
 0000 0125 0875 %0016 B08
 0000 0125 1000 %0017 B09
 0000 0250 0000 %0018 C01
 0000 0250 0125 %0019 C02
 0000 0250 0250 %0020 C03
 0000 0250 0375 %0021 C04
 0000 0250 0500 %0022 C05
 0000 0250 0625 %0023 C06
 0000 0250 0750 %0024 C07
 0000 0250 0875 %0025 C08
 0000 0250 1000 %0026 C09
 0000 0375 0000 %0027 D01
 0000 0375 0125 %0028 D02
 0000 0375 0250 %0029 D03
 0000 0375 0375 %0030 D04
 0000 0375 0500 %0031 D05
 0000 0375 0625 %0032 D06
 0000 0375 0750 %0033 D07
 0000 0375 0875 %0034 D08
 0000 0375 1000 %0035 D09
 0000 0500 0000 %0036 E01
 0000 0500 0125 %0037 E02
 0000 0500 0250 %0038 E03
 0000 0500 0375 %0039 E04
 0000 0500 0500 %0040 E05
 0000 0500 0625 %0041 E06
 0000 0500 0750 %0042 E07
 0000 0500 0875 %0043 E08
 0000 0500 1000 %0044 E09
 0000 0625 0000 %0045 F01
 0000 0625 0125 %0046 F02
 0000 0625 0250 %0047 F03
 0000 0625 0375 %0048 F04
 0000 0625 0500 %0049 F05
 0000 0625 0625 %0050 F06
 0000 0625 0750 %0051 F07
 0000 0625 0875 %0052 F08
 0000 0625 1000 %0053 F09
 0000 0750 0000 %0054 G01
 0000 0750 0125 %0055 G02
 0000 0750 0250 %0056 G03
 0000 0750 0375 %0057 G04
 0000 0750 0500 %0058 G05
 0000 0750 0625 %0059 G06
 0000 0750 0750 %0060 G07
 0000 0750 0875 %0061 G08
 0000 0750 1000 %0062 G09
 0000 0875 0000 %0063 H01
 0000 0875 0125 %0064 H02
 0000 0875 0250 %0065 H03
 0000 0875 0375 %0066 H04
 0000 0875 0500 %0067 H05
 0000 0875 0625 %0068 H06
 0000 0875 0750 %0069 H07
 0000 0875 0875 %0070 H08
 0000 0875 1000 %0071 H09
 0000 1000 0000 %0072 I01
 0000 1000 0125 %0073 I02
 0000 1000 0250 %0074 I03
 0000 1000 0375 %0075 I04
 0000 1000 0500 %0076 I05
 0000 1000 0625 %0077 I06
 0000 1000 0750 %0078 I07
 0000 1000 0875 %0079 I08
 0000 1000 1000 %0080 I09
 0125 0000 0000 %0081 J01
 0125 0000 0125 %0082 J02
 0125 0000 0250 %0083 J03
 0125 0000 0375 %0084 J04
 0125 0000 0500 %0085 J05
 0125 0000 0625 %0086 J06
 0125 0000 0750 %0087 J07
 0125 0000 0875 %0088 J08
 0125 0000 1000 %0089 J09
 0125 0125 0000 %0090 K01
 0125 0125 0125 %0091 K02
 0125 0125 0250 %0092 K03
 0125 0125 0375 %0093 K04
 0125 0125 0500 %0094 K05
 0125 0125 0625 %0095 K06
 0125 0125 0750 %0096 K07
 0125 0125 0875 %0097 K08
 0125 0125 1000 %0098 K09
 0125 0250 0000 %0099 L01
 0125 0250 0125 %0100 L02
 0125 0250 0250 %0101 L03
 0125 0250 0375 %0102 L04
 0125 0250 0500 %0103 L05
 0125 0250 0625 %0104 L06
 0125 0250 0750 %0105 L07
 0125 0250 0875 %0106 L08
 0125 0250 1000 %0107 L09
 0125 0375 0000 %0108 M01
 0125 0375 0125 %0109 M02
 0125 0375 0250 %0110 M03
 0125 0375 0375 %0111 M04
 0125 0375 0500 %0112 M05
 0125 0375 0625 %0113 M06
 0125 0375 0750 %0114 M07
 0125 0375 0875 %0115 M08
 0125 0375 1000 %0116 M09
 0125 0500 0000 %0117 N01
 0125 0500 0125 %0118 N02
 0125 0500 0250 %0119 N03
 0125 0500 0375 %0120 N04
 0125 0500 0500 %0121 N05
 0125 0500 0625 %0122 N06
 0125 0500 0750 %0123 N07
 0125 0500 0875 %0124 N08
 0125 0500 1000 %0125 N09
 0125 0625 0000 %0126 O01
 0125 0625 0125 %0127 O02
 0125 0625 0250 %0128 O03
 0125 0625 0375 %0129 O04
 0125 0625 0500 %0130 O05
 0125 0625 0625 %0131 O06
 0125 0625 0750 %0132 O07
 0125 0625 0875 %0133 O08
 0125 0625 1000 %0134 O09
 0125 0750 0000 %0135 P01
 0125 0750 0125 %0136 P02
 0125 0750 0250 %0137 P03
 0125 0750 0375 %0138 P04
 0125 0750 0500 %0139 P05
 0125 0750 0625 %0140 P06
 0125 0750 0750 %0141 P07
 0125 0750 0875 %0142 P08
 0125 0750 1000 %0143 P09
 0125 0875 0000 %0144 Q01
 0125 0875 0125 %0145 Q02
 0125 0875 0250 %0146 Q03
 0125 0875 0375 %0147 Q04
 0125 0875 0500 %0148 Q05
 0125 0875 0625 %0149 Q06
 0125 0875 0750 %0150 Q07
 0125 0875 0875 %0151 Q08
 0125 0875 1000 %0152 Q09
 0125 1000 0000 %0153 R01
 0125 1000 0125 %0154 R02
 0125 1000 0250 %0155 R03
 0125 1000 0375 %0156 R04
 0125 1000 0500 %0157 R05
 0125 1000 0625 %0158 R06
 0125 1000 0750 %0159 R07
 0125 1000 0875 %0160 R08
 0125 1000 1000 %0161 R09
 0250 0000 0000 %0162 S01
 0250 0000 0125 %0163 S02
 0250 0000 0250 %0164 S03
 0250 0000 0375 %0165 S04
 0250 0000 0500 %0166 S05
 0250 0000 0625 %0167 S06
 0250 0000 0750 %0168 S07
 0250 0000 0875 %0169 S08
 0250 0000 1000 %0170 S09
 0250 0125 0000 %0171 T01
 0250 0125 0125 %0172 T02
 0250 0125 0250 %0173 T03
 0250 0125 0375 %0174 T04
 0250 0125 0500 %0175 T05
 0250 0125 0625 %0176 T06
 0250 0125 0750 %0177 T07
 0250 0125 0875 %0178 T08
 0250 0125 1000 %0179 T09
 0250 0250 0000 %0180 U01
 0250 0250 0125 %0181 U02
 0250 0250 0250 %0182 U03
 0250 0250 0375 %0183 U04
 0250 0250 0500 %0184 U05
 0250 0250 0625 %0185 U06
 0250 0250 0750 %0186 U07
 0250 0250 0875 %0187 U08
 0250 0250 1000 %0188 U09
 0250 0375 0000 %0189 V01
 0250 0375 0125 %0190 V02
 0250 0375 0250 %0191 V03
 0250 0375 0375 %0192 V04
 0250 0375 0500 %0193 V05
 0250 0375 0625 %0194 V06
 0250 0375 0750 %0195 V07
 0250 0375 0875 %0196 V08
 0250 0375 1000 %0197 V09
 0250 0500 0000 %0198 W01
 0250 0500 0125 %0199 W02
 0250 0500 0250 %0200 W03
 0250 0500 0375 %0201 W04
 0250 0500 0500 %0202 W05
 0250 0500 0625 %0203 W06
 0250 0500 0750 %0204 W07
 0250 0500 0875 %0205 W08
 0250 0500 1000 %0206 W09
 0250 0625 0000 %0207 X01
 0250 0625 0125 %0208 X02
 0250 0625 0250 %0209 X03
 0250 0625 0375 %0210 X04
 0250 0625 0500 %0211 X05
 0250 0625 0625 %0212 X06
 0250 0625 0750 %0213 X07
 0250 0625 0875 %0214 X08
 0250 0625 1000 %0215 X09
 0250 0750 0000 %0216 Y01
 0250 0750 0125 %0217 Y02
 0250 0750 0250 %0218 Y03
 0250 0750 0375 %0219 Y04
 0250 0750 0500 %0220 Y05
 0250 0750 0625 %0221 Y06
 0250 0750 0750 %0222 Y07
 0250 0750 0875 %0223 Y08
 0250 0750 1000 %0224 Y09
 0250 0875 0000 %0225 Z01
 0250 0875 0125 %0226 Z02
 0250 0875 0250 %0227 Z03
 0250 0875 0375 %0228 Z04
 0250 0875 0500 %0229 Z05
 0250 0875 0625 %0230 Z06
 0250 0875 0750 %0231 Z07
 0250 0875 0875 %0232 Z08
 0250 0875 1000 %0233 Z09
 0250 1000 0000 %0234 a01
 0250 1000 0125 %0235 a02
 0250 1000 0250 %0236 a03
 0250 1000 0375 %0237 a04
 0250 1000 0500 %0238 a05
 0250 1000 0625 %0239 a06
 0250 1000 0750 %0240 a07
 0250 1000 0875 %0241 a08
 0250 1000 1000 %0242 a09
 0375 0000 0000 %0243 A10
 0375 0000 0125 %0244 A11
 0375 0000 0250 %0245 A12
 0375 0000 0375 %0246 A13
 0375 0000 0500 %0247 A14
 0375 0000 0625 %0248 A15
 0375 0000 0750 %0249 A16
 0375 0000 0875 %0250 A17
 0375 0000 1000 %0251 A18
 0375 0125 0000 %0252 B10
 0375 0125 0125 %0253 B11
 0375 0125 0250 %0254 B12
 0375 0125 0375 %0255 B13
 0375 0125 0500 %0256 B14
 0375 0125 0625 %0257 B15
 0375 0125 0750 %0258 B16
 0375 0125 0875 %0259 B17
 0375 0125 1000 %0260 B18
 0375 0250 0000 %0261 C10
 0375 0250 0125 %0262 C11
 0375 0250 0250 %0263 C12
 0375 0250 0375 %0264 C13
 0375 0250 0500 %0265 C14
 0375 0250 0625 %0266 C15
 0375 0250 0750 %0267 C16
 0375 0250 0875 %0268 C17
 0375 0250 1000 %0269 C18
 0375 0375 0000 %0270 D10
 0375 0375 0125 %0271 D11
 0375 0375 0250 %0272 D12
 0375 0375 0375 %0273 D13
 0375 0375 0500 %0274 D14
 0375 0375 0625 %0275 D15
 0375 0375 0750 %0276 D16
 0375 0375 0875 %0277 D17
 0375 0375 1000 %0278 D18
 0375 0500 0000 %0279 E10
 0375 0500 0125 %0280 E11
 0375 0500 0250 %0281 E12
 0375 0500 0375 %0282 E13
 0375 0500 0500 %0283 E14
 0375 0500 0625 %0284 E15
 0375 0500 0750 %0285 E16
 0375 0500 0875 %0286 E17
 0375 0500 1000 %0287 E18
 0375 0625 0000 %0288 F10
 0375 0625 0125 %0289 F11
 0375 0625 0250 %0290 F12
 0375 0625 0375 %0291 F13
 0375 0625 0500 %0292 F14
 0375 0625 0625 %0293 F15
 0375 0625 0750 %0294 F16
 0375 0625 0875 %0295 F17
 0375 0625 1000 %0296 F18
 0375 0750 0000 %0297 G10
 0375 0750 0125 %0298 G11
 0375 0750 0250 %0299 G12
 0375 0750 0375 %0300 G13
 0375 0750 0500 %0301 G14
 0375 0750 0625 %0302 G15
 0375 0750 0750 %0303 G16
 0375 0750 0875 %0304 G17
 0375 0750 1000 %0305 G18
 0375 0875 0000 %0306 H10
 0375 0875 0125 %0307 H11
 0375 0875 0250 %0308 H12
 0375 0875 0375 %0309 H13
 0375 0875 0500 %0310 H14
 0375 0875 0625 %0311 H15
 0375 0875 0750 %0312 H16
 0375 0875 0875 %0313 H17
 0375 0875 1000 %0314 H18
 0375 1000 0000 %0315 I10
 0375 1000 0125 %0316 I11
 0375 1000 0250 %0317 I12
 0375 1000 0375 %0318 I13
 0375 1000 0500 %0319 I14
 0375 1000 0625 %0320 I15
 0375 1000 0750 %0321 I16
 0375 1000 0875 %0322 I17
 0375 1000 1000 %0323 I18
 0500 0000 0000 %0324 J10
 0500 0000 0125 %0325 J11
 0500 0000 0250 %0326 J12
 0500 0000 0375 %0327 J13
 0500 0000 0500 %0328 J14
 0500 0000 0625 %0329 J15
 0500 0000 0750 %0330 J16
 0500 0000 0875 %0331 J17
 0500 0000 1000 %0332 J18
 0500 0125 0000 %0333 K10
 0500 0125 0125 %0334 K11
 0500 0125 0250 %0335 K12
 0500 0125 0375 %0336 K13
 0500 0125 0500 %0337 K14
 0500 0125 0625 %0338 K15
 0500 0125 0750 %0339 K16
 0500 0125 0875 %0340 K17
 0500 0125 1000 %0341 K18
 0500 0250 0000 %0342 L10
 0500 0250 0125 %0343 L11
 0500 0250 0250 %0344 L12
 0500 0250 0375 %0345 L13
 0500 0250 0500 %0346 L14
 0500 0250 0625 %0347 L15
 0500 0250 0750 %0348 L16
 0500 0250 0875 %0349 L17
 0500 0250 1000 %0350 L18
 0500 0375 0000 %0351 M10
 0500 0375 0125 %0352 M11
 0500 0375 0250 %0353 M12
 0500 0375 0375 %0354 M13
 0500 0375 0500 %0355 M14
 0500 0375 0625 %0356 M15
 0500 0375 0750 %0357 M16
 0500 0375 0875 %0358 M17
 0500 0375 1000 %0359 M18
 0500 0500 0000 %0360 N10
 0500 0500 0125 %0361 N11
 0500 0500 0250 %0362 N12
 0500 0500 0375 %0363 N13
 0500 0500 0500 %0364 N14
 0500 0500 0625 %0365 N15
 0500 0500 0750 %0366 N16
 0500 0500 0875 %0367 N17
 0500 0500 1000 %0368 N18
 0500 0625 0000 %0369 O10
 0500 0625 0125 %0370 O11
 0500 0625 0250 %0371 O12
 0500 0625 0375 %0372 O13
 0500 0625 0500 %0373 O14
 0500 0625 0625 %0374 O15
 0500 0625 0750 %0375 O16
 0500 0625 0875 %0376 O17
 0500 0625 1000 %0377 O18
 0500 0750 0000 %0378 P10
 0500 0750 0125 %0379 P11
 0500 0750 0250 %0380 P12
 0500 0750 0375 %0381 P13
 0500 0750 0500 %0382 P14
 0500 0750 0625 %0383 P15
 0500 0750 0750 %0384 P16
 0500 0750 0875 %0385 P17
 0500 0750 1000 %0386 P18
 0500 0875 0000 %0387 Q10
 0500 0875 0125 %0388 Q11
 0500 0875 0250 %0389 Q12
 0500 0875 0375 %0390 Q13
 0500 0875 0500 %0391 Q14
 0500 0875 0625 %0392 Q15
 0500 0875 0750 %0393 Q16
 0500 0875 0875 %0394 Q17
 0500 0875 1000 %0395 Q18
 0500 1000 0000 %0396 R10
 0500 1000 0125 %0397 R11
 0500 1000 0250 %0398 R12
 0500 1000 0375 %0399 R13
 0500 1000 0500 %0400 R14
 0500 1000 0625 %0401 R15
 0500 1000 0750 %0402 R16
 0500 1000 0875 %0403 R17
 0500 1000 1000 %0404 R18
 0625 0000 0000 %0405 S10
 0625 0000 0125 %0406 S11
 0625 0000 0250 %0407 S12
 0625 0000 0375 %0408 S13
 0625 0000 0500 %0409 S14
 0625 0000 0625 %0410 S15
 0625 0000 0750 %0411 S16
 0625 0000 0875 %0412 S17
 0625 0000 1000 %0413 S18
 0625 0125 0000 %0414 T10
 0625 0125 0125 %0415 T11
 0625 0125 0250 %0416 T12
 0625 0125 0375 %0417 T13
 0625 0125 0500 %0418 T14
 0625 0125 0625 %0419 T15
 0625 0125 0750 %0420 T16
 0625 0125 0875 %0421 T17
 0625 0125 1000 %0422 T18
 0625 0250 0000 %0423 U10
 0625 0250 0125 %0424 U11
 0625 0250 0250 %0425 U12
 0625 0250 0375 %0426 U13
 0625 0250 0500 %0427 U14
 0625 0250 0625 %0428 U15
 0625 0250 0750 %0429 U16
 0625 0250 0875 %0430 U17
 0625 0250 1000 %0431 U18
 0625 0375 0000 %0432 V10
 0625 0375 0125 %0433 V11
 0625 0375 0250 %0434 V12
 0625 0375 0375 %0435 V13
 0625 0375 0500 %0436 V14
 0625 0375 0625 %0437 V15
 0625 0375 0750 %0438 V16
 0625 0375 0875 %0439 V17
 0625 0375 1000 %0440 V18
 0625 0500 0000 %0441 W10
 0625 0500 0125 %0442 W11
 0625 0500 0250 %0443 W12
 0625 0500 0375 %0444 W13
 0625 0500 0500 %0445 W14
 0625 0500 0625 %0446 W15
 0625 0500 0750 %0447 W16
 0625 0500 0875 %0448 W17
 0625 0500 1000 %0449 W18
 0625 0625 0000 %0450 X10
 0625 0625 0125 %0451 X11
 0625 0625 0250 %0452 X12
 0625 0625 0375 %0453 X13
 0625 0625 0500 %0454 X14
 0625 0625 0625 %0455 X15
 0625 0625 0750 %0456 X16
 0625 0625 0875 %0457 X17
 0625 0625 1000 %0458 X18
 0625 0750 0000 %0459 Y10
 0625 0750 0125 %0460 Y11
 0625 0750 0250 %0461 Y12
 0625 0750 0375 %0462 Y13
 0625 0750 0500 %0463 Y14
 0625 0750 0625 %0464 Y15
 0625 0750 0750 %0465 Y16
 0625 0750 0875 %0466 Y17
 0625 0750 1000 %0467 Y18
 0625 0875 0000 %0468 Z10
 0625 0875 0125 %0469 Z11
 0625 0875 0250 %0470 Z12
 0625 0875 0375 %0471 Z13
 0625 0875 0500 %0472 Z14
 0625 0875 0625 %0473 Z15
 0625 0875 0750 %0474 Z16
 0625 0875 0875 %0475 Z17
 0625 0875 1000 %0476 Z18
 0625 1000 0000 %0477 a10
 0625 1000 0125 %0478 a11
 0625 1000 0250 %0479 a12
 0625 1000 0375 %0480 a13
 0625 1000 0500 %0481 a14
 0625 1000 0625 %0482 a15
 0625 1000 0750 %0483 a16
 0625 1000 0875 %0484 a17
 0625 1000 1000 %0485 a18
 0750 0000 0000 %0486 A19
 0750 0000 0125 %0487 A20
 0750 0000 0250 %0488 A21
 0750 0000 0375 %0489 A22
 0750 0000 0500 %0490 A23
 0750 0000 0625 %0491 A24
 0750 0000 0750 %0492 A25
 0750 0000 0875 %0493 A26
 0750 0000 1000 %0494 A27
 0750 0125 0000 %0495 B19
 0750 0125 0125 %0496 B20
 0750 0125 0250 %0497 B21
 0750 0125 0375 %0498 B22
 0750 0125 0500 %0499 B23
 0750 0125 0625 %0500 B24
 0750 0125 0750 %0501 B25
 0750 0125 0875 %0502 B26
 0750 0125 1000 %0503 B27
 0750 0250 0000 %0504 C19
 0750 0250 0125 %0505 C20
 0750 0250 0250 %0506 C21
 0750 0250 0375 %0507 C22
 0750 0250 0500 %0508 C23
 0750 0250 0625 %0509 C24
 0750 0250 0750 %0510 C25
 0750 0250 0875 %0511 C26
 0750 0250 1000 %0512 C27
 0750 0375 0000 %0513 D19
 0750 0375 0125 %0514 D20
 0750 0375 0250 %0515 D21
 0750 0375 0375 %0516 D22
 0750 0375 0500 %0517 D23
 0750 0375 0625 %0518 D24
 0750 0375 0750 %0519 D25
 0750 0375 0875 %0520 D26
 0750 0375 1000 %0521 D27
 0750 0500 0000 %0522 E19
 0750 0500 0125 %0523 E20
 0750 0500 0250 %0524 E21
 0750 0500 0375 %0525 E22
 0750 0500 0500 %0526 E23
 0750 0500 0625 %0527 E24
 0750 0500 0750 %0528 E25
 0750 0500 0875 %0529 E26
 0750 0500 1000 %0530 E27
 0750 0625 0000 %0531 F19
 0750 0625 0125 %0532 F20
 0750 0625 0250 %0533 F21
 0750 0625 0375 %0534 F22
 0750 0625 0500 %0535 F23
 0750 0625 0625 %0536 F24
 0750 0625 0750 %0537 F25
 0750 0625 0875 %0538 F26
 0750 0625 1000 %0539 F27
 0750 0750 0000 %0540 G19
 0750 0750 0125 %0541 G20
 0750 0750 0250 %0542 G21
 0750 0750 0375 %0543 G22
 0750 0750 0500 %0544 G23
 0750 0750 0625 %0545 G24
 0750 0750 0750 %0546 G25
 0750 0750 0875 %0547 G26
 0750 0750 1000 %0548 G27
 0750 0875 0000 %0549 H19
 0750 0875 0125 %0550 H20
 0750 0875 0250 %0551 H21
 0750 0875 0375 %0552 H22
 0750 0875 0500 %0553 H23
 0750 0875 0625 %0554 H24
 0750 0875 0750 %0555 H25
 0750 0875 0875 %0556 H26
 0750 0875 1000 %0557 H27
 0750 1000 0000 %0558 I19
 0750 1000 0125 %0559 I20
 0750 1000 0250 %0560 I21
 0750 1000 0375 %0561 I22
 0750 1000 0500 %0562 I23
 0750 1000 0625 %0563 I24
 0750 1000 0750 %0564 I25
 0750 1000 0875 %0565 I26
 0750 1000 1000 %0566 I27
 0875 0000 0000 %0567 J19
 0875 0000 0125 %0568 J20
 0875 0000 0250 %0569 J21
 0875 0000 0375 %0570 J22
 0875 0000 0500 %0571 J23
 0875 0000 0625 %0572 J24
 0875 0000 0750 %0573 J25
 0875 0000 0875 %0574 J26
 0875 0000 1000 %0575 J27
 0875 0125 0000 %0576 K19
 0875 0125 0125 %0577 K20
 0875 0125 0250 %0578 K21
 0875 0125 0375 %0579 K22
 0875 0125 0500 %0580 K23
 0875 0125 0625 %0581 K24
 0875 0125 0750 %0582 K25
 0875 0125 0875 %0583 K26
 0875 0125 1000 %0584 K27
 0875 0250 0000 %0585 L19
 0875 0250 0125 %0586 L20
 0875 0250 0250 %0587 L21
 0875 0250 0375 %0588 L22
 0875 0250 0500 %0589 L23
 0875 0250 0625 %0590 L24
 0875 0250 0750 %0591 L25
 0875 0250 0875 %0592 L26
 0875 0250 1000 %0593 L27
 0875 0375 0000 %0594 M19
 0875 0375 0125 %0595 M20
 0875 0375 0250 %0596 M21
 0875 0375 0375 %0597 M22
 0875 0375 0500 %0598 M23
 0875 0375 0625 %0599 M24
 0875 0375 0750 %0600 M25
 0875 0375 0875 %0601 M26
 0875 0375 1000 %0602 M27
 0875 0500 0000 %0603 N19
 0875 0500 0125 %0604 N20
 0875 0500 0250 %0605 N21
 0875 0500 0375 %0606 N22
 0875 0500 0500 %0607 N23
 0875 0500 0625 %0608 N24
 0875 0500 0750 %0609 N25
 0875 0500 0875 %0610 N26
 0875 0500 1000 %0611 N27
 0875 0625 0000 %0612 O19
 0875 0625 0125 %0613 O20
 0875 0625 0250 %0614 O21
 0875 0625 0375 %0615 O22
 0875 0625 0500 %0616 O23
 0875 0625 0625 %0617 O24
 0875 0625 0750 %0618 O25
 0875 0625 0875 %0619 O26
 0875 0625 1000 %0620 O27
 0875 0750 0000 %0621 P19
 0875 0750 0125 %0622 P20
 0875 0750 0250 %0623 P21
 0875 0750 0375 %0624 P22
 0875 0750 0500 %0625 P23
 0875 0750 0625 %0626 P24
 0875 0750 0750 %0627 P25
 0875 0750 0875 %0628 P26
 0875 0750 1000 %0629 P27
 0875 0875 0000 %0630 Q19
 0875 0875 0125 %0631 Q20
 0875 0875 0250 %0632 Q21
 0875 0875 0375 %0633 Q22
 0875 0875 0500 %0634 Q23
 0875 0875 0625 %0635 Q24
 0875 0875 0750 %0636 Q25
 0875 0875 0875 %0637 Q26
 0875 0875 1000 %0638 Q27
 0875 1000 0000 %0639 R19
 0875 1000 0125 %0640 R20
 0875 1000 0250 %0641 R21
 0875 1000 0375 %0642 R22
 0875 1000 0500 %0643 R23
 0875 1000 0625 %0644 R24
 0875 1000 0750 %0645 R25
 0875 1000 0875 %0646 R26
 0875 1000 1000 %0647 R27
 1000 0000 0000 %0648 S19
 1000 0000 0125 %0649 S20
 1000 0000 0250 %0650 S21
 1000 0000 0375 %0651 S22
 1000 0000 0500 %0652 S23
 1000 0000 0625 %0653 S24
 1000 0000 0750 %0654 S25
 1000 0000 0875 %0655 S26
 1000 0000 1000 %0656 S27
 1000 0125 0000 %0657 T19
 1000 0125 0125 %0658 T20
 1000 0125 0250 %0659 T21
 1000 0125 0375 %0660 T22
 1000 0125 0500 %0661 T23
 1000 0125 0625 %0662 T24
 1000 0125 0750 %0663 T25
 1000 0125 0875 %0664 T26
 1000 0125 1000 %0665 T27
 1000 0250 0000 %0666 U19
 1000 0250 0125 %0667 U20
 1000 0250 0250 %0668 U21
 1000 0250 0375 %0669 U22
 1000 0250 0500 %0670 U23
 1000 0250 0625 %0671 U24
 1000 0250 0750 %0672 U25
 1000 0250 0875 %0673 U26
 1000 0250 1000 %0674 U27
 1000 0375 0000 %0675 V19
 1000 0375 0125 %0676 V20
 1000 0375 0250 %0677 V21
 1000 0375 0375 %0678 V22
 1000 0375 0500 %0679 V23
 1000 0375 0625 %0680 V24
 1000 0375 0750 %0681 V25
 1000 0375 0875 %0682 V26
 1000 0375 1000 %0683 V27
 1000 0500 0000 %0684 W19
 1000 0500 0125 %0685 W20
 1000 0500 0250 %0686 W21
 1000 0500 0375 %0687 W22
 1000 0500 0500 %0688 W23
 1000 0500 0625 %0689 W24
 1000 0500 0750 %0690 W25
 1000 0500 0875 %0691 W26
 1000 0500 1000 %0692 W27
 1000 0625 0000 %0693 X19
 1000 0625 0125 %0694 X20
 1000 0625 0250 %0695 X21
 1000 0625 0375 %0696 X22
 1000 0625 0500 %0697 X23
 1000 0625 0625 %0698 X24
 1000 0625 0750 %0699 X25
 1000 0625 0875 %0700 X26
 1000 0625 1000 %0701 X27
 1000 0750 0000 %0702 Y19
 1000 0750 0125 %0703 Y20
 1000 0750 0250 %0704 Y21
 1000 0750 0375 %0705 Y22
 1000 0750 0500 %0706 Y23
 1000 0750 0625 %0707 Y24
 1000 0750 0750 %0708 Y25
 1000 0750 0875 %0709 Y26
 1000 0750 1000 %0710 Y27
 1000 0875 0000 %0711 Z19
 1000 0875 0125 %0712 Z20
 1000 0875 0250 %0713 Z21
 1000 0875 0375 %0714 Z22
 1000 0875 0500 %0715 Z23
 1000 0875 0625 %0716 Z24
 1000 0875 0750 %0717 Z25
 1000 0875 0875 %0718 Z26
 1000 0875 1000 %0719 Z27
 1000 1000 0000 %0720 a19
 1000 1000 0125 %0721 a20
 1000 1000 0250 %0722 a21
 1000 1000 0375 %0723 a22
 1000 1000 0500 %0724 a23
 1000 1000 0625 %0725 a24
 1000 1000 0750 %0726 a25
 1000 1000 0875 %0727 a26
 1000 1000 1000 %0728 a27
 1000 1000 1000 %0729 b01
 0875 1000 1000 %0730 b02
 0750 1000 1000 %0731 b03
 0625 1000 1000 %0732 b04
 0500 1000 1000 %0733 b05
 0375 1000 1000 %0734 b06
 0250 1000 1000 %0735 b07
 0125 1000 1000 %0736 b08
 0000 1000 1000 %0737 b09
 1000 0875 0875 %0738 c01
 0875 0875 0875 %0739 c02
 0750 0875 0875 %0740 c03
 0625 0875 0875 %0741 c04
 0500 0875 0875 %0742 c05
 0375 0875 0875 %0743 c06
 0250 0875 0875 %0744 c07
 0125 0875 0875 %0745 c08
 0000 0875 0875 %0746 c09
 1000 0750 0750 %0747 d01
 0875 0750 0750 %0748 d02
 0750 0750 0750 %0749 d03
 0625 0750 0750 %0750 d04
 0500 0750 0750 %0751 d05
 0375 0750 0750 %0752 d06
 0250 0750 0750 %0753 d07
 0125 0750 0750 %0754 d08
 0000 0750 0750 %0755 d09
 1000 0625 0625 %0756 e01
 0875 0625 0625 %0757 e02
 0750 0625 0625 %0758 e03
 0625 0625 0625 %0759 e04
 0500 0625 0625 %0760 e05
 0375 0625 0625 %0761 e06
 0250 0625 0625 %0762 e07
 0125 0625 0625 %0763 e08
 0000 0625 0625 %0764 e09
 1000 0500 0500 %0765 f01
 0875 0500 0500 %0766 f02
 0750 0500 0500 %0767 f03
 0625 0500 0500 %0768 f04
 0500 0500 0500 %0769 f05
 0375 0500 0500 %0770 f06
 0250 0500 0500 %0771 f07
 0125 0500 0500 %0772 f08
 0000 0500 0500 %0773 f09
 1000 0375 0375 %0774 g01
 0875 0375 0375 %0775 g02
 0750 0375 0375 %0776 g03
 0625 0375 0375 %0777 g04
 0500 0375 0375 %0778 g05
 0375 0375 0375 %0779 g06
 0250 0375 0375 %0780 g07
 0125 0375 0375 %0781 g08
 0000 0375 0375 %0782 g09
 1000 0250 0250 %0783 h01
 0875 0250 0250 %0784 h02
 0750 0250 0250 %0785 h03
 0625 0250 0250 %0786 h04
 0500 0250 0250 %0787 h05
 0375 0250 0250 %0788 h06
 0250 0250 0250 %0789 h07
 0125 0250 0250 %0790 h08
 0000 0250 0250 %0791 h09
 1000 0125 0125 %0792 i01
 0875 0125 0125 %0793 i02
 0750 0125 0125 %0794 i03
 0625 0125 0125 %0795 i04
 0500 0125 0125 %0796 i05
 0375 0125 0125 %0797 i06
 0250 0125 0125 %0798 i07
 0125 0125 0125 %0799 i08
 0000 0125 0125 %0800 i09
 1000 0000 0000 %0801 j01
 0875 0000 0000 %0802 j02
 0750 0000 0000 %0803 j03
 0625 0000 0000 %0804 j04
 0500 0000 0000 %0805 j05
 0375 0000 0000 %0806 j06
 0250 0000 0000 %0807 j07
 0125 0000 0000 %0808 j08
 0000 0000 0000 %0809 j09
 1000 1000 1000 %0810 b10
 0875 0875 1000 %0811 b11
 0750 0750 1000 %0812 b12
 0625 0625 1000 %0813 b13
 0500 0500 1000 %0814 b14
 0375 0375 1000 %0815 b15
 0250 0250 1000 %0816 b16
 0125 0125 1000 %0817 b17
 0000 0000 1000 %0818 b18
 1000 1000 0875 %0819 c10
 0875 0875 0875 %0820 c11
 0750 0750 0875 %0821 c12
 0625 0625 0875 %0822 c13
 0500 0500 0875 %0823 c14
 0375 0375 0875 %0824 c15
 0250 0250 0875 %0825 c16
 0125 0125 0875 %0826 c17
 0000 0000 0875 %0827 c18
 1000 1000 0750 %0828 d10
 0875 0875 0750 %0829 d11
 0750 0750 0750 %0830 d12
 0625 0625 0750 %0831 d13
 0500 0500 0750 %0832 d14
 0375 0375 0750 %0833 d15
 0250 0250 0750 %0834 d16
 0125 0125 0750 %0835 d17
 0000 0000 0750 %0836 d18
 1000 1000 0625 %0837 e10
 0875 0875 0625 %0838 e11
 0750 0750 0625 %0839 e12
 0625 0625 0625 %0840 e13
 0500 0500 0625 %0841 e14
 0375 0375 0625 %0842 e15
 0250 0250 0625 %0843 e16
 0125 0125 0625 %0844 e17
 0000 0000 0625 %0845 e18
 1000 1000 0500 %0846 f10
 0875 0875 0500 %0847 f11
 0750 0750 0500 %0848 f12
 0625 0625 0500 %0849 f13
 0500 0500 0500 %0850 f14
 0375 0375 0500 %0851 f15
 0250 0250 0500 %0852 f16
 0125 0125 0500 %0853 f17
 0000 0000 0500 %0854 f18
 1000 1000 0375 %0855 g10
 0875 0875 0375 %0856 g11
 0750 0750 0375 %0857 g12
 0625 0625 0375 %0858 g13
 0500 0500 0375 %0859 g14
 0375 0375 0375 %0860 g15
 0250 0250 0375 %0861 g16
 0125 0125 0375 %0862 g17
 0000 0000 0375 %0863 g18
 1000 1000 0250 %0864 h10
 0875 0875 0250 %0865 h11
 0750 0750 0250 %0866 h12
 0625 0625 0250 %0867 h13
 0500 0500 0250 %0868 h14
 0375 0375 0250 %0869 h15
 0250 0250 0250 %0870 h16
 0125 0125 0250 %0871 h17
 0000 0000 0250 %0872 h18
 1000 1000 0125 %0873 i10
 0875 0875 0125 %0874 i11
 0750 0750 0125 %0875 i12
 0625 0625 0125 %0876 i13
 0500 0500 0125 %0877 i14
 0375 0375 0125 %0878 i15
 0250 0250 0125 %0879 i16
 0125 0125 0125 %0880 i17
 0000 0000 0125 %0881 i18
 1000 1000 0000 %0882 j10
 0875 0875 0000 %0883 j11
 0750 0750 0000 %0884 j12
 0625 0625 0000 %0885 j13
 0500 0500 0000 %0886 j14
 0375 0375 0000 %0887 j15
 0250 0250 0000 %0888 j16
 0125 0125 0000 %0889 j17
 0000 0000 0000 %0890 j18
 1000 1000 1000 %0891 b19
 1000 0875 1000 %0892 b20
 1000 0750 1000 %0893 b21
 1000 0625 1000 %0894 b22
 1000 0500 1000 %0895 b23
 1000 0375 1000 %0896 b24
 1000 0250 1000 %0897 b25
 1000 0125 1000 %0898 b26
 1000 0000 1000 %0899 b27
 0875 1000 0875 %0900 c19
 0875 0875 0875 %0901 c20
 0875 0750 0875 %0902 c21
 0875 0625 0875 %0903 c22
 0875 0500 0875 %0904 c23
 0875 0375 0875 %0905 c24
 0875 0250 0875 %0906 c25
 0875 0125 0875 %0907 c26
 0875 0000 0875 %0908 c27
 0750 1000 0750 %0909 d19
 0750 0875 0750 %0910 d20
 0750 0750 0750 %0911 d21
 0750 0625 0750 %0912 d22
 0750 0500 0750 %0913 d23
 0750 0375 0750 %0914 d24
 0750 0250 0750 %0915 d25
 0750 0125 0750 %0916 d26
 0750 0000 0750 %0917 d27
 0625 1000 0625 %0918 e19
 0625 0875 0625 %0919 e20
 0625 0750 0625 %0920 e21
 0625 0625 0625 %0921 e22
 0625 0500 0625 %0922 e23
 0625 0375 0625 %0923 e24
 0625 0250 0625 %0924 e25
 0625 0125 0625 %0925 e26
 0625 0000 0625 %0926 e27
 0500 1000 0500 %0927 f19
 0500 0875 0500 %0928 f20
 0500 0750 0500 %0929 f21
 0500 0625 0500 %0930 f22
 0500 0500 0500 %0931 f23
 0500 0375 0500 %0932 f24
 0500 0250 0500 %0933 f25
 0500 0125 0500 %0934 f26
 0500 0000 0500 %0935 f27
 0375 1000 0375 %0936 g19
 0375 0875 0375 %0937 g20
 0375 0750 0375 %0938 g21
 0375 0625 0375 %0939 g22
 0375 0500 0375 %0940 g23
 0375 0375 0375 %0941 g24
 0375 0250 0375 %0942 g25
 0375 0125 0375 %0943 g26
 0375 0000 0375 %0944 g27
 0250 1000 0250 %0945 h19
 0250 0875 0250 %0946 h20
 0250 0750 0250 %0947 h21
 0250 0625 0250 %0948 h22
 0250 0500 0250 %0949 h23
 0250 0375 0250 %0950 h24
 0250 0250 0250 %0951 h25
 0250 0125 0250 %0952 h26
 0250 0000 0250 %0953 h27
 0125 1000 0125 %0954 i19
 0125 0875 0125 %0955 i20
 0125 0750 0125 %0956 i21
 0125 0625 0125 %0957 i22
 0125 0500 0125 %0958 i23
 0125 0375 0125 %0959 i24
 0125 0250 0125 %0960 i25
 0125 0125 0125 %0961 i26
 0125 0000 0125 %0962 i27
 0000 1000 0000 %0963 j19
 0000 0875 0000 %0964 j20
 0000 0750 0000 %0965 j21
 0000 0625 0000 %0966 j22
 0000 0500 0000 %0967 j23
 0000 0375 0000 %0968 j24
 0000 0250 0000 %0969 j25
 0000 0125 0000 %0970 j26
 0000 0000 0000 %0971 j27
 0000 0000 0000 %0972 k01
 0125 0125 0125 %0973 k02
 0250 0250 0250 %0974 k03
 0375 0375 0375 %0975 k04
 0500 0500 0500 %0976 k05
 0625 0625 0625 %0977 k06
 0750 0750 0750 %0978 k07
 0875 0875 0875 %0979 k08
 1000 1000 1000 %0980 k09
 0000 0000 0000 %0981 l01
 0125 0125 0125 %0982 l02
 0250 0250 0250 %0983 l03
 0375 0375 0375 %0984 l04
 0500 0500 0500 %0985 l05
 0625 0625 0625 %0986 l06
 0750 0750 0750 %0987 l07
 0875 0875 0875 %0988 l08
 1000 1000 1000 %0989 l09
 0000 0000 0000 %0990 m01
 0125 0125 0125 %0991 m02
 0250 0250 0250 %0992 m03
 0375 0375 0375 %0993 m04
 0500 0500 0500 %0994 m05
 0625 0625 0625 %0995 m06
 0750 0750 0750 %0996 m07
 0875 0875 0875 %0997 m08
 1000 1000 1000 %0998 m09
 0000 0000 0000 %0999 n01
 0125 0125 0125 %1000 n02
 0250 0250 0250 %1001 n03
 0375 0375 0375 %1002 n04
 0500 0500 0500 %1003 n05
 0625 0625 0625 %1004 n06
 0750 0750 0750 %1005 n07
 0875 0875 0875 %1006 n08
 1000 1000 1000 %1007 n09
 0000 0000 0000 %1008 k10
 0066 0066 0066 %1009 k11
 0133 0133 0133 %1010 k12
 0200 0200 0200 %1011 k13
 0266 0266 0266 %1012 k14
 0333 0333 0333 %1013 k15
 0400 0400 0400 %1014 k16
 0466 0466 0466 %1015 k17
 0533 0533 0533 %1016 k18
 0600 0600 0600 %1017 k19
 0666 0666 0666 %1018 k20
 0734 0734 0734 %1019 k21
 0800 0800 0800 %1020 k22
 0866 0866 0866 %1021 k23
 0933 0933 0933 %1022 k24
 1000 1000 1000 %1023 k25
 0000 0000 0000 %1024 l10
 0066 0066 0066 %1025 l11
 0133 0133 0133 %1026 l12
 0200 0200 0200 %1027 l13
 0266 0266 0266 %1028 l14
 0333 0333 0333 %1029 l15
 0400 0400 0400 %1030 l16
 0466 0466 0466 %1031 l17
 0533 0533 0533 %1032 l18
 0600 0600 0600 %1033 l19
 0666 0666 0666 %1034 l20
 0734 0734 0734 %1035 l21
 0800 0800 0800 %1036 l22
 0866 0866 0866 %1037 l23
 0933 0933 0933 %1038 l24
 1000 1000 1000 %1039 l25
 0000 0000 0000 %1040 m10
 0066 0066 0066 %1041 m11
 0133 0133 0133 %1042 m12
 0200 0200 0200 %1043 m13
 0266 0266 0266 %1044 m14
 0333 0333 0333 %1045 m15
 0400 0400 0400 %1046 m16
 0466 0466 0466 %1047 m17
 0533 0533 0533 %1048 m18
 0600 0600 0600 %1049 m19
 0666 0666 0666 %1050 m20
 0734 0734 0734 %1051 m21
 0800 0800 0800 %1052 m22
 0866 0866 0866 %1053 m23
 0933 0933 0933 %1054 m24
 1000 1000 1000 %1055 m25
 0000 0000 0000 %1056 n10
 0066 0066 0066 %1057 n11
 0133 0133 0133 %1058 n12
 0200 0200 0200 %1059 n13
 0266 0266 0266 %1060 n14
 0333 0333 0333 %1061 n15
 0400 0400 0400 %1062 n16
 0466 0466 0466 %1063 n17
 0533 0533 0533 %1064 n18
 0600 0600 0600 %1065 n19
 0666 0666 0666 %1066 n20
 0734 0734 0734 %1067 n21
 0800 0800 0800 %1068 n22
 0866 0866 0866 %1069 n23
 0933 0933 0933 %1070 n24
 1000 1000 1000 %1071 n25
 0000 0000 0000 %1072 k26
 1000 1000 1000 %1073 k27
 1000 0000 0000 %1074 l26
 0000 1000 1000 %1075 l27
 1000 1000 0000 %1076 m26
 0000 0000 1000 %1077 m27
 0000 1000 0000 %1078 n26
 1000 0000 1000 %1079 n27

 0000 1000 0000 %1078 nx6
 1000 0000 1000 %1079 nx7
] def %END RGB0_F

%*****************************************************************
%} def %END PROC_SPEC_IOF.PS
%END COLDATA-SRGB_00.PS
%****************************************************
%END 'MF49'OUTLIN1X.PS Other procedures for sRGB output linearization
%****************************************************

%BEG MF49/OUTLIN1Y.PS Emty 20101101

%END MF49/OUTLIN1Y.PS Emty 20101101
                                                                         
/BeginEPSF {% def               % Prepare for EPS file
/b4_Inc_state save def          % Save state for cleanup
/dict_count countdictstack def
/op_count count 1 sub def       % Count objects on op stack
userdict begin                  % Make userdict current dict
/showpage {} def
0 setgray 0 setlinecap
1 setlinewidth 0 setlinejoin
10 setmiterlimit [] 0 setdash newpath
/languagelevel where            % If level not equal to 1 then
 {pop languagelevel where       % If level not equal to 1 then
 1 ne
 {false setstrokeadjust false setoverprint
 } if
} if
} bind def

/EndEPSF  {% def              % End for EPS file
 count op_count sub {pop} repeat
 countdictstack dict_count sub {end} repeat	% Clean up dict stack
 b4_Inc_state restore
} bind def

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
/A4querF {598 0 translate 90 rotate} 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-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

/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

%ANFA CMYKDEF
%CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97
/tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000] def
/tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000] def
%ENDE CMYKD

/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

/colrecfiLAB* %x y width heigth LAB*
  { setcolor rec fill} bind def

/colrecstLAB* %x y width heigth LAB*
  { setcolor rec stroke} bind def

/colrecficmyn* %x y width heigth cmy0* or 000n*
  { setcmykcolor rec fill} bind def

/colrecstcmyn* %x y width heigth cmy0* or 000n*
  { setcmykcolor rec stroke} bind def

/colrecfiw* %x y width heigth w*
  { setgray rec fill} bind def

/colrecstw* %x y width heigth w*
  { setgray rec stroke} bind def

/colrecfiolv* %x y width heigth olv*
  { setrgbcolor rec fill} bind def

/colrecstolv* %x y width heigth olv*
  { setrgbcolor rec stroke} bind def

/tzrcmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours
/tzgcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor
/tzbcmy0* {1.0 1.0 0.0 0.0} bind def
/tzccmy0* {1.0 0.0 0.0 0.0} bind def
/tzmcmy0* {0.0 1.0 0.0 0.0} bind def
/tzycmy0* {0.0 0.0 1.0 0.0} bind def

/tzrolv* {1.0 0.0 0.0} bind def %Reproduction colours
/tzgolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor
/tzbolv* {0.0 0.0 1.0} bind def
/tzcolv* {0.0 1.0 1.0} bind def
/tzmolv* {1.0 0.0 1.0} bind def
/tzyolv* {1.0 1.0 0.0} bind def

/tzrLAB* [53.34  72.46  50.66] def %Reproduction colours
/tzgLAB* [84.93 -79.83  74.80] def %LAB* setcolor
/tzbLAB* [32.20  24.88 -37.89] def
/tzcLAB* [88.10 -44.88 -13.36] def
/tzmLAB* [59.66  90.32 -19.65] def
/tzyLAB* [93.76 -20.24  85.93] def

/tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series
/tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor
/tzzcmy0* {0.50 0.50 0.50 0.00} bind def
/tzhcmy0* {0.25 0.25 0.25 0.00} bind def
/tzwcmy0* {0.00 0.00 0.00 0.00} bind def

/tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n*
/tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor
/tzz000n* {0.00 0.00 0.00 0.50} bind def
/tzh000n* {0.00 0.00 0.00 0.25} bind def
/tzw000n* {0.00 0.00 0.00 0.00} bind def

/tznw* {0.00} bind def %grey series
/tzdw* {0.25} bind def %w* setgray
/tzzw* {0.50} bind def
/tzhw* {0.75} bind def
/tzww* {1.00} bind def

/tznolv* {0.00 0.00 0.00} bind def %grey series
/tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor
/tzzolv* {0.50 0.50 0.50} bind def
/tzholv* {0.75 0.75 0.75} bind def
/tzwolv* {1.00 1.00 1.00} bind def

/tznLAB* [18.01 0.00 0.00] def %grey series
/tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor
/tzzLAB* [56.71 0.00 0.00] def
/tzhLAB* [76.06 0.00 0.00] def
/tzwLAB* [95.41 0.00 0.00] def

/tfn {0 setgray} bind def
/tfw {1 setgray} bind def

%%EndProlog

%***********************************************************
%%BeginPageSetup
/#copies 1 def
%A4querF
0.5 0.5 scale
/pgsave save def
%%EndPageSetup

/SS$ [(G) (E) (S) (F) (I) (J) (M)] def
/SC$ [(N) (F) (S) (D) (T) (E) (C)] def
/SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def
/SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def
%       0           1            2            3            4            5
%       6           7            8
/EX$ [(1.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS)
      (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def
/EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT)
      (P.DAT) (T.DAT)] def

%*******************************************************************
%line 360 *******************************************************************
/lanind1f 03 def /lanind2f 03 def /laninddf 01 def
/colorm1f 00 def /colorm2f 00 def /colormdf 01 def
/deintp1f 00 def /deintp2f 00 def /deintpdf 01 def
/xcolor1f 03 def /xcolor2f 03 def /xcolordf 01 def
/xchart1f 00 def /xchart2f 00 def /xchartdf 01 def %0-1,2-5,6-21
/xchart3f 01 def /xchart4f 00 def /xchart5f 00 def
/pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0
/colsep1f 00 def /colsep2f 00 def /colsepdf 01 def
/pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def
%/lanindf lanind1f def %
/lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def

%/colormf colorm1f def %
colorm1f colormdf colorm2f {/colormf exch def

%/deintpf deintp1f def %
deintp1f deintpdf deintp2f {/deintpf exch def

%/xcolorf xcolor1f def %
/xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def

%/xchartf xchart1f def %
xchart1f xchartdf xchart2f {/xchartf exch def

%/pchartf pchart1f def %
/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def

%/colsepf colsep1f def %
/colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def

/lanind lanindf def
/colorm colormf def
/deintp deintpf def
/xcolor xcolorf def
/xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def
/xchart3 xchart3f def /xchart3P0 xchart3 0 add def /xchart4 xchart4f def
/pchart pchartf def
/colsep colsepf def

/xchart3P8 xchart3 8 add def
%/pmetamf pmetam1f def %
/pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def

/pmetam pmetamf def

%*************************************************************
xchart xchart3 lt {%xchart<xchart3 not for CM
/setgray {sfgray} bind def
/setrgbcolor {sfrgbcolor} bind def
/setcmykcolor {sfcmykcolor} bind def
            }%xchart<xchart3 not for CM

            {%xchart>=xchart3 for CM
%BEG special for ColorInterpolation
/xchartj pchart def %sRGB, Lr=0%, pchart=3
/hei -1 def /heM -1 def
%PROC_LAB_IOF
%PROC_RX0F_IOF
%PROC_COLSEP_IOF
colorm 1 eq {PROC_COLINT_IOF} if
%PROC_COLINT_IOF
%PROC_SPEC_IOF
Colordata_sRGB_F %new
setcolortrans_F %new
proc_LAB729a_to_LAB*LabCh64M
proc_LAB*LabCh64M_to_tab362_dy

%END special for ColorInterpolation
%*********************************************************
} ifelse %xchart>=xchart3 for CM

xchart xchart3P0 le {72 90 translate}
                    {72 56 translate} ifelse
0.01 MM dup scale
%0 0 moveto 24600 0 rlineto 0 17220 rlineto
%          -24600 0 rlineto closepath stroke
200 -180 moveto
180 /Times-ISOL1 FS
lanindf cvishow (-) show
colormf cvishow
deintpf cvishow
xcolorf cvishow
xchartf cvishow
pchartf cvishow
colsepf cvishow (-F) show pmetamf cvishow

grestore
gsave

/GSS$ SS$ lanind get def
/GSC$ SC$ colorm get def
/GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def
/GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def
/GEX$ EX$ 0 get def
/GEY$ EY$ 0 get def

%01
%02
%03
%04
%05
%06
%07
%08
%09
%10
%11
%12
%13

xchart xchart3P0 le {%xchart<=xchart3P0

%gsave
BeginEPSF
 28 MM 197 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 10

%line 329

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 28 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 11

%line 339
%!PS-Adobe-3.0 EPSF-3.0 MF490-1
%%BoundingBox: 70 83 226 206

%START PDFDE011.EPS
/pdfmark01 where {pop} {userdict /pdfmark01 /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/MF49/)
  /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 pdfmark01
[ /View [ /FitB ]
/DOCVIEW pdfmark01
%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

/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

/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 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 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 (MF490-1) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse
(, B2_35) show %    ( B8540_3, M8150-6, B2_35, N=2_35) 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

TBM                                  %Schrift Times-Bold-Gross
0.0 0.0 0.0 0.0  setcmyk_olvcolor          %Schrift Weiss

100 006 moveto
(Wellenl\344nge ) showde                                        %0MF490-1 00551
(wavelength ) showen                                            %1MF490-1 00551
(Ancho de banda ) showes                                        %2MF490-1 00551
(longueur d'onde ) showfr                                       %3MF490-1 00551
(lunghezza d'onda ) showit                                      %4MF490-1 00551
(wavelength ) showjp                                            %5MF490-1 00551

(l) SM
TBM 2 0 rmoveto (/nm) show
003 220 moveto
(Spektralschablonen zur Erzeugung) showde                       %0MF490-1 01551
(spectral masks for the creation) showen                        %1MF490-1 01551
(M\341scaras espectrales para generar) showes                   %2MF490-1 01551
(masques spectraux pour la cr\351ation) showfr                  %3MF490-1 01551
(maschere spettrali per la creazione) showit                    %4MF490-1 01551
(spectral masks for the creation) showjp                        %5MF490-1 01551

003 202 moveto
(komplement\344rer Optimalfarben) showde                        %0MF490-1 02551
(of complementary optimal colours) showen                       %1MF490-1 02551
(colores \363ptimos complementarios) showes                     %2MF490-1 02551
(de couleurs compl\351mentaires optimales) showfr               %3MF490-1 02551
(di colori complementari ottimi) showit                         %4MF490-1 02551
(of complementary optimal colours) showjp                       %5MF490-1 02551

/xd 4.0 def  /xd2 8.0 def /ix0 33 def /iy0 44 def

/yexp 77 array def
0 1 76 {/i exch def  yexp i 1.0 put} for

/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} %->1
 {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0}
 {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0}
 {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0}
 {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0}
 {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0}
 {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0}
 {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0}
 {0.00 0.00 0.00 1.0}] def

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

/iy01 iy0 100 add def  %Spektrum I
3 1 66 {/i exch def
        /y11 {yexp i get exec 50 mul} bind def
        /y20 {yexp i 1 add get exec 50 mul} bind def
        /x10 {ix0 i 2 sub xd mul add} bind def
        /k {ifa i 3 sub get exec} def
        scolors k get exec setcmykcolor
        x10        iy01         moveto
        x10 xd add iy01         lineto
        x10 xd add iy01 y20 add lineto
        x10        iy01 y11 add lineto
        closepath fill
       } for %i-Schleife

/iy01 iy0 50 add def  %Spektrum II

3 1 66 {/i exch def
/y11 {yexp i get exec 50 mul} bind def
/y20 {yexp i 1 add get exec 50 mul} bind def
/x10 {ix0 i 2 sub xd mul add} bind def
/k {ifa i 3 sub get exec} def

/iton 0 def

iton 0 eq {i  32 gt  i 40 lt and } if
iton 1 eq {i  22 gt  i 50 lt and } if
iton 2 eq {i  24 gt  i 76 lt and } if
iton 3 eq {i  19 gt  i 39 lt and } if
{scolors k get exec setcmykcolor }
{0.0 0.0 0.0 1.0 setcmykcolor} ifelse

 x10        iy01         moveto
 x10 xd add iy01         lineto
 x10 xd add iy01 y20 add lineto
 x10        iy01 y11 add lineto
 closepath fill
} for %i-Schleife

/iy01 iy0 00 add def  %Spektrum III

3 1 66 {/i exch def
        /y11 {yexp i get exec 50 mul} bind def
        /y20 {yexp i 1 add get exec 50 mul} bind def
        /x10 {ix0 i 2 sub xd mul add} bind def
        /k {ifa i 3 sub get exec} def

iton 0 eq {i  32 gt  i 40 lt and } if
iton 1 eq {i  22 gt  i 50 lt and } if
iton 2 eq {i  24 gt  i 76 lt and } if
iton 3 eq {i  19 gt  i 39 lt and } if
{0.0 0.0 0.0 1.0 setcmykcolor}
{scolors k get exec setcmykcolor } ifelse

 x10        iy01         moveto
 x10 xd add iy01         lineto
 x10 xd add iy01 y20 add lineto
 x10        iy01 y11 add lineto
 closepath fill
} for %i-Schleife

%horizontale Linien
ix0 3 sub iy0 1 sub                273 2 fcolors 7 get exec colrecfi
ix0 3 sub iy0 1 sub 050 add 273 2 fcolors 7 get exec colrecfi
ix0 3 sub iy0 1 sub 100 add 273 2 fcolors 7 get exec colrecfi
ix0 3 sub iy0 1 sub 150 add 273 2 fcolors 7 get exec colrecfi

/tx [ (400) (500) (600) (700)] def
/ix0 33 def /iy0 44 def

TBG
0.0 0.0 0.0 0.0 setcmykcolor %W
ix0 18 sub iy0 050 add 20 add moveto (I) show
ix0 23 sub iy0                  20 add moveto (II) show
TBM
0.0 0.0 0.0 0.0  setcmykcolor          %Schrift W
ix0 028 sub iy0 100 add 20 add moveto (UV) show
0.0 0.0 0.0 0.0  setcmykcolor          %Schrift W
ix0 265 add  iy0 100 add 20 add moveto (IR) show

TBM
0.0 0.0 0.0 0.0  setcmykcolor          %Schrift Weiss
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

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

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 50 150 {/iyd exch def
          10 iy0 iyd add 1 sub 300
          2 fcolors 07 get exec colrecfi
         } for %Schleife iyd

0.0 0.0 0.0 0.0 setcmykcolor %W wavelength range
TBK

iton 0 eq {ix0 80 sub 5 2 20 mul add xd mul add
           iy0 55 add moveto
           (550) show

           ix0 27 sub 5 2 20 mul add xd mul add
           iy0 55 add moveto
           (575) show
          } if

showpage
grestore

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 12

%line 349
%!PS-Adobe-3.0 EPSF-3.0 MF490-2
%%BoundingBox: 70 83 226 206

%START PDFDE011.EPS
/pdfmark02 where {pop} {userdict /pdfmark02 /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/MF49/)
  /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 pdfmark02
[ /View [ /FitB ]
/DOCVIEW pdfmark02
%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

/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

/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 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 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 (MF490-2) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse
(, B2_35) show %    ( B8540_3, M8150-6, B2_35, N=2_35) 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

TBM                                  %Schrift Times-Bold-Gross
0.0 0.0 0.0 0.0  setcmyk_olvcolor          %Schrift Weiss

100 006 moveto
(Wellenl\344nge ) showde                                        %0MF490-2 00552
(wavelength ) showen                                            %1MF490-2 00552
(Ancho de banda ) showes                                        %2MF490-2 00552
(longueur d'onde ) showfr                                       %3MF490-2 00552
(lunghezza d'onda ) showit                                      %4MF490-2 00552
(wavelength ) showjp                                            %5MF490-2 00552

(l) SM
TBM 2 0 rmoveto (/nm) show

TBM
003 220 moveto
(Spektralschablonen zur Erzeugung) showde                       %0MF490-2 01552
(spectral masks for the creation) showen                        %1MF490-2 01552
(M\341scaras espectrales para generar) showes                   %2MF490-2 01552
(masques spectraux pour la cr\351ation) showfr                  %3MF490-2 01552
(le maschere spettrali per la creazione) showit                 %4MF490-2 01552
(spectral masks for the creation) showjp                        %5MF490-2 01552

003 202 moveto
(komplement\344rer Optimalfarben) showde                        %0MF490-2 02552
(of complementary optimal colours) showen                       %1MF490-2 02552
(colores \363ptimos complementarios) showes                     %2MF490-2 02552
(de couleurs compl\351mentaires optimales) showfr               %3MF490-2 02552
(di colori complementari ottimi) showit                         %4MF490-2 02552
(of complementary optimal colours) showjp                       %5MF490-2 02552

/xd 4.0 def  /xd2 8.0 def /ix0 33 def /iy0 44 def

/yexp 77 array def
0 1 76 {/i exch def  yexp i 1.0 put} for

/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} %->1
 {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0}
 {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0}
 {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0}
 {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0}
 {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0}
 {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0}
 {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0}
 {0.00 0.00 0.00 1.0}] def

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

/iy01 iy0 100 add def  %Spektrum I
3 1 66 {/i exch def
/y11 {yexp i get exec 50 mul} bind def
/y20 {yexp i 1 add get exec 50 mul} bind def
/x10 {ix0 i 2 sub xd mul add} bind def
/k {ifa i 3 sub get exec} def
scolors k get exec setcmykcolor
 x10        iy01         moveto
 x10 xd add iy01         lineto
 x10 xd add iy01 y20 add lineto
 x10        iy01 y11 add lineto
 closepath fill
} for %i-Schleife

/iy01 iy0 50 add def  %Spektrum II
3 1 66 {/i exch def
/y11 {yexp i get exec 50 mul} bind def
/y20 {yexp i 1 add get exec 50 mul} bind def
/x10 {ix0 i 2 sub xd mul add} bind def
/k {ifa i 3 sub get exec} def

/iton 1 def

iton 0 eq {i  32 gt  i 40 lt and } if
iton 1 eq {i  22 gt  i 50 lt and } if
iton 2 eq {i  24 gt  i 76 lt and } if
iton 3 eq {i  19 gt  i 39 lt and } if
{scolors k get exec setcmykcolor }
{0.0 0.0 0.0 1.0 setcmykcolor} ifelse

 x10        iy01         moveto
 x10 xd add iy01         lineto
 x10 xd add iy01 y20 add lineto
 x10        iy01 y11 add lineto
 closepath fill
} for %i-Schleife

/iy01 iy0 00 add def  %Spektrum III
3 1 66 {/i exch def
/y11 {yexp i get exec 50 mul} bind def
/y20 {yexp i 1 add get exec 50 mul} bind def
/x10 {ix0 i 2 sub xd mul add} bind def
/k {ifa i 3 sub get exec} def

iton 0 eq {i  32 gt  i 40 lt and } if
iton 1 eq {i  22 gt  i 50 lt and } if
iton 2 eq {i  24 gt  i 76 lt and } if
iton 3 eq {i  19 gt  i 39 lt and } if
{0.0 0.0 0.0 1.0 setcmykcolor}
{scolors k get exec setcmykcolor } ifelse

 x10        iy01         moveto
 x10 xd add iy01         lineto
 x10 xd add iy01 y20 add lineto
 x10        iy01 y11 add lineto
 closepath fill
} for %i-Schleife

%horizontale Linien
ix0 3 sub iy0 1 sub                273 2 fcolors 7 get exec colrecfi
ix0 3 sub iy0 1 sub 050 add 273 2 fcolors 7 get exec colrecfi
ix0 3 sub iy0 1 sub 100 add 273 2 fcolors 7 get exec colrecfi
ix0 3 sub iy0 1 sub 150 add 273 2 fcolors 7 get exec colrecfi

/tx [ (400) (500) (600) (700)] def
/ix0 33 def /iy0 44 def

TBG
0.0 0.0 0.0 0.0 setcmykcolor %W
ix0 18 sub iy0 050 add 20 add moveto (I) show
ix0 23 sub iy0                  20 add moveto (II) show
TBM
0.0 0.0 0.0 0.0  setcmykcolor          %Schrift W
ix0 028 sub iy0 100 add 20 add moveto (UV) show
0.0 0.0 0.0 0.0  setcmykcolor          %Schrift W
ix0 265 add  iy0 100 add 20 add moveto (IR) show

TBM
0.0 0.0 0.0 0.0  setcmykcolor          %Schrift Weiss

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

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

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 50 150 {/iyd exch def
10 iy0 iyd add 1 sub 300 2 fcolors 07 get exec colrecfi
 } for %Schleife iyd

0.0 0.0 0.0 0.0 setcmykcolor %W wavelength range
TBK
iton 0 eq {ix0 80 sub 5 2 20 mul add xd mul add
           iy0 55 add moveto
           (550) show

           ix0 27 sub 5 2 20 mul add xd mul add
           iy0 55 add moveto
           (575) show
          } if

iton 1 eq {ix0 40 sub 5 1 20 mul add xd mul add
           iy0 55 add moveto
           (485) show
           ix0 13 add 5 2 20 mul add xd mul add
           iy0 55 add moveto
           (625) show

           ix0 15 sub 5 1 20 mul add xd mul add
           iy0 7 add moveto
           (485) show
           ix0 12 sub 5 2 20 mul add xd mul add
           iy0 7 add moveto
           (625) show
          } if

showpage
grestore

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 28 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 13

%line 359
%!PS-Adobe-3.0 EPSF-3.0 MF490-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/MF49/)
  /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

/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-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

/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-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

 /SK {250 1 sub /Symbol FS} bind def
/SM {300 1 sub /Symbol FS} bind def
/SG {350 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 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 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 (MF490-3) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse
(, B4_54) show %    ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show

72 90 translate
0.01 MM dup scale
30 setlinewidth

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

/FMC 1 def %M=chromatic moment (1), chroma (2)
/FIS 2 def %I=spectral colours (1), S=surface colours (2)

050 3725 moveto TBM tfw
%(log ) show
(B) TBIM tfb show
(R) TBIM tfr show
(G) TBIM tfg show
(Y) TBIM tfy show
TBIM tfw

lanind 2 ne {%lanind#2
FMC 1 eq {(\255I) show} {(\255(I+D))} ifelse
            } if %lanind#2
TBM tfw
(\255Impulse/s f\374r) showde                                   %0MF490-3 00541
(\255impluses/s for) showen                                     %1MF490-3 00541
TBK
(\255Senales incremento para) showes                            %2MF490-3 00541
TBM
(\255impulses/s pour) showfr                                    %3MF490-3 00541
(\255impulses/s per) showit                                     %4MF490-3 00541
(\255impulses/s for) showjp                                     %5MF490-3 00541

FIS 1 eq {
( Spektralfarben) showde                                        %0MF490-3 01541
( spectral colours) showen                                      %1MF490-3 01541
TBK
( spectrales de color) showes                                   %2MF490-3 01541
TBM
( couleurs spectrales) showfr                                   %3MF490-3 01541
( colori spettrali) showit                                      %4MF490-3 01541
( spectral colours) showjp                                      %5MF490-3 01541
         }
         {
( K\366rperfarben) showde                                       %0MF490-3 02541
( surface colours) showen                                       %1MF490-3 02541
TBK
( objectos de color) showes                                     %2MF490-3 02541
TBM
( couleurs surface) showfr                                      %3MF490-3 02541
( superficie colora) showit                                     %4MF490-3 02541
( surface colours) showjp                                       %5MF490-3 02541
         } ifelse

tfw
550 400 translate
50 setlinewidth
 0 0 moveto  340 12 mul 0 rlineto  stroke
 0 0 moveto  0 3000 rlineto  stroke

FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke
          1000 600 moveto TBIM (m) show TBM (=1) show}
         { 000 500 moveto 3000 1500 rlineto stroke
          1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse

TBM
/tx [(-6) (-5) (-4) (-3) (-2) (-1) (  0) (  1)] def
/ty [()   ()  (  0) (10) (20) (30) (40)] def

%!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten

0 1 7 {/i exch def
       /ixt { -250 i 0500 mul add} def
       /ixl {  000 i 0500 mul add} def
        ixt -350 moveto tx i get exec show
        ixl 75 moveto 0 -150 rlineto stroke } for

%!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten

0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto ty i get exec show
         -75 iyl moveto 150 0 rlineto stroke } for

% 35 setlinewidth
% tfn 000 2000 moveto 4000 0000 rlineto stroke tfw
 50 setlinewidth

tfr [100 100] 0 setdash
2000 0000 moveto 0000 2600 rlineto stroke tfw
[   ] 0 setdash

tfg [100 100] 0 setdash
2130 0000 moveto 0000 2700 rlineto stroke tfw
[   ] 0 setdash

3600 -300 moveto (x) TBIM tfw show
                 0 -50 rmoveto TBM (r) show 10 50 rmoveto
                 20 0 rmoveto
                 (=) TBM tfw show 20 0 rmoveto
                 (log) TBM tfw show 30 0 rmoveto
                 TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto

1100 3000 moveto (-2) TBM tfw show 30 0 rmoveto
(Q) TBIM tfw show 30 0 rmoveto
([1,0c \050) TBM tfw show (x) TBIM tfw show
20 -50 rmoveto TBM (r) show 10 50 rmoveto
(+x) TBIM tfw show
20 -50 rmoveto TBM (p) show 10 50 rmoveto
(\051]) TBM tfw show

2200 0600 moveto (\255x) TBIM tfw show
20 -50 rmoveto TBM (p) show 10 50 rmoveto
(=) show
FIS 1 eq {tfb (2)    show tfw (,) show
          tfr (1,50) show tfw (,) show
          tfg (1,0)  show tfw (,) show
          tfy (0,50) show tfw (,) show
          tfw (0) show
         }
         {tfb (1)    show tfw (,) show
          tfr (0,75) show tfw (,) show
          tfg (0,5)  show tfw (,) show
          tfy (0,25) show tfw (,) show
          tfw (0) show
         } ifelse

2750 0200 moveto (L) TBIM tfw show
TBK 20 -80 rmoveto (w) show 50 80 rmoveto
(= 100 cd) TBM tfw show
20 0 rmoveto (/) TBM tfw show
10 0 rmoveto (m) TBM tfw show
TBK 20 100 rmoveto (2) show 0 -100 rmoveto

2300 1000 moveto TBM tfw
FMC 1 eq {(I) TBIM tfw show}
         {(D+I) TBIM tfw show} ifelse
TBM
(\255Proze\337) showde                                          %0MF490-3 03541
(\255process) showen                                            %1MF490-3 03541
TBK
(\255Proceso de incremento) showes                              %2MF490-3 03541
TBM
(\255processus) showfr                                          %3MF490-3 03541
(\255processo) showit                                           %4MF490-3 03541
(\255process) showjp                                            %5MF490-3 03541

/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

/DLL 11 array def
/DLU 11 array def
/DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000.
      100000. 1000000.] def
/YFAK 4 array def
/YFAK [ 1.0 1.8 3.2 5.6] def
/DL 40 array  def
/DU 40 array  def
/XF 40 array  def
/R00KXU 40 array  def
/RLMKXU 40 array  def

%Achromatic
/F0 40 array  def %I-W
/F1 40 array  def %D-N
/F2 40 array  def %ID-NM

/F3 40 array  def %I-B
/F4 40 array  def %D-b
/F5 40 array  def %ID-BW

/F6 40 array  def %I-B
/F7 40 array  def %D-b
/F8 40 array  def %ID-BW

%Blue
/FB0 40 array  def %I-W
/FB1 40 array  def %D-N
/FB2 40 array  def %ID-NM

/FB3 40 array  def %I-B
/FB4 40 array  def %D-b
/FB5 40 array  def %ID-BW

/FB6 40 array  def %I-B
/FB7 40 array  def %D-b
/FB8 40 array  def %ID-BW

%yellow
/FY0 40 array  def %I-W
/FY1 40 array  def %D-N
/FY2 40 array  def %ID-NM

/FY3 40 array  def %I-Y
/FY4 40 array  def %D-y
/FY5 40 array  def %ID-YW

/FY6 40 array  def %I-Y
/FY7 40 array  def %D-y
/FY8 40 array  def %ID-YW

%Green
/FG0 40 array  def %I-W
/FG1 40 array  def %D-N
/FG2 40 array  def %ID-NM

/FG3 40 array  def %I-G
/FG4 40 array  def %D-g
/FG5 40 array  def %ID-GW

/FG6 40 array  def %I-G
/FG7 40 array  def %D-g
/FG8 40 array  def %ID-GW

%red
/FR0 40 array  def %I-W
/FR1 40 array  def %D-N
/FR2 40 array  def %ID-NM

/FR3 40 array  def %I-R
/FR4 40 array  def %D-r
/FR5 40 array  def %ID-RW

/FR6 40 array  def %I-R
/FR7 40 array  def %D-r
/FR8 40 array  def %ID-RW

/IORX 2000 def
/IORY 2000 def
/MULX 500 def
/MULY 500 def

50 setlinewidth
tfn
%0000 2000 moveto 4000 0 rlineto stroke

0 1 9 {/k exch def %k=0,9
       DLU k DLL k get put
       0 1 3 {/j exch def %j=0,3
              /i k 4 mul j add def %i=0,39
              DL i DLL k get YFAK j get mul put
              DU i DL i get put
              } for %j=0,3
      } for %k=0,10

/W2 2. sqrt def
/XP 0 def
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def

               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put

               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put

               j 0 eq {F0 i RLMKXU i get put} if
               j 1 eq {F1 i RLMKXU i get put} if
               j 1 eq {F2 i F0 i get F1 i get add put} if
              } for %i=0,38
      /XFX0 0.0 def
      /F01X0 10 XFX0 XU sub XP add XC mul exp def
      /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def
      /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def
      j 0 eq {/F0X0 RLMKXUX0 def} if
      j 1 eq {/F1X0 RLMKXUX0 def} if
      j 1 eq {/F2X0 F0X0 F1X0 add def} if
      } for %j=0,1

50 setlinewidth

TBM
18 3 27 {/i exch def  %i=21,3,27
        /y20 {IORY F1 i       get XP sub MULY mul add} bind def
        /x20 IORX 2 XP sub MULX mul add def
        tfn
%        i 21 eq i 27 eq or {
        1300 i 18 sub 80 mul add y20 moveto 1800 0 rlineto stroke
%        } if
        700 i 18 sub 80 mul add y20 050 sub moveto tfw
        FMC 1 eq {i 18 eq {(0,4%) show} if
                  i 21 eq {(  2%) show} if
                  i 24 eq {(  9%) show} if
                  i 27 eq {(40%) show} if
                 } if
        3200 i 18 sub 80 mul add y20 050 sub moveto tfw
        FMC 1 eq {i 18 eq {(4%) show} if
                  i 21 eq {(20%) show} if
                  i 24 eq {(90%) show} if
                  i 27 eq {(400%) show} if
                 } if

         i 27 eq {050 y20 350 add moveto
                  tfw
(Relative Leuchtdichte:) showde                                 %0MF490-3 04541
(relative luminance:) showen                                    %1MF490-3 04541
(luminancia relativa:) showes                                   %2MF490-3 04541
(brillance relative:) showfr                                    %3MF490-3 04541
(splendore relativo:) showit                                    %4MF490-3 04541
(relative luminance:) showjp                                    %5MF490-3 04541
                 } if

        } for %i=21,3,27

0 1 1 {/j exch def %j=0,1
j 0 eq {0 0 0 1 setcmykcolor [   ] 0 setdash} if %I
j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I
0 3 36 {/i exch def  %i=0,3,36
        /x20 {IORX XF i       get MULX mul add} bind def
        /y20 {IORY F1 i       get MULY mul add} bind def
        /x21 {IORX XF i 1 add get MULX mul add} bind def
        /y21 {IORY F1 i 1 add get MULY mul add} bind def
        /x22 {IORX XF i 2 add get MULX mul add} bind def
        /y22 {IORY F1 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36
stroke
} for %j=0,1

18 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF i       get MULX mul add} bind def
        /y20 {IORY F1 i       get XP sub MULY mul add} bind def
        i 18 eq {tfn x20 y20 75 0 360 arc fill} if
        i 21 eq {tfw x20 y20 85 0 360 arc fill
                 tfz x20 y20 65 0 360 arc fill} if
        i 24 eq {tfw x20 y20 75 0 360 arc fill} if
        i 27 eq {tfw x20 y20 85 0 360 arc fill
                 tfn x20 y20 15 0 360 arc fill} if
        } for %i=21,3,27

/XP 0.50 FIS div def %Y
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def

               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put

               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put

               j 0 eq {FY3 i RLMKXU i get put} if
               j 1 eq {FY4 i RLMKXU i get put} if
               j 1 eq {FY5 i FY3 i get FY4 i get add put} if
              } for %i=0,38
      /XFX1 0.0 def
      /F01X1 10 XFX1 XU sub XP add XC mul exp def
      /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def
      /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def
      j 0 eq {/F0X1 RLMKXUX1 def} if
      j 1 eq {/F1X1 RLMKXUX1 def} if
      j 1 eq {/F2X1 F0X1 F1X1 add def} if
      } for %j=0,1

50 setlinewidth

0 0 1 0 setcmykcolor [   ] 0 setdash %I-Y
0 3 36 {/i exch def  %i=0,3,36
        /x20 {IORX XF  i       get MULX mul add} bind def
        /y20 {IORY FY4 i       get MULY mul add} bind def
        /x21 {IORX XF  i 1 add get MULX mul add} bind def
        /y21 {IORY FY4 i 1 add get MULY mul add} bind def
        /x22 {IORX XF  i 2 add get MULX mul add} bind def
        /y22 {IORY FY4 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36
stroke

18 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF  i 2 FIS idiv  sub get MULX mul add} bind def
        /y20 {IORY FY4 i 2 FIS idiv  sub get MULY mul add} bind def
        newpath x20 y20 moveto ( ) show
        i 18 eq {tfn} if
        i 21 eq {0.0 0.0 1.0 0.5 setcmykcolor} if
        i 24 eq {0.0 0.0 1.0 0.0 setcmykcolor} if
        i 24 le {x20 y20 75 0 360 arc fill} if
        i 27 eq {tfw x20 y20 85 0 360 arc fill
                 tfn x20 y20 15 0 360 arc fill} if
        } for %i=21,3,27

/XP 1.0 FIS div  def %G
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def

               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put

               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put

               j 0 eq {FG3 i RLMKXU i get put} if
               j 1 eq {FG4 i RLMKXU i get put} if
               j 1 eq {FG5 i FG3 i get FG4 i get add put} if
              } for %i=0,38
      /XFX1 0.0 def
      /F01X1 10 XFX1 XU sub XP add XC mul exp def
      /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def
      /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def
      j 0 eq {/F0X1 RLMKXUX1 def} if
      j 1 eq {/F1X1 RLMKXUX1 def} if
      j 1 eq {/F2X1 F0X1 F1X1 add def} if
      } for %j=0,1

50 setlinewidth

1 0 1 0 setcmykcolor [   ] 0 setdash %I-G
0 3 36 {/i exch def  %i=0,3,36
        /x20 {IORX XF  i       get MULX mul add} bind def
        /y20 {IORY FG4 i       get MULY mul add} bind def
        /x21 {IORX XF  i 1 add get MULX mul add} bind def
        /y21 {IORY FG4 i 1 add get MULY mul add} bind def
        /x22 {IORX XF  i 2 add get MULX mul add} bind def
        /y22 {IORY FG4 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36
stroke

18 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF  i 4 FIS idiv  sub get MULX mul add} bind def
        /y20 {IORY FG4 i 4 FIS idiv  sub get MULY mul add} bind def
        newpath x20 y20 moveto ( ) show
        i 18 eq {tfn} if
        i 21 eq {1.0 0.0 1.0 0.5 setcmykcolor} if
        i 24 eq {1.0 0.0 1.0 0.0 setcmykcolor} if
        i 24 le {x20 y20 75 0 360 arc fill} if
        i 27 eq {tfw x20 y20 85 0 360 arc fill
                 tfn x20 y20 15 0 360 arc fill} if
        } for %i=21,3,27

/XP 1.5 FIS div  def %R
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def

               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put

               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put

               j 0 eq {FR3 i RLMKXU i get put} if
               j 1 eq {FR4 i RLMKXU i get put} if
               j 1 eq {FR5 i FR3 i get FR4 i get add put} if
              } for %i=0,38
      /XFX1 0.0 def
      /F01X1 10 XFX1 XU sub XP add XC mul exp def
      /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def
      /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def
      j 0 eq {/F0X1 RLMKXUX1 def} if
      j 1 eq {/F1X1 RLMKXUX1 def} if
      j 1 eq {/F2X1 F0X1 F1X1 add def} if
      } for %j=0,1


50 setlinewidth

0 1 1 0 setcmykcolor [   ] 0 setdash %I-R
0 3 36 {/i exch def  %i=0,3,36
        /x20 {IORX XF  i       get MULX mul add} bind def
        /y20 {IORY FR4 i       get MULY mul add} bind def
        /x21 {IORX XF  i 1 add get MULX mul add} bind def
        /y21 {IORY FR4 i 1 add get MULY mul add} bind def
        /x22 {IORX XF  i 2 add get MULX mul add} bind def
        /y22 {IORY FR4 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36
stroke

18 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF  i 6 FIS idiv  sub get MULX mul add} bind def
        /y20 {IORY FR4 i 6 FIS idiv  sub get MULY mul add} bind def
        newpath x20 y20 moveto ( ) show
        i 18 eq {tfn} if
        i 21 eq {0.0 1.0 1.0 0.5 setcmykcolor} if
        i 24 eq {0.0 1.0 1.0 0.0 setcmykcolor} if
        i 24 le {x20 y20 75 0 360 arc fill} if
        i 27 eq {tfw x20 y20 85 0 360 arc fill
                 tfn x20 y20 15 0 360 arc fill} if
        } for %i=21,3,27

/XP 2 FIS idiv  def %B
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def

               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put

               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put

               j 0 eq {FB3 i RLMKXU i get put} if
               j 1 eq {FB4 i RLMKXU i get put} if
               j 1 eq {FB5 i FB3 i get FB4 i get add put} if
              } for %i=0,38
      /XFX1 0.0 def
      /F01X1 10 XFX1 XU sub XP add XC mul exp def
      /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def
      /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def
      j 0 eq {/F0X1 RLMKXUX1 def} if
      j 1 eq {/F1X1 RLMKXUX1 def} if
      j 1 eq {/F2X1 F0X1 F1X1 add def} if
      } for %j=0,1


50 setlinewidth

1 1 0 0 setcmykcolor [   ] 0 setdash %I-B
0 3 36 {/i exch def  %i=0,3,36
        /x20 {IORX XF  i       get MULX mul add} bind def
        /y20 {IORY FB4 i       get MULY mul add} bind def
        /x21 {IORX XF  i 1 add get MULX mul add} bind def
        /y21 {IORY FB4 i 1 add get MULY mul add} bind def
        /x22 {IORX XF  i 2 add get MULX mul add} bind def
        /y22 {IORY FB4 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36
stroke

18 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF  i 8 FIS idiv  sub get MULX mul add} bind def
        /y20 {IORY FB4 i 8 FIS idiv  sub get MULY mul add} bind def
        newpath x20 y20 moveto ( ) show
        i 18 eq {tfn} if
        i 21 eq {1.0 1.0 0.0 0.5 setcmykcolor} if
        i 24 eq {1.0 1.0 0.0 0.0 setcmykcolor} if
        i 24 le {x20 y20 75 0 360 arc fill} if
        i 27 eq {tfw x20 y20 85 0 360 arc fill
                 tfn x20 y20 15 0 360 arc fill} if
        } for %i=21,3,27

tfy [    ] 0 setdash
2250 1370 moveto 0000 0630 rlineto
0750 0000 rlineto stroke
tfr
2270 1370 moveto -530 0000 rlineto stroke

showpage
grestore

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 14

%line 369
%!PS-Adobe-3.0 EPSF-3.0 MF490-4
%%BoundingBox: 70 83 226 206

%START PDFDE011.EPS
/pdfmark06 where {pop} {userdict /pdfmark06 /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/MF49/)
  /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 pdfmark06
[ /View [ /FitB ]
/DOCVIEW pdfmark06
%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

/TK {240 /Times-ISOL1 FS} bind def
/TM {290 /Times-ISOL1 FS} bind def
/TG {340 /Times-ISOL1 FS} bind def

/TIK {240 /TimesI-ISOL1 FS} bind def
/TIM {290 /TimesI-ISOL1 FS} bind def
/TIG {340 /TimesI-ISOL1 FS} bind def

/TBK {240 /TimesB-ISOL1 FS} bind def
/TBM {290 /TimesB-ISOL1 FS} bind def
/TBG {340 /TimesB-ISOL1 FS} bind def

/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIM {290 /TimesBI-ISOL1 FS} bind def
/TBIG {340 /TimesBI-ISOL1 FS} bind def

/SK {240 1 sub /Symbol FS} bind def
/SM {290 1 sub /Symbol FS} bind def
/SG {340 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 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 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 (MF490-4) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse
%     ( XG321-5, B8931_1, E8241-5, B4_54_1, N=4_54_1) show

72 90 translate
0.01 MM dup scale
30 setlinewidth

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

/FMC 1 def %M=chromatic moment (1), chroma (2)
/FIS 2 def %I=spectral colours (1), S=surface colours (2)

/tzv0 {1.00 1.00 0.00 0.0} bind def
/tzv1 {0.75 0.75 0.00 0.0} bind def
/tzv2 {0.50 0.50 0.00 0.0} bind def
/tzv3 {0.25 0.25 0.00 0.0} bind def

/tfv0 {tzv0 setcmykcolor} bind def
/tfv1 {tzv1 setcmykcolor} bind def
/tfv2 {tzv2 setcmykcolor} bind def
/tfv3 {tzv3 setcmykcolor} bind def

050 3725 moveto TBM tfw
%(log ) show
TBIM tfb (B) show tfw (W) show

/TBK1 {225 /TimesB-ISOL1 FS} bind def

lanind 2 ne {%lanind#2
FMC 1 eq {(\255I) show} {(\255(I+D))} ifelse
            } if %lanind#2
TBM tfw
(\255Impulse/s f\374r) showde                                   %0MF490-4 00542
(\255impluses/s for) showen                                     %1MF490-4 00542
TBK1
(\255Senales incremento para) showes                            %2MF490-4 00542
TBM
(\255impulses/s pour) showfr                                    %3MF490-4 00542
(\255impulses/s per) showit                                     %4MF490-4 00542
(\255impulses/s for) showjp                                     %5MF490-4 00542

FIS 1 eq {
TBM
( Spektralfarben + Wei\337) showde                              %0MF490-4 01542
( spectral colours + W) showen                                  %1MF490-4 01542
TBK
( spectrales color + W) showes                                  %2MF490-4 01542
TBM
( couleurs spectrales+W) showfr                                 %3MF490-4 01542
( colori spettrali + W) showit                                  %4MF490-4 01542
( spectral colours + W) showjp                                  %5MF490-4 01542
         }
         {
( blaue K\366rperfarben) showde                                 %0MF490-4 02542
( blue surface colours) showen                                  %1MF490-4 02542
TBK
( objectos de color azules) showes                              %2MF490-4 02542
TBM
( couleur surface bleue) showfr                                 %3MF490-4 02542
( superficie blu colora) showit                                 %4MF490-4 02542
( blue surface colours) showjp                                  %5MF490-4 02542
         } ifelse

tfw
550 400 translate
50 setlinewidth
 0 0 moveto  340 12 mul 0 rlineto  stroke
 0 0 moveto  0 3000 rlineto  stroke

FMC 1 eq {1000 0 moveto 2000 2000 rlineto stroke
          1000 600 moveto TBIM (m) show TBM (=1) show}
         { 000 500 moveto 3000 1500 rlineto stroke
          1000 600 moveto TBIM (m) show TBM (=1/2) show} ifelse

TBM
/tx [(-6) (-5) (-4) (-3) (-2) (-1) (  0) (  1)] def
/ty [()   ()   (  0) (10) (20) (30) (40)] def

%!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten

0 1 7 {/i exch def
       /ixt { -250 i 0500 mul add} def
       /ixl {  000 i 0500 mul add} def
        ixt -350 moveto tx i get exec show
        ixl 75 moveto 0 -150 rlineto stroke } for

%!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten

0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto ty i get exec show
         -75 iyl moveto 150 0 rlineto stroke } for

% 35 setlinewidth
% tfn 000 2000 moveto 4000 0000 rlineto stroke tfw
 50 setlinewidth

tfg [100 100] 0 setdash
2130 0000 moveto 0000 2600 rlineto stroke tfw
[   ] 0 setdash

tfr [100 100] 0 setdash
2000 0000 moveto 0000 2600 rlineto stroke tfw
[   ] 0 setdash

3600 -300 moveto (x) TBIM tfw show
                 0 -50 rmoveto TBM (r) show 10 50 rmoveto
                 20 0 rmoveto
                 (=) TBM tfw show 20 0 rmoveto
                 (log) TBM tfw show 30 0 rmoveto
                 TBIM (L) show 0 -50 rmoveto TBM (r) show 10 50 rmoveto

1100 3000 moveto (-2) TBM tfw show 30 0 rmoveto
(Q) TBIM tfw show 30 0 rmoveto
([1,0c \050) TBM tfw show (x) TBIM tfw show
20 -50 rmoveto TBM (r) show 10 50 rmoveto
(+x) TBIM tfw show
20 -50 rmoveto TBM (p) show 10 50 rmoveto
(\051]) TBM tfw show

2200 0600 moveto (-x) TBIM tfw show
20 -50 rmoveto TBM (p) show 10 50 rmoveto
(=) show
FIS 1 eq {tfv0 (2)    show tfw (,) show
          tfv1 (1,50) show tfw (,) show
          tfv2 (1,0)  show tfw (,) show
          tfv3 (0,50) show tfw (,) show
          tfw (0) show
         }
         {tfv0 (1)    show tfw (,) show
          tfv1 (0,75) show tfw (,) show
          tfv2 (0,5)  show tfw (,) show
          tfv3 (0,25) show tfw (,) show
          tfw (0) show
         } ifelse

2750 0200 moveto (L) TBIM tfw show
TBK 20 -80 rmoveto (w) show 50 80 rmoveto
(= 100 cd) TBM tfw show
20 0 rmoveto (/) TBM tfw show
10 0 rmoveto (m) TBM tfw show
TBK 20 100 rmoveto (2) show 0 -100 rmoveto

2300 1000 moveto TBM tfw
FMC 1 eq {(I) TBIM tfw show}
         {(D+I) TBIM tfw show} ifelse
TBM
(\255Proze\337) showde                                          %0MF490-4 03542
(\255process) showen                                            %1MF490-4 03542
TBK
(\255Proceso de incremento) showes                              %2MF490-4 03542
TBM
(\255processus) showfr                                          %3MF490-4 03542
(\255processo) showit                                           %4MF490-4 03542
(\255process) showjp                                            %5MF490-4 03542


/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

/DLL 11 array def
/DLU 11 array def
/DLL [0.0001 0.001 0.01 0.1 1.0 10. 100. 1000. 10000.
      100000. 1000000.] def
/YFAK 4 array def
/YFAK [ 1.0 1.8 3.2 5.6] def
/DL 40 array  def
/DU 40 array  def
/XF 40 array  def
/R00KXU 40 array  def
/RLMKXU 40 array  def

%Achromatic
/F0 40 array  def %I-W
/F1 40 array  def %D-N
/F2 40 array  def %ID-NM

/F3 40 array  def %I-B
/F4 40 array  def %D-b
/F5 40 array  def %ID-BW

/F6 40 array  def %I-B
/F7 40 array  def %D-b
/F8 40 array  def %ID-BW

%Blue
/FB0 40 array  def %I-W
/FB1 40 array  def %D-N
/FB2 40 array  def %ID-NM

/FB3 40 array  def %I-B
/FB4 40 array  def %D-b
/FB5 40 array  def %ID-BW

/FB6 40 array  def %I-B
/FB7 40 array  def %D-b
/FB8 40 array  def %ID-BW

%yellow
/FY0 40 array  def %I-W
/FY1 40 array  def %D-N
/FY2 40 array  def %ID-NM

/FY3 40 array  def %I-Y
/FY4 40 array  def %D-y
/FY5 40 array  def %ID-YW

/FY6 40 array  def %I-Y
/FY7 40 array  def %D-y
/FY8 40 array  def %ID-YW

%Green
/FG0 40 array  def %I-W
/FG1 40 array  def %D-N
/FG2 40 array  def %ID-NM

/FG3 40 array  def %I-G
/FG4 40 array  def %D-g
/FG5 40 array  def %ID-GW

/FG6 40 array  def %I-G
/FG7 40 array  def %D-g
/FG8 40 array  def %ID-GW

%red
/FR0 40 array  def %I-W
/FR1 40 array  def %D-N
/FR2 40 array  def %ID-NM

/FR3 40 array  def %I-R
/FR4 40 array  def %D-r
/FR5 40 array  def %ID-RW

/FR6 40 array  def %I-R
/FR7 40 array  def %D-r
/FR8 40 array  def %ID-RW

/IORX 2000 def
/IORY 2000 def
/MULX 500 def
/MULY 500 def

50 setlinewidth
tfn
%0000 2000 moveto 4000 0 rlineto stroke

0 1 9 {/k exch def %k=0,9
       DLU k DLL k get put
       0 1 3 {/j exch def %j=0,3
              /i k 4 mul j add def %i=0,39
              DL i DLL k get YFAK j get mul put
              DU i DL i get put
              } for %j=0,3
      } for %k=0,10

/W2 2. sqrt def
/XP 0 def
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def

               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put

               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put

               j 0 eq {F0 i RLMKXU i get put} if
               j 1 eq {F1 i RLMKXU i get put} if
               j 1 eq {F2 i F0 i get F1 i get add put} if
              } for %i=0,38
      /XFX0 0.0 def
      /F01X0 10 XFX0 XU sub XP add XC mul exp def
      /R00KXUX0 1. 1. W2 F01X0 mul add div 1. add def
      /RLMKXUX0 XL W2 log div R00KXUX0 log mul XM sub XQ mul def
      j 0 eq {/F0X0 RLMKXUX0 def} if
      j 1 eq {/F1X0 RLMKXUX0 def} if
      j 1 eq {/F2X0 F0X0 F1X0 add def} if
      } for %j=0,1

50 setlinewidth

%0 1 1 {/j exch def %j=0,1
%j 0 eq {0 0 0 0 setcmykcolor [   ] 0 setdash} if %D
%j 1 eq {0 0 0 1 setcmykcolor [300 100] 0 setdash} if %D
%0 3 36 {/i exch def  %i=0,3,36
%        /x20 {IORX XF i       get MULX mul add} bind def
%        /y20 {IORY F0 i       get MULY mul add} bind def
%        /x21 {IORX XF i 1 add get MULX mul add} bind def
%        /y21 {IORY F0 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF i 2 add get MULX mul add} bind def
%        /y22 {IORY F0 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36
%stroke
%} for %j=0,1

TBM
18 3 27 {/i exch def  %i=21,3,27
        /y20 {IORY F1 i       get XP sub MULY mul add} bind def
        /x20 IORX 2 XP sub MULX mul add def
        tfn
%        i 21 eq i 27 eq or {
        1300 i 18 sub 80 mul add y20 moveto 1800 0 rlineto stroke
%        } if
        700 i 18 sub 80 mul add y20 050 sub moveto tfw
        FMC 1 eq {i 18 eq {(0,4%) show} if
                  i 21 eq {(  2%) show} if
                  i 24 eq {(  9%) show} if
                  i 27 eq {(40%) show} if
                 } if
        3200 i 18 sub 80 mul add y20 050 sub moveto tfw
        FMC 1 eq {i 18 eq {(4%) show} if
                  i 21 eq {(20%) show} if
                  i 24 eq {(90%) show} if
                  i 27 eq {(400%) show} if
                 } if

         i 27 eq {050 y20 350 add moveto
                  tfw
(Relative Leuchtdichte:) showde                                 %0MF490-4 04542
(relative luminance:) showen                                    %1MF490-4 04542
(luminancia relativa:) showes                                   %2MF490-4 04542
(brillance relative:) showfr                                    %3MF490-4 04542
(splendore relativo:) showit                                    %4MF490-4 04542
(relative luminance:) showjp                                    %5MF490-4 04542
                 } if

        } for %i=21,3,27

0 1 1 {/j exch def %j=0,1
j 0 eq {0 0 0 1 setcmykcolor [   ] 0 setdash} if %I
j 1 eq {0 0 0 0 setcmykcolor [300 100] 0 setdash} if %I
0 3 36 {/i exch def  %i=0,3,36
        /x20 {IORX XF i       get MULX mul add} bind def
        /y20 {IORY F1 i       get MULY mul add} bind def
        /x21 {IORX XF i 1 add get MULX mul add} bind def
        /y21 {IORY F1 i 1 add get MULY mul add} bind def
        /x22 {IORX XF i 2 add get MULX mul add} bind def
        /y22 {IORY F1 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36
stroke
} for %j=0,1

18 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF i       get MULX mul add} bind def
        /y20 {IORY F1 i       get XP sub MULY mul add} bind def
        i 18 eq {tfn x20 y20 75 0 360 arc fill} if
        i 21 eq {tfw x20 y20 85 0 360 arc fill
                 tfz x20 y20 65 0 360 arc fill} if
        i 24 eq {tfw x20 y20 75 0 360 arc fill} if
        i 27 eq {tfw x20 y20 85 0 360 arc fill
                 tfn x20 y20 15 0 360 arc fill} if
        } for %i=21,3,27

%0 1 1 {/j exch def %j=0,1
%j 0 eq {0 0 0 0 setcmykcolor [   ] 0 setdash} if %DI
%j 1 eq {0 0 0 1 setcmykcolor [200 200] 0 setdash} if %DI
%0 3 36 {/i exch def  %i=0,3,36
%        /x20 {IORX XF i       get MULX mul add} bind def
%        /y20 {IORY F2 i       get MULY mul add} bind def
%        /x21 {IORX XF i 1 add get MULX mul add} bind def
%        /y21 {IORY F2 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF i 2 add get MULX mul add} bind def
%        /y22 {IORY F2 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36
%stroke
%} for %j=0,1

/XP 0.50 FIS div def %Y
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def

               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put

               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put

               j 0 eq {FY3 i RLMKXU i get put} if
               j 1 eq {FY4 i RLMKXU i get put} if
               j 1 eq {FY5 i FY3 i get FY4 i get add put} if
              } for %i=0,38
      /XFX1 0.0 def
      /F01X1 10 XFX1 XU sub XP add XC mul exp def
      /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def
      /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def
      j 0 eq {/F0X1 RLMKXUX1 def} if
      j 1 eq {/F1X1 RLMKXUX1 def} if
      j 1 eq {/F2X1 F0X1 F1X1 add def} if
      } for %j=0,1


50 setlinewidth

%0 0 1 0 setcmykcolor
%IORX XFX1 MULX mul add -50 add
%IORY F0X1 MULY mul add         moveto 100 0 rlineto stroke
%IORX XFX1 MULX mul add
%IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke

%1 1 0 0.5 setcmykcolor [   ] 0 setdash %D-b
%0 3 36 {/i exch def  %i=0,3,36
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FY3 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FY3 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FY3 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36
%stroke

tfv3 [   ] 0 setdash %I-V3
0 3 36 {/i exch def  %i=0,3,36
        /x20 {IORX XF  i       get MULX mul add} bind def
        /y20 {IORY FY4 i       get MULY mul add} bind def
        /x21 {IORX XF  i 1 add get MULX mul add} bind def
        /y21 {IORY FY4 i 1 add get MULY mul add} bind def
        /x22 {IORX XF  i 2 add get MULX mul add} bind def
        /y22 {IORY FY4 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36
stroke

18 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF  i 2 FIS idiv  sub get MULX mul add} bind def
        /y20 {IORY FY4 i 2 FIS idiv  sub get MULY mul add} bind def
        newpath x20 y20 moveto ( ) show
        i 18 eq {tfn} if
        i 21 eq {0.25 0.25 0.0 0.5 setcmykcolor} if
        i 24 eq {0.25 0.25 0.0 0.0 setcmykcolor} if
        i 24 le {x20 y20 75 0 360 arc fill} if
        i 27 eq {tfw x20 y20 85 0 360 arc fill
                 tfn x20 y20 15 0 360 arc fill} if
        } for %i=21,3,27

%0 1 1 {/j exch def %j=0,1
%j 0 eq {0 0 0 0 setcmykcolor [   ] 0 setdash} if %DI-W
%j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B
%0 3 36 {/i exch def  %i=0,3,36
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FY5 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FY5 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FY5 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36
%stroke
%} for %j=0,1

/XP 1.0 FIS div  def %G
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def

               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put

               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put

               j 0 eq {FG3 i RLMKXU i get put} if
               j 1 eq {FG4 i RLMKXU i get put} if
               j 1 eq {FG5 i FG3 i get FG4 i get add put} if
              } for %i=0,38
      /XFX1 0.0 def
      /F01X1 10 XFX1 XU sub XP add XC mul exp def
      /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def
      /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def
      j 0 eq {/F0X1 RLMKXUX1 def} if
      j 1 eq {/F1X1 RLMKXUX1 def} if
      j 1 eq {/F2X1 F0X1 F1X1 add def} if
      } for %j=0,1


50 setlinewidth

%0 0 1 0 setcmykcolor
%IORX XFX1 MULX mul add -50 add
%IORY F0X1 MULY mul add         moveto 100 0 rlineto stroke
%IORX XFX1 MULX mul add
%IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke

%1 1 0 0.5 setcmykcolor [   ] 0 setdash %D-b
%0 3 36 {/i exch def  %i=0,3,36
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FG3 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FG3 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FG3 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36
%stroke

tfv2 [   ] 0 setdash %I-V2
0 3 36 {/i exch def  %i=0,3,36
        /x20 {IORX XF  i       get MULX mul add} bind def
        /y20 {IORY FG4 i       get MULY mul add} bind def
        /x21 {IORX XF  i 1 add get MULX mul add} bind def
        /y21 {IORY FG4 i 1 add get MULY mul add} bind def
        /x22 {IORX XF  i 2 add get MULX mul add} bind def
        /y22 {IORY FG4 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36
stroke

18 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF  i 4 FIS idiv  sub get MULX mul add} bind def
        /y20 {IORY FG4 i 4 FIS idiv  sub get MULY mul add} bind def
        newpath x20 y20 moveto ( ) show
        i 18 eq {tfn} if
        i 21 eq {0.5 0.5 0.0 0.5 setcmykcolor} if
        i 24 eq {0.5 0.5 0.0 0.0 setcmykcolor} if
        i 24 le {x20 y20 75 0 360 arc fill} if
        i 27 eq {tfw x20 y20 85 0 360 arc fill
                 tfn x20 y20 15 0 360 arc fill} if
        } for %i=21,3,27

%0 1 1 {/j exch def %j=0,1
%j 0 eq {0 0 0 0 setcmykcolor [   ] 0 setdash} if %DI-W
%j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B
%0 3 36 {/i exch def  %i=0,3,36
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FG5 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FG5 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FG5 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36
%stroke
%} for %j=0,1

/XP 1.5 FIS div  def %R
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def

               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put

               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put

               j 0 eq {FR3 i RLMKXU i get put} if
               j 1 eq {FR4 i RLMKXU i get put} if
               j 1 eq {FR5 i FR3 i get FR4 i get add put} if
              } for %i=0,38
      /XFX1 0.0 def
      /F01X1 10 XFX1 XU sub XP add XC mul exp def
      /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def
      /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def
      j 0 eq {/F0X1 RLMKXUX1 def} if
      j 1 eq {/F1X1 RLMKXUX1 def} if
      j 1 eq {/F2X1 F0X1 F1X1 add def} if
      } for %j=0,1


50 setlinewidth

%0 0 1 0 setcmykcolor
%IORX XFX1 MULX mul add -50 add
%IORY F0X1 MULY mul add         moveto 100 0 rlineto stroke
%IORX XFX1 MULX mul add
%IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke

%1 1 0 0.5 setcmykcolor [   ] 0 setdash %D-b
%0 3 36 {/i exch def  %i=0,3,36
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FR3 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FR3 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FR3 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36
%stroke

tfv1 [   ] 0 setdash %I-V1
0 3 36 {/i exch def  %i=0,3,36
        /x20 {IORX XF  i       get MULX mul add} bind def
        /y20 {IORY FR4 i       get MULY mul add} bind def
        /x21 {IORX XF  i 1 add get MULX mul add} bind def
        /y21 {IORY FR4 i 1 add get MULY mul add} bind def
        /x22 {IORX XF  i 2 add get MULX mul add} bind def
        /y22 {IORY FR4 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36
stroke

18 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF  i 6 FIS idiv  sub get MULX mul add} bind def
        /y20 {IORY FR4 i 6 FIS idiv  sub get MULY mul add} bind def
        newpath x20 y20 moveto ( ) show
        i 18 eq {tfn} if
        i 21 eq {0.75 0.75 0.0 0.5 setcmykcolor} if
        i 24 eq {0.75 0.75 0.0 0.0 setcmykcolor} if
        i 24 le {x20 y20 75 0 360 arc fill} if
        i 27 eq {tfw x20 y20 85 0 360 arc fill
                 tfn x20 y20 15 0 360 arc fill} if
        } for %i=21,3,27

%0 1 1 {/j exch def %j=0,1
%j 0 eq {0 0 0 0 setcmykcolor [   ] 0 setdash} if %DI-W
%j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B
%0 3 36 {/i exch def  %i=0,3,36
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FR5 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FR5 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FR5 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36
%stroke
%} for %j=0,1

/XP 2 FIS idiv  def %B
0 1 1 {/j exch def %j=0,1
       j 0 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def /XQ  1.0 def} if
       j 1 eq {/XK 1.0 def /XL 1.0 def /XM 1.0 def /XU 2.0 def
               FMC 1 eq {/XQ -2.0 def} {/XQ -1.0 def} ifelse} if
       %XC1=XK1/ln(10)=1.4/2.302585 = 0.434294 = 0.608011
       %XC2=XK2/ln(10)=1.0/2.302585 = 0.434294
       %e = 10**0.434294 = 2.71828182846 = e**1
       /XC XK 10 ln div def
       0 1 38 {/i exch def %i=0,38
               XF i DL i get log put

               %F01= 10**[c(x-u+p)]
               /F01 10 XF i get XU sub XP add XC mul exp def

               %R00KXU=1+1/{1+W2*10**[c(x-u+p)]}
               R00KXU i 1. 1. W2 F01 mul add div 1. add put

               %RLMKUX=XQ*{XL/[log(w2)]*log[Q00KXU]-XM}
               RLMKXU i XL W2 log div R00KXU i get log mul XM sub XQ mul put

               j 0 eq {FB3 i RLMKXU i get put} if
               j 1 eq {FB4 i RLMKXU i get put} if
               j 1 eq {FB5 i FB3 i get FB4 i get add put} if
              } for %i=0,38
      /XFX1 0.0 def
      /F01X1 10 XFX1 XU sub XP add XC mul exp def
      /R00KXUX1 1. 1. W2 F01X1 mul add div 1. add def
      /RLMKXUX1 XL W2 log div R00KXUX1 log mul XM sub XQ mul def
      j 0 eq {/F0X1 RLMKXUX1 def} if
      j 1 eq {/F1X1 RLMKXUX1 def} if
      j 1 eq {/F2X1 F0X1 F1X1 add def} if
      } for %j=0,1


50 setlinewidth

%0 0 1 0 setcmykcolor
%IORX XFX1 MULX mul add -50 add
%IORY F0X1 MULY mul add         moveto 100 0 rlineto stroke
%IORX XFX1 MULX mul add
%IORY F0X1 MULY mul add -50 add moveto 0 100 rlineto stroke

%1 1 0 0.5 setcmykcolor [   ] 0 setdash %D-b
%0 3 36 {/i exch def  %i=0,3,36
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FB3 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FB3 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FB3 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36
%stroke

tfv0 [   ] 0 setdash %I-V0
0 3 36 {/i exch def  %i=0,3,36
        /x20 {IORX XF  i       get MULX mul add} bind def
        /y20 {IORY FB4 i       get MULY mul add} bind def
        /x21 {IORX XF  i 1 add get MULX mul add} bind def
        /y21 {IORY FB4 i 1 add get MULY mul add} bind def
        /x22 {IORX XF  i 2 add get MULX mul add} bind def
        /y22 {IORY FB4 i 2 add get MULY mul add} bind def
        i 0 eq {newpath x20 y20 moveto} if
        x20 y20 x21 y21 x22 y22 curveto
        } for %i=0,3,36
stroke

18 3 27 {/i exch def  %i=21,3,27
        /x20 {IORX XF  i 8 FIS idiv sub get MULX mul add} bind def
        /y20 {IORY FB4 i 8 FIS idiv sub get MULY mul add} bind def
        newpath x20 y20 moveto ( ) show
        i 18 eq {tfn} if
        i 21 eq {1.0 1.0 0.0 0.5 setcmykcolor} if
        i 24 eq {1.0 1.0 0.0 0.0 setcmykcolor} if
        i 24 le {x20 y20 75 0 360 arc fill} if
        i 27 eq {tfw x20 y20 85 0 360 arc fill
                 tfn x20 y20 15 0 360 arc fill} if
        } for %i=21,3,27

%0 1 1 {/j exch def %j=0,1
%j 0 eq {0 0 0 0 setcmykcolor [   ] 0 setdash} if %DI-W
%j 1 eq {1 1 0 0 setcmykcolor [200 200] 0 setdash} if %DI-B
%0 3 36 {/i exch def  %i=0,3,36
%        /x20 {IORX XF  i       get MULX mul add} bind def
%        /y20 {IORY FB5 i       get MULY mul add} bind def
%        /x21 {IORX XF  i 1 add get MULX mul add} bind def
%        /y21 {IORY FB5 i 1 add get MULY mul add} bind def
%        /x22 {IORX XF  i 2 add get MULX mul add} bind def
%        /y22 {IORY FB5 i 2 add get MULY mul add} bind def
%        i 0 eq {newpath x20 y20 moveto} if
%        x20 y20 x21 y21 x22 y22 curveto
%        } for %i=0,3,36
%stroke
%} for %j=0,1

tfy [    ] 0 setdash
2250 1370 moveto 0000 0630 rlineto
0750 0000 rlineto stroke
tfr
2270 1370 moveto -530 0000 rlineto stroke

showpage
grestore

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 28 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 15

%line 379
%!PS-Adobe-3.0 EPSF-3.0 MF490-5
%%BoundingBox: 70 83 228 206
%! for061..76.dat aus (wrpos:empp8620.for)

%START PDFDE011.EPS
/pdfmark05 where {pop} {userdict /pdfmark05 /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/MG99/)
  /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 pdfmark05
[ /View [ /FitB ]
/DOCVIEW pdfmark05
%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

/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-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

/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-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

/nshow1 {TG  show} bind def
/kshow1 {TIG show} bind def
/bshow1 {TBG show} bind def
/bkshow1 {TBIG show} bind def
/ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def
/eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def

/nshow2 {TM  show} bind def
/kshow2 {TIM show} bind def
/bshow2 {TBM show} bind def
/bkshow2 {TBIM show} bind def
/ibshow2 {TBK 0 -50 rmoveto show 0 50 rmoveto} bind def
/ebshow2 {TBK 0 100 rmoveto show 0 -100 rmoveto} 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 setcmyk_olvcolor} bind def
/tfl {tzl setcmyk_olvcolor} bind def
/tfv {tzv setcmyk_olvcolor} bind def
/tfc {tzc setcmyk_olvcolor} bind def
/tfm {tzm setcmyk_olvcolor} bind def
/tfy {tzy setcmyk_olvcolor} bind def

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

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

/tfrz {tzrz setcmyk_olvcolor} bind def
/tfgz {tzgz setcmyk_olvcolor} bind def
/tfbz {tzbz setcmyk_olvcolor} bind def
/tfjz {tzjz setcmyk_olvcolor} bind def

%ANFA OUTLIN00 951204
/pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def
/pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def

/outxshowf {show} bind def

/outxshow {show} bind def

/outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
/outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
/outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def

/outshowf {setcmyk_olvcolor show} bind def

/outrecfi { %x y width heigth c m y k
   setcmyk_olvcolor rec fill} bind def

/outrecfi4 { %x y width heigth c m y k
  outrecfi} bind def

/outrecfi3 { %x y width heigth c m y k
  outrecfi} bind def

/outrecfi2 { %x y width heigth c m y k
  outrecfi} bind def

/outlinetos { %px py c m y k
   setcmyk_olvcolor lineto stroke} bind def

/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmyk_olvcolor stroke} bind def

%%EndProlog
gsave
%LANINDL2 START  20000505
/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

/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm  {6 lanind ne {pop} if} bind def

/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm  {/n exch def 6 lanind ne {n {pop} repeat} if} 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 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} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def} if %always independent of intended output

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
170 85 moveto (ME100-5N/MF490-5) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse
%(, B4_33_1) show %    ( B8620_4, M8220-5, B4_33_1, N=4_33_1) show

72 90 translate


/pixf 16.67 def 0.1667 pixf div MM dup scale

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

30 setlinewidth


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

050 3400 moveto (log) TBM tfw show 50 0 rmoveto (V) TBIM tfw show 30 0 rmoveto
TBM 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto
TBM 20 0 (-c\267) ashow (555) show 20 0 rmoveto (]) show (2) ebshow2

50 setlinewidth
[50] 0 setdash 050 3170 moveto 300 0 rlineto stroke
[ ] 0 setdash 30 setlinewidth
350 3100 moveto TBM tfw
(experimentell\255CIE) showde                                   %0MF490-5 00531
(experimental\255CIE) showen                                    %1MF490-5 00531
(experimental\255CIE) showes                                    %2MF490-5 00531
(experimental\255CIE) showfr                                    %3MF490-5 00531
(experimental\255CIE) showit                                    %4MF490-5 00531
(experimental\255CIE) showjp                                    %5MF490-5 00531

4700 500 moveto
(l) outSM 30 0 rmoveto (/nm) bshow2

2850 3400 moveto (log) TBM tfw show 30 0 rmoveto (P) TBIM tzo outshowf 50 0 rmoveto
TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto
TBM tfw 20 0 (-c\267) ashow (570) show 20 0 rmoveto (]) show (2) ebshow2

2850 3100 moveto (log) TBM tfw show 20 0 rmoveto (D) TBIM tzl outshowf 30 0 rmoveto
TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto
TBM tfw 20 0 (-c\267) ashow (540) show 20 0 rmoveto (]) show (2) ebshow2

2850 2800 moveto (log) TBM tfw show 30 0 rmoveto (T) TBIM tzv outshowf 50 0 rmoveto
TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto
TBM tfw 20 0 (-c\267) ashow (450) show 20 0 rmoveto (]) show (2) ebshow2

/tx [ (400) (500) (600) (700)] def
/ty [(0) (10) (20) (30) (40) (50)] def


050 3750 moveto TBM tfw       %B8620-04.xps
(relative Empfindlichkeit) showde                               %0MF490-5 01531
(relative sensitivty) showen                                    %1MF490-5 01531
(Sensibilidad relativa) showes                                  %2MF490-5 01531
(sensibilit\351 relative) showfr                                %3MF490-5 01531
(sensitivty relativo) showit                                    %4MF490-5 01531
(relative sensitivty) showjp                                    %5MF490-5 01531

050 2800 moveto (P) TBIM tzo outshowf
(, ) TBM tfw show (D) TBIM tzl outshowf
(, ) TBM tfw show (T) TBIM tzv outshowf
(, ) TBM tfw show (V) TBIM tfw show
(, ) TBM tfw show (V') TBIM tfn show

2900 2500 moveto (P) TBIM tzo outshowf
2600 2500 moveto (V) TBIM tfw show
2350 2500 moveto (D) TBIM tzl outshowf
1400 2500 moveto (T) TBIM tzv outshowf
2000 2500 moveto (V') TBIM tfn show

4000 2500 moveto TBM tfw
(Modell ) showde                                                %0MF490-5 02531
(model ) showen                                                 %1MF490-5 02531
(Modelo ) showes                                                %2MF490-5 02531
(mod\350le ) showfr                                             %3MF490-5 02531
(modello ) showit                                               %4MF490-5 02531
(model ) showjp                                                 %5MF490-5 02531

( l ) outSM

/ty [(0,0) (0,2) (0,4) (0,6) (0,8) (1,0) ] def

tfw
600 400 translate
50 setlinewidth
 0 0 moveto  340 12 mul 0 rlineto  stroke
 0 0 moveto  0 2000 rlineto  stroke
 0 2000  moveto 3200 0 rlineto stroke

TBM

%!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 -350 moveto tx i get exec show
        ixl 75 moveto 0 -150 rlineto stroke } for

%!x-Achse: 150 S-Einheiten = 2500*0.8 = 2000 Skalen-Einheiten

0 1 5 {/i exch def
       /iyt {-100 i 0400 mul add} def
       /iyl { 000 i 0400 mul add} def
        -550 iyt moveto ty i get exec show
         -75 iyl moveto 150 0 rlineto stroke } for

50 setlinewidth

 %!0 WRPOS:EMPP8620.FOR KURVT(J)Vn    0   0   8
 [   ] 0 setdash %Vn
      60      18 moveto % 385
     120      27     180      39     240      55 curveto % 390 395 400
     300      77     360     106     420     144 curveto % 405 410 415
     480     191     540     250     600     322 curveto % 420 425 430
     660     407     720     507     780     621 curveto % 435 440 445
     840     749     900     888     960    1036 curveto % 450 455 460
    1020    1189    1080    1344    1140    1493 curveto % 465 470 475
    1200    1633    1260    1756    1320    1859 curveto % 480 485 490
    1380    1936    1440    1984    1500    2000 curveto % 495 500 505
    1560    1984    1620    1936    1680    1859 curveto % 510 515 520
    1740    1756    1800    1633    1860    1493 curveto % 525 530 535
    1920    1344    1980    1189    2040    1036 curveto % 540 545 550
    2100     888    2160     749    2220     621 curveto % 555 560 565
    2280     507    2340     407    2400     322 curveto % 570 575 580
    2460     250    2520     191    2580     144 curveto % 585 590 595
    2640     106    2700      77    2760      55 curveto % 600 605 610
    2820      39    2880      27    2940      18 curveto % 615 620 625
    3000      12    3060       8    3120       5 curveto % 630 635 640
    3180       3    3240       2    3300       1 curveto % 645 650 655
    3360       0    3420       0    3480       0 curveto % 660 665 670
    3540       0    3600       0    3660       0 curveto % 675 680 685
    3720       0    3780       0    3840       0 curveto % 690 695 700
    3900       0    3960       0    4020       0 curveto % 705 710 715
 0.00 0.00 0.00 1.00 setcmyk_olvcolor stroke
 %!  380      1. 385      2. 390      3. 395      4. 400      6. 405      8.
 %!  410     11. 415     14. 420     19. 425     24. 430     31. 435     38.
 %!  440     47. 445     56. 450     67. 455     78. 460     89. 465    101.
 %!  470    112. 475    122. 480    132. 485    139. 490    145. 495    149.
 %!  500    150. 505    149. 510    145. 515    139. 520    132. 525    122.
 %!  530    112. 535    101. 540     89. 545     78. 550     67. 555     56.
 %!  560     47. 565     38. 570     31. 575     24. 580     19. 585     14.
 %!  590     11. 595      8. 600      6. 605      4. 610      3. 615      2.
 %!  620      1. 625      1. 630      1. 635      0. 640      0. 645      0.
 %!  650      0. 655      0. 660      0. 665      0. 670      0. 675      0.
 %!  680      0. 685      0. 690      0. 695      0. 700      0. 705      0.
 %!  710      0. 715      0. 720      0.
 [50] 0 setdash %Vn
      60       2 moveto % 385
     120       4     180       9     240      18 curveto % 390 395 400
     300      37     360      69     420     120 curveto % 405 410 415
     480     193     540     287     600     399 curveto % 420 425 430
     660     525     720     656     780     786 curveto % 435 440 445
     840     910     900    1026     960    1134 curveto % 450 455 460
    1020    1240    1080    1352    1140    1468 curveto % 465 470 475
    1200    1586    1260    1702    1320    1808 curveto % 480 485 490
    1380    1898    1440    1964    1500    1996 curveto % 495 500 505
    1560    1994    1620    1950    1680    1870 curveto % 510 515 520
    1740    1760    1800    1622    1860    1466 curveto % 525 530 535
    1920    1300    1980    1128    2040     962 curveto % 540 545 550
    2100     804    2160     657    2220     527 curveto % 555 560 565
    2280     415    2340     320    2400     242 curveto % 570 575 580
    2460     179    2520     131    2580      93 curveto % 585 590 595
    2640      66    2700      46    2760      31 curveto % 600 605 610
    2820      21    2880      14    2940       9 curveto % 615 620 625
    3000       6    3060       4    3120       2 curveto % 630 635 640
    3180       2    3240       1    3300       0 curveto % 645 650 655
    3360       0    3420       0    3480       0 curveto % 660 665 670
    3540       0    3600       0    3660       0 curveto % 675 680 685
    3720       0    3780       0    3840       0 curveto % 690 695 700
    3900       0    3960       0    4020       0 curveto % 705 710 715
 0.00 0.00 0.00 1.00 setcmyk_olvcolor stroke
 %!  380      0. 385      0. 390      1. 395      1. 400      3. 405      5.
 %!  410      9. 415     14. 420     22. 425     30. 430     39. 435     49.
 %!  440     59. 445     68. 450     77. 455     85. 460     93. 465    101.
 %!  470    110. 475    119. 480    128. 485    136. 490    142. 495    147.
 %!  500    150. 505    150. 510    146. 515    140. 520    132. 525    122.
 %!  530    110. 535     98. 540     85. 545     72. 550     60. 555     49.
 %!  560     40. 565     31. 570     24. 575     18. 580     13. 585     10.
 %!  590      7. 595      5. 600      3. 605      2. 610      2. 615      1.
 %!  620      1. 625      1. 630      0. 635      0. 640      0. 645      0.
 %!  650      0. 655      0. 660      0. 665      0. 670      0. 675      0.
 %!  680      0. 685      0. 690      0. 695      0. 700      0. 705      0.
 %!  710      0. 715      0. 720      0.
 %!1 WRPOS:EMPP8620.FOR KURVT(J)P     0   0   8
 [   ] 0 setdash %P
      60       0 moveto % 385
     120       0     180       0     240       0 curveto % 390 395 400
     300       0     360       0     420       0 curveto % 405 410 415
     480       1     540       2     600       3 curveto % 420 425 430
     660       5     720       8     780      12 curveto % 435 440 445
     840      18     900      27     960      39 curveto % 450 455 460
    1020      55    1080      77    1140     106 curveto % 465 470 475
    1200     144    1260     191    1320     250 curveto % 480 485 490
    1380     322    1440     407    1500     507 curveto % 495 500 505
    1560     621    1620     749    1680     888 curveto % 510 515 520
    1740    1036    1800    1189    1860    1344 curveto % 525 530 535
    1920    1493    1980    1633    2040    1756 curveto % 540 545 550
    2100    1859    2160    1936    2220    1984 curveto % 555 560 565
    2280    2000    2340    1984    2400    1936 curveto % 570 575 580
    2460    1859    2520    1756    2580    1633 curveto % 585 590 595
    2640    1493    2700    1344    2760    1189 curveto % 600 605 610
    2820    1036    2880     888    2940     749 curveto % 615 620 625
    3000     621    3060     507    3120     407 curveto % 630 635 640
    3180     322    3240     250    3300     191 curveto % 645 650 655
    3360     144    3420     106    3480      77 curveto % 660 665 670
    3540      55    3600      39    3660      27 curveto % 675 680 685
    3720      18    3780      12    3840       8 curveto % 690 695 700
    3900       5    3960       3    4020       2 curveto % 705 710 715
 tzo outstroke
 %!  380      0. 385      0. 390      0. 395      0. 400      0. 405      0.
 %!  410      0. 415      0. 420      0. 425      0. 430      0. 435      1.
 %!  440      1. 445      1. 450      2. 455      3. 460      4. 465      6.
 %!  470      8. 475     11. 480     14. 485     19. 490     24. 495     31.
 %!  500     38. 505     47. 510     56. 515     67. 520     78. 525     89.
 %!  530    101. 535    112. 540    122. 545    132. 550    139. 555    145.
 %!  560    149. 565    150. 570    149. 575    145. 580    139. 585    132.
 %!  590    122. 595    112. 600    101. 605     89. 610     78. 615     67.
 %!  620     56. 625     47. 630     38. 635     31. 640     24. 645     19.
 %!  650     14. 655     11. 660      8. 665      6. 670      4. 675      3.
 %!  680      2. 685      1. 690      1. 695      1. 700      0. 705      0.
 %!  710      0. 715      0. 720      0.
 [50] 0 setdash %P
      60       0 moveto % 385
     120       0     180       1     240       2 curveto % 390 395 400
     300       4     360       8     420      14 curveto % 405 410 415
     480      25     540      40     600      55 curveto % 420 425 430
     660      66     720      74     780      79 curveto % 435 440 445
     840      84     900      89     960      95 curveto % 450 455 460
    1020     103    1080     117    1140     140 curveto % 465 470 475
    1200     173    1260     214    1320     271 curveto % 480 485 490
    1380     347    1440     445    1500     576 curveto % 495 500 505
    1560     730    1620     907    1680    1088 curveto % 510 515 520
    1740    1249    1800    1396    1860    1522 curveto % 525 530 535
    1920    1630    1980    1724    2040    1802 curveto % 540 545 550
    2100    1871    2160    1927    2220    1967 curveto % 555 560 565
    2280    1992    2340    2000    2400    1990 curveto % 570 575 580
    2460    1958    2520    1907    2580    1839 curveto % 585 590 595
    2640    1748    2700    1641    2760    1513 curveto % 600 605 610
    2820    1373    2880    1219    2940    1051 curveto % 615 620 625
    3000     885    3060     737    3120     602 curveto % 630 635 640
    3180     481    3240     376    3300     288 curveto % 645 650 655
    3360     216    3420     159    3480     114 curveto % 660 665 670
    3540      83    3600      61    3660      42 curveto % 675 680 685
    3720      29    3780      20    3840      14 curveto % 690 695 700
    3900      10    3960       7    4020       5 curveto % 705 710 715
 tzo outstroke
 %!  380      0. 385      0. 390      0. 395      0. 400      0. 405      1.
 %!  410      1. 415      2. 420      3. 425      4. 430      5. 435      6.
 %!  440      6. 445      6. 450      7. 455      7. 460      8. 465      9.
 %!  470     11. 475     13. 480     16. 485     20. 490     26. 495     33.
 %!  500     43. 505     55. 510     68. 515     82. 520     94. 525    105.
 %!  530    114. 535    122. 540    129. 545    135. 550    140. 555    145.
 %!  560    148. 565    149. 570    150. 575    149. 580    147. 585    143.
 %!  590    138. 595    131. 600    123. 605    114. 610    103. 615     91.
 %!  620     79. 625     66. 630     55. 635     45. 640     36. 645     28.
 %!  650     22. 655     16. 660     12. 665      9. 670      6. 675      5.
 %!  680      3. 685      2. 690      2. 695      1. 700      1. 705      1.
 %!  710      0. 715      0. 720      0.
 %!2 WRPOS:EMPP8620.FOR KURVT(J)D     0   0   8
 [   ] 0 setdash %D
      60       0 moveto % 385
     120       0     180       1     240       2 curveto % 390 395 400
     300       3     360       5     420       8 curveto % 405 410 415
     480      12     540      18     600      27 curveto % 420 425 430
     660      39     720      55     780      77 curveto % 435 440 445
     840     106     900     144     960     191 curveto % 450 455 460
    1020     250    1080     322    1140     407 curveto % 465 470 475
    1200     507    1260     621    1320     749 curveto % 480 485 490
    1380     888    1440    1036    1500    1189 curveto % 495 500 505
    1560    1344    1620    1493    1680    1633 curveto % 510 515 520
    1740    1756    1800    1859    1860    1936 curveto % 525 530 535
    1920    1984    1980    2000    2040    1984 curveto % 540 545 550
    2100    1936    2160    1859    2220    1756 curveto % 555 560 565
    2280    1633    2340    1493    2400    1344 curveto % 570 575 580
    2460    1189    2520    1036    2580     888 curveto % 585 590 595
    2640     749    2700     621    2760     507 curveto % 600 605 610
    2820     407    2880     322    2940     250 curveto % 615 620 625
    3000     191    3060     144    3120     106 curveto % 630 635 640
    3180      77    3240      55    3300      39 curveto % 645 650 655
    3360      27    3420      18    3480      12 curveto % 660 665 670
    3540       8    3600       5    3660       3 curveto % 675 680 685
    3720       2    3780       1    3840       0 curveto % 690 695 700
    3900       0    3960       0    4020       0 curveto % 705 710 715
 tzl outstroke
 %!  380      0. 385      0. 390      0. 395      0. 400      0. 405      0.
 %!  410      1. 415      1. 420      1. 425      2. 430      3. 435      4.
 %!  440      6. 445      8. 450     11. 455     14. 460     19. 465     24.
 %!  470     31. 475     38. 480     47. 485     56. 490     67. 495     78.
 %!  500     89. 505    101. 510    112. 515    122. 520    132. 525    139.
 %!  530    145. 535    149. 540    150. 545    149. 550    145. 555    139.
 %!  560    132. 565    122. 570    112. 575    101. 580     89. 585     78.
 %!  590     67. 595     56. 600     47. 605     38. 610     31. 615     24.
 %!  620     19. 625     14. 630     11. 635      8. 640      6. 645      4.
 %!  650      3. 655      2. 660      1. 665      1. 670      1. 675      0.
 %!  680      0. 685      0. 690      0. 695      0. 700      0. 705      0.
 %!  710      0. 715      0. 720      0.
 [50] 0 setdash %D
      60       0 moveto % 385
     120       0     180       1     240       2 curveto % 390 395 400
     300       4     360       8     420      15 curveto % 405 410 415
     480      28     540      48     600      70 curveto % 420 425 430
     660      92     720     114     780     136 curveto % 435 440 445
     840     162     900     192     960     226 curveto % 450 455 460
    1020     261    1080     297    1140     340 curveto % 465 470 475
    1200     393    1260     455    1320     535 curveto % 480 485 490
    1380     644    1440     784    1500     969 curveto % 495 500 505
    1560    1174    1620    1393    1680    1597 curveto % 510 515 520
    1740    1752    1800    1869    1860    1946 curveto % 525 530 535
    1920    1989    1980    2000    2040    1982 curveto % 540 545 550
    2100    1938    2160    1869    2220    1773 curveto % 555 560 565
    2280    1654    2340    1514    2400    1359 curveto % 570 575 580
    2460    1192    2520    1023    2580     859 curveto % 585 590 595
    2640     709    2700     573    2760     457 curveto % 600 605 610
    2820     360    2880     280    2940     214 curveto % 615 620 625
    3000     161    3060     121    3120      90 curveto % 630 635 640
    3180      66    3240      48    3300      35 curveto % 645 650 655
    3360      25    3420      18    3480      12 curveto % 660 665 670
    3540       9    3600       6    3660       4 curveto % 675 680 685
    3720       3    3780       2    3840       1 curveto % 690 695 700
    3900       1    3960       0    4020       0 curveto % 705 710 715
 tzl outstroke
 %!  380      0. 385      0. 390      0. 395      0. 400      0. 405      1.
 %!  410      1. 415      2. 420      4. 425      5. 430      7. 435      9.
 %!  440     10. 445     12. 450     14. 455     17. 460     20. 465     22.
 %!  470     26. 475     30. 480     34. 485     40. 490     48. 495     59.
 %!  500     73. 505     88. 510    105. 515    120. 520    131. 525    140.
 %!  530    146. 535    149. 540    150. 545    149. 550    145. 555    140.
 %!  560    133. 565    124. 570    114. 575    102. 580     89. 585     77.
 %!  590     64. 595     53. 600     43. 605     34. 610     27. 615     21.
 %!  620     16. 625     12. 630      9. 635      7. 640      5. 645      4.
 %!  650      3. 655      2. 660      1. 665      1. 670      1. 675      0.
 %!  680      0. 685      0. 690      0. 695      0. 700      0. 705      0.
 %!  710      0. 715      0. 720      0.
 %!3 WRPOS:EMPP8620.FOR KURVT(J)T     0   0   8
 [   ] 0 setdash %T
      60     507 moveto % 385
     120     621     180     749     240     888 curveto % 390 395 400
     300    1036     360    1189     420    1344 curveto % 405 410 415
     480    1493     540    1633     600    1756 curveto % 420 425 430
     660    1859     720    1936     780    1984 curveto % 435 440 445
     840    2000     900    1984     960    1936 curveto % 450 455 460
    1020    1859    1080    1756    1140    1633 curveto % 465 470 475
    1200    1493    1260    1344    1320    1189 curveto % 480 485 490
    1380    1036    1440     888    1500     749 curveto % 495 500 505
    1560     621    1620     507    1680     407 curveto % 510 515 520
    1740     322    1800     250    1860     191 curveto % 525 530 535
    1920     144    1980     106    2040      77 curveto % 540 545 550
    2100      55    2160      39    2220      27 curveto % 555 560 565
    2280      18    2340      12    2400       8 curveto % 570 575 580
    2460       5    2520       3    2580       2 curveto % 585 590 595
    2640       1    2700       0    2760       0 curveto % 600 605 610
    2820       0    2880       0    2940       0 curveto % 615 620 625
    3000       0    3060       0    3120       0 curveto % 630 635 640
    3180       0    3240       0    3300       0 curveto % 645 650 655
    3360       0    3420       0    3480       0 curveto % 660 665 670
    3540       0    3600       0    3660       0 curveto % 675 680 685
    3720       0    3780       0    3840       0 curveto % 690 695 700
    3900       0    3960       0    4020       0 curveto % 705 710 715
 tzv outstroke
 %!  380     38. 385     47. 390     56. 395     67. 400     78. 405     89.
 %!  410    101. 415    112. 420    122. 425    132. 430    139. 435    145.
 %!  440    149. 445    150. 450    149. 455    145. 460    139. 465    132.
 %!  470    122. 475    112. 480    101. 485     89. 490     78. 495     67.
 %!  500     56. 505     47. 510     38. 515     31. 520     24. 525     19.
 %!  530     14. 535     11. 540      8. 545      6. 550      4. 555      3.
 %!  560      2. 565      1. 570      1. 575      1. 580      0. 585      0.
 %!  590      0. 595      0. 600      0. 605      0. 610      0. 615      0.
 %!  620      0. 625      0. 630      0. 635      0. 640      0. 645      0.
 %!  650      0. 655      0. 660      0. 665      0. 670      0. 675      0.
 %!  680      0. 685      0. 690      0. 695      0. 700      0. 705      0.
 %!  710      0. 715      0. 720      0.
 [50] 0 setdash %T
      60      11 moveto % 385
     120      22     180      40     240      76 curveto % 390 395 400
     300     123     360     232     420     416 curveto % 405 410 415
     480     724     540    1166     600    1555 curveto % 420 425 430
     660    1821     720    1960     780    2000 curveto % 435 440 445
     840    1988     900    1957     960    1873 curveto % 450 455 460
    1020    1714    1080    1445    1140    1169 curveto % 465 470 475
    1200     912    1260     691    1320     522 curveto % 480 485 490
    1380     396    1440     305    1500     238 curveto % 495 500 505
    1560     177    1620     125    1680      87 curveto % 510 515 520
    1740      64    1800      47    1860      31 curveto % 525 530 535
    1920      22    1980      15    2040       9 curveto % 540 545 550
    2100       6    2160       4    2220       3 curveto % 555 560 565
    2280       2    2340       2    2400       1 curveto % 570 575 580
    2460       1    2520       1    2580       1 curveto % 585 590 595
    2640       0    2700       0    2760       0 curveto % 600 605 610
    2820       0    2880       0    2940       0 curveto % 615 620 625
    3000       0    3060       0    3120       0 curveto % 630 635 640
    3180       0    3240       0    3300       0 curveto % 645 650 655
    3360       0    3420       0    3480       0 curveto % 660 665 670
    3540       0    3600       0    3660       0 curveto % 675 680 685
    3720       0    3780       0    3840       0 curveto % 690 695 700
    3900       0    3960       0    4020       0 curveto % 705 710 715
 tzv outstroke
 %!  380      1. 385      2. 390      3. 395      6. 400      9. 405     17.
 %!  410     31. 415     54. 420     87. 425    117. 430    137. 435    147.
 %!  440    150. 445    149. 450    147. 455    140. 460    129. 465    108.
 %!  470     88. 475     68. 480     52. 485     39. 490     30. 495     23.
 %!  500     18. 505     13. 510      9. 515      7. 520      5. 525      4.
 %!  530      2. 535      2. 540      1. 545      1. 550      0. 555      0.
 %!  560      0. 565      0. 570      0. 575      0. 580      0. 585      0.
 %!  590      0. 595      0. 600      0. 605      0. 610      0. 615      0.
 %!  620      0. 625      0. 630      0. 635      0. 640      0. 645      0.
 %!  650      0. 655      0. 660      0. 665      0. 670      0. 675      0.
 %!  680      0. 685      0. 690      0. 695      0. 700      0. 705      0.
 %!  710      0. 715      0. 720      0.
 %!4 WRPOS:EMPP8620.FOR KURVT(J)V     0   0   8
 [   ] 0 setdash %V
      60       0 moveto % 385
     120       0     180       0     240       0 curveto % 390 395 400
     300       1     360       2     420       3 curveto % 405 410 415
     480       5     540       8     600      12 curveto % 420 425 430
     660      18     720      27     780      39 curveto % 435 440 445
     840      55     900      77     960     106 curveto % 450 455 460
    1020     144    1080     191    1140     250 curveto % 465 470 475
    1200     322    1260     407    1320     507 curveto % 480 485 490
    1380     621    1440     749    1500     888 curveto % 495 500 505
    1560    1036    1620    1189    1680    1344 curveto % 510 515 520
    1740    1493    1800    1633    1860    1756 curveto % 525 530 535
    1920    1859    1980    1936    2040    1984 curveto % 540 545 550
    2100    2000    2160    1984    2220    1936 curveto % 555 560 565
    2280    1859    2340    1756    2400    1633 curveto % 570 575 580
    2460    1493    2520    1344    2580    1189 curveto % 585 590 595
    2640    1036    2700     888    2760     749 curveto % 600 605 610
    2820     621    2880     507    2940     407 curveto % 615 620 625
    3000     322    3060     250    3120     191 curveto % 630 635 640
    3180     144    3240     106    3300      77 curveto % 645 650 655
    3360      55    3420      39    3480      27 curveto % 660 665 670
    3540      18    3600      12    3660       8 curveto % 675 680 685
    3720       5    3780       3    3840       2 curveto % 690 695 700
    3900       1    3960       0    4020       0 curveto % 705 710 715
 0.00 0.00 0.00 0.00 setcmyk_olvcolor stroke
 %!  380      0. 385      0. 390      0. 395      0. 400      0. 405      0.
 %!  410      0. 415      0. 420      1. 425      1. 430      1. 435      2.
 %!  440      3. 445      4. 450      6. 455      8. 460     11. 465     14.
 %!  470     19. 475     24. 480     31. 485     38. 490     47. 495     56.
 %!  500     67. 505     78. 510     89. 515    101. 520    112. 525    122.
 %!  530    132. 535    139. 540    145. 545    149. 550    150. 555    149.
 %!  560    145. 565    139. 570    132. 575    122. 580    112. 585    101.
 %!  590     89. 595     78. 600     67. 605     56. 610     47. 615     38.
 %!  620     31. 625     24. 630     19. 635     14. 640     11. 645      8.
 %!  650      6. 655      4. 660      3. 665      2. 670      1. 675      1.
 %!  680      1. 685      0. 690      0. 695      0. 700      0. 705      0.
 %!  710      0. 715      0. 720      0.
 [50] 0 setdash %V
      60       0 moveto % 385
     120       0     180       0     240       0 curveto % 390 395 400
     300       1     360       2     420       4 curveto % 405 410 415
     480       8     540      14     600      23 curveto % 420 425 430
     660      33     720      46     780      59 curveto % 435 440 445
     840      76     900      96     960     120 curveto % 450 455 460
    1020     147    1080     181    1140     225 curveto % 465 470 475
    1200     278    1260     338    1320     416 curveto % 480 485 490
    1380     517    1440     646    1500     814 curveto % 495 500 505
    1560    1006    1620    1216    1680    1420 curveto % 510 515 520
    1740    1586    1800    1724    1860    1830 curveto % 525 530 535
    1920    1908    1980    1960    2040    1990 curveto % 540 545 550
    2100    2000    2160    1990    2220    1957 curveto % 555 560 565
    2280    1904    2340    1831    2400    1740 curveto % 570 575 580
    2460    1632    2520    1514    2580    1390 curveto % 585 590 595
    2640    1262    2700    1133    2760    1006 curveto % 600 605 610
    2820     882    2880     762    2940     642 curveto % 615 620 625
    3000     530    3060     434    3120     350 curveto % 630 635 640
    3180     276    3240     214    3300     163 curveto % 645 650 655
    3360     122    3420      89    3480      64 curveto % 660 665 670
    3540      46    3600      34    3660      23 curveto % 675 680 685
    3720      16    3780      11    3840       8 curveto % 690 695 700
    3900       5    3960       4    4020       2 curveto % 705 710 715
 0.00 0.00 0.00 0.00 setcmyk_olvcolor stroke
 %!  380      0. 385      0. 390      0. 395      0. 400      0. 405      0.
 %!  410      0. 415      1. 420      1. 425      2. 430      3. 435      3.
 %!  440      4. 445      6. 450      7. 455      9. 460     11. 465     14.
 %!  470     17. 475     21. 480     25. 485     31. 490     39. 495     48.
 %!  500     61. 505     75. 510     91. 515    107. 520    119. 525    129.
 %!  530    137. 535    143. 540    147. 545    149. 550    150. 555    149.
 %!  560    147. 565    143. 570    137. 575    131. 580    122. 585    114.
 %!  590    104. 595     95. 600     85. 605     75. 610     66. 615     57.
 %!  620     48. 625     40. 630     33. 635     26. 640     21. 645     16.
 %!  650     12. 655      9. 660      7. 665      5. 670      3. 675      3.
 %!  680      2. 685      1. 690      1. 695      1. 700      0. 705      0.
 %!  710      0. 715      0. 720      0.

showpage
grestore

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 16

%line 389
%!PS-Adobe-3.0 EPSF-3.0 MF490-6
%%BoundingBox: 70 83 228 206
%! for061..76.dat aus (wrpos:empp8620.for)

%START PDFDE011.EPS
/pdfmark06 where {pop} {userdict /pdfmark06 /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/MG99/)
  /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 pdfmark06
[ /View [ /FitB ]
/DOCVIEW pdfmark06
%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

/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-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

/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-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

/nshow1 {TG  show} bind def
/kshow1 {TIG show} bind def
/bshow1 {TBG show} bind def
/bkshow1 {TBIG show} bind def
/ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def
/eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def

/nshow2 {TM  show} bind def
/kshow2 {TIM show} bind def
/bshow2 {TBM show} bind def
/bkshow2 {TBIM show} bind def
/ibshow2 {TBK 0 -50 rmoveto show 0 50 rmoveto} bind def
/ebshow2 {TBK 0 100 rmoveto show 0 -100 rmoveto} 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 setcmyk_olvcolor} bind def
/tfl {tzl setcmyk_olvcolor} bind def
/tfv {tzv setcmyk_olvcolor} bind def
/tfc {tzc setcmyk_olvcolor} bind def
/tfm {tzm setcmyk_olvcolor} bind def
/tfy {tzy setcmyk_olvcolor} bind def

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

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

/tfrz {tzrz setcmyk_olvcolor} bind def
/tfgz {tzgz setcmyk_olvcolor} bind def
/tfbz {tzbz setcmyk_olvcolor} bind def
/tfjz {tzjz setcmyk_olvcolor} bind def

%ANFA OUTLIN00 951204
/pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def
/pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def

/outxshowf {show} bind def

/outxshow {show} bind def

/outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
/outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
/outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def

/outshowf {setcmyk_olvcolor show} bind def

/outrecfi { %x y width heigth c m y k
   setcmyk_olvcolor rec fill} bind def

/outrecfi4 { %x y width heigth c m y k
  outrecfi} bind def

/outrecfi3 { %x y width heigth c m y k
  outrecfi} bind def

/outrecfi2 { %x y width heigth c m y k
  outrecfi} bind def

/outlinetos { %px py c m y k
   setcmyk_olvcolor lineto stroke} bind def

/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmyk_olvcolor stroke} 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

/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm  {6 lanind ne {pop} if} bind def

/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm  {/n exch def 6 lanind ne {n {pop} repeat} if} 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 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} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def} if %always independent of intended output

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
170 85 moveto (ME100-6N/MF490-6) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse
%(, B4_33_2) show %    ( B8620_8, M8220-6, B4_33_2, N=4_33_2) show

72 90 translate


/pixf 16.67 def 0.1667 pixf div MM dup scale

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

30 setlinewidth


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

050 3400 moveto (log) TBM tfw show 50 0 rmoveto (V) TBIM tfw show 30 0 rmoveto
TBM 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto
TBM 20 0 (-c\267) ashow (555) show 20 0 rmoveto (]) show (2) ebshow2

50 setlinewidth
[50] 0 setdash 050 3170 moveto 300 0 rlineto stroke
[ ] 0 setdash 30 setlinewidth
350 3100 moveto TBM tfw
(experimentell\255CIE) showde                                   %0MF490-6 00532
(experimental\255CIE) showen                                    %1MF490-6 00532
(experimental\255CIE) showes                                    %2MF490-6 00532
(experimental\255CIE) showfr                                    %3MF490-6 00532
(experimental\255CIE) showit                                    %4MF490-6 00532
(experimental\255CIE) showjp                                    %5MF490-6 00532

4700 500 moveto
(l) outSM 30 0 rmoveto (/nm) bshow2

2850 3400 moveto (log) TBM tfw show 30 0 rmoveto (P) TBIM tzo outshowf 50 0 rmoveto
TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto
TBM tfw 20 0 (-c\267) ashow (570) show 20 0 rmoveto (]) show (2) ebshow2

2850 3100 moveto (log) TBM tfw show 20 0 rmoveto (D) TBIM tzl outshowf 30 0 rmoveto
TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto
TBM tfw 20 0 (-c\267) ashow (540) show 20 0 rmoveto (]) show (2) ebshow2

2850 2800 moveto (log) TBM tfw show 30 0 rmoveto (T) TBIM tzv outshowf 50 0 rmoveto
TBM tfw 20 0 (=[c\267) ashow tfw (l) outSM 30 0 rmoveto
TBM tfw 20 0 (-c\267) ashow (450) show 20 0 rmoveto (]) show (2) ebshow2

/tx [ (400) (500) (600) (700)] def
/ty [(0) (10) (20) (30) (40) (50)] def


050 3750 moveto TBM tfw       %B8620-08.xps
(log (relative Empfindlichkeit)) showde                         %0MF490-6 01532
(log (relative sensitivty)) showen                              %1MF490-6 01532
(log (Sensibilidad relativa)) showes                            %2MF490-6 01532
(log (sensibilit\351 relative)) showfr                          %3MF490-6 01532
(log (sensitivty relativo)) showit                              %4MF490-6 01532
(log (relative sensitivty)) showjp                              %5MF490-6 01532

050 2800 moveto (log [ ) TBM tfw show (P) TBIM tzo outshowf
(, ) TBM tfw show (V) TBIM tfw show
(, ) TBM tfw show (D) TBIM tzl outshowf
(, ) TBM tfw show (V') TBIM tfn show
(, ) TBM tfw show (T) TBIM tzv outshowf ( ]) TBM tfw show

2900 2500 moveto (P) TBIM tzo outshowf
2600 2500 moveto (V) TBIM tfw show
2350 2500 moveto (D) TBIM tzl outshowf
1400 2500 moveto (T) TBIM tzv outshowf
2000 2500 moveto (V') TBIM tfn show

4000 2500 moveto TBM tfw
(Modell ) showde                                                %0MF490-6 02532
(model ) showen                                                 %1MF490-6 02532
(Modelo ) showes                                                %2MF490-6 02532
(mod\350le) showfr                                              %3MF490-6 02532
(modello ) showit                                               %4MF490-6 02532
(model ) showjp                                                 %5MF490-6 02532

( l ) outSM

/ty [() ( -2) ( ) ( -1) ( ) (   0) ] def

tfw
600 400 translate
50 setlinewidth
 0 0 moveto  340 12 mul 0 rlineto  stroke
 0 0 moveto  0 2000 rlineto  stroke
 0 2000  moveto 3200 0 rlineto stroke

TBM

%!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 -350 moveto tx i get exec show
        ixl 75 moveto 0 -150 rlineto stroke } for

%!x-Achse: 150 S-Einheiten = 2500*0.8 = 2000 Skalen-Einheiten

0 1 5 {/i exch def
       /iyt {-100 i 0400 mul add} def
       /iyl { 000 i 0400 mul add} def
        -550 iyt moveto ty i get exec show
         -75 iyl moveto 150 0 rlineto stroke } for

tfz 0 setlinewidth % fuer clip

0 0  moveto 4800 0 rlineto 0  2050 rlineto
           -4800 0 rlineto 0 -2050 rlineto clip stroke

50 setlinewidth

 %!0 WRPOS:EMPP8620.FOR KURVT(J)Vn    0   1   8
 [   ] 0 setdash %Vn
      60     375 moveto % 385
     120     508     180     635     240     756 curveto % 390 395 400
     300     872     360     982     420    1086 curveto % 405 410 415
     480    1185     540    1278     600    1365 curveto % 420 425 430
     660    1447     720    1523     780    1594 curveto % 435 440 445
     840    1659     900    1718     960    1771 curveto % 450 455 460
    1020    1819    1080    1862    1140    1898 curveto % 465 470 475
    1200    1929    1260    1955    1320    1975 curveto % 480 485 490
    1380    1989    1440    1997    1500    2000 curveto % 495 500 505
    1560    1997    1620    1989    1680    1975 curveto % 510 515 520
    1740    1955    1800    1929    1860    1898 curveto % 525 530 535
    1920    1862    1980    1819    2040    1771 curveto % 540 545 550
    2100    1718    2160    1659    2220    1594 curveto % 555 560 565
    2280    1523    2340    1447    2400    1365 curveto % 570 575 580
    2460    1278    2520    1185    2580    1086 curveto % 585 590 595
    2640     982    2700     872    2760     756 curveto % 600 605 610
    2820     635    2880     508    2940     375 curveto % 615 620 625
    3000     237    3060      93    3120     -55 curveto % 630 635 640
    3180    -210    3240    -371    3300    -537 curveto % 645 650 655
    3360    -710    3420    -887    3480   -1071 curveto % 660 665 670
    3540   -1260    3600   -1454    3660   -1654 curveto % 675 680 685
    3720   -1860    3780   -2072    3840   -2289 curveto % 690 695 700
    3900   -2512    3960   -2740    4020   -2974 curveto % 705 710 715
 0.00 0.00 0.00 1.00 setcmyk_olvcolor stroke
 %!  380     28. 385     38. 390     48. 395     57. 400     65. 405     74.
 %!  410     81. 415     89. 420     96. 425    102. 430    109. 435    114.
 %!  440    120. 445    124. 450    129. 455    133. 460    136. 465    140.
 %!  470    142. 475    145. 480    147. 485    148. 490    149. 495    150.
 %!  500    150. 505    150. 510    149. 515    148. 520    147. 525    145.
 %!  530    142. 535    140. 540    136. 545    133. 550    129. 555    124.
 %!  560    120. 565    114. 570    109. 575    102. 580     96. 585     89.
 %!  590     81. 595     74. 600     65. 605     57. 610     48. 615     38.
 %!  620     28. 625     18. 630      7. 635     -4. 640    -16. 645    -28.
 %!  650    -40. 655    -53. 660    -67. 665    -80. 670    -94. 675   -109.
 %!  680   -124. 685   -140. 690   -155. 695   -172. 700   -188. 705   -206.
 %!  710   -223. 715   -241. 720   -259.
 [50] 0 setdash %Vn
      60    -364 moveto % 385
     120    -124     180     124     240     374 curveto % 390 395 400
     300     614     360     833     420    1025 curveto % 405 410 415
     480    1188     540    1325     600    1440 curveto % 420 425 430
     660    1535     720    1613     780    1675 curveto % 435 440 445
     840    1726     900    1768     960    1803 curveto % 450 455 460
    1020    1834    1080    1864    1140    1892 curveto % 465 470 475
    1200    1919    1260    1944    1320    1965 curveto % 480 485 490
    1380    1982    1440    1994    1500    1999 curveto % 495 500 505
    1560    1999    1620    1991    1680    1977 curveto % 510 515 520
    1740    1955    1800    1927    1860    1892 curveto % 525 530 535
    1920    1850    1980    1801    2040    1746 curveto % 540 545 550
    2100    1683    2160    1613    2220    1537 curveto % 555 560 565
    2280    1454    2340    1364    2400    1267 curveto % 570 575 580
    2460    1163    2520    1053    2580     937 curveto % 585 590 595
    2640     816    2700     691    2760     561 curveto % 600 605 610
    2820     429    2880     294    2940     157 curveto % 615 620 625
    3000      18    3060    -120    3120    -259 curveto % 630 635 640
    3180    -398    3240    -535    3300    -670 curveto % 645 650 655
    3360    -803    3420    -934    3480   -1064 curveto % 660 665 670
    3540   -1191    3600   -1316    3660   -1440 curveto % 675 680 685
    3720   -1561    3780   -1681    3840   -1800 curveto % 690 695 700
    3900   -1916    3960   -2031    4020   -2144 curveto % 705 710 715
 0.00 0.00 0.00 1.00 setcmyk_olvcolor stroke
 %!  380    -27. 385     -9. 390      9. 395     28. 400     46. 405     63.
 %!  410     77. 415     89. 420     99. 425    108. 430    115. 435    121.
 %!  440    126. 445    129. 450    133. 455    135. 460    138. 465    140.
 %!  470    142. 475    144. 480    146. 485    147. 490    149. 495    150.
 %!  500    150. 505    150. 510    149. 515    148. 520    147. 525    145.
 %!  530    142. 535    139. 540    135. 545    131. 550    126. 555    121.
 %!  560    115. 565    109. 570    102. 575     95. 580     87. 585     79.
 %!  590     70. 595     61. 600     52. 605     42. 610     32. 615     22.
 %!  620     12. 625      1. 630     -9. 635    -19. 640    -30. 645    -40.
 %!  650    -50. 655    -60. 660    -70. 665    -80. 670    -89. 675    -99.
 %!  680   -108. 685   -117. 690   -126. 695   -135. 700   -144. 705   -152.
 %!  710   -161. 715   -169. 720   -177.
 %!1 WRPOS:EMPP8620.FOR KURVT(J)P     0   1   8
 [   ] 0 setdash %P
      60   -1860 moveto % 385
     120   -1654     180   -1454     240   -1260 curveto % 390 395 400
     300   -1071     360    -887     420    -710 curveto % 405 410 415
     480    -537     540    -371     600    -210 curveto % 420 425 430
     660     -55     720      93     780     237 curveto % 435 440 445
     840     375     900     508     960     635 curveto % 450 455 460
    1020     756    1080     872    1140     982 curveto % 465 470 475
    1200    1086    1260    1185    1320    1278 curveto % 480 485 490
    1380    1365    1440    1447    1500    1523 curveto % 495 500 505
    1560    1594    1620    1659    1680    1718 curveto % 510 515 520
    1740    1771    1800    1819    1860    1862 curveto % 525 530 535
    1920    1898    1980    1929    2040    1955 curveto % 540 545 550
    2100    1975    2160    1989    2220    1997 curveto % 555 560 565
    2280    2000    2340    1997    2400    1989 curveto % 570 575 580
    2460    1975    2520    1955    2580    1929 curveto % 585 590 595
    2640    1898    2700    1862    2760    1819 curveto % 600 605 610
    2820    1771    2880    1718    2940    1659 curveto % 615 620 625
    3000    1594    3060    1523    3120    1447 curveto % 630 635 640
    3180    1365    3240    1278    3300    1185 curveto % 645 650 655
    3360    1086    3420     982    3480     872 curveto % 660 665 670
    3540     756    3600     635    3660     508 curveto % 675 680 685
    3720     375    3780     237    3840      93 curveto % 690 695 700
    3900     -55    3960    -210    4020    -371 curveto % 705 710 715
 tzo outstroke
 %!  380   -140. 385   -124. 390   -109. 395    -94. 400    -80. 405    -67.
 %!  410    -53. 415    -40. 420    -28. 425    -16. 430     -4. 435      7.
 %!  440     18. 445     28. 450     38. 455     48. 460     57. 465     65.
 %!  470     74. 475     81. 480     89. 485     96. 490    102. 495    109.
 %!  500    114. 505    120. 510    124. 515    129. 520    133. 525    136.
 %!  530    140. 535    142. 540    145. 545    147. 550    148. 555    149.
 %!  560    150. 565    150. 570    150. 575    149. 580    148. 585    147.
 %!  590    145. 595    142. 600    140. 605    136. 610    133. 615    129.
 %!  620    124. 625    120. 630    114. 635    109. 640    102. 645     96.
 %!  650     89. 655     81. 660     74. 665     65. 670     57. 675     48.
 %!  680     38. 685     28. 690     18. 695      7. 700     -4. 705    -16.
 %!  710    -28. 715    -40. 720    -53.
 [50] 0 setdash %P
      60    -925 moveto % 385
     120    -705     180    -502     240    -288 curveto % 390 395 400
     300    -123     360      92     420     290 curveto % 405 410 415
     480     480     540     647     600     752 curveto % 420 425 430
     660     816     720     856     780     880 curveto % 435 440 445
     840     899     900     919     960     941 curveto % 450 455 460
    1020     971    1080    1014    1140    1076 curveto % 465 470 475
    1200    1150    1260    1224    1320    1306 curveto % 480 485 490
    1380    1392    1440    1478    1500    1568 curveto % 495 500 505
    1560    1650    1620    1725    1680    1788 curveto % 510 515 520
    1740    1836    1800    1875    1860    1905 curveto % 525 530 535
    1920    1929    1980    1948    2040    1964 curveto % 540 545 550
    2100    1977    2160    1987    2220    1994 curveto % 555 560 565
    2280    1999    2340    2000    2400    1998 curveto % 570 575 580
    2460    1993    2520    1983    2580    1971 curveto % 585 590 595
    2640    1953    2700    1931    2760    1903 curveto % 600 605 610
    2820    1869    2880    1828    2940    1777 curveto % 615 620 625
    3000    1717    3060    1653    3120    1583 curveto % 630 635 640
    3180    1505    3240    1419    3300    1327 curveto % 645 650 655
    3360    1228    3420    1120    3480    1006 curveto % 660 665 670
    3540     895    3600     787    3660     665 curveto % 675 680 685
    3720     535    3780     410    3840     295 curveto % 690 695 700
    3900     178    3960      60    4020     -58 curveto % 705 710 715
 tzo outstroke
 %!  380    -69. 385    -53. 390    -38. 395    -22. 400     -9. 405      7.
 %!  410     22. 415     36. 420     49. 425     56. 430     61. 435     64.
 %!  440     66. 445     67. 450     69. 455     71. 460     73. 465     76.
 %!  470     81. 475     86. 480     92. 485     98. 490    104. 495    111.
 %!  500    118. 505    124. 510    129. 515    134. 520    138. 525    141.
 %!  530    143. 535    145. 540    146. 545    147. 550    148. 555    149.
 %!  560    150. 565    150. 570    150. 575    150. 580    149. 585    149.
 %!  590    148. 595    146. 600    145. 605    143. 610    140. 615    137.
 %!  620    133. 625    129. 630    124. 635    119. 640    113. 645    106.
 %!  650    100. 655     92. 660     84. 665     75. 670     67. 675     59.
 %!  680     50. 685     40. 690     31. 695     22. 700     13. 705      5.
 %!  710     -4. 715    -13. 720    -23.
 %!2 WRPOS:EMPP8620.FOR KURVT(J)D     0   1   8
 [   ] 0 setdash %D
      60    -887 moveto % 385
     120    -710     180    -537     240    -371 curveto % 390 395 400
     300    -210     360     -55     420      93 curveto % 405 410 415
     480     237     540     375     600     508 curveto % 420 425 430
     660     635     720     756     780     872 curveto % 435 440 445
     840     982     900    1086     960    1185 curveto % 450 455 460
    1020    1278    1080    1365    1140    1447 curveto % 465 470 475
    1200    1523    1260    1594    1320    1659 curveto % 480 485 490
    1380    1718    1440    1771    1500    1819 curveto % 495 500 505
    1560    1862    1620    1898    1680    1929 curveto % 510 515 520
    1740    1955    1800    1975    1860    1989 curveto % 525 530 535
    1920    1997    1980    2000    2040    1997 curveto % 540 545 550
    2100    1989    2160    1975    2220    1955 curveto % 555 560 565
    2280    1929    2340    1898    2400    1862 curveto % 570 575 580
    2460    1819    2520    1771    2580    1718 curveto % 585 590 595
    2640    1659    2700    1594    2760    1523 curveto % 600 605 610
    2820    1447    2880    1365    2940    1278 curveto % 615 620 625
    3000    1185    3060    1086    3120     982 curveto % 630 635 640
    3180     872    3240     756    3300     635 curveto % 645 650 655
    3360     508    3420     375    3480     237 curveto % 660 665 670
    3540      93    3600     -55    3660    -210 curveto % 675 680 685
    3720    -371    3780    -537    3840    -710 curveto % 690 695 700
    3900    -887    3960   -1071    4020   -1260 curveto % 705 710 715
 tzl outstroke
 %!  380    -67. 385    -53. 390    -40. 395    -28. 400    -16. 405     -4.
 %!  410      7. 415     18. 420     28. 425     38. 430     48. 435     57.
 %!  440     65. 445     74. 450     81. 455     89. 460     96. 465    102.
 %!  470    109. 475    114. 480    120. 485    124. 490    129. 495    133.
 %!  500    136. 505    140. 510    142. 515    145. 520    147. 525    148.
 %!  530    149. 535    150. 540    150. 545    150. 550    149. 555    148.
 %!  560    147. 565    145. 570    142. 575    140. 580    136. 585    133.
 %!  590    129. 595    124. 600    120. 605    114. 610    109. 615    102.
 %!  620     96. 625     89. 630     81. 635     74. 640     65. 645     57.
 %!  650     48. 655     38. 660     28. 665     18. 670      7. 675     -4.
 %!  680    -16. 685    -28. 690    -40. 695    -53. 700    -67. 705    -80.
 %!  710    -94. 715   -109. 720   -124.
 [50] 0 setdash %D
      60    -934 moveto % 385
     120    -710     180    -502     240    -285 curveto % 390 395 400
     300    -114     360     109     420     316 curveto % 405 410 415
     480     519     540     707     600     838 curveto % 420 425 430
     660     934     720    1007     780    1068 curveto % 435 440 445
     840    1127     900    1186     960    1242 curveto % 450 455 460
    1020    1292    1080    1337    1140    1385 curveto % 465 470 475
    1200    1435    1260    1485    1320    1542 curveto % 480 485 490
    1380    1606    1440    1675    1500    1748 curveto % 495 500 505
    1560    1815    1620    1874    1680    1922 curveto % 510 515 520
    1740    1954    1800    1976    1860    1990 curveto % 525 530 535
    1920    1998    1980    2000    2040    1997 curveto % 540 545 550
    2100    1989    2160    1976    2220    1958 curveto % 555 560 565
    2280    1934    2340    1903    2400    1866 curveto % 570 575 580
    2460    1820    2520    1767    2580    1707 curveto % 585 590 595
    2640    1640    2700    1566    2760    1487 curveto % 600 605 610
    2820    1404    2880    1317    2940    1224 curveto % 615 620 625
    3000    1126    3060    1026    3120     923 curveto % 630 635 640
    3180     816    3240     707    3300     597 curveto % 645 650 655
    3360     482    3420     364    3480     242 curveto % 660 665 670
    3540     124    3600       9    3660    -119 curveto % 675 680 685
    3720    -251    3780    -378    3840    -495 curveto % 690 695 700
    3900    -612    3960    -729    4020    -847 curveto % 705 710 715
 tzl outstroke
 %!  380    -70. 385    -53. 390    -38. 395    -21. 400     -9. 405      8.
 %!  410     24. 415     39. 420     53. 425     63. 430     70. 435     76.
 %!  440     80. 445     85. 450     89. 455     93. 460     97. 465    100.
 %!  470    104. 475    108. 480    111. 485    116. 490    120. 495    126.
 %!  500    131. 505    136. 510    141. 515    144. 520    147. 525    148.
 %!  530    149. 535    150. 540    150. 545    150. 550    149. 555    148.
 %!  560    147. 565    145. 570    143. 575    140. 580    137. 585    133.
 %!  590    128. 595    123. 600    117. 605    112. 610    105. 615     99.
 %!  620     92. 625     84. 630     77. 635     69. 640     61. 645     53.
 %!  650     45. 655     36. 660     27. 665     18. 670      9. 675      1.
 %!  680     -9. 685    -19. 690    -28. 695    -37. 700    -46. 705    -55.
 %!  710    -64. 715    -73. 720    -82.
 %!3 WRPOS:EMPP8620.FOR KURVT(J)T     0   1   8
 [   ] 0 setdash %T
      60    1523 moveto % 385
     120    1594     180    1659     240    1718 curveto % 390 395 400
     300    1771     360    1819     420    1862 curveto % 405 410 415
     480    1898     540    1929     600    1955 curveto % 420 425 430
     660    1975     720    1989     780    1997 curveto % 435 440 445
     840    2000     900    1997     960    1989 curveto % 450 455 460
    1020    1975    1080    1955    1140    1929 curveto % 465 470 475
    1200    1898    1260    1862    1320    1819 curveto % 480 485 490
    1380    1771    1440    1718    1500    1659 curveto % 495 500 505
    1560    1594    1620    1523    1680    1447 curveto % 510 515 520
    1740    1365    1800    1278    1860    1185 curveto % 525 530 535
    1920    1086    1980     982    2040     872 curveto % 540 545 550
    2100     756    2160     635    2220     508 curveto % 555 560 565
    2280     375    2340     237    2400      93 curveto % 570 575 580
    2460     -55    2520    -210    2580    -371 curveto % 585 590 595
    2640    -537    2700    -710    2760    -887 curveto % 600 605 610
    2820   -1071    2880   -1260    2940   -1454 curveto % 615 620 625
    3000   -1654    3060   -1860    3120   -2072 curveto % 630 635 640
    3180   -2289    3240   -2512    3300   -2740 curveto % 645 650 655
    3360   -2974    3420   -3214    3480   -3459 curveto % 660 665 670
    3540   -3710    3600   -3967    3660   -4229 curveto % 675 680 685
    3720   -4497    3780   -4771    3840   -5050 curveto % 690 695 700
    3900   -5335    3960   -5626    4020   -5922 curveto % 705 710 715
 tzv outstroke
 %!  380    114. 385    120. 390    124. 395    129. 400    133. 405    136.
 %!  410    140. 415    142. 420    145. 425    147. 430    148. 435    149.
 %!  440    150. 445    150. 450    150. 455    149. 460    148. 465    147.
 %!  470    145. 475    142. 480    140. 485    136. 490    133. 495    129.
 %!  500    124. 505    120. 510    114. 515    109. 520    102. 525     96.
 %!  530     89. 535     81. 540     74. 545     65. 550     57. 555     48.
 %!  560     38. 565     28. 570     18. 575      7. 580     -4. 585    -16.
 %!  590    -28. 595    -40. 600    -53. 605    -67. 610    -80. 615    -94.
 %!  620   -109. 625   -124. 630   -140. 635   -155. 640   -172. 645   -188.
 %!  650   -206. 655   -223. 660   -241. 665   -259. 670   -278. 675   -298.
 %!  680   -317. 685   -337. 690   -358. 695   -379. 700   -400. 705   -422.
 %!  710   -444. 715   -467. 720   -490.
 [50] 0 setdash %T
      60     217 moveto % 385
     120     440     180     646     240     864 curveto % 390 395 400
     300    1033     360    1252     420    1455 curveto % 405 410 415
     480    1647     540    1812     600    1912 curveto % 420 425 430
     660    1967     720    1993     780    2000 curveto % 435 440 445
     840    1998     900    1992     960    1977 curveto % 450 455 460
    1020    1946    1080    1887    1140    1813 curveto % 465 470 475
    1200    1727    1260    1631    1320    1533 curveto % 480 485 490
    1380    1437    1440    1347    1500    1260 curveto % 495 500 505
    1560    1158    1620    1037    1680     914 curveto % 510 515 520
    1740     805    1800     699    1860     561 curveto % 525 530 535
    1920     445    1980     300    2040     152 curveto % 540 545 550
    2100       6    2160    -127    2220    -249 curveto % 555 560 565
    2280    -343    2340    -396    2400    -426 curveto % 570 575 580
    2460    -484    2520    -567    2580    -600 curveto % 585 590 595
    2640    -678    2700    -778    2760    -975 curveto % 600 605 610
    2820   -1096    2880   -1178    2940   -1401 curveto % 615 620 625
    3000   -1641    3060   -1819    3120   -1960 curveto % 630 635 640
    3180   -2201    3240   -2201    3300   -2201 curveto % 645 650 655
    3360   -2201    3420   -2201    3480   -2201 curveto % 660 665 670
    3540   -2201    3600   -2201    3660   -2201 curveto % 675 680 685
    3720   -2201    3780   -2201    3840   -2201 curveto % 690 695 700
    3900   -2201    3960   -2201    4020   -2201 curveto % 705 710 715
 tzv outstroke
 %!  380     16. 385     33. 390     48. 395     65. 400     77. 405     94.
 %!  410    109. 415    124. 420    136. 425    143. 430    148. 435    149.
 %!  440    150. 445    150. 450    149. 455    148. 460    146. 465    142.
 %!  470    136. 475    130. 480    122. 485    115. 490    108. 495    101.
 %!  500     95. 505     87. 510     78. 515     69. 520     60. 525     52.
 %!  530     42. 535     33. 540     23. 545     11. 550      1. 555    -10.
 %!  560    -19. 565    -26. 570    -30. 575    -32. 580    -36. 585    -43.
 %!  590    -45. 595    -51. 600    -58. 605    -73. 610    -82. 615    -88.
 %!  620   -105. 625   -123. 630   -136. 635   -147. 640   -165. 645   -165.
 %!  650   -165. 655   -165. 660   -165. 665   -165. 670   -165. 675   -165.
 %!  680   -165. 685   -165. 690   -165. 695   -165. 700   -165. 705   -165.
 %!  710   -165. 715   -165. 720   -165.
 %!4 WRPOS:EMPP8620.FOR KURVT(J)V     0   1   8
 [   ] 0 setdash %V
      60   -1260 moveto % 385
     120   -1071     180    -887     240    -710 curveto % 390 395 400
     300    -537     360    -371     420    -210 curveto % 405 410 415
     480     -55     540      93     600     237 curveto % 420 425 430
     660     375     720     508     780     635 curveto % 435 440 445
     840     756     900     872     960     982 curveto % 450 455 460
    1020    1086    1080    1185    1140    1278 curveto % 465 470 475
    1200    1365    1260    1447    1320    1523 curveto % 480 485 490
    1380    1594    1440    1659    1500    1718 curveto % 495 500 505
    1560    1771    1620    1819    1680    1862 curveto % 510 515 520
    1740    1898    1800    1929    1860    1955 curveto % 525 530 535
    1920    1975    1980    1989    2040    1997 curveto % 540 545 550
    2100    2000    2160    1997    2220    1989 curveto % 555 560 565
    2280    1975    2340    1955    2400    1929 curveto % 570 575 580
    2460    1898    2520    1862    2580    1819 curveto % 585 590 595
    2640    1771    2700    1718    2760    1659 curveto % 600 605 610
    2820    1594    2880    1523    2940    1447 curveto % 615 620 625
    3000    1365    3060    1278    3120    1185 curveto % 630 635 640
    3180    1086    3240     982    3300     872 curveto % 645 650 655
    3360     756    3420     635    3480     508 curveto % 660 665 670
    3540     375    3600     237    3660      93 curveto % 675 680 685
    3720     -55    3780    -210    3840    -371 curveto % 690 695 700
    3900    -537    3960    -710    4020    -887 curveto % 705 710 715
 0.00 0.00 0.00 0.00 setcmyk_olvcolor stroke
 %!  380    -94. 385    -80. 390    -67. 395    -53. 400    -40. 405    -28.
 %!  410    -16. 415     -4. 420      7. 425     18. 430     28. 435     38.
 %!  440     48. 445     57. 450     65. 455     74. 460     81. 465     89.
 %!  470     96. 475    102. 480    109. 485    114. 490    120. 495    124.
 %!  500    129. 505    133. 510    136. 515    140. 520    142. 525    145.
 %!  530    147. 535    148. 540    149. 545    150. 550    150. 555    150.
 %!  560    149. 565    148. 570    147. 575    145. 580    142. 585    140.
 %!  590    136. 595    133. 600    129. 605    124. 610    120. 615    114.
 %!  620    109. 625    102. 630     96. 635     89. 640     81. 645     74.
 %!  650     65. 655     57. 660     48. 665     38. 670     28. 675     18.
 %!  680      7. 685     -4. 690    -16. 695    -28. 700    -40. 705    -53.
 %!  710    -67. 715    -80. 720    -94.
 [50] 0 setdash %V
      60   -1355 moveto % 385
     120   -1136     180    -931     240    -721 curveto % 390 395 400
     300    -555     360    -333     420    -129 curveto % 405 410 415
     480      81     540     290     600     451 curveto % 420 425 430
     660     581     720     689     780     779 curveto % 435 440 445
     840     863     900     945     960    1022 curveto % 450 455 460
    1020    1095    1080    1167    1140    1241 curveto % 465 470 475
    1200    1314    1260    1383    1320    1454 curveto % 480 485 490
    1380    1530    1440    1607    1500    1688 curveto % 495 500 505
    1560    1761    1620    1827    1680    1881 curveto % 510 515 520
    1740    1919    1800    1948    1860    1969 curveto % 525 530 535
    1920    1984    1980    1993    2040    1998 curveto % 540 545 550
    2100    2000    2160    1998    2220    1992 curveto % 555 560 565
    2280    1983    2340    1969    2400    1952 curveto % 570 575 580
    2460    1929    2520    1903    2580    1873 curveto % 585 590 595
    2640    1840    2700    1803    2760    1761 curveto % 600 605 610
    2820    1716    2880    1665    2940    1605 curveto % 615 620 625
    3000    1538    3060    1469    3120    1394 curveto % 630 635 640
    3180    1312    3240    1223    3300    1129 curveto % 645 650 655
    3360    1028    3420     919    3480     804 curveto % 660 665 670
    3540     692    3600     584    3660     461 curveto % 675 680 685
    3720     331    3780     206    3840      90 curveto % 690 695 700
    3900     -26    3960    -143    4020    -262 curveto % 705 710 715
 0.00 0.00 0.00 0.00 setcmyk_olvcolor stroke
 %!  380   -102. 385    -85. 390    -70. 395    -54. 400    -42. 405    -25.
 %!  410    -10. 415      6. 420     22. 425     34. 430     44. 435     52.
 %!  440     58. 445     65. 450     71. 455     77. 460     82. 465     88.
 %!  470     93. 475     99. 480    104. 485    109. 490    115. 495    121.
 %!  500    127. 505    132. 510    137. 515    141. 520    144. 525    146.
 %!  530    148. 535    149. 540    149. 545    150. 550    150. 555    150.
 %!  560    149. 565    149. 570    148. 575    146. 580    145. 585    143.
 %!  590    141. 595    138. 600    135. 605    132. 610    129. 615    125.
 %!  620    120. 625    115. 630    110. 635    105. 640     98. 645     92.
 %!  650     85. 655     77. 660     69. 665     60. 670     52. 675     44.
 %!  680     35. 685     25. 690     15. 695      7. 700     -2. 705    -11.
 %!  710    -20. 715    -29. 720    -38.

showpage
grestore

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 28 MM 020 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 17

%line 399
%!PS-Adobe-3.0 EPSF-3.0 MF490-7
%%BoundingBox: 70 83 228 206

%START PDFDE011.EPS
/pdfmark11 where {pop} {userdict /pdfmark11 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/MF49/)
  /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 pdfmark11
[ /View [ /FitB ]
/DOCVIEW pdfmark11
%END  PDFDE011

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

%%EndProlog
gsave

%lanindL2.EPS START  20000505
/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm  {6 lanind eq {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 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} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

/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

/SD65 80 array def %380 bis 775 mit deltalambda=05
/SD50 80 array def %380 bis 775 mit deltalambda=05
/SP40 80 array def %380 bis 775 mit deltalambda=05
/SA00 80 array def %380 bis 775 mit deltalambda=05
/SE00 80 array def %380 bis 775 mit deltalambda=05
/SC00 80 array def %380 bis 775 mit deltalambda=05

/SDAK 80 array def %380 bis 775 mit deltalambda=05
/RA   80 array def %380 bis 770 nm
/F2  240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm

/F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm

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

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

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

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

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

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

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


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

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

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

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

        put
       } for %i=0,79

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

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

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

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

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

%calculation of transformation data
/FARBE 27 array def
/FARBE [(R)    (e,M) ( MIE 20) %00
        (R50Y) ()    ( MIE 23) %01
        (Y)    (e,M) ( MIE 02) %02
        (Y50G) ()    ( MIE 05) %03
        (G)    (e,M) ( MIE 08) %04
        (G50B) ()    ( MIE 11) %05
        (B)    (e,M) ( MIE 14) %06
        (B50R) ()    ( MIE 17) %07
        (W) (1) ( 380_770) %08
       ] def

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

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

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

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

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

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

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

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

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

/TELi 6 array def
/TELi [(D65) (D50) (P40) (A00) (E00) (C00)] def %6 illuminants

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

/xchart4 0 def %
%0 1 4 {/xchart4 exch def %xchart4=0,4

/xchartl 5 def

/K 1 def %not used

/ILA xchartl def %for illuminants D65, D50, P40, A, E, C

gsave

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

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

72 90 translate

0.010 MM dup scale

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

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

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

%calculation of XW,YW,ZW for illuminant D65, D50, ...
0 1 79 {/i exch def %i=0,79
        SDAK i ILA 0 eq {SD65 i get} if
               ILA 1 eq {SD50 i get} if
               ILA 2 eq {SP40 i get} if
               ILA 3 eq {SA00 i get} if
               ILA 4 eq {SE00 i get} if
               ILA 5 eq {SC00 i get} if
               put
       } for %i=0,79

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

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

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

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

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

0 1 8 {/i exch def %i=1,8
       i 0 eq {Xi i 32.53 put        %R
               Yi i 18.11 put
               Zi i  5.32 put} if
       i 1 eq {Xi i 60.31 put        %R50Y
               Yi i 45.44 put
               Zi i 05.55 put} if
       i 2 eq {Xi i 70.72 put        %Y
               Yi i 77.82 put
               Zi i 10.18 put} if
       i 3 eq {Xi i 25.23 put        %Y50G
               Yi i 45.15 put
               Zi i 14.00 put} if
       i 4 eq {Xi i 08.51 put        %G
               Yi i 20.24 put
               Zi i 16.28 put} if
       i 5 eq {Xi i 08.83 put        %G50B
               Yi i 14.56 put
               Zi i 31.55 put} if
       i 6 eq {Xi i 11.92 put        %B
               Yi i 09.35 put
               Zi i 48.79 put} if
       i 7 eq {Xi i 16.15 put        %B50R
               Yi i 08.47 put
               Zi i 30.90 put} if
       i 8 eq {Xi i XW put                         %W
               Yi i YW put
               Zi i ZW put} if
      } for %i=1,8

/xtexti 5 array def
/ytexti 5 array def
/xtexti [2100 2900 0750 0100 0100] def
/ytexti [3800 0500 0500 0500 0500] def

/x0shift 0800 def
/x1shift 2000 def
/x2shift 1400 def

xchart4 0 eq {%xchart4=0,#0
0 0 0 1 setcmyk_olvcolor
xtexti xchart4 get x0shift add 200 sub ytexti xchart4 get 0640 sub moveto
TBIS (Miescher) show
TBS
(\255Elementarfarben) showde                                    %0MF490-7 00523
( elementary colours) showen                                    %1MF490-7 00523
( colores elementales) showes                                   %2MF490-7 00523
( couleurs \351l\351mentaires) showfr                           %3MF490-7 00523
( colori elementari) showit                                     %4MF490-7 00523
( elementary colours) showjp                                    %5MF490-7 00523

xtexti xchart4 get x0shift add ytexti xchart4 get 0860 sub moveto
TBS
(und Zischenfarben) showde                                      %0MF490-7 00523
(and intermediate colours) showen                               %1MF490-7 00523
(y colores intermedios) showes                                  %2MF490-7 00523
(et couleurs interm\351diaires) showfr                          %3MF490-7 00523
(y colori intermedi) showit                                     %4MF490-7 00523
(and intermediate colours) showjp                               %5MF490-7 00523

xtexti xchart4 get x0shift add ytexti xchart4 get 1100 sub moveto
TBIS FARBE 0 get show
TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto
TBIS FARBE 2 get show

xtexti xchart4 get x1shift add ytexti xchart4 get 1100 sub moveto
TBIS FARBE 6 get show
TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto
TBIS FARBE 8 get show

xtexti xchart4 get x0shift add ytexti xchart4 get 1320 sub moveto
TBIS FARBE 12 get show
TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto
TBIS FARBE 14 get show

xtexti xchart4 get x1shift add ytexti xchart4 get 1320 sub moveto
TBIS FARBE 18 get show
TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto
TBIS FARBE 20 get show

             }%xchart4=0
             {%xchart4#0
TBS
0 0 0 1 setcmyk_olvcolor
xtexti xchart4 get ytexti xchart4 get 0660 add moveto
TBIS (Miescher) show
TBS
(Elementarfarben) showde                                        %0MF490-7 01523
(elementary colours) showen                                     %1MF490-7 01523
(colores elementales) showes                                    %2MF490-7 01523
(couleurs \351l\351mentaires) showfr                            %3MF490-7 01523
(colori elementari) showit                                      %4MF490-7 01523
(elementary colours) showjp                                     %5MF490-7 01523

xtexti xchart4 get ytexti xchart4 get 440 add moveto
TBIS FARBE 0 get show
TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto
TBIS FARBE 2 get show

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

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

xtexti xchart4 get x2shift add ytexti xchart4 get 220 add moveto
TBIS FARBE 18 get show
TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto
TBIS FARBE 20 get show
} ifelse %xchart4#0

TBS
0 0 0 1 setcmyk_olvcolor
xtexti xchart4 get 400 sub ytexti xchart4 get moveto
(CIE\255Daten f\374r ) showde                                   %0MF490-7 02523
(CIE data for ) showen                                          %1MF490-7 02523
(datos CIE para ) showes                                        %2MF490-7 02523
(donn\351es CIE pour ) showfr                                   %3MF490-7 02523
(dati di CIE per) showit                                        %4MF490-7 02523
(CIE data for ) showjp                                          %5MF490-7 02523

(Elementarfarben) showde                                        %0MF490-7 03523
(elementary colours) showen                                     %1MF490-7 03523
(colores elementales) showes                                    %2MF490-7 03523
(couleurs \351l\351mentaires) showfr                            %3MF490-7 03523
(colori elementari) showit                                      %4MF490-7 03523
(elementary colours) showjp                                     %5MF490-7 03523

xtexti xchart4 get 400 sub ytexti xchart4 get 220 sub moveto
(maximaler Buntheit f\374r ) showde                             %0MF490-7 04523
(of maximum chroma for ) showen                                 %1MF490-7 04523
(de croma m\341ximo para ) showes                               %2MF490-7 04523
(chroma maximale pour ) showfr                                  %3MF490-7 04523
(di croma massimo per ) showit                                  %4MF490-7 04523
(of maximum chroma for ) showjp                                 %5MF490-7 04523

TELi ILA get show

xtexti xchart4 get 400 sub ytexti xchart4 get 440 sub moveto
xchart4 0 eq {%xchart4=0
(in Normfarbtafel) showde                                       %0MF490-7 05523
(in chromaticity diagram) showen                                %1MF490-7 05523
(en el diagrama de cromaticidad) showes                         %2MF490-7 05523
(dans le diagramme de chromaticit\351) showfr                   %3MF490-7 05523
(nel diagramma di cromaticit\340) showit                        %4MF490-7 05523
(in chromaticity diagram) showjp                                %5MF490-7 05523

              TBIS ( (x, y)) show
             } if %xchart4=0

0 1 8 {/i exch def %i=0,8
      /SUM Xi i get
           Yi i get add
           Zi i get add def
       XANi i Xi i get SUM 0.0001 add div put
       YANi i Yi i get SUM 0.0001 add div put
       ZANi i Zi i get SUM 0.0001 add div put
      } for

xchart4 0 eq {%xchart4=0
              0 1 62 {/i exch def %i=0,62
                      FAD i FXD i get put
                      FBD i FYD i get put
                      FCD i FZD i get put
                     } for %i=0,62
             } if %xchart4=0

xchart4 0 eq {%xchart4=0

600 400 translate

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

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

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

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

%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

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

TIM
-300 2800 moveto (y) show

TIM
4200 150 moveto (x) show

TBIS
2600 150 moveto (CIE 1931) show

-600 -400 translate

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

       } if %xchart4=0

xchart4 1 eq {%xchart4=1

500 3200 translate

0 400 moveto  4000  0 rlineto  stroke
0 400 moveto  0 -3000 rlineto  stroke

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

   0 350 moveto  0 100 rlineto  stroke
 800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

-150  500 moveto (-0,8) show
 650  500 moveto (0,0) show
1450  500 moveto (0,8) show
2250  500 moveto (1,6) show
3050  500 moveto (2,4) show
3850  500 moveto (3,2) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,8) show
-450 -1700 moveto (-1,6) show
-450 -2500 moveto (-2,4) show

-475 -3050 moveto TBIM (b) show TBM (=-0,40) show TBIM (z/y) show
3650   100 moveto TBIM (a=x/y) show

-500 -3200 translate

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

  -1300  -3200 translate
 %ENDE: 2

             } if %xchart4=1

xchart4 2 eq {%xchart4=2

600 3200 translate

0 400 moveto  4000  0 rlineto  stroke
0 400 moveto  0 -3600 rlineto  stroke

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

 400 350 moveto  0 100 rlineto  stroke
1200 350 moveto  0 100 rlineto  stroke
2000 350 moveto  0 100 rlineto  stroke
2800 350 moveto  0 100 rlineto  stroke
3600 350 moveto  0 100 rlineto  stroke

 200  500 moveto (0,06) show
1000  500 moveto (0,12) show
1800  500 moveto (0,18) show
2600  500 moveto (0,24) show
3400  500 moveto (0,30) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

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

TIM
-380  -1300 moveto (b') show
4100 250 moveto (a') show

-600 -3200 translate

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

             } if %xchart4=2

xchart4 3 ge {%xchart4>=3

3500 2000 translate

%axis and scales
0 0 0 1 setcmyk_olvcolor
-2250 0 moveto 3950  0 rlineto stroke
0 -1880  moveto 0 3600  rlineto stroke
1700 100 sub 50 moveto 100 -50 rlineto
                      -100 -50 rlineto closepath fill
0 50 sub 1800 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill

/xt10x 5 array def
/yt10x 5 array def

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

xchart4 4 eq {%xchart4=4
/xt10x [(-120) ( ) ( ) ( ) (120)] def
/yt10x [(-120) ( ) ( ) ( ) (120)] def
             } if %xchart4=

TIM
0 0 0 1 setcmyk_olvcolor
0 1 4 {/i exch def %i=0,4 x-axis
        -1600   i 800   mul add  -75 moveto 0 150 rlineto stroke
        -1800   i 800   mul add -300 moveto
        xt10x i get show
        i 4 eq {-1600 i 800 mul add 0 moveto
               xchart4 3 eq { %xchart4=3
                             000 150 rmoveto
                             TBIM (A) show TM
                            } if %xchart4=3
               xchart4 4 eq { %xchart4=4
                             -50 150 rmoveto
                             TBIM (a*) show TM
                            } if %xchart4=4
               } if
       } for %i=0,4

TIM
0 1 4 {/i exch def %i=0,4 y-axis
       -75 -1600 i 800 mul    add moveto 150 0 rlineto stroke
       150 -1600 i 800 mul    add 100 sub moveto
       yt10x i get show
       i 4 eq {0 -1600 i 800 mul add moveto
               xchart4 3 eq { %xchart4=3
                             -250 150 rmoveto
                             TBIM (B) show TM
                            } if %xchart4=3
               xchart4 4 eq { %xchart4=4
                             -300 150 rmoveto
                             TBIM (b*) show TM
                            } if %xchart4=4
             } if

       } for %i=0,4

-3500 -2000 translate

} if %xchart4>=3

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

xchart4 0 eq {%xchart4=0

/fakt 4000 def
600 400 translate %for scala and graphic

/i1 0 def
/i2 7 def
       i1 1 i2 {/i exch def %i=i1,i2
                XANi i get fakt mul YANi i get fakt mul
                i i1 eq {moveto} if
                i i1 1 add ge i i2 1 sub le and {lineto} if
                i i2 eq {lineto closepath stroke} if
               } for %i=i1,i2

0 1 7 {/i exch def %i=0,7
       i 0 eq {0   1 1 0 setcmyk_olvcolor} if %R
       i 1 eq {0 0.5 1 0 setcmyk_olvcolor} if %R50Y
       i 2 eq {0   0 1 0 setcmyk_olvcolor} if %Y
       i 3 eq {0.5 0 1 0 setcmyk_olvcolor} if %Y50G
       i 4 eq {1   0 1 0 setcmyk_olvcolor} if %G
       i 5 eq {1   0 0 0 setcmyk_olvcolor} if %G50B
       i 6 eq {1   1 0 0 setcmyk_olvcolor} if %B
       i 7 eq {0   1 0 0 setcmyk_olvcolor} if %B50R
       XANi i get fakt mul YANi i get fakt mul
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 8 {/i exch def %i=0,6
       XANi i get fakt mul YANi i get fakt mul
       i 7 le {90}{50} ifelse 0 360 arc stroke
      } for %i=0,6

/xshift [0100  0100  -200  -300  -400  -700  -250   100  -250  0000] def
/yshift [-200  0100  -300  0150  -050  -100  -170  -020  -280  0000] def
/colori [(R)  (R50Y)  (Y)  (Y50G)(G)  (G50B) (B)  (B50R) (D65)  ( )] def
colori 8 TELi ILA get put

TIM

/i2 i2 1 add def
i1 1 i2 {/i exch def %i=i1,i2
         XANi i get fakt mul xshift i get add
         YANi i get fakt mul yshift i get add moveto
         TIK colori i get show
         i i2 lt {%i<i2
         TS -20 -60 rmoveto (e) show 0 60 rmoveto TIK
                 } if %i<i2
        } for %i=i1,i2

-600 -400 translate %for scala and grafic

} if %xchart4=0

xchart4 1 eq {%xchart4=1

/fakt 1000 def
%500 3200 translate %for scala
 1300 3200 translate %for grafic

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

0 1 7 {/i exch def %i=0,7
       i 0 eq {0   1 1 0 setcmyk_olvcolor} if %R
       i 1 eq {0 0.5 1 0 setcmyk_olvcolor} if %R50Y
       i 2 eq {0   0 1 0 setcmyk_olvcolor} if %Y
       i 3 eq {0.5 0 1 0 setcmyk_olvcolor} if %Y50G
       i 4 eq {1   0 1 0 setcmyk_olvcolor} if %G
       i 5 eq {1   0 0 0 setcmyk_olvcolor} if %G50B
       i 6 eq {1   1 0 0 setcmyk_olvcolor} if %B
       i 7 eq {0   1 0 0 setcmyk_olvcolor} if %B50R
       Xi i get Yi i get 0.0001 add div fakt mul %a
       Zi i get Yi i get 0.0001 add div fakt mul %b
       0.4 mul neg
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 8 {/i exch def %i=0,8
       Xi i get Yi i get 0.0001 add div fakt mul %a
       Zi i get Yi i get 0.0001 add div fakt mul %b
       0.4 mul neg
       i 7 le {90}{50} ifelse 0 360 arc stroke
      } for %i=0,8

/xshift [0100  0000  -100  -600  -400  -800  -150  -200  -250  0000] def
/yshift [-200  0200   150  0200  -050  -200  -330  -330  -280  0000] def
/colori [(R)  (R50Y)  (Y)  (Y50G)(G)  (G50B) (B)  (B50R) (D65)  ( )] def
colori 8 TELi ILA get put

/i2 i2 1 add def
i1 1 i2 {/i exch def %i=i1,i2
       Xi i get Yi i get 0.0001 add div fakt mul %a
       xshift i get add
       Zi i get Yi i get 0.0001 add div fakt mul %b
       0.4 mul neg
       yshift i get add i 0 eq ILA 3 eq and {200 add} if %for Ill. A
       moveto
       TIM colori i get show
       i i2 lt {%i<i2
       TS -20 -60 rmoveto (e) show 0 60 rmoveto TIM
               } if %i<i2
        } for %i=i1,i2

%-500 -3200 translate %for scala
-1300 -3200 translate %for grafic

} if %xchart4=1

xchart4 2 eq {%xchart4=2

/D13 1 3 div def
/fakt 13333 def
%600 3200 translate %for scala
 200 3200 translate %for graphic


/i1 0 def
/i2 7 def
       i1 1 i2 {/i exch def %i=i1,i2
                Xi i get Yi i get 0.0001 add div                 %a'
                D13 exp 0.2191 mul fakt mul
                Zi i get Yi i get 0.0001 add div                 %b'
                D13 exp -0.08376 mul fakt mul
                i i1 eq {moveto} if
                i i1 1 add ge i i2 1 sub le and {lineto} if
                i i2 eq {lineto closepath stroke} if
               } for %i=i1,i2

0 1 7 {/i exch def %i=0,7
       i 0 eq {0   1 1 0 setcmyk_olvcolor} if %R
       i 1 eq {0 0.5 1 0 setcmyk_olvcolor} if %R50Y
       i 2 eq {0   0 1 0 setcmyk_olvcolor} if %Y
       i 3 eq {0.5 0 1 0 setcmyk_olvcolor} if %Y50G
       i 4 eq {1   0 1 0 setcmyk_olvcolor} if %G
       i 5 eq {1   0 0 0 setcmyk_olvcolor} if %G50B
       i 6 eq {1   1 0 0 setcmyk_olvcolor} if %B
       i 7 eq {0   1 0 0 setcmyk_olvcolor} if %B50R
       Xi i get Yi i get 0.0001 add div                 %a'
       D13 exp 0.2191 mul fakt mul
       Zi i get Yi i get 0.0001 add div                 %b'
       D13 exp -0.08376 mul fakt mul
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 8 {/i exch def %i=0,8
       Xi i get Yi i get 0.0001 add div                 %a'
       D13 exp 0.2191 mul fakt mul
       Zi i get Yi i get 0.0001 add div                 %b'
       D13 exp -0.08376 mul fakt mul
       i 7 le {90}{50} ifelse 0 360 arc stroke
      } for %i=0,8

/xshift [0100  0100  -100  -700  -400  -900   050  -150  -250  0000] def
/yshift [-100  0100   150  0180  -050  -000  -280  -330  -280  0000] def
/colori [(R)  (R50Y)  (Y)  (Y50G)(G)  (G50B) (B)  (B50R) (D65)  ( )] def
colori 8 TELi ILA get put

/i2 i2 1 add def
i1 1 i2 {/i exch def %i=i1,i2
       Xi i get Yi i get 0.0001 add div                 %a'
       D13 exp 0.2191 mul fakt mul
       xshift i get add
       Zi i get Yi i get 0.0001 add div                 %b'
       D13 exp -0.08376 mul fakt mul
       yshift i get add
       moveto
       TIM colori i get show
       i i2 lt {%i<i2
       TS -20 -60 rmoveto (e) show 0 60 rmoveto TIM
               } if %i<i2
        } for %i=i1,i2

%-600 -3200 translate %for scala
-200  -3200 translate %for graphic

} if %xchart4=2


xchart4 3 eq {%xchart4=3

/fakt 40 def
3500 2000 translate %for text and grafic

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

0 1 7 {/i exch def %i=0,7
       i 0 eq {0   1 1 0 setcmyk_olvcolor} if %R
       i 1 eq {0 0.5 1 0 setcmyk_olvcolor} if %R50Y
       i 2 eq {0   0 1 0 setcmyk_olvcolor} if %Y
       i 3 eq {0.5 0 1 0 setcmyk_olvcolor} if %Y50G
       i 4 eq {1   0 1 0 setcmyk_olvcolor} if %G
       i 5 eq {1   0 0 0 setcmyk_olvcolor} if %G50B
       i 6 eq {1   1 0 0 setcmyk_olvcolor} if %B
       i 7 eq {0   1 0 0 setcmyk_olvcolor} if %B50R
       Xi i get Yi i get 0.0001 add div       %(a-an)Y
       Xi 8 get Yi 8 get 0.0001 add div sub
       Yi i get mul fakt mul
       Zi i get Yi i get 0.0001 add div       %(b-bn)Y
       Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg
       Yi i get mul fakt mul
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 8 {/i exch def %i=0,8
       Xi i get Yi i get 0.0001 add div        %(a-an)Y
       Xi 8 get Yi 8 get 0.0001 add div sub
       Yi i get mul fakt mul
       Zi i get Yi i get 0.0001 add div        %(b-bn)Y
       Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg
       Yi i get mul fakt mul
       i 7 le {90}{50} ifelse 0 360 arc stroke
      } for %i=0,8

/xshift [0100  0100  -300  -700  -400  -700  -050  0100  0050  0000] def
/yshift [-100  0100   150  0150  -050  -300  -300  -300  0080  0000] def
/colori [(R)  (R50Y)  (Y)  (Y50G)(G)  (G50B) (B)  (B50R) (D65)  ( )] def
colori 8 TELi ILA get put

/i2 i2 1 add def
i1 1 i2 {/i exch def %i=i1,i2
       Xi i get Yi i get 0.0001 add div                   %(a-an)Y
       Xi 8 get Yi 8 get 0.0001 add div sub
       Yi i get mul fakt mul
       xshift i get add
       Zi i get Yi i get 0.0001 add div                   %(b-bn)Y
       Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg
       Yi i get mul fakt mul
       yshift i get add
       moveto
       TIM colori i get show
       i i2 lt {%i<i2
       TS -20 -60 rmoveto (e) show 0 60 rmoveto TIM
               } if %i<i2
        } for %i=i1,i2

-3500 -2000 translate %for text and grafic

} if %xchart4=3

xchart4 4 eq {%xchart4=4

/D13 1 3 div def
/fakt 40 3 div def
3500 2000 translate %for text and grafic

/i1 0 def
/i2 7 def
       i1 1 i2 {/i exch def %i=i1,i2
                Xi i get Yi i get 0.0001 add div  %500(a'-a'n)Y**(1/3)
                D13 exp 0.2191 mul
                Xi 8 get Yi 8 get 0.0001 add div
                D13 exp 0.2191 mul sub
                Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

                Zi i get Yi i get 0.0001 add div  %500(b'-b'n)Y**(1/3)
                D13 exp -0.08376 mul
                Zi 8 get Yi 8 get 0.0001 add div
                D13 exp -0.08376 mul sub
                Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
                i i1 eq {moveto} if
                i i1 1 add ge i i2 1 sub le and {lineto} if
                i i2 eq {lineto closepath stroke} if
               } for %i=i1,i2

0 1 7 {/i exch def %i=0,7
       i 0 eq {0   1 1 0 setcmyk_olvcolor} if %R
       i 1 eq {0 0.5 1 0 setcmyk_olvcolor} if %R50Y
       i 2 eq {0   0 1 0 setcmyk_olvcolor} if %Y
       i 3 eq {0.5 0 1 0 setcmyk_olvcolor} if %Y50G
       i 4 eq {1   0 1 0 setcmyk_olvcolor} if %G
       i 5 eq {1   0 0 0 setcmyk_olvcolor} if %G50B
       i 6 eq {1   1 0 0 setcmyk_olvcolor} if %B
       i 7 eq {0   1 0 0 setcmyk_olvcolor} if %B50R
       Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
       D13 exp 0.2191 mul
       Xi 8 get Yi 8 get 0.0001 add div
       D13 exp 0.2191 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

       Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
       D13 exp -0.08376 mul
       Zi 8 get Yi 8 get 0.0001 add div
       D13 exp -0.08376 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 8 {/i exch def %i=0,8
       Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
       D13 exp 0.2191 mul
       Xi 8 get Yi 8 get 0.0001 add div
       D13 exp 0.2191 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

       Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
       D13 exp -0.08376 mul
       Zi 8 get Yi 8 get 0.0001 add div
       D13 exp -0.08376 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
       i 7 le {90}{50} ifelse 0 360 arc stroke
      } for %i=0,8

/xshift [0100  0100  -350  -800  -400  -700   050  0000  0050  0000] def
/yshift [-100  0100   150  0100  -050  -300  -330  -330  0080  0000] def
/colori [(R)  (R50Y)  (Y)  (Y50G)(G)  (G50B) (B)  (B50R) (D65)  ( )] def
colori 8 TELi ILA get put

/i2 i2 1 add def
i1 1 i2 {/i exch def %i=i1,i2
       Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
       D13 exp 0.2191 mul
       Xi 8 get Yi 8 get 0.0001 add div
       D13 exp 0.2191 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
       xshift i get add

       Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
       D13 exp -0.08376 mul
       Zi 8 get Yi 8 get 0.0001 add div
       D13 exp -0.08376 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
       yshift i get add
       moveto
       TIM colori i get show
       i i2 lt {%i<i2
       TS -20 -60 rmoveto (e) show 0 60 rmoveto TIM
               } if %i<i2
        } for %i=i1,i2

-3500 -2000 translate %for text and grafic

} if %xchart4=4

showpage
grestore

%} for %xchart4=0,4

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 MM 020 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 18

%line 409
%!PS-Adobe-3.0 EPSF-3.0 MF490-8
%%BoundingBox: 70 83 228 206

%START PDFDE011.EPS
/pdfmark11 where {pop} {userdict /pdfmark11 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/MF49/)
  /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:2012070112000)
  /ModDate (D:2012070112000)
/DOCINFO pdfmark11
[ /View [ /FitB ]
/DOCVIEW pdfmark11
%END  PDFDE011

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

%%EndProlog
gsave

%lanindL2.EPS START  20000505
/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm  {6 lanind eq {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 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} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

/SD65 80 array def %380 bis 775 mit deltalambda=05
/SD50 80 array def %380 bis 775 mit deltalambda=05
/SP40 80 array def %380 bis 775 mit deltalambda=05
/SA00 80 array def %380 bis 775 mit deltalambda=05
/SE00 80 array def %380 bis 775 mit deltalambda=05
/SC00 80 array def %380 bis 775 mit deltalambda=05

/SDAK 80 array def %380 bis 775 mit deltalambda=05
/RA   80 array def %380 bis 770 nm
/F2  240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm

/F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm

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

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

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

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

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

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

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


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

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

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

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

        put
       } for %i=0,79

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

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

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

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

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

/xshift 10 array def %max 2x4 elementary colours
/yshift 10 array def
/colori 10 array def


/RX10 328 array def %8x41
/RX10[
%(R) (e) ( CIE 09) %00
%380 %390 %400 %410 %420 %430 %440 %450 %460 %470
0066 0058 0052 0051 0050 0048 0046 0042 0038 0033
%480 %490 %500 %510 %520 %530 %540 %550 %560 %570
0030 0028 0028 0030 0031 0032 0033 0035 0041 0048
%580 %590 %600 %610 %620 %630 %640 %650 %660 %670
0060 0102 0190 0336 0505 0641 0717 0758 0781 0797
%680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780
0809 0819 0828 0831 0835 0836 0838 0839 0839 0839 0839

%(Y) (e) ( CIE 10) %01
%380 %390 %400 %410 %420 %430 %440 %450 %460 %470
0050 0059 0066 0068 0069 0072 0076 0083 0095 0113
%480 %490 %500 %510 %520 %530 %540 %550 %560 %570
0142 0189 0262 0365 0465 0546 0610 0653 0678 0693
%580 %590 %600 %610 %620 %630 %640 %650 %660 %670
0701 0705 0706 0707 0708 0710 0712 0716 0720 0725
%680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780
0731 0739 0746 0749 0753 0755 0755 0756 0758 0758 0758

%(Y) (e) ( CIE 11) %02
%380 %390 %400 %410 %420 %430 %440 %450 %460 %470
0111 0127 0127 0116 0108 0104 0105 0110 0123 0148
%480 %490 %500 %510 %520 %530 %540 %550 %560 %570
0192 0252 0325 0356 0346 0314 0271 0227 0188 0153
%580 %590 %600 %610 %620 %630 %640 %650 %660 %670
0125 0106 0096 0090 0085 0080 0078 0078 0081 0088
%680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780
0102 0125 0161 0203 0242 0270 0292 0310 0317 0317 0317

%(G) (e) ( CIE 12) %03
%380 %390 %400 %410 %420 %430 %440 %450 %460 %470
0120 0090 0076 0064 0075 0123 0207 0300 0346 0341
%480 %490 %500 %510 %520 %530 %540 %550 %560 %570
0307 0257 0204 0154 0109 0075 0051 0035 0025 0019
%580 %590 %600 %610 %620 %630 %640 %650 %660 %670
0017 0016 0016 0016 0016 0018 0018 0019 0023 0026
%680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780
0035 0056 0097 0166 0257 0354 0446 0520 0577 0577 0577

%(B) (e) ( CIE 09) %00
%380 %390 %400 %410 %420 %430 %440 %450 %460 %470
0066 0058 0052 0051 0050 0048 0046 0042 0038 0033
%480 %490 %500 %510 %520 %530 %540 %550 %560 %570
0030 0028 0028 0030 0031 0032 0033 0035 0041 0048
%580 %590 %600 %610 %620 %630 %640 %650 %660 %670
0060 0102 0190 0336 0505 0641 0717 0758 0781 0797
%680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780
0809 0819 0828 0831 0835 0836 0838 0839 0839 0839 0839

%(Y) (e) ( CIE 10) %01
%380 %390 %400 %410 %420 %430 %440 %450 %460 %470
0050 0059 0066 0068 0069 0072 0076 0083 0095 0113
%480 %490 %500 %510 %520 %530 %540 %550 %560 %570
0142 0189 0262 0365 0465 0546 0610 0653 0678 0693
%580 %590 %600 %610 %620 %630 %640 %650 %660 %670
0701 0705 0706 0707 0708 0710 0712 0716 0720 0725
%680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780
0731 0739 0746 0749 0753 0755 0755 0756 0758 0758 0758

%(G) (e) ( CIE 11) %02
%380 %390 %400 %410 %420 %430 %440 %450 %460 %470
0111 0127 0127 0116 0108 0104 0105 0110 0123 0148
%480 %490 %500 %510 %520 %530 %540 %550 %560 %570
0192 0252 0325 0356 0346 0314 0271 0227 0188 0153
%580 %590 %600 %610 %620 %630 %640 %650 %660 %670
0125 0106 0096 0090 0085 0080 0078 0078 0081 0088
%680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780
0102 0125 0161 0203 0242 0270 0292 0310 0317 0317 0317

%(B) (e) ( CIE 12) %03
%380 %390 %400 %410 %420 %430 %440 %450 %460 %470
0120 0090 0076 0064 0075 0123 0207 0300 0346 0341
%480 %490 %500 %510 %520 %530 %540 %550 %560 %570
0307 0257 0204 0154 0109 0075 0051 0035 0025 0019
%580 %590 %600 %610 %620 %630 %640 %650 %660 %670
0017 0016 0016 0016 0016 0018 0018 0019 0023 0026
%680 %690 %700 %710 %720 %730 %740 %750 %760 %770 %780
0035 0056 0097 0166 0257 0354 0446 0520 0577 0577 0577
] def

/RX05 80 array def %1x80
/RX05 [
%(%W1(r=1,000) 10 380_770)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000

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

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

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

/RX0 720 array def
0 1 7 {/j exch def %j=0,7 8 tTest colours
        /j41 41 j mul def
        /j80 80 j mul def
0 1 39 {/i exch def %i=0,39
        /i2 i 2 mul def
        RX0 j80 i2 add
        RX10 j41 i add get put
        RX0 j80 i2 add 1 add
        RX10 j41 i add       get
        RX10 j41 i add 1 add get
        add
        0.5 mul cvi
        put
        } for %i=0,39

       } for %j=0,7

640 1 719 {/i exch def %i=640,719
           RX0 i RX05 i 640 sub get put
          } for

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

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

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

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

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

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

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

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

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

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

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

/TELi 6 array def
/TELi [(D65) (D50) (P40) (A00) (E00) (C00)] def %6 illuminants

/xchart4 0 def %
%0 1 4 {/xchart4 exch def %xchart4=0,4

/xchartl 5 def
%0 1 5 {/xchartl exch def %xchartl=0,4 (6 illuminants x 1 Normalization)

/K 0 def %for normalization 1

/ILA xchartl def %for illuminants D65, D50, P40, A, E, C

gsave

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

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

72 90 translate

0.010 MM dup scale

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

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

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

0 1 79 {/i exch def %i=0,79
        SDAK i ILA 0 eq {SD65 i get} if
               ILA 1 eq {SD50 i get} if
               ILA 2 eq {SP40 i get} if
               ILA 3 eq {SA00 i get} if
               ILA 4 eq {SE00 i get} if
               ILA 5 eq {SC00 i get} if
               put
       } for %i=0,79

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

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

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

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

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

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

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

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

         Xi k X put
         Yi k Y put
         Zi k Z put

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

        } for %k=0,8

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

%calculation of transformation data
/FARBE 27 array def

ILA 5 eq {
/FARBE [(R) (e,C) ( CIE 09) %00
        (Y) (e,C) ( CIE 10) %01
        (G) (e,C) ( CIE 11) %02
        (B) (e,C) ( CIE 12) %03
        (R) (e,M) ( MIE 02) %04
        (Y) (e,M) ( MIE 08) %05
        (G) (e,M) ( MIE 14) %06
        (B) (e,M) ( MIE 20) %07
        (W) (1) ( 380_770) %08
       ] def
          }%ILA=5
          {%ILA#5
/FARBE [(R) (e) ( CIE 09) %00 output only of CIE colours
        (Y) (e) ( CIE 10) %01
        (G) (e) ( CIE 11) %02
        (B) (e) ( CIE 12) %03
        (R) (e,M) ( MIE 20) %04
        (Y) (e,M) ( MIE 02) %05
        (G) (e,M) ( MIE 08) %06
        (B) (e,M) ( MIE 14) %07
        (W) (1) ( 380_770) %08
        ] def
          } ifelse %ILA#5

/xtexti 5 array def
/ytexti 5 array def

/xtexti 5 array def
/ytexti 5 array def
/xtexti [2100 2900 0750 0100 0100] def
/ytexti [3800 0500 0500 0500 0500] def

/x0shift 0900 def
/x1shift 2100 def
/x2shift 2300 def

%/xtexti [2500 2400 0750 0100 0100] def
%/ytexti [3800 0500 0500 0500 0500] def
%/x0shift 0550 def
%/x1shift 1750 def
%/x2shift 1200 def

xchart4 0 eq {%xchart4=0,#0
0 0 0 1 setcmyk_olvcolor
xtexti xchart4 get x0shift add ytexti xchart4 get 0660 sub moveto
TBIS FARBE 0 get show
TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto
TBIS FARBE 2 get show

xtexti xchart4 get x1shift add ytexti xchart4 get 0660 sub moveto
TBIS FARBE 3 get show
TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto
TBIS FARBE 5 get show

xtexti xchart4 get x0shift add ytexti xchart4 get 0880 sub moveto
TBIS FARBE 6 get show
TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto
TBIS FARBE 8 get show

xtexti xchart4 get x1shift add ytexti xchart4 get 0880 sub moveto
TBIS FARBE 9 get show
TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto
TBIS FARBE 11 get show

ILA 5 eq {%ILA=5
xtexti xchart4 get x0shift add ytexti xchart4 get 1100 sub moveto
TBIS FARBE 12 get show
TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto
TBIS FARBE 14 get show

xtexti xchart4 get x1shift add ytexti xchart4 get 1100 sub moveto
TBIS FARBE 15 get show
TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto
TBIS FARBE 17 get show

xtexti xchart4 get x0shift add ytexti xchart4 get 1320 sub moveto
TBIS FARBE 18 get show
TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto
TBIS FARBE 20 get show

xtexti xchart4 get x1shift add ytexti xchart4 get 1320 sub moveto
TBIS FARBE 21 get show
TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto
TBIS FARBE 23 get show
          } if %ILA=5

             }%xchart4=0
             {%xchart4#0
TBS
0 0 0 1 setcmyk_olvcolor
ILA 5 ne {%ILA#5
xtexti xchart4 get ytexti xchart4 get 440 add moveto
TBIS FARBE 0 get show
TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto
TBIS FARBE 2 get show

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

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

xtexti xchart4 get x2shift add ytexti xchart4 get 220 add moveto
TBIS FARBE 9 get show
TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto
TBIS FARBE 11 get show
         }%ILA#5
         {%ILA=5
xtexti xchart4 get ytexti xchart4 get 880 add moveto
TBIS FARBE 0 get show
TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto
TBIS FARBE 2 get show

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

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

xtexti xchart4 get x2shift add ytexti xchart4 get 660 add moveto
TBIS FARBE 9 get show
TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto
TBIS FARBE 11 get show


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

xtexti xchart4 get x2shift add ytexti xchart4 get 440 add moveto
TBIS FARBE 15 get show
TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto
TBIS FARBE 17 get show

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

xtexti xchart4 get x2shift add ytexti xchart4 get 220 add moveto
TBIS FARBE 21 get show
TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto
TBIS FARBE 23 get show
         } ifelse %ILA=5

} ifelse %xchart4#0


TBS
0 0 0 1 setcmyk_olvcolor
xtexti xchart4 get 400 sub ytexti xchart4 get moveto

(CIE\255Daten f\374r ) showde                                   %0MF490-8 00524
(CIE data for ) showen                                          %1MF490-8 00524
(datos CIE para ) showes                                        %2MF490-8 00524
(donn\351es CIE pour ) showfr                                   %3MF490-8 00524
(dati di CIE per) showit                                        %4MF490-8 00524
(CIE data for ) showjp                                          %5MF490-8 00524

(Elementarfarben) showde                                        %0MF490-8 01524
(elementary colours) showen                                     %1MF490-8 01524
(colores elementales) showes                                    %2MF490-8 01524
(couleurs \351l\351mentaires) showfr                            %3MF490-8 01524
(colori elementari) showit                                      %4MF490-8 01524
(elementary colours) showjp                                     %5MF490-8 01524

xtexti xchart4 get 400 sub ytexti xchart4 get 220 sub moveto
(gro\337er Buntheit f\374r ) showde                             %0MF490-8 01524
(of larger chroma for ) showen                                  %1MF490-8 01524
(de mayor croma para ) showes                                   %2MF490-8 01524
(de chroma importante pour ) showfr                             %3MF490-8 01524
(di pi grande chroma per ) showit                               %4MF490-8 01524
(of larger chroma for ) showjp                                  %5MF490-8 01524

TELi ILA get show

xtexti xchart4 get 400 sub ytexti xchart4 get 440 sub moveto
xchart4 0 eq {%xchart4=0
              (in Normfarbtafel) showde                         %0MF490-8 02524
              (in chromaticity diagram) showen                  %1MF490-8 02524
              (en el diagrama de cromaticidad) showes           %2MF490-8 02524
(dans le diagramme de chromaticit\351) showfr                   %3MF490-8 02524
(nel diagramma di cromaticit\340) showit                        %4MF490-8 02524
              (in chromaticity diagram) showjp                  %5MF490-8 02524

              TBIS ( (x, y)) show
             } if %xchart4=0
xchart4 1 eq {%xchart4=1
              (in Farbtafel) showde                             %0MF490-8 03524
              (in chromaticity diagram) showen                  %1MF490-8 03524
              (en el diagrama de cromaticidad) showes           %2MF490-8 03524
(dans le diagramme de chromaticit\351) showfr                   %3MF490-8 03524
(nel diagramma di cromaticit\340) showit                        %4MF490-8 03524
              (in chromaticity diagram) showjp                  %5MF490-8 03524

              TBIS ( (a, b)) show
             } if %xchart4=1
xchart4 2 eq {%xchart4=2
              (in Farbarttafel) showde                          %0MF490-8 04524
              (in chromaticity diagram) showen                  %1MF490-8 04524
              (en el diagrama de cromaticidad) showes           %2MF490-8 04524
(dans le diagramme de chromaticit\351) showfr                   %3MF490-8 04524
(nel diagramma di cromaticit\340) showit                        %4MF490-8 04524
              (in chromaticity diagram) showjp                  %5MF490-8 04524

              TBIS ( (a', b')) show
             } if %xchart4=2
xchart4 3 eq {%xchart4=3
              (in Buntwertdiagramm) showde                      %0MF490-8 05524
              (in chromatic value diagram) showen               %1MF490-8 05524
              (en el diagrama de valor crom\341tico) showes     %2MF490-8 05524
(dans le diagramme de valeur chromatique) showfr                %3MF490-8 05524
(nel diagramma di valore cromatico) showit                      %4MF490-8 05524
              (in chromatic value diagram) showjp               %5MF490-8 05524

              TBIS ( (A, B)) show
             } if %xchart4=3
xchart4 4 eq {%xchart4=4
              (in Buntheitsdiagram) showde                      %0MF490-8 06524
              (in chroma diagram) showen                        %1MF490-8 06524
              (en el diagrama de croma) showes                  %2MF490-8 06524
(dans le diagramme de chroma) showfr                            %3MF490-8 06524
(nel diagramma di croma) showit                                 %4MF490-8 06524
              (in chroma diagram) showjp                        %5MF490-8 06524

              TBIS ( (a*, b*)) show
             } if %xchart4=4

ILA 5 eq {%Miescher elementary colours for C
          Xi 04 32.53 put        %R
          Yi 04 18.11 put
          Zi 04  5.32 put
          Xi 05 70.72 put        %Y
          Yi 05 77.82 put
          Zi 05 10.18 put
          Xi 06 08.51 put        %G
          Yi 06 20.24 put
          Zi 06 16.28 put
          Xi 07 11.92 put        %B
          Yi 07 09.35 put
          Zi 07 48.79 put
          Xi 08 XW put           %W, ill. C
          Yi 09 YW put
          Zi 09 ZW put
         } if %Miescher elementary colours for C

0 1 7 {/i exch def %i=0,7
      /SUM Xi i get
           Yi i get add
           Zi i get add def
       XANi i Xi i get SUM 0.0001 add div put
       YANi i Yi i get SUM 0.0001 add div put
       ZANi i Zi i get SUM 0.0001 add div put
      } for

xchart4 0 eq {%xchart4=0
              0 1 62 {/i exch def %i=0,62
                      FAD i FXD i get put
                      FBD i FYD i get put
                      FCD i FZD i get put
                     } for %i=0,62
             } if %xchart4=0

xchart4 1 eq xchart 3 eq or {%xchart4=1
              0 1 62 {/i exch def %i=0,62
                      FAD i FYD i get put
                      FBD i FXD i get FYD i get 0.0001 add div
                            XANW YANW 0.0001 add div sub
                            FYD i get mul put
                      FCD i FZD i get FYD i get 0.0001 add div
                            ZANW YANW 0.0001 add div sub
                            FYD i get mul 0.4 mul neg put
                     } for %i=0,62
             } if %xchart4=1

xchart4 2 eq xchart4 4 eq or {%xchart4=2
              /D13 1 3 div def
              /D841_108 841 108 div def
              /D16_116 16 116 div def
              /D24_116 24 116 div 3 exp def
              /YW 100 def

              0 1 62 {/i exch def %i=0,62

              /YD FYD i get def
              YD YW div D24_116 gt {/FYYN YD YW div 0.0001 add D13 exp def}
                     {/FYYN D841_108 YD YW div mul D16_116 add def} ifelse

              /a'i FXD i get FYD i get 0.0001 add div D13 exp  0.2191  mul def
              /b'i FZD i get FYD i get 0.0001 add div D13 exp -0.08376 mul def

              /a'in XANW YANW 0.0001 add div D13 exp  0.2191  mul def
              /b'in ZANW YANW 0.0001 add div D13 exp -0.08376 mul def

              FAD i FYYN put
              FBD i a'i a'in sub YD 0.0001 add D13 exp mul put
              FCD i b'i b'in sub YD 0.0001 add D13 exp mul put

                     } for %i=0,62

             } if %xchart4=2

xchart4 0 eq {%xchart4=0

600 400 translate

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

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

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

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

%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

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

TIM
-300 2800 moveto (y) show

TIM
4200 150 moveto (x) show

TBIS
2600 150 moveto (CIE 1931) show

-600 -400 translate

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

       } if %xchart4=0

xchart4 1 eq {%xchart4=1

500 3200 translate

0 400 moveto  4000  0 rlineto  stroke
0 400 moveto  0 -3000 rlineto  stroke

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

   0 350 moveto  0 100 rlineto  stroke
 800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

-150  500 moveto (-0,8) show
 650  500 moveto (0,0) show
1450  500 moveto (0,8) show
2250  500 moveto (1,6) show
3050  500 moveto (2,4) show
3850  500 moveto (3,2) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,8) show
-450 -1700 moveto (-1,6) show
-450 -2500 moveto (-2,4) show

-475 -3050 moveto TBIM (b) show TBM (=-0,40) show TBIM (z/y) show
3650   100 moveto TBIM (a=x/y) show

-500 -3200 translate

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

  -1300  -3200 translate
 %ENDE: 2

             } if %xchart4=1

xchart4 2 eq {%xchart4=2

600 3200 translate

0 400 moveto  4000  0 rlineto  stroke
0 400 moveto  0 -3600 rlineto  stroke

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

 400 350 moveto  0 100 rlineto  stroke
1200 350 moveto  0 100 rlineto  stroke
2000 350 moveto  0 100 rlineto  stroke
2800 350 moveto  0 100 rlineto  stroke
3600 350 moveto  0 100 rlineto  stroke

 200  500 moveto (0,06) show
1000  500 moveto (0,12) show
1800  500 moveto (0,18) show
2600  500 moveto (0,24) show
3400  500 moveto (0,30) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

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

TIM
-380  -1300 moveto (b') show
4100 250 moveto (a') show

-600 -3200 translate

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

             } if %xchart4=2

xchart4 3 ge {%xchart4>=3

3500 2000 translate

%axis and scales
0 0 0 1 setcmyk_olvcolor
-2250 0 moveto 3950  0 rlineto stroke
0 -1880  moveto 0 3600  rlineto stroke
1700 100 sub 50 moveto 100 -50 rlineto
                      -100 -50 rlineto closepath fill
0 50 sub 1800 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill

/xt10x 5 array def
/yt10x 5 array def

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

xchart4 4 eq {%xchart4=4
/xt10x [(-120) ( ) ( ) ( ) (120)] def
/yt10x [(-120) ( ) ( ) ( ) (120)] def
             } if %xchart4=

TIM
0 0 0 1 setcmyk_olvcolor
0 1 4 {/i exch def %i=0,4 x-axis
        -1600   i 800   mul add  -75 moveto 0 150 rlineto stroke
        -1800   i 800   mul add -300 moveto
        xt10x i get show
        i 4 eq {-1600 i 800 mul add 0 moveto
               xchart4 3 eq { %xchart4=3
                             000 150 rmoveto
                             TBIM (A) show TM
                            } if %xchart4=3
               xchart4 4 eq { %xchart4=4
                             -50 150 rmoveto
                             TBIM (a*) show TM
                            } if %xchart4=4
               } if
       } for %i=0,4

TIM
0 1 4 {/i exch def %i=0,4 y-axis
       -75 -1600 i 800 mul    add moveto 150 0 rlineto stroke
       150 -1600 i 800 mul    add 100 sub moveto
       yt10x i get show
       i 4 eq {0 -1600 i 800 mul add moveto
               xchart4 3 eq { %xchart4=3
                             -250 150 rmoveto
                             TBIM (B) show TM
                            } if %xchart4=3
               xchart4 4 eq { %xchart4=4
                             -300 150 rmoveto
                             TBIM (b*) show TM
                            } if %xchart4=4
             } if

       } for %i=0,4

-3500 -2000 translate

} if %xchart4>=3

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

xchart4 0 eq {%xchart4=0

/fakt 4000 def
600 400 translate %for scala and graphic

0 1 0 {/j exch def %j=0,1
       j 0 eq {/i1 0 def /i2 3 def}
              {/i1 4 def /i2 7 def} ifelse
       i1 1 i2 {/i exch def %i=i1,i2
                XANi i get fakt mul YANi i get fakt mul
                i i1 eq {moveto} if
                i i1 1 add ge i i2 1 sub le and {lineto} if
                i i2 eq {lineto closepath stroke} if
               } for %i=i1,i2
      } for %j=0,1

0 1 7 {/i exch def %i=0,7
       i 0 eq {0 1 1 0 setcmyk_olvcolor} if %Rm
       i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Ym
       i 2 eq {1 0 1 0 setcmyk_olvcolor} if %Gm
       i 3 eq {1 1 0 0 setcmyk_olvcolor} if %Bm
       i 4 eq {0 1 1 0 setcmyk_olvcolor} if %Rm
       i 5 eq {0 0 1 0 setcmyk_olvcolor} if %Ym
       i 6 eq {1 0 1 0 setcmyk_olvcolor} if %Gm
       i 7 eq {1 1 0 0 setcmyk_olvcolor} if %Bm
       XANi i get fakt mul YANi i get fakt mul
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 8 {/i exch def %i=0,6f
       XANi i get fakt mul YANi i get fakt mul
       i 7 le {90}{50} ifelse 0 360 arc stroke
      } for %i=0,6

ILA 5 ne {%ILA#5
/xshift [-050  -100  -450   150  -050  -100  -450  -400 -300  0000] def
/yshift [-300  -350  -150  -200  -300  -350  -100  -150 -280  0000] def
         }%ILA#5
         {%ILA=5
/xshift [-250  -200  -650  -400  100  -400  -600   100 -300  0000] def
/yshift [-300  -350  -200   200 -200   200   000  -150 -280  0000] def
         } ifelse %ILA=5

/colori [(R)   (Y)   (G)   (B)   (R)   (Y)   (G)   (B) (D65)   ( )] def
colori 8 TELi ILA get put

TIM
0 1 1 {/j exch def %j=0,1
       j 0 eq {/i1 0 def /i2 3 def}
              {/i1 8 def /i2 8 def} ifelse
j 0 eq ILA 5 eq and {/i2 7 def} if
i1 1 i2 {/i exch def %i=i1,i2
         XANi i get fakt mul xshift i get add
         YANi i get fakt mul yshift i get add moveto
         TIM colori i get show
         i 7 le {TS -20 -60 rmoveto
                 FARBE i 3 mul 1 add get show
                 0 60 rmoveto TIM
                } if
        } for %i=i1,i2
      } for %j=0,1

-600 -400 translate %for scala and grafic

} if %xchart4=0

xchart4 1 eq {%xchart4=1

/fakt 1000 def
%500 3200 translate %for scala
 1300 3200 translate %for grafic

0 1 0 {/j exch def %j=0,1
       j 0 eq {/i1 0 def /i2 3 def}
              {/i1 4 def /i2 7 def} ifelse
       i1 1 i2 {/i exch def %i=i1,i2
                Xi i get Yi i get 0.0001 add div fakt mul %a
                Zi i get Yi i get 0.0001 add div fakt mul %b
                0.4 mul neg
                i i1 eq {moveto} if
                i i1 1 add ge i i2 1 sub le and {lineto} if
                i i2 eq {lineto closepath stroke} if
               } for %i=i1,i2
      } for %j=0,1

0 1 7 {/i exch def %i=0,7
       i 0 eq {0 1 1 0 setcmyk_olvcolor} if %Rm
       i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Ym
       i 2 eq {1 0 1 0 setcmyk_olvcolor} if %Gm
       i 3 eq {1 1 0 0 setcmyk_olvcolor} if %Bm
       i 4 eq {0 1 1 0 setcmyk_olvcolor} if %Rm
       i 5 eq {0 0 1 0 setcmyk_olvcolor} if %Ym
       i 6 eq {1 0 1 0 setcmyk_olvcolor} if %Gm
       i 7 eq {1 1 0 0 setcmyk_olvcolor} if %Bm
       Xi i get Yi i get 0.0001 add div fakt mul %a
       Zi i get Yi i get 0.0001 add div fakt mul %b
       0.4 mul neg
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 8 {/i exch def %i=0,8
       Xi i get Yi i get 0.0001 add div fakt mul %a
       Zi i get Yi i get 0.0001 add div fakt mul %b
       0.4 mul neg
       i 7 le {90}{50} ifelse 0 360 arc stroke
      } for %i=0,8

ILA 5 ne {%ILA#5
/xshift [0150  -100  -300  -350  -100  0150  -450  -100  -200  0000] def
/yshift [-250   200  -250  -250  -350  -100  -000  -300  -280  0000] def
         }%ILA#5
         {%ILA=5
/xshift [0100   150  -400  -350   000  0100  -450  -100  -200  0000] def
/yshift [-050  -250  -450  -250  -350  0200  -150  -300  -280  0000] def
         } ifelse %ILA=5

/colori [(R)   (Y)   (G)   (B)   (R)   (Y)   (G)   (B)   (D65)   ( )] def
colori 8 TELi ILA get put

TIM
0 1 1 {/j exch def %j=0,1
       j 0 eq {/i1 0 def /i2 3 def}
              {/i1 8 def /i2 8 def} ifelse
j 0 eq ILA 5 eq and {/i2 7 def} if
i1 1 i2 {/i exch def %i=i1,i2
         Xi i get Yi i get 0.0001 add div fakt mul %a
         xshift i get add
         Zi i get Yi i get 0.0001 add div fakt mul %b
         0.4 mul neg
         yshift i get add i 0 eq ILA 3 eq and {200 add} if %for Ill. A
         moveto
         TIM colori i get show
         i 7 le {TS -20 -60 rmoveto
                 FARBE i 3 mul 1 add get show
                 0 60 rmoveto TIM
                } if
        } for %i=i1,i2
      } for %j=0,1

%-500 -3200 translate %for scala
-1300 -3200 translate %for grafic

} if %xchart4=1

xchart4 2 eq {%xchart4=2

/D13 1 3 div def
/fakt 13333 def
%600 3200 translate %for scala
 200 3200 translate %for graphic

0 1 0 {/j exch def %j=0,1
       j 0 eq {/i1 0 def /i2 3 def}
              {/i1 4 def /i2 7 def} ifelse
       i1 1 i2 {/i exch def %i=i1,i2
                Xi i get Yi i get 0.0001 add div                 %a'
                D13 exp 0.2191 mul fakt mul
                Zi i get Yi i get 0.0001 add div                 %b'
                D13 exp -0.08376 mul fakt mul
                i i1 eq {moveto} if
                i i1 1 add ge i i2 1 sub le and {lineto} if
                i i2 eq {lineto closepath stroke} if
               } for %i=i1,i2
      } for %j=0,1

0 1 7 {/i exch def %i=0,7
       i 0 eq {0 1 1 0 setcmyk_olvcolor} if %Rm
       i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Ym
       i 2 eq {1 0 1 0 setcmyk_olvcolor} if %Gm
       i 3 eq {1 1 0 0 setcmyk_olvcolor} if %Bm
       i 4 eq {0 1 1 0 setcmyk_olvcolor} if %Rm
       i 5 eq {0 0 1 0 setcmyk_olvcolor} if %Ym
       i 6 eq {1 0 1 0 setcmyk_olvcolor} if %Gm
       i 7 eq {1 1 0 0 setcmyk_olvcolor} if %Bm
       Xi i get Yi i get 0.0001 add div                 %a'
       D13 exp 0.2191 mul fakt mul
       Zi i get Yi i get 0.0001 add div                 %b'
       D13 exp -0.08376 mul fakt mul
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 8 {/i exch def %i=0,8
       Xi i get Yi i get 0.0001 add div                 %a'
       D13 exp 0.2191 mul fakt mul
       Zi i get Yi i get 0.0001 add div                 %b'
       D13 exp -0.08376 mul fakt mul
       i 7 le {90}{50} ifelse 0 360 arc stroke
      } for %i=0,8

ILA 5 ne {%ILA#5
/xshift [0100  -100  -450   150  0100  -100  -450   150  -200  0000] def
/yshift [ 200   200  -200  -100  -200  -300  -200  -100  -280  0000] def
         }%ILA#5
         {%ILA=5
/xshift [0100  -100  -450   150  0100  -100  -450   150  -200  0000] def
/yshift [-100  -300   250   050  -100   200  -250  -200  -280  0000] def
         } ifelse %ILA=5

/colori [(R)   (Y)   (G)   (B)   (R)   (Y)   (G)   (B)   (D65)   ( )] def
colori 8 TELi ILA get put

TIM
0 1 1 {/j exch def %j=0,1
       j 0 eq {/i1 0 def /i2 3 def}
              {/i1 8 def /i2 8 def} ifelse
j 0 eq ILA 5 eq and {/i2 7 def} if
i1 1 i2 {/i exch def %i=i1,i2
       Xi i get Yi i get 0.0001 add div                 %a'
       D13 exp 0.2191 mul fakt mul
       xshift i get add
       Zi i get Yi i get 0.0001 add div                 %b'
       D13 exp -0.08376 mul fakt mul
       yshift i get add
       moveto
       TIM colori i get show
         i 7 le {TS -20 -60 rmoveto
                 FARBE i 3 mul 1 add get show
                 0 60 rmoveto TIM
                } if
        } for %i=i1,i2
      } for %j=0,1

%-600 -3200 translate %for scala
-200  -3200 translate %for graphic

} if %xchart4=2


xchart4 3 eq {%xchart4=3

/fakt 40 def
3500 2000 translate %for text and grafic

0 1 0 {/j exch def %j=0,1
       j 0 eq {/i1 0 def /i2 3 def}
              {/i1 4 def /i2 7 def} ifelse
       i1 1 i2 {/i exch def %i=i1,i2
                Xi i get Yi i get 0.0001 add div      %(a-an)Y
                Xi 8 get Yi 8 get 0.0001 add div sub
                Yi i get mul fakt mul
                Zi i get Yi i get 0.0001 add div      %(b-bn)Y
                Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg
                Yi i get mul fakt mul
                i i1 eq {moveto} if
                i i1 1 add ge i i2 1 sub le and {lineto} if
                i i2 eq {lineto closepath stroke} if
               } for %i=i1,i2
      } for %j=0,1

0 1 7 {/i exch def %i=0,7
       i 0 eq {0 1 1 0 setcmyk_olvcolor} if %Rm
       i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Ym
       i 2 eq {1 0 1 0 setcmyk_olvcolor} if %Gm
       i 3 eq {1 1 0 0 setcmyk_olvcolor} if %Bm
       i 4 eq {0 1 1 0 setcmyk_olvcolor} if %Rm
       i 5 eq {0 0 1 0 setcmyk_olvcolor} if %Ym
       i 6 eq {1 0 1 0 setcmyk_olvcolor} if %Gm
       i 7 eq {1 1 0 0 setcmyk_olvcolor} if %Bm
       Xi i get Yi i get 0.0001 add div       %(a-an)Y
       Xi 8 get Yi 8 get 0.0001 add div sub
       Yi i get mul fakt mul
       Zi i get Yi i get 0.0001 add div       %(b-bn)Y
       Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg
       Yi i get mul fakt mul
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 8 {/i exch def %i=0,8
       Xi i get Yi i get 0.0001 add div        %(a-an)Y
       Xi 8 get Yi 8 get 0.0001 add div sub
       Yi i get mul fakt mul
       Zi i get Yi i get 0.0001 add div        %(b-bn)Y
       Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg
       Yi i get mul fakt mul
       i 7 le {90}{50} ifelse 0 360 arc stroke
      } for %i=0,8

ILA 5 ne {%ILA#5
/xshift [0100  -200  -450  -100  0100  -100  -450  -100  0050  0000] def
/yshift [-100   200  -100  -350  -100   200  -100  -350  0080  0000] def
         }%ILA#5
         {%ILA=5
/xshift [0100  -500  -700   150  0100  -600  -600   150  0050  0000] def
/yshift [-200   100   100  -000  0100   000  -350  -100  0080  0000] def
         } ifelse %ILA=5

/colori [(R)   (Y)   (G)   (B)   (R)   (Y)   (G)   (B)   (D65)   ( )] def
colori 8 TELi ILA get put

TIM
0 1 1 {/j exch def %j=0,1
       j 0 eq {/i1 0 def /i2 3 def}
              {/i1 8 def /i2 8 def} ifelse
j 0 eq ILA 5 eq and {/i2 7 def} if
i1 1 i2 {/i exch def %i=i1,i2
         Xi i get Yi i get 0.0001 add div                   %(a-an)Y
         Xi 8 get Yi 8 get 0.0001 add div sub
         Yi i get mul fakt mul
         xshift i get add
         Zi i get Yi i get 0.0001 add div                   %(b-bn)Y
         Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg
         Yi i get mul fakt mul
         yshift i get add
         moveto
         TIM colori i get show
         i 7 le {TS -20 -60 rmoveto
                 FARBE i 3 mul 1 add get show
                 0 60 rmoveto TIM
                } if
        } for %i=i1,i2
      } for %j=0,1

-3500 -2000 translate %for text and grafic

} if %xchart4=3

xchart4 4 eq {%xchart4=4

/D13 1 3 div def
/fakt 40 3 div def
3500 2000 translate %for text and grafic

0 1 0 {/j exch def %j=0,1
       j 0 eq {/i1 0 def /i2 3 def}
              {/i1 4 def /i2 7 def} ifelse
       i1 1 i2 {/i exch def %i=i1,i2
                Xi i get Yi i get 0.0001 add div  %500(a'-a'n)Y**(1/3)
                D13 exp 0.2191 mul
                Xi 8 get Yi 8 get 0.0001 add div
                D13 exp 0.2191 mul sub
                Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

                Zi i get Yi i get 0.0001 add div  %500(b'-b'n)Y**(1/3)
                D13 exp -0.08376 mul
                Zi 8 get Yi 8 get 0.0001 add div
                D13 exp -0.08376 mul sub
                Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
                i i1 eq {moveto} if
                i i1 1 add ge i i2 1 sub le and {lineto} if
                i i2 eq {lineto closepath stroke} if
               } for %i=i1,i2
      } for %j=0,1

0 1 7 {/i exch def %i=0,7
       i 0 eq {0 1 1 0 setcmyk_olvcolor} if %Rm
       i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Ym
       i 2 eq {1 0 1 0 setcmyk_olvcolor} if %Gm
       i 3 eq {1 1 0 0 setcmyk_olvcolor} if %Bm
       i 4 eq {0 1 1 0 setcmyk_olvcolor} if %Rm
       i 5 eq {0 0 1 0 setcmyk_olvcolor} if %Ym
       i 6 eq {1 0 1 0 setcmyk_olvcolor} if %Gm
       i 7 eq {1 1 0 0 setcmyk_olvcolor} if %Bm
       Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
       D13 exp 0.2191 mul
       Xi 8 get Yi 8 get 0.0001 add div
       D13 exp 0.2191 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

       Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
       D13 exp -0.08376 mul
       Zi 8 get Yi 8 get 0.0001 add div
       D13 exp -0.08376 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 8 {/i exch def %i=0,8
       Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
       D13 exp 0.2191 mul
       Xi 8 get Yi 8 get 0.0001 add div
       D13 exp 0.2191 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

       Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
       D13 exp -0.08376 mul
       Zi 8 get Yi 8 get 0.0001 add div
       D13 exp -0.08376 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
       i 7 le {90}{50} ifelse 0 360 arc stroke
      } for %i=0,8

ILA 5 ne {%ILA#5
/xshift [0100  -100  -450  -100  0100  -100  -450  -100  0050  0000] def
/yshift [-100   200  -100  -350  -100   200  -100  -350  0080  0000] def
         }%ILA#5
         {%ILA=5
/xshift [0100  -550  -300  -550  0100  -600  -450   200  0050  0000] def
/yshift [-150   000  -380  -100  0100   100   200   050  0080  0000] def
         } ifelse %ILA=5

/colori [(R)   (Y)   (G)   (B)   (R)   (Y)   (G)   (B)   (D65) ( )] def
colori 8 TELi ILA get put

TIM
0 1 1 {/j exch def %j=0,1
       j 0 eq {/i1 0 def /i2 3 def}
              {/i1 8 def /i2 8 def} ifelse
j 0 eq ILA 5 eq and {/i2 7 def} if
i1 1 i2 {/i exch def %i=i1,i2
         Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
         D13 exp 0.2191 mul
         Xi 8 get Yi 8 get 0.0001 add div
         D13 exp 0.2191 mul sub
         Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
         xshift i get add

         Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
         D13 exp -0.08376 mul
         Zi 8 get Yi 8 get 0.0001 add div
         D13 exp -0.08376 mul sub
         Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
         yshift i get add
         moveto
         TIM colori i get show
         i 7 le {TS -20 -60 rmoveto
                 FARBE i 3 mul 1 add get show
                 0 60 rmoveto TIM
                } if
        } for %i=i1,i2
      } for %j=0,1

-3500 -2000 translate %for text and grafic

} if %xchart4=4

showpage
grestore

%} for %xchartl=0,5

%} for %xchart4=0,2

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 197 MM translate
  10 /Times-ISOL1 FS  1 1 scale  -77 -91 translate
%%BeginDocument: Bild 12

%line 419

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 21

%line 429
%!PS-Adobe-3.0 EPSF-3.0 MF491-1N
%%BoundingBox: 70 83 228 206

%START PDFDE011.EPS
/pdfmark11 where {pop} {userdict /pdfmark11 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/MF49/)
  /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 pdfmark11
[ /View [ /FitB ]
/DOCVIEW pdfmark11
%END  PDFDE011

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

%%EndProlog
gsave

%lanindL2.EPS START  20000505
/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 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 /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 8 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def}
               {/pmetam1 0 def} ifelse

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

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

gsave
%LANINDL2 END
 
/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

/SD65 80 array def %380 bis 775 mit deltalambda=05
/SD50 80 array def %380 bis 775 mit deltalambda=05
/SP40 80 array def %380 bis 775 mit deltalambda=05
/SA00 80 array def %380 bis 775 mit deltalambda=05
/SE00 80 array def %380 bis 775 mit deltalambda=05
/SC00 80 array def %380 bis 775 mit deltalambda=05
/SP00 80 array def %380 bis 775 mit deltalambda=05
/SQ00 80 array def %380 bis 775 mit deltalambda=05

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

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

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

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

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

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

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

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


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

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

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

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

        put
       } for %i=0,79

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

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

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

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

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

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

%calculation of transformation data
%/FARBE 27 array def
%/FARBE [(R) (m) ( 561_770) %00
%        (Y) (m) ( 520_770) %01
%        (G) (m) ( 475_573) %02
%        (C) (m) ( 380_561) %03
%        (B) (m) ( 380_520) %04
%        (M) (m) ( 573_475) %05
%        (G) (o) ( 520_561) %06
%        (M) (o) ( 561_520) %07
%        (W) (1) ( 380_770) %08
%       ] def

%/FARBE [(R) (m) ( 565_770) %00
%        (Y) (m) ( 495_770) %01
%        (G) (m) ( 475_575) %02
%        (C) (m) ( 380_565) %03
%        (B) (m) ( 380_495) %04
%        (M) (m) ( 575_475) %05
%        (N) (0) ( 380_770) %06
%        (W) (0) ( 380_770) %07
%        (W) (1) ( 380_770) %08
%       ] def

%calculation of transformation data
/FARBE 27 array def
/FARBE [(R) (m) ( 565_770) %00
        (Y) (m) ( 520_770) %01
        (G) (m) ( 475_575) %02
        (C) (m) ( 380_565) %03
        (B) (m) ( 380_520) %04
        (M) (m) ( 575_475) %05
        (G) (o) ( 520_565) %06
        (M) (o) ( 565_520) %07
        (W) (1) ( 380_770) %08
       ] def

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

/RX0 640 array def %8x80
/RX0 [

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

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

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

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

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

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

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

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

%(%Gm      02 475_575)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
0000 0000 0000 0000 0000 0000 0000 0000 0000 0500

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

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

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

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

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

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

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

%(%Bm   05 380_520)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000

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

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

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

%(%Mm     06 575_475)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
1000 1000 1000 1000 1000 1000 1000 1000 1000 0500

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

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

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

%(%Go      02 520_565)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000

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

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

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

%(%Mo     06 565_520)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000

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

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

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

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

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

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

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

] def

/xcolorl xcolor def
%0 1 1 {/xcolorl exch def %xcolorl=0,1

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

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

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

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

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

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

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

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

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

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

/TELi 8 array def
/TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %8 illuminants

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

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

/xchartl 0 def %special allways D65
%0 1 7 {/xchartl exch def %xchartl=0,7

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

gsave

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

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

72 90 translate

0.010 MM dup scale

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

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

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

0 1 79 {/i exch def %i=0,79
        SDAK i xchartl 0 eq {SD65 i get} if
               xchartl 1 eq {SD50 i get} if
               xchartl 2 eq {SP40 i get} if
               xchartl 3 eq {SA00 i get} if
               xchartl 4 eq {SE00 i get} if
               xchartl 5 eq {SC00 i get} if
               xchartl 6 eq {SP00 i get} if
               xchartl 7 eq {SQ00 i get} if
               put
       } for %i=0,79

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

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

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

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

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

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

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

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

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

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

        } for %k=0,8

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

/xtexti 96 array def
/ytexti 96 array def
/xtexti [
%T00 T10  T20   T30   T40  T41   T50  T51   T60  T61  T70  T71
%0   1    2     3     4    5     6    7     8    9    10   11
1800 1800 1800  2800  2800 4000  2800 4000  2800 4000 2800 4000 %0
0600 0600 0600  0600  0600 1800  0600 1800  0600 1800 0600 1800 %1
0700 0700 0700  0700  0700 1900  0700 1900  0700 1900 0700 1900 %2
0700 0700 0700  0700  0700 1900  0700 1900  0700 1900 0700 1900 %3
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %4
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %5
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %6
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %7
] def
/ytexti [ 
3800 3580 3360  3140  2920 2920  2700 2700  2480 2480 2260 2260 %0
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %1
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %2
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %3
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %4
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %5
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %6
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %7
] def

0 0 0 1 setcmyk_olvcolor
/xchart12 xchart4 12 mul def

TBS
xchart4 1 ge { %xchart4 >=1
xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto
xchart4 1 eq {(LABCab 77) show} if
xchart4 2 eq {(CIELAB 76) show} if
xchart4 3 eq {(LABJNDS 87) show} if
xchart4 4 eq {(LABCab 85) show} if
xchart4 5 eq {(CIELAB 76) show} if
xchart4 6 eq {(CIELAB D65) show} if
xchart4 7 eq {(LABHNU1 79) show} if
             } if %xchart4 >=1

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

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

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

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

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

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

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

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

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

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

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

xtexti xchart12 1 add get ytexti xchart12 1 add get moveto
(6 von maximalem (m)) showde                                    %0MF491-7 03581
(6 of maximum (m)) showen                                       %1MF491-7 03581
(6 de chroma m\341ximo (m)) showes                              %2MF491-7 03581
(6 de la maximum (m)) showfr                                    %3MF491-7 03581
(6 di massimo (m)) showit                                       %4MF491-7 03581
(6 of maximum (m)) showjp                                       %5MF491-7 03581
TBIS ( C) show
TBL 0 -60 rmoveto (AB) show 0 60 rmoveto
TBS ( ) show
(f\374r ) showde                                                %0MF491-7 03581
(for ) showen                                                   %1MF491-7 03581
(bajo ) showes                                                  %2MF491-7 03581
(pour ) showfr                                                  %3MF491-7 03581
(per ) showit                                                   %4MF491-7 03581
(for ) showjp   

TELi xchartl get show

xtexti xchart12 2 add get ytexti xchart12 2 add get moveto
xchart4 0 eq {%xchart4=0
(in der Normfarbtafel) showde                                   %0MF491-7 04581
(in the chromaticity diagram) showen                            %1MF491-7 04581
(en el diagrama de chromaticidad) showes                        %2MF491-7 04581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-7 04581
(nel diagramma di cromaticit\340) showit                        %4MF491-7 04581
(in the chromaticity diagram) showjp                            %5MF491-7 04581
TBIS ( (x, y)) show
             } if %xchart4=0

xchart4 1 eq {%xchart4=1
(in der Farbtafel) showde                                       %0MF491-7 05581
(in the chromaticity diagram) showen                            %1MF491-7 05581
(en el diagrama de chromaticidad) showes                        %2MF491-7 05581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-7 05581
(nel diagramma di cromaticit\340) showit                        %4MF491-7 05581
(in the chromaticity diagram) showjp                            %5MF491-7 05581
TBIS ( (a, b)) show
             } if %xchart4=1

xchart4 2 eq {%xchart4=2
(in der Farbarbtafel) showde                                    %0MF491-7 06581
(in the chromaticity diagram) showen                            %1MF491-7 06581
(en el diagrama de chromaticidad) showes                        %2MF491-7 06581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-7 06581
(nel diagramma di cromaticit\340) showit                        %4MF491-7 06581
(in the chromaticity diagram) showjp                            %5MF491-7 06581
TBIS ( (a', b')) show
             } if %xchart4=2

xchart4 3 eq {%xchart4=3
(in der Farbarbtafel) showde                                    %0MF491-7 07581
(in the chromaticity diagram) showen                            %1MF491-7 07581
(en el diagrama de chromaticidad) showes                        %2MF491-7 07581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-7 07581
(nel diagramma di cromaticit\340) showit                        %4MF491-7 07581
(in the chromaticity diagram) showjp                            %5MF491-7 07581
TBIS ( (a", b")) show
             } if %xchart4=3

xchart4 4 eq {%xchart4=4
(in Buntwertdiagramm) showde                                    %0MF491-7 08581
(in chromatic value diagram) showen                             %1MF491-7 08581
(en el diagrama valor crom\341tico) showes                      %2MF491-7 08581
(dans la valeur chromatique le diagramme) showfr                %3MF491-7 08581
(nel diagramma di valore cromatico) showit                      %4MF491-7 08581
(in chromatic value diagram) showjp                             %5MF491-7 08581
TBIS ( (A, B)) show
             } if %xchart4=4

xchart4 5 eq {%xchart4=5
(in Buntheitsdiagram) showde                                    %0MF491-7 09581
(in CIELAB diagram) showen                                      %1MF491-7 09581
(en el diagrama CIELAB) showes                                  %2MF491-7 09581
(dans le diagramme de CIELAB) showfr                            %3MF491-7 09581
(nel diagramma di CIELAB) showit                                %4MF491-7 09581
(in CIELAB diagram) showjp                                      %5MF491-7 09581
TBIS ( (a*, b*)) show
             } if %xchart4=5

xchart4 6 eq {%xchart4=6
(in Buntheitsdiagram) showde                                    %0MF491-7 10581
(in chroma diagram) showen                                      %1MF491-7 10581
(en el diagrama croma) showes                                   %2MF491-7 10581
(dans le diagramme de chroma) showfr                            %3MF491-7 10581
(nel diagramma di chroma) showit                                %4MF491-7 10581
(in chroma diagram) showjp                                      %5MF491-7 10581

TBIS ( \050a*) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (, ) show TBIS (b*) show 
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (\051) show

             } if %xchart4=6

xchart4 7 eq {%xchart4=7
(in Buntheitsdiagram) showde                                    %0MF491-7 11581
(in chroma diagram) showen                                      %1MF491-7 11581
(en el diagrama croma) showes                                   %2MF491-7 11581
(dans le diagramme de chroma) showfr                            %3MF491-7 11581
(nel diagramma di chroma) showit                                %4MF491-7 11581
(in chroma diagram) showjp                                      %5MF491-7 11581
TBIS ( (A*, B*)) show
             } if %xchart4=7

xchart4 0 eq {%xchart4=0

600 400 translate

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

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

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

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

%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

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

TIM
-300 2800 moveto (y) show

TIM
4200 150 moveto (x) show

TBIS
2600 150 moveto (CIE 1931) show

-600 -400 translate

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

       } if %xchart4=0

xchart4 1 eq {%xchart4=1

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

-175 -3050 moveto
90 rotate 
TBIK (b) show TBK (=-0,40) show TBIK (z/y) show
-90 rotate
3650   100 moveto TBIK (a=x/y) show
 
-500 -3200 translate
 
 %1000 02 01 16 01-.03****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200

   1300   3200 translate

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

  -1300  -3200 translate
 %ENDE: 2

             } if %xchart4=1

xchart4 2 eq {%xchart4=2

600 3200 translate

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

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

 000 350 moveto  0 100 rlineto  stroke
0800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

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

%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

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

TIM
-380  -1300 moveto (b') show
4300 250 moveto (a') show

-600 -3200 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0:  400 3200

    400   3200 translate

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

   -400  -3200 translate

 %ENDE: 3

             } if %xchart4=2

xchart4 3 eq {%xchart4=3

600 3200 translate

0 400 moveto  4400  0 rlineto  stroke
0 400 moveto  0 -3500 rlineto  stroke

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

-250  500 moveto (-0,6) show
 650  500 moveto (0,0) show
1450  500 moveto (0,6) show
2250  500 moveto (1,2) show
3050  500 moveto (1,8) show
3850  500 moveto (2,4) show
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,6) show
-450 -1700 moveto (-1,2) show
-450 -2500 moveto (-1,8) show

TBIK
-450  -2900 moveto (b") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK
4050 200 moveto (a") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK

-600 -3200 translate
 
 %1000 02             ****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0:  700 3200
    700 800 add  3200 translate
   3789  -3170 moveto
   3789  -3170   3789  -3170   3788  -3170 curveto
   3787  -3170   3779  -3166   3757  -3155 curveto
   3724  -3138   3673  -3113   3603  -3079 curveto
   3514  -3037   3394  -2982   3239  -2915 curveto
   3028  -2826   2734  -2704   2265  -2508 curveto
   1626  -2234    957  -1880    645  -1481 curveto
    507  -1078    443   -720    417   -455 curveto
    411   -308    419   -223    437   -171 curveto
    464   -144    496   -130    533   -121 curveto
    573   -115    616   -111    664   -108 curveto
    721   -107    787   -105    867   -105 curveto
    963   -104   1081   -104   1227   -104 curveto
   1397   -104   1561   -104   1716   -104 curveto
   1858   -104   1981   -104   2090   -104 curveto
   2180   -104   2254   -104   2313   -104 curveto
   2360   -103   2397   -103   2429   -103 curveto
   2455   -103   2476   -103   2491   -103 curveto
   2503   -103   2512   -103   2517   -103 curveto
   2522   -103   2526   -103   2530   -103 curveto
   2533   -103   2535   -103   2536   -103 curveto
   2536   -103   2537   -103   2556   -214 curveto
   2623   -700   2668  -1007   2700  -1196 curveto
   2723  -1324   2742  -1416   2756  -1488 curveto
   2772  -1560   2791  -1636   2811  -1717 curveto
   2837  -1813   2873  -1933   2929  -2093 curveto
   3019  -2313   3211  -2648   3788  -3169 curveto
 stroke
 1 setgray
   3789  -3170 30 0 360 arc fill % 400
   3757  -3155 30 0 360 arc fill % 425
   3394  -2982 30 0 360 arc fill % 450
   1626  -2234 30 0 360 arc fill % 475
    417   -455 30 0 360 arc fill % 500
    496   -130 30 0 360 arc fill % 525
    721   -107 30 0 360 arc fill % 550
   1227   -104 30 0 360 arc fill % 575
   1981   -104 30 0 360 arc fill % 600
   2360   -103 30 0 360 arc fill % 625
   2491   -103 30 0 360 arc fill % 650
   2526   -103 30 0 360 arc fill % 675
   2536   -103 30 0 360 arc fill % 700
   2623   -700 30 0 360 arc fill %500c
   2756  -1488 30 0 360 arc fill %525c
   2873  -1933 30 0 360 arc fill %550c
 0 setgray
   3789  -3170 30 0 360 arc stroke % 400
   3757  -3155 30 0 360 arc stroke % 425
   3394  -2982 30 0 360 arc stroke % 450
   1626  -2234 30 0 360 arc stroke % 475
    417   -455 30 0 360 arc stroke % 500
    496   -130 30 0 360 arc stroke % 525
    721   -107 30 0 360 arc stroke % 550
   1227   -104 30 0 360 arc stroke % 575
   1981   -104 30 0 360 arc stroke % 600
   2360   -103 30 0 360 arc stroke % 625
   2491   -103 30 0 360 arc stroke % 650
   2526   -103 30 0 360 arc stroke % 675
   2536   -103 30 0 360 arc stroke % 700
   2623   -700 30 0 360 arc stroke %500c
   2756  -1488 30 0 360 arc stroke %525c
   2873  -1933 30 0 360 arc stroke %550c
   1266   -580 30 0 360 arc fill %D65
 0 setgray
TBIS
   3789 200 sub  -3170 200 add moveto (400) show
%  3757 600 sub  -3155 100 sub moveto (425) show
%  3394 600 sub  -2982 100 sub moveto (450) show
   1626 050 sub  -2234 150 add moveto (475) show
    417 430 sub   -455 100 sub moveto (500) show
    496 400 sub   -130  50 add moveto (525) show
    721 200 sub   -107 100 add moveto (550) show
   1227 200 sub   -104 100 add moveto (575) show
   1981 200 sub   -104 100 add moveto (600) show
%  2360 200 sub   -103 100 add moveto (625) show
%  2491 200 sub   -103 100 add moveto (650) show
%  2526 200 sub   -103 100 add moveto (675) show
   2536 100 add   -103         moveto (700) show
   2623 100 add   -700 100 sub moveto (500c) show
   2756 100 add  -1488 100 sub moveto (525c) show
%   2873 100 add  -1933 100 sub moveto (550c) show
%   1266 100 add   -580 100 sub moveto (D65 ) show
   700 800 add neg -3200 translate
 %ENDE: 3

             } if %xchart4=3

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

3500 2000 translate

%axis and scales
0 0 0 1 setcmyk_olvcolor
-2250 0 moveto 3950  0 rlineto stroke
0 -1880  moveto 0 3600  rlineto stroke
1700 100 sub 50 moveto 100 -50 rlineto
                      -100 -50 rlineto closepath fill
0 50 sub 1800 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill

/xt10x 5 array def
/yt10x 5 array def

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

xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7
/xt10x [(-120) ( ) ( ) ( ) (  120)] def

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

0 0 0 1 setcmyk_olvcolor
0 1 4 {/i exch def %i=0,4 x-axis
        -1600   i 800   mul add  -75 moveto 0 150 rlineto stroke
        -1800   i 800   mul add -250 moveto
        TBS xt10x i get show
        i 4 eq {-1600 i 800 mul add 0 moveto
               xchart4 4 eq { %xchart4=4
                             000 150 rmoveto
                             TBIM (A) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -50 150 rmoveto
                             TBIM (a*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -350 150 rmoveto
                             TBIM (a*) show 
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -50 150 rmoveto
                             TBIM (A*) show TL
                            } if %xchart4=7
               } if

       } for %i=0,4

0 1 4 {/i exch def %i=0,4 y-axis
       -75 -1600 i 800 mul    add moveto 150 0 rlineto stroke
       100 -1600 i 800 mul    add 100 sub moveto
       TBS yt10x i get show
       i 4 eq {0 -1600 i 800 mul add moveto
               xchart4 4 eq { %xchart4=4
                             -250 150 rmoveto
                             TBIM (B) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -400 150 rmoveto
                             TBIM (b*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -750 150 rmoveto
                             TBIM (b*) show
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -300 150 rmoveto
                             TBIM (B*) show TL
                            } if %xchart4=7
             } if

       } for %i=0,4


-3500 -2000 translate

} if %4>=xchart4<=7

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

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

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

/fakt 4000 def

600 400 translate %for scala and graphic

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

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

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

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

} for %i=0,7

-600 -400 translate %for scala and grafic

} if %xchart4=0

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

/fakt 1000 def
/a2 XW YW 0.0001 add div def
/b2 ZW YW 0.0001 add div -0.4 mul def

 1300 3200 translate %for grafic

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

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

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

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

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

} for %i=0,5

-1300 -3200 translate %for grafic

} if %xchart4=1


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

/D13 1 3 div def
/fakt 13333 def

/a2 XW YW 0.0001 add div
    D13 exp 0.2191 mul def
/b2 ZW YW 0.0001 add div 
    D13 exp -0.08376 mul def

 200 3200 translate %for graphic

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

XW YW 0.0001 add div                 %a'
D13 exp 0.2191 mul fakt mul
ZW YW 0.0001 add div                 %b' 
D13 exp -0.08376 mul fakt mul
90 0 360 arc stroke

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

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

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

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

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

} for %i=0,5

-200  -3200 translate %for graphic

} if %xchart4=2

xchart4 3 eq {%xchart4=3 %only for (a",b")

%100 3800 moveto TIS ((a",b") (LAB 1977)) show

/fakt 1333 def
/XD65 95.04 def
/YD65 100.00 def
/ZD65 108.89 def
/aD65 XD65 YD65 0.0001 add div def
/bD65 ZD65 YD65 0.0001 add div -0.4 mul def
/a2 aD65 def
/b2 bD65 def

 700 800 add 3200 translate %for grafic

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

a"n fakt mul
b"n fakt mul
90 0 360 arc stroke

a"n fakt mul
200 sub
b"n fakt mul
250 sub moveto
TBS TELi xchartl get show

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

        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def

/AnY a" fakt mul def
/BnY b" fakt mul def

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

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

} for %i=0,5

700 800 add neg -3200 translate %for graphic

} if %xchart4=3

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

/fakt 40 def
/a2 1.00 def
/b2 -0.4 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (A) show
TBS ( = \050) show
TBIS (a) show
TBS ( - ) show
TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1300 moveto
TBIS (B) show
TBS ( = \050) show
TBIS (b) show
TBS ( - ) show
TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show
TBS (]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show
TBS (]) show

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1) show

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -0,4) show

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

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

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

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

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

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

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

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

} for %i=0,5

} if %xchart4=4

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

/D13 1 3 div def
/fakt 40 3 div def
/a2 1 XW div D13 exp def
/b2 1 ZW div D13 exp -0.4 mul def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

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

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

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

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

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

90 0 360 arc stroke

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

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

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

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

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

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

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

} for %i=0,5

-3500 -2000 translate %for text and grafic

} if %xchart4=5

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

/D13 1 3 div def
/fakt 40 3 div def
/a2 0.2191 def
/b2 -0.08376 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a') show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b') show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

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

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

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

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

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

90 0 360 arc stroke

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

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

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

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

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

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

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

} for %i=0,5

-3500 -2000 translate %for text and grafic

} if %xchart4=6

xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65

/D13 1 3 div def
/D11 1 def
/D16  1 6 div def
/fakt 40 3 div def
/a2 1 15 div def
/b2 1 12 div neg def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS ( + 1]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS ( + 1/6 ]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1/15 = ) show a2 cvsshow5

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -1/12 = ) show b2 cvsshow5

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

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

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

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

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

90 0 360 arc stroke

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

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

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

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

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

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

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

} for %i=0,5

-3500 -2000 translate %for text and grafic

} if %xchart4=7

showpage
grestore

%} for %xchartl=0,7

} for %xchart4=0,7

%} for %xcolorl=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 22

%line 439
%!PS-Adobe-3.0 EPSF-3.0 MF491-2N
%%BoundingBox: 70 83 228 206

%START PDFDE011.EPS
/pdfmark12 where {pop} {userdict /pdfmark12 /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/MF49/)
  /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 pdfmark12
[ /View [ /FitB ]
/DOCVIEW pdfmark12
%END  PDFDE011

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

%%EndProlog
gsave

%lanindL2.EPS START  20000505
/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 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 /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} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

/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

/SD65 80 array def %380 bis 775 mit deltalambda=05
/SD50 80 array def %380 bis 775 mit deltalambda=05
/SP40 80 array def %380 bis 775 mit deltalambda=05
/SA00 80 array def %380 bis 775 mit deltalambda=05
/SE00 80 array def %380 bis 775 mit deltalambda=05
/SC00 80 array def %380 bis 775 mit deltalambda=05
/SP00 80 array def %380 bis 775 mit deltalambda=05
/SQ00 80 array def %380 bis 775 mit deltalambda=05

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

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

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

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

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

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

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

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


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

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

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

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

        put
       } for %i=0,79

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

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

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

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

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

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

%calculation of transformation data
/FARBE 27 array def
/FARBE [(R) (m) ( 561_770) %00
        (Y) (m) ( 520_770) %01
        (G) (m) ( 475_573) %02
        (C) (m) ( 380_561) %03
        (B) (m) ( 380_520) %04
        (M) (m) ( 573_475) %05
        (N) (0) ( 380_770) %06
        (W) (0) ( 380_770) %07
        (W) (1) ( 380_770) %08
       ] def

%/FARBE [(R) (m) ( 565_770) %00
%        (Y) (m) ( 520_770) %01
%        (G) (m) ( 475_575) %02
%        (C) (m) ( 380_565) %03
%        (B) (m) ( 380_520) %04
%        (M) (m) ( 575_475) %05
%        (N) (0) ( 380_770) %06
%        (W) (0) ( 380_770) %07
%        (W) (1) ( 380_770) %08
%       ] def

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

/RX0 640 array def %8x80
/RX0 [

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

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

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

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

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

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

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

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

%(%Gm      02 475_575)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
0000 0000 0000 0000 0000 0000 0000 0000 0000 0500

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

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

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

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

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

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

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

%(%Bm   05 380_495)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000

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

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

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

%(%Mm     06 575_475)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
1000 1000 1000 1000 1000 1000 1000 1000 1000 0500

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

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

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

%(%N0(r=0,001) 09 380_770)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
0001 0001 0001 0001 0001 0001 0001 0001 0001 0001
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
0001 0001 0001 0001 0001 0001 0001 0001 0001 0001

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

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

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

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

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

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

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

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

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

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

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

] def

/xcolorl xcolor def
%0 1 1 {/xcolorl exch def %xcolorl=0,1


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

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

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

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

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

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

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

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

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

20 setlinewidth
/xdel  1005 def
/ydel   395 def
/x0  050 def
/x1 -150 def

/TELi 8 array def
/TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin.

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

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

/xchartl 0 def %special allways D65
%0 1 7 {/xchartl exch def %xchartl=0,7

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

gsave

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

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

72 90 translate

0.010 MM dup scale

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

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

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

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

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

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

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

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

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

0 1 62 {/i exch def %i=0,62
        FAD i FXD i get put
        FBD i FYD i get put
        FCD i FZD i get put
       } for %i=0,62

%      FXU(1)=FF(2)*U(3)-FF(3)*U(2)
%      FXU(2)=FF(3)*U(1)-FF(1)*U(3)
%      FXU(3)=FF(1)*U(2)-FF(2)*U(1)

%      SUBROUTINE DOWEL (F,FXU,IMAX,IO)
%      DIMENSION F(99,3),FXU(3)
%      I=1
%      T2=F(1,1)*FXU(1)+F(1,2)*FXU(2)+F(1,3)*FXU(3)
%      IF(T2) 1,1,4
%    1 T1=T2
%      I=I+1
%      T2=F(I,1)*FXU(1)+F(I,2)*FXU(2)+F(I,3)*FXU(3)
%      IF(T2) 1,1,2
%    2 IF(T1) 3,3,1
%    3 IO=I-1
%      RETURN
%    4 T1=F(IMAX,1)*FXU(1)+F(IMAX,2)*FXU(2)+F(IMAX,3)*FXU(3)
%      IF(T1) 5,5,1
%    5 IO=IMAX
%      RETURN
%      END

%*********************************************************
/proc_ABC_KNP_FWERTiX
{%BEG proc_ABC_KNP_FWERT

%input FAD,FBD,FCD, KNP
%output FWERTiX/Y/Z (i=1,4)

    kNP 1 ge {/FWERT1X FAD kNP 1 sub get def
              /FWERT1Y FBD kNP 1 sub get def
              /FWERT1Z FCD kNP 1 sub get def}
             {/FWERT1X FAD 0 get def %again 400nm for i=0
              /FWERT1Y FBD 0 get def
              /FWERT1Z FCD 0 get def} ifelse

    /FWERT2X FAD kNP get def
    /FWERT2Y FBD kNP get def
    /FWERT2Z FCD kNP get def

    /FWERT3X FAD kNP 1 add get def
    /FWERT3Y FBD kNP 1 add get def
    /FWERT3Z FCD kNP 1 add get def

    /FWERT4X FAD kNP 2 add get def
    /FWERT4Y FBD kNP 2 add get def
    /FWERT4Z FCD kNP 2 add get def

} bind def %END proc_ABC_KNP_FWERTiX

%*********************************************************
/proc_XIE_TN1
{%BEG proc_XIE_TN1

%input XIE, FWERTiX/Y/Z (i=1,4)
%output TN1

/A1N XIE       1 XIE sub mul XIE 2 sub mul 6 div   def
/A2N XIE 1 add XIE 1 sub mul XIE 2 sub mul 0.5 mul def
/A3N XIE 1 add XIE       mul 2 XIE sub mul 0.5 mul def
/A4N XIE 1 add XIE       mul XIE 1 sub mul 6 div   def
/FNX A1N FWERT1X mul
     A2N FWERT2X mul add
     A3N FWERT3X mul add
     A4N FWERT4X mul add def
/FNY A1N FWERT1Y mul
     A2N FWERT2Y mul add
     A3N FWERT3Y mul add
     A4N FWERT4Y mul add def
/FNZ A1N FWERT1Z mul
     A2N FWERT2Z mul add
     A3N FWERT3Z mul add
     A4N FWERT4Z mul add def
/TNX FNX FXU1 mul
     FNY FXU2 mul add
     FNZ FXU3 mul add def

} bind def %END proc_XIE_TN1

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

/WEL1 60 array def %irregular definition
/WEL2 60 array def %irregular definition
      %0   1   2   3   4   5   6   7   8   9
/WEL1 [405 435 450 460 465 470 475 480 485 490
       495 500 510 520 530 540 545 550 555 560
      ] def

0 1 19 {/k exch def %k=0,19 %wavelength 405..700nm

        /j  WEL1 k get 400 sub 5 idiv def
        /LP k def
        /LPP 20.5 k add def

       /FF1 FXD j get def %start at 405..700nm
       /FF2 FYD j get def
       /FF3 FZD j get def

       /U1 XW def
       /U2 YW def
       /U3 ZW def
       
       /FXU1 FF2 U3 mul FF3 U2 mul sub def
       /FXU2 FF3 U1 mul FF1 U3 mul sub def
       /FXU3 FF1 U2 mul FF2 U1 mul sub def

/INP -1 def
/IPN -1 def
%assumption jump from TN to TP from negativ to positiv
       0 1 60 {/i exch def %i=1,60
               /TN FAD i get FXU1 mul
                   FBD i get FXU2 mul add
                   FCD i get FXU3 mul add def

               /TP FAD i 1 add get FXU1 mul
                   FBD i 1 add get FXU2 mul add
                   FCD i 1 add get FXU3 mul add def
               TN 0 le TP 0 gt and {/INP i def exit} if
              } for %i=1,60

       0 1 60 {/i exch def %i=1,60
               /TN FAD i get FXU1 mul
                   FBD i get FXU2 mul add
                   FCD i get FXU3 mul add neg def
               /TP FAD i 1 add get FXU1 mul
                   FBD i 1 add get FXU2 mul add
                   FCD i 1 add get FXU3 mul add neg def
               TN 0 le TP 0 gt and {/IPN i def exit} if
              } for %i=1,60

%*********************************************************
/kNP INP def

kNP 0 ge {%kNP>=0

proc_ABC_KNP_FWERTiX %input FAD,KNP, output FWERTiXYZ (i=1,4)

/XIE1 0 def %start values TN=0 for XIE1, TP>0 for XIE2
/XIE2 1 def

0 1 9 {/mk exch def %mk=0,9
       /XIE XIE1 XIE2 add 0.5 mul def
       proc_XIE_TN1  %input XIE, ouput TN1
       TNX 0 le {/XIE1 XIE def /TN1 TNX def}
                {/XIE2 XIE def /TP1 TNX def} ifelse
      } for %mk=0,9

/XIE XIE1 XIE2 add 0.5 mul def
/DOWXIE1 DOW INP get DOW INP 1 add get DOW INP get sub XIE mul add def
/XIENP XIE def

       } if %kNP>=0

%*********************************************************
/kNP IPN def

kNP 0 ge {%kNP>=0

proc_ABC_KNP_FWERTiX %input FAD,KNP, output FWERTiXYZ (i=1,4)

/XIE1 0 def %start values TN=0 for XIE1, TP>0 for XIE2
/XIE2 1 def
/FXU1 FXU1 neg def
/FXU2 FXU2 neg def
/FXU3 FXU3 neg def

0 1 9 {/mk exch def %mk=0,9
       /XIE XIE1 XIE2 add 0.5 mul def
       proc_XIE_TN1  %input XIE, ouput TN1
       TNX 0 le {/XIE1 XIE def /TN1 TNX def}
                {/XIE2 XIE def /TP1 TNX def} ifelse
      } for %mk=0,9

/XIE XIE1 XIE2 add 0.5 mul def
/DOWXIE2 DOW IPN get DOW IPN 1 add get DOW IPN get sub XIE mul add def
/XIEPN XIE def

       } if %kNP>=0

%*********************************************************
0 1 79 {/i exch def %i=0,79
        RA i 0 put
       } for %i=0,79

INP -1 eq {/i1 0 def}                %380nm
          {/i1 INP 5 add def} ifelse %405..700nm

IPN -1 eq {/i2 79 def}               %770nm
          {/i2 IPN 5 add def} ifelse %405..700nm

i2 i1 ge {%i1<i2
          i1 1 i2 {/i exch def %i=i1,i2
                   RA i 1 put
                  } for %i=i1,i2
         }%i1<i2
         {%i1>i2
          i1 1 79 {/i exch def %i=i1,79
                   RA i 1 put
                  } for %i=i1,79
          0  1 i2 {/i exch def %i=0,i2
                   RA i 1 put
                  } for %i=0,i2
                  
         } ifelse %i1>i2

%correction
i2 i1 ge {%i1<i2
          RA i1 0.5 put
          RA i2 0.5 XIEPN 0.5 sub add put
         }%i1<i2
         {%i1>i2
          RA i1 0.5 put
          RA i2 0.5 XIEPN 0.5 sub add put
         } ifelse %i1>i2

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

/SUM X Y add Z add def
/XAN X SUM 0.0001 add div def
/YAN Y SUM 0.0001 add div def
/ZAN Z SUM 0.0001 add div def

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

0 0 0 1 setcmyk_olvcolor

0 1 1 {/Icom exch def %Icom=0,1

Icom 0 eq {%Icom=0,1
           Xi k X put
           Yi k Y put
           Zi k Z put
           XANi k XAN put
           YANi k YAN put
           ZANi k ZAN put
          }%Icom=0
          {%Icom=1
           /kP 20 k add def
           Xi kP XW X sub put
           Yi kP YW Y sub put
           Zi kP ZW Z sub put
           /SUMi Xi kP get
                 Yi kP get add
                 Zi kP get add def
           XANi kP Xi kP get SUMi 0.0001 add div put
           YANi kP Yi kP get SUMi 0.0001 add div put
           ZANi kP Zi kP get SUMi 0.0001 add div put
          } ifelse %Icom=1

} for %Icom=0,1

K 1 eq {%K=1
        Xi k  Xi k  get 0.8859 mul put
        Yi k  Yi k  get 0.8859 mul put
        Zi k  Zi k  get 0.8859 mul put
        Xi kP Xi kP get 0.8859 mul put
        Yi kP Yi kP get 0.8859 mul put
        Zi kP Zi kP get 0.8859 mul put
       } if %K=1

} for %k=0,19

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

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

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

/LP LP 1 add def

/xtexti 96 array def
/ytexti 96 array def
/xtexti [
%T00 T10  T20   T30   T40  T41   T50  T51   T60  T61  T70  T71
%0   1    2     3     4    5     6    7     8    9    10   11
1800 1800 1800  2800  2800 4000  2800 4000  2800 4000 2800 4000 %0
0600 0600 0600  0600  0600 1800  0600 1800  0600 1800 0600 1800 %1
0700 0700 0700  0700  0700 1900  0700 1900  0700 1900 0700 1900 %2
0700 0700 0700  0700  0700 1900  0700 1900  0700 1900 0700 1900 %3
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %4
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %5
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %6
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %7
] def
/ytexti [ 
3800 3580 3360  3140  2920 2920  2700 2700  2480 2480 2260 2260 %0
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %1
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %2
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %3
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %4
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %5
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %6
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %7
] def

0 0 0 1 setcmyk_olvcolor
/xchart12 xchart4 12 mul def

TBS
xchart4 1 ge { %xchart4 >=1
xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto
xchart4 1 eq {(LABCab 77) show} if
xchart4 2 eq {(CIELAB 76) show} if
xchart4 3 eq {(LABJNDS 87) show} if
xchart4 4 eq {(LABCab 85) show} if
xchart4 5 eq {(CIELAB 76) show} if
xchart4 6 eq {(CIELAB D65) show} if
xchart4 7 eq {(LABHNU1 79) show} if
             } if %xchart4 >=1

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

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

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

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

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

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

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

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

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

TBS
0 0 0 1 setcmyk_olvcolor
xtexti xchart12 0 add get ytexti xchart12 0 add get moveto
TBIS (Ostwald) show TBS
(\255Optimalfarben (o)) showde                                  %0MF491-2 02581
( optimal colours (o)) showen                                   %1MF491-2 02581
( colores \363ptimos (o)) showes                                %2MF491-2 02581
( couleurs optimales (o)) showfr                                %3MF491-2 02581
( colori ottimi (o)) showit                                     %4MF491-2 02581
( optimal colours (o)) showjp                                   %5MF491-2 02581

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

xtexti xchart12 1 add get ytexti xchart12 1 add get moveto
(6 von maximalem (m)) showde                                    %0MF491-2 03581
(6 of maximum (m)) showen                                       %1MF491-2 03581
(6 de m\341ximo (m)) showes                                     %2MF491-2 03581
(6 de la maximum (m)) showfr                                    %3MF491-2 03581
(6 di massimo (m)) showit                                       %4MF491-2 03581
(6 of maximum (m)) showjp                                       %5MF491-2 03581

TBIS ( C) show TBL 0 -60 rmoveto (AB) show 0 60 rmoveto TBS

( f\374r ) showde                                               %0MF491-2 03581
( for ) showen                                                  %1MF491-2 03581
( bajo ) showes                                                 %2MF491-2 03581
( pour ) showfr                                                 %3MF491-2 03581
( per ) showit                                                  %4MF491-2 03581
( for ) showjp                                                  %5MF491-2 03581

TELi xchartl get show

xtexti xchart12 2 add get ytexti xchart12 2 add get moveto

xchart4 0 eq {%xchart4=0
(in der Normfarbtafel) showde                                   %0MF491-2 04581
(in the chromaticity diagram) showen                            %1MF491-2 04581
(en el diagrama de chromaticidad) showes                        %2MF491-2 04581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-2 04581
(nel diagramma di cromaticit\340) showit                        %4MF491-2 04581
(in the chromaticity diagram) showjp                            %5MF491-2 04581
TBIS ( (x, y)) show
             } if %xchart4=0

xchart4 1 eq {%xchart4=1
(in der Farbtafel) showde                                       %0MF491-2 05581
(in the chromaticity diagram) showen                            %1MF491-2 05581
(en el diagrama de chromaticidad) showes                        %2MF491-2 05581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-2 05581
(nel diagramma di cromaticit\340) showit                        %4MF491-2 05581
(in the chromaticity diagram) showjp                            %5MF491-2 05581
TBIS ( (a, b)) show
             } if %xchart4=1

xchart4 2 eq {%xchart4=2
(in der Farbarbtafel) showde                                    %0MF491-2 06581
(in the chromaticity diagram) showen                            %1MF491-2 06581
(en el diagrama de chromaticidad) showes                        %2MF491-2 06581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-2 06581
(nel diagramma di cromaticit\340) showit                        %4MF491-2 06581
(in the chromaticity diagram) showjp                            %5MF491-2 06581
TBIS ( (a', b')) show
             } if %xchart4=2

xchart4 3 eq {%xchart4=3
(in der Farbarbtafel) showde                                    %0MF491-2 07581
(in the chromaticity diagram) showen                            %1MF491-2 07581
(en el diagrama de chromaticidad) showes                        %2MF491-2 07581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-2 07581
(nel diagramma di cromaticit\340) showit                        %4MF491-2 07581
(in the chromaticity diagram) showjp                            %5MF491-2 07581
TBIS ( (a", b")) show
             } if %xchart4=3

xchart4 4 eq {%xchart4=4
(in Buntwertdiagramm) showde                                    %0MF491-2 08581
(in chromatic value diagram) showen                             %1MF491-2 08581
(en el diagrama valor crom\341tico) showes                      %2MF491-2 08581
(dans la valeur chromatique le diagramme) showfr                %3MF491-2 08581
(nel diagramma di valore cromatico) showit                      %4MF491-2 08581
(in chromatic value diagram) showjp                             %5MF491-2 08581
TBIS ( (A, B)) show
             } if %xchart4=4

xchart4 5 eq {%xchart4=5
(in Buntheitsdiagram) showde                                    %0MF491-2 09581
(in CIELAB diagram) showen                                      %1MF491-2 09581
(en el diagrama CIELAB) showes                                  %2MF491-2 09581
(dans le diagramme de CIELAB) showfr                            %3MF491-2 09581
(nel diagramma di CIELAB) showit                                %4MF491-2 09581
(in CIELAB diagram) showjp                                      %5MF491-2 09581
TBIS ( (a*, b*)) show
             } if %xchart4=5

xchart4 6 eq {%xchart4=6
(in Buntheitsdiagram) showde                                    %0MF491-2 10581
(in chroma diagram) showen                                      %1MF491-2 10581
(en el diagrama croma) showes                                   %2MF491-2 10581
(dans le diagramme de chroma) showfr                            %3MF491-2 10581
(nel diagramma di chroma) showit                                %4MF491-2 10581
(in chroma diagram) showjp                                      %5MF491-2 10581

TBIS ( \050a*) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (, ) show TBIS (b*) show 
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (\051) show

             } if %xchart4=6

xchart4 7 eq {%xchart4=7
(in Buntheitsdiagram) showde                                    %0MF491-2 11581
(in chroma diagram) showen                                      %1MF491-2 11581
(en el diagrama croma) showes                                   %2MF491-2 11581
(dans le diagramme de chroma) showfr                            %3MF491-2 11581
(nel diagramma di chroma) showit                                %4MF491-2 11581
(in chroma diagram) showjp                                      %5MF491-2 11581
TBIS ( (A*, B*)) show
             } if %xchart4=7

xchart4 0 eq {%xchart4=0

600 400 translate

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

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

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

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

%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

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

TIM
-300 2800 moveto (y) show

TIM
4200 150 moveto (x) show

TBIS
2600 150 moveto (CIE 1931) show

-600 -400 translate

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

       } if %xchart4=0

xchart4 1 eq {%xchart4=1

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

-175 -3050 moveto
90 rotate 
TBIK (b) show TBK (=-0,40) show TBIK (z/y) show
-90 rotate
3650   100 moveto TBIK (a=x/y) show
 
-500 -3200 translate
 
 %1000 02 01 16 01-.03****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200

   1300   3200 translate

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

  -1300  -3200 translate
 %ENDE: 2

             } if %xchart4=1

xchart4 2 eq {%xchart4=2

600 3200 translate

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

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

 000 350 moveto  0 100 rlineto  stroke
0800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

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

%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

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

TIM
-380  -1300 moveto (b') show
4300 250 moveto (a') show

-600 -3200 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0:  400 3200

    400   3200 translate

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

   -400  -3200 translate

 %ENDE: 3

             } if %xchart4=2

xchart4 3 eq {%xchart4=3

600 3200 translate

0 400 moveto  4400  0 rlineto  stroke
0 400 moveto  0 -3500 rlineto  stroke

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

-250  500 moveto (-0,6) show
 650  500 moveto (0,0) show
1450  500 moveto (0,6) show
2250  500 moveto (1,2) show
3050  500 moveto (1,8) show
3850  500 moveto (2,4) show
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,6) show
-450 -1700 moveto (-1,2) show
-450 -2500 moveto (-1,8) show

TBIK
-450  -2900 moveto (b") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK
4050 200 moveto (a") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK

-600 -3200 translate
 
 %1000 02             ****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0:  700 3200
    700 800 add  3200 translate
   3789  -3170 moveto
   3789  -3170   3789  -3170   3788  -3170 curveto
   3787  -3170   3779  -3166   3757  -3155 curveto
   3724  -3138   3673  -3113   3603  -3079 curveto
   3514  -3037   3394  -2982   3239  -2915 curveto
   3028  -2826   2734  -2704   2265  -2508 curveto
   1626  -2234    957  -1880    645  -1481 curveto
    507  -1078    443   -720    417   -455 curveto
    411   -308    419   -223    437   -171 curveto
    464   -144    496   -130    533   -121 curveto
    573   -115    616   -111    664   -108 curveto
    721   -107    787   -105    867   -105 curveto
    963   -104   1081   -104   1227   -104 curveto
   1397   -104   1561   -104   1716   -104 curveto
   1858   -104   1981   -104   2090   -104 curveto
   2180   -104   2254   -104   2313   -104 curveto
   2360   -103   2397   -103   2429   -103 curveto
   2455   -103   2476   -103   2491   -103 curveto
   2503   -103   2512   -103   2517   -103 curveto
   2522   -103   2526   -103   2530   -103 curveto
   2533   -103   2535   -103   2536   -103 curveto
   2536   -103   2537   -103   2556   -214 curveto
   2623   -700   2668  -1007   2700  -1196 curveto
   2723  -1324   2742  -1416   2756  -1488 curveto
   2772  -1560   2791  -1636   2811  -1717 curveto
   2837  -1813   2873  -1933   2929  -2093 curveto
   3019  -2313   3211  -2648   3788  -3169 curveto
 stroke
 1 setgray
   3789  -3170 30 0 360 arc fill % 400
   3757  -3155 30 0 360 arc fill % 425
   3394  -2982 30 0 360 arc fill % 450
   1626  -2234 30 0 360 arc fill % 475
    417   -455 30 0 360 arc fill % 500
    496   -130 30 0 360 arc fill % 525
    721   -107 30 0 360 arc fill % 550
   1227   -104 30 0 360 arc fill % 575
   1981   -104 30 0 360 arc fill % 600
   2360   -103 30 0 360 arc fill % 625
   2491   -103 30 0 360 arc fill % 650
   2526   -103 30 0 360 arc fill % 675
   2536   -103 30 0 360 arc fill % 700
   2623   -700 30 0 360 arc fill %500c
   2756  -1488 30 0 360 arc fill %525c
   2873  -1933 30 0 360 arc fill %550c
 0 setgray
   3789  -3170 30 0 360 arc stroke % 400
   3757  -3155 30 0 360 arc stroke % 425
   3394  -2982 30 0 360 arc stroke % 450
   1626  -2234 30 0 360 arc stroke % 475
    417   -455 30 0 360 arc stroke % 500
    496   -130 30 0 360 arc stroke % 525
    721   -107 30 0 360 arc stroke % 550
   1227   -104 30 0 360 arc stroke % 575
   1981   -104 30 0 360 arc stroke % 600
   2360   -103 30 0 360 arc stroke % 625
   2491   -103 30 0 360 arc stroke % 650
   2526   -103 30 0 360 arc stroke % 675
   2536   -103 30 0 360 arc stroke % 700
   2623   -700 30 0 360 arc stroke %500c
   2756  -1488 30 0 360 arc stroke %525c
   2873  -1933 30 0 360 arc stroke %550c
   1266   -580 30 0 360 arc fill %D65
 0 setgray
TBIS
   3789 200 sub  -3170 200 add moveto (400) show
%  3757 600 sub  -3155 100 sub moveto (425) show
%  3394 600 sub  -2982 100 sub moveto (450) show
   1626 050 sub  -2234 150 add moveto (475) show
    417 430 sub   -455 100 sub moveto (500) show
    496 400 sub   -130  50 add moveto (525) show
    721 200 sub   -107 100 add moveto (550) show
   1227 200 sub   -104 100 add moveto (575) show
   1981 200 sub   -104 100 add moveto (600) show
%  2360 200 sub   -103 100 add moveto (625) show
%  2491 200 sub   -103 100 add moveto (650) show
%  2526 200 sub   -103 100 add moveto (675) show
   2536 100 add   -103         moveto (700) show
   2623 100 add   -700 100 sub moveto (500c) show
   2756 100 add  -1488 100 sub moveto (525c) show
%   2873 100 add  -1933 100 sub moveto (550c) show
%   1266 100 add   -580 100 sub moveto (D65 ) show
   700 800 add neg -3200 translate
 %ENDE: 3

             } if %xchart4=3

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

3500 2000 translate

%axis and scales
0 0 0 1 setcmyk_olvcolor
-2250 0 moveto 3950  0 rlineto stroke
0 -1880  moveto 0 3600  rlineto stroke
1700 100 sub 50 moveto 100 -50 rlineto
                      -100 -50 rlineto closepath fill
0 50 sub 1800 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill

/xt10x 5 array def
/yt10x 5 array def

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

xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7
/xt10x [(-120) ( ) ( ) ( ) (  120)] def

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

0 0 0 1 setcmyk_olvcolor
0 1 4 {/i exch def %i=0,4 x-axis
        -1600   i 800   mul add  -75 moveto 0 150 rlineto stroke
        -1800   i 800   mul add -250 moveto
        TBS xt10x i get show
        i 4 eq {-1600 i 800 mul add 0 moveto
               xchart4 4 eq { %xchart4=4
                             000 150 rmoveto
                             TBIM (A) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -50 150 rmoveto
                             TBIM (a*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -350 150 rmoveto
                             TBIM (a*) show 
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -50 150 rmoveto
                             TBIM (A*) show TL
                            } if %xchart4=7
               } if

       } for %i=0,4

0 1 4 {/i exch def %i=0,4 y-axis
       -75 -1600 i 800 mul    add moveto 150 0 rlineto stroke
       100 -1600 i 800 mul    add 100 sub moveto
       TBS yt10x i get show
       i 4 eq {0 -1600 i 800 mul add moveto
               xchart4 4 eq { %xchart4=4
                             -250 150 rmoveto
                             TBIM (B) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -400 150 rmoveto
                             TBIM (b*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -750 150 rmoveto
                             TBIM (b*) show
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -300 150 rmoveto
                             TBIM (B*) show TL
                            } if %xchart4=7
             } if

       } for %i=0,4


-3500 -2000 translate

} if %4>=xchart4<=7

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

/icolor 9 array def
         %Rm %Ym %Gm %Cm %Bm %Mm %Go %Mo %W
/icolor [20  10  06  00  30  26  06  26  40] def

/imshow {0 -50 rmoveto TBL (m) show 0 50 rmoveto TBIS} def

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

/fakt 4000 def

600 400 translate %for scala and graphic

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

XANW fakt mul YANW fakt mul 90 0 360 arc stroke

XANW fakt mul 200 sub
YANW fakt mul 250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm
/SUM Xi i get
     Yi i get add
     Zi i get add 0.0001 add def 
/AnY Xi i get SUM div fakt mul def
/BnY Yi i get SUM div fakt mul def
j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 400 sub BnY 050 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/SUM XK Xi i get sub
     YK Yi i get sub add
     ZK Zi i get sub add 0.0001 add def
/AnY XK Xi i get sub SUM div fakt mul def
/BnY YK Yi i get sub SUM div fakt mul def

j 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 100 add BnY 100 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2


-600 -400 translate %for scala and grafic

} if %xchart4=0

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

/fakt 1000 def
/a2 XW YW 0.0001 add div def
/b2 ZW YW 0.0001 add div -0.4 mul def

 1300 3200 translate %for grafic

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

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

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

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

/AnY Xi i get Yi i get 0.0001 add div
     fakt mul def
/BnY Zi i get Yi i get 0.0001 add div
     fakt mul 0.4 mul neg def

j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 300 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/AnY XK Xi i get sub
     YK Yi i get sub 0.0001 add div fakt mul def
/BnY ZK Zi i get sub
     YK Yi i get sub 0.0001 add div fakt mul 0.4 mul neg def

j 0 eq {AnY 100 add BnY 200 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 100 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2


-1300 -3200 translate %for grafic

} if %xchart4=1


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

/D13 1 3 div def
/fakt 13333 def

/a2 XW YW 0.0001 add div
    D13 exp 0.2191 mul def
/b2 ZW YW 0.0001 add div 
    D13 exp -0.08376 mul def

 200 3200 translate %for graphic

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

XW YW 0.0001 add div                 %a'
D13 exp 0.2191 mul fakt mul
ZW YW 0.0001 add div                 %b' 
D13 exp -0.08376 mul fakt mul
90 0 360 arc stroke

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

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

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

j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 350 sub BnY 050 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/AnY XK Xi i get sub
     YK Yi i get sub 0.0001 add div       %a'
     D13 exp 0.2191 mul fakt mul def
/BnY ZK Zi i get sub
     YK Yi i get sub 0.0001 add div       %b'
     D13 exp -0.08376 mul fakt mul def

j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 050 add BnY 150 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

-200  -3200 translate %for graphic

} if %xchart4=2

xchart4 3 eq {%xchart4=3 %only for (a",b")

%100 3800 moveto TIS ((a",b") (LAB 1977)) show

/fakt 1333 def
/XD65 95.04 def
/YD65 100.00 def
/ZD65 108.89 def
/aD65 XD65 YD65 0.0001 add div def
/bD65 ZD65 YD65 0.0001 add div -0.4 mul def
/a2 aD65 def
/b2 bD65 def

 700 800 add 3200 translate %for grafic

0 1 39 {/i exch def %i=0,39
        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def
        i 0 eq {moveto} if
        i 1 ge i 38 le and {lineto} if
        i 39 eq {lineto closepath stroke} if
       } for %i=0,39

a"n fakt mul
b"n fakt mul
90 0 360 arc stroke

a"n fakt mul
200 sub
b"n fakt mul
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def

/AnY a" fakt mul def
/BnY b" fakt mul def
j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 050 add BnY 200 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 050 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

        /a  XK Xi i get sub
            YK Yi i get sub 0.0001 add div def
        /an XK       YK     0.0001 add div def
        /b  ZK Zi i get sub
            YK Yi i get sub 0.0001 add div 0.4 mul neg def
        /bn ZK       YK     0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def

/AnY a" fakt mul def
/BnY b" fakt mul def

j 0 eq {AnY 100 add BnY 200 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 050 add BnY 150 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2


700 800 add neg -3200 translate %for graphic

} if %xchart4=3

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

/fakt 40 def
/a2 1.00 def
/b2 -0.4 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (A) show
TBS ( = \050) show
TBIS (a) show
TBS ( - ) show
TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1300 moveto
TBIS (B) show
TBS ( = \050) show
TBIS (b) show
TBS ( - ) show
TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show
TBS (]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show
TBS (]) show

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1) show

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -0,4) show

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

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

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

0 080 add
0 080 add moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm
/AnY Xi i get Yi i get 0.0001 add div          %(a-an)Y
     XK       YK       0.0001 add div sub
     Yi i get mul fakt mul def
/BnY Zi i get Yi i get 0.0001 add div          %(b-bn)Y
     ZK       YK       0.0001 add div sub 0.4 mul neg
     Yi i get mul fakt mul def
j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 sub BnY 300 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/AnY XK Xi i get sub YK Yi i get sub 0.0001 add div          %(a-an)Y
     XK       YK       0.0001 add div sub
     YK Yi i get sub mul fakt mul def
/BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div          %(b-bn)Y
     ZK       YK       0.0001 add div sub 0.4 mul neg
     YK Yi i get sub mul fakt mul def
j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 100 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

} if %xchart4=4

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

/D13 1 3 div def
/fakt 40 3 div def
/a2 1 XW div D13 exp def
/b2 1 ZW div D13 exp -0.4 mul def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

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

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

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

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

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

90 0 360 arc stroke

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

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

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm


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

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

j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 add BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

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

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

j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

-3500 -2000 translate %for text and grafic

} if %xchart4=5

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

/D13 1 3 div def
/fakt 40 3 div def
/a2 0.2191 def
/b2 -0.08376 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a') show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b') show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

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

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

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

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

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

90 0 360 arc stroke

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

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

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

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

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

j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 add BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

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

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

j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

-3500 -2000 translate %for text and grafic

} if %xchart4=6

xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65

/D13 1 3 div def
/D11 1 def
/D16  1 6 div def
/fakt 40 3 div def
/a2 1 15 div def
/b2 1 12 div neg def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS ( + 1]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS ( + 1/6 ]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1/15 = ) show a2 cvsshow5

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -1/12 = ) show b2 cvsshow5

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

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

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

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

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

90 0 360 arc stroke


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

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

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

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

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

j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 000 add BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

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

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

j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

-3500 -2000 translate %for text and grafic

} if %xchart4=7

showpage
grestore

%} for %xchartl=0,7

} for %xchart4=0,7

%} for %xcolorl=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 23

%line 449
%!PS-Adobe-3.0 EPSF-3.0 MF491-3N
%%BoundingBox: 70 83 228 206

%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: http://130.149.60.45/~farbmetrik/MF49/)
  /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 pdfmark13
[ /View [ /FitB ]
/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

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

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

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

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

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

%%EndProlog
gsave

%lanindL2.EPS START  20000505
/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 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 /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} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

/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

/SD65 80 array def %380 bis 775 mit deltalambda=05
/SD50 80 array def %380 bis 775 mit deltalambda=05
/SP40 80 array def %380 bis 775 mit deltalambda=05
/SA00 80 array def %380 bis 775 mit deltalambda=05
/SE00 80 array def %380 bis 775 mit deltalambda=05
/SC00 80 array def %380 bis 775 mit deltalambda=05
/SP00 80 array def %380 bis 775 mit deltalambda=05
/SQ00 80 array def %380 bis 775 mit deltalambda=05

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

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

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

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

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

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

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

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


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

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

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

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

        put
       } for %i=0,79

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

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

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

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

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

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

%calculation of transformation data
/FARBE 27 array def
/FARBE [(R) (m) ( 561_770) %00
        (Y) (m) ( 520_770) %01
        (G) (m) ( 475_573) %02
        (C) (m) ( 380_561) %03
        (B) (m) ( 380_520) %04
        (M) (m) ( 573_475) %05
        (N) (0) ( 380_770) %06
        (W) (0) ( 380_770) %07
        (W) (1) ( 380_770) %08
       ] def

%/FARBE [(R) (m) ( 565_770) %00
%        (Y) (m) ( 520_770) %01
%        (G) (m) ( 475_575) %02
%        (C) (m) ( 380_565) %03
%        (B) (m) ( 380_520) %04
%        (M) (m) ( 575_475) %05
%        (N) (0) ( 380_770) %06
%        (W) (0) ( 380_770) %07
%        (W) (1) ( 380_770) %08
%       ] def

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

/RX0 640 array def %8x80
/RX0 [

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

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

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

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

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

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

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

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

%(%Gm      02 475_575)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
0000 0000 0000 0000 0000 0000 0000 0000 0000 0500

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

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

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

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

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

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

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

%(%Bm   05 380_495)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000

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

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

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

%(%Mm     06 575_475)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
1000 1000 1000 1000 1000 1000 1000 1000 1000 0500

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

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

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

%(%N0(r=0,001) 09 380_770)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
0001 0001 0001 0001 0001 0001 0001 0001 0001 0001
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
0001 0001 0001 0001 0001 0001 0001 0001 0001 0001

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

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

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

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

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

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

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

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

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

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

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

] def

/xcolorl xcolor def
%0 1 1 {/xcolorl exch def %xcolorl=0,1


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

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

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

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

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

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

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

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

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

20 setlinewidth
/xdel  1005 def
/ydel   395 def
/x0  050 def
/x1 -150 def

/TELi 8 array def
/TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin.

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

4 1 4 {/xchart4 exch def %xchart4=0,7

/xchartl 0 def %special allways D65
%0 1 7 {/xchartl exch def %xchartl=0,7

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

gsave

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

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

72 90 translate

0.010 MM dup scale

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

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

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

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

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

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

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

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

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

0 1 62 {/i exch def %i=0,62
        FAD i FXD i get put
        FBD i FYD i get put
        FCD i FZD i get put
       } for %i=0,62

%      FXU(1)=FF(2)*U(3)-FF(3)*U(2)
%      FXU(2)=FF(3)*U(1)-FF(1)*U(3)
%      FXU(3)=FF(1)*U(2)-FF(2)*U(1)

%      SUBROUTINE DOWEL (F,FXU,IMAX,IO)
%      DIMENSION F(99,3),FXU(3)
%      I=1
%      T2=F(1,1)*FXU(1)+F(1,2)*FXU(2)+F(1,3)*FXU(3)
%      IF(T2) 1,1,4
%    1 T1=T2
%      I=I+1
%      T2=F(I,1)*FXU(1)+F(I,2)*FXU(2)+F(I,3)*FXU(3)
%      IF(T2) 1,1,2
%    2 IF(T1) 3,3,1
%    3 IO=I-1
%      RETURN
%    4 T1=F(IMAX,1)*FXU(1)+F(IMAX,2)*FXU(2)+F(IMAX,3)*FXU(3)
%      IF(T1) 5,5,1
%    5 IO=IMAX
%      RETURN
%      END

%*********************************************************
/proc_ABC_KNP_FWERTiX
{%BEG proc_ABC_KNP_FWERT

%input FAD,FBD,FCD, KNP
%output FWERTiX/Y/Z (i=1,4)

    kNP 1 ge {/FWERT1X FAD kNP 1 sub get def
              /FWERT1Y FBD kNP 1 sub get def
              /FWERT1Z FCD kNP 1 sub get def}
             {/FWERT1X FAD 0 get def %again 400nm for i=0
              /FWERT1Y FBD 0 get def
              /FWERT1Z FCD 0 get def} ifelse

    /FWERT2X FAD kNP get def
    /FWERT2Y FBD kNP get def
    /FWERT2Z FCD kNP get def

    /FWERT3X FAD kNP 1 add get def
    /FWERT3Y FBD kNP 1 add get def
    /FWERT3Z FCD kNP 1 add get def

    /FWERT4X FAD kNP 2 add get def
    /FWERT4Y FBD kNP 2 add get def
    /FWERT4Z FCD kNP 2 add get def

} bind def %END proc_ABC_KNP_FWERTiX

%*********************************************************
/proc_XIE_TN1
{%BEG proc_XIE_TN1

%input XIE, FWERTiX/Y/Z (i=1,4)
%output TN1

/A1N XIE       1 XIE sub mul XIE 2 sub mul 6 div   def
/A2N XIE 1 add XIE 1 sub mul XIE 2 sub mul 0.5 mul def
/A3N XIE 1 add XIE       mul 2 XIE sub mul 0.5 mul def
/A4N XIE 1 add XIE       mul XIE 1 sub mul 6 div   def
/FNX A1N FWERT1X mul
     A2N FWERT2X mul add
     A3N FWERT3X mul add
     A4N FWERT4X mul add def
/FNY A1N FWERT1Y mul
     A2N FWERT2Y mul add
     A3N FWERT3Y mul add
     A4N FWERT4Y mul add def
/FNZ A1N FWERT1Z mul
     A2N FWERT2Z mul add
     A3N FWERT3Z mul add
     A4N FWERT4Z mul add def
/TNX FNX FXU1 mul
     FNY FXU2 mul add
     FNZ FXU3 mul add def

} bind def %END proc_XIE_TN1

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

/WEL1 60 array def %irregular definition
/WEL2 60 array def %irregular definition
      %0   1   2   3   4   5   6   7   8   9
/WEL1 [405 435 450 460 465 470 475 480 485 490
       495 500 510 520 530 540 545 550 555 560
      ] def

0 1 19 {/k exch def %k=0,19 %wavelength 405..700nm

        /j  WEL1 k get 400 sub 5 idiv def
        /LP k def
        /LPP 20.5 k add def

       /FF1 FXD j get def %start at 405..700nm
       /FF2 FYD j get def
       /FF3 FZD j get def

       /U1 XW def
       /U2 YW def
       /U3 ZW def
       
       /FXU1 FF2 U3 mul FF3 U2 mul sub def
       /FXU2 FF3 U1 mul FF1 U3 mul sub def
       /FXU3 FF1 U2 mul FF2 U1 mul sub def

/INP -1 def
/IPN -1 def
%assumption jump from TN to TP from negativ to positiv
       0 1 60 {/i exch def %i=1,60
               /TN FAD i get FXU1 mul
                   FBD i get FXU2 mul add
                   FCD i get FXU3 mul add def

               /TP FAD i 1 add get FXU1 mul
                   FBD i 1 add get FXU2 mul add
                   FCD i 1 add get FXU3 mul add def
               TN 0 le TP 0 gt and {/INP i def exit} if
              } for %i=1,60

       0 1 60 {/i exch def %i=1,60
               /TN FAD i get FXU1 mul
                   FBD i get FXU2 mul add
                   FCD i get FXU3 mul add neg def
               /TP FAD i 1 add get FXU1 mul
                   FBD i 1 add get FXU2 mul add
                   FCD i 1 add get FXU3 mul add neg def
               TN 0 le TP 0 gt and {/IPN i def exit} if
              } for %i=1,60

%*********************************************************
/kNP INP def

kNP 0 ge {%kNP>=0

proc_ABC_KNP_FWERTiX %input FAD,KNP, output FWERTiXYZ (i=1,4)

/XIE1 0 def %start values TN=0 for XIE1, TP>0 for XIE2
/XIE2 1 def

0 1 9 {/mk exch def %mk=0,9
       /XIE XIE1 XIE2 add 0.5 mul def
       proc_XIE_TN1  %input XIE, ouput TN1
       TNX 0 le {/XIE1 XIE def /TN1 TNX def}
                {/XIE2 XIE def /TP1 TNX def} ifelse
      } for %mk=0,9

/XIE XIE1 XIE2 add 0.5 mul def
/DOWXIE1 DOW INP get DOW INP 1 add get DOW INP get sub XIE mul add def
/XIENP XIE def

       } if %kNP>=0

%*********************************************************
/kNP IPN def

kNP 0 ge {%kNP>=0

proc_ABC_KNP_FWERTiX %input FAD,KNP, output FWERTiXYZ (i=1,4)

/XIE1 0 def %start values TN=0 for XIE1, TP>0 for XIE2
/XIE2 1 def
/FXU1 FXU1 neg def
/FXU2 FXU2 neg def
/FXU3 FXU3 neg def

0 1 9 {/mk exch def %mk=0,9
       /XIE XIE1 XIE2 add 0.5 mul def
       proc_XIE_TN1  %input XIE, ouput TN1
       TNX 0 le {/XIE1 XIE def /TN1 TNX def}
                {/XIE2 XIE def /TP1 TNX def} ifelse
      } for %mk=0,9

/XIE XIE1 XIE2 add 0.5 mul def
/DOWXIE2 DOW IPN get DOW IPN 1 add get DOW IPN get sub XIE mul add def
/XIEPN XIE def

       } if %kNP>=0

%*********************************************************
0 1 79 {/i exch def %i=0,79
        RA i 0 put
       } for %i=0,79

INP -1 eq {/i1 0 def}                %380nm
          {/i1 INP 5 add def} ifelse %405..700nm

IPN -1 eq {/i2 79 def}               %770nm
          {/i2 IPN 5 add def} ifelse %405..700nm

i2 i1 ge {%i1<i2
          i1 1 i2 {/i exch def %i=i1,i2
                   RA i 1 put
                  } for %i=i1,i2
         }%i1<i2
         {%i1>i2
          i1 1 79 {/i exch def %i=i1,79
                   RA i 1 put
                  } for %i=i1,79
          0  1 i2 {/i exch def %i=0,i2
                   RA i 1 put
                  } for %i=0,i2
                  
         } ifelse %i1>i2

%correction
i2 i1 ge {%i1<i2
          RA i1 0.5 put
          RA i2 0.5 XIEPN 0.5 sub add put
         }%i1<i2
         {%i1>i2
          RA i1 0.5 put
          RA i2 0.5 XIEPN 0.5 sub add put
         } ifelse %i1>i2

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

/SUM X Y add Z add def
/XAN X SUM 0.0001 add div def
/YAN Y SUM 0.0001 add div def
/ZAN Z SUM 0.0001 add div def

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

0 0 0 1 setcmyk_olvcolor

0 1 1 {/Icom exch def %Icom=0,1

Icom 0 eq {%Icom=0,1
           Xi k X put
           Yi k Y put
           Zi k Z put
           XANi k XAN put
           YANi k YAN put
           ZANi k ZAN put
          }%Icom=0
          {%Icom=1
           /kP 20 k add def
           Xi kP XW X sub put
           Yi kP YW Y sub put
           Zi kP ZW Z sub put
           /SUMi Xi kP get
                 Yi kP get add
                 Zi kP get add def
           XANi kP Xi kP get SUMi 0.0001 add div put
           YANi kP Yi kP get SUMi 0.0001 add div put
           ZANi kP Zi kP get SUMi 0.0001 add div put
          } ifelse %Icom=1

} for %Icom=0,1

K 1 eq {%K=1
        Xi k  Xi k  get 0.8859 mul put
        Yi k  Yi k  get 0.8859 mul put
        Zi k  Zi k  get 0.8859 mul put
        Xi kP Xi kP get 0.8859 mul put
        Yi kP Yi kP get 0.8859 mul put
        Zi kP Zi kP get 0.8859 mul put
       } if %K=1

} for %k=0,19

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

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

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

/LP LP 1 add def

/xtexti 96 array def
/ytexti 96 array def
/xtexti [
%T00 T10  T20   T30   T40  T41   T50  T51   T60  T61  T70  T71
%0   1    2     3     4    5     6    7     8    9    10   11
1800 1800 1800  2800  2800 4000  2800 4000  2800 4000 2800 4000 %0
0600 0600 0600  0600  0600 1800  0600 1800  0600 1800 0600 1800 %1
0700 0700 0700  0700  0700 1900  0700 1900  0700 1900 0700 1900 %2
0700 0700 0700  0700  0700 1900  0700 1900  0700 1900 0700 1900 %3
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %4
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %5
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %6
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %7
] def
/ytexti [ 
3800 3580 3360  3140  2920 2920  2700 2700  2480 2480 2260 2260 %0
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %1
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %2
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %3
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %4
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %5
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %6
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %7
] def

0 0 0 1 setcmyk_olvcolor
/xchart12 xchart4 12 mul def

TBS
xchart4 1 ge { %xchart4 >=1
xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto
xchart4 1 eq {(LABCab 77) show} if
xchart4 2 eq {(CIELAB 76) show} if
xchart4 3 eq {(LABJNDS 87) show} if
xchart4 4 eq {(LABCab 85) show} if
xchart4 5 eq {(CIELAB 76) show} if
xchart4 6 eq {(CIELAB D65) show} if
xchart4 7 eq {(LABHNU1 79) show} if
             } if %xchart4 >=1

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

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

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

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

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

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

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

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

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

TBS
0 0 0 1 setcmyk_olvcolor
xtexti xchart12 0 add get ytexti xchart12 0 add get moveto
TBIS (Ostwald) show TBS
(\255Optimalfarben (o)) showde                                  %0MF491-3 02581
( optimal colours (o)) showen                                   %1MF491-3 02581
( colores \363ptimos (o)) showes                                %2MF491-3 02581
( couleurs optimales (o)) showfr                                %3MF491-3 02581
( colori ottimi (o)) showit                                     %4MF491-3 02581
( optimal colours (o)) showjp                                   %5MF491-3 02581

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

xtexti xchart12 1 add get ytexti xchart12 1 add get moveto
(6 von maximalem (m)) showde                                    %0MF491-3 03581
(6 of maximum (m)) showen                                       %1MF491-3 03581
(6 de m\341ximo (m)) showes                                     %2MF491-3 03581
(6 de la maximum (m)) showfr                                    %3MF491-3 03581
(6 di massimo (m)) showit                                       %4MF491-3 03581
(6 of maximum (m)) showjp                                       %5MF491-3 03581

TBIS ( C) show TBL 0 -60 rmoveto (AB) show 0 60 rmoveto TBS

( f\374r ) showde                                               %0MF491-3 03581
( for ) showen                                                  %1MF491-3 03581
( bajo ) showes                                                 %2MF491-3 03581
( pour ) showfr                                                 %3MF491-3 03581
( per ) showit                                                  %4MF491-3 03581
( for ) showjp                                                  %5MF491-3 03581

TELi xchartl get show

xtexti xchart12 2 add get ytexti xchart12 2 add get moveto

xchart4 0 eq {%xchart4=0
(in der Normfarbtafel) showde                                   %0MF491-3 04581
(in the chromaticity diagram) showen                            %1MF491-3 04581
(en el diagrama de chromaticidad) showes                        %2MF491-3 04581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-3 04581
(nel diagramma di cromaticit\340) showit                        %4MF491-3 04581
(in the chromaticity diagram) showjp                            %5MF491-3 04581
TBIS ( (x, y)) show
             } if %xchart4=0

xchart4 1 eq {%xchart4=1
(in der Farbtafel) showde                                       %0MF491-3 05581
(in the chromaticity diagram) showen                            %1MF491-3 05581
(en el diagrama de chromaticidad) showes                        %2MF491-3 05581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-3 05581
(nel diagramma di cromaticit\340) showit                        %4MF491-3 05581
(in the chromaticity diagram) showjp                            %5MF491-3 05581
TBIS ( (a, b)) show
             } if %xchart4=1

xchart4 2 eq {%xchart4=2
(in der Farbarbtafel) showde                                    %0MF491-3 06581
(in the chromaticity diagram) showen                            %1MF491-3 06581
(en el diagrama de chromaticidad) showes                        %2MF491-3 06581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-3 06581
(nel diagramma di cromaticit\340) showit                        %4MF491-3 06581
(in the chromaticity diagram) showjp                            %5MF491-3 06581
TBIS ( (a', b')) show
             } if %xchart4=2

xchart4 3 eq {%xchart4=3
(in der Farbarbtafel) showde                                    %0MF491-3 07581
(in the chromaticity diagram) showen                            %1MF491-3 07581
(en el diagrama de chromaticidad) showes                        %2MF491-3 07581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-3 07581
(nel diagramma di cromaticit\340) showit                        %4MF491-3 07581
(in the chromaticity diagram) showjp                            %5MF491-3 07581
TBIS ( (a", b")) show
             } if %xchart4=3

xchart4 4 eq {%xchart4=4
(in Buntwertdiagramm) showde                                    %0MF491-3 08581
(in chromatic value diagram) showen                             %1MF491-3 08581
(en el diagrama valor crom\341tico) showes                      %2MF491-3 08581
(dans le diagramme de valeurs chromatiques) showfr              %3MF491-3 08581
(nel diagramma di valore cromatico) showit                      %4MF491-3 08581
(in chromatic value diagram) showjp                             %5MF491-3 08581
TBIS ( (A, B)) show
             } if %xchart4=4

xchart4 5 eq {%xchart4=5
(in Buntheitsdiagram) showde                                    %0MF491-3 09581
(in CIELAB diagram) showen                                      %1MF491-3 09581
(en el diagrama CIELAB) showes                                  %2MF491-3 09581
(dans le diagramme de CIELAB) showfr                            %3MF491-3 09581
(nel diagramma di CIELAB) showit                                %4MF491-3 09581
(in CIELAB diagram) showjp                                      %5MF491-3 09581
TBIS ( (a*, b*)) show
             } if %xchart4=5

xchart4 6 eq {%xchart4=6
(in Buntheitsdiagram) showde                                    %0MF491-3 10581
(in chroma diagram) showen                                      %1MF491-3 10581
(en el diagrama croma) showes                                   %2MF491-3 10581
(dans le diagramme de chroma) showfr                            %3MF491-3 10581
(nel diagramma di chroma) showit                                %4MF491-3 10581
(in chroma diagram) showjp                                      %5MF491-3 10581

TBIS ( \050a*) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (, ) show TBIS (b*) show 
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (\051) show

             } if %xchart4=6

xchart4 7 eq {%xchart4=7
(in Buntheitsdiagram) showde                                    %0MF491-3 11581
(in chroma diagram) showen                                      %1MF491-3 11581
(en el diagrama croma) showes                                   %2MF491-3 11581
(dans le diagramme de chroma) showfr                            %3MF491-3 11581
(nel diagramma di chroma) showit                                %4MF491-3 11581
(in chroma diagram) showjp                                      %5MF491-3 11581
TBIS ( (A*, B*)) show
             } if %xchart4=7

xchart4 0 eq {%xchart4=0

600 400 translate

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

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

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

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

%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

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

TIM
-300 2800 moveto (y) show

TIM
4200 150 moveto (x) show

TBIS
2600 150 moveto (CIE 1931) show

-600 -400 translate

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

       } if %xchart4=0

xchart4 1 eq {%xchart4=1

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

-175 -3050 moveto
90 rotate 
TBIK (b) show TBK (=-0,40) show TBIK (z/y) show
-90 rotate
3650   100 moveto TBIK (a=x/y) show
 
-500 -3200 translate
 
 %1000 02 01 16 01-.03****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200

   1300   3200 translate

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

  -1300  -3200 translate
 %ENDE: 2

             } if %xchart4=1

xchart4 2 eq {%xchart4=2

600 3200 translate

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

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

 000 350 moveto  0 100 rlineto  stroke
0800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

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

%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

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

TIM
-380  -1300 moveto (b') show
4300 250 moveto (a') show

-600 -3200 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0:  400 3200

    400   3200 translate

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

   -400  -3200 translate

 %ENDE: 3

             } if %xchart4=2

xchart4 3 eq {%xchart4=3

600 3200 translate

0 400 moveto  4400  0 rlineto  stroke
0 400 moveto  0 -3500 rlineto  stroke

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

-250  500 moveto (-0,6) show
 650  500 moveto (0,0) show
1450  500 moveto (0,6) show
2250  500 moveto (1,2) show
3050  500 moveto (1,8) show
3850  500 moveto (2,4) show
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten

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

-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,6) show
-450 -1700 moveto (-1,2) show
-450 -2500 moveto (-1,8) show

TBIK
-450  -2900 moveto (b") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK
4050 200 moveto (a") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK

-600 -3200 translate
 
 %1000 02             ****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0:  700 3200
    700 800 add  3200 translate
   3789  -3170 moveto
   3789  -3170   3789  -3170   3788  -3170 curveto
   3787  -3170   3779  -3166   3757  -3155 curveto
   3724  -3138   3673  -3113   3603  -3079 curveto
   3514  -3037   3394  -2982   3239  -2915 curveto
   3028  -2826   2734  -2704   2265  -2508 curveto
   1626  -2234    957  -1880    645  -1481 curveto
    507  -1078    443   -720    417   -455 curveto
    411   -308    419   -223    437   -171 curveto
    464   -144    496   -130    533   -121 curveto
    573   -115    616   -111    664   -108 curveto
    721   -107    787   -105    867   -105 curveto
    963   -104   1081   -104   1227   -104 curveto
   1397   -104   1561   -104   1716   -104 curveto
   1858   -104   1981   -104   2090   -104 curveto
   2180   -104   2254   -104   2313   -104 curveto
   2360   -103   2397   -103   2429   -103 curveto
   2455   -103   2476   -103   2491   -103 curveto
   2503   -103   2512   -103   2517   -103 curveto
   2522   -103   2526   -103   2530   -103 curveto
   2533   -103   2535   -103   2536   -103 curveto
   2536   -103   2537   -103   2556   -214 curveto
   2623   -700   2668  -1007   2700  -1196 curveto
   2723  -1324   2742  -1416   2756  -1488 curveto
   2772  -1560   2791  -1636   2811  -1717 curveto
   2837  -1813   2873  -1933   2929  -2093 curveto
   3019  -2313   3211  -2648   3788  -3169 curveto
 stroke
 1 setgray
   3789  -3170 30 0 360 arc fill % 400
   3757  -3155 30 0 360 arc fill % 425
   3394  -2982 30 0 360 arc fill % 450
   1626  -2234 30 0 360 arc fill % 475
    417   -455 30 0 360 arc fill % 500
    496   -130 30 0 360 arc fill % 525
    721   -107 30 0 360 arc fill % 550
   1227   -104 30 0 360 arc fill % 575
   1981   -104 30 0 360 arc fill % 600
   2360   -103 30 0 360 arc fill % 625
   2491   -103 30 0 360 arc fill % 650
   2526   -103 30 0 360 arc fill % 675
   2536   -103 30 0 360 arc fill % 700
   2623   -700 30 0 360 arc fill %500c
   2756  -1488 30 0 360 arc fill %525c
   2873  -1933 30 0 360 arc fill %550c
 0 setgray
   3789  -3170 30 0 360 arc stroke % 400
   3757  -3155 30 0 360 arc stroke % 425
   3394  -2982 30 0 360 arc stroke % 450
   1626  -2234 30 0 360 arc stroke % 475
    417   -455 30 0 360 arc stroke % 500
    496   -130 30 0 360 arc stroke % 525
    721   -107 30 0 360 arc stroke % 550
   1227   -104 30 0 360 arc stroke % 575
   1981   -104 30 0 360 arc stroke % 600
   2360   -103 30 0 360 arc stroke % 625
   2491   -103 30 0 360 arc stroke % 650
   2526   -103 30 0 360 arc stroke % 675
   2536   -103 30 0 360 arc stroke % 700
   2623   -700 30 0 360 arc stroke %500c
   2756  -1488 30 0 360 arc stroke %525c
   2873  -1933 30 0 360 arc stroke %550c
   1266   -580 30 0 360 arc fill %D65
 0 setgray
TBIS
   3789 200 sub  -3170 200 add moveto (400) show
%  3757 600 sub  -3155 100 sub moveto (425) show
%  3394 600 sub  -2982 100 sub moveto (450) show
   1626 050 sub  -2234 150 add moveto (475) show
    417 430 sub   -455 100 sub moveto (500) show
    496 400 sub   -130  50 add moveto (525) show
    721 200 sub   -107 100 add moveto (550) show
   1227 200 sub   -104 100 add moveto (575) show
   1981 200 sub   -104 100 add moveto (600) show
%  2360 200 sub   -103 100 add moveto (625) show
%  2491 200 sub   -103 100 add moveto (650) show
%  2526 200 sub   -103 100 add moveto (675) show
   2536 100 add   -103         moveto (700) show
   2623 100 add   -700 100 sub moveto (500c) show
   2756 100 add  -1488 100 sub moveto (525c) show
%   2873 100 add  -1933 100 sub moveto (550c) show
%   1266 100 add   -580 100 sub moveto (D65 ) show
   700 800 add neg -3200 translate
 %ENDE: 3

             } if %xchart4=3

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

3500 2000 translate

%axis and scales
0 0 0 1 setcmyk_olvcolor
-2250 0 moveto 3950  0 rlineto stroke
0 -1880  moveto 0 3600  rlineto stroke
1700 100 sub 50 moveto 100 -50 rlineto
                      -100 -50 rlineto closepath fill
0 50 sub 1800 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill

/xt10x 5 array def
/yt10x 5 array def

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

xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7
/xt10x [(-120) ( ) ( ) ( ) (  120)] def

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

0 0 0 1 setcmyk_olvcolor
0 1 4 {/i exch def %i=0,4 x-axis
        -1600   i 800   mul add  -75 moveto 0 150 rlineto stroke
        -1800   i 800   mul add -250 moveto
        TBS xt10x i get show
        i 4 eq {-1600 i 800 mul add 0 moveto
               xchart4 4 eq { %xchart4=4
                             000 150 rmoveto
                             TBIM (A) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -50 150 rmoveto
                             TBIM (a*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -350 150 rmoveto
                             TBIM (a*) show 
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -50 150 rmoveto
                             TBIM (A*) show TL
                            } if %xchart4=7
               } if

       } for %i=0,4

0 1 4 {/i exch def %i=0,4 y-axis
       -75 -1600 i 800 mul    add moveto 150 0 rlineto stroke
       100 -1600 i 800 mul    add 100 sub moveto
       TBS yt10x i get show
       i 4 eq {0 -1600 i 800 mul add moveto
               xchart4 4 eq { %xchart4=4
                             -250 150 rmoveto
                             TBIM (B) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -400 150 rmoveto
                             TBIM (b*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -750 150 rmoveto
                             TBIM (b*) show
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -300 150 rmoveto
                             TBIM (B*) show TL
                            } if %xchart4=7
             } if

       } for %i=0,4


-3500 -2000 translate

} if %4>=xchart4<=7

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

/icolor 9 array def
         %Rm %Ym %Gm %Cm %Bm %Mm %Go %Mo %W
/icolor [20  10  06  00  30  26  06  26  40] def

/imshow {0 -50 rmoveto TBL (m) show 0 50 rmoveto TBIS} def

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

/fakt 4000 def

600 400 translate %for scala and graphic

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

XANW fakt mul YANW fakt mul 90 0 360 arc stroke

XANW fakt mul 200 sub
YANW fakt mul 250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm
/SUM Xi i get
     Yi i get add
     Zi i get add 0.0001 add def 
/AnY Xi i get SUM div fakt mul def
/BnY Yi i get SUM div fakt mul def
j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 400 sub BnY 050 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/SUM XK Xi i get sub
     YK Yi i get sub add
     ZK Zi i get sub add 0.0001 add def
/AnY XK Xi i get sub SUM div fakt mul def
/BnY YK Yi i get sub SUM div fakt mul def

j 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 100 add BnY 100 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2


-600 -400 translate %for scala and grafic

} if %xchart4=0

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

/fakt 1000 def
/a2 XW YW 0.0001 add div def
/b2 ZW YW 0.0001 add div -0.4 mul def

 1300 3200 translate %for grafic

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

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

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

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

/AnY Xi i get Yi i get 0.0001 add div
     fakt mul def
/BnY Zi i get Yi i get 0.0001 add div
     fakt mul 0.4 mul neg def

j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 300 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/AnY XK Xi i get sub
     YK Yi i get sub 0.0001 add div fakt mul def
/BnY ZK Zi i get sub
     YK Yi i get sub 0.0001 add div fakt mul 0.4 mul neg def

j 0 eq {AnY 100 add BnY 200 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 100 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2


-1300 -3200 translate %for grafic

} if %xchart4=1


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

/D13 1 3 div def
/fakt 13333 def

/a2 XW YW 0.0001 add div
    D13 exp 0.2191 mul def
/b2 ZW YW 0.0001 add div 
    D13 exp -0.08376 mul def

 200 3200 translate %for graphic

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

XW YW 0.0001 add div                 %a'
D13 exp 0.2191 mul fakt mul
ZW YW 0.0001 add div                 %b' 
D13 exp -0.08376 mul fakt mul
90 0 360 arc stroke

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

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

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

j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 350 sub BnY 050 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/AnY XK Xi i get sub
     YK Yi i get sub 0.0001 add div       %a'
     D13 exp 0.2191 mul fakt mul def
/BnY ZK Zi i get sub
     YK Yi i get sub 0.0001 add div       %b'
     D13 exp -0.08376 mul fakt mul def

j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 050 add BnY 150 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

-200  -3200 translate %for graphic

} if %xchart4=2

xchart4 3 eq {%xchart4=3 %only for (a",b")

%100 3800 moveto TIS ((a",b") (LAB 1977)) show

/fakt 1333 def
/XD65 95.04 def
/YD65 100.00 def
/ZD65 108.89 def
/aD65 XD65 YD65 0.0001 add div def
/bD65 ZD65 YD65 0.0001 add div -0.4 mul def
/a2 aD65 def
/b2 bD65 def

 700 800 add 3200 translate %for grafic

0 1 39 {/i exch def %i=0,39
        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def
        i 0 eq {moveto} if
        i 1 ge i 38 le and {lineto} if
        i 39 eq {lineto closepath stroke} if
       } for %i=0,39

a"n fakt mul
b"n fakt mul
90 0 360 arc stroke

a"n fakt mul
200 sub
b"n fakt mul
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def

/AnY a" fakt mul def
/BnY b" fakt mul def
j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 050 add BnY 200 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 050 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

        /a  XK Xi i get sub
            YK Yi i get sub 0.0001 add div def
        /an XK       YK     0.0001 add div def
        /b  ZK Zi i get sub
            YK Yi i get sub 0.0001 add div 0.4 mul neg def
        /bn ZK       YK     0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def

/AnY a" fakt mul def
/BnY b" fakt mul def

j 0 eq {AnY 100 add BnY 200 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 050 add BnY 150 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2


700 800 add neg -3200 translate %for graphic

} if %xchart4=3

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

/fakt 40 def
/a2 1.00 def
/b2 -0.4 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (A) show
TBS ( = \050) show
TBIS (a) show
TBS ( - ) show
TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1300 moveto
TBIS (B) show
TBS ( = \050) show
TBIS (b) show
TBS ( - ) show
TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show
TBS (]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show
TBS (]) show

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1) show

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -0,4) show

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

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

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

0 080 add
0 080 add moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm
/AnY Xi i get Yi i get 0.0001 add div          %(a-an)Y
     XK       YK       0.0001 add div sub
     Yi i get mul fakt mul def
/BnY Zi i get Yi i get 0.0001 add div          %(b-bn)Y
     ZK       YK       0.0001 add div sub 0.4 mul neg
     Yi i get mul fakt mul def
j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 sub BnY 300 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/AnY XK Xi i get sub YK Yi i get sub 0.0001 add div          %(a-an)Y
     XK       YK       0.0001 add div sub
     YK Yi i get sub mul fakt mul def
/BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div          %(b-bn)Y
     ZK       YK       0.0001 add div sub 0.4 mul neg
     YK Yi i get sub mul fakt mul def
j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 100 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

} if %xchart4=4

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

/D13 1 3 div def
/fakt 40 3 div def
/a2 1 XW div D13 exp def
/b2 1 ZW div D13 exp -0.4 mul def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

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

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

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

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

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

90 0 360 arc stroke

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

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

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm


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

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

j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 add BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

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

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

j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

-3500 -2000 translate %for text and grafic

} if %xchart4=5

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

/D13 1 3 div def
/fakt 40 3 div def
/a2 0.2191 def
/b2 -0.08376 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a') show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b') show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

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

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

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

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

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

90 0 360 arc stroke

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

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

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

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

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

j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 add BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

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

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

j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

-3500 -2000 translate %for text and grafic

} if %xchart4=6

xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65

/D13 1 3 div def
/D11 1 def
/D16  1 6 div def
/fakt 40 3 div def
/a2 1 15 div def
/b2 1 12 div neg def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS ( + 1]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS ( + 1/6 ]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1/15 = ) show a2 cvsshow5

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -1/12 = ) show b2 cvsshow5

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

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

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

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

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

90 0 360 arc stroke


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

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

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

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

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

j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 000 add BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

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

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

j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

-3500 -2000 translate %for text and grafic

} if %xchart4=7

showpage
grestore

%} for %xchartl=0,7

} for %xchart4=0,7

%} for %xcolorl=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 24

%line 459
%!PS-Adobe-3.0 EPSF-3.0 MF491-4N
%%BoundingBox: 70 83 228 206

%START PDFDE011.EPS
/pdfmark14 where {pop} {userdict /pdfmark14 /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/MF49/)
  /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 pdfmark14
[ /View [ /FitB ]
/DOCVIEW pdfmark14
%END  PDFDE011

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

%%EndProlog
gsave

%lanindL2.EPS START  20000505
/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 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 /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} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

/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

/SD65 80 array def %380 bis 775 mit deltalambda=05
/SD50 80 array def %380 bis 775 mit deltalambda=05
/SP40 80 array def %380 bis 775 mit deltalambda=05
/SA00 80 array def %380 bis 775 mit deltalambda=05
/SE00 80 array def %380 bis 775 mit deltalambda=05
/SC00 80 array def %380 bis 775 mit deltalambda=05
/SP00 80 array def %380 bis 775 mit deltalambda=05
/SQ00 80 array def %380 bis 775 mit deltalambda=05

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

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

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

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

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

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

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

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


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

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

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

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

        put
       } for %i=0,79

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

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

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

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

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

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

%calculation of transformation data
/FARBE 27 array def
/FARBE [(R) (m) ( 561_770) %00
        (Y) (m) ( 520_770) %01
        (G) (m) ( 475_573) %02
        (C) (m) ( 380_561) %03
        (B) (m) ( 380_520) %04
        (M) (m) ( 573_475) %05
        (N) (0) ( 380_770) %06
        (W) (0) ( 380_770) %07
        (W) (1) ( 380_770) %08
       ] def

%/FARBE [(R) (m) ( 565_770) %00
%        (Y) (m) ( 520_770) %01
%        (G) (m) ( 475_575) %02
%        (C) (m) ( 380_565) %03
%        (B) (m) ( 380_520) %04
%        (M) (m) ( 575_475) %05
%        (N) (0) ( 380_770) %06
%        (W) (0) ( 380_770) %07
%        (W) (1) ( 380_770) %08
%       ] def

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

/RX0 640 array def %8x80
/RX0 [

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

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

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

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

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

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

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

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

%(%Gm      02 475_575)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
0000 0000 0000 0000 0000 0000 0000 0000 0000 0500

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

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

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

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

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

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

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

%(%Bm   05 380_495)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000

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

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

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

%(%Mm     06 575_475)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
1000 1000 1000 1000 1000 1000 1000 1000 1000 0500

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

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

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

%(%N0(r=0,001) 09 380_770)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
0001 0001 0001 0001 0001 0001 0001 0001 0001 0001
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
0001 0001 0001 0001 0001 0001 0001 0001 0001 0001

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

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

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

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

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

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

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

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

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

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

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

] def

/xcolorl xcolor def
%0 1 1 {/xcolorl exch def %xcolorl=0,1


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

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

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

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

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

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

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

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

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

20 setlinewidth
/xdel  1005 def
/ydel   395 def
/x0  050 def
/x1 -150 def

/TELi 8 array def
/TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin.

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

5 1 5 {/xchart4 exch def %xchart4=0,7

/xchartl 0 def %special allways D65
%0 1 7 {/xchartl exch def %xchartl=0,7

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

gsave

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

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

72 90 translate

0.010 MM dup scale

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

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

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

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

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

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

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

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

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

0 1 62 {/i exch def %i=0,62
        FAD i FXD i get put
        FBD i FYD i get put
        FCD i FZD i get put
       } for %i=0,62

%      FXU(1)=FF(2)*U(3)-FF(3)*U(2)
%      FXU(2)=FF(3)*U(1)-FF(1)*U(3)
%      FXU(3)=FF(1)*U(2)-FF(2)*U(1)

%      SUBROUTINE DOWEL (F,FXU,IMAX,IO)
%      DIMENSION F(99,3),FXU(3)
%      I=1
%      T2=F(1,1)*FXU(1)+F(1,2)*FXU(2)+F(1,3)*FXU(3)
%      IF(T2) 1,1,4
%    1 T1=T2
%      I=I+1
%      T2=F(I,1)*FXU(1)+F(I,2)*FXU(2)+F(I,3)*FXU(3)
%      IF(T2) 1,1,2
%    2 IF(T1) 3,3,1
%    3 IO=I-1
%      RETURN
%    4 T1=F(IMAX,1)*FXU(1)+F(IMAX,2)*FXU(2)+F(IMAX,3)*FXU(3)
%      IF(T1) 5,5,1
%    5 IO=IMAX
%      RETURN
%      END

%*********************************************************
/proc_ABC_KNP_FWERTiX
{%BEG proc_ABC_KNP_FWERT

%input FAD,FBD,FCD, KNP
%output FWERTiX/Y/Z (i=1,4)

    kNP 1 ge {/FWERT1X FAD kNP 1 sub get def
              /FWERT1Y FBD kNP 1 sub get def
              /FWERT1Z FCD kNP 1 sub get def}
             {/FWERT1X FAD 0 get def %again 400nm for i=0
              /FWERT1Y FBD 0 get def
              /FWERT1Z FCD 0 get def} ifelse

    /FWERT2X FAD kNP get def
    /FWERT2Y FBD kNP get def
    /FWERT2Z FCD kNP get def

    /FWERT3X FAD kNP 1 add get def
    /FWERT3Y FBD kNP 1 add get def
    /FWERT3Z FCD kNP 1 add get def

    /FWERT4X FAD kNP 2 add get def
    /FWERT4Y FBD kNP 2 add get def
    /FWERT4Z FCD kNP 2 add get def

} bind def %END proc_ABC_KNP_FWERTiX

%*********************************************************
/proc_XIE_TN1
{%BEG proc_XIE_TN1

%input XIE, FWERTiX/Y/Z (i=1,4)
%output TN1

/A1N XIE       1 XIE sub mul XIE 2 sub mul 6 div   def
/A2N XIE 1 add XIE 1 sub mul XIE 2 sub mul 0.5 mul def
/A3N XIE 1 add XIE       mul 2 XIE sub mul 0.5 mul def
/A4N XIE 1 add XIE       mul XIE 1 sub mul 6 div   def
/FNX A1N FWERT1X mul
     A2N FWERT2X mul add
     A3N FWERT3X mul add
     A4N FWERT4X mul add def
/FNY A1N FWERT1Y mul
     A2N FWERT2Y mul add
     A3N FWERT3Y mul add
     A4N FWERT4Y mul add def
/FNZ A1N FWERT1Z mul
     A2N FWERT2Z mul add
     A3N FWERT3Z mul add
     A4N FWERT4Z mul add def
/TNX FNX FXU1 mul
     FNY FXU2 mul add
     FNZ FXU3 mul add def

} bind def %END proc_XIE_TN1

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

/WEL1 60 array def %irregular definition
/WEL2 60 array def %irregular definition
      %0   1   2   3   4   5   6   7   8   9
/WEL1 [405 435 450 460 465 470 475 480 485 490
       495 500 510 520 530 540 545 550 555 560
      ] def

0 1 19 {/k exch def %k=0,19 %wavelength 405..700nm

        /j  WEL1 k get 400 sub 5 idiv def
        /LP k def
        /LPP 20.5 k add def

       /FF1 FXD j get def %start at 405..700nm
       /FF2 FYD j get def
       /FF3 FZD j get def

       /U1 XW def
       /U2 YW def
       /U3 ZW def
       
       /FXU1 FF2 U3 mul FF3 U2 mul sub def
       /FXU2 FF3 U1 mul FF1 U3 mul sub def
       /FXU3 FF1 U2 mul FF2 U1 mul sub def

/INP -1 def
/IPN -1 def
%assumption jump from TN to TP from negativ to positiv
       0 1 60 {/i exch def %i=1,60
               /TN FAD i get FXU1 mul
                   FBD i get FXU2 mul add
                   FCD i get FXU3 mul add def

               /TP FAD i 1 add get FXU1 mul
                   FBD i 1 add get FXU2 mul add
                   FCD i 1 add get FXU3 mul add def
               TN 0 le TP 0 gt and {/INP i def exit} if
              } for %i=1,60

       0 1 60 {/i exch def %i=1,60
               /TN FAD i get FXU1 mul
                   FBD i get FXU2 mul add
                   FCD i get FXU3 mul add neg def
               /TP FAD i 1 add get FXU1 mul
                   FBD i 1 add get FXU2 mul add
                   FCD i 1 add get FXU3 mul add neg def
               TN 0 le TP 0 gt and {/IPN i def exit} if
              } for %i=1,60

%*********************************************************
/kNP INP def

kNP 0 ge {%kNP>=0

proc_ABC_KNP_FWERTiX %input FAD,KNP, output FWERTiXYZ (i=1,4)

/XIE1 0 def %start values TN=0 for XIE1, TP>0 for XIE2
/XIE2 1 def

0 1 9 {/mk exch def %mk=0,9
       /XIE XIE1 XIE2 add 0.5 mul def
       proc_XIE_TN1  %input XIE, ouput TN1
       TNX 0 le {/XIE1 XIE def /TN1 TNX def}
                {/XIE2 XIE def /TP1 TNX def} ifelse
      } for %mk=0,9

/XIE XIE1 XIE2 add 0.5 mul def
/DOWXIE1 DOW INP get DOW INP 1 add get DOW INP get sub XIE mul add def
/XIENP XIE def

       } if %kNP>=0

%*********************************************************
/kNP IPN def

kNP 0 ge {%kNP>=0

proc_ABC_KNP_FWERTiX %input FAD,KNP, output FWERTiXYZ (i=1,4)

/XIE1 0 def %start values TN=0 for XIE1, TP>0 for XIE2
/XIE2 1 def
/FXU1 FXU1 neg def
/FXU2 FXU2 neg def
/FXU3 FXU3 neg def

0 1 9 {/mk exch def %mk=0,9
       /XIE XIE1 XIE2 add 0.5 mul def
       proc_XIE_TN1  %input XIE, ouput TN1
       TNX 0 le {/XIE1 XIE def /TN1 TNX def}
                {/XIE2 XIE def /TP1 TNX def} ifelse
      } for %mk=0,9

/XIE XIE1 XIE2 add 0.5 mul def
/DOWXIE2 DOW IPN get DOW IPN 1 add get DOW IPN get sub XIE mul add def
/XIEPN XIE def

       } if %kNP>=0

%*********************************************************
0 1 79 {/i exch def %i=0,79
        RA i 0 put
       } for %i=0,79

INP -1 eq {/i1 0 def}                %380nm
          {/i1 INP 5 add def} ifelse %405..700nm

IPN -1 eq {/i2 79 def}               %770nm
          {/i2 IPN 5 add def} ifelse %405..700nm

i2 i1 ge {%i1<i2
          i1 1 i2 {/i exch def %i=i1,i2
                   RA i 1 put
                  } for %i=i1,i2
         }%i1<i2
         {%i1>i2
          i1 1 79 {/i exch def %i=i1,79
                   RA i 1 put
                  } for %i=i1,79
          0  1 i2 {/i exch def %i=0,i2
                   RA i 1 put
                  } for %i=0,i2
                  
         } ifelse %i1>i2

%correction
i2 i1 ge {%i1<i2
          RA i1 0.5 put
          RA i2 0.5 XIEPN 0.5 sub add put
         }%i1<i2
         {%i1>i2
          RA i1 0.5 put
          RA i2 0.5 XIEPN 0.5 sub add put
         } ifelse %i1>i2

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

/SUM X Y add Z add def
/XAN X SUM 0.0001 add div def
/YAN Y SUM 0.0001 add div def
/ZAN Z SUM 0.0001 add div def

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

0 0 0 1 setcmyk_olvcolor

0 1 1 {/Icom exch def %Icom=0,1

Icom 0 eq {%Icom=0,1
           Xi k X put
           Yi k Y put
           Zi k Z put
           XANi k XAN put
           YANi k YAN put
           ZANi k ZAN put
          }%Icom=0
          {%Icom=1
           /kP 20 k add def
           Xi kP XW X sub put
           Yi kP YW Y sub put
           Zi kP ZW Z sub put
           /SUMi Xi kP get
                 Yi kP get add
                 Zi kP get add def
           XANi kP Xi kP get SUMi 0.0001 add div put
           YANi kP Yi kP get SUMi 0.0001 add div put
           ZANi kP Zi kP get SUMi 0.0001 add div put
          } ifelse %Icom=1

} for %Icom=0,1

K 1 eq {%K=1
        Xi k  Xi k  get 0.8859 mul put
        Yi k  Yi k  get 0.8859 mul put
        Zi k  Zi k  get 0.8859 mul put
        Xi kP Xi kP get 0.8859 mul put
        Yi kP Yi kP get 0.8859 mul put
        Zi kP Zi kP get 0.8859 mul put
       } if %K=1

} for %k=0,19

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

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

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

/LP LP 1 add def

/xtexti 96 array def
/ytexti 96 array def
/xtexti [
%T00 T10  T20   T30   T40  T41   T50  T51   T60  T61  T70  T71
%0   1    2     3     4    5     6    7     8    9    10   11
1800 1800 1800  2800  2800 4000  2800 4000  2800 4000 2800 4000 %0
0600 0600 0600  0600  0600 1800  0600 1800  0600 1800 0600 1800 %1
0700 0700 0700  0700  0700 1900  0700 1900  0700 1900 0700 1900 %2
0700 0700 0700  0700  0700 1900  0700 1900  0700 1900 0700 1900 %3
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %4
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %5
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %6
0100 0100 0100  0100  0100 1300  0100 1300  0100 1300 0100 1300 %7
] def
/ytexti [ 
3800 3580 3360  3140  2920 2920  2700 2700  2480 2480 2260 2260 %0
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %1
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %2
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %3
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %4
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %5
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %6
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %7
] def

0 0 0 1 setcmyk_olvcolor
/xchart12 xchart4 12 mul def

TBS
xchart4 1 ge { %xchart4 >=1
xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto
xchart4 1 eq {(LABCab 77) show} if
xchart4 2 eq {(CIELAB 76) show} if
xchart4 3 eq {(LABJNDS 87) show} if
xchart4 4 eq {(LABCab 85) show} if
xchart4 5 eq {(CIELAB 76) show} if
xchart4 6 eq {(CIELAB D65) show} if
xchart4 7 eq {(LABHNU1 79) show} if
             } if %xchart4 >=1

xtexti xchart12 3 add get ytexti xchart12 3 add get moveto
TBS
(Name und Spektralbereich) showde                               %0MF491-4 00581
(Name and spectral range) showen                                %1MF491-4 00581
(Nombre y gama espectral) showes                                %2MF491-4 00581
(Nom et la gamma spectrale) showfr                              %3MF491-4 00581
(Nome e la gamma spettrale) showit                              %4MF491-4 00581
(Name and spectral range) showjp                                %5MF491-4 00581

xtexti xchart12 4 add get ytexti xchart12 4 add get moveto
TBIS FARBE 0 get show
TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto
TBIS FARBE 2 get show

xtexti xchart12 5 add get ytexti xchart12 5 add get moveto
TBIS FARBE 3 get show
TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto
TBIS FARBE 5 get show

xtexti xchart12 6 add get ytexti xchart12 6 add get moveto
TBIS FARBE 6 get show
TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto
TBIS FARBE 8 get show

xtexti xchart12 7 add get ytexti xchart12 7 add get moveto
TBIS FARBE 9 get show
TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto
TBIS FARBE 11 get show

xtexti xchart12 8 add get ytexti xchart12 8 add get moveto
TBIS FARBE 12 get show
TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto
TBIS FARBE 14 get show

xtexti xchart12 9 add get ytexti xchart12 9 add get moveto
TBIS FARBE 15 get show
TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto
TBIS FARBE 17 get show

%xtexti xchart12 10 add get ytexti xchart12 10 add get moveto
%TBIS FARBE 18 get show
%TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto
%TBIS FARBE 20 get show

%xtexti xchart12 11 add get ytexti xchart12 11 add get moveto
%TBIS FARBE 21 get show
%TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto
%TBIS FARBE 23 get show

TBS
0 0 0 1 setcmyk_olvcolor
xtexti xchart12 0 add get ytexti xchart12 0 add get moveto
TBIS (Ostwald) show TBS
(\255Optimalfarben (o)) showde                                  %0MF491-4 02581
( optimal colours (o)) showen                                   %1MF491-4 02581
( colores \363ptimos (o)) showes                                %2MF491-4 02581
( couleurs optimales (o)) showfr                                %3MF491-4 02581
( colori ottimi (o)) showit                                     %4MF491-4 02581
( optimal colours (o)) showjp                                   %5MF491-4 02581

TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto
TBS K 0 eq {(=100) show}{(=88,6) show} ifelse

xtexti xchart12 1 add get ytexti xchart12 1 add get moveto
(6 von maximalem (m)) showde                                    %0MF491-4 03581
(6 of maximum (m)) showen                                       %1MF491-4 03581
(6 de m\341ximo (m)) showes                                     %2MF491-4 03581
(6 de la maximum (m)) showfr                                    %3MF491-4 03581
(6 di massimo (m)) showit                                       %4MF491-4 03581
(6 of maximum (m)) showjp                                       %5MF491-4 03581

TBIS ( C) show TBL 0 -60 rmoveto (AB) show 0 60 rmoveto TBS

( f\374r ) showde                                               %0MF491-4 03581
( for ) showen                                                  %1MF491-4 03581
( bajo ) showes                                                 %2MF491-4 03581
( pour ) showfr                                                 %3MF491-4 03581
( per ) showit                                                  %4MF491-4 03581
( for ) showjp                                                  %5MF491-4 03581

TELi xchartl get show

xtexti xchart12 2 add get ytexti xchart12 2 add get moveto

xchart4 0 eq {%xchart4=0
(in der Normfarbtafel) showde                                   %0MF491-4 04581
(in the chromaticity diagram) showen                            %1MF491-4 04581
(en el diagrama de chromaticidad) showes                        %2MF491-4 04581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-4 04581
(nel diagramma di cromaticit\340) showit                        %4MF491-4 04581
(in the chromaticity diagram) showjp                            %5MF491-4 04581
TBIS ( (x, y)) show
             } if %xchart4=0

xchart4 1 eq {%xchart4=1
(in der Farbtafel) showde                                       %0MF491-4 05581
(in the chromaticity diagram) showen                            %1MF491-4 05581
(en el diagrama de chromaticidad) showes                        %2MF491-4 05581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-4 05581
(nel diagramma di cromaticit\340) showit                        %4MF491-4 05581
(in the chromaticity diagram) showjp                            %5MF491-4 05581
TBIS ( (a, b)) show
             } if %xchart4=1

xchart4 2 eq {%xchart4=2
(in der Farbarbtafel) showde                                    %0MF491-4 06581
(in the chromaticity diagram) showen                            %1MF491-4 06581
(en el diagrama de chromaticidad) showes                        %2MF491-4 06581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-4 06581
(nel diagramma di cromaticit\340) showit                        %4MF491-4 06581
(in the chromaticity diagram) showjp                            %5MF491-4 06581
TBIS ( (a', b')) show
             } if %xchart4=2

xchart4 3 eq {%xchart4=3
(in der Farbarbtafel) showde                                    %0MF491-4 07581
(in the chromaticity diagram) showen                            %1MF491-4 07581
(en el diagrama de chromaticidad) showes                        %2MF491-4 07581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-4 07581
(nel diagramma di cromaticit\340) showit                        %4MF491-4 07581
(in the chromaticity diagram) showjp                            %5MF491-4 07581
TBIS ( (a", b")) show
             } if %xchart4=3

xchart4 4 eq {%xchart4=4
(in Buntwertdiagramm) showde                                    %0MF491-4 08581
(in chromatic value diagram) showen                             %1MF491-4 08581
(en el diagrama valor crom\341tico) showes                      %2MF491-4 08581
(dans la valeur chromatique le diagramme) showfr                %3MF491-4 08581
(nel diagramma di valore cromatico) showit                      %4MF491-4 08581
(in chromatic value diagram) showjp                             %5MF491-4 08581
TBIS ( (A, B)) show
             } if %xchart4=4

xchart4 5 eq {%xchart4=5
(in Buntheitsdiagram) showde                                    %0MF491-4 09581
(in CIELAB diagram) showen                                      %1MF491-4 09581
(en el diagrama CIELAB) showes                                  %2MF491-4 09581
(dans le diagramme de CIELAB) showfr                            %3MF491-4 09581
(nel diagramma di CIELAB) showit                                %4MF491-4 09581
(in CIELAB diagram) showjp                                      %5MF491-4 09581
TBIS ( (a*, b*)) show
             } if %xchart4=5

xchart4 6 eq {%xchart4=6
(in Buntheitsdiagram) showde                                    %0MF491-4 10581
(in chroma diagram) showen                                      %1MF491-4 10581
(en el diagrama croma) showes                                   %2MF491-4 10581
(dans le diagramme de chroma) showfr                            %3MF491-4 10581
(nel diagramma di chroma) showit                                %4MF491-4 10581
(in chroma diagram) showjp                                      %5MF491-4 10581

TBIS ( \050a*) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (, ) show TBIS (b*) show 
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (\051) show

             } if %xchart4=6

xchart4 7 eq {%xchart4=7
(in Buntheitsdiagram) showde                                    %0MF491-4 11581
(in chroma diagram) showen                                      %1MF491-4 11581
(en el diagrama croma) showes                                   %2MF491-4 11581
(dans le diagramme de chroma) showfr                            %3MF491-4 11581
(nel diagramma di chroma) showit                                %4MF491-4 11581
(in chroma diagram) showjp                                      %5MF491-4 11581
TBIS ( (A*, B*)) show
             } if %xchart4=7

xchart4 0 eq {%xchart4=0

600 400 translate

0 0 moveto  4000 0 rlineto  stroke
0 0 moveto  0 3200 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS

   0 -50 moveto  0 100 rlineto  stroke
 800 -50 moveto  0 100 rlineto  stroke
1600 -50 moveto  0 100 rlineto  stroke
2400 -50 moveto  0 100 rlineto  stroke
3200 -50 moveto  0 100 rlineto  stroke
4000 -50 moveto  0 100 rlineto  stroke

-100 -300 moveto (0,0) show
 700 -300 moveto (0,2) show
1500 -300 moveto (0,4) show
2300 -300 moveto (0,6) show
3100 -300 moveto (0,8) show
3900 -300 moveto (1,0) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50    0 moveto  100 0 rlineto  stroke
 -50  800 moveto  100 0 rlineto  stroke
 -50 1600 moveto  100 0 rlineto  stroke
 -50 2400 moveto  100 0 rlineto  stroke
 -50 3200 moveto  100 0 rlineto  stroke

-450  -80 moveto (0,0) show
-450  720 moveto (0,2) show
-450 1520 moveto (0,4) show
-450 2320 moveto (0,6) show
-450 3120 moveto (0,8) show

TIM
-300 2800 moveto (y) show

TIM
4200 150 moveto (x) show

TBIS
2600 150 moveto (CIE 1931) show

-600 -400 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0:  600  400
    600    400 translate
    693     19 moveto
    693     19    692     19    690     19 curveto
    688     19    685     20    681     23 curveto
    675     27    667     34    657     43 curveto
    644     55    626     70    603     90 curveto
    575    118    542    159    496    231 curveto
    438    347    365    530    274    802 curveto
    181   1179     93   1650     32   2153 curveto
     15   2619     55   3000    155   3248 curveto
    297   3335    456   3304    618   3223 curveto
    771   3126    918   3017   1063   2897 curveto
   1206   2769   1349   2635   1492   2497 curveto
   1634   2358   1776   2218   1915   2080 curveto
   2049   1946   2179   1817   2300   1696 curveto
   2411   1585   2508   1489   2592   1405 curveto
   2663   1336   2720   1278   2765   1233 curveto
   2802   1197   2831   1168   2856   1143 curveto
   2876   1123   2892   1107   2903   1096 curveto
   2913   1086   2919   1080   2924   1075 curveto
   2927   1072   2930   1069   2933   1066 curveto
   2936   1063   2937   1062   2938   1061 curveto
   2938   1061   2939   1060   2744    971 curveto
   2261    748   2040    643   1908    582 curveto
   1819    541   1758    512   1708    490 curveto
   1660    468   1612    445   1558    420 curveto
   1495    391   1419    356   1320    309 curveto
   1184    247    986    155    693     19 curveto
 stroke
0 0 0 1 setcmyk_olvcolor
    693     19 30 0 360 arc fill % 400
    681     23 30 0 360 arc fill % 425
    626     70 30 0 360 arc fill % 450
    438    347 30 0 360 arc fill % 475
     32   2153 30 0 360 arc fill % 500
    456   3304 30 0 360 arc fill % 525
   1206   2769 30 0 360 arc fill % 550
   1915   2080 30 0 360 arc fill % 575
   2508   1489 30 0 360 arc fill % 600
   2802   1197 30 0 360 arc fill % 625
   2903   1096 30 0 360 arc fill % 650
   2930   1069 30 0 360 arc fill % 675
   2938   1061 30 0 360 arc fill % 700
   2261    748 30 0 360 arc fill %500c
   1708    490 30 0 360 arc fill %525c
   1419    356 30 0 360 arc fill %550c
0 0 0 1 setcmyk_olvcolor
    693     19 30 0 360 arc stroke % 400
    681     23 30 0 360 arc stroke % 425
    626     70 30 0 360 arc stroke % 450
    438    347 30 0 360 arc stroke % 475
     32   2153 30 0 360 arc stroke % 500
    456   3304 30 0 360 arc stroke % 525
   1206   2769 30 0 360 arc stroke % 550
   1915   2080 30 0 360 arc stroke % 575
   2508   1489 30 0 360 arc stroke % 600
   2802   1197 30 0 360 arc stroke % 625
   2903   1096 30 0 360 arc stroke % 650
   2930   1069 30 0 360 arc stroke % 675
   2938   1061 30 0 360 arc stroke % 700
   2261    748 30 0 360 arc stroke %500c
   1708    490 30 0 360 arc stroke %525c
   1419    356 30 0 360 arc stroke %550c
%   1250   1316 30 0 360 arc fill %D65 
0 0 0 1 setcmyk_olvcolor
TBIS
    693  375 sub     19 250 sub moveto (400) show
%    681 500 sub     23 100 sub moveto (425) show
%    626 500 sub     70 100 sub moveto (450) show
    438 350 sub    347 200 sub moveto (475) show
     32 450 sub   2153 100 sub moveto (500) show
    456 100 add   3304 000 add moveto (525) show
   1206 100 add   2769 000 add moveto (550) show
   1915 080 sub   2080 100 add moveto (575) show
   2508 100 add   1489 000 add moveto (600) show
   2802 100 add   1197 100 add moveto (625) show
%   2903 200 sub   1096 100 add moveto (650) show
%   2930 200 sub   1069 100 add moveto (675) show
   2938 100 add   1061 100 sub moveto (700) show
   2261 100 add    748 200 sub moveto (500c,E) show
   1708 100 add    490 200 sub moveto (525c,E) show
   1419 000 add    356 250 sub moveto (550c,E) show
%   1250 100 add   1316 100 sub moveto (D65 ) show
   -600   -400 translate
 %ENDE: 1

       } if %xchart4=0

xchart4 1 eq {%xchart4=1

500 3200 translate
 
0 400 moveto  4000  0 rlineto  stroke
0 400 moveto  0 -3600 rlineto  stroke
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS
 
   0 350 moveto  0 100 rlineto  stroke
 800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke
 
-150  500 moveto (-0,8) show
 650  500 moveto (0,0) show
1450  500 moveto (0,8) show
2250  500 moveto (1,6) show
3050  500 moveto (2,4) show
3850  500 moveto (3,2) show
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten
 
 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke
 
-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,8) show
-450 -1700 moveto (-1,6) show
%-450 -2500 moveto (-2,4) show

-175 -3050 moveto
90 rotate 
TBIK (b) show TBK (=-0,40) show TBIK (z/y) show
-90 rotate
3650   100 moveto TBIK (a=x/y) show
 
-500 -3200 translate
 
 %1000 02 01 16 01-.03****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200

   1300   3200 translate

%  36136 -68535 moveto
%  36136 -68535  36234 -68875  35958 -68561 curveto
%  35610 -68128  33600 -64560  29424 -56936 curveto
%  24474 -47779  19507 -38551  15143 -30384 curveto
%  11681 -23927   8847 -18653   6639 -14534 curveto
%   4846 -11128   3397  -8271   2147  -5661 curveto
   1261  -3701 moveto
   1261  -3701    688  -2339    342  -1455 curveto
    153   -894     56   -546     15   -336 curveto
      5   -208     18   -125     47    -73 curveto
     89    -44    138    -28    191    -19 curveto
    246    -13    304     -8    366     -5 curveto
    435     -3    512     -2    597     -1 curveto
    693     -1    800      0    920      0 curveto
   1053      0   1198      0   1355      0 curveto
   1520      0   1683      0   1844      0 curveto
   1993      0   2126      0   2242      0 curveto
   2340      0   2424      0   2497      0 curveto
   2559      0   2610      0   2649      0 curveto
   2680      0   2703      0   2718      0 curveto
   2731      0   2741      0   2751      0 curveto
   2760      0   2764      0   2767      0 curveto
   2769      0   2770      0   2824   -116 curveto
   3023   -529   3168   -817   3275  -1036 curveto
   3357  -1209   3430  -1349   3482  -1469 curveto
   3545  -1597   3622  -1746   3704  -1922 curveto
   3817  -2156   3983  -2496   4262  -3058 curveto
%   4786  -4149   6341  -7346  35775 -67850 curveto
 stroke
  0 0 0 1 setcmyk_olvcolor
%  36136 -68535 30 0 360 arc fill % 400
%  29424 -56936 30 0 360 arc fill % 425
%   8847 -18653 30 0 360 arc fill % 450
   1261  -3701 30 0 360 arc fill % 475
     15   -336 30 0 360 arc fill % 500
    138    -28 30 0 360 arc fill % 525
    435     -3 30 0 360 arc fill % 550
    920      0 30 0 360 arc fill % 575
   1683      0 30 0 360 arc fill % 600
   2340      0 30 0 360 arc fill % 625
   2649      0 30 0 360 arc fill % 650
   2741      0 30 0 360 arc fill % 675
   2769      0 30 0 360 arc fill % 700
   3023   -529 30 0 360 arc fill %500c
   3482  -1469 30 0 360 arc fill %525c
   3983  -2496 30 0 360 arc fill %550c
  0 0 0 1 setcmyk_olvcolor
%  36136 -68535 30 0 360 arc stroke % 400
%  29424 -56936 30 0 360 arc stroke % 425
%   8847 -18653 30 0 360 arc stroke % 450
   1261  -3701 30 0 360 arc stroke % 475
     15   -336 30 0 360 arc stroke % 500
    138    -28 30 0 360 arc stroke % 525
    435     -3 30 0 360 arc stroke % 550
    920      0 30 0 360 arc stroke % 575
   1683      0 30 0 360 arc stroke % 600
   2340      0 30 0 360 arc stroke % 625
   2649      0 30 0 360 arc stroke % 650
   2741      0 30 0 360 arc stroke % 675
   2769      0 30 0 360 arc stroke % 700
   3023   -529 30 0 360 arc stroke %500c
   3482  -1469 30 0 360 arc stroke %525c
   3983  -2496 30 0 360 arc stroke %550c
%    950   -435 30 0 360 arc fill %D65
  0 0 0 1 setcmyk_olvcolor
TBIS
% 36136 500 sub -68535 100 sub moveto (400) show
% 29424 500 sub -56936 100 sub moveto (425) show
%  8847 500 sub -18653 100 sub moveto (450) show
%  1261 500 sub  -3701 100 sub moveto (475) show
     15 400 sub   -336 100 sub moveto (500) show
%   138 200 sub    -28 100 add moveto (525) show
    435 200 sub     -3 100 add moveto (550) show
%    920 200 sub      0 100 add moveto (575) show
   1683 200 sub      0 100 add moveto (600) show
   2340 200 sub      0 100 add moveto (625) show
%  2649 200 sub      0 100 add moveto (650) show
%  2741 200 sub      0 100 add moveto (675) show
   2769 100 add      0 150 sub moveto (700) show
   3023 100 add   -529 100 sub moveto (500c,E) show
   3482 800 sub  -1469 050 sub moveto (525c,E) show
%  3983 500 sub  -2496 100 sub moveto (550c,E) show
%    950 100 add   -435 100 sub moveto (D65 ) show

  -1300  -3200 translate
 %ENDE: 2

             } if %xchart4=1

xchart4 2 eq {%xchart4=2

600 3200 translate

0 400 moveto  4400  0 rlineto  stroke
0 400 moveto  0 -3600 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS

 000 350 moveto  0 100 rlineto  stroke
0800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

-200  500 moveto (0,00) show
 600  500 moveto (0,06) show
1400  500 moveto (0,12) show
2200  500 moveto (0,18) show
3000  500 moveto (0,24) show
3800  500 moveto (0,30) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke

-575  -100 moveto (  0,00) show
-575  -900 moveto (-0,06) show
-575 -1700 moveto (-0,12) show
-575 -2500 moveto (-0,18) show

TIM
-380  -1300 moveto (b') show
4300 250 moveto (a') show

-600 -3200 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0:  400 3200

    400   3200 translate

   9657  -6202 moveto
   9657  -6202   9666  -6212   9642  -6203 curveto
   9610  -6190   9426  -6080   9018  -5830 curveto
   8481  -5499   7863  -5120   7227  -4729 curveto
   6628  -4367   6041  -4019   5490  -3698 curveto
   4943  -3383   4391  -3065   3769  -2701 curveto
   3156  -2344   2578  -2012   2043  -1717 curveto
   1565  -1460   1123  -1239    723  -1054 curveto
    527   -898    772   -759   1060   -634 curveto
   1304   -535   1510   -464   1685   -408 curveto
   1832   -356   1965   -309   2091   -267 curveto
   2214   -230   2337   -200   2460   -176 curveto
   2585   -157   2712   -145   2841   -139 curveto
   2972   -138   3103   -133   3233   -126 curveto
   3359   -126   3475   -120   3582   -113 curveto
   3676    -98   3756    -91   3823    -88 curveto
   3878    -75   3924    -64   3963    -57 curveto
   3995    -54   4022    -46   4042      0 curveto
   4057      0   4069      0   4077      0 curveto
   4083      0   4088      0   4093      0 curveto
   4097      0   4100      0   4101      0 curveto
   4102      0   4103      0   4129   -740 curveto
   4224  -1226   4290  -1417   4338  -1533 curveto
   4374  -1614   4405  -1674   4427  -1723 curveto
   4454  -1771   4486  -1825   4520  -1884 curveto
   4565  -1958   4630  -2056   4736  -2200 curveto
   4923  -2435   5407  -2946   9625  -6181 curveto
 stroke
 0 0 0 1 setcmyk_olvcolor
   9657  -6202 30 0 360 arc fill % 400
   9018  -5830 30 0 360 arc fill % 425
   6041  -4019 30 0 360 arc fill % 450
   3156  -2344 30 0 360 arc fill % 475
    723  -1054 30 0 360 arc fill % 500
   1510   -464 30 0 360 arc fill % 525
   2214   -230 30 0 360 arc fill % 550
   2841   -139 30 0 360 arc fill % 575
   3475   -120 30 0 360 arc fill % 600
   3878    -75 30 0 360 arc fill % 625
   4042      0 30 0 360 arc fill % 650
   4088      0 30 0 360 arc fill % 675
   4102      0 30 0 360 arc fill % 700
   4224  -1226 30 0 360 arc fill %500c
   4427  -1723 30 0 360 arc fill %525c
   4630  -2056 30 0 360 arc fill %550c
 0 0 0 1 setcmyk_olvcolor
   9657  -6202 30 0 360 arc stroke % 400
   9018  -5830 30 0 360 arc stroke % 425
   6041  -4019 30 0 360 arc stroke % 450
   3156  -2344 30 0 360 arc stroke % 475
    723  -1054 30 0 360 arc stroke % 500
   1510   -464 30 0 360 arc stroke % 525
   2214   -230 30 0 360 arc stroke % 550
   2841   -139 30 0 360 arc stroke % 575
   3475   -120 30 0 360 arc stroke % 600
   3878    -75 30 0 360 arc stroke % 625
   4042      0 30 0 360 arc stroke % 650
   4088      0 30 0 360 arc stroke % 675
   4102      0 30 0 360 arc stroke % 700
   4224  -1226 30 0 360 arc stroke %500c
   4427  -1723 30 0 360 arc stroke %525c
   4630  -2056 30 0 360 arc stroke %550c
%   2872  -1148 30 0 360 arc fill %D65 
 0 0 0 1 setcmyk_olvcolor
TBIS
%   9657 500 sub  -6202 100 sub moveto (400) show
%   9018 500 sub  -5830 100 sub moveto (425) show
%   6041 500 sub  -4019 100 sub moveto (450) show
   3156 400 sub  -2344 100 sub moveto (475) show
    723 250 sub  -1054 250 sub moveto (500) show
   1510 200 sub   -464 150 add moveto (525) show
   2214 200 sub   -230 100 add moveto (550) show
   2841 200 sub   -139 100 add moveto (575) show
   3475 200 sub   -120 100 add moveto (600) show
%   3878 200 sub    -75 100 add moveto (625) show
%   4042 200 sub      0 100 add moveto (650) show
%   4088 200 sub      0 100 add moveto (675) show
   4102 050 add      0 100 sub moveto (700) show
   4224 050 add  -1226 000 sub moveto (500c,E) show
   4427 010 sub  -1723 100 add moveto (525c,E) show
%   4630 100 add  -2056 100 sub moveto (550c,E) show
%   2872 050 add  -1148 000 sub moveto (D65 ) show

   -400  -3200 translate

 %ENDE: 3

             } if %xchart4=2

xchart4 3 eq {%xchart4=3

600 3200 translate

0 400 moveto  4400  0 rlineto  stroke
0 400 moveto  0 -3500 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS
   0 350 moveto  0 100 rlineto  stroke
 800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

-250  500 moveto (-0,6) show
 650  500 moveto (0,0) show
1450  500 moveto (0,6) show
2250  500 moveto (1,2) show
3050  500 moveto (1,8) show
3850  500 moveto (2,4) show
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke

-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,6) show
-450 -1700 moveto (-1,2) show
-450 -2500 moveto (-1,8) show

TBIK
-450  -2900 moveto (b") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK
4050 200 moveto (a") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK

-600 -3200 translate
 
 %1000 02             ****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0:  700 3200
    700 800 add  3200 translate
   3789  -3170 moveto
   3789  -3170   3789  -3170   3788  -3170 curveto
   3787  -3170   3779  -3166   3757  -3155 curveto
   3724  -3138   3673  -3113   3603  -3079 curveto
   3514  -3037   3394  -2982   3239  -2915 curveto
   3028  -2826   2734  -2704   2265  -2508 curveto
   1626  -2234    957  -1880    645  -1481 curveto
    507  -1078    443   -720    417   -455 curveto
    411   -308    419   -223    437   -171 curveto
    464   -144    496   -130    533   -121 curveto
    573   -115    616   -111    664   -108 curveto
    721   -107    787   -105    867   -105 curveto
    963   -104   1081   -104   1227   -104 curveto
   1397   -104   1561   -104   1716   -104 curveto
   1858   -104   1981   -104   2090   -104 curveto
   2180   -104   2254   -104   2313   -104 curveto
   2360   -103   2397   -103   2429   -103 curveto
   2455   -103   2476   -103   2491   -103 curveto
   2503   -103   2512   -103   2517   -103 curveto
   2522   -103   2526   -103   2530   -103 curveto
   2533   -103   2535   -103   2536   -103 curveto
   2536   -103   2537   -103   2556   -214 curveto
   2623   -700   2668  -1007   2700  -1196 curveto
   2723  -1324   2742  -1416   2756  -1488 curveto
   2772  -1560   2791  -1636   2811  -1717 curveto
   2837  -1813   2873  -1933   2929  -2093 curveto
   3019  -2313   3211  -2648   3788  -3169 curveto
 stroke
 1 setgray
   3789  -3170 30 0 360 arc fill % 400
   3757  -3155 30 0 360 arc fill % 425
   3394  -2982 30 0 360 arc fill % 450
   1626  -2234 30 0 360 arc fill % 475
    417   -455 30 0 360 arc fill % 500
    496   -130 30 0 360 arc fill % 525
    721   -107 30 0 360 arc fill % 550
   1227   -104 30 0 360 arc fill % 575
   1981   -104 30 0 360 arc fill % 600
   2360   -103 30 0 360 arc fill % 625
   2491   -103 30 0 360 arc fill % 650
   2526   -103 30 0 360 arc fill % 675
   2536   -103 30 0 360 arc fill % 700
   2623   -700 30 0 360 arc fill %500c
   2756  -1488 30 0 360 arc fill %525c
   2873  -1933 30 0 360 arc fill %550c
 0 setgray
   3789  -3170 30 0 360 arc stroke % 400
   3757  -3155 30 0 360 arc stroke % 425
   3394  -2982 30 0 360 arc stroke % 450
   1626  -2234 30 0 360 arc stroke % 475
    417   -455 30 0 360 arc stroke % 500
    496   -130 30 0 360 arc stroke % 525
    721   -107 30 0 360 arc stroke % 550
   1227   -104 30 0 360 arc stroke % 575
   1981   -104 30 0 360 arc stroke % 600
   2360   -103 30 0 360 arc stroke % 625
   2491   -103 30 0 360 arc stroke % 650
   2526   -103 30 0 360 arc stroke % 675
   2536   -103 30 0 360 arc stroke % 700
   2623   -700 30 0 360 arc stroke %500c
   2756  -1488 30 0 360 arc stroke %525c
   2873  -1933 30 0 360 arc stroke %550c
   1266   -580 30 0 360 arc fill %D65
 0 setgray
TBIS
   3789 200 sub  -3170 200 add moveto (400) show
%  3757 600 sub  -3155 100 sub moveto (425) show
%  3394 600 sub  -2982 100 sub moveto (450) show
   1626 050 sub  -2234 150 add moveto (475) show
    417 430 sub   -455 100 sub moveto (500) show
    496 400 sub   -130  50 add moveto (525) show
    721 200 sub   -107 100 add moveto (550) show
   1227 200 sub   -104 100 add moveto (575) show
   1981 200 sub   -104 100 add moveto (600) show
%  2360 200 sub   -103 100 add moveto (625) show
%  2491 200 sub   -103 100 add moveto (650) show
%  2526 200 sub   -103 100 add moveto (675) show
   2536 100 add   -103         moveto (700) show
   2623 100 add   -700 100 sub moveto (500c) show
   2756 100 add  -1488 100 sub moveto (525c) show
%   2873 100 add  -1933 100 sub moveto (550c) show
%   1266 100 add   -580 100 sub moveto (D65 ) show
   700 800 add neg -3200 translate
 %ENDE: 3

             } if %xchart4=3

xchart4 4 ge xchart4 7 le and {%4>=xchart4<=7

3500 2000 translate

%axis and scales
0 0 0 1 setcmyk_olvcolor
-2250 0 moveto 3950  0 rlineto stroke
0 -1880  moveto 0 3600  rlineto stroke
1700 100 sub 50 moveto 100 -50 rlineto
                      -100 -50 rlineto closepath fill
0 50 sub 1800 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill

/xt10x 5 array def
/yt10x 5 array def

xchart4 4 eq {%xchart4=4
/xt10x [(-40) ( ) ( ) ( ) (  40)] def
/yt10x [(-40) ( ) ( ) ( ) (40)] def
             } if %xchart4=3

xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7
/xt10x [(-120) ( ) ( ) ( ) (  120)] def

/yt10x [(-120) ( ) ( ) ( ) (120)] def
             } if %4>=xchart4<=6

0 0 0 1 setcmyk_olvcolor
0 1 4 {/i exch def %i=0,4 x-axis
        -1600   i 800   mul add  -75 moveto 0 150 rlineto stroke
        -1800   i 800   mul add -250 moveto
        TBS xt10x i get show
        i 4 eq {-1600 i 800 mul add 0 moveto
               xchart4 4 eq { %xchart4=4
                             000 150 rmoveto
                             TBIM (A) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -50 150 rmoveto
                             TBIM (a*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -350 150 rmoveto
                             TBIM (a*) show 
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -50 150 rmoveto
                             TBIM (A*) show TL
                            } if %xchart4=7
               } if

       } for %i=0,4

0 1 4 {/i exch def %i=0,4 y-axis
       -75 -1600 i 800 mul    add moveto 150 0 rlineto stroke
       100 -1600 i 800 mul    add 100 sub moveto
       TBS yt10x i get show
       i 4 eq {0 -1600 i 800 mul add moveto
               xchart4 4 eq { %xchart4=4
                             -250 150 rmoveto
                             TBIM (B) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -400 150 rmoveto
                             TBIM (b*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -750 150 rmoveto
                             TBIM (b*) show
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -300 150 rmoveto
                             TBIM (B*) show TL
                            } if %xchart4=7
             } if

       } for %i=0,4


-3500 -2000 translate

} if %4>=xchart4<=7

%***********************************************************

/icolor 9 array def
         %Rm %Ym %Gm %Cm %Bm %Mm %Go %Mo %W
/icolor [20  10  06  00  30  26  06  26  40] def

/imshow {0 -50 rmoveto TBL (m) show 0 50 rmoveto TBIS} def

%*************************************************
xchart4 0 eq {%xchart4=0 %only for (x,y)

/fakt 4000 def

600 400 translate %for scala and graphic

0 1 39 {/i exch def %i=0,39
        XANi i get fakt mul
        YANi i get fakt mul 
        i 0 eq {moveto} if
        i 1 ge i 38 le and {lineto} if
        i 39 eq {lineto closepath stroke} if
       } for %i=0,39

XANW fakt mul YANW fakt mul 90 0 360 arc stroke

XANW fakt mul 200 sub
YANW fakt mul 250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm
/SUM Xi i get
     Yi i get add
     Zi i get add 0.0001 add def 
/AnY Xi i get SUM div fakt mul def
/BnY Yi i get SUM div fakt mul def
j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 400 sub BnY 050 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/SUM XK Xi i get sub
     YK Yi i get sub add
     ZK Zi i get sub add 0.0001 add def
/AnY XK Xi i get sub SUM div fakt mul def
/BnY YK Yi i get sub SUM div fakt mul def

j 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 100 add BnY 100 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2


-600 -400 translate %for scala and grafic

} if %xchart4=0

xchart4 1 eq {%xchart4=1 %only for (a,b)

/fakt 1000 def
/a2 XW YW 0.0001 add div def
/b2 ZW YW 0.0001 add div -0.4 mul def

 1300 3200 translate %for grafic

0 1 39 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div fakt mul %a
        Zi i get Yi i get 0.0001 add div fakt mul %b
        0.4 mul neg
        i 0 eq {moveto} if
        i 1 ge i 38 le and {lineto} if
        i 39 eq {lineto closepath stroke} if
       } for %i=0,39

XW YW 0.0001 add div fakt mul
ZW YW 0.0001 add div fakt mul
0.4 mul neg 90 0 360 arc stroke

XW YW 0.0001 add div fakt mul
200 sub
ZW YW 0.0001 add div fakt mul
0.4 mul neg
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

/AnY Xi i get Yi i get 0.0001 add div
     fakt mul def
/BnY Zi i get Yi i get 0.0001 add div
     fakt mul 0.4 mul neg def

j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 300 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/AnY XK Xi i get sub
     YK Yi i get sub 0.0001 add div fakt mul def
/BnY ZK Zi i get sub
     YK Yi i get sub 0.0001 add div fakt mul 0.4 mul neg def

j 0 eq {AnY 100 add BnY 200 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 100 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2


-1300 -3200 translate %for grafic

} if %xchart4=1


xchart4 2 eq {%xchart4=2 %only for (a',b')

/D13 1 3 div def
/fakt 13333 def

/a2 XW YW 0.0001 add div
    D13 exp 0.2191 mul def
/b2 ZW YW 0.0001 add div 
    D13 exp -0.08376 mul def

 200 3200 translate %for graphic

0 1 39 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div                 %a'
        D13 exp 0.2191 mul fakt mul
        Zi i get Yi i get 0.0001 add div                 %b' 
        D13 exp -0.08376 mul fakt mul
        i 0 eq {moveto} if
        i 1 ge i 38 le and {lineto} if
        i 39 eq {lineto closepath stroke} if
       } for %i=0,39

XW YW 0.0001 add div                 %a'
D13 exp 0.2191 mul fakt mul
ZW YW 0.0001 add div                 %b' 
D13 exp -0.08376 mul fakt mul
90 0 360 arc stroke

XW YW 0.0001 add div                 %a'
D13 exp 0.2191 mul fakt mul
200 sub
ZW YW 0.0001 add div                 %b' 
D13 exp -0.08376 mul fakt mul
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

/AnY Xi i get Yi i get 0.0001 add div       %a'
     D13 exp 0.2191 mul fakt mul def
/BnY Zi i get Yi i get 0.0001 add div       %b'
     D13 exp -0.08376 mul fakt mul def

j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 350 sub BnY 050 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/AnY XK Xi i get sub
     YK Yi i get sub 0.0001 add div       %a'
     D13 exp 0.2191 mul fakt mul def
/BnY ZK Zi i get sub
     YK Yi i get sub 0.0001 add div       %b'
     D13 exp -0.08376 mul fakt mul def

j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 050 add BnY 150 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

-200  -3200 translate %for graphic

} if %xchart4=2

xchart4 3 eq {%xchart4=3 %only for (a",b")

%100 3800 moveto TIS ((a",b") (LAB 1977)) show

/fakt 1333 def
/XD65 95.04 def
/YD65 100.00 def
/ZD65 108.89 def
/aD65 XD65 YD65 0.0001 add div def
/bD65 ZD65 YD65 0.0001 add div -0.4 mul def
/a2 aD65 def
/b2 bD65 def

 700 800 add 3200 translate %for grafic

0 1 39 {/i exch def %i=0,39
        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def
        i 0 eq {moveto} if
        i 1 ge i 38 le and {lineto} if
        i 39 eq {lineto closepath stroke} if
       } for %i=0,39

a"n fakt mul
b"n fakt mul
90 0 360 arc stroke

a"n fakt mul
200 sub
b"n fakt mul
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def

/AnY a" fakt mul def
/BnY b" fakt mul def
j 0 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 050 add BnY 200 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 050 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

        /a  XK Xi i get sub
            YK Yi i get sub 0.0001 add div def
        /an XK       YK     0.0001 add div def
        /b  ZK Zi i get sub
            YK Yi i get sub 0.0001 add div 0.4 mul neg def
        /bn ZK       YK     0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def

/AnY a" fakt mul def
/BnY b" fakt mul def

j 0 eq {AnY 100 add BnY 200 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 100 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 050 add BnY 150 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2


700 800 add neg -3200 translate %for graphic

} if %xchart4=3

xchart4 4 eq {%xchart4=4 %only for (A,B)

/fakt 40 def
/a2 1.00 def
/b2 -0.4 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (A) show
TBS ( = \050) show
TBIS (a) show
TBS ( - ) show
TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1300 moveto
TBIS (B) show
TBS ( = \050) show
TBIS (b) show
TBS ( - ) show
TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show
TBS (]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show
TBS (]) show

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1) show

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -0,4) show

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 39 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div          %(a-an)Y
        XK       YK       0.0001 add div sub
        Yi i get mul fakt mul
        Zi i get Yi i get 0.0001 add div          %(b-bn)Y
        ZK       YK       0.0001 add div sub 0.4 mul neg
        Yi i get mul fakt mul
        i 0 eq {moveto} if
        i 1 ge i 38 le and {lineto} if
        i 39 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div                 %(a-an)YW
XK       YK       0.0001 add div sub
YW mul fakt mul
ZW       YW       0.0001 add div                 %(b-an)YW
ZK       YK       0.0001 add div sub 0.4 mul neg
YW mul fakt mul
90 0 360 arc stroke

0 080 add
0 080 add moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm
/AnY Xi i get Yi i get 0.0001 add div          %(a-an)Y
     XK       YK       0.0001 add div sub
     Yi i get mul fakt mul def
/BnY Zi i get Yi i get 0.0001 add div          %(b-bn)Y
     ZK       YK       0.0001 add div sub 0.4 mul neg
     Yi i get mul fakt mul def
j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 sub BnY 300 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/AnY XK Xi i get sub YK Yi i get sub 0.0001 add div          %(a-an)Y
     XK       YK       0.0001 add div sub
     YK Yi i get sub mul fakt mul def
/BnY ZK Zi i get sub YK Yi i get sub 0.0001 add div          %(b-bn)Y
     ZK       YK       0.0001 add div sub 0.4 mul neg
     YK Yi i get sub mul fakt mul def
j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 100 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

} if %xchart4=4

xchart4 5 eq {%xchart4=5 %only for (a*,b*)

/D13 1 3 div def
/fakt 40 3 div def
/a2 1 XW div D13 exp def
/b2 1 ZW div D13 exp -0.4 mul def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 39 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b' = b2 (z/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
        i 0 eq {moveto} if
        i 1 ge i 38 le and {lineto} if
        i 39 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div
D13 exp a2 mul
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D13 exp b2 mul
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

90 0 360 arc stroke

XW       YW       0.0001 add div
D13 exp a2 mul
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
200 sub

ZW       YW       0.0001 add div
D13 exp b2 mul
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm


/AnY    Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b'= b2 (x/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 add BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/AnY    XK Xi i get sub YK Yi i get sub 0.0001 add div
        D13 exp a2 mul
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    ZK Zi i get sub YK Yi i get sub 0.0001 add div
        D13 exp b2 mul
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def

j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

-3500 -2000 translate %for text and grafic

} if %xchart4=5

xchart4 6 eq {%xchart4=6 %only for (a*,b*) with const. for D65

/D13 1 3 div def
/fakt 40 3 div def
/a2 0.2191 def
/b2 -0.08376 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a') show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b') show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 39 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b'= b2 (z/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
        i 0 eq {moveto} if
        i 1 ge i 38 le and {lineto} if
        i 39 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div
D13 exp a2 mul
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D13 exp b2 mul
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

90 0 360 arc stroke

XW       YW       0.0001 add div             %500(a'-a'n)Y**(1/3)
D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div             %500(b'-b'n)Y**(1/3)
D13 exp b2 mul                               %a'= a2 (x/y)**(1/3)
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

/AnY    Xi i get Yi i get 0.0001 add div
        D13 exp a2 mul
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div
        D13 exp b2 mul
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 100 add BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/AnY    XK Xi i get sub YK Yi i get sub 0.0001 add div
        D13 exp a2 mul
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    ZK Zi i get sub YK Yi i get sub 0.0001 add div
        D13 exp b2 mul
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def

j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

-3500 -2000 translate %for text and grafic

} if %xchart4=6

xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65

/D13 1 3 div def
/D11 1 def
/D16  1 6 div def
/fakt 40 3 div def
/a2 1 15 div def
/b2 1 12 div neg def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS ( + 1]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS ( + 1/6 ]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1/15 = ) show a2 cvsshow5

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -1/12 = ) show b2 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 39 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div            %500(a'-a'n)Y**(1/3)
        D11 add a2 mul                              %a'=(x/y+1)/15
        XK       YK       0.0001 add div
        D11 add a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
                                                       
        Zi i get Yi i get 0.0001 add div            %500(b'-b'n)Y**(1/3)
        D16 add D13 exp b2 mul                      %b'=-[(z/y +1/6)**(1/3)]/12
        ZK       YK       0.0001 add div
        D16 add D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        i 0 eq {moveto} if
        i 1 ge i 38 le and {lineto} if
        i 39 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div
D11 add a2 mul
XK       YK       0.0001 add div
D11 add a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D16 add D13 exp b2 mul
ZK       YK       0.0001 add div
D16 add D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

90 0 360 arc stroke


XW       YW       0.0001 add div
D11 add a2 mul
XK       YK       0.0001 add div
D11 add a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div
D16 add D13 exp b2 mul
ZK       YK       0.0001 add div
D16 add D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
TBS TELi xchartl get show

TBIS
0 1 2 {/j exch def %j=0,2
j 0 eq {/i  0 def} if %Cm-Rm
j 1 eq {/i  6 def} if %Gm-Mm
j 2 eq {/i 13 def} if %Ym-Bm

/AnY    Xi i get Yi i get 0.0001 add div            %500(a'-a'n)Y**(1/3)
        D11 add a2 mul                              %a'=(x/y+1)/15
        XK       YK       0.0001 add div
        D11 add a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div            %500(b'-b'n)Y**(1/3)
        D16 add D13 exp b2 mul                      %b'=-[(z/y +1/6)**(1/3)]/12
        ZK       YK       0.0001 add div
        D16 add D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

j 0 eq {AnY 100 add BnY 000 add moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
j 1 eq {AnY 100 add BnY 000 add moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
j 2 eq {AnY 000 add BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

/AnY    XK Xi i get sub YK Yi i get sub 0.0001 add div
        D11 add a2 mul
        XK       YK       0.0001 add div
        D11 add a2 mul sub
        YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    ZK Zi i get sub YK Yi i get sub 0.0001 add div
        D16 add D13 exp b2 mul
        ZK       YK       0.0001 add div
        D16 add D13 exp b2 mul sub
        YK Yi i get sub 0.0001 add D13 exp mul fakt mul 500 mul def

j 0 eq {AnY 100 add BnY 000 add moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
j 1 eq {AnY 450 sub BnY 100 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm
j 2 eq {AnY 200 sub BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke
} for %j=0,2

-3500 -2000 translate %for text and grafic

} if %xchart4=7

showpage
grestore

%} for %xchartl=0,7

} for %xchart4=0,7

%} for %xcolorl=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 25

%line 469
%!PS-Adobe-3.0 EPSF-3.0 MF491-5N
%%BoundingBox: 70 83 228 206

%START PDFDE011.EPS
/pdfmark15 where {pop} {userdict /pdfmark15 /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/MF49/)
  /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 pdfmark15
[ /View [ /FitB ]
/DOCVIEW pdfmark15
%END  PDFDE011

%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq 
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub 
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} bind def

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Times-ISOL1 exch definefont pop

/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesI-ISOL1 exch definefont pop

/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesB-ISOL1 exch definefont pop

/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesBI-ISOL1 exch definefont pop

/Courier findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Courier-ISOL1 exch definefont pop

/Courier-Oblique findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierI-ISOL1 exch definefont pop

/Courier-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierB-ISOL1 exch definefont pop

/Courier-BoldOblique findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierBI-ISOL1 exch definefont pop

/TG   {350 /Times-ISOL1 FS} bind def
/TM   {280 /Times-ISOL1 FS} bind def
/TK   {240 /Times-ISOL1 FS} bind def
/TS   {200 /Times-ISOL1 FS} bind def
/TL   {160 /Times-ISOL1 FS} bind def

/TIG  {350 /TimesI-ISOL1 FS} bind def
/TIM  {280 /TimesI-ISOL1 FS} bind def
/TIK  {240 /TimesI-ISOL1 FS} bind def
/TIS  {200 /TimesI-ISOL1 FS} bind def
/TIL  {160 /TimesI-ISOL1 FS} bind def

/TBG  {350 /TimesB-ISOL1 FS} bind def
/TBM  {280 /TimesB-ISOL1 FS} bind def
/TBK  {240 /TimesB-ISOL1 FS} bind def
/TBS  {200 /TimesB-ISOL1 FS} bind def
/TBL  {160 /TimesB-ISOL1 FS} bind def

/TBIG {350 /TimesBI-ISOL1 FS} bind def
/TBIM {280 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIL {160 /TimesBI-ISOL1 FS} bind def

/SG {350 /Symbol FS} bind def
/SM {280 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SS {200 /Symbol FS} bind def
/SL {160 /Symbol FS} bind def

%%EndProlog
gsave

%lanindL2.EPS START  20000505
/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 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 /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 8 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart xchart3 lt {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

/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

/SD65 80 array def %380 bis 775 mit deltalambda=05
/SD50 80 array def %380 bis 775 mit deltalambda=05
/SP40 80 array def %380 bis 775 mit deltalambda=05
/SA00 80 array def %380 bis 775 mit deltalambda=05
/SE00 80 array def %380 bis 775 mit deltalambda=05
/SC00 80 array def %380 bis 775 mit deltalambda=05
/SP00 80 array def %380 bis 775 mit deltalambda=05
/SQ00 80 array def %380 bis 775 mit deltalambda=05

/SDAK 80 array def %380 bis 775 mit deltalambda=05
/RA   80 array def %380 bis 770 nm
/F2  240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm
/F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm
/F10  240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm

%C
%C      LITERATURQUELLEN  LICHTARTEN
%C      SA,SC,SD65,  CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 1.1.1, SEITE 81
%C      SD55,SD75,   CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 1.1.4, SEITE 85
%C                   LINEAR INTERPOLIERT VON 5 ZU 5NM
%C      SG,SP,SXE,   DIN 5033, BLATT 7 ,SEITE 8-9
%C                   AUSGABE  1966

/SD65 %80 data 5 nm
[50.0  52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 
 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 
 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 
 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 
 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 
 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 
 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 
 46.4 56.6 66.8 65.1] def

/SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS
[24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9
 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2
 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6
102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3
 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4
 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1
 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7
 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used

/SA00 %80 data 5 nm CIE 15.3  Seite 30; aus JE540-1N.PS
[9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99
 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30
 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06
 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44
 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39
 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42
 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12
 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41
 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59
 232.12 234.59 237.01 239.37 0.0] def %0.0 not used

% AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92
%C     PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI-
%C     LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA  
%C     BEI GEGEBENER TEMPERATUR T                                        
%C     VERWENDETE VARIABLE                                               
%C        T                   TEMPERATUR                                 
%C        C2                  PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) 
%C        LAMDA(I)            WELLENLAENGE                               
%C        S(I)                STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS 
%C                                                                       
%C     LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION,       
%C               CA. 1969, SEITE 21 UND TABELLE 1.1.1                    
%C                                                                       
%SDP4 80 array def %380 bis 775 mit deltalambda=05
%      DO 50 I=1,54                                                      
%   50 S(I)=100.
%     1*(560./FLOAT(LAMDA(I)))**5
%     2*(EXP(C2/(560.*10.**(-7)*T))-1.)
%     3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.)

%new CIE 15.3:2004, Eq. (3.1) page 2
%S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560   )} - 1]
%                           /[exp{(c2*10**7)/(TNC*lambda)} - 1]
% exp = e {...} = 2.71 {...} 

%/TNC 2848 def %NLA
/TNC 4000 def
/EE 2.718281 def %e=mac pocket calculator
/C2 1.4350000 10 7 exp mul def
/lamd 80 array def


0 1 79 {%i=0,79
        /i exch def
        /lambda 380 i 5 mul add def
        lamd i lambda put
        /E1 560 lambda div 5 exp def

        /E4 C2 TNC 560    mul div def
        /E5 C2 TNC lambda mul div def

        /E6 EE E4 exp def
        /E7 EE E5 exp def

        SP40 i
        E1 100 mul E6 1 sub 
                   E7 1 sub div mul

        put
       } for %i=0,79

/xex 10 2 exp def
/yex EE 2 exp def

/SE00 %80 data 5 nm
[100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used

/SC00 %80 data 5 nm
[ 33.00  39.92  47.40  55.17  63.30  71.81  80.60  89.53  98.10 105.80
 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09
 123.90 122.92 120.70 116.90 112.10 106.98 102.30  98.81  96.90  96.78
  98.00  99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15
  97.80  95.43  93.20  91.22  89.70  88.83  88.40  88.19  88.10  88.06
  88.00  87.86  87.80  87.99  88.20  88.20  87.90  87.22  86.30  85.30
  84.00  82.21  80.20  78.24  76.30  74.36  72.40  70.40  68.30  66.30
  64.40  62.80  61.50  60.20  59.20  58.50  58.10  58.00  58.20  58.50
 ] def %0.0 not used
 
0 1 79 {/i exch def %i=0,79
        /lamda 380 i 5 mul add def
        SP00 i SE00 i get lamda 560 div mul put
        SQ00 i SE00 i get 1120 lamda sub 560 div mul put
       } for %i=0,79

%C      LITERATURQUELLEN  SPEKTRALWERTE
%C       F2          CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 2.1, SEITE 93-102

/F2  %3x80 data
[.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 
 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 
 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 
 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 
 .7621
 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 
 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 
 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 
 .004109 .002899 .002049 .001440 .0009999 .0006901 
 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 
 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 
 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 
 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 
 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 
 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 
 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 
 .01192 .00821 .005723 .004102 .002929 .002091 .001484 
 .001047 .00074 .00052 .0003611 .0002492 .0001719 
 .00012 .0000848 .00006 .0000424 .00003 .0000212 
 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 
 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 
 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 
 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 
 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 
 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20
 0.0 0.0 0.0 0.0 0.0 0.0 %26
] def

/F10 %3x80 data
[.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 
 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323
  .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177
  .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 
 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 
 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 
 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 
 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 
 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 
 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 
 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 
 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 
 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 
 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 
 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 
 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 
 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 
 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 
 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 
 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 
 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 
 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 
 .001091 
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40
 0.0 0.0 0.0 0.0 %44
] def

%calculation of transformation data
/FARBE 27 array def
/FARBE [(R) (m) ( 561_770) %00
        (Y) (m) ( 495_770) %01
        (G) (m) ( 475_573) %02
        (C) (m) ( 380_561) %03
        (B) (m) ( 380_495) %04
        (M) (m) ( 573_475) %05
        (N) (0) ( 380_770) %06
        (W) (0) ( 380_770) %07
        (W) (1) ( 380_770) %08
       ] def

%/FARBE [(R) (m) ( 565_770) %00
%        (Y) (m) ( 495_770) %01
%        (G) (m) ( 475_575) %02
%        (C) (m) ( 380_565) %03
%        (B) (m) ( 380_495) %04
%        (M) (m) ( 575_475) %05
%        (N) (0) ( 380_770) %06
%        (W) (0) ( 380_770) %07
%        (W) (1) ( 380_770) %08
%       ] def

%calculation of transformation data
/FARBE 27 array def
/FARBE [(R) (d,sRGB) (x=0,64) %00
        () () (y=0,33) %01
        (G) (d,sRGB) (x=0,30) %02
        () () (y=0,60) %03
        (B) (d,SRGB) (x=0,18) %04
        () () (y=0,06) %05
        (N) (0) () %06
        (W) (0) () %07
        (W) (1) ( 380_770) %08
       ] def

/xcolorl xcolor def
%0 1 1 {/xcolorl exch def %xcolorl=0,1

xcolorl 1 eq {0 1 239 {/i exch def %i=0,239
                       F2 i F10 i get put
                      } for %i=0,239
           } if

/YKSUM 0 def %For CIE Illuminant E
0 1 79 {/i exch def %i=0,1,79
        /YKSUM YKSUM F2  80 i add get add def
} for %i=0,1,79

/F2N 240 array def
0 1 79 {/i exch def %i=0,1,79
        F2N  00 i add F2  00 i add get YKSUM div 100 mul put
        F2N  80 i add F2  80 i add get YKSUM div 100 mul put
        F2N 160 i add F2 160 i add get YKSUM div 100 mul put
} for %i=0,1,79

/FXN 80 array def %FXN 0 = F2N imax
/FYN 80 array def
/FZN 80 array def
%defines FXN, FYN, FZN 0 to 79
0 1 79 {/i exch def %i=0,79
        FXN i F2N 000 i add get put
        FYN i F2N 080 i add get put
        FZN i F2N 160 i add get put
} for %i=0,79

%special wavelength range with complementary colours for E?
/FXD 63 array def
/FYD 63 array def
/FZD 63 array def
/DOW 63 array def

00 1 60 {/i exch def %i=0,60 %range 400..700nm
         FXD i FXN 005 i add get put
         FYD i FYN 005 i add get put
         FZD i FZN 005 i add get put
         DOW i 400 i 5 mul add put %range 400 to 700
        } for %i=0,60

%for interpolation
FXD 61 FXD 60 get put
FYD 61 FYD 60 get put
FZD 61 FZD 60 get put

FXD 62 FXD 60 get put
FYD 62 FYD 60 get put
FZD 62 FZD 60 get put

/FAD 63 array def
/FBD 63 array def
/FCD 63 array def

/xdel  1045 def
/ydel   395 def
/x0 500 def

/TELi 8 array def
/TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %8 illuminants

/Xi 79 array def %79 spectral or max 6 device colour + 4 elementary colours
/Yi 79 array def
/Zi 79 array def
/XANi 79 array def
/YANi 79 array def
/ZANi 79 array def

0 1 0 {/xchart4 exch def %xchart4=0,7

/xchartl 0 def %special allways D65
%0 1 7 {/xchartl exch def %xchartl=0,7

%/K 0 def %for normalization 1
/K 1 def %for normalization 0,886

gsave

5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolorl cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow

5 /Times-ISOL1 FS
180 85 moveto
(MF491-5) show
%xchart4 1 add cvishow
%xchart 0 ge {(N) show} if
%(_) show xchartl 1 add cvishow
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate

0.010 MM dup scale
25 setlinewidth
0 0 0 0 setcmyk_olvcolor
0 0 moveto 5400     0 rlineto 0 4000 rlineto
           5400 neg 0 rlineto closepath fill

0 0  moveto  5400 0 rlineto 0 4000 rlineto
            -5400 0 rlineto closepath clip

0 0 0 1 setcmyk_olvcolor
0 0 moveto 5400     0 rlineto 0 4000 rlineto
           5400 neg 0 rlineto closepath stroke

%calculation of XW,YW,ZW for illuminant D65, D50, ...
0 1 79 {/i exch def %i=0,79
        SDAK i xchartl 0 eq {SD65 i get} if
               xchartl 1 eq {SD50 i get} if
               xchartl 2 eq {SP40 i get} if
               xchartl 3 eq {SA00 i get} if
               xchartl 4 eq {SE00 i get} if
               xchartl 5 eq {SC00 i get} if
               xchartl 6 eq {SP00 i get} if
               xchartl 7 eq {SQ00 i get} if
               put
       } for %i=0,79

/YKSUM 0 def
0 1 79 {/i exch def %i=0,1,79
        /YKSUM YKSUM SDAK i get F2  80 i add get mul add def
} for %i=0,1,79

0 1 79 {/i exch def %i=0,1,79
        F2N  00 i add SDAK i get F2  00 i add get mul YKSUM div 100 mul put
        F2N  80 i add SDAK i get F2  80 i add get mul YKSUM div 100 mul put
        F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put
} for %i=0,1,79

%XW,YW,ZW for white
/XW 0 def
/YW 0 def
/ZW 0 def
0 1 079 {/i exch def %i=0,79
         /XW XW F2N  00 i add get add def
         /YW YW F2N  80 i add get add def
         /ZW ZW F2N 160 i add get add def
        } for %i=0,79

/SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00
/XANW XW SUMW div def
/YANW YW SUMW div def
/ZANW ZW SUMW div def

/AANW XW YW 0.0001 add div def
/BANW ZW YW 0.0001 add div 0.4 mul neg def

K 0 eq {%K=0
        /XK XW def
        /YK YW def
        /ZK ZW def
       }%K=0
       {%K=1
        /XK XW 0.8859 mul def
        /YK YW 0.8859 mul def
        /ZK ZW 0.8859 mul def
       } ifelse %K=1

/SUMK XK YK add ZK add def %for D65, D50, P40, A00, E00
/XANK XK SUMK div def
/YANK YK SUMK div def
/ZANK ZK SUMK div def

/XANR 0.64 def
/YANR 0.33 def
/XANG 0.30 def
/YANG 0.60 def
/XANB 0.15 def
/YANB 0.06 def

/ZANR 1. XANR sub YANR sub def
/ZANG 1. XANG sub YANG sub def
/ZANB 1. XANB sub YANB sub def
%/ZANW 1. XANW sub YANW sub def %see above

%calculation of spectral curves
/YR 100 def
/YG 100 def
/YB 100 def
/YW 100 def

/SUM YR YANR div def
/XR XANR SUM mul def
/ZR ZANR SUM mul def

/SUM YG YANG div def
/XG XANG SUM mul def
/ZG ZANG SUM mul def

/SUM YB YANB div def
/XB XANB SUM mul def
/ZB ZANB SUM mul def

%/SUM YW YANW div def %see above
%/XW XANW SUM mul def
%/ZW ZANW SUM mul def

/XN XW def
/YN YW def
/ZN ZW def

/D  XR YG mul ZB mul
    XG YB mul ZR mul add
    XB YR mul ZG mul add
    ZR YG mul XB mul sub
    ZG YB mul XR mul sub
    ZB YR mul XG mul sub def
/D1 XW YG mul ZB mul
    XG YB mul ZW mul add
    XB YW mul ZG mul add
    ZW YG mul XB mul sub
    ZG YB mul XW mul sub
    ZB YW mul XG mul sub def
/D2 XR YW mul ZB mul
    XW YB mul ZR mul add
    XB YR mul ZW mul add
    ZR YW mul XB mul sub
    ZW YB mul XR mul sub
    ZB YR mul XW mul sub def
/D3 XR YG mul ZW mul
    XG YW mul ZR mul add
    XW YR mul ZG mul add
    ZR YG mul XW mul sub
    ZG YW mul XR mul sub
    ZW YR mul XG mul sub def

/AR D1 D div def
/AG D2 D div def
/AB D3 D div def

/XRN AR XR mul def
/XGN AG XG mul def
/XBN AB XB mul def

/YRN AR YR mul def
/YGN AG YG mul def
/YBN AB YB mul def

/ZRN AR ZR mul def
/ZGN AG ZG mul def
/ZBN AB ZB mul def

/XWN XRN XGN add XBN add def
/YWN YRN YGN add YBN add def
/ZWN ZRN ZGN add ZBN add def
/SUM XWN YWN add ZWN add def
/XANWN XWN SUM 0.0001 add div def
/YANWN YWN SUM 0.0001 add div def
/ZANWN ZWN SUM 0.0001 add div def

0 1 8 {/i exch def %i=0,8
       i 0 eq {Xi i XRN put                %Rd
               Yi i YRN put
               Zi i ZRN put} if
       i 1 eq {Xi i XRN XGN add put        %Yd
               Yi i YRN YGN add put
               Zi i ZRN ZGN add put} if
       i 2 eq {Xi i XGN put                %Gd
               Yi i YGN put
               Zi i ZGN put} if
       i 3 eq {Xi i XGN XBN add put        %Cd
               Yi i YGN YBN add put
               Zi i ZGN ZBN add put} if
       i 4 eq {Xi i XBN put                %Bd
               Yi i YBN put
               Zi i ZBN put} if
       i 5 eq {Xi i XBN XRN add put        %Md
               Yi i YBN YRN add put
               Zi i ZBN ZRN add put} if
       i 6 eq {Xi i XW 0.01 mul put        %N
               Yi i YW 0.01 mul put
               Zi i ZW 0.01 mul put} if
       i 7 eq {Xi i XW put                 %W
               Yi i YW put
               Zi i ZW put} if
       i 8 eq {Xi i XW put                 %W
               Yi i YW put
               Zi i ZW put} if
      } for %i=0,8

K 1 eq {%K=1
        0 1 7 {/L exch def %L=0,7 only 0 to 7!
               Xi L Xi L get 0.8859 mul put
               Yi L Yi L get 0.8859 mul put
               Zi L Zi L get 0.8859 mul put
              } for %L=0,7
       } if %K=1

0 1 7 {/i exch def %i=0,7
       /SUM Xi i get Yi i get add Zi i get add def
       XANi i Xi i get SUM 0.0001 add div put
       YANi i Yi i get SUM 0.0001 add div put
      } for %i=0,7

/xtexti 96 array def
/ytexti 96 array def
/xtexti [
%T00 T10  T20   T30   T40  T41   T50  T51   T60  T61  T70  T71
%0   1    2     3     4    5     6    7     8    9    10   11
1800 1800 1800  2800  2800 4400  2800 4400  2800 4400 2800 4000 %0
0600 0600 0600  0600  0600 2200  0600 2200  0600 2200 0600 1800 %1
0700 0700 0700  0700  0700 2300  0700 2300  0700 2300 0700 1900 %2
0700 0700 0700  0700  0700 2300  0700 2300  0700 2300 0700 1900 %3
0100 0100 0100  0100  0100 1700  0100 1700  0100 1700 0100 1300 %4
0100 0100 0100  0100  0100 1700  0100 1700  0100 1700 0100 1300 %5
0100 0100 0100  0100  0100 1700  0100 1700  0100 1700 0100 1300 %6
0100 0100 0100  0100  0100 1700  0100 1700  0100 1700 0100 1300 %7
] def
/ytexti [ 
3800 3580 3360  3140  2920 2920  2700 2700  2480 2480 2260 2260 %0
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %1
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %2
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %3
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %4
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %5
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %6
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %7
] def

0 0 0 1 setcmyk_olvcolor
/xchart12 xchart4 12 mul def

TBS
xchart4 1 ge { %xchart4 >=1
xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto
xchart4 1 eq {(LABCab 77) show} if
xchart4 2 eq {(CIELAB 76) show} if
xchart4 3 eq {(LABJNDS 87) show} if
xchart4 4 eq {(LABCab 85) show} if
xchart4 5 eq {(CIELAB 76) show} if
xchart4 6 eq {(CIELAB D65) show} if
xchart4 7 eq {(LABHNU1 79) show} if
             } if %xchart4 >=1

xtexti xchart12 3 add get ytexti xchart12 3 add get moveto
TBS
(Name und Farbart) showde                                       %0MF491-5 00581
(Name and chromaticity) showen                                  %1MF491-5 00581
(Nombre y cromaticidad) showes                                  %2MF491-5 00581
(Nom et chromaticit\351) showfr                                 %3MF491-5 00581
(Nome e chromaticit\341) showit                                 %4MF491-5 00581
(Name and chromaticity) showjp                                  %5MF491-5 00581

xtexti xchart12 4 add get ytexti xchart12 4 add get moveto
TBIS FARBE 0 get show
TBL 0 -40 rmoveto FARBE 1 get show 150 40 rmoveto
TBIS FARBE 2 get show

xtexti xchart12 5 add get ytexti xchart12 5 add get moveto
TBIS FARBE 3 get show
TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto
TBIS FARBE 5 get show

xtexti xchart12 6 add get ytexti xchart12 6 add get moveto
TBIS FARBE 6 get show
TBL 0 -40 rmoveto FARBE 7 get show 150 40 rmoveto
TBIS FARBE 8 get show

xtexti xchart12 7 add get ytexti xchart12 7 add get moveto
TBIS FARBE 9 get show
TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto
TBIS FARBE 11 get show

xtexti xchart12 8 add get ytexti xchart12 8 add get moveto
TBIS FARBE 12 get show
TBL 0 -40 rmoveto FARBE 13 get show 150 40 rmoveto
TBIS FARBE 14 get show

xtexti xchart12 9 add get ytexti xchart12 9 add get moveto
TBIS FARBE 15 get show
TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto
TBIS FARBE 17 get show

%xtexti xchart12 10 add get ytexti xchart12 10 add get moveto
%TBIS FARBE 18 get show
%TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto
%TBIS FARBE 20 get show

%xtexti xchart12 11 add get ytexti xchart12 11 add get moveto
%TBIS FARBE 21 get show
%TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto
%TBIS FARBE 23 get show

TBS
0 0 0 1 setcmyk_olvcolor
xtexti xchart12 0 add get ytexti xchart12 0 add get moveto
(Grund\255 und Mischfarben) showde                              %0MF491-5 02581
(Basic and mixture colours) showen                              %1MF491-5 02581
(Colores b\341sicos y mezcla del espacio) showes                %2MF491-5 02581
(couleurs primaires et compos\351es) showfr                     %3MF491-5 02581
(colori di basic e miscuglio) showit                            %4MF491-5 02581
(Basic and mixture colours) showjp                              %5MF491-5 02581

%TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto
%TBS K 0 eq {(=100) show}{(=88,6) show} ifelse

xtexti xchart12 1 add get ytexti xchart12 1 add get moveto
(des) showde                                                    %0MF491-5 03581
(of the) showen                                                 %1MF491-5 03581
(de color) showes                                               %2MF491-5 03581
(de l'espace) showfr                                            %3MF491-5 03581
(del) showit                                                    %4MF491-5 03581
(of the) showjp                                                 %5MF491-5 03581

TBIS
( sRGB) show

TBS
(\255Farbenraums f\374r ) showde                                %0MF491-5 04581
( colour space for ) showen                                     %1MF491-5 04581
( bajo ) showes                                                 %2MF491-5 04581
( pour ) showfr                                                 %3MF491-5 04581
( spazio di colore per ) showit                                 %4MF491-5 04581
( colour space for ) showjp                                     %5MF491-5 04581

TBS TELi xchartl get show

TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto
TBS K 0 eq {(=100) show}{(=88,6) show} ifelse

xtexti xchart12 2 add get ytexti xchart12 2 add get moveto

xchart4 0 eq {%xchart4=0
(in der Normfarbtafel) showde                                   %0MF491-5 04581
(in the chromaticity diagram) showen                            %1MF491-5 04581
(en el diagrama de chromaticidad) showes                        %2MF491-5 04581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-5 04581
(nel diagramma di cromaticit\340) showit                        %4MF491-5 04581
(in the chromaticity diagram) showjp                            %5MF491-5 04581
TBIS ( (x, y)) show
             } if %xchart4=0

xchart4 1 eq {%xchart4=1
(in der Farbtafel) showde                                       %0MF491-5 05581
(in the chromaticity diagram) showen                            %1MF491-5 05581
(en el diagrama de chromaticidad) showes                        %2MF491-5 05581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-5 05581
(nel diagramma di cromaticit\340) showit                        %4MF491-5 05581
(in the chromaticity diagram) showjp                            %5MF491-5 05581
TBIS ( (a, b)) show
             } if %xchart4=1

xchart4 2 eq {%xchart4=2
(in der Farbarbtafel) showde                                    %0MF491-5 06581
(in the chromaticity diagram) showen                            %1MF491-5 06581
(en el diagrama de chromaticidad) showes                        %2MF491-5 06581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-5 06581
(nel diagramma di cromaticit\340) showit                        %4MF491-5 06581
(in the chromaticity diagram) showjp                            %5MF491-5 06581
TBIS ( (a', b')) show
             } if %xchart4=2

xchart4 3 eq {%xchart4=3
(in der Farbarbtafel) showde                                    %0MF491-5 07581
(in the chromaticity diagram) showen                            %1MF491-5 07581
(en el diagrama de chromaticidad) showes                        %2MF491-5 07581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-5 07581
(nel diagramma di cromaticit\340) showit                        %4MF491-5 07581
(in the chromaticity diagram) showjp                            %5MF491-5 07581
TBIS ( (a", b")) show
             } if %xchart4=3

xchart4 4 eq {%xchart4=4
(in Buntwertdiagramm) showde                                    %0MF491-5 08581
(in chromatic value diagram) showen                             %1MF491-5 08581
(en el diagrama valor crom\341tico) showes                      %2MF491-5 08581
(dans la valeur chromatique le diagramme) showfr                %3MF491-5 08581
(nel diagramma di valore cromatico) showit                      %4MF491-5 08581
(in chromatic value diagram) showjp                             %5MF491-5 08581
TBIS ( (A, B)) show
             } if %xchart4=4

xchart4 5 eq {%xchart4=5
(in Buntheitsdiagram) showde                                    %0MF491-5 09581
(in CIELAB diagram) showen                                      %1MF491-5 09581
(en el diagrama CIELAB) showes                                  %2MF491-5 09581
(dans le diagramme de CIELAB) showfr                            %3MF491-5 09581
(nel diagramma di CIELAB) showit                                %4MF491-5 09581
(in CIELAB diagram) showjp                                      %5MF491-5 09581
TBIS ( (a*, b*)) show
             } if %xchart4=5

xchart4 6 eq {%xchart4=6
(in Buntheitsdiagram) showde                                    %0MF491-5 10581
(in chroma diagram) showen                                      %1MF491-5 10581
(en el diagrama croma) showes                                   %2MF491-5 10581
(dans le diagramme de chroma) showfr                            %3MF491-5 10581
(nel diagramma di chroma) showit                                %4MF491-5 10581
(in chroma diagram) showjp                                      %5MF491-5 10581

TBIS ( \050a*) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (, ) show TBIS (b*) show 
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (\051) show

             } if %xchart4=6

xchart4 7 eq {%xchart4=7
(in Buntheitsdiagram) showde                                    %0MF491-5 11581
(in chroma diagram) showen                                      %1MF491-5 11581
(en el diagrama croma) showes                                   %2MF491-5 11581
(dans le diagramme de chroma) showfr                            %3MF491-5 11581
(nel diagramma di chroma) showit                                %4MF491-5 11581
(in chroma diagram) showjp                                      %5MF491-5 11581
TBIS ( (A*, B*)) show
             } if %xchart4=7

xchart4 0 eq {%xchart4=0

600 400 translate

0 0 moveto  4000 0 rlineto  stroke
0 0 moveto  0 3200 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS

   0 -50 moveto  0 100 rlineto  stroke
 800 -50 moveto  0 100 rlineto  stroke
1600 -50 moveto  0 100 rlineto  stroke
2400 -50 moveto  0 100 rlineto  stroke
3200 -50 moveto  0 100 rlineto  stroke
4000 -50 moveto  0 100 rlineto  stroke

-100 -300 moveto (0,0) show
 700 -300 moveto (0,2) show
1500 -300 moveto (0,4) show
2300 -300 moveto (0,6) show
3100 -300 moveto (0,8) show
3900 -300 moveto (1,0) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50    0 moveto  100 0 rlineto  stroke
 -50  800 moveto  100 0 rlineto  stroke
 -50 1600 moveto  100 0 rlineto  stroke
 -50 2400 moveto  100 0 rlineto  stroke
 -50 3200 moveto  100 0 rlineto  stroke

-450  -80 moveto (0,0) show
-450  720 moveto (0,2) show
-450 1520 moveto (0,4) show
-450 2320 moveto (0,6) show
-450 3120 moveto (0,8) show

TIM
-300 2800 moveto (y) show

TIM
4200 150 moveto (x) show

TBIS
2600 150 moveto (CIE 1931) show

-600 -400 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0:  600  400
    600    400 translate
    693     19 moveto
    693     19    692     19    690     19 curveto
    688     19    685     20    681     23 curveto
    675     27    667     34    657     43 curveto
    644     55    626     70    603     90 curveto
    575    118    542    159    496    231 curveto
    438    347    365    530    274    802 curveto
    181   1179     93   1650     32   2153 curveto
     15   2619     55   3000    155   3248 curveto
    297   3335    456   3304    618   3223 curveto
    771   3126    918   3017   1063   2897 curveto
   1206   2769   1349   2635   1492   2497 curveto
   1634   2358   1776   2218   1915   2080 curveto
   2049   1946   2179   1817   2300   1696 curveto
   2411   1585   2508   1489   2592   1405 curveto
   2663   1336   2720   1278   2765   1233 curveto
   2802   1197   2831   1168   2856   1143 curveto
   2876   1123   2892   1107   2903   1096 curveto
   2913   1086   2919   1080   2924   1075 curveto
   2927   1072   2930   1069   2933   1066 curveto
   2936   1063   2937   1062   2938   1061 curveto
   2938   1061   2939   1060   2744    971 curveto
   2261    748   2040    643   1908    582 curveto
   1819    541   1758    512   1708    490 curveto
   1660    468   1612    445   1558    420 curveto
   1495    391   1419    356   1320    309 curveto
   1184    247    986    155    693     19 curveto
 stroke
0 0 0 1 setcmyk_olvcolor
    693     19 30 0 360 arc fill % 400
    681     23 30 0 360 arc fill % 425
    626     70 30 0 360 arc fill % 450
    438    347 30 0 360 arc fill % 475
     32   2153 30 0 360 arc fill % 500
    456   3304 30 0 360 arc fill % 525
   1206   2769 30 0 360 arc fill % 550
   1915   2080 30 0 360 arc fill % 575
   2508   1489 30 0 360 arc fill % 600
   2802   1197 30 0 360 arc fill % 625
   2903   1096 30 0 360 arc fill % 650
   2930   1069 30 0 360 arc fill % 675
   2938   1061 30 0 360 arc fill % 700
   2261    748 30 0 360 arc fill %500c
   1708    490 30 0 360 arc fill %525c
   1419    356 30 0 360 arc fill %550c
0 0 0 1 setcmyk_olvcolor
    693     19 30 0 360 arc stroke % 400
    681     23 30 0 360 arc stroke % 425
    626     70 30 0 360 arc stroke % 450
    438    347 30 0 360 arc stroke % 475
     32   2153 30 0 360 arc stroke % 500
    456   3304 30 0 360 arc stroke % 525
   1206   2769 30 0 360 arc stroke % 550
   1915   2080 30 0 360 arc stroke % 575
   2508   1489 30 0 360 arc stroke % 600
   2802   1197 30 0 360 arc stroke % 625
   2903   1096 30 0 360 arc stroke % 650
   2930   1069 30 0 360 arc stroke % 675
   2938   1061 30 0 360 arc stroke % 700
   2261    748 30 0 360 arc stroke %500c
   1708    490 30 0 360 arc stroke %525c
   1419    356 30 0 360 arc stroke %550c
%   1250   1316 30 0 360 arc fill %D65 
0 0 0 1 setcmyk_olvcolor
TBIS
    693  375 sub     19 250 sub moveto (400) show
%    681 500 sub     23 100 sub moveto (425) show
%    626 500 sub     70 100 sub moveto (450) show
    438 350 sub    347 200 sub moveto (475) show
     32 450 sub   2153 100 sub moveto (500) show
    456 100 add   3304 000 add moveto (525) show
   1206 100 add   2769 000 add moveto (550) show
   1915 080 sub   2080 100 add moveto (575) show
   2508 100 add   1489 000 add moveto (600) show
   2802 100 add   1197 100 add moveto (625) show
%   2903 200 sub   1096 100 add moveto (650) show
%   2930 200 sub   1069 100 add moveto (675) show
   2938 100 add   1061 100 sub moveto (700) show
   2261 100 add    748 200 sub moveto (500c,E) show
   1708 100 add    490 200 sub moveto (525c,E) show
   1419 000 add    356 250 sub moveto (550c,E) show
%   1250 100 add   1316 100 sub moveto (D65 ) show
   -600   -400 translate
 %ENDE: 1

       } if %xchart4=0

xchart4 1 eq {%xchart4=1

500 3200 translate
 
0 400 moveto  4000  0 rlineto  stroke
0 400 moveto  0 -3600 rlineto  stroke
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS
 
   0 350 moveto  0 100 rlineto  stroke
 800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke
 
-150  500 moveto (-0,8) show
 650  500 moveto (0,0) show
1450  500 moveto (0,8) show
2250  500 moveto (1,6) show
3050  500 moveto (2,4) show
3850  500 moveto (3,2) show
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten
 
 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke
 
-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,8) show
-450 -1700 moveto (-1,6) show
%-450 -2500 moveto (-2,4) show

-175 -3050 moveto
90 rotate 
TBIK (b) show TBK (=-0,40) show TBIK (z/y) show
-90 rotate
3650   100 moveto TBIK (a=x/y) show
 
-500 -3200 translate
 
 %1000 02 01 16 01-.03****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200

   1300   3200 translate

%  36136 -68535 moveto
%  36136 -68535  36234 -68875  35958 -68561 curveto
%  35610 -68128  33600 -64560  29424 -56936 curveto
%  24474 -47779  19507 -38551  15143 -30384 curveto
%  11681 -23927   8847 -18653   6639 -14534 curveto
%   4846 -11128   3397  -8271   2147  -5661 curveto
   1261  -3701 moveto
   1261  -3701    688  -2339    342  -1455 curveto
    153   -894     56   -546     15   -336 curveto
      5   -208     18   -125     47    -73 curveto
     89    -44    138    -28    191    -19 curveto
    246    -13    304     -8    366     -5 curveto
    435     -3    512     -2    597     -1 curveto
    693     -1    800      0    920      0 curveto
   1053      0   1198      0   1355      0 curveto
   1520      0   1683      0   1844      0 curveto
   1993      0   2126      0   2242      0 curveto
   2340      0   2424      0   2497      0 curveto
   2559      0   2610      0   2649      0 curveto
   2680      0   2703      0   2718      0 curveto
   2731      0   2741      0   2751      0 curveto
   2760      0   2764      0   2767      0 curveto
   2769      0   2770      0   2824   -116 curveto
   3023   -529   3168   -817   3275  -1036 curveto
   3357  -1209   3430  -1349   3482  -1469 curveto
   3545  -1597   3622  -1746   3704  -1922 curveto
   3817  -2156   3983  -2496   4262  -3058 curveto
%   4786  -4149   6341  -7346  35775 -67850 curveto
 stroke
  0 0 0 1 setcmyk_olvcolor
%  36136 -68535 30 0 360 arc fill % 400
%  29424 -56936 30 0 360 arc fill % 425
%   8847 -18653 30 0 360 arc fill % 450
   1261  -3701 30 0 360 arc fill % 475
     15   -336 30 0 360 arc fill % 500
    138    -28 30 0 360 arc fill % 525
    435     -3 30 0 360 arc fill % 550
    920      0 30 0 360 arc fill % 575
   1683      0 30 0 360 arc fill % 600
   2340      0 30 0 360 arc fill % 625
   2649      0 30 0 360 arc fill % 650
   2741      0 30 0 360 arc fill % 675
   2769      0 30 0 360 arc fill % 700
   3023   -529 30 0 360 arc fill %500c
   3482  -1469 30 0 360 arc fill %525c
   3983  -2496 30 0 360 arc fill %550c
  0 0 0 1 setcmyk_olvcolor
%  36136 -68535 30 0 360 arc stroke % 400
%  29424 -56936 30 0 360 arc stroke % 425
%   8847 -18653 30 0 360 arc stroke % 450
   1261  -3701 30 0 360 arc stroke % 475
     15   -336 30 0 360 arc stroke % 500
    138    -28 30 0 360 arc stroke % 525
    435     -3 30 0 360 arc stroke % 550
    920      0 30 0 360 arc stroke % 575
   1683      0 30 0 360 arc stroke % 600
   2340      0 30 0 360 arc stroke % 625
   2649      0 30 0 360 arc stroke % 650
   2741      0 30 0 360 arc stroke % 675
   2769      0 30 0 360 arc stroke % 700
   3023   -529 30 0 360 arc stroke %500c
   3482  -1469 30 0 360 arc stroke %525c
   3983  -2496 30 0 360 arc stroke %550c
%    950   -435 30 0 360 arc fill %D65
  0 0 0 1 setcmyk_olvcolor
TBIS
% 36136 500 sub -68535 100 sub moveto (400) show
% 29424 500 sub -56936 100 sub moveto (425) show
%  8847 500 sub -18653 100 sub moveto (450) show
%  1261 500 sub  -3701 100 sub moveto (475) show
     15 400 sub   -336 100 sub moveto (500) show
%   138 200 sub    -28 100 add moveto (525) show
    435 200 sub     -3 100 add moveto (550) show
%    920 200 sub      0 100 add moveto (575) show
   1683 200 sub      0 100 add moveto (600) show
   2340 200 sub      0 100 add moveto (625) show
%  2649 200 sub      0 100 add moveto (650) show
%  2741 200 sub      0 100 add moveto (675) show
   2769 100 add      0 150 sub moveto (700) show
   3023 100 add   -529 100 sub moveto (500c,E) show
   3482 800 sub  -1469 050 sub moveto (525c,E) show
%  3983 500 sub  -2496 100 sub moveto (550c,E) show
%    950 100 add   -435 100 sub moveto (D65 ) show

  -1300  -3200 translate
 %ENDE: 2

             } if %xchart4=1

xchart4 2 eq {%xchart4=2

600 3200 translate

0 400 moveto  4400  0 rlineto  stroke
0 400 moveto  0 -3600 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS

 000 350 moveto  0 100 rlineto  stroke
0800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

-200  500 moveto (0,00) show
 600  500 moveto (0,06) show
1400  500 moveto (0,12) show
2200  500 moveto (0,18) show
3000  500 moveto (0,24) show
3800  500 moveto (0,30) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke

-575  -100 moveto (  0,00) show
-575  -900 moveto (-0,06) show
-575 -1700 moveto (-0,12) show
-575 -2500 moveto (-0,18) show

TIM
-380  -1300 moveto (b') show
4300 250 moveto (a') show

-600 -3200 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0:  400 3200

    400   3200 translate

   9657  -6202 moveto
   9657  -6202   9666  -6212   9642  -6203 curveto
   9610  -6190   9426  -6080   9018  -5830 curveto
   8481  -5499   7863  -5120   7227  -4729 curveto
   6628  -4367   6041  -4019   5490  -3698 curveto
   4943  -3383   4391  -3065   3769  -2701 curveto
   3156  -2344   2578  -2012   2043  -1717 curveto
   1565  -1460   1123  -1239    723  -1054 curveto
    527   -898    772   -759   1060   -634 curveto
   1304   -535   1510   -464   1685   -408 curveto
   1832   -356   1965   -309   2091   -267 curveto
   2214   -230   2337   -200   2460   -176 curveto
   2585   -157   2712   -145   2841   -139 curveto
   2972   -138   3103   -133   3233   -126 curveto
   3359   -126   3475   -120   3582   -113 curveto
   3676    -98   3756    -91   3823    -88 curveto
   3878    -75   3924    -64   3963    -57 curveto
   3995    -54   4022    -46   4042      0 curveto
   4057      0   4069      0   4077      0 curveto
   4083      0   4088      0   4093      0 curveto
   4097      0   4100      0   4101      0 curveto
   4102      0   4103      0   4129   -740 curveto
   4224  -1226   4290  -1417   4338  -1533 curveto
   4374  -1614   4405  -1674   4427  -1723 curveto
   4454  -1771   4486  -1825   4520  -1884 curveto
   4565  -1958   4630  -2056   4736  -2200 curveto
   4923  -2435   5407  -2946   9625  -6181 curveto
 stroke
 0 0 0 1 setcmyk_olvcolor
   9657  -6202 30 0 360 arc fill % 400
   9018  -5830 30 0 360 arc fill % 425
   6041  -4019 30 0 360 arc fill % 450
   3156  -2344 30 0 360 arc fill % 475
    723  -1054 30 0 360 arc fill % 500
   1510   -464 30 0 360 arc fill % 525
   2214   -230 30 0 360 arc fill % 550
   2841   -139 30 0 360 arc fill % 575
   3475   -120 30 0 360 arc fill % 600
   3878    -75 30 0 360 arc fill % 625
   4042      0 30 0 360 arc fill % 650
   4088      0 30 0 360 arc fill % 675
   4102      0 30 0 360 arc fill % 700
   4224  -1226 30 0 360 arc fill %500c
   4427  -1723 30 0 360 arc fill %525c
   4630  -2056 30 0 360 arc fill %550c
 0 0 0 1 setcmyk_olvcolor
   9657  -6202 30 0 360 arc stroke % 400
   9018  -5830 30 0 360 arc stroke % 425
   6041  -4019 30 0 360 arc stroke % 450
   3156  -2344 30 0 360 arc stroke % 475
    723  -1054 30 0 360 arc stroke % 500
   1510   -464 30 0 360 arc stroke % 525
   2214   -230 30 0 360 arc stroke % 550
   2841   -139 30 0 360 arc stroke % 575
   3475   -120 30 0 360 arc stroke % 600
   3878    -75 30 0 360 arc stroke % 625
   4042      0 30 0 360 arc stroke % 650
   4088      0 30 0 360 arc stroke % 675
   4102      0 30 0 360 arc stroke % 700
   4224  -1226 30 0 360 arc stroke %500c
   4427  -1723 30 0 360 arc stroke %525c
   4630  -2056 30 0 360 arc stroke %550c
%   2872  -1148 30 0 360 arc fill %D65 
 0 0 0 1 setcmyk_olvcolor
TBIS
%   9657 500 sub  -6202 100 sub moveto (400) show
%   9018 500 sub  -5830 100 sub moveto (425) show
%   6041 500 sub  -4019 100 sub moveto (450) show
   3156 400 sub  -2344 100 sub moveto (475) show
    723 250 sub  -1054 250 sub moveto (500) show
   1510 200 sub   -464 150 add moveto (525) show
   2214 200 sub   -230 100 add moveto (550) show
   2841 200 sub   -139 100 add moveto (575) show
   3475 200 sub   -120 100 add moveto (600) show
%   3878 200 sub    -75 100 add moveto (625) show
%   4042 200 sub      0 100 add moveto (650) show
%   4088 200 sub      0 100 add moveto (675) show
   4102 050 add      0 100 sub moveto (700) show
   4224 050 add  -1226 000 sub moveto (500c,E) show
   4427 010 sub  -1723 100 add moveto (525c,E) show
%   4630 100 add  -2056 100 sub moveto (550c,E) show
%   2872 050 add  -1148 000 sub moveto (D65 ) show

   -400  -3200 translate

 %ENDE: 3

             } if %xchart4=2

xchart4 3 eq {%xchart4=3

600 3200 translate

0 400 moveto  4400  0 rlineto  stroke
0 400 moveto  0 -3500 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS
   0 350 moveto  0 100 rlineto  stroke
 800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

-250  500 moveto (-0,6) show
 650  500 moveto (0,0) show
1450  500 moveto (0,6) show
2250  500 moveto (1,2) show
3050  500 moveto (1,8) show
3850  500 moveto (2,4) show
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke

-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,6) show
-450 -1700 moveto (-1,2) show
-450 -2500 moveto (-1,8) show

TBIK
-450  -2900 moveto (b") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK
4050 200 moveto (a") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK

-600 -3200 translate
 
 %1000 02             ****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0:  700 3200
    700 800 add  3200 translate
   3789  -3170 moveto
   3789  -3170   3789  -3170   3788  -3170 curveto
   3787  -3170   3779  -3166   3757  -3155 curveto
   3724  -3138   3673  -3113   3603  -3079 curveto
   3514  -3037   3394  -2982   3239  -2915 curveto
   3028  -2826   2734  -2704   2265  -2508 curveto
   1626  -2234    957  -1880    645  -1481 curveto
    507  -1078    443   -720    417   -455 curveto
    411   -308    419   -223    437   -171 curveto
    464   -144    496   -130    533   -121 curveto
    573   -115    616   -111    664   -108 curveto
    721   -107    787   -105    867   -105 curveto
    963   -104   1081   -104   1227   -104 curveto
   1397   -104   1561   -104   1716   -104 curveto
   1858   -104   1981   -104   2090   -104 curveto
   2180   -104   2254   -104   2313   -104 curveto
   2360   -103   2397   -103   2429   -103 curveto
   2455   -103   2476   -103   2491   -103 curveto
   2503   -103   2512   -103   2517   -103 curveto
   2522   -103   2526   -103   2530   -103 curveto
   2533   -103   2535   -103   2536   -103 curveto
   2536   -103   2537   -103   2556   -214 curveto
   2623   -700   2668  -1007   2700  -1196 curveto
   2723  -1324   2742  -1416   2756  -1488 curveto
   2772  -1560   2791  -1636   2811  -1717 curveto
   2837  -1813   2873  -1933   2929  -2093 curveto
   3019  -2313   3211  -2648   3788  -3169 curveto
 stroke
 1 setgray
   3789  -3170 30 0 360 arc fill % 400
   3757  -3155 30 0 360 arc fill % 425
   3394  -2982 30 0 360 arc fill % 450
   1626  -2234 30 0 360 arc fill % 475
    417   -455 30 0 360 arc fill % 500
    496   -130 30 0 360 arc fill % 525
    721   -107 30 0 360 arc fill % 550
   1227   -104 30 0 360 arc fill % 575
   1981   -104 30 0 360 arc fill % 600
   2360   -103 30 0 360 arc fill % 625
   2491   -103 30 0 360 arc fill % 650
   2526   -103 30 0 360 arc fill % 675
   2536   -103 30 0 360 arc fill % 700
   2623   -700 30 0 360 arc fill %500c
   2756  -1488 30 0 360 arc fill %525c
   2873  -1933 30 0 360 arc fill %550c
 0 setgray
   3789  -3170 30 0 360 arc stroke % 400
   3757  -3155 30 0 360 arc stroke % 425
   3394  -2982 30 0 360 arc stroke % 450
   1626  -2234 30 0 360 arc stroke % 475
    417   -455 30 0 360 arc stroke % 500
    496   -130 30 0 360 arc stroke % 525
    721   -107 30 0 360 arc stroke % 550
   1227   -104 30 0 360 arc stroke % 575
   1981   -104 30 0 360 arc stroke % 600
   2360   -103 30 0 360 arc stroke % 625
   2491   -103 30 0 360 arc stroke % 650
   2526   -103 30 0 360 arc stroke % 675
   2536   -103 30 0 360 arc stroke % 700
   2623   -700 30 0 360 arc stroke %500c
   2756  -1488 30 0 360 arc stroke %525c
   2873  -1933 30 0 360 arc stroke %550c
   1266   -580 30 0 360 arc fill %D65
 0 setgray
TBIS
   3789 200 sub  -3170 200 add moveto (400) show
%  3757 600 sub  -3155 100 sub moveto (425) show
%  3394 600 sub  -2982 100 sub moveto (450) show
   1626 050 sub  -2234 150 add moveto (475) show
    417 430 sub   -455 100 sub moveto (500) show
    496 400 sub   -130  50 add moveto (525) show
    721 200 sub   -107 100 add moveto (550) show
   1227 200 sub   -104 100 add moveto (575) show
   1981 200 sub   -104 100 add moveto (600) show
%  2360 200 sub   -103 100 add moveto (625) show
%  2491 200 sub   -103 100 add moveto (650) show
%  2526 200 sub   -103 100 add moveto (675) show
   2536 100 add   -103         moveto (700) show
   2623 100 add   -700 100 sub moveto (500c) show
   2756 100 add  -1488 100 sub moveto (525c) show
%   2873 100 add  -1933 100 sub moveto (550c) show
%   1266 100 add   -580 100 sub moveto (D65 ) show
   700 800 add neg -3200 translate
 %ENDE: 3

             } if %xchart4=3

xchart4 4 ge xchart4 7 le and {%4>=xchart4<=7

3500 2000 translate

%axis and scales
0 0 0 1 setcmyk_olvcolor
-2250 0 moveto 3950  0 rlineto stroke
0 -1880  moveto 0 3600  rlineto stroke
1700 100 sub 50 moveto 100 -50 rlineto
                      -100 -50 rlineto closepath fill
0 50 sub 1800 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill

/xt10x 5 array def
/yt10x 5 array def

xchart4 4 eq {%xchart4=4
/xt10x [(-40) ( ) ( ) ( ) (  40)] def
/yt10x [(-40) ( ) ( ) ( ) (40)] def
             } if %xchart4=3

xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7
/xt10x [(-120) ( ) ( ) ( ) (  120)] def

/yt10x [(-120) ( ) ( ) ( ) (120)] def
             } if %4>=xchart4<=6

0 0 0 1 setcmyk_olvcolor
0 1 4 {/i exch def %i=0,4 x-axis
        -1600   i 800   mul add  -75 moveto 0 150 rlineto stroke
        -1800   i 800   mul add -250 moveto
        TBS xt10x i get show
        i 4 eq {-1600 i 800 mul add 0 moveto
               xchart4 4 eq { %xchart4=4
                             000 150 rmoveto
                             TBIM (A) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -50 150 rmoveto
                             TBIM (a*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -350 150 rmoveto
                             TBIM (a*) show 
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -50 150 rmoveto
                             TBIM (A*) show TL
                            } if %xchart4=7
               } if

       } for %i=0,4

0 1 4 {/i exch def %i=0,4 y-axis
       -75 -1600 i 800 mul    add moveto 150 0 rlineto stroke
       100 -1600 i 800 mul    add 100 sub moveto
       TBS yt10x i get show
       i 4 eq {0 -1600 i 800 mul add moveto
               xchart4 4 eq { %xchart4=4
                             -250 150 rmoveto
                             TBIM (B) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -400 150 rmoveto
                             TBIM (b*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -750 150 rmoveto
                             TBIM (b*) show
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -300 150 rmoveto
                             TBIM (B*) show TL
                            } if %xchart4=7
             } if

       } for %i=0,4


-3500 -2000 translate

} if %4>=xchart4<=7

%*******************************************************
%actual data

/imshow {0 -50 rmoveto TBL (d) show 0 50 rmoveto TBIS} def
/ioshow {0 -50 rmoveto TBL (o) show 0 50 rmoveto TBIS} def

%*************************************************
xchart4 0 eq {%xchart4=0 %only for (x,y)

/fakt 4000 def

600 400 translate %for scala and graphic

0 1 05 {/i exch def %i=0,39
        XANi i get fakt mul
        YANi i get fakt mul 
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XANW fakt mul YANW fakt mul 90 0 360 arc stroke
XANW fakt mul 200 sub YANW fakt mul 250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 5 {/i exch def %i=0,5
/SUM Xi i get
     Yi i get add
     Zi i get add 0.0001 add def 
/AnY Xi i get SUM div fakt mul def
/BnY Yi i get SUM div fakt mul def
i 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,5

-600 -400 translate %for scala and grafic

} if %xchart4=0

xchart4 1 eq {%xchart4=1 %only for (a,b)

/fakt 1000 def
/a2 XW YW 0.0001 add div def
/b2 ZW YW 0.0001 add div -0.4 mul def

 1300 3200 translate %for grafic

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div fakt mul %a
        Zi i get Yi i get 0.0001 add div fakt mul %b
        0.4 mul neg
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW YW 0.0001 add div fakt mul
ZW YW 0.0001 add div fakt mul
0.4 mul neg 90 0 360 arc stroke

XW YW 0.0001 add div fakt mul
200 sub
ZW YW 0.0001 add div fakt mul
0.4 mul neg
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 5 {/i exch def %i=0,5
/AnY Xi i get Yi i get 0.0001 add div
     fakt mul def
/BnY Zi i get Yi i get 0.0001 add div
     fakt mul 0.4 mul neg def
i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 250 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,5

-1300 -3200 translate %for grafic

} if %xchart4=1


xchart4 2 eq {%xchart4=2 %only for (a',b')

/D13 1 3 div def
/fakt 13333 def

/a2 XW YW 0.0001 add div
    D13 exp 0.2191 mul def
/b2 ZW YW 0.0001 add div 
    D13 exp -0.08376 mul def

 200 3200 translate %for graphic

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div                 %a'
        D13 exp 0.2191 mul fakt mul
        Zi i get Yi i get 0.0001 add div                 %b' 
        D13 exp -0.08376 mul fakt mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW YW 0.0001 add div                 %a'
D13 exp 0.2191 mul fakt mul
ZW YW 0.0001 add div                 %b' 
D13 exp -0.08376 mul fakt mul
90 0 360 arc stroke

XW YW 0.0001 add div                 %a'
D13 exp 0.2191 mul fakt mul
200 sub
ZW YW 0.0001 add div                 %b' 
D13 exp -0.08376 mul fakt mul
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 5 {/i exch def %i=0,5

/AnY Xi i get Yi i get 0.0001 add div       %a'
     D13 exp 0.2191 mul fakt mul def
/BnY Zi i get Yi i get 0.0001 add div       %b'
     D13 exp -0.08376 mul fakt mul def

i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,5

-200  -3200 translate %for graphic

} if %xchart4=2

xchart4 3 eq {%xchart4=3 %only for (a",b")

%100 3800 moveto TIS ((a",b") (LAB 1977)) show

/fakt 1333 def
/XD65 95.04 def
/YD65 100.00 def
/ZD65 108.89 def
/aD65 XD65 YD65 0.0001 add div def
/bD65 ZD65 YD65 0.0001 add div -0.4 mul def
/a2 aD65 def
/b2 bD65 def

 700 800 add 3200 translate %for grafic

0 1 05 {/i exch def %i=0,39
        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

a"n fakt mul
b"n fakt mul
90 0 360 arc stroke

a"n fakt mul
200 sub
b"n fakt mul
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 5 {/i exch def %i=0,5

        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def

/AnY a" fakt mul def
/BnY b" fakt mul def

i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 250 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,5

700 800 add neg -3200 translate %for graphic

} if %xchart4=3

xchart4 4 eq {%xchart4=4 %only for (A,B)

/fakt 40 def
/a2 1.00 def
/b2 -0.4 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (A) show
TBS ( = \050) show
TBIS (a) show
TBS ( - ) show
TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1300 moveto
TBIS (B) show
TBS ( = \050) show
TBIS (b) show
TBS ( - ) show
TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show
TBS (]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show
TBS (]) show

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1) show

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -0,4) show

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div          %(a-an)Y
        XK       YK       0.0001 add div sub
        Yi i get mul fakt mul
        Zi i get Yi i get 0.0001 add div          %(b-bn)Y
        ZK       YK       0.0001 add div sub 0.4 mul neg
        Yi i get mul fakt mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div                 %(a-an)YW
XK       YK       0.0001 add div sub
YW mul fakt mul
ZW       YW       0.0001 add div                 %(b-an)YW
ZK       YK       0.0001 add div sub 0.4 mul neg
YW mul fakt mul
90 0 360 arc stroke

0 080 add
0 080 add moveto
TBS TELi xchartl get show

TBIS
0 1 5 {/i exch def %i=0,5

/AnY Xi i get Yi i get 0.0001 add div          %(a-an)Y
     XK       YK       0.0001 add div sub
     Yi i get mul fakt mul def
/BnY Zi i get Yi i get 0.0001 add div          %(b-bn)Y
     ZK       YK       0.0001 add div sub 0.4 mul neg
     Yi i get mul fakt mul def

i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,5

} if %xchart4=4

xchart4 5 eq {%xchart4=5 %only for (a*,b*)

/D13 1 3 div def
/fakt 40 3 div def
/a2 1 XW div D13 exp def
/b2 1 ZW div D13 exp -0.4 mul def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b' = b2 (z/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div
D13 exp a2 mul
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D13 exp b2 mul
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

90 0 360 arc stroke

/xshift [0100  -100  -450   150  -100  0150  0150  -450  0080  0000] def
/yshift [-100   200  -100  -100  -350  -100  -000  -100  0080  0000] def
/colori [(R)   (Y)   (G)   (C)   (B)   (M)   (G)   (M)   (D65)   ( )] def
colori 8 TELi xchartl get put

XW       YW       0.0001 add div
D13 exp a2 mul
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div
D13 exp b2 mul
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
TBS TELi xchartl get show

TBIS
0 1 5 {/i exch def %i=0,5

/AnY    Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b'= b2 (x/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,5

-3500 -2000 translate %for text and grafic

} if %xchart4=5

xchart4 6 eq {%xchart4=6 %only for (a*,b*) with const. for D65

/D13 1 3 div def
/fakt 40 3 div def
/a2 0.2191 def
/b2 -0.08376 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a') show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b') show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b'= b2 (z/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div
D13 exp a2 mul
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D13 exp b2 mul
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

90 0 360 arc stroke

XW       YW       0.0001 add div             %500(a'-a'n)Y**(1/3)
D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div             %500(b'-b'n)Y**(1/3)
D13 exp b2 mul                               %a'= a2 (x/y)**(1/3)
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
TBS TELi xchartl get show

TBIS
0 1 5 {/i exch def %i=0,5

/AnY    Xi i get Yi i get 0.0001 add div
        D13 exp a2 mul
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div
        D13 exp b2 mul
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,5

-3500 -2000 translate %for text and grafic

} if %xchart4=6

xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65

/D13 1 3 div def
/D11 1 def
/D16  1 6 div def
/fakt 40 3 div def
/a2 1 15 div def
/b2 1 12 div neg def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS ( + 1]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS ( + 1/6 ]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1/15 = ) show a2 cvsshow5

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -1/12 = ) show b2 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div            %500(a'-a'n)Y**(1/3)
        D11 add a2 mul                              %a'=(x/y+1)/15
        XK       YK       0.0001 add div
        D11 add a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
                                                       
        Zi i get Yi i get 0.0001 add div            %500(b'-b'n)Y**(1/3)
        D16 add D13 exp b2 mul                      %b'=-[(z/y +1/6)**(1/3)]/12
        ZK       YK       0.0001 add div
        D16 add D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div
D11 add a2 mul
XK       YK       0.0001 add div
D11 add a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D16 add D13 exp b2 mul
ZK       YK       0.0001 add div
D16 add D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

90 0 360 arc stroke

XW       YW       0.0001 add div
D11 add a2 mul
XK       YK       0.0001 add div
D11 add a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div
D16 add D13 exp b2 mul
ZK       YK       0.0001 add div
D16 add D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
TBS TELi xchartl get show

TBIS
0 1 5 {/i exch def %i=0,5

/AnY    Xi i get Yi i get 0.0001 add div            %500(a'-a'n)Y**(1/3)
        D11 add a2 mul                              %a'=(x/y+1)/15
        XK       YK       0.0001 add div
        D11 add a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div            %500(b'-b'n)Y**(1/3)
        D16 add D13 exp b2 mul                      %b'=-[(z/y +1/6)**(1/3)]/12
        ZK       YK       0.0001 add div
        D16 add D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 400 sub BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

newpath
AnY BnY 90 0 360 arc fill
0 setgray
newpath
AnY BnY 90 0 360 arc stroke

} for %i=0,5

-3500 -2000 translate %for text and grafic

} if %xchart4=7

showpage
grestore

%} for %xchartl=0,7

} for %xchart4=0,7

%} for %xcolorl=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 26

%line 479
%!PS-Adobe-3.0 EPSF-3.0 MF491-6N
%%BoundingBox: 70 83 228 206

%START PDFDE011.EPS
/pdfmark16 where {pop} {userdict /pdfmark16 /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/MF49/)
  /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 pdfmark16
[ /View [ /FitB ]
/DOCVIEW pdfmark16
%END  PDFDE011

%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq 
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub 
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} bind def

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Times-ISOL1 exch definefont pop

/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesI-ISOL1 exch definefont pop

/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesB-ISOL1 exch definefont pop

/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesBI-ISOL1 exch definefont pop

/Courier findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Courier-ISOL1 exch definefont pop

/Courier-Oblique findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierI-ISOL1 exch definefont pop

/Courier-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierB-ISOL1 exch definefont pop

/Courier-BoldOblique findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierBI-ISOL1 exch definefont pop

/TG   {350 /Times-ISOL1 FS} bind def
/TM   {280 /Times-ISOL1 FS} bind def
/TK   {240 /Times-ISOL1 FS} bind def
/TS   {200 /Times-ISOL1 FS} bind def
/TL   {160 /Times-ISOL1 FS} bind def

/TIG  {350 /TimesI-ISOL1 FS} bind def
/TIM  {280 /TimesI-ISOL1 FS} bind def
/TIK  {240 /TimesI-ISOL1 FS} bind def
/TIS  {200 /TimesI-ISOL1 FS} bind def
/TIL  {160 /TimesI-ISOL1 FS} bind def

/TBG  {350 /TimesB-ISOL1 FS} bind def
/TBM  {280 /TimesB-ISOL1 FS} bind def
/TBK  {240 /TimesB-ISOL1 FS} bind def
/TBS  {200 /TimesB-ISOL1 FS} bind def
/TBL  {160 /TimesB-ISOL1 FS} bind def

/TBIG {350 /TimesBI-ISOL1 FS} bind def
/TBIM {280 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIL {160 /TimesBI-ISOL1 FS} bind def

/SG {350 /Symbol FS} bind def
/SM {280 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SS {200 /Symbol FS} bind def
/SL {160 /Symbol FS} bind def

%%EndProlog
gsave

%lanindL2.EPS START  20000505
/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 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 /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 8 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart xchart3 lt {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

/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

/SD65 80 array def %380 bis 775 mit deltalambda=05
/SD50 80 array def %380 bis 775 mit deltalambda=05
/SP40 80 array def %380 bis 775 mit deltalambda=05
/SA00 80 array def %380 bis 775 mit deltalambda=05
/SE00 80 array def %380 bis 775 mit deltalambda=05
/SC00 80 array def %380 bis 775 mit deltalambda=05
/SP00 80 array def %380 bis 775 mit deltalambda=05
/SQ00 80 array def %380 bis 775 mit deltalambda=05

/SDAK 80 array def %380 bis 775 mit deltalambda=05
/RA   80 array def %380 bis 770 nm
/F2  240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm
/F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm
/F10  240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm

%C
%C      LITERATURQUELLEN  LICHTARTEN
%C      SA,SC,SD65,  CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 1.1.1, SEITE 81
%C      SD55,SD75,   CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 1.1.4, SEITE 85
%C                   LINEAR INTERPOLIERT VON 5 ZU 5NM
%C      SG,SP,SXE,   DIN 5033, BLATT 7 ,SEITE 8-9
%C                   AUSGABE  1966

/SD65 %80 data 5 nm
[50.0  52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 
 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 
 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 
 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 
 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 
 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 
 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 
 46.4 56.6 66.8 65.1] def

/SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS
[24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9
 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2
 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6
102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3
 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4
 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1
 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7
 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used

/SA00 %80 data 5 nm CIE 15.3  Seite 30; aus JE540-1N.PS
[9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99
 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30
 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06
 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44
 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39
 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42
 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12
 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41
 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59
 232.12 234.59 237.01 239.37 0.0] def %0.0 not used

% AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92
%C     PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI-
%C     LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA  
%C     BEI GEGEBENER TEMPERATUR T                                        
%C     VERWENDETE VARIABLE                                               
%C        T                   TEMPERATUR                                 
%C        C2                  PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) 
%C        LAMDA(I)            WELLENLAENGE                               
%C        S(I)                STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS 
%C                                                                       
%C     LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION,       
%C               CA. 1969, SEITE 21 UND TABELLE 1.1.1                    
%C                                                                       
%SDP4 80 array def %380 bis 775 mit deltalambda=05
%      DO 50 I=1,54                                                      
%   50 S(I)=100.
%     1*(560./FLOAT(LAMDA(I)))**5
%     2*(EXP(C2/(560.*10.**(-7)*T))-1.)
%     3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.)

%new CIE 15.3:2004, Eq. (3.1) page 2
%S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560   )} - 1]
%                           /[exp{(c2*10**7)/(TNC*lambda)} - 1]
% exp = e {...} = 2.71 {...} 

%/TNC 2848 def %NLA
/TNC 4000 def
/EE 2.718281 def %e=mac pocket calculator
/C2 1.4350000 10 7 exp mul def
/lamd 80 array def


0 1 79 {%i=0,79
        /i exch def
        /lambda 380 i 5 mul add def
        lamd i lambda put
        /E1 560 lambda div 5 exp def

        /E4 C2 TNC 560    mul div def
        /E5 C2 TNC lambda mul div def

        /E6 EE E4 exp def
        /E7 EE E5 exp def

        SP40 i
        E1 100 mul E6 1 sub 
                   E7 1 sub div mul

        put
       } for %i=0,79

/xex 10 2 exp def
/yex EE 2 exp def

/SE00 %80 data 5 nm
[100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used

/SC00 %80 data 5 nm
[ 33.00  39.92  47.40  55.17  63.30  71.81  80.60  89.53  98.10 105.80
 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09
 123.90 122.92 120.70 116.90 112.10 106.98 102.30  98.81  96.90  96.78
  98.00  99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15
  97.80  95.43  93.20  91.22  89.70  88.83  88.40  88.19  88.10  88.06
  88.00  87.86  87.80  87.99  88.20  88.20  87.90  87.22  86.30  85.30
  84.00  82.21  80.20  78.24  76.30  74.36  72.40  70.40  68.30  66.30
  64.40  62.80  61.50  60.20  59.20  58.50  58.10  58.00  58.20  58.50
 ] def %0.0 not used
 
0 1 79 {/i exch def %i=0,79
        /lamda 380 i 5 mul add def
        SP00 i SE00 i get lamda 560 div mul put
        SQ00 i SE00 i get 1120 lamda sub 560 div mul put
       } for %i=0,79

%C      LITERATURQUELLEN  SPEKTRALWERTE
%C       F2          CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 2.1, SEITE 93-102

/F2  %3x80 data
[.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 
 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 
 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 
 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 
 .7621
 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 
 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 
 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 
 .004109 .002899 .002049 .001440 .0009999 .0006901 
 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 
 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 
 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 
 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 
 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 
 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 
 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 
 .01192 .00821 .005723 .004102 .002929 .002091 .001484 
 .001047 .00074 .00052 .0003611 .0002492 .0001719 
 .00012 .0000848 .00006 .0000424 .00003 .0000212 
 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 
 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 
 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 
 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 
 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 
 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20
 0.0 0.0 0.0 0.0 0.0 0.0 %26
] def

/F10 %3x80 data
[.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 
 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323
  .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177
  .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 
 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 
 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 
 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 
 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 
 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 
 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 
 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 
 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 
 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 
 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 
 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 
 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 
 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 
 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 
 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 
 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 
 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 
 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 
 .001091 
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40
 0.0 0.0 0.0 0.0 %44
] def

%calculation of transformation data
/FARBE 27 array def
/FARBE [(R) (m) ( 561_770) %00
        (Y) (m) ( 495_770) %01
        (G) (m) ( 475_573) %02
        (C) (m) ( 380_561) %03
        (B) (m) ( 380_495) %04
        (M) (m) ( 573_475) %05
        (N) (0) ( 380_770) %06
        (W) (0) ( 380_770) %07
        (W) (1) ( 380_770) %08
       ] def

%/FARBE [(R) (m) ( 565_770) %00
%        (Y) (m) ( 495_770) %01
%        (G) (m) ( 475_575) %02
%        (C) (m) ( 380_565) %03
%        (B) (m) ( 380_495) %04
%        (M) (m) ( 575_475) %05
%        (N) (0) ( 380_770) %06
%        (W) (0) ( 380_770) %07
%        (W) (1) ( 380_770) %08
%       ] def

%calculation of transformation data
/FARBE 27 array def
/FARBE [(R) (d,sRGB) (x=0,64) %00
        () () (y=0,33) %01
        (G) (d,sRGB) (x=0,30) %02
        () () (y=0,60) %03
        (B) (d,SRGB) (x=0,18) %04
        () () (y=0,06) %05
        (N) (0) () %06
        (W) (0) () %07
        (W) (1) ( 380_770) %08
       ] def

/xcolorl xcolor def
%0 1 1 {/xcolorl exch def %xcolorl=0,1

xcolorl 1 eq {0 1 239 {/i exch def %i=0,239
                       F2 i F10 i get put
                      } for %i=0,239
           } if

/YKSUM 0 def %For CIE Illuminant E
0 1 79 {/i exch def %i=0,1,79
        /YKSUM YKSUM F2  80 i add get add def
} for %i=0,1,79

/F2N 240 array def
0 1 79 {/i exch def %i=0,1,79
        F2N  00 i add F2  00 i add get YKSUM div 100 mul put
        F2N  80 i add F2  80 i add get YKSUM div 100 mul put
        F2N 160 i add F2 160 i add get YKSUM div 100 mul put
} for %i=0,1,79

/FXN 80 array def %FXN 0 = F2N imax
/FYN 80 array def
/FZN 80 array def
%defines FXN, FYN, FZN 0 to 79
0 1 79 {/i exch def %i=0,79
        FXN i F2N 000 i add get put
        FYN i F2N 080 i add get put
        FZN i F2N 160 i add get put
} for %i=0,79

%special wavelength range with complementary colours for E?
/FXD 63 array def
/FYD 63 array def
/FZD 63 array def
/DOW 63 array def

00 1 60 {/i exch def %i=0,60 %range 400..700nm
         FXD i FXN 005 i add get put
         FYD i FYN 005 i add get put
         FZD i FZN 005 i add get put
         DOW i 400 i 5 mul add put %range 400 to 700
        } for %i=0,60

%for interpolation
FXD 61 FXD 60 get put
FYD 61 FYD 60 get put
FZD 61 FZD 60 get put

FXD 62 FXD 60 get put
FYD 62 FYD 60 get put
FZD 62 FZD 60 get put

/FAD 63 array def
/FBD 63 array def
/FCD 63 array def

/xdel  1045 def
/ydel   395 def
/x0 500 def

/TELi 8 array def
/TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %8 illuminants

/Xi 79 array def %79 spectral or max 6 device colour + 4 elementary colours
/Yi 79 array def %+3 achromatic colours
/Zi 79 array def
/XANi 79 array def
/YANi 79 array def
/ZANi 79 array def

0 1 0 {/xchart4 exch def %xchart4=0,7

/xchartl 0 def %special allways D65
%0 1 7 {/xchartl exch def %xchartl=0,7

%/K 0 def %for normalization 1
/K 1 def %for normalization 0,886

gsave

5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolorl cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow

5 /Times-ISOL1 FS
180 85 moveto
(MF491-6) show
%xchart4 1 add cvishow
%xchart 0 ge {(N) show} if
%(_) show xchart 1 add cvishow
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate

0.010 MM dup scale

25 setlinewidth
0 0 0 0 setcmyk_olvcolor
0 0 moveto 5400     0 rlineto 0 4000 rlineto
           5400 neg 0 rlineto closepath fill

0 0  moveto  5400 0 rlineto 0 4000 rlineto
            -5400 0 rlineto closepath clip

0 0 0 1 setcmyk_olvcolor
0 0 moveto 5400     0 rlineto 0 4000 rlineto
           5400 neg 0 rlineto closepath stroke

%calculation of XW,YW,ZW for illuminant D65, D50, ...
0 1 79 {/i exch def %i=0,79
        SDAK i xchartl 0 eq {SD65 i get} if
               xchartl 1 eq {SD50 i get} if
               xchartl 2 eq {SP40 i get} if
               xchartl 3 eq {SA00 i get} if
               xchartl 4 eq {SE00 i get} if
               xchartl 5 eq {SC00 i get} if
               xchartl 6 eq {SP00 i get} if
               xchartl 7 eq {SQ00 i get} if
               put
       } for %i=0,79

/YKSUM 0 def
0 1 79 {/i exch def %i=0,1,79
        /YKSUM YKSUM SDAK i get F2  80 i add get mul add def
} for %i=0,1,79

0 1 79 {/i exch def %i=0,1,79
        F2N  00 i add SDAK i get F2  00 i add get mul YKSUM div 100 mul put
        F2N  80 i add SDAK i get F2  80 i add get mul YKSUM div 100 mul put
        F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put
} for %i=0,1,79

%XW,YW,ZW for white
/XW 0 def
/YW 0 def
/ZW 0 def
0 1 079 {/i exch def %i=0,79
         /XW XW F2N  00 i add get add def
         /YW YW F2N  80 i add get add def
         /ZW ZW F2N 160 i add get add def
        } for %i=0,79

/SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00
/XANW XW SUMW div def
/YANW YW SUMW div def
/ZANW ZW SUMW div def

/AANW XW YW 0.0001 add div def
/BANW ZW YW 0.0001 add div 0.4 mul neg def

K 0 eq {%K=0
        /XK XW def
        /YK YW def
        /ZK ZW def
       }%K=0
       {%K=1
        /XK XW 0.8859 mul def
        /YK YW 0.8859 mul def
        /ZK ZW 0.8859 mul def
       } ifelse %K=1

/SUMK XK YK add ZK add def %for D65, D50, P40, A00, E00
/XANK XK SUMK div def
/YANK YK SUMK div def
/ZANK ZK SUMK div def

/XANR 0.64 def
/YANR 0.33 def
/XANG 0.30 def
/YANG 0.60 def
/XANB 0.15 def
/YANB 0.06 def

/ZANR 1. XANR sub YANR sub def
/ZANG 1. XANG sub YANG sub def
/ZANB 1. XANB sub YANB sub def
%/ZANW 1. XANW sub YANW sub def %see above

%calculation of spectral curves
/YR 100 def
/YG 100 def
/YB 100 def
/YW 100 def

/SUM YR YANR div def
/XR XANR SUM mul def
/ZR ZANR SUM mul def

/SUM YG YANG div def
/XG XANG SUM mul def
/ZG ZANG SUM mul def

/SUM YB YANB div def
/XB XANB SUM mul def
/ZB ZANB SUM mul def

%/SUM YW YANW div def %see above
%/XW XANW SUM mul def
%/ZW ZANW SUM mul def

/XN XW def
/YN YW def
/ZN ZW def

/D  XR YG mul ZB mul
    XG YB mul ZR mul add
    XB YR mul ZG mul add
    ZR YG mul XB mul sub
    ZG YB mul XR mul sub
    ZB YR mul XG mul sub def
/D1 XW YG mul ZB mul
    XG YB mul ZW mul add
    XB YW mul ZG mul add
    ZW YG mul XB mul sub
    ZG YB mul XW mul sub
    ZB YW mul XG mul sub def
/D2 XR YW mul ZB mul
    XW YB mul ZR mul add
    XB YR mul ZW mul add
    ZR YW mul XB mul sub
    ZW YB mul XR mul sub
    ZB YR mul XW mul sub def
/D3 XR YG mul ZW mul
    XG YW mul ZR mul add
    XW YR mul ZG mul add
    ZR YG mul XW mul sub
    ZG YW mul XR mul sub
    ZW YR mul XG mul sub def

/AR D1 D div def
/AG D2 D div def
/AB D3 D div def

/XRN AR XR mul def
/XGN AG XG mul def
/XBN AB XB mul def

/YRN AR YR mul def
/YGN AG YG mul def
/YBN AB YB mul def

/ZRN AR ZR mul def
/ZGN AG ZG mul def
/ZBN AB ZB mul def

/XWN XRN XGN add XBN add def
/YWN YRN YGN add YBN add def
/ZWN ZRN ZGN add ZBN add def
/SUM XWN YWN add ZWN add def
/XANWN XWN SUM 0.0001 add div def
/YANWN YWN SUM 0.0001 add div def
/ZANWN ZWN SUM 0.0001 add div def

0 1 12 {/i exch def %i=0,12
       i 0 eq {Xi i XRN put                %Rd
               Yi i YRN put
               Zi i ZRN put} if
       i 1 eq {Xi i XRN XGN add put        %Yd
               Yi i YRN YGN add put
               Zi i ZRN ZGN add put} if
       i 2 eq {Xi i XGN put                %Gd
               Yi i YGN put
               Zi i ZGN put} if
       i 3 eq {Xi i XGN XBN add put        %Cd
               Yi i YGN YBN add put
               Zi i ZGN ZBN add put} if
       i 4 eq {Xi i XBN put                %Bd
               Yi i YBN put
               Zi i ZBN put} if
       i 5 eq {Xi i XBN XRN add put        %Md
               Yi i YBN YRN add put
               Zi i ZBN ZRN add put} if

       i 6 eq {Xi i XRN put                %Re
               Yi i YRN put
               Zi i ZRN put} if
       i 7 eq {Xi i XRN XGN add put        %Ye
               Yi i YRN YGN add put
               Zi i ZRN ZGN add put} if
       i 8 eq {Xi i XGN put                %Ge
               Yi i YGN put
               Zi i ZGN put} if
       i 9 eq {Xi i XBN put                %Be
               Yi i YBN put
               Zi i ZBN put} if

       i 10 eq {Xi i XW 0.01 mul put        %N
                Yi i YW 0.01 mul put
                Zi i ZW 0.01 mul put} if
       i 11 eq {Xi i XW put                 %W
                Yi i YW put
                Zi i ZW put} if
       i 12 eq {Xi i XW put                 %W
                Yi i YW put
                Zi i ZW put} if
      } for %i=0,12

%************************************************************************
/prog_rgb_dyF_LAB*'dyF
{%BEG prog_rgb_dyF_LAB*'dyF

/R01000 r_dyF 1000 mul def
/G01000 g_dyF 1000 mul def
/B01000 b_dyF 1000 mul def

R01000 0.04045 le  %equations of IEC 61966-2-1:2003
{/RsRGB R01000 12.92 div def}
{/RsRGB R01000 0.001 mul 0.055 add
  1.055 div 2.4 exp def} ifelse
G01000 0.04045 le
{/GsRGB G01000 12.92 div def}
{/GsRGB G01000 0.001 mul 0.055 add
  1.055 div 2.4 exp def} ifelse
B01000 0.04045 le
{/BsRGB B01000 12.92 div def}
{/BsRGB B01000 0.001 mul 0.055 add
  1.055 div 2.4 exp def} ifelse

/X*'dyF 0.4124 RsRGB mul 
        0.3576 GsRGB mul add
        0.1805 BsRGB mul add 88.59 mul def
/Y*'dyF 0.2126 RsRGB mul
        0.7152 GsRGB mul add
        0.0722 BsRGB mul add 88.59 mul def
/Z*'dyF 0.0193 RsRGB mul
        0.1192 GsRGB mul add
        0.9505 BsRGB mul add 88.59 mul def

% achromatic (D65) colours
/XLWD65100  95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def

/XQ X*'dyF XLWD65100 div def
/YQ Y*'dyF YLWD65100 div def
/ZQ Z*'dyF ZLWD65100 div def
XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if
/L*'dyF YQ 0.008856 lt {903.3 YQ mul}
        {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/a*'dyF XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
        {XQ 0.33333333 exp} ifelse
        YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
        {YQ 0.33333333 exp} ifelse sub 500 mul def
/b*'dyF YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
        {YQ 0.33333333 exp} ifelse
        ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
        {ZQ 0.33333333 exp} ifelse sub 200 mul def
/C*'dyF a*'dyF dup mul
        b*'dyF dup mul add 0.0001 add sqrt def
/h*'dyF b*'dyF a*'dyF 0.0001 add atan def

} bind def %END prog_rgb_dyF_LAB*'dyF
%******************************************************************
%Data of elementary colours according to PE52L0NP.PS/PDF, Pange 7/22
%   re    ge    be    L*    a*    b*    C*    hab
%Re 1.000 0.000 0.263 50.9  78.3  37.3  86.7  25.4
%Ye 1.000 0.856 0.000 83.7  -3.4  84.5  84.5  92.3
%Ge 0.000 1.000 0.706 85.1 -64.6  20.7  67.9 162.2
%Be 0.000 0.609 1.000 59.2   1.7 -56.6  56.6 271.7
%W  1.000 1.000 1.000 95.4   0.0   0.0   0.0   0.0

/RGBe
[1.000 0.000 0.263 %Re
 1.000 0.856 0.000 %Ye
 0.000 1.000 0.706 %Ge
 0.000 0.609 1.000 %Be
 1.000 1.000 1.000 %W
] def

%change of XYZi (i=6,9)
0 1 3 {/i exch def %i=0,3
       /r_dyF RGBe i 3 mul 0 add get def
       /g_dyF RGBe i 3 mul 1 add get def
       /b_dyF RGBe i 3 mul 2 add get def
       prog_rgb_dyF_LAB*'dyF
       Xi 6 i add X*'dyF put
       Yi 6 i add Y*'dyF put
       Zi 6 i add Z*'dyF put
      } for

K 1 eq {%K=1
        0 1 7 {/L exch def %L=0,7 only 0 to 7!
               Xi L Xi L get 0.8859 mul put
               Yi L Yi L get 0.8859 mul put
               Zi L Zi L get 0.8859 mul put
              } for %L=0,7
       } if %K=1

0 1 7 {/i exch def %i=0,7
       /SUM Xi i get Yi i get add Zi i get add def
       XANi i Xi i get SUM 0.0001 add div put
       YANi i Yi i get SUM 0.0001 add div put
      } for %i=0,7

/xtexti 96 array def
/ytexti 96 array def
/xtexti [
%T00 T10  T20   T30   T40  T41   T50  T51   T60  T61  T70  T71
%0   1    2     3     4    5     6    7     8    9    10   11
1800 1800 1800  2800  2800 4400  2800 4400  2800 4400 2800 4000 %0
0600 0600 0600  0600  0600 2200  0600 2200  0600 2200 0600 1800 %1
0700 0700 0700  0700  0700 2300  0700 2300  0700 2300 0700 1900 %2
0700 0700 0700  0700  0700 2300  0700 2300  0700 2300 0700 1900 %3
0100 0100 0100  0100  0100 1700  0100 1700  0100 1700 0100 1300 %4
0100 0100 0100  0100  0100 1700  0100 1700  0100 1700 0100 1300 %5
0100 0100 0100  0100  0100 1700  0100 1700  0100 1700 0100 1300 %6
0100 0100 0100  0100  0100 1700  0100 1700  0100 1700 0100 1300 %7
] def
/ytexti [ 
3800 3580 3360  3140  2920 2920  2700 2700  2480 2480 2260 2260 %0
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %1
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %2
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %3
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %4
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %5
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %6
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %7
] def

0 0 0 1 setcmyk_olvcolor
/xchart12 xchart4 12 mul def

TBS
xchart4 1 ge { %xchart4 >=1
xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto
xchart4 1 eq {(LABCab 77) show} if
xchart4 2 eq {(CIELAB 76) show} if
xchart4 3 eq {(LABJNDS 87) show} if
xchart4 4 eq {(LABCab 85) show} if
xchart4 5 eq {(CIELAB 76) show} if
xchart4 6 eq {(CIELAB D65) show} if
xchart4 7 eq {(LABHNU1 79) show} if
             } if %xchart4 >=1

xtexti xchart12 3 add get ytexti xchart12 3 add get moveto
TBS
(Name und Farbart) showde                                       %0MF491-6 00581
(Name and chromaticity) showen                                  %1MF491-6 00581
(Nombre y cromaticidad) showes                                  %2MF491-6 00581
(Nom et chromaticit\351) showfr                                 %3MF491-6 00581
(Nome e chromaticit\341) showit                                 %4MF491-6 00581
(Name and chromaticity) showjp                                  %5MF491-6 00581

xtexti xchart12 4 add get ytexti xchart12 4 add get moveto
TBIS FARBE 0 get show
TBL 0 -40 rmoveto FARBE 1 get show 150 40 rmoveto
TBIS FARBE 2 get show

xtexti xchart12 5 add get ytexti xchart12 5 add get moveto
TBIS FARBE 3 get show
TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto
TBIS FARBE 5 get show

xtexti xchart12 6 add get ytexti xchart12 6 add get moveto
TBIS FARBE 6 get show
TBL 0 -40 rmoveto FARBE 7 get show 150 40 rmoveto
TBIS FARBE 8 get show

xtexti xchart12 7 add get ytexti xchart12 7 add get moveto
TBIS FARBE 9 get show
TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto
TBIS FARBE 11 get show

xtexti xchart12 8 add get ytexti xchart12 8 add get moveto
TBIS FARBE 12 get show
TBL 0 -40 rmoveto FARBE 13 get show 150 40 rmoveto
TBIS FARBE 14 get show

xtexti xchart12 9 add get ytexti xchart12 9 add get moveto
TBIS FARBE 15 get show
TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto
TBIS FARBE 17 get show

%xtexti xchart12 10 add get ytexti xchart12 10 add get moveto
%TBIS FARBE 18 get show
%TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto
%TBIS FARBE 20 get show

%xtexti xchart12 11 add get ytexti xchart12 11 add get moveto
%TBIS FARBE 21 get show
%TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto
%TBIS FARBE 23 get show

TBS
0 0 0 1 setcmyk_olvcolor
xtexti xchart12 0 add get ytexti xchart12 0 add get moveto
(Ger\344te\255 & Elementarfarben) showde                        %0MF491-6 02581
(Device and elementary colours) showen                          %1MF491-6 02581
(Colores de dispositivo y elementales) showes                   %2MF491-6 02581
(couleurs p\351riph\351riques et \351l\351mentaires) showfr     %3MF491-6 02581
(colori dispositivo e colori elementari) showit                 %4MF491-6 02581
(Device and elementary colours) showjp                          %5MF491-6 02581

%TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto
%TBS K 0 eq {(=100) show}{(=88,6) show} ifelse

xtexti xchart12 1 add get ytexti xchart12 1 add get moveto
(des) showde                                                    %0MF491-6 03581
(of the) showen                                                 %1MF491-6 03581
(de color) showes                                               %2MF491-6 03581
(de l'espace) showfr                                            %3MF491-6 03581
(del) showit                                                    %4MF491-6 03581
(of the) showjp                                                 %5MF491-6 03581

TBIS
( sRGB) show

TBS
(\255Farbenraums f\374r ) showde                                %0MF491-6 04581
( colour space for ) showen                                     %1MF491-6 04581
( bajo ) showes                                                 %2MF491-6 04581
( pour ) showfr                                                 %3MF491-6 04581
( spazio di colore per ) showit                                 %4MF491-6 04581
( colour space for ) showjp                                     %5MF491-6 04581

TBS TELi xchartl get show

TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto
TBS K 0 eq {(=100) show}{(=88,6) show} ifelse

xtexti xchart12 2 add get ytexti xchart12 2 add get moveto

xchart4 0 eq {%xchart4=0
(in der Normfarbtafel) showde                                   %0MF491-6 04581
(in the chromaticity diagram) showen                            %1MF491-6 04581
(en el diagrama de chromaticidad) showes                        %2MF491-6 04581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-6 04581
(nel diagramma di cromaticit\340) showit                        %4MF491-6 04581
(in the chromaticity diagram) showjp                            %5MF491-6 04581
TBIS ( (x, y)) show
             } if %xchart4=0

xchart4 1 eq {%xchart4=1
(in der Farbtafel) showde                                       %0MF491-6 05581
(in the chromaticity diagram) showen                            %1MF491-6 05581
(en el diagrama de chromaticidad) showes                        %2MF491-6 05581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-6 05581
(nel diagramma di cromaticit\340) showit                        %4MF491-6 05581
(in the chromaticity diagram) showjp                            %5MF491-6 05581
TBIS ( (a, b)) show
             } if %xchart4=1

xchart4 2 eq {%xchart4=2
(in der Farbarbtafel) showde                                    %0MF491-6 06581
(in the chromaticity diagram) showen                            %1MF491-6 06581
(en el diagrama de chromaticidad) showes                        %2MF491-6 06581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-6 06581
(nel diagramma di cromaticit\340) showit                        %4MF491-6 06581
(in the chromaticity diagram) showjp                            %5MF491-6 06581
TBIS ( (a', b')) show
             } if %xchart4=2

xchart4 3 eq {%xchart4=3
(in der Farbarbtafel) showde                                    %0MF491-6 07581
(in the chromaticity diagram) showen                            %1MF491-6 07581
(en el diagrama de chromaticidad) showes                        %2MF491-6 07581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-6 07581
(nel diagramma di cromaticit\340) showit                        %4MF491-6 07581
(in the chromaticity diagram) showjp                            %5MF491-6 07581
TBIS ( (a", b")) show
             } if %xchart4=3

xchart4 4 eq {%xchart4=4
(in Buntwertdiagramm) showde                                    %0MF491-6 08581
(in chromatic value diagram) showen                             %1MF491-6 08581
(en el diagrama valor crom\341tico) showes                      %2MF491-6 08581
(dans la valeur chromatique le diagramme) showfr                %3MF491-6 08581
(nel diagramma di valore cromatico) showit                      %4MF491-6 08581
(in chromatic value diagram) showjp                             %5MF491-6 08581
TBIS ( (A, B)) show
             } if %xchart4=4

xchart4 5 eq {%xchart4=5
(in Buntheitsdiagram) showde                                    %0MF491-6 09581
(in CIELAB diagram) showen                                      %1MF491-6 09581
(en el diagrama CIELAB) showes                                  %2MF491-6 09581
(dans le diagramme de CIELAB) showfr                            %3MF491-6 09581
(nel diagramma di CIELAB) showit                                %4MF491-6 09581
(in CIELAB diagram) showjp                                      %5MF491-6 09581
TBIS ( (a*, b*)) show
             } if %xchart4=5

xchart4 6 eq {%xchart4=6
(in Buntheitsdiagram) showde                                    %0MF491-6 10581
(in chroma diagram) showen                                      %1MF491-6 10581
(en el diagrama croma) showes                                   %2MF491-6 10581
(dans le diagramme de chroma) showfr                            %3MF491-6 10581
(nel diagramma di chroma) showit                                %4MF491-6 10581
(in chroma diagram) showjp                                      %5MF491-6 10581

TBIS ( \050a*) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (, ) show TBIS (b*) show 
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (\051) show

             } if %xchart4=6

xchart4 7 eq {%xchart4=7
(in Buntheitsdiagram) showde                                    %0MF491-6 11581
(in chroma diagram) showen                                      %1MF491-6 11581
(en el diagrama croma) showes                                   %2MF491-6 11581
(dans le diagramme de chroma) showfr                            %3MF491-6 11581
(nel diagramma di chroma) showit                                %4MF491-6 11581
(in chroma diagram) showjp                                      %5MF491-6 11581
TBIS ( (A*, B*)) show
             } if %xchart4=7

xchart4 0 eq {%xchart4=0

600 400 translate

0 0 moveto  4000 0 rlineto  stroke
0 0 moveto  0 3200 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS

   0 -50 moveto  0 100 rlineto  stroke
 800 -50 moveto  0 100 rlineto  stroke
1600 -50 moveto  0 100 rlineto  stroke
2400 -50 moveto  0 100 rlineto  stroke
3200 -50 moveto  0 100 rlineto  stroke
4000 -50 moveto  0 100 rlineto  stroke

-100 -300 moveto (0,0) show
 700 -300 moveto (0,2) show
1500 -300 moveto (0,4) show
2300 -300 moveto (0,6) show
3100 -300 moveto (0,8) show
3900 -300 moveto (1,0) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50    0 moveto  100 0 rlineto  stroke
 -50  800 moveto  100 0 rlineto  stroke
 -50 1600 moveto  100 0 rlineto  stroke
 -50 2400 moveto  100 0 rlineto  stroke
 -50 3200 moveto  100 0 rlineto  stroke

-450  -80 moveto (0,0) show
-450  720 moveto (0,2) show
-450 1520 moveto (0,4) show
-450 2320 moveto (0,6) show
-450 3120 moveto (0,8) show

TIM
-300 2800 moveto (y) show

TIM
4200 150 moveto (x) show

TBIS
2600 150 moveto (CIE 1931) show

-600 -400 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0:  600  400
    600    400 translate
    693     19 moveto
    693     19    692     19    690     19 curveto
    688     19    685     20    681     23 curveto
    675     27    667     34    657     43 curveto
    644     55    626     70    603     90 curveto
    575    118    542    159    496    231 curveto
    438    347    365    530    274    802 curveto
    181   1179     93   1650     32   2153 curveto
     15   2619     55   3000    155   3248 curveto
    297   3335    456   3304    618   3223 curveto
    771   3126    918   3017   1063   2897 curveto
   1206   2769   1349   2635   1492   2497 curveto
   1634   2358   1776   2218   1915   2080 curveto
   2049   1946   2179   1817   2300   1696 curveto
   2411   1585   2508   1489   2592   1405 curveto
   2663   1336   2720   1278   2765   1233 curveto
   2802   1197   2831   1168   2856   1143 curveto
   2876   1123   2892   1107   2903   1096 curveto
   2913   1086   2919   1080   2924   1075 curveto
   2927   1072   2930   1069   2933   1066 curveto
   2936   1063   2937   1062   2938   1061 curveto
   2938   1061   2939   1060   2744    971 curveto
   2261    748   2040    643   1908    582 curveto
   1819    541   1758    512   1708    490 curveto
   1660    468   1612    445   1558    420 curveto
   1495    391   1419    356   1320    309 curveto
   1184    247    986    155    693     19 curveto
 stroke
0 0 0 1 setcmyk_olvcolor
    693     19 30 0 360 arc fill % 400
    681     23 30 0 360 arc fill % 425
    626     70 30 0 360 arc fill % 450
    438    347 30 0 360 arc fill % 475
     32   2153 30 0 360 arc fill % 500
    456   3304 30 0 360 arc fill % 525
   1206   2769 30 0 360 arc fill % 550
   1915   2080 30 0 360 arc fill % 575
   2508   1489 30 0 360 arc fill % 600
   2802   1197 30 0 360 arc fill % 625
   2903   1096 30 0 360 arc fill % 650
   2930   1069 30 0 360 arc fill % 675
   2938   1061 30 0 360 arc fill % 700
   2261    748 30 0 360 arc fill %500c
   1708    490 30 0 360 arc fill %525c
   1419    356 30 0 360 arc fill %550c
0 0 0 1 setcmyk_olvcolor
    693     19 30 0 360 arc stroke % 400
    681     23 30 0 360 arc stroke % 425
    626     70 30 0 360 arc stroke % 450
    438    347 30 0 360 arc stroke % 475
     32   2153 30 0 360 arc stroke % 500
    456   3304 30 0 360 arc stroke % 525
   1206   2769 30 0 360 arc stroke % 550
   1915   2080 30 0 360 arc stroke % 575
   2508   1489 30 0 360 arc stroke % 600
   2802   1197 30 0 360 arc stroke % 625
   2903   1096 30 0 360 arc stroke % 650
   2930   1069 30 0 360 arc stroke % 675
   2938   1061 30 0 360 arc stroke % 700
   2261    748 30 0 360 arc stroke %500c
   1708    490 30 0 360 arc stroke %525c
   1419    356 30 0 360 arc stroke %550c
%   1250   1316 30 0 360 arc fill %D65 
0 0 0 1 setcmyk_olvcolor
TBIS
    693  375 sub     19 250 sub moveto (400) show
%    681 500 sub     23 100 sub moveto (425) show
%    626 500 sub     70 100 sub moveto (450) show
    438 350 sub    347 200 sub moveto (475) show
     32 450 sub   2153 100 sub moveto (500) show
    456 100 add   3304 000 add moveto (525) show
   1206 100 add   2769 000 add moveto (550) show
   1915 080 sub   2080 100 add moveto (575) show
   2508 100 add   1489 000 add moveto (600) show
   2802 100 add   1197 100 add moveto (625) show
%   2903 200 sub   1096 100 add moveto (650) show
%   2930 200 sub   1069 100 add moveto (675) show
   2938 100 add   1061 100 sub moveto (700) show
   2261 100 add    748 200 sub moveto (500c,E) show
   1708 100 add    490 200 sub moveto (525c,E) show
   1419 000 add    356 250 sub moveto (550c,E) show
%   1250 100 add   1316 100 sub moveto (D65 ) show
   -600   -400 translate
 %ENDE: 1

       } if %xchart4=0

xchart4 1 eq {%xchart4=1

500 3200 translate
 
0 400 moveto  4000  0 rlineto  stroke
0 400 moveto  0 -3600 rlineto  stroke
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS
 
   0 350 moveto  0 100 rlineto  stroke
 800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke
 
-150  500 moveto (-0,8) show
 650  500 moveto (0,0) show
1450  500 moveto (0,8) show
2250  500 moveto (1,6) show
3050  500 moveto (2,4) show
3850  500 moveto (3,2) show
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten
 
 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke
 
-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,8) show
-450 -1700 moveto (-1,6) show
%-450 -2500 moveto (-2,4) show

-175 -3050 moveto
90 rotate 
TBIK (b) show TBK (=-0,40) show TBIK (z/y) show
-90 rotate
3650   100 moveto TBIK (a=x/y) show
 
-500 -3200 translate
 
 %1000 02 01 16 01-.03****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200

   1300   3200 translate

%  36136 -68535 moveto
%  36136 -68535  36234 -68875  35958 -68561 curveto
%  35610 -68128  33600 -64560  29424 -56936 curveto
%  24474 -47779  19507 -38551  15143 -30384 curveto
%  11681 -23927   8847 -18653   6639 -14534 curveto
%   4846 -11128   3397  -8271   2147  -5661 curveto
   1261  -3701 moveto
   1261  -3701    688  -2339    342  -1455 curveto
    153   -894     56   -546     15   -336 curveto
      5   -208     18   -125     47    -73 curveto
     89    -44    138    -28    191    -19 curveto
    246    -13    304     -8    366     -5 curveto
    435     -3    512     -2    597     -1 curveto
    693     -1    800      0    920      0 curveto
   1053      0   1198      0   1355      0 curveto
   1520      0   1683      0   1844      0 curveto
   1993      0   2126      0   2242      0 curveto
   2340      0   2424      0   2497      0 curveto
   2559      0   2610      0   2649      0 curveto
   2680      0   2703      0   2718      0 curveto
   2731      0   2741      0   2751      0 curveto
   2760      0   2764      0   2767      0 curveto
   2769      0   2770      0   2824   -116 curveto
   3023   -529   3168   -817   3275  -1036 curveto
   3357  -1209   3430  -1349   3482  -1469 curveto
   3545  -1597   3622  -1746   3704  -1922 curveto
   3817  -2156   3983  -2496   4262  -3058 curveto
%   4786  -4149   6341  -7346  35775 -67850 curveto
 stroke
  0 0 0 1 setcmyk_olvcolor
%  36136 -68535 30 0 360 arc fill % 400
%  29424 -56936 30 0 360 arc fill % 425
%   8847 -18653 30 0 360 arc fill % 450
   1261  -3701 30 0 360 arc fill % 475
     15   -336 30 0 360 arc fill % 500
    138    -28 30 0 360 arc fill % 525
    435     -3 30 0 360 arc fill % 550
    920      0 30 0 360 arc fill % 575
   1683      0 30 0 360 arc fill % 600
   2340      0 30 0 360 arc fill % 625
   2649      0 30 0 360 arc fill % 650
   2741      0 30 0 360 arc fill % 675
   2769      0 30 0 360 arc fill % 700
   3023   -529 30 0 360 arc fill %500c
   3482  -1469 30 0 360 arc fill %525c
   3983  -2496 30 0 360 arc fill %550c
  0 0 0 1 setcmyk_olvcolor
%  36136 -68535 30 0 360 arc stroke % 400
%  29424 -56936 30 0 360 arc stroke % 425
%   8847 -18653 30 0 360 arc stroke % 450
   1261  -3701 30 0 360 arc stroke % 475
     15   -336 30 0 360 arc stroke % 500
    138    -28 30 0 360 arc stroke % 525
    435     -3 30 0 360 arc stroke % 550
    920      0 30 0 360 arc stroke % 575
   1683      0 30 0 360 arc stroke % 600
   2340      0 30 0 360 arc stroke % 625
   2649      0 30 0 360 arc stroke % 650
   2741      0 30 0 360 arc stroke % 675
   2769      0 30 0 360 arc stroke % 700
   3023   -529 30 0 360 arc stroke %500c
   3482  -1469 30 0 360 arc stroke %525c
   3983  -2496 30 0 360 arc stroke %550c
%    950   -435 30 0 360 arc fill %D65
  0 0 0 1 setcmyk_olvcolor
TBIS
% 36136 500 sub -68535 100 sub moveto (400) show
% 29424 500 sub -56936 100 sub moveto (425) show
%  8847 500 sub -18653 100 sub moveto (450) show
%  1261 500 sub  -3701 100 sub moveto (475) show
     15 400 sub   -336 100 sub moveto (500) show
%   138 200 sub    -28 100 add moveto (525) show
    435 200 sub     -3 100 add moveto (550) show
%    920 200 sub      0 100 add moveto (575) show
   1683 200 sub      0 100 add moveto (600) show
   2340 200 sub      0 100 add moveto (625) show
%  2649 200 sub      0 100 add moveto (650) show
%  2741 200 sub      0 100 add moveto (675) show
   2769 100 add      0 150 sub moveto (700) show
   3023 100 add   -529 100 sub moveto (500c,E) show
   3482 800 sub  -1469 050 sub moveto (525c,E) show
%  3983 500 sub  -2496 100 sub moveto (550c,E) show
%    950 100 add   -435 100 sub moveto (D65 ) show

  -1300  -3200 translate
 %ENDE: 2

             } if %xchart4=1

xchart4 2 eq {%xchart4=2

600 3200 translate

0 400 moveto  4400  0 rlineto  stroke
0 400 moveto  0 -3600 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS

 000 350 moveto  0 100 rlineto  stroke
0800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

-200  500 moveto (0,00) show
 600  500 moveto (0,06) show
1400  500 moveto (0,12) show
2200  500 moveto (0,18) show
3000  500 moveto (0,24) show
3800  500 moveto (0,30) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke

-575  -100 moveto (  0,00) show
-575  -900 moveto (-0,06) show
-575 -1700 moveto (-0,12) show
-575 -2500 moveto (-0,18) show

TIM
-380  -1300 moveto (b') show
4300 250 moveto (a') show

-600 -3200 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0:  400 3200

    400   3200 translate

   9657  -6202 moveto
   9657  -6202   9666  -6212   9642  -6203 curveto
   9610  -6190   9426  -6080   9018  -5830 curveto
   8481  -5499   7863  -5120   7227  -4729 curveto
   6628  -4367   6041  -4019   5490  -3698 curveto
   4943  -3383   4391  -3065   3769  -2701 curveto
   3156  -2344   2578  -2012   2043  -1717 curveto
   1565  -1460   1123  -1239    723  -1054 curveto
    527   -898    772   -759   1060   -634 curveto
   1304   -535   1510   -464   1685   -408 curveto
   1832   -356   1965   -309   2091   -267 curveto
   2214   -230   2337   -200   2460   -176 curveto
   2585   -157   2712   -145   2841   -139 curveto
   2972   -138   3103   -133   3233   -126 curveto
   3359   -126   3475   -120   3582   -113 curveto
   3676    -98   3756    -91   3823    -88 curveto
   3878    -75   3924    -64   3963    -57 curveto
   3995    -54   4022    -46   4042      0 curveto
   4057      0   4069      0   4077      0 curveto
   4083      0   4088      0   4093      0 curveto
   4097      0   4100      0   4101      0 curveto
   4102      0   4103      0   4129   -740 curveto
   4224  -1226   4290  -1417   4338  -1533 curveto
   4374  -1614   4405  -1674   4427  -1723 curveto
   4454  -1771   4486  -1825   4520  -1884 curveto
   4565  -1958   4630  -2056   4736  -2200 curveto
   4923  -2435   5407  -2946   9625  -6181 curveto
 stroke
 0 0 0 1 setcmyk_olvcolor
   9657  -6202 30 0 360 arc fill % 400
   9018  -5830 30 0 360 arc fill % 425
   6041  -4019 30 0 360 arc fill % 450
   3156  -2344 30 0 360 arc fill % 475
    723  -1054 30 0 360 arc fill % 500
   1510   -464 30 0 360 arc fill % 525
   2214   -230 30 0 360 arc fill % 550
   2841   -139 30 0 360 arc fill % 575
   3475   -120 30 0 360 arc fill % 600
   3878    -75 30 0 360 arc fill % 625
   4042      0 30 0 360 arc fill % 650
   4088      0 30 0 360 arc fill % 675
   4102      0 30 0 360 arc fill % 700
   4224  -1226 30 0 360 arc fill %500c
   4427  -1723 30 0 360 arc fill %525c
   4630  -2056 30 0 360 arc fill %550c
 0 0 0 1 setcmyk_olvcolor
   9657  -6202 30 0 360 arc stroke % 400
   9018  -5830 30 0 360 arc stroke % 425
   6041  -4019 30 0 360 arc stroke % 450
   3156  -2344 30 0 360 arc stroke % 475
    723  -1054 30 0 360 arc stroke % 500
   1510   -464 30 0 360 arc stroke % 525
   2214   -230 30 0 360 arc stroke % 550
   2841   -139 30 0 360 arc stroke % 575
   3475   -120 30 0 360 arc stroke % 600
   3878    -75 30 0 360 arc stroke % 625
   4042      0 30 0 360 arc stroke % 650
   4088      0 30 0 360 arc stroke % 675
   4102      0 30 0 360 arc stroke % 700
   4224  -1226 30 0 360 arc stroke %500c
   4427  -1723 30 0 360 arc stroke %525c
   4630  -2056 30 0 360 arc stroke %550c
%   2872  -1148 30 0 360 arc fill %D65 
 0 0 0 1 setcmyk_olvcolor
TBIS
%   9657 500 sub  -6202 100 sub moveto (400) show
%   9018 500 sub  -5830 100 sub moveto (425) show
%   6041 500 sub  -4019 100 sub moveto (450) show
   3156 400 sub  -2344 100 sub moveto (475) show
    723 250 sub  -1054 250 sub moveto (500) show
   1510 200 sub   -464 150 add moveto (525) show
   2214 200 sub   -230 100 add moveto (550) show
   2841 200 sub   -139 100 add moveto (575) show
   3475 200 sub   -120 100 add moveto (600) show
%   3878 200 sub    -75 100 add moveto (625) show
%   4042 200 sub      0 100 add moveto (650) show
%   4088 200 sub      0 100 add moveto (675) show
   4102 050 add      0 100 sub moveto (700) show
   4224 050 add  -1226 000 sub moveto (500c,E) show
   4427 010 sub  -1723 100 add moveto (525c,E) show
%   4630 100 add  -2056 100 sub moveto (550c,E) show
%   2872 050 add  -1148 000 sub moveto (D65 ) show

   -400  -3200 translate

 %ENDE: 3

             } if %xchart4=2

xchart4 3 eq {%xchart4=3

600 3200 translate

0 400 moveto  4400  0 rlineto  stroke
0 400 moveto  0 -3500 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS
   0 350 moveto  0 100 rlineto  stroke
 800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

-250  500 moveto (-0,6) show
 650  500 moveto (0,0) show
1450  500 moveto (0,6) show
2250  500 moveto (1,2) show
3050  500 moveto (1,8) show
3850  500 moveto (2,4) show
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke

-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,6) show
-450 -1700 moveto (-1,2) show
-450 -2500 moveto (-1,8) show

TBIK
-450  -2900 moveto (b") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK
4050 200 moveto (a") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK

-600 -3200 translate
 
 %1000 02             ****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0:  700 3200
    700 800 add  3200 translate
   3789  -3170 moveto
   3789  -3170   3789  -3170   3788  -3170 curveto
   3787  -3170   3779  -3166   3757  -3155 curveto
   3724  -3138   3673  -3113   3603  -3079 curveto
   3514  -3037   3394  -2982   3239  -2915 curveto
   3028  -2826   2734  -2704   2265  -2508 curveto
   1626  -2234    957  -1880    645  -1481 curveto
    507  -1078    443   -720    417   -455 curveto
    411   -308    419   -223    437   -171 curveto
    464   -144    496   -130    533   -121 curveto
    573   -115    616   -111    664   -108 curveto
    721   -107    787   -105    867   -105 curveto
    963   -104   1081   -104   1227   -104 curveto
   1397   -104   1561   -104   1716   -104 curveto
   1858   -104   1981   -104   2090   -104 curveto
   2180   -104   2254   -104   2313   -104 curveto
   2360   -103   2397   -103   2429   -103 curveto
   2455   -103   2476   -103   2491   -103 curveto
   2503   -103   2512   -103   2517   -103 curveto
   2522   -103   2526   -103   2530   -103 curveto
   2533   -103   2535   -103   2536   -103 curveto
   2536   -103   2537   -103   2556   -214 curveto
   2623   -700   2668  -1007   2700  -1196 curveto
   2723  -1324   2742  -1416   2756  -1488 curveto
   2772  -1560   2791  -1636   2811  -1717 curveto
   2837  -1813   2873  -1933   2929  -2093 curveto
   3019  -2313   3211  -2648   3788  -3169 curveto
 stroke
 1 setgray
   3789  -3170 30 0 360 arc fill % 400
   3757  -3155 30 0 360 arc fill % 425
   3394  -2982 30 0 360 arc fill % 450
   1626  -2234 30 0 360 arc fill % 475
    417   -455 30 0 360 arc fill % 500
    496   -130 30 0 360 arc fill % 525
    721   -107 30 0 360 arc fill % 550
   1227   -104 30 0 360 arc fill % 575
   1981   -104 30 0 360 arc fill % 600
   2360   -103 30 0 360 arc fill % 625
   2491   -103 30 0 360 arc fill % 650
   2526   -103 30 0 360 arc fill % 675
   2536   -103 30 0 360 arc fill % 700
   2623   -700 30 0 360 arc fill %500c
   2756  -1488 30 0 360 arc fill %525c
   2873  -1933 30 0 360 arc fill %550c
 0 setgray
   3789  -3170 30 0 360 arc stroke % 400
   3757  -3155 30 0 360 arc stroke % 425
   3394  -2982 30 0 360 arc stroke % 450
   1626  -2234 30 0 360 arc stroke % 475
    417   -455 30 0 360 arc stroke % 500
    496   -130 30 0 360 arc stroke % 525
    721   -107 30 0 360 arc stroke % 550
   1227   -104 30 0 360 arc stroke % 575
   1981   -104 30 0 360 arc stroke % 600
   2360   -103 30 0 360 arc stroke % 625
   2491   -103 30 0 360 arc stroke % 650
   2526   -103 30 0 360 arc stroke % 675
   2536   -103 30 0 360 arc stroke % 700
   2623   -700 30 0 360 arc stroke %500c
   2756  -1488 30 0 360 arc stroke %525c
   2873  -1933 30 0 360 arc stroke %550c
   1266   -580 30 0 360 arc fill %D65
 0 setgray
TBIS
   3789 200 sub  -3170 200 add moveto (400) show
%  3757 600 sub  -3155 100 sub moveto (425) show
%  3394 600 sub  -2982 100 sub moveto (450) show
   1626 050 sub  -2234 150 add moveto (475) show
    417 430 sub   -455 100 sub moveto (500) show
    496 400 sub   -130  50 add moveto (525) show
    721 200 sub   -107 100 add moveto (550) show
   1227 200 sub   -104 100 add moveto (575) show
   1981 200 sub   -104 100 add moveto (600) show
%  2360 200 sub   -103 100 add moveto (625) show
%  2491 200 sub   -103 100 add moveto (650) show
%  2526 200 sub   -103 100 add moveto (675) show
   2536 100 add   -103         moveto (700) show
   2623 100 add   -700 100 sub moveto (500c) show
   2756 100 add  -1488 100 sub moveto (525c) show
%   2873 100 add  -1933 100 sub moveto (550c) show
%   1266 100 add   -580 100 sub moveto (D65 ) show
   700 800 add neg -3200 translate
 %ENDE: 3

             } if %xchart4=3

xchart4 4 ge xchart4 7 le and {%4>=xchart4<=7

3500 2000 translate

%axis and scales
0 0 0 1 setcmyk_olvcolor
-2250 0 moveto 3950  0 rlineto stroke
0 -1880  moveto 0 3600  rlineto stroke
1700 100 sub 50 moveto 100 -50 rlineto
                      -100 -50 rlineto closepath fill
0 50 sub 1800 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill

/xt10x 5 array def
/yt10x 5 array def

xchart4 4 eq {%xchart4=4
/xt10x [(-40) ( ) ( ) ( ) (  40)] def
/yt10x [(-40) ( ) ( ) ( ) (40)] def
             } if %xchart4=3

xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7
/xt10x [(-120) ( ) ( ) ( ) (  120)] def

/yt10x [(-120) ( ) ( ) ( ) (120)] def
             } if %4>=xchart4<=6

0 0 0 1 setcmyk_olvcolor
0 1 4 {/i exch def %i=0,4 x-axis
        -1600   i 800   mul add  -75 moveto 0 150 rlineto stroke
        -1800   i 800   mul add -250 moveto
        TBS xt10x i get show
        i 4 eq {-1600 i 800 mul add 0 moveto
               xchart4 4 eq { %xchart4=4
                             000 150 rmoveto
                             TBIM (A) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -50 150 rmoveto
                             TBIM (a*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -350 150 rmoveto
                             TBIM (a*) show 
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -50 150 rmoveto
                             TBIM (A*) show TL
                            } if %xchart4=7
               } if

       } for %i=0,4

0 1 4 {/i exch def %i=0,4 y-axis
       -75 -1600 i 800 mul    add moveto 150 0 rlineto stroke
       100 -1600 i 800 mul    add 100 sub moveto
       TBS yt10x i get show
       i 4 eq {0 -1600 i 800 mul add moveto
               xchart4 4 eq { %xchart4=4
                             -250 150 rmoveto
                             TBIM (B) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -400 150 rmoveto
                             TBIM (b*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -750 150 rmoveto
                             TBIM (b*) show
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -300 150 rmoveto
                             TBIM (B*) show TL
                            } if %xchart4=7
             } if

       } for %i=0,4


-3500 -2000 translate

} if %4>=xchart4<=7

%*******************************************************
%actual data

/imshow {0 -50 rmoveto TBL (d) show 0 50 rmoveto TBIS} def
/ioshow {0 -50 rmoveto TBL (e) show 0 50 rmoveto TBIS} def

%*************************************************
xchart4 0 eq {%xchart4=0 %only for (x,y)

/fakt 4000 def

600 400 translate %for scala and graphic

0 1 05 {/i exch def %i=0,39
        XANi i get fakt mul
        YANi i get fakt mul 
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XANW fakt mul YANW fakt mul 90 0 360 arc stroke
XANW fakt mul 200 sub YANW fakt mul 250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9
/SUM Xi i get
     Yi i get add
     Zi i get add 0.0001 add def 
/AnY Xi i get SUM div fakt mul def
/BnY Yi i get SUM div fakt mul def

i 0 eq {AnY 100 sub BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 150 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 350 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 350 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

-600 -400 translate %for scala and grafic

} if %xchart4=0

xchart4 1 eq {%xchart4=1 %only for (a,b)

/fakt 1000 def
/a2 XW YW 0.0001 add div def
/b2 ZW YW 0.0001 add div -0.4 mul def

 1300 3200 translate %for grafic

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div fakt mul %a
        Zi i get Yi i get 0.0001 add div fakt mul %b
        0.4 mul neg
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW YW 0.0001 add div fakt mul
ZW YW 0.0001 add div fakt mul
0.4 mul neg 90 0 360 arc stroke

XW YW 0.0001 add div fakt mul
200 sub
ZW YW 0.0001 add div fakt mul
0.4 mul neg
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9
/AnY Xi i get Yi i get 0.0001 add div
     fakt mul def
/BnY Zi i get Yi i get 0.0001 add div
     fakt mul 0.4 mul neg def
i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 250 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

-1300 -3200 translate %for grafic

} if %xchart4=1


xchart4 2 eq {%xchart4=2 %only for (a',b')

/D13 1 3 div def
/fakt 13333 def

/a2 XW YW 0.0001 add div
    D13 exp 0.2191 mul def
/b2 ZW YW 0.0001 add div 
    D13 exp -0.08376 mul def

 200 3200 translate %for graphic

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div                 %a'
        D13 exp 0.2191 mul fakt mul
        Zi i get Yi i get 0.0001 add div                 %b' 
        D13 exp -0.08376 mul fakt mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW YW 0.0001 add div                 %a'
D13 exp 0.2191 mul fakt mul
ZW YW 0.0001 add div                 %b' 
D13 exp -0.08376 mul fakt mul
90 0 360 arc stroke

XW YW 0.0001 add div                 %a'
D13 exp 0.2191 mul fakt mul
200 sub
ZW YW 0.0001 add div                 %b' 
D13 exp -0.08376 mul fakt mul
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9

/AnY Xi i get Yi i get 0.0001 add div       %a'
     D13 exp 0.2191 mul fakt mul def
/BnY Zi i get Yi i get 0.0001 add div       %b'
     D13 exp -0.08376 mul fakt mul def

i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

-200  -3200 translate %for graphic

} if %xchart4=2

xchart4 3 eq {%xchart4=3 %only for (a",b")

%100 3800 moveto TIS ((a",b") (LAB 1977)) show

/fakt 1333 def
/XD65 95.04 def
/YD65 100.00 def
/ZD65 108.89 def
/aD65 XD65 YD65 0.0001 add div def
/bD65 ZD65 YD65 0.0001 add div -0.4 mul def
/a2 aD65 def
/b2 bD65 def

 700 800 add 3200 translate %for grafic

0 1 05 {/i exch def %i=0,39
        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

a"n fakt mul
b"n fakt mul
90 0 360 arc stroke

a"n fakt mul
200 sub
b"n fakt mul
250 sub moveto
TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9

        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def

/AnY a" fakt mul def
/BnY b" fakt mul def

i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 250 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

700 800 add neg -3200 translate %for graphic

} if %xchart4=3

xchart4 4 eq {%xchart4=4 %only for (A,B)

/fakt 40 def
/a2 1.00 def
/b2 -0.4 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (A) show
TBS ( = \050) show
TBIS (a) show
TBS ( - ) show
TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1300 moveto
TBIS (B) show
TBS ( = \050) show
TBIS (b) show
TBS ( - ) show
TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show
TBS (]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show
TBS (]) show

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1) show

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -0,4) show

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div          %(a-an)Y
        XK       YK       0.0001 add div sub
        Yi i get mul fakt mul
        Zi i get Yi i get 0.0001 add div          %(b-bn)Y
        ZK       YK       0.0001 add div sub 0.4 mul neg
        Yi i get mul fakt mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div                 %(a-an)YW
XK       YK       0.0001 add div sub
YW mul fakt mul
ZW       YW       0.0001 add div                 %(b-an)YW
ZK       YK       0.0001 add div sub 0.4 mul neg
YW mul fakt mul
90 0 360 arc stroke

0 080 add
0 080 add moveto
TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9

/AnY Xi i get Yi i get 0.0001 add div          %(a-an)Y
     XK       YK       0.0001 add div sub
     Yi i get mul fakt mul def
/BnY Zi i get Yi i get 0.0001 add div          %(b-bn)Y
     ZK       YK       0.0001 add div sub 0.4 mul neg
     Yi i get mul fakt mul def

i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

} if %xchart4=4

xchart4 5 eq {%xchart4=5 %only for (a*,b*)

/D13 1 3 div def
/fakt 40 3 div def
/a2 1 XW div D13 exp def
/b2 1 ZW div D13 exp -0.4 mul def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b' = b2 (z/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div
D13 exp a2 mul
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D13 exp b2 mul
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

90 0 360 arc stroke


XW       YW       0.0001 add div
D13 exp a2 mul
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div
D13 exp b2 mul
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9

/AnY    Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b'= b2 (x/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

-3500 -2000 translate %for text and grafic

} if %xchart4=5

xchart4 6 eq {%xchart4=6 %only for (a*,b*) with const. for D65

/D13 1 3 div def
/fakt 40 3 div def
/a2 0.2191 def
/b2 -0.08376 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a') show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b') show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b'= b2 (z/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div
D13 exp a2 mul
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D13 exp b2 mul
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

90 0 360 arc stroke

XW       YW       0.0001 add div             %500(a'-a'n)Y**(1/3)
D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div             %500(b'-b'n)Y**(1/3)
D13 exp b2 mul                               %a'= a2 (x/y)**(1/3)
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9

/AnY    Xi i get Yi i get 0.0001 add div
        D13 exp a2 mul
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div
        D13 exp b2 mul
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

-3500 -2000 translate %for text and grafic

} if %xchart4=6

xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65

/D13 1 3 div def
/D11 1 def
/D16  1 6 div def
/fakt 40 3 div def
/a2 1 15 div def
/b2 1 12 div neg def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS ( + 1]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS ( + 1/6 ]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1/15 = ) show a2 cvsshow5

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -1/12 = ) show b2 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div            %500(a'-a'n)Y**(1/3)
        D11 add a2 mul                              %a'=(x/y+1)/15
        XK       YK       0.0001 add div
        D11 add a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
                                                       
        Zi i get Yi i get 0.0001 add div            %500(b'-b'n)Y**(1/3)
        D16 add D13 exp b2 mul                      %b'=-[(z/y +1/6)**(1/3)]/12
        ZK       YK       0.0001 add div
        D16 add D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

XW       YW       0.0001 add div
D11 add a2 mul
XK       YK       0.0001 add div
D11 add a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D16 add D13 exp b2 mul
ZK       YK       0.0001 add div
D16 add D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

90 0 360 arc stroke

XW       YW       0.0001 add div
D11 add a2 mul
XK       YK       0.0001 add div
D11 add a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div
D16 add D13 exp b2 mul
ZK       YK       0.0001 add div
D16 add D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9

/AnY    Xi i get Yi i get 0.0001 add div            %500(a'-a'n)Y**(1/3)
        D11 add a2 mul                              %a'=(x/y+1)/15
        XK       YK       0.0001 add div
        D11 add a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div            %500(b'-b'n)Y**(1/3)
        D16 add D13 exp b2 mul                      %b'=-[(z/y +1/6)**(1/3)]/12
        ZK       YK       0.0001 add div
        D16 add D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

i 0 eq {AnY 150 add BnY 250 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 400 sub BnY 150 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 400 sub BnY 050 sub moveto (C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 400 sub BnY 050 sub moveto (M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 000 add BnY 250 sub moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 400 sub BnY 050 sub moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

-3500 -2000 translate %for text and grafic

} if %xchart4=7

showpage
grestore

%} for %xchartl=0,7

} for %xchart4=0,7

%} for %xcolorl=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 020 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 27

%line 489
%!PS-Adobe-3.0 EPSF-3.0 MF491-7
%%BoundingBox: 70 83 226 206

%START PDFDE011.EPS
/pdfmark17 where {pop} {userdict /pdfmark17 /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/MF49/)
  /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:2012070112000)
  /ModDate (D:2012070112000)
/DOCINFO pdfmark17
[ /View [ /FitB ]
/DOCVIEW pdfmark17
%END  PDFDE011

%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} bind def

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Times-ISOL1 exch definefont pop

/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesI-ISOL1 exch definefont pop

/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesB-ISOL1 exch definefont pop

/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesBI-ISOL1 exch definefont pop

/Courier findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Courier-ISOL1 exch definefont pop

/Courier-Oblique findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierI-ISOL1 exch definefont pop

/Courier-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierB-ISOL1 exch definefont pop

/Courier-BoldOblique findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierBI-ISOL1 exch definefont pop

/TG   {350 /Times-ISOL1 FS} bind def
/TM   {280 /Times-ISOL1 FS} bind def
/TK   {240 /Times-ISOL1 FS} bind def
/TS   {200 /Times-ISOL1 FS} bind def
/TL   {160 /Times-ISOL1 FS} bind def

/TIG  {350 /TimesI-ISOL1 FS} bind def
/TIM  {280 /TimesI-ISOL1 FS} bind def
/TIK  {240 /TimesI-ISOL1 FS} bind def
/TIS  {200 /TimesI-ISOL1 FS} bind def
/TIL  {160 /TimesI-ISOL1 FS} bind def

/TBG  {350 /TimesB-ISOL1 FS} bind def
/TBM  {280 /TimesB-ISOL1 FS} bind def
/TBK  {240 /TimesB-ISOL1 FS} bind def
/TBS  {200 /TimesB-ISOL1 FS} bind def
/TBL  {160 /TimesB-ISOL1 FS} bind def

/TBIG {350 /TimesBI-ISOL1 FS} bind def
/TBIM {280 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIL {160 /TimesBI-ISOL1 FS} bind def

/SG {350 /Symbol FS} bind def
/SM {280 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SS {200 /Symbol FS} bind def
/SS {160 /Symbol FS} bind def

%%EndProlog
gsave

%lanindL2.EPS START  20000505
/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm  {6 lanind eq {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 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} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

/SD65 80 array def %380 bis 775 mit deltalambda=05
/SD50 80 array def %380 bis 775 mit deltalambda=05
/SP40 80 array def %380 bis 775 mit deltalambda=05
/SA00 80 array def %380 bis 775 mit deltalambda=05
/SE00 80 array def %380 bis 775 mit deltalambda=05
/SC00 80 array def %380 bis 775 mit deltalambda=05

/SDAK 80 array def %380 bis 775 mit deltalambda=05
/RA   80 array def %380 bis 770 nm
/F2  240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm

/F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm

%C
%C      LITERATURQUELLEN  LICHTARTEN
%C      SA,SC,SD65,  CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 1.1.1, SEITE 81
%C      SD55,SD75,   CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 1.1.4, SEITE 85
%C                   LINEAR INTERPOLIERT VON 5 ZU 5NM
%C      SG,SP,SXE,   DIN 5033, BLATT 7 ,SEITE 8-9
%C                   AUSGABE  1966

/SD65 %80 data 5 nm
[50.0  52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7
 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9
 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7
 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2
 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7
 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7
 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0
 46.4 56.6 66.8 65.1] def

/SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS
[24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9
 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2
 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6
102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3
 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4
 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1
 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7
 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used

/SA00 %80 data 5 nm CIE 15.3  Seite 30; aus JE540-1N.PS
[9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99
 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30
 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06
 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44
 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39
 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42
 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12
 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41
 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59
 232.12 234.59 237.01 239.37 0.0] def %0.0 not used

% AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92
%C     PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI-
%C     LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA
%C     BEI GEGEBENER TEMPERATUR T
%C     VERWENDETE VARIABLE
%C        T                   TEMPERATUR
%C        C2                  PLANCKSCHE KONSTANTE (=1.4388 CM K (1967))
%C        LAMDA(I)            WELLENLAENGE
%C        S(I)                STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS
%C
%C     LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION,
%C               CA. 1969, SEITE 21 UND TABELLE 1.1.1
%C
%SDP4 80 array def %380 bis 775 mit deltalambda=05
%      DO 50 I=1,54
%   50 S(I)=100.
%     1*(560./FLOAT(LAMDA(I)))**5
%     2*(EXP(C2/(560.*10.**(-7)*T))-1.)
%     3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.)

%new CIE 15.3:2004, Eq. (3.1) page 2
%S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560   )} - 1]
%                           /[exp{(c2*10**7)/(TNC*lambda)} - 1]
% exp = e {...} = 2.71 {...}

%/TNC 2848 def %NLA
/TNC 4000 def
/EE 2.718281 def %e=mac pocket calculator
/C2 1.4350000 10 7 exp mul def
/lamd 80 array def


0 1 79 {%i=0,79
        /i exch def
        /lambda 380 i 5 mul add def
        lamd i lambda put
        /E1 560 lambda div 5 exp def

        /E4 C2 TNC 560    mul div def
        /E5 C2 TNC lambda mul div def

        /E6 EE E4 exp def
        /E7 EE E5 exp def

        SP40 i
        E1 100 mul E6 1 sub
                   E7 1 sub div mul

        put
       } for %i=0,79

/xex 10 2 exp def
/yex EE 2 exp def

/SE00 %80 data 5 nm
[100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used

/SC00 %80 data 5 nm
[ 33.00  39.92  47.40  55.17  63.30  71.81  80.60  89.53  98.10 105.80
 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09
 123.90 122.92 120.70 116.90 112.10 106.98 102.30  98.81  96.90  96.78
  98.00  99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15
  97.80  95.43  93.20  91.22  89.70  88.83  88.40  88.19  88.10  88.06
  88.00  87.86  87.80  87.99  88.20  88.20  87.90  87.22  86.30  85.30
  84.00  82.21  80.20  78.24  76.30  74.36  72.40  70.40  68.30  66.30
  64.40  62.80  61.50  60.20  59.20  58.50  58.10  58.00  58.20  58.50
 ] def %0.0 not used

%C      LITERATURQUELLEN  SPEKTRALWERTE
%C       F2          CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 2.1, SEITE 93-102

/F2  %3x80 data
[.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763
 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511
 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291
 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784
 .7621
 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384
 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212
 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579
 .004109 .002899 .002049 .001440 .0009999 .0006901
 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871
 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218
 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739
 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71
 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952
 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321
 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017
 .01192 .00821 .005723 .004102 .002929 .002091 .001484
 .001047 .00074 .00052 .0003611 .0002492 .0001719
 .00012 .0000848 .00006 .0000424 .00003 .0000212
 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456
 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692
 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123
 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875
 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008
 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20
 0.0 0.0 0.0 0.0 0.0 0.0 %26
] def

%calculation of transformation data
/FARBE 27 array def
/FARBE [(R) (d,RECS) ( ) %( 648) %00
        (Y) (d,RECS) ( ) %( 720) %01
        (G) (d,RECS) ( ) %( 072) %02
        (C) (d,RECS) ( ) %( 080) %03
        (B) (d,RECS) ( ) %( 008) %04
        (M) (d,RECS) ( ) %( 11) %05
        (N) (d,RECS) ( ) %( 13) %06
        (W) (d,RECS) ( ) %( 15) %07
        (W) (1) ( 380_770) %08
       ] def

/xshift 10 array def %max 6 device + 4 elementary
/yshift 10 array def
/colori 10 array def

/RX10 324 array def %9x36=324
/RX10[

%r00y M512 S19 648%from KE070-7.EPS index 0..35
%380 %390 %400 %410 %420 %430 %440 %450 %460 %470 %480 %490 %500 %510 %520 %530 %540 %550
1110 0895 0672 0519 0431 0395 0385 0395 0433 0421 0392 0456 0606 0671 0579 0491 0463 0412
%560 %570 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 %680 %690 %700 %710 %720 %730
0326 0282 0480 1941 4745 6921 8006 8456 8646 8741 8794 8804 8816 8818 8836 8854 8852 8874

%y00g M0720 a19 720
1993 1705 1317 0970 0727 0618 0565 0610 0776 0906 1011 1568 3114 5449 7302 8087 8387 8536
8599 8661 8685 8726 8735 8758 8792 8817 8847 8877 8899 8892 8889 8884 8895 8908 8899 8915

%g00c M216 I01 072
0586 0806 0856 0747 0604 0542 0528 0579 0734 0851 0942 1424 2726 4389 5085 4680 3882 2955
2037 1380 1018 0844 0722 0642 0632 0650 0686 0789 0945 1042 1014 0933 0800 0699 0765 1042

%c00b M224 I09 080
1582 2651 3877 4873 5337 5910 6677 7266 7480 7542 7489 7330 7054 6601 5932 5055 4105 3100
2123 1420 1036 0855 0729 0652 0647 0670 0712 0820 0979 1075 1048 0964 0828 0731 0804 1092

%b00m M008 A09 008
0732 1175 1580 1894 2061 2295 2574 2672 2486 2167 1826 1515 1225 0932 0661 0491 0392 0279
0177 0153 0200 0356 0504 0526 0535 0551 0579 0662 0794 0877 0854 0785 0670 0588 0643 0880

%m00r M504 S27 656
2669 2489 2334 2317 2373 2494 2614 2569 2322 1965 1613 1307 1041 0783 0566 0458 0434 0381
0301 0279 0498 1945 4711 6865 7948 8404 8598 8697 8753 8768 8780 8789 8807 8829 8828 8845

%n000 0000 A01 000
0260 0282 0289 0299 0312 0318 0332 0337 0350 0355 0363 0368 0370 0370 0365 0356 0347 0340
0334 0334 0336 0340 0348 0358 0372 0386 0402 0422 0442 0464 0487 0516 0546 0576 0607 0635

%w000 0729 a27 729
7322 7764 8029 8251 8412 8557 8685 8784 8877 8919 8957 9002 9036 9061 9094 9087 9096 9094
9076 9103 9089 9090 9082 9096 9124 9142 9170 9196 9214 9207 9200 9197 9203 9219 9207 9223

%w100 0729
7322 7764 8029 8251 8412 8557 8685 8784 8877 8919 8957 9002 9036 9061 9094 9087 9096 9094
9076 9103 9089 9090 9082 9096 9124 9142 9170 9196 9214 9207 9200 9197 9203 9219 9207 9223
] def

/RX05 80 array def %1x80
/RX05 [
%(%W1(r=1,000) 10 380_770)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000

%480 %485 %490 %495 %500 %505 %510 %515 %520 %525
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%530 %535 %540 %545 %550 %555 %560 %565 %570 %575
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000

%580 %585 %590 %595 %600 %605 %610 %615 %620 %625
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%630 %635 %640 %645 %650 %655 %660 %665 %670 %675
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000

%680 %685 %690 %695 %700 %705 %710 %715 %720 %725
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%730 %735 %740 %745 %750 %755 %760 %765 %770 %775
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
] def

/RX0 720 array def
0 1 8 {/j exch def %j=0,8 9 Test colours
        /j36 36 j mul def
        /j80 80 j mul def
0 1 39 {/i exch def %i=0,39
        /i2 i 2 mul def
        RX0 j80 i2 add
        i 34 le {RX10 j36  i add get 0.1 mul cvi put}
                {RX10 j36 35 add get 0.1 mul cvi put} ifelse

        RX0 j80 i2 add 1 add
        i 34 le {RX10 j36 i add       get
                 RX10 j36 i add 1 add get
                 add 0.5 mul 0.1 mul cvi put
                }
                {
                RX10 j36 35 add       get 0.1 mul cvi put
                } ifelse
        } for %i=0,39

       } for %j=0,8

%640 1 719 {/i exch def %i=640,719
%           RX0 i RX05 i 640 sub get put
%          } for

%C      LITERATURQUELLEN  SPEKTRALWERTE
%C       F2          CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 2.1, SEITE 93-102

/F2 240 array def
/F2  %3x80 data
[.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763
 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511
 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291
 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784
 .7621
 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384
 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212
 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579
 .004109 .002899 .002049 .001440 .0009999 .0006901
 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871
 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218
 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739
 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71
 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952
 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321
 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017
 .01192 .00821 .005723 .004102 .002929 .002091 .001484
 .001047 .00074 .00052 .0003611 .0002492 .0001719
 .00012 .0000848 .00006 .0000424 .00003 .0000212
 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456
 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692
 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123
 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875
 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008
 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20
 0.0 0.0 0.0 0.0 0.0 0.0 %26
] def

/YKSUM 0 def %For CIE Illuminant E
0 1 79 {/i exch def %i=0,1,79
        /YKSUM YKSUM F2  80 i add get add def
} for %i=0,1,79

/F2N 240 array def
0 1 79 {/i exch def %i=0,1,79
        F2N  00 i add F2  00 i add get YKSUM div 100 mul put
        F2N  80 i add F2  80 i add get YKSUM div 100 mul put
        F2N 160 i add F2 160 i add get YKSUM div 100 mul put
} for %i=0,1,79

/FXN 80 array def %FXN 0 = F2N imax
/FYN 80 array def
/FZN 80 array def
%defines FXN, FYN, FZN 0 to 79
0 1 79 {/i exch def %i=0,79
        FXN i F2N 000 i add get put
        FYN i F2N 080 i add get put
        FZN i F2N 160 i add get put
} for %i=0,79

%special wavelength range with complementary colours for E?
/FXD 63 array def
/FYD 63 array def
/FZD 63 array def
/DOW 63 array def

00 1 60 {/i exch def %i=0,60 %range 400..700nm
         FXD i FXN 005 i add get put
         FYD i FYN 005 i add get put
         FZD i FZN 005 i add get put
         DOW i 400 i 5 mul add put %range 400 to 700
        } for %i=0,60

%for interpolation
FXD 61 FXD 60 get put
FYD 61 FYD 60 get put
FZD 61 FZD 60 get put

FXD 62 FXD 60 get put
FYD 62 FYD 60 get put
FZD 62 FZD 60 get put

/FAD 63 array def
/FBD 63 array def
/FCD 63 array def

/xdel  1030 def
/ydel   350 def
/x0 600 def

/TELi 6 array def
/TELi [(D65) (D50) (P40) (A00) (E00) (C00)] def %6 illuminants

/xchart4 0 def %
%0 1 4 {/xchart4 exch def %xchart4=0,4

/xchartl 0 def
%0 1 5 {/xchartl exch def %xchartl=0,5 (6 illuminants)

/K 0 def %no normalization

gsave

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

5 /Times-ISOL1 FS
180 85 moveto
(MF491-7) show
%xchart 0 ge {(A) show} if
%(_) show xchart 1 add cvishow
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate

0.010 MM dup scale

25 setlinewidth
0 0 0 0 setcmyk_olvcolor
0 0 moveto 5400     0 rlineto 0 4000 rlineto
           5400 neg 0 rlineto closepath fill

0 0  moveto  5400 0 rlineto 0 4000 rlineto
            -5400 0 rlineto closepath clip

0 0 0 1 setcmyk_olvcolor
0 0 moveto 5400     0 rlineto 0 4000 rlineto
           5400 neg 0 rlineto closepath stroke

0 1 79 {/i exch def %i=0,79
        SDAK i xchartl 0 eq {SD65 i get} if
               xchartl 1 eq {SD50 i get} if
               xchartl 2 eq {SP40 i get} if
               xchartl 3 eq {SA00 i get} if
               xchartl 4 eq {SE00 i get} if
               xchartl 5 eq {SC00 i get} if
               put
       } for %i=0,79
%STOP
/YKSUM 0 def
0 1 79 {/i exch def %i=0,1,79
        /YKSUM YKSUM SDAK i get F2  80 i add get mul add def
} for %i=0,1,79

0 1 79 {/i exch def %i=0,1,79
        F2N  00 i add SDAK i get F2  00 i add get mul YKSUM div 100 mul put
        F2N  80 i add SDAK i get F2  80 i add get mul YKSUM div 100 mul put
        F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put
} for %i=0,1,79
%STOP
%XW,YW,ZW for white
/XW 0 def
/YW 0 def
/ZW 0 def
0 1 079 {/i exch def %i=0,79
         /XW XW F2N  00 i add get add def
         /YW YW F2N  80 i add get add def
         /ZW ZW F2N 160 i add get add def
        } for %i=0,79

/SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00
/XANW XW SUMW div def
/YANW YW SUMW div def
/ZANW ZW SUMW div def

/AANW XW YW 0.0001 add div def
/BANW ZW YW 0.0001 add div 0.4 mul neg def

/Xi 10 array def %max 6 device colour + 4 elementary colours
/Yi 10 array def
/Zi 10 array def
/XANi 10 array def
/YANi 10 array def
/ZANi 10 array def

%calculation of Xi,Yi,Zi for illuminant D65, D50, ...
0 1 07 {/k exch def %k=0,7 %08 Reflections
        /kx k 80 mul def
           0 1 79 {/i exch def %i=0,79
                              RA i RX0
                              kx i add get 1000 div put
                     } for %i=0,79

          /X 0 def
          /Y 0 def
          /Z 0 def
          0 1 079 {/i exch def %i=0,79
                   /X X F2N  00 i add get RA i get mul add def
                   /Y Y F2N  80 i add get RA i get mul add def
                   /Z Z F2N 160 i add get RA i get mul add def
                  } for %i=0,79

         Xi k X put
         Yi k Y put
         Zi k Z put

         /SUM X Y add Z add def
         XANi k X SUM 0.0001 add div put
         YANi k Y SUM 0.0001 add div put
         ZANi k Z SUM 0.0001 add div put

        } for %k=0,7

Xi 8 XW put
Yi 8 YW put
Zi 8 ZW put
XANi 8 XANW put
YANi 8 YANW put
ZANi 8 ZANW put

/XK Xi 7 get def
/YK Yi 7 get def
/ZK Zi 7 get def
/XANK XANi 7 get def
/YANK YANi 7 get def
/ZANK ZANi 7 get def

K 1 eq {%K=1
        0 1 7 {/L exch def %L=0,7 only 0 to 7!
               Xi L Xi L get 0.8859 mul put
               Yi L Yi L get 0.8859 mul put
               Zi L Zi L get 0.8859 mul put
              } for %L=0,7
       } if %K=1

/xtexti 5 array def
/ytexti 5 array def
/xtexti [2500 1800 0750 0100 0100] def
/ytexti [3800 0500 0500 0500 0500] def
/x0shift 0600 def
/x1shift 1600 def
/x2shift 1300 def

xchart4 0 eq {%xchart4=0,#0
0 0 0 1 setcmyk_olvcolor
xtexti xchart4 get x0shift add ytexti xchart4 get 0660 sub moveto
TBIS FARBE 0 get show
TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto
TBIS FARBE 2 get show

xtexti xchart4 get x1shift add ytexti xchart4 get 0660 sub moveto
TBIS FARBE 3 get show
TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto
TBIS FARBE 5 get show

xtexti xchart4 get x0shift add ytexti xchart4 get 0880 sub moveto
TBIS FARBE 6 get show
TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto
TBIS FARBE 8 get show

xtexti xchart4 get x1shift add ytexti xchart4 get 0880 sub moveto
TBIS FARBE 9 get show
TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto
TBIS FARBE 11 get show

xtexti xchart4 get x0shift add ytexti xchart4 get 1100 sub moveto
TBIS FARBE 12 get show
TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto
TBIS FARBE 14 get show

xtexti xchart4 get x1shift add ytexti xchart4 get 1100 sub moveto
TBIS FARBE 15 get show
TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto
TBIS FARBE 17 get show

             }%xchart4=0
             {%xchart4#0
TBS
0 0 0 1 setcmyk_olvcolor
xtexti xchart4 get ytexti xchart4 get 660 add moveto
TBIS FARBE 0 get show
TBL 0 -40 rmoveto FARBE 1 get show 0 40 rmoveto
TBIS FARBE 2 get show

xtexti xchart4 get x2shift add ytexti xchart4 get 660 add moveto
TBIS FARBE 3 get show
TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto
TBIS FARBE 5 get show

xtexti xchart4 get ytexti xchart4 get 440 add moveto
TBIS FARBE 6 get show
TBL 0 -40 rmoveto FARBE 7 get show 0 40 rmoveto
TBIS FARBE 8 get show

xtexti xchart4 get x2shift add ytexti xchart4 get 440 add moveto
TBIS FARBE 9 get show
TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto
TBIS FARBE 11 get show

xtexti xchart4 get ytexti xchart4 get 220 add moveto
TBIS FARBE 12 get show
TBL 0 -40 rmoveto FARBE 13 get show 0 40 rmoveto
TBIS FARBE 14 get show

xtexti xchart4 get x2shift add ytexti xchart4 get 220 add moveto
TBIS FARBE 15 get show
TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto
TBIS FARBE 17 get show
} ifelse %xchart4#0

TBS
0 0 0 1 setcmyk_olvcolor


xtexti xchart4 get 800 sub ytexti xchart4 get moveto
(CIE\255Daten f\374r ) showde                                   %0MF491-7 00593
(CIE data for ) showen                                          %1MF491-7 00593
(Datos CIE para colores ) showes                                %2MF491-7 00593
(donn\351es CIE pour ) showfr                                   %3MF491-7 00593
(CIE dati per ) showit                                          %4MF491-7 00593
(CIE data for ) showjp                                          %5MF491-7 00593

(Ger\344tefarben (Offset)) showde                               %0MF491-7 01593
(device colours (offset)) showen                                %1MF491-7 01593
(de dispositivo) showes                                         %2MF491-7 01593
(couleurs p\351riph\351riques) showfr                           %3MF491-7 01593
(colori dispositivo (deviazione)) showit                        %4MF491-7 01593
(device colours (offset)) showjp                                %5MF491-7 01593

xtexti xchart4 get 800 sub ytexti xchart4 get 220 sub moveto
(maximaler Buntheit f\374r ) showde                             %0MF491-7 02593
(of maximum chroma for ) showen                                 %1MF491-7 02593
((offset) de croma m\341ximo bajo ) showes                      %2MF491-7 02593
(de chroma maximale pour ) showfr                               %3MF491-7 02593
(di croma massimo per ) showit                                  %4MF491-7 02593
(of maximum chroma for ) showjp                                 %5MF491-7 02593

TELi xchartl get show

xtexti xchart4 get 800 sub ytexti xchart4 get 440 sub moveto
xchart4 0 eq {%xchart4=0
(in der Normfarbtafel) showde                                   %0MF491-7 04593
(in the chromaticity diagram) showen                            %1MF491-7 04593
(en el diagramma de chromaticidad) showes                       %2MF491-7 04593
(dans le diagramme de chromaticit\351) showfr                   %3MF491-7 04593
(nel diagramma di cromaticit\340) showit                        %4MF491-7 04593
(in the chromaticity diagram) showjp                            %5MF491-7 04593

              TBIS ( (x, y)) show
             } if %xchart4=0

xchart4 1 eq {%xchart4=1
(in der Normfarbtafel) showde                                   %0MF491-7 05593
(in the chromaticity diagram) showen                            %1MF491-7 05593
(en el diagramma de chromaticidad) showes                       %2MF491-7 05593
(dans le diagramme de chromaticit\351) showfr                   %3MF491-7 05593
(nel diagramma di cromaticit\340) showit                        %4MF491-7 05593
(in the chromaticity diagram) showjp                            %5MF491-7 05593

              TBIS ( (a, b)) show
             } if %xchart4=1

xchart4 2 eq {%xchart4=2
(in der Farbarbtafel) showde                                    %0MF491-7 06593
(in the chromaticity diagram) showen                            %1MF491-7 06593
(en el diagramma de chromaticidad) showes                       %2MF491-7 06593
(dans le diagramme de chromaticit\351) showfr                   %3MF491-7 06593
(nel diagramma di cromaticit\340) showit                        %4MF491-7 06593
(in the chromaticity diagram) showjp                            %5MF491-7 06593

              TBIS ( (a', b')) show
             } if %xchart4=2

xchart4 3 eq {%xchart4=3
(in Buntwertdiagramm) showde                                    %0MF491-7 07593
(in chromatic value diagram) showen                             %1MF491-7 07593
(en el diagrama valor crom\341tico) showes                      %2MF491-7 07593
(dans la valeur chromatique le diagramme) showfr                %3MF491-7 07593
(nel diagramma di valore cromatico) showit                      %4MF491-7 07593
(in chromatic value diagram) showjp                             %5MF491-7 07593

              TBIS ( (A, B)) show
             } if %xchart4=3

xchart4 4 eq {%xchart4=4
(in Buntheitsdiagram) showde                                    %0MF491-7 08593
(in CIELAB diagram) showen                                      %1MF491-7 08593
(en el diagrama CIELAB) showes                                  %2MF491-7 08593
(dans le diagramme de CIELAB) showfr                            %3MF491-7 08593
(nel diagramma di CIELAB) showit                                %4MF491-7 08593
(in CIELAB diagram) showjp                                      %5MF491-7 08593

              TBIS ( (a*, b*)) show
             } if %xchart4=4

0 1 7 {/i exch def %i=0,7
      /SUM Xi i get
           Yi i get add
           Zi i get add def
       XANi i Xi i get SUM 0.0001 add div put
       YANi i Yi i get SUM 0.0001 add div put
       ZANi i Zi i get SUM 0.0001 add div put
      } for

xchart4 0 eq {%xchart4=0
              0 1 62 {/i exch def %i=0,62
                      FAD i FXD i get put
                      FBD i FYD i get put
                      FCD i FZD i get put
                     } for %i=0,62
             } if %xchart4=0

xchart4 1 eq xchart 3 eq or {%xchart4=1
              0 1 62 {/i exch def %i=0,62
                      FAD i FYD i get put
                      FBD i FXD i get FYD i get 0.0001 add div
                            XANW YANW 0.0001 add div sub
                            FYD i get mul put
                      FCD i FZD i get FYD i get 0.0001 add div
                            ZANW YANW 0.0001 add div sub
                            FYD i get mul 0.4 mul neg put
                     } for %i=0,62
             } if %xchart4=1

xchart4 2 eq xchart4 4 eq or {%xchart4=2
              /D13 1 3 div def
              /D841_108 841 108 div def
              /D16_116 16 116 div def
              /D24_116 24 116 div 3 exp def
              /YW 100 def

              0 1 62 {/i exch def %i=0,62

              /YD FYD i get def
              YD YW div D24_116 gt {/FYYN YD YW div 0.0001 add D13 exp def}
                     {/FYYN D841_108 YD YW div mul D16_116 add def} ifelse

              /a'i FXD i get FYD i get 0.0001 add div D13 exp  0.2191  mul def
              /b'i FZD i get FYD i get 0.0001 add div D13 exp -0.08376 mul def

              /a'in XANW YANW 0.0001 add div D13 exp  0.2191  mul def
              /b'in ZANW YANW 0.0001 add div D13 exp -0.08376 mul def

              FAD i FYYN put
              FBD i a'i a'in sub YD 0.0001 add D13 exp mul put
              FCD i b'i b'in sub YD 0.0001 add D13 exp mul put

                     } for %i=0,62

             } if %xchart4=2

xchart4 0 eq {%xchart4=0

600 400 translate

0 0 moveto  4000 0 rlineto  stroke
0 0 moveto  0 3200 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS

   0 -50 moveto  0 100 rlineto  stroke
 800 -50 moveto  0 100 rlineto  stroke
1600 -50 moveto  0 100 rlineto  stroke
2400 -50 moveto  0 100 rlineto  stroke
3200 -50 moveto  0 100 rlineto  stroke
4000 -50 moveto  0 100 rlineto  stroke

-100 -300 moveto (0,0) show
 700 -300 moveto (0,2) show
1500 -300 moveto (0,4) show
2300 -300 moveto (0,6) show
3100 -300 moveto (0,8) show
3900 -300 moveto (1,0) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50    0 moveto  100 0 rlineto  stroke
 -50  800 moveto  100 0 rlineto  stroke
 -50 1600 moveto  100 0 rlineto  stroke
 -50 2400 moveto  100 0 rlineto  stroke
 -50 3200 moveto  100 0 rlineto  stroke

-450  -80 moveto (0,0) show
-450  720 moveto (0,2) show
-450 1520 moveto (0,4) show
-450 2320 moveto (0,6) show
-450 3120 moveto (0,8) show

TIM
-300 2800 moveto (y) show

TIM
4200 150 moveto (x) show

TBIS
2600 150 moveto (CIE 1931) show

-600 -400 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0:  600  400
    600    400 translate
    693     19 moveto
    693     19    692     19    690     19 curveto
    688     19    685     20    681     23 curveto
    675     27    667     34    657     43 curveto
    644     55    626     70    603     90 curveto
    575    118    542    159    496    231 curveto
    438    347    365    530    274    802 curveto
    181   1179     93   1650     32   2153 curveto
     15   2619     55   3000    155   3248 curveto
    297   3335    456   3304    618   3223 curveto
    771   3126    918   3017   1063   2897 curveto
   1206   2769   1349   2635   1492   2497 curveto
   1634   2358   1776   2218   1915   2080 curveto
   2049   1946   2179   1817   2300   1696 curveto
   2411   1585   2508   1489   2592   1405 curveto
   2663   1336   2720   1278   2765   1233 curveto
   2802   1197   2831   1168   2856   1143 curveto
   2876   1123   2892   1107   2903   1096 curveto
   2913   1086   2919   1080   2924   1075 curveto
   2927   1072   2930   1069   2933   1066 curveto
   2936   1063   2937   1062   2938   1061 curveto
   2938   1061   2939   1060   2744    971 curveto
   2261    748   2040    643   1908    582 curveto
   1819    541   1758    512   1708    490 curveto
   1660    468   1612    445   1558    420 curveto
   1495    391   1419    356   1320    309 curveto
   1184    247    986    155    693     19 curveto
 stroke
0 0 0 1 setcmyk_olvcolor
    693     19 30 0 360 arc fill % 400
    681     23 30 0 360 arc fill % 425
    626     70 30 0 360 arc fill % 450
    438    347 30 0 360 arc fill % 475
     32   2153 30 0 360 arc fill % 500
    456   3304 30 0 360 arc fill % 525
   1206   2769 30 0 360 arc fill % 550
   1915   2080 30 0 360 arc fill % 575
   2508   1489 30 0 360 arc fill % 600
   2802   1197 30 0 360 arc fill % 625
   2903   1096 30 0 360 arc fill % 650
   2930   1069 30 0 360 arc fill % 675
   2938   1061 30 0 360 arc fill % 700
   2261    748 30 0 360 arc fill %500c
   1708    490 30 0 360 arc fill %525c
   1419    356 30 0 360 arc fill %550c
0 0 0 1 setcmyk_olvcolor
    693     19 30 0 360 arc stroke % 400
    681     23 30 0 360 arc stroke % 425
    626     70 30 0 360 arc stroke % 450
    438    347 30 0 360 arc stroke % 475
     32   2153 30 0 360 arc stroke % 500
    456   3304 30 0 360 arc stroke % 525
   1206   2769 30 0 360 arc stroke % 550
   1915   2080 30 0 360 arc stroke % 575
   2508   1489 30 0 360 arc stroke % 600
   2802   1197 30 0 360 arc stroke % 625
   2903   1096 30 0 360 arc stroke % 650
   2930   1069 30 0 360 arc stroke % 675
   2938   1061 30 0 360 arc stroke % 700
   2261    748 30 0 360 arc stroke %500c
   1708    490 30 0 360 arc stroke %525c
   1419    356 30 0 360 arc stroke %550c
%   1250   1316 30 0 360 arc fill %D65
0 0 0 1 setcmyk_olvcolor
TBIS
    693  375 sub     19 250 sub moveto (400) show
%    681 500 sub     23 100 sub moveto (425) show
%    626 500 sub     70 100 sub moveto (450) show
    438 350 sub    347 200 sub moveto (475) show
     32 450 sub   2153 100 sub moveto (500) show
    456 100 add   3304 000 add moveto (525) show
   1206 100 add   2769 000 add moveto (550) show
   1915 100 add   2080 000 add moveto (575) show
   2508 100 add   1489 000 add moveto (600) show
   2802 100 add   1197 100 add moveto (625) show
%   2903 200 sub   1096 100 add moveto (650) show
%   2930 200 sub   1069 100 add moveto (675) show
   2938 100 add   1061 100 sub moveto (700) show
   2261 100 add    748 200 sub moveto (500c,E) show
   1708 100 add    490 200 sub moveto (525c,E) show
   1419 000 add    356 250 sub moveto (550c,E) show
%   1250 100 add   1316 100 sub moveto (D65 ) show
   -600   -400 translate
 %ENDE: 1

       } if %xchart4=0

xchart4 1 eq {%xchart4=1

500 3200 translate

0 400 moveto  4000  0 rlineto  stroke
0 400 moveto  0 -3000 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS

   0 350 moveto  0 100 rlineto  stroke
 800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

-150  500 moveto (-0,8) show
 650  500 moveto (0,0) show
1450  500 moveto (0,8) show
2250  500 moveto (1,6) show
3050  500 moveto (2,4) show
3850  500 moveto (3,2) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke

-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,8) show
-450 -1700 moveto (-1,6) show
-450 -2500 moveto (-2,4) show

-475 -3050 moveto TBIM (b) show TBM (=-0,40) show TBIM (z/y) show
3650   100 moveto TBIM (a=x/y) show

-500 -3200 translate

 %1000 02 01 16 01-.03****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200
   1300   3200 translate
%  36136 -68535 moveto
%  36136 -68535  36234 -68875  35958 -68561 curveto
%  35610 -68128  33600 -64560  29424 -56936 curveto
%  24474 -47779  19507 -38551  15143 -30384 curveto
%  11681 -23927   8847 -18653   6639 -14534 curveto
%   4846 -11128   3397  -8271   2147  -5661 curveto
   1261  -3701 moveto
   1261  -3701    688  -2339    342  -1455 curveto
    153   -894     56   -546     15   -336 curveto
      5   -208     18   -125     47    -73 curveto
     89    -44    138    -28    191    -19 curveto
    246    -13    304     -8    366     -5 curveto
    435     -3    512     -2    597     -1 curveto
    693     -1    800      0    920      0 curveto
   1053      0   1198      0   1355      0 curveto
   1520      0   1683      0   1844      0 curveto
   1993      0   2126      0   2242      0 curveto
   2340      0   2424      0   2497      0 curveto
   2559      0   2610      0   2649      0 curveto
   2680      0   2703      0   2718      0 curveto
   2731      0   2741      0   2751      0 curveto
   2760      0   2764      0   2767      0 curveto
   2769      0   2770      0   2824   -116 curveto
   3023   -529   3168   -817   3275  -1036 curveto
   3357  -1209   3430  -1349   3482  -1469 curveto
   3545  -1597   3622  -1746   3704  -1922 curveto
   3817  -2156   3983  -2496   4262  -3058 curveto
%   4786  -4149   6341  -7346  35775 -67850 curveto
 stroke
  0 0 0 1 setcmyk_olvcolor
%  36136 -68535 30 0 360 arc fill % 400
%  29424 -56936 30 0 360 arc fill % 425
%   8847 -18653 30 0 360 arc fill % 450
   1261  -3701 30 0 360 arc fill % 475
     15   -336 30 0 360 arc fill % 500
    138    -28 30 0 360 arc fill % 525
    435     -3 30 0 360 arc fill % 550
    920      0 30 0 360 arc fill % 575
   1683      0 30 0 360 arc fill % 600
   2340      0 30 0 360 arc fill % 625
   2649      0 30 0 360 arc fill % 650
   2741      0 30 0 360 arc fill % 675
   2769      0 30 0 360 arc fill % 700
   3023   -529 30 0 360 arc fill %500c
   3482  -1469 30 0 360 arc fill %525c
   3983  -2496 30 0 360 arc fill %550c
  0 0 0 1 setcmyk_olvcolor
%  36136 -68535 30 0 360 arc stroke % 400
%  29424 -56936 30 0 360 arc stroke % 425
%   8847 -18653 30 0 360 arc stroke % 450
   1261  -3701 30 0 360 arc stroke % 475
     15   -336 30 0 360 arc stroke % 500
    138    -28 30 0 360 arc stroke % 525
    435     -3 30 0 360 arc stroke % 550
    920      0 30 0 360 arc stroke % 575
   1683      0 30 0 360 arc stroke % 600
   2340      0 30 0 360 arc stroke % 625
   2649      0 30 0 360 arc stroke % 650
   2741      0 30 0 360 arc stroke % 675
   2769      0 30 0 360 arc stroke % 700
   3023   -529 30 0 360 arc stroke %500c
   3482  -1469 30 0 360 arc stroke %525c
   3983  -2496 30 0 360 arc stroke %550c
%    950   -435 30 0 360 arc fill %D65
  0 0 0 1 setcmyk_olvcolor
TBIS
% 36136 500 sub -68535 100 sub moveto (400) show
% 29424 500 sub -56936 100 sub moveto (425) show
%  8847 500 sub -18653 100 sub moveto (450) show
%  1261 500 sub  -3701 100 sub moveto (475) show
     15 400 sub   -336 100 sub moveto (500) show
    138 400 sub    -28 000 sub moveto (525) show
%    435 200 sub     -3 100 add moveto (550) show
%    920 200 sub      0 100 add moveto (575) show
%   1683 200 sub      0 100 add moveto (600) show
   2340 200 sub      0 100 add moveto (625) show
%  2649 200 sub      0 100 add moveto (650) show
%  2741 200 sub      0 100 add moveto (675) show
   2769 100 add      0 150 sub moveto (700) show
   3023 100 add   -529 100 sub moveto (500c,E) show
   3482 800 sub  -1469 050 sub moveto (525c,E) show
%  3983 500 sub  -2496 100 sub moveto (550c,E) show
%    950 100 add   -435 100 sub moveto (D65 ) show

  -1300  -3200 translate
 %ENDE: 2

             } if %xchart4=1

xchart4 2 eq {%xchart4=2

600 3200 translate

0 400 moveto  4000  0 rlineto  stroke
0 400 moveto  0 -3600 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS

 400 350 moveto  0 100 rlineto  stroke
1200 350 moveto  0 100 rlineto  stroke
2000 350 moveto  0 100 rlineto  stroke
2800 350 moveto  0 100 rlineto  stroke
3600 350 moveto  0 100 rlineto  stroke

 200  500 moveto (0,06) show
1000  500 moveto (0,12) show
1800  500 moveto (0,18) show
2600  500 moveto (0,24) show
3400  500 moveto (0,30) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke

-575  -100 moveto (  0,00) show
-575  -900 moveto (-0,06) show
-575 -1700 moveto (-0,12) show
-575 -2500 moveto (-0,18) show

TIM
-380  -1300 moveto (b') show
4100 250 moveto (a') show

-600 -3200 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0:  400 3200
    200   3200 translate
   9657  -6202 moveto
   9657  -6202   9666  -6212   9642  -6203 curveto
   9610  -6190   9426  -6080   9018  -5830 curveto
   8481  -5499   7863  -5120   7227  -4729 curveto
   6628  -4367   6041  -4019   5490  -3698 curveto
   4943  -3383   4391  -3065   3769  -2701 curveto
   3156  -2344   2578  -2012   2043  -1717 curveto
   1565  -1460   1123  -1239    723  -1054 curveto
    527   -898    772   -759   1060   -634 curveto
   1304   -535   1510   -464   1685   -408 curveto
   1832   -356   1965   -309   2091   -267 curveto
   2214   -230   2337   -200   2460   -176 curveto
   2585   -157   2712   -145   2841   -139 curveto
   2972   -138   3103   -133   3233   -126 curveto
   3359   -126   3475   -120   3582   -113 curveto
   3676    -98   3756    -91   3823    -88 curveto
   3878    -75   3924    -64   3963    -57 curveto
   3995    -54   4022    -46   4042      0 curveto
   4057      0   4069      0   4077      0 curveto
   4083      0   4088      0   4093      0 curveto
   4097      0   4100      0   4101      0 curveto
   4102      0   4103      0   4129   -740 curveto
   4224  -1226   4290  -1417   4338  -1533 curveto
   4374  -1614   4405  -1674   4427  -1723 curveto
   4454  -1771   4486  -1825   4520  -1884 curveto
   4565  -1958   4630  -2056   4736  -2200 curveto
   4923  -2435   5407  -2946   9625  -6181 curveto
 stroke
 0 0 0 1 setcmyk_olvcolor
   9657  -6202 30 0 360 arc fill % 400
   9018  -5830 30 0 360 arc fill % 425
   6041  -4019 30 0 360 arc fill % 450
   3156  -2344 30 0 360 arc fill % 475
    723  -1054 30 0 360 arc fill % 500
   1510   -464 30 0 360 arc fill % 525
   2214   -230 30 0 360 arc fill % 550
   2841   -139 30 0 360 arc fill % 575
   3475   -120 30 0 360 arc fill % 600
   3878    -75 30 0 360 arc fill % 625
   4042      0 30 0 360 arc fill % 650
   4088      0 30 0 360 arc fill % 675
   4102      0 30 0 360 arc fill % 700
   4224  -1226 30 0 360 arc fill %500c
   4427  -1723 30 0 360 arc fill %525c
   4630  -2056 30 0 360 arc fill %550c
 0 0 0 1 setcmyk_olvcolor
   9657  -6202 30 0 360 arc stroke % 400
   9018  -5830 30 0 360 arc stroke % 425
   6041  -4019 30 0 360 arc stroke % 450
   3156  -2344 30 0 360 arc stroke % 475
    723  -1054 30 0 360 arc stroke % 500
   1510   -464 30 0 360 arc stroke % 525
   2214   -230 30 0 360 arc stroke % 550
   2841   -139 30 0 360 arc stroke % 575
   3475   -120 30 0 360 arc stroke % 600
   3878    -75 30 0 360 arc stroke % 625
   4042      0 30 0 360 arc stroke % 650
   4088      0 30 0 360 arc stroke % 675
   4102      0 30 0 360 arc stroke % 700
   4224  -1226 30 0 360 arc stroke %500c
   4427  -1723 30 0 360 arc stroke %525c
   4630  -2056 30 0 360 arc stroke %550c
%   2872  -1148 30 0 360 arc fill %D65
 0 0 0 1 setcmyk_olvcolor
TBIS
%   9657 500 sub  -6202 100 sub moveto (400) show
%   9018 500 sub  -5830 100 sub moveto (425) show
%   6041 500 sub  -4019 100 sub moveto (450) show
   3156 400 sub  -2344 100 sub moveto (475) show
    723 250 sub  -1054 250 sub moveto (500) show
   1510 200 sub   -464 150 add moveto (525) show
   2214 200 sub   -230 100 add moveto (550) show
   2841 200 sub   -139 100 add moveto (575) show
   3475 200 sub   -120 100 add moveto (600) show
%   3878 200 sub    -75 100 add moveto (625) show
%   4042 200 sub      0 100 add moveto (650) show
%   4088 200 sub      0 100 add moveto (675) show
   4102 050 add      0 100 sub moveto (700) show
   4224 050 add  -1226 000 sub moveto (500c,E) show
   4427 010 sub  -1723 100 add moveto (525c,E) show
%   4630 100 add  -2056 100 sub moveto (550c,E) show
%   2872 050 add  -1148 000 sub moveto (D65 ) show
   -200  -3200 translate
 %ENDE: 3

             } if %xchart4=2

xchart4 3 ge {%xchart4>=3

3500 2000 translate

%axis and scales
0 0 0 1 setcmyk_olvcolor
-2250 0 moveto 3950  0 rlineto stroke
0 -1880  moveto 0 3600  rlineto stroke
1700 100 sub 50 moveto 100 -50 rlineto
                      -100 -50 rlineto closepath fill
0 50 sub 1800 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill

/xt10x 5 array def
/yt10x 5 array def

xchart4 3 eq {%xchart4=3
/xt10x [(-40) ( ) ( ) ( ) (40)] def
/yt10x [(-40) ( ) ( ) ( ) (40)] def
             } if %xchart4=3

xchart4 4 eq {%xchart4=4
/xt10x [(-120) ( ) ( ) ( ) (120)] def
/yt10x [(-120) ( ) ( ) ( ) (120)] def
             } if %xchart4=

TIM
0 0 0 1 setcmyk_olvcolor
0 1 4 {/i exch def %i=0,4 x-axis
        -1600   i 800   mul add  -75 moveto 0 150 rlineto stroke
        -1800   i 800   mul add -300 moveto
        xt10x i get show
        i 4 eq {-1600 i 800 mul add 0 moveto
               xchart4 3 eq { %xchart4=3
                             000 150 rmoveto
                             TBIM (A) show TM
                            } if %xchart4=3
               xchart4 4 eq { %xchart4=4
                             -50 150 rmoveto
                             TBIM (a*) show TM
                            } if %xchart4=4
               } if
       } for %i=0,4

TIM
0 1 4 {/i exch def %i=0,4 y-axis
       -75 -1600 i 800 mul    add moveto 150 0 rlineto stroke
       150 -1600 i 800 mul    add 100 sub moveto
       yt10x i get show
       i 4 eq {0 -1600 i 800 mul add moveto
               xchart4 3 eq { %xchart4=3
                             -250 150 rmoveto
                             TBIM (B) show TM
                            } if %xchart4=3
               xchart4 4 eq { %xchart4=4
                             -300 150 rmoveto
                             TBIM (b*) show TM
                            } if %xchart4=4
             } if

       } for %i=0,4

-3500 -2000 translate

} if %xchart4>=3

%*******************************************************
%actual data

xchart4 0 eq {%xchart4=0

/fakt 4000 def
600 400 translate %for scala and graphic

/i1 0 def
/i2 5 def
       i1 1 i2 {/i exch def %i=i1,i2
                XANi i get fakt mul YANi i get fakt mul
                i i1 eq {moveto} if
                i i1 1 add ge i i2 1 sub le and {lineto} if
                i i2 eq {lineto closepath stroke} if
               } for %i=i1,i2

0 1 5 {/i exch def %i=0,5
       i 0 eq {0   1 1 0 setcmyk_olvcolor} if %R
       i 1 eq {0   0 1 0 setcmyk_olvcolor} if %Y
       i 2 eq {1   0 1 0 setcmyk_olvcolor} if %G
       i 3 eq {1   0 0 0 setcmyk_olvcolor} if %G50B
       i 4 eq {1   1 0 0 setcmyk_olvcolor} if %B
       i 5 eq {0   1 0 0 setcmyk_olvcolor} if %B50R
       XANi i get fakt mul YANi i get fakt mul
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 5 {/i exch def %i=0,5
       XANi i get fakt mul YANi i get fakt mul
       i 7 le {90}{50} ifelse 0 360 arc stroke
      } for

XANW fakt mul YANW fakt mul 50 0 360 arc stroke

/xshift [ 100  -100  -450  -450  -100  -250  -450  -400  -250  0000] def
/yshift [-100  -350  -000  -050  -350  -350  -100  -100  -250  0000] def
/colori [(R)   (Y)   (G)   (C)   (B)   (M)   (G)   (M)   (D65)   ( )] def
colori 8 TELi xchartl get put

TIM
0 1 5 {/i exch def %i=0,8
       XANi i get fakt mul xshift i get add
       YANi i get fakt mul yshift i get add moveto
       TIM colori i get show
       TS -20 -60 rmoveto (d) show 0 60 rmoveto TIM
      } for

XANW fakt mul xshift 8 get add
YANW fakt mul yshift 8 get add moveto
TIM colori 8 get show

-600 -400 translate %for scala and grafic

} if %xchart4=0

xchart4 1 eq {%xchart4=1

/fakt 1000 def
%500 3200 translate %for scala
 1300 3200 translate %for grafic

0 1 5 {/i exch def %i=0,5
       Xi i get Yi i get 0.0001 add div fakt mul %a
       Zi i get Yi i get 0.0001 add div fakt mul %b
       0.4 mul neg
       i 0 eq {moveto} if
       i 1 ge i 4 le and {lineto} if
       i 5 eq {lineto closepath stroke} if
      } for

0 1 5 {/i exch def %i=0,5
       i 0 eq {0 1 1 0 setcmyk_olvcolor} if %R
       i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Y
       i 2 eq {1 0 1 0 setcmyk_olvcolor} if %G
       i 3 eq {1 0 0 0 setcmyk_olvcolor} if %C
       i 4 eq {1 1 0 0 setcmyk_olvcolor} if %B
       i 5 eq {0 1 0 0 setcmyk_olvcolor} if %M
       Xi i get Yi i get 0.0001 add div fakt mul %a
       Zi i get Yi i get 0.0001 add div fakt mul %b
       0.4 mul neg
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 5 {/i exch def %i=0,5
       Xi i get Yi i get 0.0001 add div fakt mul %a
       Zi i get Yi i get 0.0001 add div fakt mul %b
       0.4 mul neg
       90 0 360 arc stroke
      } for

XW YW 0.0001 add div fakt mul
ZW YW 0.0001 add div fakt mul
0.4 mul neg 50 0 360 arc stroke

/xshift [-000  -100  -100  -350  -100  0150  -450  -100  -250  0000] def
/yshift [ 200   200   200  -250  -350  -100  -000  -300  -280  0000] def
/colori [(R)   (Y)   (G)   (C)   (B)   (M)   (G)   (M)   (D65)   ( )] def
colori 8 TELi xchartl get put

TIM
0 1 5 {/i exch def %i=0,8
       Xi i get Yi i get 0.0001 add div fakt mul %a
       xshift i get add
       Zi i get Yi i get 0.0001 add div fakt mul %b
       0.4 mul neg
       yshift i get add
       moveto
       TIM colori i get show
       TS -20 -60 rmoveto (d) show 0 60 rmoveto TIM
      } for

XW YW 0.0001 add div fakt mul
xshift 8 get add
ZW YW 0.0001 add div fakt mul
0.4 mul neg
yshift 8 get add moveto
TIM colori 8 get show

%-500 -3200 translate %for scala
-1300 -3200 translate %for grafic

} if %xchart4=1

xchart4 2 eq {%xchart4=2

/D13 1 3 div def
/fakt 13333 def
%600 3200 translate %for scala
 200 3200 translate %for graphic

0 1 5 {/i exch def %i=0,5
       Xi i get Yi i get 0.0001 add div                 %a'
       D13 exp 0.2191 mul fakt mul
       Zi i get Yi i get 0.0001 add div                 %b'
       D13 exp -0.08376 mul fakt mul
       i 0 eq {moveto} if
       i 1 ge i 4 le and {lineto} if
       i 5 eq {lineto closepath stroke} if
      } for

0 1 5 {/i exch def %i=0,5
       i 0 eq {0 1 1 0 setcmyk_olvcolor} if %R
       i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Y
       i 2 eq {1 0 1 0 setcmyk_olvcolor} if %G
       i 3 eq {1 0 0 0 setcmyk_olvcolor} if %C
       i 4 eq {1 1 0 0 setcmyk_olvcolor} if %B
       i 5 eq {0 1 0 0 setcmyk_olvcolor} if %M
       Xi i get Yi i get 0.0001 add div                 %a'
       D13 exp 0.2191 mul fakt mul
       Zi i get Yi i get 0.0001 add div                 %b'
       D13 exp -0.08376 mul fakt mul
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 5 {/i exch def %i=0,5
       Xi i get Yi i get 0.0001 add div                 %a'
       D13 exp 0.2191 mul fakt mul
       Zi i get Yi i get 0.0001 add div                 %b'
       D13 exp -0.08376 mul fakt mul
       90 0 360 arc stroke
      } for

XW YW 0.0001 add div                 %a'
D13 exp 0.2191 mul fakt mul
ZW YW 0.0001 add div                 %b'
D13 exp -0.08376 mul fakt mul
50 0 360 arc stroke

/xshift [0100  -100  -450  -400   150  0150  -450  -150  -250  0000] def
/yshift [-100   200  -200  -250  -100  -100  -100  -300  -280  0000] def
/colori [(R)   (Y)   (G)   (C)   (B)   (M)   (G)   (M)   (D65)   ( )] def
colori 8 TELi xchartl get put

TIM
0 1 5 {/i exch def %i=0,8
       Xi i get Yi i get 0.0001 add div                 %a'
       D13 exp 0.2191 mul fakt mul
       xshift i get add
       Zi i get Yi i get 0.0001 add div                 %b'
       D13 exp -0.08376 mul fakt mul
       yshift i get add
       moveto
       TIM colori i get show
       TS -20 -60 rmoveto (d) show 0 60 rmoveto TIM
      } for

XW YW 0.0001 add div                 %a'
D13 exp 0.2191 mul fakt mul
xshift 8 get add
ZW YW 0.0001 add div                 %b'
D13 exp -0.08376 mul fakt mul
yshift 8 get add moveto
TIM colori 8 get show

%-600 -3200 translate %for scala
-200  -3200 translate %for graphic

} if %xchart4=2


xchart4 3 eq {%xchart4=3

/fakt 40 def
3500 2000 translate %for text and grafic

0 1 5 {/i exch def %i=0,5
       Xi i get Yi i get 0.0001 add div %a-an
       Xi 8 get Yi 8 get 0.0001 add div sub
       Yi i get mul fakt mul
       Zi i get Yi i get 0.0001 add div
       Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg
       Yi i get mul fakt mul
       i 0 eq {moveto} if
       i 1 ge i 4 le and {lineto} if
       i 5 eq {lineto closepath stroke} if
      } for

0 1 5 {/i exch def %i=0,5
       i 0 eq {0 1 1 0 setcmyk_olvcolor} if %R
       i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Y
       i 2 eq {1 0 1 0 setcmyk_olvcolor} if %G
       i 3 eq {1 0 0 0 setcmyk_olvcolor} if %C
       i 4 eq {1 1 0 0 setcmyk_olvcolor} if %B
       i 5 eq {0 1 0 0 setcmyk_olvcolor} if %M
       Xi i get Yi i get 0.0001 add div %a-an
       Xi 8 get Yi 8 get 0.0001 add div sub
       Yi i get mul fakt mul
       Zi i get Yi i get 0.0001 add div
       Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg
       Yi i get mul fakt mul
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 5 {/i exch def %i=0,5
       Xi i get Yi i get 0.0001 add div %a-an
       Xi 8 get Yi 8 get 0.0001 add div sub
       Yi i get mul fakt mul
       Zi i get Yi i get 0.0001 add div
       Zi 8 get Yi 8 get 0.0001 add div sub 0.4 mul neg
       Yi i get mul fakt mul
       90 0 360 arc stroke
      } for

XW       YW       0.0001 add div                 %(a-an)YW
XK       YK       0.0001 add div sub
YW mul fakt mul
ZW       YW       0.0001 add div                 %(b-an)YW
ZK       YK       0.0001 add div sub 0.4 mul neg
YW mul fakt mul
50 0 360 arc stroke

/xshift [0100  -200  -450  -450   100  -150  0150  -450  0050  0000] def
/yshift [-000   250  -100  -100  -150  -400  -100  -100  0080  0000] def
/colori [(R)   (Y)   (G)   (C)   (B)   (M)   (G)   (M)   (D65)   ( )] def
colori 8 TELi xchartl get put

TIM
0 1 5 {/i exch def %i=0,8
       Xi i get Yi i get 0.0001 add div          %(a-an)Y
       XK       YK       0.0001 add div sub
       Yi i get mul fakt mul
       xshift i get add
       Zi i get Yi i get 0.0001 add div          %(b-bn)Y
       ZK       YK       0.0001 add div sub 0.4 mul neg
       Yi i get mul fakt mul
       yshift i get add
       moveto
       TIM colori i get show
       TS -20 -60 rmoveto (d) show 0 60 rmoveto TIM
      } for

XW       YW       0.0001 add div                 %(a-an)YW
XK       YK       0.0001 add div sub
YW mul fakt mul
xshift 8 get add
ZW       YW       0.0001 add div                 %(b-an)YW
ZK       YK       0.0001 add div sub 0.4 mul neg
YW mul fakt mul
0.4 mul neg
yshift 8 get add moveto
TIM colori 8 get show

-3500 -2000 translate %for text and grafic

} if %xchart4=3

xchart4 4 eq {%xchart4=4

/D13 1 3 div def
/fakt 40 3 div def
3500 2000 translate %for text and grafic

0 1 5 {/i exch def %i=0,5
       Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
       D13 exp 0.2191 mul
       Xi 8 get Yi 8 get 0.0001 add div
       D13 exp 0.2191 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

       Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
       D13 exp -0.08376 mul
       Zi 8 get Yi 8 get 0.0001 add div
       D13 exp -0.08376 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
       i 0 eq {moveto} if
       i 1 ge i 4 le and {lineto} if
       i 5 eq {lineto closepath stroke} if
      } for

0 1 5 {/i exch def %i=0,5
       i 0 eq {0 1 1 0 setcmyk_olvcolor} if %R
       i 1 eq {0 0 1 0 setcmyk_olvcolor} if %Y
       i 2 eq {1 0 1 0 setcmyk_olvcolor} if %G
       i 3 eq {1 0 0 0 setcmyk_olvcolor} if %C
       i 4 eq {1 1 0 0 setcmyk_olvcolor} if %B
       i 5 eq {0 1 0 0 setcmyk_olvcolor} if %M
       Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
       D13 exp 0.2191 mul
       Xi 8 get Yi 8 get 0.0001 add div
       D13 exp 0.2191 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

       Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
       D13 exp -0.08376 mul
       Zi 8 get Yi 8 get 0.0001 add div
       D13 exp -0.08376 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
       90 0 360 arc fill
      } for

0 0 0 1 setcmyk_olvcolor
0 1 5 {/i exch def %i=0,5
       Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
       D13 exp 0.2191 mul
       Xi 8 get Yi 8 get 0.0001 add div
       D13 exp 0.2191 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

       Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
       D13 exp -0.08376 mul
       Zi 8 get Yi 8 get 0.0001 add div
       D13 exp -0.08376 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
       90 0 360 arc stroke
      } for

XW       YW       0.0001 add div             %500(a'-a'n)Y**(1/3)
D13 exp 0.2191 mul
XK       YK       0.0001 add div
D13 exp 0.2191 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div             %500(b'-b'n)Y**(1/3)
D13 exp -0.08376 mul
ZK       YK       0.0001 add div
D13 exp -0.08376 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

50 0 360 arc stroke

/xshift [0100  -100  -450  -450  -100  0150  0150  -450  0050  0000] def
/yshift [-100   200  -100  -100  -350  -100  -000  -100  0080  0000] def
/colori [(R)   (Y)   (G)   (C)   (B)   (M)   (G)   (M)   (D65)   ( )] def
colori 8 TELi xchartl get put

TIM
0 1 5 {/i exch def %i=0,8
       Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
       D13 exp 0.2191 mul
       XK       YK       0.0001 add div
       D13 exp 0.2191 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
       xshift i get add

       Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
       D13 exp -0.08376 mul
       ZK       YK       0.0001 add div
       D13 exp -0.08376 mul sub
       Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
       yshift i get add
       moveto
       TIM colori i get show
       TS -20 -60 rmoveto (d) show 0 60 rmoveto TIM
      } for

XW       YW       0.0001 add div             %500(a'-a'n)Y**(1/3)
D13 exp 0.2191 mul
XK       YK       0.0001 add div
D13 exp 0.2191 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
xshift 8 get add

ZW       YW       0.0001 add div             %500(b'-b'n)Y**(1/3)
D13 exp -0.08376 mul
ZK       YK       0.0001 add div
D13 exp -0.08376 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
yshift 8 get add moveto
TIM colori 8 get show

-3500 -2000 translate %for text and grafic

} if %xchart4=4

showpage
grestore

%} for %xchartl=0,5

%} for %xchart4=0,4

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM  moveto ( ) show
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 28

%line 499
%!PS-Adobe-3.0 EPSF-3.0 MF491-8N
%%BoundingBox: 70 83 228 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/MF49/)
  /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

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Times-ISOL1 exch definefont pop

/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesI-ISOL1 exch definefont pop

/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesB-ISOL1 exch definefont pop

/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesBI-ISOL1 exch definefont pop

/Courier findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Courier-ISOL1 exch definefont pop

/Courier-Oblique findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierI-ISOL1 exch definefont pop

/Courier-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierB-ISOL1 exch definefont pop

/Courier-BoldOblique findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/CourierBI-ISOL1 exch definefont pop

/TG   {350 /Times-ISOL1 FS} bind def
/TM   {280 /Times-ISOL1 FS} bind def
/TK   {240 /Times-ISOL1 FS} bind def
/TS   {200 /Times-ISOL1 FS} bind def
/TL   {160 /Times-ISOL1 FS} bind def

/TIG  {350 /TimesI-ISOL1 FS} bind def
/TIM  {280 /TimesI-ISOL1 FS} bind def
/TIK  {240 /TimesI-ISOL1 FS} bind def
/TIS  {200 /TimesI-ISOL1 FS} bind def
/TIL  {160 /TimesI-ISOL1 FS} bind def

/TBG  {350 /TimesB-ISOL1 FS} bind def
/TBM  {280 /TimesB-ISOL1 FS} bind def
/TBK  {240 /TimesB-ISOL1 FS} bind def
/TBS  {200 /TimesB-ISOL1 FS} bind def
/TBL  {160 /TimesB-ISOL1 FS} bind def

/TBIG {350 /TimesBI-ISOL1 FS} bind def
/TBIM {280 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIL {160 /TimesBI-ISOL1 FS} bind def

/SG {350 /Symbol FS} bind def
/SM {280 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SS {200 /Symbol FS} bind def
/SL {160 /Symbol FS} bind def

%%EndProlog
gsave

%lanindL2.EPS START  20000505
/lanind 0 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 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 /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 8 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart xchart3 lt {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

/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

/SD65 80 array def %380 bis 775 mit deltalambda=05
/SD50 80 array def %380 bis 775 mit deltalambda=05
/SP40 80 array def %380 bis 775 mit deltalambda=05
/SA00 80 array def %380 bis 775 mit deltalambda=05
/SE00 80 array def %380 bis 775 mit deltalambda=05
/SC00 80 array def %380 bis 775 mit deltalambda=05
/SP00 80 array def %380 bis 775 mit deltalambda=05
/SQ00 80 array def %380 bis 775 mit deltalambda=05

/SDAK 80 array def %380 bis 775 mit deltalambda=05
/RA   80 array def %380 bis 770 nm
/F2  240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm
/F2N 240 array def %normiert auf Y=100 fuer D65 und 10nm
/F10  240 array def %3 x 80 Daten fuer Bereich 380 bis 770nm

%C
%C      LITERATURQUELLEN  LICHTARTEN
%C      SA,SC,SD65,  CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 1.1.1, SEITE 81
%C      SD55,SD75,   CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 1.1.4, SEITE 85
%C                   LINEAR INTERPOLIERT VON 5 ZU 5NM
%C      SG,SP,SXE,   DIN 5033, BLATT 7 ,SEITE 8-9
%C                   AUSGABE  1966

/SD65 %80 data 5 nm
[50.0  52.3 54.6 68.7 82.8 87.1 91.5 92.5 93.4 90.1 86.7 
 95.8 104.9 110.9 117.0 117.4 117.8 116.3 114.9 115.4 115.9 
 112.4 108.8 109.1 109.4 108.6 107.8 106.3 104.8 106.2 107.7 
 106.0 104.4 104.2 104.0 102.0 100.0 98.2 96.3 96.1 95.8 92.2 
 88.7 89.3 90.0 89.8 89.6 88.6 87.7 85.5 83.3 83.5 83.7 
 81.9 80.0 80.1 80.2 81.2 82.3 80.3 78.3 74.0 69.7 70.7 
 71.6 73.0 74.3 68.0 61.6 65.7 69.9 72.5 75.1 69.3 63.6 55.0 
 46.4 56.6 66.8 65.1] def

/SD50 %80 data 5 nm CIE 15.3, Seite 30; aus JE540-1N.PS
[24.5 27.2 29.9 39.6 49.3 52.9 56.5 58.3 60.0 58.9
 57.8 66.3 74.8 81.0 87.2 88.9 90.6 91.0 91.4 93.2
 95.1 93.5 92.0 93.8 95.7 96.2 96.6 96.8 97.1 99.6
102.1 101.4 100.8 101.5 102.3 101.2 100.0 98.9 97.7 98.3
 98.9 96.2 93.5 95.6 97.7 98.5 99.3 99.2 99.0 97.4
 95.7 97.3 98.9 97.3 95.7 96.9 98.2 100.6 103.0 101.1
 99.1 93.3 87.4 89.5 91.6 92.2 92.9 84.9 76.9 81.7
 86.5 89.5 92.6 85.4 78.2 68.0 57.7 70.3 82.9 0.0] def %0.0 not used

/SA00 %80 data 5 nm CIE 15.3  Seite 30; aus JE540-1N.PS
[9.80 10.90 12.09 13.35 14.71 16.15 17.68 19.29 20.99
 22.79 24.67 26.64 28.70 30.85 33.09 35.41 37.81 40.30
 42.87 45.52 48.24 51.04 53.91 56.85 59.86 62.93 66.06
 69.25 72.50 75.79 79.13 82.52 85.95 89.41 92.91 96.44
 100.00 103.58 107.18 110.80 114.44 118.08 121.73 125.39
 129.04 132.70 136.35 139.99 143.62 147.24 150.84 154.42
 157.98 161.52 165.03 168.51 171.96 175.38 178.77 182.12
 185.43 188.70 191.93 195.12 198.26 201.36 204.41 207.41
 210.36 213.27 216.12 218.92 221.67 224.36 227.00 229.59
 232.12 234.59 237.01 239.37 0.0] def %0.0 not used

% AUS BILDPLA.FOR aus vrbam/wrpos:KRPROG.FOR, 5987-6023 5.10.92
%C     PROGRAMM ZUR BERECHNUNG DER RELATIVEN SPEKTRALEN STRAHLUNGSVERTEI-
%C     LUNG EINES HOHLRAUMSTRAHLERS ALS FUNKTION DER WELLENLAENGE LAMDA  
%C     BEI GEGEBENER TEMPERATUR T                                        
%C     VERWENDETE VARIABLE                                               
%C        T                   TEMPERATUR                                 
%C        C2                  PLANCKSCHE KONSTANTE (=1.4388 CM K (1967)) 
%C        LAMDA(I)            WELLENLAENGE                               
%C        S(I)                STRAHLUNGSVERTEILUNG DES HOHLRAUMSTRAHLERS 
%C                                                                       
%C     LITERATUR OFFIZIELLE EMPFEHLUNGEN DER CIE,DEUTSCHE VERSION,       
%C               CA. 1969, SEITE 21 UND TABELLE 1.1.1                    
%C                                                                       
%SDP4 80 array def %380 bis 775 mit deltalambda=05
%      DO 50 I=1,54                                                      
%   50 S(I)=100.
%     1*(560./FLOAT(LAMDA(I)))**5
%     2*(EXP(C2/(560.*10.**(-7)*T))-1.)
%     3/(EXP(C2/(FLOAT(LAMDA(I))*10.**(-7)*T))-1.)

%new CIE 15.3:2004, Eq. (3.1) page 2
%S(I) = [100{560/lambda}**5] [exp{(c2*10**7)/(TNC*560   )} - 1]
%                           /[exp{(c2*10**7)/(TNC*lambda)} - 1]
% exp = e {...} = 2.71 {...} 

%/TNC 2848 def %NLA
/TNC 4000 def
/EE 2.718281 def %e=mac pocket calculator
/C2 1.4350000 10 7 exp mul def
/lamd 80 array def


0 1 79 {%i=0,79
        /i exch def
        /lambda 380 i 5 mul add def
        lamd i lambda put
        /E1 560 lambda div 5 exp def

        /E4 C2 TNC 560    mul div def
        /E5 C2 TNC lambda mul div def

        /E6 EE E4 exp def
        /E7 EE E5 exp def

        SP40 i
        E1 100 mul E6 1 sub 
                   E7 1 sub div mul

        put
       } for %i=0,79

/xex 10 2 exp def
/yex EE 2 exp def

/SE00 %80 data 5 nm
[100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0
 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0] def %0.0 not used

/SC00 %80 data 5 nm
[ 33.00  39.92  47.40  55.17  63.30  71.81  80.60  89.53  98.10 105.80
 112.40 117.75 121.50 123.45 124.00 123.60 123.10 123.30 123.80 124.09
 123.90 122.92 120.70 116.90 112.10 106.98 102.30  98.81  96.90  96.78
  98.00  99.94 102.10 103.95 105.20 105.67 105.30 104.11 102.30 100.15
  97.80  95.43  93.20  91.22  89.70  88.83  88.40  88.19  88.10  88.06
  88.00  87.86  87.80  87.99  88.20  88.20  87.90  87.22  86.30  85.30
  84.00  82.21  80.20  78.24  76.30  74.36  72.40  70.40  68.30  66.30
  64.40  62.80  61.50  60.20  59.20  58.50  58.10  58.00  58.20  58.50
 ] def %0.0 not used
 
0 1 79 {/i exch def %i=0,79
        /lamda 380 i 5 mul add def
        SP00 i SE00 i get lamda 560 div mul put
        SQ00 i SE00 i get 1120 lamda sub 560 div mul put
       } for %i=0,79

%C      LITERATURQUELLEN  SPEKTRALWERTE
%C       F2          CIE-DOKUMENT NR.15 FARBMESSUNG, 1971
%C                   TABELLE 2.1, SEITE 93-102

/F2  %3x80 data
[.001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 
 .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 
 .1954 .1421 .09564 .05795 .03201 .01470 .0049 .0024 .0093 .0291 
 .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 
 .7621
 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 
 .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 
 .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 
 .004109 .002899 .002049 .001440 .0009999 .0006901 
 .000476 .0003323 .0002348 .0001662 .0001174 .00008308 .00005871 
 .000039 .000064 .00012 .000217 .000396 .00064 .00121 .00218 
 .004 .0073 .0116 .01684 .023 .0298 .0380 .048 .06 .0739 
 .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 
 .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 
 .9154 .870 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 
 .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 
 .01192 .00821 .005723 .004102 .002929 .002091 .001484 
 .001047 .00074 .00052 .0003611 .0002492 .0001719 
 .00012 .0000848 .00006 .0000424 .00003 .0000212 
 .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 
 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 
 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 
 .1582 .1117 .07825 .05725 .04216 .02984 .0203 .0134 .00875 
 .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 
 .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % 26*0 
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20
 0.0 0.0 0.0 0.0 0.0 0.0 %26
] def

/F10 %3x80 data
[.00016 .0006624 .002362 .007242 .01911 .0434 .08474 .1406 .2045 
 .2647 .3147 .3577 .3837 .3867 .3707 .343 .3023 .2541 .1956 .1323
  .08051 .04107 .01617 .005132 .003816 .01544 .03746 .07136 .1177
  .173 .2365 .3042 .3768 .4516 .5298 .6161 .7052 .7938 .8787 
 .9512 1.0142 1.0743 1.1185 1.1343 1.124 1.0891 1.0305 .9507 
 .8563 .7549 .6475 .5351 .4316 .3437 .2683 .2043 .1526 .1122 
 .08126 .05793 .04085 .02862 .019941 .01384 .0100 .006605 
 .004552 .003145 .002175 .001506 .001045 .0007274 .0005083 
 .0003564 .000251 .0001777 .0001264 .00009015 .00006453 .00004634 
 .00001736 .00007156 .0002534 .0007685 .002004 .004509 .008756 
 .01446 .02139 .0295 .03868 .0496 .06208 .0747 .08946 .1063 .1282 
 .1528 .1852 .2199 .2536 .2977 .3391 .3954 .4608 .5314 .6067 
 .6857 .7618 .8233 .8752 .9238 .962 .9822 .9918 .9991 .9973 .9824 
 .9555 .9152 .8689 .8256 .7774 .7203 .6583 .5939 .528 .4618 .3981 
 .3395 .2835 .2282 .1798 .1402 .1076 .08119 .06028 .0441 .0318 
 .0226 .0159 .01113 .007749 .0053751 .0037177 .002565 .001768 
 .001222 .0008462 .0005864 .0004074 .000284 .0001987 .0001395 
 .00009843 .00006982 .00004974 .00003554 .00002549 .00001834 
 .0007048 .002928 .01048 .03234 .08601 .1971 .3894 .6568 .9725 
 1.2825 1.5535 1.7985 1.9673 2.0273 1.9948 1.9007 1.7454 
 1.5549 1.3176 1.0302 .7721 .5701 .4152 .3024 .2185 .1592 .112 
 .08225 .06071 .04305 .03045 .02058 .01368 .007918 .003988 
 .001091 
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %10
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %20
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %30
 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %40
 0.0 0.0 0.0 0.0 %44
] def

%calculation of transformation data
%/FARBE 27 array def
%/FARBE [(R) (m) ( 561_770) %00
%        (Y) (m) ( 495_770) %01
%        (G) (m) ( 475_573) %02
%        (C) (m) ( 380_561) %03
%        (B) (m) ( 380_495) %04
%        (M) (m) ( 573_475) %05
%        (N) (0) ( 380_770) %06
%        (W) (0) ( 380_770) %07
%        (W) (1) ( 380_770) %08
%       ] def

%/FARBE [(R) (m) ( 565_770) %00
%        (Y) (m) ( 495_770) %01
%        (G) (m) ( 475_575) %02
%        (C) (m) ( 380_565) %03
%        (B) (m) ( 380_495) %04
%        (M) (m) ( 575_475) %05
%        (N) (0) ( 380_770) %06
%        (W) (0) ( 380_770) %07
%        (W) (1) ( 380_770) %08
%       ] def

%calculation of transformation data
/FARBE 27 array def
/FARBE [(R) (d,RECS) ( ) %( 648) %00
        (Y) (d,RECS) ( ) %( 720) %01
        (G) (d,RECS) ( ) %( 072) %02
        (C) (d,RECS) ( ) %( 080) %03
        (B) (d,RECS) ( ) %( 008) %04
        (M) (d,RECS) ( ) %( 656) %05
        (R) (e,RECS) ( )         %06
        (Y) (e,RECS) ( )         %07
        (G) (e,RECS) ( )         %08
        (B) (e,RECS) ( )         %09
        (N) (d,RECS) ( )         %10
        (W) (d,RECS) ( )         %11
        (W) (1) ( 380_770)       %12
       ] def

/xcolorl xcolor def
%0 1 1 {/xcolorl exch def %xcolorl=0,1

xcolorl 1 eq {0 1 239 {/i exch def %i=0,239
                       F2 i F10 i get put
                      } for %i=0,239
           } if

/xshift 10 array def %max 6 device + 2 device N+W
/yshift 10 array def
/colori 10 array def

/RX10 468 array def %13x36=468
/RX10[

%r00y M512 S19 648%from KE070-7.EPS index 0..35
%380 %390 %400 %410 %420 %430 %440 %450 %460 %470 %480 %490 %500 %510 %520 %530 %540 %550
1110 0895 0672 0519 0431 0395 0385 0395 0433 0421 0392 0456 0606 0671 0579 0491 0463 0412
%560 %570 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 %680 %690 %700 %710 %720 %730
0326 0282 0480 1941 4745 6921 8006 8456 8646 8741 8794 8804 8816 8818 8836 8854 8852 8874

%y00g M0720 a19 720
1993 1705 1317 0970 0727 0618 0565 0610 0776 0906 1011 1568 3114 5449 7302 8087 8387 8536
8599 8661 8685 8726 8735 8758 8792 8817 8847 8877 8899 8892 8889 8884 8895 8908 8899 8915

%g00c M216 I01 072
0586 0806 0856 0747 0604 0542 0528 0579 0734 0851 0942 1424 2726 4389 5085 4680 3882 2955
2037 1380 1018 0844 0722 0642 0632 0650 0686 0789 0945 1042 1014 0933 0800 0699 0765 1042
     
%c00b M224 I09 080
1582 2651 3877 4873 5337 5910 6677 7266 7480 7542 7489 7330 7054 6601 5932 5055 4105 3100
2123 1420 1036 0855 0729 0652 0647 0670 0712 0820 0979 1075 1048 0964 0828 0731 0804 1092

%b00m M008 A09 008
0732 1175 1580 1894 2061 2295 2574 2672 2486 2167 1826 1515 1225 0932 0661 0491 0392 0279
0177 0153 0200 0356 0504 0526 0535 0551 0579 0662 0794 0877 0854 0785 0670 0588 0643 0880

%m00r M504 S27 656
2669 2489 2334 2317 2373 2494 2614 2569 2322 1965 1613 1307 1041 0783 0566 0458 0434 0381
0301 0279 0498 1945 4711 6865 7948 8404 8598 8697 8753 8768 8780 8789 8807 8829 8828 8845

%r00j %from KE070-7.EPS index 0..35
 %380 %390 %400 %410 %420 %430 %440 %450 %460 %470 %480 %490 %500 %510 %520 %530 %540 %550
 0134 0112 0088 0073 0064 0061 0060 0061 0063 0059 0053 0057 0068 0070 0059 0050 0047 0042
 %560 %570 %580 %590 %600 %610 %620 %630 %640 %650 %660 %670 %680 %690 %700 %710 %720 %730
 0033 0029 0049 0196 0476 0693 0801 0846 0865 0874 0880 0881 0882 0882 0884 0886 0886 0887
 %j00g=J
 0193 0164 0126 0093 0070 0060 0055 0059 0075 0086 0095 0146 0285 0487 0638 0698 0721 0730
 0728 0728 0741 0789 0837 0863 0876 0882 0886 0890 0892 0891 0891 0891 0892 0894 0893 0894
 %g00b=G
 0076 0107 0125 0121 0109 0105 0107 0116 0135 0149 0158 0208 0331 0476 0525 0476 0394 0300
 0207 0141 0104 0086 0074 0066 0065 0067 0070 0081 0097 0107 0104 0096 0082 0072 0079 0107
 %b00r=B
 0100 0164 0232 0283 0309 0342 0384 0407 0398 0374 0344 0313 0281 0243 0201 0164 0133 0098
 0063 0042 0038 0049 0058 0057 0057 0059 0062 0072 0086 0095 0092 0085 0072 0063 0070 0095
 
%n000 0000 A01 000
0260 0282 0289 0299 0312 0318 0332 0337 0350 0355 0363 0368 0370 0370 0365 0356 0347 0340
0334 0334 0336 0340 0348 0358 0372 0386 0402 0422 0442 0464 0487 0516 0546 0576 0607 0635

%w000 0729 a27 729
7322 7764 8029 8251 8412 8557 8685 8784 8877 8919 8957 9002 9036 9061 9094 9087 9096 9094
9076 9103 9089 9090 9082 9096 9124 9142 9170 9196 9214 9207 9200 9197 9203 9219 9207 9223

%w100 0729
7322 7764 8029 8251 8412 8557 8685 8784 8877 8919 8957 9002 9036 9061 9094 9087 9096 9094
9076 9103 9089 9090 9082 9096 9124 9142 9170 9196 9214 9207 9200 9197 9203 9219 9207 9223

] def

/RX05 80 array def %1x80
/RX05 [
%(%W1(r=1,000) 10 380_770)
%380 %385 %390 %395 %400 %405 %410 %415 %420 %425
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%430 %435 %440 %445 %450 %455 %460 %465 %470 %475
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000

%480 %485 %490 %495 %500 %505 %510 %515 %520 %525
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%530 %535 %540 %545 %550 %555 %560 %565 %570 %575
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000

%580 %585 %590 %595 %600 %605 %610 %615 %620 %625
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%630 %635 %640 %645 %650 %655 %660 %665 %670 %675
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000

%680 %685 %690 %695 %700 %705 %710 %715 %720 %725
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
%730 %735 %740 %745 %750 %755 %760 %765 %770 %775
1000 1000 1000 1000 1000 1000 1000 1000 1000 1000
] def

/RX0 1040 array def %13*80
0 1 11 {/j exch def %j=0,11 12 Test colours
        /j36 36 j mul def
        /j80 80 j mul def
0 1 39 {/i exch def %i=0,39
        /i2 i 2 mul def
        RX0 j80 i2 add
        i 34 le {RX10 j36  i add get
                 j 5 le {0.1 mul} if
                 cvi put}
                {RX10 j36 35 add get
                j 5 le {0.1 mul} if
                cvi put} ifelse
        
        RX0 j80 i2 add 1 add
        i 34 le {RX10 j36 i add       get
                 RX10 j36 i add 1 add get 
                 add 0.5 mul
                 j 5 le {0.1 mul} if
                 cvi put
                }
                {
                RX10 j36 35 add       get
                j 5 le {0.1 mul} if
                cvi put
                } ifelse
        } for %i=0,39
        
       } for %j=0,8

960 1 1039 {/i exch def %i=960,1039
            RX0 i RX05 i 960 sub get put
           } for

/YKSUM 0 def %For CIE Illuminant E
0 1 79 {/i exch def %i=0,1,79
        /YKSUM YKSUM F2  80 i add get add def
} for %i=0,1,79

/F2N 240 array def
0 1 79 {/i exch def %i=0,1,79
        F2N  00 i add F2  00 i add get YKSUM div 100 mul put
        F2N  80 i add F2  80 i add get YKSUM div 100 mul put
        F2N 160 i add F2 160 i add get YKSUM div 100 mul put
} for %i=0,1,79

/FXN 80 array def %FXN 0 = F2N imax
/FYN 80 array def
/FZN 80 array def
%defines FXN, FYN, FZN 0 to 79
0 1 79 {/i exch def %i=0,79
        FXN i F2N 000 i add get put
        FYN i F2N 080 i add get put
        FZN i F2N 160 i add get put
} for %i=0,79

%special wavelength range with complementary colours for E?
/FXD 63 array def
/FYD 63 array def
/FZD 63 array def
/DOW 63 array def

00 1 60 {/i exch def %i=0,60 %range 400..700nm
         FXD i FXN 005 i add get put
         FYD i FYN 005 i add get put
         FZD i FZN 005 i add get put
         DOW i 400 i 5 mul add put %range 400 to 700
        } for %i=0,60

%for interpolation
FXD 61 FXD 60 get put
FYD 61 FYD 60 get put
FZD 61 FZD 60 get put

FXD 62 FXD 60 get put
FYD 62 FYD 60 get put
FZD 62 FZD 60 get put

/FAD 63 array def
/FBD 63 array def
/FCD 63 array def

20 setlinewidth
/xdel  1030 def
/ydel   310 def
/x0 600 def

/TELi 8 array def
/TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %8 illuminants

/Xi 79 array def %79 spectral or max 6 device colour + 4 elementary colours
/Yi 79 array def %or max 6 device + 4 elementary + 3 achromatic colours
/Zi 79 array def
/XANi 79 array def
/YANi 79 array def
/ZANi 79 array def

0 1 0 {/xchart4 exch def %xchart4=0,7

/xchartl xchart def
%0 1 7 {/xchartl exch def %xchartl=0,7

/K 0 def %for normalization 1, always for surface colours
%/K 1 def %for normalization 0,886

gsave

5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolorl cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow

5 /Times-ISOL1 FS
170 85 moveto
(MF491-8) show
%xchart4 1 add cvishow
%xchart 0 ge {(N) show} if
%(_) show xchart 1 add cvishow
xchart 0 eq {(X) show}
            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate

0.010 MM dup scale

25 setlinewidth
0 0 0 0 setcmyk_olvcolor
0 0 moveto 5400     0 rlineto 0 4000 rlineto
           5400 neg 0 rlineto closepath fill

0 0  moveto  5400 0 rlineto 0 4000 rlineto
            -5400 0 rlineto closepath clip

0 0 0 1 setcmyk_olvcolor
0 0 moveto 5400     0 rlineto 0 4000 rlineto
           5400 neg 0 rlineto closepath stroke

0 1 79 {/i exch def %i=0,79
        SDAK i xchartl 0 eq {SD65 i get} if
               xchartl 1 eq {SD50 i get} if
               xchartl 2 eq {SP40 i get} if
               xchartl 3 eq {SA00 i get} if
               xchartl 4 eq {SE00 i get} if
               xchartl 5 eq {SC00 i get} if
               xchartl 6 eq {SP00 i get} if
               xchartl 7 eq {SQ00 i get} if
               put
       } for %i=0,79
%STOP
/YKSUM 0 def
0 1 79 {/i exch def %i=0,1,79
        /YKSUM YKSUM SDAK i get F2  80 i add get mul add def
} for %i=0,1,79

0 1 79 {/i exch def %i=0,1,79
        F2N  00 i add SDAK i get F2  00 i add get mul YKSUM div 100 mul put
        F2N  80 i add SDAK i get F2  80 i add get mul YKSUM div 100 mul put
        F2N 160 i add SDAK i get F2 160 i add get mul YKSUM div 100 mul put
} for %i=0,1,79
%STOP
%XW,YW,ZW for white
/XW 0 def
/YW 0 def
/ZW 0 def
0 1 079 {/i exch def %i=0,79
         /XW XW F2N  00 i add get add def
         /YW YW F2N  80 i add get add def
         /ZW ZW F2N 160 i add get add def
        } for %i=0,79

/SUMW XW YW add ZW add def %for D65, D50, P40, A00, E00
/XANW XW SUMW div def
/YANW YW SUMW div def
/ZANW ZW SUMW div def

/AANW XW YW 0.0001 add div def
/BANW ZW YW 0.0001 add div 0.4 mul neg def

%calculation of Xi,Yi,Zi for illuminant D65, D50, ...
0 1 11 {/k exch def %k=0,11 %12 Reflections
        /kx k 80 mul def
           0 1 79 {/i exch def %i=0,79
                              RA i RX0
                              kx i add get 1000 div put
                     } for %i=0,79

          /X 0 def
          /Y 0 def
          /Z 0 def
          0 1 079 {/i exch def %i=0,79
                   /X X F2N  00 i add get RA i get mul add def
                   /Y Y F2N  80 i add get RA i get mul add def
                   /Z Z F2N 160 i add get RA i get mul add def
                  } for %i=0,79

         Xi k X put
         Yi k Y put
         Zi k Z put

         /SUM X Y add Z add def
         XANi k X SUM 0.0001 add div put
         YANi k Y SUM 0.0001 add div put
         ZANi k Z SUM 0.0001 add div put

        } for %k=0,12

Xi 12 XW put
Yi 12 YW put
Zi 12 ZW put
XANi 12 XANW put
YANi 12 YANW put
ZANi 12 ZANW put

/XK Xi 11 get def
/YK Yi 11 get def
/ZK Zi 11 get def
/XANK XANi 11 get def
/YANK YANi 11 get def
/ZANK ZANi 11 get def

K 1 eq {%K=1
        0 1 7 {/L exch def %L=0,7 only 0 to 7!
               Xi L Xi L get 0.8859 mul put
               Yi L Yi L get 0.8859 mul put
               Zi L Zi L get 0.8859 mul put
              } for %L=0,7
       } if %K=1

/xtexti 96 array def
/ytexti 96 array def
/xtexti [
%T00 T10  T20   T30   T40  T41   T50  T51   T60  T61  T70  T71
%0   1    2     3     4    5     6    7     8    9    10   11
1800 1800 1800  2800  2800 4400  2800 4400  2800 4400 2800 4000 %0
0600 0600 0600  0600  0600 2200  0600 2200  0600 2200 0600 1800 %1
0700 0700 0700  0700  0700 2300  0700 2300  0700 2300 0700 1900 %2
0700 0700 0700  0700  0700 2300  0700 2300  0700 2300 0700 1900 %3
0100 0100 0100  0100  0100 1700  0100 1700  0100 1700 0100 1300 %4
0100 0100 0100  0100  0100 1700  0100 1700  0100 1700 0100 1300 %5
0100 0100 0100  0100  0100 1700  0100 1700  0100 1700 0100 1300 %6
0100 0100 0100  0100  0100 1700  0100 1700  0100 1700 0100 1300 %7
] def
/ytexti [ 
3800 3580 3360  3140  2920 2920  2700 2700  2480 2480 2260 2260 %0
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %1
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %2
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %3
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %4
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %5
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %6
0500 0280 0060  1380  1160 1160  0940 0940  0720 0720 0000 0000 %7
] def

0 0 0 1 setcmyk_olvcolor
/xchart12 xchart4 12 mul def

TBS
xchart4 1 ge { %xchart4 >=1
xtexti xchart12 3 add get ytexti xchart12 3 add get 220 add moveto
xchart4 1 eq {(LABCab 77) show} if
xchart4 2 eq {(CIELAB 76) show} if
xchart4 3 eq {(LABJNDS 87) show} if
xchart4 4 eq {(LABCab 85) show} if
xchart4 5 eq {(CIELAB 76) show} if
xchart4 6 eq {(CIELAB D65) show} if
xchart4 7 eq {(LABHNU1 79) show} if
             } if %xchart4 >=1

xtexti xchart12 3 add get 200 sub ytexti xchart12 3 add get moveto
TBS
(Name der Ger\374tefarbe) showde                                %0MF491-8 02581
(Name of the device colour) showen                              %1MF491-8 02581
(Nombre de la colore de dispositivo) showes                     %2MF491-8 02581
(nom de la couleur p\351riph\351rique) showfr                   %3MF491-8 02581
(Nome de la colori dispositivo) showit                          %4MF491-8 02581
(Name of the device colours) showjp                             %5MF491-8 02581
 
xtexti xchart12 4 add get ytexti xchart12 4 add get moveto
TBIS FARBE 0 get show
TBL 0 -40 rmoveto FARBE 1 get show 150 40 rmoveto
TBIS FARBE 2 get show

xtexti xchart12 5 add get ytexti xchart12 5 add get moveto
TBIS FARBE 3 get show
TBL 0 -40 rmoveto FARBE 4 get show 0 40 rmoveto
TBIS FARBE 5 get show

xtexti xchart12 6 add get ytexti xchart12 6 add get moveto
TBIS FARBE 6 get show
TBL 0 -40 rmoveto FARBE 7 get show 150 40 rmoveto
TBIS FARBE 8 get show

xtexti xchart12 7 add get ytexti xchart12 7 add get moveto
TBIS FARBE 9 get show
TBL 0 -40 rmoveto FARBE 10 get show 0 40 rmoveto
TBIS FARBE 11 get show

xtexti xchart12 8 add get ytexti xchart12 8 add get moveto
TBIS FARBE 12 get show
TBL 0 -40 rmoveto FARBE 13 get show 150 40 rmoveto
TBIS FARBE 14 get show

xtexti xchart12 9 add get ytexti xchart12 9 add get moveto
TBIS FARBE 15 get show
TBL 0 -40 rmoveto FARBE 16 get show 0 40 rmoveto
TBIS FARBE 17 get show

%xtexti xchart12 10 add get ytexti xchart12 10 add get moveto
%TBIS FARBE 18 get show
%TBL 0 -40 rmoveto FARBE 19 get show 0 40 rmoveto
%TBIS FARBE 20 get show

%xtexti xchart12 11 add get ytexti xchart12 11 add get moveto
%TBIS FARBE 21 get show
%TBL 0 -40 rmoveto FARBE 22 get show 0 40 rmoveto
%TBIS FARBE 23 get show

TBS
0 0 0 1 setcmyk_olvcolor
xtexti xchart12 0 add get ytexti xchart12 0 add get moveto
xtexti xchart12 0 add get ytexti xchart12 0 add get moveto
(Ger\344te\255 & Elementarfarben) showde                        %0MF491-8 02581
(Device and elementary colours) showen                          %1MF491-8 02581
(Colores de dispositivo y elementales) showes                   %2MF491-8 02581
(couleurs p\351riph\351riques et \351l\351mentaires) showfr     %3MF491-8 02581
(colori dispositivo e colori elementari) showit                 %4MF491-8 02581
(Device and elementary colours) showjp                          %5MF491-8 02581

%TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto
%TBS K 0 eq {(=100) show}{(=88,6) show} ifelse

xtexti xchart12 1 add get ytexti xchart12 1 add get moveto
(des) showde                                                    %0MF491-8 03581
(of the) showen                                                 %1MF491-8 03581
(de color) showes                                               %2MF491-8 03581
(de l'espace) showfr                                            %3MF491-8 03581
(del) showit                                                    %4MF491-8 03581
(of the) showjp                                                 %5MF491-8 03581

TBIS
( offset) show

TBS
(\255Farbenraums f\374r ) showde                                %0MF491-8 04581
( colour space for ) showen                                     %1MF491-8 04581
( bajo ) showes                                                 %2MF491-8 04581
( pour ) showfr                                                %3MF491-8 04581
( spazio di colore per ) showit                                 %4MF491-8 04581
( colour space for ) showjp                                     %5MF491-8 04581

TBS TELi xchartl get show

TBIS (, Y) show TBL 0 -60 rmoveto (W) show 0 60 rmoveto
TBS K 0 eq {(=100) show}{(=88,6) show} ifelse

xtexti xchart12 2 add get ytexti xchart12 2 add get moveto

xchart4 0 eq {%xchart4=0
(in der Normfarbtafel) showde                                   %0MF491-8 04581
(in the chromaticity diagram) showen                            %1MF491-8 04581
(en el diagrama de chromaticidad) showes                        %2MF491-8 04581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-8 04581
(nel diagramma di cromaticit\340) showit                        %4MF491-8 04581
(in the chromaticity diagram) showjp                            %5MF491-8 04581
TBIS ( (x, y)) show
             } if %xchart4=0

xchart4 1 eq {%xchart4=1
(in der Farbtafel) showde                                       %0MF491-8 05581
(in the chromaticity diagram) showen                            %1MF491-8 05581
(en el diagrama de chromaticidad) showes                        %2MF491-8 05581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-8 05581
(nel diagramma di cromaticit\340) showit                        %4MF491-8 05581
(in the chromaticity diagram) showjp                            %5MF491-8 05581
TBIS ( (a, b)) show
             } if %xchart4=1

xchart4 2 eq {%xchart4=2
(in der Farbarbtafel) showde                                    %0MF491-8 06581
(in the chromaticity diagram) showen                            %1MF491-8 06581
(en el diagrama de chromaticidad) showes                        %2MF491-8 06581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-8 06581
(nel diagramma di cromaticit\340) showit                        %4MF491-8 06581
(in the chromaticity diagram) showjp                            %5MF491-8 06581
TBIS ( (a', b')) show
             } if %xchart4=2

xchart4 3 eq {%xchart4=3
(in der Farbarbtafel) showde                                    %0MF491-8 07581
(in the chromaticity diagram) showen                            %1MF491-8 07581
(en el diagrama de chromaticidad) showes                        %2MF491-8 07581
(dans le diagramme de chromaticit\351) showfr                   %3MF491-8 07581
(nel diagramma di cromaticit\340) showit                        %4MF491-8 07581
(in the chromaticity diagram) showjp                            %5MF491-8 07581
TBIS ( (a", b")) show
             } if %xchart4=3

xchart4 4 eq {%xchart4=4
(in Buntwertdiagramm) showde                                    %0MF491-8 08581
(in chromatic value diagram) showen                             %1MF491-8 08581
(en el diagrama valor crom\341tico) showes                      %2MF491-8 08581
(dans la valeur chromatique le diagramme) showfr                %3MF491-8 08581
(nel diagramma di valore cromatico) showit                      %4MF491-8 08581
(in chromatic value diagram) showjp                             %5MF491-8 08581
TBIS ( (A, B)) show
             } if %xchart4=4

xchart4 5 eq {%xchart4=5
(in Buntheitsdiagram) showde                                    %0MF491-8 09581
(in CIELAB diagram) showen                                      %1MF491-8 09581
(en el diagrama CIELAB) showes                                  %2MF491-8 09581
(dans le diagramme de CIELAB) showfr                            %3MF491-8 09581
(nel diagramma di CIELAB) showit                                %4MF491-8 09581
(in CIELAB diagram) showjp                                      %5MF491-8 09581
TBIS ( (a*, b*)) show
             } if %xchart4=5

xchart4 6 eq {%xchart4=6
(in Buntheitsdiagram) showde                                    %0MF491-8 10581
(in chroma diagram) showen                                      %1MF491-8 10581
(en el diagrama croma) showes                                   %2MF491-8 10581
(dans le diagramme de chroma) showfr                            %3MF491-8 10581
(nel diagramma di chroma) showit                                %4MF491-8 10581
(in chroma diagram) showjp                                      %5MF491-8 10581

TBIS ( \050a*) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (, ) show TBIS (b*) show 
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (\051) show

             } if %xchart4=6

xchart4 7 eq {%xchart4=7
(in Buntheitsdiagram) showde                                    %0MF491-8 11581
(in chroma diagram) showen                                      %1MF491-8 11581
(en el diagrama croma) showes                                   %2MF491-8 11581
(dans le diagramme de chroma) showfr                            %3MF491-8 11581
(nel diagramma di chroma) showit                                %4MF491-8 11581
(in chroma diagram) showjp                                      %5MF491-8 11581
TBIS ( (A*, B*)) show
             } if %xchart4=7

xchart4 0 eq {%xchart4=0

600 400 translate

0 0 moveto  4000 0 rlineto  stroke
0 0 moveto  0 3200 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS

   0 -50 moveto  0 100 rlineto  stroke
 800 -50 moveto  0 100 rlineto  stroke
1600 -50 moveto  0 100 rlineto  stroke
2400 -50 moveto  0 100 rlineto  stroke
3200 -50 moveto  0 100 rlineto  stroke
4000 -50 moveto  0 100 rlineto  stroke

-100 -300 moveto (0,0) show
 700 -300 moveto (0,2) show
1500 -300 moveto (0,4) show
2300 -300 moveto (0,6) show
3100 -300 moveto (0,8) show
3900 -300 moveto (1,0) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50    0 moveto  100 0 rlineto  stroke
 -50  800 moveto  100 0 rlineto  stroke
 -50 1600 moveto  100 0 rlineto  stroke
 -50 2400 moveto  100 0 rlineto  stroke
 -50 3200 moveto  100 0 rlineto  stroke

-450  -80 moveto (0,0) show
-450  720 moveto (0,2) show
-450 1520 moveto (0,4) show
-450 2320 moveto (0,6) show
-450 3120 moveto (0,8) show

TIM
-300 2800 moveto (y) show

TIM
4200 150 moveto (x) show

TBIS
2600 150 moveto (CIE 1931) show

-600 -400 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA= 4000 BEO=02 xy-Farbtafel IXY0:  600  400
    600    400 translate
    693     19 moveto
    693     19    692     19    690     19 curveto
    688     19    685     20    681     23 curveto
    675     27    667     34    657     43 curveto
    644     55    626     70    603     90 curveto
    575    118    542    159    496    231 curveto
    438    347    365    530    274    802 curveto
    181   1179     93   1650     32   2153 curveto
     15   2619     55   3000    155   3248 curveto
    297   3335    456   3304    618   3223 curveto
    771   3126    918   3017   1063   2897 curveto
   1206   2769   1349   2635   1492   2497 curveto
   1634   2358   1776   2218   1915   2080 curveto
   2049   1946   2179   1817   2300   1696 curveto
   2411   1585   2508   1489   2592   1405 curveto
   2663   1336   2720   1278   2765   1233 curveto
   2802   1197   2831   1168   2856   1143 curveto
   2876   1123   2892   1107   2903   1096 curveto
   2913   1086   2919   1080   2924   1075 curveto
   2927   1072   2930   1069   2933   1066 curveto
   2936   1063   2937   1062   2938   1061 curveto
   2938   1061   2939   1060   2744    971 curveto
   2261    748   2040    643   1908    582 curveto
   1819    541   1758    512   1708    490 curveto
   1660    468   1612    445   1558    420 curveto
   1495    391   1419    356   1320    309 curveto
   1184    247    986    155    693     19 curveto
 stroke
0 0 0 1 setcmyk_olvcolor
    693     19 30 0 360 arc fill % 400
    681     23 30 0 360 arc fill % 425
    626     70 30 0 360 arc fill % 450
    438    347 30 0 360 arc fill % 475
     32   2153 30 0 360 arc fill % 500
    456   3304 30 0 360 arc fill % 525
   1206   2769 30 0 360 arc fill % 550
   1915   2080 30 0 360 arc fill % 575
   2508   1489 30 0 360 arc fill % 600
   2802   1197 30 0 360 arc fill % 625
   2903   1096 30 0 360 arc fill % 650
   2930   1069 30 0 360 arc fill % 675
   2938   1061 30 0 360 arc fill % 700
   2261    748 30 0 360 arc fill %500c
   1708    490 30 0 360 arc fill %525c
   1419    356 30 0 360 arc fill %550c
0 0 0 1 setcmyk_olvcolor
    693     19 30 0 360 arc stroke % 400
    681     23 30 0 360 arc stroke % 425
    626     70 30 0 360 arc stroke % 450
    438    347 30 0 360 arc stroke % 475
     32   2153 30 0 360 arc stroke % 500
    456   3304 30 0 360 arc stroke % 525
   1206   2769 30 0 360 arc stroke % 550
   1915   2080 30 0 360 arc stroke % 575
   2508   1489 30 0 360 arc stroke % 600
   2802   1197 30 0 360 arc stroke % 625
   2903   1096 30 0 360 arc stroke % 650
   2930   1069 30 0 360 arc stroke % 675
   2938   1061 30 0 360 arc stroke % 700
   2261    748 30 0 360 arc stroke %500c
   1708    490 30 0 360 arc stroke %525c
   1419    356 30 0 360 arc stroke %550c
%   1250   1316 30 0 360 arc fill %D65 
0 0 0 1 setcmyk_olvcolor
TBIS
    693  375 sub     19 250 sub moveto (400) show
%    681 500 sub     23 100 sub moveto (425) show
%    626 500 sub     70 100 sub moveto (450) show
    438 350 sub    347 200 sub moveto (475) show
     32 450 sub   2153 100 sub moveto (500) show
    456 100 add   3304 000 add moveto (525) show
   1206 100 add   2769 000 add moveto (550) show
   1915 080 sub   2080 100 add moveto (575) show
   2508 100 add   1489 000 add moveto (600) show
   2802 100 add   1197 100 add moveto (625) show
%   2903 200 sub   1096 100 add moveto (650) show
%   2930 200 sub   1069 100 add moveto (675) show
   2938 100 add   1061 100 sub moveto (700) show
   2261 100 add    748 200 sub moveto (500c,E) show
   1708 100 add    490 200 sub moveto (525c,E) show
   1419 000 add    356 250 sub moveto (550c,E) show
%   1250 100 add   1316 100 sub moveto (D65 ) show
   -600   -400 translate
 %ENDE: 1

       } if %xchart4=0

xchart4 1 eq {%xchart4=1

500 3200 translate
 
0 400 moveto  4000  0 rlineto  stroke
0 400 moveto  0 -3600 rlineto  stroke
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS
 
   0 350 moveto  0 100 rlineto  stroke
 800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke
 
-150  500 moveto (-0,8) show
 650  500 moveto (0,0) show
1450  500 moveto (0,8) show
2250  500 moveto (1,6) show
3050  500 moveto (2,4) show
3850  500 moveto (3,2) show
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten
 
 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke
 
-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,8) show
-450 -1700 moveto (-1,6) show
%-450 -2500 moveto (-2,4) show

-175 -3050 moveto
90 rotate 
TBIK (b) show TBK (=-0,40) show TBIK (z/y) show
-90 rotate
3650   100 moveto TBIK (a=x/y) show
 
-500 -3200 translate
 
 %1000 02 01 16 01-.03****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1000 BEO=02 ab-Farbtafel IXY0: 1500 3200

   1300   3200 translate

%  36136 -68535 moveto
%  36136 -68535  36234 -68875  35958 -68561 curveto
%  35610 -68128  33600 -64560  29424 -56936 curveto
%  24474 -47779  19507 -38551  15143 -30384 curveto
%  11681 -23927   8847 -18653   6639 -14534 curveto
%   4846 -11128   3397  -8271   2147  -5661 curveto
   1261  -3701 moveto
   1261  -3701    688  -2339    342  -1455 curveto
    153   -894     56   -546     15   -336 curveto
      5   -208     18   -125     47    -73 curveto
     89    -44    138    -28    191    -19 curveto
    246    -13    304     -8    366     -5 curveto
    435     -3    512     -2    597     -1 curveto
    693     -1    800      0    920      0 curveto
   1053      0   1198      0   1355      0 curveto
   1520      0   1683      0   1844      0 curveto
   1993      0   2126      0   2242      0 curveto
   2340      0   2424      0   2497      0 curveto
   2559      0   2610      0   2649      0 curveto
   2680      0   2703      0   2718      0 curveto
   2731      0   2741      0   2751      0 curveto
   2760      0   2764      0   2767      0 curveto
   2769      0   2770      0   2824   -116 curveto
   3023   -529   3168   -817   3275  -1036 curveto
   3357  -1209   3430  -1349   3482  -1469 curveto
   3545  -1597   3622  -1746   3704  -1922 curveto
   3817  -2156   3983  -2496   4262  -3058 curveto
%   4786  -4149   6341  -7346  35775 -67850 curveto
 stroke
  0 0 0 1 setcmyk_olvcolor
%  36136 -68535 30 0 360 arc fill % 400
%  29424 -56936 30 0 360 arc fill % 425
%   8847 -18653 30 0 360 arc fill % 450
   1261  -3701 30 0 360 arc fill % 475
     15   -336 30 0 360 arc fill % 500
    138    -28 30 0 360 arc fill % 525
    435     -3 30 0 360 arc fill % 550
    920      0 30 0 360 arc fill % 575
   1683      0 30 0 360 arc fill % 600
   2340      0 30 0 360 arc fill % 625
   2649      0 30 0 360 arc fill % 650
   2741      0 30 0 360 arc fill % 675
   2769      0 30 0 360 arc fill % 700
   3023   -529 30 0 360 arc fill %500c
   3482  -1469 30 0 360 arc fill %525c
   3983  -2496 30 0 360 arc fill %550c
  0 0 0 1 setcmyk_olvcolor
%  36136 -68535 30 0 360 arc stroke % 400
%  29424 -56936 30 0 360 arc stroke % 425
%   8847 -18653 30 0 360 arc stroke % 450
   1261  -3701 30 0 360 arc stroke % 475
     15   -336 30 0 360 arc stroke % 500
    138    -28 30 0 360 arc stroke % 525
    435     -3 30 0 360 arc stroke % 550
    920      0 30 0 360 arc stroke % 575
   1683      0 30 0 360 arc stroke % 600
   2340      0 30 0 360 arc stroke % 625
   2649      0 30 0 360 arc stroke % 650
   2741      0 30 0 360 arc stroke % 675
   2769      0 30 0 360 arc stroke % 700
   3023   -529 30 0 360 arc stroke %500c
   3482  -1469 30 0 360 arc stroke %525c
   3983  -2496 30 0 360 arc stroke %550c
%    950   -435 30 0 360 arc fill %D65
  0 0 0 1 setcmyk_olvcolor
TBIS
% 36136 500 sub -68535 100 sub moveto (400) show
% 29424 500 sub -56936 100 sub moveto (425) show
%  8847 500 sub -18653 100 sub moveto (450) show
%  1261 500 sub  -3701 100 sub moveto (475) show
     15 400 sub   -336 100 sub moveto (500) show
%   138 200 sub    -28 100 add moveto (525) show
    435 200 sub     -3 100 add moveto (550) show
%    920 200 sub      0 100 add moveto (575) show
   1683 200 sub      0 100 add moveto (600) show
   2340 200 sub      0 100 add moveto (625) show
%  2649 200 sub      0 100 add moveto (650) show
%  2741 200 sub      0 100 add moveto (675) show
   2769 100 add      0 150 sub moveto (700) show
   3023 100 add   -529 100 sub moveto (500c,E) show
   3482 800 sub  -1469 050 sub moveto (525c,E) show
%  3983 500 sub  -2496 100 sub moveto (550c,E) show
%    950 100 add   -435 100 sub moveto (D65 ) show

  -1300  -3200 translate
 %ENDE: 2

             } if %xchart4=1

xchart4 2 eq {%xchart4=2

600 3200 translate

0 400 moveto  4400  0 rlineto  stroke
0 400 moveto  0 -3600 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS

 000 350 moveto  0 100 rlineto  stroke
0800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

-200  500 moveto (0,00) show
 600  500 moveto (0,06) show
1400  500 moveto (0,12) show
2200  500 moveto (0,18) show
3000  500 moveto (0,24) show
3800  500 moveto (0,30) show

%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke

-575  -100 moveto (  0,00) show
-575  -900 moveto (-0,06) show
-575 -1700 moveto (-0,12) show
-575 -2500 moveto (-0,18) show

TIM
-380  -1300 moveto (b') show
4300 250 moveto (a') show

-600 -3200 translate

 %1000 02 01 16 01 .00 .0020              ********************
 %ANF  PROZSPEP3.FOR: MULYA=13333 BEO=02 CIELAB 1976 IXY0:  400 3200

    400   3200 translate

   9657  -6202 moveto
   9657  -6202   9666  -6212   9642  -6203 curveto
   9610  -6190   9426  -6080   9018  -5830 curveto
   8481  -5499   7863  -5120   7227  -4729 curveto
   6628  -4367   6041  -4019   5490  -3698 curveto
   4943  -3383   4391  -3065   3769  -2701 curveto
   3156  -2344   2578  -2012   2043  -1717 curveto
   1565  -1460   1123  -1239    723  -1054 curveto
    527   -898    772   -759   1060   -634 curveto
   1304   -535   1510   -464   1685   -408 curveto
   1832   -356   1965   -309   2091   -267 curveto
   2214   -230   2337   -200   2460   -176 curveto
   2585   -157   2712   -145   2841   -139 curveto
   2972   -138   3103   -133   3233   -126 curveto
   3359   -126   3475   -120   3582   -113 curveto
   3676    -98   3756    -91   3823    -88 curveto
   3878    -75   3924    -64   3963    -57 curveto
   3995    -54   4022    -46   4042      0 curveto
   4057      0   4069      0   4077      0 curveto
   4083      0   4088      0   4093      0 curveto
   4097      0   4100      0   4101      0 curveto
   4102      0   4103      0   4129   -740 curveto
   4224  -1226   4290  -1417   4338  -1533 curveto
   4374  -1614   4405  -1674   4427  -1723 curveto
   4454  -1771   4486  -1825   4520  -1884 curveto
   4565  -1958   4630  -2056   4736  -2200 curveto
   4923  -2435   5407  -2946   9625  -6181 curveto
 stroke
 0 0 0 1 setcmyk_olvcolor
   9657  -6202 30 0 360 arc fill % 400
   9018  -5830 30 0 360 arc fill % 425
   6041  -4019 30 0 360 arc fill % 450
   3156  -2344 30 0 360 arc fill % 475
    723  -1054 30 0 360 arc fill % 500
   1510   -464 30 0 360 arc fill % 525
   2214   -230 30 0 360 arc fill % 550
   2841   -139 30 0 360 arc fill % 575
   3475   -120 30 0 360 arc fill % 600
   3878    -75 30 0 360 arc fill % 625
   4042      0 30 0 360 arc fill % 650
   4088      0 30 0 360 arc fill % 675
   4102      0 30 0 360 arc fill % 700
   4224  -1226 30 0 360 arc fill %500c
   4427  -1723 30 0 360 arc fill %525c
   4630  -2056 30 0 360 arc fill %550c
 0 0 0 1 setcmyk_olvcolor
   9657  -6202 30 0 360 arc stroke % 400
   9018  -5830 30 0 360 arc stroke % 425
   6041  -4019 30 0 360 arc stroke % 450
   3156  -2344 30 0 360 arc stroke % 475
    723  -1054 30 0 360 arc stroke % 500
   1510   -464 30 0 360 arc stroke % 525
   2214   -230 30 0 360 arc stroke % 550
   2841   -139 30 0 360 arc stroke % 575
   3475   -120 30 0 360 arc stroke % 600
   3878    -75 30 0 360 arc stroke % 625
   4042      0 30 0 360 arc stroke % 650
   4088      0 30 0 360 arc stroke % 675
   4102      0 30 0 360 arc stroke % 700
   4224  -1226 30 0 360 arc stroke %500c
   4427  -1723 30 0 360 arc stroke %525c
   4630  -2056 30 0 360 arc stroke %550c
%   2872  -1148 30 0 360 arc fill %D65 
 0 0 0 1 setcmyk_olvcolor
TBIS
%   9657 500 sub  -6202 100 sub moveto (400) show
%   9018 500 sub  -5830 100 sub moveto (425) show
%   6041 500 sub  -4019 100 sub moveto (450) show
   3156 400 sub  -2344 100 sub moveto (475) show
    723 250 sub  -1054 250 sub moveto (500) show
   1510 200 sub   -464 150 add moveto (525) show
   2214 200 sub   -230 100 add moveto (550) show
   2841 200 sub   -139 100 add moveto (575) show
   3475 200 sub   -120 100 add moveto (600) show
%   3878 200 sub    -75 100 add moveto (625) show
%   4042 200 sub      0 100 add moveto (650) show
%   4088 200 sub      0 100 add moveto (675) show
   4102 050 add      0 100 sub moveto (700) show
   4224 050 add  -1226 000 sub moveto (500c,E) show
   4427 010 sub  -1723 100 add moveto (525c,E) show
%   4630 100 add  -2056 100 sub moveto (550c,E) show
%   2872 050 add  -1148 000 sub moveto (D65 ) show

   -400  -3200 translate

 %ENDE: 3

             } if %xchart4=2

xchart4 3 eq {%xchart4=3

600 3200 translate

0 400 moveto  4400  0 rlineto  stroke
0 400 moveto  0 -3500 rlineto  stroke

%! 100 S-Einheiten = 2000 Skalen-Einheiten
TBS
   0 350 moveto  0 100 rlineto  stroke
 800 350 moveto  0 100 rlineto  stroke
1600 350 moveto  0 100 rlineto  stroke
2400 350 moveto  0 100 rlineto  stroke
3200 350 moveto  0 100 rlineto  stroke
4000 350 moveto  0 100 rlineto  stroke

-250  500 moveto (-0,6) show
 650  500 moveto (0,0) show
1450  500 moveto (0,6) show
2250  500 moveto (1,2) show
3050  500 moveto (1,8) show
3850  500 moveto (2,4) show
 
%! 100 S-Einheiten = 2000 Skalen-Einheiten

 -50     0 moveto  100 0 rlineto  stroke
 -50  -800 moveto  100 0 rlineto  stroke
 -50 -1600 moveto  100 0 rlineto  stroke
 -50 -2400 moveto  100 0 rlineto  stroke
 -50 -3200 moveto  100 0 rlineto  stroke

-450  -100 moveto (  0,0) show
-450  -900 moveto (-0,6) show
-450 -1700 moveto (-1,2) show
-450 -2500 moveto (-1,8) show

TBIK
-450  -2900 moveto (b") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK
4050 200 moveto (a") show
TBS
-120 -125 rmoveto (s) show 120 125 rmoveto
TBIK

-600 -3200 translate
 
 %1000 02             ****************************************
 %ANF  PROZSPEP.FOR: MULYA= 1333 BEO=02 a"b" LABJND 1985 IXY0:  700 3200
    700 800 add  3200 translate
   3789  -3170 moveto
   3789  -3170   3789  -3170   3788  -3170 curveto
   3787  -3170   3779  -3166   3757  -3155 curveto
   3724  -3138   3673  -3113   3603  -3079 curveto
   3514  -3037   3394  -2982   3239  -2915 curveto
   3028  -2826   2734  -2704   2265  -2508 curveto
   1626  -2234    957  -1880    645  -1481 curveto
    507  -1078    443   -720    417   -455 curveto
    411   -308    419   -223    437   -171 curveto
    464   -144    496   -130    533   -121 curveto
    573   -115    616   -111    664   -108 curveto
    721   -107    787   -105    867   -105 curveto
    963   -104   1081   -104   1227   -104 curveto
   1397   -104   1561   -104   1716   -104 curveto
   1858   -104   1981   -104   2090   -104 curveto
   2180   -104   2254   -104   2313   -104 curveto
   2360   -103   2397   -103   2429   -103 curveto
   2455   -103   2476   -103   2491   -103 curveto
   2503   -103   2512   -103   2517   -103 curveto
   2522   -103   2526   -103   2530   -103 curveto
   2533   -103   2535   -103   2536   -103 curveto
   2536   -103   2537   -103   2556   -214 curveto
   2623   -700   2668  -1007   2700  -1196 curveto
   2723  -1324   2742  -1416   2756  -1488 curveto
   2772  -1560   2791  -1636   2811  -1717 curveto
   2837  -1813   2873  -1933   2929  -2093 curveto
   3019  -2313   3211  -2648   3788  -3169 curveto
 stroke
 1 setgray
   3789  -3170 30 0 360 arc fill % 400
   3757  -3155 30 0 360 arc fill % 425
   3394  -2982 30 0 360 arc fill % 450
   1626  -2234 30 0 360 arc fill % 475
    417   -455 30 0 360 arc fill % 500
    496   -130 30 0 360 arc fill % 525
    721   -107 30 0 360 arc fill % 550
   1227   -104 30 0 360 arc fill % 575
   1981   -104 30 0 360 arc fill % 600
   2360   -103 30 0 360 arc fill % 625
   2491   -103 30 0 360 arc fill % 650
   2526   -103 30 0 360 arc fill % 675
   2536   -103 30 0 360 arc fill % 700
   2623   -700 30 0 360 arc fill %500c
   2756  -1488 30 0 360 arc fill %525c
   2873  -1933 30 0 360 arc fill %550c
 0 setgray
   3789  -3170 30 0 360 arc stroke % 400
   3757  -3155 30 0 360 arc stroke % 425
   3394  -2982 30 0 360 arc stroke % 450
   1626  -2234 30 0 360 arc stroke % 475
    417   -455 30 0 360 arc stroke % 500
    496   -130 30 0 360 arc stroke % 525
    721   -107 30 0 360 arc stroke % 550
   1227   -104 30 0 360 arc stroke % 575
   1981   -104 30 0 360 arc stroke % 600
   2360   -103 30 0 360 arc stroke % 625
   2491   -103 30 0 360 arc stroke % 650
   2526   -103 30 0 360 arc stroke % 675
   2536   -103 30 0 360 arc stroke % 700
   2623   -700 30 0 360 arc stroke %500c
   2756  -1488 30 0 360 arc stroke %525c
   2873  -1933 30 0 360 arc stroke %550c
   1266   -580 30 0 360 arc fill %D65
 0 setgray
TBIS
   3789 200 sub  -3170 200 add moveto (400) show
%  3757 600 sub  -3155 100 sub moveto (425) show
%  3394 600 sub  -2982 100 sub moveto (450) show
   1626 050 sub  -2234 150 add moveto (475) show
    417 430 sub   -455 100 sub moveto (500) show
    496 400 sub   -130  50 add moveto (525) show
    721 200 sub   -107 100 add moveto (550) show
   1227 200 sub   -104 100 add moveto (575) show
   1981 200 sub   -104 100 add moveto (600) show
%  2360 200 sub   -103 100 add moveto (625) show
%  2491 200 sub   -103 100 add moveto (650) show
%  2526 200 sub   -103 100 add moveto (675) show
   2536 100 add   -103         moveto (700) show
   2623 100 add   -700 100 sub moveto (500c) show
   2756 100 add  -1488 100 sub moveto (525c) show
%   2873 100 add  -1933 100 sub moveto (550c) show
%   1266 100 add   -580 100 sub moveto (D65 ) show
   700 800 add neg -3200 translate
 %ENDE: 3

             } if %xchart4=3

xchart4 4 ge xchart4 7 le and {%4>=xchart4<=7

3500 2000 translate

%axis and scales
0 0 0 1 setcmyk_olvcolor
-2250 0 moveto 3950  0 rlineto stroke
0 -1880  moveto 0 3600  rlineto stroke
1700 100 sub 50 moveto 100 -50 rlineto
                      -100 -50 rlineto closepath fill
0 50 sub 1800 100 sub moveto 50  100 rlineto
                             50 -100 rlineto closepath fill

/xt10x 5 array def
/yt10x 5 array def

xchart4 4 eq {%xchart4=4
/xt10x [(-40) ( ) ( ) ( ) (  40)] def
/yt10x [(-40) ( ) ( ) ( ) (40)] def
             } if %xchart4=3

xchart4 5 ge xchart4 7 le and {%5>=xchart4<=7
/xt10x [(-120) ( ) ( ) ( ) (  120)] def

/yt10x [(-120) ( ) ( ) ( ) (120)] def
             } if %4>=xchart4<=6

0 0 0 1 setcmyk_olvcolor
0 1 4 {/i exch def %i=0,4 x-axis
        -1600   i 800   mul add  -75 moveto 0 150 rlineto stroke
        -1800   i 800   mul add -250 moveto
        TBS xt10x i get show
        i 4 eq {-1600 i 800 mul add 0 moveto
               xchart4 4 eq { %xchart4=4
                             000 150 rmoveto
                             TBIM (A) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -50 150 rmoveto
                             TBIM (a*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -350 150 rmoveto
                             TBIM (a*) show 
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -50 150 rmoveto
                             TBIM (A*) show TL
                            } if %xchart4=7
               } if

       } for %i=0,4

0 1 4 {/i exch def %i=0,4 y-axis
       -75 -1600 i 800 mul    add moveto 150 0 rlineto stroke
       100 -1600 i 800 mul    add 100 sub moveto
       TBS yt10x i get show
       i 4 eq {0 -1600 i 800 mul add moveto
               xchart4 4 eq { %xchart4=4
                             -250 150 rmoveto
                             TBIM (B) show TL
                            } if %xchart4=4
               xchart4 5 eq { %xchart4=5
                             -400 150 rmoveto
                             TBIM (b*) show TL
                            } if %xchart4=5
               xchart4 6 eq { %xchart4=6
                             -750 150 rmoveto
                             TBIM (b*) show
                             -40 -50 rmoveto TBL (D65) show 0 50 rmoveto TL
                            } if %xchart4=6
               xchart4 7 eq { %xchart4=7
                             -300 150 rmoveto
                             TBIM (B*) show TL
                            } if %xchart4=7
             } if

       } for %i=0,4


-3500 -2000 translate

} if %4>=xchart4<=7

%*******************************************************
%actual data

/imshow {0 -50 rmoveto TBL (d) show 0 50 rmoveto TBIS} def
/ioshow {0 -50 rmoveto TBL (e) show 0 50 rmoveto TBIS} def

%/ie 0 def %only device colours
/ie 1 def %with elementary colours

%*************************************************
xchart4 0 eq {%xchart4=0 %only for (x,y)

/fakt 4000 def

600 400 translate %for scala and graphic

0 1 05 {/i exch def %i=0,39
        XANi i get fakt mul
        YANi i get fakt mul 
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

ie 1 eq {%ie=1
0 1 05 {/i exch def %i=0,39
        XANW fakt mul YANW fakt mul moveto
        XANi i get fakt mul
        YANi i get fakt mul
        lineto stroke
       } for %i=0,39
        } if %ie=1

XANW fakt mul YANW fakt mul 90 0 360 arc stroke
XANW fakt mul 200 sub YANW fakt mul 250 sub moveto
%TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9
/SUM Xi i get
     Yi i get add
     Zi i get add 0.0001 add def 
/AnY Xi i get SUM div fakt mul def
/BnY Yi i get SUM div fakt mul def
i 0 eq {AnY 100 sub BnY 250 sub moveto %(R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto %(Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 000 add BnY 200 add moveto %(B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto %(M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

ie 1 eq {%ie=1
i 6 eq {AnY 100 sub BnY 250 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 100 sub BnY 250 sub moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 350 sub BnY 050 add moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm
        } if %ie=1

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

-600 -400 translate %for scala and grafic

} if %xchart4=0

xchart4 1 eq {%xchart4=1 %only for (a,b)

/fakt 1000 def
/a2 XW YW 0.0001 add div def
/b2 ZW YW 0.0001 add div -0.4 mul def

 1300 3200 translate %for grafic

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div fakt mul %a
        Zi i get Yi i get 0.0001 add div fakt mul %b
        0.4 mul neg
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

ie 1 eq {%ie=1
0 1 05 {/i exch def %i=0,39
        XW YW 0.0001 add div fakt mul
        ZW YW 0.0001 add div fakt mul
        0.4 mul neg moveto
        Xi i get Yi i get 0.0001 add div fakt mul %a
        Zi i get Yi i get 0.0001 add div fakt mul %b
        0.4 mul neg
        lineto stroke
       } for %i=0,39
        } if %ie=1

XW YW 0.0001 add div fakt mul
ZW YW 0.0001 add div fakt mul
0.4 mul neg i 5 le {50}{90} ifelse 0 360 arc stroke

XW YW 0.0001 add div fakt mul
200 sub
ZW YW 0.0001 add div fakt mul
0.4 mul neg
250 sub moveto
%TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9
/AnY Xi i get Yi i get 0.0001 add div
     fakt mul def
/BnY Zi i get Yi i get 0.0001 add div
     fakt mul 0.4 mul neg def
i 0 eq {AnY 150 add BnY 100 sub moveto %(R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 350 sub BnY 250 sub moveto %(G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 150 add BnY 050 sub moveto %(B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto %(M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

ie 1 eq {%ie=1
i 6 eq {AnY 150 add BnY 100 sub moveto (R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 050 sub BnY 150 add moveto (Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 350 sub BnY 050 add moveto (B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
        } if %ie=1

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

-1300 -3200 translate %for grafic

} if %xchart4=1


xchart4 2 eq {%xchart4=2 %only for (a',b')

/D13 1 3 div def
/fakt 13333 def

/a2 XW YW 0.0001 add div
    D13 exp 0.2191 mul def
/b2 ZW YW 0.0001 add div 
    D13 exp -0.08376 mul def

 200 3200 translate %for graphic

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div                 %a'
        D13 exp 0.2191 mul fakt mul
        Zi i get Yi i get 0.0001 add div                 %b' 
        D13 exp -0.08376 mul fakt mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

ie 1 eq {%ie=1
0 1 05 {/i exch def %i=0,39
        XW YW 0.0001 add div                 %a'
        D13 exp 0.2191 mul fakt mul
        ZW YW 0.0001 add div                 %b'
        D13 exp -0.08376 mul fakt mul
        moveto
        Xi i get Yi i get 0.0001 add div                 %a'
        D13 exp 0.2191 mul fakt mul
        Zi i get Yi i get 0.0001 add div                 %b'
        D13 exp -0.08376 mul fakt mul
        lineto stroke
       } for %i=0,39
        } if %ie=1

XW YW 0.0001 add div                 %a'
D13 exp 0.2191 mul fakt mul
ZW YW 0.0001 add div                 %b' 
D13 exp -0.08376 mul fakt mul
i 5 le {50}{90} ifelse 0 360 arc stroke

XW YW 0.0001 add div                 %a'
D13 exp 0.2191 mul fakt mul
200 sub
ZW YW 0.0001 add div                 %b' 
D13 exp -0.08376 mul fakt mul
250 sub moveto
%TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9

/AnY Xi i get Yi i get 0.0001 add div       %a'
     D13 exp 0.2191 mul fakt mul def
/BnY Zi i get Yi i get 0.0001 add div       %b'
     D13 exp -0.08376 mul fakt mul def

i 0 eq {AnY 150 add BnY 100 sub moveto %(R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 150 add BnY 050 sub moveto %(B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto %(M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

ie 1 eq {%ie=1
i 6 eq {AnY 150 add BnY 050 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 050 sub BnY 150 add moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 050 sub BnY 250 sub moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm
        } if %ie=1

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

-200  -3200 translate %for graphic

} if %xchart4=2

xchart4 3 eq {%xchart4=3 %only for (a",b")

%100 3800 moveto TIS ((a",b") (LAB 1977)) show

/fakt 1333 def
/XD65 95.04 def
/YD65 100.00 def
/ZD65 108.89 def
/aD65 XD65 YD65 0.0001 add div def
/bD65 ZD65 YD65 0.0001 add div -0.4 mul def
/a2 aD65 def
/b2 bD65 def

 700 800 add 3200 translate %for grafic

0 1 05 {/i exch def %i=0,39
        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

ie 1 eq {%ie=1
0 1 05 {/i exch def %i=0,39
        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def

        an fakt mul bn fakt mul moveto

        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def
        lineto stroke
       } for %i=0,39
        } if %ie=1

a"n fakt mul
b"n fakt mul
i 5 le {50}{90} ifelse 0 360 arc stroke

a"n fakt mul
200 sub
b"n fakt mul
250 sub moveto
%TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9

        /a  Xi i get Yi i get 0.0001 add div def
        /an XK       YK       0.0001 add div def
        /b  Zi i get Yi i get 0.0001 add div 0.4 mul neg def
        /bn ZK       YK       0.0001 add div 0.4 mul neg def
        /a" an a an sub
            1 a an sub abs 0.5 mul add div add def
        /b" bn b bn sub
            1 b bn sub abs 0.5 mul add div add def
        a" fakt mul
        b" fakt mul
        /a"n an def
        /b"n bn def

/AnY a" fakt mul def
/BnY b" fakt mul def

i 0 eq {AnY 150 add BnY 100 sub moveto %(R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 sub moveto %(Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 350 sub BnY 250 sub moveto %(G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 150 add BnY 050 sub moveto %(B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 050 sub moveto %(M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

ie 1 eq {%ie=1
i 6 eq {AnY 150 add BnY 150 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 100 sub BnY 250 sub moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 300 sub BnY 250 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 050 sub BnY 150 add moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm
        } if %ie=1

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

700 800 add neg -3200 translate %for graphic

} if %xchart4=3

xchart4 4 eq {%xchart4=4 %only for (A,B)

/fakt 40 def
/a2 1.00 def
/b2 -0.4 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (A) show
TBS ( = \050) show
TBIS (a) show
TBS ( - ) show
TBIS (a) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1300 moveto
TBIS (B) show
TBS ( = \050) show
TBIS (b) show
TBS ( - ) show
TBIS (b) show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show
TBS (]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show
TBS (]) show

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1) show

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -0,4) show

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div          %(a-an)Y
        XK       YK       0.0001 add div sub
        Yi i get mul fakt mul
        Zi i get Yi i get 0.0001 add div          %(b-bn)Y
        ZK       YK       0.0001 add div sub 0.4 mul neg
        Yi i get mul fakt mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

ie 1 eq {%ie=1
0 1 05 {/i exch def %i=0,39
        0 0 moveto
        Xi i get Yi i get 0.0001 add div          %(a-an)Y
        XK       YK       0.0001 add div sub
        Yi i get mul fakt mul
        Zi i get Yi i get 0.0001 add div          %(b-bn)Y
        ZK       YK       0.0001 add div sub 0.4 mul neg
        Yi i get mul fakt mul
        lineto stroke
       } for %i=0,39
        } if %ie=1

XW       YW       0.0001 add div                 %(a-an)YW
XK       YK       0.0001 add div sub
YW mul fakt mul
ZW       YW       0.0001 add div                 %(b-an)YW
ZK       YK       0.0001 add div sub 0.4 mul neg
YW mul fakt mul
i 5 le {50}{90} ifelse 0 360 arc stroke

0 080 add
0 080 add moveto
%TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9

/AnY Xi i get Yi i get 0.0001 add div          %(a-an)Y
     XK       YK       0.0001 add div sub
     Yi i get mul fakt mul def
/BnY Zi i get Yi i get 0.0001 add div          %(b-bn)Y
     ZK       YK       0.0001 add div sub 0.4 mul neg
     Yi i get mul fakt mul def

i 0 eq {AnY 150 add BnY 050 sub moveto %(R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 050 sub BnY 250 sub moveto %(B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 100 sub moveto %(M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

ie 1 eq {%ie=1
i 6 eq {AnY 150 add BnY 150 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 100 sub BnY 150 add moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 300 sub BnY 000 add moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 000 add BnY 250 sub moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm
        } if %ie=1

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

} if %xchart4=4

xchart4 5 eq {%xchart4=5 %only for (a*,b*)

/D13 1 3 div def
/fakt 40 3 div def
/a2 1 XW div D13 exp def
/b2 1 ZW div D13 exp -0.4 mul def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b' = b2 (z/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

ie 1 eq {%ie=1
0 1 05 {/i exch def %i=0,39
        0 0 moveto
        Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b' = b2 (z/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
        lineto stroke
       } for %i=0,39
        } if %ie=1

XW       YW       0.0001 add div
D13 exp a2 mul
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D13 exp b2 mul
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

i 5 le {50}{90} ifelse 0 360 arc stroke

XW       YW       0.0001 add div
D13 exp a2 mul
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div
D13 exp b2 mul
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
%TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9

/AnY    Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b'= b2 (x/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

i 0 eq {AnY 150 add BnY 050 sub moveto %(R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 350 sub BnY 050 sub moveto %(G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 050 sub BnY 250 sub moveto %(B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 100 sub moveto %(M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

ie 1 eq {%ie=1
i 6 eq {AnY 150 add BnY 050 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 050 sub BnY 150 add moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 150 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 100 add BnY 250 sub moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm
        } if %ie=1

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

-3500 -2000 translate %for text and grafic

} if %xchart4=5

xchart4 6 eq {%xchart4=6 %only for (a*,b*) with const. for D65

/D13 1 3 div def
/fakt 40 3 div def
/a2 0.2191 def
/b2 -0.08376 def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a') show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 800 moveto
TBIS (b') show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=[1/) show TBIS (X) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show a2 cvsshow4

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS (=-[1/) show TBIS (Z) show
0 -50 rmoveto TBL (D65) show 0 50 rmoveto
TBS (]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto
TBS (=) show b2 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b'= b2 (z/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

ie 1 eq {%ie=1
0 1 05 {/i exch def %i=0,39
        0 0 moveto
        Xi i get Yi i get 0.0001 add div             %500(a'-a'n)Y**(1/3)
        D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        Zi i get Yi i get 0.0001 add div             %500(b'-b'n)Y**(1/3)
        D13 exp b2 mul                               %b'= b2 (z/y)**(1/3)
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
        lineto stroke
       } for %i=0,39
        } if %ie=1

XW       YW       0.0001 add div
D13 exp a2 mul
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D13 exp b2 mul
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

i 5 le {50}{90} ifelse 0 360 arc stroke

XW       YW       0.0001 add div             %500(a'-a'n)Y**(1/3)
D13 exp a2 mul                               %a'= a2 (x/y)**(1/3)
XK       YK       0.0001 add div
D13 exp a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div             %500(b'-b'n)Y**(1/3)
D13 exp b2 mul                               %a'= a2 (x/y)**(1/3)
ZK       YK       0.0001 add div
D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
%TBS TELi xchartl get show

TBIS
0 1 9 {/i exch def %i=0,9

/AnY    Xi i get Yi i get 0.0001 add div
        D13 exp a2 mul
        XK       YK       0.0001 add div
        D13 exp a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div
        D13 exp b2 mul
        ZK       YK       0.0001 add div
        D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

i 0 eq {AnY 150 add BnY 050 sub moveto %(R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 200 add moveto %(Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 050 sub BnY 250 sub moveto %(B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 100 sub moveto %(M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

ie 1 eq {%ie=1
i 6 eq {AnY 150 add BnY 050 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 100 sub BnY 150 add moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 000 add BnY 250 sub moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm
        } if %ie=1

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

-3500 -2000 translate %for text and grafic

} if %xchart4=6

xchart4 7 eq {%xchart4=7 %only for (a*,b*)D65

/D13 1 3 div def
/D11 1 def
/D16  1 6 div def
/fakt 40 3 div def
/a2 1 15 div def
/b2 1 12 div neg def

3500 2000 translate %for text and grafic

-3400 1800 moveto
TBIS (XYZ) show TBL (w) show TBS (=) show
XK cvsshow5 (, ) show YK cvsshow5 (, ) show ZK cvsshow2

-3400 1550 moveto
TBIS (a*) show
TBS ( = 500 \050) show
TBIS (a') show
TBS ( - ) show
TBIS (a') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1300 moveto
TBIS (b*) show
TBS ( = 500 \050) show
TBIS (b') show
TBS ( - ) show
TBIS (b') show 0 -50 rmoveto TBL (n) show 0 50 rmoveto
TBS (\051 ) show
TBIS (Y) show 0 50 rmoveto TBL (1/3) show 0 -50 rmoveto

-3400 1050 moveto
TBIS (a) show
TBS ( = ) show
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (x/y) show TBS ( + 1]) show

-3400 800 moveto
TBIS (b) show
TBS ( = ) show
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( [) show
TBIS (z/y) show TBS ( + 1/6 ]) show
0 50 rmoveto TBL (1/3) show 0 -50 rmoveto TBS

-3400 550 moveto
TBIS (a) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = 1/15 = ) show a2 cvsshow5

-3400 300 moveto
TBIS (b) show 0 -50 rmoveto TBL (2) show 0 50 rmoveto
TBS ( = -1/12 = ) show b2 cvsshow5

-3400 050 moveto
TBIS (n) show
TBS ( = ) show
TELi xchartl get show

0 1 05 {/i exch def %i=0,39
        Xi i get Yi i get 0.0001 add div            %500(a'-a'n)Y**(1/3)
        D11 add a2 mul                              %a'=(x/y+1)/15
        XK       YK       0.0001 add div
        D11 add a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul
                                                       
        Zi i get Yi i get 0.0001 add div            %500(b'-b'n)Y**(1/3)
        D16 add D13 exp b2 mul                      %b'=-[(z/y +1/6)**(1/3)]/12
        ZK       YK       0.0001 add div
        D16 add D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        i 0 eq {moveto} if
        i 1 ge i 04 le and {lineto} if
        i 05 eq {lineto closepath stroke} if
       } for %i=0,39

ie 1 eq {%ie=1
0 1 05 {/i exch def %i=0,39
        0 0 moveto
        Xi i get Yi i get 0.0001 add div            %500(a'-a'n)Y**(1/3)
        D11 add a2 mul                              %a'=(x/y+1)/15
        XK       YK       0.0001 add div
        D11 add a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        Zi i get Yi i get 0.0001 add div            %500(b'-b'n)Y**(1/3)
        D16 add D13 exp b2 mul                      %b'=-[(z/y +1/6)**(1/3)]/12
        ZK       YK       0.0001 add div
        D16 add D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul

        lineto stroke
       } for %i=0,39
} if %ie=1

XW       YW       0.0001 add div
D11 add a2 mul
XK       YK       0.0001 add div
D11 add a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

ZW       YW       0.0001 add div
D16 add D13 exp b2 mul
ZK       YK       0.0001 add div
D16 add D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul

i 5 le {50}{90} ifelse 0 360 arc stroke

XW       YW       0.0001 add div
D11 add a2 mul
XK       YK       0.0001 add div
D11 add a2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add

ZW       YW       0.0001 add div
D16 add D13 exp b2 mul
ZK       YK       0.0001 add div
D16 add D13 exp b2 mul sub
YW 0.0001 add D13 exp mul fakt mul 500 mul
080 add moveto
%TBS TELi xchartl get show

TBIS
0 1 09 {/i exch def %i=0,9

/AnY    Xi i get Yi i get 0.0001 add div            %500(a'-a'n)Y**(1/3)
        D11 add a2 mul                              %a'=(x/y+1)/15
        XK       YK       0.0001 add div
        D11 add a2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

/BnY    Zi i get Yi i get 0.0001 add div            %500(b'-b'n)Y**(1/3)
        D16 add D13 exp b2 mul                      %b'=-[(z/y +1/6)**(1/3)]/12
        ZK       YK       0.0001 add div
        D16 add D13 exp b2 mul sub
        Yi i get 0.0001 add D13 exp mul fakt mul 500 mul def

i 0 eq {AnY 150 add BnY 100 sub moveto %(R) show imshow
        0 1 1 0 setcmykcolor} if %Rm
i 1 eq {AnY 100 sub BnY 250 add moveto %(Y) show imshow
        0 0 1 0 setcmykcolor} if %Ym
i 2 eq {AnY 350 sub BnY 150 sub moveto %(G) show imshow
        1 0 1 0 setcmykcolor} if %Gm
i 3 eq {AnY 350 sub BnY 050 sub moveto %(C) show imshow
        1 0 0 0 setcmykcolor} if %Cm
i 4 eq {AnY 050 sub BnY 250 sub moveto %(B) show imshow
        1 1 0 0 setcmykcolor} if %Bm
i 5 eq {AnY 150 add BnY 100 sub moveto %(M) show imshow
        0 1 0 0 setcmykcolor} if %Mm

ie 1 eq {%ie=1
i 6 eq {AnY 150 add BnY 050 sub moveto (R) show ioshow
        0 1 1 0 setcmykcolor} if %Rm
i 7 eq {AnY 100 sub BnY 150 add moveto (Y) show ioshow
        0 0 1 0 setcmykcolor} if %Ym
i 8 eq {AnY 350 sub BnY 050 sub moveto (G) show ioshow
        1 0 1 0 setcmykcolor} if %Gm
i 9 eq {AnY 000 add BnY 250 sub moveto (B) show ioshow
        1 1 0 0 setcmykcolor} if %Bm
} if %ie=1

newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc fill
0 setgray
newpath
AnY BnY i 5 le {50}{90} ifelse 0 360 arc stroke

} for %i=0,9

-3500 -2000 translate %for text and grafic

} if %xchart4=7

showpage
grestore

%} for %xchartl=0,7

} for %xchart4=0,7

%} for %xcolorl=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave
} if %xchart<=xchart3P0
BeginEPSF
219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen
  10 /Times-ISOL1 FS  53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate
%%BeginDocument: Bild 29 Teststreifen Ueberlaenge

%line 509

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
-0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen%

%%BeginDocument: Bild 30 %Rechteckrahmen

%line 519
%!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101
%%BoundingBox: 0 0 598 845

%%EndProlog
gsave

/lanind 1 def
/lantex [(G) (E) (S) (N) (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

/lanind1 01 def /lanind2 01 def /lanindd 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def
/pchart1 00 def /pchart2 00 def /pchartd 01 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def} if
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def} if
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 1 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def} if
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def} if
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def} if

/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 0 def
/i*ptrsc 0 def

gsave

%xchart 0 eq  {%beg if xchart=0

0 setgray

1.0 1.0  scale

0.0 MM 0.0 MM translate

0.15 MM setlinewidth

/x 20 array def
/y 20 array def
/d 20 array def

/x [000 296 296 000  002 294 294 002  005 291 291 005 %speziell
    006 290 290 006  008 288 288 008 ] def
/y [000 000 210 210  002 002 208 208  005 005 205 205 %speziell
    006 006 204 204  008 008 202 202 ] def
/d [060 017 -60 -17  058 015 -58 -15  056 013 -56 -13
    054 011 -54 -11  052 009 -52 -09 ] def

/xlu 017 MM def /ylu 017 MM def
/xro 279 MM def /yro 193 MM def
/xlo 017 MM def /ylo 193 MM def
/xru 279 MM def /yru 017 MM def

xlu 8 MM sub ylu moveto  16 MM 0 rlineto stroke
xlu ylu 8 MM sub moveto 0  16 MM rlineto stroke
xro 8 MM add yro moveto -16 MM 0 rlineto stroke
xro yro 8 MM add moveto 0 -16 MM rlineto stroke

xru 8 MM sub yru moveto  16 MM 0 rlineto stroke
xru yru 8 MM sub moveto 0  16 MM rlineto stroke
xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke
xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke

1 2 7 {/i exch def %Zentrierkreise
xlu ylu i MM 0 360 arc stroke
xro yro i MM 0 360 arc stroke
xru yru i MM 0 360 arc stroke
xlo ylo i MM 0 360 arc stroke
      } for %i

12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
        /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def

i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse

0 setgray
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke

i 16 eq {6 /Times-ISOL1 FS
         /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def
         /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def
         x00 xdif 0 mul add MM y0o MM moveto (V) show
         x00 xdif 0 mul add MM y0u MM moveto (C) show
         x00 xdif 1 mul add MM y0o MM moveto (L) show
         x00 xdif 1 mul add MM y0u MM moveto (M) show
         x00 xdif 2 mul add MM y0o MM moveto (O) show
         x00 xdif 2 mul add MM y0u MM moveto (Y) show
         x00 xdif 3 mul add MM y0o MM moveto (Y) show
         x00 xdif 3 mul add MM y0u MM moveto (O) show
         x00 xdif 4 mul add MM y0o MM moveto (M) show
         x00 xdif 4 mul add MM y0u MM moveto (L) show
         x00 xdif 5 mul add MM y0o MM moveto (C) show
         x00 xdif 5 mul add MM y0u MM moveto (V) show

         x0l MM y00 ydif 0 mul add MM moveto (V) show
         x0r MM y00 ydif 0 mul add MM moveto (C) show
         x0l MM y00 ydif 1 mul add MM moveto (L) show
         x0r MM y00 ydif 1 mul add MM moveto (M) show
         x0l MM y00 ydif 2 mul add MM moveto (O) show
         x0r MM y00 ydif 2 mul add MM moveto (Y) show
         x0l MM y00 ydif 3 mul add MM moveto (Y) show
         x0r MM y00 ydif 3 mul add MM moveto (O) show
         x0l MM y00 ydif 4 mul add MM moveto (M) show
         x0r MM y00 ydif 4 mul add MM moveto (L) show
         x0l MM y00 ydif 5 mul add MM moveto (C) show
         x0r MM y00 ydif 5 mul add MM moveto (V) show
        } if

       } for %i=0,16

0 1 10 {/j0 exch def /j1 j0 1 add def %j0

         j0 0 eq {tzccmy0* setcmykcolor} if
         j0 1 eq {0 setgray} if
         j0 2 eq {tzmcmy0* setcmykcolor} if
         j0 3 eq {0 setgray} if
         j0 4 eq {tzycmy0* setcmykcolor} if
         j0 5 eq {0 setgray} if
         j0 6 eq {tzrcmy0* setcmykcolor} if
         j0 7 eq {0 setgray} if
         j0 8 eq {tzgcmy0* setcmykcolor} if
         j0 9 eq {0 setgray} if
         j0 10 eq {tzbcmy0* setcmykcolor} if

12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
        /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def

i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse

x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto
x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke

x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto
x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke

x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto
x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke

x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto
x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke

       } for %i=0,16

       } for %j0

0.15 MM setlinewidth
/s 7 MM def /s1 8 MM def /s5 36 MM def
16 1 20 {/j exch def /j0 j 16 sub def %j=16,20
         /ix0 xlu  8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def

0 1 3 {/ij exch def %ij=0,3

 ij 0 eq {/ix0 xlu  8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if
 ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if
 ij 2 eq {/ix0 xlo  8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if
 ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if

i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor
              j 16 eq {tzan j get dup dup 0 setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              tzan j get dup dup 0 setcmykcolor
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=0,2

i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor
              j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              1 tzan j get sub dup dup setrgbcolor %N
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=1,3

i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5
  [/CIEBasedABC <<    %Farbraum und Grenzen fuer D65
  /RangeABC [0 100 -128 127 -128 127]
  /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
  /MatrixABC [1 1 1 1 0 0 0 0 -1]
  /DecodeLMN
    [{dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind]
    /WhitePoint  [0.9505 1 1.089]                %CIEXYZ fuer D65
 >>] setcolorspace

 j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
          tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
          tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
          setcolor %N
          ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
          tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
          tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
          tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
          setcolor %N
          ix0 iy0 s s  rec fill
             } if %i*ptrsc=4,5

i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor
              j 16 eq {0 0 0 tzan j get setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              0 0 0 tzan j get setcmykcolor
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=6

i*ptrsc 7 eq {%i*ptrsc=7 w* setgray
              j 16 eq {1 tzan j get sub setgray
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              1 tzan j get sub setgray
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=7

      } for %ij=0,3

        } for %j=16,20

0 setgray
018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show

276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show

018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show

276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show

colorm 0 eq deintp 0 eq and {/Txx (d) def  /Fxx (d) def} if %3D=0, de=0
colorm 0 eq deintp 1 eq and {/Txx (e) def  /Fxx (e) def} if %3D=0, de=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %3D=1, de=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %3D=1, de=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if

/xchart3P0 xchart3 0 add def

0 setgray
12 /Times-ISOL1 FS
61 MM 13 MM  moveto
(TUB\255Pr\374fvorlage MF49) showde                             %0MF49X-Y 0000#
(TUB\255test chart MF49) showen                                 %1MF49X-Y 0000#
(Gr\341fico TUB\255MF49) showes                                 %2MF49X-Y 0000#
(Graphique TUB\255MF49) showfr                                  %3MF49X-Y 0000#
(Grafico TUB\255MF49) showit                                    %4MF49X-Y 0000#
(TUB\255test chart MF49) showjp                                 %5MF49X-Y 0000#

(; Computergrafik und Farbmetrik) showde                        %0MF49X-Y 0100#
(; Computer graphics and colorimetry) showen                    %1MF49X-Y 0100#
(; la gr\341fica de Ordenador y colorimetry) showes             %2MF49X-Y 0100#
(; les infographies et colorim\351trie) showfr                  %3MF49X-Y 0100#
(; la grafica Computerizzata ed il colorimetry) showit          %4MF49X-Y 0100#
(; Computer graphics and colorimetry) showjp                    %5MF49X-Y 0100#

61 MM 09 MM  moveto
12 /Times-ISOL1 FS
xchart xchart3P0 le
   {%xchart<=xchart3P0
    (Bildserie ) showde                                         %0MF49X-Y 0200#
    (Image series ) showen                                      %1MF49X-Y 0200#
    (Imagine la serie ) showes                                  %2MF49X-Y 0200#
    (Collection d'image ) showfr                                %3MF49X-Y 0200#
    (Serie di immagine ) showit                                 %4MF49X-Y 0200#
    (Image series ) showjp                                      %5MF49X-Y 0200#
    (MF49) show
   }%xchart<=xchart3P0

   {%xchart>xchart3P0
    (Farben und Farbdifferenz ) showde                          %0MF49X-Y 0300#
    (Colors and color difference ) showen                       %1MF49X-Y 0300#
    (Colores y diferencia en color ) showes                     %2MF49X-Y 0300#
    (Les couleurs et diff\351rences de couleur ) showfr         %3MF49X-Y 0300#
    (I colori e colora la differenza ) showit                   %4MF49X-Y 0300#
    (Colors and color difference ) showjp                       %5MF49X-Y 0300#
    12 /TimesI-ISOL1 FS
    colorm 0 eq {%3D=0
                 (DE*' ) show
                }%3D=0
                {%3D=1
                 (DE'* ) show
                } ifelse %3D=1
   } ifelse %xchart>xchart3P0

12 /Times-ISOL1 FS
(, 3D=) show colorm cvishow
(, de=) show deintp cvishow

xchart 1 ge {%xchart>=1
12 /TimesI-ISOL1 FS
%MK00_49
             colorm 0 eq {(, sRGB) show}
                         {(, sRGB*) show
                         } ifelse
%MK50_99
%pchart 0 eq {(, L-cmyn6) show} if
%pchart 2 eq {(, P-cmyn6) show} if
%pchart 4 eq {(, A-cmyn6) show} if
%pchart 6 eq {(, L-cmy0) show} if
%pchart 8 eq {(, P-cmy0) show} if
%colorm 1 eq {(*) show} if
           } if %xchart>=1

xchart 1 ge {%xchart>=1
7 /Times-ISOL1 FS
172 MM 16 MM moveto
/FILEDATA_RX0F_IOF where {pop FILEDATA_RX0F_IOF show} if
            } if %xchart>=1

12 /Times-ISOL1 FS
172 MM 12.5 MM moveto
(Eingabe: ) showde                                              %0MF49X-Y 0800#
(input: ) showen                                                %1MF49X-Y 0800#
(entrada: ) showes                                              %2MF49X-Y 0800#
(entr\351e : ) showfr                                           %3MF49X-Y 0800#
(immettere: ) showit                                            %4MF49X-Y 0800#
(input: ) showjp                                                %5MF49X-Y 0800#
12 /TimesI-ISOL1 FS
(rgb/cmyk -> ) show
xchart xchart3 lt {(rgb/cmyk) show} if
xchart xchart3 ge {%xchart>=xchart3
             (rgb) show
             10 /Times-ISOL1 FS
             0 -2 rmoveto Txx show 0 2 rmoveto
             12 /Times-ISOL1 FS
            } if %xchart>=xchart3

12 /Times-ISOL1 FS
172 MM 9 MM moveto
(Ausgabe: ) showde                                              %0MF49X-Y 0900#
(output: ) showen                                               %1MF49X-Y 0900#
(salida: ) showes                                               %2MF49X-Y 0900#
(sortie : ) showfr                                              %3MF49X-Y 0900#
(uscita: ) showit                                               %4MF49X-Y 0900#
(output: ) showjp                                               %5MF49X-Y 0900#

%colorm=0,1!
12 /Times-ISOL1 FS
xchart 0 eq {%xchart=0,#0
             12 /Times-ISOL1 FS
(keine \334nderung) showde                                      %0MF49X-Y 1000#
(no change) showen                                              %1MF49X-Y 1000#
(ning\372n cambio) showes                                       %2MF49X-Y 1000#
(aucun changement) showfr                                       %3MF49X-Y 1000#
(nessun cambiamento) showit                                     %4MF49X-Y 1000#
(no change compared) showjp                                     %5MF49X-Y 1000#
            }%xchart=0

            {%xchart#0
             12 /Times-ISOL1 FS
             colorm 0 eq {%colorm=0
(Transfer nach ) showde                                         %0MF49X-Y 1100#
(transfer to ) showen                                           %1MF49X-Y 1100#
(transfiera a ) showes                                          %2MF49X-Y 1100#
(transf\351rer \340 ) showfr                                    %3MF49X-Y 1100#
(trasferire a ) showit                                          %4MF49X-Y 1100#
(transfer to ) showjp                                           %5MF49X-Y 1100#
                         }%colorm=0
                         {%colorm=1
(3D\255Linearisierung ) showde                                  %0MF49X-Y 1200#
(3D\255linearization to ) showen                                %1MF49X-Y 1200#
(3D\255linealizaci\363n a ) showes                              %2MF49X-Y 1200#
(lin\351arisation 3D selon ) showfr                             %3MF49X-Y 1200#
(3D\255linearizzazione a ) showit                               %4MF49X-Y 1200#
(3D\255linearization to ) showjp                                %5MF49X-Y 1200#
                         } ifelse %colorm=1
12 /TimesI-ISOL1 FS
xchart5f 0 eq {(rgb)  show} if
xchart5f 1 eq {(cmyk) show} if
xchart5f 2 eq {(cmy0) show} if
xchart5f 3 eq {(cmyk) show} if
colorm 1 eq {(*) show} if
10 /Times-ISOL1 FS
0 -2 rmoveto Txx show 0 2 rmoveto
12 /Times-ISOL1 FS
} ifelse %xchart=0,#0

%0 setgray %end white and unvisible

12 /Times-ISOL1 FS

 62 MM 198.5 MM  moveto
(http://130.149.60.45/~farbmetrik/MF49/MF49L) show
(0) show
LSC$ show LEX$ show

%1 setgray %start white and unvisible
(; ) show
xchart 0 eq {
(Start\255Ausgabe) showde                                       %0MF49X-Y 1300#
(start output) showen                                           %1MF49X-Y 1300#
(comience salida) showes                                        %2MF49X-Y 1300#
(sortie de production) showfr                                   %3MF49X-Y 1300#
(cominciare l'uscita) showit                                    %4MF49X-Y 1300#
(start output) showjp                                           %5MF49X-Y 1300#
           } if
LSC$ (C) eq {
(Start\255Ausgabe) showde                                       %0MF49X-Y 1400#
(start output) showen                                           %1MF49X-Y 1400#
(comience salida) showes                                        %2MF49X-Y 1400#
(sortie de production) showfr                                   %3MF49X-Y 1400#
(cominciare l'uscita) showit                                    %4MF49X-Y 1400#
(start output) showjp                                           %5MF49X-Y 1400#
           } if
xchart 1 ge {%xchart>=1
colorm 0 eq {%colorm=0,1
(Transfer Ausgabe) showde                                       %0MF49X-Y 1500#
(transfer output) showen                                        %1MF49X-Y 1500#
(salida de transferencia) showes                                %2MF49X-Y 1500#
(sortie de transfert) showfr                                    %3MF49X-Y 1500#
(uscita di trasferimento) showit                                %4MF49X-Y 1500#
(transfer output) showjp                                        %5MF49X-Y 1500#
            }%colorm=0
            {%colorm=1
(3D\255Linearisierung) showde                                   %0MF49X-Y 1600#
(3D\255linearization) showen                                    %1MF49X-Y 1600#
(3D\255linealizaci\363n) showes                                 %2MF49X-Y 1600#
(lin\351arisation 3D) showfr                                    %3MF49X-Y 1600#
(3D\255linearizzzazione) showit                                 %4MF49X-Y 1600#
(3D\255linearization) showjp                                    %5MF49X-Y 1600#
            } ifelse %colorm=0,1
            } if %xchart>=1

 62 MM 194 MM  moveto
LSC$ (N) eq LSC$ (C) eq or {
(N: Keine 3D\255Linearisierung (OL) ) showde                    %0MF49X-Y 1700#
(N: no 3D\255linearization (OL) ) showen                        %1MF49X-Y 1700#
(N: ninguna 3D\255linealizaci\363n (OL) ) showes                %2MF49X-Y 1700#
(N: aucune lin\351arisation 3D (OL) ) showfr                    %3MF49X-Y 1700#
(N: nessun 3D\255linearizzazione (OL) ) showit                  %4MF49X-Y 1700#
(N: no 3D\255linearization (OL) ) showjp                        %5MF49X-Y 1700#

(in Datei (F) oder PS\255Startup (S)) showde                    %0MF49X-Y 1800#
(in file (F) or PS\255startup (S)) showen                       %1MF49X-Y 1800#
(en archivo (F) o PS\255startup (S)) showes                     %2MF49X-Y 1800#
(dans fichier (F) ou PS\255startup (S)) showfr                  %3MF49X-Y 1800#
(nel file (F) o PS\255startup (S)) showit                       %4MF49X-Y 1800#
(in file (F) or PS\255startup (S)) showjp                       %5MF49X-Y 1800#
           }
           {LSC$ show (: ) show
(3D\255Linearisierung) showde                                   %0MF49X-Y 1900#
(3D\255linearization) showen                                    %1MF49X-Y 1900#
(3D\255linealizaci\363n) showes                                 %2MF49X-Y 1900#
(lin\351arisation 3D) showfr                                    %3MF49X-Y 1900#
(3D\255linearizzzazione) showit                                 %4MF49X-Y 1900#
(3D\255linearization) showjp                                    %5MF49X-Y 1900#
( MF49/MF49L) show
LSS$ show LSX$ show (0) show
LSC$ show LEY$ show
          } ifelse
LSC$ (F) eq {
( in Datei (F)) showde                                          %0MF49X-Y 2000#
( in file (F)) showen                                           %1MF49X-Y 2000#
( en archivo (F)) showes                                        %2MF49X-Y 2000#
( dans fichier (F)) showfr                                      %3MF49X-Y 2000#
( nel file (F)) showit                                          %4MF49X-Y 2000#
( in file (F)) showjp                                           %5MF49X-Y 2000#
           } if
LSC$ (S) eq {
( im Distiller Startup (S) Directory) showde                    %0MF49X-Y 2100#
( in Distiller Startup (S) Directory) showen                    %1MF49X-Y 2100#
( en el Distiller Startup (S) Directory) showes                 %2MF49X-Y 2100#
( dans le Distiller Startup (S) Directory) showfr               %3MF49X-Y 2100#
( nel Distiller Startup (S) Directory) showit                   %4MF49X-Y 2100#
( in Distiller Startup (S) Directory) showjp                    %5MF49X-Y 2100#
           } if
LSC$ (D) eq {
( in PS\255Device (D)) showde                                   %0MF49X-Y 2200#
( in PS\255device (D)) showen                                   %1MF49X-Y 2200#
( en el PS\255device (D)) showes                                %2MF49X-Y 2200#
( dans l'appareil PS (D)) showfr                                %3MF49X-Y 2200#
( nel PS\255dispositivo (D)) showit                             %4MF49X-Y 2200#
( in PS\255Device (D)) showjp                                   %5MF49X-Y 2200#
           } if
LSC$ (T) eq {
( im Distiller Startup (S) Directory) showde                    %0MF49X-Y 2300#
( in Distiller Startup (S) Directory) showen                    %1MF49X-Y 2300#
( en el Distiller Startup (S) Directory) showes                 %2MF49X-Y 2300#
( dans le Distiller Startup (S) Directory) showfr               %3MF49X-Y 2300#
( nel Distiller Startup (S) Directory) showit                   %4MF49X-Y 2300#
( in Distiller Startup (S) Directory) showjp                    %5MF49X-Y 2300#
           } if
LSC$ (E) eq {
( in PS\255Device (D)) showde                                   %0MF49X-Y 2400#
( in PS\255device (D)) showen                                   %1MF49X-Y 2400#
( en el PS\255device (D)) showes                                %2MF49X-Y 2400#
( dans l'appareil PS  (D)) showfr                               %3MF49X-Y 2400#
( nel PS\255dispositivo (D)) showit                             %4MF49X-Y 2400#
( in PS\255Device (D)) showjp                                   %5MF49X-Y 2400#
           } if
%0 setgray %end white and unvisible

(, Seite ) showde                                               %0MF49X-Y 2500#
(, page ) showen                                                %1MF49X-Y 2500#
(, p\341gina ) showes                                           %2MF49X-Y 2500#
(, p\341ge ) showfr                                             %3MF49X-Y 2500#
(, pagina ) showit                                              %4MF49X-Y 2500#
(, page ) showjp                                                %5MF49X-Y 2500#
xchart 1 add cvishow (/) show
xchartm cvishow

 16 MM 185 MM moveto
-90 rotate
(Siehe \344hnliche Dateien: ) showde                            %0MF49X-Y 2600#
(see similar files: ) showen                                    %1MF49X-Y 2600#
(vea archivos semejantes: ) showes                              %2MF49X-Y 2600#
(voir fichiers similaires: ) showfr                             %3MF49X-Y 2600#
(vedere dei file simili: ) showit                               %4MF49X-Y 2600#
(see similar files: ) showjp                                    %5MF49X-Y 2600#
(http://130.149.60.45/~farbmetrik/MF49/MF49.HTM) show
%(0) show
%LSC$ show LEX$ show
90 rotate

 12 MM 185 MM moveto
-90 rotate
(Technische Information: ) showde                               %0MF49X-Y 2700#
(technical information: ) showen                                %1MF49X-Y 2700#
(informaci\363n t\351cnica: ) showes                            %2MF49X-Y 2700#
(informations techniques: ) showfr                              %3MF49X-Y 2700#
(informazioni tecniche: ) showit                                %4MF49X-Y 2700#
(technical information: ) showjp                                %5MF49X-Y 2700#
(http://www.ps.bam.de) show
( oder ) showde                                                 %0MF49X-Y 2800#
( or ) showen                                                   %1MF49X-Y 2800#
( o ) showes                                                    %2MF49X-Y 2800#
( ou ) showfr                                                   %3MF49X-Y 2800#
( o ) showit                                                    %4MF49X-Y 2800#
( or ) showjp                                                   %5MF49X-Y 2800#
(http://130.149.60.45/~farbmetrik) show
 90 rotate

281 MM 185 MM moveto
-90 rotate
(TUB\255Registrierung: 20130201\255MF49/MF49L) showde           %0MF49X-Y 2900#
(TUB registration: 20130201\255MF49/MF49L) showen               %1MF49X-Y 2900#
(TUB matr\355cula: 20130201\255MF49/MF49L) showes               %2MF49X-Y 2900#
(TUB enregistrement: 20130201\255MF49/MF49L) showfr             %3MF49X-Y 2900#
(TUB iscrizione: 20130201\255MF49/MF49L) showit                 %4MF49X-Y 2900#
(TUB registration: 20130201\255MF49/MF49L) showjp               %5MF49X-Y 2900#
(0) show
LSC$ show LEX$ show
90 rotate

281 MM 74 MM moveto
-90 rotate
(TUB\255Material: Code=rha4ta) showde                           %0MF49X-Y 3000#
(TUB material: code=rha4ta) showen                              %1MF49X-Y 3000#
(TUB material: code=rha4ta) showes                              %2MF49X-Y 3000#
(TUB mat\351riel: code=rha4ta) showfr                           %3MF49X-Y 3000#
(TUB materiale: code=rha4ta) showit                             %4MF49X-Y 3000#
(TUB material: code=rha4ta) showjp                              %5MF49X-Y 3000#
90 rotate

277 MM 185 MM moveto
-90 rotate
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def

( Anwendung f\374r Messung ) showde                             %0MF49X-Y 3100#
( application for measurement ) showen                          %1MF49X-Y 3100#
( aplicaci\363n para la medida ) showes                         %2MF49X-Y 3100#
( application pour la mesure ) showfr                           %3MF49X-Y 3100#
( la domanda per la misura ) showit                             %4MF49X-Y 3100#
( application for measurement ) showjp                          %5MF49X-Y 3100#

xchart5f 0 eq {%xchart5f=0
(von Display-Ausgabe) showde                                    %0MF49X-Y 3200#
(of display output) showen                                      %1MF49X-Y 3200#
(de display output) showes                                      %2MF49X-Y 3200#
(de sortie sur \350cran) showfr                                 %3MF49X-Y 3200#
(di stampa di display) showit                                   %4MF49X-Y 3200#
(of display output) showjp                                      %5MF49X-Y 3200#
} if %xchart5f=0

xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2
(von Offsetdruck\255Ausgabe) showde                             %0MF49X-Y 3300#
(of offset print output) showen                                 %1MF49X-Y 3300#
(salida en la impressi\363n offset) showes                      %2MF49X-Y 3300#
(des sorties sur offset) showfr                                 %3MF49X-Y 3300#
(uscita nella stampa di offset) showit                          %4MF49X-Y 3300#
(of offset print output) showjp                                 %5MF49X-Y 3300#
} if %xchart5f=1,2

xchart5f 3 eq {%xchart5f=3
(von Laserdrucker\255Ausgabe) showde                            %0MF49X-Y 3400#
(of laser printer output) showen                                %1MF49X-Y 3400#
(salida de impresora l\341ser) showes                           %2MF49X-Y 3400#
(des sorties sur imprimante laser) showfr                       %3MF49X-Y 3400#
(di uscita della stampante laser) showit                        %4MF49X-Y 3400#
(of laser printer output) showjp                                %5MF49X-Y 3400#
} if %xchart5f=3

xchart 1 ge {%xchart>=1
xchart5f 0 eq {%xchart5f=0
(, keine Separation) showde                                     %0MF49X-Y 3500#
(, no separation) showen                                        %1MF49X-Y 3500#
(, ninguna separaci\363n) showes                                %2MF49X-Y 3500#
(, aucune s\351paration) showfr                                 %3MF49X-Y 3500#
(, nessuna separazione) showit                                  %4MF49X-Y 3500#
(, no separation) showjp                                        %5MF49X-Y 3500#
} if %chart5f=0

xchart5f 1 ge {%xchart5f>=1
(, Separation) showde                                           %0MF49X-Y 3600#
(, separation) showen                                           %1MF49X-Y 3600#
(, separaci\363n) showes                                        %2MF49X-Y 3600#
(, s\351paration) showfr                                        %3MF49X-Y 3600#
(, separazione) showit                                          %4MF49X-Y 3600#
(, separation) showjp                                           %5MF49X-Y 3600#
xchart5f 1 eq xchart5f 3 eq or {( cmyn6) show} if
xchart5f 2 eq                  {( cmy0)  show} if
colorm 1 eq {(*) show} if
colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show
} if %xchart5f>=1

            } if %xchart>=1

IMES 1 eq LSC$ (N) ne and { %IMES=1
             (, Yr=) show Yre cvsshow1 (, XYZ) show
          } if %IMES=1
90 rotate

/i0 8 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
0.30 MM setlinewidth
0 setgray
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke

%/xlu1 013 MM def /ylu1 010 MM def
%/xro1 283 MM def /yro1 200 MM def
%/xlo1 013 MM def /ylo1 200 MM def
%/xru1 283 MM def /yru1 010 MM def

%xlu1 4 MM sub ylu1 moveto  8 MM 0 rlineto stroke
%xlu1 ylu1 4 MM sub moveto 0  8 MM rlineto stroke
%xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke
%xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke

%xru1 4 MM sub yru1 moveto  8 MM 0 rlineto stroke
%xru1 yru1 4 MM sub moveto 0  8 MM rlineto stroke
%xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke
%xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke
%} ifelse %xt=1

xchart 1 le {%xchart<=1

/ypapert 5 array def
/ypapert [(S) (D) (C) (E) (F)] def
%/ypapert [(A) (B) (L) (G) (P)] def

0 0 0 0 setcmykcolor
/i0 14 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
x i0 get MM 18 MM sub y i0 get MM 04 MM sub moveto
17 MM 0 rlineto 0 4.5 MM rlineto -17 MM 0 rlineto closepath fill

x i0 get MM 17.5 MM sub y i0 get MM 3 MM sub moveto
0 1 1 0 setcmykcolor
4.5 MM /Times-ISOL1 FS
(MF49) show
3.5 MM /Times-ISOL1 FS
xchart 0 eq {(S0) show}
            {colorm cvishow deintp cvishow} ifelse
ypapert ypaper get show

} if %xchart<=1

grestore
gsave

%**********************************************************
xchart xchart3P0 gt {%BEG xchart>xchart3P0

/n00 xchart3P0 1 add def  %special tables start at page 6
/n01 n00 1 add def       %1080-rgb-tables start at page 8
/n02 n00 2 add def

xchart n00 eq {/n1 0 def /n2 57 def} if
xchart n01 eq {/n1 0 def /n2 53 def} if
xchart n02 ge {/n1 xchart n02 sub 81 mul def
               /n2 n1 80 add def
               n2 1079 ge {/n2 1079 def} if
              } if

72 56 translate
0.01 MM dup scale
0 0 0 setrgbcolor
%0 0 moveto 24600 0 rlineto 0 17220 rlineto
%          -24600 0 rlineto closepath stroke

180 /Times-ISOL1 FS
0 0 0 setrgbcolor
7000 -180 moveto
(MF490-7N, ) show
lanind 0 eq {(Seite ) show} if
lanind 1 ge {(page ) show} if
xchart 1 add cvishow (/) show
xchartm cvishow
(-F) show %pmetam cvishow

/prog_rgb_dyF_LAB*'dyF
{%BEG prog_rgb_dyF_LAB*'dyF

/R01000 r_dyF 1000 mul def
/G01000 g_dyF 1000 mul def
/B01000 b_dyF 1000 mul def

R01000 0.04045 le  %equations of IEC 61966-2-1:2003
{/RsRGB R01000 12.92 div def}
{/RsRGB R01000 0.001 mul 0.055 add
  1.055 div 2.4 exp def} ifelse
G01000 0.04045 le
{/GsRGB G01000 12.92 div def}
{/GsRGB G01000 0.001 mul 0.055 add
  1.055 div 2.4 exp def} ifelse
B01000 0.04045 le
{/BsRGB B01000 12.92 div def}
{/BsRGB B01000 0.001 mul 0.055 add
  1.055 div 2.4 exp def} ifelse

/X*'dyF 0.4124 RsRGB mul 
        0.3576 GsRGB mul add
        0.1805 BsRGB mul add 88.59 mul def
/Y*'dyF 0.2126 RsRGB mul
        0.7152 GsRGB mul add
        0.0722 BsRGB mul add 88.59 mul def
/Z*'dyF 0.0193 RsRGB mul
        0.1192 GsRGB mul add
        0.9505 BsRGB mul add 88.59 mul def

% achromatic (D65) colours
/XLWD65100  95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def

/XQ X*'dyF XLWD65100 div def
/YQ Y*'dyF YLWD65100 div def
/ZQ Z*'dyF ZLWD65100 div def
XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if
/L*'dyF YQ 0.008856 lt {903.3 YQ mul}
        {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/a*'dyF XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
        {XQ 0.33333333 exp} ifelse
        YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
        {YQ 0.33333333 exp} ifelse sub 500 mul def
/b*'dyF YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
        {YQ 0.33333333 exp} ifelse
        ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
        {ZQ 0.33333333 exp} ifelse sub 200 mul def
/C*'dyF a*'dyF dup mul
        b*'dyF dup mul add 0.0001 add sqrt def
/h*'dyF b*'dyF a*'dyF 0.0001 add atan def

} bind def %END prog_rgb_dyF_LAB*'dyF

%********************************************************
/prog_rgb'*dyF_LAB'*dyF
{%BEG prog_rgb'*dyF_LAB'*dyF

/R01000 r'*dyF 1000 mul def
/G01000 g'*dyF 1000 mul def
/B01000 b'*dyF 1000 mul def

R01000 0.04045 le  %equations of IEC 61966-2-1:2003
{/RsRGB R01000 12.92 div def}
{/RsRGB R01000 0.001 mul 0.055 add
  1.055 div 2.4 exp def} ifelse
G01000 0.04045 le
{/GsRGB G01000 12.92 div def}
{/GsRGB G01000 0.001 mul 0.055 add
  1.055 div 2.4 exp def} ifelse
B01000 0.04045 le
{/BsRGB B01000 12.92 div def}
{/BsRGB B01000 0.001 mul 0.055 add
  1.055 div 2.4 exp def} ifelse

/X'*dyF 0.4124 RsRGB mul 
        0.3576 GsRGB mul add
        0.1805 BsRGB mul add 88.59 mul def
/Y'*dyF 0.2126 RsRGB mul
        0.7152 GsRGB mul add
        0.0722 BsRGB mul add 88.59 mul def
/Z'*dyF 0.0193 RsRGB mul
        0.1192 GsRGB mul add
        0.9505 BsRGB mul add 88.59 mul def

% achromatic (D65) colours
/XLWD65100  95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def

/XQ X'*dyF XLWD65100 div def
/YQ Y'*dyF YLWD65100 div def
/ZQ Z'*dyF ZLWD65100 div def
XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if
/L'*dyF YQ 0.008856 lt {903.3 YQ mul}
        {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/A'*dyF XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
        {XQ 0.33333333 exp} ifelse
        YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
        {YQ 0.33333333 exp} ifelse sub 500 mul def
/B'*dyF YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
        {YQ 0.33333333 exp} ifelse
        ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
        {ZQ 0.33333333 exp} ifelse sub 200 mul def

/C'*dyF A'*dyF dup mul
        B'*dyF dup mul add 0.0001 add sqrt def
/h'*dyF B'*dyF A'*dyF 0.0001 add atan def

} bind def %END prog_rgb'*dyF_LAB'*dyF

%*************************************************************
/fakt 1.0 def
/fakt2 0.74 def %0.2
/iyt  250 fakt2 mul def %text size
/iyd  277 fakt2 mul def %line difference

/ixs0  00 fakt2 mul def
/ixs1 -10 fakt2 mul def
/ixs2  10 fakt2 mul def
/iys1 -25 fakt2 mul def
/iys2  25 fakt2 mul def
/iys3  35 fakt2 mul def
/iys4 -35 fakt2 mul def
/iytie iyt 50 fakt2 mul sub def


/nshow {iyt /Times-ISOL1 FS show} def
/kshow {iyt /TimesI-ISOL1 FS show} def
/bshow {iyt /TimesB-ISOL1 FS show} def
/jshow {iyt /TimesBI-ISOL1 FS show} def
/sshow {iyt /Symbol FS show} def

/nishow  {ixs1 iys1 rmoveto iytie /Times-ISOL1  FS show ixs2 iys2 rmoveto} def
/nishow0 {  00 iys1 rmoveto iytie /Times-ISOL1  FS show   00 iys2 rmoveto} def
/neshow  {ixs1 iys3 rmoveto iytie /Times-ISOL1  FS show ixs2 iys4 rmoveto} def
/neshow0 {  00 iys3 rmoveto iytie /Times-ISOL1  FS show   00 iys4 rmoveto} def
/ishow   {ixs1 iys1 rmoveto iytie /TimesB-ISOL1 FS show ixs2 iys2 rmoveto} def
/ishow0  {  00 iys1 rmoveto iytie /TimesB-ISOL1 FS show   00 iys2 rmoveto} def
/eshow   {  00 iys3 rmoveto iytie /TimesB-ISOL1 FS show   00 iys4 rmoveto} def

0 0 0 setrgbcolor

/imaxym 17220 def
/iymax  16700 def
/imaxy0 17000 def

colorm 0 eq deintp 0 eq and {/Txx (d) def} if %3D=0, de=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %3D=0, de=1
colorm 1 eq deintp 0 eq and {/Txx (d*) def} if %3D=1, de=0
colorm 1 eq deintp 1 eq and {/Txx (e*) def} if %3D=1, de=1
xchart 0 eq {/Txx (-) def} if

/RGB58M1_F 174 array def %58x3=174
/RGB58M1_F [%rgb data of 48+1 step colour circle + 9 step gray series = 58
1.000 0.000 0.000 %00 R00Y %R
1.000 0.125 0.000 %01 R13Y
1.000 0.250 0.000 %02 R25Y
1.000 0.375 0.000 %03 R38Y
1.000 0.500 0.000 %04 R50Y
1.000 0.625 0.000 %05 R63Y
1.000 0.750 0.000 %06 R75Y
1.000 0.875 0.000 %07 R88Y

1.000 1.000 0.000 %08 Y00G %Y
0.875 1.000 0.000 %09 Y13G
0.750 1.000 0.000 %10 Y25G
0.625 1.000 0.000 %11 Y38G
0.500 1.000 0.000 %12 Y50G
0.375 1.000 0.000 %13 Y63G
0.250 1.000 0.000 %14 Y75G
0.125 1.000 0.000 %15 Y88G

0.000 1.000 0.000 %16 G00C %G
0.000 1.000 0.125 %17 G13C
0.000 1.000 0.250 %18 G25C
0.000 1.000 0.375 %19 G38C
0.000 1.000 0.500 %20 G50C
0.000 1.000 0.625 %21 G63C
0.000 1.000 0.750 %22 G75C
0.000 1.000 0.875 %23 G88C

0.000 1.000 1.000 %24 C00B %C
0.000 0.875 1.000 %25 C13B
0.000 0.750 1.000 %26 C25B
0.000 0.625 1.000 %27 C38B
0.000 0.500 1.000 %28 C50B
0.000 0.375 1.000 %29 C63B
0.000 0.250 1.000 %30 C75B
0.000 0.125 1.000 %31 C88B

0.000 0.000 1.000 %32 B00M %B
0.125 0.000 1.000 %33 B13M
0.250 0.000 1.000 %34 B25M
0.375 0.000 1.000 %35 B38M
0.500 0.000 1.000 %36 B50M
0.625 0.000 1.000 %37 B63M
0.750 0.000 1.000 %38 B75M
0.875 0.000 1.000 %39 B88M

1.000 0.000 1.000 %40 M00R %M
1.000 0.000 0.875 %41 M13R
1.000 0.000 0.750 %42 M25R
1.000 0.000 0.625 %43 M38R
1.000 0.000 0.500 %44 M50R
1.000 0.000 0.375 %45 M63R
1.000 0.000 0.250 %46 M75R
1.000 0.000 0.125 %47 M88R

1.000 0.000 0.000 %48 R00Y %R

0.000 0.000 0.000 %49 N00Wd %ncolors
0.125 0.125 0.125 %50 N13Wd
0.250 0.250 0.250 %51 N25Md
0.375 0.375 0.375 %52 N38Wd
0.500 0.500 0.500 %53 N50Wd
0.625 0.625 0.625 %54 N63Wd
0.750 0.750 0.750 %55 N75Wd
0.875 0.875 0.875 %56 N88Wd
1.000 1.000 1.000 %57 W00Nd = W
] def

/RGB58M1t_F 58 array def %48+1 step colour circle and 9 step grey steps = 58
/RGB58M1t_F [%high chromatic series:
%relative hue h*, brillance i*, and chroma c*
%range 0 ... 100
(R00Y_100_100) (R13Y_100_100) (R25Y_100_100) (R38Y_100_100)
(R50Y_100_100) (R63Y_100_100) (R75Y_100_100) (R88Y_100_100)
(Y00G_100_100) (Y13G_100_100) (Y25G_100_100) (Y38G_100_100)
(Y50G_100_100) (Y63G_100_100) (Y75G_100_100) (Y88G_100_100)
(G00C_100_100) (G13C_100_100) (G25C_100_100) (G38C_100_100)
(G50C_100_100) (G63C_100_100) (G75C_100_100) (G88C_100_100)
(C00B_100_100) (C13B_100_100) (C25B_100_100) (C38B_100_100)
(C50B_100_100) (C63B_100_100) (C75B_100_100) (C88B_100_100)
(B00M_100_100) (B13M_100_100) (B25M_100_100) (B38M_100_100)
(B50M_100_100) (B63M_100_100) (B75M_100_100) (B88M_100_100)
(M00R_100_100) (M13R_100_100) (M25R_100_100) (M38R_100_100)
(M50R_100_100) (M63R_100_100) (M75R_100_100) (M88R_100_100)
(R00Y_100_100)
%gray series
(NW_000) (NW_013) (NW_025) (NW_038)
(NW_050) (NW_063) (NW_075) (NW_088)
(NW_100)
] def

/RGB54CR_F 162 array def %54x3=162
/RGB54CR_F [%54 colours of colour rendering (CR) test chart
1.000   0.000   0.000  %01 R00Yd %RGB54CR
1.000   0.250   0.000  %02 R25Yd
1.000   0.500   0.000  %03 R50Yd
1.000   0.750   0.000  %04 R75Yd
1.000   1.000   0.000  %05 Y00Gd
0.750   1.000   0.000  %06 Y25Gd
0.500   1.000   0.000  %07 Y50Gd
0.250   1.000   0.000  %08 Y75Gd
0.000   1.000   0.000  %09 G00Bd = 10
          
0.000   1.000   0.000  %10 G00Bd
0.000   1.000   0.500  %11 G25Bd
0.000   1.000   1.000  %12 G50Bd
0.000   0.500   1.000  %13 G75Bd
0.000   0.000   1.000  %14 B00Rd
0.500   0.000   1.000  %15 B25Rd
1.000   0.000   1.000  %16 B50Rd
1.000   0.000   0.500  %17 B75Rd
1.000   0.000   0.000  %18 R00Yd = 01

1.000   0.500   0.500  %19 R00Yd %lcolors
1.000   0.750   0.500  %20 R50Yd
1.000   1.000   0.500  %21 Y00Gd
0.750   1.000   0.500  %22 Y50Gd
0.500   1.000   0.500  %23 G00Bd
0.500   1.000   1.000  %24 G50Bd
0.500   0.500   1.000  %25 B00Rd
1.000   0.500   1.000  %26 B50Rd
1.000   0.500   0.500  %27 R00Yd = 19

0.750   0.250   0.250  %28 R00Yd %zcolors
0.750   0.500   0.250  %29 R50Yd
0.750   0.750   0.250  %30 Y00Gd
0.500   0.750   0.250  %31 Y50Gd
0.250   0.750   0.250  %32 G00Bd
0.250   0.750   0.750  %33 G50Bd
0.250   0.250   0.750  %34 B00Rd
0.750   0.250   0.750  %35 B50Rd
0.750   0.250   0.250  %36 R00Yd = 28

0.500   0.000   0.000  %37 R00Yd %dcolors
0.500   0.250   0.000  %38 R50Yd
0.500   0.500   0.000  %38 Y00Gd
0.250   0.500   0.000  %40 Y50Gd
0.000   0.500   0.000  %41 G00Bd
0.000   0.500   0.500  %42 G50Bd
0.000   0.000   0.500  %43 B00Rd
0.500   0.000   0.500  %44 B50Rd
0.500   0.000   0.000  %45 R00Yd = 37

0.000   0.000   0.000  %46 N00Wd %ncolors
0.125   0.125   0.125  %47 N13Wd
0.250   0.250   0.250  %48 N25Md
0.375   0.375   0.375  %49 N38Wd
0.500   0.500   0.500  %50 N50Wd
0.625   0.625   0.625  %51 N63Wd
0.750   0.750   0.750  %52 N75Wd
0.875   0.875   0.875  %53 N88Wd
1.000   1.000   1.000  %54 W00Nd = W
] def %54 colours of colour rendering test chart

/RGB54CRt_F 54 array def
/RGB54CRt_F [%high chromatic series:
%relative hue h*, brillance i*, and chroma c*, range 0 ... 100
(R00Y_100_100) (R25Y_100_100) (R50Y_100_100) (R75Y_100_100)
(Y00G_100_100) (Y25G_100_100) (Y50G_100_100) (Y75G_100_100)
(G00B_100_100)
(G00B_100_100) (G25B_100_100) (G50B_100_100) (G75B_100_100)
(B00M_100_100) (B25R_100_100) (B50R_100_100) (B75R_100_100)
(R00Y_100_100)
%whitetish series
(R00Y_100_050) (R50Y_100_050) (Y00G_100_050) (Y50G_100_050)
(G00B_100_050) (G50B_100_050) (B00R_100_050) (B50R_100_050) 
(R00Y_100_050)
%grayish series
(R00Y_075_050) (R50Y_075_050) (Y00G_075_050) (Y50G_075_050)
(G00B_075_050) (G50B_075_050) (B00R_075_050) (B50R_075_050) 
(R00Y_075_050)
%blackish series
(R00Y_050_050) (R50Y_050_050) (Y00G_050_050) (Y50G_050_050)
(G00B_050_050) (G50B_050_050) (B00R_050_050) (B50R_050_050) 
(R00Y_050_050)
%gray series
(NW_000) (NW_013) (NW_025) (NW_038)
(NW_050) (NW_063) (NW_075) (NW_088)
(NW_100)
] def

/jCRi 54 array def
/jCRi %jCRi
[ 648 %R00Y_100_100 1.00 0.00 0.00 01 %chromatic 16 step hue
  666 %R25Y_100_100 1.00 0.25 0.00 02
  684 %R50Y_100_100 1.00 0.50 0.00 03
  702 %R75Y_100_100 1.00 0.75 0.00 04

  720 %Y00G_100_100 1.00 1.00 0.00 05
  558 %Y25G_100_100 0.75 1.00 0.00 06
  396 %Y50G_100_100 0.50 1.00 0.00 07
  234 %Y75G_100_100 0.25 1.00 0.00 08

  072 %G00B_100_100 0.00 1.00 0.00 09=10

  072 %G00B_100_100 0.00 1.00 0.00 10 %chromatic 16 step hue
  076 %G25B_100_100 0.00 1.00 0.50 11
  080 %G50B_100_100 0.00 1.00 1.00 12
  044 %G75B_100_100 0.00 0.50 1.00 13

  008 %B00R_100_100 0.00 0.00 1.00 14
  332 %B25R_100_100 0.50 0.00 1.00 15
  656 %B50R_100_100 1.00 0.00 1.00 16
  652 %B75R_100_100 1.00 0.00 0.50 17

  648 %R00Y_100_100 1.00 0.00 0.00 18=01

  688 %R00Y_100_050 1.00 0.50 0.50 19 %whitish 8 step hue
  706 %R50Y_100_050 1.00 0.75 0.50 20
  724 %Y00G_100_050 1.00 1.00 0.50 21
  562 %Y50G_100_050 0.75 1.00 0.50 22

  400 %G00B_100_050 0.50 1.00 0.50 23
  404 %G50B_100_050 0.50 1.00 1.00 24
  368 %B00R_100_050 0.50 0.50 1.00 25
  692 %B50R_100_050 1.00 0.50 1.00 26

  688 %R00Y_100_050 1.00 0.50 0.50 27=19

  506 %R00Y_075_050 0.75 0.25 0.25 28 %greyish 8 step hue
  524 %R50Y_075_050 0.75 0.50 0.25 29
  542 %Y00G_075_050 0.75 0.75 0.25 30
  380 %Y50G_075_050 0.50 0.75 0.25 31

  218 %G00B_075_050 0.25 0.75 0.25 32
  222 %G50B_075_050 0.25 0.75 0.75 33
  186 %B00R_075_050 0.25 0.25 0.75 34
  510 %B50R_075_050 0.75 0.25 0.75 35

  506 %R00Y_075_050 0.75 0.25 0.25 36=28

  324 %R00Y_050_050 0.50 0.00 0.00 37 %blackish 8 step hue
  342 %R50Y_050_050 0.50 0.25 0.00 38
  360 %Y00G_050_050 0.50 0.50 0.00 39
  198 %Y50G_050_050 0.25 0.50 0.00 40

  036 %G00B_050_050 0.00 0.50 0.00 41
  040 %G50B_050_050 0.00 0.50 0.50 42
  004 %B00R_050_050 0.00 0.00 0.50 43
  328 %B50R_050_050 0.50 0.00 0.50 44
  
  324 %R00Y_050_050 0.50 0.00 0.00 45=37
  
  000 %NW_000    0.000 0.000 0.000 46 %grey 9 steps
  091 %NW_013    0.125 0.125 0.125 47
  182 %NW_025    0.250 0.250 0.250 48
  273 %NW_038    0.375 0.375 0.375 49
  364 %NW_050    0.500 0.500 0.500 50
  455 %NW_063    0.625 0.625 0.625 51
  546 %NW_075    0.750 0.750 0.750 52
  637 %NW_088    0.875 0.875 0.875 53
  728 %NW_100    1.000 1.000 1.000 54
] def %END jCRi

/SUMDE*' 0 def
/SUMDE'* 0 def

n1 1 n2 {/n exch def %n=n1,n2
         /n30 n 3 mul def /n31 n30 1 add def /n32 n30 2 add def
         xchart n00 eq {%48+1=49 step colour circle + 9 gray steps=58 steps
                        /hcolort RGB58M1t_F n get def
                        RGB58M1_F n30 get %real
                        RGB58M1_F n31 get
                        RGB58M1_F n32 get
                       } if %48 step colour circle
         xchart n01 eq {%45 colour rendering (CR) + 9 grey steps = 54 steps
                        /hcolort RGB54CRt_F n get def
                        RGB54CR_F n30 get %real
                        RGB54CR_F n31 get
                        RGB54CR_F n32 get
                       } if %54 colour rendering colours
         xchart n02 ge {%1080 standard colours
                        /hcolort n cvi 6 string cvs def
                        RGB0_F n30 get 1000 div
                        RGB0_F n31 get 1000 div
                        RGB0_F n32 get 1000 div
                       } if %1080 standard colours

         setrgbcolor %default to create data
%setrgbcolor calculates data for output in "FF_LM_de_setrgbcolor_F"
%3D=0 calculates: rgb_dyF, rgb*dyF, LAB*dyF,      ,cmyk*dyF      and more
%3D=1 calculates: rgb_dyF, rgb*dyF, LAB*dyF', rgb'*dyF, cmyk*dyF and more

       /r_xF r_dyF def
       /g_xF g_dyF def
       /b_xF b_dyF def

       /i_xF i_dyF def
       /c_xF c_dyF def
       /t_xF t_dyF def
       
       /r*xF r*dyF def
       /g*xF g*dyF def
       /b*xF b*dyF def

       /LAB*LxF LAB*LdyF def
       /LAB*axF LAB*adyF def
       /LAB*bxF LAB*bdyF def
       /LAB*CxF LAB*adyF dup mul
                LAB*bdyF dup mul add 0.0001 add sqrt def
       /LAB*hxF LAB*bdyF LAB*adyF 0.0001 add atan def

       colorm 0 eq {%3D=0
                    %prog_rgb_dyF_LAB*'dyF uses rgb_dyF by default
                    %calculates output data according to IEC 61966-2-1
                    prog_rgb_dyF_LAB*'dyF
                    
                    /LAB*'LxF L*'dyF def
                    /LAB*'axF A*'dyF def
                    /LAB*'bxF B*'dyF def
                    /LAB*'CxF C*'dyF def
                    /LAB*'hxF h*'dyF def

                    /DE*' LAB*'LxF LAB*LxF sub dup mul
                          LAB*'axF LAB*axF sub dup mul add
                          LAB*'bxF LAB*bxF sub dup mul add
                          0.0001 add sqrt def
                   /SUMDE*' SUMDE*' DE*' add def
                   } if %3D=0
                   
       colorm 1 eq {%3D=1
                    /r'*xF r'*dyF def
                    /g'*xF g'*dyF def
                    /b'*xF b'*dyF def
                    
                    %calculates output data according to IEC 61966-2-1
                    prog_rgb'*dyF_LAB'*dyF
                    
                    /LAB'*LxF L'*dyF def
                    /LAB'*axF A'*dyF def
                    /LAB'*bxF B'*dyF def
                    /LAB'*CxF C'*dyF def
                    /LAB'*hxF h'*dyF def

                    /DE'* LAB'*LxF LAB*LxF sub dup mul
                          LAB'*axF LAB*axF sub dup mul add
                          LAB'*bxF LAB*bxF sub dup mul add
                          0.0001 add sqrt def
                    /SUMDE'* SUMDE'* DE'* add def
                    
                   } if %3D=1
       
       /hsi_xF hsiF def
       
%       /c4*F c4*Fa def
%       /m4*F m4*Fa def
%       /y4*F y4*Fa def
%       /n4*F n4*Fa def
       
       /r*xM r*dyM def
       /g*xM g*dyM def
       /b*xM b*dyM def

       /LAB*LxM LAB*LdyM def
       /LAB*axM LAB*adyM def
       /LAB*bxM LAB*bdyM def
       /LAB*CxM LAB*adyM dup mul
                LAB*bdyM dup mul add 0.0001 add sqrt def
       /LAB*hxM LAB*bdyM LAB*adyM 0.0001 add atan def
       
       /hsi_xM hsiM def
       
       0 setgray

       xchart n00 eq {/nx n 8 idiv def
                      n 49 ge {/nx nx 1 add def} if
                      n 56 ge {/nx nx 1 sub def} if
                     } if
       xchart n01 eq {/nx n 9 idiv def} if
       xchart n02 ge {/nx 0 def} if

       /iydn iymax n n1 sub nx add iyd mul sub def
       n n1 eq {%n=n1
               00050 imaxy0 moveto (n) jshow
                              xchart n00 eq {(/j) show} if
               xchart n01 eq {(/j) show} if
               xchart n02 eq {(=j) show} if
               00700 imaxy0 moveto (HIC*) bshow (F) ishow0 Txx ishow0
               02300 imaxy0 moveto (rgb) jshow (_F) ishow0 
                                               Txx ishow0
               04200 imaxy0 moveto (ict) jshow (_F) ishow0 Txx ishow0
               06100 imaxy0 moveto (h) jshow (si_F,) ishow0 Txx ishow0
               06700 imaxym moveto 0 imaxym neg rlineto stroke
               06800 imaxy0 moveto (rgb*) jshow (F) ishow0 Txx ishow0
               08700 imaxy0 moveto (LabCh*) jshow (F) ishow0
                                             Txx ishow0
               12100 imaxym moveto 0 imaxym neg rlineto stroke
               colorm 0 eq {%3D=1
                            12200 imaxy0 moveto (rgb*') jshow 
                                                (F) ishow0 Txx ishow0
                            14100 imaxy0 moveto (LabCh*') jshow (F) ishow0
                                                Txx ishow0
                            17600 imaxy0 moveto (DE*') jshow (F) ishow0
                                                Txx ishow0
                           } if %3D=0
               colorm 1 eq {%3D=1
                            12200 imaxy0 moveto (rgb'*) jshow 
                                                (F) ishow0 Txx ishow0
                            14100 imaxy0 moveto (LabCh'*) jshow (F) ishow0
                                                Txx ishow0
                            17600 imaxy0 moveto (DE'*) jshow (F) ishow0
                                                Txx ishow0
                           } if %3D=1

%               15100 imaxy0 moveto (cmyn*) jshow (sep,) ishow0
%                                   (F) ishow0 Txx ishow0

               18300 imaxy0 moveto (h) jshow (siM,) ishow0 Txx ishow0
               18900 imaxym moveto 0 imaxym neg rlineto stroke
               19000 imaxy0 moveto (rgb*) jshow (M) ishow0 Txx ishow0
               20900 imaxy0 moveto (LabCh*) jshow (M) ishow0 
                                   Txx ishow0
               () nshow
               } if %n=n1

             00050 iydn moveto n cvishow
             xchart n00 eq {%xchart=n00
                            n 48 le {%n<=48
                                     (/) show M1jx n get cvishow
                                    }%n<=48
                                    {%n>48
                                     (/) show jCRi n 4 sub get cvishow
                                    } ifelse
                           } if %xchart=n00
             xchart n01 eq {(/) show jCRi n get cvishow} if
             00700 iydn moveto hcolort show
                               Txx ishow0 () nshow

             02300 iydn moveto r_xF cvsshow3
             02900 iydn moveto g_xF cvsshow3
             03500 iydn moveto b_xF cvsshow3

             04200 iydn moveto i_xF cvsshow3
             04800 iydn moveto c_xF cvsshow3
             05400 iydn moveto t_xF cvsshow3

             06100 iydn moveto hsi_xF cvishow

             06800 iydn moveto r*xF cvsshow3
             07400 iydn moveto g*xF cvsshow3
             08000 iydn moveto b*xF cvsshow3

             08700 iydn moveto LAB*LxF cvsshow1
             09400 iydn moveto LAB*axF cvsshow1
             10100 iydn moveto LAB*bxF cvsshow1
             10800 iydn moveto LAB*CxF cvsshow1
             11500 iydn moveto LAB*hxF cvsshow1

             colorm 0 eq {%3D=0
                          12200 iydn moveto r_xF cvsshow3
                          12800 iydn moveto g_xF cvsshow3
                          13400 iydn moveto b_xF cvsshow3

                          14100 iydn moveto LAB*'LxF cvsshow1
                          14800 iydn moveto LAB*'axF cvsshow1
                          15500 iydn moveto LAB*'bxF cvsshow1
                          16200 iydn moveto LAB*'CxF cvsshow1
                          16900 iydn moveto LAB*'hxF cvsshow1

                          17600 iydn moveto DE*' cvsshow1

                         } if %3D=0

             colorm 1 eq {%3D=1
                          12200 iydn moveto r'*xF cvsshow3
                          12800 iydn moveto g'*xF cvsshow3
                          13400 iydn moveto b'*xF cvsshow3

                          14100 iydn moveto LAB'*LxF cvsshow1
                          14800 iydn moveto LAB'*axF cvsshow1
                          15500 iydn moveto LAB'*bxF cvsshow1
                          16200 iydn moveto LAB'*CxF cvsshow1
                          16900 iydn moveto LAB'*hxF cvsshow1

                          17600 iydn moveto DE'* cvsshow1

                         } if %3D=1

             18300 iydn moveto hsi_xM cvishow

             19000 iydn moveto r*xM cvsshow3
             19600 iydn moveto g*xM cvsshow3
             20200 iydn moveto b*xM cvsshow3

             20900 iydn moveto LAB*LxM cvsshow1
             21600 iydn moveto LAB*axM cvsshow1
             22300 iydn moveto LAB*bxM cvsshow1
             23000 iydn moveto LAB*CxM cvsshow1
             23700 iydn moveto LAB*hxM cvsshow1


} for %n=n1,n2

n2 57 eq
n2 53 eq or
n2 80 ge n2 1079 lt and or
n2 1079 eq or {%n2=57,53,80,161,...,1052,1079

/iydn iymax n 1 add n1 sub nx add iyd mul sub def
12500 iydn moveto
lanind 1 eq {(Mean color difference of this page:) bshow} if
lanind 0 eq {(Mitttlere Farbdifferenz dieser Seite: ) bshow} if
16600 iydn moveto (delta )  bshow
                  colorm 0 eq {(E*' =) jshow}
                              {(E'* =) jshow} ifelse () bshow
colorm 0 eq {%3D=0
             17600 iydn moveto SUMDE*' n2 n1 sub 1 add div cvsshow1
            }%3D=0
            {%3D=1
             17600 iydn moveto SUMDE'* n2 n1 sub 1 add div cvsshow1
            } ifelse %3D=1

} if %n2=57,53,80,161, ...,1052,1079

} if %END xchart>xchart3P0
%*************************************************************

%%Trailer

%%EndDocument
EndEPSF grestore gsave
                                                        
showpage
grestore

%} for %colsep=0,1

%} for %pchart=0,0

} for %xchart=0,1

%} for %xcolor=3,3

} for %de=0,1

} for %3D=0,1

%} for %lanind=0,0

%%Trailer