suzanne.soy/gui
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 
original commit: bf62d4b6d6e1968ddaf3adc835c4f70d7321228a
This commit is contained in:
Robby Findler 2010-11-25 09:03:06 -06:00
parent 439d046c98
commit 0590579daa
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->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)]))