adam7-subimage-width ( png-width pass -- subimage-width )

Vocabulary

images.png

Inputs

png-width	an object
pass	an object

Outputs

subimage-width

an object

Definition

USING: kernel math sequences ;

IN: images.png

:: adam7-subimage-width ( png-width pass -- subimage-width )
    pass starting-col nth png-width >=
    [ 0 ] [
        png-width 1 - pass block-width nth +
        pass col-increment nth /i
    ] if ;