summaryrefslogtreecommitdiff
path: root/bytepusher.scm
diff options
context:
space:
mode:
Diffstat (limited to 'bytepusher.scm')
-rw-r--r--bytepusher.scm4
1 files 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