setup-bitmap ( image -- )

Vocabulary

images.jpeg.private

Inputs

image

an object

Outputs

None

Definition

USING: accessors arrays images kernel math math.functions
math.vectors sequences ;

IN: images.jpeg.private

: setup-bitmap ( image -- )
    dup dim>> 16 v/n [ ceiling ] map 16 v*n >>dim
    BGR >>component-order ubyte-components >>component-type
    f >>upside-down? dup dim>> first2 * 3 * 0 <array> >>bitmap
    drop ;