Анимация дождя.

[Cause]

Здравствуйте, не могли бы вы написать код анимации дождя(при ветре и без ветра). А то что-то сам додуматься не могу =(

[Cause]

Забыл Pascal wingraph

[xrob]

здесь у кого-то подпись гласит "помогите != сделай за меня"
очень правильная мысль, кстати.

а теперь по теме.
ветер - это некая сила, которая влияет на некий предмет
(лично я такие вещи называю "аффекторы" - от слова аффект(влиять) (хотя я могу ошибаться) )

кроме ветра на дождь действует гравитация.
дождь идет потому что на кадую капельку действует гравитация,
эта сила направленна вниз, и капли стремятся упасть.
т.е. грубо говоря, за каждую секунду у каждой капельки прибавляется координата y, т.е. капля падает.

ветер - примерно тоже самое, только сила направлена всторону.
допустим ветер дует справа налево.
тогда, грубо говоря, за каждую секунду у каждой капельки
уменьшается координата x, т.е. капельку сдувает влево

можно вывести следующее уравнение:

x(нов) = x(стар) + 1*k
здесь k - сила ветра (условно)

и

y(нов) = y(стар) + 1*g
здесь g - гравитация (условно)

если капельки "продолговатые",
то имеет смысл просчитать угол наклона капельки при заданном ветре
мне уже лень писать как это сделать, так что придумайте сами, это не сложно

[kaljan775]

а если делать в C++, надо будет описывать класс капелька, и создавать капелька a[800], чтобы получить дождь ?

[Levsha100]

писал прямо тут шаблончик, могут быть ошибки.

#define dCount 100

drop=record
x,y,vx,vy:real;
end;

drops:array[1..dCount] of drop;

procedure draw();
var
i:integer;
begin
for i:=1 to dCount do
form1.image1.canvas.ellipse(round(d rops.x)-3,round(drops.y)-3,round(drops.x)+3,round(drops.y)+3 );
end;

procedure processed();
var
i:integer;
begin
for i:=1 to dCount do
begin
drops.vy= drops.vy + gravity; //гравитация
drops.vx= drops.vx + wind; //ветер

drops.vy= drops.vy * resistance; //сопротивление воздуха
drops.vx= drops.vx * resistance;

drops.y= drops.y +drops.vy; //прибавляем скорость
drops.x= drops.x +drops.vx;

if drops.y>top+height then begin drops.x:=random(width); drops.y:=top; end;
end;
end;

[xrob]

кальян, намекаешь на то, что много капелек будет долго обрабатывать?
а какие есть еще варианты, чтобы получить реалистичный дождь?
можно еще сделать "тупой" дождь.
чтобы все капельки были одной картинкой, котоорая прокручивалась бы вниз, и поворачивалась в зависимости от ветра.
все.
а больше как еще?
мне так ничего в голову не приходит.

[xrob]

левша, по моему псевдо-коду писал? =)

[_-Re@l-_]

#define dCount 100

А разве в Delphi есть define??????

[Levsha100]

левша, по моему псевдо-коду писал? =)

Нет. А че тут писать?

разве в Delphi есть define??????

Сори, говорю же писал прямо тут, мозги не раздуплились=)
const dCount=100; конечно же.

[_-Re@l-_]

Сори, говорю же писал прямо тут, мозги не раздуплились=)

Фух, а то я уж испугался что чего-то не знаю