View.Set ("graphics:640,640,nobuttonbar,offscreenonly")
function distance (x1, y1, x2, y2 : real) : real
    result ((x1 - x2) ** 2 + (y1 - y2) ** 2) ** 0.5
end distance
var clr : int
for i : 1 .. 255
    clr := RGB.AddColor (i / 255, i / 255, i / 255)
end for
var rad : int := 125
var text : array 1 .. maxrow, 1 .. maxcol of char
for i : 1 .. maxrow
    for k : 1 .. maxcol
        text (i, k) := chr (Rand.Int (35, 65))
    end for
end for
var x, y, z : int
loop
    mousewhere (x, y, z)
    for i : 1 .. maxrow
        for k : 1 .. maxcol
            if distance (x, y, k * 8, maxy - (i * 12)) < rad then
                locate (i, k)
                color (510-round (((distance (x, y, k * 8, maxy - (i * 12)) / rad) * 255)))
                colorback (7)
                put text (i, k) ..
            end if
        end for
    end for
    View.Update
    drawfillbox (0, 0, maxx, maxy, 7)
end loop

View.Set ("graphics:150,150,nobuttonbar,offscreenonly,position:300;300")
function distance (x1, y1, x2, y2 : real) : real
    result ((x1 - x2) ** 2 + (y1 - y2) ** 2) ** 0.5
end distance
var clr : int
var homer : int := Pic.FileNew ("pic.jpg")
var r1, g1, b1 : real
var r2, g2, b2 : array 0 .. 255 of real
for i : 0 .. 255
    RGB.GetColor (i, r2 (i), g2 (i), b2 (i))
end for
var p, p0 : real
var c1, c2 : int := 7
var rad : int := 24
var picA : array 0 .. maxx, 0 .. maxy of int
Pic.Draw (homer, 0, 0, picCopy)
for i : 0 .. maxx
    for k : 0 .. maxy
        picA (i, k) := whatdotcolor (i, k)
    end for
end for
RGB.GetColor (c1, r1, g1, b1)
const a := 50
var x, y, z : int
loop
    mousewhere (x, y, z)
    for i : x - rad .. x + rad
        for k : y - rad .. y + rad
            if i > 1 and i < maxx and k > 1 and k < maxy then
                if distance (x, y, i, k) < rad then
                    p := (distance (x, y, i, k) / rad) * 100
                    p0 := 100 - p
                    RGB.SetColor (1, (((r1 * p) + (r2 (picA (i, k)) * p0)) / 2) / a, (((g1 * p) + (g2 (picA (i, k)) * p0)) / 2) / a, (((b1 * p) + (b2 (picA (i, k)) * p0)) / 2) / a)
                    drawdot (i, k, 1)
                end if
            end if
        end for
    end for
    View.Update
    drawfillbox (0, 0, maxx, maxy, black)
end loop

((r1 * p) + (r2 (c2) * p0)) / 2)