The Lambda Lab
/
projects
/
jars.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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))
(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")))
(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)
(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)))
(define queues (install-progs core (list dwarf imp)))