cast-ray ( ray scene -- g )

Vocabulary

benchmark.raytracer

Inputs

ray	an object
scene	an object

Outputs

g

an object

Definition

USING: accessors kernel math ;

IN: benchmark.raytracer

: cast-ray ( ray scene -- g )
    2dup initial-intersect dup lambda>> 1/0. =
    [ 3drop 0.0 ] [
        [ sray-intersect lambda>> 1/0. = ] keep swap
        [ ray-g neg ] [ drop 0.0 ] if
    ] if ; inline