gml-putZ ( 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
sequences ;

IN: gml.coremath

: gml-putZ ( registers gml -- registers gml )
    { gml } declare 2 1
    [ { { [ over vec3d? ] [ [ first2 ] dip <vec3d> ] } } cond ]
    gml-primitive ;