eye-rotate ( yaw: float pitch: float v: float-4 -- v': float-4 )

Vocabulary

terrain

Inputs

yaw	a float
pitch	a float
v	a float-4

Outputs

v'

a float-4

Definition

USING: kernel math.functions math.matrices.simd math.vectors
math.vectors.simd typed ;

IN: terrain

TYPED: eye-rotate
    ( yaw: float pitch: float v: float-4 -- v': float-4 )
    [
        float-4{ 0.0 -1.0 0.0 0.0 } swap deg>rad
        rotation-matrix4
    ] [
        float-4{ -1.0 0.0 0.0 0.0 } swap deg>rad
        rotation-matrix4 m4.
    ] [ m4.v ] tri*
    float-4{ NAN: -20000000 NAN: -20000000 NAN: -20000000 0.0 }
    vand ;