(cl:defpackage #:ray/sphere
               (:use #:coalton #:coalton-prelude)
               (:local-nicknames (#:v #:ray/vec3)
                                 (#:c #:ray/color)
                                 (#:h #:ray/hittable)
                                 (#:r #:ray/ray)
                                 (#:m #:ray/material))
               (:export #:Sphere))

(cl:in-package #:ray/sphere)

(cl:declaim (cl:optimize (cl:speed 3) (cl:safety 0) (cl:debug 0)))

(coalton-toplevel
  (define-type Sphere
    (Sphere v:Vec3 F64 m:Material))
  

)