%!PS-Adobe-3.0 EPSF-3.0 IE650-3N.PS
%%BoundingBox: 70 83 380 318

%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: IE650-3N.PS)
  /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 pdfmark13
[ /View [ /FitB ]
/DOCVIEW pdfmark13
%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

/TK {210 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIK {210 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBKK {180 /TimesB-ISOL1 FS} bind def
/TBK {210 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIK {210 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-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 1 def /lanind2 1 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 /xchart   xchartg def} {/xchart   3 def} ifelse
/xcolorg where {pop /xcolor   xcolorg def} {/xcolor   0 def} ifelse

/xchart 3 def

6 /Times-ISOL1 FS
340 84.5 moveto
    (IE650-3N) show
    
72 90 translate

0.02 MM dup scale

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

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 3700 moveto TBK (Transformation relative chroma:) showen
(Transformation relative Buntheit:) showde
TBIK ( c*') show TBK ( = ) show TBIK (c*) show
0 100 rmoveto TBKK (1/2) show 0 -100 rmoveto

1200 3000 moveto
TBIK ( Standard) showde ( standard) showen

3800 3000 moveto
TBIK (more chromatic) showen (bunter) 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

/anz 5 def
/xs 2100 anz 3 add div def
/xs    xs 2 mul def

1 setgray
0050 0550 moveto
TBK
(relativer Toner- oder Tintenverbrauch f\374r Cyanblau) showde
(relative toner or ink consumption for Cyan blue) showen
TBIK
( C) show
TBKK
0100 3 xs mul add 0900 moveto 300 0 rlineto stroke
0100 3 xs mul add 400 add 0900 moveto -100  50 rlineto stroke
0100 3 xs mul add 400 add 0900 moveto -100 -50 rlineto stroke

0100 3 xs mul add 100 add 0950 moveto TBIK (c*) show
0100 0 xs mul add 0300 moveto (0,00) show
0100 1 xs mul add 0300 moveto (0,25) show
0100 2 xs mul add 0300 moveto (0,50) show
0100 3 xs mul add 0300 moveto (0,75) show
0100 4 xs mul add 0300 moveto (1,00) show
0 0 0 setrgbcolor
0100 2 xs mul add 0050 moveto
(Summe:) showde
(Sum:) showen
0100 4 xs mul add 0050 moveto (2,50) show
1 setgray

2800 3 xs mul add 0900 moveto 300 0 rlineto stroke
2800 3 xs mul add 400 add 0900 moveto -100  50 rlineto stroke
2800 3 xs mul add 400 add 0900 moveto -100 -50 rlineto stroke
2800 3 xs mul add 100 add 0950 moveto TBIK (c*') show

2800 0 xs mul add 0300 moveto (0,00) show
2800 1 xs mul add 0300 moveto (0,50) show
2800 2 xs mul add 0300 moveto (0,71) show
2800 3 xs mul add 0300 moveto (0,87) show
2800 4 xs mul add 0300 moveto (1,00) show
0 0 0 setrgbcolor
2800 2 xs mul add 0050 moveto
(Summe:) showde
(Sum:) showen
2800 4 xs mul add 0050 moveto (3,08) show
0 setgray

0.0 setgray

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

nbild 0 eq {0300 1100 translate}
           {3000 1100 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

%xchart 6 ge {/i 8 xchart 6 sub add def %RJGB
%             /L*Fa LAB*a i 3 mul get def
%             /A*Fa LAB*a i 3 mul 1 add get def
%             /B*Fa LAB*a i 3 mul 2 add get def
%             proc_LAB*Fa_LAB*MaNTABl_olvi3*cmyn3*Ma*ioL
%             %calculates olv3*Ma used in later loop
%            } if
              
/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
%        xchart 6 ge {%xchart>=6
%                    /ib 1 im div def %im#0
%                    /ic 1 ib i mul sub def
%                    /ie 1 ic sub def
%                    /r  1 ia mul ic mul o3*Ma ia mul ie mul add def
%                    /g  1 ia mul ic mul l3*Ma ia mul ie mul add def
%                    /b  1 ia mul ic mul v3*Ma ia mul ie mul add def
%                   } if %xchart>=6
        /xa xmin xd i mul add def
        /iad j 2 mul def
        /ya ymax yd i iad add mul sub def
        nbild 0 eq {r g b setrgbcolor
                    xa ya xd xd rec fill
                   }
                   {/c* argb brgb sub def
                    /n* 1 argb sub def
                    /t* 1 n* sub c* 0.5 mul sub def
                    /c*' anum ichart get c* mul 0.000001 add
                         bnum ichart get exp def
                    /c*dif2 c*' c* sub 0.5 mul def
                    /argb' argb c*dif2 add def
                    /brgb' brgb c*dif2 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
                    r' g' b' setrgbcolor
                    xa ya xd xd rec fill
                   } 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
xa ya xd xd rec fill

/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 1100 neg translate}
           {3000 neg 1100 neg translate} ifelse

} for %nbild=0,1

showpage
grestore

%} for %ichart=0,7

%%Trailer