X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=jars.git;a=blobdiff_plain;f=mars.scm;fp=mars.scm;h=7e7334cd401d33bb4115cd956986f9e080420a6b;hp=caccfa17c17225a774171547e878c45d1efa7976;hb=0dd1d148e53122a31f3cd6f4f440f43e03ba80c5;hpb=80272dcf66d5e333302fa310c4c346d6af5d503c

diff --git a/mars.scm b/mars.scm
index caccfa1..7e7334c 100644
--- a/mars.scm
+++ b/mars.scm
@@ -356,15 +356,16 @@
                      (make-instr 'MOV 'I 'direct -2 'indirect-B -2)
                      (make-instr 'JMP 'I 'immediate -2 'immediate 0)) 1))
 
-(define w (make-wish 640 480))
-(define colours '((imp . "red")
+(define palette '((imp . "red")
                   (dwarf . "blue")))
 
+(define w (make-wish 640 480 palette))
+
 (define core (make-core (* 640 480) (make-instr 'DAT 'F 'immediate 0 'immediate 0)
                         (lambda (i n)
                           (set-wish-pixel w
                                           (remainder i 640)
                                           (quotient i 640)
-                                          (cdr (assoc n colours))))))
+                                          (cdr (assoc n palette))))))
 (define queues (install-progs core (list dwarf imp)))