USING: accessors alien.c-types alien.data alien.enums\r
classes.struct destructors images images.loader\r
io.streams.limited kernel locals math windows.com\r
-windows.gdiplus windows.streams windows.types ;\r
-FROM: images => ARGB ;\r
+windows.gdiplus windows.streams windows.types typed\r
+byte-arrays grouping sequences ;\r
IN: images.gdiplus\r
\r
SINGLETON: gdi+-image\r
image new\r
{ w h } >>dim\r
pixels >>bitmap\r
- ARGB >>component-order\r
+ BGRA >>component-order\r
ubyte-components >>component-type\r
f >>upside-down? ;\r
\r