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

change empty scene so that it draws the border for the scene inside the scene,

Browse Source 
instead of using the usual rectangle "right/bottom outside" drawing
(hopefully) closes PR 11139
This commit is contained in:
Robby Findler 2010-08-28 07:50:52 -05:00
parent fbd4659260
commit 405fded9c3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/2htdp/private/image-more.rkt
View File

@ -780,8 +780,9 @@
(make-a-polygon (rectangle-points side-length side-length) mode color)) (make-a-polygon (rectangle-points side-length side-length) mode color))
(define/chk (empty-scene width height) (define/chk (empty-scene width height)
(overlay (rectangle width height 'outline 'black) (crop 0 0 width height
(rectangle width height 'solid 'white))) (overlay (rectangle width height 'outline (pen "black" 2 'solid 'round 'round))
(rectangle width height 'solid 'white))))
(define/chk (rhombus side-length angle mode color) (define/chk (rhombus side-length angle mode color)
(check-mode/color-combination 'rhombus 3 mode color) (check-mode/color-combination 'rhombus 3 mode color)