UNHB/world-o-techno
10
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

tweaking chord choice

Browse source
This commit is contained in:
Richard Sewell 2015-08-20 18:48:39 +00:00
parent f01697639f
commit 03b5e0ac48
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
world-o-techno.rb
View file

@ -18,11 +18,12 @@ gps = Gps::Receiver.create('gpsd',:host => 'localhost', :port => 2947)
gps.start gps.start
# in pitch order to give a systematic variation as you move # in pitch order to give a systematic variation as you move
chords = [:e1, :c1, :a1, :e2, :c2, :a2, :e3, :c3, :a3, :e4, :c4, :a4,:e5, :c5, :a5,:e6, :c6, :a6 ] chords = [:a1, :c1, :e1, :a2, :c2, :e2, :a3, :c3, :e3, :a4, :c4, :e4 ]
define :chooseChord do |chooser| define :chooseChord do |chooser|
i = (chooser/2) % chords.size i = (chooser/5) % chords.size# about 5 feet per chord
c = chords[i];
c = chords[i];
print c print c
return c return c
end end
@ -146,7 +147,7 @@ define :playTune do
use_random_seed long use_random_seed long
4.times do 4.times do
sample :bd_fat, amp: 5 sample :bd_fat, amp: 5
loopChord = chooseChord( lonInt() % 656753 ) # Pick chord form position on each bar so we hear motion sooner loopChord = chooseChord( lonInt() % 656753 ) # Pick chord from position on each bar so we hear motion sooner
use_random_seed lonInt() % 257867 # Use a selection of large primes to get different seeds hence different tunes for each loop use_random_seed lonInt() % 257867 # Use a selection of large primes to get different seeds hence different tunes for each loop
4.times do 4.times do
use_synth :tb303 use_synth :tb303
@ -166,7 +167,7 @@ define :playTune do
8.times do |i| 8.times do |i|
sample :bd_fat, amp: 5 sample :bd_fat, amp: 5
use_random_seed latInt() % 1412041 use_random_seed latInt() % 1412041
loopChord = chooseChord( lonInt() % 10719881 ) loopChord = chooseChord( lonInt() % 656753 )
4.times do 4.times do
gspeed = speed().modulo(1) gspeed = speed().modulo(1)
#puts gspeed #puts gspeed