normalized-sizes ( track -- seq )

Vocabulary

ui.gadgets.tracks.private

Inputs

track

an object

Outputs

seq

an object

Definition

USING: accessors kernel math sequences ;

IN: ui.gadgets.tracks.private

: normalized-sizes ( track -- seq )
    sizes>> dup sift sum '[ dup [ _ / ] when ] map ;