gml-putY ( 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-putY ( registers gml -- registers gml )
    { gml } declare 2 1 [
        {
            { [ over vec2d? ] [ [ first ] dip <vec2d> ] }
            {
                [ over vec3d? ]
                [
                    [ ~quotation~ ~quotation~ bi ] dip
                    swap <vec3d>
                ]
            }
        } cond
    ] gml-primitive ;