a. ( a a -- a )

Vocabulary

math.affine-transforms

Inputs

a	an object
a	an object

Outputs

a

an object

Definition

USING: accessors arrays combinators kernel math.vectors ;

IN: math.affine-transforms

: a. ( a a -- a )
    {
        [ [ transpose-axes x>> ] [ x>> ] bi* vdot ]
        [ [ transpose-axes y>> ] [ x>> ] bi* vdot ]
        [ [ transpose-axes x>> ] [ y>> ] bi* vdot ]
        [ [ transpose-axes y>> ] [ y>> ] bi* vdot ]
        [ origin>> a.v ]
    } 2cleave [ [ 2array ] 2bi@ ] dip <affine-transform> ;