ray-grid ( point ss-grid -- ray-grid )


Vocabulary
benchmark.raytracer

Inputs
pointan object
ss-gridan object


Outputs
ray-gridan object


Definition
USING: kernel math.vectors sequences
specialized-arrays.instances.alien.c-types.double ;

IN: benchmark.raytracer

: ray-grid ( point ss-grid -- ray-grid )
[
[ v+ normalize double-array{ 0.0 0.0 -4.0 } swap <ray> ]
with map
] with map ;