シーケンスのサンプルをシンプルにしてみた

seqtest.coffee

# sequenceのサンプルコードをシンプルにしてみた
# $はグローバル変数
$pattern = [
  'x--- x--- xx-- xxx-  xxxx xxx- x-x- x-xx'
  'xxxx x--x --xx xxx-  --xx xxx- x-x- xx--'
].map (x)-> (x.replace /\s+/g, '').split '' #二次配列に切り分けてる？
 
 
synth = SynthDef (freq, dur=0.25)->
  Out.ar(0, SinOsc.ar(freq) * EnvGen.kr(Env.perc(), doneAction:2) * 0.3)
.send()
 
 
Task ->
    freqs = [60,62,64,65].midicps()
 
    Infinity.do syncblock (i)->
      switch $pattern[0].wrapAt(i)#上のパターン１列目をまわす
        when 'x' then Synth(synth, freq:freqs.wrapAt(i)) 
        #xの時に音を出しているので、文字列から音列作るとかも楽しそう
      switch $pattern[1].wrapAt(i) #上のパターン２列目
        when 'x' then Synth(synth, freq:freqs.wrapAt(i)/2) 
 
      "bpm132 l4".wait() #bpm表記と4分音符
.start()