loading-png>image ( loading-png -- image )

Vocabulary

images.png

Inputs

loading-png

an object

Outputs

image

an object

Definition

USING: accessors arrays combinators images kernel ;

IN: images.png

: loading-png>image ( loading-png -- image )
    [ image new ] dip {
        [
            loading-png>bitmap
            [ >>bitmap ] [ >>component-order ] bi*
        ]
        [ [ width>> ] [ height>> ] bi 2array >>dim ]
        [ png-component >>component-type ]
    } cleave ;