%!PS-Adobe-3.0 EPSF-3.0 fgt40-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/fgt4/fgt4.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
/ifarb 4 def %0_6:W-NRGBCMYn %7_9:RGB_W, default 1:R

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

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

(3 und 5 Farbstufen) showde
(3 and 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 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   000 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
  (3 Farbstufen:) showde
  (3 colour steps:) showen

  x1 xt add 400 sub ifarb 5 eq {200 sub} if %M
                    ifarb 6 eq {100 sub} if %Y
                    3650 moveto
  (Cyan R00n - Cyan R16n = N) showde
  (Cyan R00n - Cyan R16n = N) showen

  tfw
  x2 2800 sub 3650 moveto
  (5 Farbstufen:) showde
  (5 colour steps:) showen

  x2 xt add 0800 add ifarb 5 eq {1000 sub} if %M
                     ifarb 6 eq {0500 sub} if %Y
                     3650 moveto
  (Cyan R00n - Cyan R16n = Schwarz N) showde
  (Cyan R00n - Cyan R16n = Black N) showen

  x3 xt add 1500 add 3650 moveto
  (Cyan R00n - Cyan R04n) showde
  (Cyan R00n - Cyan R04n) showen

/colors1 [(C00n) (C08n) (C16n)  ()    ()  ] def
/colors2 [(C00n) (C04n) (C08n) (C12n) (C16n) ] def
/colors3 [(C00n) (C01n) (C02n) (C03n) (C04n)] def

TBG
  x1 sd0 add 1750 moveto (C00n) show
  x1 sd1 add 1750 moveto (C08n) show
  x1 sd2 add 1750 moveto (C16n) show

  x2 sd0 add 1750 moveto (C00n) show
  x2 sd1 add 1750 moveto (C04n) show
  x2 sd2 add 1750 moveto (C08n) show
  x2 sd3 add 1750 moveto (C12n) show
  x2 sd4 add 1750 moveto (C16n) show

  x3 sd0 add 1750 moveto (C00n) show
  x3 sd1 add 1750 moveto (C01n) show
  x3 sd2 add 1750 moveto (C02n) show
  x3 sd3 add 1750 moveto (C03n) show
  x3 sd4 add 1750 moveto (C04n) 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

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

  x3 sd0s add 0300 moveto (0,00)  show
  x3 sd1s add 0300 moveto (0,50?) show
  x3 sd2s add 0300 moveto (1 / 0)  show
  x3 sd3s add 0300 moveto (0,50?) 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

  x2 2800 sub 0600 moveto (Beurteilungs\255) showde (Evaluation) showen
  x2 2800 sub 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

  x2 2800 sub 2850 moveto
  (aneinandergren\255) showde
  (adjacent) showen
  x2 2800 sub 2550 moveto
  (zende Muster) showde
  (samples) showen
  x2 2800 sub 1250 moveto
  (separate) showde
  (separate) showen
  x2 2800 sub 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

  x2 3000 sub 2900 moveto
  TBIG
  (Beurteilung:) showde
  (Evaluation:) showen
  x2 3000 sub 2600 moveto
  TBG
  (Anteil) showde
  (Amount) showen

  x2 3000 sub 1250 moveto
  TBIG
  (Beurteilung:) showde
  (Evaluation:) showen
  x2 3000 sub 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
/ntu5  [(0,00) (0, . .) (1,00) ()       ()] def
/ntu5a [()     ()       (0,00) (0, . .) (1,00)] def

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

ifarb 0 eq {%ifarb=0 W_N
%W_N      1r    g    b     2r    g    b     3r    g    b
/colors1 [{1.00 1.00 1.00} {0.50 0.50 0.50} {0.00 0.00 0.00}
          {0.00 0.00 0.00} {0.00 0.00 0.00}] def %W00,08,16n 3 steps
/colors2 [{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 %W00,04,08,12,16n 5 steps
/colors3 [{1.00 1.00 1.00} {0.94 0.94 0.94} {0.88 0.88 0.88}
          {0.82 0.82 0.82} {0.75 0.75 0.75}] def %W00,01,02,03,04n 5 steps
           } if %ifarb=0 W_N

ifarb 1 eq {%ifarb=1 R_N
%R_N      1r    g    b     2r    g    b     3r    g    b
/colors1 [{1.00 0.00 0.00} {0.50 0.00 0.00} {0.00 0.00 0.00}
          {0.00 0.00 0.00} {0.00 0.00 0.00}] def %R00,08,16n 3 steps
/colors2 [{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 %R00,04,08,12,16n 5 steps
/colors3 [{1.00 0.00 0.00} {0.94 0.00 0.00} {0.88 0.00 0.00}
          {0.82 0.00 0.00} {0.75 0.00 0.00}] def %R00,01,02,03,04n 5 steps
           } if %ifarb=1 R_N

ifarb 2 eq {%ifarb=2 G_N
%G_N      1r    g    b     2r    g    b     3r    g    b
/colors1 [{0.00 1.00 0.00} {0.00 0.50 0.00} {0.00 0.00 0.00}
          {0.00 0.00 0.00} {0.00 0.00 0.00}] def %G00,08,16n 3 steps
/colors2 [{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 %G00,04,08,12,16n 5 steps
/colors3 [{0.00 1.00 0.00} {0.00 0.94 0.00} {0.00 0.88 0.00}
          {0.00 0.82 0.00} {0.00 0.75 0.00}] def %G00,01,02,03,04n 5 steps
           } if %ifarb=2 G_N

ifarb 3 eq {%ifarb=3 B_N
%B-N      1r    g    b     2r    g    b     3r    g    b
/colors1 [{0.00 0.00 1.00} {0.00 0.00 0.50} {0.00 0.00 0.00}
          {0.00 0.00 0.00} {0.00 0.00 0.00}] def %B00,08,16n 3 steps
/colors2 [{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 %B00,04,08,12,16n 5 steps
/colors3 [{0.00 0.00 1.00} {0.00 0.00 0.94} {0.00 0.00 0.88}
          {0.00 0.00 0.82} {0.00 0.00 0.75}] def %B00,01,02,03,04n 5 steps
           } if %ifarb=3 B_N

ifarb 4 eq {%ifarb=4 C_N
%C_N     1r    g    b     2r    g    b     3r    g    b
/colors1 [{0.00 1.00 1.00} {0.00 0.50 0.50} {0.00 0.00 0.00} 
          {0.00 0.00 0.00} {0.00 0.00 0.00}] def %C00,08,16n 3 steps
/colors2 [{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 %C00,04,08,12,16n 5 steps
/colors3 [{0.00 1.00 1.00} {0.00 0.94 0.94} {0.00 0.88 0.88}
          {0.00 0.82 0.82} {0.00 0.75 0.75}] def %C00,01,02,03,04n 5 steps
           } if %ifarb=4 C_N

ifarb 5 eq {%ifarb=5 M_N
%M-N      1r    g    b     2r    g    b     3r    g    b
/colors1 [{1.00 0.00 1.00} {0.50 0.00 0.50} {0.00 0.00 0.00}
          {0.00 0.00 0.00} {0.00 0.00 0.00}] def %M00,08,16n 3 steps
/colors2 [{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 %M00,04,08,12,16n 5 steps
/colors3 [{1.00 0.00 1.00} {0.94 0.00 0.94} {0.88 0.00 0.88}
          {0.82 0.00 0.82} {0.75 0.00 0.75}] def %M00,01,02,03,04n 5 steps
           } if %ifarb=5 M_N

ifarb 6 eq {%ifarb=6 Y_N
%Y-N      1r    g    b     2r    g    b     3r    g    b
/colors1 [{1.00 1.00 0.00} {0.50 0.50 0.00} {0.00 0.00 0.00}
          {0.00 0.00 0.00} {0.00 0.00 0.00}] def %Y00,08,16n 3 steps
/colors2 [{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 %Y00,04,08,12,16n 5 steps
/colors3 [{1.00 1.00 0.00} {0.94 0.94 0.00} {0.88 0.88 0.00}
          {0.82 0.82 0.00} {0.75 0.75 0.00}] def %Y00,01,02,03,04n 5 steps
           } if %ifarb=6 Y_N

ifarb 7 eq {%ifarb=7 R_W
%W_N      1r    g    b     2r    g    b     3r    g    b
/colors1 [{1.00 0.00 0.00} {1.00 0.50 0.50} {1.00 1.00 1.00}
          {0.00 0.00 0.00} {0.00 0.00 0.00}] def %R00w,08w,16w 3 steps
/colors2 [{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,04,08,12,16w 5 steps
/colors3 [{1.00 0.00 0.00} {1.00 0.07 0.07} {1.00 0.13 0.13}
          {1.00 0.19 0.19} {1.00 0.25 0.25}] def %R00w,01,02,03,04w 5 steps
           } if %ifarb=7 R_W

ifarb 8 eq {%ifarb=8 G_W
%W_N      1r    g    b     2r    g    b     3r    g    b
/colors1 [{0.00 1.00 0.00} {0.50 1.00 0.50} {1.00 1.00 1.00}
          {0.00 0.00 0.00} {0.00 0.00 0.00}] def %G00w,08w,16w 3 steps
/colors2 [{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 5 steps
/colors3 [{0.00 1.00 0.00} {0.07 1.00 0.07} {0.13 1.00 0.13}
          {0.19 1.00 0.19} {0.25 1.00 0.25}] def %G00w,01w,02w,03w,04w 5 steps
           } if %ifarb=8 G_W

ifarb 9 eq {%ifarb=9 B_W
%W_N      1r    g    b     2r    g    b     3r    g    b
/colors1 [{0.00 0.00 1.00} {0.50 0.50 1.00} {1.00 1.00 1.00}
          {0.00 0.00 0.00} {0.00 0.00 0.00}] def %B00w,08w,16w 3 steps
/colors2 [{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 5 steps
/colors3 [{0.00 0.00 1.00} {0.07 0.07 1.00} {0.13 0.13 1.00}
          {0.19 0.19 1.00} {0.25 0.25 1.00}] def %B00w,01w,02w,03w,04w 5 steps
           } if %ifarb=9 B_W

20 setlinewidth
/s 1000 def /iy0 0 def
 0 1 02 {/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
        /j 1 def /ix0 j 0 add 1400 mul def
        tfw
        ix0 iy0 s s rec stroke
                     } if %xchart=0
                      } if %0,6

/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

        xchart 0 eq {%xchart=0
        ifarb 0 eq
        ifarb 6 eq or {%ifarb=0,6
        /j 2 def /ix0 j 5.2 add 1400 mul def
        tfw
        ix0 iy0 s s rec stroke
                    } if %xchart=0
                      } if %0,6

/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

/s 1400 def /iy0 1500 def
 0 1 02 {/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
         /j 1 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 %0,6

 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

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

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

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

%5 steps
/iy0 2450 def
0 1 02 {/j exch def /ix0 j 5.2 add 1400 mul 100 add def
        ix0 iy0 200 sub moveto
        ntu5 j get show
       } for %j

2 1 04 {/j exch def /ix0 j 5.2 add 1400 mul 100 add def
        ix0 iy0 550 sub moveto
        ntu5a j get show
       } for %j

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

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

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

2 1 04 {/j exch def /ix0 j 10.4 add 1400 mul 100 add def
        ix0 iy0 550 sub moveto
        ntu5a j get show
       } for %j

            } if %xchart=1
       
x1t neg y1t neg translate

x0t neg y0t neg translate

grestore
showpage

%%Trailer