From 9bdb47bba04b01820cd2d005386bda216f357941 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 22 May 2012 06:15:50 -0400 Subject: [PATCH] racket/draw: fix bad interaction of path drawing and gradient brushes --- collects/racket/draw/private/dc.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/racket/draw/private/dc.rkt b/collects/racket/draw/private/dc.rkt index 431a0b4956..ee3df564c0 100644 --- a/collects/racket/draw/private/dc.rkt +++ b/collects/racket/draw/private/dc.rkt @@ -1173,18 +1173,17 @@ CAIRO_FILL_RULE_WINDING CAIRO_FILL_RULE_EVEN_ODD)) (cairo_new_path cr) - (cairo_translate cr dx dy) (if (aligned? smoothing) (begin (when (brush-draws?) - (send path do-path cr (lambda (x) x) (lambda (y) y)) + (send path do-path cr (lambda (x) (+ dx x)) (lambda (y) (+ dy y))) (draw cr #t #f)) (cairo_new_path cr) (when (pen-draws?) - (send path do-path cr (lambda (x) (align-x x)) (lambda (y) (align-y y))) + (send path do-path cr (lambda (x) (align-x (+ dx x))) (lambda (y) (align-y (+ dy y)))) (draw cr #f #t))) (begin - (send path do-path cr (lambda (x) x) (lambda (y) y)) + (send path do-path cr (lambda (x) (+ dx x)) (lambda (y) (+ dy y))) (draw cr #t #t))) (cairo_restore cr)))