June 2018 Update

Task/Bitmap-Midpoint-circle-algorithm/Julia/bitmap-midpoint-circle-algorithm.julia

@@ -0,0 +1,31 @@
+function drawcircle!(img::Matrix{T}, col::T, x0::Int, y0::Int, radius::Int) where T
+    x = radius - 1
+    y = 0
+    δx = δy = 1
+    er = δx - (radius << 1)
+
+    s = x + y
+    while x ≥ y
+        for opx in (+, -), opy in (+, -), el in (x, y)
+            @inbounds img[opx(x0, el) + 1, opy(y0, s - el) + 1] = col
+        end
+        if er ≤ 0
+            y  += 1
+            er += δy
+            δy += 2
+        end
+        if er > 0
+            x  -= 1
+            δx += 2
+            er += (-radius << 1) + δx
+        end
+        s = x + y
+    end
+    return img
+end
+
+# Test
+using Images
+
+img = fill(Gray(255.0), 25, 25);
+drawcircle!(img, Gray(0.0), 12, 12, 12)

Task/Bitmap-Midpoint-circle-algorithm/Perl-6/bitmap-midpoint-circle-algorithm-1.pl6

@@ -1,4 +1,27 @@
-use MONKEY_TYPING;
+use MONKEY-TYPING;
+
+class Pixel { has UInt ($.R, $.G, $.B) }
+class Bitmap {
+    has UInt ($.width, $.height);
+    has Pixel @!data;
+
+    method fill(Pixel $p) {
+        @!data = $p.clone xx ($!width*$!height)
+    }
+    method pixel(
+	$i where ^$!width,
+	$j where ^$!height
+	--> Pixel
+    ) is rw { @!data[$i + $j * $!width] }
+
+    method set-pixel ($i, $j, Pixel $p) {
+	self.pixel($i, $j) = $p.clone;
+    }
+    method get-pixel ($i, $j) returns Pixel {
+	self.pixel($i, $j);
+    }
+}
+
 augment class Pixel { method Str { "$.R $.G $.B" } }
 augment class Bitmap {
     method P3 {