summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-optexp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-07-02 22:49:44 +0000
committerKarl Berry <karl@freefriends.org>2013-07-02 22:49:44 +0000
commit74eab85d64cec0e1252bb24e518e38287955a722 (patch)
treeadc2e3c7bf8e05af6cc19dc21849b80e7cb6eb00 /Master/texmf-dist/dvips/pst-optexp
parent1a6b61dfa1ffa5032428d260ce4b22db56698693 (diff)
c2l pst-optexp (2jul13)
git-svn-id: svn://tug.org/texlive/trunk@31072 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-optexp')
-rw-r--r--Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro32
1 files changed, 14 insertions, 18 deletions
diff --git a/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro b/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
index 19e96175299..afdc628edb2 100644
--- a/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
+++ b/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
@@ -9,7 +9,7 @@
%% This is a generated file.
%%
%% Project: pst-optexp
-%% Version: 4.2 (2013/06/07)
+%% Version: 4.3a (2013/07/02)
%%
%% Copyright (C) 2007-2013 by Christoph Bersch <usenet@bersch.net>
%%
@@ -112,20 +112,16 @@ tx@OptexpDict begin
/calcNodes {
(calcNode) DebugBegin
/YG exch def /XG exch def
- /ay YG 3 -1 roll sub def
- /ax XG 3 -1 roll sub def
/by exch YG sub def
/bx exch XG sub def
- /a ax ay Pyth def
- /modA a def
- /b bx by Pyth def
- /modB b def
- /cx ax a div bx b div add def
- /cy ay a div by b div add def
- /c@tmp cx cy Pyth def
+ /ay YG 3 -1 roll sub def
+ /ax XG 3 -1 roll sub def
+ ax ay NormalizeVec bx by NormalizeVec VecAdd
+ 2 copy Pyth abs 1e-4 lt {
+ pop pop ax ay -90 matrix rotate dtransform
+ } if
+ /cy ED /cx ED
/c ax bx add ay by add Pyth def
- /OEangle c dup mul a dup mul sub b dup mul sub
- -2 a b mul mul div Acos def
c 0 eq {
ax ay bx by DotProd 0 gt {
/cx ax def
@@ -134,19 +130,16 @@ tx@OptexpDict begin
/cx ay def
/cy ax neg def
} ifelse
- /c@tmp a def
} if
- /X@A XG cx c@tmp div add def
- /Y@A YG cy c@tmp div add def
- /X@B XG cx c@tmp div sub def
- /Y@B YG cy c@tmp div sub def
+ cx cy NormalizeVec 2 copy
+ XG YG VecAdd /Y@A ED /X@A ED
+ XG YG 4 2 roll VecSub /Y@B ED /X@B ED
ax by mul ay bx mul sub 0 le {
Y@A X@A
/X@A X@B def
/Y@A Y@B def
/X@B exch def
/Y@B exch def
- modA modB /modA exch def /modB exch def
} if
DebugEnd
} bind def
@@ -1243,6 +1236,9 @@ tx@OptexpDict begin
/VecAdd {
3 -1 roll add 3 1 roll add exch
} bind def
+/VecSub {
+ neg 3 -1 roll add 3 1 roll neg add exch
+} bind def
/VecScale {
dup 4 -1 roll mul 3 1 roll mul
} bind def