I've pushed a repair. Thanks for the report!
At Thu, 05 Dec 2013 16:08:45 -0500, David Vanderson wrote: > Hello, > > I'm seeing that if the first draw-text on a canvas is at a small scale > (0.1), then later draw-text calls at larger scales (1) show strange > character spacing (see attached image). > > This can be worked around by passing #t as the combine? argument to > draw-text, but it seems some state is being shared between draw-text calls. > > Does this happen for others? (I'm on Linux) > > Thanks, > Dave > > > #lang racket/gui > > (define (draw-screen canvas dc) > > (define t (send dc get-transformation)) > (send dc scale 0.1 0.1) > > (send dc draw-text "small" 1000 1000) > > (send dc set-transformation t) > > (define t2 (send dc get-transformation)) > (send dc translate (+ (/ 500 2)) (/ 500 2)) > (send dc scale 1 1) > (send dc draw-text "0.0.0.0" 0 0 #f) ; change #f to #t to fix > (send dc set-transformation t2)) > > > (define frame (new (class frame% (super-new)) > (label "Test draw-text when scaled"))) > > (define canvas > (new canvas% > (parent frame) > (min-width 500) > (min-height 500) > (paint-callback draw-screen) > (style '(no-autoclear)))) > > (send frame show #t) > > ;(send (send canvas get-dc) draw-text "" 0 0) ; or uncomment to fix > > ------------------------------------------------------------------------------ > [image/png "draw-text.png"] [~/Desktop & open] [~/Temp & open] > . > _________________________ > Racket Developers list: > http://lists.racket-lang.org/dev _________________________ Racket Developers list: http://lists.racket-lang.org/dev
