gml-neg ( 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 math.vectors ;

IN: gml.coremath

: gml-neg ( registers gml -- registers gml )
    { gml } declare 1 1 [
        {
            { [ dup integer? ] [ neg ] }
            { [ dup float? ] [ neg ] }
            { [ dup vec2d? ] [ vneg ] }
            { [ dup vec3d? ] [ vneg mask-vec3d ] }
        } cond
    ] gml-primitive ;