Data commit

Task/Bitmap-Flood-fill/Lua/bitmap-flood-fill-1.lua

@@ -0,0 +1 @@
+$ magick unfilledcirc.png -depth 8 unfilledcirc.ppm

Task/Bitmap-Flood-fill/Lua/bitmap-flood-fill-2.lua

@@ -0,0 +1,26 @@
+function Bitmap:loadPPM(filename)
+  local fp = io.open( filename, "rb" )
+  if fp == nil then return false end
+  local head, width, height, depth, tail = fp:read("*line", "*number", "*number", "*number", "*line")
+  self.width, self.height = width, height
+  self:alloc()
+  for y = 1, self.height do
+    for x = 1, self.width do
+      self.pixels[y][x] = { string.byte(fp:read(1)), string.byte(fp:read(1)), string.byte(fp:read(1)) }
+    end
+  end
+  fp:close()
+end
+
+function Bitmap:savePPM(filename)
+  local fp = io.open( filename, "wb" )
+  if fp == nil then return false end
+  fp:write(string.format("P6\n%d %d\n%d\n", self.width, self.height, 255))
+  for y = 1, self.height do
+    for x = 1, self.width do
+      local pix = self.pixels[y][x]
+      fp:write(string.char(pix[1]), string.char(pix[2]), string.char(pix[3]))
+    end
+  end
+  fp:close()
+end

Task/Bitmap-Flood-fill/Lua/bitmap-flood-fill-3.lua

@@ -0,0 +1,18 @@
+function Bitmap:floodfill(x, y, c)
+  local b = self:get(x, y)
+  if not b then return end
+  local function matches(a)
+    if not a then return false end
+    -- this is where a "tolerance" could be implemented:
+    return a[1]==b[1] and a[2]==b[2] and a[3]==b[3]
+  end
+  local function ff(x, y)
+    if not matches(self:get(x, y)) then return end
+    self:set(x, y, c)
+    ff(x+1, y)
+    ff(x, y-1)
+    ff(x-1, y)
+    ff(x, y+1)
+  end
+  ff(x, y)
+end

Task/Bitmap-Flood-fill/Lua/bitmap-flood-fill-4.lua

@@ -0,0 +1,6 @@
+bitmap = Bitmap(0, 0)
+bitmap:loadPPM("unfilledcirc.ppm")
+bitmap:floodfill( 1, 1, { 255,0,0 }) -- fill exterior (except bottom right) with red
+bitmap:floodfill( 50, 50, { 0,255,0 })-- fill larger circle with green
+bitmap:floodfill( 100, 100, { 0,0,255 })-- fill smaller circle with blue
+bitmap:savePPM("filledcirc.ppm")