atagen/culr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

filter dark colours by default

Browse Source
This commit is contained in:
atagen 2024-12-05 19:44:46 +11:00
parent f8a8e49eec
commit 66ddaec1b1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/env.ml
View File

@ -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 ->