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

get two more 2htdp/image test cases to pass

Browse Source
This commit is contained in:
Robby Findler 2010-11-25 09:03:06 -06:00
parent a658a7620b
commit bf62d4b6d6
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

@ -1014,7 +1014,7 @@ the mask bitmap and the original bitmap are all together in a single bytes!
[(pen? color) [(pen? color)
(pen->pen-obj/cache color)] (pen->pen-obj/cache color)]
[else [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) [(solid)
(send the-pen-list find-or-create-pen "black" 1 'transparent)])) (send the-pen-list find-or-create-pen "black" 1 'transparent)]))