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

db4
Joe Groff 2010-07-07 13:54:24 -07:00
parent 987c2b8153
commit aa047a8c79
1 changed files with 1 additions and 1 deletions
basis/images/gdiplus

View File

@ -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 ;