From 0590579daa3c0cfaf4302c6006585596f61980d2 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 25 Nov 2010 09:03:06 -0600 Subject: [PATCH] get two more 2htdp/image test cases to pass original commit: bf62d4b6d6e1968ddaf3adc835c4f70d7321228a --- 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 b9b0057f..e9d4684d 100644 --- a/collects/mrlib/image-core.rkt +++ b/collects/mrlib/image-core.rkt @@ -1014,7 +1014,7 @@ the mask bitmap and the original bitmap are all together in a single bytes! [(pen? color) (pen->pen-obj/cache color)] [else - (send the-pen-list find-or-create-pen (get-color-arg color) 0 'solid)])] + (send the-pen-list find-or-create-pen (get-color-arg color) 0 'solid 'round 'miter)])] [(solid) (send the-pen-list find-or-create-pen "black" 1 'transparent)]))