From 405fded9c3f09888c8a10f3d80059e9ed23728b9 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 28 Aug 2010 07:50:52 -0500 Subject: [PATCH] change empty scene so that it draws the border for the scene inside the scene, instead of using the usual rectangle "right/bottom outside" drawing (hopefully) closes PR 11139 --- collects/2htdp/private/image-more.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/2htdp/private/image-more.rkt b/collects/2htdp/private/image-more.rkt index 65b85e9a0c..0f52be3151 100644 --- a/collects/2htdp/private/image-more.rkt +++ b/collects/2htdp/private/image-more.rkt @@ -780,8 +780,9 @@ (make-a-polygon (rectangle-points side-length side-length) mode color)) (define/chk (empty-scene width height) - (overlay (rectangle width height 'outline 'black) - (rectangle width height 'solid 'white))) + (crop 0 0 width height + (overlay (rectangle width height 'outline (pen "black" 2 'solid 'round 'round)) + (rectangle width height 'solid 'white)))) (define/chk (rhombus side-length angle mode color) (check-mode/color-combination 'rhombus 3 mode color)