numerically-aligned-locs ( sizes pack -- seq )

Vocabulary

ui.gadgets.packs.private

Inputs

sizes	an object
pack	an object

Outputs

seq

an object

Definition

USING: accessors kernel math math.vectors sequences ;

IN: ui.gadgets.packs.private

: numerically-aligned-locs ( sizes pack -- seq )
    [ align>> ] [ dim>> ] bi rot [ v- [ * ] with map ] 2with map
    ;