ray-o ( ray hit -- o )

Vocabulary

benchmark.raytracer

Inputs

ray	an object
hit	an object

Outputs

o

an object

Definition

USING: accessors kernel math.vectors ;

IN: benchmark.raytracer

: ray-o ( ray hit -- o )
    [ [ orig>> ] [ normal>> delta v*n ] bi* ]
    [ [ dir>> ] [ lambda>> ] bi* v*n ] 2bi v+ v+ ; inline