gml-aNormal ( registers gml -- registers gml )

Vocabulary

gml.coremath

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: combinators gml.runtime gml.types kernel kernel.private
math.vectors math.vectors.simd ;

IN: gml.coremath

: gml-aNormal ( registers gml -- registers gml )
    { gml } declare 1 1 [
        {
            {
                [ dup vec2d? ]
                [
                    normalize double-2{ 1.0 -1.0 } v*
                    { 1 0 } vshuffle
                ]
            }
            { [ dup vec3d? ] [ normalize normal ] }
        } cond
    ] gml-primitive ;