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 '[
        0 over _ * gl-round 2array -rot [ _ draw-line ] 2curry
        with-translation
    ] each-slice-index ;