Fixed a bug in repa(), added print command, introduced an example mel…

…ody along with its LMMS project and ogg output

.gitignore

@@ -1 +1,2 @@
 *.mid
+*.gem

bin/sonic_midi

@@ -36,6 +36,26 @@ def check_input(args)
     return input
 end
 
+def print_sequence(title, sequence)
+  puts title
+  sequence.each do |values|
+    puts ' - [%s]' % values.join(', ')
+  end
+end
+
+def print_music(input)
+  require_relative '../lib/shared_functions'
+  load input
+  melody = melody()
+  if melody.respond_to?(:key)
+    melody.keys().each do |k|
+      print_sequence(k, melody[k])
+    end
+  elsif melody.respond_to?(:length)
+    print_sequence('m', melody)
+  end
+end
+
 def play_music(input)
   melody = File.read(input)
   shared_functions = File.read(local_path('shared_functions.rb'))
@@ -57,6 +77,17 @@ program :name, 'sonic_midi'
 program :version, '0.1.0'
 program :description, 'Sends music to Sonic Pi and convert it to Midi'
 
+command :print do |c|
+  c.syntax = 'sonic_midi print <filename>'
+  c.summary = 'Prints the melody sequence'
+  c.description = 'Diagnostical print of the melody sequence'
+  c.example 'description', 'sonic_midi print melody.rb'
+  c.action do |args, options|
+    input = check_input(args)
+    print_music(input)
+  end
+end
+
 command :sonic do |c|
   c.syntax = 'sonic_midi sonic <filename>'
   c.summary = 'Send music to SonicPi'

lib/shared_functions.rb

@@ -14,7 +14,7 @@
 
 def repa(array, x)
   result = []
-  (0..x).each do
+  (1..x).each do
     result.concat(array)
   end
   return result

melodies/run/base.rb

@@ -0,0 +1,43 @@
+def mybpm()
+  return 60
+end
+
+def mysynth()
+  return :piano
+end
+
+def melody()
+
+  m = []
+  t = []
+
+  m1 = []
+  t1 = []
+  [64, 60, 62, 59].each do |x|
+    m1.concat([x])
+    t1.concat([2*F])
+  end
+
+  m.concat(m1 + m1)
+  t.concat(t1 + t1)
+
+  m2 = [64, 66]
+  t2 = rep(2*F, 2)
+
+  m.concat(m2 + m2)
+  t.concat(t2 + t2)
+
+  m3 = []
+  t3 = []
+  m3.concat(repa([67, 71], 4))
+  m3.concat(repa([69, 72], 4))
+  t3 = rep(Q, 16)
+
+  m.concat(m3 + m3)
+  t.concat(t3 + t3)
+
+  m.concat(m1)
+  t.concat(t1)
+
+  return m, t
+end

melodies/run/run.rb

@@ -0,0 +1,46 @@
+def mybpm()
+  return 60
+end
+
+def mysynth()
+  return :piano
+end
+
+def melody()
+
+  m = []
+  t = []
+
+  m1 = []
+  t1 = []
+  [64, 60, 62, 59].each do |x|
+    m1.concat(rep(x, 5))
+    t1.concat(rep(Q, 4) + [F])
+  end
+
+  m.concat(m1 + m1)
+  t.concat(t1 + t1)
+
+  m2 = []
+  t2 = []
+  m2.concat(repa([64, 67], 4))
+  m2.concat(repa([66, 69], 4))
+  t2 = rep(Q, 16)
+
+  m.concat(m2 + m2)
+  t.concat(t2 + t2)
+
+  m3 = []
+  t3 = []
+  m3.concat(repa([67, 71], 4))
+  m3.concat(repa([69, 72], 4))
+  t3 = rep(Q, 16)
+
+  m.concat(m3 + m3)
+  t.concat(t3 + t3)
+
+  m.concat(m1)
+  t.concat(t1)
+
+  return m, t
+end

sonic-midi.gemspec

@@ -1,6 +1,6 @@
 Gem::Specification.new do |s|
   s.name        = 'sonic-midi'
-  s.version     = '0.2.0'
+  s.version     = '0.2.1'
   s.date        = '2017-09-14'
   s.summary     = "Dual Sonic Pi Midi music generator"
   s.description = "Command-line tool to generate Midi music also playable in Sonic Pi"