Да блин, нет у меня приемника, то есть и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

