%!PS-Adobe-3.0 EPSF-3.0 gga20-1n_R
%%BoundingBox: 70 80 770 208

%START PDFDE011.EPS
/pdfmark01 where {pop} {userdict /pdfmark01 /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/gga2/gga2.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:2024060112200)
 /ModDate (D:20240601112200)
/DOCINFO pdfmark01
[ /View [ /Fit ]
/DOCVIEW pdfmark01
%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
/cvishow {cvi 6 string cvs show} 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 0 def %0:L* for 1/3/5/7n, 1:for 1/3/5/7n
/nchart 0 def %0:1n, 1:3n, 2:5n, 3:7n
/inw 1 def %0:w->n, 1:n->w
/exp0 1.0 def %0:1.0, 1:0.5, 2:2.0
/expg 1.0 def
/ufield 1 def %0:N, 1:U, 2:W
/utexte 1 def %0:ohne, 1:mit utexte
/surrou 0 def %0:mean grey, 1:dark grey, 2:light grey

72 90 translate

0.01 MM dup scale

20 setlinewidth
/ydm 0 def
surrou 0 eq {0.50} if
surrou 1 eq {0.25} if
surrou 2 eq {0.50 sqrt} if
expg exp setgray
0 ydm neg moveto 24500 0 rlineto 0 4000 ydm add rlineto
                -24500 0 rlineto closepath fill

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

%ufield 0 eq {0.5 setgray /tnw {tfw} def} if
%ufield 1 eq {0.0 setgray /tnw {tfw} def} if
%ufield 2 eq {1.0 setgray /tnw {tfn} def} if %not realized yet
%24500 1800 sub 0 moveto 1800 0 rlineto 0 4000 rlineto
%                       -1800 0 rlineto closepath fill

tfn
200 /Times-Roman FS
100 -200 moveto
(gga20-1n_R, ) show

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

(13x3 und 1x5 Farbstufen) showde
(13x3 and 1x5 colour steps) showen
(, exp0=1, expg=1, inw=1, xchart=) show xchart cvishow

%%%%%%%%%%%   oberer Schriftzug %%%%%%%%%%%%%%%%
/xshift 1100 def
/fatr 4 def
/x0 00100 def
/x1 03000 xshift sub def %delta=5600
/x2 x1  4.0 1400 mul add def
/x3 x2  6.0 1400 mul add def
/xt   400 200 add def
/yte  100 def

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

/sd  1400 def
/sd0 000 def
/dd0 70 def

x0t y0t translate
  tfw
  TBIG
nchart 2 le {%nchart<=2
  100 3600 moveto  
  (3 Farbstufen:) showde
  (3 colour steps:) showen
            } if

nchart 3 eq {%nchart=3
  100 3600 moveto
  (3 Graustufen:) showde
  (3 Grey steps:) showen
  100 5600 2 mul add 3600 moveto 
  (5 Graustufen:) showde
  (5 Grey steps:) showen
            } if %nchart=3

/colte1g [%ifarb=0,13
(Schwarz N - Rot R)
(Schwarz N - Gr\374n G)
(Schwarz N - Blau B)
(Schwarz N - Cyan C)
(Schwarz N - Magenta M)
(Schwarz N - Gelb Y)
(Rot R - Wei\337 W)
(Gr\374n G - Wei\337 W)
(Blau B - Wei\337 W)
(Cyan C - Wei\337 W)
(Magenta M - Wei\337 W)
(Gelb Y - Wei\337 W)
(Schwarz N - Wei\337 W)
()
(Schwarz N - Mittelgrau U - Wei\337 W)
()
] def

/colte1e [%ifarb=0,13
(Black N - Red R)
(Black N - Green G)
(Black N - Blue B)
(Black N - Cyan C)
(Black N - Magenta M)
(Black N - Gelb Y)
(Red R - White W)
(Green G - White W)
(Blue B - White W)
(Cyan C - White W)
(Magenta M - White W)
(Gelb Y - White W)
(Black N - White W)
()
(Black N - mean Grey U - White W)
()
] def

tfw
TBIG
0 1 3 {/k exch def %k=0,3 within line
       x1 xt add 0500 add k 5600 mul add 3600 moveto
       colte1g nchart 4 mul k add get showde
       colte1e nchart 4 mul k add get showen
      } for %k=0,3

%0     1    2     3     4     5     6     7     8
/colors1 [
(  N)(N08r)(  R) %00=0x3=0x4x3
(  N)(N08g)(  G) %03=1x3=
(  N)(N08b)(  B) %06
(  N)(N08c)(  C) %09
(  N)(N08m)(  M) %12=4x3=1x4x3
(  N)(N08y)(  Y) %15=5x3 +0, +1, +2
(  R)(R08w)(  W)
(  G)(G08w)(  W)
(  B)(B08w)(  W) %24=8x3=2x4x3
(  C)(C08w)(  W)
(  M)(M08w)(  W)
(  Y)(Y08w)(  W)
(  N)(N08w)(  W)
()   ()    ()    %36=12x3=3x4x3
(  N)(N04w)(N08w)(N12w)(  W)
()   ()    ()
] def

tfw
TBG
nchart 2 le {%nchart<=2
0 1 2 {/i exch def %i=0,2 pos line
0 1 3 {/k exch def %k=0,3 within line
       x1 xt add 0100 add k 5600 mul add i 1400 mul add 1750 moveto
       colors1 nchart 12 mul k 3 mul add i add get show
      } for %k=0,3
      } for %i=0,2
            } if %nchart<=2

nchart 3 eq {%nchart=3
/k 0 def
0 1 2 {/i exch def %i=0,2 within line, 3 steps
       x1 xt add 0100 add k 5600 mul add i 1400 mul add 1750 moveto
       colors1 nchart 12 mul k 3 mul add i add get show
      } for %i=0,2

/k 2 def
0 1 4 {/i exch def %i=0,4 within line, 5 steps
       x1 xt add 0100 add k 5600 mul add i 1400 mul add 1750 moveto
       colors1 nchart 12 mul k 3 mul add i add get show
      } for %i=0,4
            } if %nchart=3

%***********************************************************
xchart 1 ne {%xchart=1
%allways horizontal series
/L*TUBLOG3 [(   0)(  50)( 100)] def
/L*TUBLOG5 [(   0)(  25)(  50)(  75)( 100)] def

1 1 0 setrgbcolor
TBG
nchart 2 le {%nchart<=2
1 1 0 setrgbcolor
0 1 3 {/k exch def %k=0,3 within line
0 1 2 {/i exch def %i=0,2 line
       x1 xt add 0100 add i 1400 mul add k 5600 mul add 0300 moveto
       L*TUBLOG3 i get show
      } for %i=0,2
      } for %k=0,3
            } if %nchart<=2

nchart 3 eq {%nchart=3
1 1 0 setrgbcolor
/k 0 def
0 1 2 {/i exch def %i=0,2
       x1 xt add 0100 add i 1400 mul add k 5600 mul add 0300 moveto
       L*TUBLOG3 i get show
      } for %i=0,2
/k 2 def
0 1 4 {/i exch def %i=0,4
       x1 xt add 0100 add i 1400 mul add k 5600 mul add 0300 moveto
       L*TUBLOG5 i get show
      } for %i=0,4
            } if %nchart=3

nchart 2 le {%nchart<=2
100 0350 moveto
TBIG
(L*) show
0 -80 rmoveto TBM (TUBLOG) show 0 80 rmoveto
            } if %nchart<=2

nchart 3 eq {%nchart=3
100 2 5600 mul add 0350 moveto
TBIG
(L*) show
0 -80 rmoveto TBM (TUBLOG) show 0 80 rmoveto
            } if %nchart=3

      } if %xchart#1
%$STOP2
%******************************************************************
xchart 1 eq {%xchart=1
%          0     1     2      3     4
/tquest3  [(0,00)(0,5?)(1,00)] def
/tquest5  [(0,00)(0,5?)(1 / 0)(0,5?)(1,00)] def

TBG
1 1 0 setrgbcolor
nchart 2 le {%nchart<=2
1 1 0 setrgbcolor
0 1 3 {/k exch def %k=0,3 within line
0 1 2 {/i exch def %i=0,2 line
       x1 xt add 0100 add i 1400 mul add k 5600 mul add 0300 moveto
       tquest3 i get show
      } for %i=0,2
      } for %k=0,3
            } if %nchart<=2

nchart 3 eq {%nchart=3
/k 0 def
0 1 2 {/i exch def %i=0,2
       x1 xt add 0100 add i 1400 mul add k 5600 mul add 0300 moveto
       tquest3 i get show
      } for %i=0,2
/k 2 def
0 1 4 {/i exch def %i=0,4
       x1 xt add 0100 add i 1400 mul add k 5600 mul add 0300 moveto
       tquest5 i get show
      } for %i=0,4
             } if %nchart=3

nchart 2 le {/im 0 def}
            {/im 2 def} ifelse
0 2 im {/i exch def %i=0,2,im
        /xac 100 i 5600 mul add def
        xac 0600 moveto
        (visual) showen
        (visuelle) showde
        xac 0300 moveto
        TBG (Skalierung:) showde
            (Scaling:) showen
       } for %i=0,2,im

     } if %xchart=1

%***********************************************************
xchart 0 eq {%xchart=0
  TBM
  tfw
  nchart 2 le {/im 0 def} if
  nchart 3 eq {/im 2 def} if
              
  0 2 im {/i exch def %i=0,2,im
  /xac 100 i 5600 mul add def
  xac 2850 moveto
  (aneinander\255) showde
  (adjacent) showen
  xac 2550 moveto
  (grenzende) showde
  (samples) showen
  xac 2250 moveto
  (Muster) showde

  xac 1250 moveto
  (separate) showde
  (separate) showen
  xac 0950 moveto
  (Muster) showde
  (samples) showen
          } for %i=0,2,im
            } if %xchart=0

xchart 1 ge {%xchart>=1
  tfw
  TBM
  nchart 2 le {/im 0 def} if
  nchart 3 eq {/im 2 def} if
  0 2 im {/i exch def %i=0,2,im
  /xac 100 i 5600 mul add def
  xac 2900 moveto
  (Beurtei\255) showde
  (Evaluation) showen
  xac 2600 moveto
  (lungsanteil) showde
  (amount) showen

  xac 1250 moveto
  TBM
  (Beurteil\255) showde
  (Evaluation) showen
  xac 0950 moveto
  (lungsanteil) showde
  (amount) showen
    } for %i=0,2,im
} if %xchart>=1

x0t neg y0t neg translate

%**********************************************************  
x1t y1t translate
/cvs1 {10 mul cvi 0.1 mul 7 string cvs} def

/rgb 17 array def
0 1 16 {/i exch def %i=0,16
        /id16 0.0625 i mul def
        rgb i id16 exp0 exp put
      } for %i=0,16

TBM
7100 3300 moveto
0 2 16 {/i exch def %i=0,16
        rgb i get 1000 mul cvishow
        i 15 le {(, ) show} if
       } for %i=0,16

%************************************long loop
/colors1 [%12x3+2=38 colours
          {rgb 00 get rgb 00 get rgb 00 get} %N_R
          {rgb 08 get rgb 00 get rgb 00 get}
          {rgb 16 get rgb 00 get rgb 00 get}
          {rgb 00 get rgb 00 get rgb 00 get} %N_G
          {rgb 00 get rgb 08 get rgb 00 get}
          {rgb 00 get rgb 16 get rgb 00 get}
          {rgb 00 get rgb 00 get rgb 00 get} %N_B
          {rgb 00 get rgb 00 get rgb 08 get}
          {rgb 00 get rgb 00 get rgb 16 get}
          {rgb 00 get rgb 00 get rgb 00 get} %N_C
          {rgb 00 get rgb 08 get rgb 08 get}
          {rgb 00 get rgb 16 get rgb 16 get}
          {rgb 00 get rgb 00 get rgb 00 get} %N_M
          {rgb 08 get rgb 00 get rgb 08 get}
          {rgb 16 get rgb 00 get rgb 16 get}
          {rgb 00 get rgb 00 get rgb 00 get} %N_Y
          {rgb 08 get rgb 08 get rgb 00 get}
          {rgb 16 get rgb 16 get rgb 00 get}
          {rgb 16 get rgb 00 get rgb 00 get} %R_W
          {rgb 16 get rgb 08 get rgb 08 get}
          {rgb 16 get rgb 16 get rgb 16 get}
          {rgb 00 get rgb 16 get rgb 00 get} %G_W
          {rgb 08 get rgb 16 get rgb 08 get}
          {rgb 16 get rgb 16 get rgb 16 get}
          {rgb 00 get rgb 00 get rgb 16 get} %B_W
          {rgb 08 get rgb 08 get rgb 16 get}
          {rgb 16 get rgb 16 get rgb 16 get}
          {rgb 00 get rgb 16 get rgb 16 get} %C_W
          {rgb 08 get rgb 16 get rgb 16 get}
          {rgb 16 get rgb 16 get rgb 16 get}
          {rgb 16 get rgb 00 get rgb 16 get} %M_W
          {rgb 16 get rgb 08 get rgb 16 get}
          {rgb 16 get rgb 16 get rgb 16 get}
          {rgb 16 get rgb 16 get rgb 00 get} %Y_W
          {rgb 16 get rgb 16 get rgb 08 get}
          {rgb 16 get rgb 16 get rgb 16 get}
          {rgb 00 get rgb 00 get rgb 00 get} %N_W3
          {rgb 08 get rgb 08 get rgb 08 get}
          {rgb 16 get rgb 16 get rgb 16 get}
          {rgb 00 get rgb 00 get rgb 00 get} %N_W5
          {rgb 04 get rgb 04 get rgb 04 get}
          {rgb 08 get rgb 08 get rgb 08 get}
          {rgb 12 get rgb 12 get rgb 12 get}
          {rgb 16 get rgb 16 get rgb 16 get}
         ]def

%****************************************************************
/s 1000 def /iy0 0 def
20 setlinewidth
nchart 2 le {%nchart<=2
 0 1 03 {/k exch def
 0 1 02 {/j exch def
         /ix0 xt j 1400 mul add k 5600 mul add def
         xchart 0 eq {colors1 nchart 12 mul 
                      k 3 mul add j add get exec setrgbcolor
                          ix0 iy0 s s rec fill} if
         xchart 1 ge {tfw ix0 iy0 s s rec fill
                      tfn ix0 iy0 s s rec stroke} if
        } for %j
        } for %k
              } if %nchart<=2

nchart 3 eq {%nchart=3
/k 0 def
0 1 02 {/j exch def %j=0,2
        /ix0 xt j 1400 mul add k 5600 mul add def
        xchart 0 eq {colors1 nchart 12 mul
                     k 3 mul add j add get exec setrgbcolor
                         ix0 iy0 s s rec fill} if
        xchart 1 ge {tfw ix0 iy0 s s rec fill
                     tfn ix0 iy0 s s rec stroke} if
       } for %j
        %grey surround
        /j 1 def
        /ix0 xt j 1400 mul add k 5600 mul add def
        xchart 0 eq {tfw ix0 iy0 s s rec stroke} if
        xchart 1 ge {tfw ix0 iy0 s s rec fill
                     tfn ix0 iy0 s s rec stroke} if
       
/k 1 def
0 1 04 {/j exch def %j=0,4
        /ix0 xt j 1400 mul add k 1 add 5600 mul add def
        xchart 0 eq {colors1 nchart 12 mul
                     k 3 mul add j add get exec setrgbcolor
                         ix0 iy0 s s rec fill} if
        xchart 1 ge {tfw ix0 iy0 s s rec fill
                     tfn ix0 iy0 s s rec stroke} if
       } for %j %j=0,4
        %grey surround
        /j 2 def
        /ix0 xt j 1400 mul add k 1 add 5600 mul add def
        xchart 0 eq {tfw ix0 iy0 s s rec stroke} if
        xchart 1 ge {tfw ix0 iy0 s s rec fill
                     tfn ix0 iy0 s s rec stroke} if
          } if %nchart=3

%***********************************************************
/s 1400 def /iy0 1500 def
20 setlinewidth
nchart 2 le {%nchart<=2
 0 1 03 {/k exch def
 0 1 02 {/j exch def
         /ix0 xt j 1400 mul add k 5600 mul add 200 sub def
         xchart 0 eq {colors1 nchart 12 mul
                      k 3 mul add j add get exec setrgbcolor
                          ix0 iy0 s s rec fill} if
         xchart 1 ge {tfw ix0 iy0 s s rec fill
                      tfn ix0 iy0 s s rec stroke} if
        } for %j
        } for %k
            } if %nchart<=2

nchart 3 eq {%nchart=3
/k 0 def
0 1 02 {/j exch def %j=0,2
        /ix0 xt j 1400 mul add k 5600 mul add 200 sub def
        xchart 0 eq {colors1 nchart 12 mul
                     k 3 mul add j add get exec setrgbcolor
                         ix0 iy0 s s rec fill} if
        xchart 1 ge {tfw ix0 iy0 s s rec fill
                     tfn ix0 iy0 s s rec stroke} if
       } for %j
        %grey surround
        /j 1 def
        /ix0 xt j 1400 mul add k 5600 mul add 200 sub def
        tfw
        ix0 iy0       moveto s 0 rlineto stroke
        ix0 iy0 s add moveto s 0 rlineto stroke

/k 1 def
0 1 04 {/j exch def %j=0,4
        /ix0 xt j 1400 mul add k 1 add 5600 mul add 200 sub def
        xchart 0 eq {colors1 nchart 12 mul
                     k 3 mul add j add get exec setrgbcolor
                         ix0 iy0 s s rec fill} if
        xchart 1 ge {tfw ix0 iy0 s s rec fill
                     tfn ix0 iy0 s s rec stroke} if
       } for %j %j=0,4                                           
        %grey surround
        /j 2 def
        /ix0 xt j 1400 mul add k 1 add 5600 mul add 200 sub def
        tfw
        ix0 iy0       moveto s 0 rlineto stroke
        ix0 iy0 s add moveto s 0 rlineto stroke
            } if %nchart=3
%*******************************************************************
xchart 1 eq {%xchart=1
%untere Reihe um +200, +200 verschoben bei dx=1000 von 1400
0 setgray

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

nchart 2 le {%nchart<=2
TBG
tfn
0 1 3 {/k exch def %k=0,3
%3 steps
/iy0 2450 def
0 1 2 {/j exch def
        /ix0 j 1400 mul 700 add k 5600 mul add def
        ix0 iy0 400 sub moveto
        ntu3 j get show
        
       } for %j

/iy0 750 def
0 1 2 {/j exch def
        /ix0 j 1400 mul 700 add k 5600 mul add def
        ix0 iy0 400 sub moveto
        ntu3 j get show
       } for %j
        } for %k=0,3
            } if %nchart<=2

nchart 3 eq {%nchart=3
/k 0 def
%3 steps
/iy0 2450 def
0 1 2 {/j exch def
        /ix0 j 1400 mul 700 add k 5600 mul add def
        ix0 iy0 400 sub moveto
        ntu3 j get show
       } for %j

/iy0 750 def
0 1 2 {/j exch def
        /ix0 j 1400 mul 700 add k 5600 mul add def
        ix0 iy0 400 sub moveto
        ntu3 j get show
       } for %j

/k 2 def
/iy0 2450 def
0 1 4 {/j exch def
        /ix0 j 1400 mul 700 add k 5600 mul add def
        j 2 le {ix0 iy0 250 sub moveto ntu5  j get show} if
        j 2 ge {ix0 iy0 550 sub moveto ntu5a j get show} if
       } for %j

/iy0 750 def
0 1 4 {/j exch def
        /ix0 j 1400 mul 700 add k 5600 mul add def
        j 2 le {ix0 iy0 250 sub moveto ntu5  j get show} if
        j 2 ge {ix0 iy0 550 sub moveto ntu5a j get show} if
       } for %j
            } if %nchart=3

            } if %xchart=1

%******************************************************************
xchart 2 eq {%xchart=2
%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

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
%mean grey
/j 5 def
/ix0 j 1400 mul 100 add def
ix0 iy0 400 sub moveto
ntu5 3 get show

/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=2
       
x1t neg y1t neg translate

grestore
showpage

%%Trailer