cyross-ruby-miyako-mswin32 2.0.5

data/lib/Miyako/API/parts.rb

@@ -0,0 +1,189 @@
+# -*- 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
+  #==パーツ構成クラス
+  #複数のスプライト・アニメーションをまとめて一つの部品として構成できるクラス
+  #
+  #最初に、基準となる「レイアウト空間(LayoutSpaceクラスのインスタンス)」を登録し、その上にパーツを加える
+  #
+  #すべてのパーツは、すべてレイアウト空間にスナップされる
+  #(登録したパーツのレイアウト情報が変わることに注意)
+  class Parts
+    include Enumerable
+    include Layout
+    extend Forwardable
+
+    attr_accessor :visible #レンダリングの可否(true->描画 false->非描画)
+
+    #===Partsクラスインスタンスを生成
+    #_size_:: パーツ全体の大きさ。Size構造体のインスタンスもしくは要素数が2の配列
+    def initialize(size)
+      @parts = {}
+      @parts_list = []
+      @visible = true
+
+      init_layout
+      set_layout_size(size[0], size[1])
+    end
+
+    #===nameで示した補助パーツを返す
+    #_name_:: 補助パーツに与えた名前(シンボル)
+    #返却値:: 自分自身
+    def [](name)
+      return @parts[name]
+    end
+
+    #===補助パーツvalueをnameに割り当てる
+    #_name_:: 補助パーツに与える名前(シンボル)
+    #_value_:: 補助パーツのインスタンス(スプライト、テキストボックス、アニメーション、レイアウトボックスなど)
+    #返却値:: 自分自身
+    def []=(name, value)
+      @parts_list.push(name)
+      @parts[name] = value
+      @parts[name].snap(self)
+      return self
+    end
+
+    #===すべての補助パーツの一覧を配列で返す
+    #返却値:: パーツ名の配列(登録順)
+    def parts
+      return @parts_list
+    end
+
+    #===指定の補助パーツを除外する
+    #_name_:: 除外するパーツ名(シンボル)
+    #返却値:: 自分自身
+    def remove(name)
+      self.delete_snap_child(@parts[name])
+      @parts.delete(name)
+      return self
+    end
+
+    #===メインパーツと補助パーツに対してブロックを評価する
+    #返却値:: 自分自身
+    def each
+      @parts_list.each{|k| yield @parts[k] }
+      return self
+    end
+
+    #===メインパーツと補助パーツのすべてのアニメーションを開始する
+    #返却値:: 自分自身
+    def start
+      self.each{|parts| parts.start }
+      return self
+    end
+
+    #===メインパーツと補助パーツのすべてのアニメーションを停止する
+    #返却値:: 自分自身
+    def stop
+      self.each{|parts| parts.stop }
+      return self
+    end
+
+    #===メインパーツと補助パーツのすべてのアニメーションを更新する
+    #返却値:: 自分自身
+    def update_animation
+      self.each{|parts| parts.update_animation }
+    end
+
+    #===メインパーツと補助パーツのすべてのアニメーションを、最初のパターンに巻き戻す
+    #返却値:: 自分自身
+    def reset
+      self.each{|parts| parts.reset }
+      return self
+    end
+
+    def update #:nodoc:
+      self.each{|parts| parts.update }
+      return self
+    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
+      return self.rect if @parts_list.length == 0
+      rect_list = rect.zip(*(self.map{|parts| parts.broad_rect.to_a}))
+      # 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
+
+    #===パーツに登録しているインスタンスを解放する
+    def dispose
+      @parts_list.clear
+      @parts_list = nil
+      @parts.clear
+      @parts = nil
+    end
+
+    #===パーツを画面に描画する
+    #各パーツの描画範囲は、それぞれのSpriteUnitの(ox,oy)を起点にする。
+    #画面の描画範囲は、src側SpriteUnitの(x,y)を起点に、各パーツを貼り付ける。
+    #ブロック付きで呼び出し可能(レシーバに対応したSpriteUnit構造体が引数として得られるので、補正をかけることが出来る)
+    #(ブロック引数のインスタンスは複写しているので、メソッドの引数として渡した値が持つSpriteUnitには影響しない)
+    #ブロックの引数は、|パーツのSpriteUnit|となる。
+    #デフォルトでは、描画順は登録順となる。順番を変更したいときは、renderメソッドをオーバーライドする必要がある
+    #visibleメソッドの値がfalseのときは描画されない。
+    def render
+    end
+
+    #===パーツを画面に描画する
+    #各パーツの描画範囲は、それぞれのSpriteUnitの(ox,oy)を起点にする。
+    #転送先の描画範囲は、src側SpriteUnitの(x,y)を起点に、タイリングを行いながら貼り付ける。
+    #ブロック付きで呼び出し可能(レシーバに対応したSpriteUnit構造体が引数として得られるので、補正をかけることが出来る)
+    #(ブロック引数のインスタンスは複写しているので、メソッドの引数として渡した値が持つSpriteUnitには影響しない)
+    #ブロックの引数は、|パーツのSpriteUnit|となる。
+    #デフォルトでは、描画順は登録順となる。順番を変更したいときは、render_toメソッドをオーバーライドする必要がある
+    #visibleメソッドの値がfalseのときは描画されない。
+    #_dst_:: 転送先ビットマップ(to_unitメソッドを呼び出すことが出来る/値がnilではないインスタンス)
+    def render_to(dst)
+    end
+  end
+end

data/lib/Miyako/API/plane.rb

@@ -0,0 +1,166 @@
+# -*- 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

data/lib/Miyako/API/screen.rb

@@ -0,0 +1,325 @@
+# -*- 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