draw-line ( {R,G,B} pt1 pt2 image -- )

Vocabulary

rosetta-code.bitmap-line

Inputs

{R,G,B}	an object
pt1	an object
pt2	an object
image	an object

Outputs

None

Definition

USING: kernel rosetta-code.bitmap sequences ;

IN: rosetta-code.bitmap-line

: draw-line ( {R,G,B} pt1 pt2 image -- )
    [ line-points ] dip [ set-pixel ] curry with each ;