BAC À SABLE

Commentaire de Caribensila le 14/03/2008 21:49:19

Bien que ça me rappelle les travaux de Pierre-Gilles de Gennes sur la "matière molle", là ça m'étonnerait que Cirec trouve ton tas de sable pas assez consistant.  lol

Il est génial cet effet! Et en si peu de code, beau travail de traduction!
J'vais me plonger la-dedans dès que j'ai le temps (ça me fera des vacances à la plage).

PS : Pour quand le joli vrai sablier pour nous faire patienter pendant les processus bloquants?  ;)

Commentaire de cantador le 14/03/2008 22:53:08

bravo barbichette et
un nonos pour le chien..

Commentaire de OlivierH le 15/03/2008 15:41:09

C'est vraiment super d'avoir un assistant canin à la hauteur.. Bravo.

Commentaire de jihelb le 16/03/2008 20:29:38

Bravo Barbichette, j'aime beaucoup la façon de résoudre ce problème, et je pense que celà vaut bien un 9 (étonné que personne n'ai noté !?)
Je me suis par contre demandé pourquoi il y avait une dissymétrie entre l'écoulemnt vers la droite(trés réaliste) et celui vers la gauche(qui fait apparaitre des murs verticaux) alors que l'algo de gestion d'une ligne est parfaitement symétrique.
Celà provient du fait qu'une ligne est balayée de la gauche vers la droite.
J'ai donc légèrement modifié ceci pour que les lignes paires soit balayées dans un sens et les impaires dans l'autre (peut-être y-a-t'il une autre solution, mais je ne l'ai pas trouvée).
Donne-nous encore des animations.
////////////////////
PROCEDURE INITIALE

procedure TForm1.DoSand;
var
x,y:integer;
a,b,c,d,e:integer;
bg:integer;
p:PQuadArray;
begin
bg:=$FFFFFF; //couleur du fond
p:=bitmap.scanline[h-1];
// on balaye de bas en haut l'image,
// sinon, des grains de sable pourraient tomber d'un coup du haut en bas...
for y:=0 to h-2 do
begin
   //-+-+-+ début partie à déplacer -+-+-+-
                    .
                    .
                    .
   //-+-+-+ fin   partie à déplacer -+-+-+-
end;
end;

REMPLACEE PAR

procedure TForm1.DoSand;
var
x,y:integer;
a,b,c,d,e:integer;
bg:integer;
p:PQuadArray;
//---------
   procedure UneLigne(x: integer);
   begin
     //-+-+-+ début partie déplacée -+-+-+-
                      .
                      .
                      .
     //-+-+-+ fin   partie déplacée -+-+-+-
   end;
//---------
begin
bg:=$FFFFFF; //couleur du fond
p:=bitmap.scanline[h-1];
// on balaye de bas en haut l'image,
// sinon, des grains de sable pourraient tomber d'un coup du haut en bas...
for y:=0 to h-2 do
begin
  //-+-+-+ début partie modifiée -+-+-
   if odd(y)
   then for x:= 1 to w-2 do UneLigne(x)
   else for x:= w-2 downto 1 do UneLigne(x);
  //-+-+-+ fin   partie modifiée -+-+-
end;
end;

Commentaire de MAURICIO le 17/03/2008 16:01:09

Salut,
ça manque cruellement de commentaires afin d' expliquer la méthode utilisée?!

Sinon bem, 2 biscuits pour le toutou c' est pas beaucoup, surtout que c' est un Labrador (ils sont plutôt gourments, j' en ai un aussi).