From c76b8f9c98a91aa1c2df880181f5812621fde162 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 7 Sep 2011 23:28:42 +0000 Subject: pstricks (6sep11) git-svn-id: svn://tug.org/texlive/trunk@23858 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/dvips/pstricks/pst-algparser.pro | 2 +- Master/texmf-dist/dvips/pstricks/pstricks.pro | 34 ++++++++++++++++++++-- 2 files changed, 33 insertions(+), 3 deletions(-) (limited to 'Master/texmf-dist/dvips/pstricks') 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 -- cgit v1.2.3