smf 0.15.12

data/lib/smf/toy/beatmap.rb

@@ -0,0 +1,73 @@
+# beatmap.rb: Written by Tadayoshi Funaba 2005,2006
+# $Id: beatmap.rb,v 1.3 2006-11-10 21:58:21+09 tadf Exp $
+
+require 'smf/toy/searchsegment'
+require 'rational'
+
+module SMF
+
+  class BeatMap
+
+    include SearchSegment
+
+    def o2b(div, offset, sig)
+      bl = (div * 4).to_r / sig[1]
+      bar, mod = offset.divmod(bl * sig[0])
+      beat, tick = mod.divmod(bl)
+      [bar, beat, tick]
+    end
+
+    def b2o(div, bar, sig)
+      bl = (div * 4).to_r / sig[1]
+      bar[0] * (bl * sig[0]) + bar[1] * bl + bar[2]
+    end
+
+    private :o2b, :b2o
+
+    def initialize(sq)
+      @div = sq.division
+      @map = [[0, [4, 4], 1]] # [[offset, [n, d], bar]]
+      sq.each do |tr|
+	tr.each do |ev|
+	  case ev
+	  when TimeSignature
+	    offset = (ev.offset + @div / 2) / @div * @div
+	    @map << [offset, [ev.nn, 1 << ev.dd], 0]
+	  end
+	end
+      end
+      i = 0
+      @map = @map.sort_by{|x| [x[0], i += 1]}
+      lx = nil
+      @map.each do |x|
+	if lx
+	  bar, beat, tick = o2b(@div, x[0] - lx[0], lx[1])
+	  if bar == 0 && beat == 0 && tick == 0
+	    x[2] = lx[2]
+	  else
+	    x[2] = lx[2] + bar
+	  end
+	end
+	lx = x
+      end
+    end
+
+    def offset2beat(offset)
+      i = search_segment(@map){|x| x[0] <=> offset}
+      lx = @map[i]
+      bar, beat, tick = o2b(@div, offset - lx[0], lx[1])
+      bar += lx[2]
+      [bar, beat + 1, tick.round]
+    end
+
+    def beat2offset(bar)
+      i = search_segment(@map){|x| x[2] <=> bar[0]}
+      lx = @map[i]
+      bar2 = [bar[0] - lx[2], bar[1] - 1, bar[2]]
+      offset = lx[0] + b2o(@div, bar2, lx[1])
+      offset.round
+    end
+
+  end
+
+end

data/lib/smf/toy/gm.rb

@@ -0,0 +1,327 @@
+# gm.rb: Written by Tadayoshi Funaba 2005
+# $Id: gm.rb,v 1.2 2005-07-17 17:07:37+09 tadf Exp $
+
+module SMF
+
+  [ ['BankSelectMSB', 0],
+    ['ModulationDepthMSB', 1],
+    ['PortamentoTimeMSB', 5],
+    ['DataEntryMSB', 6],
+    ['ChannelVolumeMSB', 7],
+    ['PanMSB', 10],
+    ['ExpressioMSB', 11],
+    ['BankSelectLSB', 32 + 0],
+    ['ModulationDepthLSB', 32 + 1],
+    ['PortamentoTimeLSB', 32 + 5],
+    ['DataEntryLSB', 32 + 6],
+    ['ChannelVolumeLSB', 32 + 7],
+    ['PanLSB', 32 + 10],
+    ['ExpressioLSB', 32 + 11],
+    ['Hold1', 64],
+    ['PortamentoOnOff', 65],
+    ['Sostenuto', 66],
+    ['Soft', 67],
+    ['FilterResonance', 71],
+    ['ReleaseTime', 72],
+    ['AttackTime', 73],
+    ['Brightness', 74],
+    ['DecayTime', 75],
+    ['VibratoRate', 76],
+    ['VibratoDepth', 77],
+    ['VibratoDelay', 78],
+    ['ReverbSendLevel', 91],
+    ['ChorusSendLevel', 93],
+    ['RPNLSB', 100],
+    ['RPNMSB', 101]
+  ].each do |name, num|
+    module_eval <<-"end;"
+      class #{name} < ControlChange
+
+	def initialize(offset, ch, val)
+	  # val:0/2**7-1
+	  super(offset, ch, #{num}, val)
+	end
+
+      end
+    end;
+  end
+
+  [ ['PitchBendSensitivity', 0, 0],
+    ['ChannelFineTune', 1, 0],
+    ['ChannelCoarseTune', 2, 0],
+    ['ModulationDepthRange', 5, 0],
+    ['RPNNULL', 0x7f, 0x7f]
+  ].each do |name, lsb, msb|
+    module_eval <<-"end;"
+      class #{name}LSB < RPNLSB
+
+	def initialize(offset, ch)
+	  super(offset, ch, #{lsb})
+	end
+
+      end
+
+      class #{name}MSB < RPNMSB
+
+	def initialize(offset, ch)
+	  super(offset, ch, #{msb})
+	end
+
+      end
+    end;
+  end
+
+  class MasterVolume < ExclusiveF0
+
+    def initialize(offset, vol, dev=0x7f)
+      # vol:0/2**14-1
+      vl =  vol       & 0x7f
+      vm = (vol >> 7) & 0x7f
+      super(offset, [0x7f, dev, 0x04, 0x01, vl, vm, 0xf7].pack('C*'))
+    end
+
+  end
+
+  class MasterFineTuning < ExclusiveF0
+
+    def initialize(offset, val, dev=0x7f)
+      # val:-2**13/2**13-1
+      val += 0x2000
+      fl =  val       & 0x7f
+      fm = (val >> 7) & 0x7f
+      super(offset, [0x7f, dev, 0x04, 0x03, fl, fm, 0xf7].pack('C*'))
+    end
+
+  end
+
+  class MasterCoarseTuning < ExclusiveF0
+
+    def initialize(offset, cc, dev=0x7f)
+      # cc:0/2**7-1
+      super(offset, [0x7f, dev, 0x04, 0x04, 0, cc, 0xf7].pack('C*'))
+    end
+
+  end
+
+  class ReverbParameter < ExclusiveF0
+
+    def initialize(offset, pp, vv, dev=0x7f)
+      # pp:0/1, vv:0/8
+      super(offset, [0x7f, dev, 0x04, 0x05, 0x01, 0x01, 0x01, 0x01, 0x01,
+	      pp, vv, 0xf7].pack('C*'))
+    end
+
+  end
+
+  class ReverbType < ReverbParameter
+
+    def initialize(offset, vv, dev=0x7f)
+      # vv:0/8
+      super(offset, 0, vv, dev)
+    end
+
+  end
+
+  class ReverbTime < ReverbParameter
+
+    def initialize(offset, vv, dev=0x7f)
+      # vv:0/8
+      super(offset, 1, vv, dev)
+    end
+
+  end
+
+  class ChorusParameter < ExclusiveF0
+
+    def initialize(offset, pp, vv, dev=0x7f)
+      # pp:0/4, vv:0/2**7-1
+      super(offset, [0x7f, dev, 0x04, 0x05, 0x01, 0x01, 0x01, 0x01, 0x02,
+	      pp, vv, 0xf7].pack('C*'))
+    end
+
+  end
+
+  class ChorusType < ChorusParameter
+
+    def initialize(offset, vv, dev=0x7f)
+      # vv:0/5
+      super(offset, 0, vv, dev)
+    end
+
+  end
+
+  class ChorusModRate < ChorusParameter
+
+    def initialize(offset, vv, dev=0x7f)
+      super(offset, 1, vv, dev)
+    end
+
+  end
+
+  class ChorusModDepth < ChorusParameter
+
+    def initialize(offset, vv, dev=0x7f)
+      # vv:0/2**7-1
+      super(offset, 2, vv, dev)
+    end
+
+  end
+
+  class ChorusFeedback < ChorusParameter
+
+    def initialize(offset, vv, dev=0x7f)
+      # vv:0/2**7-1
+      super(offset, 3, vv, dev)
+    end
+
+  end
+
+  class ChorusSendToReverb < ChorusParameter
+
+    def initialize(offset, vv, dev=0x7f)
+      # vv:0/2**7-1
+      super(offset, 4, vv, dev)
+    end
+
+  end
+
+  class ControllerDestinationSetting < ExclusiveF0
+
+    def initialize(offset, id2, ch, pp_rr, dev=0x7f)
+      # id2:1|3, ch:0/15, pp:0/5, rr:0/2**7-1
+      super(offset, [0x7f, dev, 0x09, id2, ch, pp_rr, 0xf7].
+	      flatten.pack('C*'))
+    end
+
+  end
+
+  class CDSChannelPressure < ControllerDestinationSetting
+
+    def initialize(offset, ch, pp_rr, dev=0x7f)
+      # pp:0/5, rr:0/2**7-1
+      super(0x01, ch, pp_rr, dev)
+    end
+
+  end
+
+  class CDSControlChange < ControllerDestinationSetting
+
+    def initialize(offset, ch, pp_rr, dev=0x7f)
+      # pp:0/5, rr:0/2**7-1
+      super(0x03, ch, pp_rr, dev)
+    end
+
+  end
+
+  class ScaleTuningAdjust1ByteFormRealTime < ExclusiveF0
+
+    def initialize(offset, ch, ss, dev=0x7f)
+      # ch:0/2**16-1, ss:-2**6/2**6-1
+      ff = ch & 0x3
+      gg = (ch >> 2) & 0x7f
+      hh = (ch >> 9) & 0x7f
+      ss.collect! do |x|
+	x + 0x40
+      end
+      super(offset, [0x7f, dev, 0x08, 0x08, ff, gg, hh, ss, 0xf7].
+	      flatten.pack('C*'))
+    end
+
+  end
+
+  class ScaleTuningAdjust1ByteFormNonRealTime < ExclusiveF0
+
+    def initialize(offset, ch, ss, dev=0x7f)
+      # ch:0/2**16-1, ss:-2**6/2**6-1
+      ff = ch & 0x3
+      gg = (ch >> 2) & 0x7f
+      hh = (ch >> 9) & 0x7f
+      ss.collect! do |x|
+	x + 0x40
+      end
+      super(offset, [0x7e, dev, 0x08, 0x08, ff, gg, hh, ss, 0xf7].
+	      flatten.pack('C*'))
+    end
+
+  end
+
+  class ScaleTuningAdjust2ByteFormRealTime < ExclusiveF0
+
+    def initialize(offset, ch, ss_tt, dev=0x7f)
+      # ch:0/2**16-1, ss_tt:-2**13/2**13-1
+      ff = ch & 0x3
+      gg = (ch >> 2) & 0x7f
+      hh = (ch >> 9) & 0x7f
+      ss_tt.collect! do |x|
+	x += 0x2000
+	ss =  x       & 0x7f
+	tt = (x >> 7) & 0x7f
+	[ss, tt]
+      end
+      super(offset, [0x7f, dev, 0x08, 0x09, ff, gg, hh, ss_tt, 0xf7].
+	      flatten.pack('C*'))
+    end
+
+  end
+
+  class ScaleTuningAdjust2ByteFormNonRealTime < ExclusiveF0
+
+    def initialize(offset, ch, ss_tt, dev=0x7f)
+      # ch:0/2**16-1, ss_tt:-2**13/2**13-1
+      ff = ch & 0x3
+      gg = (ch >> 2) & 0x7f
+      hh = (ch >> 9) & 0x7f
+      ss_tt.collect! do |x|
+	x += 0x2000
+	ss =  x       & 0x7f
+	tt = (x >> 7) & 0x7f
+	[ss, tt]
+      end
+      super(offset, [0x7e, dev, 0x08, 0x09, ff, gg, hh, ss_tt, 0xf7].
+	      flatten.pack('C*'))
+    end
+
+  end
+
+  OctaveTuningAdjust1ByteFormRealTime = ScaleTuningAdjust1ByteFormRealTime
+  OctaveTuningAdjust1ByteFormNonRealTime = ScaleTuningAdjust1ByteFormNonRealTime
+  OctaveTuningAdjust2ByteFormRealTime = ScaleTuningAdjust2ByteFormRealTime
+  OctaveTuningAdjust2ByteFormNonRealTime = ScaleTuningAdjust2ByteFormNonRealTime
+
+  class KeyBasedInstrumentControllers < ExclusiveF0
+
+    def initialize(offset, ch, kk, nn_vv, dev=0x7f)
+      # kk:0/2**7-1, nn:7|10|91|93, vv:0/2**7-1
+      super(offset, [0x7f, dev, 0x0a, 0x01, ch, kk, nn_vv, 0xf7].
+	      flatten.pack('C*'))
+    end
+
+  end
+
+  class GM1SystemOn < ExclusiveF0
+
+    def initialize(offset, dev=0x7f)
+      super(offset, [0x7e, dev, 0x09, 0x01, 0xf7].pack('C*'))
+    end
+
+  end
+
+  GMSystemOn = GM1SystemOn
+
+  class GMSystemOff < ExclusiveF0
+
+    def initialize(offset, dev=0x7f)
+      super(offset, [0x7e, dev, 0x09, 0x02, 0xf7].pack('C*'))
+    end
+
+  end
+
+  class GM2SystemOn < ExclusiveF0
+
+    def initialize(offset, dev=0x7f)
+      super(offset, [0x7e, dev, 0x09, 0x03, 0xf7].pack('C*'))
+    end
+
+  end
+
+end

data/lib/smf/toy/groove.rb

@@ -0,0 +1,34 @@
+# groove.rb: Written by Tadayoshi Funaba 2005,2006,2008
+# $Id: groove.rb,v 1.3 2008-02-16 16:56:21+09 tadf Exp $
+
+require 'gsl'
+
+module SMF
+
+  class Groove
+
+    def initialize(div, pat)
+      @unit = pat[-1] * div * 4
+      x = []; y = []
+      pat.each_with_index do |p, i|
+	x << @unit / (pat.size - 1) * i
+	y << p * div * 4
+      end
+      @x = GSL::Vector.alloc(x)
+      @y = GSL::Vector.alloc(y)
+      @interp = GSL::Interp.alloc('linear', pat.size)
+      self.amount = 0.5
+    end
+
+    def amount=(v) @amount = v end
+
+    def groove(ev)
+      q, r = ev.offset.divmod(@unit)
+      r2 = @interp.eval(@x, @y, r)
+      r3 = r + (r2 - r) * @amount
+      ev.offset = (q * @unit + r3).round
+    end
+
+  end
+
+end

data/lib/smf/toy/macro.rb

@@ -0,0 +1,282 @@
+# macro.rb: Written by Tadayoshi Funaba 1999-2006
+# $Id: macro.rb,v 1.5 2006-11-10 21:58:21+09 tadf Exp $
+
+require 'smf'
+require 'smf/toy/gm'
+require 'rational'
+
+module SMF
+
+  class Sheet
+
+    def initialize(sq)
+      @sq = sq
+      @co = []
+      gt(0)
+    end
+
+    def snap(ev)
+      @co << ev
+    end
+
+    def gt(n) @sq[n] ||= Track.new end
+
+    private :gt
+
+    def re(v, l, h=nil)
+      if v && l && v < l then v = l end
+      if v && h && v > h then v = h end
+      v
+    end
+
+    private :re
+
+    def generate
+      i = 0
+      @co = @co.sort_by{|x| [x[:of], i += 1]}
+
+      i = 0
+      lev = {}
+      uniq = {}
+      @co.each do |ev|
+
+	ev.each_key do |key|
+
+	  if ev[key] == nil || ev[key] == lev[key]
+	    next
+	  end
+
+	  case key.to_s
+	  when /\A_(no|tx|ke)/
+	    k = format('%d:%s', i, key)
+	    uniq[k] = [i, key, ev]
+	  when /\A(te|ti|pp|co|mo|pr|cp|pi|gm)/
+	    k = format('%s:%s', ev[:of], key)
+	    if uniq[k]
+	      uniq[k] = [uniq[k][0], key, ev]
+	    else
+	      uniq[k] = [i, key, ev]
+	    end
+	    lev[key] = ev[key]
+	  end
+
+	  i += 1
+
+	end
+
+      end
+
+      co2 = uniq.values.sort_by{|x| x[0]}
+
+      wh = @sq.division * 4
+
+      ke = {}
+
+      co2.each do |_, key, ev|
+	tr = ev[:tr].to_i; tr = re(tr, 0, 65535) # 0/2**16-1
+	ch = ev[:ch].to_i; ch = re(ch, 0, 15)    # 0/2**4-1
+	of = ev[:of];      of = re(of, 0)
+	oc = ev[:oc]
+	le = ev[:le];      le = re(le, 0.to_r)
+	du = ev[:du];      du = re(du, 0.to_r)
+	ve = ev[:ve];      ve = re(ve, 0.to_r, 1.to_r)
+	sf, = ev[:ke];     sf ||= 0
+	v = ev[key]
+
+	case key.to_s
+
+	when '_no'
+	  t = gt(tr)
+	  o = (of * wh).round
+	  p = ((of + le * du) * wh).round
+	  na, s1, s12 = v
+	  unless s1
+	    unless ke[sf]
+	      ke[sf] = [0] * 12
+	      d = if sf < 0 then -1 else +1 end
+	      b = if d == 1 then 5 else 11 end
+	      sf.to_i.abs.times do |i|
+		n = (b + 7 * i * d) % 12
+		ke[sf][n] += d
+	      end
+	    end
+	    s1 = ke[sf][na]
+	  end
+	  s1  ||=0
+	  s12 ||=0
+	  n = (na + s1 + s12 + oc * 12 + 12).to_i
+	  if n < 0   then n =        n        % 12 end
+	  if n > 127 then n = 116 + (n - 116) % 12 end
+	  w = (ve * 127).round
+	  if w != 0
+	    t << NoteOn.new(o, ch, n, w)
+	    t << NoteOff.new(p, ch, n, 64)
+	  end
+
+	when '_tx'
+	  n = if /\A(co|sq):/ =~ v then 0 else tr end
+	  t = gt(n)
+	  o = (of * wh).round
+	  case v
+	  when /\Ate:/; t << GeneralPurposeText.new(o, $')
+	  when /\Aco:/; t << CopyrightNotice.new(o, $')
+	  when /\Asq:/; t << SequenceName.new(o, $')
+	  when /\Atr:/; t << TrackName.new(o, $')
+	  when /\Ain:/; t << InstrumentName.new(o, $')
+	  when /\Aly:/; t << Lyric.new(o, $')
+	  when /\Ama:/; t << Marker.new(o, $')
+	  when /\Acu:/; t << CuePoint.new(o, $')
+	  when /\Apr:/; t << ProgramName.new(o, $')
+	  when /\Ade:/; t << DeviceName.new(o, $')
+	  else;         t << GeneralPurposeText.new(o, v)
+	  end
+
+	when '_ke'
+	  s, m = v
+	  m ||= 0
+	  s = re(s, -128, 127) # -2**7/2**7-1
+	  m = re(m, 0, 1)      # 0/1
+	  t = gt(tr)
+	  o = (of * wh).round
+	  t << KeySignature.new(o, s.to_i, m.to_i)
+
+	when 'te'
+	  v = re(v, 1, 16777215) # 1/2**24-1
+	  t = gt(0)
+	  o = (of * wh).round
+	  t <<  SetTempo.new(o, (60000000 / v).round)
+
+	when 'ti'
+	  n, d = v
+	  d ||= 4
+	  n = re(n, 1, 255) # 1/2**8-1
+	  d = re(d, 0, 255) # 0/2**8-1
+	  t = gt(0)
+	  o = (of * wh).round
+	  n, d = n.to_i, d.to_i
+	  dd = -1
+	  while d != 0
+	    d >>= 1
+	    dd += 1
+	  end
+	  c = 96 >> dd
+	  t << TimeSignature.new(o, n, dd, c, 8)
+
+	when /\App(\d+)\/\d+\z/
+	  n = $1
+	  v = re(v, 0, 127) # 0/2**7-1
+	  t = gt(tr)
+	  o = (of * wh).round
+	  t << PolyphonicKeyPressure.new(o, ch, n.to_i, v.to_i)
+
+	when /\Aco(\d+)\/\d+\z/
+	  n = $1
+	  v = re(v, 0, 127) # 0/2**7-1
+	  t = gt(tr)
+	  o = (of * wh).round
+	  t << ControlChange.new(o, ch, n.to_i, v.to_i)
+
+	when /\Amo(\d+)\/\d+\z/
+	  n = $1
+	  v = re(v, 0, 127) # 0/2**7-1
+	  t = gt(tr)
+	  o = (of * wh).round
+	  case n.to_i
+	  when 0x78; t << AllSoundOff.new(o, ch)
+	  when 0x79; t << ResetAllControllers.new(o, ch)
+	  when 0x7a; t << LocalControl.new(o, ch, v)
+	  when 0x7b; t << AllNotesOff.new(o, ch)
+	  when 0x7c; t << OmniOff.new(o, ch)
+	  when 0x7d; t << OmniOn.new(o, ch)
+	  when 0x7e; t << MonoMode.new(o, ch, v)
+	  when 0x7f; t << PolyMode.new(o, ch)
+	  end
+
+	when /\Apr\/\d+\z/
+	  v = re(v, 0, 127) # 0/2**7-1
+	  t = gt(tr)
+	  o = (of * wh).round
+	  t << ProgramChange.new(o, ch, v.to_i)
+
+	when /\Acp\/\d+\z/
+	  v = re(v, 0, 127) # 0/2**7-1
+	  t = gt(tr)
+	  o = (of * wh).round
+	  t << ChannelPressure.new(o, ch, v.to_i)
+
+	when /\Api\/\d+\z/
+	  v = re(v, -8192, 8191) # -2**13/2**13-1
+	  t = gt(tr)
+	  o = (of * wh).round
+	  t << PitchBendChange.new(o, ch, v.to_i)
+
+	when 'gm'
+	  v = re(v, 0, 2) # 0/2
+	  t = gt(0)
+	  o = (of * wh).round
+	  case v
+	  when 0; t << GMSystemOff.new(o)
+	  when 1; t << GMSystemOn.new(o)
+	  when 2; t << GM2SystemOn.new(o)
+	  end
+
+	end
+
+      end
+
+      ev = @co[-1]
+      max_of = (if ev then ev[:of] else 0 end)
+      o = (max_of * wh).round
+      @sq.each do |tr| tr << EndOfTrack.new(o) end
+
+    end
+
+  end
+
+  class Descripter
+
+    def initialize(sh)
+      @sh = sh
+      @es = []
+      @es << {}
+      @es[-1][:tr] = 1
+      @es[-1][:ch] = 0
+      @es[-1][:of] = 0
+      @es[-1][:oc] = 4.to_r/1
+      @es[-1][:le] = 1.to_r/4
+      @es[-1][:du] = 9.to_r/10
+      @es[-1][:ve] = 3.to_r/4
+    end
+
+    def push() @es.push(@es[-1].dup) end
+    def pop() @es.pop end
+
+    def rv(k, ch)
+      k = k.to_s
+      k.gsub!(/0+(\d)/, '\1')
+      case k
+      when /\A(pp|co|mo)(\d+)\z/; k += format('/%d', ch)
+      when /\A(pr|cp|pi)\z/     ; k += format('/%d', ch)
+      end
+      k = k.intern
+    end
+
+    private :rv
+
+    def [] (k)
+      ch = @es[-1][:ch]
+      k = rv(k, ch.to_i)
+      @es[-1][k]
+    end
+
+    def []=(k, v)
+      ch = @es[-1][:ch]
+      k = rv(k, ch.to_i)
+      @es[-1][k] = v
+    end
+
+    def snap() @sh.snap(@es[-1].dup) end
+
+  end
+
+end