stylet 0.0.1

data/lib/stylet/axis_support.rb

@@ -0,0 +1,62 @@
+#
+# レバーの状態から方向を返す便利メソッド
+#
+
+module Stylet
+  module AxisSupport
+    extend self
+
+    # レバーの状態から8方向の番号インデックスに変換
+    #        [U]
+    #         6
+    #       5   7
+    #  [L]4       0[R]
+    #       3   1
+    #         2
+    #        [D]
+    def axis_angle_index(axis)
+      case
+      when axis.up.press?
+        case
+        when axis.right.press?
+          7
+        when axis.left.press?
+          5
+        else
+          6
+        end
+      when axis.down.press?
+        case
+        when axis.right.press?
+          1
+        when axis.left.press?
+          3
+        else
+          2
+        end
+      when axis.right.press?
+        0
+      when axis.left.press?
+        4
+      end
+    end
+
+    # 8方向レバーの状態から一周を1.0としたときの方向を返す
+    #            [U]
+    #           0.750
+    #        0.625 0.875
+    #   [L] 0.500   0.000 [R]
+    #        0.375 0.125
+    #           0.250
+    #            [D]
+    def axis_angle(axis)
+      if dir = axis_angle_index(axis)
+        1.0 * dir / 8
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  require_relative "../stylet"
+end

data/lib/stylet/base.rb

@@ -0,0 +1,76 @@
+# 数学系汎用
+pp $LOAD_PATH
+exit
+require 'stylet_support'
+
+# gem
+require 'sdl'
+require 'active_support/concern'                    # ActiveSupport::Concern
+require 'active_support/core_ext/module/concerning' # concerning
+require "active_support/core_ext/hash/keys"         # assert_valid_keys
+require "active_support/core_ext/array/wrap"        # Array.wrap
+require 'active_support/callbacks'
+
+# ruby library
+require 'pp'
+require 'singleton'
+require 'pathname'
+
+require 'stylet/config'
+
+# 汎用ライブラリ
+require_relative 'application_memory_record'
+require_relative 'palette'
+require_relative 'fps_adjust'
+require_relative 'fps_stat'
+require_relative 'cpu_stat'
+require_relative 'logger'
+require_relative 'rect'
+require_relative 'collision_support'
+
+# 描画系
+require_relative 'core'
+require_relative 'callbacks'
+require_relative 'system_pause'
+require_relative 'cli'
+require_relative 'draw'
+require_relative 'font'
+require_relative 'shortcut'
+
+# 描画サポート
+require_relative 'draw_support/circle'
+require_relative 'draw_support/polygon'
+require_relative 'draw_support/arrow'
+
+# 入力系
+require_relative 'joystick'
+require_relative 'keyboard'
+require_relative 'mouse'
+
+# オーディオ系
+require_relative 'audio'
+
+# その他
+require_relative 'delegators'
+
+module Stylet
+  class Base
+    include Core
+    include Callbacks
+    include Draw
+    include DeprecateBackground
+    include DrawSupport
+    include Font
+    include Joystick
+    include Keyboard
+    include Mouse
+    include Pause
+    include ClOptions
+    include Shortcut
+    include Delegators
+  end
+end
+
+if $0 == __FILE__
+  Stylet::Base.run
+end

data/lib/stylet/callbacks.rb

@@ -0,0 +1,62 @@
+require 'active_support/callbacks'
+require 'active_model/callbacks'
+
+module Stylet
+  module Callbacks
+    extend ActiveSupport::Concern
+
+    included do
+      extend ActiveModel::Callbacks
+      define_model_callbacks :setup, :update, :main_loop
+    end
+
+    class_methods do
+      def setup(*args, &block)
+        set_callback(:setup, *args, &block)
+      end
+
+      def update(*args, &block)
+        set_callback(:update, *args, &block)
+      end
+    end
+
+    def setup
+      run_callbacks(:setup) { super }
+    end
+
+    def update
+      run_callbacks(:update) { super }
+    end
+
+    def main_loop(&block)
+      run_callbacks(:main_loop) { super(&block) }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require_relative "../stylet"
+
+  # 方法1
+  Stylet::Base.setup { @a = "A" }
+  Stylet::Base.update { vputs @a }
+  Stylet::Base.run
+
+  # 方法2
+  module Stylet
+    class Base
+      setup { @b = "B" }
+      update { vputs @b }
+      run
+    end
+  end
+
+  # 方法3 (他の方法のあとに呼ぶとだめなのはなぜ？)
+  # Stylet::Base.reset_callbacks(:setup)
+  # Stylet::Base.reset_callbacks(:update)
+  class A < Stylet::Base
+    setup { @c = "C" }
+    update { vputs @c }
+    run
+  end
+end

data/lib/stylet/cli.rb

@@ -0,0 +1,54 @@
+#
+# コマンドライン対応
+#
+#  サンプルプログラムを連続実行して動作確認
+#  rsdl foo.rb bar.rb --shutdown=60
+
+require "optparse"
+
+module Stylet
+  module ClOptions
+    def self.oparser
+      @oparser ||= OptionParser.new do |oparser|
+        oparser.on("--fps=INTEGER", Integer)             {|v| Stylet.config.fps = v                                        }
+        oparser.on("--shutdown=INTEGER", Integer)        {|v| Stylet.config.shutdown = v                                   }
+        oparser.on("-f", "--full-screen", TrueClass)     {|v| Stylet.config.full_screen = v                                }
+        oparser.on("-p", "--production", TrueClass)      {|v| Stylet.production = v                                        }
+        oparser.on("-s", "--screen-size=SIZE", String)   {|v| Stylet.config.screen_size = [*v.scan(/\d+/).collect(&:to_i)] }
+        oparser.on("-c", "--color-depth=DEPTH", Integer) {|v| Stylet.config.color_depth = v                                }
+        oparser.on("-m", "--mute-mute", TrueClass)       {|v| Stylet.config.mute_music = v                                 }
+        oparser.on("-M", "--mute", TrueClass)            {|v| Stylet.config.mute = v                                       }
+        oparser.on("-i", "--hide-mouse", TrueClass)      {|v| Stylet.config.hide_mouse = v                                 }
+      end
+    end
+
+    concerning :Base do
+      def initialize
+        super if defined? super
+        return if Stylet.config.optparse_skip || ENV["STYLET_OPTPARSE_SKIP"]
+        ClOptions.oparser.order!(ARGV)
+      end
+    end
+
+    concerning :Shutdown do
+      def update
+        super if defined? super
+        if Stylet.config.shutdown && frame_counter >= Stylet.config.shutdown
+          throw :exit, :break
+        end
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  $LOAD_PATH << ".."
+  require "stylet"
+  ARGV << "--shutdown=3600"
+  ARGV << "--screen-size=800x600"
+  ARGV << "--full-screen"
+  ARGV << "--production"
+  Stylet.run do
+    vputs Stylet.config
+  end
+end

data/lib/stylet/collision_support.rb

@@ -0,0 +1,56 @@
+module Stylet
+  module CollisionSupport
+    extend self
+
+    #  +--- -r ---+
+    #  |     |    |
+    # -r -- p0 -- r のなかに p1 の点が含まれているか？
+    #  |     |    |
+    #  +---- r ---+
+    def squire_collision?(p0, p1, options = {})
+      ((p0.x - options[:radius])..(p0.x + options[:radius])).include?(p1.x) &&
+        ((p0.y - options[:radius])..(p0.y + options[:radius])).include?(p1.y)
+    end
+
+    # 領域rectの中に点pが含まれているか？
+    def rect_in?(rect, p)
+      (rect.min_x <= p.x && p.x <= rect.max_x) &&
+        (rect.min_y <= p.y && p.y <= rect.max_y)
+    end
+
+    # 領域rectの中に点pが含まていない？
+    def rect_out?(rect, p)
+      !rect_in?(rect, p)
+    end
+
+    # 長方形aと長方形bの一部が接触しているか？
+    def rect_collision2?(a, b)
+      # めりこみサイズを4辺について調べる
+      _l = a.max_xi - b.min_xi # A|B
+      _r = b.max_xi - a.min_xi # B|A
+      _u = a.max_yi - b.min_yi # A/B
+      _d = b.max_yi - a.min_yi # B/A
+
+      if true &&
+          _l >= 1 && # A|B
+          _r >= 1 && # B|A
+          _u >= 1 && # A/B
+          _d >= 1 && # B/A
+          true
+        true
+      end
+    end
+
+    # 長方形aのなかにbが含まれているか？
+    def rect_include?(a, b)
+      if true &&
+          a.min_xi <= b.min_xi &&
+          b.max_xi <= a.max_xi &&
+          a.min_yi <= b.min_yi &&
+          b.max_yi <= a.max_yi &&
+          true
+        true
+      end
+    end
+  end
+end

data/lib/stylet/config.rb

@@ -0,0 +1,39 @@
+require "active_support/configurable"
+
+module Stylet
+  include ActiveSupport::Configurable
+
+  config_accessor :production
+
+  # Screen
+  config.screen_size      = [640, 480]
+  config.fps              = nil
+  config.full_screen      = false
+  config.color_depth      = 16
+  config.screen_flags     = SDL::HWSURFACE | SDL::DOUBLEBUF | SDL::HWACCEL | SDL::RESIZABLE
+  # config.screen_flags   = SDL::HWSURFACE | SDL::DOUBLEBUF | SDL::HWACCEL | SDL::RESIZABLE # SDL::NOFRAME
+  # config.screen_flags   = SDL::HWSURFACE | SDL::DOUBLEBUF | SDL::HWACCEL | SDL::RESIZABLE | SDL::SRCALPHA
+  config.background_image = nil # "background.bmp"
+
+  # Font
+  config.system_font_key = :ipag_mona
+  config.font_list = [
+    {:key => :ipag_mona,            :path => "ipag-mona.ttf",           :bold => false, :font_size => 14},
+    # {:key => :font_large, :path => "LiberationMono-Bold.ttf", :bold => true,  :font_size => 24},
+    # {:key => :coda,       :path => "Coda-Regular.ttf",        :bold => false, :font_size => 14},
+  ]
+
+  # Mouse
+  config.hide_mouse       = false
+
+  # Audio
+  config.sound_freq       = 22050 # 44100  # SDLのデフォルトは 22050
+  config.mute_music       = false
+  config.mute             = false
+
+  # etc.
+  config.production       = false
+  config.production_keys  = [SDL::Key::K0] # [SDL::Key::RETURN]
+  config.pause_keys       = [SDL::Key::SPACE]
+  config.optparse_skip    = false
+end

data/lib/stylet/contrib/menu.rb

@@ -0,0 +1,508 @@
+require "stylet"
+require_relative "shared_pad"
+
+module Stylet
+  module Menu
+    module Core
+      extend ActiveSupport::Concern
+
+      include Stylet::Delegators
+
+      attr_accessor :parent, :bar, :display_height, :select_buttons, :cancel_buttons, :line_format, :close_hook, :input, :elements, :every_command_all
+      attr_reader :state, :children
+
+      def initialize(**params)
+        super() if defined? super
+
+        {
+          :parent            => nil,
+          :name              => nil,
+          :elements          => [],
+          :select_buttons    => [:btA, :btD],
+          :cancel_buttons    => [:btB, :btC],
+          :scroll_margin     => nil,
+          :bar               => "─" * 40,
+          :display_height    => 20,
+          :line_format       => " %{cursor}%{name} %{value}",
+          :close_hook        => nil,
+          :input             => Input::SharedPad.new,
+          :aroundable        => false,
+          :cursor            => 0,
+          :every_command_all => nil,
+        }.merge(params).each {|k, v| instance_variable_set("@#{k}", v) }
+
+        @window_cursor  = @cursor
+        @state = State.new(:boot)
+        @children = []
+      end
+
+      def chain(params)
+        notify(:menu_chain)
+
+        params = params.dup
+        menu_class = params.delete(:menu_class) || self.class
+        @children << menu_class.new({:name => current[:name], :parent => self}.merge(params))
+        @state.jump_to :ms_sleep
+      end
+
+      def update
+        super if defined? super
+        unless @parent
+          @input.key_bit_update_all
+          @input.key_counter_update_all
+        end
+        @state.loop_in { send @state.key }
+      end
+
+      def root
+        if @parent
+          @parent.root
+        else
+          self
+        end
+      end
+
+      def force_close
+        throw :exit, :break
+      end
+
+      def close_trigger?
+        root.cancel_buttons.any? {|e|root.input.button.send(e).trigger?} || Stylet::Base.active_frame.key_down?(SDL::Key::BACKSPACE)
+      end
+
+      def diff_val
+        case e = Input::Support.preference_key(root.input.axis.right, root.input.axis.left)
+        when root.input.axis.right
+          e.repeat
+        when root.input.axis.left
+          e.repeat * -1
+        else
+          0
+        end
+      end
+
+      begin
+        private
+
+        def boot
+          bgm_if_possible
+          @state.jump_to :ms_alive
+        end
+
+        def ms_sleep
+          @children.each(&:update)
+        end
+
+        def ms_restart
+          if @state.start?
+            bgm_if_possible
+            notify(:menu_back)
+          end
+          @state.jump_to :ms_alive
+        end
+
+        def ms_alive
+          cursor_update
+          if @state.counter > 1 # サブメニューを開いた瞬間や戻ってきたときに最初の項目を押させないため
+            close_check
+            all_run
+            current_run
+          end
+          current_value_change
+          window_cursor_update
+          render
+        end
+
+        def render
+          # unless @bar
+          #   vputs
+          # end
+          if menu_name
+            rendar_bar
+            vputs menu_name
+          end
+          rendar_bar
+          @elements.slice(@window_cursor, @display_height).each {|element| element_display(element) }
+          rendar_bar
+
+          if current
+            if s = current[:desc]
+              if s.respond_to?(:call)
+                s = s.call
+              end
+              vputs s
+            end
+          end
+        end
+
+        def menu_name
+          if @name.respond_to?(:call)
+            @name.call
+          else
+            @name
+          end
+        end
+
+        def element_display(element)
+          vputs line_format % {
+            :cursor => element_cursor(element),
+            :name   => element_name(element),
+            :value  => element_value(element),
+          }
+        end
+
+        def element_cursor(element)
+          if element == current
+            "〉"
+          else
+            "  "
+          end
+        end
+
+        def element_name(element)
+          name = element[:name]
+          if name.respond_to?(:call)
+            name = name.call
+          end
+          if element == current
+            if menu_type?
+              name = "#{name}/"
+            end
+            if command_type?
+              name = "#{name} => OK ?"
+            end
+          else
+            name = "#{name}"
+          end
+          name
+        end
+
+        def element_value(element)
+          if element[:value]
+            value = element[:value].call
+            if element == current
+              if left_right_type?
+                value = "< #{value} >"
+              end
+            end
+            value
+          end
+        end
+
+        def all_run
+          if @every_command_all
+            @every_command_all.call(self)
+          end
+          @elements.each do |elem|
+            if command = elem[:every_call]
+              command.call(self)
+            end
+          end
+        end
+
+        def current_run
+          return unless current
+          current.assert_valid_keys *[
+            :name,
+            :desc,
+            :menu,
+            :simple_command,
+            :se_command,
+            :safe_command,
+            :change,
+            :change_with_self,
+            :change_with_se,
+            :value,
+            :every_call,
+            :call_if_current,
+            :cursor_in,
+            :cursor_out,
+          ]
+
+          if command = current[:call_if_current]
+            command.call(self)
+          end
+
+          if current_run_trigger?
+            if menu = current[:menu]
+              if menu.respond_to?(:call)
+                menu = menu.call
+              end
+              chain(menu)
+            end
+            if command = current[:simple_command]
+              if command.respond_to?(:call)
+                command.call(self)
+              else
+                send(command)
+              end
+            end
+            if command = current[:se_command]
+              notify(:menu_select)
+              command.call(self)
+            end
+            if command = current[:safe_command]
+              safe_command_around { command.call(self) }
+            end
+          end
+        end
+
+        def cursor_update
+          if v = Stylet::Input::Support.preference_key(root.input.axis.up, root.input.axis.down)
+            if v.repeat >= 1
+              d = 0
+              if v == root.input.axis.up
+                if @aroundable || @cursor > 0
+                  d = -1
+                end
+              else
+                if @aroundable || @cursor < @elements.size - 1
+                  d = 1
+                end
+              end
+              if d != 0
+                c = (@cursor + d).modulo(@elements.size)
+                if c != @cursor
+                  before = current
+                  @cursor = c
+                  notify(:menu_cursor)
+
+                  if m = before[:cursor_out]
+                    if m.respond_to?(:call)
+                      m.call(self)
+                    end
+                  end
+                  if m = current[:cursor_in]
+                    if m.respond_to?(:call)
+                      m.call(self)
+                    end
+                  end
+                end
+              end
+            end
+          end
+        end
+
+        def rendar_bar
+          if @bar
+            vputs @bar
+          end
+        end
+
+        def close_check
+          if close_trigger?
+            close_and_parent_restart
+          end
+        end
+
+        def window_cursor_update
+          d = scroll_margin - (@cursor - @window_cursor)
+          if d >= 1
+            @window_cursor -= d
+          end
+          d = (@cursor - @window_cursor) - (@display_height - scroll_margin - 1)
+          if d >= 1
+            @window_cursor += d
+          end
+          @window_cursor = Stylet::Chore.clamp(@window_cursor, window_range)
+        end
+
+        def window_range
+          max = @elements.size - @display_height
+          if max < 0
+            max = 0
+          end
+          0..max
+        end
+
+        def current
+          unless @elements.empty?
+            @elements.fetch(@cursor)
+          end
+        end
+
+        def scroll_margin
+          @scroll_margin || (@display_height / 3)
+        end
+
+        def close_and_parent_restart
+          if parent
+            if @close_hook
+              @close_hook.call(self)
+            end
+            parent.children.delete(self)
+            parent.state.jump_to :ms_restart
+          end
+        end
+
+        def notify(key)
+        end
+
+        def bgm_if_possible
+        end
+
+        def current_value_change
+          if current
+            if diff_val.nonzero?
+              if current[:change]
+                current[:change].call(diff_val)
+              end
+              if current[:change_with_self]
+                current[:change_with_self].call(self)
+              end
+              if current[:change_with_se]
+                current[:change_with_se].call(diff_val)
+                notify(:menu_select)
+              end
+            end
+          end
+        end
+
+        def current_run_trigger?
+          root.select_buttons.any? {|e|root.input.button.send(e).trigger?} || Stylet::Base.active_frame.key_down?(SDL::Key::RETURN)
+        end
+
+        def safe_command_around
+          Stylet::Audio.halt
+          notify(:menu_select)
+          yield
+          Stylet::Audio.halt
+          bgm_if_possible
+
+          # yield内でBキャンセルしたときにこのメニューもBキャンセルが反応してしまう。
+          # この対策としてメニューをリスタートさせる。
+          # リスタートすることで2フレーム間Bキャンセルを回避できる。
+          @state.jump_to :ms_restart
+        end
+
+        def left_right_type?
+          what_type?("change")
+        end
+
+        def menu_type?
+          what_type?("menu")
+        end
+
+        def command_type?
+          what_type?("command")
+        end
+
+        def what_type?(s)
+          current.keys.any? { |e| e.to_s.include?(s) }
+        end
+      end
+    end
+
+    module Soundable
+      extend ActiveSupport::Concern
+
+      def initialize(*)
+        super if defined? super
+
+        Stylet::SE.load("#{__dir__}/../../../assets/audios/pc_puyo_puyo_fever/SE/039CURSOR.WAV", volume: 0.5, key: :menu_cursor)
+        Stylet::SE.load("#{__dir__}/../../../assets/audios/pc_puyo_puyo_fever/SE/036DECIDE.WAV", volume: 0.5, key: :menu_select)
+        Stylet::SE.load("#{__dir__}/../../../assets/audios/pc_puyo_puyo_fever/SE/037CANCEL.WAV", volume: 0.5, key: :menu_back)
+        Stylet::SE.load("#{__dir__}/../../../assets/audios/pc_puyo_puyo_fever/SE/036DECIDE.WAV", volume: 0.5, key: :menu_chain)
+      end
+
+      def notify(key)
+        Stylet::SE[key].play
+      end
+
+      def bgm_if_possible
+        unless Stylet::Music.play?
+          Stylet::Music.play("#{__dir__}/../../../assets/audios/pc_puyo_puyo_fever/BGM/01_MENU.ogg")
+        end
+      end
+    end
+
+    class Simple
+      include Core
+    end
+
+    class Basic
+      include Core
+      include Soundable
+    end
+  end
+
+  if $0 == __FILE__
+    class SampleWindow < SimpleDelegator
+      def initialize
+        super(Stylet::Base.active_frame)
+        @c = 0
+      end
+
+      def counter_loop
+        main_loop do |_|
+          if @c >= 60
+            break
+          end
+          vputs "#{self.class.name}: #{@c}"
+          @c += 1
+        end
+      end
+    end
+
+    #--------------------------------------------------------------------------------
+    # 例1
+    #--------------------------------------------------------------------------------
+
+    if true
+      class App1 < SimpleDelegator
+        def initialize
+          super(Stylet::Base.active_frame)
+
+          if false
+            @menu = Stylet::Menu::Basic.new
+          else
+            @test_var = 0
+            @menu = Stylet::Menu::Basic.new(elements: [
+                {name: "モード", safe_command: proc {}, :value => proc { @test_var }, :change => proc {|v| @test_var += v }, :desc => proc { "説明" }},
+
+                {name: "実行", safe_command: proc { SampleWindow.new.counter_loop }},
+                {
+                  name: "サブメニュー",
+                  simple_command: proc {|s|
+                    s.chain(name: "sub menu", elements: [
+                        {name: "実行", safe_command: proc { SampleWindow.new.counter_loop }},
+                        {name: "A", safe_command: proc { p 1 }},
+                        {name: "B", safe_command: proc { p 2 }},
+                        {name: "閉じる", simple_command: :close_and_parent_restart },
+                      ])
+                  },
+                },
+                {name: "サブメニュー2", simple_command: proc {|s| s.chain(name: "[サブメニュー2]", elements: 50.times.collect {|i|{:name => "項目#{i}"}})}},
+                {name: "サブメニュー3", menu: {name: "[サブメニュー3]", elements: 50.times.collect {|i|{:name => "項目#{i}"}}}},
+                {:name => "閉じる", simple_command: :close_and_parent_restart },
+              ])
+          end
+        end
+
+        def counter_loop
+          main_loop {|_| @menu.update }
+        end
+      end
+
+      App1.new.counter_loop
+    end
+
+    #--------------------------------------------------------------------------------
+    # 例2
+    #--------------------------------------------------------------------------------
+
+    if false
+      # この例でもいいけど update コールバックが Singleton のインスタンスに結び付いてしまうのため
+      # SampleWindow クラスでも update が実行されてしまう
+      class App2 < Stylet::Base
+        setup do
+          @menu = Stylet::Menu::Basic.new(elements: [{name: "RUN", safe_command: proc { SampleWindow.new.counter_loop }}])
+        end
+        update do
+          @menu.update
+        end
+        run
+      end
+    end
+  end
+end