Модераторы: Snowy, Alexeis, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Моделирование снегопада 
:(
    Опции темы
INFELIGO
Дата 12.6.2006, 00:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 12.6.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Помогите смоделировать снегопад в Delphi!...а то я не получатеся у меня алгоритм придумать и реализовать его в Delphi....нужно чтоб образовывалиьс сугробы и дул перменный ветер... 
PM MAIL ICQ Skype   Вверх
Sunvas
Дата 12.6.2006, 00:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89
А ты с ипользованием чего хочешь писать - DirectX, OpenGL? 


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
INFELIGO
Дата 12.6.2006, 01:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 12.6.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Sunvas, ну на канвасе просто....а то для меня это сложновато пока .........мне алгоритм важен 

Это сообщение отредактировал(а) INFELIGO - 12.6.2006, 01:08
PM MAIL ICQ Skype   Вверх
Sunvas
Дата 12.6.2006, 01:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89
На канве, да чтоб 
Цитата(INFELIGO @  12.6.2006,  00:50 Найти цитируемый пост)
образовывалиьс сугробы и дул перменный ветер

думаю это невозможно.

Добавлено @ 01:12 
Вот у меня завалялся примерчик на javascript. Мож чем поможет. 

Присоединённый файл ( Кол-во скачиваний: 34 )
Присоединённый файл  ____.zip 3,50 Kb


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Cheburek
Дата 12.6.2006, 01:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 74
Регистрация: 26.3.2006

Репутация: нет
Всего: 1
Sunvas, Я видел подобную программу, алгоритм правда не помню, на канвасе было все сделано: просто белые кружочки падал на черном фоне, правда мерцало все, как обычно мерцает на канвасе, но я думаю, человеку важен алгоритм, а не качество графики... 


Цитата

Вот у меня завалялся примерчик на javascript. Мож чем поможет. 

они там по синусойдам падают с разными амплитудами и скоростями - интересный вариант
 

Это сообщение отредактировал(а) Cheburek - 12.6.2006, 01:26
PM MAIL   Вверх
Yanis
Дата 12.6.2006, 08:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 2
Всего: 111
Если здесь никто не ответит, то думаю вопросу самое место здесь
http://forum.vingrad.ru/index.php?showforum=129
mr.DUDA в поиске алгоритма точно не откажет. 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Mechanic
Дата 12.6.2006, 12:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: нет
Всего: 7
Есть у ня симпотный снежок на ASM'e, он многослойный, разной яркости и скорости слои. Выглядит более-менее натурально. Только ветра там нет, и сугробов. Но это не сильно сложно будет прикрутить при желании. Бросать? 
--------------------
Tell me the extensions of the files You backup and I'll tell You who You are..  ©Mch  
PM   Вверх
INFELIGO
Дата 12.6.2006, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 12.6.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Mechanic, давай.. 
PM MAIL ICQ Skype   Вверх
Mechanic
Дата 12.6.2006, 14:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: нет
Всего: 7
Вот. Нашел. Не уверен, что сразу заработает, ведь это выдранный кусок проекта.
Там в основной форме была I1: TImage, на которой всё и происходило. 

Присоединённый файл ( Кол-во скачиваний: 38 )
Присоединённый файл  Mc_Snow.zip 24,78 Kb
--------------------
Tell me the extensions of the files You backup and I'll tell You who You are..  ©Mch  
PM   Вверх
INFELIGO
Дата 13.6.2006, 21:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 12.6.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Mechanic, не заработала пока( 
PM MAIL ICQ Skype   Вверх
INFELIGO
Дата 1.7.2006, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 12.6.2006
Где: Санкт-Петербург

Репутация: нет
Всего: нет
Вот мой сенгопад..с переменным ветром...

Код



IF test THEN begin
for j:=1 to k do begin

vx[j]:=vx[j]-veter;
vy[j]:=vy[j]+{0.3*M[j]}(g*dt*dt)/2;
X[j]:=X[j]+vx[j]*dt;
Y[j]:=Y[j]+vy[j]*dt;
end;
for j:=1 to k do begin

Form1.Image1.Canvas.Pen.Color:=D[j];
Form1.Image1.Canvas.Brush.Color:=D[j];
Form1.Image1.Canvas.Ellipse(round(X[j]-M[j]/2),round(Y[j]-M[j]/2),round(X[j]+M[j]/2),round(Y[j]+M[j]/2));
end;
test:= false ;
exit;
end;

IF not(test) THEN  begin
for j:=1 to k do begin
Form1.Image1.Canvas.Pen.Color:=clWhite;
Form1.Image1.Canvas.Brush.Color:=clWhite;
Form1.Image1.Canvas.Ellipse(round(X[j]-M[j]/2),round(Y[j]-M[j]/2),round(X[j]+M[j]/2),round(Y[j]+M[j]/2));

end;
for j:=1 to k do
IF (X[j]>=400) or (X[j]<0) or (Y[j]>=225) then
begin
M[j]:=2+(7-2)*random;
X[j]:=random(400);
Y[j]:=0;
vx[j]:=0; vy[j]:=random(10);
end ;

end;

test:=True;




 
PM MAIL ICQ Skype   Вверх
Elfin
Дата 13.7.2006, 18:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 37
Регистрация: 28.10.2004

Репутация: нет
Всего: нет
Столкнулся недавно с подоной проблемой, и написал решение. Здесь есть и ветер и сугроб и возможность изменять силу ветраб скорость падения снега и направление ветра. Ув. тов. программисты, прозьба заценить. 

Присоединённый файл ( Кол-во скачиваний: 52 )
Присоединённый файл  ______OtherSnow.zip 8,80 Kb
PM MAIL   Вверх
Alexeis
Дата 13.7.2006, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
А почему сугробы получаются зелеными? 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Elfin
Дата 13.7.2006, 23:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 37
Регистрация: 28.10.2004

Репутация: нет
Всего: нет
Потому что снег я тоже зеленый сделалsmile я думаю изменить "rgb(...,...,..)" в коде на clwhite не сложно будет 
PM MAIL   Вверх
Alexeis
Дата 14.7.2006, 09:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459
Elfin - то что снег переливается - это очень красиво, но на земле он лежит и не движентся, поэтому нужно сменить оттенок на светло-светло серый, так чтоб каждая снежинка имела свой оттенок и можно попробовать сделать размытие для точек сугроба 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1149 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.