GENERIC: normalize-component-order* ( image component-order -- image )
: normalize-component-order ( image -- image )
- dup component-order>> '[ _ normalize-component-order* ] change-bitmap
- RGBA >>component-order ;
+ dup component-order>> '[ _ normalize-component-order* ] change-bitmap ;
M: RGBA normalize-component-order* drop ;
: normalize-image ( image -- image )
[ >byte-array ] change-bitmap
normalize-component-order
- normalize-scan-line-order ;
\ No newline at end of file
+ normalize-scan-line-order ;