create-offsets ( quot -- )

Vocabulary

benchmark.raytracer

Inputs

quot

an object

Outputs

None

Definition

USING: kernel sequences
specialized-arrays.instances.alien.c-types.double ;

IN: benchmark.raytracer

: create-offsets ( quot -- )
    {
        double-array{ -1.0 1.0 -1.0 }
        double-array{ 1.0 1.0 -1.0 }
        double-array{ -1.0 1.0 1.0 }
        double-array{ 1.0 1.0 1.0 }
    } swap each ; inline