diff options
| author | Karl Berry <karl@freefriends.org> | 2011-09-07 23:28:42 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2011-09-07 23:28:42 +0000 |
| commit | c76b8f9c98a91aa1c2df880181f5812621fde162 (patch) | |
| tree | f3673eeab52c4b93271989dacfb287a2df9c2875 /Master/texmf-dist/dvips | |
| parent | 04715721fccfb5ac8a8cf97eeb15bc0052fd3b78 (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.pro | 2 | ||||
| -rw-r--r-- | Master/texmf-dist/dvips/pstricks/pstricks.pro | 34 |
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 |