(packed-dims) ( gadget sizes -- list )

Vocabulary

ui.gadgets.packs.private

Inputs

gadget	an object
sizes	an object

Outputs

list

an object

Definition

USING: accessors kernel math.vectors sequences ;

IN: ui.gadgets.packs.private

: (packed-dims) ( gadget sizes -- list )
    swap [ dim>> ] [ fill>> ] bi '[ _ over v- _ v*n v+ ] map ;