Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.90/20: Рейтинг темы: голосов - 20, средняя оценка - 4.90
Zero-cool
5 / 5 / 2
Регистрация: 05.01.2011
Сообщений: 30
1

Графика.Анимация

05.01.2011, 20:52. Просмотров 3578. Ответов 1
Метки нет (Все метки)

Помогоите пожалуйста поправить анимацию. задача в том что бы жаба скакала по экрану(выложил часть кода так как дальше абсолютный копипаст)и двигались лапы(задние)не получается нарисовать так чтоб лапа двигалась вниз вверх и по направлению движения жабы(и не изменяла длины). у меня же эта лапа удлиняется.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
//рисуем прыгающую жабу
uses GraphABC;
var c,r:integer;
begin
  Window.Title := 'жаба';
  Brush.Color := clGreen;
  // Отключаем рисование в окне
  LockDrawing;
  c:=30;
  r:=40;
for var y:= 400 downto 320 do
  begin
    window.clear(clwhite);
    ellipse(c,y,c+120,y+30);//тело жабы
    circle(c+90,y,10);//глаз жабы
    line(c-50,y+40,c,y+15);//основа задней лапи жабы(не двигается во время прыжка)
    line(c-50,y+40,c+20,y+r);//подвижная часть задней лапы(двигается не правильно)двигается вниз
    inc(r);
    inc(c);
    redraw;
  end;
for var y:= 320 to 400 do
  begin
    window.clear(clwhite);
    ellipse(c,y,c+120,y+30);
    circle(c+90,y,10);
    line(c-50,y+40,c,y+15);
    line(c-50,y+40,c+20,y+r);//подвижная часть задней лапы(двигается не правильно)двигается вверх
    dec(r);
    inc(c);
    redraw;
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.01.2011, 20:52
Ответы с готовыми решениями:

Графика. Анимация
анимацию еще углубленно не проходили так что если кто может, сделайте программу...

Анимация графика функции
Всем доброго времени суток! Проблема в общем такая мне нужно сделать анимацию...

Графика. Анимация увеличивающейся звезды
Нужна программа в pascal abс, анимация увеличивающейся звезды, количество...

Графика интересный рисунок из 50 объектов+анимация
Нужно создать рисунок состоящий из 50 объектов,любой,пейзаж,портрет,но со...

Графика. Анимация песочных часов (песочные часы)
Помогите сделать анимацию песчаных часов, при чем чтобы ничего не противоречило...

1
Zero-cool
5 / 5 / 2
Регистрация: 05.01.2011
Сообщений: 30
09.01.2011, 15:28  [ТС] 2
up up
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2011, 15:28

Графика. Анимация буквы ""
на экране изображена буква « Н » высотой в 14 лент . Ступень медленно несколько...

Анимация
шарик соскальзывая вниз по наклонной линии перешёл в "мёртвую петлю" потом...

Анимация
У кого есть какая-нибудь анимация(с таймерами) напишите,пожалуйста(


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru