Something went wrong. Try again.
A ray tracer in Coalton
Something went wrong. Try again.
1234567891011121314151617181920(cl:defpackage #:ray/ray (:use #:coalton #:coalton-prelude) (:local-nicknames (#:vec #: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 vec:Vec3) (:direction vec:Vec3)) (declare ray-at (Ray * F64 -> vec:Vec3)) (define (ray-at (Ray origin direction) t) (vec:vec-add origin (vec:vec-mul-scalar direction t))))