+;; (define files '("dwarf.red"))
+(define files '("imp.red" "dwarf.red"))
+
+(define progs
+ (map
+ (lambda (fname)
+ (string->prog (with-input-from-file fname read-string)))
+ files))
+
+(define colors '("red" "blue" "green" "magenta" "cyan"))
+
+(define color-map
+ (let loop ((entries '())
+ (progs-left progs)
+ (colors-left colors))
+ (if (null? progs-left)
+ entries
+ (let ((this-prog (car progs-left))
+ (this-col (car colors-left)))
+ (loop (cons (cons (prog-name this-prog) this-col) entries)
+ (cdr progs-left)
+ (cdr colors-left))))))
+
+(define vis (make-vis 640 480 8000 color-map))