sphere-d ( sphere b v -- d )


Vocabulary
benchmark.raytracer

Inputs
spherean object
ban object
van object


Outputs
dan object


Definition
USING: accessors kernel math math.vectors ;

IN: benchmark.raytracer

: sphere-d ( sphere b v -- d )
[ radius>> sq ] [ sq ] [ norm-sq ] tri* - + ; inline