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 [ / ] curry [ [ dup ] ] dip
    [ when ] curry compose map ;