日々の破片

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

やってみた。

#!/usr/local/bin/ruby -Ku
require 'rjb'     #JRubyじゃなくてrjbを使うのはおれにとっては自然
 
def fib(n)         #遅い
  if n<2
    n
  else
    fib(n-2)+fib(n-1)
  end
end
 
MidiSystem = Rjb::import('javax.sound.midi.MidiSystem')
synthesizer = MidiSystem.getSynthesizer()   #システム既定のシンセサイザー
synthesizer.open
channels = synthesizer.getChannels()        #16チャネルとか32チャネルとかある。多声を使うなら使える。
cha = channels[0]                           #とりあえずモノフォニーでいいや
 
p = 56
if ARGV.size > 0
  p = ARGV[0].to_i
end
cha.programChange(p)                         #1-128でプリセットされた音色を選択
 
s = 1
1.upto(30) do |n|
  x = fib(n)
  cha.noteOff(s)                             #指定音高の停止
  puts x
  x %= 19                                    #レンジを絞る
  x += 40                                    #下駄を履かせる（西尾さんの真似。というか全部真似だけど）
  cha.noteOn(x, 50)                          #音高、音量。音高は0−127。60がMid C
  s = x
  sleep(0.2)
end
 
synthesizer.close

追記：フィボナッチ数列を実際に音の動きとして示すことのおもしろさは、西尾さんがLL魂のJythonのデモで示したものです。あまりのおもしろさに、まねしてRubyでやってみました。西尾さん、おもしろいプログラム、どうもありがとうございます。

_ ぼそ

慣用表現というものが世の中にはあって、たとえば、風が吹けば桶屋が儲かるとか。もちろん、風が吹いても桶屋にはびた一文たりとも落ちないわけだが。

_ びた一文

びた一銭じゃないわけだが、びたってなんだろう？ ぴったりがなまったわけじゃなさそうだし。ぴったり一文も負けないじゃおかしいしな。鐚って漢字があるが、これかな？ （そうらしい。びたせんという粗悪な銭。アルミ一円負からないという感じかなぁ）

_ モノフォニ

同一チャネルで同時発声できるから、あくまでも音色の領域。音相の分離とかモジュール分け用。

_ fib

遅いじゃなくておれの使い方がばかなのか。

後で直す。

_ fib(続き)

これなら速い。

def fib(n, r = [0,1])
  r[n] ||= fib(n - 2, r) + fib(n - 1, r)
end
 
class Array
  alias put []=
  def []=(i, n)
    puts n
    put(i, n)
  end
end
 
fib(ARGV[0].to_i)