scarpe 0.1.0 → 0.2.0

data/examples/bloopsaphone/working/1901_by_Aanand_Prasad.rb

@@ -0,0 +1,478 @@
+# downloaded from http://github.com/aanand/1901
+require_relative 'feepogram'
+
+bloops = Bloops.new
+bloops.tempo = 320
+
+song = Feepogram.new(bloops) do
+  sound :hihat, Bloops::NOISE do |s|
+    s.punch = 0.5
+    s.sustain = 0.05
+    s.decay = 0.1
+  end
+
+  sound :kick, Bloops::SINE do |s|
+    s.volume = 0.95
+    s.slide = -0.4
+  end
+
+  sound :short_kick, Bloops::SINE do |s|
+    s.volume = 0.5
+    s.slide = -0.4
+  end
+
+  sound :snare, Bloops::NOISE do |s|
+    s.volume = 0.9
+    s.sustain = 0.0
+    s.decay = 0.3
+  end
+
+  sound :cymbal, Bloops::NOISE do |s|
+    s.punch = 0.25
+    s.volume = 0.25
+  end
+
+  sound :bass, Bloops::SAWTOOTH do |s|
+    s.decay = 0.0
+  end
+
+  2.times do |i|
+    sound "high_guitar_#{i+1}", Bloops::SINE do |s|
+      s.sustain = 0.05
+      s.decay = 0.35
+    end
+  end
+
+  5.times do |i|
+    sound "guitar_#{i+1}", Bloops::SQUARE do |s|
+      s.punch = 0.1
+      s.decay = 0.0
+    end
+  end
+
+  sound :bwoo, Bloops::SQUARE do |s|
+    s.volume = 0.4
+    s.sustain = 1.0
+    s.decay = 0.0
+  end
+
+  sound :voice, Bloops::SAWTOOTH do |s|
+    s.punch = 0.4
+    s.sustain = 0.4
+    s.decay = 0.0
+  end
+
+  sound :heyyy, Bloops::SAWTOOTH do |s|
+    s.volume = 0.7
+    s.punch = 0.0
+    s.sustain = 0.3
+    s.decay = 0.0
+  end
+
+  # initialize octaves
+  def setup
+    @tracks[:snare] << " + "
+  end
+
+  def hihat_line
+    hihat " e6 " * 8 * 4
+  end
+
+  def drum_verse
+    kick  " c 4 4 4 c 4 4 4 " * 4
+    snare " 4 4 c 4 4 4 c 4 " * 4
+  end
+
+  def high_guitar_line_1
+    high_guitar_1 " e5 " * 8 * 4
+
+    high_guitar_2 %{
+      g5 g5 g5 g5 g5 g5 g5 g5
+      g5 a5 a5 a5 a5 a5 a5 a5
+      g5 g5 g5 g5 g5 g5 g5 g5
+      g5 g5 g5 g5 g5 g5 g5 g5
+    }
+  end    
+
+  def high_guitar_line_2
+    high_guitar_1 " c5 " * 8 * 4
+
+    high_guitar_2 %{
+      e5 e5 e5 e5 e5 e5 e5 e5
+      e5 g5 g5 g5 g5 g5 g5 g5
+      e5 e5 e5 e5 e5 e5 e5 e5
+      e5 e5 e5 e5 e5 e5 e5 e5
+    }
+  end
+
+  def bass_verse
+    bass %{
+      4 4 4 f2 f2 f2 f2 f2
+      4 4 4 a1 a1 a1 a1 a1
+      4 4 4 c2 c2 c2 c2 c2
+      4 4 4 a1 a1 a1 a1 a1
+    }
+  end
+
+  def bass_verse_with_leadout
+    bass %{
+      4 4 4 f2 f2 f2 f2 f2
+      4 4 4 a1 a1 a1 a1 a1
+      4 4 4 c2 c2 c2 c2 c2
+      4 4 4 c2 c2 a1 a1 a1
+    }
+  end
+
+  def bass_verse_with_chorus_leadout
+    bass %{
+      4 4 4 f2 f2 f2 f2 f2
+      4 4 4 a1 a1 a1 a1 a1
+      4 4 4 c2 c2 c2 c2 c2
+      4 4 4 c2 c2 c2 c2 c2
+    }
+  end
+
+  def guitar_verse
+    guitar_1 %{
+      4 4 4 a4 a4 a4 a4 a4
+      4 4 4 g4 g4 g4 g4 g4
+      4 4 4 g4 g4 g4 g4 g4
+      4 4 4 g4 g4 g4 g4 g4
+    }
+
+    guitar_2 %{
+      4 4 4 f4 f4 f4 f4 f4
+      4 4 4 e4 e4 e4 e4 e4
+      4 4 4 e4 e4 e4 e4 e4
+      4 4 4 e4 e4 e4 e4 e4
+    }
+
+    guitar_3 %{
+      4 4 4 d4 d4 d4 d4 d4
+      4 4 4 c4 c4 c4 c4 c4
+      4 4 4 c4 c4 c4 c4 c4
+      4 4 4 c4 c4 c4 c4 c4
+    }
+  end
+
+  def guitar_chorus_leadout
+    guitar_1 %{
+      4 4 4 4  4  4  4  4
+      4 4 4 4  4  4  4  4
+      4 4 4 4  4  4  4  4
+      4 4 4 g4 g4 g4 g4 g4
+    }
+
+    guitar_2 %{
+      4 4 4 4  4  4  4  4
+      4 4 4 4  4  4  4  4
+      4 4 4 4  4  4  4  4
+      4 4 4 e4 e4 e4 e4 e4
+    }
+
+    guitar_3 %{
+      4 4 4 4  4  4  4  4
+      4 4 4 4  4  4  4  4
+      4 4 4 4  4  4  4  4
+      4 4 4 c4 c4 c4 c4 c4
+    }
+  end
+
+  def guitar_chorus
+    guitar_1 %{
+      a4 8:a4 8:a4 a4 g4 g4 g4 a4 8:a4 8:a4
+      a4 g4        g4 g4 a4 a4 g4 g4
+      a4 8:a4 8:a4 a4 g4 g4 g4 a4 8:a4 8:a4
+      a4 g4        g4 g4 a4 a4 g4 g4
+    }
+
+    guitar_2 %{
+      f4 8:f4 8:f4 f4 e4 e4 e4 f4 8:f4 8:f4
+      f4 e4        e4 e4 f4 f4 e4 e4
+      f4 8:f4 8:f4 f4 e4 e4 e4 f4 8:f4 8:f4
+      f4 e4        e4 e4 f4 f4 e4 e4
+    }
+
+    guitar_3 %{
+      d4 8:d4 8:d4 d4 c4 c4 c4 d4 8:d4 8:d4
+      d4 c4        c4 c4 d4 d4 c4 c4
+      d4 8:d4 8:d4 d4 c4 c4 c4 d4 8:d4 8:d4
+      d4 c4        c4 c4 d4 d4 c4 c4
+    }
+  end
+
+  def voice_post_chorus
+    voice %{
+      4 4              2:g[sustain:1.0] c[sustain:0.3] 4 2:g[sustain:1.0]
+      c 4              2:g[sustain:1.0] c[sustain:0.3] 4 2:g[sustain:1.0]
+      2:e[sustain:1.0] 2                1
+      1                                 1
+    }
+  end    
+
+  def intro
+    phrase do
+      hihat_line
+      bass_verse
+      high_guitar_line_1
+    end
+
+    phrase do
+      hihat_line
+      bass_verse
+      high_guitar_line_2
+    end
+  end
+
+  def verse_phrase_1
+    drum_verse
+    bass_verse
+    guitar_verse
+  end
+
+  def verse_phrase_2
+    drum_verse
+    bass_verse_with_leadout
+    guitar_verse
+  end
+
+  def verse_phrase_3
+    hihat_line
+    kick  " c 4 4 4 c 4 4 c " * 4
+    snare " 4 4 c 4 4 c 4 4 " * 4
+    bass_verse
+    high_guitar_line_1
+  end
+
+  def verse_phrase_4
+    hihat_line
+    kick  " c 4 4 4 c 4 4 c " * 4
+    snare " 4 4 c 4 4 c 4 4 " * 4
+    bass_verse_with_chorus_leadout
+    guitar_chorus_leadout
+    high_guitar_line_2
+  end
+
+  def verse_instrumental
+    2.times do
+      phrase do
+        verse_phrase_1
+      end
+    end
+  end
+
+  def verse_1
+    phrase do
+      verse_phrase_1
+
+      voice %{
+        4  4  4  4  g[sustain:0.3]  4  g  4
+        c  c  g  4  g  4  c  c 
+        c  g  4  4  4  4  4  4
+        4  4  4  4  4  4  4  4
+      }     
+    end
+
+    phrase do
+      verse_phrase_2
+
+      voice %{
+        e  4  e  4  e  4  e  d 
+        e  e  e  4  e  e  g  a 
+        e  4  4  4  4  4  4  4
+        4  4  4  4  4  4  4  4
+      }     
+    end
+  end
+
+  def verse_2
+    phrase do
+      verse_phrase_3
+
+      voice %{
+        e  4  e  4  e   e   e  e 
+        c  c  d  4  d   d   d  c 
+        e  4  e  d  c - g + c  d 
+        d  d  d  d  d - a   a  a +
+      }
+    end
+
+    phrase do
+      verse_phrase_4
+
+      voice %{
+        4  4  e  4  e  e  e  e 
+        c  c  d  4  d  d  g  e 
+        e  4  4  4  4  4  4  4
+        4  4  4  4  4  4  4  4
+      }
+    end
+  end
+
+  def chorus_phrase_1
+    kick       " c 4       4 c 4       4 c 4 " * 4
+    short_kick " 4 8:c 8:c c 4 8:c 8:c c 4 c " * 4
+    snare %{
+      4 4 4 4 4 4 c 4
+      4 4 4 4 4 c 4 c
+      4 4 4 4 4 4 c 4
+      4 4 4 4 4 c 4 c
+    }
+
+    bass " c2 " * 32
+
+    guitar_chorus
+  end
+
+  def chorus_phrase_2
+    kick " c 4 4 4 " * 8
+    snare %{
+      4 4 c 4 4 4 c 4
+      4 4 c 4 4 4 c 4
+      4 4 c 4 4 4 c 4
+      4 4 c 4 4 c 4 c
+    }
+    cymbal " 2:c6 " * 16
+
+    bass " g2 " * 32
+
+    guitar_chorus
+  end
+
+  def heyyy_chorus
+    heyyy %{
+      1 1
+      1 1
+      1 1
+      3:g #{ " 24:f 24:f# 4:g " * 5 }
+    }
+  end
+
+  def chorus_1
+    phrase do
+      chorus_phrase_1
+
+      voice %{
+        4 4 4 4 4 - g + c c
+        c c c c c   4 - a g
+        4 4 4 4 4   4   2:g[sustain:2.0] +
+        1 1
+      }
+
+      heyyy_chorus
+    end
+
+    phrase do
+      chorus_phrase_2
+
+      voice %{
+        4 4 4 4 4 4 2:g
+        g[sustain:0.4] e e g g e e 4
+        4 4 4 4 4 4 e d
+        e e e e e f e 4
+      }
+    end
+  end
+
+  def chorus_2
+    phrase do
+      chorus_phrase_1
+
+      voice %{
+        4 4 4 4 4 - g + c c
+        c c c c c   4 - a + 2:e[sustain:2.0]
+          4 4 4 4   4 - 2:g +
+        1 1
+      }
+
+      heyyy_chorus
+    end
+
+    phrase do
+      chorus_phrase_2
+
+      bwoo %{
+        16:c 16:c# 8:d 4:d 2:d 1:d
+        1:d 1:d +
+        16:c 16:c# 8:d 4:d 2:d 1:d
+        1:d 1:d[sustain:0.5] -
+      }
+
+      voice %{
+        4 4 4 4 4 4 2:g[sustain:0.4]
+        g[sustain:0.3] e e g g e e 4
+        4 4 4 4 4 c c c
+        c c c[sustain:0.1] c c[sustain:0.3] 4 2:e
+      }
+    end
+  end
+
+  def post_chorus
+    phrase do
+      drum_verse
+      bass_verse
+      guitar_verse
+      voice_post_chorus
+    end
+
+    phrase do
+      drum_verse
+      bass_verse_with_chorus_leadout
+      guitar_verse
+      voice_post_chorus
+    end
+  end
+
+  def outro_1
+    phrase do
+      hihat_line
+      kick " c 4 4 c 4 4 c 4 " * 4
+      bass " c2 " * 32
+
+      guitar_4 %{
+        3:c 3:c 3:c 3:c 3:c 3:c
+        c c c c c c g g
+        3:c 3:c 3:c 3:c 3:c 3:c
+        c c c c c g g g
+      }
+    end
+  end
+
+  def outro_2
+    phrase do
+      drum_verse
+      bass " c2 " * 32
+      guitar_chorus
+
+      guitar_4 " 3:g " * 24
+
+      guitar_5 %{ +
+        c d e 2:d d c d
+        e 2:d d c d e d
+        c d e 2:d d c d
+        e 2:d d c d e d
+      }
+    end
+  end
+
+  def the_end
+    phrase do
+      bass "c2"
+    end
+  end
+
+  setup
+
+  intro
+  verse_instrumental
+  verse_1
+  verse_2
+  chorus_1
+  chorus_2
+  post_chorus
+  outro_1
+  outro_2
+  the_end
+end
+
+song.play

data/examples/bloopsaphone/working/b1.rb

@@ -0,0 +1,64 @@
+require("bloops")
+require 'singleton'
+
+class PongSounds
+  include Singleton
+  
+  class << self
+    def bloops
+      @bloops ||= Bloops.new
+    end
+    
+    def sounds
+      @sounds ||= begin
+        @hit = bloops.sound Bloops::SQUARE
+        @hit.volume = 0.4
+        @hit.sustain = 0.02
+        @hit.attack = 0.02
+        @hit.decay = 0.1
+        @hit.punch = 0.1
+
+        @score = bloops.sound Bloops::SAWTOOTH
+        @score.volume = 0.2
+        @score.sustain = 0.25
+        @score.attack = 0.02
+        @score.decay = 0.1
+        @score.punch = 0.5
+        @score.arp = 0.1
+        @score.phase = 0.1
+
+        @bounce = bloops.sound Bloops::SINE
+        @bounce.volume = 0.5
+        @bounce.sustain = 0.1
+        @bounce.attack = 0.02
+        @bounce.decay = 0.1
+        @bounce.punch = 0.5
+        @bounce.arp = 0.1
+        @bounce.phase = 0.1
+        
+        {:hit => [@hit, "32 + A#"], :score => [@score, "16 - D#"], :bounce => [@bounce, "16 - F#"]}
+      end
+      
+      @sounds
+    end
+    
+    def play(name)
+      Thread.new do
+        bloops.tune *sounds[name]
+        bloops.play
+        sleep 0.1 until bloops.stopped?
+        bloops.clear
+      end
+    end
+  end
+end
+
+Shoes.app do
+   button("play 'em all") do
+      [:hit, :score, :bounce].each { |n|
+         PongSounds.play(n)
+         sleep 1
+      }
+   end
+end
+

data/examples/bloopsaphone/working/b2.rb

@@ -0,0 +1,36 @@
+      require 'bloops'
+
+    # the bloops o' phone
+      b = Bloops.new
+      b.tempo = 320
+
+    # melodious
+      s1 = b.sound Bloops::SQUARE
+      s1.punch = 0.5
+      s1.sustain = 0.4
+      s1.decay = 0.2
+      s1.arp = 0.4
+      s1.aspeed = 0.6
+      s1.repeat = 0.6
+      s1.phase = 0.2
+      s1.psweep = 0.2
+
+    # beats
+      s2 = b.sound Bloops::NOISE
+      s2.punch = 0.5
+      s2.sustain = 0.2
+      s2.decay = 0.4
+      s2.slide = -0.4
+      s2.phase = 0.2
+      s2.psweep = 0.2
+
+    # the tracks
+      b.tune s1, "f#5 c6 e4 b6 g5 d6 4  f#5 e5 c5 b6 c6 d6 4 "
+      b.tune s2, "4   c6 4  b5 4  4  e4 4   c6 4  b5 4  4  e4"
+
+    # and away we go
+      b.play
+      sleep 1 while !b.stopped?
+
+      b.play
+      sleep 1 while !b.stopped?

data/examples/bloopsaphone/working/bloops_test.rb

@@ -0,0 +1,41 @@
+require 'bloops'
+
+# the song object
+b = Bloops.new
+b.tempo = 320
+
+# an instrument
+saw = b.sound Bloops::SAWTOOTH
+saw.test
+
+# assign a track to the song
+b.tune saw, "c5 c6 b4 b5 d5 d6 e5 e6"
+
+# make it go
+b.play
+sleep 1 while !b.stopped?
+
+# a percussion
+beat = b.sound Bloops::NOISE
+beat.repeat = 0.6
+beat2 = b.sound Bloops::NOISE
+beat2.repeat = 0.2
+beat3 = b.sound Bloops::SQUARE
+beat3.sustain = 0.25
+beat3.decay = 0.2
+beat3.slide = 0.2
+beat3.square = 0.3
+beat3.vibe = 0.25
+beat3.vspeed = 0.25
+
+# assign a track to the song
+b.tune beat, "4 4 4 b4 4 d5 4 e5"
+b.tune beat2, "c2 4 c2 4 c2 4 c2 4"
+b.tune beat3, "4 4 4 4 4 c2 c5 4"
+
+# make it go
+loop do
+  b.play
+  saw.test
+  sleep 0.02 while !b.stopped?
+end

data/examples/bloopsaphone/working/bloopsaphone_theme_song_by_why.rb

@@ -0,0 +1,31 @@
+
+  # the bloops o' phone
+  b = Bloops.new
+  b.tempo = 320
+
+  # melodious
+  s1 = b.sound Bloops::SQUARE
+  s1.punch = 0.5
+  s1.sustain = 0.4
+  s1.decay = 0.2
+  s1.arp = 0.4
+  s1.aspeed = 0.6
+  s1.repeat = 0.6
+  s1.phase = 0.2
+  s1.psweep = 0.2
+  
+  # beats
+  s2 = b.sound Bloops::NOISE
+  s2.punch = 0.5
+  s2.sustain = 0.2
+  s2.decay = 0.4
+  s2.slide = -0.4
+  s2.phase = 0.2
+  s2.psweep = 0.2
+
+  # the tracks
+  b.tune s1, "f#5 c6 e4 b6 g5 d6 4  f#5 e5 c5 b6 c6 d6 4 "
+  b.tune s2, "4   c6 4  b5 4  4  e4 4   c6 4  b5 4  4  e4"
+  
+  b.play
+  

data/examples/bloopsaphone/working/feepogram.rb

@@ -0,0 +1,67 @@
+# downloaded from http://github.com/aanand/feepogram
+class Feepogram
+  attr_reader :bloops, :length
+
+  def initialize(bloops, &block)
+    @bloops = bloops
+    @length = 0
+
+    @sounds        = {}
+    @tracks        = {}
+    @track_lengths = {}
+
+    instance_eval(&block)
+  end
+
+  def metaclass
+    class << self; self; end
+  end
+
+  def metaclass_eval(&block)
+    metaclass.class_eval(&block)
+  end
+
+  def sound(name, base, &block)
+    name = name.to_sym
+
+    sound = bloops.sound(base)
+
+    @sounds[name]        = sound
+    @tracks[name]        = ""
+    @track_lengths[name] = 0
+
+    block.call(sound)
+
+    instance_variable_set("@#{name}", sound)
+
+    metaclass_eval do
+      define_method(name) do |notes|
+        dub(name, notes)
+      end
+    end
+  end
+
+  def phrase(&block)
+    instance_eval(&block)
+    @length += 32
+  end
+
+  def dub sound_name, notes
+    catchup = @length - @track_lengths[sound_name]
+
+    @tracks[sound_name] << ("4 " * catchup)
+    @tracks[sound_name] << notes
+    @track_lengths[sound_name] = length+32
+  end
+
+  def play
+    @tracks.each do |sound_name, notes|
+      bloops.tune @sounds[sound_name], notes
+
+      #puts "#{sound_name}: #{notes.gsub(/\s+/, ' ')}"
+    end
+
+    bloops.play
+    sleep 1 while !bloops.stopped?
+  end
+end

data/examples/bloopsaphone/working/simpsons_theme_song_by_why.rb

@@ -0,0 +1,14 @@
+
+  b = Bloops.new
+  b.tempo = 180
+  
+  
+  sound = b.sound Bloops::SQUARE
+  sound.volume = 0.4
+  sound.sustain = 0.3
+  sound.attack = 0.1
+  sound.decay = 0.3
+  
+  b.tune sound, "32 + C E F# 8:A G E C - 8:A 8:F# 8:F# 8:F# 2:G"
+  
+  b.play