home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Linux / Divers / bomb.tar.gz / bomb.tar / bomb / scripts / color-cycle.scm next >
Text File  |  1998-01-15  |  309b  |  17 lines
  1. (define dur 25)
  2.  
  3. (rule rule-rd)
  4. (brain 1)
  5. (brain-shift 0)
  6. (fill fill-noise)
  7.  
  8. (let loop ((c 70)
  9.        (cc (list cmap-plain)))
  10.  
  11.        (color c)
  12.        (color-type (car cc))
  13.        (frame dur)
  14.        (if (null? (cdr cc))
  15.        (loop (+ c 1) (list cmap-plain cmap-plain cmap-path cmap-path))
  16.        (loop c (cdr cc))))
  17.