[mcclim-cvs] CVS mcclim/Backends/PostScript

[crhodes]

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