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

2htdp/image: adjusted the image you get when parsing fails so that it draws inside its bounding box

Browse Source
This commit is contained in:
Robby Findler 2010-10-28 11:22:44 -05:00
parent 69fb56189a
commit 02d8b5cebf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -320,7 +320,7 @@ has been moved out).
(let ([lst (parse (fetch (send f get-unterminated-bytes)))]) (let ([lst (parse (fetch (send f get-unterminated-bytes)))])
(cond (cond
[(not lst) [(not lst)
(make-image (make-ellipse 100 100 0 'solid "black") (make-image (make-translate 50 50 (make-ellipse 100 100 0 'solid "black"))
(make-bb 100 100 100) (make-bb 100 100 100)
#f #f
#f)] #f)]