world-o-techno/world-o-techno.rb
2015-08-20 18:48:39 +00:00

236 lines
4.9 KiB
Ruby
Executable file

# Welcome to Sonic Pi v2.6
# world-o-techno
# Acid sample coded by Sam Aaron
# Hacked around by RS & JHR
# This file should be in /home/pi/world-o-techno so the startup script can find it
# See http://www.jarkman.co.uk/catalog/robots/worldotechno.htm and
# https://github.com/jarkman/world-o-techno for background
# GPS ruby code derived from https://github.com/ndarilek/rb-gps
#
require '/home/pi/world-o-techno/gps/gps.rb'
use_debug false
gps = Gps::Receiver.create('gpsd',:host => 'localhost', :port => 2947)
gps.start
# in pitch order to give a systematic variation as you move
chords = [:a1, :c1, :e1, :a2, :c2, :e2, :a3, :c3, :e3, :a4, :c4, :e4 ]
define :chooseChord do |chooser|
i = (chooser/5) % chords.size# about 5 feet per chord
c = chords[i];
print c
return c
end
define :gpsSatelliteCount do
s = 0;
if gps != nil && gps.satellites != nil && gps.satellites != 0
s = gps.satellites.count
end
puts "Satellites:"
puts s
return s;
end
define :gotFix do
g = false;
#print "gps in gotFix"
#print gps
if gps != nil
g = gps.latitude != nil && gps.latitude != 0
end
return g
end
define :lat do
l = 0.0
if gps != nil && gps.latitude != nil
l = gps.latitude
end
#print "lat"
#print l
return l
end
define :lon do
l = 0.0
if gps != nil && gps.longitude != nil
l = gps.longitude
end
#print "lon"
#print l
return l
end
define :latInt do
# Convert latitude to a suitable number, which will vary by about 1 for a sensible small movement
# One degree is 111325m (at the equator)
# We'd like to see about a foot, 0.3m, so we'll want a factor of 300000
# Our GPS report better resolution than that, about 10**-9 degree, but that's not very repeatable
l = lat().abs * 300000
l = l.round
#print "latInt"
#print l
return l
end
define :lonInt do
l = lon().abs * 300000
l = l.round
#print "lonInt"
#print l
return l
end
define :speed do
l = 0.0
if gps != nil && gps.speed != nil
l = gps.speed
end
return l
end
define :locationRelease do |r|
# Scale our parameter up or down by a factor of 2 depending on location
factor = (latInt() + lonInt()) % 30 # varies from 0 to 30 over distance of 10m
factor = (factor / 30) + 0.5 # varies from 0.5 to 1.5 over 10m
return r * factor
end
sleep 2
load_sample :bd_fat
load_sample :bd_boom
load_sample :bd_haus
define :playSatelliteCount do
# More satellites, more thumps, so we can hear the process of acquisition
i = 0
print ":playSatelliteCount"
4.times do
c = gpsSatelliteCount()
if i == 0
sample :bd_boom, amp:10
else
if i <= c
sample :bd_fat, amp: 6
else
sample :bd_haus, amp: 1
end
end
sleep 0.5
i = i+1
end
end
define :playTune do
print ":playTune"
cue :foo
4.times do |i|
long = lonInt() % 100
use_random_seed long
4.times do
sample :bd_fat, amp: 5
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
4.times do
use_synth :tb303
play chord(loopChord, :minor).choose, attack: 0, release: locationRelease(0.1), cutoff: rrand_i(50, 90) + i * 10
sleep 0.125
end
end
end
if ! gotFix()
return
end
cue :bar
use_synth :tb303
8.times do |i|
sample :bd_fat, amp: 5
use_random_seed latInt() % 1412041
loopChord = chooseChord( lonInt() % 656753 )
4.times do
gspeed = speed().modulo(1)
#puts gspeed
play chord(loopChord, :minor).choose, attack: 0, release: locationRelease(0.05), cutoff: rrand_i(70, 98) + i, res: gspeed
sleep 0.125
end
end
if ! gotFix()
return
end
cue :baz
with_fx :reverb, mix: 0.3 do |r|
8.times do |m|
sample :bd_fat, amp: 5
use_random_seed (lonInt() + latInt()) % 2256197
loopChord = chooseChord( latInt() % 656753 )
4.times do
control r, mix: 0.3 + (0.5 * (m.to_f / 32.0)) unless m == 0 if m % 8 == 0
use_synth :prophet
play chord(loopChord, :minor).choose, attack: 0, release: locationRelease(0.08), cutoff: rrand_i(110, 130)
sleep 0.125
end
end
end
if ! gotFix()
return
end
cue :quux
in_thread do
4.times do
sample :bd_fat, amp: 5
slat = latInt().modulo(1) + 0.1
use_random_seed lonInt() % 9562447
loopChord = chooseChord( lonInt() % 656753 )
with_fx :slicer, mix: 0.75, wave: 3, phase: slat do
4.times do
use_synth :tb303
play chord(loopChord, :major).choose, attack: 0, release: locationRelease(0.1), cutoff: rrand(50, 100)
sleep 0.25
end
end
end
end
if ! gotFix()
return
end
sleep 4
end
loop do
if gotFix()
playTune()
else
playSatelliteCount()
end
end