gml-planemul ( registers gml -- registers gml )

Vocabulary

gml.coremath

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: gml.runtime kernel kernel.private math.vectors sequences
;

IN: gml.coremath

: gml-planemul ( registers gml -- registers gml )
    { gml } declare 3 1
    [ first2 [ v*n ] bi-curry@ bi* v+ ] gml-primitive ;