Something went wrong. Try again.
A ray tracer in Coalton
Something went wrong. Try again.
123456789101112131415161718192021(cl:defpackage #:ray/ray (:use #:coalton #:coalton-prelude) (:local-nicknames (#:v #:ray/vec3)) (:export #:Ray #:ray-at))
(cl:in-package #:ray/ray)
(cl:declaim (cl:optimize (cl:speed 3) (cl:safety 0) (cl:debug 0)))
(coalton-toplevel (define-struct Ray (:origin v:Vec3) (:direction v:Vec3))
(inline) (declare ray-at (v:Vec3 * v:Vec3 * F64 -> v:Vec3)) (define (ray-at origin direction t) (v:vec-add origin (v:vec-mul-scalar direction t))))