%!PS-Adobe-3.0 EPSF-3.0 ZE660-3N 20161001
%%BoundingBox: 70 83 770 206

%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: http://farbe.li.tu-berlin.de/ZE66/ZE66.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2016100112000)
  /ModDate (D:20161001112000)
/DOCINFO pdfmark01
[ /View [ /FitB ]
/DOCVIEW pdfmark01
%END  PDFDE011
 
%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} bind def

% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I

/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 findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/Courier-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

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/RS {200 /Times-Roman FS} bind def
/RK {250 /Times-Roman FS} bind def
/RM {300 /Times-Roman FS} bind def
/RG {350 /Times-Roman FS} bind def

/RIS {200 /Times-Italic FS} bind def
/RIK {250 /Times-Italic FS} bind def
/RIM {300 /Times-Italic FS} bind def
/RIG {350 /Times-Italic FS} bind def

/RBS {200 /Times-Bold FS} bind def
/RBK {250 /Times-Bold FS} bind def
/RBM {300 /Times-Bold FS} bind def
/RBG {350 /Times-Bold FS} bind def

/TS_mde {RS (-) showde TS} bind def
/TK_mde {RK (-) showde TK} bind def
/TM_mde {RM (-) showde TM} bind def
/TG_mde {RG (-) showde TG} bind def

/TIS_mde {RIS (-) showde TIS} bind def
/TIK_mde {RIK (-) showde TIK} bind def
/TIM_mde {RIM (-) showde TIM} bind def
/TIG_mde {RIG (-) showde TIG} bind def

/TBS_mde {RBS (-) showde TBS} bind def
/TBK_mde {RBK (-) showde TBK} bind def
/TBM_mde {RBM (-) showde TBM} bind def
/TBG_mde {RBG (-) showde TBG} bind def

/TBIS_mde {RBIS (-) showde TBIS} bind def
/TBIK_mde {RBIK (-) showde TBIK} bind def
/TBIM_mde {RBIM (-) showde TBIM} bind def
/TBIG_mde {RBIG (-) showde TBIG} bind def

/TS_men {RS (-) showen TS} bind def
/TK_men {RK (-) showen TK} bind def
/TM_men {RM (-) showen TM} bind def
/TG_men {RG (-) showen TG} bind def

/TIS_men {RIS (-) showen TIS} bind def
/TIK_men {RIK (-) showen TIK} bind def
/TIM_men {RIM (-) showen TIM} bind def
/TIG_men {RIG (-) showen TIG} bind def

/TBS_men {RBS (-) showen TBS} bind def
/TBK_men {RBK (-) showen TBK} bind def
/TBM_men {RBM (-) showen TBM} bind def
/TBG_men {RBG (-) showen TBG} bind def

/TBIS_men {RBIS (-) showen TBIS} bind def
/TBIK_men {RBIK (-) showen TBIK} bind def
/TBIM_men {RBIM (-) showen TBIM} bind def
/TBIG_men {RBIG (-) showen TBIG} bind def

/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIS {200 /TimesI-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

/TBS {200 /TimesB-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

/TBIS {200 /TimesBI-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

/SS {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {290 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/CSS {115 /Courier-ISOL1 FS} bind def
/CSK {140 /Courier-ISOL1 FS} bind def
/CS {200 /Courier-ISOL1 FS} bind def
/CK {250 /Courier-ISOL1 FS} bind def
/CM {300 /Courier-ISOL1 FS} bind def
/CG {350 /Courier-ISOL1 FS} bind def

/CBSS {115 /CourierB-ISOL1 FS} bind def
/CBSK {140 /CourierB-ISOL1 FS} bind def
/CBS {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

/ns {350 /Times-ISOL1 FS  show} bind def
/ks {350 /TimesI-ISOL1 FS  show} bind def
/bs {350 /TimesB-ISOL1 FS  show} bind def
/js {350 /TimesBI-ISOL1 FS  show} bind def
/ss {350 /Symbol FS  show} bind def
/is {300 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/es {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
/ib {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/eb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
/ip {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def

%20% kleiner
/ns2 {300 /Times-ISOL1 FS  show TM} bind def
/ks2 {300 /TimesI-ISOL1 FS  show TM} bind def
/bs2 {300 /TimesB-ISOL1 FS  show TM} bind def
/js2 {300 /TimesBI-ISOL1 FS  show TM} bind def
/ss2 {300 /Symbol FS  show TM} bind def
/is2 {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def
/es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ib2 {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def
/eb2 {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ip2 {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def

%40% kleiner
/ns4 {250 /Times-ISOL1 FS  show TK} bind def
/ks4 {250 /TimesI-ISOL1 FS  show TK} bind def
/bs4 {250 /TimesB-ISOL1 FS  show TK} bind def
/js4 {250 /TimesBI-ISOL1 FS  show TK} bind def
/ss4 {250 /Symbol FS  show TK} bind def
/is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def

%XCHA01.PS BEG
/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

/colrecfi %x y width heigth c m y k
  {setcmyk_olvcolor rec fill} bind def

/colrecst %x y width heigth c m y k
  {setcmyk_olvcolor rec stroke} bind def

/colrecfirgb %x y width heigth r g b
  {setrgbcolor rec fill} bind def

/colrecstrgb %x y width heigth r g b
  {setrgbcolor rec stroke} bind def

/rem %x, y width heigth
  {/heigth exch 0.5 mul def /width exch 0.5 mul def
   /yleftb exch heigth 0.5 mul add def
   /xleftb exch width  0.5 mul add def
   xleftb yleftb
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colremfi %x y width heigth c m y k
  {setcmykcolor rem fill} bind def

/colremst %x y width heigth c m y k
  {setcmykcolor rem stroke} bind def

/tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzg {1.0 0.0 1.0 0.0} bind def
/tzb {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def

/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def

/tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def

/tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def
/tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfyz {0.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def

/tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe
/tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def
/tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def
/tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def
/tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def

/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def
/cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def

%%EndProlog
gsave
%lanindL2 START  20150505
/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showes {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
/showea {1 lanind le {show} {pop} ifelse} bind def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 1 def /lanind2 1 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 0 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output

7 /Times-Roman FS
/cvishow {cvi 6 string cvs show} def
75 84 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow

gsave
%lanindL2 END

7 /Times-Roman FS
180 84 moveto
(ZE660-1, ) show
%xchart 0 eq {(N) show}
%            {deintp colorm 2 mul add cvishow} ifelse

xchart 0 eq {%begin if only xchart=0

7 /Times-ISOL1 FS
(3 und 5 gleichabst\344ndige ) showde
(3 and 5 equidistant ) showen
(3 and 5 equidistant ) showfr
(3 and 5 equidistant ) showes
(3 and 5 equidistant ) showit
(3 and 5 equidistant ) showjp

7 /Times-ISOL1 FS
(Farbstufen) showde
(color steps) showen
(color steps) showfr
(color steps) showes
(color steps) showit
(color steps) showjp

7 /Times-ISOL1 FS
(; Benutzung des PS) showde
7 /Times-Roman FS (-) showde 7 /Times-ISOL1 FS
(Operators) showde
(; use of the PS operator) showen
(; use of the PS operator) showfr
(; use of the PS operator) showes
(; use of the PS operator) showit
(; use of the PS operator) showjp

7 /TimesI-ISOL1 FS
( rgb setrgbcolor) show
7 /Times-ISOL1 FS

72 90 translate

0.01 MM 0.01 MM scale

15 setlinewidth

0.5 0.5 0.5 setrgbcolor
0 0  moveto 24500 0 rlineto 0 4000 rlineto
           -24500 0 rlineto closepath fill

0.0 0.0 0.0 setrgbcolor
0 0  moveto 24500 0 rlineto 0 4000 rlineto
           -24500 0 rlineto closepath stroke

%%%%%%%%%%%   oberer Schriftzug %%%%%%%%%%%%%%%%
tfw

  100 1750 moveto TBIG 
  (Farbe) showde
  (Color) showen
  (Color) showfr
  (Color) showes
  (Color) showit
  (Color) showjp

  100  300 moveto TBIG 
  (Anteil) showde
  (Amount) showen
  (Amount) showfr
  (Amount) showes
  (Amount) showit
  (Amount) showjp
  
  
1900 600 translate
%untere Reihe um +200, +200 verschoben bei dx=1000 von 1400
tfn
     
/ntu [(0,000) (0,250) (0,500) (0,750) (1,000) ()
      (0,000) (0,250) (0,500) (0,750) (1,000) ()
      (0,000) (0,250) (0,500) (0,750) (1,000)] def

/n* [(W) (Wo) (OW) (Ow) (O) ()
     (W) (Wy) (YW) (Yw) (Y) ()
     (W) (Wl) (LW) (Lw) (L) ()
     (0.00) (0.25) (0.50) (0.75) (1.00)] def

TBM 1 1 1 setrgbcolor
/iy0 0 def
0 1 05 {/j exch def /ix0 j 1400 mul def
          ix0 100 add  iy0 300 sub moveto
          ntu j get show
       } for %j

6 1 11 {/j exch def /ix0 j 1400 mul def
          ix0 600 sub  iy0 300 sub moveto
          ntu j get show
       } for %j

12 1 16 {/j exch def /ix0 j 1400 mul def
          ix0 1300 sub  iy0 300 sub moveto
          ntu j get show
       } for %j

TBG 0 0 0 setrgbcolor
/iy0 0 def
0 1 05 {/j exch def /ix0 400 j 1400 mul add def
          ix0 200 sub iy0 1150 add moveto
          n* j get show
        } for %j

6 1 11 {/j exch def /ix0 400 j 1400 mul add def
          ix0 900 sub iy0 1150 add moveto
          n* j get show
        } for %j

12 1 16 {/j exch def /ix0 400 j 1400 mul add def
          ix0 1600 sub iy0 1150 add moveto
          n* j get show
        } for %j

/colora 45 array def

/colora %W-N 5 steps (rgb)
%W-O 5 steps (r0b)
[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
%W-Y 5 steps (rg0)
 1.00 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
%W-L 5 steps (0g0)
 1.00 1.00 1.00 0.75 1.00 0.75 0.50 1.00 0.50
 0.25 1.00 0.25 0.00 1.00 0.00
] def

/s1 1000 def  /iy1 0 def
/s2 1400 def  /iy2 1500 def
0 1 2 {/ncol exch def

       /ix1 ncol 7700 mul def
       /ix2 ix1   200 sub def

       0 1 4 {/j exch def 
              /ja 15 ncol mul j 3 mul add def
              ix1 j 1400 mul add iy1 s1 s1       
              colora 0 ja add get
              colora 1 ja add get
              colora 2 ja add get
              colrecfirgb              

              ix2 j 1400 mul add iy2 s2 s2
              colora 0 ja add get
              colora 1 ja add get
              colora 2 ja add get
              colrecfirgb
             } for
        } for

-1900 -600 translate

} if %end if only xchart=0

xchart 1 ge {%if only output for xchart=1

7 /Times-ISOL1 FS
(Bewertungsbogen: 3 und 5 gleichabst\344ndige Farbstufen) showde
(evaluation sheet: 3 and 5 equidistant color steps) showen
(evaluation sheet: 3 and 5 equidistant color steps) showfr
(evaluation sheet: 3 and 5 equidistant color steps) showes
(evaluation sheet: 3 and 5 equidistant color steps) showit
(evaluation sheet: 3 and 5 equidistant color steps) showjp

72 90 translate

0.01 MM 0.01 MM scale

15 setlinewidth

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

%%%%%%%%%%%   oberer Schriftzug %%%%%%%%%%%%%%%%
newpath
  100 1750 moveto TBIG 
  (Farbe) showde
  (Color) showen
  (Color) showes
  (Color) showfr
  (Color) showit
  (Color) showjp

  3900 1750 moveto TBIG 
  (Wei\337 - Orangerot) showde
  (White - Orangered) showen
  (White - Orangered) showes
  (White - Orangered) showfr
  (White - Orangered) showit
  (White - Orangered) showjp
  
  11600 1750 moveto TBIG 
  (Wei\337 - Gelb) showde
  (White - Yellow) showen
  (White - Yellow) showes
  (White - Yellow) showfr
  (White - Yellow) showit
  (White - Yellow) showjp
  
  19300 1750 moveto TBIG 
  (Wei\337 - Laubgr\374n) showde
  (White - Leafgreen) showen
  (White - Leafgreen) showes
  (White - Leafgreen) showfr
  (White - Leafgreen) showit
  (White - Leafgreen) showjp
  

  100 2700 moveto TBIG 
  (Anteil) showde 
  (Amount) showen 
  (Amount) showes 
  (Amount) showfr 
  (Amount) showit 
  (Amount) showjp 
  
  100 1050 moveto TBIG 
  (Anteil) showde 
  (Amount) showen 
  (Amount) showes 
  (Amount) showfr 
  (Amount) showit 
  (Amount) showjp 
  
1900 600 translate
%untere Reihe um +200, +200 verschoben bei dx=1000 von 1400
tfn
     
/ntu [(0,00) (0, . .) (0, . .) (0, . .) (1,00) () (0,00) (0, . .)
      (0, . .) (0, . .) (1,00) () (0,00) (0, . .) (0, . .) (0, . .) (1,00)
      (0,000) (0,250) (0,500) (0,750) (1,000)] def

/s 1000 def /iy0 0 def
 0 1 4 {/j exch def
         /ix0 j 1400 mul def
         ix0 iy0 s s 
         1 1 1
         colrecfirgb 
        ix0 iy0 s s 0.0 0.0 0.0 colrecstrgb
        } for %j

 6 1 10 {/j exch def
         /ix0 j 1400 mul 700 sub def
         ix0 iy0 s s 
         1 1 1
         colrecfirgb 
        ix0 iy0 s s 0.0 0.0 0.0 colrecstrgb
        } for %j

12 1 16 {/j exch def
         /ix0 j 1400 mul 1400 sub def
         ix0 iy0 s s
         1 1 1
         colrecfirgb
        ix0 iy0 s s 0.0 0.0 0.0 colrecstrgb
        } for %j

/s 1400 def /iy0 1500 def

 0 1 4 {/j exch def
         /ix0 j 1400 mul 200 sub def
         ix0 iy0 s s 
         1 1 1
         colrecfirgb 
         ix0 iy0 s s 0.0 0.0 0.0 colrecstrgb
         } for %j

 6 1 10 {/j exch def
         /ix0 j 1400 mul 900 sub def
         ix0 iy0 s s 
         1 1 1
         colrecfirgb 
         ix0 iy0 s s 0.0 0.0 0.0 colrecstrgb
         } for %j

12 1 16 {/j exch def
         /ix0 j 1400 mul 1600 sub def
         ix0 iy0 s s
         1 1 1
         colrecfirgb
         ix0 iy0 s s 0.0 0.0 0.0 colrecstrgb
         } for %j

TBG
0 0 0 setrgbcolor
/iy0 2350 def
0 1 04 {/j exch def /ix0 j 1400 mul 100 add def
          ix0 iy0 300 sub moveto
          ntu j get show
       } for %j
6 1 10 {/j exch def /ix0 j 1400 mul 100 add def
          ix0 700 sub iy0 300 sub moveto
          ntu j get show
       } for %j
12 1 16 {/j exch def /ix0 j 1400 mul 100 add def
          ix0 1400 sub iy0 300 sub moveto
          ntu j get show
       } for %j

/iy0 650 def
0 1 04 {/j exch def /ix0 j 1400 mul 100 add def
          ix0 iy0 300 sub moveto
          ntu j get show
       } for %j
6 1 10 {/j exch def /ix0 j 1400 mul 100 add def
          ix0 700 sub iy0 300 sub moveto
          ntu j get show
       } for %j
12 1 16 {/j exch def /ix0 j 1400 mul 100 add def
          ix0 1400 sub iy0 300 sub moveto
          ntu j get show
       } for %j

-1900 -600 translate

} if %end if only xchart=1

grestore
showpage

%%Trailer