Эффект линзы

[newart]

Я про это и говорю. Сканирование должно быть линейным на приемнике, а не на источнике. Иначе будет хреново. А рисовать результат сразу или заполнять таблицу- не суть важно.

Да блин, нет у меня приемника, то есть иcточника, поэтому и сканировать ничего не надо.
Надо просто нарисовать векторную линзу, с дискретностью 8 пикселей.

Добавлено через 8 минут
Вот еще один вариант, в отличае от IRIS линза получается выпуклой, но с артефактами, углы квадрата превращаемого в линзу как бы подгибаются и накладываются на линзу.

size = 2 (коффициент "скукоживания" квадрата в сферу)
for i = -radius To radius Step -8
for j = -radius To radius Step -8

s = Sin(M_PI/2 + (M_PI/2) / (radius*size) * sqr(i*i+j*j))
x = i*s
y = j*s
plot(x,y)

Next j
Next i