PDA

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



Lord124
19.04.2010, 17: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.


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

Хыиуду
23.04.2010, 10:54
Проведите линию цвета неба или цвета земли. Ниже нее все залейте цветом земли, а выше - цветом неба