adam7-subimage-height ( png-height pass -- subimage-height )

Vocabulary

images.png

Inputs

png-height	an object
pass	an object

Outputs

subimage-height

an object

Definition

USING: kernel math sequences ;

IN: images.png

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