From 92e830508db8509c35dc87515f5b99a182cb08ef Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 31 Dec 2010 10:25:01 -0600
Subject: [PATCH] use pen's alpha color stuff in 2htdp/image

original commit: 830c797ee44e77f8a53477240979add83edebc17
---
 collects/mrlib/image-core.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mrlib/image-core.rkt b/collects/mrlib/image-core.rkt
index b3030b28..12fe9df5 100644
--- a/collects/mrlib/image-core.rkt
+++ b/collects/mrlib/image-core.rkt
@@ -1065,7 +1065,8 @@ the mask bitmap and the original bitmap are all together in a single bytes!
       (make-object color% 
         (color-red color)
         (color-green color)
-        (color-blue color))))
+        (color-blue color)
+        (/ (color-alpha color) 255))))
 
 
 (define (pen->pen-obj/cache pen)