Family Day update

Task/Bitmap-Write-a-PPM-file/Stata/bitmap-write-a-ppm-file.stata

@@ -0,0 +1,20 @@
+mata
+void writeppm(name, r, g, b) {
+	n = rows(r)
+	p = cols(r)
+	f = fopen(name, "w")
+	fput(f, "P3")
+	fput(f, strofreal(p) + " " + strofreal(n) + " 255")
+	for (i = 1; i <= n; i++) {
+		for (j = 1; j <= p; j++) {
+			fput(f, strofreal(r[i,j]) + " " + strofreal(g[i,j]) + " " + strofreal(b[i,j]))
+		}
+	}
+	fclose(f)
+}
+
+r = J(1, 6, (0::5) * 51)
+g = J(6, 1, (0..5) * 51)
+b = J(6, 6, 255)
+writeppm("image.ppm", r, g, b)
+end