dxruby64 1.4.7

data/sample/new_sample2/fibersprite.rb

@@ -0,0 +1,89 @@
+require 'dxruby'
+
+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
+
+  def add_x(x, t=1)
+    t.times {self.x += x;Fiber.yield}
+  end
+
+  def add_y(y, t=1)
+    t.times {self.y += y;Fiber.yield}
+  end
+end
+
+class Enemy < Sprite
+  include FiberSprite
+
+  @@image = Image.load_tiles("new_sample/image/enemy2.png", 4, 1)
+
+  def self.objects=(ary)
+    @@objects = ary
+  end
+
+  def initialize(x=0, y=0)
+    super(x, y, @@image[0])
+    @angle = 90
+  end
+
+  def fire(angle)
+    @@objects << Shot.new(self.x+20, self.y+@@image[0].height/2+20, angle)
+    @@objects << Shot.new(self.x+108, self.y+@@image[0].height/2+20, angle)
+  end
+
+  def fiber_proc
+    loop do
+      fire(@angle)
+      @angle += 15
+      wait 5
+    end
+  end
+end
+
+class Shot < Sprite
+  @@image = Image.load("new_sample/image/enemyshot2.png")
+
+  def self.objects=(ary)
+    @@objects = ary
+  end
+
+  def initialize(x=0, y=0, angle=0)
+    super(x-@@image.width/2, y-@@image.height/2, @@image)
+    @dx = Math.cos(angle / 180.0 * Math::PI) * 3.5
+    @dy = Math.sin(angle / 180.0 * Math::PI) * 3.5
+  end
+
+  def update
+    self.x += @dx
+    self.y += @dy
+    if self.x < -@@image.width or self.x > 640 or self.y < -@@image.height or self.y > 480
+      vanish
+    end
+  end
+end
+
+objs = []
+Enemy.objects = objs
+Shot.objects = objs
+
+objs << Enemy.new(260,160)
+
+Window.loop do
+  Sprite.update(objs)
+  Sprite.draw(objs)
+  Sprite.clean(objs)
+end

data/sample/new_sample2/hitrange.rb

@@ -0,0 +1,133 @@
+require 'dxruby'
+
+module HitRange
+  def draw
+    super
+    if self.visible and self.collision_enable and !self.vanished?
+      if @hitrange_image == nil or @hitrange_collision != self.collision or
+         @hitrange_image_width != self.image.width or 
+         @hitrange_image_height != self.image.height
+
+        @hitrange_image_width = self.image.width
+        @hitrange_image_height = self.image.height
+
+        @hitrange_image.dispose if @hitrange_image != nil
+
+        color = [255, 255, 255, 0]
+        color_fill = [100, 255, 255, 0]
+
+        if self.collision == nil
+          @hitrange_collision = nil
+          @hitrange_image = Image.new(self.image.width, self.image.height)
+          @hitrange_image.box_fill(0, 0, @hitrange_image.width-1, @hitrange_image.height-1, color_fill)
+          @hitrange_image.box(0, 0, @hitrange_image.width-1, @hitrange_image.height-1, color)
+          @hitrange_x = @hitrange_y = 0
+        else
+          @hitrange_collision = []
+          self.collision.each do |v|
+            if v === Array
+              @hitrange_collision << v.dup
+            else
+              @hitrange_collision << v
+            end
+          end
+          temp = self.collision
+          temp = [temp] if temp[0].class != Array
+
+          x1 = y1 = 0
+          x2 = y2 = 0
+          temp.each do |col|
+            case col.size
+            when 2 # point
+              x1 = [x1, col[0]].min
+              y1 = [y1, col[1]].min
+              x2 = [x2, col[0]].max
+              y2 = [y2, col[1]].max
+            when 3 # circle
+              x1 = [x1, col[0] - col[2]].min
+              y1 = [y1, col[1] - col[2]].min
+              x2 = [x2, col[0] + col[2]].max
+              y2 = [y2, col[1] + col[2]].max
+            when 4 # box
+              x1 = [x1, col[0], col[2]].min
+              y1 = [y1, col[1], col[3]].min
+              x2 = [x2, col[0], col[2]].max
+              y2 = [y2, col[1], col[3]].max
+            when 6 # triangle
+              x1 = [x1, col[0], col[2], col[4]].min
+              y1 = [y1, col[1], col[3], col[5]].min
+              x2 = [x2, col[0], col[2], col[4]].max
+              y2 = [y2, col[1], col[3], col[5]].max
+            end
+          end
+
+          @hitrange_image = Image.new(x2 - x1 + 1, y2 - y1 + 1)
+          @hitrange_x = x = x1
+          @hitrange_y = y = y1
+
+          temp.each do |col|
+            case col.size
+            when 2 # point
+              @hitrange_image[col[0] - x, col[1] - y] = color
+            when 3 # circle
+              @hitrange_image.circle_fill(col[0] - x, col[1] - y, col[2], color_fill)
+              @hitrange_image.circle(col[0] - x, col[1] - y, col[2], color)
+            when 4 # box
+              @hitrange_image.box_fill(col[0] - x, col[1] - y, col[2] - x, col[3] - y, color_fill)
+              @hitrange_image.box(col[0] - x, col[1] - y, col[2] - x, col[3] - y, color)
+            when 6 # triangle
+              @hitrange_image.triangle_fill(col[0] - x, col[1] - y, col[2] - x, col[3] - y, col[4] - x, col[5] - y, color_fill)
+              @hitrange_image.triangle(col[0] - x, col[1] - y, col[2] - x, col[3] - y, col[4] - x, col[5] - y, color)
+            end
+          end
+
+        end
+      end
+
+      hash = {}
+      if self.collision_sync
+        hash[:scale_x] = self.scale_x
+        hash[:scale_y] = self.scale_y
+        hash[:center_x] = self.center_x - @hitrange_x
+        hash[:center_y] = self.center_y - @hitrange_y
+        hash[:angle] = self.angle
+      end
+      hash[:z] = self.z + 1
+
+      ox = oy = 0
+      if self.offset_sync
+        ox = self.center_x
+        oy = self.center_y
+      end
+
+      target = self.target ? self.target : Window
+
+      target.draw_ex(self.x - ox + @hitrange_x, self.y - oy + @hitrange_y, @hitrange_image, hash)
+    end
+  end
+end
+
+
+
+if __FILE__ == $0
+  class TestSprite < Sprite
+    include HitRange
+  end
+
+  s = TestSprite.new(100,100)
+  s.image = Image.new(100,100,C_BLUE)
+  s.offset_sync=true
+  s.center_x = 0
+  s.center_y = 0
+
+  y = 90
+  Window.loop do
+    y += Input.y
+    s.collision = [10,10,90,0,50,y]
+    s.angle += 1
+    s.draw
+  end
+end
+
+
+

data/sample/new_sample2/hlstest.rb

@@ -0,0 +1,27 @@
+require 'dxruby'
+
+image = Image.load("./shader_sample/bgimage/BG10a_80.jpg")
+Window.width, Window.height = 800, 600
+Window.mag_filter = TEXF_POINT
+
+hue = 0
+luminance = 0
+saturation = 0
+
+Window.loop do
+  hue += Input.y*5
+  saturation += Input.x
+  if Input.key_down?(K_Z)
+    luminance -= 1
+  end
+  if Input.key_down?(K_X)
+    luminance += 1
+  end
+
+  img = image.change_hls(hue, luminance, saturation)
+  img.delayed_dispose
+  Window.draw(0,0,img)
+end
+
+
+

data/sample/new_sample2/mapedit_perlin.rb

@@ -0,0 +1,291 @@
+#!ruby -Ks
+# DXRuby 簡易マップエディタ
+require 'dxruby'
+
+# マップデータ
+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]
+]
+Image.perlin_seed(1.hash)
+
+32.times do |y|
+  32.times do |x|
+    c = Image.octave_perlin_noise(x / 32.0, y / 32.0, 20.5, 8, 0.8)
+    t = ((c-0.5) * 60 + 6).to_i
+    takasa[y][x] = t
+    map[y][x] = t < 4 ? 4 : (t > 7 ? 3 : (t == 4 ? 4 : 1))
+    map[y][x] = t == 7 ? 2 : map[y][x]
+  end
+end
+
+# 絵のデータを作る
+mapimage = Array.new(5) {Image.new(32, 32)}
+for i in 0..7 do # ひし形に地面を描く
+  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])   # 平地
+    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])   # 砂地
+  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                                   # 山
+  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
+# 地面のサイド画像を作る
+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])   # 水以外
+    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])   # 砂地
+  sideimage[4].line(31 - i, i / 2, 31 - i, i / 2 + 8, [220, 220, 170])
+end
+wakuimage = Image.new(36, 36, [255, 255, 255]). # 選択枠
+                              boxFill(2, 2, 33, 33, [0, 0, 0])
+blackimage = Image.new(128, 480, [0, 0, 0])  # 右側背景
+
+select = 0
+
+# クリック位置判定関数
+def check(x, y, map, takasa)
+  # 手前から検索するために逆順
+  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
+
+# メインループ
+Window.loop do
+
+  # マウスクリック
+  if Input.mouseDown?(M_LBUTTON) or Input.mouseDown?(M_RBUTTON) then
+    x, y = Input.mousePosX, Input.mousePosY
+    if x >= 512 then # 右のほうなら
+      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  # シフト左クリックで地面を上げる
+            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  # シフト右クリックで地面を下げる
+            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  # 左クリックはマップチップセット
+            temp = check(x, y, map, takasa)
+            if temp != nil then
+              map[temp[0]][temp[1]] = select
+            end
+          end
+          if Input.mouseDown?(M_RBUTTON) then  # 右クリックでスポイト機能
+            temp = check(x, y, map, takasa)
+            if temp != nil then
+              select = map[temp[0]][temp[1]]
+            end
+          end
+        end
+      end
+    end
+  end
+
+  # カーソルキーの左右
+  if Input.keyPush?(K_RIGHT) then # 右回転
+    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
+
+  # マップ全体描画
+  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  # 高さ分、サイド画像を描画するループ
+          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]])
+      if takasa[i][j] < 4
+        Window.draw_alpha(j * 16 - i * 16 + 160, j * 8 + i * 8 - 32, mapimage[0], 192)
+      end
+    end
+  end
+  for i in 0..31 do
+    z = 0
+    takasa[i][31].times do  # 高さ分、サイド画像を描画するループ
+      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]])
+    if takasa[i][31] < 4
+      Window.draw_alpha(31 * 16 - i * 16 + 160, 31 * 8 + i * 8 - 32, mapimage[0], 192)
+    end
+  end
+  for j in 0..31 do
+    z = 0
+    takasa[31][j].times do  # 高さ分、サイド画像を描画するループ
+      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]])
+    if takasa[31][j] < 4
+      Window.draw_alpha(j * 16 - 31 * 16 + 160, j * 8 + 31 * 8 - 32, mapimage[0], 192)
+    end
+  end
+
+  # 右側背景描画
+  Window.draw(512, 0, blackimage)
+
+  # 選択枠描画
+  Window.draw(558, select * 64 + 62, wakuimage)
+
+  # マップチップ描画
+  mapimage.each_with_index do |m, i|
+    Window.draw(560, i * 64 + 64, m)
+  end
+
+  # 画面データクリア
+  if Input.keyPush?(K_C) then
+    map = Array.new(32) { [1] * 32 }
+    takasa = Array.new(32) { [3] * 32 }
+  end
+
+  # マップデータ出力
+  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

data/sample/new_sample2/noise.rb

@@ -0,0 +1,33 @@
+require 'dxruby'
+
+Window.width = 300
+Window.height = 300
+
+bg = Image.new(300,300,C_BLUE)
+image = Image.new(300,900)
+repeat_x = 3
+repeat_y = 9
+octave = 5
+subsistence = 0.4
+w = 1/image.width.to_f*repeat_x
+h = 1/image.height.to_f*repeat_y
+
+Image.perlin_seed(1.hash)
+
+image.height.times do |y|
+  image.width.times do |x|
+    c = (Image.octave_perlin_noise(x*w,
+                                  y*h,
+                                  1, octave, subsistence, repeat_x, repeat_y) * 255 - 70) * 2.2
+    image[x, y] = [c>255?255:c, 255, 255, 255] if c>0
+  end
+end
+y = 0
+Window.loop do
+  Window.draw(0,0,bg)
+  Window.draw_tile(0,0,[[0]], [image], nil, y, nil, nil)
+  y-=5
+ break if Input.key_push?(K_ESCAPE)
+end
+
+