summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-04-15 22:23:09 +0000
committerKarl Berry <karl@freefriends.org>2013-04-15 22:23:09 +0000
commitf9fe08d0b133db79c326f1cc09c1ef16debf16c5 (patch)
treeb435364e794a55d97c32fcd76d14048780442d60 /Master/texmf-dist/dvips
parent86cf5bb0eb3a1ee72b3e40fb1dcf2297465fa4ff (diff)
pst-optexp (15apr13)
git-svn-id: svn://tug.org/texlive/trunk@29953 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r--Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro45
1 files changed, 15 insertions, 30 deletions
diff --git a/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro b/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
index 2c1e89865eb..57f69b67c2f 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.6 (2013/03/20)
+%% Version: 4.0 (2013/04/15)
%%
%% Copyright (C) 2007-2013 by Christoph Bersch <usenet@bersch.net>
%%
@@ -88,13 +88,13 @@ tx@OptexpDict begin
(Warning pst-optexp: ) exch strcat ==
} bind def
/CompUnknownWarning {
- (Component ') exch strcat (' unknown) strcat PrintWarning
+ (Component ') exch strcat (' unknown) strcat Warning
} bind def
/OneFiberCompWarning {
- (Found only one fiber component in beam path, drawing no beam) PrintWarning
+ (Found only one unsupported component in beam path, drawing no beam) Warning
} bind def
/FiberCompWarning {
- (Found a fiber component in beam path, stopping beam path) PrintWarning
+ (Found an unsupported component in beam path, stopping beam path) Warning
} bind def
/inttostr {
dup type /integertype eq {
@@ -205,22 +205,6 @@ tx@OptexpDict begin
{ @GetCenter } forall
DebugEnd
} bind def
-/GetInternalBeamNodesCompat {
- exch dup 3 1 roll (C) NodeName dup tx@NodeDict exch known {
- @GetCenter ToVec
- 3 1 roll pop pop
- } {
- pop GetInternalBeamNodes
- } ifelse
-} bind def
-/GetInternalBeamNodeCompat {
- exch dup 3 1 roll (C) NodeName dup tx@NodeDict exch known {
- @GetCenter ToVec
- 3 1 roll pop pop
- } {
- pop NodeName @GetCenter ToVec
- } ifelse
-} bind def
/InitOptexpComp {%
/@@x 0 def
/@@y 0 def
@@ -289,7 +273,7 @@ tx@OptexpDict begin
exec scl ToVec 3 1 roll NodeName @NewNode
} bind def
/relative 0 def /absolute 1 def /center 2 def
-/refl 0 def /trans 1 def /absorb 2 def
+/refl 0 def /trans 1 def /absorb 2 def /undefined -1 def
/desc 0 def /asc 1 def /amb 2 def
/ok 0 def /tir 1 def /missed 2 def
/bgRefIndex 0 def
@@ -579,6 +563,7 @@ tx@OptexpDict begin
Vec DotProd dup sprod lt 5 2 roll
GetIfcCenter 3 -1 roll exec GetIfcCenter @ABDist
centerDist lt and
+ centerDist -1 eq { pop dup 0 gt } if
{ /sprod ED /nextPlane ED } { pop pop } ifelse
} {
pop
@@ -1416,8 +1401,8 @@ tx@OptexpDict begin
} ifelse
DebugEnd
} bind def
-/RelFiberAngle {
- (RelFiberAngle) DebugBegin
+/RelConnAngle {
+ (RelConnAngle) DebugBegin
/fiberalign ED
dup xcheck not { nametostr } if /CompB ED
dup xcheck not { nametostr } if /CompA ED
@@ -1430,10 +1415,10 @@ tx@OptexpDict begin
4 2 roll @ABVect 4 2 roll
CompB
fiberalign center eq {
- RelFiberAngle@center
+ RelConnAngle@center
}{
3 1 roll pop pop
- RelFiberAngle@ref
+ RelConnAngle@ref
} ifelse
2 copy exch atan
7 3 roll 2 copy 9 -2 roll
@@ -1444,25 +1429,25 @@ tx@OptexpDict begin
CompA (Center) NodeName @GetCenter
4 2 roll @ABVect 4 2 roll
CompA fiberalign center eq {
- RelFiberAngle@center
+ RelConnAngle@center
}{
3 1 roll pop pop
- RelFiberAngle@tref
+ RelConnAngle@tref
} ifelse
2 copy exch atan
5 1 roll DotProd 0 gt { 180 add } if
} ifelse
DebugEnd
} bind def
-/RelFiberAngle@ref {
+/RelConnAngle@ref {
dup (A) NodeName exch (B) NodeName
@GetCenter 3 -1 roll @GetCenter @ABVect
} bind def
-/RelFiberAngle@tref {
+/RelConnAngle@tref {
dup (TrefA) NodeName exch (TrefB) NodeName
@GetCenter 3 -1 roll @GetCenter @ABVect
} bind def
-/RelFiberAngle@center {
+/RelConnAngle@center {
(Center) NodeName @GetCenter 4 2 roll @ABVect
} bind def
/GetIfcOrNodeCoord {