mm-lilypond 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 6ad079b960a30f3524640a6584595d7d755af516
+  data.tar.gz: b89ab3e471ea7530c80b7c67a8fc206442472dee
+SHA512:
+  metadata.gz: c8801f4f401d22d69ebf0dcb5f0f9ac61f36760a64b1878e339243a16888fabd4bbc94f6ce7e5e63f62f4b1f107115c1cefef46248b28e781f2b81b222f9a439
+  data.tar.gz: 28f695ef56880379d3a361b0834540c080e81b22351f3ec00a3b36c32115a71dce64bb9f84557e5acf84f80c33f7f55998388eea582cccc3d53642e5f94b1c53

data/.autotest

@@ -0,0 +1,25 @@
+# -*- ruby -*-
+
+require "autotest/restart"
+
+# Autotest.add_hook :initialize do |at|
+#   at.testlib = "minitest/unit"
+#
+#   at.extra_files << "../some/external/dependency.rb"
+#
+#   at.libs << ":../some/external"
+#
+#   at.add_exception "vendor"
+#
+#   at.add_mapping(/dependency.rb/) do |f, _|
+#     at.files_matching(/test_.*rb$/)
+#   end
+#
+#   %w(TestA TestB).each do |klass|
+#     at.extra_class_map[klass] = "test/test_misc.rb"
+#   end
+# end
+
+# Autotest.add_hook :run_command do |at|
+#   system "rake build"
+# end

data/History.txt

@@ -0,0 +1,6 @@
+=== 1.0.0 / 2014-07-22
+
+* 1 major enhancement
+
+  * Birthday!
+

data/Manifest.txt

@@ -0,0 +1,8 @@
+.autotest
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+lib/mm/lilypond.rb
+test/mm/test_lilypond.rb
+test/test_template.ly.erb

data/README.txt

@@ -0,0 +1,58 @@
+= mm-lilypond
+
+* http://www.lilypond.org
+* http://www.andrewchristophersmith.com
+
+== DESCRIPTION:
+
+FIX (describe your package)
+
+== FEATURES/PROBLEMS:
+
+* FIX (list of features or problems)
+
+== SYNOPSIS:
+
+  FIX (code sample of usage)
+
+== REQUIREMENTS:
+
+* FIX (list of requirements)
+
+== INSTALL:
+
+* FIX (sudo gem install, anything else)
+
+== DEVELOPERS:
+
+After checking out the source, run:
+
+  $ rake newb
+
+This task will install any missing dependencies, run the tests/specs,
+and generate the RDoc.
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2014 FIX
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,23 @@
+# -*- ruby -*-
+
+require "rubygems"
+require "hoe"
+
+# Hoe.plugin :compiler
+# Hoe.plugin :gem_prelude_sucks
+# Hoe.plugin :inline
+# Hoe.plugin :minitest
+# Hoe.plugin :racc
+# Hoe.plugin :rcov
+# Hoe.plugin :rdoc
+# Hoe.plugin :travis
+
+Hoe.spec "mm-lilypond" do
+  developer("Andrew Smith", "andrewchristophersmith@gmail.com")
+
+  # self.group_name = "mm-lilypond" # if part of an organization/group
+
+  # license "MIT" # this should match the license in the README
+end
+
+# vim: syntax=ruby

data/lib/mm/lilypond.rb

@@ -0,0 +1,118 @@
+require 'mm'
+require 'erb'
+
+class MM::Lilypond
+  VERSION = "1.0.0"
+
+  attr_accessor :offset, :basenames, :prime_limit, :prime_steps
+
+  def initialize prime_limit: nil
+    @offset = 2 
+    @basenames = ["c", "g", "d", "a", "e", "b", 
+                  "fsharp", "csharp", "gsharp", "dsharp", "asharp", "esharp", "bsharp", 
+                  "fdoublesharp", "cdoublesharp", "gdoublesharp", "ddoublesharp", "adoublesharp", "edoublesharp", "bdoublesharp", 
+                  "fdoubleflat", "cdoubleflat", "gdoubleflat", "ddoubleflat", "adoubleflat", "edoubleflat", "bdoubleflat",
+                  "fflat", "cflat", "gflat", "dflat", "aflat", "eflat", "bflat", "f"]
+    @prime_limit = prime_limit
+    @prime_steps = [1, 4, -2, -1, 3]
+  end
+
+  def get_pitch ratio
+    basename = get_basename ratio
+    alteration = get_alteration ratio
+    octave = get_octave ratio
+    basename + alteration + octave
+  end
+
+  def get_basename ratio
+    @basenames[@offset + get_steps(ratio)].dup
+  end
+
+  def get_alteration ratio
+    ratio.factors.reject {|f| @prime_limit && f[0] > @prime_limit}.map {|f|
+      case f[0]
+      when 5
+        collect_string f[1], "f"
+      when 7
+        collect_string f[1], "s"
+      when 11
+        collect_string f[1] * -1, "e"
+      when 13
+        collect_string f[1], "t"
+      end
+    }.join("")
+  end
+
+  def get_octave ratio
+    offset = (@offset * 4) % 7
+    degrees = ratio.factors.inject(0) {|d, f|
+      d + case f[0]
+      when 2
+        f[1] * 7
+      when 3
+        f[1] * 11
+      when 5
+        f[1] * 17
+      when 7
+        f[1] * 20
+      when 11
+        f[1] * 24
+      when 13
+        f[1] * 26
+      else
+        0
+      end
+    } + offset
+    if degrees > 0
+      (degrees / 7.0).floor.times.map {"'"}.join("")
+    else
+      (degrees / -7.0).ceil.times.map {","}.join("")
+    end
+  end
+
+  def get_duration ratio
+    "1*#{ratio.reciprocal.to_s}"
+  end
+
+  def full_note ratio
+    get_pitch(ratio) + get_duration(ratio)
+  end
+
+  attr_writer :template
+
+  def render ratios
+    my_music = ratios.map {|r| self.full_note r}.join(" ")
+    output = ERB.new @template
+    output.result(binding)
+  end
+
+  private
+
+  def collect_string times, string
+    if times > 0
+      times.times.collect {"D#{string}"}
+    else
+      (times * -1).times.collect {"U#{string}"}
+    end
+  end
+
+  def get_steps ratio
+    ratio.factors.inject(0) {|memo, f|
+      memo + case f[0]
+      when 3
+        f[1] * @prime_steps[0]
+      when 5
+        f[1] * @prime_steps[1]
+      when 7
+        f[1] * @prime_steps[2]
+      when 11
+        f[1] * @prime_steps[3]
+      when 13
+        f[1] * @prime_steps[4]
+      else
+        0
+      end
+    }
+  end
+end
+

data/test/mm/test_lilypond.rb

@@ -0,0 +1,68 @@
+require "minitest/autorun"
+require "mm/lilypond"
+
+module TestMM; end
+
+class TestMM::TestLilypond < Minitest::Test
+  def setup
+    @lily_parser = MM::Lilypond.new
+  end
+
+  def test_get_duration
+    assert_equal "1*2/3", @lily_parser.get_duration(MM::Ratio.new(3,2))
+  end
+
+  def test_get_basename
+    assert_equal "e", @lily_parser.get_basename(MM::Ratio.new(9,8))
+    assert_equal "fsharp", @lily_parser.get_basename(MM::Ratio.new(5,4))
+    assert_equal "c", @lily_parser.get_basename(MM::Ratio.new(7,4))
+    assert_equal "g", @lily_parser.get_basename(MM::Ratio.new(11,8))
+  end
+
+  def test_get_alteration
+    assert_equal "Df", @lily_parser.get_alteration(MM::Ratio.new(5,4))
+    assert_equal "Ds", @lily_parser.get_alteration(MM::Ratio.new(7,4))
+  end
+
+  def test_get_octave
+    assert_equal ",,", @lily_parser.get_octave(MM::Ratio.new(1,4))
+    assert_equal "'", @lily_parser.get_octave(MM::Ratio.new(9,4))
+    assert_equal "", @lily_parser.get_octave(MM::Ratio.new(7,4))
+  end
+
+  def test_get_pitch
+    assert_equal "a", @lily_parser.get_pitch(MM::Ratio.new(3,2))
+    assert_equal "fsharpDf", @lily_parser.get_pitch(MM::Ratio.new(5,4))
+    assert_equal "cDs", @lily_parser.get_pitch(MM::Ratio.new(7,4))
+    assert_equal "cDs,", @lily_parser.get_pitch(MM::Ratio.new(7,8))
+    assert_equal "d'", @lily_parser.get_pitch(MM::Ratio.new(2,1))
+    assert_equal "d,", @lily_parser.get_pitch(MM::Ratio.new(1,2))
+  end
+
+  def test_get_full_note
+    assert_equal "d'1*1/2", @lily_parser.full_note(MM::Ratio.new(2,1))
+    assert_equal "aflatUfDs1*5/7", @lily_parser.full_note(MM::Ratio.new(7,5))
+  end
+
+  def test_render
+    @lily_parser.template = File.read("test/test_template.ly.erb")
+    exp = "music = { a1*2/3 cDs1*4/7 }\n"
+    result = @lily_parser.render([MM::Ratio.new(3,2), MM::Ratio.new(7,4)])
+    assert_equal exp, result
+  end
+
+  def test_offset
+    @lily_parser.offset = 0
+    assert_equal "c", @lily_parser.get_pitch(MM::Ratio.new(1,1))
+    assert_equal "eDf", @lily_parser.get_pitch(MM::Ratio.new(5,4))
+  end
+
+  def test_prime_limit
+    @lily_parser.prime_limit = 3
+    @lily_parser.prime_steps[3] = 6
+    assert_equal "bflat", @lily_parser.get_pitch(MM::Ratio.new(14, 9))
+    assert_equal "fsharp", @lily_parser.get_pitch(MM::Ratio.new(5, 4))
+    assert_equal "gsharp", @lily_parser.get_pitch(MM::Ratio.new(11, 8))
+  end
+end
+

data/test/test_template.ly.erb

@@ -0,0 +1 @@
+music = { <%= my_music %> }

metadata

@@ -0,0 +1,85 @@
+--- !ruby/object:Gem::Specification
+name: mm-lilypond
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+platform: ruby
+authors:
+- Andrew Smith
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2015-10-07 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rdoc
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '4.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '4.0'
+- !ruby/object:Gem::Dependency
+  name: hoe
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.14'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.14'
+description: FIX (describe your package)
+email:
+- andrewchristophersmith@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files:
+- History.txt
+- Manifest.txt
+- README.txt
+files:
+- ".autotest"
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- lib/mm/lilypond.rb
+- test/mm/test_lilypond.rb
+- test/test_template.ly.erb
+homepage: http://www.lilypond.org
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options:
+- "--main"
+- README.txt
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 4
+summary: FIX (describe your package)
+test_files: []