create-group ( level c r -- scene )

Vocabulary

benchmark.raytracer

Inputs

level	an object
c	an object
r	an object

Outputs

scene

an object

Definition

USING: kernel make ;

IN: benchmark.raytracer

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