orient ( seq1 seq2 gadget -- seq )

Vocabulary

ui.gadgets.packs.private

Inputs

seq1	an object
seq2	an object
gadget	an object

Outputs

seq

an object

Definition

USING: accessors kernel math.vectors sequences ;

IN: ui.gadgets.packs.private

: orient ( seq1 seq2 gadget -- seq )
    orientation>> [ set-axis ] curry 2map ;