%!
% PostScript prologue for pst-bar.tex.
% Version 0.2, 2004/08/22
% For distribution, see pstricks.tex.
%
/tx@BarDict 5 dict def tx@BarDict begin
%
% transpose -- Matrix transpose
%
/transpose {
 /X exch def
 /row X length def
 /col X 0 get length def
 [
   /i 0 def
   col {
     [
       /j 0 def
       row {
         X j get i get
         /j j 1 add def
       } repeat
       /i i 1 add def
     ]
   } repeat
 ]
} def
%
end
% END pst-bar.pro

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.