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 _ execute ]
change-color-index ; inline