%!PS-Adobe-3.0 EPSF-3.0 fgs10-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/fgs1/fgs1.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 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

0 setgray
/xchart 1 def

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

xchart 0 eq 
{(Pr\374fmuster: )      showde (Test samples: )     showen}
{(Bewertungsbogen: ) showde (Evaluation sheet: ) showen} ifelse

8 /Times-ISOL1 FS
(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 200 def
/sd1 sd0 sd 1 mul add def
/sd2 sd0 sd 2 mul add def
/dd0 70 def
/sd0s sd0 dd0 sub def
/sd1s sd1 dd0 sub def
/sd2s sd2 dd0 sub def

/x0 00100 def 
/x1 03000 def %delta=5600
/x2 08600 def
/x3 14200 def
/x4 19800 def
/xt   800 def
/yte  100 def

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

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

  x1 xt add 3650 moveto TBIG 
  (Wei\337 - Gelb) showde
  (White - Yellow) showen

  TBG
  x1 sd0 add 1750 moveto (W)  show
  x1 sd1 add 1750 moveto (WY) show
  x1 sd2 add 1750 moveto (Y)  show

  xchart 0 eq {%xchart=0
  x1 sd0s add 0300 moveto (0,00)  show
  x1 sd1s add 0300 moveto (0,50?) show
  x1 sd2s add 0300 moveto (1,00)  show
  100 0600 moveto (Beurteilungs\255) showde (Evaluation) showen
  100 0300 moveto (beispiel)         showde (example)    showen
              } if %xchart=0
  
  x2 xt add 3650 moveto TBIG 
  (Wei\337 - Gr\374n) showde
  (White - Green) showen

  TBG
  x2 sd0 add 1750 moveto (W)  show
  x2 sd1 add 1750 moveto (WG) show
  x2 sd2 add 1750 moveto (G)  show

  xchart 0 eq {%xchart=0
  x2 sd0s add 0300 moveto (0,00)  show
  x2 sd1s add 0300 moveto (0,50?) show
  x2 sd2s add 0300 moveto (1,00)  show
              } if %xchart=0

  x3 xt add 3650 moveto TBIG 
  (Cyan - Schwarz) showde
  (Cyan - black) showen

  TBG
  x3 sd0 add 1750 moveto (C)  show
  x3 sd1 add 1750 moveto (CN) show
  x3 sd2 add 1750 moveto (N)  show

  xchart 0 eq {%xchart=0
  x3 sd0s add 0300 moveto (0,00)  show
  x3 sd1s add 0300 moveto (0,50?) show
  x3 sd2s add 0300 moveto (1,00)  show
              } if %xchart=0
  
  x4 xt add 3650 moveto TBIG 
  (Blau - Schwarz) showde
  (Blue - Black) showen

  TBG
  x4 sd0 add 1750 moveto (B)  show
  x4 sd1 add 1750 moveto (BN) show
  x4 sd2 add 1750 moveto (N)  show

  xchart 0 eq {%xchart=0
  x4 sd0s add 0300 moveto (0,00)  show
  x4 sd1s add 0300 moveto (0,50?) show
  x4 sd2s add 0300 moveto (1,00)  show
              } if %xchart=0

xchart 0 eq {%xchart=0
  100 2850 moveto
  (aneiandergren\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


/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} {1.00 1.00 0.50} {1.00 1.00 0.00}] def %WY 
/colors2 [{1.00 1.00 1.00} {0.50 1.00 0.50} {0.00 1.00 0.00}] def %WG
/colors3 [{0.00 1.00 1.00} {0.00 0.50 0.50} {0.00 0.00 0.00}] def %CN
/colors4 [{0.00 0.00 1.00} {0.00 0.00 0.50} {0.00 0.00 0.00}] def %BN

/s 1000 def /iy0 0 def
 0 1 2 {/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

 4 1 6 {/j exch def
        /ix0 j 1400 mul def
        xchart 0 eq {colors2 j 4 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

 8 1 10 {/j exch def
         /ix0 j 1400 mul def
         xchart 0 eq {colors3 j 8 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

12 1 14 {/j exch def
         /ix0 j 1400 mul def
         xchart 0 eq {colors4 j 12 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

/s 1400 def /iy0 1500 def
 0 1 2 {/j exch def
        /ix0 j 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

 4 1 6 {/j exch def
        /ix0 j 1400 mul 200 sub def
         xchart 0 eq {colors2 j 4 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

 8 1 10 {/j exch def
         /ix0 j 1400 mul 200 sub def
         xchart 0 eq {colors3 j 8 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

12 1 14 {/j exch def
         /ix0 j 1400 mul 200 sub def
         xchart 0 eq {colors4 j 12 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


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

/iy0 750 def
0 1 15 {/j exch def /ix0 j 1400 mul 100 add def
          ix0 iy0 400 sub moveto
          ntu j get show
       } for %j
            } if %xchart=1
       
x1t neg y1t neg translate

x0t neg y0t neg translate

grestore
showpage

%%Trailer