(define dur 25)

(rule rule-rd)
(brain 1)
(brain-shift 0)
(fill fill-noise)

(let loop ((c 70)
	   (cc (list cmap-plain)))

       (color c)
       (color-type (car cc))
       (frame dur)
       (if (null? (cdr cc))
	   (loop (+ c 1) (list cmap-plain cmap-plain cmap-path cmap-path))
	   (loop c (cdr cc))))