Update of /project/mcclim/cvsroot/mcclim/Backends/PostScript In directory clnet:/tmp/cvs-serv11067/Backends/PostScript

Modified Files: graphics.lisp Log Message: Allow addition of a rectangle set path in postscript.

Needed for clipping regions, at least, in certain complicated beam groups in gsharp.

--- /project/mcclim/cvsroot/mcclim/Backends/PostScript/graphics.lisp 2007/07/11 15:26:20 1.19 +++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/graphics.lisp 2007/08/28 14:50:25 1.20 @@ -228,6 +228,10 @@ (let ((ellipse (transform-region *transformation* ellipse))) (put-ellipse stream ellipse t)))

+(defmethod postscript-add-path (stream (rs climi::standard-rectangle-set)) + (map-over-region-set-regions + (lambda (r) (postscript-add-path stream r)) + rs))  ;;; Graphics state