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

2010-10-28 11:22:44 -05:00 · 2010-10-28 11:22:44 -05:00 · 02d8b5cebf
commit 02d8b5cebf
parent 69fb56189a
1 changed files with 1 additions and 1 deletions
--- a/collects/mrlib/image-core.rkt
+++ b/collects/mrlib/image-core.rkt
@ -320,7 +320,7 @@ has been moved out).
      (let ([lst (parse (fetch (send f get-unterminated-bytes)))])
        (cond
          [(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)
                       #f
                       #f)]