%!PS-Adobe-3.0 EPSF-3.0 fes80-5n
%%BoundingBox: 70 82 770 206

%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: farbe.li.tu-berlin.de/fes8/fes8.htm)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
 /Keywords (image reproduction, colour devices)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2024040112200)
 /ModDate (D:20240401112200)
/DOCINFO pdfmark05
[ /View [ /Fit ]
/DOCVIEW pdfmark05
%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

/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

/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

/CBKK {200 /CourierB-ISOL1 FS} bind def
/CBK {250 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def
/CBKKK {160 /CourierB-ISOL1 FS} bind def

/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

/rem %x0, y0 width heigth
  {/heigth exch def /width exch def /y0 exch def /x0 exch def
   x0 width 0.5 mul add y0 heigth 0.5 mul add moveto
   width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/tfw {1 setgray} def
/tfn {0 setgray} def
/tfr {1 0 0 setrgbcolor} def
/tfg {0 1 0 setrgbcolor} def
/tfgn {0 0.5 0 setrgbcolor} 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

0 setgray
/xchart 0 def
/xcha40 0 def %0:Evaluation, 1:Calcuation

8 /Times-Roman FS
72 83 moveto
(fes80-5n, ) show

8 /Times-ISOL1 FS
xchart 0 eq 
{(Pr\374fmuster: )      showde (Test samples: )     showen}
{(Bewertungsbogen: ) showde (Evaluation sheet: ) showen} ifelse

(5 Farbstufen) showde
(5 colour steps) showen

72 90 translate

0.01 MM dup scale

0.5 setgray
0 0  moveto 24500 0 rlineto 0 4000 rlineto
           -24500 0 rlineto closepath fill

0 setgray
0 0  moveto 24500 0 rlineto 0 4000 rlineto
           -24500 0 rlineto closepath stroke

%%%%%%%%%%%   oberer Schriftzug %%%%%%%%%%%%%%%%
/sd  1400 def
/sd0 000 def
/sd1 sd0 sd 1 mul add def
/sd2 sd0 sd 2 mul add def
/sd3 sd0 sd 3 mul add def
/sd4 sd0 sd 4 mul add def
/dd0 70 def
/sd0s sd0 dd0 sub def
/sd1s sd1 dd0 sub def
/sd2s sd2 dd0 sub def
/sd3s sd3 dd0 sub def
/sd4s sd4 dd0 sub def

/x0 00100 def 
/x1 03000 def %delta=5600
/x2 x1  5.2 1400 mul add def
/x3 x1 10.4 1400 mul add def
/xt   400 def
/yte  100 def
/x3m1 x3 x1 sub def

/x0t    0 def
/y0t -150 def
/x1t 2900 def
/y1t  600 def

x0t y0t translate
  tfw
  100 3650 moveto TBIG 
  (5 Farbstufen:) showde
  (5 colour steps:) showen

  x1 xt add 1000 add 3650 moveto TBIG
  (Wei\337  W04u - Wei\337 W08u) showde
  (White W04u - White W08u) showen

  x2 xt add 1000 add 3650 moveto TBIG
  (Wei\337 W08u - Wei\337 W12u) showde
  (White W08u - White W12u) showen

  x3 xt add 500 add 3650 moveto TBIG
  (Wei\337 W12u - Wei\337 W16u = Grau U) showde
  (White W12u - White W16u = Grey U) showen

/colort1 [(W04u) (W05u) (W06u) (W07u) (W08u)] def
/colort2 [(W08u) (W09u) (W10u) (W11u) (W12u)] def
/colort3 [(W12u) (W13u) (W14u) (W15u) (W16u)] def

TBG
tfw
  x1 sd0 add 1750 moveto (W04u) show
  x1 sd1 add 1750 moveto (W05u) show
  x1 sd2 add 1750 moveto (W06u) show
  x1 sd3 add 1750 moveto (W07u) show
  x1 sd4 add 1750 moveto (W08u) show

  x2 sd0 add 1750 moveto (W08u) show
  x2 sd1 add 1750 moveto (W09u) show
  x2 sd2 add 1750 moveto (W10u) show
  x2 sd3 add 1750 moveto (W11u) show
  x2 sd4 add 1750 moveto (W12u) show

  x3 sd0 add 1750 moveto (W12u) show
  x3 sd1 add 1750 moveto (W13u) show
  x3 sd2 add 1750 moveto (W14u) show
  x3 sd3 add 1750 moveto (W15u) show
  x3 sd4 add 1750 moveto (W16u) show

tfw
  xchart 0 eq {%xchart=0
  x1 sd0s add 0300 moveto (0,00)  show
  x1 sd1s add 0300 moveto (0,25?) show
  x1 sd2s add 0300 moveto (0,50?) show
  x1 sd3s add 0300 moveto (0,75?) show
  x1 sd4s add 0300 moveto (1,00)  show

  x2 sd0s add 0300 moveto (0,00)  show
  x2 sd1s add 0300 moveto (0,25?) show
  x2 sd2s add 0300 moveto (0,50?) show
  x2 sd3s add 0300 moveto (0,75?) show
  x2 sd4s add 0300 moveto (1,00)  show

  x3 sd0s add 0300 moveto (0,00)  show
  x3 sd1s add 0300 moveto (0,25?) show
  x3 sd2s add 0300 moveto (0,50?) show
  x3 sd3s add 0300 moveto (0,75?) show
  x3 sd4s add 0300 moveto (1,00)  show

  100 0600 moveto (Beurteilungs\255) showde (Evaluation) showen
  100 0300 moveto (beispiel)         showde (example)    showen
              } if %xchart=0

tfw  
xchart 0 eq {%xchart=0
  100 2850 moveto
  (aneinandergren\255) showde
  (adjacent) showen
  100 2550 moveto
  (zende Muster) showde
  (samples) showen
  100 1250 moveto
  (separate) showde
  (separate) showen
  100 0950 moveto
  (Muster) showde
  (samples) showen
            } if %xchart=0

tfw
xchart 1 eq {%xchart=1
  100 2900 moveto
  TBIG
  (Beurteilung:) showde
  (Evaluation:) showen
  100 2600 moveto
  TBG
  (Anteil) showde
  (Amount) showen

  100 1250 moveto
  TBIG
  (Beurteilung:) showde
  (Evaluation:) showen
  100 0950 moveto
  TBG
  (Anteil) showde
  (Amount) showen

} if %xchart=1
  
x1t y1t translate
%untere Reihe um +200, +200 verschoben bei dx=1000 von 1400
0 setgray
     
/ntu3  [(0,00) (, . .) (1,00)] def
/ntu4 [(0,00) (0, . .) (0, . .) (0, . .) (1,00)] def
/ntu5  [(0,00) (0, . .) (1,00) ()       ()] def
/ntu5a [()     ()       (0,00) (0, . .) (1,00)] def

/ntu50 [(0,00) (0, . .) (0, . .) (0, . .) (W04u)] def
/ntu51 [(W04u) (0, . .) (0, . .) (0, . .) (W08u)] def
/ntu52 [(W08u) (0, . .) (0, . .) (0, . .) (W12u)] def
/ntu53 [(W12u) (0, . .) (0, . .) (0, . .) (1,00)] def

/ntc50 [(0,00) (0, . .) (0, . .) (0, . .) (1,00)] def
/ntc51 [(0,00) (0, . .) (0, . .) (0, . .) (1,00)] def
/ntc52 [(0,00) (0, . .) (0, . .) (0, . .) (1,00)] def
/ntc53 [(0,00) (0, . .) (0, . .) (0, . .) (1,00)] def

/cvs1 {10 mul cvi 0.1 mul 7 string cvs} def

%W_U      1r    g    b     2r    g    b     3r    g    b
/colors1 [{0.88 0.88 0.88} {0.84 0.84 0.84} {0.81 0.81 0.81}
          {0.78 0.78 0.78} {0.75 0.75 0.75}] def %W04u,W05u,W06u,W07u,W08u 5 st
/colors2 [{0.75 0.75 0.75} {0.72 0.72 0.72} {0.69 0.69 0.69}
          {0.66 0.66 0.66} {0.63 0.63 0.63}] def %W08u,W09u,W10u,W11u,W12u 5 st
/colors3 [{0.63 0.63 0.63} {0.60 0.60 0.60} {0.57 0.57 0.57}
          {0.53 0.53 0.53} {0.50 0.50 0.50}] def %W12u,W13u,W14u,W15u,W16u 5 st

/s 1000 def /iy0 0 def
20 setlinewidth
 0 1 04 {/j exch def
         /ix0 j 1400 mul def
         xchart 0 eq {colors1 j 0 sub get exec setrgbcolor
                          ix0 iy0 s s rec fill} if
         xchart 1 eq {tfw ix0 iy0 s s rec fill
                      tfn ix0 iy0 s s rec stroke} if
        } for %j

%        /j 4 def /ix0 j 0 add 1400 mul def
%        tfw
%        ix0 iy0 s s rec stroke

/s 1000 def /iy0 0 def
 0 1 04 {/j exch def
         /ix0 j 5.2 add 1400 mul def
         xchart 0 eq {colors2 j 0 sub get exec setrgbcolor
                          ix0 iy0 s s rec fill} if
         xchart 1 eq {tfw ix0 iy0 s s rec fill
                      tfn ix0 iy0 s s rec stroke} if
        } for %j

%        /j 0 def /ix0 j 5.2 add 1400 mul def
%        tfw
%        ix0 iy0 s s rec stroke

/s 1000 def /iy0 0 def
 0 1 04 {/j exch def
         /ix0 j 10.4 add 1400 mul def
         xchart 0 eq {colors3 j 0 sub get exec setrgbcolor
                          ix0 iy0 s s rec fill} if
         xchart 1 eq {tfw ix0 iy0 s s rec fill
                      tfn ix0 iy0 s s rec stroke} if
        } for %j

        /j 4 def /ix0 j 10.4 add 1400 mul def
        tfw
        ix0 iy0 s s rec stroke

/s 1400 def /iy0 1500 def
 0 1 04 {/j exch def
         /ix0 j 0 add 1400 mul 200 sub def
         xchart 0 eq {colors1 j 0 sub get exec setrgbcolor
                          ix0 iy0 s s rec fill} if
         xchart 1 eq {tfw ix0 iy0 s s rec fill
                      tfn ix0 iy0 s s rec stroke} if
         } for %j

%         /j 4 def /ix0 j 0 add 1400 mul 200 sub def
%         tfw
%         ix0 iy0       moveto s 0 rlineto stroke
%         ix0 iy0 s add moveto s 0 rlineto stroke
%         ix0 s add iy0 moveto 0 s rlineto stroke

 0 1 04 {/j exch def
         /ix0 j 5.2 add 1400 mul 200 sub def
         xchart 0 eq {colors2 j 0 sub get exec setrgbcolor
                          ix0 iy0 s s rec fill} if
         xchart 1 eq {tfw ix0 iy0 s s rec fill
                      tfn ix0 iy0 s s rec stroke} if
         } for %j

%         /j 0 def /ix0 j 5.2 add 1400 mul 200 sub def
%         tfw
%         ix0 iy0       moveto s 0 rlineto stroke
%         ix0 iy0 s add moveto s 0 rlineto stroke
%         ix0 iy0       moveto 0 s rlineto stroke

 0 1 04 {/j exch def
         /ix0 j 10.4 add 1400 mul 200 sub def
         xchart 0 eq {colors3 j 0 sub get exec setrgbcolor
                          ix0 iy0 s s rec fill} if
         xchart 1 eq {tfw ix0 iy0 s s rec fill
                      tfn ix0 iy0 s s rec stroke} if
         } for %j

        /j 4 def /ix0 j 10.4 add 1400 mul 200 sub def
         tfw
         ix0 iy0       moveto s 0 rlineto stroke
         ix0 iy0 s add moveto s 0 rlineto stroke
         ix0 s add iy0 moveto 0 s rlineto stroke

xchart 1 eq 
            {%xchart=1
TBG
tfr
/ixt 100 def
%5 steps, 3 steps to decide
/iy0 2450 def
0 1 04 {/j exch def /ix0 j 1400 mul 100 add def
        j 0 eq 
        j 4 eq or {tfgn} if
        ix0 j 0 eq {ixt sub} if 
            j 4 eq {ixt sub} if iy0 200 sub moveto
        ntu51 j get show
        ix0 iy0 600 sub moveto
        ntc51 j get show
        tfr
       } for %j

/iy0 750 def
0 1 04 {/j exch def /ix0 j 1400 mul 100 add def
        j 0 eq
        j 4 eq or {tfgn} if
        ix0 j 0 eq {ixt sub} if 
            j 4 eq {ixt sub} if iy0 200 sub moveto
        ntu51 j get show
        ix0 iy0 600 sub moveto
        ntc51 j get show
        tfr
       } for %j

/iy0 2450 def
0 1 04 {/j exch def /ix0 j 5.2 add 1400 mul 100 add def
        j 0 eq
        j 4 eq or {tfgn} if
        ix0 j 0 eq {ixt sub} if 
            j 4 eq {ixt sub} if iy0 200 sub moveto
        ntu52 j get show
        ix0 iy0 600 sub moveto
        ntc52 j get show
        tfr
       } for %j

/iy0 750 def
0 1 04 {/j exch def /ix0 j 5.2 add 1400 mul 100 add def
        j 0 eq
        j 4 eq or {tfgn} if
        ix0 j 0 eq {ixt sub} if 
            j 4 eq {ixt sub} if iy0 200 sub moveto
        ntu52 j get show
        ix0 iy0 600 sub moveto
        ntc52 j get show
        tfr
       } for %j

/iy0 2450 def
0 1 04 {/j exch def /ix0 j 10.4 add 1400 mul 100 add def
        j 0 eq {tfgn} if
        j 4 eq {tfn} if
        ix0 j 0 eq {ixt sub} if iy0 200 sub moveto
        ntu53 j get show
        ix0 iy0 600 sub moveto
        ntc53 j get show
        tfr
       } for %j

/iy0 750 def
0 1 04 {/j exch def /ix0 j 10.4 add 1400 mul 100 add def
        j 0 eq {tfgn} if
        j 4 eq {tfn} if
        ix0 j 0 eq {ixt sub} if iy0 200 sub moveto
        ntu53 j get show
        ix0 iy0 600 sub moveto
        ntc53 j get show
        tfr
       } for %j

            } if %xchart=1
       
x1t neg y1t neg translate

x0t neg y0t neg translate

grestore
showpage

%%Trailer