gml-math-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 generalizations gml.types math ;

IN: gml.coremath

: gml-math-op
( a b scalar-quot mixed-quot vector-quot -- c )
{
{ [ 5 npick float? ] [ gml-scalar-op ] }
{ [ 5 npick integer? ] [ gml-scalar-op ] }
{
[ 5 npick vec2d? ]
[
{
{ ~quotation~ ~quotation~ }
{ ~quotation~ ~quotation~ }
{ ~quotation~ ~quotation~ }
} cond
]
}
{
[ 5 npick vec3d? ]
[
{
{ ~quotation~ ~quotation~ }
{ ~quotation~ ~quotation~ }
{ ~quotation~ ~quotation~ }
} cond
]
}
} cond ; inline