gml-randomseed ( 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 namespaces random
random.mersenne-twister system ;

IN: gml.coremath

: gml-randomseed ( registers gml -- registers gml )
    { gml } declare 1 0 [
        dup 0 < [ drop nano-count 1000000 /i ] when
        <mersenne-twister> random-generator set
    ] gml-primitive ;