pstricks update (1jul08)

git-svn-id: svn://tug.org/texlive/trunk@9169 c570f23f-e606-0410-a88d-b1316a301751

4 files changed, 42 insertions, 6 deletions

diff --git a/Master/texmf-dist/dvips/pstricks/pst-algparser.pro b/Master/texmf-dist/dvips/pstricks/pst-algparser.pro
index a859d0a9825..ab96e87353e 100644
--- a/Master/texmf-dist/dvips/pstricks/pst-algparser.pro
+++ b/Master/texmf-dist/dvips/pstricks/pst-algparser.pro
@@ -1,4 +1,4 @@
-% $Id: pst-algparser.pro 7 2007-12-29 22:21:13Z herbert $
+% $Id: pst-algparser.pro 26 2008-06-14 11:50:02Z herbert $
 %%
 %% PostScript prologue for PSTricks algorithm parser
 %% Version 0.01, 2008/01/01
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
diff --git a/Master/texmf-dist/dvips/pstricks/pst-node.pro b/Master/texmf-dist/dvips/pstricks/pst-node.pro
index aa9d39dbe0d..5916c637eb1 100644
--- a/Master/texmf-dist/dvips/pstricks/pst-node.pro
+++ b/Master/texmf-dist/dvips/pstricks/pst-node.pro
@@ -1,4 +1,4 @@
-% $Id: pst-node.pro 11 2008-01-24 13:37:27Z herbert $
+% $Id: pst-node.pro 26 2008-06-14 11:50:02Z herbert $
 %%
 %% PostScript prologue for pst-node.tex.
 %% Version 1.00, 2008/01/01.
diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro
index 841b2896e7d..7701af23def 100644
--- a/Master/texmf-dist/dvips/pstricks/pstricks.pro
+++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro
@@ -1,7 +1,7 @@
-% $Id: pstricks.pro 21 2008-04-18 13:40:08Z herbert $
+% $Id: pstricks.pro 34 2008-06-25 17:20:01Z herbert $
 %
 %% PostScript prologue for pstricks.tex.
-%% Version 1.04, 2008/04/15
+%% Version 1.05, 2008/06/25
 %%
 %% This program can be redistributed and/or modified under the terms
 %% of the LaTeX Project Public License Distributed from CTAN archives
@@ -141,6 +141,30 @@ tx@Dict begin
   grestore 
   pop pop } def
 %
+/PenroseFill {%	 on stack: scaling factor
+  dup dup scale
+  1 exch div round /penroseFactor ED 
+  a 0 dtransform round exch round exch
+  2 copy idtransform 
+  exch Atan rotate 
+  idtransform pop /a ED 
+  .25 .25 itransform pathbbox 
+  /y2 ED 
+  a Div ceiling cvi /x2 ED /y1 ED 
+  a Div cvi /x1 ED /y2 y2 y1 sub def 
+  clip 
+  newpath 
+  systemdict
+  /setstrokeadjust known { true setstrokeadjust } if 
+  /I/S/L/W/G/+/Z/F/E/D[/def/exch/for{E D}/add{s E get mul}
+ { Z -36.2001 1 33 }{25 E S rlineto}{/q Z dup q G E q 1 + G}{Z 2 2}]{cvx def}forall
+  [0 72 1008 {dup sin E cos }F ]1 setlinejoin/s W{/a W{/b I 10{/i I 4{/m I moveto
+  i m +/j I 10{/l Z b m l + G a l G sub s m get div .2 + floor .3 + 25
+  mul j l + S rmoveto}F i L j L stroke }F}F}F}F 
+  grestore 
+  pop pop 
+} def
+%
 %gsave abs CLW add /a ED a 0 dtransform round exch round exch
 %2 copy idtransform exch Atan rotate idtransform pop /a ED .25 .25
 %% DG/SR modification begin - Dec. 12, 1997 - Patch 2