smf 0.15.12

data/sample/groove.rb

@@ -0,0 +1,45 @@
+#! /usr/bin/env ruby
+
+# groove.rb: Written by Tadayoshi Funaba 2005,2006
+# $Id: groove.rb,v 1.3 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf'
+require 'smf/toy/groove'
+require 'gopt'
+include  SMF
+
+def usage
+  warn 'usage: groove [-o output] [-a amount] groove [input]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('o:a:')
+usage unless $*.size >= 1 && $*.size <= 2
+
+pat   = $*.shift
+
+ifile = $*.shift
+ifile = nil if ifile == '-'
+
+ofile = opt[:o] if opt[:o]
+ofile ||= File.basename(ifile, '.mid') + '-groove.mid' if ifile
+ofile = nil if ofile == '-'
+
+amount = (opt[:a] || '0.5').to_f
+
+sq = unless ifile then Sequence.read($stdin) else Sequence.load(ifile) end
+
+sp = IO.read(pat).scan(/\S+/).collect{|x| x.to_f}
+gr = Groove.new(sq.division, sp)
+gr.amount = amount
+
+sq.each do |tr|
+  tr.pop
+  tr.each do |ev|
+    case ev
+    when NoteOff, NoteOn
+      gr.groove(ev)
+    end
+  end
+end
+unless ofile then sq.write($stdout) else sq.save(ofile) end

data/sample/ltvddpd2.stt

@@ -0,0 +1,60 @@
+"sq:Les trois valses distingu\351es du pr\351cieux d\351go\373t\351 \
+II. Son binocle"
+
+{
+  ti=1,4 te=240 gm=1
+
+  q r
+}
+
+{
+  ti=1,4 te=80 pr=0 co91=96 oc=4 du=1 ve=4/10
+
+  ��'��'���������饷���饷���饷��'��'����'��'����'��'����
+
+  ����'���������饽�����ե����������ե����������ե���������������������������
+
+  ��'�饷����'��'��'��'�����'��
+
+  �åå�,�ɡ��ߡ��ɡ��ߡ��ɡ��ߡ���
+
+  �ååߥ쥽�ߥ쥽�ߥ졼
+
+  ��'��'���������饷���饷���� te*=15/16 ve*=2/3
+    �ե���'��������& ��'��������& �ɡ�''��������& �ե���''��������
+}&
+
+{
+  oc=3 du=1 ve=3/10
+
+  ��
+  �� ��'��& �ե���'�� ��' ��'��& ��'��
+  �� ��'��& �ե���'�� ��' ��'��& ��'��
+  �� ��'��& �ե���'�� ��' ��'��& ��'��
+  �� ��'��& �ե���'�� ��' ��'��& ��'��
+
+  �� ����& ���'�� �� ����& ��'��
+  �� ����& ���'�� �� ����& ��'��
+  �� ����& ���'�� �� ����& ��'��
+  �� ����& ���'�� �� ����& ��'��
+
+  �ե� ��'��& ��'�� ���� ��'��& �ե�'��
+  �ե� ��'��& ��'�� ���� ��'��& �ե�'��
+
+  {ve*=8/10 ��, �ߡ�& ������ �� �ߡ�& �顼
+            ��, �ߡ�& ������ �� �ߡ�& �顼}
+
+  �ե�, �ɡ�& �ߡ� ����, �ɡ�& �ե���
+  �ե�, �ɡ�& �ߡ� ����, �ɡ�& �ե���
+
+  �� ��'��& �ե���'�� ��' ��'��& ��'��
+  �� ��'��& �ե���'�� ��' ��'��& ��'��
+
+  ve*=2/3 ��'��������
+}
+
+{
+  ti=1,4 te=240
+
+  q r
+}

data/sample/merge.rb

@@ -0,0 +1,38 @@
+#! /usr/bin/env ruby
+
+# merge.rb: Written by Tadayoshi Funaba 1999-2006
+# $Id: merge.rb,v 1.10 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf'
+require 'smf/divert'
+require 'gopt'
+include  SMF
+
+def usage
+  warn 'usage: merge [-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') + '-merge.mid' if ifile
+ofile = nil if ofile == '-'
+
+sq = unless ifile then Sequence.read($stdin) else Sequence.load(ifile) end
+nsq = Sequence.new(0, sq.division, sq.tc)
+eot = []
+sq.each do |tr|
+  tr.divert(nsq) do |ev|
+    case ev
+    when EndOfTrack; eot << ev; nil
+    else; 0
+    end
+  end
+end
+nsq[0] << eot.max unless eot.empty?
+unless ofile then nsq.write($stdout) else nsq.save(ofile) end

data/sample/mml-samp.rb

@@ -0,0 +1,19 @@
+#! /usr/bin/env ruby
+
+# mml-samp.rb: Written by Tadayoshi Funaba 2005
+# $Id: mml-samp.rb,v 1.1 2005-07-17 17:16:18+09 tadf Exp $
+
+require 'smf/toy/macro/mml'
+include SMF
+
+sq = Sequence.new
+mm = MML.new(sq)
+mm << 'gm=1 r ch=0 pr=0'
+12.times do
+  mm << "{q c# h c# q r}&"
+  mm << "{q d# h d# q r}&"
+  mm << "{q a  h a  q r}"
+  mm << "oc += 1/12"
+end
+mm.generate
+sq.save('mml-samp.mid')

data/sample/mml.rb

@@ -0,0 +1,36 @@
+#! /usr/bin/env ruby
+
+# mml.rb: Written by Tadayoshi Funaba 1999-2006
+# $Id: mml.rb,v 1.4 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf/toy/macro/mml'
+require 'gopt'
+include SMF
+
+def usage
+  warn 'usage: mml [-o output] [-e command] [input]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('o:e:')
+usage unless $*.size >= 0 && $*.size <= 1
+
+ifile = $*.shift
+ifile = nil if ifile == '-'
+
+ofile = opt[:o] if opt[:o]
+ofile ||= File.basename(ifile, '.mml') + '.mid' if ifile
+ofile = nil if ofile == '-'
+
+so = opt[:e] if opt[:e]
+so ||= unless ifile then $stdin.read else IO.read(ifile) end
+sq = Sequence.new(1, 480)
+mm = MML.new(sq)
+mm << so
+begin
+  mm.generate
+rescue ParseError
+  warn format('%s: %s', (opt[:e] && '-e') || ifile || '(stdin)', $!)
+  exit 1
+end
+unless ofile then sq.write($stdout) else sq.save(ofile) end

data/sample/morse-samp.rb

@@ -0,0 +1,11 @@
+# morse-samp.rb: Written by Tadayoshi Funaba 2005
+# $Id: morse-samp.rb,v 1.2 2005-07-17 17:16:18+09 tadf Exp $
+
+require 'smf/toy/morse'
+include SMF
+
+sq = Sequence.new
+mo = Morse.new(sq)
+mo << 'hello world'
+mo.generate
+sq.save('morse-samp.mid')

data/sample/morse.rb

@@ -0,0 +1,31 @@
+#! /usr/bin/env ruby
+
+# morse.rb: Written by Tadayoshi Funaba 2005,2006
+# $Id
+
+require 'smf/toy/morse'
+require 'gopt'
+include SMF
+
+def usage
+  warn 'usage: morse [-o output] [-e message] [input]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('o:e:')
+usage unless $*.size >= 0 && $*.size <= 1
+
+ifile = $*.shift
+ifile = nil if ifile == '-'
+
+ofile = opt[:o] if opt[:o]
+ofile ||= File.basename(ifile, '.txt') + '.mid' if ifile
+ofile = nil if ofile == '-'
+
+so = opt[:e] if opt[:e]
+so ||= unless ifile then $stdin.read else IO.read(ifile) end
+sq = Sequence.new
+mo = Morse.new(sq)
+mo << so
+mo.generate
+unless ofile then sq.write($stdout) else sq.save(ofile) end

data/sample/play-oss.rb

@@ -0,0 +1,215 @@
+#! /usr/bin/env ruby
+
+# play-oss.rb: Written by Tadayoshi Funaba 1999-2006
+# $Id: play-oss.rb,v 1.23 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf'
+require 'smf/toy/tempomap'
+require 'gopt'
+include  SMF
+
+module SMF
+
+  class DevSeq < File
+
+    def putbuf(s)
+      @buf ||= ''
+      if @buf.size > 4096
+	dumpbuf
+      end
+      @buf << s
+    end
+
+    def dumpbuf
+      syswrite(@buf)
+      @buf = ''
+    end
+
+    EV_TIMING = 0x81
+
+    def timer_event(ev, parm)
+      putbuf([EV_TIMING, ev, 0, 0, parm].pack('C4I'))
+    end
+
+    private :timer_event
+
+    TMR_START = 4
+    TMR_STOP = 3
+    TMR_WAIT_ABS = 2
+
+    def start_timer() timer_event(TMR_START, 0) end
+    def stop_timer() timer_event(TMR_STOP, 0) end
+    def wait_time(ticks) timer_event(TMR_WAIT_ABS, ticks) end
+
+    SEQ_MIDIPUTC = 5
+
+    def midiout(device, byte)
+      putbuf([SEQ_MIDIPUTC, byte, device, 0].pack('C4'))
+    end
+
+    case RUBY_PLATFORM
+    when /freebsd/
+      SNDCTL_SEQ_CTRLRATE = 0xc0045103
+      SNDCTL_SEQ_NRMIDIS  = 0x4004510b
+      SNDCTL_MIDI_INFO = 0xc074510c
+    when /linux/
+      SNDCTL_SEQ_CTRLRATE = 0xc0045103
+      SNDCTL_SEQ_NRMIDIS  = 0x8004510b
+      SNDCTL_MIDI_INFO = 0xc074510c
+    else
+      raise 'unknown system'
+    end
+
+    def ctrlrate
+      n = [0].pack('i')
+      ioctl(SNDCTL_SEQ_CTRLRATE, n)
+      n.unpack('i')[0]
+    end
+
+    def nrmidis
+      n = [0].pack('i')
+      ioctl(SNDCTL_SEQ_NRMIDIS, n)
+      n.unpack('i')[0]
+    end
+
+    def midi_info(dev)
+      templ = 'A30x2iLix72'
+      a = [0] * 22
+      a[0] = ''
+      a[1] = dev
+      n = a.pack(templ)
+      ioctl(SNDCTL_MIDI_INFO, n)
+      n.unpack(templ)
+    end
+
+  end
+
+  class Sequence
+
+    class Play < XSCallback
+
+      def initialize(tm, num) @tm, @num = tm, num end
+
+      def header(format, ntrks, division, tc)
+	@sq = DevSeq.open('/dev/sequencer', 'w')
+	puts(@sq.midi_info(@num)[0]) if $VERBOSE
+	unless @num < @sq.nrmidis
+	  raise 'device not available'
+	end
+	@ctrlrate = @sq.ctrlrate
+      end
+
+      def track_start() @offset = 0 end
+
+      def delta(delta)
+	@start_timer ||= (@sq.start_timer; true)
+	if delta.nonzero?
+	  @offset += delta
+	  e = @tm.offset2elapse(@offset)
+	  @sq.wait_time((e * @ctrlrate).to_i)
+	end
+      end
+
+      def noteoff(ch, note, vel)
+	@sq.midiout(@num, ch | 0x80)
+	@sq.midiout(@num, note)
+	@sq.midiout(@num, vel)
+      end
+
+      def noteon(ch, note, vel)
+	@sq.midiout(@num, ch | 0x90)
+	@sq.midiout(@num, note)
+	@sq.midiout(@num, vel)
+      end
+
+      def polyphonickeypressure(ch, note, val)
+	@sq.midiout(@num, ch | 0xa0)
+	@sq.midiout(@num, note)
+	@sq.midiout(@num, val)
+      end
+
+      def controlchange(ch, num, val)
+	@sq.midiout(@num, ch | 0xb0)
+	@sq.midiout(@num, num)
+	@sq.midiout(@num, val)
+      end
+
+      def programchange(ch, num)
+	@sq.midiout(@num, ch | 0xc0)
+	@sq.midiout(@num, num)
+      end
+
+      def channelpressure(ch, val)
+	@sq.midiout(@num, ch | 0xd0)
+	@sq.midiout(@num, val)
+      end
+
+      def pitchbendchange(ch, val)
+	@sq.midiout(@num, ch | 0xe0)
+	val += 0x2000
+	lsb =  val       & 0x7f
+	msb = (val >> 7) & 0x7f
+	@sq.midiout(@num, lsb)
+	@sq.midiout(@num, 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)
+	data.each_byte do |x|
+	  @sq.midiout(@num, x)
+	end
+      end
+
+      private :exclusivefx
+
+      def exclusivef0(data)
+	@sq.midiout(@num, 0xf0)
+	exclusivefx(data)
+      end
+
+      def exclusivef7(data) exclusivefx(data) end
+
+      def result
+	@sq.dumpbuf
+	@sq.stop_timer
+	@sq.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-oss [-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)