From 306f3a8701f9ffc15a69bf77f89777b162de87d6 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 24 Aug 2012 23:39:47 +0000 Subject: pstricks (24aug12) git-svn-id: svn://tug.org/texlive/trunk@27515 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pstricks/pstricks.pro | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/dvips/pstricks') diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro index c00d0413c19..2eb173e8949 100644 --- a/Master/texmf-dist/dvips/pstricks/pstricks.pro +++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro @@ -1,7 +1,7 @@ % $Id: pstricks.pro 700 2012-08-13 21:04:25Z herbert $ % %% PostScript prologue for pstricks.tex. -%% Version 1.14, 2012/08/13 +%% Version 1.15, 2012/08/24 %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN archives @@ -29,7 +29,10 @@ tx@Dict begin /Sqrt { dup 0 lt { pop 0 } { sqrt } ifelse } def % return 0 for negative arguments /Atan { /atan load stopped { pop pop 0 } if } def % return 0 if atan not known /ATAN1 {neg -1 atan 180 sub } def % atan(x) (only one parameter) -/Div { dup 0 eq { pop } { div } ifelse } def % control the division +/Div { % control the division + dup 0 eq { pop 0 lt { -1e30 } % -y/0 + { 1e30 } ifelse } % +y/0 + { div } ifelse } def /tan { dup cos abs 1.e-10 lt { pop 1.e10 } % return 1.e10 as infinit { dup sin exch cos div } ifelse % default sin/cos -- cgit v1.2.3