From aa047a8c793b4d995b41f62413bca8c23915b2fa Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 7 Jul 2010 13:54:24 -0700
Subject: [PATCH] images.gdiplus: don't multiply stride by pixel size because
 that's part of the stride already, noob

---
 basis/images/gdiplus/gdiplus.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/images/gdiplus/gdiplus.factor b/basis/images/gdiplus/gdiplus.factor
index 95fdc3dd44..b2c31f383e 100644
--- a/basis/images/gdiplus/gdiplus.factor
+++ b/basis/images/gdiplus/gdiplus.factor
@@ -39,7 +39,7 @@ SINGLETON: gdi+-image
     bitmap [ gdi+-bitmap-width ] [ gdi+-bitmap-height ] bi :> ( w h )
     bitmap 0 0 w h <GpRect> ImageLockModeRead enum>number
     PixelFormat32bppARGB gdi+-lock-bitmap :> bitmap-data
-    bitmap-data [ Scan0>> ] [ Stride>> ] [ Height>> * 4 * ] tri
+    bitmap-data [ Scan0>> ] [ Stride>> ] [ Height>> * ] tri
     memory>byte-array :> pixels
     bitmap bitmap-data GdipBitmapUnlockBits check-gdi+-status
     w h pixels ;