draw-column-lines ( table -- )

Vocabulary

ui.gadgets.tables.private

Inputs

table

an object

Outputs

None

Definition

USING: accessors arrays kernel opengl sequences ;

IN: ui.gadgets.tables.private

: draw-column-lines ( table -- )
    [ column-line-color>> gl-color ] [
        [ column-line-offsets ] [ dim>> second ] bi
        [ 2array ] curry [ [ [ 0 2array ] ] ] dip
        [ bi gl-line ] curry compose each
    ] bi ;