Помогите с анимацией в Паскале

Общие вопросы: версии и диалекты, синтаксис языка, cтруктуры и типы данных (массивы, строки, списки...), обработка данных и т.д.
Ответить
Lord124
Сообщения: 9
Зарегистрирован: 16 мар 2010, 15:31

Помогите с анимацией в Паскале

Сообщение Lord124 » 19 апр 2010, 16:04

uses graphabc;
var i:integer;
begin
LockDrawing;
for i:=0 to 700 do
begin

ClearWindow;




SetBrushColor(clyellow);
Ellipse(i,100,i+70,40); //солнце
floodfill(1,400,clSkyBlue);
floodfill(1,405,clGreen);

line(250,200,170,300); //крыша
line(250,200,330,300);
line(170,300,330,300);
floodfill(250,201,clCream);
circle(250,260,15); //чердак кр
floodfill(250,260,clBlack);
line(170,300,170,400); //дом
line(170,400,330,400);
line(330,300,330,400);
floodfill(171,301,clMedGray);
line(250,340,250,400); //дверь
line(250,340,300,340);
line(300,340,300,400);
floodfill(251,341,clDkGray);
circle(290,370,5); //ручка
floodfill(290,370,clBlack);
line(330,300,500,200); //черепица
line(250,200,420,100);
line(420,100,501,201);
floodfill(430,199,clMoneyGreen );
line(500,200,500,301); //стена
line(330,400,501,300);
floodfill(331,300,clSilver);
line(0,300,170,300); //трава
line(500,300,1279,300);

Redraw;
end;

end.


Не могу разделить небо и землю.
ПОМОГИТЕ!!!

Хыиуду
Сообщения: 2388
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Re: Помогите с анимацией в Паскале

Сообщение Хыиуду » 23 апр 2010, 09:54

Проведите линию цвета неба или цвета земли. Ниже нее все залейте цветом земли, а выше - цветом неба
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.

Ответить