alpha-used? ( loading-bitmap -- ? )

Vocabulary

images.bitmap

Inputs

loading-bitmap

an object

Outputs

?

an object

Definition

USING: accessors grouping kernel sequences ;

IN: images.bitmap

: alpha-used? ( loading-bitmap -- ? )
    color-index>> 4 <groups> [ fourth 0 = ] all? not ;