harmonic_cycle.rb other_shit/ambient.rb other_shit/ambient_high.rb other_shit/ambient_low.rb other_shit/def_ambient.rb other_shit/def_techno.rb other_shit/doc_ock.rb other_shit/hacktastic.rb other_shit/incr_drum_definition.rb other_shit/incrementing_style.rb other_shit/pulse.rb other_shit/rubyfringe.rb other_shit/san_francisco.rb other_shit/techno_drum_definition.rb other_shit/techno_eval.rb temple.rb @@ -1,4 +1,6 @@ -$clock.bpm = 5 +$clock.bpm = 170 +$mutation = L{|measure| 0 == (measure - 1) % 2} +$measures = 4 probabilities = {} @@ -44,9 +46,9 @@ notes = [] notes << Drum.new(:note => note(midi_note_number), :when => L{|beat| false}, # :number_generator => L{0.3}, - # :next => L{|queue| queue[queue.size - 1]}, + :next => L{|queue| queue[queue.size - 1]}, :number_generator => L{rand}, - :next => L{|queue| queue[rand(queue.size)]}, + # :next => L{|queue| queue[rand(queue.size)]}, :probabilities => probabilities[midi_note_number] || probabilities[:none]) end notes db_drum_definition.rb @@ -1,11 +1,13 @@ require 'lib/archaeopteryx' $clock = Clock.new(170) +$mutation = L{|measure| 0 == (measure - 1) % 2} +$measures = 4 @loop = Arkx.new(:clock => $clock, # rename Arkx to Loop - :measures => 4, + :measures => $measures, :logging => false, :evil_timer_offset_wtf => 0.2, :generator => Rhythm.new(:drumfile => "db_drum_definition.rb", - :mutation => L{|measure| 0 == (measure - 1) % 2})) + :mutation => $mutation)) @loop.go eval_style.rb @@ -12,6 +12,8 @@ alias :L :lambda lib/mix lib/bassline + lib/pitches + lib/infinite_stream lib/infinite_beats lib/feigenbaum lib/archaeopteryx.rb @@ -2,7 +2,7 @@ module Archaeopteryx class Arkx def initialize(attributes) @generator = attributes[:generator] - @measures = attributes[:measures] || 32 + # @measures = attributes[:measures] || 32 @beats = attributes[:beats] || 16 @evil_timer_offset_wtf = attributes[:evil_timer_offset_wtf] @midi = LiveMIDI.new(:clock => @clock = attributes[:clock], # confusion!!!!!!!!!! @@ -13,7 +13,7 @@ module Archaeopteryx end def go generate_beats = L do - (1..@measures).each do |measure| + (1..$measures).each do |measure| @generator.mutate(measure) (0..(@beats - 1)).each do |beat| play @generator.notes(beat) lib/arkx.rb @@ -36,19 +36,28 @@ MAJOR_SCALE = [0, 2, 4, 5, 7, 9, 11] MINOR_SCALE = [0, 2, 3, 5, 7, 8, 10] # higher-resolution nomenclature exists but I won't have time to use it -CIRCLE_OF_FIFTHS = %w{C, G, D, A, E, B, F#, C#, G#, D#, A#, F} +CIRCLE_OF_FIFTHS = %w{C G D A E B F# C# G# D# A# F} # relative minor is always x + 3 # this data structure is of course a ring CIRCLE_OF_FOURTHS = CIRCLE_OF_FIFTHS.reverse -[CIRCLE_OF_FIFTHS, CIRCLE_OF_FOURTHS].each do |array| - class << array - def next - @current ||= -1 - @current += 1 - @current = 0 if @current >= size - self[current] - end +# [CIRCLE_OF_FIFTHS, CIRCLE_OF_FOURTHS].each do |array| +# class << array +# def next +# @current ||= -1 +# @current += 1 +# @current = 0 if @current >= size +# self[@current] +# end +# end +# end +# this makes them into ring structures. I may need to do this for all these arrays. + +class Array + def next + @current ||= -1 + @current += 1 + @current = 0 if @current >= size + self[@current] end end -# this makes them into ring structures. I may need to do this for all these arrays. lib/pitches.rb @@ -1,11 +1,12 @@ module Archaeopteryx class Rhythm def initialize(attributes) - @mutation = attributes[:mutation] + # @mutation = attributes[:mutation] @drumfile = attributes[:drumfile] reload end def reload + puts "\a" # flash the screen ; only valid on my box and similarly configured machines! @drums = eval(File.read(@drumfile)) end def notes(beat) @@ -16,7 +17,7 @@ module Archaeopteryx drums end def mutate(measure) - if @mutation[measure] + if $mutation[measure] reload # reloading can kill mutations! @drums.each {|drum| drum.mutate} end lib/rhythm.rb ambient.rb ambient_high.rb ambient_low.rb def_ambient.rb def_techno.rb doc_ock.rb incr_drum_definition.rb incrementing_style.rb pulse.rb rubyfringe.rb san_francisco.rb techno_drum_definition.rb techno_eval.rb a9068530d4a16dcfd3de86fb49770f66ff2f13e4 Giles Bowkett gilesb@gmail.com http://github.com/bleything/archaeopteryx/commit/3eedd6f366f722c7a92ed2eb236d672bcb0cc490 3eedd6f366f722c7a92ed2eb236d672bcb0cc490 2008-08-20T17:25:10-07:00 2008-08-20T17:25:10-07:00 Moved a bunch of shit into a folder called other_shit. This is stuff I'm not using for Burning Man but have used in the past and might need later. (In fact the ambient files I'm probably moving back out of other_shit again.) Also created very simple ambient music file which does nothing except tour the circle of fifths. 4df66b3f2bc7b57bdb6f0a5a0e7a8fb2f7a00c32 Giles Bowkett gilesb@gmail.com