right-cut-x ( xmax pairs -- seq )

Vocabulary

ui.gadgets.charts.lines.private

Inputs

xmax	an object
pairs	an object

Outputs

seq

an object

Definition

USING: arrays kernel math sequences ;

IN: ui.gadgets.charts.lines.private

: right-cut-x ( xmax pairs -- seq )
    2dup last x < [
        [ dupd last2 y-at 2array ] keep
        but-last-slice swap suffix
    ] [ nip ] if ;