From 6bea4678ff65ff5ecf8b256663acbc4f997b2aa8 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Thu, 7 Jul 2022 12:53:11 +0200
Subject: Fix palette:

Looks like the colors were unpacked incorrectly after the changes and
red and blue where inverted.
---
 bytepusher.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bytepusher.scm b/bytepusher.scm
index b8e0bc3..f28b961 100644
--- a/bytepusher.scm
+++ b/bytepusher.scm
@@ -72,9 +72,9 @@
 (define (pixel->color pixel)
   (if (> pixel 216)
     0
-    (let* ((b (modulo pixel 6))
+    (let* ((r (modulo pixel 6))
            (g (modulo (/ (- pixel (modulo pixel  6))  6) 6))
-           (r (modulo (/ (- pixel (modulo pixel 36)) 36) 6)))
+           (b (modulo (/ (- pixel (modulo pixel 36)) 36) 6)))
       (+ #xFF (ash (* #x33 (+ (ash r 16) (ash g 8) b)) 8)))))
 
 (define colormap
-- 
cgit v1.2.3