interval-quiz 0.0.1

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 YOUR NAME
+
+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/README.mkd

@@ -0,0 +1,4 @@
+interval-quiz
+=============
+
+A gem that provides a quiz on musical intervals.

data/Rakefile

@@ -0,0 +1,55 @@
+require 'rubygems' unless ENV['NO_RUBYGEMS']
+require 'rake/gempackagetask'
+require 'rubygems/specification'
+require 'date'
+require 'spec/rake/spectask'
+
+GEM = "interval-quiz"
+GEM_VERSION = "0.0.1"
+
+spec = Gem::Specification.new do |s|
+  s.name = GEM
+  s.version = GEM_VERSION
+  s.author = "Nate Murray"
+  s.email = "nate@natemurray.com"
+  s.homepage = "http://www.xcombinator.com"
+  s.description = s.summary = "A gem that provides a quiz on musical intervals"
+  
+  s.platform = Gem::Platform::RUBY
+  s.has_rdoc = true
+  s.extra_rdoc_files = ["README.mkd", "LICENSE"]
+  s.summary = "a quiz for musical intervals"
+  s.bindir = "bin"
+  s.executables = ['interval-quiz']
+  
+  # Uncomment this to add a dependency
+  s.add_dependency "interval"
+  
+  s.require_path = 'lib'
+  s.files = %w(LICENSE README.mkd Rakefile) + Dir.glob("{lib,spec,bin}/**/*")
+end
+
+task :default => :spec
+
+desc "Run specs"
+Spec::Rake::SpecTask.new do |t|
+  t.spec_files = FileList['spec/**/*_spec.rb']
+  t.spec_opts = %w(-fs --color)
+end
+
+
+Rake::GemPackageTask.new(spec) do |pkg|
+  pkg.gem_spec = spec
+end
+
+desc "install the gem locally"
+task :install => [:package] do
+  sh %{sudo gem install pkg/#{GEM}-#{GEM_VERSION}}
+end
+
+desc "create a gemspec file"
+task :make_spec do
+  File.open("#{GEM}.gemspec", "w") do |file|
+    file.puts spec.to_ruby
+  end
+end

data/bin/interval-quiz

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+# load development libs if they exist
+[File.dirname(__FILE__) + "/../../interval/lib", File.dirname(__FILE__) + "/../lib"].each do |path|
+  $:.unshift(path) if File.exists?(path)
+end
+require "rubygems"
+require "interval"
+require "interval-quiz"
+
+quiz = IntervalQuiz.new
+quiz.run!

data/lib/interval-quiz.rb

@@ -0,0 +1,113 @@
+$:.unshift(File.dirname(__FILE__) + "/../../interval/lib")
+require "rubygems"
+require "interval"
+require "highline/import"
+require "madeleine"
+require "pp"
+
+class Quiz
+  # Here is the list of intervals by semitone. This is just here for reference:
+  #
+  # 0	Perfect Unison (P1)	Diminished second (dim2)
+  # 1	Minor second (m2)	Augmented unison (aug1)
+  # 2	Major second (M2)	Diminished third (dim3)
+  # 3	Minor third (m3)	Augmented second (aug2)
+  # 4	Major third (M3)	Diminished fourth (dim4)
+  # 5	Perfect fourth (P4)	Augmented third (aug3)
+  # 6	Tritone	Augmented fourth (aug4) Diminished fifth (dim5)
+  # 7	Perfect fifth (P5)	Diminished sixth (dim6)
+  # 8	Minor sixth (m6)	Augmented fifth (aug5)
+  # 9	Major sixth (M6)	Diminished seventh (dim7)
+  # 10	Minor seventh (m7)	Augmented sixth (aug6)
+  # 11	Major seventh (M7)	Diminished octave (dim8)
+  # 12	Perfect octave (P8)	Augmented seventh (aug7)
+
+  attr_accessor :intervals  # which intervals we will quiz on
+  attr_accessor :abovebelow # array of ["", "-"] if "-" is present, then we are quizzing on intervals below
+  attr_accessor :asked
+  attr_accessor :correct
+  attr_accessor :natural
+
+  def initialize
+    self.asked = 0
+    self.correct = 0
+    self.natural = true
+  end
+
+  def run!
+    loop do
+
+      pitch = Interval::Pitch.random(self.natural)
+      ab = self.abovebelow.rand
+      ab_eng = ab == "-" ? "below" : "above"
+      interval = Interval::Interval.from_string(ab + self.intervals.rand)
+
+      begin
+        answer = ask("what is a #{interval.to_long_name.downcase} #{ab_eng} #{pitch.to_s} #{score_str}? ")
+        self.asked = self.asked + 1
+      rescue EOFError 
+        puts "goodbye"
+        exit
+      end
+
+      real_answer = pitch + interval
+
+      if answer.downcase == real_answer.to_short_name.downcase
+        say "<%= color('correct!', :green) %>"
+        self.correct = correct + 1
+      else
+        say "<%= color('wrong', :red) %>. the answer is #{real_answer.to_short_name}"
+      end
+    end
+  end
+
+  def score_str
+    return "" unless asked && asked > 0
+    "#{correct}/#{asked} (%d%%)" % [(correct.to_f / asked.to_f) * 100]
+  end
+
+end
+
+class IntervalQuiz
+
+  def run!
+      say("Here are the intervals:")
+      intervals =<<-EOF
+unison  p1        a1 
+second  m2 M2  d2 a2
+third   m3 M3  d3 a3 
+fourth  p4     d4 a4
+fifth   d5 p5  d5 a5
+sixth   m6 M6  d6 a6
+seventh m7 M7  d7 a7
+octave  p8     d8
+EOF
+      say(intervals)
+
+      picked = ask("enter the intervals you want (or a blank line to quit):", lambda { |ans| ans} ) do |q|
+        q.gather = ""
+      end
+
+      pp picked
+
+      abovebelow = []
+      choose do |menu|
+        menu.prompt = "do you want to be quizzed on intervals above, below, or both?  "
+        menu.choice(:above) { abovebelow = [""] }
+        menu.choice(:below) { abovebelow = ["-"] }
+        menu.choice(:both)  { abovebelow = ["", "-"] }
+      end
+
+      q = Quiz.new
+      q.abovebelow = abovebelow
+      q.intervals = picked
+
+      q.run!
+  end
+
+end
+
+if $0 == __FILE__
+  quiz = IntervalQuiz.new
+  quiz.run!
+end

data/spec/interval-quiz_spec.rb

@@ -0,0 +1,7 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "interval-quiz" do
+  it "should do nothing" do
+    true.should == true
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,2 @@
+$TESTING=true
+$:.push File.join(File.dirname(__FILE__), '..', 'lib')

metadata

@@ -0,0 +1,71 @@
+--- !ruby/object:Gem::Specification 
+name: interval-quiz
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+platform: ruby
+authors: 
+- Nate Murray
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-11-17 00:00:00 -08:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: interval
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+description: A gem that provides a quiz on musical intervals
+email: nate@natemurray.com
+executables: 
+- interval-quiz
+extensions: []
+
+extra_rdoc_files: 
+- README.mkd
+- LICENSE
+files: 
+- LICENSE
+- README.mkd
+- Rakefile
+- lib/interval-quiz.rb
+- spec/interval-quiz_spec.rb
+- spec/spec_helper.rb
+- bin/interval-quiz
+has_rdoc: true
+homepage: http://www.xcombinator.com
+licenses: []
+
+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: 
+rubygems_version: 1.3.2
+signing_key: 
+specification_version: 3
+summary: a quiz for musical intervals
+test_files: []
+