From: espen <espen>
Date: Fri, 7 Sep 2007 07:13:55 +0000 (+0000)
Subject: Bug fix in SCALE-TO-DEVICE
X-Git-Tag: clg-0-93~82
X-Git-Url: https://git.distorted.org.uk/~mdw/clg/commitdiff_plain/eabbdb42b0b16ae43f3b4d92a7e3a4a4b35f8e8d

Bug fix in SCALE-TO-DEVICE
---

diff --git a/cairo/cairo.lisp b/cairo/cairo.lisp
index f249eca..d4aa3ca 100644
--- a/cairo/cairo.lisp
+++ b/cairo/cairo.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: cairo.lisp,v 1.14 2007/08/23 21:12:43 espen Exp $
+;; $Id: cairo.lisp,v 1.15 2007/09/07 07:13:55 espen Exp $
 
 (in-package "CAIRO")
 
@@ -578,10 +578,11 @@
 (defun scale-to-device (cr &optional keep-rotation-p)
   (if keep-rotation-p
       (multiple-value-call #'scale cr (device-to-user-distance cr 1.0))
-    (multiple-value-bind (x y) 
-	(multiple-value-call #'user-to-device cr (get-current-point cr))
-;      (identity-matrix cr)
-      (setf (matrix cr) (matrix-init-identity))
+    (multiple-value-bind (x y)
+	(with-context (cr)
+	  (move-to cr 0.0 0.0)
+	  (multiple-value-call #'user-to-device cr (get-current-point cr)))
+      (identity-matrix cr)
       (translate cr x y))))
 
 (defbinding rotate () nil