>y-up-axis! ( seq from-axis -- seq )

Vocabulary

game.models.collada.private

Inputs

seq	a sequence
from-axis	a rh-up

Outputs

seq	a sequence

Word description

Destructively swizzles the first three elements of the input sequence to a right-handed 3D coordinate system where Y is up and returns the modified sequence.

Definition

IN: game.models.collada.private

GENERIC: >y-up-axis! ( seq from-axis -- seq )

Methods

USING: game.models.collada.private kernel math sequences ;

M: x-up >y-up-axis!
    drop dup [
        [ 0 swap nth ] [ 1 swap nth neg ] [ 2 swap nth ] tri
        swapd
    ] [
        [ 2 swap set-nth ] [ 1 swap set-nth ] [ 0 swap set-nth ]
        tri
    ] bi ;


USING: game.models.collada.private kernel ;

M: y-up >y-up-axis! drop ;


USING: game.models.collada.private kernel math sequences ;

M: z-up >y-up-axis!
    drop dup [
        [ 0 swap nth ] [ 1 swap nth neg ] [ 2 swap nth ] tri
        swap
    ] [
        [ 2 swap set-nth ] [ 1 swap set-nth ] [ 0 swap set-nth ]
        tri
    ] bi ;