[racket-dev] draw-text sensitive to scale when first called

Amazing - thank you!

On 12/06/2013 01:17 PM, Matthew Flatt wrote:
> 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