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

2013-12-07 Thread David Vanderson 

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


_
 Racket Developers list:
 http://lists.racket-lang.org/dev

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

2013-12-06 Thread Matthew Flatt 
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

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

2013-12-05 Thread David Vanderson 

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
attachment: draw-text.png_
  Racket Developers list:
  http://lists.racket-lang.org/dev