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

closes PR 11293

Browse Source 
original commit: 05d16d931121f56a2b98454d61d17588635cbadc
This commit is contained in:
Robby Findler 2010-10-07 19:35:53 -05:00
parent b343e68e2e
commit 872c587255
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -905,10 +905,11 @@ the mask bitmap and the original bitmap are all together in a single bytes!
(set-bitmap-rendered-mask! bitmap new-mask)))
(define (text->font text)
(define adjusted-size (min (max (inexact->exact (round (text-size text))) 1) 255))
(cond
[(text-face text)
(send the-font-list find-or-create-font
(text-size text)
adjusted-size
(text-face text)
(text-family text)
(text-style text)
@ -916,7 +917,7 @@ the mask bitmap and the original bitmap are all together in a single bytes!
(text-underline text))]
[else
(send the-font-list find-or-create-font
(text-size text)
adjusted-size
(text-family text)
(text-style text)
(text-weight text)