Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv27817 Modified Files: graphics.lisp Log Message: Added draw-design method for patterns. I'm not completely sure that it is correct, but it worked for my test cases. --- /project/mcclim/cvsroot/mcclim/graphics.lisp 2007/07/19 06:52:51 1.58 +++ /project/mcclim/cvsroot/mcclim/graphics.lisp 2008/01/09 16:57:54 1.59 @@ -992,6 +992,11 @@ ;;;; +(defmethod draw-design (medium (pattern pattern) &key clipping-region transformation + &allow-other-keys) + (draw-pattern* medium pattern 0 0 + :clipping-region clipping-region :transformation transformation)) + (defun draw-pattern* (medium pattern x y &key clipping-region transformation) ;; Note: I believe the sample implementation in the spec is incorrect. ;; --GB