[mcclim-devel] eps bug

[David Lewis]

Hi,

If this was me, I apologise now, but somehow eps output from 
invoke-with-output-to-postscript-stream now always gives a bounding box 
with 0 width.

This should fix it:

--- Backends/PostScript/sheet.lisp      7 Mar 2006 15:43:44 -0000       
1.13
+++ Backends/PostScript/sheet.lisp      30 Mar 2006 13:12:10 -0000
@@ -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)