USING: kernel math ;

IN: images

: (bytes-per-pixel) ( component-order component-type -- n )
dup packed-components?
[ nip bytes-per-packed-pixel ]
[ [ component-count ] [ bytes-per-component ] bi* * ] if ;