summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-09-14 22:15:11 +0000
committerKarl Berry <karl@freefriends.org>2012-09-14 22:15:11 +0000
commit655440ffbc259c110c3f77959344260e641a5fb0 (patch)
treecadbec13ee02de5cfbbf1a31e7835b21f9f7552f /Master/texmf-dist/dvips
parenta4799313350c8a85179bc99161cc49c0af3e1558 (diff)
pst-ode (14sep12)
git-svn-id: svn://tug.org/texlive/trunk@27669 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r--Master/texmf-dist/dvips/pst-ode/pst-ode.pro26
1 files changed, 11 insertions, 15 deletions
diff --git a/Master/texmf-dist/dvips/pst-ode/pst-ode.pro b/Master/texmf-dist/dvips/pst-ode/pst-ode.pro
index 22b347cd546..cc9f66cb427 100644
--- a/Master/texmf-dist/dvips/pst-ode/pst-ode.pro
+++ b/Master/texmf-dist/dvips/pst-ode/pst-ode.pro
@@ -1,7 +1,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% PostScript prologue for pst-ode.tex.
-% Version 0.1, 2012/07/20
+% Version 0.2, 2012/09/14
%
% Alexander Grahn (C) 2012
%
@@ -113,24 +113,20 @@ tx@odeDict begin
} ifelse
}ifelse
} bind def
-/writeresult { %assembles state vector for output into file + writes it
- outvect {
- dup (t) eq {
- pop tcur 20 string cvs statefile exch writestring
- }{
- ode@laststate exch get 20 string cvs statefile exch writestring
- } ifelse
- statefile ( ) writestring
+/writeresult { %write output vector to file
+ {
+ 20 string cvs statefile exch writestring
+ statefile ( ) writestring
} forall
statefile (\n) writestring
} bind def
/assembleresult { %assembles state vector for building table of results
- outvect {
- dup (t) eq {
- pop tcur
- }{
- ode@laststate exch get
- } ifelse
+ {
+ dup (t) eq {
+ pop tcur
+ }{
+ ode@laststate exch get
+ } ifelse
} forall
} bind def
end