smf 0.15.12

data/sample/play-win.rb

@@ -0,0 +1,195 @@
+#! /usr/bin/env ruby
+
+# play-win.rb: Written by Tadayoshi Funaba 2005,2006
+# $Id: play-win.rb,v 1.4 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf'
+require 'smf/toy/tempomap'
+require 'Win32API'
+require 'gopt'
+include  SMF
+
+module SMF
+
+  class Kernel32 < Win32API
+
+    def initialize(proc, import, export)
+      super('kernel32', proc, import, export)
+    end
+
+  end
+
+  class WinMM < Win32API
+
+    def initialize(proc, import, export)
+      super('winmm', proc, import, export)
+    end
+
+  end
+
+  module WinBase
+
+    NORMAL_PRIORITY_CLASS = 0x00000020
+    IDEL_PRIORITY_CLASS = 0x00000040
+    HIGH_PRIORITY_CLASS = 0x00000080
+    REALTIME_PRIORITY_CLASS = 0x00000100
+
+    @@GetCurrentProcess = Kernel32.new('GetCurrentProcess', %w(), 'l')
+    @@SetPriorityClass = Kernel32.new('SetPriorityClass', %w(l l), 'l')
+
+    def setpriorityclass(prc=NORMAL_PRIORITY_CLASS)
+      prh = @@GetCurrentProcess.call
+      @@SetPriorityClass.call(prh, prc)
+    end
+
+    module_function :setpriorityclass
+
+  end
+
+  class DevMidiOut
+
+    @@GetNumDevs = WinMM.new('midiOutGetNumDevs', %w(), 'l')
+    @@GetDevCaps = WinMM.new('midiOutGetDevCaps', %w(l p l), 'l')
+    @@Open = WinMM.new('midiOutOpen', %w(p l l l l), 'l')
+    @@Reset = WinMM.new('midiOutReset', %w(l), 'l')
+    @@Close = WinMM.new('midiOutClose', %w(l), 'l')
+    @@ShortMsg = WinMM.new('midiOutShortMsg', %w(l l), 'l')
+    @@LongMsg = WinMM.new('midiOutLongMsg', %w(l p l), 'l')
+    @@PrepareHeader = WinMM.new('midiOutPrepareHeader', %w(l p l), 'l')
+    @@UnprepareHeader = WinMM.new('midiOutUnprepareHeader', %w(l p l), 'l')
+
+    def self.getnumdev() @@GetNumDevs.call end
+
+    def self.getdevcaps(did)
+      caps = "\000" * 52
+      @@GetDevCaps.call(did, caps, caps.size)
+      caps.unpack('S2LZ32S4L')
+    end
+
+    def initialize(did)
+      mo = "\000" * 4
+      @@Open.call(mo, did, 0, 0, 0)
+      @mo = mo.unpack('L')[0]
+    end
+
+    def reset() @@Reset.call(@mo) end
+    def close() @@Close.call(@mo) end
+    def shortmsg(msg) @@ShortMsg.call(@mo, msg) end
+
+    def longmsg(msg)
+      moh = [msg, msg.size, 0, 0, 0, 0, 0, 0, ''].pack('PL7A32')
+      @@PrepareHeader.call(@mo, moh, moh.size)
+      @@LongMsg.call(@mo, moh, moh.size)
+      @@UnprepareHeader.call(@mo, moh, moh.size)
+    end
+
+  end
+
+  class Sequence
+
+    class Timer
+
+      def initialize() @start = Time.now end
+      def elapse() Time.now - @start end
+
+    end
+
+    class Play < XSCallback
+
+      def initialize(tm, num) @tm, @num = tm, num end
+
+      def header(format, ntrks, division, tc)
+	WinBase.setpriorityclass(WinBase::HIGH_PRIORITY_CLASS)
+	ndev = DevMidiOut.getnumdev
+	puts(DevMidiOut.getdevcaps(@num)[3]) if $VERBOSE
+	unless @num < ndev
+	  raise 'device not available'
+	end
+	@mo = DevMidiOut.new(@num)
+      end
+
+      def track_start() @offset = 0 end
+
+      def delta(delta)
+	@timer ||= Timer.new
+	if delta.nonzero?
+	  @offset += delta
+	  e = @tm.offset2elapse(@offset) - @timer.elapse
+	  if e > 0
+	    sleep(e.to_f)
+	  end
+	end
+      end
+
+      def midimsg(sb, db1, db2=0)
+	@mo.shortmsg(sb | (db1 << 8) | (db2 << 16))
+      end
+
+      private :midimsg
+
+      def noteoff(ch, note, vel) midimsg(ch | 0x80, note, vel) end
+      def noteon(ch, note, vel) midimsg(ch | 0x90, note, vel) end
+
+      def polyphonickeypressure(ch, note, val)
+	midimsg(ch | 0xa0, note, val)
+      end
+
+      def controlchange(ch, num, val) midimsg(ch | 0xb0, num, val) end
+      def programchange(ch, num) midimsg(ch | 0xc0, num) end
+      def channelpressure(ch, val) midimsg(ch | 0xd0, val) end
+
+      def pitchbendchange(ch, val)
+	val += 0x2000
+	lsb =  val       & 0x7f
+	msb = (val >> 7) & 0x7f
+	midimsg(ch | 0xe0, lsb, msb)
+      end
+
+      def channelmodemessage(ch, num, val) controlchange(ch, num, val) end
+
+      private :channelmodemessage
+
+      def allsoundoff(ch) channelmodemessage(ch, 0x78, 0) end
+      def resetallcontrollers(ch) channelmodemessage(ch, 0x79, 0) end
+      def localcontrol(ch, val) channelmodemessage(ch, 0x7a, val) end
+      def allnotesoff(ch) channelmodemessage(ch, 0x7b, 0) end
+      def omnioff(ch) channelmodemessage(ch, 0x7c, 0) end
+      def omnion(ch) channelmodemessage(ch, 0x7d, 0) end
+      def monomode(ch, val) channelmodemessage(ch, 0x7e, val) end
+      def polymode(ch) channelmodemessage(ch, 0x7f, 0) end
+
+      def exclusivefx(data) @mo.longmsg(data) end
+
+      private :exclusivefx
+
+      def exclusivef0(data) exclusivefx("\xf0" + data) end
+      def exclusivef7(data) exclusivefx(data) end
+
+      def result() @mo.close end
+
+    end
+
+    def play(num=0)
+      j = join
+      tm = TempoMap.new(j)
+      WS.new(j, Play.new(tm, num)).read
+    end
+
+  end
+
+end
+
+def usage
+  warn 'usage: play-win [-d num] [input]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('d:')
+usage unless $*.size >= 0 && $*.size <= 1
+file = $*.shift
+file = nil if file == '-'
+
+num = (opt[:d] || '0').to_i
+
+sq = unless file then Sequence.read($stdin) else Sequence.load(file) end
+sq.play(num)

data/sample/quantize.rb

@@ -0,0 +1,41 @@
+#! /usr/bin/env ruby
+
+# quantize.rb: Written by Tadayoshi Funaba 1999-2006
+# $Id: quantize.rb,v 1.10 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf'
+require 'smf/toy/quantize'
+require 'gopt'
+include  SMF
+
+def usage
+  warn 'usage: quantize [-o output] [-u n/d] [input]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('o:u:')
+usage unless $*.size >= 0 && $*.size <= 1
+
+ifile = $*.shift
+ifile = nil if ifile == '-'
+
+ofile = opt[:o] if opt[:o]
+ofile ||= File.basename(ifile, '.mid') + '-quantize.mid' if ifile
+ofile = nil if ofile == '-'
+
+n, d = (opt[:u] || '1/32').split('/')
+unit = n.to_f / (d || '1').to_f
+
+sq = unless ifile then Sequence.read($stdin) else Sequence.load(ifile) end
+qu = Quantize.new(sq.division, unit)
+
+sq.each do |tr|
+  tr.pop
+  tr.each do |ev|
+    case ev
+    when NoteOn
+      qu.quantize(ev)
+    end
+  end
+end
+unless ofile then sq.write($stdout) else sq.save(ofile) end

data/sample/rand1.rb

@@ -0,0 +1,21 @@
+#! /usr/bin/env ruby
+
+require 'smf'
+include  SMF
+
+sq = Sequence.new
+tr = Track.new
+sq << tr
+tr << SequenceName.new(0, 'rand1')
+srand
+for ch in 0..7
+  offset = 0
+  for i in 0..127
+    note = rand(128)
+    vel  = rand(127) + 1
+    tr << NoteOn .new(offset, ch, note, vel)
+    offset += rand(128)
+    tr << NoteOff.new(offset, ch, note, 64)
+  end
+end
+sq.save('rand1.mid')

data/sample/rand2.rb

@@ -0,0 +1,24 @@
+#! /usr/bin/env ruby
+
+require 'smf'
+include  SMF
+
+class Array; def rand() self[Kernel.rand(self.size)] end end
+
+sq = Sequence.new
+tr = Track.new
+sq << tr
+tr << SequenceName.new(0, 'rand2')
+srand
+for ch in 0..2
+  offset = 0
+  for i in 0..127
+    note = [0, 2, 4, 5, 7, 9, 10].rand
+    note += (rand(1) + 4 + ch) * 12
+    vel  = rand(127) + 1
+    tr << NoteOn. new(offset, ch, note, vel)
+    offset += [12, 24, 48, 96, 192, 384].rand
+    tr << NoteOff.new(offset, ch, note, 64)
+  end
+end
+sq.save('rand2.mid')

data/sample/rmi2smf.rb

@@ -0,0 +1,26 @@
+#! /usr/bin/env ruby
+
+# rmi2smf.rb: Written by Tadayoshi Funaba 2001-2006
+# $Id: rmi2smf.rb,v 1.5 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf/toy/rmi'
+require 'gopt'
+
+def usage
+  warn 'usage: rmi2smf [-o output] [input]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('o:')
+usage unless $*.size >= 0 && $*.size <= 1
+
+ifile = $*.shift
+ifile = nil if ifile == '-'
+
+ofile = opt[:o] if opt[:o]
+ofile ||= File.basename(ifile, '.rmi') + '.mid' if ifile
+ofile = nil if ofile == '-'
+
+i = (unless ifile then $stdin else open(ifile) end).binmode.read
+o = SMF::RMI::rmi2smf(i)
+(unless ofile then $stdout else open(ofile, 'w') end).binmode.write(o)

data/sample/shuffle.rb

@@ -0,0 +1,43 @@
+#! /usr/bin/env ruby
+
+# shuffle.rb: Written by Tadayoshi Funaba 2005,2006
+# $Id: shuffle.rb,v 1.3 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf'
+require 'smf/toy/shuffle'
+require 'gopt'
+include  SMF
+
+def usage
+  warn 'usage: shuffle [-o output] [-u n/d] [-a amount] [input]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('o:u:a:')
+usage unless $*.size >= 0 && $*.size <= 1
+
+ifile = $*.shift
+ifile = nil if ifile == '-'
+
+ofile = opt[:o] if opt[:o]
+ofile ||= File.basename(ifile, '.mid') + '-shuffle.mid' if ifile
+ofile = nil if ofile == '-'
+
+n, d = (opt[:u] || '1/8').split('/')
+unit = n.to_f / (d || '1').to_f
+amount = (opt[:a] || '0.5').to_f
+
+sq = unless ifile then Sequence.read($stdin) else Sequence.load(ifile) end
+sh = Shuffle.new(sq.division, unit)
+sh.amount = amount
+
+sq.each do |tr|
+  tr.pop
+  tr.each do |ev|
+    case ev
+    when NoteOff, NoteOn
+      sh.shuffle(ev)
+    end
+  end
+end
+unless ofile then sq.write($stdout) else sq.save(ofile) end

data/sample/smf2rmi.rb

@@ -0,0 +1,26 @@
+#! /usr/bin/env ruby
+
+# smf2rmi.rb: Written by Tadayoshi Funaba 2001-2006
+# $Id: smf2rmi.rb,v 1.6 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf/toy/rmi'
+require 'gopt'
+
+def usage
+  warn 'usage: smf2rmi [-o output] [input]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('o:')
+usage unless $*.size >= 0 && $*.size <= 1
+
+ifile = $*.shift
+ifile = nil if ifile == '-'
+
+ofile = opt[:o] if opt[:o]
+ofile ||= File.basename(ifile, '.mid') + '.rmi' if ifile
+ofile = nil if ofile == '-'
+
+i = (unless ifile then $stdin else open(ifile) end).binmode.read
+o = SMF::RMI::smf2rmi(i)
+(unless ofile then $stdout else open(ofile, 'w') end).binmode.write(o)

data/sample/smf2smf.rb

@@ -0,0 +1,26 @@
+#! /usr/bin/env ruby
+
+# smf2smf.rb: Written by Tadayoshi Funaba 1999-2006
+# $Id: smf2smf.rb,v 1.8 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf'
+require 'gopt'
+include  SMF
+
+def usage
+  warn 'usage: smf2smf [-o output] [input]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('o:')
+usage unless $*.size >= 0 && $*.size <= 1
+
+ifile = $*.shift
+ifile = nil if ifile == '-'
+
+ofile = opt[:o] if opt[:o]
+ofile ||= File.basename(ifile, '.mid') + '-smf2smf.mid' if ifile
+ofile = nil if ofile == '-'
+
+sq = unless ifile then Sequence.read($stdin) else Sequence.load(ifile) end
+unless ofile then sq.write($stdout) else sq.save(ofile) end

data/sample/smf2text.rb

@@ -0,0 +1,27 @@
+#! /usr/bin/env ruby
+
+# smf2text.rb: Written by Tadayoshi Funaba 1999-2006
+# $Id: smf2text.rb,v 1.14 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf'
+require 'smf/toy/text'
+require 'gopt'
+include  SMF
+
+def usage
+  warn 'usage: smf2text [-o output] [input]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('o:')
+usage unless $*.size >= 0 && $*.size <= 1
+
+ifile = $*.shift
+ifile = nil if ifile == '-'
+
+ofile = opt[:o] if opt[:o]
+ofile ||= File.basename(ifile, '.mid') + '.txt' if ifile
+ofile = nil if ofile == '-'
+
+sq = unless ifile then Sequence.read($stdin) else Sequence.load(ifile) end
+unless ofile then sq.write_text($stdout) else sq.save_text(ofile) end

data/sample/smf2wav.rb

@@ -0,0 +1,123 @@
+#! /usr/bin/env ruby
+
+# smf2wav.rb: Written by Tadayoshi Funaba 1999-2006
+# $Id: smf2wav.rb,v 1.20 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf'
+require 'smf/toy/tempomap'
+require 'gopt'
+include  SMF
+
+module SMF
+
+  class Wave
+
+    def initialize(rate=8000)
+      @rate = rate
+      @wave = []
+    end
+
+    def sin(start, stop, freq, amp)
+      (start..stop).each do |i|
+	r = amp * Math.sin(2 * Math::PI * freq * (i.to_f / @rate))
+	@wave[i] ||= 0.0
+	@wave[i] += r
+      end
+    end
+
+    def dump
+      out = [ 'RIFF', @wave.length + 36, 'WAVE', 'fmt', 16, 1, 1, @rate, @rate,
+	1, 8, 'data', @wave.length].pack('A4 V A4 A4 V v v V V v v A4 V')
+      @wave.collect!{|x| x || 0.0}
+      peak = @wave.max
+      @wave.each_with_index do |x, i|
+	@wave[i] = 128 + (127 * x / peak).round
+      end
+      out << @wave.pack('C*')
+      out
+    end
+
+  end
+
+  class Sequence
+
+    class EncodeWav < XSCallback
+
+      FREQ = []
+      (0..127).each do |n|
+	FREQ << 440 * 2**((n-69.0)/12)
+      end
+
+      def initialize(tm)
+	@tm = tm
+	@rate = 8000
+	@wave = Wave.new(@rate)
+      end
+
+      def track_start
+	@offset = 0
+	@noteon = []
+      end
+
+      def delta(delta) @offset += delta end
+
+      def noteoff(ch, note, vel)
+	return if ch == 9	# GM perc.
+	val = (@noteon[ch] || {}).delete(note)
+	if val
+	  start, vel = val
+	  @wave.sin(pos(start), pos(@offset), FREQ[note], vel)
+	end
+      end
+
+      def noteon(ch, note, vel)
+	return if ch == 9	# GM perc.
+	@noteon[ch] ||= {}
+	@noteon[ch][note] ||= [@offset, vel]
+      end
+
+      def pos(offset)
+	e = @tm.offset2elapse(offset)
+	(e * @rate).round
+      end
+
+      def result() @wave.dump end
+
+    end
+
+    def encode_wav
+      tm = TempoMap.new(self)
+      self.class::WS.new(self, self.class::EncodeWav.new(tm)).read
+    end
+
+    def write_wav(io)
+      io.binmode.write(encode_wav)
+    end
+
+    def save_wav(fn)
+      open(fn, 'w') do |io|
+	write_wav(io)
+      end
+    end
+
+  end
+
+end
+
+def usage
+  warn 'usage: smf2wav [-o output] [input]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('o:')
+usage unless $*.size >= 0 && $*.size <= 1
+
+ifile = $*.shift
+ifile = nil if ifile == '-'
+
+ofile = opt[:o] if opt[:o]
+ofile ||= File.basename(ifile, '.mid') + '.wav' if ifile
+ofile = nil if ofile == '-'
+
+sq = unless ifile then Sequence.read($stdin) else Sequence.load(ifile) end
+unless ofile then sq.write_wav($stdout) else sq.save_wav(ofile) end