a.v ( a v -- v )

Vocabulary

math.affine-transforms

Inputs

a	an object
v	an object

Outputs

v

an object

Definition

USING: accessors kernel math.vectors sequences ;

IN: math.affine-transforms

: a.v ( a v -- v )
    [ [ x>> ] [ first ] bi* v*n ] [ [ y>> ] [ second ] bi* v*n ]
    [ drop origin>> ] 2tri v+ v+ ;