dxruby64 1.4.7

data/sample/classic_sample/dot.rb

@@ -0,0 +1,80 @@
+#!ruby -Ks
+# DXRuby �T���v�� ��
+# �}�E�X���N���b�N�ŕ`���āA�E�N���b�N�ŏ����܂��B
+require 'dxruby'
+
+# �E�B���h�E�ݒ�
+Window.scale = 2
+Window.width = 160
+Window.height = 120
+
+# ��ʂ̉摜�f�[�^
+$screen = Image.new(160, 120)
+
+BLACK = [0, 0, 0]
+WHITE = [255, 255, 255]
+
+class Dot
+  def initialize(x, y)
+    @x = x
+    @y = y
+  end
+
+  # �������̂��߂ɓ_���ړ�����Ƃ��̂ݕ`�悷��悤�ɂ����炿����Ƃ����Ⴒ����
+  def move
+    if $screen.compare(@x, @y + 1, BLACK) then # �^��
+      $screen[@x, @y] = BLACK
+      @y = @y + 1
+      return true if @y > 119
+      $screen[@x, @y] = WHITE
+    elsif rand(2) == 0 then
+      if $screen.compare(@x-1, @y + 1, BLACK) then # ����
+        $screen[@x, @y] = BLACK
+        @y = @y + 1
+        @x = @x - 1
+        return true if @y > 119
+        $screen[@x, @y] = WHITE
+      end
+    else
+      if $screen.compare(@x+1, @y + 1, BLACK) then # �E��
+        $screen[@x, @y] = BLACK
+        @y = @y + 1
+        @x = @x + 1
+        return true if @y > 119
+        $screen[@x, @y] = WHITE
+      end
+    end
+    return false
+  end
+end
+
+dot = []
+
+Window.loop do
+  # �h�b�g����
+  dot.push(Dot.new(rand(10)+75, 0))
+
+  # �}�E�X�̍��W�擾
+  mx = Input.mousePosX / 2
+  my = Input.mousePosY / 2
+
+  # ���N���b�N�ŕ`��
+  if Input.mouseDown?(M_LBUTTON) then
+    $screen.boxFill(mx - 1, my - 1, mx + 1, my + 1, [0, 255, 0])
+  end
+
+  # �E�N���b�N�ŏ���
+  if Input.mouseDown?(M_RBUTTON) then
+    $screen.boxFill(mx - 1, my - 1, mx + 1, my + 1, [0, 0, 0])
+  end
+
+  # �h�b�g�ړ�
+  dot.delete_if do |d|
+    d.move
+  end
+
+  # ��ʕ`��
+  Window.draw(0, 0, $screen)
+
+  break if Input.keyPush?(K_ESCAPE)
+end

data/sample/classic_sample/drawtile.rb

@@ -0,0 +1,173 @@
+# �}�b�v�f�[�^����w�i�`��T���v��
+# RenderTarget�N���X�̎g�����̃T���v���ɂȂ��Ă��܂��B
+require 'dxruby'
+
+# �}�b�v�f�[�^
+map1 = [
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1],
+  [1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 1, 1, 1, 2, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, 2, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 0, 0, 0, 3, 3, 3, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 3, 1, 1],
+  [1, 1, 1, 2, 0, 0, 0, 3, 3, 3, 3, 2, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1],
+  [1, 1, 1, 2, 0, 0, 0, 0, 3, 3, 3, 2, 2, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1],
+  [1, 1, 2, 2, 0, 0, 0, 0, 0, 1, 1, 2, 2, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1],
+  [1, 1, 2, 2, 0, 0, 0, 0, 0, 0, 1, 2, 2, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 3, 1, 1, 1],
+  [1, 1, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 3, 3, 1, 1, 1],
+  [1, 1, 1, 1, 2, 2, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 2, 2, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 1, 1, 1, 1],
+  [1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 3, 3, 3, 3, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 3, 3, 3, 3, 3, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 3, 3, 3, 3, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 0, 1, 3, 3, 3, 3, 3, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 1, 3, 0, 3, 3, 3, 3, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 0, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 0, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 1, 1, 1, 1, 3, 3, 3, 0, 3, 3, 3, 3, 1, 1, 1, 1, 1, 2, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, 2, 3, 3, 3, 1, 1, 1, 1, 1, 2, 2, 2],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2],
+  [1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 3, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 1],
+  [1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]
+]
+
+# ��O�ɕ`�悷��p�̏�w�}�b�v�f�[�^�i4�͖؂̂����܁Bnil�ɂ���ƕ`�悵�Ȃ��j
+map2 = [
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, nil, nil, nil],
+  [nil, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, 4, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, 4, 4, nil, nil, nil, nil, nil, nil, nil, 4, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, 4, 4, nil, nil, nil, nil, nil, nil, nil, 4, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, 4, 4, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, 4, 4, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, 4, 4, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, 4, nil, nil, nil, nil, 4, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, 4, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, 4, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, 4, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, nil, 4, 4, 4],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, 4, 4, 4, 4],
+  [nil, nil, nil, nil, nil, nil, nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, 4, 4, 4, 4, 4],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, 4, 4, 4, 4, nil],
+  [nil, nil, nil, nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, 4, 4, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil],
+  [nil, nil, nil, nil, nil, nil, nil, nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil]
+]
+
+
+# �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]))   # �؂̍���
+mapimage[2].boxFill(13, 0, 18, 28, [200, 50, 50])
+mapimage.push(Image.new(32, 32, [50, 200, 50]))   # �R
+for i in 1..30 do
+  mapimage[3].line(15 - i/2, i, 16 + i/2, i, [200, 100, 100])
+end
+mapimage.push(Image.new(32, 32))                       # �؂̂����܁B�w�i�͓����F�ɂ��Ă����B
+mapimage[4].boxFill(13, 16, 18, 31, [200, 50, 50])
+mapimage[4].circleFill(16, 10, 8, [0, 255, 0])
+
+image = Image.new(32, 48).                           # ��l��
+      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])
+
+# ���W�����ʒu
+x = 0
+y = 0
+dx = 0
+dy = 0
+font = Font.new(32)
+
+# 0:���͑҂����A1:�ړ���
+state = 0
+
+# �ړ��J�E���g
+count = 0
+
+# RenderTarget�쐬
+rt_main = RenderTarget.new(640-64, 480-64)
+rt_sub  = RenderTarget.new(640-64, 480-64)
+
+Window.loop do
+
+  # �ړ����̓J�E���g�A�b�v���邾��
+  if state == 1 then
+    count = count + 4   # �J�E���g�A�b�v
+    if count >= 32 then  # �J�E���g�����Ȃ���͑҂��ɑJ��
+      state = 0
+      count = 0
+      x = x + dx   # x���W�ړ�
+      y = y + dy   # y���W�ړ�
+      # ���W���[�v����
+      x = 0 if x > 31
+      x = 31 if x < 0
+      y = 0 if y > 31
+      y = 31 if y < 0
+    end
+  end
+
+  # ���͑҂���
+  if state == 0 then
+    ix = Input.x
+    iy = Input.y
+    # �����ꂽ�`�F�b�N
+    if ix + iy != 0 and (ix == 0 or iy == 0) then # �i�i���͋p��
+      tempx = x + ix
+      tempy = y + iy
+      tempx = tempx - 32 if tempx > 31
+      tempy = tempy - 32 if tempy > 31
+      if map1[tempy][tempx] == 1 then
+        state = 1    # �X�N���[�����ɑJ��
+        dx = ix
+        dy = iy
+      end
+    end
+  end
+
+  # �x�[�X�}�b�v��rt_main�ɕ`��
+  rt_main.drawTile(0, 0, map1, mapimage, (x - 8.5) * 32 + count * dx, (y - 6) * 32 + count * dy, 18, 13)
+  rt_main.update
+
+  # ��w�}�b�v��rt_sub�ɕ`��
+  rt_sub.drawTile(0, 0, map2, mapimage, (x - 8.5) * 32 + count * dx, (y - 6) * 32 + count * dy, 18, 13)
+  rt_sub.update
+
+  # �x�[�X�}�b�v����ʂɕ`��
+  Window.draw(32, 32, rt_main)
+
+  # �l�`��
+  Window.draw(9.5 * 32, 7 * 32 - 16, image)
+
+  # ��w�}�b�v����ʂɕ`��
+  Window.draw(32, 32, rt_sub)
+
+  # �G�X�P�[�v�L�[�ŏI��
+  break if Input.keyPush?(K_ESCAPE)
+  Window.drawFont(32,32,Window.fps.to_s + " fps", font)
+  Window.drawFont(32,64,Window.getLoad.to_i.to_s + " %", font)
+end

data/sample/classic_sample/flight.rb

@@ -0,0 +1,75 @@
+#ruby -Ks
+# DXRuby �T���v�� ���ł�悤�Ȃ���
+require 'dxruby'
+
+image = Image.new(32,32)
+image.boxFill(13, 16, 18, 26, [255, 200, 50, 50]) # ��
+image.line(13, 16, 13, 26, [255, 0, 0, 0])
+image.line(18, 16, 18, 26, [255, 0, 0, 0])
+image.circleFill(16, 8, 8, [255, 0, 255, 0])
+image.circle(16, 8, 8, [255, 0, 0, 0])
+
+class Bg
+  @@ground = Image.new(1000,600, [255, 0, 0, 255])
+  attr_accessor :y, :angle
+
+  def initialize
+    @y = 290
+    @angle = 0
+  end
+
+  def update
+    @angle -= Input.x*1.8
+    if @angle < -75 then
+      @angle = -75
+    end
+    if @angle > 75 then
+      @angle = 75
+    end
+    @y -= Input.y*5
+    @y = 400 if @y > 400
+    @y = 100 if @y < 100
+    Window.drawRot(-180, @y, @@ground, angle, 500, 240-@y, 0)
+  end
+end
+
+bg = Bg.new
+Window.bgcolor = [200,250,255]
+x = 320
+y = 240
+z = []
+Obj = Struct.new(:x, :y, :z)
+font = Font.new(32)
+angle = 0
+objx = 0
+
+Window.loop do
+
+  z.push(Obj.new(rand(2000) - 680, 500, 5.0))
+  z.push(Obj.new(rand(2000) - 680, 500, 5.0))
+
+  bg.update
+
+  rad = Math::PI/180.0*bg.angle
+  sina = Math.sin(rad)
+  cosa = Math.cos(rad)
+  bgy1 = (530 - bg.y) / 290.0
+  bgy2 = bg.y - 240
+  z.delete_if do |obj|
+    drawx = ((obj.x - 320) / obj.z * cosa - (((obj.y - 240) / obj.z - 50) * bgy1 + bgy2) * sina) + 320
+    drawy = ((obj.x - 320) / obj.z * sina + (((obj.y - 240) / obj.z - 50) * bgy1 + bgy2) * cosa) + 240
+
+    Window.drawEx(drawx - image.width / 2, drawy - image.height / 2, image, :scalex=>5.0 / obj.z, :scaley=>5.0 / obj.z, :z=>5 - obj.z, :angle=>bg.angle)
+
+    obj.x += bg.angle / 3.0
+    obj.z -= 0.15
+    if obj.z < 0.5 then
+      true
+    else
+      false
+    end
+  end
+
+  break if Input.keyPush?(K_ESCAPE)
+  Window.drawFont(0, 448, Window.getLoad.to_i.to_s + " %", font)
+end

data/sample/classic_sample/hitrangeview.rb

@@ -0,0 +1,66 @@
+module HitRange
+  PointImage = Image.new(1, 1, [200, 255, 255, 0])
+  BoxImage = {}
+  CircleImage = {}
+  TriangleImage = {}
+
+  def HitRange.view(ary)
+    ary.each do |d|
+      range = d.getHitRange
+      case range.size
+      when 2 # point
+        Window.draw(range[0], range[1], PointImage, 10000)
+      when 3 # circle
+        x = range[0]
+        y = range[1]
+        r = range[2]
+        if CircleImage.has_key?(r) == false then
+          image = Image.new(r*2+1, r*2+1).circle(r, r, r, [200, 255, 255, 0])
+          CircleImage[r] = image
+        end
+        Window.draw(x - r, y - r, CircleImage[r], 10000)
+      when 4 # box
+        x1 = range[0]
+        y1 = range[1]
+        x2 = range[2]
+        y2 = range[3]
+        key = (x2 - x1).to_s + "," + (y2 - y1).to_s
+        if BoxImage.has_key?(key) == false then
+          image = Image.new(x2-x1+1, y2-y1+1)
+          image.line(0, 0, x2-x1, 0, [200, 255, 255, 0])
+          image.line(x2-x1, 0, x2-x1, y2-y1, [200, 255, 255, 0])
+          image.line(x2-x1, y2-y1, 0, y2-y1, [200, 255, 255, 0])
+          image.line(0, y2-y1, 0, 0, [200, 255, 255, 0])
+          BoxImage[key] = image
+        end
+        Window.draw(x1, y1, BoxImage[key], 10000)
+      when 6 # triangle
+        x1 = range[0]
+        y1 = range[1]
+        x2 = range[2]
+        y2 = range[3]
+        x3 = range[4]
+        y3 = range[5]
+        key = (x2 - x1).to_s + "," + (y2 - y1).to_s + "," + (x3 - x1).to_s + "," + (y3 - y1).to_s
+        temp = (x1 < x2 ? x1 : x2)
+        minx = (temp < x3 ? temp : x3)
+        temp = (x1 > x2 ? x1 : x2)
+        maxx = (temp > x3 ? temp : x3)
+        temp = (y1 < y2 ? y1 : y2)
+        miny = (temp < y3 ? temp : y3)
+        temp = (y1 > y2 ? y1 : y2)
+        maxy = (temp > y3 ? temp : y3)
+
+        if TriangleImage.has_key?(key) == false then
+          image = Image.new(maxx-minx+1, maxy-miny+1)
+          image.line(x1-minx, y1-miny, x2-minx, y2-miny, [200, 255, 255, 0])
+          image.line(x2-minx, y2-miny, x3-minx, y3-miny, [200, 255, 255, 0])
+          image.line(x3-minx, y3-miny, x1-minx, y1-miny, [200, 255, 255, 0])
+          TriangleImage[key] = image
+        end
+        Window.draw(minx, miny, TriangleImage[key], 10000)
+      end
+    end
+  end
+end
+

data/sample/classic_sample/mapedit.rb

@@ -0,0 +1,270 @@
+#!ruby -Ks
+# DXRuby �ȈՃ}�b�v�G�f�B�^
+require 'dxruby'
+
+# �}�b�v�f�[�^
+map=[
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1],
+  [0, 0, 0, 0, 1, 4, 4, 4, 4, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 1, 1, 3, 3, 3, 3, 3, 1, 1, 1, 1, 1],
+  [2, 2, 2, 2, 1, 1, 4, 4, 4, 4, 0, 0, 0, 0, 0, 4, 4, 1, 1, 1, 1, 1, 3, 3, 3, 3, 1, 3, 1, 1, 1, 1],
+  [2, 2, 2, 1, 2, 1, 1, 4, 4, 4, 4, 0, 0, 0, 0, 4, 4, 4, 1, 1, 1, 1, 3, 3, 3, 3, 1, 3, 1, 3, 1, 1],
+  [2, 2, 2, 1, 1, 1, 1, 1, 4, 4, 4, 0, 0, 0, 0, 0, 4, 4, 1, 1, 1, 1, 3, 1, 3, 3, 3, 3, 3, 3, 1, 1],
+  [2, 2, 2, 2, 2, 2, 1, 1, 4, 4, 4, 0, 0, 0, 0, 0, 4, 4, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, 1, 1],
+  [1, 2, 2, 2, 2, 2, 2, 1, 4, 4, 4, 0, 0, 0, 0, 0, 4, 4, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, 1],
+  [1, 1, 1, 2, 2, 1, 2, 1, 4, 4, 4, 0, 0, 0, 0, 0, 4, 4, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, 3],
+  [1, 1, 2, 1, 2, 2, 1, 4, 4, 4, 0, 0, 0, 0, 0, 0, 4, 4, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 3, 3],
+  [1, 1, 1, 2, 2, 1, 4, 4, 4, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, 3],
+  [1, 1, 1, 2, 1, 1, 4, 0, 0, 0, 0, 0, 0, 0, 0, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3],
+  [1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 4, 4, 4, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3],
+  [1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1],
+  [1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 4, 4, 1, 4, 1, 4, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 4, 4, 4, 4, 4, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 4, 4, 4, 4, 4, 4, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 4, 4, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 4, 4, 4, 4, 1, 4, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 4, 4, 4, 4, 4, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 4, 4, 4, 4, 4, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 0],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 4, 4, 4, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 1, 0, 0],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 4, 1, 1, 1, 0, 0, 0],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 4, 4, 4, 4, 4, 4, 4, 4, 0, 0, 0, 0],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 4, 4, 4, 0, 0, 0, 0, 0, 0],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1],
+  [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1]
+]
+takasa=[
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 5, 5, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3],
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3],
+  [3, 3, 3, 3, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3],
+  [2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3],
+  [2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 3, 3, 3, 3, 3, 3, 3],
+  [2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 5, 5, 5, 3, 3, 3, 3, 3],
+  [4, 4, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 6, 6, 6, 3, 3, 3, 3],
+  [4, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 5, 7, 7, 8, 7, 3, 3, 3],
+  [4, 3, 5, 5, 4, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 5, 6, 7, 8, 8, 6, 3, 3],
+  [3, 6, 5, 5, 4, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 4, 5, 6, 6, 8, 9, 6, 5, 3],
+  [4, 5, 3, 4, 4, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 5, 6, 6, 8, 7, 6, 6, 3],
+  [3, 3, 4, 4, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 4, 5, 5, 6, 6, 6, 6, 6, 5],
+  [3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 5, 5, 5, 6, 6, 6, 5],
+  [3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 5, 5, 5, 5, 5, 5],
+  [3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 5, 5, 5, 5],
+  [3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5],
+  [3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4],
+  [3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 3, 4, 4, 3, 3, 3, 3, 3, 3, 3, 4],
+  [3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3, 4],
+  [3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 5, 5, 4, 4, 4, 3, 3, 3, 3, 3, 3],
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 4, 3, 3, 3, 3, 3, 3, 3, 3],
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3],
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3],
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 4, 3, 3, 3, 3, 3, 3],
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2],
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2],
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 2, 2, 2, 2, 2],
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2],
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2],
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2],
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2],
+  [3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3]
+]
+# �G�̃f�[�^�����
+mapimage = Array.new(5) {Image.new(32, 32)}
+for i in 0..7 do # �Ђ��`�ɒn�ʂ�`��
+  mapimage[0].line(15 - i * 2, i + 16, 16 + i * 2, i + 16, [100, 100, 200]) # ��
+  mapimage[0].line(15 - i * 2, 31 - i, 16 + i * 2, 31 - i, [100, 100, 200])
+  mapimage[0][15 - i * 2, i + 16] = [0, 0, 0]
+  mapimage[0][16 + i * 2, i + 16] = [0, 0, 0]
+  for j in 1..3 do
+    mapimage[j].line(15 - i * 2, i + 16, 16 + i * 2, i + 16, [50, 200, 50])   # ���n
+    mapimage[j].line(15 - i * 2, 31 - i, 16 + i * 2, 31 - i, [50, 200, 50])
+    mapimage[j][15 - i * 2, i + 16] = [0, 0, 0]
+    mapimage[j][16 + i * 2, i + 16] = [0, 0, 0]
+  end
+  mapimage[4].line(15 - i * 2, i + 16, 16 + i * 2, i + 16, [200, 200, 150])   # ���n
+  mapimage[4].line(15 - i * 2, 31 - i, 16 + i * 2, 31 - i, [200, 200, 150])
+  mapimage[4][15 - i * 2, i + 16] = [0, 0, 0]
+  mapimage[4][16 + i * 2, i + 16] = [0, 0, 0]
+end
+mapimage[2].boxFill(13, 16, 18, 26, [200, 50, 50]) # ��
+mapimage[2].line(13, 16, 13, 26, [0, 0, 0])
+mapimage[2].line(18, 16, 18, 26, [0, 0, 0])
+mapimage[2].circleFill(16, 8, 8, [0, 255, 0])
+mapimage[2].circle(16, 8, 8, [0, 0, 0])
+for i in 1..24 do                                   # �R
+  mapimage[3].line(15 - i*2/4, i, 16 + i*2/4, i, [200, 100, 100])
+  mapimage[3][15 - i*2/4, i] = [0, 0, 0]
+  mapimage[3][16 + i*2/4, i] = [0, 0, 0]
+end
+# �n�ʂ̃T�C�h�摜�����
+sideimage = Array.new(5) {Image.new(32, 16)}
+for i in 0..15 do
+  sideimage[0].line(i, i / 2, i, i / 2 + 8, [60, 60, 180])   # ��
+  sideimage[0].line(31 - i, i / 2, 31 - i, i / 2 + 8, [130, 130, 200])
+  for j in 1..3 do
+    sideimage[j].line(i, i / 2, i, i / 2 + 8, [40, 150, 40])   # ���ȊO
+    sideimage[j].line(31 - i, i / 2, 31 - i, i / 2 + 8, [100, 220, 100])
+  end
+  sideimage[4].line(i, i / 2, i, i / 2 + 8, [150, 150, 120])   # ���n
+  sideimage[4].line(31 - i, i / 2, 31 - i, i / 2 + 8, [220, 220, 170])
+end
+wakuimage = Image.new(36, 36, [255, 255, 255]). # �I��g
+                              boxFill(2, 2, 33, 33, [0, 0, 0])
+blackimage = Image.new(128, 480, [0, 0, 0])  # �E���w�i
+
+select = 0
+
+# �N���b�N�ʒu����֐�
+def check(x, y, map, takasa)
+  # ��O���猟�����邽�߂ɋt��
+  31.downto(0) do |i|
+    31.downto(0) do |j|
+      # �Ђ��`�̒��ɂ��邩�𒲂ׂ�
+      if ((j * 16 - i * 16 + 176 - x)/2).abs + (j * 8 + i * 8 - takasa[i][j]*8 + 24 - y).abs < 9 then
+        return [i, j]
+      end
+    end
+  end
+  return nil
+end
+
+# ���C�����[�v
+Window.loop do
+
+  # �}�E�X�N���b�N
+  if Input.mouseDown?(M_LBUTTON) or Input.mouseDown?(M_RBUTTON) then
+    x, y = Input.mousePosX, Input.mousePosY
+    if x >= 512 then # �E�̂ق��Ȃ�
+      for i in 0..mapimage.size-1
+        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 < 480 then
+        if Input.keyDown?(K_LSHIFT) then
+          if Input.mousePush?(M_LBUTTON) then  # �V�t�g���N���b�N�Œn�ʂ��グ��
+            temp = check(x, y, map, takasa)
+            if temp != nil then
+              takasa[temp[0]][temp[1]] += 1 if takasa[temp[0]][temp[1]] < 10
+            end
+          end
+          if Input.mousePush?(M_RBUTTON) then  # �V�t�g�E�N���b�N�Œn�ʂ�������
+            temp = check(x, y, map, takasa)
+            if temp != nil then
+              takasa[temp[0]][temp[1]] -= 1 if takasa[temp[0]][temp[1]] > 0
+            end
+          end
+        else
+          if Input.mouseDown?(M_LBUTTON) then  # ���N���b�N�̓}�b�v�`�b�v�Z�b�g
+            temp = check(x, y, map, takasa)
+            if temp != nil then
+              map[temp[0]][temp[1]] = select
+            end
+          end
+          if Input.mouseDown?(M_RBUTTON) then  # �E�N���b�N�ŃX�|�C�g�@�\
+            temp = check(x, y, map, takasa)
+            if temp != nil then
+              select = map[temp[0]][temp[1]]
+            end
+          end
+        end
+      end
+    end
+  end
+
+  # �J�[�\���L�[�̍��E
+  if Input.keyPush?(K_RIGHT) then # �E��]
+    map = map.transpose
+    takasa = takasa.transpose
+    map.each do |d|
+      d.reverse!
+    end
+    takasa.each do |d|
+      d.reverse!
+    end
+  end
+  if Input.keyPush?(K_LEFT) then # ����]
+    3.times do
+      map = map.transpose
+      takasa = takasa.transpose
+      map.each do |d|
+        d.reverse!
+      end
+      takasa.each do |d|
+        d.reverse!
+      end
+    end
+  end
+
+  # �}�b�v�S�̕`��
+  for i in 0..30 do
+    for j in 0..30 do
+      z = 0
+      tmp = takasa[i][j]
+      if takasa[i][j+1] < tmp or takasa[i+1][j] < tmp then
+        tmp2 = takasa[i][j+1] > takasa[i+1][j] ? takasa[i+1][j] : takasa[i][j+1]
+        z = tmp2 * 8
+        (tmp - tmp2).times do  # �������A�T�C�h�摜��`�悷�郋�[�v
+          Window.draw(j * 16 - i * 16 + 160, j * 8 + i * 8 - z + 16, sideimage[map[i][j]])
+          z = z + 8
+        end
+      else
+        z = takasa[i][j] * 8
+      end
+      Window.draw(j * 16 - i * 16 + 160, j * 8 + i * 8 - z, mapimage[map[i][j]])
+    end
+  end
+  for i in 0..31 do
+    z = 0
+    takasa[i][31].times do  # �������A�T�C�h�摜��`�悷�郋�[�v
+      Window.draw(31 * 16 - i * 16 + 160, 31 * 8 + i * 8 - z + 16, sideimage[map[i][31]])
+      z = z + 8
+    end
+    Window.draw(31 * 16 - i * 16 + 160, 31 * 8 + i * 8 - z, mapimage[map[i][31]])
+  end
+  for j in 0..31 do
+    z = 0
+    takasa[31][j].times do  # �������A�T�C�h�摜��`�悷�郋�[�v
+      Window.draw(j * 16 - 31 * 16 + 160, j * 8 + 31 * 8 - z + 16, sideimage[map[31][j]])
+      z = z + 8
+    end
+    Window.draw(j * 16 - 31 * 16 + 160, j * 8 + 31 * 8 - z, mapimage[map[31][j]])
+  end
+
+  # �E���w�i�`��
+  Window.draw(512, 0, blackimage)
+
+  # �I��g�`��
+  Window.draw(558, select * 64 + 62, wakuimage)
+
+  # �}�b�v�`�b�v�`��
+  mapimage.each_with_index do |m, i|
+    Window.draw(560, i * 64 + 64, m)
+  end
+
+  # ��ʃf�[�^�N���A
+  if Input.keyPush?(K_C) then
+    map = Array.new(32) { [1] * 32 }
+    takasa = Array.new(32) { [3] * 32 }
+  end
+
+  # �}�b�v�f�[�^�o��
+  if Input.keyPush?(K_ESCAPE) then
+    s1 = "map=[\n"
+    s2 = "takasa=[\n"
+    for i in 0..30 do
+      s1 = s1 + map[i].inspect + ",\n"
+      s2 = s2 + takasa[i].inspect + ",\n"
+    end
+    s1 = s1 + map[31].inspect + "\n]\n"
+    s2 = s2 + takasa[31].inspect + "\n]\n"
+    print s1
+    print s2
+    break
+  end
+end