Модуль graph. У меня вопросик

@Аркадик · Регистрация: 28.01.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте уважаемые форумчане. Пишу Вам с призывом о помощи =). делаю заставку и не знаю как сделать анимацию. кто нибудь сможет помочь мне с этим делом? Буду сердечно благодарен =)

@Somebody · 28.01.2011, 18:59

Рисуешь кадр, делаешь паузу, стираешь, рисуешь следующий. Или можно перерисовывать только часть. Если движущийся объект небольшой, можно использовать GetImage/PutImage. В любом случае анимация в досовском паскале будет тормозная.

@Аркадик · 28.01.2011, 19:04 **[ТС]**

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

Рисуешь кадр, делаешь паузу, стираешь, рисуешь следующий. Или можно перерисовывать только часть. Если движущийся объект небольшой, можно использовать GetImage/PutImage. В любом случае анимация в досовском паскале будет тормозная.

Как сделать паузу? я хочу изобразить автомобиль спускающийся с горки =)

@marshal · 28.01.2011, 19:06

можно использовать еще модуль crt и поставить delay(...)

@Somebody · 28.01.2011, 19:06

Сообщение от Аркадик

Как сделать паузу?

В простейшем случае Delay(n) из crt, где n - продолжительность в неопределённых единицах, которые могут зависеть от компа.

@Аркадик · 28.01.2011, 19:13 **[ТС]**

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

В простейшем случае Delay(n) из crt, где n - продолжительность в неопределённых единицах, которые могут зависеть от компа.

А само движение разве не нужно? Просто что придется останавливать =)

@Puporev · 28.01.2011, 19:33

Аркадик, Лень учебники читать, посмотри программы в этой теме.
Графика в Турбо Паскаль

@Аркадик · 28.01.2011, 21:49 **[ТС]**

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

Аркадик, Лень учебники читать, посмотри программы в этой теме.
Графика в Турбо Паскаль

Спасибо посмотрим =) А насчет лени вы ошибаетесь =)

Добавлено через 53 минуты
фак....не выходит че то...может кто поможет сделать =) Переджвижение( автомобиль должен при нажатии на клавишу Enter ехать по дороге =)
Вот исходник =)

Pascal

 program zastavka;
uses graph;
var dr,dt:integer;
    i,x,y:integer;
begin
dr:=detect;
InitGraph(dr,dt,'');
{ClearDevice;}
setbkcolor(14);
setcolor(9);
for i:=1 to 300 do
line(240,0,180,480);{doroga}
line(380,0,430,480);
setlinestyle(4,9,3);
line(310,150,300,480);
setfillstyle(1,4);  {avtomobil}
bar(230,100,390,125);
setcolor(yellow);
setfillstyle(1,yellow);
circle(375,110,6);
floodfill(375,110,yellow);
setcolor(yellow);
setfillstyle(1,yellow);
circle(365,119,4);
floodfill(365,119,yellow);
setcolor(yellow);
setfillstyle(1,yellow);
circle(245,110,6);
floodfill(245,110,yellow);
setcolor(yellow);
setfillstyle(1,yellow);
circle(255,119,4);
floodfill(255,119,yellow);
setcolor(16);
setlinestyle(1,2,3);
line(263,118,355,118);
line(260,115,358,115);
line(257,112,361,112);
line(254,109,364,109);
setfillstyle(1,4);
bar(230,126,235,148);
bar(385,126,390,148);
bar(235,144,385,148);
setfillstyle(1,8);
bar(235,126,385,144);
setcolor(red);
setlinestyle(0,2,1);
line(230,100,250,50);
Line(390,100,370,50) ;
line(230,100,390,100);
 
line(250,50,370,50);
line(250,50,260,10);
line(370,50,360,10);
line(260,10,360,10);
floodFill(270,70,4);
 
{CloseGraph;}
readln;
end.

Добавлено через 1 час 15 минут
Вопрос как выйти из цикла зависшего=) если конечно это возможно

@Puporev · 29.01.2011, 04:40

Ctrl+Pause Break, иногда несколько раз подряд...

@Аркадик 0 / 0 / 0 Регистрация: 28.01.2011 Сообщений: 59
		1
	Модуль graph. У меня вопросик 28.01.2011, 17:42. Показов 1201. Ответов 8 Метки нет (Все метки) Здравствуйте уважаемые форумчане. Пишу Вам с призывом о помощи =). делаю заставку и не знаю как сделать анимацию. кто нибудь сможет помочь мне с этим делом? Буду сердечно благодарен =) 0

@Somebody 2833 / 1642 / 254 Регистрация: 03.12.2007 Сообщений: 4,222
	28.01.2011, 18:59	2
	Рисуешь кадр, делаешь паузу, стираешь, рисуешь следующий. Или можно перерисовывать только часть. Если движущийся объект небольшой, можно использовать GetImage/PutImage. В любом случае анимация в досовском паскале будет тормозная. 0

@Аркадик 0 / 0 / 0 Регистрация: 28.01.2011 Сообщений: 59
	28.01.2011, 19:04 [ТС]	3
	Сообщение от Somebody Рисуешь кадр, делаешь паузу, стираешь, рисуешь следующий. Или можно перерисовывать только часть. Если движущийся объект небольшой, можно использовать GetImage/PutImage. В любом случае анимация в досовском паскале будет тормозная. Как сделать паузу? я хочу изобразить автомобиль спускающийся с горки =) 0

@marshal Robin Bad на форуме 237 / 237 / 194 Регистрация: 14.12.2010 Сообщений: 513
	28.01.2011, 19:06	4
	можно использовать еще модуль crt и поставить delay(...) 0

@Somebody 2833 / 1642 / 254 Регистрация: 03.12.2007 Сообщений: 4,222
	28.01.2011, 19:06	5
	Сообщение от Аркадик Как сделать паузу? В простейшем случае Delay(n) из crt, где n - продолжительность в неопределённых единицах, которые могут зависеть от компа. 0

@Аркадик 0 / 0 / 0 Регистрация: 28.01.2011 Сообщений: 59
	28.01.2011, 19:13 [ТС]	6
	Сообщение от Somebody В простейшем случае Delay(n) из crt, где n - продолжительность в неопределённых единицах, которые могут зависеть от компа. А само движение разве не нужно? Просто что придется останавливать =) 0

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	28.01.2011, 19:33	7
	Аркадик, Лень учебники читать, посмотри программы в этой теме. Графика в Турбо Паскаль 0

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	29.01.2011, 04:40	9
	Ctrl+Pause Break, иногда несколько раз подряд... 0

Опции темы