From 02d8b5cebf9341c1d07823e9c048e751e576a50f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 28 Oct 2010 11:22:44 -0500 Subject: [PATCH] 2htdp/image: adjusted the image you get when parsing fails so that it draws inside its bounding box --- collects/mrlib/image-core.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mrlib/image-core.rkt b/collects/mrlib/image-core.rkt index aab0febfa1..9dffb18b4e 100644 --- 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)]