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

finally, a fix that makes the 2htdp/image test suite pass!

Browse Source
This commit is contained in:
Robby Findler 2010-12-12 15:13:24 -06:00
parent 9ce75b8f76
commit 91aa9f756a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mrlib/image-core.rkt
View File

@ -977,6 +977,7 @@ has been moved out).
(send dc draw-path path dx dy)))] (send dc draw-path path dx dy)))]
[(flip? np-atomic-shape) [(flip? np-atomic-shape)
(let ([bm (get-rendered-bitmap np-atomic-shape)]) (let ([bm (get-rendered-bitmap np-atomic-shape)])
(send dc set-smoothing 'smoothed)
(send dc draw-bitmap (send dc draw-bitmap
bm bm
(- dx (/ (send bm get-width) 2)) (- dx (/ (send bm get-width) 2))
@ -988,6 +989,7 @@ has been moved out).
(let ([θ (degrees->radians (text-angle np-atomic-shape))] (let ([θ (degrees->radians (text-angle np-atomic-shape))]
[font (send dc get-font)]) [font (send dc get-font)])
(send dc set-font (text->font np-atomic-shape)) (send dc set-font (text->font np-atomic-shape))
(send dc set-smoothing 'aligned) ;; should this be smoothed?
(let ([color (get-color-arg (text-color np-atomic-shape))]) (let ([color (get-color-arg (text-color np-atomic-shape))])
(send dc set-text-foreground (send dc set-text-foreground
(cond (cond