dxruby64 1.4.7

data/sample/new_sample2/particle.rb

@@ -0,0 +1,220 @@
+require 'dxruby'
+
+class Sprite
+  def on_screen?(range = nil)
+    if range == nil
+      if self.target == nil
+        screen = [0, 0, Window.width, Window.height]
+      else
+        screen = [0, 0, self.target.width, self.target.height]
+      end
+    else
+      screen = range
+    end
+
+    xary = [0, self.image.width, 0, self.image.width]
+    yary = [0, 0, self.image.height, self.image.height]
+
+    if self.angle != 0 or self.scale_x != 1.0 or self.scale_y != 1.0
+      cos = Math.cos(self.angle / 180.0 * Math::PI)
+      sin = Math.sin(self.angle / 180.0 * Math::PI)
+      4.times do |i|
+        tempx = ((xary[i] - self.center_x) * cos - (yary[i] - self.center_x) * sin) * scale_x + self.center_x
+        tempy = ((xary[i] - self.center_x) * sin + (yary[i] - self.center_x) * cos) * scale_y + self.center_x
+        xary[i] = tempx
+        yary[i] = tempy
+      end
+    end
+    return !(screen[0] >= xary.max+self.x or screen[1] >= yary.max+self.y or screen[2] <= xary.min+self.x or screen[3] <= yary.min+self.y)
+  end
+end
+
+class StandardParticle < Sprite
+  attr_accessor :dx, :dy, :lifetime, :parent
+
+  def initialize
+    @dx = 0
+    @dy = 0
+    @lifetime = nil
+  end
+
+  def update
+    if @lifetime
+      @lifetime -= 1
+      if @lifetime == 0
+        self.vanish 
+        return
+      end
+    end
+
+    if self.alpha > 0
+      self.alpha += @parent.d_alpha
+      self.alpha = 0 if self.alpha < 0
+    end
+
+    self.x += @dx
+    self.y += @dy
+
+    self.vanish unless self.on_screen?
+
+    @dy += @parent.gravity
+  end
+end
+
+class ParticleFactory
+  attr_accessor :particles
+
+  @@all_objects = []
+
+  def self.step
+    obj = @@all_objects.map{|o|o.particles}
+    Sprite.update obj
+    Sprite.draw obj
+    Sprite.clean obj
+    @@all_objects.delete_if {|v| v.particles.empty?}
+  end
+
+  def self.count
+    c = 0
+    @@all_objects.each do |o|
+      c += o.particles.size
+    end
+    c
+  end
+
+  def initialize(particle_class)
+    @particle_class = particle_class
+    @particles = []
+  end
+
+  def generate(count)
+    flag = @particles.empty?
+    count.times do |i|
+      temp = @particle_class.new
+      yield temp, i
+      @particles << temp
+    end
+    @@all_objects.push(self) if flag
+  end
+end
+
+class SampleEmitter
+  attr_accessor :gravity, :d_alpha, :image, :lifetime
+
+  class EmitterGenerator
+    attr_accessor :b, :interval, :count
+    def initialize(b, interval)
+      @b = b
+      @interval = interval
+      @count = 0
+    end
+  end
+
+  def initialize(particle_class)
+    @factory = ParticleFactory.new(particle_class)
+    @screen = Sprite.new
+    @screen.collision = [0, 0, 639, 479]
+    @generator = []
+    @d_alpha = 0
+  end
+
+  def generate(count)
+    @factory.generate(count) do |p, i|
+      p.parent = self
+      p.lifetime = @lifetime
+      yield p, i
+    end
+  end
+
+  def generate_line(count, x1, y1, x2, y2)
+    diff_x = x2 - x1 + 1
+    diff_y = y2 - y1 + 1
+    @factory.generate(count) do |p, i|
+      r = rand()
+      p.x = x1 + r * diff_x
+      p.y = y1 + r * diff_y
+      p.parent = self
+      p.lifetime = @lifetime
+      p.image = @image
+      yield p, i if block_given?
+    end
+  end
+
+  def generate_circle(count, x, y, r, angle_min, angle_max)
+    @factory.generate(count) do |p, i|
+      angle = angle_min + rand() * (angle_max - angle_min)
+      p.x = x + Math.cos(angle / 180.0 * Math::PI) * r
+      p.y = y + Math.sin(angle / 180.0 * Math::PI) * r
+      p.parent = self
+      p.lifetime = @lifetime
+      p.image = @image
+      yield p, i, angle if block_given?
+    end
+  end
+
+  def add_generator(interval, &b)
+    @generator << EmitterGenerator.new(b, interval)
+  end
+
+  def update
+    @generator.each do |g|
+      g.count += 1
+      if g.count >= g.interval
+        g.count = 0
+        g.b.call
+      end
+    end
+  end
+end
+
+
+class TestParticle < StandardParticle
+
+  def initialize
+    super
+  end
+
+  def hit(o)
+    @dy = -@dy * 0.5
+    self.collision_enable = false
+  end
+end
+
+class TestEmitter < SampleEmitter
+  attr_accessor :wall
+
+  def update
+    super
+    Sprite.check @wall, @factory.particles
+  end
+end
+
+image = Image.new(3,3)
+image[1,0] = [128, 255, 255, 255]
+image[1,2] = [128, 255, 255, 255]
+image[0,1] = [128, 255, 255, 255]
+image[2,1] = [128, 255, 255, 255]
+image[1,1] = C_WHITE
+
+emitter = TestEmitter.new(TestParticle)
+emitter.gravity = 0.1
+emitter.image = image
+emitter.wall = Sprite.new(0, 400, Image.new(640, 180, C_WHITE))
+
+emitter.add_generator(1) do
+  emitter.generate_circle(5, 200, 100, 1, 0, 360) do |p, i, angle|
+    p.dx = Math.cos(angle / 180.0 * Math::PI)*3
+    p.dy = Math.sin(angle / 180.0 * Math::PI)*3
+    p.blend = :add
+  end
+end
+
+font = Font.new(32)
+Window.after_call[:particle] = ParticleFactory.method(:step)
+
+Window.loop do
+  emitter.update
+  Window.draw_font(0,0,ParticleFactory.count.to_s, font)
+  Window.draw_font(0,32,Window.fps.to_s, font)
+end
+

data/sample/new_sample2/readme_sample.txt

@@ -0,0 +1,29 @@
+DXRuby �T���v���v���O����
+
+�܂��ŏ��ɁA�\�[�X�������Ă��߂�Ȃ����B
+�e�L�g�[�ɍ�������̂������Q�l�ɂȂ�΂��Ċ����ŋl�ߍ���ł���܂��B
+
+autocall.rb
+    �E�E�EWindow.autocall�̃T���v���ł��Bautocall��particle.rb�ł��g���Ă��܂��B
+
+effecttest.rb
+    �E�E�EImage#effect_image_font��Font#info�̃T���v���ł��B
+
+hlstest.rb
+    �E�E�EImage#change_hls�̃T���v���ł��B
+
+particle.rb
+    �E�E�E�p�[�e�B�N���V�X�e���Ƀ`�������W���Ă݂܂����B�C�}�C�`�ł��B
+
+scenetest.rb
+    �E�E�E�����_���Scene�N���X������Ă݂܂����B
+
+scenetest2.rb
+    �E�E�E�����_���Scene�N���X�Ńh���N�G�I���j���[������Ă݂܂����B
+
+hitrange.rb
+    �E�E�EHitRange���W���[����Sprite�̔h���N���X��include���邱�ƂŏՓ˔���͈͂�������悤�ɂȂ�܂��B
+
+Image#flush�̃T���v����new_sample��rubima.rb�ɂ���܂��B�t���b�V���摜�쐬�Ɏg���Ă݂܂����B
+
+

data/sample/new_sample2/scenetest.rb

@@ -0,0 +1,200 @@
+#!ruby -Ks
+require 'dxruby'
+
+class ExitException < StandardError
+end
+
+module Window
+  @@created = false
+
+  def self.loop
+    unless @@created
+      Window.create
+      @@created = true
+    end
+
+    while(true) do
+      raise ExitException if Input.update
+      yield
+      Window.sync
+      Window.update
+    end
+  end
+
+  def self.times(count)
+    unless @@created
+      Window.create
+      @@created = true
+    end
+
+    count.times do |i|
+      raise ExitException if Input.update
+      yield i
+      Window.sync
+      Window.update
+    end
+  end
+end
+
+
+class SpriteBase < Sprite
+  def initialize(angle)
+    self.x = 320 - self.image.width / 2
+    self.y = 240 - self.image.height / 2
+    speed = rand() * 5 + 2
+    @dx = Math.cos(angle / 180.0 * Math::PI) * speed
+    @dy = Math.sin(angle / 180.0 * Math::PI) * speed
+  end
+
+  def update
+    self.x += @dx
+    self.y += @dy
+  end
+end
+
+class Hoge < SpriteBase
+  @@image = Image.new(16,16).circle_fill(8,8,8,C_YELLOW)
+  def initialize
+    self.image = @@image
+    super(rand(360))
+  end
+end
+
+class Fuga < SpriteBase
+  @@image = Image.new(16,16).circle_fill(8,8,8,C_GREEN)
+  def initialize
+    self.image = @@image
+    super(rand(180) + 180)
+  end
+
+  def update
+    super
+    @dy += 0.2
+  end
+end
+
+
+class Scene
+end
+
+class FirstScene < Scene
+  def initialize
+    @objects = []
+    @screen_collision = Sprite.new
+    @screen_collision.collision = [0, 0, 639, 479]
+  end
+
+  def run
+    Window.loop do
+      if Input.key_push?(K_SPACE)
+        return SecondScene.new
+      end
+      if Input.key_push?(K_ESCAPE)
+        MenuScene.new(self).run
+      end
+
+      update
+      @objects = @screen_collision.check(@objects)
+      draw
+    end
+  end
+
+  def update
+    @objects.push Hoge.new
+    Sprite.update @objects
+  end
+
+  def draw
+    Sprite.draw @objects
+  end
+end
+
+class SecondScene < Scene
+  def initialize
+    @objects = []
+    @screen_collision = Sprite.new
+    @screen_collision.collision = [0, 0, 639, 479]
+  end
+
+  def run
+    Window.loop do
+      if Input.key_push?(K_SPACE)
+        return nil
+      end
+      if Input.key_push?(K_ESCAPE)
+        MenuScene.new(self).run
+      end
+
+      update
+      @objects = @screen_collision.check(@objects)
+      draw
+    end
+  end
+
+  def update
+    @objects.push Fuga.new
+    Sprite.update @objects
+  end
+
+  def draw
+    Sprite.draw @objects
+  end
+end
+
+class MenuScene < Scene
+  @@fadeimage = Image.new(1,1,C_BLACK)
+  @@backimage = Image.new(1,1,[192,0,0,0])
+  @@menuimage = Image.new(100,50,C_BLACK).box(0, 0, 99, 49, C_WHITE)
+                                         .draw_font_ex(10,10,"��?",Font.new(32))
+
+  def initialize(s)
+    @s = s
+  end
+
+  def run
+    Window.times(30) do |i|
+      @s.update
+      @s.draw
+      Window.draw_ex(0, 0, @@fadeimage, :alpha=>255*i/45, :scale_x=>640, :scale_y=>480, :center_x => 0, :center_y=>0)
+    end
+
+    Window.loop do
+      if Input.key_push?(K_ESCAPE)
+        break
+      end
+
+      @s.update
+      @s.draw
+      Window.draw_scale(0, 0, @@backimage, 640, 480, 0, 0)
+      Window.draw(270, 215, @@menuimage)
+    end
+
+    Window.times(30) do |i|
+      @s.update
+      @s.draw
+      Window.draw_ex(0, 0, @@fadeimage, :alpha=>255*(29 - i)/45, :scale_x=>640, :scale_y=>480, :center_x => 0, :center_y=>0)
+    end
+
+    return nil
+  end
+  
+end
+
+
+scene = FirstScene.new
+
+begin
+
+loop do
+  result = scene.run
+  if Scene === result
+    scene = result
+  else
+    break
+  end
+end
+
+rescue ExitException
+end
+
+

data/sample/new_sample2/scenetest2.rb

@@ -0,0 +1,120 @@
+#!ruby -Ks
+require 'dxruby'
+
+class ExitException < StandardError
+end
+
+module Window
+  @@created = false
+
+  def self.loop
+    unless @@created
+      Window.create
+      @@created = true
+    end
+
+    while(true) do
+      raise ExitException if Input.update
+      yield
+      Window.sync
+      Window.update
+    end
+  end
+end
+
+
+class Scene
+end
+
+class FirstScene < Scene
+  @@image = Image.new(1,1,C_GREEN)
+  def initialize
+  end
+
+  def run
+    Window.loop do
+      if Input.key_push?(K_ESCAPE)
+        break
+      end
+      if Input.key_push?(K_SPACE)
+        MenuScene.new([self], 100, 100).run
+      end
+
+      draw
+    end
+    return nil
+  end
+
+  def draw
+    Window.draw_scale(0,0,@@image,640,480,0,0)
+  end
+end
+
+class MenuScene < Scene
+
+  @@font = Font.new(24)
+  @@image = Image.new(204,124,C_BLACK).box_fill(2,2,201,121,C_WHITE).box_fill(7,7,196,116,C_BLACK)
+  @@image.draw_font_ex(32, 22, "0001", @@font).draw_font_ex(120, 22, "0002", @@font)
+  @@image.draw_font_ex(32, 54, "0003", @@font).draw_font_ex(120, 54, "0004", @@font)
+  @@image.draw_font_ex(32, 86, "0005", @@font).draw_font_ex(120, 86, "0006", @@font)
+  @@image.box_fill(60, 0, 139, 23, [0,0,0,0])
+  @@cursor = Image.new(12,12).triangle_fill(0,0,5,5,0,10,C_WHITE)
+  @@menu = Image.new(80, 24, C_BLACK).draw_font_ex(10, -2, "MENU", @@font)
+
+  def initialize(s, x, y)
+    @s = s
+    @x = x
+    @y = y
+    @cx = 0
+    @cy = 0
+  end
+
+  def run
+    Window.loop do
+      if Input.key_push?(K_ESCAPE)
+        break
+      end
+      if Input.key_push?(K_SPACE)
+        MenuScene.new(@s + [self], @x + @cx * 88 - 45, @y + @cy * 32 + 24).run
+      end
+
+      @cx = 1 - @cx if Input.key_push?(K_LEFT) or Input.key_push?(K_RIGHT)
+      @cy -= 1 if Input.key_push?(K_UP)
+      @cy += 1 if Input.key_push?(K_DOWN)
+      @cy = 2 if @cy < 0
+      @cy = 0 if @cy >2
+
+      Sprite.draw @s
+      draw
+      Window.draw(@x + @cx * 88 + 16,@y + @cy * 32 + 29, @@cursor)
+    end
+
+    return nil
+  end
+
+  def draw
+      Window.draw(@x, @y, @@image)
+      if @s.size == 1
+        Window.draw(@x + 60, @y, @@menu)
+      end
+  end
+end
+
+
+scene = FirstScene.new
+
+begin
+
+loop do
+  result = scene.run
+  if Scene === result
+    scene = result
+  else
+    break
+  end
+end
+
+rescue ExitException
+end
+
+

data/sample/scroll_sample/map.dat

@@ -0,0 +1,32 @@
+11111111121111111113311111111111
+11111111111111111333331111112111
+12111111111111111113333111211111
+11111111111111112111333111111121
+11111111111111111111113311111111
+11111110000000111111111311111111
+11111100000000001111111131111111
+11111000333000001111112111111311
+11120003333200000111111111111311
+11120000333220000111111111111311
+11220000011220000111111111113111
+11220000001220000111111311113111
+11222000000000001111111331133111
+11112220000000000111111133331111
+11111222100000000011111133331111
+11211112211000111001111133331111
+11111111221111111100111333331111
+11111111111111111110111333311111
+11111111111222111111013333311111
+11111111111112221111303333111111
+11111111111111111111303331111111
+11121111111111111113303331111111
+11111111333331111333033331111121
+11111111113333333331233311111222
+11111111111113333333331111122222
+11111111211111133333311111222222
+11111111111111111333111111222221
+11111211111111111111111111122211
+11111111111111111111112111111111
+11111111111121111111111111111111
+11111111111111111111111111111111
+11111111111111111111111111111111

data/sample/scroll_sample/map.rb

@@ -0,0 +1,77 @@
+require 'dxruby'
+
+# �}�b�v
+class Map
+  attr_reader :mapdata
+  # target�͕`����RenderTarget/Window
+  def initialize(filename, mapimage, target=Window)
+    @mapimage, @target = mapimage, target
+    @mapdata = []
+    File.open(filename, "rt") do |fh|
+      lines = fh.readlines
+      lines.each do |line|
+        ary = []
+        line.chomp.each_char do |o|
+          if o != "x"
+            ary << o.to_i
+          else
+            ary << nil
+          end
+        end
+        @mapdata << ary
+      end
+    end
+  end
+
+  # x/y�̓}�b�v���̍���̍��W(�s�N�Z���\��)
+  # �`��T�C�Y�͕`���(initialize��target)�ɂ�莩���I�ɒ��������
+  def draw(x, y)
+    image = @mapimage[0]
+    @target.draw_tile(0, 0, @mapdata, @mapimage, x, y,
+                      (@target.width + image.width - 1) / image.width,
+                      (@target.height + image.height - 1) / image.height)
+  end
+
+  def [](x, y)
+    @mapdata[y % @mapdata.size][x % @mapdata[0].size]
+  end
+
+  def []=(x, y, v)
+    @mapdata[y % @mapdata.size][x % @mapdata[0].size] = v
+  end
+
+  def size_x
+    @mapdata[0].size
+  end
+
+  def size_y
+    @mapdata.size
+  end
+end
+
+if __FILE__ == $0
+  mapimage = []
+  mapimage.push(Image.new(32, 32, [100, 100, 200])) # �C
+  mapimage.push(Image.new(32, 32, [50, 200, 50]))   # ���n
+  mapimage.push(Image.new(32, 32, [50, 200, 50]).   # �؂̍���
+                          box_fill(13, 0, 18, 28, [200, 50, 50]))
+  mapimage.push(Image.new(32, 32, [50, 200, 50]).   # �R
+                          triangle_fill(15, 0, 0, 31, 31, 31, [200, 100,100]))
+  mapimage.push(Image.new(32, 32).  # �؂̂����܁B�w�i�͓����F�ɂ��Ă����B
+                          box_fill(13, 16, 18, 31, [200, 50, 50]).
+                          circle_fill(16, 10, 8, [0, 255, 0]))
+
+  rt = RenderTarget.new(560,400)
+  map1 = Map.new("map.dat", mapimage, rt)
+  map2 = Map.new("map_sub.dat", mapimage, rt)
+  x = 0
+  y = 0
+  Window.loop do
+    map1.draw(x, y)
+    map2.draw(x, y)
+    Window.draw(40, 40, rt)
+    x += 1
+    y += 1
+    break if Input.key_push?(K_ESCAPE)
+  end
+end

data/sample/scroll_sample/map_sub.dat

@@ -0,0 +1,32 @@
+xxxxxxxxxxxxxxxxxxxxxxxxxxxx4xxx
+x4xxxxxxxxxxxxxxxxxxxxxxxx4xxxxx
+xxxxxxxxxxxxxxxx4xxxxxxxxxxxxx4x
+xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+xxxxxxxxxxxxxxxxxxxxxx4xxxxxxxxx
+xxx4xxxxxxx4xxxxxxxxxxxxxxxxxxxx
+xxx4xxxxxxx44xxxxxxxxxxxxxxxxxxx
+xx44xxxxxxx44xxxxxxxxxxxxxxxxxxx
+xx44xxxxxxx44xxxxxxxxxxxxxxxxxxx
+xx444xxxxxxxxxxxxxxxxxxxxxxxxxxx
+xxxx444xxxxxxxxxxxxxxxxxxxxxxxxx
+xxxxx444xxxxxxxxxxxxxxxxxxxxxxxx
+xx4xxxx44xxxxxxxxxxxxxxxxxxxxxxx
+xxxxxxxx44xxxxxxxxxxxxxxxxxxxxxx
+xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+xxxxxxxxxxx444xxxxxxxxxxxxxxxxxx
+xxxxxxxxxxxxx444xxxxxxxxxxxxxxxx
+xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+xxx4xxxxxxxxxxxxxxxxxxxxxxxxxxxx
+xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx4x
+xxxxxxxxxxxxxxxxxxxx4xxxxxxxx444
+xxxxxxxxxxxxxxxxxxxxxxxxxxx44444
+xxxxxxxx4xxxxxxxxxxxxxxxxx444444
+xxxxxxxxxxxxxxxxxxxxxxxxxx44444x
+xxxxx4xxxxxxxxxxxxxxxxxxxxx444xx
+xxxxxxxxxxxxxxxxxxxxxx4xxxxxxxxx
+xxxxxxxxxxxx4xxxxxxxxxxxxxxxxxxx
+xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+xxxxxxxxx4xxxxxxxxxxxxxxxxxxxxxx