Data commit

Task/Bitmap-Midpoint-circle-algorithm/Lua/bitmap-midpoint-circle-algorithm-1.lua

@@ -0,0 +1,19 @@
+function Bitmap:circle(x, y, r, c)
+  local dx, dy, err = r, 0, 1-r
+  while dx >= dy do
+    self:set(x+dx, y+dy, c)
+    self:set(x-dx, y+dy, c)
+    self:set(x+dx, y-dy, c)
+    self:set(x-dx, y-dy, c)
+    self:set(x+dy, y+dx, c)
+    self:set(x-dy, y+dx, c)
+    self:set(x+dy, y-dx, c)
+    self:set(x-dy, y-dx, c)
+    dy = dy + 1
+    if err < 0 then
+      err = err + 2 * dy + 1
+    else
+      dx, err = dx-1, err + 2 * (dy - dx) + 1
+    end
+  end
+end

Task/Bitmap-Midpoint-circle-algorithm/Lua/bitmap-midpoint-circle-algorithm-2.lua

@@ -0,0 +1,21 @@
+function Bitmap:axes()
+  local hw, hh = math.floor(self.width/2), math.floor(self.height/2)
+  for i = 0, self.width-1 do self:set(i,hh,"-") end
+  for i = 0, self.height-1 do self:set(hw,i,"|") end
+  self:set(hw,hh,"+")
+end
+
+function Bitmap:render()
+  for y = 1, self.height do
+    print(table.concat(self.pixels[y]," "))
+  end
+end
+
+bitmap = Bitmap(25, 25)
+bitmap:clear("·")
+bitmap:axes()
+bitmap:circle(12, 12, 11, "■")
+bitmap:circle(12, 12, 8, "■")
+bitmap:circle(12, 12, 5, "■")
+bitmap:circle(12, 12, 2, "■")
+bitmap:render()