From 4055d656e01c4fc658afecf34ba3375e9e1a57e7 Mon Sep 17 00:00:00 2001
From: Darren Schroeder <343840+fdncred@users.noreply.github.com>
Date: Mon, 12 Apr 2021 08:56:28 -0500
Subject: [PATCH] 24bit testing

---
 coloring/24bit-1.nu | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 coloring/24bit-1.nu

diff --git a/coloring/24bit-1.nu b/coloring/24bit-1.nu
new file mode 100644
index 0000000..b2b1e8c
--- /dev/null
+++ b/coloring/24bit-1.nu
@@ -0,0 +1,39 @@
+let term_cols = $(= $(term size -w) - 1)
+
+echo 0..$term_cols |
+each {
+    let r = $(= 255 - ($it * 255 / $term_cols) | math round)
+    let g = $(= $it * 510 / $term_cols | math round)
+    let b = $(= $it * 255 / $term_cols | math round)
+    if $g > 255 {
+        let g = $(= 510 - $g)
+        echo $(build-colorstr $r $g $b) | autoview
+    } {
+        echo $(build-colorstr $r $g $b) | autoview
+    }
+}
+
+def build-colorstr [
+    r:int # Red
+    g:int # Green
+    b:int # Blue
+] {
+    # log $(build-string "R=" $r " G=" $g " B=" $b)
+    let bg = $(build-string $(ansi rgb_bg) $r ';' $g ';' $b 'm')
+    let fg = $(build-string $(ansi rgb_fg) $(= 255 - $r) ';' $(= 255 - $g) ';' $(= 255 - $b) 'm')
+    let idx = $(= $it mod 2)
+    let slash_str = $(if $idx == 0 {
+        build-string "/" $(ansi reset)
+    } {
+        build-string "\" $(ansi reset)
+    })
+    build-string $bg $fg $slash_str
+    # log $(build-string $bg $fg $slash_str | debug)
+}
+
+# This is a first attempt and some type of logging
+def log [message:any] {
+    let now = $(date now | date format '%Y%m%d_%H%M%S.%f')
+    let mess = $(build-string $now '|DBG|' $message $(char newline))
+    echo $mess | autoview
+}
\ No newline at end of file