a~ ( a b epsilon -- ? )

Vocabulary

math.affine-transforms

Inputs

a	an object
b	an object
epsilon	an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel math.vectors ;

IN: math.affine-transforms

: a~ ( a b epsilon -- ? )
    {
        [ [ [ x>> ] bi@ ] dip v~ ]
        [ [ [ y>> ] bi@ ] dip v~ ]
        [ [ [ origin>> ] bi@ ] dip v~ ]
    } 3&& ;