cyross-ruby-miyako-mswin32 2.0.5

data/lib/Miyako/API/spriteunit.rb

@@ -0,0 +1,147 @@
+# -*- encoding: utf-8 -*-
+=begin
+--
+Miyako v2.0
+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
+  #==SpriteUnitを生成するための構造体クラス
+  #Structクラスからの継承
+  #--
+  #SpriteUnit = Struct.new(:bitmap, :ox, :oy, :ow, :oh, :x, :y, :cx, :cy)
+  #++
+  class SpriteUnitBase < Struct
+    #===位置を変更する(変化量を指定)
+    #位置を右方向へdxピクセル、下方向へdyピクセル移動する
+    #ブロックを渡すと、ブロック評価中の位置を変更する
+    #_dx_:: 移動量(x方向)。単位はピクセル
+    #_dy_:: 移動量(y方向)。単位はピクセル
+    #返却値:: 自分自身を返す
+    def move(dx, dy)
+      o = [self.x, self.y]
+      self.x+=dx
+      self.y+=dy
+      if block_given?
+        yield
+        self.x, self.y = o
+      end
+      return self
+    end
+
+    #===位置を変更する(位置指定)
+    #左上を(0.0)として、位置を右xピクセル、下yピクセルの位置移動する
+    #ブロックを渡すと、ブロック評価中の位置を変更する
+    #_x_:: 移動先位置(x方向)。単位はピクセル
+    #_y_:: 移動先位置(y方向)。単位はピクセル
+    #返却値:: 自分自身を返す
+    def move_to(x, y)
+      o = [self.x, self.y]
+      self.x=x
+      self.y=y
+      if block_given?
+        yield
+        self.x, self.y = o
+      end
+      return self
+    end
+    #また、ブロックを渡せば、複製したインスタンスに補正を欠けることが出来る(画像変換も可能)
+
+    #===自分自身を返す
+    #SpriteUnit対応
+    #ダックタイピング用のメソッド
+    #得られるインスタンスは複写していないので、インスタンスの値を調整するには、dupメソッドで複製する必要がある
+    #返却値:: 自分自身
+    def to_unit
+      return self
+    end
+
+    #===スプライトを生成して返す
+    #ダックタイピング用のメソッド
+    #所持しているSpriteUnitから、Spriteクラスのインスタンスを生成する
+    #但し、bitmapの設定は:type=>:alpha_channelのみ
+    #引数1個のブロックを渡せば、スプライトに補正をかけることが出来る
+    #返却値:: 生成したスプライト
+    def to_sprite
+      sprite = Sprite.new(:unit=>self, :type=>:ac)
+      yield sprite if block_given?
+      return sprite
+    end
+
+    #===画像の表示矩形を取得する
+    #画像が表示されているときの矩形を取得する。矩形は、[x,y,ow,oh]で取得する。
+    #返却値:: 生成された矩形
+    def rect
+      return Rect.new(self.x, self.y, self.ow, self.oh)
+    end
+
+    #===現在の画面の最大の大きさを矩形で取得する
+    #但し、SpriteUnitの場合は最大の大きさ=画像の大きさなので、rectと同じ値が得られる
+    #返却値:: 画像の大きさ(Rect構造体のインスタンス)
+    def broad_rect
+      return self.rect
+    end
+  end
+
+  #==スプライト出力情報構造体
+  #基本的なことは、Sprite.renderで行うことが出来るが、凝った処理を行う場合は、SpriteUnitを使う
+  #--
+  #SpriteUnit = Struct.new([:dp], :bitmap, :ox, :oy, :ow, :oh, :x, :y, :cx, :cy)
+  #++
+  #([数字])は、配列として認識したときのインデックス番号に対応(Struct#[]メソッドを呼び出した時のインデックス)
+  #:bitmap([0]) -> 画像データ(SDL::Surfaceクラスのインスタンス)
+  #:ox([1])     -> 描画開始位置(x方向)
+  #:oy([2])     -> 描画開始位置(y方向)
+  #:ow([3])     -> 描画幅
+  #:oh([4])     -> 描画高さ
+  #:x([5])     -> 描画幅
+  #:y([6])     -> 描画高さ
+  #:cx([7])     -> 回転・拡大・縮小・鏡像の中心座標(x方向)
+  #:cy([8])     -> 回転・拡大・縮小・鏡像の中心座標(y方向)
+  SpriteUnit = SpriteUnitBase.new(:bitmap, :ox, :oy, :ow, :oh, :x, :y, :cx, :cy)
+
+  #==SpriteUnit生成ファクトリクラス
+  #SpriteUnit構造体のインスタンスを生成するためのクラス
+  class SpriteUnitFactory
+    PARAMS = [:bitmap, :ox, :oy, :ow, :oh, :x, :y, :cx, :cy]
+    #==SpriteUnitのインスタンスを生成する
+    #params: 初期化するSpriteUnit構造体の値。ハッシュ引数。引数のキーは、SpriteUnitのアクセサ名と同一。省略可能
+    def SpriteUnitFactory.create(params = nil)
+      unit = SpriteUnit.new(nil, 0, 0, 0, 0, 0, 0, 0, 0)
+      return SpriteUnitFactory.apply(unit, params)
+    end
+
+    #==SpriteUnitの各アクセサに対応した値を設定する
+    #(注)bitmapアクセサに値を設定する場合、ox,oy,ow,ohの値が自動的に、
+    #bitmapに対応する値(ox=0,oy=0,ow=bitmap.w,oh=bitmap.h)が設定される
+    #unit: 設定対象のSpriteUnit構造体
+    #params: 設定するSpriteUnit構造体の値。ハッシュ引数。引数のキーは、SpriteUnitのアクセサ名と同一
+    def SpriteUnitFactory.apply(unit, params)
+      if params && params.has_key?(:bitmap)
+        unit.bitmap = params[:bitmap]
+        unit.ox = 0
+        unit.oy = 0
+        unit.ow = unit.bitmap.w
+        unit.oh = unit.bitmap.h
+      end
+      PARAMS.each{|prm| unit[prm] = params[prm] if params.has_key?(prm) } if params
+      return unit 
+    end
+  end
+end

data/lib/Miyako/API/story.rb

@@ -0,0 +1,300 @@
+# -*- encoding: utf-8 -*-
+
+=begin
+--
+Miyako v2.0
+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
+
+  #==シーン実行クラス
+  #用意したシーンインスタンスを実行
+  class Story
+    @@sub_scenes = [:sub_scene, :sub_routine]
+    @@over_scenes = [:over_scene]
+  
+    def prev_label #:nodoc:
+      return @prev_label
+    end
+
+    def next_label #:nodoc:
+      return @next_label
+    end
+
+    def upper_label #:nodoc:
+      return @stack.empty? ? nil : @stack.last[0]
+    end
+
+    #===インスタンスの作成
+    #ストーリー情報の初期か
+    #返却値:: 生成したインスタンス
+    def initialize
+      @prev_label = nil
+      @next_label = nil
+
+      @stack = []
+      @fibers = [nil]
+      
+      @scene_cache = Hash.new
+      @scene_cache_list = Array.new
+      @scene_cache_max = 20
+
+      @fiber = Proc.new{|sc, num|
+        raise MiyakoError, "Illegal Script-label name! : #{sc}" unless Scene.has_scene?(sc.to_s)
+        fnum = nil
+        bk_nn = sc
+        uu = sc.new(self)
+        uu.init_inner(@prev_label, self.upper_label)
+        uu.setup
+        ret = true
+        while ret do
+          nn = uu.update
+          uu.render
+          if fnum && @fibers[fnum]
+            @fibers[fnum].resume(true)
+          elsif nn && !(nn.eql?(uu.class)) && @@over_scenes.include?(nn.scene_type)
+            @fibers << Fiber.new(&@fiber)
+            fnum = @fibers.length-1
+            @fibers[fnum].resume(nn, fnum)
+            n = bk_nn
+          end
+          break unless nn
+          ret = Fiber.yield
+        end
+        uu.final
+        uu.dispose
+        if (fnum && @fibers[fnum])
+          @fibers[fnum].resume(nil)
+          @fibers[fnum] = nil
+          fnum = nil
+        end
+        @fibers[num] = nil
+      }
+    end
+    
+    def get_scene(n, s) #:nodoc:
+      class_symbol = n.to_s
+      if @scene_cache_list.length == @scene_cache_max
+        del_symbol = @scene_cache_list.shift
+        @scene_cache[del_symbol].dispose
+        @scene_cache.delete(del_symbol)
+      end
+      @scene_cache_list.delete(class_symbol)
+      @scene_cache_list.push(class_symbol)
+      @scene_cache[class_symbol] ||= n.new(self)
+      return @scene_cache[class_symbol]
+    end
+
+    #===Storyの実行を始める
+    #"obj.run(MainScene)"と記述すると、SceneモジュールをmixinしたMainSceneクラスのインスタンスを作成し、評価を始める
+    #_n_:: 最初に実行するシーン名(クラス名を定数で)
+    def run(n)
+      return nil if n == nil
+      u = nil
+      on = nil
+      @stack = Array.new # reset
+      while n != nil
+        @prev_label = on
+        on = n
+
+        raise MiyakoError, "Illegal Script-label name! : #{n}" unless Scene.has_scene?(n.to_s)
+        raise MiyakoError, "This scene cannot use for Standard Scene! : #{n}" if n.scene_type != :scene
+        u = get_scene(n, @stack.size) if u == nil
+        u.init_inner(@prev_label, self.upper_label)
+        u.setup
+        
+        loop do
+          Input.update
+          Screen.clear
+          bk_n = on
+          n = u.update
+          u.render
+          if @fibers.first
+            raise MiyakoError, "Double over scene from root!" if n && @@over_scenes.include?(n.scene_type)
+            @fibers.first.resume(true, 0)
+          elsif n && @@over_scenes.include?(n.scene_type)
+            @fibers.clear
+            @fibers << Fiber.new(&@fiber)
+            @fibers.first.resume(n, 0)
+            n = bk_n
+          end
+          Screen.render
+          break unless n && on.eql?(n)
+        end
+        u.next = n
+        @next_label = n
+        u.final
+        if n == nil
+          if @@sub_scenes.include?(u.class.scene_type) && @stack.empty? == false
+            n, u = @stack.pop
+            next
+          end
+          break
+        elsif @@sub_scenes.include?(n.scene_type)
+          @stack.push([on, u])
+          u = nil
+        else
+          u = nil
+        end
+      end
+      if @fibers.length > 0
+        @fibers.each{|fiber| fiber.resume(nil) if fiber }
+      end
+      @scene_cache_list.each{|sy| @scene_cache[sy].dispose }
+      @scene_cache.clear
+      @scene_cache_list.clear
+    end
+    
+    #==="over_scene"形式のシーンが実行中かどうか判別する
+    #返却値:: "over_scene"形式のシーンが実行中の時はtrueを返す
+    def over_scene_execute?
+      return @now_fiber != nil
+    end
+    
+    #===内部の情報を解放する
+    def dispose
+      @scene_cache.keys.each{|k| @scene_cache[del_symbol].dispose }
+    end
+
+    #==シーンモジュール
+    #本モジュールをmixinすることにより、シーンを示すインスタンスを作成することができる
+    #mixinするときに気をつけなければいけないのは、本モジュールでは以下のインスタンス変数・モジュール変数を
+    #予約しているため、これらの変数の値を勝手に変えてはいけない
+    #@@scenesモジュール変数(シーンクラス一覧が入っている配列)、@storyインスタンス変数(シーンを呼び出したStoryクラスインスタンス)
+    #@nowインスタンス変数(現在評価しているシーンクラス)、@preインスタンス変数(一つ前に評価していたシーンクラス)
+    #@upperインスタンス変数(sub_routineの呼び元シーンクラス)、@nextインスタンス変数(移動先のシーンクラス)
+    #また、シーンには「シーン形式」がある。
+    #種類は、シーケンスな移動が出来る「通常シーン」、終了したときに移動元に戻る「サブシーン」、
+    #現在実行中のシーン上で並行に実行する「オーバーシーン」の3種類。
+    #デフォルトは「通常シーン」となっている。
+    #判別は、scene_typeクラスメソッドを呼び出すことで可能。デフォルトは、通常シーンを示すシンボル":scene"が返る。
+    #形式を変えるには、scene_typeクラスメソッドをオーバーライドし、返却値を変える。
+    #サブシーンの時はシンボル":sub_scene"、オーバーシーンのときはシンボル":over_scene"を返すように実装する
+    #(注1)同じクラス名のシーンを繰り返し実行したいときは、いったん別のダミーシーンを介してから元のシーンへ移動する必要がある
+    #(注2)オーバーシーン内では、シーンの移動が出来ないが、入れ子形式で別のオーバーシーンを積み上げる形なら移動可能。
+    module Scene
+	  @@scenes = {}
+
+      def Scene.included(c) #:nodoc:
+        unless c.singleton_methods.include?(:scene_type)
+          def c.scene_type
+            return :scene
+          end
+        end
+        @@scenes[c.to_s] = c
+      end
+
+      def Scene.scenes #:nodoc:
+        return @@scenes
+      end
+
+      def Scene.has_scene?(s) #:nodoc:
+        return @@scenes.has_key?(s)
+      end
+
+      def initialize(story, check_only=false) #:nodoc:
+        return if check_only
+        @story = story
+        @now = self.class
+        @prev = nil
+        @upper = nil
+        @next = nil
+        self.init
+      end
+
+      def init_inner(p, u) #:nodoc:
+        @prev = p
+        @upper = u
+      end
+
+      #===シーン内で使用するオブジェクトの初期化テンプレートメソッド
+      #シーン内で使用するインスタンスを生成するときなどにこのメソッドを実装する
+      def init
+      end
+
+      #===シーン内で使用するオブジェクトの初期設定テンプレートメソッド
+      #シーン内で使用するインスタンスの設定を行うときにこのメソッドを実装する
+      #(シーン生成時に生成したインスタンスはキャッシュされ、再利用することができることに注意)
+      def setup
+      end
+
+      #===シーンの情報を更新するテンプレートメソッド
+      #
+      #現在実行しているシーンを繰り返し実行する場合はインスタンス変数@nowを返すように実装する
+      #nilを返すとシーンの処理を終了する(元のStory#runメソッド呼び出しの次に処理が移る)
+      #但し、scene_typeメソッドの結果が:sub_routneのとき、移動元シーンに戻る
+      #返却値:: 移動先シーンクラス
+      def update
+        return @now
+      end
+
+      #===シーンで指定しているインスタンスを画面に描画するテンプレートメソッド
+      def render
+      end
+
+      #===シーン内で使用したオブジェクトの後始末を行うテンプレートメソッド
+      #ここでは、解放処理(dispose)ではなく、終了処理(値を変更するなど)に実装する
+      #setupメソッドと対になっているというイメージ
+      def final
+      end
+
+      #===シーンに使用したデータの解放を記述するテンプレートメソッド
+      #initメソッドと対になっているというイメージ
+      def dispose
+      end
+      
+      def next=(label) #:nodoc:
+        @next = label
+      end
+
+      #==="over_scene"形式のシーンが実行中かどうか判別する
+      #返却値:: "over_scene"形式のシーンが実行中の時はtrueを返す
+      def over_scene_execute?
+        return @story.over_scene_execute?
+      end
+    
+      #===シーンの解説を返す(テンプレートメソッド)
+      #Sceneモジュールをmixinしたとき、解説文を返す実装をしておくと、
+      #Scene.#lisutupメソッドを呼び出したときに、noticeメソッドの結果を取得できる
+      #返却値:: シーンの解説(文字列)
+      def notice
+        return ""
+      end
+
+      #===登録しているシーン一覧をリストアップする
+      #リストの内容は、"シーンクラス名(文字列),シーンクラス(ポインタ),解説(noticeメソッドの内容)"という書式で取得できる
+      #返却値:: リストアップしたシーンの配列
+      def Scene.listup
+        list = Array.new
+        sns = @@scenes
+        sns.keys.sort.each{|k| list.push("#{k}, #{sns[k]}, \"#{sns[k].notice}\"\n") }
+        return list
+      end
+
+      #===Scene.#listupメソッドの内容をCSVファイルに保存する
+      #_csvname_:: 保存するCSVファイルパス
+      def Scene.listup2csv(csvfname)
+        csvfname += ".csv" if csvfname !~ /\.csv$/
+        list = self.listup
+        File.open(csvfname, "w"){|f| list.each{|l| f.print l } }
+      end
+
+    end
+  end
+end

data/lib/Miyako/API/textbox.rb

@@ -0,0 +1,725 @@
+# -*- encoding: utf-8 -*-
+=begin
+--
+Miyako v2.0
+Copyright (C) 2007-2008  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
+  #==テキストボックスを構成するクラス
+  #テキスト表示部、ウェイトカーソル、選択カーソルで構成される
+  class TextBox
+    include SpriteBase
+    include Animation
+    include Layout
+    extend Forwardable
+
+    attr_accessor :textarea
+    attr_accessor :select_type, :waiting, :selecting
+    attr_accessor :font, :margin
+    attr_reader :wait_cursor, :select_cursor, :choices
+    attr_reader :locate, :size, :max_height
+
+    #===インスタンスの作成
+    #テキストボックスを生成する。パラメータは以下の通り。
+    #(括弧内は省略形)
+    #_:font_:: 描画フォント(Fontクラスのインスタンス)　デフォルトはFont.sans_serif
+    #_:size_:: 描画文字数(2要素の配列またはSize構造体のインスタンス)　デフォルトはSize(20,8)
+    #_:wait_cursor(:wc)_:: ボタン入力待ちを示すカーソル(SpriteもしくはSpriteAnimationクラスのインスタンス)
+    #_:select_cursor(:sc)_:: 選択カーソル(SpriteもしくはSpriteAnimationクラスのインスタンス)
+    #_:page_size_:: 一度にテキストボックスに表示させる選択肢の数(縦方向、デフォルトは8)
+    #
+    #_params_:: 生成時のパラメータ(ハッシュ引数)
+    #返却値:: TextBoxクラスのインスタンス
+    def initialize(params = {})
+      init_layout
+      @visible = true
+      @font = params[:font] || Font.sans_serif
+      @max_height = @font.line_height
+      @locate     = Point.new(0, 0)
+
+      @base = params[:size] || Size.new(20, 8)
+      @size = Size.new((@font.size + @font.hspace) * @base[0] - @font.hspace +
+                        (@font.use_shadow ? @font.shadow_margin[0] : 0),
+                       @font.line_height *
+                        @base[1] - @font.vspace)
+      @pos = Point.new(0, 0)
+      set_layout_size(*@size)
+
+      @margin = 0
+
+      @textarea = Sprite.new({:size => @size, :type => :ac, :is_fill => true})
+
+      @default_wait_cursor_position = lambda{|wcursor, tbox| wcursor.center.outside_bottom}
+      @default_select_cursor_position = lambda{|scursor, tbox| scursor.outside_left.middle}
+
+      @wait_cursor = params[:wait_cursor] || params[:wc] || nil
+      @wait_cursor_position = @default_wait_cursor_position
+      @select_cursor = params[:select_cursor] || params[:sc] || nil
+      @select_cursor_position = @default_select_cursor_position
+
+      @on_pause = lambda{}
+
+      @on_release = lambda{}
+      
+      @on_draw = lambda{}
+      
+      @command_page_size = params[:page_size] || @base[1]
+
+      @choices = Choices.new
+      @choices.snap(self)
+      @choices.left.top
+
+      @now_choice = nil
+      @pre_attach = false
+      
+      @waiting = false
+      @select_type = :left
+      @selecting = false
+
+      @textarea.snap(self)
+      @textarea.centering
+
+      @fiber = nil
+
+      if @wait_cursor
+				@wait_cursor.snap(self)
+				@default_wait_cursor_position.call(@wait_cursor, self)
+			end
+			@select_cursor.snap(self) if @select_cursor
+
+      @move_list = [
+                    [lambda{                       },
+                     lambda{ @choices.right_choice },
+                     lambda{ @choices.left_choice  }],
+                    [lambda{ @choices.down_choice  },
+                     lambda{                       },
+                     lambda{                       }],
+                    [lambda{ @choices.up_choice    },
+                     lambda{                       },
+                     lambda{                       }]
+                   ]
+                  
+    end
+
+    #===表示可能な文字行数を取得する
+    #返却値:: 表示可能な行数
+    def rows
+      return @base.h
+    end
+
+    #===一列に表示可能な文字数を取得する
+    # 返却される値は全角文字の数だが、半角文字も全角文字1文字と計算されるので注意
+    #返却値:: 表示可能な文字数
+    def columns
+      return @base.w
+    end
+
+    #===一列に表示可能な文字数と行数を取得する
+    # 文字数はcolumns、行数はrowsの値と同一
+    # Size構造体のインスタンスとして取得
+    #返却値:: 表示可能な文字数と行数
+    def text_size
+      return Size.new(@base.w, @base.h)
+    end
+
+    #===並行なブロック処理を開始する
+    # ブロックをFiberに渡して、並行実行できるようにして、Fiberを開始する
+    # ブロックには引数を必ず一つ付けること。引数には自分自身と、
+    #executeメソッドの引数リスト(配列化されて渡ってくる)が渡ってくる。
+    # 渡したブロックは、現在の処理と切り替えて実行することになる
+    # 現在の処理からブロック処理へ切り替えるときは、TextBox#updateメソッドを呼び出す
+    # ブロック処理から現在の処理に戻るには、ブロックから抜け出すか、
+    #draw_text・command・pause・clear・cr・spaceのどれかのメソッドを呼び出す。
+    #_params_:: Fiberに渡す引数リスト。Fiberへは配列として渡される
+    def execute(*params, &block)
+      raise MiyakoError, "This method needs a block!" unless block
+      raise MiyakoError, "This method needs a block with one parameter!" unless block.arity == 2
+      @fiber = Fiber.new(&block)
+      @fiber.resume(self, params)
+    end
+
+    #===並行ブロック処理が実行中かどうかを問い合わせる
+    #返却値:: Fiberが評価中ならば、trueを返す
+    def execute?
+      return @fiber != nil
+    end
+
+    #===並行ブロック処理を更新する
+    # 内部でFiberが評価中ならば、Fiberに処理を移す
+    #返却値:: 自分自身を返す
+    def update
+      begin 
+        @fiber.resume if @fiber
+      rescue FiberError
+        @fiber = nil
+      end
+      return self
+    end
+    
+    #===テキストボックスのアニメーションを開始する
+    #返却値:: 自分自身を返す
+    def start
+      @textarea.start
+      @wait_cursor.start if @wait_cursor
+      @choices.start
+      @select_cursor.start if @select_cursor
+      return self
+    end
+
+    #===テキストボックスのアニメーションを停止する
+    #返却値:: 自分自身を返す
+    def stop
+      @textarea.stop
+      @wait_cursor.stop if @wait_cursor
+      @choices.stop
+      @select_cursor.stop if @select_cursor
+      return self
+    end
+
+    #===テキストボックスのアニメーションを先頭に戻す
+    #返却値:: 自分自身を返す
+    def reset
+      @textarea.reset
+      @wait_cursor.reset if @wait_cursor
+      @choices.reset
+      @select_cursor.reset if @select_cursor
+      return self
+    end
+
+    #===テキストボックスの表示を更新する
+    #テキストボックス・選択カーソル・選択肢・ウェイトカーソルのアニメーションを更新する
+    #返却値:: 常にfalseを返す
+    def update_animation
+      @textarea.update_animation
+      @wait_cursor.update_animation if (@wait_cursor && @waiting)
+      if @selecting 
+        @choices.update_animation
+        @select_cursor.update_animation if @select_cursor
+      end
+      return false
+    end
+
+    #===スプライトに変換した画像を表示する
+    #すべてのパーツを貼り付けた、１枚のスプライトを返す
+    #引数1個のブロックを渡せば、スプライトに補正をかけることが出来る
+    #返却値:: 描画したスプライト
+    def to_sprite
+      rect = self.broad_rect
+      sprite = Sprite.new(:size=>rect.to_a[2,2], :type=>:ac)
+      Drawing.fill(sprite, [0,0,0])
+      Bitmap.ck_to_ac!(sprite, [0,0,0])
+      self.render_to(sprite){|sunit, dunit| sunit.x -= rect.x; sunit.y -= rect.y }
+      yield sprite if block_given?
+      return sprite
+    end
+
+    #===SpriteUnit構造体を生成する
+    #いったんSpriteインスタンスを作成し、それをもとにSpriteUnit構造体を生成する。
+    #返却値:: 生成したSpriteUnit構造体
+    def to_unit
+      return self.to_sprite.to_unit
+    end
+
+    #===現在の画面の最大の大きさを矩形で取得する
+    #テキストボックスの状態により、取得できる矩形の大きさが変わる
+    #返却値:: 生成された矩形(Rect構造体のインスタンス)
+    def broad_rect
+      rect = self.rect.to_a
+      rect_list = []
+      rect_list << @wait_cursor.broad_rect if (@wait_cursor && @waiting)
+      if @selecting 
+        rect_list << @choices.broad_rect
+        rect_list << @select_cursor.broad_rect if @select_cursor
+      end
+      return self.rect if rect_list.length == 0
+      rect_list = rect.zip(*rect_list)
+      # width -> right
+      rect_list[2] = rect_list[2].zip(rect_list[0]).map{|xw| xw[0] + xw[1]}
+      # height -> bottom
+      rect_list[3] = rect_list[3].zip(rect_list[1]).map{|xw| xw[0] + xw[1]}
+      x, y = rect_list[0].min, rect_list[1].min
+      return Rect.new(x, y, rect_list[2].max - x, rect_list[3].max - y)
+    end
+
+    #===画面に描画する
+    #現在のテキストエリア・カーソルを、現在の状態で描画する
+    #ブロック付きで呼び出し可能(レシーバに対応したSpriteUnit構造体が引数として得られるので、補正をかけることが出来る。
+    #ブロックの引数は、|インスタンスのSpriteUnit, 画面のSpriteUnit|となる。
+    #visibleメソッドの値がfalseのときは描画されない。
+    #返却値:: 自分自身を返す
+    def render(&block)
+      return unless @visible
+      @textarea.render(&block)
+      @wait_cursor.render(&block) if (@wait_cursor && @waiting)
+      if @selecting 
+        @choices.render(&block)
+        @select_cursor.render(&block) if @select_cursor
+      end
+      return self
+    end
+
+    #===画面に描画する
+    #現在のテキストエリア・カーソルを、現在の状態で描画する
+    #ブロック付きで呼び出し可能(レシーバに対応したSpriteUnit構造体が引数として得られるので、補正をかけることが出来る。
+    #ブロックの引数は、|インスタンスのSpriteUnit, 転送先のSpriteUnit|となる。
+    #visibleメソッドの値がfalseのときは描画されない。
+    #返却値:: 自分自身を返す
+    def render_to(dst, &block)
+      return unless @visible
+      @textarea.render_to(dst, &block)
+      @wait_cursor.render(dst, &block) if (@wait_cursor && @waiting)
+      if @selecting 
+        @choices.render(dst, &block)
+        @select_cursor.render(dst, &block) if @select_cursor
+      end
+      return self
+    end
+
+    #===文字の描画位置にマージンを設定する
+    #marginで指定したピクセルぶん、下に描画する
+    #ブロックを渡すと、ブロックを評価している間だけマージンが有効になる
+    #_margin_:: 設定するマージン
+    #返却値:: 自分自身を返す
+    def margin_during(margin)
+      raise MiyakoError, "not given block!" unless block_given?
+      omargin, @margin = @margin, margin
+      yield
+      @margin = omargin
+      return self
+    end
+
+    #===指定した高さで描画する際のマージンを求める
+    #現在のフォントの設定で指定の文字列を描画したとき、予想される描画サイズを返す。実際に描画は行われない。
+    #第1引数に渡す"align"は、以下の3種類のシンボルのどれかを渡す
+    #_:top_:: 上側に描画(マージンはゼロ)
+    #_:middle_:: 中間に描画
+    #_:bottom_:: 下部に描画
+    #
+    #_align_:: 描画位置
+    #_height_:: 描画する高さ(デフォルトは、描画した最大の高さ）
+    #返却値:: マージンの値
+    def margin_height(align, height = @max_height)
+      return @font.margin_height(align, height)
+    end
+
+    #===ブロックを評価している間、文字色を変更する
+    #_color_:: 変更する文字色([r,g,b]の3要素の配列(値:0～255))
+    #返却値:: 自分自身を返す
+    def color_during(color)
+      raise MiyakoError, "not given block!" unless block_given?
+      @font.color_during(Color.to_rgb(color)){ yield }
+      return self
+    end
+
+    #===フォントサイズを変更する
+    #行中の最大フォントサイズが更新されるので、見栄えの良い表示のためにこちらを使用することをお薦めします
+    #_size_:: 変更するフォントサイズ
+    #返却値:: 自分自身を返す
+    def font_size=(size)
+      @font.size = size
+      @max_height = @font.line_height if @max_height < @font.line_height
+      return self
+    end
+
+    #===ブロックを評価している間、フォントサイズを変更する
+    #_size_:: 変更するフォントサイズ
+    #返却値:: 自分自身を返す
+    def font_size_during(size)
+      raise MiyakoError, "not given block!" unless block_given?
+      @font.size_during(size){
+        @max_height = @font.line_height if @max_height < @font.line_height
+        yield
+      }
+      return self
+    end
+
+    #===ブロックを評価している間、太字に変更する
+    #文字が領域外にはみ出る場合があるので注意！
+    #返却値:: 自分自身を返す
+    def font_bold
+      raise MiyakoError, "not given block!" unless block_given?
+      @font.bold{ yield }
+      return self
+    end
+
+    #===ブロックを評価している間、斜体文字に変更する
+    #文字が領域外にはみ出る場合があるので注意！
+    #返却値:: 自分自身を返す
+    def font_italic
+      raise MiyakoError, "not given block!" unless block_given?
+      @font.italic{ yield }
+      return self
+    end
+
+    #===ブロックを評価している間、下線付き文字に変更する
+    #返却値:: 自分自身を返す
+    def font_under_line
+      raise MiyakoError, "not given block!" unless block_given?
+      @font.under_line{ yield }
+      return self
+    end
+
+    #===テキストエリアに文字を描画する
+    #_text_:: 描画する文字列
+    #返却値:: 自分自身を返す
+    def draw_text(text)
+      @locate.x = @font.draw_text(@textarea, text, @locate.x, @locate.y + @margin)
+      @max_height = [@max_height, @font.line_height].max
+      @on_draw.call
+      Fiber.yield if @fiber
+      return self
+    end
+
+    #===文字描画時に行う処理を記述したブロックを登録する
+    #処理を行うブロックはオブジェクトとして渡す。
+    #ブロック引数の時は、そのブロックを処理している間のみ、そのオブジェクトを呼び出して処理させる
+    #_event_:: 文字描画時処理するブロック
+    #返却値:: 自分自身を返す
+    def on_draw=(event)
+      tdraw = @on_draw
+      @on_draw = event
+      if block_given?
+        yield
+        @on_draw = tdraw
+      end
+      return self
+    end
+
+    #===選択肢の集合をTextBoxインスタンスに見合う形のChoicesクラスインスタンスの配列に変換する
+    #ブロック(引数一つのブロックのみ有効)を渡したときは、ブロックを評価して変換したChoicesクラスの配列を作成する。
+    #引数は、以下の構成を持つ配列のリスト。
+    #[非選択時スプライト(文字列可),選択時スプライト(文字列・nil可),選択結果インスタンス]
+    # 非選択時スプライト：自身が選択されていない時に表示するスプライト。文字列の時は、Shapeクラスなどでスプライトに変更する
+    # 選択時スプライト：自身が選択されている時に表示するスプライト。文字列の時は、Shapeクラスなどでスプライトに変更する
+    # (そのとき、文字色が赤色になる)。
+    # nilを渡すと、非選択時スプライトが使われる
+    # 注：スプライトは、画面にスナップしておくこと
+    # 選択結果インスタンス：コマンドが決定したときに、resultメソッドの値として渡すインスタンス。
+    # デフォルト処理の選択肢の位置は、画面左上から下へ順番に設定される
+    # 注：ブロックを渡すとき、選択肢の位置計算が、全選択肢の左上位置が[0,0]とする相対座標になっていること
+    #_choices_:: 選択肢の集合(上記参照)
+    #返却値:: Choicesクラスのインスタンスの配列
+    def create_choices_chain(choices)
+      if block_given?
+        return yield(choices)
+      end
+      choices = choices.map{|v|
+        org_font_color = @font.color
+        @font.color = Color[:white]
+        body = v[0].method(:to_sprite).arity == 0 ? v[0].to_sprite : v[0].to_sprite(@font)
+        @font.color = Color[:red]
+        body_selected = v[1] ? (v[1].method(:to_sprite).arity == 0 ? v[1].to_sprite : v[1].to_sprite(@font)) : body
+        @font.color = org_font_color
+        choice = Choices.create_choice(body, body_selected)
+        choice.result = v[2]
+        choice.end_select_proc = v[3]
+        next choice
+      }
+      choices2 = choices.each_slice(@command_page_size).to_a
+      choices2.each_with_index{|cc, x|
+        len = cc.length
+        right = choices2[x + 1] || choices2[0]
+        left = choices2[x - 1]
+        yp = 0
+        cc.each_with_index{|v, y|
+          v.down = cc[y + 1] || cc[0]
+          v.up = cc[y - 1]
+          v.right = right[y] || right.last
+          v.left = left[y] || left.last
+          v.body.move_to(0, yp)
+          v.body_selected.move_to(0, yp)
+          yp += [v.body.broad_rect.h, v.body_selected.broad_rect.h].max
+        }
+      }
+      return choices2
+    end
+    
+    #===コマンド選択を設定する
+    #コマンド選択処理に移る(self#selecting?メソッドがtrueになる)
+    # 
+    # 引数choicesに配列を渡すとき、各要素の構成は以下のようになる
+    # [コマンド文字列・画像,選択時コマンド文字列・画像,選択した結果(オブジェクト)]
+    #
+    # 引数choicesにChoicesクラスインスタンスを渡したとき、内部で、インスタンスを複写したものに置き換える
+    #
+    # このメソッドが呼び出された時、選択肢はlocateメソッドの値となる位置に移動する
+    # 引数dx,dyともにnil以外の数値を渡すと、上記の位置から更に移動する(位置が補正される)
+    # body_selectedをnilにした場合は、bodyと同一となる
+    # body_selectedを文字列を指定した場合は、文字色が赤色になることに注意
+    #_choices_:: 選択肢の配列、もしくはChoicesクラスのインスタンス
+    #_dx_:: 選択肢を表示するx座標の移動量。デフォルトはnil(移動しない)
+    #_dy_:: 選択肢を表示するy座標の移動量。デフォルトはnil(移動しない)
+    #返却値:: 自分自身を返す
+    def command(choices, dx = nil, dy = nil)
+      if choices.methods.include?(:start_choice)
+        @choices = choices.dup
+        @choices.snap(self)
+      else
+        @choices.clear
+        choices.each{|cc| @choices.create_choices(cc) }
+      end
+      @choices.left{|b| @locate.x}.top{|b| @locate.y}
+      @choices.move(dx, dy) if (dx != nil && dy != nil)
+      start_command
+      Fiber.yield if @fiber
+      return self
+    end
+
+    #===コマンド選択を開始する
+    #但し、commandメソッドを呼び出したときは自動的に呼ばれる
+    #返却値:: 自分自身を返す
+    def start_command
+      raise MiyakoError, "don't set Choice!" if @choices.length == 0
+      @choices.start_choice
+      if @select_cursor
+        @select_cursor.snap(@choices.body)
+        @select_cursor_position.call(@select_cursor, @choices.body)
+      end
+      @selecting = true
+      return self
+    end
+
+    #===コマンド選択を終了する
+    # 選択した選択肢(Choice構造体)にend_select_procブロックが設定されていれば自動的に評価される
+    #返却値:: 自分自身を返す
+    def finish_command
+      @choices.end_choice(self)
+      @choices.left.top
+      @selecting = false
+      return self
+    end
+
+    #===選択肢・選択カーソルを移動させる
+    #但し、非選択状態だったときは、選択状態に戻るだけ
+    #(そのときの選択肢は、最後に選択した選択肢を指定する)
+    #_dx_:: 移動量(x軸方向)。-1,0,1の3種類
+    #_dy_:: 移動量(y軸方向)。-1,0,1の3種類
+    #返却値:: 自分自身を返す
+    def move_cursor(dx, dy)
+      unless @choices.any_select?
+        @choices.start_choice(nil) # 選択状態を元に戻す
+        return self
+      end
+      @move_list[dy][dx].call
+      if @select_cursor
+        @select_cursor.snap(@choices.body)
+        @select_cursor_position.call(@select_cursor, @choices.body)
+      end
+      return self
+    end
+
+    #===マウスカーソルの位置とコマンドを照合する
+    #選択肢・選択カーソルを、マウスカーソルが当たっているコマンドに移動させる
+    #どのコマンドにも当たっていない場合は、すべてのコマンドは非選択状態になる
+    #_x_:: マウスカーソルの位置(x軸方向)
+    #_y_:: マウスカーソルの位置(y軸方向)
+    #返却値:: 自分自身を返す
+    def attach_cursor(x, y)
+      attach = @choices.attach(x, y)
+      if attach
+        if @select_cursor
+          @select_cursor.snap(@choices.body)
+          @select_cursor_position.call(@select_cursor, @choices.body)
+        end
+      else
+        @choices.non_select if @pre_attach
+      end
+      @pre_attach = attach
+      return self
+    end
+
+    #===マウスカーソルの位置にコマンドがあるかどうかを問い合わせる
+    #マウスカーソルがどれかのコマンドの上にあるときはtrue、どれにも当たっていないときはfalseを返す
+    #_x_:: マウスカーソルの位置(x軸方向)
+    #_y_:: マウスカーソルの位置(y軸方向)
+    #返却値:: マウスカーソルがどれかのコマンドにあるときはtrueを返す
+    def attach_any_command?(x, y)
+      return @choices.attach(x, y)
+    end
+
+    def update_layout_position #:nodoc:
+      @pos.move_to(*@layout.pos)
+    end
+
+    #===入力待ち状態(ポーズ)に表示するカーソルの位置を設定する
+    #ポーズカーソルの位置を、パラメータ二つ(カーソル本体・テキストボックス)を引数に取るブロックで実装する
+    #位置は、テキストエリアをsnapしていると想定して実装する
+    #デフォルトは、テキストエリアの中下に置かれる(center.bottom)
+    # (例)テキストボックスの中下(テキストエリアの外) -> {|wc, tbox| wc.center.outside_bottom }
+    #  　 テキストボックスの右下(テキストエリアの中) -> {|wc, tbox| wc.right.bottom }
+    #  　 テキストの最後尾 -> {|wc, tbox| wc.left{|b| tbox.locate.x }.top{|b| tbox.locate.y} }
+    #     (テキストエリアの左上から右下へ現在の描画開始位置(tbox.locateメソッドで示した値)の距離移動した箇所)
+    #ブロックを渡していなかったり、ブロックの引数が2個でなければエラーを返す
+    #返却値:: 自分自身を返す
+    def set_wait_cursor_position(&proc)
+      raise MiyakoError, "Can't find block!" unless proc
+      raise MiyakoError, "This method must have two parameters!" unless proc.arity == 2
+      @wait_cursor_position = proc
+      @wait_cursor_position.call(@wait_cursor, self) if @wait_cursor
+      return self
+    end
+
+    #===入力待ち状態(ポーズ)に表示するカーソルの位置をデフォルトに戻す
+    #デフォルトの位置は、テキストエリアの中下(center.bottom)に設定されている
+    #返却値:: 自分自身を返す
+    def reset_wait_cursor_position
+      @wait_cursor_position = @default_wait_cursor_position
+      @wait_cursor_position.call(@wait_cursor, self) if @wait_cursor
+      return self
+    end
+
+    #===コマンド選択時に表示するカーソルの位置を設定する
+    #カーソルの位置を、パラメータ二つ(カーソル本体・選択肢)を引数に取るブロックで実装する
+    #位置は、テキストエリアをsnapしていると想定して実装する
+    #デフォルトは、選択肢の左側に置かれる(outside_left.middle)
+    # (例)選択肢の右側 -> {|wc, choice| wc.outside_right.middle }
+    #  　 選択肢の真上 -> {|wc, choice| wc.centering }
+    #ブロックを渡していなかったり、ブロックの引数が2個でなければエラーを返す
+    #返却値:: 自分自身を返す
+    def set_select_cursor_position(&proc)
+      raise MiyakoError, "Can't find block!" unless proc
+      raise MiyakoError, "This method must have two parameters!" unless proc.arity == 2
+      @select_cursor_position = proc
+      @select_cursor_position.call(@select_cursor, @choices.body) if (@select_cursor && @choices.body)
+      return self
+    end
+
+    #===入力待ち状態(ポーズ)に表示するカーソルの位置をデフォルトに戻す
+    #デフォルトの位置は、テキストエリアの中下(center.bottom)に設定されている
+    #返却値:: 自分自身を返す
+    def reset_select_cursor_position
+      @select_cursor_position = @default_select_cursor_position
+      @select_cursor_position.call(@select_cursor, @choices.body) if (@select_cursor && @choices.body)
+      return self
+    end
+
+    #===入力待ち状態(ポーズ)にする
+    #ポーズカーソルを表示する。pause?メソッドの結果がtrueになる
+    #ポーズカーソルの位置は、set_wait_cursor_positionで設定したブロックが評価されて決定される
+    #(デフォルトはテキストエリアの中下
+    #返却値:: 自分自身を返す
+    def pause
+      @waiting = true
+      return self unless @wait_cursor
+      @wait_cursor_position.call(@wait_cursor, self)
+      @on_pause.call
+      Fiber.yield if @fiber
+      return self
+    end
+
+    #===ポーズ時に行う処理を記述したブロックを登録する
+    #処理を行うブロックはオブジェクトとして渡す。
+    #ブロック引数の時は、そのブロックを処理している間のみ、そのオブジェクトを呼び出して処理させる
+    #_event_:: ポーズ時処理するブロック
+    #返却値:: 自分自身を返す
+    def on_pause=(event)
+      tpause = @on_pause
+      @on_pause = event
+      if block_given?
+        yield
+        @on_pause = tpause
+      end
+      return self
+    end
+
+    #===入力待ち状態を解除する
+    #同時に、ポーズカーソルを隠蔽する。pause?メソッドの結果がfalseになる
+    #返却値:: 自分自身を返す
+    def release
+      @waiting = false
+      @on_release.call
+      return self
+    end
+
+    #===ポーズ解除時に行う処理を記述したブロックを登録する
+    #処理を行うブロックはオブジェクトとして渡す。
+    #ブロック引数の時は、そのブロックを処理している間のみ、そのオブジェクトを呼び出して処理させる
+    #_event_:: ポーズ解除時処理するブロック
+    #返却値:: 自分自身を返す
+    def on_release=(event)
+      trelease = @on_release
+      @on_release = event
+      if block_given?
+        yield
+        @on_release = trelease
+      end
+      return self
+    end
+
+    #===入力待ち状態かを確認する
+    #返却値:: 入力待ち状態の時はtrueを返す
+    def pause?
+      return @waiting
+    end
+
+    #===コマンド選択中かどうかを確認する
+    #返却値:: 選択中の時はtrueを返す
+    def selecting?
+      return @selecting
+    end
+
+    #===選択結果を取得する
+    #返却値:: コマンドの選択結果(選択中のnilを返す)
+    def result
+      return @choices.result
+    end
+
+    #===テキストエリアに描画している文字を消去する
+    #透明色で消去したあと、描画開始位置を左上(0,0)に移動する
+    #返却値:: 自分自身を返す
+    def clear
+      @textarea.bitmap.fillRect(0, 0, @size[0], @size[1], [0, 0, 0, 0])
+      @locate = Point.new(0, 0)
+      @max_height = @font.line_height
+      Fiber.yield if @fiber
+      return self
+    end
+
+    #===縦方向のスペースを空ける
+    #現在描画可能な位置から、指定したピクセルで下方向に移動する
+    #但し、文字の大きさもピクセル数に含むことに注意すること
+    #_height_:: スペースを空けるピクセル数
+    #返却値:: 自分自身を返す
+    def cr(height = @max_height)
+      @locate.x = 0
+      @locate.y += height
+      @max_height = @font.line_height
+      Fiber.yield if @fiber
+      return self
+    end
+
+    #===横方向のスペースを空ける
+    #現在描画可能な位置から、指定したピクセルで右方向に移動する
+    #_length_:: スペースを空けるピクセル数
+    #返却値:: 自分自身を返す
+    def space(length)
+      @locate.x += length
+      Fiber.yield if @fiber
+      return self
+    end
+
+    #===情報を解放する
+    def dispose
+      @textarea.dispose
+      @textarea = nil
+    end
+
+    def_delegators(:@pos, :x, :y)
+  end
+end