Помогите с графикой Опции

[Buka]

Надо представить в виде мультфильма картину медленного захода солнца за линию горизонта с изменением освещения пейзажа.
есть текст как солнце заходит:

program fgh;
uses crt,graph;
var GrDr,GrMd,i,g,j:integer;  f:word;
const
cga=1;
begin
grdr:=detect;
initgraph(grdr,grmd,'c:\pascal\bgi');
setcolor(2);
   line(0,400,getmaxX ,400);
   g:=getbkcolor;
      i:=50;j:=50;
   while i<700 do
   begin
      setcolor(yellow);
      setfillstyle(1,yellow);
      fillellipse(i,j,40,40);
      delay(2000);
      setcolor(g);
      setfillstyle(1,g);
      fillellipse(i,j,40,40);
      i:=i+random(3);
      j:=j+random(2);
      end;

closegraph;
end.
readln;

а вот с фоном проблемы((

Тегами пользуйся в следующий раз (выделяешь код, и выбираешь в листбоксе CODE нужный язык программирования)

Сообщение отредактировано: volvo - 1.06.2009 18:30