osc 0.1.4

data/sample/joy.rb

@@ -0,0 +1,78 @@
+#! /usr/bin/env ruby
+
+# joy.rb: Written by Tadayoshi Funaba 2005
+# $Id: joy.rb,v 1.2 2005-08-06 15:28:49+09 tadf Exp $
+
+require 'osc'
+require 'Win32API'
+require 'gopt'
+include  OSC
+
+module OSC
+
+  class WinMM < Win32API
+
+    def initialize(proc, import, export)
+      super('winmm', proc, import, export)
+    end
+
+  end
+
+  module DevJoy
+
+    @@GetNumDevs = WinMM.new('joyGetNumDevs', %w(), 'l')
+    @@GetDevCaps = WinMM.new('joyGetDevCaps', %w(l p l), 'l')
+    @@GetPos = WinMM.new('joyGetPos', %w(l p), 'l')
+
+    def getnumdev() @@GetNumDevs.call end
+
+    def getdevcaps(did)
+      caps = "\000" * 404
+      @@GetDevCaps.call(did, caps, caps.size)
+      caps.unpack('S2Z32I19Z32Z260')
+    end
+
+    def getpos(did)
+      info = "\000" * 16
+      @@GetPos.call(did, info)
+      info.unpack('I4')
+    end
+
+    module_function :getnumdev, :getdevcaps, :getpos
+
+  end
+
+end
+
+def usage
+  warn 'usage: joy [-h rhost] [-p rport]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('h:p:d:')
+
+rhost = (opt[:h] || 'localhost')
+rport = (opt[:p] || '10000').to_i
+num = (opt[:d] || '0').to_i
+
+sc = SimpleClient.new(rhost, rport)
+
+loop do
+  x, y, z, b = OSC::DevJoy.getpos(num)
+  sc.send(Message.new('/joy/pos', 'f'*3,
+		      x - (2**15-1),
+		      y - (2**15-1),
+		      z - (2**15-1)))
+  sc.send(Message.new('/joy/buttons', 'f'*10,
+		      (b >> 0) & 1,
+		      (b >> 1) & 1,
+		      (b >> 2) & 1,
+		      (b >> 3) & 1,
+		      (b >> 4) & 1,
+		      (b >> 5) & 1,
+		      (b >> 6) & 1,
+		      (b >> 7) & 1,
+		      (b >> 8) & 1,
+		      (b >> 9) & 1))
+  sleep 0.01
+end

data/sample/localtest.rb

@@ -0,0 +1,29 @@
+# localtest.rb: Written by Tadayoshi Funaba 2005,2006
+# $Id: localtest.rb,v 1.4 2006-11-10 21:54:30+09 tadf Exp $
+
+require 'osc'
+include  OSC
+
+PORT = 10000
+
+th = Thread.fork do
+  ss = SimpleServer.new(PORT)
+  ss.add_method('/foo/*') do |mesg|
+    p [mesg.address, mesg.to_a]
+    exit if mesg.address =~ /\/kill\z/
+  end
+  ss.run
+end
+
+sc = SimpleClient.new('localhost', PORT)
+
+xs = []
+xs << Bundle.new(Time.now + 10, Message.new('/foo/kill'))
+xs << Bundle.new(Time.now +  5, Message.new('/foo/more'))
+xs << Message.new('/foo/bar', nil, 1, 3.14, 'rikyu')
+xs << Message.new('/foo/bar', nil, -2, 1.44, 'basho')
+xs.each do |x|
+  sc.send(x)
+end
+
+th.join

data/sample/send.rb

@@ -0,0 +1,53 @@
+# send.rb: Written by Tadayoshi Funaba 2005,2006
+# $Id: send.rb,v 1.3 2006-11-12 23:37:17+09 tadf Exp $
+
+require 'osc'
+require 'readline'
+require 'gopt'
+include  OSC
+
+def usage
+  warn 'usage: send [-h rhost] [-p rport]'
+  exit 1
+end
+
+usage unless opt = Gopt.gopt('h:p:')
+
+rhost = (opt[:h] || 'localhost')
+rport = (opt[:p] || '10000').to_i
+
+sc = SimpleClient.new(rhost, rport)
+
+loop do
+  begin
+    mesg = Readline.readline('? ', true)
+    break if mesg == nil || mesg == '.'
+    args = mesg.split
+    address = args.shift
+    if args[0] && args[0][0] == ?,
+      tags = args.shift[1..-1]
+    end
+    args.each_with_index do |arg, i|
+      if tags && tags[i]
+	case tags[i,1]
+	when 'i'; args[i] = OSCInt32.new(arg.to_i)
+	when 'f'; args[i] = OSCFloat32.new(arg.to_f)
+	when 's'; args[i] = OSCString.new(arg)
+	when 'b'; args[i] = OSCBlob.new(arg)
+	else; raise ArgumentError, 'unknown type'
+	end
+      else
+	case arg
+	when /\A[-+]?\d+\z/; args[i] = OSCInt32.new(arg.to_i)
+	when /\A[-+]?\d+\./; args[i] = OSCFloat32.new(arg.to_f)
+	else;                args[i] = OSCString.new(arg)
+	end
+      end
+    end
+    if address
+      sc.send(Message.new(address, nil, *args))
+    end
+  rescue
+    warn $!
+  end
+end

metadata

@@ -0,0 +1,75 @@
+--- !ruby/object:Gem::Specification 
+name: osc
+version: !ruby/object:Gem::Version 
+  version: 0.1.4
+platform: ruby
+authors: 
+- Tadayoshi Funaba
+autorequire: osc
+bindir: bin
+cert_chain: []
+
+date: 2008-11-12 00:00:00 +09:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: gopt
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+description: 
+email: tadf@funaba.org
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- README
+- README.en
+- lib/osc.rb
+- sample/dumbserver.rb
+- sample/getmjd.ens
+- sample/getmjd.mxt
+- sample/getmjd.pd
+- sample/getmjd.rb
+- sample/joy-test.rb
+- sample/joy.ens
+- sample/joy.pd
+- sample/joy.rb
+- sample/localtest.rb
+- sample/send.rb
+has_rdoc: false
+homepage: http://www.funaba.org/en/ruby.html
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: tadf
+rubygems_version: 1.3.1
+signing_key: 
+specification_version: 2
+summary: OSC is an "OpenSound Control" module for an object-oriented scripting language Ruby.
+test_files: []
+