subtech カテゴリ

require 'rubygems'
require 'rubyclr'

reference 'System'
reference 'System.Drawing'
reference 'System.Windows.Forms'

include System::Drawing
include System::Drawing::Drawing2D
include System::Windows::Forms

# Timer 付き Form のセットアップ
Application.enable_visual_styles
Application.set_compatible_text_rendering_default false
form = Form.new
form.StartPosition = FormStartPosition::CenterScreen
form.Text = "＞＜ノ"
form.Size = Size.new(120, 0)

timer = Timer.new
timer.Interval = 50
timer.Enabled = true

# ManagedDirectX Input # DirectX SDK が必要
reference 'Microsoft.DirectX'
reference 'Microsoft.DirectX.DirectInput'

include Microsoft::DirectX
include Microsoft::DirectX::DirectInput

joystick = nil
devices = Manager.GetDevices(DeviceClass::GameControl, EnumDevicesFlags::AttachedOnly)
while devices.MoveNext
	joystick = Device.new(devices.Current.InstanceGuid)
	break
end

joystick.Properties.AxisModeAbsolute = true
joystick.SetCooperativeLevel(form, CooperativeLevelFlags::NonExclusive | CooperativeLevelFlags::Background)
joystick.Acquire

prev = ''
timer.Tick do |sender, args|
	state = joystick.CurrentJoystickState

	on = []
	state.GetButtons.each_with_index do |b,i|
		on << i if b.nonzero?
	end

	out = "X:%s, Y:%s, Z:%s, Buttons:%p" % [state.X, state.Y, state.Z, on]
	unless prev == out
		puts out
		prev = out
	end
end

Application.run form

ManagedDirectX とかいうらしい。
http://web.sfc.keio.ac.jp/~t03792sh/archives/2005/10/manageddirectxj.html を参考にした。

どうも Enumerable なやつがうまくいかなくて困った。.each とか使えるはずなんだけど、エラーがでて使えない。しかたないので普通のイテレータ使ってる。
あと joystick.Objects をイテレータでまわしてると Ruby オブジェクトに変換できないだかなんだかで落ちてしまうのでそこは書いてない。どうするんだろ。

SDL のほうが簡単そう。

❤️ 投げ銭する

ruby/sdl を使って、Ruby から joystick を扱ってみる

subtech

14:50

require 'sdl'

SDL.init(SDL::INIT_JOYSTICK)

SDL::Joystick.num.times do |i|
	p SDL::Joystick.index_name(i)
end

j = SDL::Joystick.open(0)
p j.num_axes
p j.num_buttons
p j.num_balls
p j.num_hats


prev = nil
loop do
	SDL::Joystick.update_all
	out = ''
	j.num_axes.times do |i|
		out << "%d:%06d " % [i, j.axis(i)]
	end
	j.num_hats.times do |i|
		state = j.hat(i)
		ret = [0, 0] # x, y
		case state
		when  SDL::Joystick::HAT_CENTERED
			ret = [0, 0]
		when  SDL::Joystick::HAT_UP
			ret = [0, 1]
		when  SDL::Joystick::HAT_RIGHT
			ret = [1, 0]
		when  SDL::Joystick::HAT_DOWN
			ret = [0, -1]
		when  SDL::Joystick::HAT_LEFT
			ret = [-1, 0]
		when  SDL::Joystick::HAT_RIGHTUP
			ret = [1, 1]
		when  SDL::Joystick::HAT_RIGHTDOWN
			ret = [1, -1]
		when  SDL::Joystick::HAT_LEFTUP
			ret = [-1, 1]
		when  SDL::Joystick::HAT_LEFTDOWN
			ret = [-1, -1]
		end
		out << ret.inspect
	end
	out << (0..j.num_buttons).select {|i| j.button(i) }.map {|i| i + 1}.inspect
	unless prev == out
		puts out
		prev = out
	end
	sleep 0.1
end