Vocabulary
images.png

Inputs
byte-readeran object
loading-pngan object
passan object


Outputs
linesan object


Definition


:: read-adam7-subimage
( byte-reader loading-png pass -- lines )
loading-png height>> pass adam7-subimage-height
:> height loading-png width>> pass adam7-subimage-width
:> width height width * zero?
[ B{ } ]
[ byte-reader loading-png width height read-scanlines ] if ;