chords in pitch order

This commit is contained in:
Richard Sewell 2015-08-16 21:01:00 +00:00
parent 5ab8abf3fc
commit f01697639f
1 changed files with 11 additions and 10 deletions

View File

@ -17,10 +17,11 @@ gps = Gps::Receiver.create('gpsd',:host => 'localhost', :port => 2947)
gps.start gps.start
chords = [:e1, :e2, :e3, :e4, :e5, :c2, :c3, :c4, :c5, :a1, :a2, :a3, :a4, :a5,] # 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 ]
define :chooseChord do |chooser| define :chooseChord do |chooser|
i = chooser % chords.size i = (chooser/2) % chords.size
c = chords[i]; c = chords[i];
print c print c
return c return c
@ -55,8 +56,8 @@ define :lat do
if gps != nil && gps.latitude != nil if gps != nil && gps.latitude != nil
l = gps.latitude l = gps.latitude
end end
print "lat" #print "lat"
print l #print l
return l return l
end end
@ -66,8 +67,8 @@ define :lon do
if gps != nil && gps.longitude != nil if gps != nil && gps.longitude != nil
l = gps.longitude l = gps.longitude
end end
print "lon" #print "lon"
print l #print l
return l return l
end end
@ -78,16 +79,16 @@ define :latInt do
# Our GPS report better resolution than that, about 10**-9 degree, but that's not very repeatable # Our GPS report better resolution than that, about 10**-9 degree, but that's not very repeatable
l = lat().abs * 300000 l = lat().abs * 300000
l = l.round l = l.round
print "latInt" #print "latInt"
print l #print l
return l return l
end end
define :lonInt do define :lonInt do
l = lon().abs * 300000 l = lon().abs * 300000
l = l.round l = l.round
print "lonInt" #print "lonInt"
print l #print l
return l return l
end end