From 655440ffbc259c110c3f77959344260e641a5fb0 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 14 Sep 2012 22:15:11 +0000 Subject: pst-ode (14sep12) git-svn-id: svn://tug.org/texlive/trunk@27669 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pst-ode/pst-ode.pro | 26 +++++++++++--------------- 1 file changed, 11 insertions(+), 15 deletions(-) (limited to 'Master/texmf-dist/dvips') 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 -- cgit v1.2.3