diff options
author | Karl Berry <karl@freefriends.org> | 2013-07-15 22:45:53 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-07-15 22:45:53 +0000 |
commit | baf92cd2b6a50c9aaf590f0c88a71532f72667dd (patch) | |
tree | 51d1be7cc1e4f4ea9156870196e53338a3d51fbe /Master/texmf-dist/dvips | |
parent | b8995c2e1cd8aa0925d55dbb0570f1cbe0b9f457 (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')
-rw-r--r-- | Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro | 24 |
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 |