beeps 0.1.10

data/include/beeps/ruby/processor.h

@@ -0,0 +1,86 @@
+// -*- c++ -*-
+#pragma once
+#ifndef __BEEPS_RUBY_PROCESSOR_H__
+#define __BEEPS_RUBY_PROCESSOR_H__
+
+
+#include <rucy/rucy.h>
+#include <rucy/class.h>
+#include <rucy/extension.h>
+#include <rucy/exception.h>
+#include <beeps/processor.h>
+
+
+namespace Beeps
+{
+
+
+	Rucy::Class processor_class ();
+	// class Beeps::Processor
+
+	Rucy::Class sine_wave_class ();
+	// class Beeps::SineWave
+
+	Rucy::Class square_wave_class ();
+	// class Beeps::SineWave
+
+	Rucy::Class sawtooth_wave_class ();
+	// class Beeps::SawtoothWave
+
+	Rucy::Class file_in_class ();
+	// class Beeps::FileIn
+
+
+}// Beeps
+
+
+RUCY_DECLARE_VALUE_FROM_TO(Beeps::Processor)
+
+RUCY_DECLARE_VALUE_FROM_TO(Beeps::SineWave)
+
+RUCY_DECLARE_VALUE_FROM_TO(Beeps::SquareWave)
+
+RUCY_DECLARE_VALUE_FROM_TO(Beeps::SawtoothWave)
+
+RUCY_DECLARE_VALUE_FROM_TO(Beeps::FileIn)
+
+
+namespace Rucy
+{
+
+
+	template <> inline Class
+	get_ruby_class<Beeps::Processor> ()
+	{
+		return Beeps::processor_class();
+	}
+
+	template <> inline Class
+	get_ruby_class<Beeps::SineWave> ()
+	{
+		return Beeps::sine_wave_class();
+	}
+
+	template <> inline Class
+	get_ruby_class<Beeps::SquareWave> ()
+	{
+		return Beeps::square_wave_class();
+	}
+
+	template <> inline Class
+	get_ruby_class<Beeps::SawtoothWave> ()
+	{
+		return Beeps::sawtooth_wave_class();
+	}
+
+	template <> inline Class
+	get_ruby_class<Beeps::FileIn> ()
+	{
+		return Beeps::file_in_class();
+	}
+
+
+}// Rucy
+
+
+#endif//EOH

data/include/beeps/ruby/sound.h

@@ -0,0 +1,42 @@
+// -*- c++ -*-
+#pragma once
+#ifndef __BEEPS_RUBY_SOUND_H__
+#define __BEEPS_RUBY_SOUND_H__
+
+
+#include <rucy/rucy.h>
+#include <rucy/class.h>
+#include <rucy/extension.h>
+#include <rucy/exception.h>
+#include <beeps/sound.h>
+
+
+namespace Beeps
+{
+
+
+	Rucy::Class sound_class ();
+	// class Beeps::Sound
+
+
+}// Beeps
+
+
+RUCY_DECLARE_VALUE_FROM_TO(Beeps::Sound)
+
+
+namespace Rucy
+{
+
+
+	template <> inline Class
+	get_ruby_class<Beeps::Sound> ()
+	{
+		return Beeps::sound_class();
+	}
+
+
+}// Rucy
+
+
+#endif//EOH

data/include/beeps/signals.h

@@ -0,0 +1,53 @@
+// -*- c++ -*-
+#pragma once
+#ifndef __BEEPS_SIGNALS_H__
+#define __BEEPS_SIGNALS_H__
+
+
+#include <xot/pimpl.h>
+#include <beeps/defs.h>
+
+
+namespace stk {class StkFrames;};
+
+
+namespace Beeps
+{
+
+
+	class Signals
+	{
+
+		public:
+
+			Signals (float seconds = 1, uint channels = 1);
+
+			~Signals ();
+
+			Signals copy () const;
+
+			float seconds () const;
+
+			uint samples () const;
+
+			uint channels () const;
+
+			      stk::StkFrames* frames ();
+
+			const stk::StkFrames* frames () const;
+
+			operator bool () const;
+
+			bool operator ! () const;
+
+			struct Data;
+
+			Xot::PImpl<Data, true> self;
+
+	};// Signals
+
+
+}// Beeps
+
+
+#endif//EOH

data/include/beeps/sound.h

@@ -0,0 +1,44 @@
+// -*- c++ -*-
+#pragma once
+#ifndef __BEEPS_SOUND_H__
+#define __BEEPS_SOUND_H__
+
+
+#include <xot/pimpl.h>
+
+
+namespace Beeps
+{
+
+
+	class Processor;
+
+
+	class Sound
+	{
+
+		public:
+
+			Sound ();
+
+			Sound (Processor* processor, float seconds);
+
+			~Sound ();
+
+			void play ();
+
+			operator bool () const;
+
+			bool operator ! () const;
+
+			struct Data;
+
+			Xot::PImpl<Data, true> self;
+
+	};// Sound
+
+
+}// Beeps
+
+
+#endif//EOH

data/lib/beeps.rb

@@ -0,0 +1,9 @@
+# -*- coding: utf-8 -*-
+
+
+require 'beeps/autoinit'
+require 'beeps/module'
+
+require 'beeps/beeps'
+require 'beeps/processor'
+require 'beeps/sound'

data/lib/beeps/autoinit.rb

@@ -0,0 +1,10 @@
+# -*- coding: utf-8 -*-
+
+
+require 'beeps/ext'
+
+
+unless $BEEPS_NOAUTOINIT
+  Beeps.init!
+  at_exit {Beeps.fin!}
+end

data/lib/beeps/beeps.rb

@@ -0,0 +1,49 @@
+# -*- coding: utf-8 -*-
+
+
+require 'beeps/ext'
+require 'beeps/sound'
+require 'beeps/processor'
+
+
+module Beeps
+
+
+  extend module ClassMethods
+
+    def be ()
+      beep_sound(0.1).play
+    end
+
+    def bee ()
+      beep_sound(0.3).play
+    end
+
+    def beep (time = 0.5)
+      beep_sound(time).play
+    end
+
+    def beeep ()
+      beep_sound(1).play
+    end
+
+    def beeeep ()
+      beep_sound(1.5).play
+    end
+
+    def beeeeep ()
+      beep_sound(2).play
+    end
+
+    private
+
+      def beep_sound (time)
+        Sound.new SquareWave.new, time
+      end
+
+    self
+
+  end# ClassMethods
+
+
+end# Beeps

data/lib/beeps/ext.rb

@@ -0,0 +1,4 @@
+# -*- coding: utf-8 -*-
+
+
+require 'beeps/native'

data/lib/beeps/module.rb

@@ -0,0 +1,49 @@
+# -*- coding: utf-8 -*-
+
+
+module Beeps
+
+
+  module Module
+
+    def name ()
+      super.split('::')[-2]
+    end
+
+    def version ()
+      open(root_dir 'VERSION') {|f| f.readline.chomp}
+    end
+
+    def root_dir (path = '')
+      File.expand_path "../../../#{path}", __FILE__
+    end
+
+    def include_dir ()
+      root_dir 'include'
+    end
+
+    def lib_dir ()
+      root_dir 'lib'
+    end
+
+    def task_dir ()
+      root_dir 'task'
+    end
+
+    def load_tasks (*names)
+      if names.empty?
+        Dir["#{task_dir}/**/*.rake"].each {|path| load path}
+      else
+        names.each do |name|
+          path = "#{task_dir}/#{name}.rake"
+          load path if File.exist? path
+        end
+      end
+    end
+
+    extend self
+
+  end# Module
+
+
+end# Beeps

data/lib/beeps/processor.rb

@@ -0,0 +1,60 @@
+# -*- coding: utf-8 -*-
+
+
+require 'xot/setter'
+require 'xot/block_util'
+require 'beeps/ext'
+
+
+module Beeps
+
+
+  class SineWave
+
+    include Xot::Setter
+
+    alias freq= frequency=
+    alias freq  frequency
+
+    def initialize (opts = {}, &block)
+      super()
+      set opts
+      Xot::BlockUtil.instance_eval_or_block_call self, &block if block
+    end
+
+  end# SineWave
+
+
+  class SquareWave
+
+    include Xot::Setter
+
+    alias freq= frequency=
+    alias freq  frequency
+
+    def initialize (opts = {}, &block)
+      super()
+      set opts
+      Xot::BlockUtil.instance_eval_or_block_call self, &block if block
+    end
+
+  end# SquareWave
+
+
+  class SawtoothWave
+
+    include Xot::Setter
+
+    alias freq= frequency=
+    alias freq  frequency
+
+    def initialize (opts = {}, &block)
+      super()
+      set opts
+      Xot::BlockUtil.instance_eval_or_block_call self, &block if block
+    end
+
+  end# SawtoothWave
+
+
+end# Beeps

data/lib/beeps/sound.rb

@@ -0,0 +1,19 @@
+# -*- coding: utf-8 -*-
+
+
+require 'beeps/ext'
+
+
+module Beeps
+
+
+  class Sound
+
+    def self.load (path)
+      Sound.new FileIn.new(path), 1
+    end
+
+  end# Sound
+
+
+end# Beeps

data/src/beeps.cpp

@@ -0,0 +1,93 @@
+// -*- objc -*-
+#include "beeps/beeps.h"
+
+
+#include <stdlib.h>
+#include "Stk.h"
+#include "beeps/openal.h"
+#include "beeps/exception.h"
+
+
+namespace Beeps
+{
+
+
+	namespace global
+	{
+
+		static ALCdevice* device   = NULL;
+
+		static ALCcontext* context = NULL;
+
+	}// global
+
+
+	namespace g = global;
+
+
+	static void
+	cleanup ()
+	{
+		alcMakeContextCurrent(NULL);
+
+		if (g::context)
+		{
+			alcDestroyContext(g::context);
+			g::context = NULL;
+		}
+
+		if (g::device)
+		{
+			alcCloseDevice(g::device);
+			g::device = NULL;
+		}
+	}
+
+	void
+	init ()
+	{
+		if (g::device || g::context)
+			beeps_error(__FILE__, __LINE__, "Beeps::init(): already initialized.");
+
+		stk::Stk::setSampleRate(44100);
+
+		g::device = alcOpenDevice(NULL);
+		if (!g::device) goto FAILED;
+
+		g::context = alcCreateContext(g::device, NULL);
+		if (!g::context) goto FAILED;
+
+		if (!alcMakeContextCurrent(g::context))
+			goto FAILED;
+
+		return;
+
+	FAILED:
+		cleanup();
+		openal_error(__FILE__, __LINE__, "failed to setup OpenAL.");
+	}
+
+	void
+	fin ()
+	{
+		if (!g::context)
+			beeps_error(__FILE__, __LINE__, "Beeps::fin(): not initialized.");
+
+		cleanup();
+	}
+
+	ALCdevice*
+	get_device ()
+	{
+		return g::device;
+	}
+
+
+	uint
+	sampling_rate ()
+	{
+		return stk::Stk::sampleRate();
+	}
+
+
+}// Beeps