smf 0.15.12

data/sample/smf2xml.rb

@@ -0,0 +1,27 @@
+#! /usr/bin/env ruby
+
+# smf2xml.rb: Written by Tadayoshi Funaba 2004-2006
+# $Id: smf2xml.rb,v 1.3 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf'
+require 'smf/toy/xml'
+require 'gopt'
+include  SMF
+
+def usage
+  warn 'usage: smf2xml [-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') + '.xml' if ifile
+ofile = nil if ofile == '-'
+
+sq = unless ifile then Sequence.read($stdin) else Sequence.load(ifile) end
+unless ofile then sq.write_xml($stdout) else sq.save_xml(ofile) end

data/sample/split.rb

@@ -0,0 +1,40 @@
+#! /usr/bin/env ruby
+
+# split.rb: Written by Tadayoshi Funaba 1999-2006
+# $Id: split.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: split [-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') + '-split.mid' if ifile
+ofile = nil if ofile == '-'
+
+sq = unless ifile then Sequence.read($stdin) else Sequence.load(ifile) end
+nsq = Sequence.new(1, sq.division)
+eot = []
+sq.each do |tr|
+  tr.divert(nsq) do |ev|
+    case ev
+    when EndOfTrack; eot << ev; nil
+    when ChannelMessage; ev.ch + 1
+    else; 0
+    end
+  end
+end
+max = eot.max unless eot.empty?
+nsq.each{|tr| tr << max}
+unless ofile then nsq.write($stdout) else nsq.save(ofile) end

data/sample/stt-samp.rb

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

data/sample/stt.rb

@@ -0,0 +1,36 @@
+#! /usr/bin/env ruby
+
+# stt.rb: Written by Tadayoshi Funaba 2005,2006
+# $Id: stt.rb,v 1.4 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf/toy/macro/stt'
+require 'gopt'
+include SMF
+
+def usage
+  warn 'usage: stt [-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, '.stt') + '.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 = STT.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/text2smf.rb

@@ -0,0 +1,28 @@
+#! /usr/bin/env ruby
+
+# text2smf.rb: Written by Tadayoshi Funaba 2001-2006
+# $Id: text2smf.rb,v 1.5 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf'
+require 'smf/toy/text'
+require 'gopt'
+include  SMF
+
+def usage
+  warn 'usage: text2smf [-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, '.txt') + '.mid' if ifile
+ofile = nil if ofile == '-'
+
+sq = unless ifile
+     then Sequence.read_text($stdin) else Sequence.load_text(ifile) end
+unless ofile then sq.write($stdout) else sq.save(ofile) end

data/sample/velcomp.rb

@@ -0,0 +1,45 @@
+#! /usr/bin/env ruby
+
+# velcomp.rb: Written by Tadayoshi Funaba 2005,2006
+# $Id: velcomp.rb,v 1.3 2006-11-10 21:57:06+09 tadf Exp $
+
+require 'smf'
+require 'smf/toy/velcomp'
+require 'gopt'
+include  SMF
+
+def usage
+  warn 'usage: velcomp [-o output] [-g gain] [-t thresh] [-r ratio] [input]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('o:g:t:r:')
+usage unless $*.size >= 0 && $*.size <= 1
+
+ifile = $*.shift
+ifile = nil if ifile == '-'
+
+ofile = opt[:o] if opt[:o]
+ofile ||= File.basename(ifile, '.mid') + '-velcomp.mid' if ifile
+ofile = nil if ofile == '-'
+
+g = (opt[:g] || '0').to_f
+t = (opt[:t] || '80').to_f
+r = (opt[:r] || '0.9').to_f
+
+sq = unless ifile then Sequence.read($stdin) else Sequence.load(ifile) end
+vc = VelComp.new
+vc.gain = g
+vc.thresh = t
+vc.ratio = r
+
+sq.each do |tr|
+  tr.pop
+  tr.each do |ev|
+    case ev
+    when NoteOn
+      vc.velcomp(ev)
+    end
+  end
+end
+unless ofile then sq.write($stdout) else sq.save(ofile) end

data/sample/virtual-samp.rb

@@ -0,0 +1,19 @@
+#! /usr/bin/env ruby
+
+# virtual-samp.rb: Written by Tadayoshi Funaba 2005
+# $Id: virtual-samp.rb,v 1.1 2005-07-17 17:16:18+09 tadf Exp $
+
+require 'smf'
+require 'smf/toy/virtual'
+include  SMF
+
+sq = VirtualSequence.load('bwv772.mid')
+sq.each do |tr|
+  tr.each do |ev|
+    case ev
+    when VirtualNote
+      ev.length /= 2
+    end
+  end
+end
+sq.save('virtual-samp.mid')

data/sample/xml2smf.rb

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

metadata

@@ -0,0 +1,128 @@
+--- !ruby/object:Gem::Specification 
+name: smf
+version: !ruby/object:Gem::Version 
+  version: 0.15.12
+platform: ruby
+authors: 
+- Tadayoshi Funaba
+autorequire: smf
+bindir: bin
+cert_chain: []
+
+date: 2008-11-12 00:00:00 +09:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: gopt
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+description: 
+email: tadf@funaba.org
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- MANUAL
+- MANUAL.en
+- MANUAL.en.html
+- MANUAL.en.rd
+- MANUAL.html
+- MANUAL.rd
+- README
+- README.en
+- lib/smf.rb
+- lib/smf/divert.rb
+- lib/smf/io.rb
+- lib/smf/toy/beatmap.rb
+- lib/smf/toy/gm.rb
+- lib/smf/toy/groove.rb
+- lib/smf/toy/macro.rb
+- lib/smf/toy/macro/mml.rb
+- lib/smf/toy/macro/mml/parser.rb
+- lib/smf/toy/macro/mml/parser.ry
+- lib/smf/toy/macro/stt.rb
+- lib/smf/toy/morse.rb
+- lib/smf/toy/quantize.rb
+- lib/smf/toy/rmi.rb
+- lib/smf/toy/searchsegment.rb
+- lib/smf/toy/shuffle.rb
+- lib/smf/toy/tempomap.rb
+- lib/smf/toy/text.rb
+- lib/smf/toy/velcomp.rb
+- lib/smf/toy/virtual.rb
+- lib/smf/toy/xml.rb
+- sample/Makefile
+- sample/bwv772.mid
+- sample/bwv772.mml
+- sample/bwv775.mid
+- sample/bwv775.mml
+- sample/bwv787.mid
+- sample/bwv787.mml
+- sample/groove.grv
+- sample/groove.rb
+- sample/ltvddpd2.mid
+- sample/ltvddpd2.stt
+- sample/merge.rb
+- sample/mml-samp.rb
+- sample/mml.rb
+- sample/morse-samp.rb
+- sample/morse.rb
+- sample/play-oss.rb
+- sample/play-oss2.rb
+- sample/play-oss3.rb
+- sample/play-spkr.rb
+- sample/play-win.rb
+- sample/quantize.rb
+- sample/rand1.rb
+- sample/rand2.rb
+- sample/rmi2smf.rb
+- sample/shuffle.rb
+- sample/smf2rmi.rb
+- sample/smf2smf.rb
+- sample/smf2text.rb
+- sample/smf2wav.rb
+- sample/smf2xml.rb
+- sample/split.rb
+- sample/stt-samp.rb
+- sample/stt.rb
+- sample/text2smf.rb
+- sample/velcomp.rb
+- sample/virtual-samp.rb
+- sample/xml2smf.rb
+has_rdoc: false
+homepage: http://www.funaba.org/en/ruby.html
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: tadf
+rubygems_version: 1.3.1
+signing_key: 
+specification_version: 2
+summary: SMF is a "Standard MIDI File" module for an object-oriented scripting language Ruby.
+test_files: []
+