A-M baby

Task/Bitmap/Modula-3/bitmap-1.mod3

@@ -0,0 +1,24 @@
+INTERFACE Bitmap;
+
+TYPE UByte = BITS 8 FOR [0 .. 16_FF];
+     Pixel = RECORD R, G, B: UByte; END;
+     Point = RECORD x, y: UByte; END;
+     T = REF ARRAY OF ARRAY OF Pixel;
+
+CONST
+  Black = Pixel{0, 0, 0};
+  White = Pixel{255, 255, 255};
+  Red = Pixel{255, 0, 0};
+  Green = Pixel{0, 255, 0};
+  Blue = Pixel{0, 0, 255};
+  Yellow = Pixel{255, 255, 0};
+
+EXCEPTION BadImage;
+          BadColor;
+
+PROCEDURE NewImage(height, width: UByte): T RAISES {BadImage};
+PROCEDURE Fill(VAR pic: T; color: Pixel);
+PROCEDURE GetPixel(VAR pic: T; point: Point): Pixel RAISES {BadColor};
+PROCEDURE SetPixel(VAR pic: T; point: Point; color: Pixel);
+
+END Bitmap.

Task/Bitmap/Modula-3/bitmap-2.mod3

@@ -0,0 +1,48 @@
+MODULE Bitmap;
+
+PROCEDURE NewImage(height, width: UByte): T RAISES {BadImage} =
+  (* To make things easier, limit image size to also
+     be UByte (0 to 255), and to have equal dimensions. *)
+  BEGIN
+    IF height # width THEN
+      RAISE BadImage;
+    END;
+    RETURN NEW(T, height, width);
+  END NewImage;
+
+PROCEDURE Fill(VAR pic: T; color: Pixel) =
+  BEGIN
+    FOR i := FIRST(pic^) TO LAST(pic^) DO
+      FOR j := FIRST(pic[0]) TO LAST(pic[0]) DO
+        pic[i,j] := color;
+      END;
+    END;
+  END Fill;
+
+PROCEDURE GetPixel(VAR pic: T; point: Point): Pixel RAISES {BadColor} =
+  VAR pixel := pic[point.x, point.y];
+  BEGIN
+    IF pixel = White THEN
+      RETURN White;
+    ELSIF pixel = Black THEN
+      RETURN Black;
+    ELSIF pixel = Red THEN
+      RETURN Red;
+    ELSIF pixel = Green THEN
+      RETURN Green;
+    ELSIF pixel = Blue THEN
+      RETURN Blue;
+    ELSIF pixel = Yellow THEN
+      RETURN Yellow;
+    ELSE
+      RAISE BadColor;
+    END;
+  END GetPixel;
+
+PROCEDURE SetPixel(VAR pic: T; point: Point; color: Pixel) =
+  BEGIN
+    pic[point.x, point.y] := color;
+  END SetPixel;
+
+BEGIN
+END Bitmap.