mirror of
https://github.com/c-cube/moonpool.git
synced 2025-12-06 03:05:30 -05:00
10 lines
182 B
OCaml
10 lines
182 B
OCaml
type ray = { origin: Vec3.vec3;
|
|
dir: Vec3.vec3 }
|
|
|
|
let point_at_parameter r t =
|
|
Vec3.add r.origin (Vec3.mul t r.dir)
|
|
|
|
let create o d =
|
|
{ origin = o;
|
|
dir = d }
|
|
;;
|