|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.09.2009, 16:20 | #1 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
Эффект идущего дыма.
я нарисовала домик.....но как сделать анимацию на дымок, выходящий из трубы, чтобы был эффект дыма??????? помогите!!!!!!!!
program domik; uses graph,crt; var t,r,x,y,i:integer; st:string; begin t:=detect; initgraph(t,r,'C:\TP7\bgi'); setlinestyle(0,0,1); setcolor(14); rectangle(90,150,420,400); line(90,150,250,50); line(250,50,420,150); rectangle(100,200,170,300); rectangle(200,200,270,300); setfillstyle(10,1); floodfill(101,201,14); setfillstyle(10,1); floodfill(201,201,14); setlinestyle(0,0,3); line(100,250,170,250); line(135,250,135,300); line(200,250,270,250); line(235,250,235,300); setlinestyle(0,0,1); rectangle(300,240,380,380); ellipse(340,240,0,180,40,30); setfillstyle(1,6); floodfill(301,241,14); setfillstyle(1,2); floodfill(350,239,14); setfillstyle(2,6); floodfill(71,151,14); circle(250,100,10); setfillstyle(1,3); floodfill(75,149,14); setfillstyle(1,2); floodfill(235,100,14); line(332,100,332,50); line(332,50,365,50); line(365,50,365,120); setfillstyle(1,5); floodfill(320,100,14); setcolor(3); setcolor(8); i:=50; while i<>0 do begin circle(350,i,8); i:=i-10; end; readln; closegraph; end. |
14.09.2009, 16:42 | #2 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
Как вариант, дальше всё зависит от вашей фантазии
Код:
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
14.09.2009, 16:50 | #3 |
Босс
Форумчанин
Регистрация: 03.06.2009
Сообщений: 125
|
можна сделать так:
замените этот кусок кода Код:
Код:
Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются. Ася 255507394. Отзывы здесь. |
14.09.2009, 16:51 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Что-то типа:
Код:
I'm learning to live...
|
14.09.2009, 17:20 | #5 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
огромное вам человеческое спасибо!!!!!!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Эффект бегущей единицы | OLV_Nikon | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 21.11.2008 09:10 |
Эффект пулемета | Titan123 | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 5 | 13.10.2008 13:46 |
Эффект нажатия | SeregaIRK | Общие вопросы Delphi | 2 | 17.09.2008 17:47 |
Эффект полупрозрачности краев | TimeShift | Помощь студентам | 3 | 25.11.2007 03:10 |