%!PS-Adobe-3.0 EPSF-3.0 fgy20-7n
%%BoundingBox: 70 82 770 206

%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /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/fgy2/fgy2.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 pdfmark07
[ /View [ /Fit ]
/DOCVIEW pdfmark07
%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
/ifarb 2 def %0_6:W-NRGBCMYn %7_9:RGB_W, default 1:R

8 /Times-Roman FS
72 83 moveto
(fgy20-7n, ) show

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

(5 und 9 Farbstufen) showde
(5 and 9 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
/sd5 sd0 sd 5 mul add def
/sd6 sd0 sd 6 mul add def
/sd7 sd0 sd 7 mul add def
/sd8 sd0 sd 8 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
/sd5s sd5 dd0 add def
/sd6s sd6 dd0 add def
/sd7s sd7 dd0 add def
/sd8s sd8 dd0 add def

/x0 00100 def 
/x1 03000 def %delta=5600
/x2 x1  6.0 1400 mul add def
/xt   400 def
/yte  100 def

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

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

  x1 xt add 100 add 3650 moveto
  (Gr\374n G00n - Gr\374n G16n = Schwarz N) showde
  (Green G00n - Green G16n = Black N)  showen

  x2 xt add 2500 add 3650 moveto
  (Gr\374n G00n - Gr\374n G16n = Schwarz N) showde
  (Green G00n - Green G16n = Black N)  showen

/colors1 [(G00n)      (G04n)      (G08n)      (G12n)      (G16n)] def
/colors2 [(G00n)(G02n)(G04n)(G06n)(G08n)(G10n)(G12n)(G14n)(G16n)] def

TBG
  x1 sd0 add 1750 moveto (G00n) show
  x1 sd1 add 1750 moveto (G04n) show
  x1 sd2 add 1750 moveto (G08n) show
  x1 sd3 add 1750 moveto (G12n) show
  x1 sd4 add 1750 moveto (G16n) show

  x2 sd0 add 1750 moveto (G00n) show
  x2 sd1 add 1750 moveto (G02n) show
  x2 sd2 add 1750 moveto (G04n) show
  x2 sd3 add 1750 moveto (G06n) show
  x2 sd4 add 1750 moveto (G08n) show
  x2 sd5 add 1750 moveto (G10n) show
  x2 sd6 add 1750 moveto (G12n) show
  x2 sd7 add 1750 moveto (G14n) show
  x2 sd8 add 1750 moveto (G16n) show

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

  x2 sd0s add 0300 moveto ( 0,00) show %W00n
  x2 sd1s add 0300 moveto (0,13?) show  
  x2 sd2s add 0300 moveto (0,25?) show %W04n
  x2 sd3s add 0300 moveto (0,37?) show
  x2 sd4s add 0300 moveto (0,50?) show %W08n
  x2 sd5s add 0300 moveto (0,63?) show
  x2 sd6s add 0300 moveto (0,75?) show %W12n
  x2 sd7s add 0300 moveto (0,87?) show
  x2 sd8s add 0300 moveto ( 1,00) show %W16n

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

TBG  
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
     
%      W00n   W04n     W08n     W12n     W16n
/ntu5 [(0,00) (0, . .) (0, . .) (0, . .) (1,00)] def

%      W00n  W02n    W04n    W06n    W08n    W10n    W12n    W14n    W16n
/ntu9 [(0,00)(0, . .)(0, . .)(0, . .)(0, . .)(0, . .)(0, . .)(0, . .)(1,00)]def 

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

ifarb 0 eq {%ifarb=0 W_N
%         1r    g    b     2r    g    b     3r    g    b
/colors1 [{1.00 1.00 1.00} {0.75 0.75 0.75} {0.50 0.50 0.50} 
          {0.25 0.25 0.25} {0.00 0.00 0.00}] def %W00n_04n_08n_12n_16n=N
/colors2 [{1.00 1.00 1.00} {0.87 0.87 0.87} {0.75 0.75 0.75} {0.62 0.62 0.62}
          {0.50 0.50 0.50} {0.37 0.37 0.37} {0.25 0.25 0.25} {0.13 0.13 0.13}
          {0.00 0.00 0.00}] def %W00n_02n_04n_06n_08n_10n_12n_14n_16n=N
           } if %ifarb=0

ifarb 1 eq {%ifarb=1 R_N
%         1r    g    b     2r    g    b     3r    g    b
/colors1 [{1.00 0.00 0.00} {0.75 0.00 0.00} {0.50 0.00 0.00}
          {0.25 0.00 0.00} {0.00 0.00 0.00}] def %R00n_04n_08n_12n_16n=N
/colors2 [{1.00 0.00 0.00} {0.87 0.00 0.00} {0.75 0.00 0.00} {0.62 0.00 0.00}
          {0.50 0.00 0.00} {0.37 0.00 0.00} {0.25 0.00 0.00} {0.13 0.00 0.00}
          {0.00 0.00 0.00}] def %R00n_02n_04n_06n_08n_10n_12n_14n_16n=N
           } if %ifarb=1 R

ifarb 2 eq {%ifarb=2 G_N
%         1r    g    b     2r    g    b     3r    g    b
/colors1 [{0.00 1.00 0.00} {0.00 0.75 0.00} {0.00 0.50 0.00}
          {0.00 0.25 0.00} {0.00 0.00 0.00}] def %G00n_04n_08n_12n_16n=N
/colors2 [{0.00 1.00 0.00} {0.00 0.87 0.00} {0.00 0.75 0.00} {0.00 0.62 0.00}
          {0.00 0.50 0.00} {0.00 0.37 0.00} {0.00 0.25 0.00} {0.00 0.13 0.00}
          {0.00 0.00 0.00}] def %G00n_02n_04n_06n_08n_10n_12n_14n_16n=N
           } if %ifarb=2

ifarb 3 eq {%ifarb=3 B_N
%         1r    g    b     2r    g    b     3r    g    b
/colors1 [{0.00 0.00 1.00} {0.00 0.00 0.75} {0.00 0.00 0.50}
          {0.00 0.00 0.25} {0.00 0.00 0.00}] def %B00n_04n_08n_12n_16n=N
/colors2 [{0.00 0.00 1.00} {0.00 0.00 0.87} {0.00 0.00 0.75} {0.00 0.00 0.62}
          {0.00 0.00 0.50} {0.00 0.00 0.37} {0.00 0.00 0.25} {0.00 0.00 0.13}
          {0.00 0.00 0.00}] def %B00n_02n_04n_06n_08n_10n_12n_14n_16n=N
           } if %ifarb=3

ifarb 4 eq {%ifarb=4 C_N
%         1r    g    b     2r    g    b     3r    g    b
/colors1 [{0.00 1.00 1.00} {0.00 0.75 0.75} {0.00 0.50 0.50}
          {0.00 0.25 0.25} {0.00 0.00 0.00}] def %C00n_04n_08n_12n_16n=N
/colors2 [{0.00 1.00 1.00} {0.00 0.87 0.87} {0.00 0.75 0.75} {0.00 0.62 0.62}
          {0.00 0.50 0.50} {0.00 0.37 0.37} {0.00 0.25 0.25} {0.00 0.13 0.13}
          {0.00 0.00 0.00}] def %C00n_02n_04n_06n_08n_10n_12n_14n_16n=N
           } if %ifarb=4

ifarb 5 eq {%ifarb=5 M_N
%         1r    g    b     2r    g    b     3r    g    b
/colors1 [{1.00 0.00 1.00} {0.75 0.00 0.75} {0.50 0.00 0.50}
          {0.25 0.00 0.25} {0.00 0.00 0.00}] def %M00n_04n_08n_12n_16n=N
/colors2 [{1.00 0.00 1.00} {0.87 0.00 0.87} {0.75 0.00 0.75} {0.62 0.00 0.62}
          {0.50 0.00 0.50} {0.37 0.00 0.37} {0.25 0.00 0.25} {0.13 0.00 0.13}
          {0.00 0.00 0.00}] def %M00n_02n_04n_06n_08n_10n_12n_14n_16n=N
           } if %ifarb=5

ifarb 6 eq {%ifarb=6 Y_N
%         1r    g    b     2r    g    b     3r    g    b
/colors1 [{1.00 1.00 0.00} {0.75 0.75 0.00} {0.50 0.50 0.00}
          {0.25 0.25 0.00} {0.00 0.00 0.00}] def %Y00n_04n_08n_12n_16n=N
/colors2 [{1.00 1.00 0.00} {0.87 0.87 0.00} {0.75 0.75 0.00} {0.62 0.62 0.00}
          {0.50 0.50 0.00} {0.37 0.37 0.00} {0.25 0.25 0.00} {0.13 0.13 0.00}
          {0.00 0.00 0.00}] def %Y00n_02n_04n_06n_08n_10n_12n_14n_16n=N
           } if %ifarb=6

ifarb 7 eq {%ifarb=7 R_W
%         1r    g    b     2r    g    b     3r    g    b
/colors1 [{1.00 0.00 0.00} {1.00 0.25 0.25} {1.00 0.50 0.50}
          {1.00 0.75 0.75} {1.00 1.00 1.00}] def %R00w_04w_08w_12w_16w=W
/colors2 [{1.00 0.00 0.00} {1.00 0.13 0.13} {1.00 0.25 0.25} {1.00 0.37 0.37}
          {1.00 0.50 0.50} {1.00 0.63 0.63} {1.00 0.75 0.75} {1.00 0.87 0.87}
          {1.00 1.00 1.00}] def %R00w_02w_04w_06w_08w_10w_12w_14w_16w=W
           } if %ifarb=7

ifarb 8 eq {%ifarb=8 G_W
%         1r    g    b     2r    g    b     3r    g    b
/colors1 [{0.00 1.00 0.00} {0.25 1.00 0.25} {0.50 1.00 0.50}
          {0.75 1.00 0.75} {1.00 1.00 1.00}] def %G00w_04w_08w_12w_16w=W
/colors2 [{0.00 1.00 0.00} {0.13 1.00 0.13} {0.25 1.00 0.25} {0.37 1.00 0.37}
          {0.50 1.00 0.50} {0.63 1.00 0.63} {0.75 1.00 0.75} {0.87 1.00 0.87}
          {1.00 1.00 1.00}] def %G00w_02w_04w_06w_08w_10w_12w_14w_16w=W
           } if %ifarb=8

ifarb 9 eq {%ifarb=9 B_W
%         1r    g    b     2r    g    b     3r    g    b
/colors1 [{0.00 0.00 1.00} {0.25 0.25 1.00} {0.50 0.50 1.00}
          {0.75 0.75 1.00} {1.00 1.00 1.00}] def %B00w_04w_08w_12w_16w=W
/colors2 [{0.00 0.00 1.00} {0.13 0.13 1.00} {0.25 0.25 1.00} {0.37 0.37 1.00}
          {0.50 0.50 1.00} {0.63 0.63 1.00} {0.75 0.75 1.00} {0.87 0.87 1.00}
          {1.00 1.00 1.00}] def %B00w_02w_04w_06w_08w_10w_12w_14w_16w=W
           } if %ifarb=9

/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

        xchart 0 eq {%xchart=0
        ifarb 0 eq
        ifarb 6 eq or {%ifarb=0,6 (W-N,Y-N)
        /j 2 def /ix0 j 0 add 1400 mul def
        tfw
        ix0 iy0 s s rec stroke
                    } if %xchart=0
                   } if %ifarb=0,6

/s 1000 def /iy0 0 def
 0 1 08 {/j exch def
         /ix0 j 6.0 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

        xchart 0 eq {%xchart=0
        ifarb 0 eq
        ifarb 6 eq or {%ifarb=0,6 (W-N,Y-N)
        /j 4 def /ix0 j 6.0 add 1400 mul def
        tfw
        ix0 iy0 s s rec stroke
                    } if %xchart=0
                   } if %ifarb=0,6

/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

         xchart 0 eq {%xchart=0
         ifarb 0 eq
         ifarb 6 eq or {%ifarb=0,6 (W-N,Y-N)
         /j 2 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
                       } if %xchart=0
                    } if %ifarb=0,6

 0 1 08 {/j exch def
         /ix0 j 6.0 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

         xchart 0 eq {%xchart=0
         ifarb 0 eq
         ifarb 6 eq or {%ifarb=0,6 (W-N,Y-N)
         /j 4 def /ix0 j 6.0 add 1400 mul 200 sub def
         tfw
         ix0 iy0       moveto s 0 rlineto stroke
         ix0 iy0 s add moveto s 0 rlineto stroke
                    } if %xchart=0
                     } if %ifarb=0

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 08 {/j exch def /ix0 j 6.0 add 1400 mul 100 add def
        ix0 iy0 400 sub moveto
        ntu9 j get show
       } for %j

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

            } if %xchart=1
       
x1t neg y1t neg translate

x0t neg y0t neg translate

grestore
showpage

%%Trailer