Задание: В виде мультфильма представить картину, сделать в паскале графический результат Опции

[flashg]

Задание:

Кто нибудь знает как это сделать, есть ли исходник

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

[flashg]

Для начала сохрани начальную палитру:

Код

port[$3c8]:=номер цвета;
red;=port[$3c9];
green:=port[$3c9];
blue:=port[$3c9];

Так установить цвет:

Код

port[$3c8]:=номер цвета;
port[$3c9]:=красный;
port[$3c9]:=зеленый;
port[$3c9]:=синий;

Код

{прототип заката}
program zakat;
uses
   crt,graph;
var
  grdr,grmd,i,j,g:integer;
begin
    grdr:=detect;
    initgraph(grdr,grmd,'c:\pascal\bgi');
    setbkcolor(lightblue);
    g:=getbkcolor;
    i:=50; j:=50;
    while i<getmaxX do
    begin
         setcolor(red);
         setfillstyle(1,yellow);
         fillellipse(i,j,20,20);
         delay(3000);
         setcolor(g);
         setfillstyle(1,g);
         fillellipse(i,j,20,20);
         i:=i+random(3);
         j:=j+random(2);
    end;
readln;
end.

ну и куда мне это в мою заготовку втыкать

Сообщение отредактировано: flashg - 12.08.2005 18:57