[mcclim-cvs] CVS mcclim/Backends/CLX - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

23 Mar 2006

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory clnet:/tmp/cvs-serv27080/Backends/CLX
Modified Files:
    medium.lisp 
Log Message:
Fix for ellipse drawing (from Troels Henriksen)

--- /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp	2006/02/17 14:16:39	1.72
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp	2006/03/23 11:59:00	1.73
@@ -564,7 +564,7 @@
   (with-transformed-position ((sheet-native-transformation (medium-sheet medium))
                               center-x center-y)
     (let* ((arc-angle (- end-angle start-angle))
-           (arc-angle (if (< end-angle 0)
+           (arc-angle (if (< arc-angle 0)
                           (+ (* pi 2) arc-angle)
                           arc-angle)))
       (with-clx-graphics (medium)
@@ -588,7 +588,7 @@
    						    medium))
                               center-x center-y)
     (let* ((arc-angle (- end-angle start-angle))
-           (arc-angle (if (< end-angle 0)
+           (arc-angle (if (< arc-angle 0)
                           (+ (* pi 2) arc-angle)
                           arc-angle))
       (min-x (round-coordinate (- center-x radius)))

    