stylet 0.0.1

data/lib/stylet/input/hardware_bindings.rb

@@ -0,0 +1,65 @@
+# ボタンのアサイン
+
+module Stylet
+  module Input
+    module StandardKeybordBind
+      def key_bit_update_all(*args)
+        super if defined? super
+        @axis.up    << SDL::Key.press?(SDL::Key::UP)
+        @axis.down  << SDL::Key.press?(SDL::Key::DOWN)
+        @axis.left  << SDL::Key.press?(SDL::Key::LEFT)
+        @axis.right << SDL::Key.press?(SDL::Key::RIGHT)
+        @button.btA << SDL::Key.press?(SDL::Key::Z)
+        @button.btB << SDL::Key.press?(SDL::Key::X)
+        @button.btC << SDL::Key.press?(SDL::Key::C)
+        @button.btD << SDL::Key.press?(SDL::Key::V)
+      end
+    end
+
+    module MouseButtonBind
+      def key_bit_update_all(*args)
+        super if defined? super
+        @button.btA << @mouse.button.a
+        @button.btB << @mouse.button.b
+        @button.btC << @mouse.button.c
+      end
+    end
+
+    module HjklKeyboardBind
+      def key_bit_update_all(*args)
+        super if defined? super
+        @axis.up    << SDL::Key.press?(SDL::Key::K)
+        @axis.down  << SDL::Key.press?(SDL::Key::J)
+        @axis.left  << SDL::Key.press?(SDL::Key::H)
+        @axis.right << SDL::Key.press?(SDL::Key::L)
+        @button.btA << SDL::Key.press?(SDL::Key::U)
+        @button.btB << SDL::Key.press?(SDL::Key::I)
+        @button.btC << SDL::Key.press?(SDL::Key::O)
+        @button.btD << SDL::Key.press?(SDL::Key::P)
+      end
+    end
+
+    module JoystickBindMethod
+      def bit_update_by_joy(joy)
+        return unless joy
+        @axis.up    << joy.lever_on?(:up)
+        @axis.down  << joy.lever_on?(:down)
+        @axis.left  << joy.lever_on?(:left)
+        @axis.right << joy.lever_on?(:right)
+        @button.btA << joy.button_on?(:btA)
+        @button.btB << joy.button_on?(:btB)
+        @button.btC << joy.button_on?(:btC)
+        @button.btD << joy.button_on?(:btD)
+        if @ext_button
+          @ext_button.btR1     << joy.button_on?(:btR1)
+          @ext_button.btR2     << joy.button_on?(:btR2)
+          @ext_button.btL1     << joy.button_on?(:btL1)
+          @ext_button.btL2     << joy.button_on?(:btL2)
+          @ext_button.btSelect << joy.button_on?(:btSelect)
+          @ext_button.btStart  << joy.button_on?(:btStart)
+          @ext_button.btPS     << joy.button_on?(:btPS)
+        end
+      end
+    end
+  end
+end

data/lib/stylet/input/key_one.rb

@@ -0,0 +1,162 @@
+#
+# ボタン1つの押し下げ管理
+#
+module Stylet
+  module Input
+    #
+    # ボタン一つの情報を管理するクラス
+    #
+    #   state をセットして update することでカウンタが更新される
+    #
+    class KeyOne
+      class << self
+        # キーリピート2としたときの挙動
+        # 3フレーム目に押された場合
+        #
+        #         1 2 3 4 5 6 7 (Frames)
+        # counter 0 0 1 2 3 4 5
+        # repeat  0 0 1 0 0 2 3
+        #               ^ ^  の数(1と2の間がの数)が key_repeat_first_delay 値
+        #
+        def repeat(counter, key_repeat_first_delay)
+          case
+          when counter == 1
+            1
+          when counter > key_repeat_first_delay + 1
+            counter - key_repeat_first_delay
+          else
+            0
+          end
+        end
+      end
+
+      attr_accessor :name, :match_chars, :store_char, :index
+      attr_accessor :state
+      attr_reader :counter, :free_counter
+
+      def initialize(name:, match_chars: nil, store_char: nil, index: nil)
+        @name        = name
+        @match_chars = match_chars
+        @store_char  = store_char
+        @index       = index
+
+        @counter = 0
+        @free_counter = 0
+        @state = false
+      end
+
+      # 直近フラグを設定。falseにはできない。
+      #
+      #   フラグが有効になる条件が複数ある場合に使うと便利
+      #
+      #   有効になるもの
+      #     obj << "A" # 同じマーク
+      #     obj << 1
+      #     obj << true
+      #
+      def <<(value)
+        case value
+        when String
+          if @match_chars
+            value = @match_chars.chars.any? {|m| value.include?(m) }
+          else
+            value = nil
+          end
+        when Integer
+          value = (value & _bit_value).nonzero?
+        end
+        @state |= value
+      end
+
+      # 更新する前のon/off状態を取得(廃止予定)
+      def state_to_s
+        @state ? @store_char : ""
+      end
+
+      # @state の状態を @counter に反映する
+      #   引数が指定されていればそれを直近の状態に設定して更新する
+      def counter_update(state = nil)
+        if state
+          self << state
+        end
+        if @state
+          @counter += 1
+          @free_counter = 0
+        else
+          @counter = 0
+          @free_counter += 1
+        end
+        @state = false
+      end
+
+      def repeat(key_repeat_first_delay = 12)
+        self.class.repeat(@counter, key_repeat_first_delay)
+      end
+
+      # 押してない？
+      def free?
+        @counter == 0
+      end
+
+      # 押している？
+      def press?
+        @counter >= 1
+      end
+
+      # 押した瞬間？
+      def trigger?
+        @counter == 1
+      end
+
+      # 離した瞬間？
+      def free_trigger?
+        @free_counter == 1
+      end
+
+      # 押していないとき 0.0 で押している間は 1.0 を返す
+      def repeat_0or1
+        if repeat >= 1
+          1.0
+        else
+          0.0
+        end
+      end
+
+      def inspect
+        "#{self}#{@counter}"
+      end
+
+      def to_s2
+        if press?
+          @store_char
+        end
+      end
+
+      def press_bit_value
+        if press?
+          _bit_value
+        else
+          0
+        end
+      end
+
+      begin
+        private
+        def _bit_value
+          1 << @index
+        end
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  key_one = Stylet::Input::KeyOne.new("A")
+  key_one.update("A")
+  p key_one.state_to_s
+  p key_one.press?
+  p key_one.trigger?
+  p key_one.free?
+  p key_one.free_trigger?
+  p key_one.to_s
+end

data/lib/stylet/input/support.rb

@@ -0,0 +1,72 @@
+#
+# ボタン同士の優先順位を得るユーティリティ
+#
+module Stylet
+  module Input
+    # FIXME: KeyOneの特異メソッドとした方が自然かもしれない。ただ KeyOne という名前がよくない
+    module Support
+      extend self
+
+      # 2つのキーの優先順位を得る
+      #
+      #   a = KeyOne.new
+      #   b = KeyOne.new
+      #
+      #   1フレーム目。aだけ押されたのでaが返る
+      #   a.update(true)
+      #   b.update(false)
+      #   Input::Support.preference_key(a, b) #=> a
+      #
+      #   2フレーム目。aは押しっぱなしだが、bの方が若いのでbが返る
+      #   a.update(true)
+      #   b.update(true)
+      #   Input::Support.preference_key(a, b) #=> b
+      #
+      #   3つ以上のキーで比較する場合の麗
+      #   list.sort_by{|e|(e.counter.zero? ? Float::INFINITY : e.counter)}.first
+      #
+      def preference_key(lhv, rhv, if_collision: lhv)
+        case
+        when rhv.press? && lhv.press?
+          case
+          when rhv.counter < lhv.counter
+            rhv
+          when lhv.counter < rhv.counter
+            lhv
+          else
+            if_collision
+          end
+        when rhv.press?
+          rhv
+        when lhv.press?
+          lhv
+        else
+          nil
+        end
+      end
+
+      # 3つ以上のキーの優先順位を得る
+      def preference_keys(list)
+        if v = list.sort_by {|e| (e.counter.zero? ? Float::INFINITY : e.counter) }.first
+          if v.press?
+            v
+          end
+        end
+      end
+
+      # 2つのキーのどちらかの溜めが完了しているか？(次の状態から使えるか？)
+      #
+      #        1 2 3 4 5 6 Frames
+      #   lhv  0 0 0 0 0 0
+      #   rhv  1 0 0 2 3 4
+      #
+      #   3フレーム目で key_power_effective?(lhv, rhv, 2) #=> true になる
+      #
+      def key_power_effective?(lhv, rhv, power_delay)
+        if key = preference_key(lhv, rhv)
+          key.repeat(power_delay - 1) > 1
+        end
+      end
+    end
+  end
+end

data/lib/stylet/joystick.rb

@@ -0,0 +1,31 @@
+require_relative "joystick_adapter"
+
+module Stylet
+  module Joystick
+    attr_reader :joys
+
+    def run_initializers
+      super
+      init_on(:joystick) do
+        if SDL.inited_system(SDL::INIT_JOYSTICK).zero?
+          SDL.initSubSystem(SDL::INIT_JOYSTICK)
+          logger.debug "SDL::Joystick.num: #{SDL::Joystick.num}" if logger
+          @joys = SDL::Joystick.num.times.collect do |i|
+            JoystickAdapter.create(SDL::Joystick.open(i))
+          end
+        end
+      end
+    end
+
+    def polling
+      super
+      SDL::Joystick.update_all
+    end
+
+    def before_update
+      super
+      return if Stylet.production
+      @joys.each {|joy| vputs(joy.inspect) }
+    end
+  end
+end

data/lib/stylet/joystick_adapter.rb

@@ -0,0 +1,130 @@
+require 'active_support/core_ext/module/delegation'
+require "active_support/core_ext/class/attribute_accessors"
+require "active_support/core_ext/string/inflections"
+
+module Stylet
+  class JoystickAdapter
+    cattr_accessor :adapter_assigns do
+      {
+        "PLAYSTATION(R)3 Controller"  => :ps3_standard,   # 純正
+        "PS(R) Gamepad"               => :ps3_standard,   # 純正風ぱちもん
+        "USB Gamepad"                 => :elecom_usb_pad, # ELECOM ゲームパッド JC-U2410TBK http://www.amazon.co.jp/dp/B000FO600A
+        "REAL ARCADE Pro.V3"          => :hori_rap_v3_sa, # リアルアーケードPro.V3 SA(PS3用) http://www.amazon.co.jp/dp/B002YT9PSI
+        "USB,2-axis 8-button gamepad" => :buffalo_snes,   # iBUFFALO USBゲームパッド 8ボタン スーパーファミコン風 http://www.amazon.co.jp/dp/B002B9XB0E
+      }
+    end
+
+    def self.create(object)
+      name = SDL::Joystick.index_name(object.index).strip
+      key = adapter_assigns[name] || :ps3_standard
+      adapter = "#{key}_adapter"
+      require_relative "joystick_adapters/#{adapter}"
+      Stylet.logger.info [object.index, name, adapter].inspect if Stylet.logger
+      "stylet/joystick_adapters/#{adapter}".classify.constantize.new(object)
+    end
+
+    attr_reader :object
+
+    delegate :axis, :button, :to => :object
+
+    def initialize(object)
+      @object = object
+    end
+
+    # 抽象シリーズ
+    begin
+      def lever_on?(dir)
+        if i = lever_button_assigns[dir]
+          button(i)
+        end
+      end
+
+      def button_on?(key)
+        if i = button_assigns[key]
+          button(i)
+        end
+      end
+
+      def available_analog_levers
+        {}
+      end
+
+      def adjusted_axes
+        [:up, :down, :right, :left].collect { |dir|
+          if lever_on?(dir)
+            dir.to_s.slice(/^(.)/).upcase
+          end
+        }.compact
+      end
+
+      def adjusted_buttons
+        button_assigns.keys.collect {|key|
+          if button_on?(key)
+            key.to_s.sub("bt", "").upcase
+          end
+        }.compact
+      end
+    end
+
+    # ハードウェアの値をそのまま返すシリーズ
+    begin
+      def name
+        SDL::Joystick.index_name(@object.index)
+      end
+
+      def raw_active_button_numbers
+        @object.num_buttons.times.collect {|i|
+          if @object.button(i)
+            i
+          end
+        }.compact
+      end
+
+      def raw_analog_lever_status
+        @object.num_axes.times.collect {|i| @object.axis(i) }
+      end
+    end
+
+    def inspect
+      "#{@object.index}: #{unit_str}"
+    end
+
+    def unit_str
+      [
+        adjusted_axes.join,
+        adjusted_buttons.join,
+        raw_active_button_numbers,
+        # available_analog_levers.values,
+        raw_analog_lever_status,
+      ].collect(&:to_s).join
+    end
+
+    ANALOG_LEVER_MAX           = 32767
+    ANALOG_LEVER_MAGNITUDE_MAX = Math.sqrt(ANALOG_LEVER_MAX**2 + ANALOG_LEVER_MAX**2)
+
+    # 調整済みアナログレバー
+    def adjusted_analog_levers
+      available_analog_levers.inject({}) do |hash, (key, xy)|
+        v = vec2[*xy]
+        m = v.magnitude
+        if false
+          # 取得した値をそのまま使うと斜めのベクトルが強くなりすぎる
+          # たんなる方向を示したいときはこれで問題ない
+          r = m.to_f / ANALOG_LEVER_MAGNITUDE_MAX
+        else
+          # 斜めのベクトルが強くなりすぎないように制限を加えた例
+          if m >= ANALOG_LEVER_MAX
+            m = ANALOG_LEVER_MAX
+          end
+          r = m.to_f / ANALOG_LEVER_MAX
+        end
+        hash.merge(key => v.normalize * r)
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  require_relative "../stylet"
+  Stylet.run
+end