Discussion :

[Roland Chastain]

Bonjour,

Je vous propose un nouvel élément à utiliser : Spirale de Théodore

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



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

Qu'en pensez-vous ?

[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 - Visualiser dans une fenêtre à part

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;