[mcclim-devel] Postscript partial ellipses

[Christophe Rhodes]

Hi,

I believe the Postscript backend needs this patch.  Is anyone other
than us using it at the moment who could check my reasoning?

Cheers,

Christophe

Index: Backends/PostScript/graphics.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Backends/PostScript/graphics.lisp,v
retrieving revision 1.12
diff -u -r1.12 graphics.lisp
--- Backends/PostScript/graphics.lisp   3 Dec 2004 11:42:43 -0000       1.12
+++ Backends/PostScript/graphics.lisp   29 Jul 2005 15:20:39 -0000
@@ -147,8 +147,11 @@
            (cy (point-y center))
            (tr (make-transformation ndx2 ndx1 ndy2 ndy1 cx cy))
            (circle (untransform-region tr ellipse))
-           (start-angle (or (ellipse-start-angle circle) 0))
-           (end-angle (or (ellipse-end-angle circle) (* 2 pi))))
+           ;; we need an extra minus sign because the rotation
+           ;; convention for Postscript differs in chirality from the
+           ;; abstract CLIM convention.  -- CSR, 2005-07-29
+           (start-angle (or (- (ellipse-end-angle circle)) 0))
+           (end-angle (or (- (ellipse-start-angle circle)) (* 2 pi))))
       (write-string (if filled "true " "false ") stream)
       (write-angle stream (if (< end-angle start-angle)
                               (+ end-angle (* 2 pi))