From 6474b519bb16e431dcb76c8fb9f28982050bc39d Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 25 Nov 2010 12:01:44 -0500 Subject: [PATCH] Fixes usage of argb-pixels --- collects/tests/htdp-lang/htdp-image.rktl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/htdp-lang/htdp-image.rktl b/collects/tests/htdp-lang/htdp-image.rktl index 41bce43b18..f21d453b73 100644 --- a/collects/tests/htdp-lang/htdp-image.rktl +++ b/collects/tests/htdp-lang/htdp-image.rktl @@ -96,8 +96,8 @@ (let ([bm-normal (make-object bitmap% (max 1 width) (max 1 height))] [bm-bitmap (make-object bitmap% (max 1 width) (max 1 height))] - [s-normal (make-bytes (* width height 4))] - [s-bitmap (make-bytes (* width height 4))]) + [s-normal (make-bytes (* (max 1 width) (max 1 height) 4))] + [s-bitmap (make-bytes (* (max 1 width) (max 1 height) 4))]) (send bdc set-bitmap bm-normal) (send bdc clear)