(bytes-per-pixel) ( component-order component-type -- n )

Vocabulary

images

Inputs

component-order	an object
component-type	an object

Outputs

n

an object

Definition

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 ;