a. ( a a -- a )


Vocabulary
math.affine-transforms

Inputs
aan object
aan object


Outputs
aan 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> ;