ruby-miyako 2.1.14 → 2.1.16

data/README

@@ -1,8 +1,8 @@
 *******************************************************************************
 【   作者名   】　サイロス誠
 【  ソフト名  】　Interactive Media Authoring System "Miyako"
-【 バージョン 】　2.1.14
-【   作成日   】　2010/06/11
+【 バージョン 】　2.1.16
+【   作成日   】　2010/08/30
 【    種別    】　フリーウェア
 【  開発言語  】　Ruby 1.9.1
 【 ランタイム 】　Ruby 1.9.1～,Ruby/SDL 2.1～,SDL
@@ -15,7 +15,7 @@
 
 【 注意事項  】
 
-本バージョンは、2.1.14公式リリース版です。
+本バージョンは、2.1.16公式リリース版です。
 本バージョンでは、ドキュメント・リファレンスは不十分ですが、「サイログ。」内や、サンプルプログラムの紹介等で随時ドキュメントを公開して行きます。
 （RDOC化を進めていますので、我こそはと思う方は是非・・・）
 
@@ -91,7 +91,7 @@ PAD : BUFFALO BGC-FC802
 OS  : Microsoft WindowsXp SP3
       Microsoft WindowsVista Ultimate(x64) SP1
 DEV : Notepad++ v5.3.1-6
-      mingw32版Ruby 1.9.2dev + Ruby/SDL 2.1.1
+      mingw32版Ruby 1.9.2-p0 + Ruby/SDL 2.1.1
       MinGW+MSYS(miyako_no_katanaビルド)
 
 ＜サブ開発PC＞
@@ -101,7 +101,7 @@ MEM : 4GB(2GBx2)
 PAD : SANWA SUPPLY JY-P1W
 OS  : Microsoft Windows7 x64
 DEV : Notepad++ v5.3.1-6
-      mswin32版Ruby 1.9.2dev + Ruby/SDL 2.1.1
+      mswin32版Ruby 1.9.2-p0 + Ruby/SDL 2.1.1
 
 【 動作確認環境 】
 
@@ -1830,5 +1830,94 @@ v2.1.14(2010.06.11)
 <インスタンスメソッド廃止>
 <ドキュメント>
 
+v2.1.15(2010.07.18)
+<バグ修正>
+・map_testサンプルで、マップと画面とのずれを算出する際に、アニメーションではなくスプライトからずれを算出していた問題を修正
+　・実際にはずれていなかったため、海の上を歩けるなどの問題があった
+<機能改善>
+・Utility.product_liner(_f)の内部アルゴリズムを変更
+<仕様変更>
+<ファイル追加>
+<ファイル削除>
+<グローバル変数追加>
+<定数追加>
+<定数削除>
+<構造体追加>
+<クラス追加>
+<モジュール追加>
+<mixin>
+<クラス・モジュールメソッド追加>
+・ScenarioEngine.[]
+・ScenarioEngine.[]=
+・InitiativeScenarioEngine.[]
+・InitiativeScenarioEngine.[]=
+・Utility.theta2
+・Utility.radian
+・Utility.radian2
+・Utility.degree
+・Utility.degree2
+・Utility.product_liner_xy
+・Utility.product_liner_xy_f
+<クラス・モジュールメソッド廃止>
+<モジュール関数追加>
+<モジュール関数廃止>
+<インスタンスメソッド追加>
+・ScenarioEngine#[]
+・ScenarioEngine#[]=
+・ScenarioEngine#common_use
+・ScenarioEngine#call_plot_params
+・ScenarioEngine#call_plot_block
+・InitiativeScenarioEngine#[]
+・InitiativeScenarioEngine#[]=
+・InitiativeScenarioEngine#common_use
+・InitiativeScenarioEngine#call_plot_params
+・InitiativeScenarioEngine#call_plot_block
+<インスタンスメソッド廃止>
+<ドキュメント>
+・リファレンスマニュアルの反映
+<その他>
+・MiyakoPackはzipファイル→自己解凍型インストーラに変更
+
+v2.1.16(2010.08.30)
+<バグ修正>
+<機能改善>
+<仕様変更>
+・プログラムの起動時と画面のフォーカス直後のマウスクリックはクリックと見なさないように変更
+　(Miyako側では、フォーカスのためのクリックと判断できないために追加した処置)
+・InitiativeScenarioEngine#selecting_innerの呼び出しタイミングを変更(システム内の選択処理を終えた直後)
+・TextBox#attach_cursorの内部処理変更
+<ファイル追加>
+<ファイル削除>
+<グローバル変数追加>
+<定数追加>
+<定数削除>
+<構造体追加>
+<クラス追加>
+<モジュール追加>
+<mixin>
+<クラス・モジュールメソッド追加>
+・Input.mouse_x
+・Input.mouse_y
+・Input.mouse_dx
+・Input.mouse_dy
+・Input.key_focus?
+・Input.window_minimize?
+・Input.mouse_cursor_inner_change?
+・Input.key_focus_change?
+・Input.window_minimize_change?
+・Input.btn_state
+・Input.mouse_state
+<クラス・モジュールメソッド廃止>
+<モジュール関数追加>
+<モジュール関数廃止>
+<インスタンスメソッド追加>
+・TextBox#attach_cursor?
+・InitiativeScenarioEngine#select_mouse_enable?
+・InitiativeScenarioEngine#select_key_enable?
+<インスタンスメソッド廃止>
+<ドキュメント>
+・リファレンスマニュアルの反映
+<その他>
+
 *******************************************************************************
 このReadMeファイルは「れ～どめ～えじた～」によって作成されました。

data/lib/Miyako/API/i_yuki.rb

@@ -171,6 +171,19 @@ module Miyako
       end
     end
 
+    #外部との共用変数を収めるところ
+    @@common_use = {}
+
+    def InitiativeYuki.[](key)
+      @@common_use[key]
+    end
+
+    def InitiativeYuki.[]=(key, value)
+      @@common_use[key] = value
+      value
+    end
+
+    attr_reader :common_use
     attr_reader :visibles, :pre_visibles, :bgs, :base
     attr_reader :valign
     #release_checks:: ポーズ解除を問い合わせるブロックの配列。
@@ -187,6 +200,9 @@ module Miyako
     #(2)キャンセルボタンを押した？(true/false)
     #(3)キーパッドの移動量を示す配列([dx,dy])
     #(4)マウスの位置を示す配列([x,y])
+    #<<(2.1.15-追加、省略可能)>>
+    #(5)現在指しているコマンドは選択可能?(true/false)
+    #(6)現在指しているコマンドの結果
     #callメソッドを持つブロックが使用可能。
     attr_reader :selecting_procs
 
@@ -255,6 +271,9 @@ module Miyako
 
       @mouse_enable = true
 
+      @select_mouse_enable = true
+      @select_key_enable = false
+
       @result = nil
       @plot_result = nil
 
@@ -300,6 +319,8 @@ module Miyako
 
       @engine_stack = []
 
+      @common_use = {}
+
       raise MiyakoProcError, "Argument count is not same block parameter count!" if proc && proc.arity.abs != params.length
       instance_exec(*params, &proc) if block_given?
     end
@@ -436,6 +457,15 @@ module Miyako
       return false
     end
 
+    def [](key)
+      @common_use[key] || @@common_use[key]
+    end
+
+    def []=(key, value)
+      @common_use[key] = value
+      value
+    end
+
     #===変数を参照する
     #[[Yukiスクリプトとして利用可能]]
     #変数の管理オブジェクトを、ハッシュとして参照する。
@@ -1024,6 +1054,32 @@ module Miyako
                          self.instance_exec(&plot_block)
     end
 
+    #===プロット処理中に別のプロットを呼び出す
+    #呼び出し可能なプロットは以下の2種類。(上から優先度が高い順）
+    #
+    #1)引数prot_proc(Procクラスのインスタンス)
+    #
+    #2)引数として渡したブロック
+    #
+    #_plot_proc_:: プロットの実行部をインスタンス化したオブジェクト
+    #返却値:: プロットの実行結果を返す
+    def call_plot_params(plot_proc, *params)
+      return self.instance_exec(*params, &plot_proc)
+    end
+
+    #===プロット処理中に別のプロットを呼び出す
+    #呼び出し可能なプロットは以下の2種類。(上から優先度が高い順）
+    #
+    #1)引数prot_proc(Procクラスのインスタンス)
+    #
+    #2)引数として渡したブロック
+    #
+    #_plot_proc_:: プロットの実行部をインスタンス化したオブジェクト
+    #返却値:: プロットの実行結果を返す
+    def call_plot_block(*params, &plot_block)
+      return self.instance_exec(*params, &plot_block)
+    end
+
     #===ポーズ解除問い合わせメソッド配列を初期状態に戻す
     #返却値:: 自分自身を返す
     def reset_release_checks
@@ -1413,6 +1469,14 @@ module Miyako
       return pause.clear
     end
 
+    def select_mouse_enable?
+      @select_mouse_enable
+    end
+
+    def select_key_enable?
+      @select_key_enable
+    end
+
     #===コマンドを表示する
     #[[Yukiスクリプトとして利用可能]]
     #表示対象のコマンド群をCommand構造体の配列で示す。
@@ -1454,17 +1518,38 @@ module Miyako
       end
 
       @result = nil
+      @select_mouse_enable = true
+      @select_key_enable = false
       selecting = true
       reset_selecting
       while selecting
         pre_process
-        @base.selecting_inner(self) if @base
-        @select_ok = true if @ok_checks.inject(false){|r, c| r |= c.call }
-        @select_cancel = true if @cancel && @cancel_checks.inject(false){|r, c| r |= c.call }
         @select_amount = @key_amount_proc.call
         @mouse_amount = @mouse_amount_proc.call
+        if @select_amount != [0,0]
+          @select_mouse_enable = false
+          @select_key_enable = true
+        elsif Input.mouse_dx != 0 and Input.mouse_dy != 0
+          @select_mouse_enable = true
+          @select_key_enable = false
+        else
+          @select_mouse_enable = false
+          @select_key_enable = false
+        end
+        @select_ok = true if @ok_checks.inject(false){|r, c| r |= c.call }
+        @select_cancel = true if @cancel && @cancel_checks.inject(false){|r, c| r |= c.call }
         @selecting_procs.each{|sp|
-          sp.call(@select_ok, @select_cansel, @select_amount, @mouse_amount)
+          case sp.arity
+          when 6
+            sp.call(@select_ok, @select_cansel,
+              @select_amount, @mouse_amount,
+              @command_box.enable_choice?, @command_box.result
+            )
+          else
+            sp.call(@select_ok, @select_cansel,
+              @select_amount, @mouse_amount
+            )
+          end
         }
         if @select_ok
           unless @command_box.enable_choice?
@@ -1485,13 +1570,16 @@ module Miyako
           @text_box.release
           selecting = false
           reset_selecting
-        elsif @select_amount != [0,0]
+        elsif @select_amount != [0,0] and @select_key_enable
           @command_box.move_cursor(*@select_amount)
           reset_selecting
-        elsif @mouse_amount
+        elsif @mouse_amount and @select_mouse_enable
           @command_box.attach_cursor(*@mouse_amount.to_a) if @mouse_enable
           reset_selecting
+        elsif Input.mouse_cursor_inner?
+          @command_box.attach_cursor(Input.mouse_x, Input.mouse_y) if @mouse_enable
         end
+        @base.selecting_inner(self) if @base
         post_process
       end
       @post_cancel.each{|proc| proc.call}

data/lib/Miyako/API/input.rb

@@ -1,4 +1,4 @@
-# -*- encoding: utf-8 -*-
+# -*- encoding: utf-8 -*-
 =begin
 --
 Miyako v2.1
@@ -108,7 +108,10 @@ module Miyako
                :click => {:left => false, :middle => false, :right => false, :interval => 200},
                :drag  => {:left => false, :middle => false, :right => false, :x => 0, :y => 0},
                :drop  => {:left => false, :middle => false, :right => false, :succeed => true},
-               :inner => true}
+               :inner => false, :focus => false, :mini => false}
+    @@mouse_inner = false
+    @@key_focus = false
+    @@app_minimize = false
 
     @@initialized = false
 
@@ -225,7 +228,7 @@ module Miyako
     def Input::process_mousebuttondown(e) #:nodoc:
       return unless @@enable_mouse
       set_mouse_button(:trigger, e.button)
-      return unless @@mouse[:inner]
+      return unless @@mouse_inner
       click_mouse_button(:click, e.button)
       set_mouse_button(:drag, e.button)
       @@mouse[:drag][:x] = @@mouse[:pos][:x]
@@ -249,8 +252,20 @@ module Miyako
     end
 
     def Input::process_active(e) #:nodoc:
-      return unless @@enable_mouse
-      @@mouse[:inner] = e.gain if e.state == 1
+      if e.state & 1 == 1
+        return unless @@enable_mouse
+        @@mouse[:inner] = true
+        @@mouse_inner = e.gain
+      end
+      if e.state & 2 == 2
+        @@mouse[:focus] = true
+        @@key_focus = e.gain
+        [:left, :middle, :right].each{|key| @@mouse[:click][key] = false }
+      end
+      if e.state & 4 == 4
+        @@mouse[:mini] = true
+        @@app_minimize = !e.gain
+      end
     end
 
     def Input::process_default(e) #:nodoc:
@@ -297,6 +312,9 @@ module Miyako
         @@mouse[:click][e] = false
         @@mouse[:drop][e] = false
       }
+      @@mouse[:inner] = false
+      @@mouse[:focus] = false
+      @@mouse[:mini] = false
       e_list = []
       while e = SDL::Event2.poll
         e_list << e
@@ -311,6 +329,15 @@ module Miyako
       }
     end
 
+    def Input::after_exec
+      x = @@mouse[:pos][:x]
+      y = @@mouse[:pos][:y]
+      if (@@mouse[:click][:left] or @@mouse[:click][:middle] or @@mouse[:click][:right]) and !@@key_focus and x>=0 and x<Screen.w and y>=0 and y<Screen.h
+        @@key_focus = true
+        [:left, :middle, :right].each{|key| @@mouse[:click][key] = false }
+      end
+    end
+
     #===指定のボタンがすべて押下状態かを問い合わせるメソッド
     #_inputs_:: ボタンを示すシンボル。複数指定可能
     #((例)Input.trigger_all?(:btn1, :btn2) #ボタン１とボタン２が押されている)
@@ -414,6 +441,22 @@ module Miyako
       return Point.new(@@mouse[:pos][:x],@@mouse[:pos][:y])
     end
 
+    def Input::mouse_x
+      return @@enable_mouse ? @@mouse[:pos][:x] : -1
+    end
+
+    def Input::mouse_y
+      return @@enable_mouse ? @@mouse[:pos][:y] : -1
+    end
+
+    def Input::mouse_dx
+      return @@enable_mouse ? @@mouse[:pos][:dx] : 0
+    end
+
+    def Input::mouse_dy
+      return @@enable_mouse ? @@mouse[:pos][:dy] : 0
+    end
+
     #===マウスの移動量を取得する
     #求める値は、{:x=>n,:y=>n}で示すハッシュとする
     #移動量は、右下方向を正とする
@@ -498,10 +541,41 @@ module Miyako
     #===マウスカーソルが画面の内側に有るかどうかを問い合わせる
     #返却値:: マウスカーソルが画面内ならtrueを返す
     def Input::mouse_cursor_inner?
+      return false unless @@enable_mouse
+      return @@mouse_inner
+    end
+
+    #===マウスカーソルが画面の内側に有るかどうかを問い合わせる
+    #返却値:: マウスカーソルが画面内ならtrueを返す
+    def Input::key_focus?
+      return @@key_focus
+    end
+
+    #===マウスカーソルが画面の内側に有るかどうかを問い合わせる
+    #返却値:: マウスカーソルが画面内ならtrueを返す
+    def Input::window_minimize?
+      return @@app_minimize
+    end
+
+    #===マウスカーソルが画面の内側に有るかどうかを問い合わせる
+    #返却値:: マウスカーソルが画面内ならtrueを返す
+    def Input::mouse_cursor_inner_change?
       return false unless @@enable_mouse
       return @@mouse[:inner]
     end
 
+    #===マウスカーソルが画面の内側に有るかどうかを問い合わせる
+    #返却値:: マウスカーソルが画面内ならtrueを返す
+    def Input::key_focus_change?
+      return @@mouse[:focus]
+    end
+
+    #===マウスカーソルが画面の内側に有るかどうかを問い合わせる
+    #返却値:: マウスカーソルが画面内ならtrueを返す
+    def Input::window_minimize_change?
+      return @@mouse[:mini]
+    end
+
     #===Alt+Enterキーを押したときにフル・ウィンドウモード切り替えの可否を切り替える
     def Input::enable_toggle_screen_mode
       @@toggle_screen_mode = true
@@ -517,5 +591,13 @@ module Miyako
     def Input::toggle_screen_mode?
       return @@toggle_screen_mode
     end
+
+    def Input::btn_state
+      @@btn
+    end
+
+    def Input::mouse_state
+      @@mouse
+    end
   end
 end

data/lib/Miyako/API/textbox.rb

@@ -1,4 +1,4 @@
-# -*- encoding: utf-8 -*-
+# -*- encoding: utf-8 -*-
 =begin
 --
 Miyako v2.1
@@ -592,11 +592,16 @@ module Miyako
         end
       else
         @choices.non_select if @pre_attach
+        @select_cursor.snap(@choices.body) if @select_cursor
       end
       @pre_attach = attach
       return self
     end
 
+    def attach_cursor?
+      @choices.attach?(Input.mouse_x, Input.mouse_y)
+    end
+
     #===マウスカーソルの位置にコマンドがあるかどうかを問い合わせる
     #マウスカーソルがどれかのコマンドの上にあるときはtrue、どれにも当たっていないときはfalseを返す
     #_x_:: マウスカーソルの位置(x軸方向)

data/lib/Miyako/API/utility.rb

@@ -1,4 +1,4 @@
-# -*- encoding: utf-8 -*-
+# -*- encoding: utf-8 -*-
 =begin
 --
 Miyako v2.1
@@ -45,17 +45,11 @@ module Miyako
       return steps
     end
 
-    def Utility.product_liner_inner_f(x1, y1, x2, y2, amount) #:nodoc:
-      array = nil
-      step_x = get_step_array_f(x1, x2, amount)
-      step_y = get_step_array_f(y1, y2, amount)
-      dx = x2 - x1
-      dy = y2 - y1
-      a = dx < Float::EPSILON ? dy.to_f : dy.to_f / dx.to_f
-      b = y1.to_f - a * x1.to_f
-      array = [[x1,y1] , [x2,y2]] + step_x.map{|x| [x, (a * x.to_f + b).to_i]}
-      array += step_y.map{|y| [((y.to_f - b) / a).to_i, y]} if (a.abs >= Float::EPSILON)
-      return array.uniq
+    def Utility.product_liner_xy_f(x1, y1, x2, y2, amount)
+      distance = Utility.interval2(x1,y1,x2,y2)
+      degree = Utility.radian2(x1,y1,x2,y2,distance)
+      cos, sin = Math.cos(degree), Math.sin(degree)
+      (0..distance).step(amount).with_object([]){|n, arr| arr << [x1 + n * cos, y1 + n * sin]} << [x2,y2]
     end
 
     #===矩形内の対角線の座標リストを実数で取得する
@@ -77,7 +71,7 @@ module Miyako
       y1 = rect[1]
       x2 = x1 + rect[2] - 1
       y2 = y1 + rect[3] - 1
-      return product_liner_inner_f(x1, y1, x2, y2, amount)
+      return product_liner_xy_f(x1, y1, x2, y2, amount)
     end
 
     #===矩形内の対角線の座標リストを実数で取得する
@@ -95,29 +89,16 @@ module Miyako
     def Utility.product_liner_by_square_f(square, amount = 1.0)
       raise MiyakoValueError, "Illegal amount! #{amount}" if amount < Float::EPSILON
       return [] if (square[2] - square[0]) < Float::EPSILON || (square[3] - square[1]) < Float::EPSILON
-      return product_liner_inner_f(*square, amount)
+      return product_liner_xy_f(*square, amount)
     end
 
-    def Utility.product_liner_inner(x1, y1, x2, y2, amount) #:nodoc:
-      array = nil
-      step_x = []
-      step_y = []
-      dx = x2 - x1
-      dy = y2 - y1
-      a  = 0.0
-      if [x1, y1, x2, y2, amount].all?{|v| v.methods.include?(:step)}
-        step_x = x1 < x2 ? x1.step(x2, amount).to_a : x1.step(x2, -amount).to_a
-        step_y = y1 < y2 ? y1.step(y2, amount).to_a : y1.step(y2, -amount).to_a
-        a = dx == 0 ? dy.to_f : dy.to_f / dx.to_f
-      else
-        step_x = get_step_array_f(x1, x2, amount)
-        step_y = get_step_array_f(y1, y2, amount)
-        a = dx < Float::EPSILON ? dy.to_f : dy.to_f / dx.to_f
-      end
-      b = y1.to_f - a * x1.to_f
-      array = [[x1,y1] , [x2,y2]] + step_x.map{|x| [x, (a * x.to_f + b).to_i]}
-      array += step_y.map{|y| [((y.to_f - b) / a).to_i, y]} if (a.abs >= Float::EPSILON)
-      return array.uniq
+    # ToDo: 線形補完を使う
+    # -> 使った(2010.06.20)
+    def Utility.product_liner_xy(x1, y1, x2, y2, amount) #:nodoc:
+      distance = Utility.interval2(x1,y1,x2,y2)
+      degree = Utility.radian2(x1,y1,x2,y2,distance)
+      cos, sin = Math.cos(degree), Math.sin(degree)
+      (0..distance).step(amount).with_object([]){|n, arr| arr << [x1+(n*cos).to_i, y1+(n*sin).to_i]} << [x2,y2]
     end
 
     #===矩形内の対角線の座標リストを取得する
@@ -138,7 +119,7 @@ module Miyako
       y1 = rect[1]
       x2 = x1 + rect[2] - 1
       y2 = y1 + rect[3] - 1
-      return product_liner_inner(x1, y1, x2, y2, amount)
+      return product_liner_xy(x1, y1, x2, y2, amount)
     end
 
     #===矩形内の対角線の座標リストを取得する
@@ -155,7 +136,7 @@ module Miyako
     def Utility.product_liner_by_square(square, amount = 1)
       raise MiyakoValueError, "Illegal amount! #{amount}" if amount <= 0
       return [] if (square[2] - square[0]) == 0 || (square[3] - square[1]) == 0
-      return product_liner_inner(*square, amount)
+      return product_liner_xy(*square, amount)
     end
 
     def Utility.product_inner(x1, y1, x2, y2, size) #:nodoc:
@@ -244,22 +225,111 @@ module Miyako
       return d < Float::EPSILON ? 0.0 : d
     end
 
+    #===２点間の距離を算出する
+    # ２点(点１、点２)がどの程度離れているかを算出する。
+    # 返ってくる値は、正の実数で返ってくる
+    #_x1_:: 点１の位置(x)
+    #_y1_:: 点１の位置(y)
+    #_x2_:: 点２の位置(x)
+    #_y2_:: 点２の位置(y)
+    #返却値:: 2点間の距離
+    def Utility.interval2(x1, y1, x2, y2)
+      #2点間の距離を求める
+      d = Math.sqrt(((x1.to_f - x2.to_f) ** 2) +
+                    ((y1.to_f - y2.to_f) ** 2))
+      return d < Float::EPSILON ? 0.0 : d
+    end
+
+    #===２点間の傾きを角度で算出する
+    # ２点(点１、点２)がどの程度傾いているか算出する。傾きの中心は点１とする。
+    # 角度の単位は度(0.0<=θ<360.0)
+    # 返ってくる値は、正の実数で返ってくる
+    #_point1_:: 点１の位置(Point/Rect/Square構造体、2要素以上の配列、もしくはx,yメソッドを持つインスタンス)
+    #_point2_:: 点２の位置(Point/Rect/Square構造体、2要素以上の配列、もしくはx,yメソッドを持つインスタンス)
+    #返却値:: 2点間の傾き
+    def Utility.theta(point1, point2, distance = nil)
+      theta = (Utility.radian(point1,point2,distance) / (2 * Math::PI)) * 360.0
+      return theta < Float::EPSILON ? 0.0 : theta
+    end
+
     #===２点間の傾きを角度で算出する
     # ２点(点１、点２)がどの程度傾いているか算出する。傾きの中心は点１とする。
     # 角度の単位は度(0.0<=θ<360.0)
     # 返ってくる値は、正の実数で返ってくる
+    #_x1_:: 点１の位置(x)
+    #_y1_:: 点１の位置(y)
+    #_x2_:: 点２の位置(x)
+    #_y2_:: 点２の位置(y)
+    #返却値:: 2点間の傾き
+    def Utility.theta2(x1, y1, x2, y2, distance = nil)
+      theta = (Utility.radian2(x1,y1,x2,y2,distance) / (2 * Math::PI)) * 360.0
+      return theta < Float::EPSILON ? 0.0 : theta
+    end
+
+    #===２点間の傾きをラジアンで算出する
+    # ２点(点１、点２)がどの程度傾いているか算出する。傾きの中心は点１とする。
+    # 角度の単位は度(0.0<=θ<360.0)
+    # 返ってくる値は、正の実数で返ってくる
     #_point1_:: 点１の位置(Point/Rect/Square構造体、2要素以上の配列、もしくはx,yメソッドを持つインスタンス)
     #_point2_:: 点２の位置(Point/Rect/Square構造体、2要素以上の配列、もしくはx,yメソッドを持つインスタンス)
     #返却値:: 2点間の傾き
-    def Utility.theta(point1, point2)
+    def Utility.radian(point1, point2, distance = nil)
       #2点間の距離を求める
-      d = Math.sqrt(((point1[0].to_f - point2[0].to_f) ** 2) +
-                    ((point1[1].to_f - point2[1].to_f) ** 2))
-      x = point2[0].to_f - point[1].to_f
+      d = distance || Math.sqrt(((point1[0].to_f - point2[0].to_f) ** 2) +
+                                ((point1[1].to_f - point2[1].to_f) ** 2))
+      x = point2[0].to_f - point1[0].to_f
       # 傾き・幅が０のときは傾きは０度
       return 0.0 if (x.abs < Float::EPSILON or d < Float::EPSILON)
-      theta = (Math.acos(x / d) / (2 * Math::PI)) * 360.0
-      return theta < Float::EPSILON ? 0.0 : theta
+      theta = Math.acos(x / d)
+      return theta < Float::EPSILON ? 0.0 : (point2[1]-point1[1]<0 ? 2*Math::PI-theta : theta)
+    end
+
+    #===２点間の傾きをラジアンで算出する
+    # ２点(点１、点２)がどの程度傾いているか算出する。傾きの中心は点１とする。
+    # 角度の単位は度(0.0<=θ<360.0)
+    # 返ってくる値は、正の実数で返ってくる
+    #_x1_:: 点１の位置(x)
+    #_y1_:: 点１の位置(y)
+    #_x2_:: 点２の位置(x)
+    #_y2_:: 点２の位置(y)
+    #返却値:: 2点間の傾き
+    def Utility.radian2(x1, y1, x2, y2, distance = nil)
+      #2点間の距離を求める
+      d = distance || Math.sqrt(((x1.to_f - x2.to_f) ** 2) +
+                                ((y1.to_f - y2.to_f) ** 2))
+      x = x2.to_f - x1.to_f
+      # 傾き・幅が０のときは傾きは０度
+      return 0.0 if (x.abs < Float::EPSILON or d < Float::EPSILON)
+      theta = Math.acos(x / d)
+      return theta < Float::EPSILON ? 0.0 : (y2-y1<0 ? 2*Math::PI-theta : theta)
+    end
+
+    #===２点間の傾きを角度で算出する
+    # ２点(点１、点２)がどの程度傾いているか算出する。傾きの中心は点１とする。
+    # 角度の単位は度(0.0<=θ<360.0)
+    # 返ってくる値は、正の実数で返ってくる
+    #_point1_:: 点１の位置(Point/Rect/Square構造体、2要素以上の配列、もしくはx,yメソッドを持つインスタンス)
+    #_point2_:: 点２の位置(Point/Rect/Square構造体、2要素以上の配列、もしくはx,yメソッドを持つインスタンス)
+    #返却値:: 2点間の傾き
+    def Utility.degree(point1, point2)
+      return 0.0 if (point2[0].to_f-point1[0].to_f < Float::EPSILON)
+      degree = (point2[1]-point1[1]).to_f/(point2[0]-point1[0]).to_f
+      return degree < Float::EPSILON ? 0.0 : degree
+    end
+
+    #===２点間の傾きを角度で算出する
+    # ２点(点１、点２)がどの程度傾いているか算出する。傾きの中心は点１とする。
+    # 角度の単位は度(0.0<=θ<360.0)
+    # 返ってくる値は、正の実数で返ってくる
+    #_x1_:: 点１の位置(x)
+    #_y1_:: 点１の位置(y)
+    #_x2_:: 点２の位置(x)
+    #_y2_:: 点２の位置(y)
+    #返却値:: 2点間の傾き
+    def Utility.degree2(x1, y1, x2, y2)
+      return 0.0 if (x2.to_f-x1[0].to_f < Float::EPSILON)
+      degree = (y2-y1).to_f/(x2-x1).to_f
+      return degree < Float::EPSILON ? 0.0 : degree
     end
 
     #===小線分を移動させたとき、大線分が範囲内かどうかを判別する

data/lib/Miyako/API/yuki.rb

@@ -1,4 +1,4 @@
-# -*- encoding: utf-8 -*-
+# -*- encoding: utf-8 -*-
 =begin
 --
 Miyako v2.1
@@ -136,6 +136,18 @@ module Miyako
       end
     end
 
+    #外部との共用変数を収めるところ
+    @@common_use = {}
+
+    def Yuki.[](key)
+      @@common_use[key]
+    end
+
+    def Yuki.[]=(key, value)
+      @@common_use[key] = value
+      value
+    end
+    
     #===Yuki#update実行中に行わせる処理を実装するテンプレートメソッド
     #但し、メソッド本体は、update_inner=メソッドで設定する必要がある
     #_yuki_:: 実行中のYukiクラスインスタンス
@@ -164,6 +176,7 @@ module Miyako
     def update_clear(yuki)
     end
 
+    attr_reader :common_use
     attr_accessor :visible
     attr_accessor :update_inner, :update_text, :update_cr, :update_clear
     attr_reader :valign, :visibles, :pre_visibles, :bgs
@@ -181,6 +194,9 @@ module Miyako
     #(2)キャンセルボタンを押した？(true/false)
     #(3)キーパッドの移動量を示す配列([dx,dy])
     #(4)マウスの位置を示す配列([x,y])
+    #<<(2.1.15-追加、省略可能)>>
+    #(5)現在指しているコマンドは選択可能?(true/false)
+    #(6)現在指しているコマンドの結果
     #callメソッドを持つブロックが使用可能。
     attr_reader :selecting_procs
 
@@ -304,6 +320,8 @@ module Miyako
       @now_page = nil
       @first_page = nil
 
+      @common_use = {}
+
       raise MiyakoProcError, "Argument count is not same block parameter count!" if proc && proc.arity.abs != params.length
       instance_exec(*params, &proc) if block_given?
     end
@@ -429,6 +447,15 @@ module Miyako
       @over_yuki.update_animation if @over_yuki && @over_yuki.executing?
     end
 
+    def [](key)
+      @common_use[key] || @@common_use[key]
+    end
+
+    def []=(key, value)
+      @common_use[key] = value
+      value
+    end
+    
     #===変数を参照する
     #[[Yukiスクリプトとして利用可能]]
     #変数の管理オブジェクトを、ハッシュとして参照する。
@@ -1019,6 +1046,32 @@ module Miyako
                          self.instance_exec(&plot_block)
     end
 
+    #===プロット処理中に別のプロットを呼び出す
+    #呼び出し可能なプロットは以下の2種類。(上から優先度が高い順）
+    #
+    #1)引数prot_proc(Procクラスのインスタンス)
+    #
+    #2)引数として渡したブロック
+    #
+    #_plot_proc_:: プロットの実行部をインスタンス化したオブジェクト
+    #返却値:: プロットの実行結果を返す
+    def call_plot_params(plot_proc, *params)
+      return self.instance_exec(*params, &plot_proc)
+    end
+
+    #===プロット処理中に別のプロットを呼び出す
+    #呼び出し可能なプロットは以下の2種類。(上から優先度が高い順）
+    #
+    #1)引数prot_proc(Procクラスのインスタンス)
+    #
+    #2)引数として渡したブロック
+    #
+    #_plot_proc_:: プロットの実行部をインスタンス化したオブジェクト
+    #返却値:: プロットの実行結果を返す
+    def call_plot_block(*params, &plot_block)
+      return self.instance_exec(*params, &plot_block)
+    end
+
     #===プロット処理が実行中かどうかを確認する
     #返却値:: プロット処理実行中の時はtrueを返す
     def executing?
@@ -1490,7 +1543,19 @@ module Miyako
       return unless @selecting
       return unless @command_box.selecting?
       @selecting_procs.each{|sp|
-        sp.call(@select_ok, @select_cansel, @select_amount, @mouse_amount)
+        case sp.arity
+        when 6
+          sp.call(
+            @select_ok, @select_cansel,
+            @select_amount, @mouse_amount,
+            @command_box.enable_choice?, @command_box.result
+          )
+        else
+          sp.call(
+            @select_ok, @select_cansel,
+            @select_amount, @mouse_amount
+          )
+        end
       }
       if @select_ok
         return @on_disable.each{|proc| proc.call} unless @command_box.enable_choice?

data/lib/Miyako/miyako.rb

@@ -3,7 +3,7 @@
 #=コンテンツ作成ライブラリMiyako2.1
 #
 #Authors:: サイロス誠
-#Version:: 2.1.13
+#Version:: 2.1.16
 #Copyright:: 2007-2010 Cyross Makoto
 #License:: LGPL2.1
 #
@@ -63,7 +63,7 @@ Thread.abort_on_exception = true
 
 #==Miyako基幹モジュール
 module Miyako
-  VERSION = "2.1.14"
+  VERSION = "2.1.16"
 
   #===アプリケーション実行中に演奏する音楽のサンプリングレートを指定する
   #単位はHz(周波数)

data/miyako_input_audio.c

@@ -53,6 +53,7 @@ static volatile ID id_poll = Qnil;
 static volatile ID id_call = Qnil;
 static volatile ID id_reset_ticks = Qnil;
 static volatile ID id_setup_ticks = Qnil;
+static volatile ID id_after = Qnil;
 static volatile int zero = 0;
 static volatile int one = 1;
 static volatile VALUE sy_pushed = Qnil;
@@ -61,6 +62,9 @@ static volatile VALUE sy_dx = Qnil;
 static volatile VALUE sy_dy = Qnil;
 static volatile VALUE sy_click = Qnil;
 static volatile VALUE sy_drop = Qnil;
+static volatile VALUE sy_inner = Qnil;
+static volatile VALUE sy_focus = Qnil;
+static volatile VALUE sy_mini = Qnil;
 static volatile VALUE sy_left = Qnil;
 static volatile VALUE sy_right = Qnil;
 static volatile VALUE sy_middle = Qnil;
@@ -111,6 +115,9 @@ static VALUE input_update(VALUE self)
   rb_hash_aset(drop, sy_left, Qfalse);
   rb_hash_aset(drop, sy_middle, Qfalse);
   rb_hash_aset(drop, sy_right, Qfalse);
+  rb_hash_aset(mouse, sy_inner, Qfalse);
+  rb_hash_aset(mouse, sy_focus, Qfalse);
+  rb_hash_aset(mouse, sy_mini, Qfalse);
 
 #if 0
   e_list = rb_ary_new();
@@ -154,6 +161,7 @@ static VALUE input_update(VALUE self)
     e = rb_funcall(cEvent, id_poll, 0);
   }
 #endif
+  rb_funcall(self, id_after, 0);
 
   return Qnil;
 }
@@ -288,6 +296,7 @@ void Init_miyako_input_audio()
   id_countup = rb_intern("loop_count_up");
   id_reset_ticks = rb_intern("reset_ticks");
   id_setup_ticks = rb_intern("setup_ticks");
+  id_after = rb_intern("after_exec");
 
   sy_pushed  = ID2SYM(rb_intern("pushed"));
   sy_pos     = ID2SYM(rb_intern("pos"));
@@ -295,6 +304,9 @@ void Init_miyako_input_audio()
   sy_dy      = ID2SYM(rb_intern("dy"));
   sy_click   = ID2SYM(rb_intern("click"));
   sy_drop    = ID2SYM(rb_intern("drop"));
+  sy_inner   = ID2SYM(rb_intern("inner"));
+  sy_focus   = ID2SYM(rb_intern("focus"));
+  sy_mini    = ID2SYM(rb_intern("mini"));
   sy_left    = ID2SYM(rb_intern("left"));
   sy_right   = ID2SYM(rb_intern("right"));
   sy_middle  = ID2SYM(rb_intern("middle"));

data/sample/map_test/chara.rb

@@ -1,4 +1,4 @@
-# -*- encoding: utf-8 -*-
+# -*- encoding: utf-8 -*-
 #キャラクタ管理クラス
 class PChara # Player Character
   extend Forwardable
@@ -27,7 +27,7 @@ class PChara # Player Character
 
   # マップの表示座標と実座標とのマージンを設定
   def margin
-    return Size.new(-@spr.x, -@spr.y)
+    return Size.new(-@anim.x, -@anim.y)
   end
 
   def turn(d)

data/sample/map_test/main_scene.rb

@@ -1,4 +1,4 @@
-# -*- encoding: utf-8 -*-
+# -*- encoding: utf-8 -*-
 class MainScene
   include Story::Scene
 

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification 
 name: ruby-miyako
 version: !ruby/object:Gem::Version 
-  hash: 23
+  hash: 43
   prerelease: false
   segments: 
   - 2
   - 1
-  - 14
-  version: 2.1.14
+  - 16
+  version: 2.1.16
 platform: ruby
 authors: 
 - Cyross Makoto
@@ -15,7 +15,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-06-11 00:00:00 +09:00
+date: 2010-08-29 00:00:00 +09:00
 default_executable: 
 dependencies: []