From 3a1cbfe23a3d06c3c30828c623a089868cff0670 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 2 Oct 2016 15:34:27 +0200
Subject: Add saw-tooth move and multiple moves per level

---
 src/Utils/Color.elm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 src/Utils/Color.elm

(limited to 'src/Utils/Color.elm')

diff --git a/src/Utils/Color.elm b/src/Utils/Color.elm
new file mode 100644
index 0000000..f9e344f
--- /dev/null
+++ b/src/Utils/Color.elm
@@ -0,0 +1,23 @@
+module Utils.Color exposing
+  ( merge
+  , spin
+  )
+
+import Color as Color exposing (Color)
+
+merge : Float -> Color -> Color -> Color
+merge ratio c1 c2 =
+  let rgb1 = Color.toRgb c1
+      rgb2 = Color.toRgb c2
+      mergePartFloat x y = ratio * x + (1 - ratio) * y
+      mergePartInt x y = truncate <| ratio * (toFloat x) + (1 - ratio) * (toFloat y)
+  in  Color.rgba
+        (mergePartInt rgb1.red rgb2.red)
+        (mergePartInt rgb1.green rgb2.green)
+        (mergePartInt rgb1.blue rgb2.blue)
+        (mergePartFloat rgb1.alpha rgb2.alpha)
+
+spin : Float -> Color -> Color
+spin d color =
+  let { hue, saturation, lightness, alpha } = Color.toHsl color
+  in  Color.hsla (hue + degrees d) saturation lightness alpha
-- 
cgit v1.2.3