%!PS-Adobe-3.0 EPSF-3.0 fes40-3n
%%BoundingBox: 70 82 770 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: farbe.li.tu-berlin.de/fes4/fes4.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 pdfmark03
[ /View [ /Fit ]
/DOCVIEW pdfmark03
%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
%*********************************************************************
 
%%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 1 def

8 /Times-Roman FS
72 83 moveto
(fes40-3n, ) show

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

(drei Farbstufen) showde
(three 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 add def
/sd1s sd1 dd0 add def
/sd2s sd2 dd0 add def
/sd3s sd3 dd0 add def
/sd4s sd4 dd0 add 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   700 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
  TBIG
  100 3650 moveto
  (5 Farbstufen:) showde
  (5 colour steps:) showen

  x1 xt add 3650 moveto
  (Wei\337 W = Cyan C16w - Cyan C00w) showde
  ( White W = Cyan C16w - Cyan C00w) showen

  x2 xt add 3650 moveto
  (Wei\337 W = Blau B16w - Blau B00w) showde
  ( White W = Blue B16w - Blue B00w) showen

  x3 xt add 700 sub 3650 moveto
  (Wei\337 W = Magenta M16w - Magenta M00w) showde
  ( White W = Magenta M16w - Magenta M00w) showen

/colors1 [(C16w) (C12w) (C08w) (C04w) (C00w)] def
/colors2 [(B16w) (B12w) (B08w) (B04w) (B00w)] def
/colors3 [(M16w) (M12w) (M08w) (M04w) (M00w)] def

TBG
  x1 sd0 add 1750 moveto (C16w) show
  x1 sd1 add 1750 moveto (C12w) show
  x1 sd2 add 1750 moveto (C08w) show
  x1 sd3 add 1750 moveto (C04w) show
  x1 sd4 add 1750 moveto (C00w) show

  x2 sd0 add 1750 moveto (B16w) show
  x2 sd1 add 1750 moveto (B12w) show
  x2 sd2 add 1750 moveto (B08w) show
  x2 sd3 add 1750 moveto (B04w) show
  x2 sd4 add 1750 moveto (B00w) show

  x3 sd0 add 1750 moveto (M16w) show
  x3 sd1 add 1750 moveto (M12w) show
  x3 sd2 add 1750 moveto (M08w) show
  x3 sd3 add 1750 moveto (M04w) show
  x3 sd4 add 1750 moveto (M00w) show

  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

TBIG
  100 0600 moveto (Beurteilungs\255) showde (Evaluation) showen
  100 0300 moveto (beispiel)         showde (example)    showen
              } if %xchart=0
  
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

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
     
/ntu [(0,00) (0, . .) (1,00) () (0,00) (0, . .) (1,00) ()
      (0,00) (0, . .) (1,00) () (0,00) (0, . .) (1,00) ()
      (0,000) (0,250) (0,500) (0,750) (1,000)] def

/ntu5 [(0,00) (0, . .) (0, . .) (0, . .) (1,00)] def

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

%         1r    g    b     2r    g    b     3r    g    b
/colors1 [{1.00 1.00 1.00} {0.75 1.00 1.00} {0.50 1.00 1.00} 
          {0.25 1.00 1.00} {0.00 1.00 1.00}] def %C16w=W,C12w,C08w,C04w,C00w
/colors2 [{1.00 1.00 1.00} {0.75 0.75 1.00} {0.50 0.50 1.00}
          {0.25 0.25 1.00} {0.00 0.00 1.00}] def %B16w=W,B12w,B08w,B04w,B00w
/colors3 [{1.00 1.00 1.00} {1.00 0.75 1.00} {1.00 0.50 1.00}
          {1.00 0.25 1.00} {1.00 0.00 1.00}] def %M16w=W,M12w,M08w,M04w,M00w

/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 2 def /ix0 j 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 2 def /ix0 j 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 2 def /ix0 j 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

 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

 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 2 def /ix0 j 1400 mul 200 sub def
%         tfw
%         ix0 iy0       moveto s 0 rlineto stroke
%         ix0 iy0 s add moveto s 0 rlineto stroke

xchart 1 eq {%xchart=1
TBG
tfn
%5 steps
/iy0 2450 def
0 1 04 {/j exch def /ix0 j 1400 mul 100 add def
        ix0 iy0 400 sub moveto
        ntu5 j get show
       } for %j

/iy0 750 def
0 1 04 {/j exch def /ix0 j 1400 mul 100 add def
        ix0 iy0 400 sub moveto
        ntu5 j get show
       } for %j

/iy0 2450 def
0 1 04 {/j exch def /ix0 j 5.2 add 1400 mul 100 add def
        ix0 iy0 400 sub moveto
        ntu5 j get show
       } for %j

/iy0 750 def
0 1 04 {/j exch def /ix0 j 5.2 add 1400 mul 100 add def
        ix0 iy0 400 sub moveto
        ntu5 j get show
       } for %j

/iy0 2450 def
0 1 04 {/j exch def /ix0 j 10.4 add 1400 mul 100 add def
        ix0 iy0 400 sub moveto
        ntu5 j get show
       } for %j

/iy0 750 def
0 1 04 {/j exch def /ix0 j 10.4 add 1400 mul 100 add def
        ix0 iy0 400 sub moveto
        ntu5 j get show
       } for %j

            } if %xchart=1
       
x1t neg y1t neg translate

x0t neg y0t neg translate

grestore
showpage

%%Trailer