ruby-miyako-mswin32 2.1.0 → 2.1.1

data/lib/Miyako/API/color.rb

@@ -0,0 +1,177 @@
+# -*- encoding: utf-8 -*-
+=begin
+--
+Miyako v2.1
+Copyright (C) 2007-2009  Cyross Makoto
+
+This library is free software; you can redistribute it and/or
+modify it under the terms of the GNU Lesser General Public
+License as published by the Free Software Foundation; either
+version 2.1 of the License, or (at your option) any later version.
+
+This library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+Lesser General Public License for more details.
+
+You should have received a copy of the GNU Lesser General Public
+License along with this library; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+++
+=end
+
+module Miyako
+  #==色を管理するクラス
+  #
+  #色情報は、[r(赤),g(緑),b(青),a(透明度)]、[r,g,b,a(透明度)]の2種類の配列
+  #
+  #それぞれの要素の値は0〜255の範囲
+  #
+  #4要素必要な色情報に3要素の配列を渡すと、自動的に4要素目(値は255)が挿入される
+  #
+  #(注)本クラスで採用する透明度と、画像が持つ透明度とは別物
+  class Color
+    @@symbol2color = {:black       => [  0,  0,  0, 255],
+                      :white       => [255,255,255, 255],
+                      :blue        => [  0,  0,255, 255],
+                      :green       => [  0,255,  0, 255],
+                      :red         => [255,  0,  0, 255],
+                      :cyan        => [  0,255,255, 255],
+                      :purple      => [255,  0,255, 255],
+                      :yellow      => [255,255,  0, 255],
+                      :light_gray  => [200,200,200, 255],
+                      :half_gray   => [128,128,128, 255],
+                      :half_blue   => [  0,  0,128, 255],
+                      :half_green  => [  0,128,  0, 255],
+                      :half_red    => [128,  0,  0, 255],
+                      :half_cyan   => [  0,128,128, 255],
+                      :half_purple => [128,  0,128, 255],
+                      :half_yellow => [128,128,  0, 255],
+                      :dark_gray   => [ 80, 80, 80, 255],
+                      :dark_blue   => [  0,  0, 80, 255],
+                      :dark_green  => [  0, 80,  0, 255],
+                      :dark_red    => [ 80,  0,  0, 255],
+                      :dark_cyan   => [  0, 80, 80, 255],
+                      :dark_purple => [ 80,  0, 80, 255],
+                      :dark_yellow => [ 80, 80,  0, 255]}
+    @@symbol2color.default = nil
+
+    #===シンボルから色情報を取得する
+    #_name_::色に対応したシンボル(以下の一覧参照)。存在しないシンボルを渡したときはエラーを返す
+    #返却値::シンボルに対応した4要素の配列
+    #
+    #シンボル::     色配列([赤,緑,青,透明度])
+    #:black::       [  0,  0,  0, 255]
+    #:white::       [255,255,255, 255]
+    #:blue::        [  0,  0,255, 255]
+    #:green::       [  0,255,  0, 255]
+    #:red::         [255,  0,  0, 255]
+    #:cyan::        [  0,255,255, 255]
+    #:purple::      [255,  0,255, 255]
+    #:yellow::      [255,255,  0, 255]
+    #:light_gray::  [200,200,200, 255]
+    #:half_gray::   [128,128,128, 255]
+    #:half_blue::   [  0,  0,128, 255]
+    #:half_green::  [  0,128,  0, 255]
+    #:half_red::    [128,  0,  0, 255]
+    #:half_cyan::   [  0,128,128, 255]
+    #:half_purple:: [128,  0,128, 255]
+    #:half_yellow:: [128,128,  0, 255]
+    #:dark_gray::   [ 80, 80, 80, 255]
+    #:dark_blue::   [  0,  0, 80, 255]
+    #:dark_green::  [  0, 80,  0, 255]
+    #:dark_red::    [ 80,  0,  0, 255]
+    #:dark_cyan::   [  0, 80, 80, 255]
+    #:dark_purple:: [ 80,  0, 80, 255]
+    #:dark_yellow:: [ 80, 80,  0, 255]
+    def Color.[](name, alpha = nil)
+      c = (@@symbol2color[name.to_sym].dup or raise MiyakoError, "Illegal Color Name! : #{name}")
+      c[3] = alpha if alpha
+      return c
+    end
+
+    #===Color.[]メソッドで使用できるシンボルと色情報との対を登録する
+    #_name_:: 色に対応させるシンボル
+    #_value_:: 色情報を示す3〜4要素の配列。3要素のときは4要素目を自動的に追加する
+    def Color.[]=(name, value)
+      @@symbol2color[name.to_sym] = value
+      @@symbol2color[name.to_sym] << 255 if value.length == 3
+    end
+
+    #===様々な形式のデータを色情報に変換する
+    #_v_::変換対象のインスタンス。変換可能な内容は以下の一覧参照
+    #_alpha_::透明度。デフォルトはnil
+    #
+    #インスタンス:: 書式
+    #配列:: 最低3要素の数値の配列
+    #文字列:: ”＃RRGGBB"で示す16進数の文字列、もしくは"red"、"black"など。使える文字列はColor.[]で使えるシンボルに対応
+    #数値:: 32bitの値を8bitずつ割り当て(aaaaaaaarrrrrrrrggggggggbbbbbbbb)
+    #シンボル:: Color.[]と同じ
+    def Color::to_rgb(v, alpha = nil)
+      c = (v.to_miyako_color or raise MiyakoError, "Illegal parameter")
+      c[3] = alpha if alpha
+      return c
+    end
+
+    #===色情報をColor.[]メソッドで使用できるシンボルと色情報との対を登録する
+    #_cc_:: 色情報(シンボル、文字列)
+    #_value_:: 色情報を示す3〜4要素の配列。3要素のときは4要素目を自動的に追加する
+    def Color::to_s(cc)
+      c = to_rgb(cc)
+      return "[#{c[0]},#{c[1]},#{c[2]},#{c[3]}]"
+    end
+  end
+end
+
+# for duck typing
+class Object
+  def to_miyako_color #:nodoc:
+    raise Miyako::MiyakoError, "Illegal color parameter class!"
+  end
+end
+
+class String
+  def to_miyako_color #:nodoc:
+    case self
+    when /\A\[\s*(\d+)\s*,\s*(\d+)\s*,\s*(\d+)\s*\,\s*(\d+)\s*\]\z/
+      #4要素の配列形式
+      return [$1.to_i, $2.to_i, $3.to_i, $4.to_i]
+    when /\A\s*(\d+)\s*,\s*(\d+)\s*,\s*(\d+)\s*,\s*(\d+)\s*\z/
+      #4個の数列形式
+      return [$1.to_i, $2.to_i, $3.to_i, $4.to_i]
+    when /\A\#([\da-fA-F]{8})\z/
+        #HTML形式(＃RRGGBBAA)
+        return [$1[0,2].hex, $1[2,2].hex, $1[4,2].hex, $1[6,2].hex]
+    when /\A\[\s*(\d+)\s*,\s*(\d+)\s*,\s*(\d+)\s*\]\z/
+      #3要素の配列形式
+      return [$1.to_i, $2.to_i, $3.to_i, 255]
+    when /\A\s*(\d+)\s*,\s*(\d+)\s*,\s*(\d+)\s*\z/
+      #3個の数列方式
+      [$1.to_i, $2.to_i, $3.to_i, 255]
+    when /\A\#([\da-fA-F]{6})\z/
+      #HTML形式(＃RRGGBB)
+      return [$1[0,2].hex, $1[2,2].hex, $1[4,2].hex, 255]
+    else return self.to_sym.to_miyako_color
+    end
+  end
+end
+
+class Symbol
+  def to_miyako_color #:nodoc:
+    return Miyako::Color[self]
+  end
+end
+
+class Integer
+  def to_miyako_color #:nodoc:
+    return [(self >> 16) & 0xff, (self >> 8) & 0xff, self & 0xff, (self >> 24) & 0xff]
+  end
+end
+
+class Array
+  def to_miyako_color #:nodoc:
+    raise Miyako::MiyakoError, "Color Array needs more than 3 elements : #{self.length} elements" if self.length < 3
+    return (self[0,3] << 255) if self.length == 3
+    return self[0,4]
+  end
+end

data/lib/Miyako/API/diagram.rb

@@ -23,7 +23,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 module Miyako
   #==遷移図モジュール群
   module Diagram
-  
+
     #==遷移図矢印構造体
     #ノードの移動先とトリガー(遷移条件)を収めている。
     #to::移動先ノードのインスタンス
@@ -68,7 +68,7 @@ module Miyako
       #_params_:: Processor::update_inputメソッドが呼ばれた時のパラメータ群。オーバーライドするときに省略可能
       def update_input(*params)
       end
-    
+
       #===ノードでの更新処理を実装する
       #Processor#update メソッドが呼ばれたときの処理を実装する
       #_params_:: Processor::updateメソッドが呼ばれた時のパラメータ群。オーバーライドするときに省略可能
@@ -80,7 +80,7 @@ module Miyako
       #Processor#reset_input メソッドが呼ばれたときの処理を実装する
       def reset_input
       end
-    
+
       #===ノードでのレンダリング処理を実装する
       #Screen.update メソッドを呼び出しているときは、本メソッドを実装する必要はない
       #Processor#render メソッドが呼ばれたときの処理を実装する
@@ -95,7 +95,7 @@ module Miyako
       def finish?
         return false
       end
-  
+
       #===現在実行しているノードの変数の値を取得するテンプレートメソッド
       #Diagram#[] メソッドが呼ばれたときの処理を実装する
       #
@@ -143,12 +143,12 @@ module Miyako
       #Processor#start メソッドが呼び出されたときの処理を実装する
       def pre_process
       end
-  
+
       #===後始末を実装する
       #Processor#stop メソッドが呼び出されたときの処理を実装する
       def post_process
       end
-  
+
       #===ノードの更新処理を行うかどうかの問い合わせメソッドを実装する
       #NodeBase#update を呼び出すかどうかを返す処理を実装する
       #デフォルトでは、無条件で true を返す
@@ -161,7 +161,7 @@ module Miyako
       #NodeBase#update を呼び出された後の処理を実装する
       def post_update
       end
-  
+
       #===ノードのレンダリング処理を行うかどうかの問い合わせメソッドを実装する
       #NodeBase#render を呼び出すかどうかを返す処理を実装する
       #デフォルトでは、無条件で true を返す
@@ -170,7 +170,7 @@ module Miyako
       def render?
         return true
       end
-  
+
       #===ノードのレンダリング処理が終わった後の後始末を行う
       #Screen.update メソッドを呼び出しているときは、本メソッドを実装する必要はない
       #NodeBase#render を呼び出された後の処理を実装する
@@ -234,7 +234,7 @@ module Miyako
       def update_input(*params) #:nodoc:
         @node.update_input(*params)
       end
-    
+
       def update(*params) #:nodoc:
         if @trigger.update?
           @node.update(*params)
@@ -270,7 +270,7 @@ module Miyako
       #_new_trigger_:: 置き換え対象のトリガーオブジェクト
       #_timing_:: 置き換えのタイミング。:immediateと:nextの２種類がある
       def replace_trigger(new_trigger, timing=:next)
-        raise MiyakoError, "I can't understand Timing Typ! : #{timing}" unless TRIGGER_TYPES.include?(timing)
+        raise MiyakoError, "I can't understand Timing Type! : #{timing}" unless TRIGGER_TYPES.include?(timing)
         case timing
         when :immediate
           @trigger.stop
@@ -281,7 +281,7 @@ module Miyako
           @next_trigger = new_trigger
         end
       end
-      
+
       def dispose #:nodoc:
         @node.dispose
       end
@@ -345,7 +345,7 @@ module Miyako
         @name2idx[from_name].add_arrow(to_name ? @name2idx[to_name] : nil, trigger)
         return self
       end
-  
+
       #===対象の名前を持つノードを取得する
       #ノード内の変数にアクセスするときに使う
       #_name_:: ノード名
@@ -354,7 +354,7 @@ module Miyako
         raise MiyakoError, "Don't set undefined node name!" unless @name2idx.has_key?(name)
         return @name2idx[name]
       end
- 
+
       #===実行開始ノードを変更する
       #但し、遷移図処理が行われていないときに変更可能
       #_name_:: ノード名
@@ -382,7 +382,7 @@ module Miyako
       def nodes
         return @name2idx.keys
       end
-      
+
       def start #:nodoc:
         @ptr = @first unless @ptr
         return unless @ptr
@@ -407,7 +407,7 @@ module Miyako
       def update_input(*params) #:nodoc:
         @ptr.update_input(*params) if @ptr
       end
-    
+
       def update(*params) #:nodoc:
         return unless @ptr
         @ptr.update(*params)
@@ -472,7 +472,6 @@ module Miyako
       #(Manager#add, Manager#add_arrow の各メソッドを参照)
       #返却値:: 生成されたインスタンス
       def initialize
-        @loop = self.method(:main_loop)
         @states = {:execute => false, :pause => false, :type1 => false }
         @diagram = Miyako::Diagram::Manager.new
         @visible = true
@@ -480,7 +479,6 @@ module Miyako
       end
 
       def initialize_copy(obj) #:nodocs:
-        @loop = @loop.dup
         @states = @states.dup
         @diagram = @diagram.dup
       end
@@ -520,7 +518,7 @@ module Miyako
         return if @states[:pause]
         @diagram.update_input(*params)
       end
-    
+
       #===処理の更新を行う
       #現在処理中のノードupdateメソッドを呼び出す。
       #_params_:: パラメータ群。省略可能
@@ -529,7 +527,7 @@ module Miyako
         @diagram.update(*params)
         @states[:execute] = false if @diagram.finish?
       end
-    
+
       #===レンダリング処理を行う
       #現在処理中のノードのrenderメソッドを呼び出す。
       #visibleメソッドの値がfalseのときは描画されない。
@@ -556,7 +554,7 @@ module Miyako
       def renderer
         return Miyako::Diagram::Renderer.new(self.method(:render))
       end
-  
+
       #===指定した名前のノードを取得する
       #_name_:: ノード名(文字列・シンボル)
       #返却値:: ノード名に対応したノードのインスタンス