bloops 0.5

data/ext/ruby/rubyext.c

@@ -0,0 +1,332 @@
+//
+// rubyext.c
+// the ruby binding to bloopsaphone
+//
+// (c) 2009 why the lucky stiff
+//
+#include <ruby.h>
+#include "bloopsaphone.h"
+
+static VALUE cBloops, cSound, cTrack;
+static bloopsaphone *Pplain;
+
+#ifndef RSTRING_LEN
+#define RSTRING_LEN(str) RSTRING(str)->len
+#define RSTRING_PTR(str) RSTRING(str)->ptr
+#endif
+
+//
+// Main Bloops object
+//
+static void
+rb_bloops_free(bloops *B)
+{
+  bloops_destroy(B);
+}
+
+VALUE
+rb_bloops_alloc(VALUE klass)
+{
+  bloops *B = bloops_new();
+  return Data_Wrap_Struct(klass, NULL, rb_bloops_free, B);
+}
+
+VALUE
+rb_bloops_clear(VALUE self)
+{
+  bloops *B;
+  Data_Get_Struct(self, bloops, B);
+  bloops_clear(B);
+  return self;
+}
+
+VALUE
+rb_bloops_play(VALUE self)
+{
+  bloops *B;
+  Data_Get_Struct(self, bloops, B);
+  bloops_play(B);
+  return self;
+}
+
+VALUE
+rb_bloops_is_stopped(VALUE self)
+{
+  bloops *B;
+  Data_Get_Struct(self, bloops, B);
+  return bloops_is_done(B) ? Qtrue : Qfalse;
+}
+
+VALUE
+rb_bloops_get_tempo(VALUE self)
+{
+  bloops *B;
+  Data_Get_Struct(self, bloops, B);
+  return INT2NUM(B->tempo);
+}
+
+VALUE
+rb_bloops_set_tempo(VALUE self, VALUE tempo)
+{
+  bloops *B;
+  Data_Get_Struct(self, bloops, B);
+  bloops_tempo(B, NUM2INT(tempo));
+  return tempo;
+}
+
+//
+// Instrument creation
+//
+static void
+rb_bloops_sound_free(bloopsaphone *sound)
+{
+  bloops_sound_destroy(sound);
+}
+
+VALUE
+rb_bloops_load(VALUE self, VALUE fname)
+{
+  bloops *B;
+  bloopsaphone *P;
+  Data_Get_Struct(self, bloops, B);
+
+  StringValue(fname);
+  P = bloops_sound_file(B, RSTRING_PTR(fname));
+  if (P == NULL) return Qnil;
+  return Data_Wrap_Struct(cSound, NULL, rb_bloops_sound_free, P);
+}
+
+VALUE
+rb_bloops_sound(VALUE self, VALUE type)
+{
+  bloopsaphone *P = bloops_square();
+  P->params.type = (unsigned char)NUM2INT(type);
+  return Data_Wrap_Struct(cSound, NULL, rb_bloops_sound_free, P);
+}
+
+VALUE
+rb_bloops_sound_copy(VALUE self, VALUE other)
+{
+  bloopsaphone *P;
+  bloopsaphone *O;
+  Data_Get_Struct(self, bloopsaphone, P);
+  Data_Get_Struct(other, bloopsaphone, O);
+  bloops_sound_copy(P, O);
+  return Qnil;
+}
+
+VALUE
+rb_bloops_sound_str(VALUE self)
+{
+  bloopsaphone *P;
+  Data_Get_Struct(self, bloopsaphone, P);
+  return rb_str_new2(bloops_sound_str(P));
+}
+
+VALUE
+rb_bloops_reset(VALUE self)
+{
+  bloopsaphone *P;
+  Data_Get_Struct(self, bloopsaphone, P);
+  bloops_sound_copy(P, Pplain);
+  return self;
+}
+
+VALUE
+rb_bloops_test(VALUE self)
+{
+  bloops *B;
+  bloopsatrack *T;
+  bloopsaphone *P;
+
+  Data_Get_Struct(self, bloopsaphone, P);
+
+  B = bloops_new();
+  bloops_tempo(B, 120);
+  T = bloops_track2(B, P, "C");
+  T->notes[0].tone = 'n';
+  memcpy(&T->params, &P->params, sizeof(bloopsaparams));
+  bloops_play(B);
+  bloops_track_destroy(T);
+  bloops_destroy(B);
+
+  return self;
+}
+
+VALUE
+rb_bloops_get_type(VALUE self)
+{
+  bloopsaphone *P;
+  Data_Get_Struct(self, bloopsaphone, P);
+  return INT2NUM((int)P->params.type);
+}
+
+VALUE
+rb_bloops_set_type(VALUE self, VALUE type)
+{
+  bloopsaphone *P;
+  Data_Get_Struct(self, bloopsaphone, P);
+  P->params.type = (unsigned char)NUM2INT(type);
+  return type;
+}
+
+#define SOUND_ACCESSOR(name) \
+  VALUE rb_bloops_get_##name(VALUE self) { \
+    bloopsaphone *P; \
+    Data_Get_Struct(self, bloopsaphone, P); \
+    return rb_float_new(P->params.name); \
+  } \
+  VALUE rb_bloops_set_##name(VALUE self, VALUE f) { \
+    bloopsaphone *P; \
+    Data_Get_Struct(self, bloopsaphone, P); \
+    P->params.name = (float)NUM2DBL(f); \
+    return f; \
+  }
+
+SOUND_ACCESSOR(arp);
+SOUND_ACCESSOR(aspeed);
+SOUND_ACCESSOR(attack);
+SOUND_ACCESSOR(decay);
+SOUND_ACCESSOR(dslide);
+SOUND_ACCESSOR(freq);
+SOUND_ACCESSOR(hpf);
+SOUND_ACCESSOR(hsweep);
+SOUND_ACCESSOR(limit);
+SOUND_ACCESSOR(lpf);
+SOUND_ACCESSOR(lsweep);
+SOUND_ACCESSOR(phase);
+SOUND_ACCESSOR(psweep);
+SOUND_ACCESSOR(repeat);
+SOUND_ACCESSOR(resonance);
+SOUND_ACCESSOR(slide);
+SOUND_ACCESSOR(square);
+SOUND_ACCESSOR(sustain);
+SOUND_ACCESSOR(sweep);
+SOUND_ACCESSOR(punch);
+SOUND_ACCESSOR(vibe);
+SOUND_ACCESSOR(vspeed);
+SOUND_ACCESSOR(vdelay);
+SOUND_ACCESSOR(volume);
+
+//
+// Individual track object
+//
+static void
+rb_bloops_track_free(bloopsatrack *track)
+{
+  bloops_track_destroy(track);
+}
+
+VALUE
+rb_bloops_tune(VALUE self, VALUE sound, VALUE notes)
+{
+  bloops *B;
+  bloopsaphone *phone;
+  bloopsatrack *track;
+  Data_Get_Struct(self, bloops, B);
+  Data_Get_Struct(sound, bloopsaphone, phone);
+
+  StringValue(notes);
+  track = bloops_track(B, phone, RSTRING_PTR(notes), RSTRING_LEN(notes));
+  return Data_Wrap_Struct(cTrack, NULL, rb_bloops_track_free, track);
+}
+
+VALUE
+rb_bloops_track_str(VALUE self)
+{
+  char *str;
+  VALUE obj;
+  bloopsatrack *track;
+  Data_Get_Struct(self, bloopsatrack, track);
+
+  str = bloops_track_str(track);
+  obj = rb_str_new2(str);
+  free(str);
+
+  return obj;
+}
+
+//
+// Ruby extension startup
+//
+void
+Init_bloops()
+{
+  Pplain = bloops_square();
+
+  cBloops = rb_define_class("Bloops", rb_cObject);
+  rb_define_alloc_func(cBloops, rb_bloops_alloc);
+  rb_define_method(cBloops, "clear", rb_bloops_clear, 0);
+  rb_define_method(cBloops, "load", rb_bloops_load, 1);
+  rb_define_method(cBloops, "play", rb_bloops_play, 0);
+  rb_define_method(cBloops, "sound", rb_bloops_sound, 1);
+  rb_define_singleton_method(cBloops, "sound", rb_bloops_sound, 1);
+  rb_define_method(cBloops, "stopped?", rb_bloops_is_stopped, 0);
+  rb_define_method(cBloops, "tempo", rb_bloops_get_tempo, 0);
+  rb_define_method(cBloops, "tempo=", rb_bloops_set_tempo, 1);
+  rb_define_method(cBloops, "tune", rb_bloops_tune, 2);
+
+  rb_const_set(cBloops, rb_intern("SQUARE"), INT2NUM(BLOOPS_SQUARE));
+  rb_const_set(cBloops, rb_intern("SAWTOOTH"), INT2NUM(BLOOPS_SAWTOOTH));
+  rb_const_set(cBloops, rb_intern("SINE"), INT2NUM(BLOOPS_SINE));
+  rb_const_set(cBloops, rb_intern("NOISE"), INT2NUM(BLOOPS_NOISE));
+
+  cSound = rb_define_class_under(cBloops, "Sound", rb_cObject);
+  rb_define_method(cSound, "initialize_copy", rb_bloops_sound_copy, 1);
+  rb_define_method(cSound, "to_s", rb_bloops_sound_str, 0);
+  rb_define_method(cSound, "reset", rb_bloops_reset, 0);
+  rb_define_method(cSound, "test", rb_bloops_test, 0);
+  rb_define_method(cSound, "arp", rb_bloops_get_arp, 0);
+  rb_define_method(cSound, "arp=", rb_bloops_set_arp, 1);
+  rb_define_method(cSound, "aspeed", rb_bloops_get_aspeed, 0);
+  rb_define_method(cSound, "aspeed=", rb_bloops_set_aspeed, 1);
+  rb_define_method(cSound, "attack", rb_bloops_get_attack, 0);
+  rb_define_method(cSound, "attack=", rb_bloops_set_attack, 1);
+  rb_define_method(cSound, "decay", rb_bloops_get_decay, 0);
+  rb_define_method(cSound, "decay=", rb_bloops_set_decay, 1);
+  rb_define_method(cSound, "dslide", rb_bloops_get_dslide, 0);
+  rb_define_method(cSound, "dslide=", rb_bloops_set_dslide, 1);
+  rb_define_method(cSound, "freq", rb_bloops_get_freq, 0);
+  rb_define_method(cSound, "freq=", rb_bloops_set_freq, 1);
+  rb_define_method(cSound, "hpf", rb_bloops_get_hpf, 0);
+  rb_define_method(cSound, "hpf=", rb_bloops_set_hpf, 1);
+  rb_define_method(cSound, "hsweep", rb_bloops_get_hsweep, 0);
+  rb_define_method(cSound, "hsweep=", rb_bloops_set_hsweep, 1);
+  rb_define_method(cSound, "limit", rb_bloops_get_limit, 0);
+  rb_define_method(cSound, "limit=", rb_bloops_set_limit, 1);
+  rb_define_method(cSound, "lpf", rb_bloops_get_lpf, 0);
+  rb_define_method(cSound, "lpf=", rb_bloops_set_lpf, 1);
+  rb_define_method(cSound, "lsweep", rb_bloops_get_lsweep, 0);
+  rb_define_method(cSound, "lsweep=", rb_bloops_set_lsweep, 1);
+  rb_define_method(cSound, "phase", rb_bloops_get_phase, 0);
+  rb_define_method(cSound, "phase=", rb_bloops_set_phase, 1);
+  rb_define_method(cSound, "psweep", rb_bloops_get_psweep, 0);
+  rb_define_method(cSound, "psweep=", rb_bloops_set_psweep, 1);
+  rb_define_method(cSound, "punch", rb_bloops_get_punch, 0);
+  rb_define_method(cSound, "punch=", rb_bloops_set_punch, 1);
+  rb_define_method(cSound, "repeat", rb_bloops_get_repeat, 0);
+  rb_define_method(cSound, "repeat=", rb_bloops_set_repeat, 1);
+  rb_define_method(cSound, "resonance", rb_bloops_get_resonance, 0);
+  rb_define_method(cSound, "resonance=", rb_bloops_set_resonance, 1);
+  rb_define_method(cSound, "slide", rb_bloops_get_slide, 0);
+  rb_define_method(cSound, "slide=", rb_bloops_set_slide, 1);
+  rb_define_method(cSound, "square", rb_bloops_get_square, 0);
+  rb_define_method(cSound, "square=", rb_bloops_set_square, 1);
+  rb_define_method(cSound, "sweep", rb_bloops_get_sweep, 0);
+  rb_define_method(cSound, "sweep=", rb_bloops_set_sweep, 1);
+  rb_define_method(cSound, "sustain", rb_bloops_get_sustain, 0);
+  rb_define_method(cSound, "sustain=", rb_bloops_set_sustain, 1);
+  rb_define_method(cSound, "type", rb_bloops_get_type, 0);
+  rb_define_method(cSound, "type=", rb_bloops_set_type, 1);
+  rb_define_method(cSound, "vibe", rb_bloops_get_vibe, 0);
+  rb_define_method(cSound, "vibe=", rb_bloops_set_vibe, 1);
+  rb_define_method(cSound, "vspeed", rb_bloops_get_vspeed, 0);
+  rb_define_method(cSound, "vspeed=", rb_bloops_set_vspeed, 1);
+  rb_define_method(cSound, "vdelay", rb_bloops_get_vdelay, 0);
+  rb_define_method(cSound, "vdelay=", rb_bloops_set_vdelay, 1);
+  rb_define_method(cSound, "volume", rb_bloops_get_volume, 0);
+  rb_define_method(cSound, "volume=", rb_bloops_set_volume, 1);
+
+  cTrack = rb_define_class_under(cBloops, "Track", rb_cObject);
+  rb_define_method(cTrack, "to_s", rb_bloops_track_str, 0);
+}

data/ext/ruby/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/ext/ruby/test_load.rb

@@ -0,0 +1,25 @@
+require './bloops'
+
+b = Bloops.new
+
+# ice #1
+puts "** playing scale using ice.blu"
+ice = b.load "../../sounds/ice.blu"
+b.tune ice, "c c# d eb e f f# g ab a bb b + c"
+
+b.play
+sleep 1 while !b.stopped?
+
+b.clear
+
+# ice #2
+puts "** same scale built from ruby"
+ice2 = b.sound Bloops::SQUARE
+ice2.punch = 0.441
+ice2.sustain = 0.067
+ice2.decay = 0.197
+ice2.freq = 0.499
+b.tune ice2, "c c# d eb e f f# g ab a bb b + c"
+
+b.play
+sleep 1 while !b.stopped?

data/ext/ruby/tune_cheeky_drat.rb

@@ -0,0 +1,210 @@
+#
+#        -)= Cheeky Drat (=-
+#       composed by freQvibez
+#         [within TextMate]
+# exclusively for _why's BloopSaphone
+#
+#      from Farbrausch with ♥
+#
+
+require './bloops'
+
+b = Bloops.new
+b.tempo = 172
+
+bass = b.sound Bloops::SQUARE
+bass.volume = 0.4
+bass.sustain = 0.1
+bass.attack = 0.1
+bass.decay = 0.3
+
+base = b.sound Bloops::SQUARE
+base.volume = 0.35
+base.punch = 0.3
+base.sustain = 0.1
+base.decay = 0.3
+base.phase = 0.2
+base.lpf = 0.115
+base.resonance = 0.55
+base.slide = -0.4
+
+snare = b.sound Bloops::NOISE
+snare.attack = 0.075
+snare.sustain = 0.01
+snare.decay = 0.33
+snare.hpf = 0.55
+snare.resonance = 0.44
+snare.dslide = -0.452
+
+chord = b.sound Bloops::SQUARE
+chord.volume = 0.275
+chord.attack = 0.05
+chord.sustain = 0.6
+chord.decay = 0.9
+chord.phase = 0.35
+chord.psweep = -0.25
+chord.vibe = 0.0455
+chord.vspeed = 0.255
+
+lead = b.sound Bloops::SINE
+lead.volume = 0.45
+lead.attack = 0.3
+lead.sustain = 0.15
+lead.decay = 0.8
+lead.vibe = 0.035
+lead.vspeed = 0.345
+lead.vdelay = -0.5
+lead.hpf = 0.2
+lead.hsweep = -0.05
+lead.resonance = 0.55
+lead.phase = 0.4
+lead.psweep = -0.05
+
+b.tune bass, %q^
+  8 4a1 8a 8a 4a 4a 4c2 9c 7c 4c 8e
+  8 4g2 8g 8 4g 4g 4d2 8 8c3 4b2 8e
+  8 4d2 8c 8c 4c 4 4a2 9a 7a 4a 8a
+  8 4g2 8g 8 4g 4d 4d2 9e3 7c2 8 4b1
+
+  8 4a2 8a 8d 4 4d 4a1 8a 8a 4d 8d
+  8 4g2 8g 8 4g 4g 4c2 8c 8c2 4g 8c
+  8 4d2 8d 8d 4d 4d 4a1 8a 8a 4a 8a
+  8 4g2 8g 8 4g 4g 4c2 8c 8c 4c 8b1
+
+  8 4a1 8a 8a 4a 4a 4c2 9c 7c 4c 8e
+  8 4g2 8g 8 4g 4g 4d2 8 8c3 4b2 8e
+  8 4d2 8c 8c 4c 4 4a2 9a 7a 4a 8a
+  8 4g2 8g 8 4g 4d 4d2 9e3 7c2 8 4b1
+
+  8 4a2 8a 8d 4 4d 4a1 8a 8a 4d 8d
+  8 4g2 8g 8 4g 4g 4c2 8c 8c2 4g 8c
+  8 4d2 8d 8d 4d 4d 4a1 8a 8a 4a 8a
+  8 4g2 8g 8 4g 4g 4c2 8c 8c 4c 8b1
+  ^
+
+b.tune base, %q^
+  4a2 4 8a 8a 4 4a 4 8a 8a 4
+  4a 4 8a 8a 4 4a 4 4a 8 8a
+  4a 4 8a 8a 4 4a 4 8a 8a 4
+  4a 4 8a 4 8a 4a 4 8a 4 8a
+
+  4a2 4 8a 8a 4 4a 4 8a 8a 4
+  4a 4 8a 8a 4 4a 4 4a 8 8a
+  4a 4 8a 8a 4 4a 4 8a 8a 4
+  4a 4 8a 4 8a 4a 4 8a 4 8a
+
+  4a2 4 8a 8a 4 4a 4 8a 8a 4
+  4a 4 8a 8a 4 4a 4 4a 8 8a
+  4a 4 8a 8a 4 4a 4 8a 8a 4
+  4a 4 8a 4 8a 4a 4 8a 4 8a
+
+  4a2 4 8a 8a 4 4a 4 8a 8a 4
+  4a 4 8a 8a 4 4a 4 4a 8 8a
+  4a 4 8a 8a 4 4a 4 8a 8a 4
+  4a 4 8a 4 8a 4a 4 8a 4 8a
+  ^
+
+b.tune snare, %q^
+  4 4a2 4 4a2 4 4a2 4 4a2
+  4 4a2 4 4a2 4 4a2 4 4a2
+  4 4a2 4 4a2 4 4a2 4 4a2
+  4 4a2 4 4a2 4 4a2 4 8a2 8a2
+
+  4 4a2 4 4a2 4 4a2 4 4a2
+  4 4a2 4 4a2 4 4a2 4 4a2
+  4 4a2 4 4a2 4 4a2 4 4a2
+  4 4a2 4 4a2 4 4a2 4 8a2 8a2
+
+  4 4a2 4 4a2 4 4a2 4 4a2
+  4 4a2 4 4a2 4 4a2 4 4a2
+  4 4a2 4 4a2 4 4a2 4 4a2
+  4 4a2 4 4a2 4 4a2 4 8a2 8a2
+
+  4 4a2 4 4a2 4 4a2 4 4a2
+  4 4a2 4 4a2 4 4a2 4 4a2
+  4 4a2 4 4a2 4 4a2 4 4a2
+  4 4a2 4 4a2 4 4a2 4 8a2 8a2
+  ^
+
+b.tune chord, %q^
+      1 
+   1 1
+  1 1 1
+   1 1
+
+  1a2 2a3 2 1g2 2d3 2
+  1a2 2a3 2 1d2 4g3 4g2 2e3
+
+  1a2 2a3 2 1g2 2d3 2
+  1a2 2a3 2 1d2 2g3 2
+
+  1a2 2a3 2 1g2 2d3 2
+  1a2 2a3 2 1d2 2g3 2
+
+  1a2 2a3 2 1g2 2d3 2
+  1a2 2a3 2 1d2 2g3 2
+  ^
+
+b.tune chord, %q^
+      1 
+   1 1
+  1 1 1
+   1 1
+
+  2 2c4 2 1 2b4 2
+  1 2c4 4 2g3 2b4 1
+
+  2 2c4 2 1 2b4 2
+  1 2c4 2 1 2b4 1
+
+  2 2c4 2 1 2b4 2
+  1 2c4 2 1 2b4 1
+
+  2 2c4 2 1 2b4 2
+  1 2c4 2 1 2b4 1
+  ^
+
+b.tune chord, %q^
+      1 
+   1 1
+  1 1 1
+   1 1
+
+  2 1 2e4 2 1 2d4
+  2 1 2e4 2 1 2d4
+
+  2 1 2e4 2 1 2d4
+  2 1 2e4 2 1 2d4
+
+  2 1 2e4 2 1 2d4
+  2 1 2e4 2 1 2d4
+
+  2 1 2e4 2 1 2d4
+  2 1 2e4 2 1 2d4
+  ^
+
+b.tune lead, %q^
+      1      4
+   1 1    1 1
+  1 1 1  1 1 1
+   1 1    1 1
+
+  2g3 1a4 2
+  2c5 1e4 2 1
+  1a4 2 4 2e4 1d4 2
+
+  2a3 1b4 2
+  2d5 2g4 1c5
+  1a4 1e5
+  1b4 2 4 8 8d4  
+
+  2g3 1a4 2
+  2c5 1e4 3d4 5g4
+  1a4 1e4
+  1d4 1
+  ^
+
+while true do
+  b.play
+  sleep 0.5 while not b.stopped?
+end