Le programme suivant, écrit en Turbo Basic, permet le traçage à répétition d'un triangle de «Sierpinski» utilisé dans les fractales. Je me suis permit de mettre à jour un programme inspiré d'une procédure de «Reiner Scholles» écrite à l'origine en Pascal.
- SCREEN 1
- Hauteur=25
- ValeurFinale=30000
- DIM X(3),Y(3)
- X(0)=INT(320/2)
- Y(0)=Hauteur
- X(1)=X(0)-(INT(320)-1) / 3
- Y(1)=(INT(200)-1)-Hauteur-1
- X(2)=X(0)+(320-1) / 3
- Y(2)=(200-1)-Hauteur-1
- XP=X(0)
- YP=Y(0)
- RANDOMIZE TIMER
- FOR I=1 TO ValeurFinale
- P=INT(RND*3)
- XP=INT((XP+X(P)) / 2)
- YP=INT((YP+Y(P)) / 2)
- PSET(XP,YP)
- NEXT
Voici en terminant un exemple du résultat de se petit programme :
Dernière mise à jour : Mardi, le 28 juillet 2015