suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix dc transform

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-16 07:43:02 -06:00
parent 60d4eaf227
commit 42b8534a4a
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/racket/draw/dc.rkt
View File

@ -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)