ruby-miyako-mswin32 2.1.0

data/lib/Miyako/EXT/miyako_cairo.rb

@@ -0,0 +1,62 @@
+# -*- encoding: utf-8 -*-
+# Miyako Extension Cairo-Miyako interface
+=begin
+Miyako Extention Library 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
+
+begin
+  loaded = false
+  require 'cairo'
+rescue LoadError
+  begin
+    require 'rubygems'
+    require 'cairo'
+    loaded = true
+  rescue LoadError
+    raise Miyako::MiyakoError, "Sorry, Cairo-Miyako Interface has rcairo." unless loaded
+  end
+end
+
+module Miyako
+  #==MiyakoのSpriteクラスのインスタンスとCairoのImageSurfaceクラスのインスタンスとの相互変換モジュール
+  #要rcairo1.8以降
+  module MiyakoCairo
+    #===SpriteインスタンスをCairoのImageSurfaceに変換
+    #変換したCairo::ImageSurfaceインスタンスは、32ビット(Cairo::Format::ARGB32)の画像を持つ
+    #_sprite_:: 変換元Spriteインスタンス
+    #返却値:: 変換したCairo::ImageSurfaceインスタンス
+    def MiyakoCairo.to_cairo_surface(sprite)
+      return Cairo::ImageSurface.new(sprite.bitmap.pixels, Cairo::Format::ARGB32, sprite.w, sprite.h, sprite.w * 4)
+    end
+    
+    #===CairoのImageSurfaceをSpriteインスタンスに変換
+    #変換したSpriteインスタンスは、:acタイプ(但し元画像がCairo::Format::RGB24の時は:asタイプ)の画像を持つ
+    #_surface_:: 変換元Cairo::ImageSurfaceインスタンス
+    #返却値:: 変換したSpriteインスタンス
+    def MiyakoCairo.to_sprite(surface)
+      # エンディアン判別
+      if [1].pack("V*") == [1].pack("L*") # リトルエンディアン？
+        bitmap = SDL::Surface.new_from(surface.data, surface.width, surface.height, 32, surface.stride, 0xff0000, 0xff00, 0xff, 0xff000000)
+      else # ビッグエンディアン
+        bitmap = SDL::Surface.new_from(surface.data, surface.width, surface.height, 32, surface.stride, 0xff00, 0xff0000, 0xff000000, 0xff)
+      end
+      return Sprite.new(:bitmap => bitmap, :type => :as) if surface.format == Cairo::Format::RGB24
+      return Sprite.new(:bitmap => bitmap, :type => :ac)
+    end
+  end
+end

data/lib/Miyako/EXT/raster_scroll.rb

@@ -0,0 +1,138 @@
+# -*- encoding: utf-8 -*-
+# Miyako Extension Raster Scroll
+=begin
+Miyako Extention Library 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 RasterScroll
+    #===インスタンスを作成する
+    #ラスタスクロール対象のスプライトを登録する
+    #_sspr_:: ラスタスクロール対象スプライト
+    #返却値:: 作成したインスタンス
+    def initialize(sspr)
+      @src = sspr
+      @lines = 0
+      @h = @src.h
+      @size = 0
+      @sangle = 0
+      @dangle = 0
+      @fade_out = false
+      @fo_size = 0
+      @effecting = false
+    end
+    
+    #===ラスタスクロールを開始する
+    #ラスタスクロール実行用に設定する引数は以下の通り
+    #:lines -> ライン数(:lines=>3を指定すると、3ラインずつラスタスクロールを行う)。デフォルトは1（ライン）
+    #:size  -> 最大振幅数(:size=>20を指定すると、最大20ピクセルの高さの波となる)。デフォルトは4(ピクセル)
+    #:start_angle -> 開始角度(一番上のラインでの振幅角度(ラジアンではなく角度なのに注意!))。デフォルトは0(度)
+    #:distance -> 角度の変化量(ラインごとの角度の変化量。:distance=>1のときは、1度ずつ変化させる)。デフォルトは1(度)
+    #:wait -> 変化させる間隔(WaitCounterクラスのインスタンス)。デフォルトは0.1秒間隔
+    #_params_:: ラスタスクロール情報引数
+    #返却値:: 自分自身を返す
+    def start(params)
+      @lines = params[:lines] || 1
+      @size = params[:size] || 4
+      @sangle = params[:start_angle] || 0
+      @dangle = params[:distance] || 1
+      @wait = params[:wait] || WaitCounter.new(0.1)
+      @h = @h / @lines
+      @fade_out = false
+      @fo_size = 0
+      @effecting = true
+      @wait.start
+      return self
+    end
+  
+    #===ラスタスクロール処理を更新する
+    #返却値:: 自分自身を返す
+    def update
+      return self unless @effecting
+      if @wait.finish?
+        @sangle = (@sangle + @dangle) % 360
+        @wait.start
+        if @fade_out
+          return self unless @fo_wait.finish?
+          @size = @size - @fo_size
+          @fo_wait.start
+          if @size <= 0
+            @effecting = false
+            @fade_out = false
+          end
+        end
+      end
+      return self
+    end
+
+    #===ラスタスクロールの実行状態を問い合わせる
+    #返却値:: ラスタスクロール中の時はtrueを返す
+    def effecting?
+      return @effecting
+    end
+
+    #===ラスタスクロールの実行状態を問い合わせる
+    #返却値:: ラスタスクロール中の時はtrueを返す
+    def fade_out?
+      return @fade_out
+    end
+
+    #===ラスタスクロールを停止する
+    def stop
+      @wait.stop
+      @fo_size.stop if @fo_size
+      @effecting = false
+      @fade_out = false
+    end
+
+    #===ラスタスクロールを画面に描画する
+    def render
+      angle = @sangle
+      @h.times{|y|
+        rsx = @size * Math.sin(angle)
+        @src.render{|src, dst| src.x += rsx; src.y += y * @lines; src.oy += y * @lines; src.oh = @lines }
+        angle = angle + @dangle
+      }
+    end
+    
+    #===ラスタスクロールを画像に描画する
+    #_dst_:: 描画先画像
+    def render_to(dst)
+      @angle = @sangle
+      @h.times{|y|
+        rsx = @size * Math.sin(@angle)
+        @src.render_to(dst){|src, dst| src.x += rsx; src.y += y * @lines; src.oy += y * @lines; src.oh = @lines }
+        @angle = @angle + @dangle
+      }
+    end
+
+    #===ラスタスクロールをフェードアウトさせる
+    #引数fwに与えられた間隔で振幅が減っていき(減る量は引数fsで与えられた値)、振幅がゼロになると終了する
+    #_fs_:: フェードアウトの変化量
+    #_fw_:: フェードアウトの変化を待つカウント(WaitCounterクラスインスタンス)
+    def fade_out(fs, fw)
+      @fo_size = fs
+      @fo_wait = fw
+      @fo_wait.start
+      @fade_out = true
+    end
+  end
+end

data/lib/Miyako/EXT/slides.rb

@@ -0,0 +1,157 @@
+# -*- encoding: utf-8 -*-
+# Miyako Extension
+=begin
+Miyako Extention Library 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
+  #==スライドを構成するモジュール
+  #Mixinして使用する
+  #使用するには、initializeメソッドの定義内で、init_slideメソッドを呼び出す必要がある
+  #ただし、インスタンス変数として、@bodyを予約済み
+  module Slide
+    include Layout
+    extend Forwardable
+
+    @@templates = { }
+
+    #===スライドを作成する
+    #スライド本体は、Partsクラスのインスタンス
+    #_params_:: あとで書く
+    def Slide.create(params = {})
+      tmp = params.dup
+      tmp[:size]  ||= Size.new(640, 480)
+      tmp[:type]  ||= :ac
+      tmp[:color] ||= Color[:white]
+      return Parts.new(tmp[:size]).tap{|obj| obj[:___base___] = Sprite.new(tmp).fill(tmp[:color])}
+    end
+    
+    @@templates["320x240"]    = {:size=>Size.new(320,240)}
+    @@templates["640x480"]    = {}
+    @@templates["800x600"]    = {:size=>Size.new(800,600)}
+    @@templates["white"]      = {:color=>[255,255,255,255]}
+    @@templates["gray"]       = {:color=>[128,128,128,255]}
+    @@templates["black"]      = {:color=>[0,0,0,255]}
+    @@templates["half-white"] = {:color=>[255,255,255,128]}
+
+    #===スライドをテンプレート文字列から作成する
+    #スライドを所定の名称で生成する。利用できるのは以下の7種類
+    #"320x240"    大きさは320x240ピクセル、背景は白色
+    #"640x480"    大きさは640x480ピクセル、背景は白色(デフォルトのテンプレート)
+    #"800x600"    大きさは800x600ピクセル、背景は白色
+    #"white"      "640x480"と同一
+    #"gray"       大きさは640x480ピクセル、背景は灰色([128,128,128,255])
+    #"black"      大きさは640x480ピクセル、背景は黒色([0,0,0,255])
+    #"half-white" 背景が半分透明な"white"([255,255,255,128])
+    #_sym_:: テンプレートに対応した文字列
+    #返却値:: 生成したスライド(Partsクラスインスタンス)
+    def Slide.[](sym = "640x480")
+      return Slide.create(@@templates[sym])
+    end
+    
+    #===スライドのテンプレートを追加する
+    #指定できるテンプレートの内容は、Sprite.newメソッドの引数がそのまま使える(Hashクラスインスタンスとして渡す)
+    #また、追加として、:colorパラメータを使って塗りつぶす色を指定することが出来る。
+    #(例):color=>Color[:red]
+    #_sym_:: テンプレート名
+    #_params_:: 生成時のパラメータ
+    def Slide.[]=(sym, params)
+      @@templates[sym] = params
+    end
+
+    #===スライド情報を初期化する
+    #(例)init_slide(Slide.create(:size=>Size.new(320,240), :color=>[255,0,0]))
+    #(例)init_slide(Slide["640x480"]))
+    #_template_:: 元となるPartsクラスインスタンス(Slide.createメソッドで作成もしくはSlide.[]で取得できるテンプレートスライド)
+    def init_slide(template)
+      init_layout
+      @body = template
+      set_layout_size(*(@body.size))
+      @body.snap(self)
+    end
+    
+    def piece
+      return self
+    end
+    
+    private :piece
+    
+    #===名前に対応したパーツを取得する
+    #_title_:: 取得したいパーツに対応したシンボル
+    #返却値:: シンボルに対応したパーツ
+    def [](title)
+      return @body[title]
+    end
+
+    #===パーツに名前を割り付けて設定する
+    #_title_:: 取得したいパーツに対応したシンボル
+    #_objs_:: (1)シンボルに対応させるパーツ(スライドにスナップする)
+    #(2)パーツと、スナップさせるパーツの名前(シンボル)
+    #返却値:: 自分自身を返す
+    def []=(title, objs)
+      @body[title] = objs
+      return self
+    end
+
+    #===スライドを画面に描画する
+    #単純にslide_renderメソッドを呼び出し、結果を返すだけのテンプレートメソッド
+    #このメソッドを記述し直すことにより、柔軟なrenderを行える
+    #ブロックを渡すと、スライド,画面側のSpriteUnitを更新して、それを実際の転送に反映させることが出来る。
+    #ブロックの引数は、|スライド側SpriteUnit,画面側SpriteUnit|となる。
+    #返却値:: 自分自身を返す
+    def render(&block)
+      return slide_render(&block)
+    end
+
+    #===スライドを画像に描画する
+    #単純にslide_render_toメソッドを呼び出し、結果を返すだけのテンプレートメソッド
+    #このメソッドを記述し直すことにより、柔軟なrenderを行える
+    #ブロックを渡すと、スライド,画像側のSpriteUnitを更新して、それを実際の転送に反映させることが出来る。
+    #ブロックの引数は、|スライド側SpriteUnit,画像側SpriteUnit|となる。
+    #_dst_:: 描画先画像(Spriteクラスインスタンスなど)
+    #返却値:: 自分自身を返す
+    def render_to(dst, &block)
+      return slide_render_to(dst, &block)
+    end
+
+    #===スライドを画面に描画する
+    #ブロックを渡すと、スライド,画面側のSpriteUnitを更新して、それを実際の転送に反映させることが出来る。
+    #ブロックの引数は、|スライド側SpriteUnit,画面側SpriteUnit|となる。
+    #返却値:: 自分自身を返す
+    def slide_render(&block)
+      @body.render(&block)
+      return self
+    end
+
+    #===スライドを画像に描画する
+    #ブロックを渡すと、スライド,画像側のSpriteUnitを更新して、それを実際の転送に反映させることが出来る。
+    #ブロックの引数は、|スライド側SpriteUnit,画像側SpriteUnit|となる。
+    #_dst_:: 描画先画像(Spriteクラスインスタンスなど)
+    #返却値:: 自分自身を返す
+    def slide_render_to(dst, &block)
+      @body.render(dst, &block)
+      return self
+    end
+
+    #===@bodyに登録したオブジェクトとは別に作成していたインスタンスを解放する
+    def dispose
+    end
+    
+    def_delegators(:@body, :remove, :each, :start, :stop, :reset, :update, :update_animation)
+  end
+end

data/lib/Miyako/miyako.rb

@@ -0,0 +1,201 @@
+# -*- 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/sample/Animation1/m1ku.rb

@@ -0,0 +1,68 @@
+#! /usr/bin/ruby
+# M1ku sample for Miyako v2.0
+# 2008.11.30 Cyross Makoto
+
+require 'Miyako/miyako'
+include Miyako
+
+#Screen.fps_view = true
+
+def create_arm(num)
+  spr = Sprite.new(:file=>sprintf("m1ku_arm_#{num}.png"), :type=>:ck)
+  spr.move_to!(30, 70)
+  return spr
+end
+
+def create_eye(num)
+  spr = Sprite.new(:file=>sprintf("m1ku_eye_#{num}.png"), :type=>:ck)
+  spr.move_to!(356, 114)
+  return spr
+end
+
+back = Sprite.new(:file=>"m1ku_back.jpg", :type=>:as)
+backs = SpriteAnimation.new(:sprite=>Array.new(12){|n| back.to_sprite{|sprite| Bitmap.hue(sprite, sprite, 30 * n) }}, :wait => 0.1).start
+
+body = Sprite.new(:file=>"m1ku_body.png", :type=>:ck)
+body.move_to!(200, 64)
+
+hair_f = Sprite.new(:file=>"m1ku_hair_front.png", :type=>:ck)
+hair_f.move_to!(200, 24)
+
+hair_r = Sprite.new(:file=>"m1ku_hair_rear.png", :type=>:ck)
+hair_r.move_to!(200, 24)
+
+arms = Array.new
+(0..3).each{|n| arms.push(create_arm(n)) }
+arm_anim_param = { 
+  :sprite=> arms,
+  :wait => 0.1,
+  :pattern_list => [0, 1, 2, 3, 2, 1]
+}
+arm_anim = SpriteAnimation.new(arm_anim_param)
+arm_anim.start
+
+eyes = Array.new
+(0..3).each{|n| eyes.push(create_eye(n)) }
+eye_anim_param = { 
+  :sprite => eyes,
+  :wait => [4.5, 0.1, 0.1, 0.1, 0.1, 0.1],
+  :pattern_list => [0, 1, 2, 3, 2, 1]
+}
+eye_anim = SpriteAnimation.new(eye_anim_param)
+eye_anim.start
+
+damt = 30
+
+# Main Routine
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+  backs.render
+  backs.update_animation
+  hair_r.render
+  arm_anim.update_animation
+  arm_anim.render
+  body.render
+  eye_anim.update_animation
+  eye_anim.render
+  hair_f.render
+end