summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-optexp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-07-15 22:45:53 +0000
committerKarl Berry <karl@freefriends.org>2013-07-15 22:45:53 +0000
commitbaf92cd2b6a50c9aaf590f0c88a71532f72667dd (patch)
tree51d1be7cc1e4f4ea9156870196e53338a3d51fbe /Master/texmf-dist/dvips/pst-optexp
parentb8995c2e1cd8aa0925d55dbb0570f1cbe0b9f457 (diff)
pst-optexp (15jul13)
git-svn-id: svn://tug.org/texlive/trunk@31203 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.pro24
1 files changed, 16 insertions, 8 deletions
diff --git a/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro b/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
index afdc628edb2..99a06e55cfc 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.3a (2013/07/02)
+%% Version: 4.4 (2013/07/14)
%%
%% Copyright (C) 2007-2013 by Christoph Bersch <usenet@bersch.net>
%%
@@ -134,7 +134,9 @@ tx@OptexpDict begin
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
+ true
ax by mul ay bx mul sub 0 le {
+ pop false
Y@A X@A
/X@A X@B def
/Y@A Y@B def
@@ -266,7 +268,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 /undefined -1 def
+/refl 0 def /trans 1 def /absorb 2 def /refltrans 3 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
@@ -1355,13 +1357,19 @@ tx@OptexpDict begin
@InterLines missed eq {
0 0 missed
} {
- Xin Yin Xin Yin dXp dYp NormalVec
- mode trans eq {
- n1 n2 RefractVec
- 2 copy 0 eq exch 0 eq and { tir } { ok } ifelse
+ Xin Yin Xin Yin dXp dYp
+ mode refltrans eq {
+ neg exch NormalVec ReflectVec ok
} {
- ReflectVec ok
- } ifelse /n1 n2 def
+ NormalVec
+ mode trans eq {
+ n1 n2 RefractVec
+ 2 copy 0 eq exch 0 eq and { tir } { ok } ifelse
+ } {
+ ReflectVec ok
+ } ifelse
+ } ifelse
+ /n1 n2 def
5 -2 roll 2 copy 7 2 roll X0 Y0 @ABVect Xin Yin DotProd 0 lt
PN 1 gt and {
pop missed