summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-optexp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-07-27 22:51:40 +0000
committerKarl Berry <karl@freefriends.org>2012-07-27 22:51:40 +0000
commit1f9093ef56c8de2c74750cff37bd292e2cbacff3 (patch)
treef6641789906685197acef7802c8a3a2b32d0e828 /Master/texmf-dist/dvips/pst-optexp
parent64749982278c874391a383d9d8b422159ade17dc (diff)
pst-optexp (27jul12)
git-svn-id: svn://tug.org/texlive/trunk@27202 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.pro25
1 files changed, 18 insertions, 7 deletions
diff --git a/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro b/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
index 0deeb3caa0c..e963906ac87 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: 3.1 (2012/07/17)
+%% Version: 3.2 (2012/07/26)
%%
%% Copyright (C) 2007-2012 by Christoph Bersch <usenet@bersch.net>
%%
@@ -29,7 +29,6 @@
%% and the derived files
%% pst-optexp.sty, pst-optexp.pro.
%%
-
/tx@OptexpDict 200 dict def
tx@OptexpDict begin
/DebugOE false def
@@ -643,7 +642,12 @@ tx@OptexpDict begin
counttomark 3 roll
/PrevCenter /CurrCenter load def
/lastBeamPointTmp /Curr load def
- /lastVecTmp /CurrVec load def
+ currentdict /lastVecTmp known {
+ /prevVecTmp /lastVecTmp load def
+ /lastVecTmp /CurrVec load def
+ } {
+ /CurrVec load dup /lastVecTmp ED /prevVecTmp ED
+ } ifelse
/PrevMode Mode def
CompName cvn load /correct get /PrevCorrect ED
PN IfcCnt eq {
@@ -833,9 +837,12 @@ tx@OptexpDict begin
/DrawnSegm 0 def
} if
ret missed eq not {
+ currentdict /lastVecTmpUp known currentdict /lastVecTmpLow known and dup {
+ /lastVecTmpUp load /lastVecTmpLow load 3 -1 roll
+ } if
CurrUp CurrLow @ABVect
CurrVecUp CurrVecLow 3 -1 roll add 3 1 roll add exch
- 4 -1 roll mul 3 1 roll mul sub 0 gt {
+ 4 -1 roll mul 3 1 roll mul sub 1e-7 gt {
/lastBeamPointTmpUp /CurrLow load def
/lastBeamPointTmpLow /CurrUp load def
/lastVecTmpUp /CurrVecLow load def
@@ -846,6 +853,10 @@ tx@OptexpDict begin
/lastVecTmpUp /CurrVecUp load def
/lastVecTmpLow /CurrVecLow load def
} ifelse
+ not {
+ /lastVecTmpUp load /lastVecTmpLow load
+ } if
+ /prevVecLow ED /prevVecUp ED
} if
DebugEnd
} bind def
@@ -1337,6 +1348,7 @@ tx@OptexpDict begin
fiberalign center eq {
RelFiberAngle@center
}{
+ 3 1 roll pop pop
RelFiberAngle@ref
} ifelse
2 copy exch atan
@@ -1350,6 +1362,7 @@ tx@OptexpDict begin
CompA fiberalign center eq {
RelFiberAngle@center
}{
+ 3 1 roll pop pop
RelFiberAngle@tref
} ifelse
2 copy exch atan
@@ -1358,19 +1371,17 @@ tx@OptexpDict begin
DebugEnd
} bind def
/RelFiberAngle@ref {
- 3 1 roll pop pop
dup (A) NodeName exch (B) NodeName
@GetCenter 3 -1 roll @GetCenter @ABVect
} bind def
/RelFiberAngle@tref {
- 3 1 roll pop pop
dup (TrefA) NodeName exch (TrefB) NodeName
@GetCenter 3 -1 roll @GetCenter @ABVect
} bind def
/RelFiberAngle@center {
(Center) NodeName @GetCenter 4 2 roll @ABVect
} bind def
-/getsubnode {
+/GetIfcOrNodeCoord {
dup xcheck {
exch pop exec
} {