diff options
| author | Karl Berry <karl@freefriends.org> | 2012-09-14 22:15:11 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2012-09-14 22:15:11 +0000 |
| commit | 655440ffbc259c110c3f77959344260e641a5fb0 (patch) | |
| tree | cadbec13ee02de5cfbbf1a31e7835b21f9f7552f /Master/texmf-dist/dvips | |
| parent | a4799313350c8a85179bc99161cc49c0af3e1558 (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.pro | 26 |
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 |