%!PS-Adobe-3.0 EPSF-3.0 IG901-2N
%%BoundingBox: 70 85 226 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: Image Technology)
  /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:2009090112000)
  /ModDate (D:2009090112000)
/DOCINFO pdfmark12
[ /View [ /FitB ]
/DOCVIEW pdfmark12
%END  PDFDE011

/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

/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

/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

/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

/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

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

/CKK {100 /Courier-ISOL1 FS} bind def
/CK {125 /Courier-ISOL1 FS} bind def
/CM {150 /Courier-ISOL1 FS} bind def
/CG {175 /Courier-ISOL1 FS} bind def

/CBKK {100 /CourierB-ISOL1 FS} bind def
/CBK {125 /CourierB-ISOL1 FS} bind def
/CBM {150 /CourierB-ISOL1 FS} bind def
/CBG {175 /CourierB-ISOL1 FS} bind def

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

/nshow {300 /Times-ISOL1 FS  show} bind def
/kshow {300 /TimesI-ISOL1 FS  show} bind def
/bshow {300 /TimesB-ISOL1 FS  show} bind def
/jshow {300 /TimesBI-ISOL1 FS  show} bind def
/sshow {300 /Symbol FS  show} bind def
/ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def
/eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def


/cvishow {0.5 add cvi 6 string cvs show} def
/cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 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 0 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
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
               {/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
               {/xcolor1 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
               {/xchart1 0 def /xchart2 0 def} ifelse
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage

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

/xtext 0 def    
72 90 translate

0.01 MM dup scale

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

/xchart xchartx def

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

150 /Times-ISOL1 FS
4200 -160 moveto
    (IG901-2N, ) show ichart 1 add cvishow xchart 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 transformation) showen
(Farbmetrische Transformation) showde
TBIM ( i) show TBM ( = ) show ichart 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 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
                  %TBS -250 -90 rmoveto ichart cvishow 250 90 rmoveto
                 } ifelse

3350 2750 moveto
TBIM (rgb*) show
%TBS -90 -90 rmoveto ichart cvishow -30 90 rmoveto
3800 2750 moveto
TBIM ( -> rgb*) show
TBS -90 -90 rmoveto ichart cvishow -30 90 rmoveto
3800 2400 moveto
TBIM colorm 0 eq {() show}
                 {( -> rgb'*) 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
        xchart 0 eq {/r argb def /g brgb def /b brgb def} if
        xchart 1 eq {/r argb def /g argb def /b brgb def} if
        xchart 2 eq {/r brgb def /g argb def /b brgb def} if
        xchart 3 eq {/r brgb def /g argb def /b argb def} if
        xchart 4 eq {/r brgb def /g brgb def /b argb def} if
        xchart 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
                    xchart 0 eq {/r' argb' def /g' brgb' def /b' brgb' def} if
                    xchart 1 eq {/r' argb' def /g' argb' def /b' brgb' def} if
                    xchart 2 eq {/r' brgb' def /g' argb' def /b' brgb' def} if
                    xchart 3 eq {/r' brgb' def /g' argb' def /b' argb' def} if
                    xchart 4 eq {/r' brgb' def /g' brgb' def /b' argb' def} if
                    xchart 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 %xchart=0,5

%} for %ichart=0,7