cyross-ruby-miyako 2.0.5.1 → 2.1.0

data/lib/Miyako/miyako.rb

@@ -1,171 +1,201 @@
-# -*- encoding: utf-8 -*-
-#
-#=コンテンツ作成ライブラリMiyako2.0
-#
-#Authors:: サイロス誠
-#Version:: 2.0.0
-#Copyright:: 2007-2009 Cyross Makoto
-#License:: LGPL2.1
-#
-=begin
-Miyako v2.0
-Copyright (C) 2007-2008  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
-
-if RUBY_VERSION < '1.9.1'
-  puts 'Sorry. Miyako needs Ruby 1.9.1 or above...'
-  exit
-end
-
-require 'sdl'
-
-if SDL::VERSION < '2.0'
-  puts 'Sorry. Miyako needs Ruby/SDL 2.0.0 or above...'
-  exit
-end
-
-require 'forwardable'
-require 'iconv' if RUBY_VERSION < '1.9.0'
-require 'kconv'
-require 'rbconfig'
-
-#デバッグモードの設定。デバッグモードにするときはtrueを渡す。デフォルトはfalse
-$miyako_debug_mode ||= false
-
-#openGLを使う？ openGLを使用するときはtrueを設定する。デフォルトはfalse
-$miyako_use_opengl ||= false
-
-#サウンド機能を使わないときは、miyako.rbをロードする前に
-#$not_use_audio変数にtrueを割り当てる
-$not_use_audio ||= false
-if $not_use_audio
-  SDL.init(SDL::INIT_VIDEO | SDL::INIT_JOYSTICK)
-else
-  SDL.init(SDL::INIT_VIDEO | SDL::INIT_AUDIO | SDL::INIT_JOYSTICK)
-end
-
-Thread.abort_on_exception = true
-
-#==Miyako基幹モジュール
-module Miyako
-
-  #===アプリケーション実行中に演奏する音楽のサンプリングレートを指定する
-  #単位はHz(周波数)
-  #規定値は44100
-  #音声ファイルを扱うときは、すべての音声ファイルを同じサンプリングレートに統一する必要がある
-  $sampling_seq ||= 44100
-
-  #サウンド機能を使うときのバッファサイズを設定する（バイト単位）
-  #デフォルトは4096バイト
-  $sound_buffer_size ||= 4096
-
-  SDL::TTF.init
-  SDL::Mixer.open($sampling_seq, SDL::Mixer::DEFAULT_FORMAT, 2, $sound_buffer_size) unless $not_use_audio
-
-  #===Miyakoのバージョン番号を出力する
-  #返却値:: バージョン番号を示す文字列
-  def Miyako::version
-    return "2.0.0"
-  end
-
-  #==Miyakoの例外クラス
-  class MiyakoError < Exception
-  end
-  
-  osn = Config::CONFIG["target_os"].downcase
-  @@osName = "other"
-  case osn
-  when /mswin|mingw|cygwin|bccwin/
-    @@osName = "win"
-  when /linux/
-    @@osName = "linux"
-  when /darwin/
-    @@osName = "mac_osx"
-  end
-  
-  #===実行しているOSの名前を取得する
-  #(Windows 9x/Me/Xp/Vista, Cygwin/MinGW) : "win"
-  #(Linux) : "linux"
-  #(Mac OS X) : "mac_osx"
-  #(other) : "other"
-  #返却値:: OS名
-  def Miyako::getOSName
-    return @@osName
-  end
-  
-  #===ウィンドウのタイトルを設定する
-  #_title_:: 設定する文字列
-  def Miyako::setTitle(title)
-    str = title
-    case @@osName
-    when "win"
-      str = title.to_s().encode(Encoding::SJIS)
-    when "mac_osx"
-      str = title.to_s().encode(Encoding::UTF_8)
-    when "linux"
-      str = title.to_s().encode(Encoding::EUCJP)
-    end
-    SDL::WM.setCaption(str, "")
-  end
-end
-
-require 'Miyako/API/utility'
-require 'Miyako/API/yuki'
-require 'Miyako/API/basic_data'
-require 'Miyako/API/modules'
-require 'Miyako/API/font'
-require 'Miyako/API/viewport'
-require 'Miyako/API/layout'
-require 'Miyako/API/bitmap'
-require 'Miyako/API/drawing'
-require 'Miyako/API/spriteunit'
-require 'Miyako/API/sprite_animation'
-require 'Miyako/API/sprite'
-require 'Miyako/API/collision'
-require 'Miyako/API/screen'
-require 'Miyako/API/shape'
-require 'Miyako/API/plane'
-require 'Miyako/API/input'
-require 'Miyako/API/audio'
-require 'Miyako/API/movie'
-require 'Miyako/API/parts'
-require 'Miyako/API/choices'
-require 'Miyako/API/textbox'
-require 'Miyako/API/map'
-require 'Miyako/API/fixedmap'
-require 'Miyako/API/map_event'
-require 'Miyako/API/story'
-require 'Miyako/API/diagram'
-
-module Miyako
-  #===Miyakoのメインループ
-  #ブロックを受け取り、そのブロックを評価する
-  #ブロック評価前に<i>Input::update</i>と<i>Screen::clear</i>、評価後に<i>Screen::render</i>を呼び出す
-  #
-  #ブロックを渡さないと例外が発生する
-  def Miyako.main_loop
-    raise MiyakoError, "Miyako.main_loop needs brock!" unless block_given?
-    loop do
-      Input::update
-      Screen::clear
-      yield
-      Screen::render
-    end
-  end
-end
-
-require 'Miyako/miyako_no_katana'
+# -*- encoding: utf-8 -*-
+#
+#=コンテンツ作成ライブラリMiyako2.1
+#
+#Authors:: サイロス誠
+#Version:: 2.1.0
+#Copyright:: 2007-2009 Cyross Makoto
+#License:: LGPL2.1
+#
+=begin
+Miyako v2.1
+Copyright (C) 2007-2008  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
+
+if RUBY_VERSION < '1.9.1'
+  puts 'Sorry. Miyako needs Ruby 1.9.1 or above...'
+  exit
+end
+
+require 'sdl'
+
+if SDL::VERSION < '2.0'
+  puts 'Sorry. Miyako needs Ruby/SDL 2.0.0 or above...'
+  exit
+end
+
+require 'forwardable'
+require 'iconv' if RUBY_VERSION < '1.9.0'
+require 'kconv'
+require 'rbconfig'
+
+#画面などの初期設定を自動的に行うかどうかの設定。デフォルトはtrue
+$miyako_auto_open = true if $miyako_auto_open.nil?
+
+#デバッグモードの設定。デバッグモードにするときはtrueを渡す。デフォルトはfalse
+$miyako_debug_mode ||= false
+
+#openGLを使う？ openGLを使用するときはtrueを設定する。デフォルトはfalse
+$miyako_use_opengl ||= false
+
+#サウンド機能を使わないときは、miyako.rbをロードする前に
+#$not_use_audio変数にtrueを割り当てる
+$not_use_audio ||= false
+
+Thread.abort_on_exception = true
+
+#==Miyako基幹モジュール
+module Miyako
+  VERSION = "2.1.0"
+
+  #===アプリケーション実行中に演奏する音楽のサンプリングレートを指定する
+  #単位はHz(周波数)
+  #規定値は44100
+  #音声ファイルを扱うときは、すべての音声ファイルを同じサンプリングレートに統一する必要がある
+  $sampling_seq ||= 44100
+
+  #サウンド機能を使うときのバッファサイズを設定する（バイト単位）
+  #デフォルトは4096バイト
+  $sound_buffer_size ||= 4096
+
+  #===Miyakoのバージョン番号を出力する
+  #返却値:: バージョン番号を示す文字列
+  def Miyako::version
+    return VERSION
+  end
+  
+  osn = Config::CONFIG["target_os"].downcase
+  @@osName = "other"
+  case osn
+  when /mswin|mingw|cygwin|bccwin/
+    @@osName = "win"
+  when /linux/
+    @@osName = "linux"
+  when /darwin/
+    @@osName = "mac_osx"
+  end
+  
+  #===実行しているOSの名前を取得する
+  #(Windows 9x/Me/Xp/Vista, Cygwin/MinGW) : "win"
+  #(Linux) : "linux"
+  #(Mac OS X) : "mac_osx"
+  #(other) : "other"
+  #返却値:: OS名
+  def Miyako::getOSName
+    return @@osName
+  end
+  
+  #===ウィンドウのタイトルを設定する
+  #_title_:: 設定する文字列
+  def Miyako::setTitle(title)
+    str = title
+    case @@osName
+    when "win"
+      str = title.to_s().encode(Encoding::SJIS)
+    when "mac_osx"
+      str = title.to_s().encode(Encoding::UTF_8)
+    when "linux"
+      str = title.to_s().encode(Encoding::EUCJP)
+    end
+    SDL::WM.setCaption(str, "")
+  end
+end
+
+require 'Miyako/API/exceptions'
+require 'Miyako/API/utility'
+require 'Miyako/API/basic_data'
+require 'Miyako/API/modules'
+require 'Miyako/API/yuki'
+require 'Miyako/API/font'
+require 'Miyako/API/viewport'
+require 'Miyako/API/layout'
+require 'Miyako/API/bitmap'
+require 'Miyako/API/drawing'
+require 'Miyako/API/spriteunit'
+require 'Miyako/API/sprite_animation'
+require 'Miyako/API/sprite'
+require 'Miyako/API/sprite_list'
+require 'Miyako/API/collision'
+require 'Miyako/API/screen'
+require 'Miyako/API/shape'
+require 'Miyako/API/plane'
+require 'Miyako/API/input'
+require 'Miyako/API/audio'
+require 'Miyako/API/movie'
+require 'Miyako/API/parts'
+require 'Miyako/API/choices'
+require 'Miyako/API/textbox'
+require 'Miyako/API/map'
+require 'Miyako/API/fixedmap'
+require 'Miyako/API/map_event'
+require 'Miyako/API/story'
+require 'Miyako/API/diagram'
+
+module Miyako
+  @@initialized = false
+
+  #===Miyakoのメインループ
+  #ブロックを受け取り、そのブロックを評価する
+  #ブロック評価前に<i>Audio::update</i>と<i>Input::update</i>、<i>Screen::clear</i>、評価後に<i>Screen::render</i>を呼び出す
+  #
+  #ブロックを渡さないと例外が発生する
+  def Miyako.main_loop
+    raise MiyakoError, "Miyako.main_loop needs brock!" unless block_given?
+    loop do
+      Audio.update
+      Input.update
+      Screen.clear
+      yield
+      Screen.render
+    end
+  end
+
+  #===SDLの初期化
+  def Miyako.init
+    raise MiyakoError, "Already initialized!" if @@initialized
+    if $not_use_audio
+      SDL.init(SDL::INIT_VIDEO | SDL::INIT_JOYSTICK)
+    else
+      SDL.init(SDL::INIT_VIDEO | SDL::INIT_AUDIO | SDL::INIT_JOYSTICK)
+    end
+    @@initialized = true
+  end
+
+  #===Miyako(SDL)が初期化された？
+  def Miyako.initialized?
+    @@initialized
+  end
+  
+  #===Miyakoの初期化
+  #画面初期化や音声初期化などのメソッドを呼び出す。
+  #グローバル変数$miyako_auto_openがtrueのときは最初に自動的に呼び出される。
+  #ユーティリティメソッドを使うだけならば、$miyako_auto_open=falseを設定して、後々Miyako.openを呼び出す。
+  #_screen_:: 別のプロセスで生成されたSDL::Screenクラスのインスタンス。省略時はnil
+  #_buf_size_:: Audioモジュールで使用するバッファサイズ。単位はバイト。省略時は4096
+  #_seq_:: Audioモジュールで使用する音声の再生サンプル周波数。省略時は44100(44.1kHz)
+  def Miyako.open(screen = nil, buf_size = 4096, seq = 44100)
+    Miyako.init
+    Screen.init(screen)
+    Font.init
+    Audio.init(buf_size, seq)
+    Input.init
+  end
+end
+
+require 'Miyako/miyako_no_katana'
+
+Miyako.open(nil, $sound_buffer_size, $sampling_seq) if $miyako_auto_open

data/lib/Miyako/miyako_require_only.rb

@@ -0,0 +1,35 @@
+# -*- encoding: utf-8 -*-
+#
+#=コンテンツ作成ライブラリMiyako2.1
+#
+#Authors:: サイロス誠
+#Version:: 2.1.0
+#Copyright:: 2007-2009 Cyross Makoto
+#License:: LGPL2.1
+#
+=begin
+Miyako v2.1
+Copyright (C) 2007-2008  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 'Miyako/miyako'のみ行う
+
+$miyako_auto_open = false
+
+require 'Miyako/miyako'
+
+$miyako_auto_open = nil

data/miyako_basicdata.c

@@ -1,590 +1,590 @@
-/*
---
-Miyako v2.0 Extend Library "Miyako no Katana"
-Copyright (C) 2008  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
-++
-*/
-
-/*
-=拡張ライブラリmiyako_no_katana
-Authors:: サイロス誠
-Version:: 2.0
-Copyright:: 2007-2008 Cyross Makoto
-License:: LGPL2.1
- */
-#include "defines.h"
-
-static VALUE mSDL = Qnil;
-static VALUE mMiyako = Qnil;
-static VALUE eMiyakoError = Qnil;
-static VALUE cWaitCounter = Qnil;
-static VALUE sSpriteUnit = Qnil;
-static VALUE sPoint = Qnil;
-static VALUE sSize = Qnil;
-static VALUE sRect = Qnil;
-static VALUE sSquare = Qnil;
-static VALUE sSegment = Qnil;
-static VALUE nZero = Qnil;
-static VALUE nOne = Qnil;
-static volatile ID id_update = Qnil;
-static volatile ID id_kakko  = Qnil;
-static volatile ID id_render = Qnil;
-static volatile ID id_to_a   = Qnil;
-static volatile int zero = Qnil;
-static volatile int one = Qnil;
-
-/*
-:nodoc:
-*/
-static void get_min_max(VALUE segment, VALUE *min, VALUE *max)
-{
-  VALUE *tmp;
-  switch(TYPE(segment))
-  {
-  case T_ARRAY:
-    if(RARRAY_LEN(segment) < 2)
-      rb_raise(eMiyakoError, "pairs have illegal array! (above 2 elements)");
-    tmp = RARRAY_PTR(segment);
-    *min = *tmp++;
-    *max = *tmp;
-    break;
-  case T_STRUCT:
-    if(RSTRUCT_LEN(segment) < 2)
-      rb_raise(eMiyakoError, "pairs have illegal struct! (above 2 attributes)");
-    tmp = RSTRUCT_PTR(segment);
-    *min = *tmp++;
-    *max = *tmp;
-    break;
-  default:
-    *min = rb_funcall(segment, rb_intern("min"), 0);
-    *max = rb_funcall(segment, rb_intern("max"), 0);
-    break;
-  }
-}
-
-/*
-:nodoc:
-*/
-static VALUE counter_start(VALUE self)
-{
-  rb_iv_set(self, "@st", rb_funcall(mSDL, rb_intern("getTicks"), 0));
-  rb_iv_set(self, "@counting", Qtrue);
-  return self;
-}
-
-/*
-:nodoc:
-*/
-static VALUE counter_stop(VALUE self)
-{
-  rb_iv_set(self, "@st", INT2NUM(0));
-  rb_iv_set(self, "@counting", Qfalse);
-  return self;
-}
-
-/*
-:nodoc:
-*/
-static VALUE counter_wait_inner(VALUE self, VALUE f)
-{
-  VALUE counting = rb_iv_set(self, "@counting", Qtrue);
-  if(counting == Qfalse){ return f == Qtrue ? Qfalse : Qtrue; }
-
-  int t = NUM2INT(rb_funcall(mSDL, rb_intern("getTicks"), 0));
-  int st = NUM2INT(rb_iv_get(self, "@st"));
-  int wait = NUM2INT(rb_iv_get(self, "@wait"));
-  if((t - st) < wait){ return f; }
-
-  rb_iv_set(cWaitCounter, "@counting", Qfalse);
-
-  return f == Qtrue ? Qfalse : Qtrue;
-}
-
-/*
-:nodoc:
-*/
-static VALUE counter_waiting(VALUE self)
-{
-  return counter_wait_inner(self, Qtrue);
-}
-
-/*
-:nodoc:
-*/
-static VALUE counter_finish(VALUE self)
-{
-  return counter_wait_inner(self, Qfalse);
-}
-
-/*
-:nodoc:
-*/
-static VALUE counter_wait(VALUE self)
-{
-  int t = NUM2INT(rb_funcall(mSDL, rb_intern("getTicks"), 0));
-  int st = NUM2INT(rb_funcall(mSDL, rb_intern("getTicks"), 0));
-  int wait = NUM2INT(rb_iv_get(self, "@wait"));
-  while((t - st) < wait){
-    t = NUM2INT(rb_funcall(mSDL, rb_intern("getTicks"), 0));
-  }
-  return self;
-}
-
-static VALUE su_move(VALUE self, VALUE dx, VALUE dy)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  VALUE *px = st+5;
-  VALUE *py = st+6;
-  VALUE tx = *px;
-  VALUE ty = *py;
-  *px = INT2NUM(NUM2INT(tx)+NUM2INT(dx));
-  *py = INT2NUM(NUM2INT(ty)+NUM2INT(dy));
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-    {
-      *px = tx;
-      *py = ty;
-    }
-  }
-  return self;
-}
-
-static VALUE su_move_to(VALUE self, VALUE x, VALUE y)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  VALUE *px = st+5;
-  VALUE *py = st+6;
-  VALUE tx = *px;
-  VALUE ty = *py;
-  *px = x;
-  *py = y;
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-    {
-      *px = tx;
-      *py = ty;
-    }
-  }
-  return self;
-}
-
-static VALUE point_move(VALUE self, VALUE dx, VALUE dy)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  VALUE *px = st+0;
-  VALUE *py = st+1;
-  VALUE tx = *px;
-  VALUE ty = *py;
-  *px = INT2NUM(NUM2INT(tx)+NUM2INT(dx));
-  *py = INT2NUM(NUM2INT(ty)+NUM2INT(dy));
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-    {
-      *px = tx;
-      *py = ty;
-    }
-  }
-  return self;
-}
-
-static VALUE point_move_to(VALUE self, VALUE x, VALUE y)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  VALUE *px = st+0;
-  VALUE *py = st+1;
-  VALUE tx = *px;
-  VALUE ty = *py;
-  *px = x;
-  *py = y;
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-    {
-      *px = tx;
-      *py = ty;
-    }
-  }
-  return self;
-}
-
-static VALUE size_resize(VALUE self, VALUE dw, VALUE dh)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  VALUE *pw = st+0;
-  VALUE *ph = st+1;
-  VALUE tw = *pw;
-  VALUE th = *ph;
-  *pw = INT2NUM(NUM2INT(tw)+NUM2INT(dw));
-  *ph = INT2NUM(NUM2INT(th)+NUM2INT(dh));
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-    {
-      *pw = tw;
-      *ph = th;
-    }
-  }
-  return self;
-}
-
-static VALUE size_resize_to(VALUE self, VALUE w, VALUE h)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  VALUE *pw = st+0;
-  VALUE *ph = st+1;
-  VALUE tw = *pw;
-  VALUE th = *ph;
-  *pw = w;
-  *ph = h;
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-    {
-      *pw = tw;
-      *ph = th;
-    }
-  }
-  return self;
-}
-
-static VALUE rect_resize(VALUE self, VALUE dw, VALUE dh)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  VALUE *pw = st+2;
-  VALUE *ph = st+3;
-  VALUE tw = *pw;
-  VALUE th = *ph;
-  *pw = INT2NUM(NUM2INT(*pw) + NUM2INT(dw));
-  *ph = INT2NUM(NUM2INT(*pw) + NUM2INT(dh));
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-    {
-      *pw = tw;
-      *ph = th;
-    }
-  }
-  return self;
-}
-
-static VALUE rect_resize_to(VALUE self, VALUE w, VALUE h)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  VALUE *pw = st+2;
-  VALUE *ph = st+3;
-  VALUE tw = *pw;
-  VALUE th = *ph;
-  *pw = w;
-  *ph = h;
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-    {
-      *pw = tw;
-      *ph = th;
-    }
-  }
-  return self;
-}
-
-static VALUE rect_in_range(VALUE self, VALUE vx, VALUE vy)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  int l = NUM2INT(*(st+0));
-  int t = NUM2INT(*(st+1));
-  int w = NUM2INT(*(st+2));
-  int h = NUM2INT(*(st+3));
-  int x = NUM2INT(vx);
-  int y = NUM2INT(vy);
-  
-  if(x >= l && y >= t && x < (l+w) && y < (t+h)){ return Qtrue; }
-  return Qfalse;
-}
-
-static VALUE square_move(VALUE self, VALUE dx, VALUE dy)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  VALUE *pl = st+0;
-  VALUE *pt = st+1;
-  VALUE *pr = st+2;
-  VALUE *pb = st+3;
-  VALUE tl = *pl;
-  VALUE tt = *pt;
-  VALUE tr = *pr;
-  VALUE tb = *pb;
-  *pl = INT2NUM(NUM2INT(tl)+NUM2INT(dx));
-  *pt = INT2NUM(NUM2INT(tt)+NUM2INT(dy));
-  *pr = INT2NUM(NUM2INT(tr)+NUM2INT(dx));
-  *pb = INT2NUM(NUM2INT(tb)+NUM2INT(dy));
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-    {
-      *pl = tl;
-      *pt = tt;
-      *pr = tr;
-      *pb = tb;
-    }
-  }
-  return self;
-}
-
-static VALUE square_move_to(VALUE self, VALUE x, VALUE y)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  VALUE *pl = st+0;
-  VALUE *pt = st+1;
-  VALUE *pr = st+2;
-  VALUE *pb = st+3;
-  VALUE tl = *pl;
-  VALUE tt = *pt;
-  VALUE tr = *pr;
-  VALUE tb = *pb;
-  int w = NUM2INT(tr)-NUM2INT(tl);
-  int h = NUM2INT(tb)-NUM2INT(tt);
-  *pl = x;
-  *pt = y;
-  *pr = INT2NUM(NUM2INT(x)+w);
-  *pb = INT2NUM(NUM2INT(y)+h);
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-    {
-      *pl = tl;
-      *pt = tt;
-      *pr = tr;
-      *pb = tb;
-    }
-  }
-  return self;
-}
-
-static VALUE square_resize(VALUE self, VALUE dw, VALUE dh)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  VALUE *pr = st+2;
-  VALUE *pb = st+3;
-  VALUE tr = *pr;
-  VALUE tb = *pb;
-  *pr = INT2NUM(NUM2INT(*pr) + NUM2INT(dw));
-  *pb = INT2NUM(NUM2INT(*pb) + NUM2INT(dh));
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-    {
-      *pr = tr;
-      *pb = tb;
-    }
-  }
-  return self;
-}
-
-static VALUE square_resize_to(VALUE self, VALUE w, VALUE h)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  VALUE *pl = st+0;
-  VALUE *pt = st+1;
-  VALUE *pr = st+2;
-  VALUE *pb = st+3;
-  VALUE tr = *pr;
-  VALUE tb = *pb;
-  *pr = INT2NUM(NUM2INT(*pl) + NUM2INT(w) - 1);
-  *pb = INT2NUM(NUM2INT(*pt) + NUM2INT(h) - 1);
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-    {
-      *pr = tr;
-      *pb = tb;
-    }
-  }
-  return self;
-}
-
-static VALUE square_in_range(VALUE self, VALUE vx, VALUE vy)
-{
-  VALUE *st = RSTRUCT_PTR(self);
-  int l = NUM2INT(*(st+0));
-  int t = NUM2INT(*(st+1));
-  int r = NUM2INT(*(st+2));
-  int b = NUM2INT(*(st+3));
-  int x = NUM2INT(vx);
-  int y = NUM2INT(vy);
-  
-  if(x >= l && y >= t && x <= r && y <= b){ return Qtrue; }
-  return Qfalse;
-}
-
-static VALUE segment_move(VALUE self, VALUE dx, VALUE dy)
-{
-  VALUE min_x, max_x, min_y, max_y;
-  VALUE *st = RSTRUCT_PTR(self);
-  
-  get_min_max(*(st+0), &min_x, &max_x);
-  get_min_max(*(st+1), &min_y, &max_y);
-  
-  rb_funcall(self, rb_intern("reset"), 4, INT2NUM(NUM2INT(min_x)+NUM2INT(dx)),
-                                          INT2NUM(NUM2INT(min_y)+NUM2INT(dy)),
-                                          INT2NUM(NUM2INT(max_x)+NUM2INT(dx)),
-                                          INT2NUM(NUM2INT(max_y)+NUM2INT(dy)));
-
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-      rb_funcall(self, rb_intern("reset"), 4, min_x, max_x, min_y, max_y);
-  }
-
-  return self;
-}
-
-static VALUE segment_move_to(VALUE self, VALUE x, VALUE y)
-{
-  VALUE min_x, max_x, min_y, max_y;
-  VALUE *st = RSTRUCT_PTR(self);
-  
-  get_min_max(*(st+0), &min_x, &max_x);
-  get_min_max(*(st+1), &min_y, &max_y);
-  
-  int w = NUM2INT(max_x)-NUM2INT(min_x);
-  int h = NUM2INT(max_y)-NUM2INT(min_y);
-
-  rb_funcall(self, rb_intern("reset"), 4, x, y, INT2NUM(NUM2INT(x)+w), INT2NUM(NUM2INT(y)+h));
-
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-      rb_funcall(self, rb_intern("reset"), 4, min_x, max_x, min_y, max_y);
-  }
-
-  return self;
-}
-
-static VALUE segment_resize(VALUE self, VALUE dw, VALUE dh)
-{
-  VALUE min_x, max_x, min_y, max_y;
-  VALUE *st = RSTRUCT_PTR(self);
-   
-  get_min_max(*(st+0), &min_x, &max_x);
-  get_min_max(*(st+1), &min_y, &max_y);
-
-  int w = NUM2INT(max_x) + NUM2INT(dw);
-  int h = NUM2INT(max_y) + NUM2INT(dh);
-  
-  if(w <= 0)
-    rb_raise(eMiyakoError, "illegal width(result is 0 or minus)");
-  if(h <= 0)
-    rb_raise(eMiyakoError, "illegal height(result is 0 or minus)");
-  
-  rb_funcall(self, rb_intern("reset"), 4, INT2NUM(NUM2INT(min_x)),
-                                          INT2NUM(NUM2INT(min_y)),
-                                          INT2NUM(w),
-                                          INT2NUM(h));
-
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-      rb_funcall(self, rb_intern("reset"), 4, min_x, max_x, min_y, max_y);
-  }
-
-  return self;
-}
-
-static VALUE segment_resize_to(VALUE self, VALUE w, VALUE h)
-{
-  VALUE min_x, max_x, min_y, max_y;
-  VALUE *st = RSTRUCT_PTR(self);
-  
-  get_min_max(*(st+0), &min_x, &max_x);
-  get_min_max(*(st+1), &min_y, &max_y);
-  
-  int nw = NUM2INT(w);
-  int nh = NUM2INT(h);
-  
-  if(nw <= 0)
-    rb_raise(eMiyakoError, "illegal width(result is 0 or minus)");
-  if(nh <= 0)
-    rb_raise(eMiyakoError, "illegal height(result is 0 or minus)");
-  
-  rb_funcall(self, rb_intern("reset"), 4, INT2NUM(NUM2INT(min_x)),
-                                          INT2NUM(NUM2INT(min_y)),
-                                          INT2NUM(NUM2INT(min_x)+nw-1),
-                                          INT2NUM(NUM2INT(min_y)+nh-1));
-
-  if(rb_block_given_p() == Qtrue){
-    VALUE ret = rb_yield(self);
-    if(ret == Qfalse || ret == Qnil)
-      rb_funcall(self, rb_intern("reset"), 4, min_x, max_x, min_y, max_y);
-  }
-
-  return self;
-}
-
-void Init_miyako_basicdata()
-{
-  mSDL = rb_define_module("SDL");
-  mMiyako = rb_define_module("Miyako");
-  eMiyakoError  = rb_define_class_under(mMiyako, "MiyakoError", rb_eException);
-  cWaitCounter  = rb_define_class_under(mMiyako, "WaitCounter", rb_cObject);
-  sSpriteUnit = rb_define_class_under(mMiyako, "SpriteUnitBase", rb_cStruct);
-  sPoint = rb_define_class_under(mMiyako, "PointStruct", rb_cStruct);
-  sSize = rb_define_class_under(mMiyako, "SizeStruct", rb_cStruct);
-  sRect = rb_define_class_under(mMiyako, "RectStruct", rb_cStruct);
-  sSquare = rb_define_class_under(mMiyako, "SquareStruct", rb_cStruct);
-  sSegment = rb_define_class_under(mMiyako, "SegmentStruct", rb_cStruct);
-
-  id_update = rb_intern("update");
-  id_kakko  = rb_intern("[]");
-  id_render = rb_intern("render");
-  id_to_a   = rb_intern("to_a");
-
-  zero = 0;
-  nZero = INT2NUM(zero);
-  one = 1;
-  nOne = INT2NUM(one);
-
-  rb_define_method(cWaitCounter, "start", counter_start, 0);
-  rb_define_method(cWaitCounter, "stop",  counter_stop,  0);
-  rb_define_method(cWaitCounter, "wait_inner", counter_wait_inner, 1);
-  rb_define_method(cWaitCounter, "waiting?", counter_waiting, 0);
-  rb_define_method(cWaitCounter, "finish?", counter_finish, 0);
-  rb_define_method(cWaitCounter, "wait", counter_wait, 0);
-  
-  rb_define_method(sSpriteUnit, "move", su_move, 2);
-  rb_define_method(sSpriteUnit, "move_to", su_move_to, 2);
-
-  rb_define_method(sPoint, "move", point_move, 2);
-  rb_define_method(sPoint, "move_to", point_move_to, 2);
-  rb_define_method(sSize, "resize", size_resize, 2);
-  rb_define_method(sSize, "resize_to", size_resize_to, 2);
-  rb_define_method(sRect, "move", point_move, 2);
-  rb_define_method(sRect, "move_to", point_move_to, 2);
-  rb_define_method(sRect, "resize", rect_resize, 2);
-  rb_define_method(sRect, "resize_to", rect_resize_to, 2);
-  rb_define_method(sRect, "in_range?", rect_in_range, 2);
-  rb_define_method(sSquare, "move", square_move, 2);
-  rb_define_method(sSquare, "move_to", square_move_to, 2);
-  rb_define_method(sSquare, "resize", square_resize, 2);
-  rb_define_method(sSquare, "resize_to", square_resize_to, 2);
-  rb_define_method(sSquare, "in_range?", square_in_range, 2);
-  rb_define_method(sSegment, "move", segment_move, 2);
-  rb_define_method(sSegment, "move_to", segment_move_to, 2);
-  rb_define_method(sSegment, "resize", segment_resize, 2);
-  rb_define_method(sSegment, "resize_to", segment_resize_to, 2);
-}
+/*
+--
+Miyako v2.0 Extend Library "Miyako no Katana"
+Copyright (C) 2008  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
+++
+*/
+
+/*
+=拡張ライブラリmiyako_no_katana
+Authors:: サイロス誠
+Version:: 2.0
+Copyright:: 2007-2008 Cyross Makoto
+License:: LGPL2.1
+ */
+#include "defines.h"
+
+static VALUE mSDL = Qnil;
+static VALUE mMiyako = Qnil;
+static VALUE eMiyakoError = Qnil;
+static VALUE cWaitCounter = Qnil;
+static VALUE sSpriteUnit = Qnil;
+static VALUE sPoint = Qnil;
+static VALUE sSize = Qnil;
+static VALUE sRect = Qnil;
+static VALUE sSquare = Qnil;
+static VALUE sSegment = Qnil;
+static VALUE nZero = Qnil;
+static VALUE nOne = Qnil;
+static volatile ID id_update = Qnil;
+static volatile ID id_kakko  = Qnil;
+static volatile ID id_render = Qnil;
+static volatile ID id_to_a   = Qnil;
+static volatile int zero = Qnil;
+static volatile int one = Qnil;
+
+/*
+:nodoc:
+*/
+static void get_min_max(VALUE segment, VALUE *min, VALUE *max)
+{
+  VALUE *tmp;
+  switch(TYPE(segment))
+  {
+  case T_ARRAY:
+    if(RARRAY_LEN(segment) < 2)
+      rb_raise(eMiyakoError, "pairs have illegal array! (above 2 elements)");
+    tmp = RARRAY_PTR(segment);
+    *min = *tmp++;
+    *max = *tmp;
+    break;
+  case T_STRUCT:
+    if(RSTRUCT_LEN(segment) < 2)
+      rb_raise(eMiyakoError, "pairs have illegal struct! (above 2 attributes)");
+    tmp = RSTRUCT_PTR(segment);
+    *min = *tmp++;
+    *max = *tmp;
+    break;
+  default:
+    *min = rb_funcall(segment, rb_intern("min"), 0);
+    *max = rb_funcall(segment, rb_intern("max"), 0);
+    break;
+  }
+}
+
+/*
+:nodoc:
+*/
+static VALUE counter_start(VALUE self)
+{
+  rb_iv_set(self, "@st", rb_funcall(mSDL, rb_intern("getTicks"), 0));
+  rb_iv_set(self, "@counting", Qtrue);
+  return self;
+}
+
+/*
+:nodoc:
+*/
+static VALUE counter_stop(VALUE self)
+{
+  rb_iv_set(self, "@st", INT2NUM(0));
+  rb_iv_set(self, "@counting", Qfalse);
+  return self;
+}
+
+/*
+:nodoc:
+*/
+static VALUE counter_wait_inner(VALUE self, VALUE f)
+{
+  VALUE counting = rb_iv_set(self, "@counting", Qtrue);
+  if(counting == Qfalse){ return f == Qtrue ? Qfalse : Qtrue; }
+
+  int t = NUM2INT(rb_funcall(mSDL, rb_intern("getTicks"), 0));
+  int st = NUM2INT(rb_iv_get(self, "@st"));
+  int wait = NUM2INT(rb_iv_get(self, "@wait"));
+  if((t - st) < wait){ return f; }
+
+  rb_iv_set(cWaitCounter, "@counting", Qfalse);
+
+  return f == Qtrue ? Qfalse : Qtrue;
+}
+
+/*
+:nodoc:
+*/
+static VALUE counter_waiting(VALUE self)
+{
+  return counter_wait_inner(self, Qtrue);
+}
+
+/*
+:nodoc:
+*/
+static VALUE counter_finish(VALUE self)
+{
+  return counter_wait_inner(self, Qfalse);
+}
+
+/*
+:nodoc:
+*/
+static VALUE counter_wait(VALUE self)
+{
+  int t = NUM2INT(rb_funcall(mSDL, rb_intern("getTicks"), 0));
+  int st = NUM2INT(rb_funcall(mSDL, rb_intern("getTicks"), 0));
+  int wait = NUM2INT(rb_iv_get(self, "@wait"));
+  while((t - st) < wait){
+    t = NUM2INT(rb_funcall(mSDL, rb_intern("getTicks"), 0));
+  }
+  return self;
+}
+
+static VALUE su_move(VALUE self, VALUE dx, VALUE dy)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  VALUE *px = st+5;
+  VALUE *py = st+6;
+  VALUE tx = *px;
+  VALUE ty = *py;
+  *px = INT2NUM(NUM2INT(tx)+NUM2INT(dx));
+  *py = INT2NUM(NUM2INT(ty)+NUM2INT(dy));
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+    {
+      *px = tx;
+      *py = ty;
+    }
+  }
+  return self;
+}
+
+static VALUE su_move_to(VALUE self, VALUE x, VALUE y)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  VALUE *px = st+5;
+  VALUE *py = st+6;
+  VALUE tx = *px;
+  VALUE ty = *py;
+  *px = x;
+  *py = y;
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+    {
+      *px = tx;
+      *py = ty;
+    }
+  }
+  return self;
+}
+
+static VALUE point_move(VALUE self, VALUE dx, VALUE dy)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  VALUE *px = st+0;
+  VALUE *py = st+1;
+  VALUE tx = *px;
+  VALUE ty = *py;
+  *px = INT2NUM(NUM2INT(tx)+NUM2INT(dx));
+  *py = INT2NUM(NUM2INT(ty)+NUM2INT(dy));
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+    {
+      *px = tx;
+      *py = ty;
+    }
+  }
+  return self;
+}
+
+static VALUE point_move_to(VALUE self, VALUE x, VALUE y)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  VALUE *px = st+0;
+  VALUE *py = st+1;
+  VALUE tx = *px;
+  VALUE ty = *py;
+  *px = x;
+  *py = y;
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+    {
+      *px = tx;
+      *py = ty;
+    }
+  }
+  return self;
+}
+
+static VALUE size_resize(VALUE self, VALUE dw, VALUE dh)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  VALUE *pw = st+0;
+  VALUE *ph = st+1;
+  VALUE tw = *pw;
+  VALUE th = *ph;
+  *pw = INT2NUM(NUM2INT(tw)+NUM2INT(dw));
+  *ph = INT2NUM(NUM2INT(th)+NUM2INT(dh));
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+    {
+      *pw = tw;
+      *ph = th;
+    }
+  }
+  return self;
+}
+
+static VALUE size_resize_to(VALUE self, VALUE w, VALUE h)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  VALUE *pw = st+0;
+  VALUE *ph = st+1;
+  VALUE tw = *pw;
+  VALUE th = *ph;
+  *pw = w;
+  *ph = h;
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+    {
+      *pw = tw;
+      *ph = th;
+    }
+  }
+  return self;
+}
+
+static VALUE rect_resize(VALUE self, VALUE dw, VALUE dh)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  VALUE *pw = st+2;
+  VALUE *ph = st+3;
+  VALUE tw = *pw;
+  VALUE th = *ph;
+  *pw = INT2NUM(NUM2INT(*pw) + NUM2INT(dw));
+  *ph = INT2NUM(NUM2INT(*pw) + NUM2INT(dh));
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+    {
+      *pw = tw;
+      *ph = th;
+    }
+  }
+  return self;
+}
+
+static VALUE rect_resize_to(VALUE self, VALUE w, VALUE h)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  VALUE *pw = st+2;
+  VALUE *ph = st+3;
+  VALUE tw = *pw;
+  VALUE th = *ph;
+  *pw = w;
+  *ph = h;
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+    {
+      *pw = tw;
+      *ph = th;
+    }
+  }
+  return self;
+}
+
+static VALUE rect_in_range(VALUE self, VALUE vx, VALUE vy)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  int l = NUM2INT(*(st+0));
+  int t = NUM2INT(*(st+1));
+  int w = NUM2INT(*(st+2));
+  int h = NUM2INT(*(st+3));
+  int x = NUM2INT(vx);
+  int y = NUM2INT(vy);
+  
+  if(x >= l && y >= t && x < (l+w) && y < (t+h)){ return Qtrue; }
+  return Qfalse;
+}
+
+static VALUE square_move(VALUE self, VALUE dx, VALUE dy)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  VALUE *pl = st+0;
+  VALUE *pt = st+1;
+  VALUE *pr = st+2;
+  VALUE *pb = st+3;
+  VALUE tl = *pl;
+  VALUE tt = *pt;
+  VALUE tr = *pr;
+  VALUE tb = *pb;
+  *pl = INT2NUM(NUM2INT(tl)+NUM2INT(dx));
+  *pt = INT2NUM(NUM2INT(tt)+NUM2INT(dy));
+  *pr = INT2NUM(NUM2INT(tr)+NUM2INT(dx));
+  *pb = INT2NUM(NUM2INT(tb)+NUM2INT(dy));
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+    {
+      *pl = tl;
+      *pt = tt;
+      *pr = tr;
+      *pb = tb;
+    }
+  }
+  return self;
+}
+
+static VALUE square_move_to(VALUE self, VALUE x, VALUE y)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  VALUE *pl = st+0;
+  VALUE *pt = st+1;
+  VALUE *pr = st+2;
+  VALUE *pb = st+3;
+  VALUE tl = *pl;
+  VALUE tt = *pt;
+  VALUE tr = *pr;
+  VALUE tb = *pb;
+  int w = NUM2INT(tr)-NUM2INT(tl);
+  int h = NUM2INT(tb)-NUM2INT(tt);
+  *pl = x;
+  *pt = y;
+  *pr = INT2NUM(NUM2INT(x)+w);
+  *pb = INT2NUM(NUM2INT(y)+h);
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+    {
+      *pl = tl;
+      *pt = tt;
+      *pr = tr;
+      *pb = tb;
+    }
+  }
+  return self;
+}
+
+static VALUE square_resize(VALUE self, VALUE dw, VALUE dh)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  VALUE *pr = st+2;
+  VALUE *pb = st+3;
+  VALUE tr = *pr;
+  VALUE tb = *pb;
+  *pr = INT2NUM(NUM2INT(*pr) + NUM2INT(dw));
+  *pb = INT2NUM(NUM2INT(*pb) + NUM2INT(dh));
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+    {
+      *pr = tr;
+      *pb = tb;
+    }
+  }
+  return self;
+}
+
+static VALUE square_resize_to(VALUE self, VALUE w, VALUE h)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  VALUE *pl = st+0;
+  VALUE *pt = st+1;
+  VALUE *pr = st+2;
+  VALUE *pb = st+3;
+  VALUE tr = *pr;
+  VALUE tb = *pb;
+  *pr = INT2NUM(NUM2INT(*pl) + NUM2INT(w) - 1);
+  *pb = INT2NUM(NUM2INT(*pt) + NUM2INT(h) - 1);
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+    {
+      *pr = tr;
+      *pb = tb;
+    }
+  }
+  return self;
+}
+
+static VALUE square_in_range(VALUE self, VALUE vx, VALUE vy)
+{
+  VALUE *st = RSTRUCT_PTR(self);
+  int l = NUM2INT(*(st+0));
+  int t = NUM2INT(*(st+1));
+  int r = NUM2INT(*(st+2));
+  int b = NUM2INT(*(st+3));
+  int x = NUM2INT(vx);
+  int y = NUM2INT(vy);
+  
+  if(x >= l && y >= t && x <= r && y <= b){ return Qtrue; }
+  return Qfalse;
+}
+
+static VALUE segment_move(VALUE self, VALUE dx, VALUE dy)
+{
+  VALUE min_x, max_x, min_y, max_y;
+  VALUE *st = RSTRUCT_PTR(self);
+  
+  get_min_max(*(st+0), &min_x, &max_x);
+  get_min_max(*(st+1), &min_y, &max_y);
+  
+  rb_funcall(self, rb_intern("reset"), 4, INT2NUM(NUM2INT(min_x)+NUM2INT(dx)),
+                                          INT2NUM(NUM2INT(min_y)+NUM2INT(dy)),
+                                          INT2NUM(NUM2INT(max_x)+NUM2INT(dx)),
+                                          INT2NUM(NUM2INT(max_y)+NUM2INT(dy)));
+
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+      rb_funcall(self, rb_intern("reset"), 4, min_x, max_x, min_y, max_y);
+  }
+
+  return self;
+}
+
+static VALUE segment_move_to(VALUE self, VALUE x, VALUE y)
+{
+  VALUE min_x, max_x, min_y, max_y;
+  VALUE *st = RSTRUCT_PTR(self);
+  
+  get_min_max(*(st+0), &min_x, &max_x);
+  get_min_max(*(st+1), &min_y, &max_y);
+  
+  int w = NUM2INT(max_x)-NUM2INT(min_x);
+  int h = NUM2INT(max_y)-NUM2INT(min_y);
+
+  rb_funcall(self, rb_intern("reset"), 4, x, y, INT2NUM(NUM2INT(x)+w), INT2NUM(NUM2INT(y)+h));
+
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+      rb_funcall(self, rb_intern("reset"), 4, min_x, max_x, min_y, max_y);
+  }
+
+  return self;
+}
+
+static VALUE segment_resize(VALUE self, VALUE dw, VALUE dh)
+{
+  VALUE min_x, max_x, min_y, max_y;
+  VALUE *st = RSTRUCT_PTR(self);
+   
+  get_min_max(*(st+0), &min_x, &max_x);
+  get_min_max(*(st+1), &min_y, &max_y);
+
+  int w = NUM2INT(max_x) + NUM2INT(dw);
+  int h = NUM2INT(max_y) + NUM2INT(dh);
+  
+  if(w <= 0)
+    rb_raise(eMiyakoError, "illegal width(result is 0 or minus)");
+  if(h <= 0)
+    rb_raise(eMiyakoError, "illegal height(result is 0 or minus)");
+  
+  rb_funcall(self, rb_intern("reset"), 4, INT2NUM(NUM2INT(min_x)),
+                                          INT2NUM(NUM2INT(min_y)),
+                                          INT2NUM(w),
+                                          INT2NUM(h));
+
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+      rb_funcall(self, rb_intern("reset"), 4, min_x, max_x, min_y, max_y);
+  }
+
+  return self;
+}
+
+static VALUE segment_resize_to(VALUE self, VALUE w, VALUE h)
+{
+  VALUE min_x, max_x, min_y, max_y;
+  VALUE *st = RSTRUCT_PTR(self);
+  
+  get_min_max(*(st+0), &min_x, &max_x);
+  get_min_max(*(st+1), &min_y, &max_y);
+  
+  int nw = NUM2INT(w);
+  int nh = NUM2INT(h);
+  
+  if(nw <= 0)
+    rb_raise(eMiyakoError, "illegal width(result is 0 or minus)");
+  if(nh <= 0)
+    rb_raise(eMiyakoError, "illegal height(result is 0 or minus)");
+  
+  rb_funcall(self, rb_intern("reset"), 4, INT2NUM(NUM2INT(min_x)),
+                                          INT2NUM(NUM2INT(min_y)),
+                                          INT2NUM(NUM2INT(min_x)+nw-1),
+                                          INT2NUM(NUM2INT(min_y)+nh-1));
+
+  if(rb_block_given_p() == Qtrue){
+    VALUE ret = rb_yield(self);
+    if(ret == Qfalse || ret == Qnil)
+      rb_funcall(self, rb_intern("reset"), 4, min_x, max_x, min_y, max_y);
+  }
+
+  return self;
+}
+
+void Init_miyako_basicdata()
+{
+  mSDL = rb_define_module("SDL");
+  mMiyako = rb_define_module("Miyako");
+  eMiyakoError  = rb_define_class_under(mMiyako, "MiyakoError", rb_eException);
+  cWaitCounter  = rb_define_class_under(mMiyako, "WaitCounter", rb_cObject);
+  sSpriteUnit = rb_define_class_under(mMiyako, "SpriteUnitBase", rb_cStruct);
+  sPoint = rb_define_class_under(mMiyako, "PointStruct", rb_cStruct);
+  sSize = rb_define_class_under(mMiyako, "SizeStruct", rb_cStruct);
+  sRect = rb_define_class_under(mMiyako, "RectStruct", rb_cStruct);
+  sSquare = rb_define_class_under(mMiyako, "SquareStruct", rb_cStruct);
+  sSegment = rb_define_class_under(mMiyako, "SegmentStruct", rb_cStruct);
+
+  id_update = rb_intern("update");
+  id_kakko  = rb_intern("[]");
+  id_render = rb_intern("render");
+  id_to_a   = rb_intern("to_a");
+
+  zero = 0;
+  nZero = INT2NUM(zero);
+  one = 1;
+  nOne = INT2NUM(one);
+
+  rb_define_method(cWaitCounter, "start", counter_start, 0);
+  rb_define_method(cWaitCounter, "stop",  counter_stop,  0);
+  rb_define_method(cWaitCounter, "wait_inner", counter_wait_inner, 1);
+  rb_define_method(cWaitCounter, "waiting?", counter_waiting, 0);
+  rb_define_method(cWaitCounter, "finish?", counter_finish, 0);
+  rb_define_method(cWaitCounter, "wait", counter_wait, 0);
+  
+  rb_define_method(sSpriteUnit, "move!", su_move, 2);
+  rb_define_method(sSpriteUnit, "move_to!", su_move_to, 2);
+
+  rb_define_method(sPoint, "move!", point_move, 2);
+  rb_define_method(sPoint, "move_to!", point_move_to, 2);
+  rb_define_method(sSize, "resize!", size_resize, 2);
+  rb_define_method(sSize, "resize_to!", size_resize_to, 2);
+  rb_define_method(sRect, "move!", point_move, 2);
+  rb_define_method(sRect, "move_to!", point_move_to, 2);
+  rb_define_method(sRect, "resize!", rect_resize, 2);
+  rb_define_method(sRect, "resize_to!", rect_resize_to, 2);
+  rb_define_method(sRect, "in_range?", rect_in_range, 2);
+  rb_define_method(sSquare, "move!", square_move, 2);
+  rb_define_method(sSquare, "move_to!", square_move_to, 2);
+  rb_define_method(sSquare, "resize!", square_resize, 2);
+  rb_define_method(sSquare, "resize_to!", square_resize_to, 2);
+  rb_define_method(sSquare, "in_range?", square_in_range, 2);
+  rb_define_method(sSegment, "move!", segment_move, 2);
+  rb_define_method(sSegment, "move_to!", segment_move_to, 2);
+  rb_define_method(sSegment, "resize!", segment_resize, 2);
+  rb_define_method(sSegment, "resize_to!", segment_resize_to, 2);
+}