radio 0.0.2 → 0.0.3

data/lib/radio/inputs/coreaudio.rb

@@ -1,102 +0,0 @@
-# Copyright 2012 The ham21/radio Authors
-#
-# Licensed under the Apache License, Version 2.0 (the "License");
-# you may not use this file except in compliance with the License.
-# You may obtain a copy of the License at
-#
-#     http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
-# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-# See the License for the specific language governing permissions and
-# limitations under the License.
-
-
-begin
-  require 'coreaudio'
-rescue LoadError => e
-end
-
-
-class Radio
-  module Input
-
-    class CoreAudio
-      
-      def self.status
-        if defined? ::CoreAudio
-          return "Loaded: %d input devices" % sources.count
-        end
-        unless defined? @is_darwin
-          @is_darwin = (`uname`.strip == 'Darwin') rescue false
-        end
-        return "Unsupported: requires Apple OS" unless @is_darwin
-        return 'Unavailable: gem install coreaudio'
-      end
-  
-      # I don't see a way to automatically set the CoreAudio CODEC rate.
-      # We'll present the nominal_rate as the only option.
-      def self.sources
-        return {} unless defined? ::CoreAudio
-        result = {}
-        ::CoreAudio.devices.each do |dev|
-          channels = dev.input_stream.channels
-          if channels > 0
-            result[dev.devid] = {
-              name: dev.name,
-              rates: [dev.nominal_rate.to_i],
-              channels: channels
-            }
-          end
-        end
-        result
-      end
-      
-      attr_reader :rate, :channels
-
-      # id is the key from the sources hash.
-      # rate is the desired hardware rate.  do not decimate/interpolate here.
-      def initialize id, rate, channel_i, channel_q
-        @device = ::CoreAudio::AudioDevice.new id.to_i
-        @rate = @device.nominal_rate
-        raise 'I channel fail' unless channel_i < @device.input_stream.channels
-        @channel_i = channel_i
-        @channels = 1
-        if channel_q
-          raise 'Q channel fail' unless channel_q < @device.input_stream.channels
-          @channel_q = channel_q
-          extend IQ
-          @channels = 2
-        end
-        # Half second of buffer
-        coreaudio_input_buffer_size = @channels * rate / 2
-        @buf = @device.input_buffer coreaudio_input_buffer_size
-        @buf.start
-      end
-
-      # This is called on its own thread in Rig and is expected to block.
-      def call samples
-        # CoreAudio range of -32767..32767 makes easy conversion to -1.0..1.0
-        @buf.read(samples)[@channel_i,true].to_f.div!(32767)
-      end
-  
-      # Once stopped, rig won't attempt starting again on this object.
-      def stop
-        @buf.stop
-      end
-
-      module IQ
-        def call samples
-          b = @buf.read samples
-          c_out = NArray.scomplex samples
-          c_out[0..-1] = b[@channel_i,true].to_f.div!(32767)
-          c_out.imag = b[@channel_q,true].to_f.div!(32767)
-          c_out
-        end
-      end
-  
-    end
-
-  end
-end

data/lib/radio/psk31/fir_coef.rb

@@ -1,292 +0,0 @@
-# These are from LGPL licensed programs if they are even copyrightable.
-# They will be removed after I implement remez in Ruby.
-
-
-class Radio
-  class PSK31
-
-    # 48000 to 8000 decimation
-    FIR_DEC6 = [
-       -0.001026086585,
-       -0.002131424398,
-       -0.003473651912,
-       -0.005415991401,
-       -0.007094896149,
-       -0.008685456592,
-       -0.009325598368,
-       -0.009096149588,
-       -0.007453841473,
-       -0.004787743788,
-       -0.001155271744,
-        0.002594565142,
-        0.005930466661,
-        0.007902971637,
-        0.008117998323,
-        0.006209532708,
-        0.002565394219,
-       -0.002211033166,
-       -0.006928668876,
-       -0.010456837484,
-       -0.011638240040,
-       -0.009915015895,
-       -0.005261804435,
-        0.001469200215,
-        0.008865519609,
-        0.015027698257,
-        0.018157576105,
-        0.016869453853,
-        0.010745489111,
-        0.000474997075,
-       -0.012015135186,
-       -0.023901641616,
-       -0.031878023716,
-       -0.032876349281,
-       -0.024689692215,
-       -0.006586586958,
-        0.020417464549,
-        0.053543134171,
-        0.088652482149,
-        0.120891532319,
-        0.145553464727,
-        0.158910442030,
-        0.158910442030,
-        0.145553464727,
-        0.120891532319,
-        0.088652482149,
-        0.053543134171,
-        0.020417464549,
-       -0.006586586958,
-       -0.024689692215,
-       -0.032876349281,
-       -0.031878023716,
-       -0.023901641616,
-       -0.012015135186,
-        0.000474997075,
-        0.010745489111,
-        0.016869453853,
-        0.018157576105,
-        0.015027698257,
-        0.008865519609,
-        0.001469200215,
-       -0.005261804435,
-       -0.009915015895,
-       -0.011638240040,
-       -0.010456837484,
-       -0.006928668876,
-       -0.002211033166,
-        0.002565394219,
-        0.006209532708,
-        0.008117998323,
-        0.007902971637,
-        0.005930466661,
-        0.002594565142,
-       -0.001155271744,
-       -0.004787743788,
-       -0.007453841473,
-       -0.009096149588,
-       -0.009325598368,
-       -0.008685456592,
-       -0.007094896149,
-       -0.005415991401,
-       -0.003473651912,
-       -0.002131424398,
-       -0.001026086585
-    ].freeze
-    
-    
-    # 64-tap raised-cosine
-    FIR_DEC16 = [
-      0.000000,
-      0.000038,
-      0.000150,
-      0.000336,
-      0.000595,
-      0.000922,
-      0.001317,
-      0.001773,
-      0.002288,
-      0.002856,
-      0.003472,
-      0.004130,
-      0.004823,
-      0.005545,
-      0.006288,
-      0.007047,
-      0.007812,
-      0.008578,
-      0.009337,
-      0.010080,
-      0.010802,
-      0.011495,
-      0.012153,
-      0.012769,
-      0.013337,
-      0.013852,
-      0.014308,
-      0.014703,
-      0.015030,
-      0.015289,
-      0.015475,
-      0.015587,
-      0.015625,
-      0.015587,
-      0.015475,
-      0.015289,
-      0.015030,
-      0.014703,
-      0.014308,
-      0.013852,
-      0.013337,
-      0.012769,
-      0.012153,
-      0.011495,
-      0.010802,
-      0.010080,
-      0.009337,
-      0.008578,
-      0.007813,
-      0.007047,
-      0.006288,
-      0.005545,
-      0.004823,
-      0.004130,
-      0.003472,
-      0.002856,
-      0.002288,
-      0.001773,
-      0.001317,
-      0.000922,
-      0.000595,
-      0.000336,
-      0.000150,
-      0.000038
-    ].freeze
-    
-    
-    #  Design method: Parks-McClellan method
-    #  Number of taps  =  35
-    #  Number of bands =  2 
-    #  Band     Lower       Upper       Value      Weight
-    #            edge        edge
-    #   1         0.0       .0125         1.0         1
-    #   2         .125      .5          .000001       10  
-    FIR_DEC = [
-     -0.00021203644,
-     -0.00070252426,
-      -0.0016680526,
-      -0.0031934799,
-      -0.0051899752,
-      -0.0072862086,
-      -0.0087714235,
-      -0.0086272102,
-      -0.0056735648,
-       0.0011784719,
-         0.01261353,
-        0.028615709,
-        0.048280707,
-        0.069812051,
-        0.090735013,
-         0.10830381,
-         0.12001897,
-         0.12413413,
-         0.12001897,
-         0.10830381,
-        0.090735013,
-        0.069812051,
-        0.048280707,
-        0.028615709,
-         0.01261353,
-       0.0011784719,
-      -0.0056735648,
-      -0.0086272102,
-      -0.0087714235,
-      -0.0072862086,
-      -0.0051899752,
-      -0.0031934799,
-      -0.0016680526,
-     -0.00070252426,
-     -0.00021203644
-    ].freeze
-
-    
-    # 16 Hz bw LP filter for data recovery
-    #  Filter type:   Multiband filter
-    #  Design method: Parks-McClellan method
-    #  Number of taps  =  65
-    #  Number of bands =  2 
-    #  Band   Lower       Upper       Value      Weight
-    #         edge        edge
-    #
-    #	1       0.0        .03125         1.         1.
-    #	2        .0625     .5          .0000       286.
-    FIR_BIT = [
-     4.3453566e-005,
-     -0.00049122414,
-     -0.00078771292,
-      -0.0013507826,
-      -0.0021287814,
-       -0.003133466,
-       -0.004366817,
-      -0.0058112187,
-      -0.0074249976,
-      -0.0091398882,
-       -0.010860157,
-       -0.012464086,
-       -0.013807772,
-       -0.014731191,
-       -0.015067057,
-       -0.014650894,
-       -0.013333425,
-        -0.01099166,
-      -0.0075431246,
-      -0.0029527849,
-       0.0027546292,
-       0.0094932775,
-        0.017113308,
-        0.025403511,
-        0.034099681,
-        0.042895839,
-        0.051458575,
-        0.059444853,
-        0.066521003,
-        0.072381617,
-        0.076767694,
-        0.079481619,
-        0.080420311,
-        0.079481619,
-        0.076767694,
-        0.072381617,
-        0.066521003,
-        0.059444853,
-        0.051458575,
-        0.042895839,
-        0.034099681,
-        0.025403511,
-        0.017113308,
-       0.0094932775,
-       0.0027546292,
-      -0.0029527849,
-      -0.0075431246,
-        -0.01099166,
-       -0.013333425,
-       -0.014650894,
-       -0.015067057,
-       -0.014731191,
-       -0.013807772,
-       -0.012464086,
-       -0.010860157,
-      -0.0091398882,
-      -0.0074249976,
-      -0.0058112187,
-       -0.004366817,
-       -0.003133466,
-      -0.0021287814,
-      -0.0013507826,
-     -0.00078771292,
-     -0.00049122414,
-     4.3453566e-005
-    ].freeze
-
-
-  end
-end

data/test/test.rb

@@ -1,76 +0,0 @@
-require_relative '../lib/radio'
-
-# Basic loading of uncompressed wav files for testing
-def load_wav filename
-  sample_rate = nil
-  fmt = nil
-  data = ''
-  File.open(filename) do |file|
-    head = file.read(12)
-    until file.eof?
-      type = file.read(4)
-      size = file.read(4).unpack("V")[0].to_i
-      case type
-      when 'fmt '
-        fmt = file.read(size)
-        fmt = {
-          :id => fmt.slice(0,2).unpack('c')[0],
-          :channel => fmt.slice(2,2).unpack('c')[0],
-          :hz => fmt.slice(4,4).unpack('V').join.to_i,
-          :byte_sec => fmt.slice(8,4).unpack('V').join.to_i,
-          :block_size => fmt.slice(12,2).unpack('c')[0],
-          :bit_sample => fmt.slice(14,2).unpack('c')[0]
-        }
-      when 'data'
-        data += file.read size
-      else
-        raise type
-      end
-    end
-  end
-  [fmt, data]
-end
-
-# Generate a float enumerator for binary string audio data.
-# Packing is defined with Array#pack/String#unpack formats.
-# Usage: floats = $iterators['C'].enum_for(:call, data)
-# 'C' should be almost as fast as String#each_byte.
-# If slow, you probably need to: data.force_encoding('binary')
-$iterators = Hash.new do |hash, packing|
-  packing = packing.to_s.dup
-  sample_size = [0].pack(packing).size
-  case ("\x80"*16).unpack(packing)[0]
-  when 128
-    max = 128
-    offset = -128
-  when -128
-    max = 128
-    offset = 0
-  when 32768 + 128
-    max = 32768
-    offset = -32768
-  when -32768 + 128
-    max = 32768
-    offset = 0
-  else
-    raise 'unable to interpret packing format'
-  end
-  hash[packing] = Proc.new do |data, &block|
-    pos = 0
-    size = data.size
-    while pos < size
-      sample = data.slice(pos,sample_size).unpack(packing)[0] || 0
-      block.call (sample + offset).to_f / max
-      pos += sample_size
-    end
-  end
-end
-
-
-fmt, data = load_wav 'wav/bpsk8k.wav'
-data.force_encoding('binary') 
-radio = Radio::PSK31::Rx.new 1000
-
-# "CQ CQ CQ de EA2BAJ EA2BAJ EA2BAJ\rPSE K\r"
-i =  $iterators['C'].enum_for(:call, data)
-radio.call(i){|o| p o}