Implemented tiled mode for BackgroundImage and other improvements

lib/cyberarm_engine/background_image.rb

@@ -1,10 +1,11 @@
 module CyberarmEngine
   class BackgroundImage
     include CyberarmEngine::Common
-    attr_accessor :x, :y, :z, :width, :height, :mode, :color
-    attr_reader :image
+    attr_accessor :x, :y, :z, :mode
+    attr_reader :image, :width, :height, :color
 
     def initialize(image_path: nil, x: 0, y: 0, z: 0, width: 0, height: 0, mode: :fill, color: Gosu::Color::WHITE)
+      @image_path = image_path
       @image = get_image(image_path) if image_path
 
       @x = x
@@ -16,12 +17,31 @@ module CyberarmEngine
       @mode = mode
 
       @color = color
+
+      @cached_tiling = nil
     end
 
     def image=(image_path)
+      @cached_tiling = nil if image_path != @image_path
+      @image_path = image_path
       @image = image_path ? get_image(image_path) : image_path
     end
 
+    def width=(n)
+      @cached_tiling = nil if @width != n
+      @width = n
+    end
+
+    def height=(n)
+      @cached_tiling = nil if @height != n
+      @height = n
+    end
+
+    def color=(c)
+      @cached_tiling = nil if @color != c
+      @color = c
+    end
+
     def width_scale
       (@width.to_f / @image.width).abs
     end
@@ -33,7 +53,9 @@ module CyberarmEngine
     def draw
       return unless @image
 
-      send(:"draw_#{mode}")
+      Gosu.clip_to(@x, @y, @width, @height) do
+        send(:"draw_#{mode}")
+      end
     end
 
     def draw_stretch
@@ -41,15 +63,31 @@ module CyberarmEngine
     end
 
     def draw_tiled
-      raise NotImplementedError
+      @cached_tiling ||= Gosu.record(@width, @height) do
+        height_scale.ceil.times do |y|
+          width_scale.ceil.times do |x|
+            @image.draw(x * @image.width, y * @image.height, @z, 1, 1, @color)
+          end
+        end
+      end
+
+      @cached_tiling.draw(@x, @y, @z)
     end
 
     def draw_fill
       if @width * width_scale > height * height_scale
-        @image.draw(@x, @y, @z, width_scale, width_scale, @color)
+        draw_fill_width
       else
-        @image.draw(@x, @y, @z, height_scale, height_scale, @color)
+        draw_fill_height
       end
     end
+
+    def draw_fill_width
+      @image.draw(@x, @y, @z, width_scale, width_scale, @color)
+    end
+
+    def draw_fill_height
+      @image.draw(@x, @y, @z, height_scale, height_scale, @color)
+    end
   end
 end