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

[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 22:30

[Lapp]

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

Стоп. А какой, собственно, пейзаж? "Бабы с граблями рядами ходят, сено шевелят"? Или "двух озер лазурные равнины, где парус рыбаря белеет иногда, за ними ряд холмов и нивы полсаты, вдали рассыпанные хаты, на влажных береагх бродящие стада.." Что ты имеешь в виду? Ты уж скажи поточнее, а то тебе нарисуют баб, а ты скажешь - хочу стада.. Или ваще Бэтмана, летящего на крыльях ночи.. Пейзажей же много бывает! Понимаешь мою идею?

Или я что-то упускаю?..