cyross-ruby-miyako-mswin32 2.0.5

data/sample/blit_rop.rb

@@ -0,0 +1,70 @@
+# 画像ビット操作サンプル
+# 2009.4.17 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+# 画像が画面をはみ出そうになったら移動量を+-反転
+# spr:: 移動対象のスプライト
+# amt:: 移動量配列
+# 返却値:: 変更した移動量配列
+def turn(spr, amt)
+  amt[0] = -amt[0] if (spr.x + spr.ow) >= Screen.w
+  amt[0] = -amt[0] if spr.x <= 0
+  amt[1] = -amt[1] if (spr.y + spr.oh) >= Screen.h
+  amt[1] = -amt[1] if spr.y <= 0
+  return amt
+end
+
+# マスク画像を作成
+bmask = Sprite.new(:size=>Size.new(100,100), :type=>:ac)
+Drawing.circle(bmask, [50,50], 50, [255,255,255], :fill)
+
+# 描画用スプライトを作成
+spr1 = Sprite.new(:size=>Size.new(100,100), :type=>:ac)
+spr2 = Sprite.new(:size=>Size.new(100,100), :type=>:ac)
+spr3 = Sprite.new(:size=>Size.new(100,100), :type=>:ac)
+
+# 転送元背景を準備
+bk = Sprite.new(:file=>"Animation1/m1ku_back.jpg", :type=>:as)
+text = Sprite.new(:file=>"text.png", :type=>:ac)
+# 表示用背景を準備(元画像を反転)
+bk2 = bk.inverse
+
+spr2.centering
+spr3.right.bottom
+
+# 移動量配列を設定
+@amt1 = [ 4, 4]
+@amt2 = [ 4,-4]
+@amt3 = [-4,-4]
+
+# Main Routine
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+  # マスク画像の転送
+  bmask.render_to(spr1)
+  bk.render_to(spr2){|src, dst| src.ox = spr2.x; src.oy = spr2.y}
+  bk2.render_to(spr3){|src, dst| src.ox = spr3.x; src.oy = spr3.y}
+  # 元画像をandして描画用スプライトへ転送
+  spr1.and!(bk){|src, dst| src.ox = spr1.x; src.oy = spr1.y}
+  # 元画像をorして描画用スプライトへ転送
+  spr2.or!(text)
+  # 元画像をxorして描画用スプライトへ転送
+  spr3.xor!(text)
+  
+  # 画像を画面に描画
+  bk2.render
+  spr1.render
+  spr2.render
+  spr3.render
+  # スプライトの移動
+  spr1.move(*@amt1)
+  spr2.move(*@amt2)
+  spr3.move(*@amt3)
+  # 画像が画面をはみ出そうになったら移動量を+-反転
+  @amt1 = turn(spr1, @amt1)
+  @amt2 = turn(spr2, @amt2)
+  @amt3 = turn(spr3, @amt3)
+end

data/sample/cairo_sample.rb

@@ -0,0 +1,25 @@
+# encoding: utf-8
+# MiyakoCairoサンプル
+# 2009.4.12 Cyross Makoto
+
+require 'Miyako/miyako'
+require 'Miyako/EXT/miyako_cairo'
+
+sprite = Miyako::Sprite.new(:file=>"Animation2/lex_body.png", :type=>:ck)
+sprite.bitmap.saveBMP("./sample.bmp")
+
+surface = Miyako::MiyakoCairo.to_cairo_surface(sprite)
+surface.write_to_png("./sample.png")
+
+surface = Cairo::ImageSurface.new(Cairo::Format::ARGB32, 320, 240)
+context = Cairo::Context.new(surface)
+
+context.set_source_rgb(1.0, 0.5, 0.8)
+context.fill{
+  context.rectangle(50, 50, 150, 100)
+}
+
+surface.write_to_png("./sample2.png")
+
+sprite = Miyako::MiyakoCairo.to_sprite(surface)
+sprite.bitmap.saveBMP("./sample2.bmp")

data/sample/circle_collision_test.rb

@@ -0,0 +1,62 @@
+# encoding: utf-8
+# 円コリジョン(CircleCollision)サンプル
+# 2009.4.25 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+Screen.fps = 60
+
+# Utility.in_bounds?引数生成
+def segments(sprite, amounts, idx)
+  [
+   [sprite.pos[idx], sprite.pos[idx] + sprite.size[idx] - 1],
+   [0, Screen.size[idx]],
+   amounts[idx]
+  ]
+end
+
+radius = 16
+size = [32, 32]
+pos = [16, 16]
+sprite1 = Sprite.new({:size=>size, :type=>:as})
+Drawing.circle(sprite1, pos, radius, [255,0,0], true)
+collision1 = CircleCollision.new(pos, radius)
+sprite2 = Sprite.new({:size=>size, :type=>:as})
+Drawing.circle(sprite2, pos, radius, [0,255,0], true)
+collision2 = CircleCollision.new(pos, radius)
+caution = Shape.text({:font => Font.serif }){ text "collision!" }
+
+sprite1.center.move(0, 128)
+sprite2.move_to(176, 0)
+
+amounts = [8, -8]
+
+amount1 = [amounts.sample, amounts.sample]
+amount2 = [amounts.sample, amounts.sample]
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+  if collision1.collision?(sprite1.pos, collision2, sprite2.pos)
+    amount1 = [amounts.sample, amounts.sample]
+    amount2 = [amounts.sample, amounts.sample]
+    caution.render
+  end
+  amount1[0] = -amount1[0] unless Utility.in_bounds?(*segments(sprite1, amount1, 0))
+  amount1[1] = -amount1[1] unless Utility.in_bounds?(*segments(sprite1, amount1, 1))
+  amount2[0] = -amount2[0] unless Utility.in_bounds?(*segments(sprite2, amount2, 0))
+  amount2[1] = -amount2[1] unless Utility.in_bounds?(*segments(sprite2, amount2, 1))
+
+  sprite1.move(*amount1)
+  sprite2.move(*amount2)
+
+  sprite1.render
+  sprite2.render
+
+  Font.serif.draw_text(Screen,
+                       "distance = #{collision1.interval(sprite1.pos, collision2, sprite2.pos)}",
+                       0,
+                       Screen.h - Font.serif.line_height
+                      )
+end

data/sample/collision_test.rb

@@ -0,0 +1,33 @@
+# encoding: utf-8
+# コリジョン(Collision)サンプル
+# 2009.4.12 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+size = [32, 32]
+rect = [0, 0] + size
+sprite1 = Sprite.new({:size=>size, :type=>:as})
+sprite1.fill([255,0,0])
+collision1 = Collision.new(rect)
+sprite2 = Sprite.new({:size=>size, :type=>:as})
+sprite2.fill([0,255,0])
+collision2 = Collision.new(rect)
+caution = Shape.text({:font => Font.serif }){ text "collision!" }
+
+sprite1.center.move(0, 128)
+sprite2.center
+
+amount = 8
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+  if Collision.collision?(collision1, sprite1.pos, collision2, sprite2.pos)
+    caution.render
+  else
+    sprite2.move(0, amount)
+  end
+  sprite1.render
+  sprite2.render
+end

data/sample/collision_test2.rb

@@ -0,0 +1,104 @@
+# encoding: utf-8
+# コリジョン(Collision・CircleCollision混合)サンプル
+# 2009.4.24 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+Screen.fps = 60
+
+# Utility.in_bounds?引数生成
+def segments(sprite, amounts, idx)
+  [
+   [sprite.pos[idx], sprite.pos[idx] + sprite.size[idx] - 1],
+   [0, Screen.size[idx]],
+   amounts[idx]
+  ]
+end
+
+# 矩形衝突判定と円形衝突判定との切り替え
+collision_list = [Collision, CircleCollision].cycle
+
+# 同時表示スプライト数
+Sprites = 20
+
+# スプライトサイズ
+size = [64, 64]
+# スプライト矩形(当たり判定生成用)
+rect = [0, 0] + size
+# 移動量切り替え
+amount = [4, -4]
+
+sprites = Array.new(Sprites){|n|
+  # スプライトの生成
+  sprite = Sprite.new({:size=>size, :type=>:as})
+  Drawing.circle(sprite, [size[0]/2, size[1]/2], size[0]/2, [rand(256),rand(256),rand(256)], true)
+  sprite.move_to(rand(Screen.w-size[0]), rand(Screen.h-size[1]))
+
+  # コリジョンの生成
+  collision = Collision.new(rect)
+
+  # :collisioned => 当たり判定した？
+  {
+   :sprite => sprite,
+   :collision => collision,
+   :amount => [amount.sample, amount.sample]
+  }
+}
+
+# 衝突判定用の組み合わせ行列を作成
+matrix = sprites.combination(2)
+
+cautions = {
+  Collision => Shape.text({:font => Font.serif }){ text "矩形衝突判定中" },
+  CircleCollision => Shape.text({:font => Font.serif }){ text "円形衝突判定中" }
+}
+
+# 初期の衝突判定方法を設定
+collision_type = collision_list.next
+
+# 一気にレンダリング
+Screen.pre_render_array << sprites.map{|m| m[:sprite]}
+
+# 判定を切り替えるタイミングを決めるタイマー
+wait = WaitCounter.new(1.0)
+wait.start
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+  
+  # 一定時間ごとに衝突判定方法を切り替え
+  if wait.finish?
+    collision_type = collision_list.next
+    wait.start
+  end
+
+  # 衝突判定
+  # 衝突していたら方向を反転
+  matrix.each{|pair|
+    p0 = pair[0]
+    p1 = pair[1]
+    if collision_type.collision?(p0[:collision],
+                                 p0[:sprite].pos,
+                                 p1[:collision],
+                                 p1[:sprite].pos)
+      p0[:amount][0] = -p0[:amount][0]
+      p0[:amount][1] = -p0[:amount][1]
+      p1[:amount][0] = -p1[:amount][0]
+      p1[:amount][1] = -p1[:amount][1]
+    end
+  }
+
+  # 移動
+  sprites.each{|s|
+    # 画面の端に来たら方向転換
+    s[:amount][0] = -s[:amount][0] unless Utility.in_bounds?(*segments(s[:sprite], s[:amount], 0))
+    s[:amount][1] = -s[:amount][1] unless Utility.in_bounds?(*segments(s[:sprite], s[:amount], 1))
+    s[:sprite].move(*s[:amount])
+  }
+
+  # 画面への描画
+  Screen.pre_render
+  cautions[collision_type].render
+end

data/sample/fixed_map_test/fixed_map_sample.rb

@@ -0,0 +1,140 @@
+#encoding: UTF-8
+# FixedMap Sample
+# 2009.4.12 Cyross Makoto
+
+require 'Miyako/miyako'
+
+include Miyako
+
+Screen::fps_view = true
+
+# Monster Class
+class Monster
+  extend Forwardable
+
+  def initialize(map, name, size, wait, pattern, x, y)
+    @spr = Sprite.new({:filename => name, :type => :color_key})
+    @spr.ow = size
+    @spr.oh = size
+    @coll = Collision.new(Rect.new(0, 0, @spr.ow, @spr.oh))
+    @cpos = Point.new(x, y)
+    ap = { }
+    ap[:sprite] = @spr
+    ap[:wait] = wait
+    ap[:pattern_list] = pattern
+    @anim = SpriteAnimation.new(ap)
+    @anim.snap(map)
+    @anim.left.top.move(x, y)
+  end
+
+  def start
+    @anim.start
+  end
+  
+  def update(map, events, param)
+    @anim.update_animation
+  end
+
+  def render
+    @anim.render
+  end
+
+  def finish
+  end
+  
+  def dispose
+    @anim.dispose
+    @spr.dispose
+  end
+
+  def_delegators(:@anim, :start, :stop)
+end
+
+class Slime < Monster
+  def initialize(map, x, y)
+    super(map, "monster.png", 32, 0.5, [0, 1, 2, 3, 2, 1], x, y)
+    @interval = 2
+    @interval_x = 0
+    @interval_y = 0
+    @cnt = 0
+    @wait0 = WaitCounter.new(0.1)
+    @wait = WaitCounter.new(0.4)
+    @types = 5
+    # 方向による移動量リスト
+    @ary = [[       0, @spr.oh,          0, @interval, @spr.oh],
+            [ @spr.ow,       0,  @interval,         0, @spr.ow],
+            [-@spr.ow,       0, -@interval,         0, @spr.ow],
+            [       0,-@spr.oh,          0,-@interval, @spr.oh]]
+  end
+
+  def update(map, events, param)
+    super
+    return if @wait.waiting? || @wait0.waiting?
+    if @cnt > 0
+      @anim.move(@interval_x, @interval_y)
+      @cpos.move(@interval_x, @interval_y)
+      @cnt -= @interval
+      @wait0.start
+      return
+    end
+    val = rand(@types)
+    if val == 0
+      @interval_x = 0
+      @interval_y = 0
+      @wait.start
+    else
+      data = @ary[val-1]
+      # スライムが当たっているマップ位置リストを取得
+      colls = Utility.product_position(
+                @cpos.dup.move(data[0], data[1]), @coll.rect, map.mapchips[0].chip_size.to_a
+              )
+      # 障害物に当たってない？
+      if colls.inject(true){|r, pos| r &= map[0].can_access?(0, :in, @cpos, data[0], data[1]) }
+        @interval_x, @interval_y = data[2..3]
+        @cnt = data[4]
+      end
+    end
+  end
+end
+
+class SlimeEvent
+  include MapEvent
+
+  def init(map, x, y)
+    @slime = Slime.new(map, x, y)
+  end
+  
+  def update(map, events, param)
+    @slime.update(map, events, param)
+  end
+  
+  def final
+    @slime.finish
+  end
+
+  def dispose
+    @slime.dispose
+  end
+  
+  def render
+    @slime.render
+  end
+end
+
+em = MapEventManager.new
+em.add(1, SlimeEvent)
+
+# main
+mp = MapChipFactory.load("./mapchip.csv")
+@fmap = FixedMap.new(mp, "./map.csv", em)
+
+Miyako.main_loop do
+  break if Input.quit_or_escape?
+  dx, dy = Input.trigger_amount.map{|v| v * 4 }
+  dx = 0 unless Utility.in_bounds?([@fmap.rect.x,@fmap.rect.x+@fmap.rect.w-1], [0,Screen.w-1], dx)
+  dy = 0 unless Utility.in_bounds?([@fmap.rect.y,@fmap.rect.y+@fmap.rect.h-1], [0,Screen.h-1], dy)
+  @fmap.move(dx, dy)
+  @fmap.events.each{|ee| ee.each{|e| e.update(@fmap, @fmap.events, nil)}}
+  @fmap.render_to(Screen)
+  @fmap.events.each{|ee| ee.each{|e| e.render}}
+end

data/sample/fixed_map_test/map.csv

@@ -0,0 +1,19 @@
+"Miyako Maplayer",1.5
+7,7
+2
+<0>
+ 0, 1, 1, 1, 1, 1, 2
+ 3, 4, 4, 4, 4, 4, 5
+ 3, 4, 4, 4, 4, 4, 5
+ 3, 4, 4, 4, 4, 4, 5
+ 3, 4, 4, 4, 4, 4, 5
+ 3, 4, 4, 4, 4, 4, 5
+ 6, 7, 7, 7, 7, 7, 8
+<event>
+0, 0, 0, 0, 0, 0, 0
+0, 0, 0, 0, 0, 1, 0
+0, 0, 0, 0, 0, 0, 0
+0, 0, 0, 1, 0, 0, 0
+0, 0, 0, 0, 0, 0, 0
+0, 0, 1, 0, 0, 0, 0
+0, 0, 0, 0, 0, 0, 0