normal-noise-map ( seed: integer dim -- bytes )

Vocabulary

noise

Inputs

seed	an integer
dim	an object

Outputs

bytes

an object

Definition

USING: alien.data.map.private byte-arrays generalizations kernel
math math.vectors math.vectors.conversion math.vectors.simd
random sequences typed ;

IN: noise

TYPED: normal-noise-map ( seed: integer dim -- bytes )
    [ product normal-noise-count * random-bytes >byte-array ]
    curry with-seed [
        [
            short-8{ 0 0 0 0 0 0 0 0 }
            short-8{ 0 0 0 0 0 0 0 0 }
        ] normal-noise-count ndip
        [ uchar-16 short-8 vconvert [ v+ ] bi-curry@ bi* ]
        normal-noise-count napply
        [ normal-noise-pow vrshift ] bi@
        short-8 uchar-16 vconvert
    ] { { uchar-16 normal-noise-count } } { uchar-16 } data-map
    ; inline