Data update

Task/Bitmap-Write-a-PPM-file/11l/bitmap-write-a-ppm-file.11l

@@ -1,13 +1,4 @@
-T Colour
-   Byte r, g, b
-
-   F (r, g, b)
-      .r = r
-      .g = g
-      .b = b
-
-   F ==(other)
-      R .r == other.r & .g == other.g & .b == other.b
+T Colour = BVec3
 
 V black = Colour(0, 0, 0)
 V white = Colour(255, 255, 255)

Task/Bitmap-Write-a-PPM-file/Ada/bitmap-write-a-ppm-file.ada

@@ -1,6 +1,9 @@
 with Ada.Characters.Latin_1;
 with Ada.Streams.Stream_IO;  use Ada.Streams.Stream_IO;
 
+with Bitmap_Store; use Bitmap_Store;
+-- This package is defined in the Bitmap task.
+
 procedure Put_PPM (File : File_Type; Picture : Image) is
    use Ada.Characters.Latin_1;
    Size   : constant String := Integer'Image (Picture'Length (2)) & Integer'Image (Picture'Length (1));