draw-selection-rects ( spans color y height -- )

Vocabulary

ui.text.private

Inputs

spans	an object
color	an object
y	an object
height	an object

Outputs

None

Definition

USING: arrays math math.order opengl sequences ;

IN: ui.text.private

:: draw-selection-rects ( spans color y height -- )
    color gl-color spans [
        [ gl-round ] map first2 :> ( left right ) left y 2array
        right left - 1 max height 2array gl-fill-rect
    ] each ;