create-step ( level c r d -- scene )

Vocabulary

benchmark.raytracer

Inputs

level	an object
c	an object
r	an object
d	an object

Outputs

scene

an object

Definition

USING: kernel math ;

IN: benchmark.raytracer

: create-step ( level c r d -- scene )
    over [ create-center ] dip 2.0 / [ 1 - ] 2dip create ;