cyross-ruby-miyako-mswin32 2.0.5

data/install_miyako.rb

@@ -0,0 +1,61 @@
+# Miyako2.0 install script
+# 2009 Cyross Makoto
+
+if RUBY_VERSION < '1.9.1'
+  puts 'Sorry. Miyako needs Ruby 1.9.1 or above...'
+  exit
+end
+
+begin
+require 'sdl'
+rescue
+  puts 'Sorry. Miyako needs Ruby/SDL...'
+  exit
+end
+
+if SDL::VERSION < '2.1'
+  puts 'Sorry. Miyako needs Ruby/SDL 2.1.0 or above...'
+  exit
+end
+
+if osn !~ /mswin|mingw/
+  puts 'Sorry. This package needs mswin32 or MinGW platform...'
+  exit
+end
+
+require 'rbconfig'
+require 'fileutils'
+require 'optparse'
+
+option = { :noop => false, :verbose => true }
+not_force = true
+
+ARGV.options do |opt|
+  opt.on('--no-harm'){ option[:noop] = true }
+  opt.on('--force'){ not_force = false }
+  opt.on('--quiet'){ option[:verbose] = false }
+
+  opt.parse!
+end
+
+ext_dir = "./"
+
+sitelibdir = Config::CONFIG["sitelibdir"] + "/Miyako"
+apidir = sitelibdir + "/API"
+extdir = sitelibdir + "/EXT"
+
+if FileTest.exist?(sitelibdir) && not_force
+  puts "#{sitelibdir} is arleady exists."
+  puts "Are you sure?(Y/else)"
+  exit unless $stdin.gets.split(//)[0].upcase == 'Y'
+end
+
+FileUtils.remove_dir(sitelibdir, true)
+FileUtils.mkpath(sitelibdir, option)
+FileUtils.mkpath(apidir, option)
+FileUtils.mkpath(extdir, option)
+
+Dir.glob("lib/Miyako/*.rb"){|fname| FileUtils.install(fname, sitelibdir, option)}
+Dir.glob("lib/Miyako/*.so"){|fname| FileUtils.install(fname, sitelibdir, option)}
+Dir.glob("lib/Miyako/API/*.rb"){|fname| FileUtils.install(fname, apidir, option)}
+Dir.glob("lib/Miyako/EXT/*.rb"){|fname| FileUtils.install(fname, extdir, option)}

data/lib/Miyako/API/audio.rb

@@ -0,0 +1,198 @@
+# -*- 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
+  #==オーディオ管理モジュール
+  #オーディオにはBGM,SE(効果音)の2種類あり、扱えるメソッドが少々違う(別クラスになっている)。
+  module Audio
+    #==BGM管理クラス
+    class BGM
+      #===インスタンスを生成する
+      #_fname_:: 演奏するBGMファイル名。対応ファイルはwav,mp3,ogg,mid等。
+      #_loops_:: ループの可否を指定する。trueのとき繰り返し再生を行う
+      #返却値:: 生成したインスタンス
+      def initialize(fname, loops = true)
+        return if $not_use_audio
+        @bgm = SDL::Mixer::Music.load(fname)
+        @loops = loops
+      end
+
+      #===音の大きさを設定する
+      #_v_:: 音の大きさ。0〜255までの整数。255で最大。
+      #返却値:: 自分自身を返す
+      def set_volume(v)
+        return self if $not_use_audio
+        SDL::Mixer.setVolumeMusic(v)
+        return self
+      end
+
+      alias_method(:setVolume, :set_volume)
+      
+      #===BGMを演奏する。ブロックが渡されている場合、ブロックの評価中のみ演奏する。
+      #_vol_:: 音の大きさ(省略可能)。0〜255までの整数。
+      #返却値:: 自分自身を返す
+      def play(vol = nil)
+        return self if $not_use_audio
+        set_volume(vol) if vol
+        l = @loops ? -1 : 0
+        SDL::Mixer.playMusic(@bgm, l).to_s()
+        if block_given?
+          yield self
+          SDL::Mixer.haltMusic
+        end
+        return self
+      end
+
+      #===フェードインしながら演奏する
+      #_msec_:: フェードインの時間。ミリ秒単位。デフォルトは5000ミリ秒(5秒)
+      #返却値:: 自分自身を返す
+      def fade_in(msec=5000)
+        return self if $not_use_audio
+        l = @loops ? -1 : 0
+        SDL::Mixer.fadeInMusic(@bgm, l, msec)
+        return self
+      end
+
+      alias_method(:fadeIn, :fade_in)
+      
+      #===演奏中を示すフラグ
+      #返却値:: 演奏中はtrue、停止(一時停止)中はfalseを返す
+      def playing?
+        return false if $not_use_audio
+        return SDL::Mixer.playMusic?
+      end
+
+      #===演奏を一時停止する
+      #resumeメソッドで一時停止を解除する
+      #返却値:: 自分自身を返す
+      def pause
+        return self if $not_use_audio
+        SDL::Mixer.pauseMusic if SDL::Mixer.playMusic?
+        return self
+      end
+
+      #===一時停止を解除する
+      #返却値:: 自分自身を返す
+      def resume
+        return self if $not_use_audio
+        SDL::Mixer.resumeMusic if SDL::Mixer.pauseMusic?
+        return self
+      end
+
+      #===演奏を停止する
+      #pauseメソッドとは違い、完全に停止するため、resumeメソッドは使えない
+      #返却値:: 自分自身を返す
+      def stop
+        return self if $not_use_audio
+        SDL::Mixer.haltMusic if SDL::Mixer.playMusic?
+        return self
+      end
+
+      #===演奏をフェードアウトする
+      #_msec_:: フェードアウトする時間。ミリ秒単位。デフォルトは5000ミリ秒
+      #_wmode_:: フェードアウトする間、処理を停止するかどうかを示すフラグ。デフォルトはfalse(すぐに次の処理を開始)
+      #返却値:: 自分自身を返す
+      def fade_out(msec = 5000, wmode = false)
+        return self if $not_use_audio
+        if SDL::Mixer.playMusic?
+          SDL::Mixer.fadeOutMusic(msec)
+          SDL::delay(msec) if wmode
+        end
+        return self
+      end
+      
+      #===演奏情報を解放する
+      #単なるダミー
+      def dispose
+      end
+      
+      alias_method(:fadeOut, :fade_out)
+    end
+
+    #==効果音管理クラス
+    class SE
+      
+      #===同時発音数を変更する
+      #デフォルトの同時発音数は８。発音数を減らすと鳴っている音が止まるため注意
+      #_channels_:: 変更するチャネル数。０以下を指定するとエラー
+      def SE.channels=(channels)
+        return if $not_use_audio
+        raise MiyakoError, "Illegal Channels! : #{channels}" if channels <= 0
+        SDL::Mixer.allocate_channels(channels)
+      end
+
+      #===インスタンスを生成する
+      #_fname_:: 効果音ファイル名。wavファイルのみ対応
+      #返却値:: 生成したインスタンス
+      def initialize(fname)
+        return if $not_use_audio
+        @wave = SDL::Mixer::Wave.load(fname)
+        @channel = -1
+      end
+
+      #===効果音を鳴らす
+      #_vol_:: 音の大きさ(省略可能)。0〜255の整数を設定する
+      #返却値:: 自分自身を返す
+      def play(vol = nil)
+        return self if $not_use_audio
+        set_volume(vol) if vol
+        @channel = SDL::Mixer.playChannel(-1, @wave, 0)
+        if block_given?
+          yield self
+          SDL::Mixer.halt(@channel)
+        end
+        return self
+      end
+
+      #===効果音が鳴っているかを示すフラグ
+      #返却値:: 効果音が鳴っているときはtrue、鳴っていないときはfalseを返す
+      def playing?
+        return false if $not_use_audio
+        return @channel != -1 ? SDL::Mixer.play?(@channel) : false
+      end
+
+      #===効果音を停止する
+      #返却値:: 自分自身を返す
+      def stop
+        return self if $not_use_audio
+        SDL::Mixer.halt(@channel) if @channel != -1
+        return self
+      end
+
+      #===効果音の大きさを設定する
+      #_v_:: 音の大きさ。0から255までの整数で示す。
+      #返却値:: 自分自身を返す
+      def set_volume(v)
+        return self if $not_use_audio
+        @wave.setVolume(v)
+        return self
+      end
+      
+      #===演奏情報を解放する
+      #単なるダミー
+      def dispose
+      end
+      
+      alias_method(:setVolume, :set_volume)
+    end
+  end
+end

data/lib/Miyako/API/basic_data.rb

@@ -0,0 +1,573 @@
+# -*- 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 PointStruct < Struct
+    #===位置を変更する(変化量を指定)
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_dx_:: 移動量(x方向)。単位はピクセル
+    #_dy_:: 移動量(y方向)。単位はピクセル
+    #返却値:: 自分自身を返す
+    def move(dx, dy)
+    end
+
+    #===位置を変更する(位置指定)
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_x_:: 移動先位置(x方向)。単位はピクセル
+    #_y_:: 移動先位置(y方向)。単位はピクセル
+    #返却値:: 自分自身を返す
+    def move_to(x, y)
+    end
+  end
+
+  #==サイズ情報のための構造体クラス
+  #サイズ変更メソッドを追加
+  class SizeStruct < Struct
+    #===サイズを変更する(変化量を指定)
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_dw_:: 幅変更。単位はピクセル
+    #_dh_:: 高さ変更。単位はピクセル
+    #返却値:: 自分自身を返す
+    def resize(dw, dh)
+    end
+
+    #===サイズを変更する
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_w_:: 幅変更。単位はピクセル
+    #_h_:: 高さ変更。単位はピクセル
+    #返却値:: 自分自身を返す
+    def resize_to(w, h)
+    end
+  end
+
+  #==矩形情報のための構造体クラス
+  #矩形変更メソッドを追加
+  class RectStruct < Struct
+    #===位置を変更する(変化量を指定)
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_dx_:: 移動量(x方向)。単位はピクセル
+    #_dy_:: 移動量(y方向)。単位はピクセル
+    #返却値:: 自分自身を返す
+    def move(dx, dy)
+    end
+
+    #===位置を変更する(位置指定)
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_x_:: 移動先位置(x方向)。単位はピクセル
+    #_y_:: 移動先位置(y方向)。単位はピクセル
+    #返却値:: 自分自身を返す
+    def move_to(x, y)
+    end
+
+    #===サイズを変更する(変化量を指定)
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_dw_:: 幅変更。単位はピクセル
+    #_dh_:: 高さ変更。単位はピクセル
+    #返却値:: 自分自身を返す
+    def resize(dw, dh)
+    end
+
+    #===サイズを変更する
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_w_:: 幅変更。単位はピクセル
+    #_h_:: 高さ変更。単位はピクセル
+    #返却値:: 自分自身を返す
+    def resize_to(w, h)
+    end
+
+    #===指定の座標が矩形の範囲内かを問い合わせる
+    #_x_:: 指定のx座標
+    #_y_:: 指定のy座標
+    #返却値:: 座標が矩形の範囲内ならtrueを返す
+    def in_range?(x, y)
+      return (x >= self[0] && y >= self[1] && x < self[0] + self[2] && y < self[1] + self[3])
+    end
+  end
+
+  #==Square構造体用クラス
+  #位置変更メソッドを追加
+  class SquareStruct < Struct
+    #===位置を変更する(変化量を指定)
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_dx_:: 移動量(x方向)。単位はピクセル
+    #_dy_:: 移動量(y方向)。単位はピクセル
+    #返却値:: 自分自身を返す
+    def move(dx, dy)
+    end
+
+    #===位置を変更する(位置指定)
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_x_:: 移動先位置(x方向)。単位はピクセル
+    #_y_:: 移動先位置(y方向)。単位はピクセル
+    #返却値:: 自分自身を返す
+    def move_to(x, y)
+    end
+
+    #===サイズを変更する(変化量を指定)
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_dw_:: 幅変更。単位はピクセル
+    #_dh_:: 高さ変更。単位はピクセル
+    #返却値:: 自分自身を返す
+    def resize(dw, dh)
+    end
+
+    #===サイズを変更する
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_w_:: 幅変更。単位はピクセル
+    #_h_:: 高さ変更。単位はピクセル
+    #返却値:: 自分自身を返す
+    def resize_to(w, h)
+    end
+
+    #===指定の座標が矩形の範囲内かを問い合わせる
+    #_x_:: 指定のx座標
+    #_y_:: 指定のy座標
+    #返却値:: 座標が矩形の範囲内ならtrueを返す
+    def in_range?(x, y)
+      return (x >= self[0] && y >= self[1] && x <= self[2] && y <= self[3])
+    end
+  end
+
+  #==線分の区間情報のための構造体クラス
+  #位置変更メソッドを追加
+  class SegmentStruct < Struct
+    #===Segment構造体インスタンスを生成する
+    # 入力した矩形情報(Rect構造体、[x,y,w,h]で表される配列)から、構造体インスタンスを生成する
+    #_rect_:: 算出に使用する矩形情報
+    #返却値:: 生成したインスタンスを返す
+    def SegmentStruct.create(rect)
+      return Segment.new([rect[0], rect[0] + rect[2] - 1],
+                         [rect[1], rect[1] + rect[3] - 1])
+    end
+
+    #===位置を変更する(変化量を指定)
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_dx_:: 移動量(x方向)。単位はピクセル
+    #_dy_:: 移動量(y方向)。単位はピクセル
+    #返却値:: 自分自身を返す
+    def move(dx, dy)
+    end
+
+    #===位置を変更する(位置指定)
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_x_:: 移動先位置(x方向)。単位はピクセル
+    #_y_:: 移動先位置(y方向)。単位はピクセル
+    #返却値:: 自分自身を返す
+    def move_to(x, y)
+    end
+
+    #===サイズを変更する(変化量を指定)
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_dw_:: 幅変更。単位はピクセル
+    #_dh_:: 高さ変更。単位はピクセル
+    #返却値:: 自分自身を返す
+    def resize(dw, dh)
+    end
+
+    #===サイズを変更する
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
+    #_w_:: 幅変更。単位はピクセル
+    #_h_:: 高さ変更。単位はピクセル
+    #返却値:: 自分自身を返す
+    def resize_to(w, h)
+    end
+
+    def reset(min_x, max_x, min_y, max_y) #:nodoc:
+      x[0], x[1], y[0], y[1] = min_x, max_x, min_y, max_y
+    end
+
+    #===小線分を移動させたとき、大線分が範囲内かどうかを判別する
+    # 移動後の小線分が大線分の範囲内にあるかどうかをtrue/falseで取得する
+    #_idx_:: 判別する方向(xもしくはy)。:x, :y, 0, 1のどれかを渡す。それ以外を渡すと例外が発生する
+    #_big_segment_:: 大線分の範囲。[min,max]で構成された2要素の配列
+    #_d_:: selfの移動量
+    #_flag_:: 大線分の端いっぱいも範囲外に含めるときはtrueを設定する。デフォルトはfalse
+    #返却値:: 範囲内のときはtrue、範囲外の時はfalseを返す
+    def in_bounds?(idx, big_segment, d, flag = false)
+      raise MiyakoError, "illegal index : #{idx}" unless [0,1,:x,:y].include?(idx)
+      nx = self[idx][0] + d
+      nx2 = self[idx][1] + d
+      nx, nx2 = nx2, nx if nx > nx2
+      return flag ?
+             (nx >= big_segment[idx][0] && nx2 <= big_segment[idx][1]) :
+             (nx > big_segment[idx][0] && (nx2 - 1) < big_segment[idx][1])
+    end
+
+    #===小線分を移動させたとき、大線分が範囲内かどうかを判別して、その状態によって値を整数で返す
+    # 移動後の小線分の範囲が大線分の範囲内のときは0、
+    # マイナス方向で範囲外に出るときは-1、
+    # プラス方向で出るときは1を返す
+    #_idx_:: 判別する方向(xもしくはy)。:x, :y, 0, 1のどれかを渡す。それ以外を渡すと例外が発生する
+    #_big_segment_:: 大線分の範囲。[min,max]で構成された2要素の配列
+    #_d_:: selfの移動量
+    #_flag_:: 大線分の端いっぱいも範囲外に含めるときはtrueを設定する。デフォルトはfalse
+    #返却値:: 判別の結果
+    def in_bounds_ex?(idx, big_segment, d, flag = false)
+      raise MiyakoError, "illegal index : #{idx}" unless [0,1,:x,:y].include?(idx)
+      nx = self[idx][0] + d
+      nx2 = self[idx][1] + d - 1
+      nx, nx2 = nx2, nx if nx > nx2
+      return -1 if (nx < big_segment[idx][0]) || (flag && (nx == big_segment[idx][0]))
+      return (nx2 > big_segment[idx][1]) || (flag && (nx2 == big_segment[idx][1])) ? 1 : 0
+    end
+
+    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す
+    # 移動後の小線分の範囲が大線分の範囲内のときは0、
+    # マイナス方向で範囲外に出るときは1、
+    # プラス方向で出るときは-1を返す
+    #_idx_:: 判別する方向(xもしくはy)。:x, :y, 0, 1のどれかを渡す。それ以外を渡すと例外が発生する
+    #_big_segment_:: 大線分の範囲。[min,max]で構成された2要素の配列
+    #_d_:: selfの移動量
+    #_flag_:: 大線分の端いっぱいも範囲外に含めるときはtrueを設定する。デフォルトはfalse
+    #返却値:: 判別の結果
+    def in_bounds_rev?(idx, big_segment, d, flag = false)
+      raise MiyakoError, "illegal index : #{idx}" unless [0,1,:x,:y].include?(idx)
+      nx = self[idx][0] + d
+      nx2 = self[idx][1] + d - 1
+      nx, nx2 = nx2, nx if nx > nx2
+      return 1 if (nx < big_segment[idx][0]) || (flag && (nx == big_segment[idx][0]))
+      return (nx2 > big_segment[idx][1]) || (flag && (nx2 == big_segment[idx][1])) ? -1 : 0
+    end
+
+    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す
+    # 移動量が0のときは0、
+    # 移動後の小線分の範囲が大線分の範囲内のときは1、
+    # 範囲外に出るときは-1を返す
+    #_idx_:: 判別する方向(xもしくはy)。:x, :y, 0, 1のどれかを渡す。それ以外を渡すと例外が発生する
+    #_big_segment_:: 大線分の範囲。[min,max]で構成された2要素の配列
+    #_d_:: selfの移動量
+    #_flag_:: 大線分の端いっぱいも範囲外に含めるときはtrueを設定する。デフォルトはfalse
+    #返却値:: 判別の結果
+    def in_bounds_rev_ex?(idx, big_segment, d, flag = false)
+      raise MiyakoError, "illegal index : #{idx}" unless [0,1,:x,:y].include?(idx)
+      return 0 if d == 0
+      dir = (d <=> 0)
+      nx = self[idx][0] + d
+      nx2 = self[idx][1] + d - 1
+      nx, nx2 = nx2, nx if nx > nx2
+      return -dir if (nx < big_segment[idx][0]) || (flag && (nx == big_segment[idx][0]))
+      return (nx2 > big_segment[idx][1]) || (flag && (nx2 == big_segment[idx][1])) ? -dir : dir
+    end
+  end
+
+  #==座標などを構成するために使用する構造体
+  #_x_:: X座標の値
+  #_y_:: Y座標の値
+  Point = PointStruct.new(:x, :y)
+
+  #==サイズなどを構成するために使用する構造体
+  #_w_:: 横幅
+  #_h_:: 高さ
+  Size = SizeStruct.new(:w, :h)
+
+  #==矩形などを構成するために使用する構造体
+  #_x_:: X座標の値
+  #_y_:: Y座標の値
+  #_w_:: 横幅
+  #_h_:: 高さ
+  Rect = RectStruct.new(:x, :y, :w, :h)
+
+  #==矩形などを構成するために使用する構造体
+  #_left_:: 左上X座標の値
+  #_top_:: 左上Y座標の値
+  #_right_:: 右下X座標の値
+  #_bottom_:: 右下Y座標の値
+  Square = SquareStruct.new(:left, :top, :right, :bottom)
+
+  #==線分を構成するために使用する構造体
+  #_x_:: X方向の線分([min_x, max_x]で構成される配列)
+  #_y_:: Y方向の線分([min_y, max_y]で構成される配列)
+  Segment = SegmentStruct.new(:x, :y)
+
+  #==色を管理するクラス
+  #
+  #色情報は、[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] 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
+
+  #タイマーを管理するクラス
+  class WaitCounter
+    SECOND2TICK = 1000
+
+    #WaitCounterインスタンス固有の名前
+    #デフォルトはインスタンスIDを文字列化したもの
+    attr_accessor :name
+    
+    def WaitCounter.get_second_to_tick(s) #:nodoc:
+      return (SECOND2TICK * s).to_i
+    end
+    
+    #===インスタンスを生成する
+    #_seconds_:: タイマーとして設定する秒数(実数で指定可能)
+    #_name_:: インスタンス固有の名称。デフォルトはnil
+    #(nilを渡した場合、インスタンスIDを文字列化したものが名称になる)
+    #返却値:: 生成されたインスタンス
+    def initialize(seconds, name=nil)
+      @seconds = seconds
+      @name = name ? name : __id__.to_s
+      @wait = WaitCounter.get_second_to_tick(@seconds)
+      @st = 0
+      @counting = false
+    end
+
+    #===設定されているウェイトの長さを求める
+    #ウェイトの長さをミリセカンド単位で取得する
+    #返却値:: ウェイトの長さ
+    def length
+      return @wait
+    end
+    
+    #===残りウェイトの長さを求める
+    #タイマー実行中のときウェイトの長さをミリセカンド単位で取得する
+    #返却値:: 残りウェイトの長さ(実行していない時はウェイトの長さ)
+    def remind
+      return @wait unless @counting
+      cnt = SDL.getTicks - @st
+      return @wait < cnt ? 0 : @wait - cnt
+    end
+    
+    #===タイマー処理を開始する
+    #返却値:: 自分自身を返す
+    def start
+      @st = SDL.getTicks
+      @counting = true
+      return self
+    end
+
+    #===タイマー処理を停止する
+    #一旦タイマーを停止すると、復帰できない(一時停止ではない)
+    #返却値:: 自分自身を返す
+    def stop
+      @counting = false
+      @st = 0
+      return self
+    end
+
+    def wait_inner(f) #:nodoc:
+      return !f unless @counting
+      t = SDL.getTicks
+      return f unless (t - @st) >= @wait
+      @counting = false
+      return !f
+    end
+    
+    private :wait_inner
+
+    #===タイマー処理中かを返す
+    #タイマー処理中ならばtrue、停止中ならばfalseを返す
+    #返却値:: タイマー処理中かどうかを示すフラグ
+    def waiting?
+      return wait_inner(true)
+    end
+
+    #===タイマー処理が終了したかを返す
+    #タイマー処理が終了したらtrue、処理中ならfalseを返す
+    #返却値:: タイマー処理が終わったかどうかを示すフラグ
+    def finish?
+      return wait_inner(false)
+    end
+
+    def wait #:nodoc:
+      st = SDL.getTicks
+      t = SDL.getTicks
+      until (t - st) >= @wait do
+        t = SDL.getTicks
+      end
+      return self
+    end
+
+    #===インスタンスないで所持している領域を開放する
+    #(現段階ではダミー)
+    def dispose
+    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
+
+#=begin rdoc
+#==１個のインスタンスでイテレータを実装できるモジュール
+#=end
+module SingleEnumerable
+  include Enumerable
+
+  #===ブロックの処理を実行する
+  #返却値:: 自分自身を返す
+  def each
+    yield self
+    return self
+  end
+
+  #===sizeメソッドと同様
+  #返却値:: sizeメソッドと同様
+  def length
+    return 1
+  end
+end