cyross-ruby-miyako 2.0.0 → 2.0.5.1.0

data/lib/Miyako/API/utility.rb

@@ -0,0 +1,388 @@
+# -*- 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
+  #==ユーティリティモジュール
+  module Utility
+    def Utility.get_step_array_f(v1, v2, amount, skip_even = false) #:nodoc:
+      steps = []
+      amount = amount.abs
+      val = v1
+      if v1 < v2
+        loop do
+          val = val + amount
+          break if (skip_even && (v2-val).abs < Float::EPSILON)
+          break if val > v2
+          steps << val
+        end
+      else
+        loop do
+          val = val - amount
+          break if (skip_even && (v2-val).abs < Float::EPSILON)
+          break if val < v2
+          steps << val
+        end
+      end
+      return steps
+    end
+
+    def Utility.product_liner_inner_f(x1, y1, x2, y2, amount) #:nodoc:
+      array = nil
+      step_x = get_step_array_f(x1, x2, amount)
+      step_y = get_step_array_f(y1, y2, amount)
+      dx = x2 - x1
+      dy = y2 - y1
+      a = dx < Float::EPSILON ? dy.to_f : dy.to_f / dx.to_f
+      b = y1.to_f - a * x1.to_f
+      array = [[x1,y1] , [x2,y2]] + step_x.map{|x| [x, (a * x.to_f + b).to_i]}
+      array += step_y.map{|y| [((y.to_f - b) / a).to_i, y]} if (a.abs >= Float::EPSILON)
+      return array.uniq
+    end
+
+    #===矩形内の対角線の座標リストを実数で取得する
+    # (互換性維持のために残している)
+    # 矩形内の対角線の座標リストを取得する
+    # 引数には、Rect(x,y,w,h)形式のインスタンスを渡す
+    # 幅・高さはマイナスの値の設定が可能。
+    # 幅・高さのどちらかの値が0(Float::EPSILON未満)の場合は[]が返る
+    # 刻みの値は1以上の整数を渡す。0(Float::EPSILON未満)以下の場合は例外が発生する。
+    # 結果は[x,y]の配列となるが、正確さを優先したため、必ず刻みの値の間隔で並んでいない
+    #(刻みの値より小さい)ことがある
+    #_rect_:: 矩形情報
+    #_amount_:: 配列を作成する座標の刻み。デフォルトは1.0
+    #返却値:: 矩形左上位置[x,y]の配列(指定の矩形に掛かる位置の組み合わせ)
+    def Utility.product_liner_f(rect, amount = 1.0)
+      raise MiyakoError, "Illegal amount! #{amount}" if amount < Float::EPSILON
+      return [] if rect[2] < Float::EPSILON || rect[3] < Float::EPSILON
+      x1 = rect[0]
+      y1 = rect[1]
+      x2 = x1 + rect[2] - 1
+      y2 = y1 + rect[3] - 1
+      return product_liner_inner_f(x1, y1, x2, y2, amount)
+    end
+
+    #===矩形内の対角線の座標リストを実数で取得する
+    # (互換性維持のために残している)
+    # 矩形内の対角線の座標リストを取得する
+    # 引数には、Rect(x,y,w,h)形式のインスタンスを渡す
+    # 幅・高さはマイナスの値の設定が可能。
+    # 幅・高さのどちらかの値が0(Float::EPSILON未満)の場合は[]が返る
+    # 刻みの値は1以上の整数を渡す。0(Float::EPSILON未満)以下の場合は例外が発生する。
+    # 結果は[x,y]の配列となるが、正確さを優先したため、必ず刻みの値の間隔で並んでいない
+    #(刻みの値より小さい)ことがある
+    #_rect_:: 矩形情報
+    #_amount_:: 配列を作成する座標の刻み。デフォルトは1
+    #返却値:: 矩形左上位置[x,y]の配列(指定の矩形に掛かる位置の組み合わせ)
+    def Utility.product_liner_by_square_f(square, amount = 1.0)
+      raise MiyakoError, "Illegal amount! #{amount}" if amount < Float::EPSILON
+      return [] if (square[2] - square[0]) < Float::EPSILON || (square[3] - square[1]) < Float::EPSILON
+      return product_liner_inner_f(*square, amount)
+    end
+
+    def Utility.product_liner_inner(x1, y1, x2, y2, amount) #:nodoc:
+      array = nil
+      step_x = []
+      step_y = []
+      dx = x2 - x1
+      dy = y2 - y1
+      a  = 0.0
+      if [x1, y1, x2, y2, amount].all?{|v| v.methods.include?(:step)}
+        step_x = x1 < x2 ? x1.step(x2, amount).to_a : x1.step(x2, -amount).to_a
+        step_y = y1 < y2 ? y1.step(y2, amount).to_a : y1.step(y2, -amount).to_a
+        a = dx == 0 ? dy.to_f : dy.to_f / dx.to_f
+      else
+        step_x = get_step_array_f(x1, x2, amount)
+        step_y = get_step_array_f(y1, y2, amount)
+        a = dx < Float::EPSILON ? dy.to_f : dy.to_f / dx.to_f
+      end
+      b = y1.to_f - a * x1.to_f
+      array = [[x1,y1] , [x2,y2]] + step_x.map{|x| [x, (a * x.to_f + b).to_i]}
+      array += step_y.map{|y| [((y.to_f - b) / a).to_i, y]} if (a.abs >= Float::EPSILON)
+      return array.uniq
+    end
+
+    #===矩形内の対角線の座標リストを取得する
+    # 矩形内の対角線の座標リストを取得する
+    # 引数には、Rect(x,y,w,h)形式のインスタンスを渡す
+    # 幅・高さはマイナスの値の設定が可能。
+    # 幅・高さのどちらかの値が0の場合は[]が返る
+    # 刻みの値は1以上の整数を渡す。0以下の場合は例外が発生する。
+    # 結果は[x,y]の配列となるが、正確さを優先したため、必ず刻みの値の間隔で並んでいない
+    #(刻みの値より小さいことがある)ことがある
+    #_rect_:: 矩形情報
+    #_amount_:: 配列を作成する座標の刻み。デフォルトは1
+    #返却値:: 矩形左上位置[x,y]の配列(指定の矩形に掛かる位置の組み合わせ)
+    def Utility.product_liner(rect, amount = 1)
+      raise MiyakoError, "Illegal amount! #{amount}" if amount <= 0
+      return [] if rect[2] == 0 || rect[3] == 0
+      x1 = rect[0]
+      y1 = rect[1]
+      x2 = x1 + rect[2] - 1
+      y2 = y1 + rect[3] - 1
+      return product_liner_inner(x1, y1, x2, y2, amount)
+    end
+
+    #===矩形内の対角線の座標リストを取得する
+    # 矩形内の対角線の座標リストを取得する
+    # 引数には、Rect(x,y,w,h)形式のインスタンスを渡す
+    # 幅・高さはマイナスの値の設定が可能。
+    # 幅・高さのどちらかの値が0の場合は[]が返る
+    # 刻みの値は1以上の整数を渡す。0以下の場合は例外が発生する。
+    # 結果は[x,y]の配列となるが、正確さを優先したため、必ず刻みの値の間隔で並んでいない
+    #(刻みの値より小さいことがある)ことがある
+    #_rect_:: 矩形情報
+    #_amount_:: 配列を作成する座標の刻み。デフォルトは1
+    #返却値:: 矩形左上位置[x,y]の配列(指定の矩形に掛かる位置の組み合わせ)
+    def Utility.product_liner_by_square(square, amount = 1)
+      raise MiyakoError, "Illegal amount! #{amount}" if amount <= 0
+      return [] if (square[2] - square[0]) == 0 || (square[3] - square[1]) == 0
+      return product_liner_inner(*square, amount)
+    end
+
+    def Utility.product_inner(x1, y1, x2, y2, size) #:nodoc:
+      x_array = ((x1 / size[0])..(x2 / size[0])).to_a.map{|e| e * size[0]}
+      y_array = ((y1 / size[1])..(y2 / size[1])).to_a.map{|e| e * size[1]}
+      return x_array.product(y_array)
+    end
+    
+    #===指定の矩形が格子状のどこに重なっているかを返す
+    # position(Point([x,y])形式)を基準として、矩形rect(Rect([x,y,w,h])形式)が、格子状の並べた矩形
+    # (基準を[0,0]とした、大きさ[size,size]の矩形をタイル状に並べた物)にある場合、
+    #どの格子状の矩形が重なっているかを、矩形の左上座標の配列として渡す(x座標とy座標の組み合わせ)。
+    #
+    #_position_:: 基準位置
+    #_rect_:: 矩形情報
+    #返却値:: 矩形左上位置の配列(指定の矩形に掛かる位置の組み合わせ)
+    def Utility.product_position(position, rect, size)
+      return product_inner(
+               position[0] + rect[0],
+               position[1] + rect[1],
+               position[0] + rect[0] + rect[2] - 1,
+               position[1] + rect[1] + rect[3] - 1,
+               size
+             )
+    end
+
+    #===指定の矩形が格子状のどこに重なっているかを返す
+    # 矩形square(Square([x1,y1,x2,y2])形式)が、格子状の並べた矩形
+    # (基準を[0,0]とした、大きさ[size,size]の矩形をタイル状に並べた物)にある場合、
+    #どの格子状の矩形が重なっているかを、矩形の左上座標の配列として渡す(x座標とy座標の組み合わせ)。
+    #_square_:: 矩形情報
+    #返却値:: 矩形左上位置の配列(指定の矩形に掛かる位置の組み合わせ)
+    def Utility.product_position_by_square(square, size)
+      return product_inner(*square.to_a, size)
+    end
+
+    def Utility.product_inner_f(x1, y1, x2, y2, size, skip_even = false) #:nodoc:
+      sz = size[0].to_f
+      min = (x1.to_f/sz).floor.to_f * sz
+      x_array = [min] + get_step_array_f(min, x2.to_f, sz, skip_even)
+      sz = size[1].to_f
+      min = (y1.to_f/sz).floor.to_f * sz
+      y_array = [min] + get_step_array_f(min, y2.to_f, sz, skip_even)
+      return x_array.uniq.product(y_array.uniq)
+    end
+    
+    #===指定の矩形が格子状のどこに重なっているかを返す(実数で指定)
+    #position(Point([x,y])形式)を基準として、矩形rect(Rect([x,y,w,h])形式)が、格子状の並べた矩形
+    #(基準を[0.0,0.0]とした、大きさ[size,size]の矩形をタイル状に並べた物)にある場合、
+    #どの格子状の矩形が重なっているかを、矩形の左上座標の配列として渡す(x座標とy座標の組み合わせ)。
+    #
+    #_position_:: 基準位置
+    #_rect_:: 矩形情報
+    #返却値:: 矩形左上位置の配列(指定の矩形に掛かる位置の組み合わせ)
+    def Utility.product_position_f(position, rect, size)
+      return product_inner_f(
+               position[0] + rect[0],
+               position[1] + rect[1],
+               position[0] + rect[0] + rect[2],
+               position[1] + rect[1] + rect[3],
+               size,
+               true
+             )
+    end
+
+    #===指定の矩形が格子状のどこに重なっているかを返す(実数で指定)
+    # 矩形square(Square([x1,y1,x2,y2])形式)が、格子状の並べた矩形
+    # (基準を[0.0,0.0]とした、大きさ[size,size]の矩形をタイル状に並べた物)にある場合、
+    #どの格子状の矩形が重なっているかを、矩形の左上座標の配列として渡す(x座標とy座標の組み合わせ)。
+    #_square_:: 矩形情報
+    #返却値:: 矩形左上位置の配列(指定の矩形に掛かる位置の組み合わせ)
+    def Utility.product_position_by_square_f(square, size)
+      return product_inner_f(*square.to_a, size)
+    end
+
+    #===小線分を移動させたとき、大線分が範囲内かどうかを判別する
+    # 移動後の小線分が大線分の範囲内にあるかどうかをtrue/falseで取得する
+    #_mini_segment_:: 小線分の範囲。[min,max]で構成された2要素の配列
+    #_big_segment_:: 大線分の範囲。[min,max]で構成された2要素の配列
+    #_d_:: mini_segmentの移動量
+    #_flag_:: 大線分の端いっぱいも範囲外に含めるときはtrueを設定する。デフォルトはfalse
+    #返却値:: 範囲内のときはtrue、範囲外の時はfalseを返す
+    def Utility.in_bounds?(mini_segment, big_segment, d, flag = false)
+      nx = mini_segment[0] + d
+      nx2 = mini_segment[1] + d
+      nx, nx2 = nx2, nx if nx > nx2
+      return flag ? (nx >= big_segment[0] && nx2 <= big_segment[1]) : (nx > big_segment[0] && (nx2 - 1) < big_segment[1])
+    end
+
+    #===小線分を移動させたとき、大線分が範囲内かどうかを判別して、その状態によって値を整数で返す
+    # 移動後の小線分の範囲が大線分の範囲内のときは0、
+    # マイナス方向で範囲外に出るときは-1、
+    # プラス方向で出るときは1を返す
+    #_mini_segment_:: 小線分の範囲。[min,max]で構成された2要素の配列
+    #_big_segment_:: 大線分の範囲。[min,max]で構成された2要素の配列
+    #_d_:: mini_segmentの移動量
+    #_flag_:: 大線分の端いっぱいも範囲外に含めるときはtrueを設定する。デフォルトはfalse
+    #返却値:: 判別の結果
+    def Utility.in_bounds_ex?(mini_segment, big_segment, d, flag = false)
+      nx = mini_segment[0] + d
+      nx2 = mini_segment[1] + d - 1
+      nx, nx2 = nx2, nx if nx > nx2
+      return -1 if (nx < big_segment[0]) || (flag && (nx == big_segment[0]))
+      return (nx2 > big_segment[1]) || (flag && (nx2 == big_segment[1])) ? 1 : 0
+    end
+
+    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す
+    # 移動後の小線分の範囲が大線分の範囲内のときは0、
+    # マイナス方向で範囲外に出るときは1、
+    # プラス方向で出るときは-1を返す
+    #_mini_segment_:: 小線分の範囲。[min,max]で構成された2要素の配列
+    #_big_segment_:: 大線分の範囲。[min,max]で構成された2要素の配列
+    #_d_:: mini_segmentの移動量
+    #_flag_:: 大線分の端いっぱいも範囲外に含めるときはtrueを設定する。デフォルトはfalse
+    #返却値:: 判別の結果
+    def Utility.in_bounds_rev?(mini_segment, big_segment, d, flag = false)
+      nx = mini_segment[0] + d
+      nx2 = mini_segment[1] + d - 1
+      nx, nx2 = nx2, nx if nx > nx2
+      return 1 if (nx < big_segment[0]) || (flag && (nx == big_segment[0]))
+      return (nx2 > big_segment[1]) || (flag && (nx2 == big_segment[1])) ? -1 : 0
+    end
+
+    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す
+    # 移動量が0のときは0、
+    # 移動後の小線分の範囲が大線分の範囲内のときは1、
+    # 範囲外に出るときは-1を返す
+    #_mini_segment_:: 小線分の範囲。[min,max]で構成された2要素の配列
+    #_big_segment_:: 大線分の範囲。[min,max]で構成された2要素の配列
+    #_d_:: mini_segmentの移動量
+    #_flag_:: 大線分の端いっぱいも範囲外に含めるときはtrueを設定する。デフォルトはfalse
+    #返却値:: 判別の結果
+    def Utility.in_bounds_rev_ex?(mini_segment, big_segment, d, flag = false)
+      return 0 if d == 0
+      dir = (d <=> 0)
+      nx = mini_segment[0] + d
+      nx2 = mini_segment[1] + d - 1
+      nx, nx2 = nx2, nx if nx > nx2
+      return -dir if (nx < big_segment[0]) || (flag && (nx == big_segment[0]))
+      return (nx2 > big_segment[1]) || (flag && (nx2 == big_segment[1])) ? -dir : dir
+    end
+
+    #===小線分を移動させたとき、大線分が範囲内かどうかを判別する
+    # 移動後の小線分が大線分の範囲内にあるかどうかをtrue/falseで取得する
+    #_mini_pos_:: 小線分の開始点の位置
+    #_mini_size_:: 小線分の幅。0以上の整数
+    #_big_pos_:: 大線分の開始点の位置
+    #_big_size_:: 大線分の幅。1以上の整数
+    #_d_:: mini_segmentの移動量
+    #_flag_:: 大線分の端いっぱいも範囲外に含めるときはtrueを設定する。デフォルトはfalse
+    #返却値:: 範囲内のときはtrue、範囲外の時はfalseを返す
+    def Utility.in_bounds_by_size?(pos1, size1, pos2, size2, d, flag = false)
+      raise MiyakoError, "illegal size1! #{size1}" if size1 < 0
+      raise MiyakoError, "illegal size2! #{size2}" if size2 <= 0
+      raise MiyakoError, "size1 is more than size2! #{size1}, #{size2}" if size1 > size2
+      min_x1 = pos1 + d
+      min_x2 = pos1 + size1 + d
+      min_x1, min_x2 = min_x2, min_x1 if min_x1 > min_x2
+      return flag ? (min_x1 >= pos2 && min_x2 <= pos2+size2) : (minx_x1 > pos2 && min_x2 < pos2+size2)
+    end
+
+    #===小線分を移動させたとき、大線分が範囲内かどうかを判別して、その状態によって値を整数で返す
+    # 移動後の小線分の範囲が大線分の範囲内のときは0、
+    # マイナス方向で範囲外に出るときは-1、
+    # プラス方向で出るときは1を返す
+    #_mini_pos_:: 小線分の開始点の位置
+    #_mini_size_:: 小線分の幅。0以上の整数
+    #_big_pos_:: 大線分の開始点の位置
+    #_big_size_:: 大線分の幅。1以上の整数
+    #_d_:: mini_segmentの移動量
+    #_flag_:: 大線分の端いっぱいも範囲外に含めるときはtrueを設定する。デフォルトはfalse
+    #返却値:: 判別の結果
+    def Utility.in_bounds_ex_by_size?(pos1, size1, pos2, size2, d, flag = false)
+      raise MiyakoError, "illegal size1! #{size1}" if size1 < 0
+      raise MiyakoError, "illegal size2! #{size2}" if size2 <= 0
+      raise MiyakoError, "size1 is more than size2! #{size1}, #{size2}" if size1 > size2
+      min_x1 = pos1 + d
+      min_x2 = pos1 + size1 + d
+      min_x1, min_x2 = min_x2, min_x1 if min_x1 > min_x2
+      return -1 if (min_x1 < pos2) || (flag && (min_x1 == pos2))
+      return (min_x2 > pos2+size2) || (flag && (min_x2 == pos2+size2)) ? 1 : 0
+    end
+
+    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す
+    # 移動後の小線分の範囲が大線分の範囲内のときは0、
+    # マイナス方向で範囲外に出るときは1、
+    # プラス方向で出るときは-1を返す
+    #_mini_pos_:: 小線分の開始点の位置
+    #_mini_size_:: 小線分の幅。0以上の整数
+    #_big_pos_:: 大線分の開始点の位置
+    #_big_size_:: 大線分の幅。1以上の整数
+    #_d_:: mini_segmentの移動量
+    #_flag_:: 大線分の端いっぱいも範囲外に含めるときはtrueを設定する。デフォルトはfalse
+    #返却値:: 判別の結果
+    def Utility.in_bounds_rev_by_size?(pos1, size1, pos2, size2, d, flag = false)
+      raise MiyakoError, "illegal size1! #{size1}" if size1 < 0
+      raise MiyakoError, "illegal size2! #{size2}" if size2 <= 0
+      raise MiyakoError, "size1 is more than size2! #{size1}, #{size2}" if size1 > size2
+      min_x1 = pos1 + d
+      min_x2 = pos1 + size1 + d
+      min_x1, min_x2 = min_x2, min_x1 if min_x1 > min_x2
+      return 1 if (min_x1 < pos2) || (flag && (min_x1 == pos2))
+      return (min_x2 > pos2+size2) || (flag && (min_x2 == pos2+size2)) ? -1 : 0
+    end
+
+    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す
+    # 移動量が0のときは0、
+    # 移動後の小線分の範囲が大線分の範囲内のときは1、
+    # 範囲外に出るときは-1を返す
+    #_mini_pos_:: 小線分の開始点の位置
+    #_mini_size_:: 小線分の幅。0以上の整数
+    #_big_pos_:: 大線分の開始点の位置
+    #_big_size_:: 大線分の幅。1以上の整数
+    #_d_:: mini_segmentの移動量
+    #_flag_:: 大線分の端いっぱいも範囲外に含めるときはtrueを設定する。デフォルトはfalse
+    #返却値:: 判別の結果
+    def Utility.in_bounds_rev_ex_by_size?(pos1, size1, pos2, size2, d, flag = false)
+      return 0 if d == 0
+      raise MiyakoError, "illegal size1! #{size1}" if size1 < 0
+      raise MiyakoError, "illegal size2! #{size2}" if size2 <= 0
+      raise MiyakoError, "size1 is more than size2! #{size1}, #{size2}" if size1 > size2
+      dir = (d <=> 0)
+      min_x1 = pos1 + d
+      min_x2 = pos1 + size1 + d
+      min_x1, min_x2 = min_x2, min_x1 if min_x1 > min_x2
+      return -dir if (min_x1 < pos2) || (flag && (min_x1 == pos2))
+      return (min_x2 > pos2+size2) || (flag && (min_x2 == pos2+size2)) ? -dir : dir
+    end
+  end
+end

data/lib/Miyako/API/viewport.rb

@@ -21,76 +21,101 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 =end
 
 module Miyako
-  #==ラムダ構造体
-  ViewportExecStruct = Struct.new(:x, :y)
   #==ビューポートクラス
-  #描画時の表示範囲を変更する
-  #画面全体を基準(640x480の画面のときは(0,0)-(639,479)の範囲)として、範囲を設定する
-  #範囲の設定はいつでも行えるが、描画にはrenderメソッドを呼び出した時の値が反映される
+  # 描画時の表示範囲を変更する
+  # 画面全体を基準(640x480の画面のときは(0,0)-(639,479)の範囲)として、範囲を設定する
+  # 範囲の設定はいつでも行えるが、描画にはrenderメソッドを呼び出した時の値が反映される
   class Viewport
-      @@r_exec  = ViewportExecStruct.new
-      @@r_exec.x = [lambda{|vp, rect, dx| self.move_to(rect[0] + dx, rect[1])},
-                    lambda{|vp, rect, dx| self.move_to(vp[0] + vp[2] - rect[2], rect[1])},
-                    lambda{|vp, rect, dx| self.move_to(vp[0], rect[1])}
-                   ]
-      @@r_exec.y = [lambda{|vp, rect, dy| self.move_to(rect[0],rect[1] + dy)},
-                    lambda{|vp, rect, dy| self.move_to(rect[0],vp[1] + vp[3] - rect[3])},
-                    lambda{|vp, rect, dy| self.move_to(rect[0],vp[1])}
-                   ]
+    attr_accessor :visible #レンダリングの可否(true->描画 false->非描画)
 
     #===ビューポートのインスタンスを生成する
-    #_x_,_y_: ビューポートの左上位置
-    #_w_,_h_: ビューポートの大きさ(共に0以上、マイナスのときはエラーが出る)
+    #_x_:: ビューポートの左上位置(x座標)
+    #_y_:: ビューポートの左上位置(y座標)
+    #_w_:: ビューポートの幅(共に1以上、0以下のときはエラーが出る)
+    #_h_:: ビューポートの高さ(共に1以上、0以下のときはエラーが出る)
     def initialize(x, y, w, h)
-      raise MiyakoError, "Illegal size! w:#{w} h:#{h}" if (w < 0 || h < 0)
+      raise MiyakoError, "Illegal size! w:#{w} h:#{h}" if (w <= 0 || h <= 0)
       @rect = Rect.new(x, y, w, h)
       @sq = Rect.new(x, y, x+w-1, y+h-1)
+      @visible = true
     end
 
     #===ビューポートの内容を画面に反映する
-    #ブロックが渡ってきたときは、範囲を変更して指定することが出来る(この変更は、本メソッドを呼ぶ時だけ有効)
-    #ブロックの引数は、|Rect構造体|が渡される。
-    #_block_:: 呼び出し時にブロック付き呼び出しが行われたときのブロック本体。呼び先に渡すことが出来る。ブロックがなければnilが入る
+    # ブロックが渡ってきたときは、範囲を変更して指定することが出来る(この変更は、本メソッドを呼ぶ時だけ有効)
+    # ブロックの引数は、|Rect構造体|が渡される。
+    #_block_:: 呼び出し時にブロック付き呼び出しが行われたときのブロック本体。
+    #呼び先に渡すことが出来る。ブロックがなければnilが入る
     def render(&block)
+      return unless @visible
       if block_given?
         rect = @rect.dup
         yield rect
-        Screen.screen.set_clip_rect(rect)
+        Screen.bitmap.set_clip_rect(*rect)
       else
-        Screen.screen.set_clip_rect(@rect)
+        Screen.bitmap.set_clip_rect(*@rect)
       end
     end
 
     #===ビューポートの左上位置を変更する
-    #移動量を指定して、位置を変更する
+    # 移動量を指定して、位置を変更する
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
     #_dx_:: 移動量(x方向)
     #_dy_:: 移動量(y方向)
     #返却値:: 自分自身を返す
     def move(dx,dy)
+      orect = rect.to_a[0..1]
+      osq = sq.to_a[0..1]
       @rect.move(dx,dy)
       @sq.move(dx, dy)
+      if block_given?
+        unless yield(self)
+          @rect.move_to(*orect)
+          @sq.move_to(*osq)
+        end
+      end
       return self
     end
 
     #===ビューポートの左上位置を変更する
-    #移動先を指定して、位置を変更する
+    # 移動先を指定して、位置を変更する
+    # ブロックを渡したとき、ブロックの評価した結果、偽になったときは移動させた値を元に戻す
     #_x_:: 移動先位置(x方向)
     #_y_:: 移動先位置(y方向)
     #返却値:: 自分自身を返す
     def move_to(x,y)
+      orect = rect.to_a[0..1]
+      osq = sq.to_a[0..1]
       @rect.move_to(x,y)
       @sq.move_to(x, y)
+      if block_given?
+        unless yield(self)
+          @rect.move_to(*orect)
+          @sq.move_to(*osq)
+        end
+      end
     end
 
     #===ビューポートの大きさを変更する
-    #幅と高さを指定して変更する
+    # 変化量を指定して変更する
+    #_dw_:: 幅
+    #_dh_:: 高さ
+    #返却値:: 自分自身を返す
+    def resize(dw,dh)
+      raise MiyakoError, "Illegal size! w:#{w} h:#{h}" if ((@rect.w + dw) <= 0 || (@rect.h + dh) <= 0)
+      @rect.resize(dw, dh)
+      @sq.resize(dw, dh)
+      return self
+    end
+
+    #===ビューポートの大きさを変更する
+    # 幅と高さを指定して変更する
     #_w_:: 幅
     #_h_:: 高さ
     #返却値:: 自分自身を返す
-    def resize(w,h)
-      raise MiyakoError, "Illegal size! w:#{w} h:#{h}" if (w < 0 || h < 0)
-      @rect.resize(w,h)
-      @sq.resize(w, h)
+    def resize_to(w,h)
+      raise MiyakoError, "Illegal size! w:#{w} h:#{h}" if (w <= 0 || h <= 0)
+      @rect.resize_to(w,h)
+      @sq.resize_to(w, h)
       return self
     end
     
@@ -111,325 +136,5 @@ module Miyako
     def square
       return @sq.dup
     end
-
-    #===移動先がViewportの範囲内かどうかを判別する
-    #
-    #移動後の座標が表示範囲外に引っかかっているかをtrue/falseの配列[x,y]で取得する
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_dy_:: y座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果（[x,y]の配列）
-    def in_bounds?(rect, dx, dy, flag = true)
-      bx, by = in_bounds_x?(rect, dx, flag), in_bounds_y?(rect, dy, flag)
-      yield bx, by if block_given?
-      return [bx, by]
-    end
-
-    #===移動先がViewportの範囲内かどうかを判別する（ｘ座標のみ）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #移動後の座標が表示範囲内に引っかかっているかをtrue/falseで取得する
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: あとで書く
-    def in_bounds_x?(rect, dx, flag = true)
-      nx = rect[0] + dx
-      return flag ? (nx >= @rect[0] && ((nx + rect[2]) < @sq[2])) : (nx > @rect[0] && (nx + rect[2] - 1) < @sq[2])
-    end
-
-    #===移動先がViewportの範囲内かどうかを判別する（ｙ座標のみ）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #移動後の座標が表示範囲内に引っかかっているかをtrue/falseで取得する
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dy_:: y座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: あとで書く
-    def in_bounds_y?(rect, dy, flag = true)
-      ny = rect[1] + dy
-      return flag ? (ny >= @rect[1] && ((ny + rect[3]) < @sq[3])) : (ny > @rect[1] && (ny + rect[3] - 1) < @sq[3])
-    end
-
-    #===移動先がViewportの範囲内かどうかを判別して、その状態によって値を整数で返す
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #移動後の座標が表示範囲内のときは0、マイナス方向で表示範囲外に出るときは-1、プラス方向で出るときは1を返す
-    #
-    #返却値は上記値を[x,y]の配列で生成される。
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_dy_:: y座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果([x,y]の配列)
-    def in_bounds_ex?(rect, dx, dy, flag = true)
-      bx, by = in_bounds_ex_x?(rect, dx, flag), in_bounds_ex_y?(rect, dy, flag)
-      yield bx, by if block_given?
-      return [bx, by]
-    end
-
-    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す(ｘ座標）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #移動後の座標が表示範囲内のときは0、マイナス方向で表示範囲外に出るときは-1、プラス方向で出るときは1を返す
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果
-    def in_bounds_ex_x?(rect, dx, flag = true)
-      nx = rect[0] + dx
-      return -1 if (nx < @rect[0]) || (flag && (nx == @rect[0]))
-      return ((nx + rect[2] - 1) > @sq[2]) || (flag && ((nx + rect[2] - 1) == @sq[2])) ? 1 : 0
-    end
-
-    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す（ｙ座標）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #移動後の座標が表示範囲内のときは0、マイナス方向で表示範囲外に出るときは-1、プラス方向で出るときは1を返す
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dy_:: y座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果
-    def in_bounds_ex_y?(rect, dy, flag = true)
-      ny = rect[1] + dy
-      return -1 if (ny < @rect[1]) || (flag && (ny == @rect[1]))
-      return ((ny + rect[3] - 1) > @sq[3]) || (flag && ((ny + rect[3] - 1) == @sq[3])) ? 1 : 0
-    end
-
-    #===移動先が表示範囲外に引っかかるときは、移動範囲内に丸める
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #返却値はLayout#in_bounds_ex?の値と同じ
-    #_dx_:: x座標の移動量
-    #_dy_:: y座標の移動量
-    #_viewport_:: 移動範囲。デフォルトはnil(Screen.viewportが設定される)
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果の配列([x,y])
-    def round(rect, dx, dy, flag = true)
-      bx, by = round_x(rect, dx, flag), round_y(rect, dy, flag)
-      yield bx, by if block_given?
-      return [bx, by]
-    end
-
-    #===移動先が表示範囲外に引っかかるときは、移動範囲内に丸める（ｘ座標）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #返却値はLayout#in_bounds_ex_x?の値と同じ
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果
-    def round_x(rect, dx, flag = true)
-      return 0 if dx == 0
-      fx = in_bounds_ex_x?(rect, dx, flag)
-      @@r_exec.x[fx][@rect, rect, dx]
-      return fx
-    end
-
-    #===移動先が表示範囲外に引っかかるときは、移動範囲内に丸める（ｙ座標）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #返却値はLayout#in_bounds_ex_y?の値と同じ
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dy_:: y座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果
-    def round_y(rect, dy, flag = true)
-      return 0 if dy == 0
-      fy = in_bounds_ex_y?(rect, dy, flag)
-      @@r_exec.y[fy][@rect, rect, dy]
-      return fy
-    end
-
-    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #移動後の座標が表示範囲内のときは0、マイナス方向で表示範囲外に出るときは1、プラス方向で出るときは-1を返す
-    #
-    #返却値は上記値を[x,y]の配列で生成される。
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_dy_:: y座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果([x,y]の配列)
-    def in_bounds_rev?(rect, dx, dy, flag = true)
-      bx, by = in_bounds_rev_x?(rect, dx, flag), in_bounds_rev_y?(rect, dy, flag)
-      yield bx, by if block_given?
-      return [bx, by]
-    end
-
-    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す（ｘ座標）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #移動後の座標が表示範囲内のときは0、マイナス方向で表示範囲外に出るときは1、プラス方向で出るときは-1を返す
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果
-    def in_bounds_rev_x?(rect, dx, flag = true)
-      nx = rect[0] + dx
-      return 1 if (nx < @rect[0]) || (flag && (nx == @rect[0]))
-      return ((nx + rect[1] - 1) > @sq[2]) || (flag && ((nx + rect[1] - 1) == @sq[2])) ? -1 : 0
-    end
-
-    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す（ｙ座標）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #移動後の座標が表示範囲内のときは0、マイナス方向で表示範囲外に出るときは1、プラス方向で出るときは-1を返す
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果
-    def in_bounds_rev_y?(rect, dy, flag = true)
-      ny = rect[1] + dy
-      return 1 if (ny < @rect[1]) || (flag && (ny == @rect[1]))
-      return ((ny + rect[3]) > @sq[3]) || (flag && ((ny + rect[3]) == @sq[3])) ? -1 : 0
-    end
-
-    #===移動先が表示範囲外に引っかかるときは、移動範囲内に丸める
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #返却値はLayout#in_bounds_rev?の値と同じ
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_dy_:: y座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果の配列([x,y])
-    def round_rev(rect, dx, dy, flag = true)
-      bx, by = round_rev_x(rect, dx, flag), round_rev_y(rect, dy, flag)
-      yield bx, by if block_given?
-      return [bx, by]
-    end
-
-    #===移動先が表示範囲外に引っかかるときは、移動範囲内に丸める（ｘ座標）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #返却値はLayout#in_bounds_rev_x?の値と同じ
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果
-    def round_rev_x(rect, dx, flag = true)
-      return 0 if dx == 0
-      fx = in_bounds_rev_x?(rect, dx, flag)
-      @@r_exec.x[-fx][@rect, rect, dx]
-      return fx
-    end
-
-    #===移動先が表示範囲外に引っかかるときは、移動範囲内に丸める（ｙ座標）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #返却値はLayout#in_bounds_rev_y?の値と同じ
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dy_:: x座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果
-    def round_rev_y(rect, dy, flag = true)
-      return 0 if dy == 0
-      fy = in_bounds_rev_y?(rect, dy, flag)
-      @@r_exec.y[-fy][@rect, rect, dy]
-      return fy
-    end
-
-    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #移動後の座標が表示範囲内のときは0、マイナス方向で表示範囲外に出るときは1、プラス方向で出るときは-1を返す
-    #
-    #返却値は上記値を[x,y]の配列で生成される。
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_dy_:: y座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果([x,y]の配列)
-    def in_bounds_rev2?(rect, dx, dy, flag = true)
-      bx, by = in_bounds_rev2_x?(rect, dx, flag), in_bounds_rev2_y?(rect, dy, flag)
-      yield bx, by if block_given?
-      return [bx, by]
-    end
-
-    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す（ｘ座標）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #移動後の座標が表示範囲内のときは0、マイナス方向で表示範囲外に出るときは1、プラス方向で出るときは-1を返す
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果
-    def in_bounds_rev2_x?(rect, dx, flag = true)
-      return 0 if dx == 0
-      dir = (dx <=> 0)
-      nx = rect[0] + dx
-      return -dir if (nx < @rect[0]) || (flag && (nx == @rect[0]))
-      return ((nx + rect[2] - 1) > @sq[2]) || (flag && ((nx + rect[2] - 1) == @sq[2])) ? -dir : dir
-    end
-
-    #===移動先が表示範囲内かどうかを判別して、その状態によって値を整数で返す（ｙ座標）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #移動後に表示範囲外に出るときは符号を反転、範囲内の時は移動量をそのまま返す
-    #移動後に表示範囲外に出るときは符号を反転、範囲内の時は移動量をそのまま返す
-    #移動量が0のときは、0を返す
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果
-    def in_bounds_rev2_y?(rect, dy, flag = true)
-      return 0 if dy == 0
-      dir = (dy <=> 0)
-      ny = rect[1] + dy
-      return -dir if (ny < @rect[1]) || (flag && (ny == @rect[1]))
-      return ((ny + rect[3] - 1) > @sq[3]) || (flag && ((ny + rect[3] - 1) == @sq[3])) ? -dir : dir
-    end
-
-    #===移動先が表示範囲外に引っかかるときは、移動範囲内に丸める
-    #表示範囲はビューポート(Layout#viewport メソッドで取得可能)の範囲。デフォルトは画面の範囲内と同じ
-    #
-    #返却値はLayout#in_bounds_rev?の値と同じ
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_dy_:: y座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果の配列([x,y])
-    def round_rev2(rect, dx, dy, flag = true)
-      bx, by = round_rev2_x(rect, dx, flag), round_rev2_y(rect, dy, flag)
-      yield bx, by if block_given?
-      return [bx, by]
-    end
-
-    #===移動先が表示範囲外に引っかかるときは、移動範囲内に丸める（ｘ座標）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #返却値はLayout#in_bounds_rev_x?の値と同じ
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dx_:: x座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果
-    def round_rev2_x(rect, dx, flag = true)
-      return 0 if dx == 0
-      fxx = (dx <=> 0)
-      fx = in_bounds_rev2_x?(rect, dx, flag)
-      fx2 = (fxx == 0 || fx * fxx > 0 ? 0 : -fx)
-      @@r_exec.x[fx2][@rect, rect, dx]
-      return fx
-    end
-
-    #===移動先が表示範囲外に引っかかるときは、移動範囲内に丸める（ｙ座標）
-    #表示範囲はビューポートの範囲。デフォルトは画面の範囲内と同じ
-    #
-    #返却値はLayout#in_bounds_rev_y?の値と同じ
-    #_rect_:: 判別対象の矩形。Rect構造体のインスタンス([x,y,w,h]で構成された4要素の配列)
-    #_dy_:: x座標の移動量
-    #_flag_:: 画面の端いっぱいも表示範囲外に含めるときはtrueを設定する。デフォルトはtrue
-    #返却値:: 判別の結果
-    def round_rev2_y(rect, dy, flag = true)
-      return 0 if dy == 0
-      fyy = (dy <=> 0)
-      fy = in_bounds_rev2_y?(rect, dy, flag)
-      fy2 = (fyy == 0 || fy * fyy > 0 ? 0 : -fy)
-      @@r_exec.y[fy2][@rect, rect, dy]
-      return fy
-    end
   end
 end