draw-lines ( gadget -- )

Vocabulary

ui.gadgets.line-support

Inputs

gadget

an object

Outputs

None

Definition

USING: arrays combinators kernel math opengl ui.gadgets ;

IN: ui.gadgets.line-support

: draw-lines ( gadget -- )
    {
        [ first-visible-line ]
        [ last-visible-line ]
        [ control-value ]
        [ line-height ]
        [ ]
    } cleave [ draw-line ] curry
    [ [ [ 0 over ] ] dip [ * >integer 2array ] curry compose ]
    dip [ with-translation ] curry compose each-slice-index ;