fill-image ( {R,G,B} image -- image )


Vocabulary
rosetta-code.bitmap

Inputs
{R,G,B}an object
imagean object


Outputs
imagean object


Definition
USING: kernel ;

IN: rosetta-code.bitmap

: fill-image ( {R,G,B} image -- image )
swap [ [ drop ] ] dip [ ] curry compose mmap! ;