Permalink
Fetching contributors…
Cannot retrieve contributors at this time
25 lines (19 sloc) 1.16 KB
# cycle through the circle of fifths
require 'lib/archaeopteryx'
$clock = Clock.new(30)
$mutation = L{|measure| 0 == (measure - 1) % 2}
$measures = 4
@loop = Arkx.new(:clock => $clock, # rename Arkx to Loop
:measures => $measures,
:logging => false,
:evil_timer_offset_wtf => 0.2,
:generator => Mix.new(:rhythms => [Rhythm.new(:drumfile => "harmonic_cycle.rb",
:mutation => $mutation),
Rhythm.new(:drumfile => "xanadu.rb",
:mutation => L{|measure| 0 == (measure - 1) % 16}),
Rhythm.new(:drumfile => "forest_sounds.rb",
:mutation => L{|measure| 0 == (measure - 1) % 16}),
Rhythm.new(:drumfile => "ethniq.rb",
:mutation => L{|measure| 0 == (measure - 1) % 16})]))
@loop.go
# also, play random atmospheric samples