Dessin et animation d'une roue

Version imprimable

30/12/2021, 19h37
Roland Chastain

4 pièce(s) jointe(s)

Dessin et animation d'une roue

Bonjour ! Je vous propose un petit truc que j'ai fait pour répondre à une question sur le forum anglophone.

Il s'agissait de dessiner une roue avec des chiffres et de la faire tourner. Pour dessiner la roue j'ai écrit un petit programme utilisant Cairo.

Pièce jointe 611015

Ensuite j'ai modifié ce programme pour qu'il accepte un paramètre (un angle en degrés), ce qui m'a permis de générer 36 images correspondant à 36 positions différentes de la roue.

Puis j'ai fait un premier projet Lazarus, qui fait tourner la roue en fonction de la valeur d'un TSpinEdit, pour montrer le principe d'une animation.

Pièce jointe 611016

Puis un deuxième projet qui simule un lancement de la roue avec une force aléatoire, pour finalement s'arrêter sur un nombre, comme dans un jeu.

Pièce jointe 611017

J'ai dû réduire la taille des images pour que le fichier ne soit pas trop lourd. Vous pouvez facilement en générer de plus grandes (en modifiant l'unité constants.pas).

J'ai essayé de faire en sorte qu'il n'y ait pas trop de nombres magiques dans le code, mais il y en a quand même. J'ai passé l'après-midi à faire du calcul mental. :)

Voilà, vos éventuelles observations sont bienvenues.
01/01/2022, 18h45
Jipété
Bonsoir, et bravo et merci pour ce sympathique projet.

Mais dans le projet Demo, j'ai un petit souci avec mon vieux Linux et mon vieux Lazarus : en incrémentant le compteur, une fois arrivé à 350 tout se fige et terminé !
Pourtant le code est tout bête :
Code:

1 2 if SEAngle.Value = 360 then SEAngle.Value := 0;
Je t'avoue que j'ai une grosse flemme à déverminer le truc, ayant d'autres chats à fouetter.

Quant au demo-timer, il m'a fallu remplacer FBuffer.EraseRect(Rect(0, 0, 159, 159), 255);, inconnu chez moi, par ce que j'ai trouvé de plus approchant, FBuffer.EraseRectAntialias(0, 0, 159, 159, 255);, pour que ça compile (là aussi j'ai une vieille version).

Mais une fois lancé, j'ai été bien bluffé ! Pas mal du tout pour un 1^er janvier !
:ccool:

Bonne année et bons codes,
01/01/2022, 20h50
Roland Chastain
Bonsoir JP. Merci pour ton retour.
Citation:
Envoyé par Jipété

Mais dans le projet Demo, j'ai un petit souci avec mon vieux Linux et mon vieux Lazarus : en incrémentant le compteur, une fois arrivé à 350 tout se fige et terminé !
Pourtant le code est tout bête :

Code:

1 2 if SEAngle.Value = 360 then SEAngle.Value := 0;
J'ai eu un doute en écrivant cette partie. Est-ce une bonne chose de changer la valeur du TSpinEdit dans son propre événement OnChange ? Chez moi, ça marchait, donc je l'ai laissé comme ça.

Citation:

Envoyé par Jipété

Bonne année et bons codes,

Bonne année à toi aussi.

Salut bonjour,

en lisant ta réponse, j'ai fait un test basique et ultra-light,

Code:

1
2
3
4
5
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  caption := inttostr(spinedit1.Value);
  if spinedit1.Value = 5 then spinedit1.Value := 0;
end;

Code:

1
2
3
4
5
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  if spinedit1.Value = 5 then spinedit1.Value := 0;
  caption := inttostr(spinedit1.Value);
end;

et dans les deux cas c'est pareil, hang après la valeur 4.

La solution en deux procédures :

Code:

1
2
3
4
5
6
7
8
9
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  caption := inttostr(spinedit1.Value);
end;
 
procedure TForm1.SpinEdit1Click(Sender: TObject);
begin
  if spinedit1.Value = 5 then spinedit1.Value := 0;
end;

et donc dans ton projet demo (testé et validé) :

Code:

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.SEAngleChange(Sender: TObject);
begin
  FIndex := SEAngle.Value div 10;
end;
 
procedure TForm1.SEAngleClick(Sender: TObject);
begin
  if SEAngle.Value = 360 then
    SEAngle.Value := 0;
  PBAnimation.Invalidate;
end;

Bon dimanche,

02/01/2022, 16h01
Roland Chastain

Effectivement, maintenant que tu le dis, ça paraît plus logique comme ça. Pas étonnant que ça marche mieux !

Paresse de mettre à jour la pièce jointe, mais je vais faire la correction dans mon code. Merci, et bon dimanche à toi. ;)