Procedury:
Gwiazda:
oto gwiazda :bok
ukm "żółty
powtórz 6 [trójkąt :bok pw 60]
ukm "brązowy
np :bok lw 120
powtórz 6 [trójkąt :bok np :bok lw 60]
pw 120 ws :bok
już
Rozgwiazda:
oto rozgwiazda :n
jeśli :n>10 [STOP]
jeśli :n<0 [STOP]
niech "bok 480/(6*:n+3)
gwiazda :bok
powtórz 6 [
powtórz :n [skok1 3*:bok
gwiazda :bok]
skok1 -3*:bok*:n
pw 60]
już
Skok1:
oto skok1 :bok
pod
np :bok
opu
już
Trójkąt:
oto trójkąt :bok
wielokąt [ powtórz 3 [ np :bok pw 120]]
już
Przepraszam za brak niektorych polskich znakow.