images.gdiplus: don't multiply stride by pixel size because that's part of the stride...

diff --git a/basis/images/gdiplus/gdiplus.factor b/basis/images/gdiplus/gdiplus.factor
index 95fdc3dd44719e914aee641964350bd07129cbf7..b2c31f383e653b3f0f2ab32629cbed10942585ce 100644 (file)
--- 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 )\r
     bitmap 0 0 w h <GpRect> ImageLockModeRead enum>number\r
     PixelFormat32bppARGB gdi+-lock-bitmap :> bitmap-data\r
-    bitmap-data [ Scan0>> ] [ Stride>> ] [ Height>> * 4 * ] tri\r
+    bitmap-data [ Scan0>> ] [ Stride>> ] [ Height>> * ] tri\r
     memory>byte-array :> pixels\r
     bitmap bitmap-data GdipBitmapUnlockBits check-gdi+-status\r
     w h pixels ;\r