Trójkąt Sierpińskiego
Wstęp
Trójkąt Sierpińskiego to fraktal. Pierwsze zapiski o nim są datowane na XIII w. Tworzy się go rysując trójkąt równobczony, a następnie rysując w nim kolejny trójkąt równoboczny, który dzieli większy na 4 równe części. Następnie dla każdego utworzonego trójkąta rysuje się w nim ponownie trójkąt.
Implementacja
Fraktale są to grafiki powstające rekurenycjnie w określony sposób w nieskończoność. Jednak rysowanie w nieskończoność doprowadziłoby do zamalowania strony całkowicie na czarno, a program nie skończyłby się wykonywać. Z tego powodu potrzebne jest założenie, że w przypadku rysowania trójkąta Sierpińskiego stopnia 1 procedura narysuje jedynie obwódkę największego trójkąta.
Kod
Program rysuje trójkąt Sierpińskiego w sposób rekurencyjny. Procedura przyjmuje dwa parametry: :a - określa długość boku aktualnie rysowanego trójkąta oraz :deep - określa ile jeszcze razy funkcja ma być wykonana rekurencyjnie.
- oto trójkątPascala :a :deep
- jeśli (i :deep > 0 :a > 1)[
- trójkątPascala :a/2 :deep-1
- pw 30
- np :a/2
- lw 30
- trójkątPascala :a/2 :deep-1
- pw 30
- np :a/2
- pw 120
- np :a
- pw 120
- np :a/2
- pw 90
- trójkątPascala :a/2 :deep-1
- lw 90
- np :a/2
- pw 90
- ]
- już
(2.) O ile dana iteracja ma być wywołana oraz jeśli jest sens rysować to: (3.) narysuj trójkąt w lewym dolnym rogu aktualnego trójkąta. Następnie (4. - 6.) poprzejściu do górnego trójkąta (7.) narysuj kolejny rekurencyjny. (8.) Następnie przejdź do wierzchołka trójkąta i narysuj prawy bok, a w drodze powrotnej do początku (15.) narysuj jeszcze jeden trójkąt rekurencyjnie i (16. - 18.) wróć tam skąd rozpoczęła się procedura.
Bardzo ważne, aby pamiętać, że podczas rekurencyjnego wywołania należy: ustawić nowy parametr :a na jedną trzecią aktualnego oraz wskazać, że kolejna warstwa została narysowana przekazując :deep - 1.