diff options
| author | Karl Berry <karl@freefriends.org> | 2008-07-02 18:05:35 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2008-07-02 18:05:35 +0000 |
| commit | 19f58e5098cf443de58d21c46f277ff489457c4b (patch) | |
| tree | 0b004bdf085fe1c098de0f03a219ec92bd6d1654 /Master/texmf-dist/dvips/pstricks/pst-dots.pro | |
| parent | 0877203879f5740a1fe1f5ca82680de5e1200be4 (diff) | |
pstricks update (1jul08)
git-svn-id: svn://tug.org/texlive/trunk@9169 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pstricks/pst-dots.pro')
| -rw-r--r-- | Master/texmf-dist/dvips/pstricks/pst-dots.pro | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pst-dots.pro b/Master/texmf-dist/dvips/pstricks/pst-dots.pro index c704de559f5..8077b3d59a0 100644 --- a/Master/texmf-dist/dvips/pstricks/pst-dots.pro +++ b/Master/texmf-dist/dvips/pstricks/pst-dots.pro @@ -1,7 +1,7 @@ -% $Id: pst-dots.pro 22 2008-04-18 16:03:12Z herbert $ +% $Id: pst-dots.pro 26 2008-06-14 11:50:02Z herbert $ % %% PostScript prologue for pstricks.tex. -%% Version 2.01, 2008/04/18 +%% Version 2.02, 2008/04/18 %% %% For distribution, see pstricks.tex. %% @@ -44,6 +44,9 @@ dup (h) 0 get /Hexagon put dup (H) 0 get /BoldHexagon put dup (G) 0 get /SolidHexagon put + dup (f) 0 get /Octogon put % 2008-04-18 hv + dup (F) 0 get /BoldOctogon put % 2008-04-18 hv + dup (g) 0 get /SolidOctogon put % 2008-04-18 hv dup (a) 0 get /Add put dup (A) 0 get /BoldAdd put % 65 dup (x) 0 get /Mul put @@ -89,6 +92,14 @@ CharProcs begin /SolidHexagon {HexagonPath fill} def /Hexagon {HexagonPath .89 .89 scale HexagonPath eofill} def /BoldHexagon {HexagonPath .79 .79 scale HexagonPath eofill} def +% 2008-04-18 hv + /OctogonPath { + 550 dup 22.5 tan mul dup neg dup add /xMove exch def + exch moveto 7 { xMove 0 rlineto 45 rotate } repeat closepath } def + /SolidOctogon { OctogonPath fill } def + /Octogon { OctogonPath .89 .89 scale OctogonPath eofill } def + /BoldOctogon { OctogonPath .79 .79 scale OctogonPath eofill } def +% /AsteriskPath { 20 0 moveto 10 250 180 500 0 500 curveto -180 500 -10 250 -20 0 curveto closepath @@ -97,6 +108,7 @@ CharProcs begin AsteriskPath 60 rotate AsteriskPath 60 rotate AsteriskPath 60 rotate AsteriskPath 60 rotate AsteriskPath 60 rotate AsteriskPath fill } def +% /Basterp {50 250 220 500 0 500 curveto -220 500 -50 250 -50 30 cos 100 mul curveto} def /BoldAsteriskPath { 50 30 cos 100 mul moveto Basterp |