stylet 0.0.1

data/examples/trash/__0270_circle_cycle_shift.rb

@@ -0,0 +1,29 @@
+#
+# 円の動き
+#
+require_relative "helper"
+
+class Ball
+  def initialize(win)
+    @win = win
+  end
+
+  def update
+    pos = vec2.zero
+    pos.x = Stylet::Magic.rcos(1.0 / 512 * (@win.frame_counter * 3)) * @win.srect.w / 2
+    pos.y = Stylet::Magic.rsin(1.0 / 512 * (@win.frame_counter * 4)) * @win.srect.h / 2
+    pos += @win.srect.center
+    @win.draw_polygon(pos, :radius => 64)
+  end
+end
+
+class App < Stylet::Base
+  include Helper::CursorWithObjectCollection
+
+  setup do
+    @cursor.display = false
+    @objects << Ball.new(self)
+  end
+
+  run
+end

data/examples/trash/__bullet_algos.rb

@@ -0,0 +1,224 @@
+$LOAD_PATH << ".." if $0 == __FILE__
+require "shooting"
+
+# 狙い撃ち弾
+# n-way弾
+# 円形弾
+# 分裂弾
+# 誘導弾
+# 誘導レーザー
+# ミサイル
+# 加速弾
+# 落下弾
+# 狙い撃ち弾+回転弾      # 回転弾が自機を狙う
+# 渦巻き弾
+# 停止する誘導弾
+# 直進するビーム
+
+module BulletDir
+  def compute
+    super
+    @target_dir = Magic.angle(@x, @y, @target.x, @target.y)
+  end
+end
+
+module BulletNeraiutidan
+  def compute
+    super
+    if @win.press_button?(SDL::Key::K1) || (joy && joy.button(0))
+      if @frame_counter.modulo(60 / 10).zero?
+        @win.bullets << Bullet.new(@win, @x, @y, @target_dir, 5.00)
+      end
+    end
+  end
+end
+
+class Bullet2 < BulletBase
+  include CircleGrid
+
+  def initialize(target, *args)
+    @target = target
+    super(*args)
+  end
+
+  def compute
+    compute_sincos
+    unless @win.pause_mode
+      if @frame_counter.modulo(1).zero?
+        d = Magic.angle(@x, @y, @target.x, @target.y)
+        gap = (d - @dir) % 1.00
+        if gap >= 0.5
+          sign = -1
+        else
+          sign = +1
+        end
+        @dir = (@dir + (1.0 / 256) * sign) % 1.0
+        @cx = @x
+        @cy = @y
+        @radius = @speed
+        @speed += 0.1
+      end
+    end
+  end
+end
+
+module BulletTuibi
+  def compute
+    super
+    if @win.press_button?(SDL::Key::K2) || (joy && joy.button(1))
+      div, mod = @frame_counter.divmod(60 / 10)
+      if mod.zero?
+        wide = 2
+        @win.bullets << Bullet2.new(@target, @win, @x, @y, @target_dir + rand * 1.0 / wide - 1.0 / (wide * 2), 1.0)
+      end
+    end
+  end
+end
+
+module Bullet3waydan
+  def compute
+    super
+    if @win.press_button?(SDL::Key::K4) || (joy && joy.button(2))
+      if @frame_counter.modulo(60 / 5).zero?
+        gap = 1.0 / 64
+        n = 3
+        n.times {|i|
+          d = @target_dir - (n / 2 * gap) + gap * i
+          @win.bullets << Bullet.new(@win, @x, @y, d, 5.00)
+        }
+      end
+    end
+  end
+end
+
+module BulletRandom
+  def compute
+    super
+    if @win.press_button?(SDL::Key::K3) || (joy && joy.button(3))
+      if @frame_counter.modulo(60 / 20).zero?
+        z = 1.0 / 24
+        d = @target_dir + (rand * z - z / 2) * 2
+        @win.bullets << Bullet.new(@win, @x, @y, d, 7)
+      end
+    end
+  end
+end
+
+module BulletUzumaki
+  def initialize(*)
+    super
+    @uzumaki_count = 0
+  end
+
+  def compute
+    super
+    if @win.press_button?(SDL::Key::K5) || (joy && joy.button(4))
+      div, mod = @frame_counter.divmod(60 / 20)
+      if mod.zero?
+        n = 4
+        n.times {|i|
+          d = 1.0 / n * i + (Magic.rsin(1.0 / 32 * div) * 0.1)
+          @win.bullets << Bullet.new(@win, @x, @y, d, 2)
+        }
+      end
+    end
+  end
+end
+
+module BulletUzumakix2
+  def compute
+    super
+    if @win.press_button?(SDL::Key::K6) || (joy && joy.button(5))
+      div, mod = @frame_counter.divmod(60 / 10)
+      if mod.zero?
+        uzumaki2(div, +1)
+        uzumaki2(div, -1)
+      end
+    end
+  end
+
+  def uzumaki2(frame_counter, sign)
+    n = 5
+    gap = 1.0 / n
+    n.times {|i|
+      d = (n / 2 * gap) + gap * i + (frame_counter * 1.0 / 120 * sign) + (frame_counter * 0.001)
+      @win.bullets << Bullet.new(@win, @x, @y, d, 2.0)
+    }
+  end
+end
+
+module Bullet128waydan
+  def compute
+    super
+    if @win.press_button?(SDL::Key::K7) || (joy && joy.button(6))
+      if @frame_counter.modulo(60 / 2).zero?
+        n = 64
+        gap = 1.0 / n
+        n.times {|i|
+          @win.bullets << Bullet.new(@win, @x, @y, gap * i, 4.00)
+        }
+      end
+    end
+  end
+end
+
+module BulletUzumakix2Fast
+  def compute
+    super
+    if @win.press_button?(SDL::Key::K8) || (joy && joy.button(7))
+      div, mod = @frame_counter.divmod(60 / 20)
+      if mod.zero?
+        uzumaki2fast(div, +1)
+        uzumaki2fast(div, -1)
+      end
+    end
+  end
+
+  def uzumaki2fast(frame_counter, sign)
+    n = 3
+    gap = 1.0 / n
+    n.times {|i|
+      d = (n / 2 * gap) + gap * i + (frame_counter * 1.0 / 120 * sign) + (frame_counter * 0.001)
+      @win.bullets << Bullet.new(@win, @x, @y, d, 6.0)
+    }
+  end
+end
+
+class GunShipA < GunShip1
+  include BulletDir
+  include BulletNeraiutidan
+  include BulletTuibi
+  include Bullet3waydan
+  include BulletRandom
+  include BulletUzumaki
+  include BulletUzumakix2
+  include Bullet128waydan
+  include BulletUzumakix2Fast
+end
+
+class GunShipB < GunShip2
+  include BulletDir
+  include BulletNeraiutidan
+  include BulletTuibi
+  include Bullet3waydan
+  include BulletRandom
+  include BulletUzumaki
+  include BulletUzumakix2
+  include Bullet128waydan
+  include BulletUzumakix2Fast
+end
+
+class Application < WarSpace
+  def initialize
+    super
+    @draw_inst = Stylet::Sdl::Draw.instance
+    ship1 = GunShipA.new(self, @draw_inst.width / 2, @draw_inst.height / 8 * 1)
+    ship2 = GunShipB.new(self, @draw_inst.width / 2, @draw_inst.height / 8 * 7)
+    ship1.target = ship2
+    ship2.target = ship1
+    @ships << ship1
+    @ships << ship2
+  end
+end
+
+Application.new.run

data/examples/trash/gunship.rb

@@ -0,0 +1,39 @@
+class GunShip
+  include Stylet::Input::Base
+
+  attr_reader :pos
+  attr_accessor :target
+
+  def initialize(win, pos)
+    super()
+    @win = win
+    @pos = pos
+    @speed = 3
+    @target = nil
+    @size = 8
+    @joystick_index = nil
+  end
+
+  def update
+    super if defined? super
+
+    if @joystick_index
+      bit_update_by_joy(@win.joys[@joystick_index])
+    end
+    key_bit_update_all
+    key_counter_update_all
+
+    if dir = axis_angle
+      x = @pos.x + Stylet::Magic.rcos(dir) * @speed
+      y = @pos.y + Stylet::Magic.rsin(dir) * @speed
+      if (@win.srect.min_x..@win.srect.max_x).include?(x)
+        @pos.x = x
+      end
+      if (@win.srect.min_y..@win.srect.max_y).include?(y)
+        @pos.y = y
+      end
+    end
+
+    @win.draw_rect(Stylet::Rect4.new(@pos.x - @size, @pos.y - @size, @size * 2, @size * 2))
+  end
+end

data/examples//343/203/227/343/203/255/343/202/270/343/202/247/343/202/257/343/202/277/343/203/274/343/201/253/350/241/250/347/244/272/343/201/231/343/202/213/343/201/250/343/201/215.sh

@@ -0,0 +1,2 @@
+#!/bin/sh
+bundle exec rsdl ./hello_world.rb -f -s 640x480

data/lib/stylet.rb

@@ -0,0 +1 @@
+require 'stylet/stylet'

data/lib/stylet/application_memory_record.rb

@@ -0,0 +1,33 @@
+require "memory_record"
+
+module Stylet
+  module ApplicationMemoryRecord
+    extend ActiveSupport::Concern
+
+    included do
+      include MemoryRecord
+    end
+
+    class_methods do
+      def info
+        collect(&:to_h).to_t
+      end
+    end
+
+    def info
+      to_h.to_t
+    end
+
+    def to_h
+      attributes
+    end
+
+    def name_with_key
+      "#{name} (#{key})"
+    end
+
+    def logger
+      Stylet.logger
+    end
+  end
+end

data/lib/stylet/audio.rb

@@ -0,0 +1,455 @@
+# 曲と効果音の管理
+#
+#   曲
+#
+#     Music.play("path/to/foo.wav")
+#
+#   効果音
+#
+#     SE.load("path/to/foo.wav")
+#     SE[:foo].play
+#
+# ・表示系のライブラリとは独立
+# ・チャンネルとWAVの音量は独立している
+# ・SEの解放時、対応チャンネルを誰も使わなくなっていたら消して再割り当てする
+# ・SE.preparation_channels SE自由席の数。
+# ・チャンネルは先頭から [自由席] → [指定席] の順で使うようにしている。これ重要。
+#   もし自由席の方が後だったらおかしなことになる。
+#   SDLは《先頭から》空いているチャンネルを探して使う。
+#   開始合図のラッパが0チャンネルが空いてるからと思って使った直後に0チャンネルを使う予定のSEが鳴ったらラッパの音消えてしまう。
+#   したがってチャンネルは[自由席][指定席]の順になっている
+#
+require 'pathname'
+require 'singleton'
+require 'active_support/core_ext/module/delegation' # Defines Module#delegate.
+require 'active_support/core_ext/module/attribute_accessors' # Defines Module#mattr_accessor
+
+module Stylet
+  class Audio
+    include Singleton
+
+    # 全体のフィイドアウト秒数
+    cattr_accessor :fade_out_default
+    self.fade_out_default = 2
+
+    class << self
+      alias setup_once instance
+
+      delegate :halt, :to => "Stylet::Audio.instance"
+
+      def volume_cast(v)
+        raise if v.is_a? Integer
+        (Stylet::Chore.clamp(v) / 1.0 * 128).to_i
+      end
+    end
+
+    def initialize
+      if SDL.inited_system(SDL::INIT_AUDIO).zero?
+        SDL.initSubSystem(SDL::INIT_AUDIO)
+        SDL::Mixer.open(Stylet.config.sound_freq, SDL::Mixer::DEFAULT_FORMAT, 2, 512) # デフォルトの4096では効果音が遅延する
+        spec_check
+      end
+    end
+
+    def halt
+      Music.halt
+      SE.halt
+    end
+
+    def spec_check
+      return unless Stylet.logger
+      Stylet.logger.debug "SDL::Mixer.driver_name: #{SDL::Mixer.driver_name.inspect}"
+      Stylet.logger.debug "SDL::Mixer.spec: #{Hash[[:frequency, :format, :channels].zip(SDL::Mixer.spec)]}"
+    end
+  end
+
+  module Music
+    extend self
+
+    # 最後に再生したファイル
+    mattr_accessor :last_music_file
+    self.last_music_file = nil
+
+    # ボリュームの倍率
+    mattr_accessor :volume_magnification
+    self.volume_magnification = 1.0
+
+    def play_by(params)
+      play(params[:filename], params)
+    end
+
+    def play(filename, volume: nil, loop: true, fade_in_sec: nil, **unsed_options)
+      return if Stylet.config.mute_music || Stylet.config.mute
+
+      Audio.setup_once
+
+      filename = Pathname(filename).expand_path
+      if filename.exist?
+        Stylet.logger.debug "play: #{filename}" if Stylet.logger
+        bin = load(filename)
+        loop = loop ? -1 : 0
+        if fade_in_sec
+          SDL::Mixer.fade_in_music(bin, loop, fade_in_sec * 1000.0)
+        else
+          SDL::Mixer.play_music(bin, loop)
+        end
+        self.volume = volume if volume
+      end
+    end
+
+    def volume=(v)
+      SDL::Mixer.set_volume_music(Audio.volume_cast(v * volume_magnification))
+    end
+
+    def play?
+      SDL::Mixer.play_music?
+    end
+
+    def wait_if_play?
+      SDL.delay(1) while SDL::Mixer.play_music?
+    end
+
+    def halt(fade_out_sec: nil)
+      if fade_out_sec
+        SDL::Mixer.fade_out_music(fade_out_sec * 1000.0)
+      else
+        SDL::Mixer.halt_music
+      end
+    end
+
+    def fade_out(fade_out_sec: Audio.fade_out_default)
+      halt(fade_out_sec: fade_out_sec)
+    end
+
+    def last_music_file?(filename)
+      last_music_file == Pathname(filename).expand_path.to_s
+    end
+
+    private
+
+    def load(filename)
+      destroy
+      filename = Pathname(filename).expand_path.to_s
+      self.last_music_file = filename
+      @muisc = SDL::Mixer::Music.load(filename)
+    end
+
+    def destroy
+      if @muisc
+        raise if @muisc.destroyed?
+        @muisc.destroy
+        @muisc = nil
+      end
+    end
+  end
+
+  module SE
+    extend self
+
+    mattr_accessor :allocated_channels
+    self.allocated_channels = 0
+
+    mattr_accessor :se_hash
+    self.se_hash = {}
+
+    mattr_accessor :channel_groups
+    self.channel_groups = {}
+
+    # 予約チャンネル数 (channel_auto を使うときに関係してくる)
+    mattr_accessor :preparation_channels
+    self.preparation_channels = 0
+
+    # チャンネルボリュームの初期値
+    # SDL は何もしないと 1.0 だけど音が大きすぎるため全チャンネルを 0.5 としている
+    # WAVE毎にボリュームを設定できるため、この値は固定しておいた方がシンプルになる
+    # この設定は不要かもしれない
+    mattr_accessor :default_master_volume
+    self.default_master_volume = 0.5
+
+    # ボリューム倍率
+    # アプリケーションのオプションなどで効果音の音量を設定するときはこの値を変更する
+    # 実際に反映するのはボリュームを設定したときなので注意
+    mattr_accessor :volume_magnification
+    self.volume_magnification = 1.0
+
+    def [](key)
+      se_hash.fetch(key.to_sym) { NullEffect.new }
+    end
+
+    def exist?(key)
+      se_hash[key.to_sym]
+    end
+
+    def load_once(**params)
+      return if exist?(params[:key])
+      load(params[:filename], params.except(:filename))
+    end
+
+    def load(filename, volume: 1.0, key: nil, channel_group: nil, channel_auto: false, preload: false)
+      return if Stylet.config.mute
+
+      filename = Pathname(filename).expand_path
+      unless filename.exist?
+        Stylet.logger.debug "#{filename} が見つかりません" if Stylet.logger
+        return
+      end
+
+      key ||= filename.basename(".*").to_s
+      key = key.to_sym
+      if se_hash[key]
+        Stylet.logger.debug "すでに #{filename} (#{key.inspect}) が登録されています" if Stylet.logger
+        return
+      end
+
+      SoundEffect.new(key: key, :channel_group => channel_group, filename: filename, volume: volume, channel_auto: channel_auto, preload: preload)
+    end
+
+    def destroy_all(keys = se_hash.keys)
+      Array(keys).collect(&:to_sym).uniq.each do |key|
+        if se = se_hash[key]
+          se.destroy
+        end
+      end
+      channel_reset
+    end
+
+    def channel_reset
+      raise if SE.channel_groups.any? {|_, e|e[:counter] < 0}
+      SE.channel_groups.delete_if {|_, e|e[:counter] == 0}
+      allocate_channels
+      channel_groups.each_value.with_index {|e, index|e[:channel] = SE.preparation_channels + index}
+    end
+
+    def allocate_channels
+      self.allocated_channels = SDL::Mixer.allocate_channels(SE.preparation_channels + channel_groups.size)
+      SE.master_volume = SE.default_master_volume
+    end
+
+    # nil while se_hash.values.any? {|e| e.play? } と同等
+    def wait_if_play?
+      SDL.delay(1) while play_any?
+    end
+
+    def play_any?
+      SDL::Mixer.playing_channels.nonzero?
+    end
+
+    def play_none?
+      !play_any?
+    end
+
+    def halt(fade_out_sec: nil)
+      if fade_out_sec
+        SDL::Mixer.fade_out(-1, fade_out_sec * 1000.0)
+      else
+        SDL::Mixer.halt(-1)
+      end
+    end
+
+    def fade_out(fade_out_sec: Audio.fade_out_default)
+      halt(fade_out_sec: fade_out_sec)
+    end
+
+    def master_volume=(v)
+      Audio.setup_once
+      @master_volume = v
+      # チャンネル数が0の状態で呼ぶとエラーになるため1以上としている
+      if allocated_channels >= 1
+        SDL::Mixer.set_volume(-1, Audio.volume_cast(v))
+      end
+    end
+
+    class Base
+      def play(*)
+      end
+
+      def play?
+        false
+      end
+
+      def halt(*)
+      end
+
+      def fade_out(fade_out_sec: Audio.fade_out_default)
+        halt(fade_out_sec: fade_out_sec)
+      end
+
+      def volume
+        0
+      end
+
+      def volume=(v)
+      end
+
+      def spec
+      end
+    end
+
+    class NullEffect < Base
+    end
+
+    class SoundEffect < Base
+      attr_reader :filename, :key, :channel_group, :volume, :channel_auto
+
+      def initialize(filename:, key:, channel_group:, volume:, channel_auto: false, preload: false)
+        raise if channel_group && channel_auto
+
+        @filename     = Pathname(filename).expand_path
+        @key          = key
+        @channel_auto = channel_auto
+        @volume       = volume
+
+        unless @channel_auto
+          @channel_group = channel_group || key
+        end
+
+        unless @channel_auto
+          SE.channel_groups[@channel_group] ||= {:channel => SE.preparation_channels + SE.channel_groups.size, :counter => 0}
+          SE.channel_groups[@channel_group][:counter] += 1
+        end
+
+        Audio.setup_once
+        SE.allocate_channels
+        SE.se_hash[@key] = self
+
+        if preload
+          preload!
+        end
+
+        Stylet.logger.debug "new: #{spec}" if Stylet.logger
+      end
+
+      def play(loop: false)
+        SDL::Mixer.play_channel(channel, wave, loop ? -1 : 0)
+      rescue SDL::Error => error
+        Stylet.logger.debug "ERROR: #{error.inspect}" if Stylet.logger
+      end
+
+      def play?
+        SDL::Mixer.play?(channel)
+      end
+
+      def halt(fade_out_sec: nil)
+        if fade_out_sec
+          SDL::Mixer.fade_out(channel, fade_out_sec * 1000)
+        else
+          SDL::Mixer.halt(channel)
+        end
+      end
+
+      def volume=(v)
+        @volume = v
+        if @wave
+          wave_volume_set(@wave)
+        end
+      end
+
+      def channel
+        if @channel_auto
+          if SE.allocated_channels == 0
+            raise "SE.preparation_channels でチャンネル数を指定してください"
+          end
+          -1
+        else
+          SE.channel_groups.fetch(@channel_group)[:channel]
+        end
+      end
+
+      def destroy
+        raise unless SE.se_hash[@key]
+        unless @channel_auto
+          SE.channel_groups[@channel_group][:counter] -= 1
+        end
+        if @wave
+          raise if @wave.destroyed?
+          @wave.destroy
+          @wave = nil
+        end
+        Stylet.logger.debug "destroy: #{@key.inspect}" if Stylet.logger
+        SE.se_hash.delete(@key)
+      end
+
+      def wave
+        @wave ||= SDL::Mixer::Wave.load(@filename.to_s).tap do |wave|
+          wave_volume_set(wave)
+          Stylet.logger.debug "disk_load: #{@key.inspect}" if Stylet.logger
+        end
+      end
+      alias preload! wave
+
+      def spec
+        "[channel:#{channel}/#{SE.allocated_channels}] [#{@wave ? :loaded : :new}] [volume:#{@volume}] [#{@channel_group}] [#{@key}] #{@filename.basename}"
+      end
+
+      private
+
+      def wave_volume_set(wave)
+        wave.set_volume(Audio.volume_cast(@volume * SE.volume_magnification))
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  require_relative "../stylet"
+  require "rspec/autorun"
+
+  RSpec.configure do |_config|
+  end
+
+  sub_test_case do
+    setup do
+      Stylet::Audio.setup_once
+      Stylet::SE.destroy_all
+    end
+
+    it do
+      Stylet::Music.volume = 0.2
+      Stylet::Music.play("#{__dir__}/assets/bgm.wav")
+
+      expect(Stylet::Music.play?).to eq true
+      sleep(1)
+      Stylet::Music.halt(fade_out_sec: 3)
+      nil while Stylet::Music.play?
+    end
+
+    it do
+      Stylet::SE.master_volume = 0.2
+      Stylet::SE.load("#{__dir__}/../../assets/audios/pc_puyo_puyo_fever/VOICE/CH00VO00.WAV", :key => :a, :channel_group => :x, :volume => 0.1)
+      Stylet::SE.load("#{__dir__}/../../assets/audios/pc_puyo_puyo_fever/VOICE/CH00VO01.WAV", :key => :b,                       :volume => 0.1)
+      Stylet::SE.load("#{__dir__}/../../assets/audios/pc_puyo_puyo_fever/VOICE/CH00VO02.WAV", :key => :c, :channel_group => :x, :volume => 0.1)
+
+      expect(Stylet::SE[:a].spec).to match(/new/)    # ロードしていない
+      Stylet::SE[:a].preload!                        # 明示的にロードする
+      expect(Stylet::SE[:a].spec).to match(/loaded/) # ロード済み
+
+      expect(Stylet::SE.se_hash.values.collect(&:channel)).to eq [0, 1, 0] # a と c が同じチャンネルを共有していることがわかる
+
+      Stylet::SE[:a].play       # a を再生するが
+      sleep(0.2)
+      Stylet::SE[:c].play       # c も同じチャンネルを使っているため a をキャンセルする
+      Stylet::SE[:b].play       # b は別のチャンネルなので同時に再生できる
+      Stylet::SE.wait_if_play?
+      Stylet::SE.destroy_all(:a) # a を消しても c が 0 を利用しているため 0 チャンネルは残っている
+      expect(Stylet::SE.se_hash.values.collect(&:channel)).to eq [1, 0]
+      Stylet::SE.destroy_all(:c)             # c を消すと 0 チャンネルが消えて
+      expect(Stylet::SE[:b].channel).to eq 0 # 再割り当てするため 1 チャンネルが消えて 0 チャンネルのみになる
+    end
+
+    it "効果音を複数同時にフェイドアウトできる" do
+      Stylet::SE.master_volume = 0.2
+      Stylet::SE.load("#{__dir__}/../../assets/audios/pc_puyo_puyo_fever/VOICE/CH03VO09.WAV", :key => :a, :preload => true, :volume => 0.1)
+      Stylet::SE.load("#{__dir__}/../../assets/audios/pc_puyo_puyo_fever/VOICE/CH04VO20.WAV", :key => :b, :preload => true, :volume => 0.1)
+      Stylet::SE[:a].play
+      Stylet::SE[:b].play
+      Stylet::SE.halt(:fade_out_sec => 1)
+      Stylet::SE.wait_if_play?
+    end
+
+    it do
+      Stylet::SE.preparation_channels = 10
+      Stylet::SE.load("#{__dir__}/../../assets/audios/pc_puyo_puyo_fever/VOICE/CH00VO00.WAV", :key => :a, :channel_auto => true, :volume => 0.1)
+      expect(Stylet::SE[:a].spec).to match("-1/10")
+    end
+  end
+end