create-group ( level c r -- scene )

Vocabulary

benchmark.raytracer-simd

Inputs

level	an object
c	an object
r	an object

Outputs

scene

an object

Definition

USING: generalizations kernel make sequences ;

IN: benchmark.raytracer-simd

: create-group ( level c r -- scene )
    2dup create-bound [
        2dup <sphere> , create-offsets [ create-step , ] 3 nwith
        each
    ] make-group ;