Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
test OSC controller for Sonic Pi

The file index.xml is utilised by TouchOSC. save the file as index.xml then compress or zip it and rename the resulting file testControl.touchosc This file should then be opened by the free TouchOSC editor (available for Mac, PC or Linux) and sync it to the (purchased) TouchOSC app for your IOS or Android phone or tablet. Setup instructions ar contained in the article on rbnrpi.wordpress.com

<?xml version="1.0" encoding="UTF-8"?><layout version="17" mode="0" orientation="horizontal"><tabpage name="dGVzdA==" scalef="-1.0" scalet="1.0" li_t="" li_c="gray" li_s="14" li_o="false" li_b="false" la_t="" la_c="gray" la_s="14" la_o="false" la_b="false" ><control name="dm9s" x="60" y="47" w="50" h="200" color="red" scalef="0.0" scalet="1.0" osc_cs="L3Rlc3Qvc2xpZGVyL3ZvbA==" type="faderv" response="absolute" inverted="true" centered="false" ></control><control name="cGFu" x="55" y="282" w="200" h="50" color="red" scalef="-1.0" scalet="1.0" osc_cs="L3Rlc3Qvc2xpZGVyL3Bhbg==" type="faderh" response="absolute" inverted="false" centered="true" ></control><control name="cmV2ZXJi" x="195" y="46" w="50" h="200" color="red" scalef="0.0" scalet="1.0" osc_cs="L3Rlc3Qvc2xpZGVyL3JldmVyYg==" type="faderv" response="absolute" inverted="true" centered="false" ></control><control name="c2FtcGxl" x="56" y="363" w="200" h="50" color="red" scalef="0.0" scalet="1.0" type="multitoggle" number_x="4" number_y="1" ex_mode="true" local_off="false" ></control><control name="bGFiZWwx" x="43" y="17" w="80" h="25" color="red" type="labelh" text="Vm9sdW1l" size="14" background="true" outline="false" ></control><control name="bGFiZWwy" x="180" y="13" w="80" h="25" color="red" type="labelh" text="UmV2ZXJi" size="14" background="true" outline="false" ></control><control name="bGFiZWwz" x="114" y="251" w="80" h="25" color="red" type="labelh" text="UGFu" size="14" background="true" outline="false" ></control><control name="bGFiZWw0" x="114" y="335" w="80" h="25" color="red" type="labelh" text="U2FtcGxl" size="14" background="true" outline="false" ></control><control name="bGVkMQ==" x="72" y="415" w="20" h="20" color="green" scalef="0.0" scalet="1.0" osc_cs="L3Rlc3QvbGVkLzE=" type="led" ></control><control name="bGVkMg==" x="121" y="415" w="20" h="20" color="green" scalef="0.0" scalet="1.0" osc_cs="L3Rlc3QvbGVkLzI=" type="led" ></control><control name="bGVkMw==" x="170" y="415" w="20" h="20" color="green" scalef="0.0" scalet="1.0" osc_cs="L3Rlc3QvbGVkLzM=" type="led" ></control><control name="bGVkNA==" x="220" y="415" w="20" h="20" color="green" scalef="0.0" scalet="1.0" osc_cs="L3Rlc3QvbGVkLzQ=" type="led" ></control></tabpage></layout>
#testOscController.rb
#test OSC controller to adjust amp/reverb/pan/samplename
#written by Robin Newman, October 2019 to illustrate techniques
#
# NB switch OFF Enfore timing guarantees in the prefs Audio tab for this program to work
# It processes many OSC messages from slider inputs and needs some leeway to process them
#
#uses TouchOSC as input device, but should be modifiable for other OSC sources
#makes use of function parse_osc. This uses an undocumented internal function
#of Sonic Pi _event which returns full information on a given event
#Sonic Pi accepts wild cards when matching triggers from OSC messages.
#parse_osc lets you input the wild card string used, and from that to
#determine the actual OSC message which triggered the match.
#So using this you can use one live_loop to parse and deal with several similar
#events, such as those from sliders (three used here)
#or multiple switches (1 4 way togggle switch used here)
#I include a verbose version of parse_osc which prints out the data it is
#working with so you can follow the process,
#which involves Ruby string handling methods
#simply switch over which parse_osc version is uncommented to change them over
use_debug false
use_osc_logging false
use_cue_logging false
use_osc "192.168.1.218",9000 #set ip and port of TouchOSC to receive messages
#comment out ONE of the two parse_osc definitions, quiet or verbose
define :parse_osc do | path | #quiet version
v = get_event(path).to_s.split(",")[6]
if v != nil
return v[3..-2].split("/")
else
return ["Could not decipher osc path..."]
end
end
##| define :parse_osc do |path| #verbose version
##| puts "op1: #{get_event(path)}"
##| puts "op2: #{get_event(path).to_s.split(",")}"
##| v= get_event(path).to_s.split(",")[6]
##| if v != nil
##| puts "op3: #{v}"
##| puts "op4: #{v[3..-2].split("/")}"
##| return v[3..-2].split("/")
##| else
##| return ["error"]
##| end
##| end
#function switches leds on TouchOSC on/off
define :ledSwitch do |n|
in_thread do #run in a thread so as not to impact timings
#leds named from 1-4, but indices go 0-3 so add 1 to x and n
4.times do |x| #switch all leds off
osc "/test/led/"+(x+1).to_s,0
end
sleep 0.05 #makes sure touchOSC has time to respond
osc "/test/led/"+(n+1).to_s,1 #switch selected led on
end
end
#setup list of samples to use
slist=[:loop_amen,:loop_weirdo,:loop_electric,:loop_mika]
#set starting values
set :scurrent,:loop_amen #initial sample
set :sIndex,0 #index of initial sample in list
set :rv,0 #initial reverb room: size
set :pan,0 #initial pan: setting
set :vol,0.5 #initial amp: setting
#send settings to sliders and switch to initialise
osc "/test/slider/vol",0.5
osc "/test/slider/pan",0
osc "/test/slider/reverb",0
osc "/test/sample/1/1",1 #switch in vertical row 1, position 1 set to on
#start fx reverb, wrapped round all sound generation
with_fx :reverb,room: get(:rv),mix: 0.7 do |r|
#save pointer to fx reverb in :r
set :r,r
#loop to select current sample. (changes at end of current sample)
live_loop :sampleControl do
use_real_time
data = sync "/osc*/test/sample/*/*" #respond to any switch
if data==[1.0] #just get data if pushed ie 1 #filter out all but switch "on"
sn = parse_osc"/osc*/test/sample/*/*" #get actual switch pushed
puts sn #show response from osc_parse
#now choose 4th element and convert to integer. Subtract 1 to index from 0
sn=sn[3].to_i - 1
set :sIndex,sn #store sample index
set :scurrent,slist[sn] #store current sample name
puts get(:scurrent) #print current sample name selected
end
end
#loop to get and set slider data
live_loop :sliders do
use_real_time
data = sync "/osc*/test/slider/*" #respond to all sliders
slider=parse_osc "/osc*/test/slider/*"
puts slider #show response from parse_osc
slider=slider[3]
case slider
when "vol"
set :vol,data[0]
puts get(:vol)
control get(:sp),amp: 2 * get(:vol)
when "reverb"
set :rv,data[0]
puts get(:rv)
control get(:r),room: get(:rv)
when "pan"
set :pan,data[0]
puts get(:pan)
control get(:sp),pan: get(:pan)
end
end
live_loop :playSample do
#here I have used beat_stretch: opt to set all samples to 2 beats
#however will work with any sample length
sp=sample get(:scurrent),amp: 2 * get(:vol),pan: get(:pan),beat_stretch: 2
set :sp,sp
ledSwitch get(:sIndex) #switch led as sample starts playing
#change following line to sample_duration get(:scurrent)
#if not using beat_stretch
sleep 2#sample_duration get(:scurrent)
end
end #reverb
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.