up-image ( -- image )

Vocabulary

model-viewer

Inputs

None

Outputs

image

an object

Definition

USING: accessors images ;

IN: model-viewer

: up-image ( -- image )
    <image> { 1 1 } >>dim BGR >>component-order
    ubyte-components >>component-type B{ 0 0 0 } >>bitmap ;