(inverted-axes) ( a -- x y )

Vocabulary

math.affine-transforms

Inputs

a

an object

Outputs

x	an object
y	an object

Definition

USING: accessors arrays kernel math math.vectors sequences ;

IN: math.affine-transforms

: (inverted-axes) ( a -- x y )
    [ [ y>> second ] [ x>> second neg ] bi 2array ]
    [ [ y>> first neg ] [ x>> first ] bi 2array ] [ |a| ] tri
    [ v/n ] curry bi@ ;