do-run-length-uncompress ( loading-bitmap word -- loading-bitmap )


Vocabulary
images.bitmap

Inputs
loading-bitmapan object
wordan object


Outputs
loading-bitmapan object


Definition
USING: accessors kernel ;

IN: images.bitmap

: do-run-length-uncompress
( loading-bitmap word -- loading-bitmap )
dupd [ [ header>> [ width>> ] [ height>> ] bi ] curry ] dip
[ execute ] curry compose change-color-index ; inline