日々の破片

_ フィボナッチミュージック（続）

#!/usr/local/bin/ruby -Ku
begin
  require 'rjb'
  MidiSystem = Rjb::import('javax.sound.midi.MidiSystem')
rescue LoadError
  require 'java'
  MidiSystem = javax.sound.midi.MidiSystem
end
 
MAX_NOTES = 1000
 
synthesizer = MidiSystem.synthesizer
synthesizer.open
  
def fib(n, r = [0,1])
  r[n] ||= fib(n - 2, r) + fib(n - 1, r)
end
 
class  FibPlayer < Array
  def initialize(&proc)
    @hook = proc
    self[0] = 0
    self[1] = 1
  end
  alias put []=
  def []=(i, n)
    @hook.call(n) if @hook
    put(i, n)
  end
end
 
0.upto(7) do |c|
  Thread.start(synthesizer.channels[c], c) do |cha, v|
    fib(MAX_NOTES, FibPlayer.new do |n|
      cha.program_change n % 111 + v
      n %= 31
      n += 40 + v
      cha.note_on n, 50
      sleep 0.2
      cha.note_off n, 50
    end)
    Thread.main.run
  end
end
 
Thread.stop
 
synthesizer.close

rubycoさんのソースを参考に、Rjb、JRubyどちらでも動くようにしてみた(JRuby側のメソッド名のRubyizeが合ってるかどうかは不明)。

_ ブロードバンドルータ

あれからいろいろ見て回ったがというか使えばわかるが、5000円のルータは、OpenBlockSの足元にも及ばないってことが良くわかった。CPUがしょぼくてメモリーが少ない。と考えると、実にあの雷は痛い。というか、つい捨ててしまったのは実に愚かだった。修理に出すという頭が無かったのが敗因だ。新しく買うにしては、いい値段なんだよなぁ。

_ 22年

青木さんにプレゼントしたくなる栗ようかん。