графика, pascal.net

[альбертоо]

вот код программы где солнце постепенно садится и в это время на море отблики и как солнце сядет станет темно сразу. как сделать так чтобы темнело постепенно?

uses graphABC;
var x,y,x1,y1,i,j,k,l: integer;
begin
setwindowsize(900,600);
lockdrawing;
y1:=0;
x1:=450;
for i:=1 to 250 do
begin
clearwindow;
if y1>=400 then
begin
setpencolor(clBlack);
setbrushcolor(clBlack);
rectangle(0,0,900,200);
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,200,900,400);
end else
begin
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,0,900,200);
setpencolor(clBlue);
setbrushcolor(clBlue);
rectangle(0,200,900,400);
end;
setpencolor(clyellow);
setbrushcolor(clyellow);
y1:=y1+2;
circle(x1,y1,50);

setpencolor(clTeal);
setbrushcolor(clTeal);
rectangle(0,400,900,600);

if y1<=450 then
begin
y:=420; k:=20;
for j:=1 to 15 do
    begin
    setpencolor(clYellow);
    setbrushcolor(clYellow);
    Ellipse(440-k,y,465+k,y+10);
    y:=y+20;
        if j mod 2=0 then k:=k-5 else
    k:=k+random(20);
sleep(30);
    end;
end else
begin
setpencolor(clBlue);
setbrushcolor(clBlue);
rectangle(0,400,900,600);
end;
sleep(4);
redraw;
end;

end.

Спасибо

[Alex11223]

Вы б код отформатировали, кстати, в PascalABC.NET есть волшебная кнопка автоформатирования.

[альбертоо]

uses
  graphABC;

var
  x, y, x1, y1, i, j, k, l: integer;

begin
  setwindowsize(900, 600);
  lockdrawing;
  y1 := 0;
  x1 := 450;
  for i := 1 to 250 do
  begin
    clearwindow;
    if y1 >= 400 then
    begin
      setpencolor(clBlack);
      setbrushcolor(clBlack);
      rectangle(0, 0, 900, 200);
      setpencolor(clblue);
      setbrushcolor(clblue);
      rectangle(0, 200, 900, 400);
    end else
    begin
      setpencolor(clblue);
      setbrushcolor(clblue);
      rectangle(0, 0, 900, 200);
      setpencolor(clBlue);
      setbrushcolor(clBlue);
      rectangle(0, 200, 900, 400);
    end;
    setpencolor(clyellow);
    setbrushcolor(clyellow);
    y1 := y1 + 2;
    circle(x1, y1, 50);
    
    setpencolor(clTeal);
    setbrushcolor(clTeal);
    rectangle(0, 400, 900, 600);
    
    if y1 <= 450 then
    begin
      y := 420; k := 20;
      for j := 1 to 15 do
      begin
        setpencolor(clYellow);
        setbrushcolor(clYellow);
        Ellipse(440 - k, y, 465 + k, y + 10);
        y := y + 20;
        if j mod 2 = 0 then k := k - 5 else
          k := k + random(20);
        sleep(30);
      end;
    end else
    begin
      setpencolor(clBlue);
      setbrushcolor(clBlue);
      rectangle(0, 400, 900, 600);
    end;
    sleep(4);
    redraw;
  end;
  
end.

так понятней?)