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

1 Apr 2006

Update of /project/mcclim/cvsroot/mcclim/Backends/PostScript
In directory clnet:/tmp/cvs-serv29250/Backends/PostScript
Modified Files:
    sheet.lisp 
Log Message:
Fix for EPS output from postscript backend.  (From David Lewis)

--- /project/mcclim/cvsroot/mcclim/Backends/PostScript/sheet.lisp	2006/03/29 10:43:38	1.14
+++ /project/mcclim/cvsroot/mcclim/Backends/PostScript/sheet.lisp	2006/04/01 21:07:04	1.15
@@ -74,11 +74,11 @@
                ((:eps)
                 (let ((record (stream-output-history stream)))
                   (multiple-value-bind (lx ly ux uy) (bounding-rectangle* record)
-                    (setf translate-x (- (ceiling lx))
+                    (setf translate-x (- (floor lx))
                           translate-y (ceiling uy))
                     (format file-stream "%%BoundingBox: ~A ~A ~A ~A~%" 
                             0 0
-                            (+ translate-x (floor lx))
+                            (+ translate-x (ceiling ux))
                             (- translate-y (floor ly))))))
                (t
                 (multiple-value-bind (width height)

    