Troels Henriksen athas@sigkill.dk writes:
The attached patch fixes this issue
I should learn to test things better. The attached patch fixes this properly (and I'm reasonably sure that the bug reporters intended behavior is a bug in LispWorks).
Index: Backends/CLX/medium.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp,v retrieving revision 1.72 diff -u -r1.72 medium.lisp --- Backends/CLX/medium.lisp 17 Feb 2006 14:16:39 -0000 1.72 +++ Backends/CLX/medium.lisp 14 Mar 2006 09:15:34 -0000 @@ -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)))