diff options
| -rw-r--r-- | bytepusher.scm | 4 |
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 |