summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-bar
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-09 01:01:02 +0000
committerKarl Berry <karl@freefriends.org>2006-01-09 01:01:02 +0000
commit4a6fbdc0e89fde6f9efcaa24de3db8e137da4404 (patch)
treeefe2b5d7e2f07d6ce478982a9b1e5f43d41cb56c /Master/texmf-dist/dvips/pst-bar
parent524dc4b7a5d60a1c703450ac6fd3749ffe81afa3 (diff)
trunk/Master/texmf-dist/dvips
git-svn-id: svn://tug.org/texlive/trunk@88 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-bar')
-rw-r--r--Master/texmf-dist/dvips/pst-bar/pst-bar.pro30
1 files changed, 30 insertions, 0 deletions
diff --git a/Master/texmf-dist/dvips/pst-bar/pst-bar.pro b/Master/texmf-dist/dvips/pst-bar/pst-bar.pro
new file mode 100644
index 00000000000..608a8c42616
--- /dev/null
+++ b/Master/texmf-dist/dvips/pst-bar/pst-bar.pro
@@ -0,0 +1,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