Spirale de Théodore

Programme générant l'image d'une spirale de Théodore avec la bibliothèque BGRABitmap.

Signaler un problème

Roland Chastain

Rédacteur/Modérateur

Le 18/04/2024 à 13:11

Envoyé par Roland Chastain

J'ai volé la formule pour calculer les points là, sans trop la comprendre j'avoue.

J'ai remplacé la méthode pour calculer les points, par une méthode que je comprends et que je trouve plus belle.

Code :

Sélectionner tout

1
2
3
4
5
6
7
8
9
  LPoint1 := PointF(0.0, 0.0);
  LPoint2 := PointF(1.0, 0.0);

  for i := 1 to ANumTriangles do
  begin
    LPoint3 := Add(LPoint2, Normalize(Perpendicular(LPoint2)));
    DrawTriangle(LPoint1, LPoint2, LPoint3);
    LPoint2 := LPoint3;
  end;

Poster un commentaire

Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.