Something random in 23 EDO

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
3 Likes

Cool! Nasty in a good way! :slight_smile:

2 Likes

I put this into audio surf