stylet 0.0.1

data/lib/stylet/joystick_adapters/buffalo_snes_adapter.rb

@@ -0,0 +1,47 @@
+# iBUFFALO USBゲームパッド 8ボタン スーパーファミコン風
+# http://www.amazon.co.jp/dp/B002B9XB0E
+#
+#   4              5
+#   -y             2
+# -x  +x   6 7    3 0
+#   +y             1
+#
+# x: axis(0)
+# y: axis(1)
+#
+module Stylet
+  module JoystickAdapters
+    class BuffaloSnesAdapter < JoystickAdapter
+      cattr_accessor :button_assigns do
+        {
+          :btA      => 3,
+          :btB      => 2,
+          :btC      => 1,
+          :btD      => 0,
+
+          :btR1     => 4,
+          :btL1     => 5,
+
+          :btSelect => 6,
+          :btStart  => 7,
+        }
+      end
+
+      # ニュートラルが 0 とは限らないため negative positive メソッドでのチェックはできない
+      def lever_on?(dir)
+        case dir
+        when :up
+          axis(1) <= -32768
+        when :down
+          axis(1) >= 32767
+        when :right
+          axis(0) >= 32767
+        when :left
+          axis(0) <= -32768
+        else
+          false
+        end
+      end
+    end
+  end
+end

data/lib/stylet/joystick_adapters/elecom_usb_pad_adapter.rb

@@ -0,0 +1,30 @@
+# ELECOM ゲームパッド JC-U2410TBK http://www.amazon.co.jp/dp/B000FO600A
+module Stylet
+  module JoystickAdapters
+    class ElecomUsbPadAdapter < JoystickAdapter
+      cattr_accessor :button_assigns do
+        {
+          :btA => 0,
+          :btB => 1,
+          :btC => 3,
+          :btD => 2,
+        }
+      end
+
+      def lever_on?(dir)
+        case dir
+        when :up
+          axis(4) <= -32768
+        when :down
+          axis(4) >= 32767
+        when :right
+          axis(3) <= -32768
+        when :left
+          axis(3) >= 32767
+        else
+          false
+        end
+      end
+    end
+  end
+end

data/lib/stylet/joystick_adapters/hori_rap_v3_sa_adapter.rb

@@ -0,0 +1,46 @@
+# リアルアーケードPro.V3 SA(PS3用) http://www.amazon.co.jp/dp/B002YT9PSI
+#
+#    12(PS) 8(SELECT)
+#
+# ＋ 0 3 5 4
+#    1 2 7 6  9(START)
+#
+# ▼スイッチと axis(インデックス) の対応
+#
+#   LS -> 0, 1
+#   PR -> 2, 3
+#
+module Stylet
+  module JoystickAdapters
+    class HoriRapV3SaAdapter < JoystickAdapter
+      cattr_accessor :button_assigns do
+        {
+          :btA      => 3,
+          :btB      => 5,
+          :btC      => 4,
+          :btD      => 2,
+
+          :btSelect => 8,
+          :btStart  => 9,
+          :btPS     => 12,
+        }
+      end
+
+      def lever_on?(dir)
+        # macOS Sierra にしたらニュートラルが 128 になってしまったので汎用的な判別方法に変更。
+        case dir
+        when :up
+          axis(1) <= -32768
+        when :down
+          axis(1) >= 32767
+        when :right
+          axis(0) >= 32767
+        when :left
+          axis(0) <= -32768
+        else
+          false
+        end
+      end
+    end
+  end
+end

data/lib/stylet/joystick_adapters/ps3_standard_adapter.rb

@@ -0,0 +1,40 @@
+# 純正 or 純正風ぱちもん
+module Stylet
+  module JoystickAdapters
+    class Ps3StandardAdapter < JoystickAdapter
+      cattr_accessor(:lever_button_assigns) do
+        {
+          :up    => 4,
+          :right => 5,
+          :down  => 6,
+          :left  => 7,
+        }
+      end
+
+      cattr_accessor(:button_assigns) do
+        {
+          :btA      => 15,
+          :btB      => 12,
+          :btC      => 13,
+          :btD      => 14,
+
+          :btR1     => 11,
+          :btR2     => 9,
+          :btL1     => 10,
+          :btL2     => 8,
+
+          :btSelect => 0,
+          :btStart  => 3,
+          :btPS     => 16,
+        }
+      end
+
+      def available_analog_levers
+        {
+          :left  => [axis(0), axis(1)],
+          :right => [axis(2), axis(3)],
+        }
+      end
+    end
+  end
+end

data/lib/stylet/joystick_adapters/unknown_adapter.rb

@@ -0,0 +1,13 @@
+module Stylet
+  module JoystickAdapters
+    class UnknownAdapter < JoystickAdapter
+      cattr_accessor :lever_button_assigns do
+        {}
+      end
+
+      cattr_accessor :button_assigns do
+        {}
+      end
+    end
+  end
+end

data/lib/stylet/keyboard.rb

@@ -0,0 +1,15 @@
+module Stylet
+  module Keyboard
+    def run_initializers
+      super
+      init_on(:keyboard) do
+        SDL::Key.scan # 先に SDL::Key.press? を呼ぶとエラーになるのを防ぐため
+      end
+    end
+
+    def polling
+      super if defined? super
+      SDL::Key.scan
+    end
+  end
+end

data/lib/stylet/logger.rb

@@ -0,0 +1,12 @@
+require "active_support/logger"
+require "active_support/core_ext/module/attribute_accessors"
+
+module Stylet
+  mattr_accessor :logger
+  self.logger = ActiveSupport::Logger.new(STDOUT)
+end
+
+if $0 == __FILE__
+  Stylet.logger = ActiveSupport::Logger.new("#{__dir__}/../../log/development.log")
+  Stylet.logger.debug("OK")
+end

data/lib/stylet/mouse.rb

@@ -0,0 +1,58 @@
+require 'active_support/core_ext/class/attribute_accessors'
+
+module Stylet
+  module Mouse
+    attr_reader :mouse
+
+    def initialize
+      super
+      @mouse = Info.new
+    end
+
+    def polling
+      super
+      @mouse.update { SDL::Mouse.state }
+    end
+
+    # moved?           移動した？
+    # point            現在座標
+    # button           ボタンの状態
+    # vector           移動ベクトル
+    # vector.angle     移動方向
+    # vector.magnitude 移動距離
+    class Info
+      cattr_accessor(:sensitivity) { 3 }
+
+      attr_accessor :button, :point, :vector
+
+      def initialize
+        @button  = Struct.new(:a, :b, :c).new
+        @point   = Vector.zero
+        @history = []
+      end
+
+      def update
+        @before_pt = @point.dup
+        @point.x, @point.y, @button.a, @button.b, @button.c = yield
+        @history = ([@point.dup] + @history).take(sensitivity)
+        @vector = @point - @history.last
+      end
+
+      def moved?
+        @before_pt != @point
+      end
+
+      def to_s
+        [@point.to_a, @button.values, @vector.to_a].inspect
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  require_relative "../stylet"
+  Stylet.run do
+    vputs "mouse: #{mouse}"
+    draw_vector(mouse.vector, :origin => srect.center, :label => mouse.vector.magnitude)
+  end
+end

data/lib/stylet/palette.rb

@@ -0,0 +1,17 @@
+module Stylet
+  Palette = {
+    :yellow     => [255, 255,   0],
+    :blue       => [  0,   0, 255],
+    :orange     => [255, 127,   0],
+    :green      => [127, 255,   0],
+    :purple     => [255,   0, 255],
+    :cyan       => [  0, 255, 255],
+    :red        => [255,   0,   0],
+    :black      => [  0,   0,   0],
+    :white      => [255, 255, 255],
+
+    :background => [  0,   0,   0],
+    :foreground => [255, 255, 255], # draw_rect, draw_line, ...
+    :font       => [ 80, 160, 255],
+  }
+end

data/lib/stylet/rect.rb

@@ -0,0 +1,113 @@
+module Stylet
+  # w, h が余分についただけの Vector と考える
+  # そうしないとベクトル処理の対象が [x, y] か [w, h] か判然としなくなってしまう
+  class Rect4 < Vector
+    attr_accessor :wh
+
+    class << self
+      def create(*args)      # DEPRECATE
+        new(*args)
+      end
+
+      # オブジェクトの中央が原点と考えている場合、
+      # 32x32のオブジェクトの16,16が原点になる
+      # そのとき表示するのに draw(x-16, y-16, w, h) と書くのが煩雑なので
+      # 用意した記憶あり。
+      # なので次のように書ける
+      # rc = Stylet::Rect4.centered_create(image.w / 2, image.h / 2) # => [-16, -16, 32, 32]
+      # draw_rect(rc.vector_add(pos))                                # ← ここが楽になる
+      # が、 31 を期待して max_x としたときに 31 ではなく 15 になったりして、混乱するのでこれは廃止したい→これでいい
+      def centered_create(rx, ry = rx)
+        new(-rx, -ry, rx * 2, ry * 2)
+      end
+
+      def wh(w, h)
+        new(0, 0, w, h)
+      end
+
+      def new2(w, h)
+        new(0, 0, w, h)
+      end
+
+      def new4(x, y, w, h)
+        new(x, y, w, h)
+      end
+    end
+
+    def initialize(x, y, w, h)
+      super(x, y)
+      @wh = Vector[w, h]
+    end
+
+    def w; @wh.x; end
+    def h; @wh.y; end
+
+    #--------------------------------------------------------------------------------
+    def half_w; w / 2; end
+    def half_h; h / 2; end
+    def half_wh; [half_w, half_h]; end
+
+    #--------------------------------------------------------------------------------
+    def min_x; x;         end
+    def max_x; x + w - 1; end
+    def min_y; y;         end
+    def max_y; y + h - 1; end
+
+    def x_range; min_x..max_x; end
+    def y_range; min_y..max_y; end
+
+    #--------------------------------------------------------------------------------
+    # 描画と合わせるため小数点があると当たり判定が一致しなくなる
+    def min_xi; min_x.to_i; end
+    def max_xi; max_x.to_i; end
+    def min_yi; min_y.to_i; end
+    def max_yi; max_y.to_i; end
+
+    #--------------------------------------------------------------------------------
+    def hx; x + w / 2; end
+    def hy; y + h / 2; end
+
+    alias width  w
+    alias height h
+
+    def center
+      Vector.new(hx, hy)
+    end
+
+    def vector_add(vec)
+      Rect4.new(x + vec.x, y + vec.y, w, h)
+    end
+
+    def vector_sub(vec)
+      Rect4.new(x - vec.x, y - vec.y, w, h)
+    end
+
+    def to_vector
+      Vector.new(x, y)
+    end
+
+    def inspect
+      "#{super} #{@wh.inspect}"
+    end
+
+    def to_a
+      [*super, *@wh]
+    end
+  end
+
+  class Rect2 < Rect4
+    def self.[](*args)
+      new(*args)
+    end
+
+    def initialize(w, h)
+      super(0, 0, w, h)
+    end
+  end
+end
+
+if $0 == __FILE__
+  p Stylet::Rect4.new(2, 3, 4, 5)
+  p Stylet::Rect4.new(2, 3, 4, 5).vector_add(Stylet::Vector.new(6, 7))
+  p Stylet::Rect2[1, 2]
+end

data/lib/stylet/shortcut.rb

@@ -0,0 +1,8 @@
+module Stylet
+  module Shortcut
+    def vec2; Vector; end
+    def vec3; Vector3; end
+    def rect2; Rect2; end
+    def rect4; Rect4; end
+  end
+end

data/lib/stylet/state.rb

@@ -0,0 +1,87 @@
+# 状態遷移管理
+#
+#   状態が少ないときは case when でいいと思う
+#
+#     @state = State.new(:idle)
+#     @state.loop_in do
+#       case @state.key
+#       when :idle
+#         if @state.start_at?
+#           @state.jump_to :active
+#         end
+#       when :active
+#         if @state.start?
+#         end
+#       end
+#     end
+#
+#   状態が多い場合や継承が重要な場合などは Pluggable Selector パターンがおすすめ
+#
+#     @state = State.new(:idle)
+#     @state.loop_in { send @state.key }
+#
+#     def idle
+#       if @state.start_at?
+#         @state.jump_to :active
+#       end
+#     end
+#
+#     def active
+#       if @state.start?
+#       end
+#     end
+#
+class State
+  attr_reader :counter, :key
+
+  def initialize(key = nil)
+    @_loop_break = Object.new
+    @_transit_key = Object.new
+    @depth = 0
+    jump_to(key)
+  end
+
+  def start?
+    @counter == 0
+  end
+
+  def pass
+    @counter += 1
+  end
+
+  def counter_at?(counter)
+    @counter == counter
+  end
+
+  def jump_to(key)
+    soft_jump_to(key)
+    if @depth.nonzero?
+      throw @_transit_key
+    end
+  end
+
+  def loop_in(&block)
+    @depth += 1
+    catch @_loop_break do
+      loop do
+        catch @_transit_key do
+          yield
+          throw @_loop_break
+        end
+      end
+    end
+    @depth -= 1
+    pass
+  end
+
+  def to_s
+    "#{@key}: #{@counter} (#{@_transit_key})"
+  end
+
+  private
+
+  def soft_jump_to(key)
+    @key = key
+    @counter = 0
+  end
+end