cyross-ruby-miyako 2.0.5.1 → 2.1.0

data/lib/Miyako/API/plane.rb

@@ -1,166 +1,205 @@
-# -*- 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 Plane
-    extend Forwardable
-
-    def resize #:nodoc:
-      @size = Size.new(((Screen.w + @sprite.ow - 1) / @sprite.ow + 2),
-                       ((Screen.h + @sprite.oh - 1) / @sprite.oh + 2))
-    end
-
-    #===インスタンスの作成
-    #パラメータは、Sprite.newのパラメータと同じ。但し、追加のパラメータがある。
-    #
-    #:sprite => (インスタンス)　：　表示対象のスプライト（アニメーション）のインスタンス
-    #
-    #_param_:: プレーンの情報(:sprite(=>Sprite・SpriteAnimationクラスのインスタンス))
-    #返却値:: 生成したインスタンス
-    def initialize(param)
-      if param.has_key?(:sprite)
-        @sprite = param[:sprite]
-      else
-        @sprite = Sprite.new(param)
-      end
-      resize
-      @pos = Point.new(0, 0)
-      @visible = true
-    end
-
-    #===プレーン画像左上の x 座標の値を取得する
-    #元画像の左上の位置がどこにあるのかを示す
-    #返却値:: x 座標の値
-    def x
-      return @pos.x
-    end
-
-    #===プレーン画像左上の y 座標の値を取得する
-    #元画像の左上の位置がどこにあるのかを示す
-    #返却値:: y 座標の値
-    def y
-      return @pos.y
-    end
-
-    #===プレーンの表示位置を移動させる
-    #画像スクロールと同じ効果を得る
-    #_dx_:: 移動量(x 座標)
-    #_dy_:: 移動量(y 座標)
-    #返却値:: 自分自身を返す
-    def move(dx, dy)
-      @pos.move(dx, dy)
-      @pos.x %= @sprite.ow if @pos.x >= @sprite.ow || @pos.x <= -@sprite.ow
-      @pos.y %= @sprite.oh if @pos.y >= @sprite.oh || @pos.y <= -@sprite.oh
-      return self
-    end
-
-    #===プレーンの表示位置を移動させる(移動位置指定)
-    #画像スクロールと同じ効果を得る
-    #_x_:: 移動先の位置(x 座標)
-    #_y_:: 移動先の位置(y 座標)
-    #返却値:: 自分自身を返す
-    def move_to(x, y)
-      @pos.move_to(x, y)
-      @pos.x %= @screen.ow if @pos.x >= @sprite.ow || @pos.x <= -@sprite.ow
-      @pos.y %= @screen.oh if @pos.y >= @sprite.oh || @pos.y <= -@sprite.oh
-      return self
-    end
-
-    #===画像の表示矩形を取得する
-    #Planeの大きさを矩形で取得する。値は、Screen.rectメソッドの値と同じ。
-    #返却値:: 生成された矩形(Rect構造体のインスタンス)
-    def rect
-      return Screen.rect
-    end
-
-    #===現在の画面の最大の大きさを矩形で取得する
-    #但し、Planeの場合は最大の大きさ=画面の大きさなので、rectと同じ値が得られる
-    #返却値:: 生成された矩形(Rect構造体のインスタンス)
-    def broad_rect
-      return self.rect
-    end
-
-    #===プレーンのデータを解放する
-    def dispose
-      @sprite.dispose
-    end
-    
-    #===画面に描画を指示する
-    #現在表示できるプレーンを、現在の状態で描画するよう指示する
-    #--
-    #(但し、実際に描画されるのはScreen.renderメソッドが呼び出された時)
-    #++
-    #返却値:: 自分自身を返す
-    def render
-      @size.h.times{|y|
-        @size.w.times{|x|
-          u = @sprite.to_unit
-          u.move_to(x * @sprite.ow + @pos.x, y * @sprite.oh + @pos.y)
-          Screen.render_screen(u) if u.x >= 0 && u.y >= 0 && u.x + u.ow <= Screen.bitmap.w && u.y + u.oh <= Screen.bitmap.h
-        }
-      }
-      return self
-    end
-    
-    #===現在表示されているプレーンをSpriteクラスのインスタンスとして取得
-    #引数1個のブロックを渡せば、スプライトに補正をかけることが出来る
-    #返却値:: 取り込んだ画像を含むSpriteクラスのインスタンス
-    def to_sprite
-      sprite = Sprite.new(:size=>self.rect.to_a[2..3], :type=>:ac)
-      Drawing.fill(sprite, [0,0,0])
-      Bitmap.ck_to_ac!(sprite, [0,0,0])
-      self.render_to(sprite)
-      yield sprite if block_given?
-      return sprite
-    end
-
-    #===SpriteUnit構造体を生成する
-    #いったんSpriteインスタンスを作成し、それをもとにSpriteUnit構造体を生成する。
-    #返却値:: 生成したSpriteUnit構造体
-    def to_unit
-      return self.to_sprite.to_unit
-    end
-
-    def Plane::resize #:nodoc:
-      @@planes.each{|p| p.resize }
-      return nil
-    end
-
-    #===プレーンを画面に描画する
-    #転送元の描画範囲は、src側SpriteUnitの(ox,oy)を起点にする。
-    #画面の描画範囲は、src側SpriteUnitの(x,y)を起点に、タイリングを行いながら貼り付ける。
-    #visibleメソッドの値がfalseのときは描画されない。
-    def render
-    end
-
-    #===プレーンを画像に描画する
-    #転送元の描画範囲は、src側SpriteUnitの(ox,oy)を起点にする。
-    #転送先の描画範囲は、src側SpriteUnitの(x,y)を起点に、タイリングを行いながら貼り付ける。
-    #visibleメソッドの値がfalseのときは描画されない。
-    #_dst_:: 転送先ビットマップ(to_unitメソッドを呼び出すことが出来る/値がnilではないインスタンス)
-    def render_to(dst)
-    end
-
-    def_delegators(:sprite)
-  end
-end
+# -*- 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
+  #==プレーン(画面いっぱいにタイル表示される画像)を表現するクラス
+  class Plane
+    include SpriteBase
+    include Animation
+    extend Forwardable
+
+    def resize #:nodoc:
+      @size = Size.new(((Screen.w + @sprite.ow - 1) / @sprite.ow + 2),
+                       ((Screen.h + @sprite.oh - 1) / @sprite.oh + 2))
+    end
+
+    #===インスタンスの作成
+    #パラメータは、Sprite.newのパラメータと同じ。但し、追加のパラメータがある。
+    #
+    #:sprite => (インスタンス)　：　表示対象のスプライト（アニメーション）のインスタンス
+    #
+    #_param_:: プレーンの情報(:sprite(=>Sprite・SpriteAnimationクラスのインスタンス))
+    #返却値:: 生成したインスタンス
+    def initialize(param)
+      if param.has_key?(:sprite)
+        @sprite = param[:sprite]
+      else
+        @sprite = Sprite.new(param)
+      end
+      resize
+      @pos = Point.new(0, 0)
+      @visible = true
+    end
+    
+    def initialize_copy(obj) #:nodoc:
+      @sprite = @sprite.dup
+      @pos = @pos.dup
+    end
+
+    #===プレーン画像左上の x 座標の値を取得する
+    #元画像の左上の位置がどこにあるのかを示す
+    #返却値:: x 座標の値
+    def x
+      return @pos.x
+    end
+
+    #===プレーン画像左上の y 座標の値を取得する
+    #元画像の左上の位置がどこにあるのかを示す
+    #返却値:: y 座標の値
+    def y
+      return @pos.y
+    end
+
+    #===プレーンの表示位置を移動させる
+    #画像スクロールと同じ効果を得る
+    #_dx_:: 移動量(x 座標)
+    #_dy_:: 移動量(y 座標)
+    #返却値:: 自分自身を返す
+    def move!(dx, dy)
+      @pos.move!(dx, dy)
+      @pos.x %= @sprite.ow if @pos.x >= @sprite.ow || @pos.x <= -@sprite.ow
+      @pos.y %= @sprite.oh if @pos.y >= @sprite.oh || @pos.y <= -@sprite.oh
+      return self
+    end
+
+    #===プレーンの表示位置を移動させる(移動位置指定)
+    #画像スクロールと同じ効果を得る
+    #_x_:: 移動先の位置(x 座標)
+    #_y_:: 移動先の位置(y 座標)
+    #返却値:: 自分自身を返す
+    def move_to!(x, y)
+      @pos.move_to!(x, y)
+      @pos.x %= @screen.ow if @pos.x >= @sprite.ow || @pos.x <= -@sprite.ow
+      @pos.y %= @screen.oh if @pos.y >= @sprite.oh || @pos.y <= -@sprite.oh
+      return self
+    end
+
+    #===プレーンの表示位置を移動させたときの位置を求める
+    #画像スクロールと同じ効果を得る
+    #ただし、自分自身の位置は変わらない
+    #_dx_:: 移動量(x 座標)
+    #_dy_:: 移動量(y 座標)
+    #返却値:: 変更したPosition構造体を返す
+    def move!(dx, dy)
+      @pos.move!(dx, dy)
+      @pos.x %= @sprite.ow if @pos.x >= @sprite.ow || @pos.x <= -@sprite.ow
+      @pos.y %= @sprite.oh if @pos.y >= @sprite.oh || @pos.y <= -@sprite.oh
+      return self
+    end
+
+    #===プレーンの表示位置を移動させたときの位置を求める(移動位置指定)
+    #画像スクロールと同じ効果を得る
+    #ただし、自分自身の位置は変わらない
+    #_x_:: 移動先の位置(x 座標)
+    #_y_:: 移動先の位置(y 座標)
+    #返却値:: 変更したPosition構造体を返す
+    def move_to!(x, y)
+      @pos.move_to!(x, y)
+      @pos.x %= @screen.ow if @pos.x >= @sprite.ow || @pos.x <= -@sprite.ow
+      @pos.y %= @screen.oh if @pos.y >= @sprite.oh || @pos.y <= -@sprite.oh
+      return self
+    end
+
+    #===画像の表示矩形を取得する
+    #Planeの大きさを矩形で取得する。値は、Screen.rectメソッドの値と同じ。
+    #返却値:: 生成された矩形(Rect構造体のインスタンス)
+    def rect
+      return Screen.rect
+    end
+
+    #===現在の画面の最大の大きさを矩形で取得する
+    #但し、Planeの場合は最大の大きさ=画面の大きさなので、rectと同じ値が得られる
+    #返却値:: 生成された矩形(Rect構造体のインスタンス)
+    def broad_rect
+      return self.rect
+    end
+
+    #===プレーンのデータを解放する
+    def dispose
+      @sprite.dispose
+    end
+    
+    #===画面に描画を指示する
+    #現在表示できるプレーンを、現在の状態で描画するよう指示する
+    #--
+    #(但し、実際に描画されるのはScreen.renderメソッドが呼び出された時)
+    #++
+    #返却値:: 自分自身を返す
+    def render
+      @size.h.times{|y|
+        @size.w.times{|x|
+          u = @sprite.to_unit
+          u.move_to(x * @sprite.ow + @pos.x, y * @sprite.oh + @pos.y)
+          Screen.render_screen(u) if u.x >= 0 && u.y >= 0 && u.x + u.ow <= Screen.bitmap.w && u.y + u.oh <= Screen.bitmap.h
+        }
+      }
+      return self
+    end
+    
+    #===描画の素になるスプライトのアニメーションを更新する
+    #返却値:: 更新した結果、パターンが変わった・アニメーションが終了したときはtrue、それ以外はfalseを返す
+    def update_animation
+      return @sprite.update_animation
+    end
+
+    #===現在表示されているプレーンをSpriteクラスのインスタンスとして取得
+    #引数1個のブロックを渡せば、スプライトに補正をかけることが出来る
+    #返却値:: 取り込んだ画像を含むSpriteクラスのインスタンス
+    def to_sprite
+      sprite = Sprite.new(:size=>self.rect.to_a[2..3], :type=>:ac)
+      Drawing.fill(sprite, [0,0,0])
+      Bitmap.ck_to_ac!(sprite, [0,0,0])
+      self.render_to(sprite)
+      yield sprite if block_given?
+      return sprite
+    end
+
+    #===SpriteUnit構造体を生成する
+    #いったんSpriteインスタンスを作成し、それをもとにSpriteUnit構造体を生成する。
+    #返却値:: 生成したSpriteUnit構造体
+    def to_unit
+      return self.to_sprite.to_unit
+    end
+
+    def Plane::resize #:nodoc:
+      @@planes.each{|p| p.resize }
+      return nil
+    end
+
+    #===プレーンを画面に描画する
+    #転送元の描画範囲は、src側SpriteUnitの(ox,oy)を起点にする。
+    #画面の描画範囲は、src側SpriteUnitの(x,y)を起点に、タイリングを行いながら貼り付ける。
+    #visibleメソッドの値がfalseのときは描画されない。
+    def render
+    end
+
+    #===プレーンを画像に描画する
+    #転送元の描画範囲は、src側SpriteUnitの(ox,oy)を起点にする。
+    #転送先の描画範囲は、src側SpriteUnitの(x,y)を起点に、タイリングを行いながら貼り付ける。
+    #visibleメソッドの値がfalseのときは描画されない。
+    #_dst_:: 転送先ビットマップ(to_unitメソッドを呼び出すことが出来る/値がnilではないインスタンス)
+    def render_to(dst)
+    end
+
+    def_delegators(:sprite)
+  end
+end

data/lib/Miyako/API/screen.rb

@@ -1,325 +1,341 @@
-# -*- 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
-
-require 'singleton'
-
-module Miyako
-  #プログラムで使用する色深度を示す。デフォルトは現在システムが使用している色深度
-  $miyako_bpp ||= SDL.video_info.bpp
-  #色深度が32ビット以外の時はエラーを返す
-  raise MiyakoError, "Unsupported Color bits! : #{$miyako_bpp}" unless [32].include?($miyako_bpp)
-
-  #==画面管理モジュール
-  module Screen
-    #デフォルトの画面解像度(幅)
-    DefaultWidth = 640
-    #デフォルトの画面解像度(高さ)
-    DefaultHeight = 480
-    #Miyakoで使用する色深度
-    BPP = $miyako_bpp
-    #fpsの最大値(1000fps)
-    FpsMax = 1000
-    #画面モードの数(ウインドウモード、フルスクリーンモード)
-    WINMODES = 2
-    #ウインドウモードを示す値
-    WINDOW_MODE = 0
-    #フルスクリーンモードを示す値
-    FULLSCREEN_MODE = 1
-
-    #ウインドウモード・フルスクリーンモードを切り替える際のフラグを示す配列
-    ScreenFlag = $miyako_use_opengl ? [SDL::OPENGL, SDL::OPENGL | SDL::FULLSCREEN] : [SDL::HWSURFACE | SDL::DOUBLEBUF | SDL::ANYFORMAT, SDL::ANYFORMAT | SDL::FULLSCREEN]
-    
-    if $miyako_use_opengl
-      SDL::GL.set_attr(SDL::GL::RED_SIZE, 8)
-      SDL::GL.set_attr(SDL::GL::GREEN_SIZE, 8)
-      SDL::GL.set_attr(SDL::GL::BLUE_SIZE, 8)
-      SDL::GL.set_attr(SDL::GL::ALPHA_SIZE, 8)
-      SDL::GL.set_attr(SDL::GL::DEPTH_SIZE, 32)
-      SDL::GL.set_attr(SDL::GL::STENCIL_SIZE, 32)
-      SDL::GL.set_attr(SDL::GL::DOUBLEBUFFER, 1)
-    end
-    
-    def Screen::get_fps_count
-      return @@fps == 0 ? 0 : FpsMax / @@fps
-    end
-
-    @@fps = 0 # fps=0 : no-limit
-    @@fpsView = false
-    @@fpscnt = Screen::get_fps_count
-    @@interval = 0
-    @@min_interval = 3
-    @@min_interval_r = @@min_interval / 1000
-    @@t = 0
-    @@freezing  = false
-    @@mode      = WINDOW_MODE
-    @@unit      = SpriteUnitFactory.create
-
-    @@size      = Size.new(DefaultWidth, DefaultHeight)
-    @@in_the_scene = false
-
-    @@screen = nil
-    @@viewport = nil
-    
-    @@pre_render_array = []
-    @@auto_render_array = []
-    
-    #===画面の状態(ウインドウモードとフルスクリーンモード)を設定する
-    #_v_:: ウィンドウモードのときは、Screen::WINDOW_MODE、 フルスクリーンモードのときはScreen::FULLSCREEN_MODE
-    def Screen::set_mode(v)
-      if v.to_i == WINDOW_MODE || v.to_i == FULLSCREEN_MODE
-        @@mode = v.to_i
-        Screen::check_mode_error
-      end
-    end
-
-    #=== 事前描画インスタンス配列を取得する
-    #Screenモジュールに属している事前レンダー(プリレンダー)配列にアクセス可能
-    #この配列に取り込んだインスタンスは、配列インデックスの順に描画される
-    #また、配列の要素は、必ずrenderメソッドを実装していなければならない(renderメソッドで描画するため)
-    #但し、配列の要素が配列のときは、再帰的に描画が可能
-    #描画は、Screen.pre_renderメソッドの明示的呼び出しで実行される
-    #返却値:: 自動描画配列
-    def Screen::pre_render_array
-      @@pre_render_array
-    end
-
-    #=== 自動描画インスタンス配列を取得する
-    #Screenモジュールに属しているオートレンダー(自動描画)配列にアクセス可能
-    #この配列に取り込んだインスタンスは、配列インデックスの順に描画される
-    #また、配列の要素は、必ずrenderメソッドを実装していなければならない(renderメソッドで描画するため)
-    #但し、配列の要素が配列のときは、再帰的に描画が可能
-    #返却値:: 自動描画配列
-    def Screen::auto_render_array
-      @@auto_render_array
-    end
-
-    #===ウインドウモードとフルスクリーンモードを切り替える
-    def Screen::toggle_mode
-      @@mode = (@@mode + 1) % WINMODES
-      Screen::check_mode_error
-    end
-
-    def Screen::fps # :nodoc:
-      return @@fps
-    end
-
-    def Screen::fps=(val) # :nodoc:
-      @@fps = val
-      @@fpscnt = @@fps == 0 ? 0 : Screen::get_fps_count
-    end
-
-    def Screen::fps_view # :nodoc:
-      return @@fpsView
-    end
-
-    def Screen::fps_view=(val) # :nodoc:
-      @@fpsView = val
-    end
-
-    #===画面を管理するインスタンスを取得する
-    #返却値:: 画面インスタンス(SDL::Screenクラスのインスタンス)
-    def Screen::bitmap
-      return @@screen
-    end
-
-    #===画面の幅を取得する
-    #返却値:: 画面の幅(ピクセル)
-    def Screen::w
-      return @@size[0]
-    end
-
-    #===画面の高さを取得する
-    #返却値:: 画面の高さ(ピクセル)
-    def Screen::h
-      return @@size[1]
-    end
-
-    #===画面を管理するSpriteUnitを取得する
-    #得られるインスタンスは複写していないので、インスタンスの値を調整するには、dupメソッドで複製する必要がある
-    #返却値:: SpriteUnitインスタンス
-    def Screen::to_unit
-      return @@unit
-    end
-
-    #===画像の回転・拡大・縮小の中心座標を取得する
-    #x方向の中心座標を取得する
-    #返却値:: 中心座標。
-    def Screen::center_x
-      return @@unit.cx
-    end
-
-    #===画像の回転・拡大・縮小の中心座標を取得する
-    #x方向の中心座標を取得する
-    #_pos_:: 中心座標
-    def Screen::center_x=(pos)
-      @@unit.cx = pos
-    end
-
-    #===画像の回転・拡大・縮小の中心座標を取得する
-    #y方向の中心座標を取得する
-    #返却値:: 中心座標。
-    def Screen::center_y
-      return @@unit.cy
-    end
-
-    #===画像の回転・拡大・縮小の中心座標を取得する
-    #y方向の中心座標を取得する
-    #_pos_:: 中心座標
-    def Screen::center_y=(pos)
-      @@unit.cy = pos
-    end
-
-    #===現在の画面の大きさを矩形で取得する
-    #返却値:: 画像の大きさ(Rect構造体のインスタンス)
-    def Screen::rect
-      return Rect.new(*([0, 0]+@@size.to_a))
-    end
-
-    #===現在の画面の最大の大きさを矩形で取得する
-    #但し、Screenの場合は最大の大きさ=画面の大きさなので、rectと同じ値が得られる
-    #返却値:: 画像の大きさ(Rect構造体のインスタンス)
-    def Screen::broad_rect
-      return Screen.rect
-    end
-
-    #===現在のビューポート(表示区画)を取得する
-    #ビューポートの設定は、Viewport#renderで行う
-    #返却値:: ビューポート(Viewportクラスのインスタンス)
-    def Screen::viewport
-      return @@viewport
-    end
-
-    #===現在の画面の大きさを取得する
-    #返却値:: 画像の大きさ(Size構造体のインスタンス)
-    def Screen::size
-      return @@size.dup
-    end
-
-    #===Segment構造体を生成する
-    # 生成される線分は、x方向が[0,w-1]、y方向が[0,h-1]となる
-    #返却値:: 生成したSegment構造体インスタンス
-    def Screen::segment
-			return Segment.new([0, @@size[0]-1], [0, @@size[1]-1])
-    end
-
-    #===画面のサーフェスを生成する
-    #グローバル変数$miyako_open_screen==falseの時に有効
-    #画面サーフェスを生成し、表示させる
-    #require 'Miyako/miyako'を記述する前に、"$miyako_open_screen=false"と記述すると
-    def Screen::open
-      @@screen = SDL::Screen.open(*(@@size.to_a << BPP << ScreenFlag[@@mode]))
-      SpriteUnitFactory.apply(@@unit, {:bitmap=>@@screen, :ow=>@@screen.w, :oh=>@@screen.h})
-      @@viewport = Viewport.new(0, 0, @@screen.w, @@screen.h)
-    end
-
-    def Screen::set_screen #:nodoc:
-      return false unless SDL.checkVideoMode(*(@@size.to_a << BPP << ScreenFlag[@@mode]))
-      self.open
-      return true
-    end
-
-    #===画面の大きさを変更する
-    #単位はピクセル単位
-    #_w_:: 画面の幅
-    #_h_:: 画面の高さ
-    #返却値:: 変更に成功したときは trueを返す
-    def Screen::set_size(w, h)
-      return unless @@screen
-      return false unless SDL.checkVideoMode(w, h, BPP, ScreenFlag[@@mode])
-      @@size = Size.new(w, h)
-      self.open
-      return true
-    end
-
-    def Screen::check_mode_error #:nodoc:
-      unless Screen::set_screen
-        print "Sorry, this system not supported display...\n";
-        exit(1)
-      end
-    end
-
-    Screen::check_mode_error
-
-    #===現在表示されている画面を画像(Spriteクラスのインスタンス)として取り込む
-    #_param_:: Spriteインスタンスを生成するときに渡すパラメータ(但し、:sizeと:typeのみ使用する)
-    #_rect_:: 取り込む画像の矩形(4要素の配列もしくはRect構造体のインスタンス)
-    #デフォルトは画面の大きさ
-    #返却値:: 取り込んだ画像を含むSpriteクラスのインスタンス
-    def Screen::capture(param, rect = ([0, 0] + @@size.to_a))
-      param = param.dup
-      param[:size] = Size.new(*(rect[2..3]))
-      dst = Sprite.new(param)
-      SDL.blit_surface(*([@@screen] + rect.to_a << dst.bitmap << 0 << 0))
-      return dst
-    end
-
-    #===現在表示されている画面を複製し、Spriteクラスのインスタンスとして取得
-    #Screen.captureとの違いは、パラメータ・サイズは不変(画面の大きさで複製)で取り扱う。
-    #引数1個のブロックを渡せば、スプライトに補正をかけることが出来る
-    #返却値:: 取り込んだ画像を含むSpriteクラスのインスタンス
-    def Screen::to_sprite
-      dst = Sprite.new(:size => Size.new(*(rect[2..3])), :type => :ac)
-      Bitmap.screen_to_ac(Screen, dst)
-      yield dst if block_given?
-      return dst
-    end
-
-    #===画像を消去する
-    #画像を黒色([0,0,0,0])で塗りつぶす
-    def Screen::clear
-      return unless @@screen
-      @@screen.fillRect(0, 0, @@screen.w, @@screen.h, [0, 0, 0, 0])
-    end
-    
-    #===プリレンダー配列に登録されたインスタンスを画面に描画する
-    #Screen.pre_render_arrayに登録したインスタンスを描画する
-    def Screen::pre_render
-    end
-    
-    #===画面を更新する
-    #描画した画面を、実際にミニ見える形に反映させる
-    #呼び出し時に画面の消去は行われないため、消去が必要なときは明示的にScreen.clearメソッドを呼び出す必要がある
-    #また、自動描画配列にインスタンスを入れているときは、このメソッドを呼び出した時に描画されるため
-    #(つまり、表示の最後に描画される)、描画の順番に注意して配列を利用すること
-    def Screen::render
-      Shape.text(
-        {
-          :text => (FpsMax/(@@interval == 0 ? 1 : @@interval)).to_s() + " fps",
-          :font => Font.sans_serif
-        }
-      ).render if @@fpsView
-      Screen::update_tick
-      @@screen.flip
-    end
-
-    #===インスタンスの内容を画面に描画する
-    #転送元の描画範囲は、src側SpriteUnitの(ox,oy)を起点に、src側(ow,oh)の範囲で転送する。
-    #画面の描画範囲は、src側SpriteUnitの(x,y)を起点に設定にする。
-    #ブロック付きで呼び出し可能(レシーバに対応したSpriteUnit構造体が引数として得られるので、補正をかけることが出来る)
-    #(ブロック引数のインスタンスは複写しているので、メソッドの引数として渡した値が持つSpriteUnitには影響しない)
-    #ブロックの引数は、|インスタンスのSpriteUnit,画面のSpriteUnit|となる。
-    #_src_:: 転送元ビットマップ(to_unitメソッドを呼び出すことが出来る/値がnilではないインスタンス)
-    #返却値:: 自分自身を返す
-    def Screen::render_screen(src)
-    end
-  end
-end
+# -*- 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
+
+require 'singleton'
+
+module Miyako
+
+  #==画面管理モジュール
+  module Screen
+    #デフォルトの画面解像度(幅)
+    DefaultWidth = 640
+    #デフォルトの画面解像度(高さ)
+    DefaultHeight = 480
+    #fpsの最大値(1000fps)
+    FpsMax = 1000
+    #画面モードの数(ウインドウモード、フルスクリーンモード)
+    WINMODES = 2
+    #ウインドウモードを示す値
+    WINDOW_MODE = 0
+    #フルスクリーンモードを示す値
+    FULLSCREEN_MODE = 1
+    #ウインドウモード・フルスクリーンモードを切り替える際のフラグを示す配列
+    ScreenFlag = $miyako_use_opengl ? [SDL::OPENGL, SDL::OPENGL | SDL::FULLSCREEN] : [SDL::HWSURFACE | SDL::DOUBLEBUF | SDL::ANYFORMAT, SDL::ANYFORMAT | SDL::FULLSCREEN]
+
+    def Screen::get_fps_count
+      return @@fps == 0 ? 0 : FpsMax / @@fps
+    end
+
+    @@initialized = false
+
+    @@fps = 0 # fps=0 : no-limit
+    @@fpsView = false
+    @@fpscnt = Screen::get_fps_count
+    @@interval = 0
+    @@min_interval = 3
+    @@min_interval_r = @@min_interval / 1000
+    @@t = 0
+    @@freezing  = false
+    @@mode      = WINDOW_MODE
+    @@unit      = SpriteUnitFactory.create
+
+    @@size      = Size.new(DefaultWidth, DefaultHeight)
+    @@in_the_scene = false
+    @@screen = nil
+    @@viewport = nil
+    
+    @@pre_render_array = []
+    @@auto_render_array = []
+
+    #===画面関連の初期化処理
+    #呼び出し時に、別プロセスで生成したSDL::Screenクラスインスタンスを引数として渡すと、
+    #Miyakoはこのインスタンスを利用して描画を行う
+    #ただし、既に初期化済みの時はMiyakoErrorが発生する
+    #_screen_:: 別のプロセスで生成されたSDL::Screenクラスのインスタンス。省略時はnil
+    def Screen.init(screen = nil)
+      raise MiyakoError, "Already initialized!" if @@initialized
+      #プログラムで使用する色深度を示す。デフォルトは現在システムが使用している色深度
+      $miyako_bpp ||= SDL.video_info.bpp
+      #色深度が32ビット以外の時はエラーを返す
+      raise MiyakoError, "Unsupported Color bits! : #{$miyako_bpp}" unless [32].include?($miyako_bpp)
+
+      if $miyako_use_opengl
+        SDL::GL.set_attr(SDL::GL::RED_SIZE, 8)
+        SDL::GL.set_attr(SDL::GL::GREEN_SIZE, 8)
+        SDL::GL.set_attr(SDL::GL::BLUE_SIZE, 8)
+        SDL::GL.set_attr(SDL::GL::ALPHA_SIZE, 8)
+        SDL::GL.set_attr(SDL::GL::DEPTH_SIZE, 32)
+        SDL::GL.set_attr(SDL::GL::STENCIL_SIZE, 32)
+        SDL::GL.set_attr(SDL::GL::DOUBLEBUFFER, 1)
+      end
+
+      Screen::check_mode_error(screen)
+      @@initialized = true
+    end
+
+    #===画面関係の初期化がされた？
+    def Screen.initialized?
+      @@initialized
+    end
+    
+    #===画面の状態(ウインドウモードとフルスクリーンモード)を設定する
+    #_v_:: ウィンドウモードのときは、Screen::WINDOW_MODE、 フルスクリーンモードのときはScreen::FULLSCREEN_MODE
+    def Screen::set_mode(v)
+      if v.to_i == WINDOW_MODE || v.to_i == FULLSCREEN_MODE
+        @@mode = v.to_i
+        Screen::check_mode_error
+      end
+    end
+
+    #=== 事前描画インスタンス配列を取得する
+    #Screenモジュールに属している事前レンダー(プリレンダー)配列にアクセス可能
+    #この配列に取り込んだインスタンスは、配列インデックスの順に描画される
+    #また、配列の要素は、必ずrenderメソッドを実装していなければならない(renderメソッドで描画するため)
+    #但し、配列の要素が配列のときは、再帰的に描画が可能
+    #描画は、Screen.pre_renderメソッドの明示的呼び出しで実行される
+    #返却値:: 自動描画配列
+    def Screen::pre_render_array
+      @@pre_render_array
+    end
+
+    #=== 自動描画インスタンス配列を取得する
+    #Screenモジュールに属しているオートレンダー(自動描画)配列にアクセス可能
+    #この配列に取り込んだインスタンスは、配列インデックスの順に描画される
+    #また、配列の要素は、必ずrenderメソッドを実装していなければならない(renderメソッドで描画するため)
+    #但し、配列の要素が配列のときは、再帰的に描画が可能
+    #返却値:: 自動描画配列
+    def Screen::auto_render_array
+      @@auto_render_array
+    end
+
+    #===ウインドウモードとフルスクリーンモードを切り替える
+    def Screen::toggle_mode
+      @@mode = (@@mode + 1) % WINMODES
+      Screen::check_mode_error
+    end
+
+    def Screen::fps # :nodoc:
+      return @@fps
+    end
+
+    def Screen::fps=(val) # :nodoc:
+      @@fps = val
+      @@fpscnt = @@fps == 0 ? 0 : Screen::get_fps_count
+    end
+
+    def Screen::fps_view # :nodoc:
+      return @@fpsView
+    end
+
+    def Screen::fps_view=(val) # :nodoc:
+      @@fpsView = val
+    end
+
+    #===画面を管理するインスタンスを取得する
+    #返却値:: 画面インスタンス(SDL::Screenクラスのインスタンス)
+    def Screen::bitmap
+      return @@screen
+    end
+
+    #===画面の幅を取得する
+    #返却値:: 画面の幅(ピクセル)
+    def Screen::w
+      return @@size[0]
+    end
+
+    #===画面の高さを取得する
+    #返却値:: 画面の高さ(ピクセル)
+    def Screen::h
+      return @@size[1]
+    end
+
+    #===画面を管理するSpriteUnitを取得する
+    #新しいSpriteUnitを作成して返す
+    #返却値:: SpriteUnitインスタンス
+    def Screen::to_unit
+      return @@unit.dup
+    end
+
+    #===画像の回転・拡大・縮小の中心座標を取得する
+    #x方向の中心座標を取得する
+    #返却値:: 中心座標。
+    def Screen::center_x
+      return @@unit.cx
+    end
+
+    #===画像の回転・拡大・縮小の中心座標を取得する
+    #x方向の中心座標を取得する
+    #_pos_:: 中心座標
+    def Screen::center_x=(pos)
+      @@unit.cx = pos
+    end
+
+    #===画像の回転・拡大・縮小の中心座標を取得する
+    #y方向の中心座標を取得する
+    #返却値:: 中心座標。
+    def Screen::center_y
+      return @@unit.cy
+    end
+
+    #===画像の回転・拡大・縮小の中心座標を取得する
+    #y方向の中心座標を取得する
+    #_pos_:: 中心座標
+    def Screen::center_y=(pos)
+      @@unit.cy = pos
+    end
+
+    #===現在の画面の大きさを矩形で取得する
+    #返却値:: 画像の大きさ(Rect構造体のインスタンス)
+    def Screen::rect
+      return Rect.new(*([0, 0]+@@size.to_a))
+    end
+
+    #===現在の画面の最大の大きさを矩形で取得する
+    #但し、Screenの場合は最大の大きさ=画面の大きさなので、rectと同じ値が得られる
+    #返却値:: 画像の大きさ(Rect構造体のインスタンス)
+    def Screen::broad_rect
+      return Screen.rect
+    end
+
+    #===現在のビューポート(表示区画)を取得する
+    #ビューポートの設定は、Viewport#renderで行う
+    #返却値:: ビューポート(Viewportクラスのインスタンス)
+    def Screen::viewport
+      return @@viewport
+    end
+
+    #===現在の画面の大きさを取得する
+    #返却値:: 画像の大きさ(Size構造体のインスタンス)
+    def Screen::size
+      return @@size.dup
+    end
+
+    #===Segment構造体を生成する
+    # 生成される線分は、x方向が[0,w-1]、y方向が[0,h-1]となる
+    #返却値:: 生成したSegment構造体インスタンス
+    def Screen::segment
+			return Segment.new([0, @@size[0]-1], [0, @@size[1]-1])
+    end
+
+    #===画面のサーフェスを生成する
+    #グローバル変数$miyako_open_screen==falseの時に有効
+    #画面サーフェスを生成し、表示させる
+    #事前に何もせずにrequire 'Miyako/miyako'を行うと本メソッドが自動的に呼ばれる。
+    #require 前に"$miyako_open_screen=false"と記述すると、本メソッドの呼び出しが抑制される。
+    #_screen_:: 別のプロセスで生成されたSDL::Screenクラスのインスタンス。省略時はnil
+    def Screen::open(screen = nil)
+      @@screen = screen ? screen : SDL::Screen.open(*(@@size.to_a << $miyako_bpp << ScreenFlag[@@mode]))
+      SpriteUnitFactory.apply(@@unit, {:bitmap=>@@screen, :ow=>@@screen.w, :oh=>@@screen.h})
+      @@size = Size.new(@@screen.w, @@screen.h)
+      @@viewport = Viewport.new(0, 0, @@screen.w, @@screen.h)
+    end
+
+    def Screen::set_screen(screen = nil) #:nodoc:
+      return false unless (screen || SDL.checkVideoMode(*(@@size.to_a << $miyako_bpp << ScreenFlag[@@mode])))
+      self.open(screen)
+      return true
+    end
+
+    #===画面の大きさを変更する
+    #単位はピクセル単位
+    #_w_:: 画面の幅
+    #_h_:: 画面の高さ
+    #返却値:: 変更に成功したときは trueを返す
+    def Screen::set_size(w, h)
+      return unless @@screen
+      return false unless SDL.checkVideoMode(w, h, $miyako_bpp, ScreenFlag[@@mode])
+      @@size = Size.new(w, h)
+      self.open
+      return true
+    end
+
+    def Screen::check_mode_error(screen = nil) #:nodoc:
+      unless Screen::set_screen(screen)
+        raise MiyakoError, "Sorry, this system not supported display...";
+        exit(1)
+      end
+    end
+
+    #===現在表示されている画面を画像(Spriteクラスのインスタンス)として取り込む
+    #_param_:: Spriteインスタンスを生成するときに渡すパラメータ(但し、:sizeと:typeのみ使用する)
+    #_rect_:: 取り込む画像の矩形(4要素の配列もしくはRect構造体のインスタンス)
+    #デフォルトは画面の大きさ
+    #返却値:: 取り込んだ画像を含むSpriteクラスのインスタンス
+    def Screen::capture(param, rect = ([0, 0] + @@size.to_a))
+      param = param.dup
+      param[:size] = Size.new(*(rect[2..3]))
+      dst = Sprite.new(param)
+      SDL.blit_surface(*([@@screen] + rect.to_a << dst.bitmap << 0 << 0))
+      return dst
+    end
+
+    #===現在表示されている画面を複製し、Spriteクラスのインスタンスとして取得
+    #Screen.captureとの違いは、パラメータ・サイズは不変(画面の大きさで複製)で取り扱う。
+    #引数1個のブロックを渡せば、スプライトに補正をかけることが出来る
+    #返却値:: 取り込んだ画像を含むSpriteクラスのインスタンス
+    def Screen::to_sprite
+      dst = Sprite.new(:size => Size.new(*(rect[2..3])), :type => :ac)
+      Bitmap.screen_to_ac(Screen, dst)
+      yield dst if block_given?
+      return dst
+    end
+
+    #===画像を消去する
+    #画像を黒色([0,0,0,0])で塗りつぶす
+    def Screen::clear
+      return unless @@screen
+      @@screen.fillRect(0, 0, @@screen.w, @@screen.h, [0, 0, 0, 0])
+    end
+    
+    #===プリレンダー配列に登録されたインスタンスを画面に描画する
+    #Screen.pre_render_arrayに登録したインスタンスを描画する
+    def Screen::pre_render
+    end
+    
+    #===画面を更新する
+    #描画した画面を、実際にミニ見える形に反映させる
+    #呼び出し時に画面の消去は行われないため、消去が必要なときは明示的にScreen.clearメソッドを呼び出す必要がある
+    #また、自動描画配列にインスタンスを入れているときは、このメソッドを呼び出した時に描画されるため
+    #(つまり、表示の最後に描画される)、描画の順番に注意して配列を利用すること
+    def Screen::render
+      Shape.text(
+        {
+          :text => (FpsMax/(@@interval == 0 ? 1 : @@interval)).to_s() + " fps",
+          :font => Font.sans_serif
+        }
+      ).render if @@fpsView
+      Screen::update_tick
+      @@screen.flip
+    end
+
+    #===インスタンスの内容を画面に描画する
+    #転送元の描画範囲は、src側SpriteUnitの(ox,oy)を起点に、src側(ow,oh)の範囲で転送する。
+    #画面の描画範囲は、src側SpriteUnitの(x,y)を起点に設定にする。
+    #ブロック付きで呼び出し可能(レシーバに対応したSpriteUnit構造体が引数として得られるので、補正をかけることが出来る)
+    #(ブロック引数のインスタンスは複写しているので、メソッドの引数として渡した値が持つSpriteUnitには影響しない)
+    #ブロックの引数は、|インスタンスのSpriteUnit,画面のSpriteUnit|となる。
+    #_src_:: 転送元ビットマップ(to_unitメソッドを呼び出すことが出来る/値がnilではないインスタンス)
+    #返却値:: 自分自身を返す
+    def Screen::render_screen(src)
+    end
+  end
+end