Maps S2E1: Found Shapes

maps_s2e1.lua

-- found shapes

-- setup
mys = sequins{0,2,4,7,9}
myt = sequins{1,1,1,1/2,1/2}
function time_fn()
	while true do
		clock.sync(myt())
		nn()
	end
end

function nn()
	ii.wsyn.play_note(mys()/12, 0.9)
end

-- runtime!
clock.run(time_fn)

-- 2 arps
M9 = sequins{0,4,7,11,14}
m11 = sequins{0,3,7,10,14,17}

-- meta-sequencer
META = sequins{ M9:count(16), m11:count(16) }


-- tool sequence
sequins{0,-12,0,-12,0, sequins{12,10,7,5,2} }

-- every nth
sequins{0,7,2,9, sequins{4}:every(8)}


-- sequinsing sequins
:step(s{ s{1}:count(16)
       , s{-1}:count(8)
       })

clock.run(
	function()
		output[2].slew = 5
		SPT = sequins{2.5, 5}
		SPV = sequins{5,-5,0}
		while true do
			clock.sleep(SPT())
			output[2].volts = SPV()
		end
	end)

C1 = {0,6,11,16} -- major lydian
C2 = {-3,2,7,12} -- ?
C3 = {-1,2,9,18}

function receive_chord(chord)
	for k,v in ipairs(chord) do
		ii.wsyn.play_note(v/12, 0.7)
	end
end