pstricks 2.17 (2feb11)

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

1 files changed, 54 insertions, 6 deletions

diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro
index 18aeacb6052..ea18f469bc8 100644
--- a/Master/texmf-dist/dvips/pstricks/pstricks.pro
+++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro
@@ -1,4 +1,4 @@
-% $Id: pstricks.pro 327 2010-05-24 15:54:43Z herbert $
+% $Id: pstricks.pro 455 2011-01-30 11:19:19Z herbert $
 %
 %% PostScript prologue for pstricks.tex.
 %% Version 1.07, 2009/04/30
@@ -197,6 +197,53 @@ tx@Dict begin
   pop pop 
 } def
 %
+/TruchetFill { %	 on stack: scaling factor
+  10 dict begin
+  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 
+  /ma a neg def
+  /ha a 2 div def 
+  /mha ha neg def
+  /tile { 
+    rand dup 2 idiv 2 mul eq { 90 rotate } if
+    mha mha moveto ha mha lineto
+    ha ha lineto mha ha lineto
+%    closepath .1 setlinewidth stroke
+    contents
+  } def
+  /contents{ 
+    0 ha moveto ha 0 lineto
+    0 mha moveto mha 0 lineto
+%    1 setlinewidth stroke
+  } def
+  /dotiling {
+    f ma mul a f a mul { 
+      /i exch def
+      f ma mul a f a mul { 
+        /j exch def
+        gsave i j translate
+        tile stroke grestore
+      } for
+    } for
+  } def
+%
+  /f 3 def 
+  5 srand dotiling 
+  end % local user dict
+} def
+%
 /BeginArrow { 
   ADict begin 			% hold it local, for end see EndArrow
   /@mtrx CM def 
@@ -656,16 +703,17 @@ tx@Dict begin
   /Points [ x1 y1 xSP ySP xSP 2 mul x1 sub y1 ] def 
 } def
 %
-%
 /Grid { 
   newpath 
   /a 4 string def 
-  /b ED /c ED /n ED 
+  /b ED % 				psk@gridlabels in pt
+  /c ED % 				{ \pst@usecolor\psgridlabelcolor }
+  /n ED % 				psk@griddots
   cvi dup 1 lt { pop 1 } if 
-  /s ED 
+  /s ED % 				\psk@subgriddiv
   s div dup 0 eq { pop 1 } if 
-  /dy ED s div dup 0 eq { pop 1 } if
-  /dx ED dy div round dy mul 
+  /dy ED s div dup 0 eq { pop 1 } if %	\pst@number\psyunit abs
+  /dx ED dy div round dy mul %		\pst@number\psxunit abs
   /y0 ED dx div round dx mul 
   /x0 ED dy div round cvi 
   /y2 ED dx div round cvi