diff --git a/src/Color/OkLch.elm b/src/Color/OkLch.elm
index 5898ac7..9c4ba55 100644
--- a/src/Color/OkLch.elm
+++ b/src/Color/OkLch.elm
@@ -1,3 +1,8 @@
+{- https://oklch.com
+   Check that values are within displayable range.
+-}
+
+
 module Color.OkLch exposing (..)
 
 import Color.Interpolate as Interpolate
diff --git a/src/Draw.elm b/src/Draw.elm
index 9a63131..5af2bee 100644
--- a/src/Draw.elm
+++ b/src/Draw.elm
@@ -140,8 +140,8 @@ colorFill : Float -> String
 colorFill progress =
     OkLch.toString <|
         OkLch.interpolateLong
-            { l = 98.0, c = 0.13, h = 60.0, a = Nothing }
-            { l = 98.0, c = 0.13, h = 320.0, a = Nothing }
+            { l = 81.56, c = 0.1, h = 70.0, a = Nothing }
+            { l = 81.56, c = 0.1, h = 260.0, a = Nothing }
             progress