create ( level c r -- scene )

Vocabulary

benchmark.raytracer

Inputs

level	an object
c	an object
r	an object

Outputs

scene

an object

Definition

USING: kernel ;

IN: benchmark.raytracer

: create ( level c r -- scene )
    pick 1 = [ <sphere> nip ] [ create-group ] if ;