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
|
