left-cut-x ( xmin pairs -- seq ) - Factor Documentation

left-cut-x ( xmin pairs -- seq )

Vocabulary
ui.gadgets.charts.lines.private

Inputs

xmin	an object
pairs	an object

Outputs

seq

Definition

USING: arrays kernel math sequences ;

IN: ui.gadgets.charts.lines.private

: left-cut-x ( xmin pairs -- seq )
2dup first x >
[ [ dupd first2 y-at 2array ] keep rest-slice swap prefix ]
[ nip ] if ;