From 42b8534a4a24996ebcbe71a691c47227cdb7b5e3 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 16 Sep 2010 07:43:02 -0600 Subject: [PATCH] fix dc transform --- collects/racket/draw/dc.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/racket/draw/dc.rkt b/collects/racket/draw/dc.rkt index 6bda331a17..4a3bd49141 100644 --- a/collects/racket/draw/dc.rkt +++ b/collects/racket/draw/dc.rkt @@ -290,10 +290,10 @@ (define/private (reset-effective!) (let* ([mx (make-cairo_matrix_t 1 0 0 1 0 0)]) - (cairo_matrix_rotate mx (- rotation)) - (cairo_matrix_scale mx scale-x scale-y) - (cairo_matrix_translate mx origin-x origin-y) (cairo_matrix_multiply mx mx matrix) + (cairo_matrix_translate mx origin-x origin-y) + (cairo_matrix_scale mx scale-x scale-y) + (cairo_matrix_rotate mx (- rotation)) (set! effective-scale-x (cairo_matrix_t-xx mx)) (set! effective-scale-y (cairo_matrix_t-yy mx)) (set! effective-origin-x (cairo_matrix_t-x0 mx)) @@ -358,10 +358,10 @@ (vector-ref mi 3) (vector-ref mi 4) (vector-ref mi 5))]) - (cairo_matrix_rotate mx (- rotation)) - (cairo_matrix_scale mx scale-x scale-y) - (cairo_matrix_translate mx origin-x origin-y) (cairo_matrix_multiply mx mx m) + (cairo_matrix_translate mx origin-x origin-y) + (cairo_matrix_scale mx scale-x scale-y) + (cairo_matrix_rotate mx (- rotation)) (cairo_matrix_multiply mx mx mx2) (set! origin-x 0.0) (set! origin-y 0.0)