Эффект линзы

[newart]

Имею исходник из IRIS но если им рисовать сразу на экран, то линза получается вогнутая, а хотелось бы обратного эффекта.

Что для этого нужно поменять?

R = 64 (радиус)
M = 30 (выпуклость)
S = SQR(R*R - M*M)

FOR Y = -R TO R Step 4
FOR X = -R TO R Step 4
IF (X*X + Y*Y) >= S*S THEN
A = X
B = Y

Else
Z = SQR(R*R - X*X - Y*Y)
A = INT(X * M / Z)
B = INT(Y * M / Z)
PLOT(A,B)

END If

NEXT X
NEXT Y

Крутые кодеры, вплоть до Sairoos советуют слудущее " где z рассчитывается плюсы на минусы поменяй, либо у самого знак, либо под корнем плюсы на минусы". Забавно, но результат от этих изменений не меняется.

[Advertiser]