%!PS-Adobe-3.0 EPSF-3.0 AE940-2N
%%BoundingBox: 70 85 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://farbe.li.tu-berlin.de/AE94/AE94.HTM)
  /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)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2016050112000)
  /ModDate (D:20160501112000)
/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

/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

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

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

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

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

/nshow {TS  show} bind def
/kshow {TIS show} bind def
/bshow {TBS show} bind def
/jshow {TBIS show} bind def
/ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def
/ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def
/ishown  {TS  -50 -50 rmoveto show 0 50 rmoveto TS } bind def
/ishow0  {TS  -00 -50 rmoveto show 0 50 rmoveto TS } bind def

%40% kleiner
/ns4 {250 /Times-ISOL1 FS  show TK} bind def
/ks4 {250 /TimesI-ISOL1 FS  show TK} bind def
/bs4 {250 /TimesB-ISOL1 FS  show TK} bind def
/js4 {250 /TimesBI-ISOL1 FS  show TK} bind def
/ss4 {250 /Symbol FS  show TK} bind def
/is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def

%60% kleiner
/ns6 {200 /Times-ISOL1 FS  show TS} bind def
/ks6 {200 /TimesI-ISOL1 FS  show TS} bind def
/bs6 {200 /TimesB-ISOL1 FS  show TS} bind def
/js6 {200 /TimesBI-ISOL1 FS  show TS} bind def
/ss6 {200 /Symbol FS  show TS} bind def
/is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def
/es6 {160 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def
/ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def
/eb6 {160 /TimesB-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto TS} bind def
/ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind 

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

/rec %x0, y0 width heigth
  {/heigth exch def /width exch def /y0 exch def /x0 exch def
   x0 width 0.5 mul sub y0 heigth 0.5 mul sub moveto
   width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } 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
/showea {1 lanind le {show} {pop} ifelse} bind def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 1 def /lanind2 1 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colorMD colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/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

/xtext 0 def    
72 90 translate

0.01 MM dup scale

/xchartl xchart def
%0 1 5 {/xchartl exch def %xchartl=0,5

/ichart 0 def %0 1 7 {/ichart exch def %ichart=0,7

150 /Times-ISOL1 FS
4200 -160 moveto
(AE940-2N, ) show ichart 1 add cvishow xchartl 1 add cvishow

gsave

20 setlinewidth
0.5 setgray
0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath fill

0.0 setgray
0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath stroke

1.0 setgray

0100 3600 moveto TBM
(Colorimetric filter transfer) showen
(Farbmetrischer Filter\255Transfer) showde
TBIM ( n) show TBM ( = ) show ichart 1 add cvishow
0100 3200 moveto
%TBIM (c*) show
%TBS -140 -90 rmoveto (i) show 140 90 rmoveto
%TBM ( = ) show
TBIM (c*) show
TBS -140 -90 rmoveto ichart 1 add cvishow 140 90 rmoveto
TBM ( = ) show TBIM (a c*) show
0 100 rmoveto TBK (b) show 0 -100 rmoveto
TBM ( with ) showen ( mit ) showde

/atex [(1,00) (1,00) (1,00) (1,00) (0,75) (0,50) (0,25) (0,00)] def
/anum [ 1.00   1.00   1.00   1.00   0.75   0.50   0.25   0.00 ] def
/btex [(1,00) (0,75) (0,50) (2,00) (1,00) (1,00) (1,00) (1,00)] def
/bnum [ 1.00   0.75   0.50   2.00   1.00   1.00   1.00   1.00 ] def

TBIM (a) show TBM ( = ) show atex ichart get show (; ) show
TBIM (b) show TBM ( = ) show btex ichart get show

0650 2750 moveto
TBIM (rgb) show
%1100 2750 moveto
TBIM ( -> rgb*) show
1100 2400 moveto
TBIM colorm 0 eq {() show}
                 {( -> rgb'*) show
                 } ifelse

3350 2750 moveto
TBIM (rgb*) show
%3900 2750 moveto
TBIM ( -> rgb*) show
TBS -90 -90 rmoveto ichart 1 add cvishow -30 90 rmoveto
3800 2400 moveto
TBIM colorm 0 eq {() show}
                 {( -> olv'*) show
                  TBS -250 -90 rmoveto ichart cvishow 250 90 rmoveto
                 } ifelse

0.0 setgray

0 1 1 {/nbild exch def %nbild=0,1

nbild 0 eq {0300 0500 translate}
           {3000 0500 translate} ifelse

/xmin  0000 def
/xmax 2100 def
/ymin  0000 def
/ymax 2100 def


/xs 0210 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def
/xs5x xs 5.4 mul def /ys5x ys 5.4 mul def
/x xs 0.1 mul def
/y ys 12.0 mul def

/anz 5 def
/xs 2100 anz 3 add div def /ys xs def /x9 xs 1.8 mul def
/xd    xs 2 mul def
/yd    xs       def

1 1 1 setrgbcolor
%n*
1 1 3 {/j exch def
       /x1 xmin def                    /y1 ymax yd  j 2 mul mul sub def
       /x2 xmin xd 4 j sub mul add def /y2 ymin yd  4 j sub mul add def
       x1 y1 moveto x2 y2 lineto stroke 
      } for

%c*
1 1 3 {/j exch def
       /x1 xmin xd j mul add def /y1 ymax yd  j mul sub def
       /x2 xmin xd j mul add def /y2 ymin yd  j mul add def
       x1 y1 moveto x2 y2 lineto stroke 
      } for

/id 1 4 div def
0 1 03 {/j exch def %j=0,3
        /im 4 j sub def
0 1 im {/i exch def %i=0,4
        /ia 1 id j mul sub def
        /argb ia def /brgb ia i id mul sub def
        xchartl 0 eq {/r argb def /g brgb def /b brgb def} if
        xchartl 1 eq {/r argb def /g argb def /b brgb def} if
        xchartl 2 eq {/r brgb def /g argb def /b brgb def} if
        xchartl 3 eq {/r brgb def /g argb def /b argb def} if
        xchartl 4 eq {/r brgb def /g brgb def /b argb def} if
        xchartl 5 eq {/r argb def /g brgb def /b argb def} if
        /xa xmin xd i mul add def
        /iad j 2 mul def
        /ya ymax yd i iad add mul sub def

        /c* argb brgb sub def
        /n* 1 argb sub def
        /t* 1 n* sub c* 0.5 mul sub def
        nbild 0 eq {r g b setrgbcolor
                    /o'*Fa colorm 0 eq {r}{o'*} ifelse def %for later output
                    /l'*Fa colorm 0 eq {g}{l'*} ifelse def
                    /v'*Fa colorm 0 eq {b}{v'*} ifelse def
                    xa ya xd xd rec fill
                    xtext 1 eq {CBK
                    t* 0.5 ge {0 setgray} {1 setgray} ifelse
                    xa 200 sub ya 100 add moveto o'*Fa cvsshow3
                    xa 200 sub ya 050 sub moveto l'*Fa cvsshow3
                    xa 200 sub ya 200 sub moveto v'*Fa cvsshow3} if
                   }
                   {/c*' anum ichart get c*
                         bnum ichart get exp mul def
                    ichart 3 le {%ichart<=3,>3
                                 %(t*-0.5)/(1-c*) = (t*'-0.5)/(1-c*')
                                 c* 1 eq {/t*' 0.5 def}
                                         {/t*' 0.5
                                          t* 0.5 sub 1 c*' sub mul
                                          1 c* sub div add def
                                         } ifelse
                                 /n*' 1 t*' sub c*' 0.5 mul sub def
                                 /argb' 1 n*' sub def
                                 /brgb' argb' c*' sub def
                                }%ichart<=3
                                {%ichart>3
                                 /c*dif2 c*' c* sub 0.5 mul def
                                 /argb' argb c*dif2 add def
                                 /brgb' brgb c*dif2 sub def
                                } ifelse %ichart<=3,>3
                    xchartl 0 eq {/r' argb' def /g' brgb' def /b' brgb' def} if
                    xchartl 1 eq {/r' argb' def /g' argb' def /b' brgb' def} if
                    xchartl 2 eq {/r' brgb' def /g' argb' def /b' brgb' def} if
                    xchartl 3 eq {/r' brgb' def /g' argb' def /b' argb' def} if
                    xchartl 4 eq {/r' brgb' def /g' brgb' def /b' argb' def} if
                    xchartl 5 eq {/r' argb' def /g' brgb' def /b' argb' def} if
                    r' g' b' setrgbcolor
                    /o'*Fa colorm 0 eq {r'}{o'*} ifelse def %for later output
                    /l'*Fa colorm 0 eq {g'}{l'*} ifelse def
                    /v'*Fa colorm 0 eq {b'}{v'*} ifelse def
                    xa ya xd xd rec fill
                    xtext 1 eq {CBK
                    t* 0.5 ge {0 setgray} {1 setgray} ifelse
                    xa 200 sub ya 100 add moveto o'*Fa cvsshow3
                    xa 200 sub ya 050 sub moveto l'*Fa cvsshow3
                    xa 200 sub ya 200 sub moveto v'*Fa cvsshow3} if
                   } ifelse
        } for %i=0,3
        } for %j=0,4

%n fill
/xa xmin def
/ya ymin def
/r 0 def /g 0 def /b 0 def
r g b setrgbcolor
/o'*Fa colorm 0 eq {r}{o'*} ifelse def %for later output
/l'*Fa colorm 0 eq {g}{l'*} ifelse def
/v'*Fa colorm 0 eq {b}{v'*} ifelse def
xa ya xd xd rec fill
xtext 1 eq {CBK
t* 0.5 ge {0 setgray} {1 setgray} ifelse
xa 200 sub ya 100 add moveto o'*Fa cvsshow3
xa 200 sub ya 050 sub moveto l'*Fa cvsshow3
xa 200 sub ya 200 sub moveto v'*Fa cvsshow3} if

/i 2 def %mean grey stroke of 5 steps
/xa xmin def
/ya ymax yd i mul 2 mul sub def
1 1 1 setrgbcolor
xa ya xd xd rec stroke

ichart 7 eq nbild 1 eq and {/i 2 def %mean grey stroke of 5 steps
                            /xa 2100 def
                            /ya ymax yd i mul 2 mul sub def
                            1 1 1 setrgbcolor
                            xa ya xd xd rec stroke
                           } if

nbild 0 eq {0300 neg 500 neg translate}
           {3000 neg 500 neg translate} ifelse

} for %nbild=0,1

showpage
grestore

%} for %ichart=0,7

%} for %xchartl=0,5

%%Trailer