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