midilib 2.0.2 → 3.0.1

data/examples/reader2text.rb

@@ -20,201 +20,202 @@ require 'midilib/io/midifile'
 DEFAULT_MIDI_TEST_FILE = 'NoFences.mid'
 
 class TextTranslator < MIDI::IO::MIDIFile
-
-    def initialize(seq, proc = nil)
-	super()
-	@seq = seq
-	@track = nil
-	@update_block = block_given?() ? Proc.new() : proc
-    end
-
-    # Generate a unique number for a channel/note combination. This is used
-    # to remember pending note on events.
-    def note_hash(chan, note)
-	return (chan << 8) + note
-    end
-
-    # Print a delta time.
-    def pdelta
-	print "#{@curr_ticks}: "
-    end
-
-# The remaining methods are overrides of methods in MIDI::IO::MIDIFile.
-
-    def header(format, ntrks, division)
-	puts "header: format = #{format}, ntrks = #{ntrks}," +
-	    " division = #{division}"
-
-	@ntrks = ntrks
-	@update_block.call(nil, @ntrks, 0) if @update_block
-    end
-
-    def start_track()
-	pdelta()
-	puts "track start"
-
-	@pending = []
-	@chan_mask = 0
-    end
-
-    def end_track()
-	pdelta()
-	puts "track end; chans used bitmask = #{@chan_mask}"
-	# Write message for any pending note on messages
-	@pending.each_with_index { | num, chan |
-	    puts "pending note off missing for chan #{num >> 8}," +
-		" note #{num & 0xff}" if note_obj
-	}
-	@pending = nil
-
-	# call update block
-	@update_block.call(@track, @ntrks, @seq.tracks.length) if @update_block
-    end
-
-    def note_on(chan, note, vel)
-	pdelta()
-	if vel == 0
-	    print "(note on, vel 0) "
-	    note_off(chan, note, 64)
-	    return
-	end
-
-	puts "note on chan #{chan}, note #{note}, vel #{vel}"
-	@pending << note_hash(chan, note)
-	track_uses_channel(chan)
-    end
-
-    def note_off(chan, note, vel)
-	pdelta()
-	# Find note on, create note off, connect the two, and remove
-	# note on from pending list.
-	pnum = note_hash(chan, note)
-	@pending.each_with_index { | num, i |
-	    if pnum == num
-		puts "note off chan #{chan}, note #{note}, vel #{vel}"
-		@pending.delete_at(i)
-		return
-	    end
-	}
-	puts "note off with no earlier note on (ch #{chan}, note" +
-	    " #{note}, vel #{vel})"
-    end
-
-    def pressure(chan, note, press)
-	pdelta()
-	puts "pressure chan #{chan}, note #{note}, press #{press}"
-	track_uses_channel(chan)
-    end
-
-    def controller(chan, control, value)
-	pdelta()
-	puts "controller chan #{chan}, control #{control}, value #{value}"
-	track_uses_channel(chan)
-    end
-
-    def pitch_bend(chan, msb, lsb)
-	pdelta()
-	puts "pitch bend chan #{chan}, msb #{msb}, lsb #{lsb}"
-	track_uses_channel(chan)
-    end
-
-    def program(chan, program)
-	pdelta()
-	puts "program chan #{chan}, program #{program}"
-	track_uses_channel(chan)
-    end
-
-    def chan_pressure(chan, press)
-	pdelta()
-	puts "chan press chan #{chan}, press #{press}"
-	track_uses_channel(chan)
-    end
-
-    def sysex(msg)
-	pdelta()
-	puts "sysex size #{msg.length}"
-    end
-
-    def meta_misc(type, msg)
-	pdelta()
-	puts "meta misc type #{type}, length #{msg.length}"
-    end
-
-    def sequencer_specific(type, msg)
-	pdelta()
-	puts "sequencer specific type #{type}, msg #{msg.length}"
-    end
-
-    def sequence_number(num)
-	pdelta()
-	puts "sequence number #{num}"
-    end
-
-    def text(type, msg)
-	pdelta()
-	case type
-	when MIDI::META_SEQ_NAME
-	    puts "seq or track name #{msg}"
-	when MIDI::META_INSTRUMENT
-	    puts "instrument name #{msg}"
-	when MIDI::META_MARKER
-	    puts "marker #{msg}"
-	else
-	    puts "text = #{msg}, type = #{type}"
-	end
-    end
-
-    def eot()
-	pdelta()
-	puts "end of track event"
-    end
-
-    def time_signature(numer, denom, clocks, qnotes)
-	pdelta()
-	puts "time sig numer #{numer}, denom #{denom}, clocks #{clocks}," +
-	    " qnotes #{qnotes}"
-    end
-
-    def smpte(hour, min, sec, frame, fract)
-	pdelta()
-	puts "smpte #{hour}:#{min}.#{sec}, frame #{frame}, fract #{fract}"
-    end
-
-    def tempo(microsecs)
-	pdelta()
-	bpm = 1.0 / microsecs	# quarter notes per microsecond
-	bpm *= 1000000.0	# quarter notes per second
-	bpm *= 60.0		# quarter notes per minute
-	puts "tempo microsecs pqn = #{microsecs} (#{bpm} bpm)"
-    end
-
-    def key_signature(sharpflat, is_minor)
-	pdelta()
-	puts "key sig sharpflat #{sharpflat}, is_minor #{is_minor}"
-    end
-
-    def arbitrary(msg)
-	pdelta()
-	puts "arbitrary length = #{msg.length}"
-    end
-
-    def track_uses_channel(chan)
-	@chan_mask = @chan_mask | (1 << chan)
-    end
-
+  def initialize(seq, &block)
+    super()
+    @seq = seq
+    @track = nil
+    @update_block = block
+  end
+
+  # Generate a unique number for a channel/note combination. This is used
+  # to remember pending note on events.
+  def note_hash(chan, note)
+    (chan << 8) + note
+  end
+
+  # Print a delta time.
+  def pdelta
+    print "#{@curr_ticks}: "
+  end
+
+  # The remaining methods are overrides of methods in MIDI::IO::MIDIFile.
+
+  def header(format, ntrks, division)
+    puts "header: format = #{format}, ntrks = #{ntrks}," +
+         " division = #{division}"
+
+    @ntrks = ntrks
+    @update_block.call(nil, @ntrks, 0) if @update_block
+  end
+
+  def start_track
+    pdelta
+    puts 'track start'
+
+    @pending = []
+    @chan_mask = 0
+  end
+
+  def end_track
+    pdelta
+    puts "track end; chans used bitmask = #{@chan_mask}"
+    # Write message for any pending note on messages
+    @pending.each_with_index do |num, chan|
+      if note_obj
+        puts "pending note off missing for chan #{num >> 8}," +
+             " note #{num & 0xff}"
+      end
+    end
+    @pending = nil
+
+    # call update block
+    @update_block.call(@track, @ntrks, @seq.tracks.length) if @update_block
+  end
+
+  def note_on(chan, note, vel)
+    pdelta
+    if vel == 0
+      print '(note on, vel 0) '
+      note_off(chan, note, 64)
+      return
+    end
+
+    puts "note on chan #{chan}, note #{note}, vel #{vel}"
+    @pending << note_hash(chan, note)
+    track_uses_channel(chan)
+  end
+
+  def note_off(chan, note, vel)
+    pdelta
+    # Find note on, create note off, connect the two, and remove
+    # note on from pending list.
+    pnum = note_hash(chan, note)
+    @pending.each_with_index do |num, i|
+      next unless pnum == num
+
+      puts "note off chan #{chan}, note #{note}, vel #{vel}"
+      @pending.delete_at(i)
+      return
+    end
+    puts "note off with no earlier note on (ch #{chan}, note" +
+         " #{note}, vel #{vel})"
+  end
+
+  def pressure(chan, note, press)
+    pdelta
+    puts "pressure chan #{chan}, note #{note}, press #{press}"
+    track_uses_channel(chan)
+  end
+
+  def controller(chan, control, value)
+    pdelta
+    puts "controller chan #{chan}, control #{control}, value #{value}"
+    track_uses_channel(chan)
+  end
+
+  def pitch_bend(chan, msb, lsb)
+    pdelta
+    puts "pitch bend chan #{chan}, msb #{msb}, lsb #{lsb}"
+    track_uses_channel(chan)
+  end
+
+  def program(chan, program)
+    pdelta
+    puts "program chan #{chan}, program #{program}"
+    track_uses_channel(chan)
+  end
+
+  def chan_pressure(chan, press)
+    pdelta
+    puts "chan press chan #{chan}, press #{press}"
+    track_uses_channel(chan)
+  end
+
+  def sysex(msg)
+    pdelta
+    puts "sysex size #{msg.length}"
+  end
+
+  def meta_misc(type, msg)
+    pdelta
+    puts "meta misc type #{type}, length #{msg.length}"
+  end
+
+  def sequencer_specific(type, msg)
+    pdelta
+    puts "sequencer specific type #{type}, msg #{msg.length}"
+  end
+
+  def sequence_number(num)
+    pdelta
+    puts "sequence number #{num}"
+  end
+
+  def text(type, msg)
+    pdelta
+    msg = MIDI::MetaEvent.bytes_as_str(msg)
+    case type
+    when MIDI::META_SEQ_NAME
+      puts "seq or track name #{msg}"
+    when MIDI::META_INSTRUMENT
+      puts "instrument name #{msg}"
+    when MIDI::META_MARKER
+      puts "marker #{msg}"
+    else
+      puts "text = #{msg}, type = #{type}"
+    end
+  end
+
+  def eot
+    pdelta
+    puts 'end of track event'
+  end
+
+  def time_signature(numer, denom, clocks, qnotes)
+    pdelta
+    puts "time sig numer #{numer}, denom #{denom}, clocks #{clocks}," +
+         " qnotes #{qnotes}"
+  end
+
+  def smpte(hour, min, sec, frame, fract)
+    pdelta
+    puts "smpte #{hour}:#{min}.#{sec}, frame #{frame}, fract #{fract}"
+  end
+
+  def tempo(microsecs)
+    pdelta
+    bpm = 1.0 / microsecs # quarter notes per microsecond
+    bpm *= 1_000_000.0 # quarter notes per second
+    bpm *= 60.0 # quarter notes per minute
+    puts "tempo microsecs pqn = #{microsecs} (#{bpm} bpm)"
+  end
+
+  def key_signature(sharpflat, is_minor)
+    pdelta
+    puts "key sig sharpflat #{sharpflat}, is_minor #{is_minor}"
+  end
+
+  def arbitrary(msg)
+    pdelta
+    puts "arbitrary length = #{msg.length}"
+  end
+
+  def track_uses_channel(chan)
+    @chan_mask |= (1 << chan)
+  end
 end
 
 # ================================================================
 
-seq = MIDI::Sequence.new()
+seq = MIDI::Sequence.new
 
 # Specify what class to use when reading the MIDI file.
 seq.reader_class = TextTranslator
 
-File.open(ARGV[0] || DEFAULT_MIDI_TEST_FILE, 'rb') { | file |
-    # The block we pass in to Sequence.read is called at the end of every
-    # track read. It is optional, but is useful for progress reports.
-    seq.read(file) { | track, num_tracks, i |
-	puts "read track #{track ? track.name : ''} (#{i} of #{num_tracks})"
-    }
-}
+File.open(ARGV[0] || DEFAULT_MIDI_TEST_FILE, 'rb') do |file|
+  # The block we pass in to Sequence.read is called at the end of every
+  # track read. It is optional, but is useful for progress reports.
+  seq.read(file) do |track, num_tracks, i|
+    puts "read track #{track ? track.name : ''} (#{i} of #{num_tracks})"
+  end
+end

data/examples/seq2text.rb

@@ -19,23 +19,23 @@ require 'midilib/sequence'
 DEFAULT_MIDI_TEST_FILE = 'NoFences.mid'
 
 # Read from MIDI file
-seq = MIDI::Sequence.new()
+seq = MIDI::Sequence.new
 
-File.open(ARGV[0] || DEFAULT_MIDI_TEST_FILE, 'rb') { | file |
-    # The block we pass in to Sequence.read is called at the end of every
-    # track read. It is optional, but is useful for progress reports.
-    seq.read(file) { | track, num_tracks, i |
-	puts "read track #{track ? track.name : ''} (#{i} of #{num_tracks})"
-    }
-}
+File.open(ARGV[0] || DEFAULT_MIDI_TEST_FILE, 'rb') do |file|
+  # The block we pass in to Sequence.read is called at the end of every
+  # track read. It is optional, but is useful for progress reports.
+  seq.read(file) do |track, num_tracks, i|
+    puts "read track #{track ? track.name : ''} (#{i} of #{num_tracks})"
+  end
+end
 
-seq.each { | track |
-    puts "*** track name \"#{track.name}\""
-    puts "instrument name \"#{track.instrument}\""
-    puts "#{track.events.length} events"
-    track.each { | e |
-	e.print_decimal_numbers = true # default = false (print hex)
-	e.print_note_names = true # default = false (print note numbers)
-	puts e
-    }
-}
+seq.each do |track|
+  puts "*** track name \"#{track.name}\""
+  puts "instrument name \"#{track.instrument}\""
+  puts "#{track.events.length} events"
+  track.each do |e|
+    e.print_decimal_numbers = true # default = false (print hex)
+    e.print_note_names = true # default = false (print note numbers)
+    puts e
+  end
+end

data/examples/split.rb

@@ -22,31 +22,32 @@ DEFAULT_MIDI_TEST_FILE = 'NoFences.mid'
 filename = ARGV[0]
 include_tempo_track = true
 if filename == '-x'
-    include_tempo_track = false
-    filename = ARGV[1]
+  include_tempo_track = false
+  filename = ARGV[1]
 end
 
 # Read from MIDI file
-seq = MIDI::Sequence.new()
+seq = MIDI::Sequence.new
 
-File.open(filename || DEFAULT_MIDI_TEST_FILE, 'rb') { | file |
-    # The block we pass in to Sequence.read is called at the end of every
-    # track read. It is optional, but is useful for progress reports.
-    seq.read(file) { | track, num_tracks, i |
-	puts "read track #{track ? track.name : ''} (#{i} of #{num_tracks})"
-    }
-}
+File.open(filename || DEFAULT_MIDI_TEST_FILE, 'rb') do |file|
+  # The block we pass in to Sequence.read is called at the end of every
+  # track read. It is optional, but is useful for progress reports.
+  seq.read(file) do |track, num_tracks, i|
+    puts "read track #{track ? track.name : ''} (#{i} of #{num_tracks})"
+  end
+end
 
 t0 = seq.tracks[0]
 unless include_tempo_track
-    s = MIDI::Sequence.new
-    s.tracks << t0
-    File.open("tempo_track.mid", 'wb') { | file | s.write(file) }
+  s = MIDI::Sequence.new
+  s.tracks << t0
+  File.open('tempo_track.mid', 'wb') { |file| s.write(file) }
+end
+seq.each_with_index do |track, i|
+  next unless i > 0
+
+  s = MIDI::Sequence.new
+  s.tracks << t0 if include_tempo_track
+  s.tracks << track
+  File.open("#{track.name}.mid", 'wb') { |file| s.write(file) }
 end
-seq.each_with_index { | track, i |
-    next unless i > 0
-    s = MIDI::Sequence.new
-    s.tracks << t0 if include_tempo_track
-    s.tracks << track
-    File.open("#{track.name}.mid", 'wb') { | file | s.write(file) }
-}

data/examples/strings.rb

@@ -15,20 +15,20 @@ require 'midilib/consts'
 
 DEFAULT_MIDI_TEST_FILE = 'NoFences.mid'
 
-seq = MIDI::Sequence.new()
-File.open(ARGV[0] || DEFAULT_MIDI_TEST_FILE, 'rb') { | file |
-    # The block we pass in to Sequence.read is called at the end of every
-    # track read. It is optional, but is useful for progress reports.
-    seq.read(file) { | track, num_tracks, i |
-	puts "read track #{track ? track.name : ''} (#{i} of #{num_tracks})"
-    }
-}
+seq = MIDI::Sequence.new
+File.open(ARGV[0] || DEFAULT_MIDI_TEST_FILE, 'rb') do |file|
+  # The block we pass in to Sequence.read is called at the end of every
+  # track read. It is optional, but is useful for progress reports.
+  seq.read(file) do |track, num_tracks, i|
+    puts "read track #{track ? track.name : ''} (#{i} of #{num_tracks})"
+  end
+end
 
 include MIDI
-seq.each { | track |
-    track.each { | event |
-	puts event.data if event.kind_of?(MIDI::MetaEvent) &&
-	    [META_TEXT, META_COPYRIGHT, META_SEQ_NAME, META_INSTRUMENT,
-	     META_LYRIC, META_CUE, META_MARKER].include?(event.meta_type)
-    }
-}
+seq.each do |track|
+  track.each do |event|
+    puts event.data if event.is_a?(MIDI::MetaEvent) &&
+                       [META_TEXT, META_COPYRIGHT, META_SEQ_NAME, META_INSTRUMENT,
+                        META_LYRIC, META_CUE, META_MARKER].include?(event.meta_type)
+  end
+end

data/examples/transpose.rb

@@ -17,59 +17,58 @@ require 'midilib/sequence'
 require 'midilib/io/seqreader'
 require 'midilib/io/seqwriter'
 
-
 def usage
-    $stderr.print <<EOF
-usage: #{$0} [--channel|-c channel] [--transpose|-t half_steps]
-       input_midi_file output_midi_file
-
-       --channel|-c   channel      1-16; default is 1
-       --transpose|-t half_steps   default = 12 (one octave up)
-EOF
-    exit(1)
+  $stderr.print <<~EOF
+        usage: #{$0} [--channel|-c channel] [--transpose|-t half_steps]
+               input_midi_file output_midi_file
+    #{'    '}
+               --channel|-c   channel      1-16; default is 1
+               --transpose|-t half_steps   default = 12 (one octave up)
+  EOF
+  exit(1)
 end
 
 transpose = 12
 channel = 0
 
 g = GetoptLong.new(['--transpose', '-t', GetoptLong::REQUIRED_ARGUMENT],
-		   ['--channel', '-c', GetoptLong::REQUIRED_ARGUMENT])
-g.each { | name, arg |
-    case name
-    when '--transpose'
-	transpose = arg.to_i
-    when '--channel'
-	channel = arg.to_i - 1
-    else
-	usage()
-    end
-}
+                   ['--channel', '-c', GetoptLong::REQUIRED_ARGUMENT])
+g.each do |name, arg|
+  case name
+  when '--transpose'
+    transpose = arg.to_i
+  when '--channel'
+    channel = arg.to_i - 1
+  else
+    usage
+  end
+end
 
-usage() unless ARGV.length >= 2
+usage unless ARGV.length >= 2
 
-seq = MIDI::Sequence.new()
-File.open(ARGV[0], 'rb') { | file |
-    # The block we pass in to Sequence.read is called at the end of every
-    # track read. It is optional, but is useful for progress reports.
-    seq.read(file) { | num_tracks, i |
-	puts "read track #{i} of #{num_tracks}"
-    }
-}
+seq = MIDI::Sequence.new
+File.open(ARGV[0], 'rb') do |file|
+  # The block we pass in to Sequence.read is called at the end of every
+  # track read. It is optional, but is useful for progress reports.
+  seq.read(file) do |num_tracks, i|
+    puts "read track #{i} of #{num_tracks}"
+  end
+end
+
+seq.each do |track|
+  track.each do |event|
+    next unless event.is_a?(MIDI::NoteEvent) && event.channel == channel
 
-seq.each { | track |
-    track.each { | event |
-        if event.kind_of?(MIDI::NoteEvent) && event.channel == channel
-	    val = event.note + transpose
-	    if val < 0 || val > 127
-		$stderr.puts "transposition out of range; ignored"
-	    else
-		event.note = val
-	    end
-	end
-    }
-}
+    val = event.note + transpose
+    if val < 0 || val > 127
+      warn 'transposition out of range; ignored'
+    else
+      event.note = val
+    end
+  end
+end
 
 # Output to named file or stdout.
 file = ARGV[1] ? File.open(ARGV[1], 'wb') : $stdout
 seq.write(file)
-file.close() if ARGV[1]
+file.close if ARGV[1]