                           (let* ((x (aref line 0))
                                  (y (aref line 1))
                                  (length (husl/-length-of-ray-until-intersect h-rad x y)))
-                            (message line)
                             (if (eq length nil)
                                 prev
                                 (append prev `(,length)))))
                         (husl/-get-bounds l)
-                        :initial-value '(1.7976931348623157e+308)))))
+                        :initial-value `(,cl-most-positive-float)))))
+
+;; (husl/-max-chroma-for-l-h 66.4684397846863 229.3363102843981)
 
 (defun husl/-y-to-l (y)
   "In these formulas, Yn refers to the reference white point. We are using illuminant D65, \

;;; -*- lexical-binding: t -*-

(require 'cl)

;; Constants -------------------------------------------------------------------


            husl/-m
            :initial-value [])))

;; (husl/-get-bounds 66.4684397846863)

(defun husl/-max-safe-chroma-for-l (l)
  "For given lightness, returns the maximum chroma. Keeping the chroma value \
below this number will ensure that for any hue, the color is within the RGB gamut."
