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 math.vectors opengl sequences ;

IN: ui.gadgets.packs.private

: orient ( seq1 seq2 gadget -- seq )
    orientation>> '[ _ set-axis [ gl-round ] map ] 2map ;