normal ( vec -- norm )

Vocabulary

gml.coremath

Inputs

vec

an object

Outputs

norm

an object

Definition

USING: kernel math.vectors math.vectors.simd.cords sequences ;

IN: gml.coremath

: normal ( vec -- norm )
    [ first double-4{ 0.0 1.0 0.0 0.0 } n*v ]
    [ second double-4{ -1.0 0.0 0.0 0.0 } n*v ]
    [ third double-4{ -1.0 0.0 0.0 0.0 } n*v ] tri v+ v+ ;
    inline