diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pst-ode/pst-ode.pro')
-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 |