I made this, but I’m not sure where to take it from here.
define :edx do
| mode = [2,2,1,2,2,2],
tet = 12,
equave = 2,
root = 60 |
notes = [midi_to_hz(root)]
for i in 0..(mode.length-1) do
notes = notes.append(notes[i] * equave ** (1.0*mode[i] / tet))
end
notes.ring.map { |n| hz_to_midi(n) }
end
tet = 23
equave = 2
s = edx([1]*(tet*14/(equave.to_i)), tet, equave, 16)
define :s0 do s.values_at(*line(33,114, steps: 114-33).map{|x| x.to_i}).push(:r) end
use_bpm 360 # 900 360 15
live_loop :fmbeat do
#2.times do
use_synth :fm
play_pattern(
s0.values_at(
34,34,34,34,34,34,34,34,
35,35,35,35,35,35,35,35,
34,34,34,34,34,34,34,34,
35,35,35,35,35,35,35,35,
30,30,30,30,30,30,30,30,
34,34,34,34,34,34,34,34,
30,30,30,30,30,30,30,30,
34,34,34,34,34,34,34,34,
35,35,35,35,35,35,35,35,
33,33,33,33,33,33,33,33,
30,30,30,30,30,30,30,30,
34,34,34,34,34,34,34,34,
35,35,35,35,35,35,35,35,
34,34,34,34,34,34,34,34,
30,30,30,30,30,30,30,30,
34,34,34,34,34,34,34,34,
35,35,35,35,35,35,35,35,
29,29,29,29,29,29,29,29,
33,33,33,33,33,33,33,33,
34,35,35,35,34,35,35,35,
34,35,35,35,36,35,35,35,
34,35,35,35,35,36,36,36,
35,34,34,34,-1,34,34,34,
-1,35,-1,35,-1,35,-1,35,
34,-1,34,-1,34,-1,34,-1,
28,23,28,23,28,23,28,23,
23,-1,23,-1,23,28,28,23,
28,23,28,23,28,23,28,23,
28,23,28,23,28,23,28,23,
28,23,28,23,28,23,28,23,
28,23,28,23,28,23,28,23,
28,23,28,23,28,23,28,-1,
-1,23,-1,-1,23,-1,-1,23,
24,23,24,23,24,23,24,23,
24,23,24,23,24,23,24,23,
24,23,24,23,24,23,24,23,
24,23,24,23,24,23,24,23,
24,23,24,23,24,23,24,23,
24,23,24,23,24,23,24,23,
24,23,24,23,24,23,24,27,
24,23,24,23,24,23,24,23,
24,23,24,23,24,23,24,23,
24,23,24,23,24,23,24,-1,
24,23,24,23,24,23,24,23,
24,23,24,23,24,23,24,23,
24,23,24,23,24,23,24,-1,
24,23,24,23,24,23,24,23,
30,30,30,30,30,30,30,30,
35,35,35,35,35,35,35,35,
34,34,35,34,34,35,34,34,
29,30,30,30,29,30,30,30,
33,34,34,34,33,34,34,34,
34,35,35,35,34,35,35,35,
30,30,30,30,30,30,30,30,
34,34,34,34,34,34,34,34,
35,35,35,35,35,35,37,35,
29,29,29,29,29,29,29,29,
26,23,23,26,23,23,23,26,
30,30,30,30,30,30,30,30,
32,32,32,32,32,32,32,32,
29,29,29,29,29,29,29,29,
26,26,27,26,26,26,26,26,
29,29,29,29,29,29,29,29,
30,30,30,30,30,30,30,30,
27,23,24,24,28,24,24,24,
30,30,30,30,30,30,30,30,
27,23,28,24,28,24,22,23
), cutoff: 90, divisor: 2, depth: 20, sustain: 1, amp: 1.7)
end