Emlyn Corrin emlyn

Smoke on the Water

- Deep Purple

on Sonic Pi

A self-contained version of what I have in my sonic-pi-experiments repo. It uses my play-helper and drum sequencer helpers, so here I've pasted them into the buffer so anyone can run it.

Here's a recording of it on Soundcloud.

Install Control on your phone (for Android, but it, or something similar, is probably available for iOS).
Run it, tap on "menu", then "Destinations", and then the "+" symbol. For the destination URL enter the IP address of your computer running Sonic Pi, and for the destination port enter 5005, then click "Add".
In your terminal, run the soundboard.sh script (or just copy and paste the last line). This listens on a public port and forwards any UDP packets to Sonic Pi (because Sonic Pi only listens on localhost).
Copy and paste the soundboard.rb code into a Sonic Pi buffer and run it.
In the Control app, tap on "Interfaces" and select "Monome Emulation".
Tap the grid, and you should hear sounds.
The sliders adjust volume and low-pass cutoff.

	use_bpm 94

	live_loop :drums do
	# 1 e & a 2 e & a 3 e & a 4 e & a
	cymbal = bools(0,0,0,0, 0,1,0,1, 0,0,0,0, 0,1,0,0)
	hard = bools(0,0,0,0, 1,0,0,0, 0,0,0,0, 1,0,0,0)
	soft = bools(0,0,0,0, 0,0,0,1, 0,1,0,1, 0,0,0,1)
	kick = bools(1,0,1,0, 0,0,0,0, 0,0,1,0, 0,1,0,0)
	with_fx :reverb, room: 0.4, damp: 0.1, amp: 1.5 do
	16.times do

	define :music do \|txt, vol_scale=100\|
	octave = 5
	length = 4
	use_bpm 120
	txt = txt.downcase.gsub(/^mml@\| \|;$/, '').gsub(/#/, '+').gsub(/w/, 'r')
	while not txt.empty?
	r = txt.scan(/^(.)([+-]?)(\d)(\.?)(.)$/)
	cmd, opt, num, dot, txt = r[0]
	#print cmd, opt, num
	case cmd

	#!/usr/bin/env inlein

	'{:dependencies [[org.clojure/clojure "1.8.0"]]
	:jvm-opts []}

	;; to run, use inlein: https://github.com/hyPiRion/inlein (or paste into a repl)

	(defn primes
	"Generate a lazy infinite sequence of primes, using method from (improved to skip even numbers):
	https://web.archive.org/web/20150710134640/http://diditwith.net/2009/01/20/YAPESProblemSevenPart2.aspx"

	# Guitar Strumming - by Emlyn
	# This tries to work out the guitar (or ukulele etc.) fingering for arbitrary chords (and tuning).
	# It seems to work reasonably well for basic chords, but is quite naive and probably makes many mistakes.
	# Ideas, bug reports, fixes etc. gratefully received, just comment below, or tweet @emlyn77.
	# Feel free to make use of this code as you like (with attribution if you feel like it, but you don't have to).
	# Thanks to @Project_Hell_CK for fixing the tuning, and spotting that it gets chord(:f, :major) not quite right.

	# Next note higher or equal to base note n, that is in the chord c
	define :next_note do \|n, c\|
	# Make sure n is a number

	let tail_y = 0
	let tail_x = 0
	let head_y = 0
	let head_x = 0
	let eaten = false
	let score = 0
	let dir = 0
	let food_y = 0
	let food_x = 0
	let alive = false

	# The Secret Garden by Pauline Hall

	use_synth :saw
	use_bpm 100
	use_midi_defaults channel: 1

	# play note/chord
	define :pl do \|ns, t, p=0.8\|
	if not ns.respond_to?('each')
	ns = [ns]

	# I set myself a challenge to code a piece using only white noise.
	# White noise contains equal amounts of energy at every (audible) frequency.

	# It sounds like this:
	#synth :noise

	# Not very musical.

	# But... it contains every frequency, so every possible sound or piece of music
	# is hidden in there somewhere... you just have to filter out the parts you don't want.