Data update

Task/Bitmap-Write-a-PPM-file/Euphoria/bitmap-write-a-ppm-file-1.ex

@@ -1,15 +0,0 @@
-constant dimx = 800, dimy = 800
-constant fn = open("first.ppm","wb") -- b - binary mode
-sequence color
-printf(fn, "P6\n%d %d\n255\n", {dimx,dimy})
-for j = 0 to dimy-1 do
-    for i = 0 to dimx-1 do
-        color = {
-            remainder(i,256), -- red
-            remainder(j,256), -- green
-            remainder(i*j,256) -- blue
-        }
-        puts(fn,color)
-    end for
-end for
-close(fn)

Task/Bitmap-Write-a-PPM-file/Euphoria/bitmap-write-a-ppm-file-2.ex

@@ -1,14 +0,0 @@
-procedure write_ppm(sequence filename, sequence image)
-    integer fn,dimx,dimy
-    dimy = length(image[1])
-    dimx = length(image)
-    fn = open(filename,"wb")
-    printf(fn, "P6\n%d %d\n255\n", {dimx,dimy})
-    for y = 1 to dimy do
-        for x = 1 to dimx do
-            puts(fn, and_bits(image[x][y], {#FF0000,#FF00,#FF}) /
-                                           {#010000,#0100,#01}) -- unpack color triple
-        end for
-    end for
-    close(fn)
-end procedure