world-o-techno/world-o-techno.rb

# 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

chords = [:e1, :e2, :e3, :e4, :e5, :c2, :c3, :c4, :c5, :a1, :a2, :a3, :a4, :a5,]

define :chooseChord do |chooser|
  i = chooser % chords.size
  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
  l =  lat().abs * 10**9
  #print "latInt"
  #print l
  return l
end

define :lonInt do
  l =  lon().abs * 10**9
  #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

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

  loopChord = chooseChord( lonInt() % 656753 )
  4.times do |i|
    long = lonInt() % 100
    use_random_seed long
    4.times do
      sample :bd_fat, amp: 5
      use_random_seed lonInt() % 257867 # Use a selection of large primes to get different seeds for each loop
      4.times do
        use_synth :tb303
        play chord(loopChord, :minor).choose, attack: 0, release: 0.1, cutoff: rrand_i(50, 90) + i * 10
        sleep 0.125
      end
    end
  end

  if ! gotFix()
    return
  end

  cue :bar
  use_synth :tb303
  loopChord = chooseChord( lonInt() % 10719881 )
  8.times do |i|
    sample :bd_fat, amp: 5
    use_random_seed latInt() % 1412041
    4.times do
      gspeed = speed().modulo(1)
      #puts gspeed
      play chord(loopChord, :minor).choose, attack: 0, release: 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|
    loopChord = chooseChord( latInt() % 3101473 )
    8.times do |m|
      sample :bd_fat, amp: 5
      use_random_seed (lonInt() + latInt()) % 2256197
      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: 0.08, cutoff: rrand_i(110, 130)
        sleep 0.125
      end
    end
  end

  if ! gotFix()
    return
  end

  cue :quux
  in_thread do
    loopChord = chooseChord( lonInt() % 480967 )
    4.times do
      sample :bd_fat, amp: 5
      slat = latInt().modulo(1) + 0.1
      use_random_seed lonInt() % 9562447

      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: 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