stylet 0.0.1

data/lib/stylet/draw_support/arrow.rb

@@ -0,0 +1,56 @@
+module Stylet
+  module DrawSupport
+    # ベクトル確認用
+    #   開始地点のデフォルトは画面中央になる
+    #   開始地点がわかっている場合は origin を指定すること
+    #
+    #   draw_vector(vec2[100, 0], :origin => vec2[50, 50], :label => "ok")
+    #
+    #     p0 -----> p1 ok
+    #
+    #   p0: origin オプションで指定(指定しないと画面中央)
+    #   p1: 第一引数
+    #
+    def draw_vector(vec, options = {})
+      options = {
+        :origin => srect.center, # 原点を画面の真中にしておく
+      }.merge(options)
+
+      p1 = options[:origin] + vec
+      draw_arrow(options[:origin], p1, options)
+
+      if options[:label]
+        vputs options[:label], :vector => p1
+      end
+    end
+
+    # p0 から p1 へ矢印の描画
+    def draw_arrow(p0, p1, options = {})
+      d = p0 - p1
+      if d.x.nan? || d.y.nan?
+        return
+      end
+
+      options = {
+        :angle      => Magic.r45,                  # 傘の開き
+        :arrow_size => p0.distance_to(p1) * 0.1, # 傘の大きさは線分の長さに比例
+      }.merge(options)
+
+      draw_line(p0, p1, options) # 線分の表示
+
+      # 傘の表示
+      a = p1.angle_to(p0)
+      draw_line(p1, p1 + Vector.angle_at(a + options[:angle]).scale(options[:arrow_size]), options)
+      draw_line(p1, p1 + Vector.angle_at(a - options[:angle]).scale(options[:arrow_size]), options)
+    end
+  end
+end
+
+if $0 == __FILE__
+  require_relative "../../stylet"
+  Stylet::Base.run do
+    draw_arrow(srect.center, srect.center + [50, 50])
+    draw_vector(vec2[100, -100], :origin => srect.center, :label => "ok")
+    draw_vector(vec2[100, 0], :origin => vec2[50, 50], :label => "ok")
+  end
+end

data/lib/stylet/draw_support/circle.rb

@@ -0,0 +1,63 @@
+#
+# 円・三角形・四角形の描画(向きの指定可)
+#
+module Stylet
+  module DrawSupport
+    # 多角形の描画
+    #   四角形
+    #     win.draw_circle(win.srect.center, :vertex => 4)
+    #   三角形で頂点の向きは時計の6時で半径256ピクセル
+    #     win.draw_circle(win.srect.center, :vertex => 3, :angle => Magic.r90, :radius => 256)
+    def draw_circle(p0, options = {})
+      options = {
+        :radius => 64,       # 半径
+        :vertex => 8,        # n角形
+        :angle  => Magic.r270, # 開始地点(初期値は時計の12時)
+      }.merge(options)
+
+      raise "options[:vertex] is not Integer" unless options[:vertex].is_a? Integer
+      raise "options[:vertex] >= 1" if options[:vertex].to_i.zero?
+      raise "zero vector" if options[:vertex].zero?
+
+      points = options[:vertex].times.collect do |i|
+        a = options[:angle] + 1.0 * i / options[:vertex]
+        p0 + Vector.angle_at(a) * options[:radius]
+      end
+      draw_polygon(points, options)
+    end
+
+    # 三角形版
+    def draw_triangle(p0, options = {})
+      draw_circle(p0, {:vertex => 3}.merge(options))
+    end
+
+    # 四角形版
+    def draw_square(p0, options = {})
+      draw_circle(p0, {:vertex => 4}.merge(options))
+    end
+
+    # 長方形
+    def draw_angle_rect(p0, options = {})
+      options = {
+        :radius => 64,       # 半径
+        :angle  => Magic.r270, # 長方形の細長い部分の方向
+        :edge => 1.0 / 16,   # 長方形の細長い先っぽの面の大きさ(0なら一本線。0.125で正方形)
+      }.merge(options)
+      s = options[:edge]
+      points = [-s, s, 1.0 / 2 - s, 1.0 / 2 + s].collect do |rad|
+        p0 + Vector.angle_at(options[:angle] + rad) * options[:radius]
+      end
+      draw_polygon(points, options)
+    end
+  end
+end
+
+if $0 == __FILE__
+  require_relative "../../stylet"
+  Stylet::Base.run do
+    draw_circle(srect.center)
+    draw_triangle(srect.center)
+    draw_square(srect.center)
+    draw_angle_rect(srect.center)
+  end
+end

data/lib/stylet/draw_support/polygon.rb

@@ -0,0 +1,22 @@
+#
+# 多角形描画
+#
+module Stylet
+  module DrawSupport
+    # 多角形描画
+    #   draw_polygon([Vector.zero, vec2[0, 100], vec2[50, 50]])
+    def draw_polygon(points, options = {})
+      (points + points.take(1)).each_cons(2) {|a, b| draw_line(a, b, options) }
+    end
+  end
+end
+
+if $0 == __FILE__
+  require_relative "../../stylet"
+  Stylet::Base.run do
+    points = Array.new(3 + rand(3)) {vec2[rand(srect.w), rand(srect.h)]}
+    draw_polygon(points)
+    draw_polygon([Stylet::Vector.zero, vec2[0, 100], vec2[50, 50]])
+    sleep(0.25)
+  end
+end

data/lib/stylet/font.rb

@@ -0,0 +1,172 @@
+if $0 == __FILE__
+  require_relative "../stylet"
+end
+
+module Stylet
+  class FontList
+    include ApplicationMemoryRecord
+    memory_record Stylet.config.font_list
+
+    delegate :line_skip, :text_size, :drawBlendedUTF8, :to => :sdl_ttf
+
+    def initialize(*)
+      super
+      init
+    end
+
+    def init
+      @_sdl_ttf = nil
+      @char_width = nil
+    end
+
+    def char_width
+      @char_width ||= sdl_ttf.text_size("A").first
+    end
+
+    def close
+      if @_sdl_ttf
+        @_sdl_ttf.close
+        init
+      end
+    end
+
+    concerning :BoldMethods do
+      def bold
+        (sdl_ttf.style & SDL::TTF::STYLE_BOLD).nonzero?
+      end
+
+      def bold=(v)
+        if v
+          sdl_ttf.style |= SDL::TTF::STYLE_BOLD
+        else
+          sdl_ttf.style &= ~SDL::TTF::STYLE_BOLD
+        end
+      end
+
+      def bold_block(v)
+        return yield if v.nil?
+
+        bold_save = bold
+        self.bold = v
+        yield
+        self.bold = bold_save
+      end
+    end
+
+    private
+
+    def sdl_ttf
+      unless @_sdl_ttf
+        if font_file = font_dir_list.collect {|e| Pathname(e) }.find {|e| e.exist? }
+          @_sdl_ttf = SDL::TTF.open(font_file.to_s, @attributes[:font_size])
+          Stylet.logger.debug "load: #{font_file} (#{@_sdl_ttf.family_name.inspect} #{@_sdl_ttf.style_name.inspect} #{@_sdl_ttf.height} #{@_sdl_ttf.line_skip} #{@_sdl_ttf.fixed_width?})" if Stylet.logger
+          if @attributes[:bold]
+            @_sdl_ttf.style |= SDL::TTF::STYLE_BOLD
+          end
+        end
+      end
+      @_sdl_ttf
+    end
+
+    def font_dir_list
+      [
+        @attributes[:path],
+        "#{__dir__}/../../assets/fonts/#{@attributes[:path]}",
+        "/Library/Fonts/Tahoma.ttf", # fallback font
+      ]
+    end
+  end
+
+  module Font
+    attr_reader :system_font
+    attr_reader :console_current_line
+
+    def run_initializers
+      super
+      init_on(:font) do
+        SDL::TTF.init
+        @system_font = FontList[Stylet.config.system_font_key]
+        @console_current_line = nil
+      end
+    end
+
+    def before_draw
+      super if defined? super
+      @console_current_line = 0
+    end
+
+    def after_run
+      super if defined? super
+      FontList.each(&:close)
+    end
+
+    def update
+      super
+      if Stylet.config.production_keys.any? {|key| key_down?(key) }
+        Stylet.production = !Stylet.production
+      end
+    end
+
+    def dputs(*args)
+      return if Stylet.production
+      vputs(*args)
+    end
+
+    #
+    # 文字列表示
+    #
+    #   vputs "Hello"                                             # 垂れ流し
+    #   vputs "Hello", :vector => Vector[x, y]                    # 座標指定
+    #   vputs "Hello", :vector => Vector[x, y], :align => :right  # 座標指定(右寄せ)
+    #   vputs "Hello", :vector => Vector[x, y], :align => :center # 座標指定(中央)
+    #
+    def vputs(str = "", vector: nil, color: :font, align: :left, font: @system_font, bold: nil)
+      str = str.to_s
+      font = FontList[font]
+      if vector
+        begin
+          x = vector.x
+          if [:center, :right].include?(align)
+            w = font.text_size(str).first
+            case align
+            when :right
+              x -= w
+            when :center
+              x -= w / 2
+            when :left
+            else
+              raise ArgumentError, align.inspect
+            end
+          end
+          font.bold_block(bold) do
+            font.drawBlendedUTF8(@screen, str, x, vector.y, *Palette.fetch(color))
+          end
+        rescue RangeError
+        end
+      else
+        if v = vputs_vector
+          vputs(str, vector: v, color: color, align: align, font: font, bold: bold)
+          @console_current_line += font.line_skip
+        end
+      end
+    end
+
+    def vputs_vector
+      if @console_current_line && @system_font
+        vec2[0, @console_current_line]
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  # require_relative "../stylet"
+  # Stylet.config.font_name = "VeraMono.ttf"
+  # Stylet.config.font_size = 20
+  Stylet.run do
+    vputs [*"A".."Z"].join
+    vputs "left",   :vector => srect.center + [0, 20*0], :align => :left
+    vputs "center", :vector => srect.center + [0, 20*1], :align => :center
+    vputs "right",  :vector => srect.center + [0, 20*2], :align => :right
+  end
+end

data/lib/stylet/fps_adjust.rb

@@ -0,0 +1,23 @@
+require "active_support/core_ext/module/delegation"
+
+module Stylet
+  class FpsAdjust
+    delegate :fps, :to => "Stylet.config"
+
+    def initialize
+      @old_time = SDL.get_ticks
+    end
+
+    def delay
+      return unless fps
+
+      loop do
+        now = SDL.get_ticks
+        if now > @old_time + 1000.0 / fps
+          @old_time = now
+          break
+        end
+      end
+    end
+  end
+end

data/lib/stylet/fps_stat.rb

@@ -0,0 +1,41 @@
+module Stylet
+  # FPSの計測
+  #
+  # Example:
+  #
+  #   obj = FpsStat.new
+  #   loop do
+  #     obj.update
+  #     obj.fps # => 60
+  #     screen.flip
+  #   end
+  #
+  class FpsStat
+    attr_reader :fps
+
+    def initialize
+      @fps = 0
+      @counter = 0
+      @old_time = SDL.get_ticks
+    end
+
+    def update
+      @counter += 1
+      now = SDL.get_ticks
+      if now >= @old_time + 1000.0
+        @old_time = now
+        @fps = @counter
+        @counter = 0
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  obj = Stylet::FpsStat.new
+  sleep(0.5)
+  obj.update
+  sleep(0.5)
+  obj.update
+  p obj.fps
+end

data/lib/stylet/input.rb

@@ -0,0 +1,8 @@
+# ・SDLとはほぼ無関係
+# ・「入力」は「キーボード」を連想しがちだが入力は「思考ルーチン」と考える
+# ・キーボード関連がでてくるのは思考ルーチンを省略するためのもの
+
+require_relative "input/support"
+require_relative "input/key_one"
+require_relative "input/base"
+require_relative "input/hardware_bindings"

data/lib/stylet/input/base.rb

@@ -0,0 +1,105 @@
+require_relative "../axis_support"
+
+module Stylet
+  module Input
+    # このモジュールをプレイヤーや人工無能相当に直接includeしてaxisとbuttonの情報を持たせるようにする
+    module Base
+      Axis   = Struct.new(:up, :down, :left, :right)
+      Button = Struct.new(:btA, :btB, :btC, :btD)
+
+      attr_reader :axis, :button
+      attr_reader :key_objects
+
+      def initialize(*)
+        super if defined? super
+
+        @key_objects = []
+
+        @axis = Axis.new(*[
+            factory(name: "u", match_chars: "u", store_char: "u"),
+            factory(name: "d", match_chars: "d", store_char: "d"),
+            factory(name: "l", match_chars: "l", store_char: "l"),
+            factory(name: "r", match_chars: "r", store_char: "r"),
+          ])
+
+        @button = Button.new(*[
+            factory(:name => "A", :match_chars => "AL", store_char: "A"),
+            factory(:name => "B", :match_chars => "BR", store_char: "B"),
+            factory(:name => "C", :match_chars => "C", store_char: "C"),
+            factory(:name => "D", :match_chars => "D", store_char: "D"),
+          ])
+      end
+
+      def factory(attrs)
+        KeyOne.new(attrs.merge(:index => @key_objects.size)).tap do |e|
+          @key_objects << e
+        end
+      end
+
+      # レバーの更新前のビット状態を取得
+      #   更新前であることに注意
+      def axis_state_str
+        @axis.values.collect(&:state_to_s).join
+      end
+
+      def key_objs_dump
+        key_objects.inject(0) {|a, e| a + e.press_bit_value }
+      end
+
+      def key_objs_load(obj)
+        key_objects.each {|v| v << obj }
+      end
+
+      # def to_s
+      #   key_objects.join
+      # end
+
+      # 左右の溜めが完了しているか?(次の状態から使えるか?)
+      def key_power_effective?(power_delay)
+        Input::Support.key_power_effective?(@axis.left, @axis.right, power_delay)
+      end
+
+      # ボタンとレバーのカウンタを更新する
+      #   実行後に state は false になる
+      def key_counter_update_all
+        key_objects.each(&:counter_update)
+      end
+
+      # レバーの状態から8方向の番号インデックスに変換
+      def axis_angle_index
+        AxisSupport.axis_angle_index(@axis)
+      end
+
+      # 8方向レバーの状態から一周を1.0としたときの方向を返す
+      def axis_angle
+        AxisSupport.axis_angle(@axis)
+      end
+    end
+
+    # ジョイスティックの上とかにあるボタン類
+    module ExtensionButton
+      Button = Struct.new(:btR1, :btR2, :btL1, :btL2, :btSelect, :btStart, :btPS)
+
+      attr_reader :ext_button
+
+      def initialize(*)
+        super if defined? super
+
+        @ext_button = Button.new(*[
+            factory(name: "R1",     match_chars: nil, store_char: nil),
+            factory(name: "R2",     match_chars: nil, store_char: nil),
+            factory(name: "L1",     match_chars: nil, store_char: nil),
+            factory(name: "L2",     match_chars: nil, store_char: nil),
+            factory(name: "SELECT", match_chars: nil, store_char: nil),
+            factory(name: "START",  match_chars: nil, store_char: nil),
+            factory(name: "PS",     match_chars: nil, store_char: nil),
+          ])
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  require_relative "../../stylet"
+  Stylet.run
+end