From 66ddaec1b19d286c1dff1ad2f1f2bee693c1ce9e Mon Sep 17 00:00:00 2001
From: atagen <atagen@boss.co>
Date: Thu, 5 Dec 2024 19:44:46 +1100
Subject: [PATCH] filter dark colours by default

---
 lib/env.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/env.ml b/lib/env.ml
index 5072dd3..a507a9b 100644
--- a/lib/env.ml
+++ b/lib/env.ml
@@ -36,12 +36,12 @@ let permute (order : order) (colours : colour array) =
       |> map (fun index ->
              if index < clen then colours.(index) else Simple index)
   | RainbowPair ->
-      [| 0; 8; 1; 9; 3; 11; 2; 10; 6; 14; 4; 12; 5; 13; 7; 15 |] |> make_simple
+      [| 1; 9; 3; 11; 2; 10; 6; 14; 4; 12; 5; 13; 7; 15 |] |> make_simple
   | RainbowSplit ->
-      [| 0; 8; 1; 3; 2; 6; 4; 5; 9; 11; 10; 14; 12; 13; 7; 15 |] |> make_simple
+      [| 1; 3; 2; 6; 4; 5; 9; 11; 10; 14; 12; 13; 7; 15 |] |> make_simple
   | TonePair ->
       let open Seq in
-      let lows = ints 0 |> take 8 in
+      let lows = ints 1 |> take 8 in
       let highs = lows |> map (fun i -> i + 8) in
       interleave lows highs |> Array.of_seq |> make_simple
   | Straight ->