Vocabulary
images.png

Inputs
png-heightan object
passan object


Outputs
subimage-heightan object


Definition


:: 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 ;