Plain Hunt on 4 bells (minimus)

plain-hunt-on-4.rb

# Plain hunt minimus (on 4)

use_synth :dull_bell
minimus = [:F5, :E5, :D5, :C5]

define :round do |c|
  4.times do |change|
    puts "Change #{change}"
    for i in 0..3
      play c[i], release: 2
      sleep 0.3
    end
  sleep 0.05
  end
end

define :change do |c|
  for i in 0..3
    play c[i], release: 2
    sleep 0.3
  end
  sleep 0.05
end

define :pswitch do |m|
  puts "p switch"
  m.insert(0,m.delete_at(1))
  change m
end

define :qswitch do |m|
  puts "q switch"
  m.insert(2,m.delete_at(3))
  change m
end

define :rswitch do |m|
  puts "r switch"
  m.insert(1,m.delete_at(2))
  change m
end

define :sswitch do |m|
  puts "s switch"
  m.insert(0,m.delete_at(1))
  m.insert(2,m.delete_at(3))
  change m
end

#start ringing
round minimus
3.times do
  3.times do
    sswitch minimus
    rswitch minimus
  end
  sswitch minimus
  pswitch minimus
end
round minimus