Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

60 lines (51 sloc) 2.651 kb
require 'lib/archaeopteryx'
$clock = Clock.new(170)
$mutation = L{|measure| 0 == (measure - 1) % 2}
$measures = 4
# fruit machine
kick_loop1 = Clip.new(:controller_number => 0,
:measures => 2)
kick_loop2 = Clip.new(:controller_number => 1,
:measures => 2)
hit_the_button = Clip.new(:controller_number => 2,
:measures => 8)
foolish_boy = Clip.new(:controller_number => 3,
:measures => 4)
running_like_a_steam_train = Clip.new(:controller_number => 4,
:measures => 4)
ka_ka_kaching_boy = Clip.new(:controller_number => 5,
:measures => 4)
guitar_ending = Clip.new(:controller_number => 6,
:measures => 4)
fruit_machine = Track.new(:rhythms => [kick_loop1,
kick_loop2,
hit_the_button,
foolish_boy,
running_like_a_steam_train,
ka_ka_kaching_boy,
guitar_ending])
# system
db_intro = Clip.new(:controller_number => 7,
:measures => 4)
db_real_kick = Clip.new(:controller_number => 8,
:measures => 4)
db_hats_pads_bass = Clip.new(:controller_number => 9,
:measures => 4)
pads_only = Clip.new(:controller_number => 10,
:measures => 4)
system = Track.new(:rhythms => [db_intro,
db_real_kick,
db_hats_pads_bass,
pads_only])
@loop = Loop.new(:clock => $clock,
:measures => $measures,
:logging => false,
:evil_timer_offset_wtf => 0.2,
:generator => Mix.new(:rhythms => [fruit_machine,
system]))
@loop.go
# this A) makes the shit stay running til it's ready B) sends stop midi message
if gets
@loop.midi.clear
@loop.midi.pulse(0, 11, 127)
end
Jump to Line
Something went wrong with that request. Please try again.