selection-outside-image ( line height -- bands )

Vocabulary

ui.text.core-text.private

Inputs

line	an object
height	an object

Outputs

bands

an object

Definition

USING: accessors arrays core-text math math.order opengl
sequences ;

IN: ui.text.core-text.private

:: selection-outside-image ( line height -- bands )
    line prepare-render
    line loc>> second gl-unscale 0 height clamp
    :> top line loc>> second line render-ext>> second +
    gl-unscale 0 height clamp :> bottom 0 top 2array
    bottom height 2array 2array [ first2 < ] filter ;