try using size-in-pixels for the font primitive in 2htdp/image
closes PR 11883 (the earlier commit with this message was just completely bogus)
This commit is contained in:
parent
53e8ff8c82
commit
34581b7050
|
@ -1095,14 +1095,18 @@ the mask bitmap and the original bitmap are all together in a single bytes!
|
|||
(text-family text)
|
||||
(text-style text)
|
||||
(text-weight text)
|
||||
(text-underline text))]
|
||||
(text-underline text)
|
||||
'default
|
||||
#t)]
|
||||
[else
|
||||
(send the-font-list find-or-create-font
|
||||
adjusted-size
|
||||
(text-family text)
|
||||
(text-style text)
|
||||
(text-weight text)
|
||||
(text-underline text))]))
|
||||
(text-underline text)
|
||||
'default
|
||||
#t)]))
|
||||
|
||||
(define (ellipse-rotated-size ew eh θ)
|
||||
(cond
|
||||
|
|
Loading…
Reference in New Issue
Block a user