From baf92cd2b6a50c9aaf590f0c88a71532f72667dd Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 15 Jul 2013 22:45:53 +0000 Subject: pst-optexp (15jul13) git-svn-id: svn://tug.org/texlive/trunk@31203 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro | 24 +++++++++++++++-------- 1 file changed, 16 insertions(+), 8 deletions(-) (limited to 'Master/texmf-dist/dvips/pst-optexp') 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 %% @@ -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 -- cgit v1.2.3