[mcclim-cvs] CVS update: mcclim/recording.lisp

[Christophe Rhodes]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv10043

Modified Files:
	recording.lisp 
Log Message:
Maybe fix circle/ellipse drawing in with-room-for-graphics and
with-first-quadrant-coordinates.

(Weirdest.  Coordinate.  System.  Ever.)

Date: Tue Feb 15 12:28:11 2005
Author: crhodes

Index: mcclim/recording.lisp
diff -u mcclim/recording.lisp:1.117 mcclim/recording.lisp:1.118
--- mcclim/recording.lisp:1.117	Fri Feb 11 10:10:36 2005
+++ mcclim/recording.lisp	Tue Feb 15 12:28:11 2005
@@ -1570,6 +1570,8 @@
     ;; will break other things.  -Hefner
     (setf start-angle (untransform-angle transform start-angle))
     (setf end-angle   (untransform-angle transform end-angle))
+    (when (reflection-transformation-p transform)
+      (rotatef start-angle end-angle))
     (multiple-value-bind (min-x min-y max-x max-y)
 	(bounding-rectangle* (make-ellipse* center-x center-y
 					    radius-1-dx radius-1-dy