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

try using size-in-pixels for the font primitive in 2htdp/image

Browse Source 
closes PR 11883

(the earlier commit with this message was just completely bogus)

original commit: 34581b7050e19bb75bdfe456e3b2dd2547ccd463
This commit is contained in:
Robby Findler 2011-09-27 16:24:23 -05:00
parent f0ee216da1
commit 68dcb92030
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1095,14 +1095,18 @@ the mask bitmap and the original bitmap are all together in a single bytes!
(text-family text) (text-family text)
(text-style text) (text-style text)
(text-weight text) (text-weight text)
(text-underline text))] (text-underline text)
'default
#t)]
[else [else
(send the-font-list find-or-create-font (send the-font-list find-or-create-font
adjusted-size adjusted-size
(text-family text) (text-family text)
(text-style text) (text-style text)
(text-weight text) (text-weight text)
(text-underline text))])) (text-underline text)
'default
#t)]))
(define (ellipse-rotated-size ew eh θ) (define (ellipse-rotated-size ew eh θ)
(cond (cond