dxruby64 1.4.7

data/sample/scroll_sample/mapedit.rb

@@ -0,0 +1,102 @@
+# �ȈՃ}�b�v�G�f�B�^
+require 'dxruby'
+require './map'
+
+# �}�b�v�f�[�^
+map = Array.new(32) { [1] * 32 }
+
+# �G�̃f�[�^�����
+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]))
+
+wakuimage = Image.new(36, 36).box(0, 0, 35, 35, [255, 255, 255, 255]) # �I��g
+
+rt = RenderTarget.new(32*32, 32*32)
+
+filename = Window.open_filename([["dat file(*.dat)", "*.dat"]], "open file name")
+ext = File.extname(filename)
+basename = File.basename(filename, ext)
+
+map_base = Map.new(filename, mapimage, rt)
+map_sub = Map.new(basename + "_sub" + ext, mapimage, rt)
+
+select = 0
+
+Window.height = 512
+
+# ���C�����[�v
+Window.loop do
+
+  # �}�E�X���N���b�N
+  if Input.mouse_down?(M_LBUTTON) then
+    x, y = Input.mouse_pos_x, Input.mouse_pos_y
+    if x >= 512 then # �E�̂ق��Ȃ�
+      for i in 0..3
+        if x >= 560 and x < 592 and y >= i * 64 + 64 and y < i * 64 + 96 then
+          select = i
+          break
+        end
+      end
+    else            # ���̂ق��Ȃ�
+      if x > 0 and y > 0 and y < 512 then
+        map_base[x/16, y/16] = select
+        map_sub[x/16, y/16-1] = (select == 2 ? 4 : nil)
+      end
+    end
+  end
+
+  # �I��g�`��
+  Window.draw(558, select * 64 + 62, wakuimage)
+
+  # �}�b�v�`�b�v�`��
+  for i in 0..3
+    Window.draw(560, i * 64 + 64, mapimage[i])
+    Window.draw(560, 2 * 64 + 64 - 32, mapimage[4])
+  end
+
+  # �}�b�v��rt�ɕ`��
+  map_base.draw(0, 0)
+  map_sub.draw(0, 0)
+
+  # �S�̐}�`��
+  Window.draw_ex(0, 0, rt, :center_x => 0, :center_y => 0, :scale_x => 0.5, :scale_y => 0.5)
+
+  if Input.key_push?(K_ESCAPE) then
+    filename = Window.save_filename([["dat file(*.dat)", "*.dat"]], "save file name")
+    if filename
+      ext = File.extname(filename)
+      basename = File.basename(filename, ext)
+      File.open(filename, "wt") do |fh|
+        map_base.mapdata.each do |line|
+          data = ""
+          line.each do |o|
+            data += o.to_s
+          end
+          fh.puts(data)
+        end
+      end
+      File.open(basename + "_sub" + ext, "wt") do |fh|
+        map_sub.mapdata.each do |line|
+          data = ""
+          line.each do |o|
+            if o
+              data += "4"
+            else
+              data += "x"
+            end
+          end
+          fh.puts(data)
+        end
+      end
+      break
+    end
+  end
+end

data/sample/scroll_sample/readme_sample.txt

@@ -0,0 +1,24 @@
+DXRuby �T���v���v���O����
+
+�܂��ŏ��ɁA�\�[�X�������Ă��߂�Ȃ����B
+�e�L�g�[�ɍ�������̂������Q�l�ɂȂ�΂��Ċ����ŋl�ߍ���ł���܂��B
+
+scroll1.rb
+    �E�E�E���X�ƃ��[�v����h�[�i�c�^���E�̃X�N���[���ł��BFiber��RenderTarget���g���Ă��܂��B
+
+scroll2.rb
+    �E�E�E��ʂ̈ړ��͈͂𒴂���ƃX�N���[�����A�}�b�v�̒[�Ŏ~�܂�܂��B
+
+scroll3.rb
+    �E�E�E��ʂ̒[�܂ł����ƂP��ʕ��X�N���[�����A�}�b�v�̓��[�v���܂��B
+
+mapedit.rb
+    �E�E�E�X�N���[���T���v���p�̃}�b�v������ȈՃ}�b�v�G�f�B�^�ł��B
+
+map.rb
+    �E�E�E�X�N���[���T���v���Ŏg���}�b�v�Ǘ��N���XMap�ł��B
+
+simple.rb
+    �E�E�EWindow.draw_tile�̃V���v���ȃT���v���ł��B
+
+

data/sample/scroll_sample/scroll1.rb

@@ -0,0 +1,108 @@
+# �X�N���[���T���v�����̂P(�P�����[�v�X�N���[��)
+require 'dxruby'
+require './map'
+
+# �G�̃f�[�^�����
+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]))
+
+# Fiber���g���₷�����郂�W���[��
+module FiberSprite
+  def initialize(x=0,y=0,image=nil)
+    super
+    @fiber = Fiber.new do
+      self.fiber_proc
+    end
+  end
+
+  def update
+    @fiber.resume
+    super
+  end
+
+  def wait(t=1)
+    t.times{Fiber.yield}
+  end
+end
+
+# ���L����
+class Player < Sprite
+  include FiberSprite
+  attr_accessor :mx, :my
+
+  def initialize(x, y, map, target=Window)
+    @mx, @my, @map, self.target = x, y, map, target
+    super(8.5 * 32, 6 * 32)
+
+    # ���͏�ɂ͂ݏo���ĕ`�悳���̂ł��̂Ԃ�ʒu�␳����׍H
+    self.center_x = 0
+    self.center_y = 16
+    self.offset_sync = true
+
+    # �_�l�ԉ摜
+    self.image = Image.new(32, 48).
+                       circle(15, 5, 5, [255, 255, 255]).
+                       line(5, 18, 26, 18, [255, 255, 255]).
+                       line(15, 10, 15, 31, [255, 255, 255]).
+                       line(15, 31, 5, 47, [255, 255, 255]).
+                       line(15, 31, 25, 47, [255, 255, 255])
+  end
+
+  # Player#update����ƌĂ΂��Fiber�̒��g
+  def fiber_proc
+    loop do
+      ix, iy = Input.x, Input.y
+
+      # �����ꂽ�`�F�b�N
+      if ix + iy != 0 and (ix == 0 or iy == 0) and # �i�i���͋p��
+         @map[@mx/32+ix, @my/32+iy] == 1   # �ړ��悪���n�̂Ƃ��̂�
+        # 8�t���[����1�}�X�ړ�
+        8.times do
+          @mx += ix * 4
+          @my += iy * 4
+          wait # wait����Ǝ��̃t���[����
+        end
+      else
+        wait
+      end
+    end
+  end
+end
+
+# RenderTarget�쐬
+rt = RenderTarget.new(640-64, 480-64)
+
+# �}�b�v�̍쐬
+map_base = Map.new("map.dat", mapimage, rt)
+map_sub = Map.new("map_sub.dat", mapimage, rt)
+
+# ���L����
+player = Player.new(0, 0, map_base, rt)
+
+Window.loop do
+  # �l�ړ�����
+  player.update
+
+  # rt�Ƀx�[�X�}�b�v��`��
+  map_base.draw(player.mx - player.x, player.my - player.y)
+
+  # rt�ɐl�`��
+  player.draw
+
+  # rt�ɏ�w�}�b�v��`��
+  map_sub.draw(player.mx - player.x, player.my - player.y)
+
+  # rt����ʂɕ`��
+  Window.draw(32, 32, rt)
+
+  # �G�X�P�[�v�L�[�ŏI��
+  break if Input.key_push?(K_ESCAPE)
+end

data/sample/scroll_sample/scroll2.rb

@@ -0,0 +1,149 @@
+# �X�N���[���T���v�����̂Q(�[�Ŏ~�܂�X�N���[��)
+require 'dxruby'
+require './map'
+
+# �G�̃f�[�^�����
+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]))
+
+# Fiber���g���₷�����郂�W���[��
+module FiberSprite
+  def initialize(x=0,y=0,image=nil)
+    super
+    @fiber = Fiber.new do
+      self.fiber_proc
+    end
+  end
+
+  def update
+    @fiber.resume
+    super
+  end
+
+  def wait(t=1)
+    t.times{Fiber.yield}
+  end
+end
+
+# ���L����
+class Player < Sprite
+  include FiberSprite
+  attr_accessor :mx, :my
+
+  def initialize(x, y, map, target=Window)
+    @mx, @my, @map, self.target = x, y, map, target
+    super(8.5 * 32, 6 * 32)
+
+    # ���͏�ɂ͂ݏo���ĕ`�悳���̂ł��̂Ԃ�ʒu�␳����׍H
+    self.center_x = 0
+    self.center_y = 16
+    self.offset_sync = true
+
+    # �_�l�ԉ摜
+    self.image = Image.new(32, 48).
+                       circle(15, 5, 5, [255, 255, 255]).
+                       line(5, 18, 26, 18, [255, 255, 255]).
+                       line(15, 10, 15, 31, [255, 255, 255]).
+                       line(15, 31, 5, 47, [255, 255, 255]).
+                       line(15, 31, 25, 47, [255, 255, 255])
+  end
+
+  # Player#update����ƌĂ΂��Fiber�̒��g
+  def fiber_proc
+    loop do
+      ix, iy = Input.x, Input.y
+
+      # �����ꂽ�`�F�b�N
+      if ix + iy != 0 and (ix == 0 or iy == 0) and # �i�i���͋p��
+         @map[@mx/32+ix, @my/32+iy] == 1 and       # �ړ��悪���n�̂Ƃ��̂�
+         @mx/32 + ix >= 0 and @mx/32 + ix < @map.size_x and # �}�b�v�̒[�܂ł����s���Ȃ�
+         @my/32 + iy >= 0 and @my/32 + iy < @map.size_y
+        # 8�t���[����1�}�X�ړ�
+        8.times do
+          @mx += ix * 4 # �}�b�v��̍��W
+          @my += iy * 4
+          self.x += ix * 4 # ��ʏ�̍��W
+          self.y += iy * 4
+          wait # wait����Ǝ��̃t���[����
+        end
+      else
+        wait
+      end
+    end
+  end
+end
+
+# RenderTarget�쐬
+rt = RenderTarget.new(640-64, 480-64)
+
+# �}�b�v�̍쐬
+map_base = Map.new("map.dat", mapimage, rt)
+map_sub = Map.new("map_sub.dat", mapimage, rt)
+
+# ���L����
+player = Player.new(480, 480, map_base, rt)
+
+# �}�b�v���W
+map_x = player.mx - player.x
+map_y = player.my - player.y
+
+# ��ʓ��̎��L�����ړ��͈�
+min_x = 128
+max_x = 640 - 64 - 128 - 32
+min_y = 128
+max_y = 480 - 64 - 128 - 32
+
+Window.loop do
+  # �l�ړ�����
+  player.update
+
+  # ������x��ʂ̒[�܂ōs������}�b�v���X�N���[�������Ď��L�����͎~�߂�
+  if player.x < min_x
+    # �}�b�v�̒[����Ȃ���������������
+    if map_x > 0
+      map_x -= 4
+      player.x += 4
+    end
+  end
+  if player.x > max_x
+    if map_x < map_base.size_x * 32 - rt.width
+      map_x += 4
+      player.x -= 4
+    end
+  end
+  if player.y < min_y
+    if map_y > 0
+      map_y -= 4
+      player.y += 4
+    end
+  end
+  if player.y > max_y
+    if map_y < map_base.size_y * 32 - rt.height
+      map_y += 4
+      player.y -= 4
+    end
+  end
+
+  # rt�Ƀx�[�X�}�b�v��`��
+  map_base.draw(map_x, map_y)
+
+  # rt�ɐl�`��
+  player.draw
+
+  # rt�ɏ�w�}�b�v��`��
+  map_sub.draw(map_x, map_y)
+
+  # rt����ʂɕ`��
+  Window.draw(32, 32, rt)
+
+  # �G�X�P�[�v�L�[�ŏI��
+  break if Input.key_push?(K_ESCAPE)
+end

data/sample/scroll_sample/scroll3.rb

@@ -0,0 +1,148 @@
+# �X�N���[���T���v�����̂Q(�[�Ŏ~�܂�X�N���[��)
+require 'dxruby'
+require './map'
+
+# �G�̃f�[�^�����
+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]))
+
+# Fiber���g���₷�����郂�W���[��
+module FiberSprite
+  def initialize(x=0,y=0,image=nil)
+    super
+    @fiber = Fiber.new do
+      self.fiber_proc
+    end
+  end
+
+  def update
+    @fiber.resume
+    super
+  end
+
+  def wait(t=1)
+    t.times{Fiber.yield}
+  end
+end
+
+# ���L����
+class Player < Sprite
+  include FiberSprite
+  attr_accessor :mx, :my
+
+  def initialize(x, y, map, target=Window)
+    @mx, @my, @map, self.target = x, y, map, target
+    super(8 * 32, 6 * 32)
+
+    # ���͏�ɂ͂ݏo���ĕ`�悳���̂ł��̂Ԃ�ʒu�␳����׍H
+    self.center_x = 0
+    self.center_y = 16
+    self.offset_sync = true
+
+    # �_�l�ԉ摜
+    self.image = Image.new(32, 48).
+                       circle(15, 5, 5, [255, 255, 255]).
+                       line(5, 18, 26, 18, [255, 255, 255]).
+                       line(15, 10, 15, 31, [255, 255, 255]).
+                       line(15, 31, 5, 47, [255, 255, 255]).
+                       line(15, 31, 25, 47, [255, 255, 255])
+  end
+
+  # Player#update����ƌĂ΂��Fiber�̒��g
+  def fiber_proc
+    loop do
+      ix, iy = Input.x, Input.y
+
+      # �����ꂽ�`�F�b�N
+      if ix + iy != 0 and (ix == 0 or iy == 0) and # �i�i���͋p��
+         @map[@mx/32+ix, @my/32+iy] == 1           # �ړ��悪���n�̂Ƃ��̂�
+        # 8�t���[����1�}�X�ړ�
+        8.times do
+          @mx += ix * 4 # �}�b�v��̍��W
+          @my += iy * 4
+          self.x += ix * 4 # ��ʏ�̍��W
+          self.y += iy * 4
+          wait # wait����Ǝ��̃t���[����
+        end
+      else
+        wait
+      end
+    end
+  end
+end
+
+# RenderTarget�쐬
+rt = RenderTarget.new(608-64, 480-64)
+
+# �}�b�v�̍쐬
+map_base = Map.new("map.dat", mapimage, rt)
+map_sub = Map.new("map_sub.dat", mapimage, rt)
+
+# ���L����
+player = Player.new(480, 480, map_base, rt)
+
+# �}�b�v���W
+map_x = player.mx - player.x
+map_y = player.my - player.y
+
+# ��ʓ��̎��L�����ړ��͈�
+min_x = 0
+max_x = 608 - 64 - 32
+min_y = 0
+max_y = 480 - 64 - 32
+
+# ���C������
+fiber = Fiber.new do
+  loop do
+    # �l�ړ�����
+    player.update
+
+    # ��ʂ̒[�܂ł���������
+    dx = dy = 0
+    dx = -8 if player.x < min_x
+    dx =  8 if player.x > max_x
+    dy = -8 if player.y < min_y
+    dy =  8 if player.y > max_y
+
+    if dx != 0 or dy != 0
+      count = (dx != 0 ? 512/8 : 384/8)
+      count.times do
+        map_x += dx
+        map_y += dy
+        player.x -= dx
+        player.y -= dy
+        Fiber.yield
+      end
+    else
+      Fiber.yield
+    end
+  end
+end
+
+Window.loop do
+  # ���C��������Fiber
+  fiber.resume
+
+  # rt�Ƀx�[�X�}�b�v��`��
+  map_base.draw(map_x, map_y)
+
+  # rt�ɐl�`��
+  player.draw
+
+  # rt�ɏ�w�}�b�v��`��
+  map_sub.draw(map_x, map_y)
+
+  # rt����ʂɕ`��
+  Window.draw(48, 32, rt)
+
+  # �G�X�P�[�v�L�[�ŏI��
+  break if Input.key_push?(K_ESCAPE)
+end

data/sample/scroll_sample/simple.rb

@@ -0,0 +1,13 @@
+require 'dxruby'
+
+count = 0
+image = Image.new(200, 200).box_fill(0, 0, 99, 99, C_RED)
+                           .box_fill(100, 0, 199, 99, C_YELLOW)
+                           .box_fill(0, 100, 99, 199, C_GREEN)
+                           .box_fill(100, 100, 199, 199, C_BLUE)
+
+Window.loop do
+  Window.drawTile(0, 0, [[0]], [image], count, count, 5, 4)
+  count += 1
+  break if Input.key_push?(K_ESCAPE)
+end

data/sample/shader_sample/Shader/Flash.rb

@@ -0,0 +1,93 @@
+# -*- coding: Windows-31J -*-
+
+class FlashShader < DXRuby::Shader
+  hlsl = <<EOS
+// (1) �O���[�o���ϐ�
+  float3 g_color;
+  float g_level;
+  texture tex0;
+
+// (2) �T���v��
+  sampler Samp0 = sampler_state
+  {
+   Texture =<tex0>;
+   AddressU=BORDER;
+   AddressV=BORDER;
+  };
+
+// (3) ���o�͂̍\����
+  struct PixelIn
+  {
+    float2 UV : TEXCOORD0;
+  };
+  struct PixelOut
+  {
+    float4 Color : COLOR0;
+  };
+
+// (4) �s�N�Z���V�F�[�_�̃v���O����
+  PixelOut PS(PixelIn input)
+  {
+    PixelOut output;
+    output.Color.rgb = tex2D( Samp0, input.UV ).rgb * g_level + g_color * (1.0-g_level);
+    output.Color.a = tex2D( Samp0, input.UV ).a;
+
+    return output;
+  }
+
+// (5) technique��`
+  technique Flash
+  {
+   pass P0 // �p�X
+   {
+    PixelShader = compile ps_2_0 PS();
+   }
+  }
+EOS
+
+  @@core = DXRuby::Shader::Core.new(
+    hlsl,
+    {
+      :g_color => :float,
+      :g_level => :float,
+    }
+  )
+
+
+  # color�̓t���b�V���F�Aduration�͑J�ڂɂ�����t���[����
+  def initialize(duration, color = [255, 255, 255])
+    super(@@core, "Flash")
+    self.color = color
+    self.g_level = 1.0
+    @duration = duration
+    @count = 0
+
+    # �V�F�[�_�p�����[�^�ݒ�̃��\�b�h�͊O������J�Ƃ���
+    class << self
+      protected :g_color, :g_color=, :g_level, :g_level=
+    end
+  end
+
+  def color=(c)
+      raise DXRuby::DXRubyError, "�F�z�񂪕s���ł�" if c.size != 3
+      self.g_color = c.map{|v| v.fdiv(255)}
+  end
+
+  def duration=(d)
+    @duration = d
+  end
+
+  def start
+    @count = 0
+    self.g_level = 0.0
+  end
+
+  def next
+    @count += 1
+    if @count > @duration
+      self.g_level = 1.0
+    else
+      self.g_level = @count.fdiv(@duration)
+    end
+  end
+end

data/sample/shader_sample/Shader/RasterScroll.rb

@@ -0,0 +1,71 @@
+# -*- coding: Windows-31J -*-
+
+class RasterScrollShader < DXRuby::Shader
+hlsl = <<EOS
+float g_start;
+float g_level;
+texture tex0;
+sampler Samp = sampler_state
+{
+ Texture =<tex0>;
+ AddressU = CLAMP;
+ AddressV = CLAMP;
+};
+
+struct PixelIn
+{
+  float2 UV : TEXCOORD0;
+};
+struct PixelOut
+{
+  float4 Color : COLOR0;
+};
+
+PixelOut PS(PixelIn input)
+{
+  PixelOut output;
+  input.UV.x = input.UV.x + sin(radians(input.UV.y*360-g_start))*g_level;
+  output.Color = tex2D( Samp, input.UV );
+
+  return output;
+}
+
+technique Raster
+{
+ pass P0
+ {
+  PixelShader = compile ps_2_0 PS();
+ }
+}
+EOS
+
+  @@core = DXRuby::Shader::Core.new(
+    hlsl,
+    {
+      :g_start => :float,
+      :g_level => :float,
+    }
+  )
+
+  attr_accessor :speed, :level
+
+  # speed��1�t���[���ɐi�ފp�x(360�x�n)�Alevel�͐U���̑傫��(1.0��Image�T�C�Y)
+  def initialize(speed=5, level=0.1)
+    super(@@core, "Raster")
+    self.g_start = 0.0
+    self.g_level = 0.0
+    @speed = speed
+    @level = level
+
+    # �V�F�[�_�p�����[�^�ݒ�̃��\�b�h�͊O������J�Ƃ���
+    class << self
+      protected :g_start, :g_start=, :g_level, :g_level=
+    end
+  end
+
+  def update
+    self.g_start += @speed
+    self.g_level = @level
+  end
+end
+