%!

/emptystr { (      ) } def
/graph {
       /labels exch def % show labels ? (boolean)
       /divs exch def  % divsion spacing
       /height exch def
       /width exch def

       .25 setlinewidth
       2 setlinecap
       gsave
%       currentlinewidth currentdash
%       initgraphics
%       setdash setlinewidth

       width divs div cvi
       /index divs def
       divs 0 translate

           { newpath
               0 0 moveto
               labels {
                       gsave
                       90 rotate 20 0 moveto
                       index emptystr cvs show
                       grestore
               } if
               0 height lineto
             stroke
             divs 0 translate
             /index index divs add def

           } repeat

       grestore
       gsave
%       currentlinewidth currentdash
%       initgraphics
%       setdash setlinewidth

       height divs div cvi
       /index divs def
       0 divs translate

           { newpath
               0 0 moveto
               labels {
                       gsave
                       20 0 moveto
                       index emptystr cvs show
                       grestore
               } if
               width 0 lineto
             stroke
             0 divs translate
             /index index divs add def

           } repeat

       grestore

} def

save

/Helvetica findfont 10 scalefont setfont
/inch {72 mul} def

1 setlinewidth
8.5 inch 11 inch 100 true graph
[3] 0 setdash
25 setlinewidth
8.5 inch 11 inch 20 false graph

restore

showpage

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.