<bitmap-image> ( alien dim -- image )

Vocabulary

images.memory.private

Inputs

alien	an object
dim	an object

Outputs

image

an object

Definition

USING: accessors images kernel ;

IN: images.memory.private

: <bitmap-image> ( alien dim -- image )
    [ bitmap-data ] keep <image> swap >>dim swap >>bitmap ;