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