Vocabulary
images.png

Inputs
png-widthan object
passan object


Outputs
subimage-widthan object


Definition


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