gml-scalar-op ( a b scalar-quot mixed-quot vector-quot -- c )


Vocabulary
gml.coremath

Inputs
aan object
ban object
scalar-quotan object
mixed-quotan object
vector-quotan object


Outputs
can object


Definition
USING: combinators gml.types kernel math ;

IN: gml.coremath

: gml-scalar-op
( a b scalar-quot mixed-quot vector-quot -- c )
{
{ [ reach float? ] [ 2drop call ] }
{ [ reach integer? ] [ 2drop call ] }
{
[ reach vec2d? ]
[ drop nip [ scalar>vec2d ] 2dip call ]
}
{
[ reach vec3d? ]
[ drop nip [ scalar>vec3d ] 2dip call ]
}
} cond ; inline