Improved visualization.

[jars.git] / mars.scm

diff --git a/mars.scm b/mars.scm
index caccfa1..7e7334c 100644 (file)
--- 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)))