Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 26, средняя оценка - 4.77
Zero-cool
5 / 5 / 1
Регистрация: 05.01.2011
Сообщений: 30
#1

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

05.01.2011, 20:52. Просмотров 3495. Ответов 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 ABC):

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

анимация графика функции - Pascal ABC
Всем доброго времени суток! Проблема в общем такая мне нужно сделать анимацию по теме "рисование графиков" на курсовую. Но дело в том что я...

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

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

Графика. Анимация песочных часов (песочные часы) - Pascal ABC
Помогите сделать анимацию песчаных часов, при чем чтобы ничего не противоречило законам физики. Нужно чтобы несколько линий в верхней части...

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

1
Zero-cool
5 / 5 / 1
Регистрация: 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
Привет! Вот еще темы с ответами:

Анимация - Pascal ABC
шарик соскальзывая вниз по наклонной линии перешёл в "мёртвую петлю" потом вышел и продолжил движение))как-то так)) Сделать...

анимация - Pascal ABC
Помогите пжл нарисовать анимацию в которой солнышко будет улыбаться ) Самую простую :gsmile:

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

Анимация - Pascal ABC
Препод задал экранизировать припев песни: Тра-та-та, тра-та-та, Мы везем с собой кота, Чижика, собаку, Петьку-забияку, ...


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

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

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