diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pst-algparser.pro')
-rw-r--r-- | Master/texmf-dist/dvips/pstricks/pst-algparser.pro | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pst-algparser.pro b/Master/texmf-dist/dvips/pstricks/pst-algparser.pro index edd71c773fa..60e5c28263c 100644 --- a/Master/texmf-dist/dvips/pstricks/pst-algparser.pro +++ b/Master/texmf-dist/dvips/pstricks/pst-algparser.pro @@ -1,7 +1,7 @@ % $Id: pst-algparser.pro 902 2014-03-30 16:23:33Z herbert $ %% %% PostScript prologue for PSTricks algorithm parser -%% Version 0.05, 2014/03/30 +%% Version 0.06, 2014/05/19 %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN archives @@ -9,6 +9,8 @@ %% %%-----------------------------------------------------------------------------% % +%currentdict /Pi known not { /Pi 3.14159265359 def } if +% /AlgParser { tx@AlgToPs begin AlgToPs end } def % Dominique Rodriguez % /tx@CoreAnalyzerDict 100 dict def tx@CoreAnalyzerDict begin @@ -304,7 +306,8 @@ end %% (name) -> /TrigoFunc { dup (cos) eq 1 index (sin) eq or exch (tan) eq or - { /ExpressionVector ExpressionVector aload length Pi /div cvx 180 /mul cvx 5 -1 roll 4 add + { /ExpressionVector ExpressionVector aload length 3.1415926 /div cvx 180 /mul cvx 5 -1 roll 4 add + array astore def array astore def } if } def |