diff options
| author | Karl Berry <karl@freefriends.org> | 2006-01-09 01:01:02 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2006-01-09 01:01:02 +0000 |
| commit | 4a6fbdc0e89fde6f9efcaa24de3db8e137da4404 (patch) | |
| tree | efe2b5d7e2f07d6ce478982a9b1e5f43d41cb56c /Master/texmf-dist/dvips/pst-bar | |
| parent | 524dc4b7a5d60a1c703450ac6fd3749ffe81afa3 (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.pro | 30 |
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 |