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;