sphere-n ( ray sphere l -- n )

Vocabulary

benchmark.raytracer

Inputs

ray	an object
sphere	an object
l	an object

Outputs

n

an object

Definition

USING: accessors kernel math.vectors ;

IN: benchmark.raytracer

: sphere-n ( ray sphere l -- n )
    [ [ orig>> ] [ dir>> ] bi ] [ center>> ] [ ] tri* swap
    [ v*n ] dip v- v+ ; inline