ruby-miyako-mswin32 2.1.10 → 2.1.11

data/lib/Miyako/API/sprite_animation.rb

@@ -53,7 +53,7 @@ module Miyako
     #
     #利用できるパラメータは以下の通り
     #
-    #:sprite => sprite|spriteの配列　アニメーションさせるスプライト(インスタンス単体もしくはインスタンスの配列)。必須パラメータ
+    #:sprite/:sprites => sprite|spriteの配列　アニメーションさせるスプライト(インスタンス単体もしくはインスタンスの配列)。必須パラメータ
     #
     #:dir => :h|:v　単体アニメーションのとき、縦方向に位置をずらして表示させる(:h指定時)か、横方向か(:v指定時)を決定する。デフォルトは:h
     #
@@ -65,12 +65,11 @@ module Miyako
     #返却値:: 生成されたインスタンス
     def initialize(hash)
       init_layout
-      @units = Array.new
       @slist = nil
 
       hash[:dir] ||= :h
       @dir   = hash[:dir]
-      s = hash[:sprite]
+      s = hash[:sprite] || hash[:sprites]
       hash[:pattern_list] ||= nil
       @plist = hash[:pattern_list]
       hash[:wait] ||= 0
@@ -91,25 +90,13 @@ module Miyako
 
       @slist = Array.new
       if s.kind_of?(Sprite)
-        @now = s.to_unit unless @now
-        set_layout_size(s.ow, s.oh)
-        move_to!(s.x, s.y)
-        s.snap(self)
-        s.left!.top!
         @pat_len  = @dir == :h ? s.h  : s.w
         @pat_olen = @dir == :h ? s.oh : s.ow
         @chr_len  = @dir == :h ? s.w  : s.h
         @chr_olen = @dir == :h ? s.ow : s.oh
         @pats     = @pat_len / @pat_olen
       elsif s.kind_of?(Array)
-        first = s[0]
-        @now = first.to_unit unless @now
-        set_layout_size(first.ow, first.oh)
-        move_to!(first.x, first.y)
-        @slist = s.map{|ss|
-          ss.snap(self)
-          ss.left!.top!
-        }
+        @slist = s.dup
         @pat_len  = @slist.length
         @pats     = @slist.length
       else
@@ -164,23 +151,18 @@ module Miyako
       end
 
       if @slist.length == 0
-        @slist = Array.new(@pats){|pat| s }
-        @units = Array.new(@pats){|pat|
-          u = @slist[pat].to_unit.dup
+        @slist = Array.new(@pats){|pat|
+          u = s.dup
           px = pat % (@pat_len / @pat_olen)
           if @dir == :h
-            u.oy = @slist[pat].oh * @plist[px]
+            u.oy = u.oh * @plist[px]
           else
-            u.ox = @slist[pat].ow * @plist[px]
+            u.ox = u.ow * @plist[px]
           end
           u
         }
       elsif @slist.length < @pats
-        tmp = @slist
         @slist = @slist.cycle.take(@pats)
-        @units = Array.new(@pats){|pat| @slist[pat].to_unit.dup }
-      else
-        @units = Array.new(@pats){|pat| @slist[pat].to_unit.dup }
       end
 
       if @move_offset.length == 0
@@ -215,7 +197,16 @@ module Miyako
       @exec  = false
       @visible = true
 
-      @now = @units[0]
+      @now = @slist[@plist[@pnum]]
+
+      first = @slist[0]
+      set_layout_size(first.ow, first.oh)
+      move_to!(first.x, first.y)
+      @slist.each{|ss|
+        ss.snap(self)
+        ss.left!.top!
+      }
+
       @now.move_to!(@slist[@plist[@pnum]].x + @move_offset[@pnum][0],
                     @slist[@plist[@pnum]].y + @move_offset[@pnum][1])
     end
@@ -224,12 +215,11 @@ module Miyako
     #複写と同時に、本インスタンスに対するスナップの関係を解消するが、
     #新しいパターンスプライトとスナップをやり直す
     def initialize_copy(obj)
-      @units = @units.deep_dup
       @slist = @slist.deep_dup
       @plist = @plist.dup
       @move_offset = @move_offset.dup
       @pos_offset = @pos_offset.dup
-      @now = @units[@plist[@pnum]]
+      @now = @slist[@plist[@pnum]]
       copy_layout
       @slist.each{|s| s.snap(self)}
     end
@@ -261,7 +251,7 @@ module Miyako
     end
 
     def update_layout_position #:nodoc:
-      @units.each{|u| u.move_to!(*@layout.pos)}
+      @slist.each{|u| u.move_to!(*@layout.pos)}
     end
 
     #===現在表示しているスプライトのowを取得する
@@ -298,8 +288,8 @@ module Miyako
     end
 
     #===キャラクター番号を設定する
-		#キャラクター番号(アニメーションさせるときに表示させるパターン群インデックス)
-		#を設定する。範囲外のキャラクター番号が設定された時は何も行わない
+    #キャラクター番号(アニメーションさせるときに表示させるパターン群インデックス)
+    #を設定する。範囲外のキャラクター番号が設定された時は何も行わない
     #_cnum_:: キャラクター番号
     def character=(cnum)
       return self if (cnum < 0 || cnum >= @chrs)
@@ -317,8 +307,8 @@ module Miyako
       return self
     end
 
-		#===現在のキャラクター番号を取得する
-		#返却値:: キャラクター番号（0以上の整数）
+    #===現在のキャラクター番号を取得する
+    #返却値:: キャラクター番号（0以上の整数）
     def character
       return @cnum
     end
@@ -409,11 +399,11 @@ module Miyako
     end
 
     def set_pat #:nodoc:
-      @now = @units[@plist[@pnum]]
+      @now = @slist[@plist[@pnum]]
     end
 
     def set_chr #:nodoc:
-      @units.each{|u|
+      @slist.each{|u|
         if @dir == :h
           u.ox = @chr_olen * @cnum
         else
@@ -460,6 +450,7 @@ module Miyako
     #===現在表示しているスプライトの大きさを矩形で取得する
     #返却値:: 生成された矩形(Rect構造体のインスタンス)
     def rect
+      v = @slist[@plist[@pnum]]
       return Rect.new(@now.x, @now.y, @now.ow, @now.oh)
     end
 
@@ -473,8 +464,6 @@ module Miyako
     #===インスタンスに束縛されているオブジェクトを解放する
     def dispose
       @slist.clear
-      @units.each{|u| u.bitmap = nil}
-      @units.clear
       @waits.clear
       @plist.clear
       @move_offset.clear
@@ -489,6 +478,9 @@ module Miyako
     #ブロックの引数は、|インスタンスのSpriteUnit|となる。
     #visibleメソッドの値がfalseのときは描画されない。
     def render
+      return self unless @now
+      pos = @now.move(*@move_offset[@pnum])
+      @now.render_xy(*pos)
     end
 
     #===アニメーションの現在の画像を画像に描画する
@@ -500,6 +492,9 @@ module Miyako
     #visibleメソッドの値がfalseのときは描画されない。
     #_dst_:: 転送先ビットマップ(to_unitメソッドを呼び出すことが出来る/値がnilではないインスタンス)
     def render_to(dst)
+      return self unless @now
+      pos = @now.move(*@move_offset[@pnum])
+      @now.render_xy_to(dst, *pos)
     end
   end
 end

data/lib/Miyako/API/sprite_list.rb

@@ -1349,6 +1349,40 @@ module Miyako
       return self
     end
 
+
+    #===位置を指定して画面への描画を指示するメソッドのテンプレート
+    #オブジェクトで保持している位置情報ではなく、引数で渡された位置に描画する
+    #基本的に、メソッドのオーバーライドにより機能するが、pos,move_to!メソッドを持っているときは、
+    #これらのメソッドを呼び出して同じ動作を行うが処理速度的に課題あり
+    #ただし、上記のメソッドを持っていない場合は、単純にrenderメソッドを呼び出す
+    #_x_:: 描画位置のx座標
+    #_y_:: 描画位置のy座標
+    #返却値:: 自分自身を返す
+    def render_xy(x, y)
+      return self.each{|pair|
+        obj = pair[1]
+        cl  = e.class
+        obj.render_xy(x, y) if cl.include?(SpriteBase) || cl.include?(SpriteArray)
+      }
+    end
+
+    #===位置を指定して画像への描画を指示するメソッドのテンプレート
+    #オブジェクトで保持している位置情報ではなく、引数で渡された位置に描画する
+    #基本的に、メソッドのオーバーライドにより機能するが、pos,move_to!メソッドを持っているときは、
+    #これらのメソッドを呼び出して同じ動作を行うが、処理速度的に課題あり
+    #ただし、上記のメソッドを持っていない場合は、単純にrender_toメソッドを呼び出す
+    #_dst_:: 対象の画像
+    #_x_:: 描画位置のx座標
+    #_y_:: 描画位置のy座標
+    #返却値:: 自分自身を返す
+    def render_xy_to(dst, x, y)
+      return self.each{|pair|
+        obj = pair[1]
+        cl  = e.class
+        obj.render_xy_to(dst, x, y) if cl.include?(SpriteBase) || cl.include?(SpriteArray)
+      }
+    end
+
     #===オブジェクトを文字列に変換する
     #いったん、名前とスプライトとの対の配列に変換し、to_sメソッドで文字列化する。
     #例:[[name1, sprite1], [name2, sprite2],...]

data/lib/Miyako/API/textbox.rb

@@ -519,7 +519,7 @@ module Miyako
     #返却値:: 自分自身を返す
     def command(choices, dx = nil, dy = nil)
       if choices.methods.include?(:start_choice)
-        @choices = choices.dup
+        @choices = choices
         @choices.snap(self)
       else
         @choices.clear

data/lib/Miyako/API/yuki.rb

@@ -36,6 +36,8 @@ module Miyako
     include SpriteBase
     include Animation
 
+    ALL_TRUE = lambda{ true }
+
     #==キャンセルを示す構造体
     #コマンド選択がキャンセルされたときに生成される構造体
     Canceled = Struct.new(:dummy)
@@ -49,6 +51,43 @@ module Miyako
     #_result_:: 選択結果（移動先シーンクラス名、シナリオ（メソッド）名他のオブジェクト）
     Command = Struct.new(:body, :body_selected, :body_disable, :enable, :condition, :result)
 
+    class Command
+      # Command構造体をChoice構造体に変換する
+      def to_choice(font=Font.sans_serif, size=16, color=Color[:white])
+        org_font_color = font.color
+        org_font_size = font.size
+
+        font.color = color
+        tmp = self[:body]
+        body = tmp.method(:to_sprite).arity == 0 ? tmp.to_sprite : tmp.to_sprite(font)
+
+        font.color = Color[:red]
+        tmp = self[:body_selected]
+        body_selected = tmp ? (tmp.method(:to_sprite).arity == 0 ? tmp.to_sprite : tmp.to_sprite(font)) : body
+
+        font.color = Color[:dark_gray]
+        tmp = self[:body_disable]
+        body_disable= tmp ? (tmp.method(:to_sprite).arity == 0 ? tmp.to_sprite : tmp.to_sprite(font)) : body
+
+        cond = self[:condition] || ALL_TRUE
+
+        choice = Choice.new(body, body_selected, body_disable,
+                            cond, self[:enable], false, self[:result],
+                            nil, nil, nil, nil,
+                            nil, {}, lambda{}, nil)
+        choice.left = choice
+        choice.right = choice
+        choice.up = choice
+        choice.down = choice
+        choice.name = choice.__id__.to_s
+
+        font.color = org_font_color
+        font.size  = org_font_size
+
+        choice
+      end
+    end
+
     #==コマンド構造体
     #_body_:: コマンドの名称（移動する、調べるなど、アイコンなどの画像も可）
     #_body_selected_:: 選択時コマンドの名称（移動する、調べるなど、アイコンなどの画像も可）(省略時は、bodyと同一)
@@ -60,6 +99,43 @@ module Miyako
     #ブロックは1つの引数を取る(コマンド選択テキストボックス))。デフォルトはnil
     CommandEX = Struct.new(:body, :body_selected, :condition, :body_disable, :enable, :result, :end_select_proc)
 
+    class CommandEx
+      # Command構造体をChoice構造体に変換する
+      def to_choice(font=Font.sans_serif, size=16, color=Color[:white])
+        org_font_color = font.color
+        org_font_size = font.size
+
+        font.color = color
+        tmp = self[:body]
+        body = tmp.method(:to_sprite).arity == 0 ? tmp.to_sprite : tmp.to_sprite(font)
+
+        font.color = Color[:red]
+        tmp = self[:body_selected]
+        body_selected = tmp ? (tmp.method(:to_sprite).arity == 0 ? tmp.to_sprite : tmp.to_sprite(font)) : body
+
+        font.color = Color[:dark_gray]
+        tmp = self[:body_disable]
+        body_disable= tmp ? (tmp.method(:to_sprite).arity == 0 ? tmp.to_sprite : tmp.to_sprite(font)) : body
+
+        cond = self[:condition] || ALL_TRUE
+
+        choice = Choice.new(body, body_selected, body_disable,
+                            cond, self[:enable], false, self[:result],
+                            nil, nil, nil, nil,
+                            nil, {}, self[:end_select_proc], nil)
+        choice.left = choice
+        choice.right = choice
+        choice.up = choice
+        choice.down = choice
+        choice.name = choice.__id__.to_s
+
+        font.color = org_font_color
+        font.size  = org_font_size
+
+        choice
+      end
+    end
+
     #===Yuki#update実行中に行わせる処理を実装するテンプレートメソッド
     #但し、メソッド本体は、update_inner=メソッドで設定する必要がある
     #_yuki_:: 実行中のYukiクラスインスタンス
@@ -228,7 +304,7 @@ module Miyako
       @now_page = nil
       @first_page = nil
 
-      raise MiyakoProcError, "Aagument count is not same block parameter count!" if proc && proc.arity.abs != params.length
+      raise MiyakoProcError, "Argument count is not same block parameter count!" if proc && proc.arity.abs != params.length
       instance_exec(*params, &proc) if block_given?
     end
 
@@ -314,6 +390,38 @@ module Miyako
       self.pre_visibles.render_to(dst)
     end
 
+    def start_all
+      self.bgs.start
+      self.visibles.start
+      self.textbox_all.start
+      self.commandbox_all.start unless self.box_shared?
+      self.pre_visibles.start
+    end
+
+    def stop_all
+      self.bgs.stop
+      self.visibles.stop
+      self.textbox_all.stop
+      self.commandbox_all.stop unless self.box_shared?
+      self.pre_visibles.stop
+    end
+
+    def reset_all
+      self.bgs.reset
+      self.visibles.reset
+      self.textbox_all.reset
+      self.commandbox_all.reset unless self.box_shared?
+      self.pre_visibles.reset
+    end
+
+    def animation_all
+      self.bgs.update_animation
+      self.visibles.update_animation
+      self.textbox_all.update_animation
+      self.commandbox_all.update_animation unless self.box_shared?
+      self.pre_visibles.update_animation
+    end
+
     #===Yuki#showで表示指定した画像のアニメーションを更新する
     #showメソッドで指定した画像のupdate_animationメソッドを呼び出す
     #返却値:: 描く画像のupdate_spriteメソッドを呼び出した結果を配列で返す
@@ -803,7 +911,7 @@ module Miyako
       @now_page = nil
       @first_page = nil
 
-      raise MiyakoProcError, "Aagument count is not same block parameter count!" if proc && proc.arity.abs != params.length
+      raise MiyakoProcError, "Argument count is not same block parameter count!" if proc && proc.arity.abs != params.length
       instance_exec(*params, &proc) if proc
 
       return self
@@ -833,9 +941,9 @@ module Miyako
     #返却値:: 自分自身を返す
     def start_plot(plot_proc = nil, *params, &plot_block)
       raise MiyakoValueError, "Yuki Error! Textbox is not selected!" unless @text_box
-      raise MiyakoProcError, "Aagument count is not same block parameter count!" if plot_proc && plot_proc.arity.abs != params.length
-      raise MiyakoProcError, "Aagument count is not same block parameter count!" if plot_block && plot_block.arity.abs != params.length
-      raise MiyakoProcError, "Aagument count is not same block parameter count!" if @exec_plot && @exec_plot.arity.abs != params.length
+      raise MiyakoProcError, "Argument count is not same block parameter count!" if plot_proc && plot_proc.arity.abs != params.length
+      raise MiyakoProcError, "Argument count is not same block parameter count!" if plot_block && plot_block.arity.abs != params.length
+      raise MiyakoProcError, "Argument count is not same block parameter count!" if @exec_plot && @exec_plot.arity.abs != params.length
       @executing_fiber = Fiber.new{ plot_facade(plot_proc, *params, &plot_block) }
       @executing_fiber.resume
       return self
@@ -1337,7 +1445,7 @@ module Miyako
     #引数無しのブロックを渡せば、コマンド選択開始前に、決定判別・キャンセル判別に必要な前処理を施すことが出来る
     #選択中、update_innerメソッドを呼び出し、続けて、処理をYuki#startもしくはYuki#update呼び出し直後に戻す
     #Yuki#updateが呼び出されても選択中の場合は、再び上記の処理を繰り返す
-    #_command_list_:: 表示するコマンド群。各要素はCommand/CommandEx構造体の配列
+    #_command_list_:: 表示するコマンド群。各要素はCommand構造体/CommandEx構造体の配列
     #_cancel_to_:: キャンセルボタンを押したときの結果。デフォルトはnil（キャンセル無効）
     #_chain_block_:: コマンドの表示方法。TextBox#create_choices_chainメソッド参照
     #返却値:: 自分自身を返す
@@ -1345,22 +1453,28 @@ module Miyako
       raise MiyakoValueError, "Yuki Error! Commandbox is not selected!" unless @command_box
       @cancel = cancel_to
 
-      choices = []
-      command_list.each{|cm|
-        if (cm[:condition] == nil || cm[:condition].call)
-          cm_array = [cm[:body], cm[:body_selected], cm[:body_disable], cm[:enable], cm[:result]]
-          methods = cm.methods
-          cm_array << (methods.include?(:end_select_proc) ? cm[:end_select_proc] : nil)
-          choices.push(cm_array)
-        end
-      }
-      return self if choices.length == 0
-
-      @pre_command.each{|proc| proc.call}
-      @pre_cancel.each{|proc| proc.call}
-      yield if block_given?
-      @command_box_all.show if @command_box_all.object_id != @text_box_all.object_id
-      @command_box.command(@command_box.create_choices_chain(choices, &chain_block))
+      if command_list.kind_of?(Choices)
+        @pre_command.each{|proc| proc.call}
+        @pre_cancel.each{|proc| proc.call}
+        @command_box_all.show if @command_box_all.object_id != @text_box_all.object_id
+        @command_box.command(command_list)
+      else
+        choices = []
+        command_list.each{|cm|
+          if (cm[:condition] == nil || cm[:condition].call)
+            cm_array = [cm[:body], cm[:body_selected], cm[:body_disable], cm[:enable], cm[:result]]
+            methods = cm.methods
+            cm_array << (methods.include?(:end_select_proc) ? cm[:end_select_proc] : nil)
+            choices.push(cm_array)
+          end
+        }
+        return self if choices.length == 0
+
+        @pre_command.each{|proc| proc.call}
+        @pre_cancel.each{|proc| proc.call}
+        @command_box_all.show if @command_box_all.object_id != @text_box_all.object_id
+        @command_box.command(@command_box.create_choices_chain(choices, &chain_block))
+      end
       @result = nil
       @selecting = true
       while @selecting

data/lib/Miyako/EXT/drawer.rb

@@ -0,0 +1,117 @@
+#encoding: utf-8
+# Drawerクラス
+# 図形描画をスプライトとして扱うクラス
+# 2010.05.01 Cyross Makoto
+
+module Miyako
+  # SpriteBase, Animation, Layoutモジュールのメソッドが利用可能
+  class Drawer
+    include SpriteBase
+    include Animation
+    include Layout
+
+    attr_accessor :method, :color
+    attr_accessor :r, :rx, :ry, :aa, :fill
+    attr_accessor :visible
+    attr_accessor :base, :point, :rect, :points
+
+    # 図形描画オブジェクトを作る
+    # 引数はハッシュ引数
+    # それぞれのキーは、Drawerクラスオブジェクトのメソッドとしてアクセス可能
+    # :method => メソッドを指定(:fill,:pset,:line,:rect,:circle,:ellipse,:polygon) 省略不可
+    # :base => 描画先スプライト 全メソッドで有効 省略時はScreen(画面)
+    # :color => 描画色 全メソッドで有効 省略時は白色([255,255,255,255])
+    # :point => 描画開始座標/円の中心座標(Point構造体) :pset, :circle, :ellipseのみ有効 省略時はPoint(0,0)
+    # :rect => 描画矩形(Rect構造体) :line,:rectのみ有効 省略時はRect(0,0,1,1)
+    # :points => 座標の配列([Point構造体,Point構造体,...]) :polygonのみ有効 省略時は空の配列
+    # :r => 円の半径(数値) :circleのみ有効 省略時は1
+    # :rx => 楕円の横方向半径 :ellipseのみ有効 省略時は1
+    # :ry => 楕円の縦方向半径 :ellipseのみ有効 省略時は1
+    # :aa => アンチエイリアスを付けるかどうか(true/false) :line, :cirle, :ellipse, :polygonのみ有効 省略時はfalse
+    # :fill => 描画色で図形の中を塗りつぶすかどうか(true/false) :rect, :circle, :ellipse, :polygonのみ有効 省略時はfalse
+    def initialize(hash)
+      init_layout
+      set_layout_size(1,1)
+      @method = hash[:method]
+      @base   = hash[:base] || Screen
+      @color  = hash[:color] || [255,255,255]
+      @point  = hash[:point] ? Point.new(*(hash[:point].to_a)) : Point.new(0,0)
+      @rect  = hash[:rect] ? Rect.new(*(hash[:rect].to_a)) : Rect.new(0,0,1,1)
+      @points = hash[:points] ? hash[:points].map{|pos| Point.new(*pos.to_a)} : []
+      @r = hash[:r] || 1
+      @rx = hash[:rx] || 1
+      @ry = hash[:ry] || 1
+      @aa = hash[:aa] || false
+      @fill = hash[:fill] || false
+      @visible = true
+      @off = Point.new(0,0)
+      raise MiyakoError, "set correct method name by symbol!" unless @method
+    end
+
+    def render
+      return self unless @visible
+      @off.move_to!(0,0)
+      __send__(@method)
+    end
+
+    def render_xy(x, y)
+      return self unless @visible
+      @off.move_to!(x,y)
+      __send__(@method)
+    end
+
+    def fill
+      Drawing.fill(@base,
+                   @color)
+    end
+
+    def pset
+      Drawing.pser(@base,
+                   @point.move(*@layout.pos).move!(*@off),
+                   @color)
+    end
+
+    def line
+      Drawing.line(@base,
+                   @rect.move(*@layout.pos).move!(*@off),
+                   @color,
+                   @aa)
+    end
+
+    def rect
+      Drawing.rect(@base,
+                   @rect.move(*@layout.pos).move!(*@off),
+                   @color,
+                   @fill)
+    end
+
+    def circle
+      Drawing.circle(@base,
+                     @point.move(*@layout.pos).move!(*@off),
+                     @r,
+                     @color,
+                     @fill,
+                     @aa)
+    end
+
+    def ellipse
+      Drawing.ellipse(@base,
+                      @point.move(*@layout.pos).move!(*@off),
+                      @rx,
+                      @ry,
+                      @color,
+                      @fill,
+                      @aa)
+    end
+
+    def polygon
+      Drawing.polygon(@base,
+                      @points.map{|pos| pos.move(*@layout.pos).move!(*@off)},
+                      @color,
+                      @fill,
+                      @aa)
+    end
+
+    private :fill, :pset, :line, :rect, :circle, :ellipse, :polygon
+  end
+end

data/lib/Miyako/miyako.rb

@@ -3,7 +3,7 @@
 #=コンテンツ作成ライブラリMiyako2.1
 #
 #Authors:: サイロス誠
-#Version:: 2.1.9
+#Version:: 2.1.11
 #Copyright:: 2007-2010 Cyross Makoto
 #License:: LGPL2.1
 #
@@ -63,7 +63,7 @@ Thread.abort_on_exception = true
 
 #==Miyako基幹モジュール
 module Miyako
-  VERSION = "2.1.9"
+  VERSION = "2.1.11"
 
   #===アプリケーション実行中に演奏する音楽のサンプリングレートを指定する
   #単位はHz(周波数)

data/sample/drawer_sample.rb

@@ -0,0 +1,67 @@
+#encoding: utf-8
+#Drawerクラスサンプル
+#画面に星を表示させる
+#2010.05.01 Cyross Makoto
+
+require 'miyako'
+require 'Miyako/EXT/drawer'
+
+include Miyako
+
+RadianBase = 0.4 * Math::PI # inner point (radian of 72deg)
+RadianOffset = 0.2 * Math::PI # inner point (radian of 36deg)
+W = 7
+H = 5
+R = 32
+
+def base_line(sprite)
+end
+
+def star_points(r, r2=r*0.4, dx=0, dy=0, rad=0.0, scale=1.0)
+  (0...5).to_a.inject([]){|ary, n|
+    rad1 = RadianBase * n + Math::PI + rad
+    rad2 = rad1 + RadianOffset
+    ary.push(Point.new(dx+(Math.sin(rad1)*r*scale).to_i,  dy+(Math.cos(rad1)*r*scale).to_i),
+             Point.new(dx+(Math.sin(rad2)*r2*scale).to_i, dy+(Math.cos(rad2)*r2*scale).to_i))
+    ary
+  }
+end
+
+def point_to_s(point)
+  sprintf("[%4d,%4d]", point[0], point[1])
+end
+
+def points_to_s(points)
+  points.map{|pt| point_to_s(pt)}.join("")
+end
+
+def multi_star_points(num, r, r2=r*0.4, dx=0, dy=0, rad=0.0, scale=1.0)
+  num.times.to_a.map{|n| star_points(r, r2, dx, dy, rad + (n.to_f/num.to_f * 2 * Math::PI), scale) }
+end
+
+# axis line
+axis = [Drawer.new(:method=>:line, :rect=>[320,0,1,480], :color=>:white), # y-axis
+        Drawer.new(:method=>:line, :rect=>[0,240,640,1], :color=>:white)] # x-axis
+
+# stars
+stars = H.times.to_a.map{|y|
+  W.times.to_a.map{|x|
+    tmp = multi_star_points(8, R, R*0.4, x*R*3+R, y*R*3+R+16).map{|points|
+      Drawer.new(:method=>:polygon,
+                 :points=>points,
+                 :color=>[255,255,255,128],
+                 :fill=>true)
+    }
+    SpriteAnimation.new(:sprites=>tmp, :wait=>0.1)
+  }
+}
+
+Sprite[:axis] = axis
+Sprite[:stars] = stars
+
+Animation[:stars] = stars
+stars.start
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+end