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

allow empty as a door image

Browse Source 
svn: r4821
This commit is contained in:
Matthew Flatt 2006-11-10 20:51:54 +00:00
parent 345fa2e796
commit 3f8d7fe93e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/games/doors/doors.ss
View File

@ -216,7 +216,10 @@
(bitmap->drawer door-image this) (bitmap->drawer door-image this)
door-image)] door-image)]
[drawer (if wall? [drawer (if wall?
(make-wall-draw ri rj dir door-image) (make-wall-draw ri rj dir
(if (null? door-image)
void
door-image))
void)]) void)])
(if (wall-drawer wall) (if (wall-drawer wall)
(send board set-space-draw wall drawer) (send board set-space-draw wall drawer)