Comment coder un effet de neige ?

**the_magik_mushroom** · 15/12/2004, 23h37

bonjour,

C'est bientôt noël et je voudrai coder un effet de neige

En faite, la où je bloque, c'est sur le déplacement non linéaire d'objet (point ou bitmap par exemple)

Voilà un test simple avec 3 flocons : (image1, image2, image3 sont mes flocons)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TForm1.Timer1Timer(Sender: TObject); // ici 33 ms, la vitesse à laquelle les flocons descendent...
begin
image1.Top := image1.Top +1;
image2.Top := image2.Top +1;
image3.Top := image3.Top +1;
 
//ça c'est pour les replacer une fois descendu, enfin c'est pas trop le sujet :P 
if image1.top = 200 then
begin
image1.top := 1;
image1.left := (random(200));
end;
if image2.top = 200 then
begin
image2.top := 1;
image2.left := (random(200));
end;
if image3.top = 200 then
begin
image3.top := 1;
image3.left := (random(200));
end;
end;

Ce que je voudrai améliorer, c'est que mes flocon ne tombent pas verticalement,
mais un peu en biais, comme si il y avait du vent

Et je bloque dessus.... avez vous des idées, aglo différents, suggestion...?

Maintenant si mon effet comporte 200 flocons, je me suis dis qu'il serai bien de changer de méthode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
//cette fois j'ai 1 image de flocon en resource, que je vais réutiliser 200 fois =)
flocon := TBitMap.Create; // créer une variable flocon de type image
flocon.LoadFromResourceName(HInstance,'FLOCON'); 
 
procedure TForm1.Timer1Timer(Sender: TObject); // toute les 100 ms 1 flocon est dessiné
begin
Canvas.Draw(random(300)+1,random(20)+1,flocon);

Voilà ca marche, mes flocons sont créés toute les 100 ms entre X = 300 et Y = 20...
Maintenant comment faire pour faire bouger tout ce beau monde?
juste qu'ils descendent verticalement pour commencer, j'arrive pas à les faire bouger

Merci d'avance.

inspiration :
effet neige :
http://sidchip.ath.cx/~maktone/installers/CLS-2001_12_11.zip
effet delpacement non linéaire :
http://sidchip.ath.cx/~maktone/installers/CLS-2001_08_28.zip

**Clorish** · 16/12/2004, 08h41

Moi j'utiliserais une vielle formule toute bete :

Je suppose que les flocons parcourent tous la meme distance a chaques iterations (D comme "diagonale").
Je suppose que le vent a une certaine puissance qui deplace les flocons de X Pixels vers la droite.
Reste plus qu'a calculer le nombre de pixels vers le bas :
D² = X²+Y² => Y = Sqrt(D²-X²).

Apres on peux tirer au sort une valeurs entre A et B qui correspond a la variation de vent (positif ou negative) pour changer la "puissance du vent" donc la distance en pixels horizontale parcouru par les flocons.

Ceci n'est qu'une idee a approfondir.

**Bloon** · 16/12/2004, 09h40

si cet effet te plait :

http://membres.lycos.fr/mrpink/noel/neige.html

je t'envoie le source Java ce soir

Bloon

**Tardiff Jean-François** · 16/12/2004, 10h26

Bonjour,

Si l'on considére qu'il y a du vent la neige vas effectivement tomber en biais.
Soit sur une courbe Y := AX + B.

Cependant le neige ne forme pas une droite parfaite en tombant donc ajouter un facteur alléatoire (random(n)) au x calculée.

Je pense donc qu'il vous faudrai mélanger une trajectoire, ajouter le facteur x alléatoire en fonction de la trajectoire (plus le vent est fort, plus le facteur alléatoire sera en faveur du sense du vent. Le flocon ayant enormement de mal à remonter au vent. Ce n'est pas un voilier.)

Attention avec le random(n). Il ne faut pas oubliez de fair un randomize dans l'application.

**Mac LAK** · 16/12/2004, 11h43

J'aurais pensé à une droite affine sur laquelle tu peux greffer une sinusoïde (éventuellement modulée par un random pour l'amplitude) afin d'obtenir le déplacement X. Ansi, le flocon volette au vent, parfois beaucoup, parfois moins grâce à la sinusoïde, le facteur aléatoire rendant ça moins régulier.
Pour le déplacement Y, introduire aussi un facteur retardant/accélérant (random aussi), car parfois le flocon peut "s'arrêter" dans sa chute, quand il est porté par l'air, et parfois "chuter" brutalement.

**the_magik_mushroom** · 16/12/2004, 14h12

si cet effet te plait :
http://membres.lycos.fr/mrpink/noel/neige.html

Ca me plais

Si l'on considére qu'il y a du vent la neige vas effectivement tomber en biais.
Soit sur une courbe Y := AX + B.

C'est la méthode qui me semble la plus simple.
Par contre, je n'ai aucunce idée de comment coder ça pour faire bouger mes flocons?

Merci pour vos réponses.

**the_magik_mushroom** · 17/12/2004, 01h47

Bon je viens de trouver un truc très bourrin pour l'effet de vent : (avec le test simple des 3 flocons au dessus)

Un 2è timer pour le déplacement horizontal des flocons , plus il est rapide, plus il y a du vent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
procedure TForm1.Timer2Timer(Sender: TObject); // 100 ms 
begin
image1.left := image1.left +1;
image2.left := image2.left +1;
image3.left := image3.left +1;
end;

C'est très moche mais ça a le mérite d'être très simple

**Bloon** · 17/12/2004, 09h44

Voici mon code, transposé en Delphi. Il faut poser un TPaintBox et un TTimer sur la fenêtre et régler le timer selon la vitesse voulue :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
 
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
  TFlocon = class
    x, y, vitesse : integer;
    constructor Create(px, py, pvitesse : integer);
  end;
 
var
  Form1: TForm1;
  flocons : array[1..500] of TFlocon;
 
implementation
 
{$R *.dfm}
 
{ TFlocon }
 
constructor TFlocon.Create(px, py, pvitesse: integer);
begin
  x := px;
  y := py;
  vitesse := pvitesse;
end;
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i : integer;
begin
  for i := low(flocons) to high(flocons) do
    flocons[i] := TFlocon.Create(random(paintbox1.Width),random(paintbox1.Height),random(3));
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
var
  i : integer;
begin
  for i := low(flocons) to high(flocons) do
    flocons[i].Free;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  i : integer;
begin
  with paintbox1 do
  begin
    Canvas.FillRect(ClientRect);
    for i := low(flocons) to high(flocons) do
    begin
      flocons[i].x := flocons[i].x + 1 - random(3);
      flocons[i].y := flocons[i].y + 1 + flocons[i].vitesse;
      Canvas.MoveTo(flocons[i].x,flocons[i].y);
      Canvas.LineTo(flocons[i].x+1,flocons[i].y+1);
      if (flocons[i].y > paintbox1.Height) then
      begin
        flocons[i].x := random(paintbox1.Width);
        flocons[i].y := 0;
      end;
    end;
  end;
end;
 
end.

**Sub0** · 17/12/2004, 13h37

Je me suis inspiré de ton code Bloon pour optimiser un peu le mien...
C'est maintenant plus rapide et plus fluide!

http://sub0.developpez.com/delphi/noel2.zip

Par contre, j'ai un doute sur la libération des objets dans mon code... à+

**the_magik_mushroom** · 17/12/2004, 18h33

OK merci beaucoup, c'est S-U-P-E-R 8)

Je vais étudier tout ça

**Sub0** · 17/12/2004, 19h40

the_magik_mushroom : Pour détailler l'algo de déplacement dans ma démo, je voulais obtenir 2 choses au départ: Que la vitesse de chute et les variations soient proportionnelles à la taille des flocons et que la direction soit la même pour tous les flocons. J'ai ajusté le tout "à la main" en regardant l'effet que produisait la modification des constantes et variables (réglées au pif finalement)... J'ai ensuite ajouté un tableau (ZoomRatio) parceque le nombre de petits flocons n'était pas assez élevé selon moi... Pour info, j'utilise le TImage du flocon original pour sauver l'espace sans neige avant l'anim. En effet, une fois tous les flocons préparés, ce TImage est libre. Je l'utilise donc pour faire une capture de l'arrière plan avant l'anim et j'utilise ensuite cette image pour restaurer l'arrière plan avant de déplacer à nouveau un flocon... En résumé, l'image du flocon a 2 fonctions, je tenais à le préciser pour ne pas t'embrouiller. N'hésite pas si tu as des questions, à+

**the_magik_mushroom** · 17/12/2004, 23h29

merci

Comment coder un effet de neige ?

Langage Delphi

Discussions similaires

Partager

Partager