summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pstricks/pst-algparser.pro
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pst-algparser.pro')
-rw-r--r--Master/texmf-dist/dvips/pstricks/pst-algparser.pro7
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