summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-09-07 23:28:42 +0000
committerKarl Berry <karl@freefriends.org>2011-09-07 23:28:42 +0000
commitc76b8f9c98a91aa1c2df880181f5812621fde162 (patch)
treef3673eeab52c4b93271989dacfb287a2df9c2875 /Master/texmf-dist/dvips
parent04715721fccfb5ac8a8cf97eeb15bc0052fd3b78 (diff)
pstricks (6sep11)
git-svn-id: svn://tug.org/texlive/trunk@23858 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips')
-rw-r--r--Master/texmf-dist/dvips/pstricks/pst-algparser.pro2
-rw-r--r--Master/texmf-dist/dvips/pstricks/pstricks.pro34
2 files changed, 33 insertions, 3 deletions
diff --git a/Master/texmf-dist/dvips/pstricks/pst-algparser.pro b/Master/texmf-dist/dvips/pstricks/pst-algparser.pro
index b42cd0b5144..c9009a9f623 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 350 2010-06-18 05:18:55Z herbert $
+% $Id: pst-algparser.pro 532 2011-07-09 13:02:57Z herbert $
%%
%% PostScript prologue for PSTricks algorithm parser
%% Version 0.03, 2011/06/03
diff --git a/Master/texmf-dist/dvips/pstricks/pstricks.pro b/Master/texmf-dist/dvips/pstricks/pstricks.pro
index bf29b527ca0..7f7f985e95f 100644
--- a/Master/texmf-dist/dvips/pstricks/pstricks.pro
+++ b/Master/texmf-dist/dvips/pstricks/pstricks.pro
@@ -1,7 +1,7 @@
-% $Id: pstricks.pro 489 2011-04-23 09:25:08Z herbert $
+% $Id: pstricks.pro 532 2011-07-09 13:02:57Z herbert $
%
%% PostScript prologue for pstricks.tex.
-%% Version 1.07, 2009/04/30
+%% Version 1.08, 2011/07/09
%%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN archives
@@ -173,6 +173,36 @@ tx@Dict begin
grestore
pop pop } def
%
+/DotFill {% on stack: dot radius
+ /dotRadius ED
+ abs CLW add /a ED
+ a 0 dtransform round exch round exch
+ 2 copy idtransform
+ exch Atan rotate
+ idtransform pop /a ED
+ .25 .25 itransform
+ pathbbox % llx lly urx ury of smallest bounding box
+ /y2 ED /x2 ED /y1 ED /x1 ED
+ y2 y1 sub a div 2 add cvi /Ny ED
+ x2 x1 sub a div 2 add cvi /Nx ED
+ clip
+ newpath
+ /yA y1 dotRadius add CLW add def
+ /xA0 x1 dotRadius add CLW add def
+ Ny {
+ /xA xA0 def
+ Nx {
+ newpath
+ xA yA dotRadius 0 360 arc
+ SolidDot { gsave fill grestore } if
+ stroke
+ xA a add /xA ED
+ } repeat
+ yA a add /yA ED
+ } repeat
+ grestore
+} def
+%
/PenroseFill {% on stack: scaling factor
dup dup scale
1 exch div round /penroseFactor ED