diff options
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pstricks.pro')
| -rw-r--r-- | Master/texmf-dist/dvips/pstricks/pstricks.pro | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro index c25657b9b90..175b1908d6b 100644 --- a/Master/texmf-dist/dvips/pstricks/pstricks.pro +++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro @@ -1,4 +1,4 @@ -% $Id: pstricks.pro 615 2022-09-22 08:39:26Z herbert $ +% $Id: pstricks.pro 317 2021-11-16 20:47:25Z herbert $ % %% PostScript prologue for pstricks.tex. %% Version 1.41, 2021/11/16 @@ -379,7 +379,7 @@ tx@Dict begin % % /TruchetFill { % on stack: scaling factor - 20 dict begin + 10 dict begin dup dup scale 1 exch div round /penroseFactor ED a 0 dtransform round exch round exch @@ -445,11 +445,7 @@ tx@Dict begin { 0 h T 1 -1 scale } if w neg h moveto 0 0 L w h L w neg a neg rlineto - gsave -% gsave w neg h lineto CLW 0.5 add setlinewidth % test für border beim Pfeil -% 1 setgray 0 setlinejoin closepath stroke -% grestore - fill grestore + gsave fill grestore } def % /ArrowD { % the sides are drawn as curves (hv 20071211) @@ -955,8 +951,8 @@ tx@Dict begin } ifelse } def % -/Frame { % on stack \psk@dimen - CLW mul /a ED % save radius +/Frame { + CLW mul /a ED 3 -1 roll 2 copy gt { exch } if a sub /y2 ED |