 : RGB>ARGB ( bitmap -- bitmap' )
     3 <sliced-groups> [ 255 prefix ] map concat ; inline
 
-! RGBA>
+: RGBA>RGBA ( bitmap -- bitmap' ) ;
 
 : RGBA>BGR ( bitmap -- bitmap' ) BGRA>RGB ; inline
 


! TODO RGBX, XRGB, BGRX, XBGR conversions

! BGR>
: BGR>RGB ( bitmap -- bitmap' )
    3 <sliced-groups> [ <reversed> ] map concat ; inline


: BGRA>ARGB ( bitmap -- bitmap' )
    4 <sliced-groups> [ <reversed> ] map concat ; inline

: RGB>RGB ( bitmap -- bitmap' ) ;

: RGB>BGR ( bitmap -- bitmap' ) BGR>RGB ; inline

: RGB>RGBA ( bitmap -- bitmap' ) add-dummy-alpha ; inline
