lib/instruments/monome/grid_keyboard.rb @@ -1,54 +1,24 @@ +require 'rubygems' +require 'midiator' +require 'datagrammer' require 'lib/ourouborous' +require 'lib/interfaces/midiator' require 'lib/devices/monome' -# require 'lib/sequencers/tape' +require 'lib/instruments/monome/grid_keyboard' -class GridKeyboard - attr_accessor :rows, :cols, :grid, :sequencer, :step_x, :step_y, :basenote, :velocity, :notes - attr_accessor :interface - - include Ourouborous::MIDI::Generator - - def initialize(cols, rows, options={}) - super - @rows = rows - @cols = cols - - @step_x = options[:step_x] || 2 - @step_y = options[:step_y] || 5 - @basenote = options[:basenote] || 36 - @velocity = options[:velocity] || 100 - @notes = Array.new(128, 0) - - @grid = Monome::Grid.new(cols, rows, L{|c,r,v| press(c,r,v) }) - # @sequencer = - end - - def press(col, row, val) - pitch = (col * @step_x) + ((@rows.last - row - 1) * @step_y) + @basenote - light(pitch, val) - note(pitch, val) - end - - def light(pitch, val) - @notes[pitch] = [(@notes[pitch] + (val.zero? ? -1 : 1)), 0].max - if (@notes[pitch].zero? && val.zero?) || (@notes[pitch] == 1 && val.nonzero?) - pitch_to_coords(pitch).compact.each {|x,y| val ? @grid.on(x,y) : @grid.off(x,y) } - end - end - - def pitch_to_coords(pitch) - rows.collect do |row| - col = ((pitch - @basenote) - ((row - @rows.first) * @step_y)) / (@step_x * 1.0) - if @cols.include?(col) && col == col.round - [col.to_i, row] - else - nil - end - end - end - - def note(pitch, val) - note_on(1, pitch, val.zero?? 0 : @velocity) - end - -end \ No newline at end of file +require 'ruby-debug' +Debugger.start + +@s = Ourouborous::Scheduler.new :timekeeper => Ourouborous::LocalTimer.new(120) + +@midi = Midiator.new +@monome = Monome.new +@s.subscribers << @monome + +@keyboard = GridKeyboard.new(0..15, 0..15, :interface => @midi, :channel => 3) +@monome.add_subgrid @keyboard.grid + +Signal.trap("INT") { @s.timekeeper.thread.exit!; @monome.clear; "Interrupt caught, cancelling..." } + +@s.start +@s.timekeeper.thread.join \ No newline at end of file examples/monome_keys.rb 5c06655c8fb45a45a9a00becfc0bde31ec4d6673 Matt Lyon matt@flowerpowered.com http://github.com/mattly/ourouborous/commit/7d3b910aec5c9711ced9ba4f765ea6feef58efc7 7d3b910aec5c9711ced9ba4f765ea6feef58efc7 2008-11-06T16:45:18-08:00 2008-11-06T16:45:18-08:00 my version of the fourths patch a26d4b6e8b41fdeadb933892791fc711e41bd58c Matt Lyon matt@flowerpowered.com