View.Set ("graphics:640;480,nobuttonbar")

const scale := 0.25

const x := round (maxx * scale)
const y := round (maxy * scale)

var b : array 1 .. sizepic (1, 1, x, y) of int

takepic (1, 1, x, y, b)
b (7) := 48
for i : 19 .. upper (b)
    b (i) := 0
end for

var id := 19
var n := 0
var t := Time.Elapsed

for j : 1 .. y
    for i : 1 .. x
        b (id)| = 255 * i * j div (x * y) shl n    %b
        if n < 24 then
            n += 8
        else
            n := 0
            id += 1
        end if

        b (id)| = 255 * i * j div (x * y) shl n     %g
        if n < 24 then
            n += 8
        else
            n := 0
            id += 1
        end if

        b (id)| = 255 * i * j div (x * y) shl n     %r
        if n < 24 then
            n += 8
        else
            n := 0
            id += 1
        end if
    end for
    if n > 0 then
        id += 1
        n := 0
    end if
end for

drawpic (0, 0, b, 1)

var p := Pic.New (1, 1, x, y)

Pic.Draw (Pic.Scale (p, maxx, maxy), 1, 1, picCopy)

put "Draw Time: ", Time.Elapsed - t, " Milliseconds"