summaryrefslogtreecommitdiff
path: root/graphics/pstricks/contrib/pst-bar/pst-bar.pro
blob: 608a8c4261632bf4ebe51b931cca636b6d6b4c60 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
%!
% 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