cyross-ruby-miyako-mswin32 2.0.5

data/lib/Miyako/API/font.rb

@@ -0,0 +1,403 @@
+# -*- 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
+
+=begin rdoc
+==フォント管理クラス
+フォントは、等幅フォント奨励(プロポーショナルフォントを選ぶと、文字が正しく描画されない可能性あり）
+=end
+  class Font
+    extend Forwardable
+
+#    OS_MAC_OS_X = "mac_osx"
+#    ORG_ENC = "UTF-8"
+#    NEW_ENC = "UTF-8-MAC"
+    
+    attr_reader :size, :line_skip, :height, :ascent, :descent
+    attr_accessor :color, :use_shadow, :shadow_color, :shadow_margin, :vspace, :hspace
+
+    @@font_cache = {}
+
+    @@name_2_font_path = Hash.new
+
+    @@font_base_path = Hash.new
+    @@font_base_path["win"] = ENV['SystemRoot'] ? ["./", ENV['SystemRoot'].tr("\\", "/") + "/fonts/"] : ["./"]
+    @@font_base_path["linux"] = ["./", "/usr/share/fonts/", "/usr/X11R6/lib/X11/fonts/"]
+    @@font_base_path["mac_osx"] = ["./", "~/Library/Fonts/", "/Library/Fonts/", "/System/Library/Fonts/",
+                                      "/ライブラリ/Fonts/", "/システム/ライブラリ/Fonts/"]
+
+    @@font_base_name = Hash.new
+    @@font_base_name["win"] = [{:serif=>"msmincho.ttc", :sans_serif=>"msgothic.ttc"},
+                               {:serif=>"VL-Gothic-Regular.ttf", :sans_serif=>"VL-Gothic-Regular.ttf"},
+                               {:serif=>"umeplus-gothic.ttf", :sans_serif=>"umeplus-gothic.ttf"},
+                               {:serif=>"msmincho.ttc", :sans_serif=>"meiryo.ttc"}]
+    @@font_base_name["linux"] = [{:serif=>"sazanami-mincho.ttf", :sans_serif=>"sazanami-gothic.ttf"},
+                                    {:serif=>"VL-Gothic-Regular.ttf", :sans_serif=>"VL-Gothic-Regular.ttf"},
+                                    {:serif=>"umeplus-gothic.ttf", :sans_serif=>"umeplus-gothic.ttf"}]
+    @@font_base_name["mac_osx"] = [{:serif=>"Hiragino Mincho Pro W3.otf", :sans_serif=>"Hiragino Kaku Gothic Pro W3.otf"},
+                                      {:serif=>"Hiragino Mincho Pro W6.otf", :sans_serif=>"Hiragino Kaku Gothic Pro W6.otf"},
+                                      {:serif=>"ヒラギノ明朝 Pro W3.otf", :sans_serif=>"ヒラギノ角ゴ Pro W3.otf"},
+                                      {:serif=>"ヒラキ゛ノ明朝 Pro W3.otf", :sans_serif=>"ヒラキ゛ノ角コ゛ Pro W3.otf"},
+                                      {:serif=>"ヒラギノ明朝 Pro W6.otf", :sans_serif=>"ヒラギノ角ゴ Pro W6.otf"},
+                                      {:serif=>"ヒラキ゛ノ明朝 Pro W6.otf", :sans_serif=>"ヒラキ゛ノ角コ゛ Pro W6.otf"},
+                                      {:serif=>"VL-Gothic-Regular.ttf", :sans_serif=>"VL-Gothic-Regular.ttf"},
+                                      {:serif=>"umeplus-gothic.ttf", :sans_serif=>"umeplus-gothic.ttf"}]
+
+    def Font.search_font_path_file(hash, path) #:nodoc:
+      Dir.glob(path+"*"){|d|
+        hash = Font.search_font_path_file(hash, d+"/") if test(?d, d)
+        d = d.encode(Encoding::UTF_8) if Miyako.getOSName == "mac_osx" # MacOSXはパス名がUTF-8固定のため
+        d = d.tr("\\", "\/")
+        hash[$1] = d if (d =~ /\/([^\/\.]+\.tt[fc])\z/ || d =~ /\/([^\/\.]+\.otf)\z/) # MacOSX対応
+      }
+      return hash
+    end
+
+    def Font.create_font_path #:nodoc:
+      osn = Miyako::getOSName
+      @@font_base_path[osn].each{|path|
+        path = path.encode(Encoding::UTF_8) if Miyako.getOSName == "mac_osx" # MacOSXはパス名がUTF-8固定のため
+        path = path.tr("\\", "\/")
+        @@name_2_font_path = Font.search_font_path_file(@@name_2_font_path, path)
+      }
+    end
+
+    def Font.findFontPath(fname) #:nodoc:
+      fname = fname.encode(Encoding::UTF_8) if Miyako.getOSName == "mac_osx" # MacOSXはパス名がUTF-8固定のため
+      return @@name_2_font_path.fetch(fname, nil)
+    end
+
+    def Font.get_font_inner(fname, fpath, size=16) #:nodoc:
+      if Miyako.getOSName == "mac_osx" # MacOSXはパス名がUTF-8固定のため
+        fname = fname.encode(Encoding::UTF_8)
+        fpath = fpath.encode(Encoding::UTF_8)
+      end
+      @@font_cache[fname] ||= {}
+      @@font_cache[fname][size] ||= SDL::TTF.open(fpath, size)
+      return @@font_cache[fname][size]
+    end
+
+    def init_height #:nodoc:
+      @line_skip = @font.line_skip
+      @height    = @font.height
+      @ascent    = @font.ascent
+      @descent   = @font.descent
+    end
+
+    private :init_height
+
+    #===インスタンス生成
+    #指定したフォントファイル名から、フォントインスタンスを生成する。
+    #フォントファイルのパスは、Miyako2.0起動時にファイルパス(カレントディレクトリとシステムのフォントディレクトリ)を
+    #再帰的に検索し、先に見つけた方を採用する(同一ファイル名がカレントディレクトリとシステムのディレクトリに両方
+    #存在するときは、カレントディレクトリを優先する)
+    #そのため、フォントファイル名は、パスを指定する必要がない(逆に言うと、パスを指定すると例外が発生する)。
+    #_fname_:: フォントファイル名(フォントファミリー名不可)。パス指定不可
+    #_size_:: フォントの大きさ。単位はピクセル。デフォルトは 16
+    #返却値:: 生成されたインスタンスを返す
+    def initialize(fname, size=16)
+      @size = size
+      @color = [255, 255, 255]
+      @fname = fname
+      @vspace = 0
+      @hspace = 0
+      @bold = false
+      @italic = false
+      @under_line = false
+      @fpath = Font.findFontPath(@fname) or raise MiyakoError, "Cannot Find Font! : #{@fname}"
+      @font = Font.get_font_inner(@fname, @fpath, @size)
+      @font.style = SDL::TTF::STYLE_NORMAL
+      init_height
+      @use_shadow = false
+      @shadow_color = [128, 128, 128]
+      @shadow_margin = [2, 2]
+      @unit = SpriteUnitFactory.create
+    end
+
+    #===フォントの大きさを変更する
+    #_sz_:: 変更するフォントの大きさ(単位：ピクセル)
+    #返却値:: 変更されたフォントのインスタンス
+    def size=(sz)
+      @size = sz
+      @font = Font.get_font_inner(@fname, @fpath, @size)
+      @font.style = (@bold ? SDL::TTF::STYLE_BOLD : 0) | (@italic ? SDL::TTF::STYLE_ITALIC : 0) | (@under_line ? SDL::TTF::STYLE_UNDERLINE : 0)
+      init_height
+      return self
+    end
+
+    #===ブロック評価中のみ、フォントの大きさを変更する
+    #_sz_:: 変更するフォントの大きさ(単位：ピクセル)
+    #返却値:: 自分自身を返す
+    def size_during(sz)
+      raise MiyakoError, "not given block!" unless block_given?
+      tsize = @size
+      self.size = sz
+      yield
+      self.size = tsize
+      return self
+    end
+
+    #===ブロック評価中のみ、フォントの文字の色を変更する
+    #_color_:: 変更する色([r,g,b]の3要素の配列(値:0～255))
+    #返却値:: 自分自身を返す
+    def color_during(color)
+      raise MiyakoError, "not given block!" unless block_given?
+      tcolor, self.color = @color, color
+      yield
+      self.color = tcolor
+      return self
+    end
+
+    #===ブロック評価中のみ、影文字文字の色・マージンを変更する
+    #また、ブロック評価中は影文字が強制的に有効になる
+    #_color_:: 変更する色([r,g,b]の3要素の配列(値:0～255))、デフォルトはFont#shadow_colorメソッドの値([128,128,128])
+    #_margin_:: 変更する色(2要素の整数の配列、デフォルトはFont#shadow_marginメソッドの値([2,2])
+    #返却値:: 自分自身を返す
+    def shadow_during(color = @shadow_color, margin = @shadow_margin)
+      raise MiyakoError, "not given block!" unless block_given?
+      tflag, @use_shadow = @use_shadow, true
+      tcolor, @shadow_color = @shadow_color, color
+      tmargin, @shadow_margin = @shadow_margin, margin
+      yield
+      @use_shadow = tflag
+      @shadow_color = tcolor
+      @shadow_margin = tmargin
+      return self
+    end
+
+    #===指定したピクセル数のフォントが十分(欠けることなく)収まるピクセル数を取得する
+    #_size_:: フォントの大きさ(単位：ピクセル)
+    #返却値:: 算出されたピクセル数
+    def get_fit_size(size)
+      path = Font.findFontPath(@fname)
+      font = SDL::TTF.open(path, size)
+      return (size.to_f * (size.to_f / font.line_skip.to_f)).to_i 
+    end
+    
+    #===フォントサイズ(yやjなどの下にはみ出る箇所も算出)を取得する
+    #返却値:: 算出されたフォントサイズ
+    def line_height
+      return @line_skip + @vspace + (@use_shadow ? @shadow_margin[1] : 0)
+    end
+
+    #===フォントインスタンスを解放する
+    def dispose
+      @font = nil
+    end
+
+    #===フォントの属性をbold(太文字)に設定する
+    #ブロックを渡したときは、ブロック評価中のみ太字になる
+    #文字が領域外にはみ出る場合があるので注意！
+    #返却値:: 自分自身
+    def bold
+      if block_given?
+        tbold, self.bold = self.bold?, true
+        yield
+        self.bold = tbold
+      else
+        self.bold = true
+      end
+      return self
+    end
+    
+    #===フォントのbold属性の有無を返す
+    #返却値:: bold属性かどうか(true/false)
+    def bold?
+      return @bold
+    end
+    
+    #===フォントのbold属性を設定する
+    #_f_:: bold属性かどうか(true/false)
+    def bold=(f)
+      @bold = f
+      @font.style |= SDL::TTF::STYLE_BOLD
+      @font.style -= SDL::TTF::STYLE_BOLD unless @bold
+      return self
+    end
+    
+    #===フォントの属性をitalic(斜め)に設定する
+    #ブロックを渡したときは、ブロック評価中のみ斜体文字になる
+    #文字が領域外にはみ出る場合があるので注意！
+    #返却値:: 自分自身
+    def italic
+      if block_given?
+        titalic, self.italic = self.italic?, true
+        yield
+        self.italic = titalic
+      else
+        self.italic = true
+      end
+      return self
+    end
+    
+    #===フォントのitalic属性の有無を返す
+    #返却値:: italic属性かどうか(true/false)
+    def italic?
+      return @italic
+    end
+    
+    #===フォントのitalic属性を設定する
+    #_f_:: italic属性かどうか(true/false)
+    def italic=(f)
+      @italic = f
+      @font.style |= SDL::TTF::STYLE_ITALIC
+      @font.style -= SDL::TTF::STYLE_ITALIC unless @italic
+      return self
+    end
+    
+    #===フォントの属性をunder_line(下線)に設定する
+    #ブロックを渡したときは、ブロック評価中のみ下線付き文字になる
+    #返却値:: 自分自身
+    def under_line
+      if block_given?
+        tunder_line, self.under_line = self.under_line?, true
+        yield
+        self.under_line = tunder_line
+      else
+        self.under_line = true
+      end
+      return self
+    end
+    
+    #===フォントのunder_line属性の有無を返す
+    #返却値:: under_line属性かどうか(true/false)
+    def under_line?
+      return @under_line
+    end
+    
+    #===フォントのunder_line属性を設定する
+    #_f_:: under_line属性かどうか(true/false)
+    def under_line=(f)
+      @under_line = f
+      @font.style |= SDL::TTF::STYLE_UNDERLINE
+      @font.style -= SDL::TTF::STYLE_UNDERLINE unless @under_line
+      return self
+    end
+
+    #===フォントの属性をすべてクリアする
+    #_f_:: 自分自身
+    def normal
+      @font.style = 0
+      return self
+    end
+    
+    #===文字列を描画する
+    #対象のスプライトに文字列を描画する
+    #_dst_:: 描画先スプライト
+    #_str_:: 描画する文字列
+    #_x_:: 描画位置x軸
+    #_y_:: 描画位置Y軸
+    def draw_text(dst, str, x, y)
+      str = str.encode(Encoding::UTF_8)
+      str.chars{|c|
+        if @use_shadow
+          src2 = @font.renderBlendedUTF8(c, @shadow_color[0], @shadow_color[1], @shadow_color[2])
+          if src2
+            SpriteUnitFactory.apply(@unit, {:bitmap=>src2, :ow=>src2.w, :oh=>src2.h})
+            Miyako::Bitmap.blit_aa(@unit, dst.to_unit, x+@shadow_margin[0], y+@shadow_margin[1])
+          else
+            break x
+          end
+        end
+        src = @font.renderBlendedUTF8(c, @color[0], @color[1], @color[2])
+        if src
+          SpriteUnitFactory.apply(@unit, {:bitmap=>src, :ow=>src.w, :oh=>src.h})
+          Miyako::Bitmap.blit_aa(@unit, dst.to_unit, x, y)
+        else
+          break x
+        end
+        x += chr_size_inner(c)
+      }
+      return x
+    end
+
+    #===文字列描画したときの大きさを取得する
+    #現在のフォントの設定で指定の文字列を描画したとき、予想される描画サイズを返す。実際に描画は行われない。
+    #_txt_:: 算出したい文字列
+    #返却値:: 文字列を描画したときの大きさ([w,h]の配列)
+    def chr_size_inner(char)
+      return (char.bytesize == 1 ? @size >> 1 : @size) + (@use_shadow ? @shadow_margin[0] : 0) + @hspace
+    end
+    
+    private :chr_size_inner
+
+    #===文字列描画したときの大きさを取得する
+    #現在のフォントの設定で指定の文字列を描画したとき、予想される描画サイズを返す。実際に描画は行われない。
+    #_txt_:: 算出したい文字列
+    #返却値:: 文字列を描画したときの大きさ([w,h]の配列)
+    def text_size(txt)
+      width = txt.chars.inject(0){|r, c|
+        r += (c.bytesize == 1 ? @size >> 1 : @size) } + 
+             ((@use_shadow ? @shadow_margin[0] : 0) + @hspace) * (txt.chars.to_a.length - 1)
+      return [width, self.line_height]
+    end
+    
+    #===指定した高さで描画する際のマージンを求める
+    #現在のフォントの設定で指定の文字列を描画したとき、予想される描画サイズを返す。実際に描画は行われない。
+    #第1引数に渡す"align"は、以下の3種類のシンボルのどれかを渡す
+    #:top:: 上側に描画(マージンはゼロ)
+    #:middle:: 中間に描画
+    #:bottom:: 下部に描画
+    #
+    #_align_:: 描画位置
+    #_height_:: 描画する高さ
+    #返却値:: マージンの値
+    def margin_height(align, height)
+      case align
+        when :top
+          return 0
+        when :middle
+          return (height - self.line_height) >> 1
+        when :bottom
+          return height - self.line_height
+      end
+      #else
+      raise MiyakoError, "Illegal margin_height align! : #{align}"
+    end
+
+    Font.create_font_path
+
+    #===Serifフォント(明朝フォント)を取得する
+    #マルチプラットフォームのソフトを作る際、OS間の差異を吸収するため、
+    #共通の名称でフォントインスタンスを取得するときに使う(主に明朝フォント)
+    #返却値:: OSごとに設定されたフォントイン寸タンス(フォントサイズは16)
+    def Font::serif
+      filename = @@font_base_name[Miyako::getOSName].detect{|base| Font.findFontPath(base[:serif]) }[:serif]
+      return Font.new(filename)
+    end
+
+    #===Sans Serifフォント(ゴシックフォント)を取得する
+    #マルチプラットフォームのソフトを作る際、OS間の差異を吸収するため、
+    #共通の名称でフォントインスタンスを取得するときに使う(主にゴシックフォント)
+    #返却値:: OSごとに設定されたフォントイン寸タンス(フォントサイズは16)
+    def Font::sans_serif
+      filename = @@font_base_name[Miyako::getOSName].detect{|base| Font.findFontPath(base[:sans_serif]) }[:sans_serif]
+      return Font.new(filename)
+    end
+
+    def Font::system_font #:nodoc:
+      return Font.serif
+    end
+  end
+end

data/lib/Miyako/API/input.rb

@@ -0,0 +1,447 @@
+# -*- 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
+
+  #==入力管理モジュール
+  #本モジュールでは、キーボードやマウス、ゲームパッドなどの入力装置からの情報を管理する。
+  #メソッドのほとんどは、「押されたかどうか」などの問い合わせメソッドで構成されている。
+  #本モジュールでは、以下のボタンが使用可能。キー(ボタン)すべてシンボルとして定義
+  #_:btn1_ ～ _:btn12_:: ゲームパッドの 1～12 に対応するボタン、もしくはキーボード上の z～n、a～hの各ボタンに対応
+  #_:down,_:left_,_:right_,_:up_:: ゲームパッドの方向ボタンとキーボードの方向キーに対応
+  #_:spc_:: スペースバーに対応
+  #_:ent_:: Enterキーに対応
+  #_:esc_:: エスケープキーに対応
+  #_:alt_:: Altキー(左右)に対応
+  #_:ctl_:: コントロールキー(左右)に対応
+  #_:sft_:: シフトキー(左右)に対応
+  #
+  #また、本モジュールのメソッドに "trigger", "pushed" の２つのメソッドがあるが、
+  #"trigger"系メソッドは、「押されていたら常にtrue」を示すのに対して、
+  #"pushed"系メソッドは、「押した瞬間のみtrue、次の更新(Input.update)の時以降は、
+  #ボタンを放して再び押されるまでfalse」という機能を持つ
+  module Input
+    BTNS = 12 # 使用するボタン数(ボタン１〜ボタン１２)
+    @@joy = nil
+    @@joy = SDL::Joystick.open(0) if SDL::Joystick.num >= 1
+    @@quit = false
+    @@toggle_screen_mode = true
+    @@click_start_tick = 0
+
+    @@syms = [:btn1, :btn2, :btn3, :btn4, :btn5, :btn6, :btn7, :btn8, :btn9, :btn10, :btn11, :btn12,
+              :down, :left, :right, :up,  :spc, :ent, :esc, :alt, :ctl, :sft]
+
+    @@mods = [SDL::Key::MOD_LALT, SDL::Key::MOD_RALT, SDL::Key::MOD_LCTRL, SDL::Key::MOD_RCTRL,
+              SDL::Key::MOD_LSHIFT, SDL::Key::MOD_RSHIFT]
+
+    @@btn2sym = {SDL::Key::Z => :btn1, SDL::Key::X => :btn2, SDL::Key::C => :btn3,
+                 SDL::Key::A => :btn4, SDL::Key::S => :btn5, SDL::Key::D => :btn6,
+                 SDL::Key::Q => :btn7, SDL::Key::W => :btn8, SDL::Key::E => :btn9,
+                 SDL::Key::V => :btn10, SDL::Key::B => :btn11, SDL::Key::N => :btn12,
+                 SDL::Key::KP2 => :down, SDL::Key::DOWN => :down,
+                 SDL::Key::KP4 => :left, SDL::Key::LEFT => :left,
+                 SDL::Key::KP6 => :right, SDL::Key::RIGHT => :right,
+                 SDL::Key::KP8 => :up, SDL::Key::UP => :up,
+                 SDL::Key::SPACE => :spc,
+                 SDL::Key::RETURN => :ent,
+                 SDL::Key::ESCAPE => :esc,
+                 SDL::Key::MOD_LALT => :alt, SDL::Key::MOD_RALT => :alt,
+                 SDL::Key::MOD_LCTRL => :ctl, SDL::Key::MOD_RCTRL => :ctl,
+                 SDL::Key::MOD_LSHIFT => :sft, SDL::Key::MOD_RSHIFT => :sft}
+
+    @@num2bsym = [:btn1,  :btn2,  :btn3,  :btn4,  :btn5,  :btn6,
+                  :btn7,  :btn8,  :btn9,  :btn10, :btn11, :btn12]
+
+    def Input::create_btns #:nodoc:
+      return {:btn1  => 0, :btn2  => 0, :btn3  => 0,
+              :btn4  => 0, :btn5  => 0, :btn6  => 0,
+              :btn7  => 0, :btn8  => 0, :btn9  => 0,
+              :btn10 => 0, :btn11 => 0, :btn12 => 0,
+              :down  => 0, :left  => 0, :right => 0, :up => 0,
+              :spc   => 0, :ent   => 0, :esc   => 0,
+              :alt   => 0, :ctl   => 0, :sft   => 0}
+    end
+
+    @@btn = {:trigger => create_btns,
+             :pushed  => create_btns,
+             :pre     => create_btns}
+
+    @@move_amount = [{:down =>  0, :left => -1, :right =>  1, :up =>  0},
+                     {:down =>  1, :left =>  0, :right =>  0, :up => -1}]
+
+    @@process = {SDL::Event2::Active          => lambda {|e| Input::process_active(e)},
+                 SDL::Event2::Quit            => lambda {|e| Input::process_quit(e)},
+                 SDL::Event2::KeyDown         => lambda {|e| Input::process_keydown(e)},
+                 SDL::Event2::KeyUp           => lambda {|e| Input::process_keyup(e)},
+                 SDL::Event2::JoyAxis         => lambda {|e| Input::process_joyaxis(e)},
+                 SDL::Event2::JoyButtonDown   => lambda {|e| Input::process_joybuttondown(e)},
+                 SDL::Event2::JoyButtonUp     => lambda {|e| Input::process_joybuttonup(e)},
+                 SDL::Event2::MouseMotion     => lambda {|e| Input::process_mousemotion(e)},
+                 SDL::Event2::MouseButtonDown => lambda {|e| Input::process_mousebuttondown(e)},
+                 SDL::Event2::MouseButtonUp   => lambda {|e| Input::process_mousebuttonup(e)}}
+    @@process.default = lambda {|e|  }
+
+    @@mouse = {:pos   => {:x => 0, :y => 0, :dx => 0, :dy => 0},
+               :trigger => {:left => false, :middle => false, :right => false}, # 2008.06.11
+               :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}
+
+    def Input::process_quit(e) #:nodoc:
+      @@quit = true
+    end
+
+    def Input::process_keydown(e) #:nodoc:
+      set_btn(@@btn2sym[e.sym]) if @@btn2sym.include?(e.sym)
+      @@mods.each{|m| set_btn(@@btn2sym[m]) if e.mod & m == m}
+    end
+
+    def Input::process_keyup(e) #:nodoc:
+      reset_btn(@@btn2sym[e.sym]) if @@btn2sym.include?(e.sym)
+      @@mods.each{|m| reset_btn(@@btn2sym[m]) if e.mod & m == m}
+    end
+
+    def Input::process_joyaxis(e) #:nodoc:
+      if e.axis == 0
+        if e.value >= 16384
+          set_btn(:right)
+        elsif e.value < -16384
+          set_btn(:left)
+        else
+          reset_btn(:left)
+          reset_btn(:right)
+        end
+      elsif e.axis == 1
+        if e.value >= 16384
+          set_btn(:down)
+        elsif e.value < -16384
+          set_btn(:up)
+        else
+          reset_btn(:down)
+          reset_btn(:up)
+        end
+      end
+    end
+
+    def Input::process_joybuttondown(e) #:nodoc:
+      set_btn(@@num2bsym[e.button]) if e.button < BTNS
+    end
+
+    def Input::process_joybuttonup(e) #:nodoc:
+      reset_btn(@@num2bsym[e.button]) if e.button < BTNS
+    end
+
+    def Input::process_mousemotion(e) #:nodoc:
+      @@mouse[:pos][:x]  = e.x
+      @@mouse[:pos][:y]  = e.y
+      @@mouse[:pos][:dx] = e.xrel
+      @@mouse[:pos][:dy] = e.yrel
+    end
+
+    def Input::process_mousebuttondown(e) #:nodoc:
+      set_mouse_button(:trigger, e.button)
+      return unless @@mouse[:inner]
+      click_mouse_button(:click, e.button)
+      set_mouse_button(:drag, e.button)
+      @@mouse[:drag][:x] = @@mouse[:pos][:x]
+      @@mouse[:drag][:y] = @@mouse[:pos][:y]
+      @@click_start_tick = SDL.getTicks
+    end
+
+    def Input::process_mousebuttonup(e) #:nodoc:
+      reset_mouse_button(:trigger, e.button)
+      click_interval = SDL.getTicks - @@click_start_tick
+      if click_interval < @@mouse[:click][:interval]
+        [:left, :middle, :right].each{|b| @@mouse[:drag][b] = false }
+      else
+        @@mouse[:drop][:left]    = @@mouse[:drag][:left] and (e.button == SDL::Mouse::BUTTON_LEFT)
+        @@mouse[:drop][:middle]  = @@mouse[:drag][:left] and (e.button == SDL::Mouse::BUTTON_MIDDLE)
+        @@mouse[:drop][:right]   = @@mouse[:drag][:left] and (e.button == SDL::Mouse::BUTTON_RIGHT)
+        @@mouse[:drop][:succeed] = [:left,:middle,:right].inject(false){|r,i| r |= @@mouse[:drag][i]} && @@mouse[:inner]
+        [:left, :middle, :right].each{|b| @@mouse[:drag][b] = false }
+      end
+    end
+
+    def Input::process_active(e) #:nodoc:
+      @@mouse[:inner] = e.gain if e.state == 1
+    end
+
+    def Input::process_default(e) #:nodoc:
+    end
+
+    def Input::click_mouse_button(mode, btn) #:nodoc:
+      @@mouse[mode][:left]    = (btn == SDL::Mouse::BUTTON_LEFT)
+      @@mouse[mode][:middle]  = (btn == SDL::Mouse::BUTTON_MIDDLE)
+      @@mouse[mode][:right]   = (btn == SDL::Mouse::BUTTON_RIGHT)
+    end
+
+    def Input::set_mouse_button(mode, btn) #:nodoc:
+      @@mouse[mode][:left]    = (btn == SDL::Mouse::BUTTON_LEFT)
+      @@mouse[mode][:middle]  = (btn == SDL::Mouse::BUTTON_MIDDLE)
+      @@mouse[mode][:right]   = (btn == SDL::Mouse::BUTTON_RIGHT)
+    end
+
+    def Input::reset_mouse_button(mode, btn) #:nodoc:
+      @@mouse[mode][:left]    = false if (btn == SDL::Mouse::BUTTON_LEFT)
+      @@mouse[mode][:middle]  = false if (btn == SDL::Mouse::BUTTON_MIDDLE)
+      @@mouse[mode][:right]   = false if (btn == SDL::Mouse::BUTTON_RIGHT)
+    end
+
+    def Input::set_btn(n) #:nodoc:
+      @@btn[:trigger][n] = 1
+      return if @@btn[:pre][n] == 1
+      @@btn[:pushed][n] = 1
+      @@btn[:pre][n] = 1
+    end
+
+    def Input::reset_btn(n) #:nodoc:
+      @@btn.each_key{|k| @@btn[k][n] = 0}
+    end
+
+    #===入力装置からの情報を更新する
+    #必ず１回は呼び出す必要がある
+    #(特に、ゲームループの最初に呼び出す必要がある
+    #また、このメソッドを呼び出すのは必ずメインスレッドから呼び出すこと
+    def Input::update
+      SDL::Joystick.updateAll
+      @@btn[:pushed].each_key{|p| @@btn[:pushed][p] = 0 }
+      [:dx, :dy].each{|e| @@mouse[:pos][e] = 0 }
+      [:left, :middle, :right].each{|e|
+        @@mouse[:click][e] = false
+        @@mouse[:drop][e] = false
+      }
+      e_list = []
+      while e = SDL::Event2.poll
+        e_list << e
+      end
+      e_list.reverse.each{|e|
+        @@process[e.class].call(e)
+        if @@btn[:trigger][:alt] & @@btn[:pushed][:ent]==1 and @@toggle_screen_mode
+          Screen.toggle_mode
+          @@btn[:trigger][:alt] = false
+          @@btn[:pushed][:ent] = 0
+        end
+      }
+    end
+
+    #===指定のボタンがすべて押下状態かを問い合わせるメソッド
+    #_inputs_:: ボタンを示すシンボル。複数指定可能
+    #((例)Input.trigger_all?(:btn1, :btn2) #ボタン１とボタン２が押されている)
+    #返却値:: すべて押下状態ならば true を返す
+    def Input::trigger_all?(*inputs)
+      raise MiyakoError, "No setting any buttons! : trigger_all?" if inputs.length == 0
+      return inputs.inject(false){|r, v| r &= (@@btn[:trigger][v] == 1)}
+    end
+
+    #===指定のボタンがどれかが押下状態かを問い合わせるメソッド
+    #引数を省略した場合は、「どれかのキーが押下状態か」を問い合わせる。
+    #_inputs_:: ボタンを示すシンボル。複数指定可能
+    #((例)Input.trigger_all?(:btn1, :btn2) #ボタン１かボタン２、もしくはその両方が押されている)。
+    #返却値:: どれかが押下状態ならば true を返す
+    def Input::trigger_any?(*inputs)
+      inputs = @@syms if inputs.length == 0
+      return inputs.inject(false){|r, v| r |= (@@btn[:trigger][v] == 1)}
+    end
+
+    #===指定のボタンがすべて押されたかを問い合わせるメソッド
+    #_inputs_:: ボタンを示すシンボル。複数指定可能
+    #((例)Input.trigger_all?(:btn1, :btn2) #ボタン１とボタン２が押されている)
+    #返却値:: すべて押されていれば true を返す
+    def Input::pushed_all?(*inputs)
+      raise MiyakoError, "No setting any buttons! : trigger_any?" if inputs.length == 0
+      return inputs.inject(true){|r, v| r &= (@@btn[:pushed][v] == 1)}
+    end
+
+    #===指定のボタンのどれかが押されたかを問い合わせるメソッド
+    #_inputs_:: ボタンを示すシンボル。複数指定可能
+    #((例)Input.trigger_all?(:btn1, :btn2) #ボタン１かボタン２、もしくはその両方が押されている)
+    #返却値:: すべて押されていれば true を返す
+    def Input::pushed_any?(*inputs)
+      inputs = @@syms if inputs.length == 0
+      return inputs.inject(false){|r, v| r |= (@@btn[:pushed][v] == 1)}
+    end
+
+    #===ボタンが押下状態にある方向を取得する
+    #方向キーが押下状態にある情報を、２要素の配列［x,y］で示す。
+    #
+    #各要素の値は以下の通り。
+    #x ・・・ -1:左、0:変化なし、1:右
+    #
+    #y ・・・ -1:上、0:変化なし、1:下
+    #返却値:: 移動方向を示す配列
+    def Input::trigger_amount
+      amt = [0, 0]
+      [:down, :left, :right, :up].each{|d| [0, 1].each{|n| amt[n] += @@btn[:trigger][d] * @@move_amount[n][d]} }
+      return amt
+    end
+
+    #===ボタンが押された方向を取得する
+    #方向キーが押された情報を、２要素の配列［x,y］で示す。
+    #
+    #各要素の値は以下の通り。
+    #x ・・・ -1:左、0:変化なし、1:右
+    #
+    #y ・・・ -1:上、0:変化なし、1:下
+    #返却値:: 移動方向を示す配列
+    def Input::pushed_amount
+      amt = [0, 0]
+      [:down, :left, :right, :up].each{|d| [0, 1].each{|n| amt[n] += @@btn[:pushed][d] * @@move_amount[n][d]} }
+      return amt
+    end
+
+    #===ウィンドウの「閉じる」ボタンが選択されたかどうかを問い合わせる
+    #Windowsの場合、ウィンドウ右上の「×」ボタンを押したときに相当
+    #返却値:: 「×」ボタンが押されていれば true を返す
+    def Input::quit?
+      return @@quit
+    end
+
+    #===エスケープキーが押されたかどうかを問い合わせる
+    #返却値:: エスケープキーが押されていれば true を返す
+    def Input::escape?
+      return (@@btn[:pushed][:esc] == 1)
+    end
+
+    #===ウィンドウの「×」ボタンか、エスケープキーが押されたかどうかを問い合わせる
+    #返却値:: 「×」ボタンが押されてる、もしくはエスケープキーが押されていれば true を返す
+    def Input::quit_or_escape?
+      return @@quit || (@@btn[:pushed][:esc] == 1)
+    end
+
+    #===マウスカーソルを表示する
+    def Input::mouse_cursor_show
+      SDL::Mouse.show
+    end
+
+    #===マウスカーソルを隠蔽する
+    def Input::mouse_cursor_hide
+      SDL::Mouse.hide
+    end
+
+    #===マウスの現在位置を取得する
+    #求める値は、{:x=>n,:y=>n}で示すハッシュとする
+    #原点は、画面領域の左上を{:x=>0,:y=>0}とする
+    #返却値:: マウスカーソルの位置を示すPoint構造体
+    def Input::get_mouse_position
+      return Point.new(@@mouse[:pos][:x],@@mouse[:pos][:y])
+    end
+
+    #===マウスの移動量を取得する
+    #求める値は、{:x=>n,:y=>n}で示すハッシュとする
+    #移動量は、右下方向を正とする
+    #返却値:: マウスカーソルの移動量を示すSize構造体
+    def Input::get_mouse_amount
+      return Size.new(@@mouse[:pos][:dx],@@mouse[:pos][:dy])
+    end
+
+    #===ボタンがクリックされたかを問い合わせるメソッド
+    #ボタンの問い合わせは可変個数のシンボルで行う。指定できるボタンは以下の通り
+    #このメソッドを呼び出した後、そのボタンの返却値は、Input.updateが呼ばれない限りfalseになることに注意。
+    #
+    #:left : 左ボタン
+    #:middle : 中ボタン(ホイールをクリック)
+    #:right : 右ボタン
+    #:any : 上記ボタンの少なくともどれか一つ
+    #
+    #_btn_:: 問い合わせるボタンを示すシンボル(可変個)
+    #返却値:: ボタンが押されていれば true を返す
+    def Input::click?(btn)
+      btns = (btn == :any ? [:left, :middle, :right] : [btn])
+      ret = btns.inject(false){|r, f| r |= @@mouse[:click][f]}
+      return ret
+    end
+
+    #===ボタンが押されているかを問い合わせるメソッド
+    #ボタンの問い合わせは可変個数のシンボルで行う。指定できるボタンは以下の通り
+    #
+    #_:left_:: 左ボタン
+    #_:middle_:: 中ボタン(ホイールをクリック)
+    #_:right_:: 右ボタン
+    #_:any_:: 上記ボタンの少なくともどれか一つ
+    #
+    #_btn_:: 問い合わせるボタンを示すシンボル(可変個)
+    #返却値:: ボタンが押されていれば true を返す
+    def Input::mouse_trigger?(btn)
+      return btn == :any ? (@@mouse[:trigger][:left] || @@mouse[:trigger][:middle] || @@mouse[:trigger][:right]) : @@mouse[:trigger][btn]
+    end
+
+    #===ドラッグアンドドロップが行われたかどうかを問い合わせる
+    #ドラッグアンドドロップした際に使ったボタンの問い合わせは、
+    #可変個数のシンボルで行う。指定できるボタンは以下の通り
+    #
+    #_:left_:: 左ボタン
+    #_:middle_:: 中ボタン(ホイールをクリック)
+    #_:right_:: 右ボタン
+    #_:any_:: 上記ボタンの少なくともどれか一つ
+    #
+    #_btn_:: 問い合わせるボタンを示すシンボル(可変個)
+    #返却値:: ドラッグアンドドロップが成功していれば、true を返す
+    def Input::drag_and_drop?(btn)
+      return @@mouse[:drop][:succeed] && (btn == :any ? (@@mouse[:drop][:left] || @@mouse[:drop][:middle] || @@mouse[:drop][:right]) : @@mouse[:click][btn])
+    end
+
+    #===ドラッグアンドドロップされた範囲を取得する
+    #取得できる範囲は、以下のハッシュで取得できる。
+    #{:drag_x => ドラッグが行われた x 座標, :drag_y => ドラッグが行われた y 座標, :drop_x => ドロップが行われた x 座業, :drop_y => ドロップが行われた y 座標}
+    #返却値:: ドラッグアンドドロップが成功していれば、移動範囲を示すハッシュ、失敗していれば nil を返す
+    def Input::get_drag_and_drop_range
+      return @@mouse[:drop][:succeed] ? {:drag_x => @@mouse[:drag][:x], :drag_y => @@mouse[:drag][:y], :drop_x => @@mouse[:pos][:x], :drop_y => @@mouse[:pos][:y]} : nil
+    end
+
+    #===ダブルクリックの間隔を取得する
+    #間隔は、ミリ秒単位で取得できる
+    #返却値:: ボタンのクリック間隔
+    def Input::click_interval
+      return @@mouse[:click][:interval]
+    end
+
+    #===ダブルクリックの間隔を設定する
+    #間隔は、ミリ秒単位で設定できる
+    #_v_:: ボタンのクリック間隔
+    def Input::click_interval=(v)
+      @@mouse[:click][:interval] = v
+    end
+
+    #===マウスカーソルが画面の内側に有るかどうかを問い合わせる
+    #返却値:: マウスカーソルが画面内ならtrueを返す
+    def Input::mouse_cursor_inner?
+      return @@mouse[:inner]
+    end
+
+    #===Alt+Enterキーを押したときにフル・ウィンドウモード切り替えの可否を切り替える
+    def Input::enable_toggle_screen_mode
+      @@toggle_screen_mode = true
+    end
+
+    #===Alt+Enterキーを押したときにフル・ウィンドウモード切り替えを不可にする
+    def Input::disenable_toggle_screen_mode
+      @@toggle_screen_mode = false
+    end
+
+    #===Alt+Enterキーを押したときにフル・ウィンドウモード切り替えができるかどうかを問い合わせる
+    #返却値:: 切り替えができるときは true を返す
+    def Input::toggle_screen_mode?
+      return @@toggle_screen_mode
+    end
+  end
+end