надо создать Анимацию волка!

[sanyok996]

Народ помогите пожалуйста!!!) мне на завтра сдавать эту анимацию!!! вообщем нужно нарисовать волка и сделать анимацию... я тут не много сделал:
program volk;
uses crt,GraphABC;
begin
Circle(220,130,90);
floodfill(240,160,clDkGray);
Rectangle(60,100,150,165);
floodfill(100,150,clDkGray);
Circle(60,100,15);
floodfill(50,100,clBlack);
Circle(200,100,25);
Circle(185,100,10);
floodfill(190,100,clBlack);
Rectangle(65,300,200,215);
floodfill(100,250,clDkGray);

Но его надо закончить, ноги сделать из треугольника и хвост нужен и + анимация!!!

[Vanta11a]

[sarcasm]И вот именно этот код у Вас компилируется?[/sarcasm]

Сколько денег готовы заплатить?

[Smitt&Wesson]

Ой ужас! Так и детство вспомнилось.....

[Vanta11a]

Я, правда, лет 6 назад, на первом курсе, таким же дураком был...

[Smitt&Wesson]

Сообщение от Vanta11a

Я, правда, лет 6 назад, на первом курсе, таким же дураком был...

Ну, это не ворос. Лет 30 назад, я такой-же фигнёй маялся.

[Serge_Bliznykov]

Сообщение от Vanta11a

[sarcasm]И вот именно этот код у Вас компилируется?[/sarcasm]

а что не так в данном коде? Только end. в конце не скопипастен на форум...
volf.jpg

хотя, конечно, волк страшный. Такого во сне увидишь - не отмахаешься!

[sanyok996]

а я о чем) ноги бы сделать)

[sanyok996]

+ мне сделать нужно анимацию

[Vanta11a]

Дак делайте.

repeat
until

Вам в помощь.

[Serge_Bliznykov]

Сообщение от sanyok996

а я о чем) ноги бы сделать)

вы хоть в пайнте изобразите, где и какие ноги должны быть!

Сообщение от sanyok996

+ мне сделать нужно анимацию

чтобы нормально делать Анимацию, все движущиеся части нужно рисовать методом базовой точки.
Пусть, например, есть точка с коорданатами X и Y, тогда всё должно быть нарисовано относительно этой точки.
например, первые строчки программы должны выглядеть так:

var 
  x, y : integer;
begin
    x := 220; y:= 130; {центр окружности принимаем за базовую точку}
   Circle(x,y,90);
   floodfill(x+20,y+30,clDkGray);
   Rectangle(x-160,y-30,x-70,y+35);
   floodfill(x-120,y,clDkGray);
и т.д.

это позволит делать в цикле следующее:
Вывести изображение по коорданитам x,y.
Выдержать небольшую паузу, чтобы человеческий глаз успел увидеть это изображение (пауза примерно 1/25 секунды),
стереть изображение.
изменить координаты x, y (этим обеспечиваем движение в нужную сторону)
повторить цикл.

это и создаст эффект анимации


p.s. а что должна представлять собой анимация, куда и что нужно двигать?!