%!PS-Adobe-3.0 EPSF-3.0 WG991-7
%%BoundingBox: 70 83 392 335

%START PDFDE011.EPS
/pdfmark17 where {pop} {userdict /pdfmark17 /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://130.149.60.45/~farbmetrik/WG99/)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://farbe.li.tu-berlin.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@me.com)
  /CreationDate (D:2015060112000)
  /ModDate (D:2015060112000)
/DOCINFO pdfmark17
[ /View [ /FitB ]
/DOCVIEW pdfmark17
%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

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

/TS {190 /Times-ISOL1 FS} bind def
/TK {240 /Times-ISOL1 FS} bind def
/TM {290 /Times-ISOL1 FS} bind def
/TG {340 /Times-ISOL1 FS} bind def

/TIS {190 /TimesI-ISOL1 FS} bind def
/TIK {240 /TimesI-ISOL1 FS} bind def
/TIM {290 /TimesI-ISOL1 FS} bind def
/TIG {340 /TimesI-ISOL1 FS} bind def

/TBS {190 /TimesB-ISOL1 FS} bind def
/TBK {240 /TimesB-ISOL1 FS} bind def
/TBM {290 /TimesB-ISOL1 FS} bind def
/TBG {340 /TimesB-ISOL1 FS} bind def

/TBIS {190 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIM {290 /TimesBI-ISOL1 FS} bind def
/TBIG {340 /TimesBI-ISOL1 FS} bind def

/SS {190 1 sub /Symbol FS} bind def
/SK {240 1 sub /Symbol FS} bind def
/SM {290 1 sub /Symbol FS} bind def
/SG {340 1 sub /Symbol FS} 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

/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 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

%%EndProlog
gsave

/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
/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
/showea {1 lanind le {show} {pop} ifelse} bind def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 0 def /lanind2 0 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 1 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

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

gsave
/xchart xchart1 def

5 /Times-ISOL1 FS
340 85 moveto
(WG991-7) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate

/yhoe 8500 def
0.01 MM dup scale

15 setlinewidth
0.0 0.0 1.0 0.0 setcmyk_olvcolor
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor
 0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke
 
 0 yhoe 550 sub  moveto 11200 0 rlineto stroke
 
/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 {250 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/es {250 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
%/ipoint {350 /Times-ISOL1 FS 50 50 rmoveto show 50 -50 rmoveto} bind def
%/ip {(.) ipoint} bind def
/ip {(\267) ns} bind def

%20% kleiner
/ns2 {280 /Times-ISOL1 FS  show TG} bind def
/ks2 {280 /TimesI-ISOL1 FS  show TG} bind def
/bs2 {280 /TimesB-ISOL1 FS  show TG} bind def
/js2 {280 /TimesBI-ISOL1 FS  show TG} bind def
/is2 {200 /Times-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto TG} bind def
/iks2 {200 /TimesI-ISOL1 FS 10 -40 rmoveto show -10 40 rmoveto TG} bind def
/es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TG} bind def
/ip2 {(\267) ns2} bind def

%40% kleiner
/ns4 {230 /Times-ISOL1 FS  show TG} bind def
/ks4 {230 /TimesI-ISOL1 FS  show TG} bind def
/bs4 {230 /TimesB-ISOL1 FS  show TG} bind def
/js4 {230 /TimesBI-ISOL1 FS  show TG} bind def
/is4 {160 /Times-ISOL1 FS 8 -48 rmoveto show -8 48 rmoveto TG} bind def
/iks4 {160 /TimesI-ISOL1 FS 8 -48 rmoveto show -8 48 rmoveto TG} bind def
/es4 {200 /Times-ISOL1 FS 0 190 rmoveto show 0 -190 rmoveto TG} bind def
/ip4 {(\267) ns4} bind def

/ydel 300 def

%Titeltext
 100 8100 moveto TBG
(Relative & skalierte visuelle Differenz; ) showde                  %08560-3 1
(Relative and scaled visual differences; ) showea                   %18560-3 1
(2, 3 & 5 Stufen; BAM\255Bericht 115) showde                        %08560-3 11
(2, 3 & 5 steps; BAM\255report 115) showea                    %18560-3 11

/ix1  0100 def
/ix2  2500 def
/ix3  5000 def
/ix4  8100 def

ix1 7650 moveto TG
(relative visuelle) showde
(relative visual) showea
ix1 7300 moveto
(Skala ) showde
(scale ) showea
SG (D) show TIG (V) show
ix1 6950 moveto
(Bereich 0 bis 1) showde
(range 0 to 1) showea

ix1 100 moveto TG
(2 Experimente von 5 Beobachtern) showde
(2 experiments of 5 observers) showea

ix2 7650 moveto TG
(visueller Gr\366\337en\255) showde
(visual magnitude) showea
ix2 7300 moveto
(Vergleich ) showde
(ratio ) showea 
TIG (S) show (j) is2 TG ( : 10) show
ix2 6950 moveto
TIG
(Vergleich mit 10) showde
(compared to 10) showea

/ix31 ix3 100 add def
ix31 7650 moveto TG
(Relative visuelle) showde
(relative visual) showea
ix31 7300 moveto
(Skala ) showde
(scale ) showea
SG (D) show TIG (X) show (i) is2 TG ( (i=0 to 4)) show
ix31 6950 moveto
TIG
(Bereich 0 bis 1) showde
(range 0 to 1) showea

ix3 100 moveto TG
(Farbschieber\255Justierung) showde
(slider sample adjust) showea

/ix40 ix4 050 add def
/ix41 ix4 300 add def

ix40 7650 moveto TG
(skalierte visuelle) showde
(scaled visual) showea
ix40 7300 moveto
(Daten ) showde
(data ) showea
SG (D) show TIG (V*) show (i) is2 TG
( (i=0 bis 4)) showde
( (i=0 to 4)) showea
ix40 250 sub 6950 moveto
SG (D) show TIG (V*) show (i) is2 TG (=) show
SG (D) show TIG (V) show (i) is2 ip2
SG (D) show TIG (X) show (i) is2
TG ( \050) show
TIG (S) show (j) is2 TG (+) show TIG (S) show (j+1) is2 TG (\051) show

ix41 100 moveto TG
(skalierte Daten) showde
(final scaled data) showea


/col3 [
0.00 0.00 0.00 1.00 %N
0.00 0.00 0.00 0.50 %Z
0.00 0.00 0.00 0.00 %W

1.00 0.00 1.00 0.00 %G
0.00 0.00 0.00 0.50 %Z
0.00 1.00 1.00 0.00 %R

1.00 1.00 0.00 0.00 %B
0.00 0.00 0.00 0.50 %Z
0.00 0.00 1.00 0.00 %Y
      ] def

/col6 [
0.00 0.00 0.00 1.00 %N
0.00 0.00 0.00 0.50 %Z
1.00 0.00 0.00 0.00 %C

0.00 0.00 0.00 0.00 %W
0.00 0.00 0.00 0.50 %Z
1.00 0.00 0.00 0.00 %C

1.00 0.00 1.00 0.00 %G
0.00 0.00 0.00 0.50 %Z
1.00 0.00 0.00 0.00 %C

0.00 1.00 1.00 0.00 %R
0.00 0.00 0.00 0.50 %Z
1.00 0.00 0.00 0.00 %C

1.00 1.00 0.00 0.00 %B
0.00 0.00 0.00 0.50 %Z
1.00 0.00 0.00 0.00 %C

0.00 0.00 1.00 0.00 %Y
0.00 0.00 0.00 0.50 %Z
1.00 0.00 0.00 0.00 %C
      ] def

/col62 [
%NZW
0.00 0.00 0.00 1.00 %N
0.00 0.00 0.00 0.90 %
0.00 0.00 0.00 0.80 %
0.00 0.00 0.00 0.70 %
0.00 0.00 0.00 0.60 %
0.00 0.00 0.00 0.50 %Z

0.00 0.00 0.00 0.50 %Z
0.00 0.00 0.00 0.40 %
0.00 0.00 0.00 0.30 %
0.00 0.00 0.00 0.20 %
0.00 0.00 0.00 0.10 %
0.00 0.00 0.00 0.00 %W


%GZR
1.00 0.00 1.00 0.00 %G
0.80 0.00 0.80 0.10 %
0.60 0.00 0.60 0.20 %
0.40 0.00 0.40 0.30 %
0.20 0.00 0.20 0.40 %
0.00 0.00 0.00 0.50 %Z

0.00 0.00 0.00 0.50 %Z
0.00 0.20 0.20 0.40 %
0.00 0.40 0.40 0.30 %
0.00 0.60 0.60 0.20 %
0.00 0.80 0.80 0.10 %
0.00 1.00 1.00 0.00 %R

%BZY
1.00 1.00 0.00 0.00 %B
0.80 0.80 0.00 0.10 %
0.60 0.60 0.00 0.20 %
0.40 0.40 0.00 0.30 %
0.20 0.20 0.00 0.40 %
0.00 0.00 0.00 0.50 %Z

0.00 0.00 0.00 0.50 %Z
0.00 0.00 0.20 0.40 %
0.00 0.00 0.40 0.30 %
0.00 0.00 0.60 0.20 %
0.00 0.00 0.80 0.10 %
0.00 0.00 1.00 0.00 %Y
      ] def

/txt30 [(0) (0,30) (1)] def %WDS
/txt31 [(0) (0,60) (1)] def %GDV
/txt32 [(0) (0,40) (1)] def %BDY

/txx30V (0,30 0,70) def
/txx31V (0,60 0,40) def
/txx32V (0,40 0,60) def

/txm00 [(  5,0 :)  (  10) ()] def %WZ
/txm01 [(16,7 :) (  10) ()] def %ZN

/txm10 [(14,3 :) (  10) ()] def %GZ
/txm11 [(11,3 :) (  10) ()] def %ZV

/txm20 [(  4,2 :) (  10) ()] def %BZ
/txm21 [(10,2 :) (  10) ()] def %ZY


/txx00 [(0) (a) (1)] def
/txx01 [(S) (0) (10)] def
/txx02 [(0) (0,2) (0,4) (0,6) (0,8) (1)] def

/txr00 [(0,23=5,0/21,7)
        (0,56=14,3/25,6)
        (0,29=4,2/14,4)] def

/ix0 0100 def
/iy0 0500 def
/s 700 def

ix0 iy0 8100 s 9 mul 0.0 0.0 0.0 0.4 colrecfi %grey surround

/s 500 def
/iy0 5900 def
/ix0 0300 def
/ix1 0050 def
/ixl 0300 def
 0 1 2 {/n exch def
 0 1 2 {/j exch def
        TBK
        /j4 j 4 mul n 12 mul add def
        n 0 eq {1 1 1 setrgbcolor 
                ix0 j 0.3 add s mul add
                iy0 680 add moveto
                txx00 j get show j 1 eq {(j) is2 TBK} if
                tfn
               } if
        ix0 j s mul add iy0 n 2000 mul sub s s
        col3 j4 0 add get
        col3 j4 1 add get
        col3 j4 2 add get
        col3 j4 3 add get 
        colrecfi
        tfn
        ix0 j s mul add
        iy0 n 2000 mul sub 300 sub moveto
        n 0 eq {txt30 j get show} if
        n 1 eq {txt31 j get show} if
        n 2 eq {txt32 j get show} if
        j 0 eq {
                ix0 j 0.5 add s mul add 100 add
                iy0 n 2000 mul sub 600 sub moveto
                n 0 eq {txx30V show} if
                n 1 eq {txx31V show} if
                n 2 eq {txx32V show} if
               } if
        j 0 eq {tfw
                ix0 j 0.4 add s mul sub 020 add
                iy0 n 2000 mul sub 600 sub moveto
                SK (D) show TK (V) show (i) is2 tfn
               } if
       } for %j
        TK
        ix0 0.6 s mul add
        iy0 n 2000 mul sub 0900 sub moveto
        txr00 n get show
        ix0 0.6 s mul add
        iy0 n 2000 mul sub 1200 sub moveto
        ((Paarvergleich)) showde
        ((pair comparison)) showea
       } for %n

/s 500 def
/iy0 5900 def
/ix0 ix2 def
%/ix1 0050 def
/ixl 0300 def
 0 1 5 {/n exch def
 0 1 2 {/j exch def
        TBK
        /j4 j 4 mul n 12 mul add def
        n 0 eq {1 1 1 setrgbcolor 
                ix0 j 0.3 add s mul add
                iy0 650 add moveto
                txx01 j get show j 0 eq {(j) is2 TBK} if
                tfn
               } if
        ix0 j s mul add iy0 n 1000 mul sub s s
        col6 j4 0 add get
        col6 j4 1 add get
        col6 j4 2 add get
        col6 j4 3 add get
        colrecfi
        tfn
        ix0 j s mul add 300 add
        iy0 n 1000 mul sub 300 sub moveto
        n 0 eq {txm00 j get show} if
        n 1 eq {txm01 j get show} if
        n 2 eq {txm10 j get show} if
        n 3 eq {txm11 j get show} if
        n 4 eq {txm20 j get show} if
        n 5 eq {txm21 j get show} if
       } for %j
       } for %n

/s 500 def
/iy0 5900 def
/ix0 ix3 def
%/ix1 0050 def
/ixl 0300 def
/txt02 (0,2) def
 0 1 5 {/n exch def
 0 1 5 {/j exch def
        TBK
        /j4 j 4 mul n 24 mul add def
        n 0 eq {1 1 1 setrgbcolor 
                ix0 j 0.3 add s mul add
                iy0 650 add moveto
                txx02 j get show
                tfn
               } if
        ix0 j s mul add iy0 n 1000 mul sub s s
        col62 j4 0 add get
        col62 j4 1 add get
        col62 j4 2 add get
        col62 j4 3 add get
        colrecfi
        j 4 le {tfn
                ix0 j 0.5 add s mul add 100 add 
                iy0 n 1000 mul sub 300 sub moveto
                txt02 show
               } if
        j 0 eq {tfw
                ix0 j 0.5 add s mul sub
                iy0 n 1000 mul sub 300 sub moveto
                SK (D) show TIK (X) show (i) is2 tfn
               } if
       } for %j
       } for %n


/SV* [21.7 21.7 25.6 25.6 14.4 14.4] def
/DVi [0.30 0.70 0.60 0.40 0.40 0.60] def
/s 500 def
/iy0 5900 def
/ix0 ix4 def
%/ix1 0050 def
/ixl 0300 def
/txt02 (0,2) def
 0 1 5 {/n exch def
 0 1 5 {/j exch def
        TBK
        /j4 j 4 mul n 24 mul add def
        j 4 le {tfn
                n 0 eq {tfn
                        ix0 j 0.6 add s mul add
                        iy0 650 add moveto
                        SK (D) show TBIK (V*) show
                        TS -100 -100 rmoveto j cvishow
                        0 100 rmoveto TBK
                        tfn
                       } if
                ix0 j 0.5 add s mul add 100 add 
                iy0 n 1000 mul sub 300 sub moveto
                0.2 DVi n get mul SV* n get mul cvsshow2
               } if
       } for %j
       } for %n

showpage
grestore

%%Trailer