Чтото типо градиента. Хотя это больше напоминает затухающий свет.
Градиент пока перетекает из белого в черный.
Долго обрабатывается, но все таки
program radgrad;
VAR
i,j,temp,a,b:integer;
temp_real:real;
BEGIN
setcolor (0,0,0);
fillrect (0,0,240,320);
for i:=1 to 100 do
for j:=1 to 100 do
begin
a:=50-i;
b:=50-j;
temp_real:=a*a+b*b;
temp_real:=sqrt(temp_real)
temp_real:=1-temp_real/(temp_real+50.0)
temp_real:=255.0*temp_real;
a:=trunc(temp_real);
setcolor (a,a,a);
plot (j,i)
end;
repaint;
delay (2012);
end.
//Надеюсь все правильно написал