Procedury do logo.

powtórz 3[np :x pw 120]
już
oto trójkąciki :x
ugp 5
powtórz 15[ukp jld trójkąt :x pw 30 pod np :x/2 opu
przypisz "x :x-0.10*:x]
już


oto koralik :r
ukm jld
koło :r
już

oto ramię :r :ile_koralików
przypisz "ile :ile_koralików
np :r*2
przypisz "odleglosc :r*2
powtórz :ile_koralików[przypisz "i npw pod np :r/:i opu
koralik (:r/:i)*2 pod np :r/:i opu
niech "odleglosc :odleglosc+(:r/:i)*2]
pod ws :odleglosc opu
już

oto wachlarz :ile_ramion
lw 90
przypisz "ile_koralików :ile_ramion
przypisz "r losowa 50
jeśli lub [:ile_ramion<3] [:ile_ramion>9]
[pisz [za duża lub za mała ilość ramion] stop]
przypisz "kat 180/(:ile_ramion-1)
powtórz :ile_ramion[ramię :r :ile_koralików pw :kat
przypisz "ile_koralików :ile_koralików-1 ]
już


oto wachlarz1
co 50[wachlarz 4]
już


oto kwadrat
powtórz 4 [ np 100 pw 90]
już

oto kwadraciki :ile
cs
ugp 3
jeśli i :ile>=3 :ile<11
[ powtórz :ile
[ukp jld
kwadrat
pw 360/:ile]]
już


oto listek :bok :skala
jeśli lub :bok<0.5 :bok>120 [stop]


oto drzewo :długość :n
jeśli ( :n = 0 ) [stop]
naprzód :długość
lewo 90
drzewo ( :długość / 2 ) ( :n - 1 )
prawo 90
drzewo ( :długość / 2 ) ( :n - 1 )
prawo 90
drzewo ( :długość / 2 ) ( :n - 1 )
lewo 90
naprzód ( - :długość )
już



oto ciastko :długość_boku :zmniejszenie_boku
jeśli ( :długość_boku < :zmniejszenie_boku ) [stop]
skok_naprzód_prawo ( - :długość_boku / 2 ) ( - :długość_boku / 2 )
kwadrat :długość_boku
skok_naprzód_prawo ( :długość_boku / 2 ) ( :długość_boku / 2 )
ciastko ( :długość_boku - :zmniejszenie_boku ) :zmniejszenie_boku
już


oto rozeta_kw :a :n
ukp jld
powtórz :n [kwadrat :a pw 360 / :n]
już


oto troj :a
powtórz 3 [np :a pw 120]
już

oto sierp :n :a
jeśli :n = 0 [troj :a stop]
troj :a
sierp :n - 1 :a / 2
np :a / 2
sierp :n - 1 :a / 2
pw 60
np :a / 2 pw 60
sierp :n - 1 :a / 2
lw 60 ws :a / 2
lw 60 ws :a / 2
już

oto sierpinski :n :a
cs
pw 30
sierp :n :a
już


oto paproć :a
ukp 2
jeśli :a < 1 [np :a ws :a stop]
np :a * 0.1
lw 40
paproć :a * 0.2
pw 80
paproć :a * 0.2
lw 40
pw 2
paproć :a * 0.9
lw 2
ws :a * 0.1
ukp 0
już
np :bok lw 20
listek :bok*:skala :skala
wróć
już

oto powój
ugp 1
przypisz "dl 0
powtórz 30 [np 10 lw 15 listek 30-:dl 0.9
przypisz "dl :dl+1
powtórz npw[np 20-npw/1.5 pw 10+npw/6 ]]
jużoto element :bok
np :bok pw 90
powtórz 2[ np :bok lw 90 ]
powtórz 2[np :bok pw 90 ]
np :bok*2
lw 90
powtórz 2[np :bok pw 90 ]
np :bok lw 90
np :bok*2 pw 90
np :bok lw 90
powtórz 2 [np :bok pw 90]
np :bok lw 90
np :bok pw 90
np :bok*2 pw 90
powtórz 2 [np :bok lw 90]
np :bok pw 90
np :bok*2
pod
pw 100 np 3
zamaluj
ws 3 lw 100
opu
już

oto puzzle :ile
jeżeli i [:ile>0][:ile<11]
[powtórz :ile[powtórz :ile
[ukm "żółty element 5 pod ws 25 pw 90 opu]
pod lw 90 np :ile*25 pw 90 ws 15 opu
powtórz :ile [ukm "czerwony
element 5 pod ws 25 pw 90 opu]
pod
lw 90 np :ile*25 pw 90 ws 15 opu ]]
[pisz [Zly parametr]]
sż
już


oto bukiet :n
powtórz :n [kwiatek 180 pw ( 360 / :n )]
już

oto kwadrat :dlugość_boku
powtórz 4 [np :dlugość_boku pw 90]
już

oto kwadrat_zamalowany :długość_boku
kwadrat :długość_boku
skok_naprzód_prawo 4 4
ukm losowa 16
zamaluj
skok_naprzód_prawo -4 -4
już

oto kwiatek :długość_łodygi
np :długość_łodygi
płatek ( :długość_łodygi / 3 )
skok ( - :długość_łodygi )
już

oto płatek :długość_b_kwadr
lw 45
powtórz 3 [kwadrat_zamalowany :długość_b_kwadr pw 120]
lw -45
już

oto skok :odległość
pod
np :odległość
opu
już

oto skok_naprzód_prawo :długość_naprzód :długość_prawo
skok :długość_naprzód
pw 90
skok :długość_prawo
pw -90
już


oto środek :długość_jednostki
ukp 0
skok_naprzód_prawo ( - 3 * :długość_jednostki / 2 ) ( - 1,24 * :długość_jednostki / 2 )
powtórz 8 [naprzód 3 * :długość_jednostki prawo 135]
skok_naprzód_prawo ( 3 * :długość_jednostki / 2 ) ( 1,24 * :długość_jednostki / 2 )
już
oto kwiat
kwiatek 80
już
oto kwiatek :długość_jednostki
skorupka :długość_jednostki
środek :długość_jednostki
malowanie_środka [239 150 0]
malowanie8 :długość_jednostki 26 [239 150 0]
malowanie8 ( 2 * :długość_jednostki ) 45 14
malowanie8 ( 2,5 * :długość_jednostki ) 26 [239 150 0]
malowanie8 ( 2,7 * :długość_jednostki ) 30 14
malowanie8 ( 2,7 * :długość_jednostki ) 15 14
już
oto malowanie_środka :kolor
ukp :kolor
zamaluj
już
oto malowanie8 :długość_skoku :kąt_początkowy :kolor
ukp :kolor
lw :kąt_początkowy
powtórz 8 [skok :długość_skoku zamaluj skok ( - :długość_skoku ) prawo 45]
lw ( - :kąt_początkowy )
już
oto prostokąt :długość :wysokość
skok_naprzód_prawo ( - :wysokość / 2 ) ( - :długość / 2 )
powtórz 2 [naprzód :wysokość prawo 90 naprzód :długość prawo 90]
skok_naprzód_prawo ( :wysokość / 2 ) ( :długość / 2 )
już
oto skok :odległość
pod
np :odległość
opu
już
oto skok_naprzód_prawo :długość_naprzód :długość_prawo
skok :długość_naprzód
pw 90
skok :długość_prawo
pw -90
już
oto skorupka :długość_jednostki
ukp 0
powtórz 8 [prostokąt 5 * :długość_jednostki 3 * :długość_jednostki prawo 45]
już





oto kwiatek
środek
powtórz 5 [skok 60 płatek skok -60 prawo 72]
już
oto płatek
lw 36 romb
skok 60
lw 36 skok 60 lw 108
powtórz 4 [romb prawo 72]
skok 60 pw 36
skok 60 lw 144
już
oto romb
powtórz 2 [np 60 pw 72 np 60 pw 108]
pw 30 skok 30
ukm 4 zamaluj
skok -30 pw -30
już
oto skok :odległość
pod np :odległość opu
już
oto skok_naprzód_prawo :długość_naprzód :długość_prawo
skok :długość_naprzód
pw 90 skok :długość_prawo
pw -90
już
oto środek
powtórz 5 [romb pw 72]
już





oto ściana :bok_kwadratu :kolor
podium :bok_kwadratu :kolor
skok_naprzód_prawo ( :bok_kwadratu / 2 ) ( - :bok_kwadratu )
lewo 90
podium :bok_kwadratu :kolor
lewo 180
skok ( 2 * :bok_kwadratu )
podium :bok_kwadratu :kolor
lewo 90
skok_naprzód_prawo ( - :bok_kwadratu / 2 ) ( - :bok_kwadratu )
już
oto ściany :bok_kwadratu :kolor
skok ( 3 * :bok_kwadratu )
powtórz 4 [ściana :bok_kwadratu 3
skok_naprzód_prawo ( - 3 * :bok_kwadratu ) ( 3 * :bok_kwadratu ) prawo 90]
skok ( -3 * :bok_kwadratu )
już
oto kwadrat :długość_boku
powtórz 4 [naprzód :długość_boku prawo 90]
już
oto kwadrat_zamalowany :bok_kwadratu :kolor
kwadrat :bok_kwadratu
prawo 45
skok :bok_kwadratu
ustalkolormalowania :kolor
zamaluj
skok - :bok_kwadratu
prawo -45
już
oto maseczka :bok_kwadratu
oczy_nos ( 2 * :bok_kwadratu ) 3 4
ściany :bok_kwadratu 3
zamaluj_środek :bok_kwadratu 5
już
oto maska
maseczka 45
już
oto oczy_nos :bok_kwadratu :kolor_oczu :kolor_nos
skok :bok_kwadratu
prawo 180
podium :bok_kwadratu :kolor_oczu
skok ( 3 * :bok_kwadratu / 2 )
ustalkolormalowania :kolor_nos
zamaluj
skok ( - :bok_kwadratu / 2 )
prawo 180
już
oto podium :bok_kwadratu :kolor
kwadrat_zamalowany :bok_kwadratu :kolor
lewo 90
kwadrat_zamalowany :bok_kwadratu :kolor
lewo -90
skok_naprzód_prawo :bok_kwadratu ( - :bok_kwadratu / 2 )
kwadrat_zamalowany :bok_kwadratu :kolor
skok_naprzód_prawo - :bok_kwadratu ( :bok_kwadratu / 2 )
już
oto skok :odległość
podnieś
naprzód :odległość
opuść
już
oto skok_naprzód_prawo :długość_naprzód :długość_prawo
skok :długość_naprzód
prawo 90
skok :długość_prawo
prawo -90
już
oto zamaluj_środek :bok_kwadratu :kolor
skok ( 25 / 10 * :bok_kwadratu )
ustalkolormalowania :kolor
zamaluj
skok ( -25 / 10 * :bok_kwadratu )
już





oto gwiazda
powtórz 6 [powtórz 2 [ np 70 pw 60 np 70 pw 120] pw 60]
już





oto kwadraciki1
co 50[kwadraciki 10]
już






oto kwadrat1 :x
powtórz 4[np :x pw 90]
pod np :x/2 pw 90 np :x/2 opu
ukm jld
zamaluj
ukm jld
koło :x/2
pod ws :x/2 lw 90 ws :x/2 opu
już




oto malowanie :kolor
pod
np 3
pw 90
np 3
ukm :kolor
zamaluj
pw 180
np 3
lw 90
np 3
pw 180
opu
już








oto odmiana
pisz [podaj słowo]
niech "słowo csw
niech "osoba1 (bezOst :słowo)
pisz nak "e :osoba1
pisz nak "sz :osoba1
pisz :osoba1
pisz nak "my :osoba1
pisz nak "cie :osoba1 pisz nak "ą :osoba1
już







oto okrąg :promień
powtórz 36 [np 0,175 * :promień pw 10]
już




oto olimpiada
okrąg 50 pod pw 90 np 40 opu
okrąg 50 pod np 40 opu
okrąg 50 pod pw 90 np 35
pw 90 np 20 opu
okrąg 50 pod np 40 opu
okrąg 50
już





oto pesel
pisz [podaj pesel]
niech "pesel csw
pisz bezElNum 7 bezElnum 8 bezElnum 9 bezElnum 10 bezElnum 11 :pesel
już




oto prostokąt :długość :wysokość
skok_naprzód_prawo ( - :wysokość / 2 ) ( - :długość / 2 )
powtórz 2 [naprzód :wysokość prawo 90 naprzód :długość prawo 90]
skok_naprzód_prawo ( :wysokość / 2 ) ( :długość / 2 )
już




oto przedrostki
pisz [podaj słowo]
niech "słowo csw
pisz nap "pod :słowo
pisz nap "na :słowo
pisz nap "wy :słowo
pisz nap "prze :słowo
pisz nap "za :słowo
pisz nap "do :słowo
już





oto rownanie
pisz [podaj a]
niech "a csw
pisz [podaj b]
niech "b csw
pisz [podaj c]
niech "c csw
pisz [podaj x]
niech "x csw
wpisz [y=]
pokaż :a * :x * :x + :b * :x + :c
już







oto schody
powtórz 10
[np 10 pw 90 np 10 lw 90]
już




oto sekundnik
powtórz 60 [sż opu np 200 pw 180 czekaj 1000 ścier np 200 pw 186]
już




oto gra
ustalwskaźnikmyszy "Indianin.lgf
przyp"ile 0
przyp"traf 0
usuńobiekt wszystkie
powtórz 200[
nowy"wzór[poz jld]zwiększ"ile jeśli :ile-:traf>1[
niech"a(dialog(zd"|Trafiłaś/Trafiłeś| :traf"|żółwii!|)("|Koniec gry.|)0)stopproc]
czekaj 2010-npw*10]
już








oto tarcza
np 220 pw 90 powtórz 360 [np 4 pw 1] pw 90 np 220 pw 180
już









oto wielokfor :bok :ilebok
powtórz :ilebok [np :bok pw 360 / :ilebok]
już





oto zegar
tarcza sekundnik
już



oto spirala :bok
jeśli :bok < 10 [stop]
np :bok pw 90
spirala :bok - 2
już



oto paproć :a
ukp 2
jeśli :a < 1 [np :a ws :a stop]
np :a * 0.1
lw 40
paproć :a * 0.2
pw 80
paproć :a * 0.2
lw 40
pw 2
paproć :a * 0.9
lw 2
ws :a * 0.1
ukp 0
już




oto piramida :n
jeśli :n = 0 [stop]
powtórz :n [powtórz 4 [np 50 pw 90] pw 90 np 50 lw 90]
pw 90 ws :n * 50 lw 90 np 50 pw 90 np 25 lw 90
piramida :n - 1
już



oto koch :stopień :długość
jeśli :stopień = 0 [np :długość stop]
koch :stopień - 1 :długość / 3 pw 60
koch :stopień - 1 :długość / 3 lw 120
koch :stopień - 1 :długość / 3 pw 60
koch :stopień - 1 :długość / 3
już



oto troj :a
powtórz 3 [np :a pw 120]
już

oto sierp :n :a
jeśli :n = 0 [troj :a stop]
troj :a
sierp :n - 1 :a / 2
np :a / 2
sierp :n - 1 :a / 2
pw 60
np :a / 2 pw 60
sierp :n - 1 :a / 2
lw 60 ws :a / 2
lw 60 ws :a / 2
już

oto sierpinski :n :a
cs
pw 30
sierp :n :a
już




oto rozeta_kw :a :n
ukp jld
powtórz :n [kwadrat :a pw 360/ :n]
już





pw 180 np 175 pw 90 np 350 pw 90 np 350 pw 90 np 700 pw 90 np 350 pw 90 np 350 pw 90 np 350 pod pw 135 np 30 opu ukm 10 zam pod pw 135 np 50 opu zam wróć lw 90 pod np 350 pw 90 np 87.5 pw 90 opu powtórz 180 [np 1.5 pw 1] pw 90 np 175 pw 135 pod np 40 ukm 6 opu zam wróć pw 90 pod np 350 lw 90 np 87.5 lw 90 opu powtórz 180 [np 1.5 lw 1] lw 90 np 175 lw 135 pod np 40 opu zam wróć np 60 pw 90 powtórz 360 [np 1 pw 1 ] wróć pw 90 pod np 350 opu lw 90 np 50 lw 90 np 50 lw 90 np 100 lw 90 np 50 lw 90 np 50 lw 90 pod np 30 opu ukm 12 zam wróć lw 90 pod np 350 pw 90 opu np 50 pw 90 np 50 pw 90 np 100 pw 90 np 50 pw 90 np 50 pw 90 pod np 30 opu zam wróć lw 90 pod np 175 opu powtórz 6 [pw 60 np 20 ] pw 90 pod np 20 opu ukm 5 zam pod ws 20 lw 90 opu lw 90 pod np 50 opu powtórz 6 [pw 60 np 20] pod pw 113 np 20 opu zam pod pw 40 np 100 opu powtórz 6 [pw 60 np 20] pw 90 pod np 20 opu zam wróć pw 90 pod np 175 opu powtórz 6 [pw 60 np 20] pw 100 pod np 30 opu ukm 13 zam pod np 100 opu powtórz 6 [pw 60 np 20] pw 90 pod np 10 opu zam pw 90 pod np 180 opu powtórz 6 [pw 60 np 20] pw 90 pod np 10 opu zam




oto wieża :bok :ilekwadratów
jeśli :ilekwadratów = 0 *stop+
powtórz 4 [np :bok pw 90] np :bok
wieża :bok :ilekwadratów - 1
już


oto ?rodek
kwadratf
pod pw 90 np 20 pw 90 np 40 pw 180
kwadratf kwadratn kwadratf
pod pw 90 np 20 pw 90 np 80 pw 180
kwadratf kwadratn kwadratf kwadratn kwadratf
pod pw 90 np 20 pw 90 np 120 pw 180
kwadratf kwadratn kwadratf kwadratn kwadratf kwadratn kwadratf
pod pw 90 np 20 pw 90 np 160 pw 180
powtórz 2 [kwadratf kwadratn] kwadratż powtórz 2 [kwadratn kwadratf]
pod pw 90 np 20 pw 90 np 200 pw 180
powtórz 2 [kwadratf kwadratn] powtórz 3 [kwadratż] powtórz 2 [kwadratn kwadratf]
pod pw 90 np 20 pw 90 np 200 pw 180
powtórz 2 [kwadratf kwadratn] kwadratż powtórz 2 [kwadratn kwadratf]
pod pw 90 np 20 pw 90 np 160 pw 180
kwadratf kwadratn kwadratf kwadratn kwadratf kwadratn kwadratf
pod pw 90 np 20 pw 90 np 120 pw 180
kwadratf kwadratn kwadratf kwadratn kwadratf
pod pw 90 np 20 pw 90 np 80 pw 180
kwadratf kwadratn kwadratf
pod pw 90 np 20 pw 90 np 40 pw 180
kwadratf
już




oto błądzenie :ile
jeśli :ile<1 [stop]
np losowa 10
pw losowa 360
błądzenie :ile-1
już





oto Dywan
ramka
wnętrze
mała_ramka
pw 90 pod np 80 lw 90
opu pas pod
lw 90 np 320 pw 90 opu
pas
pod np 120 pw 90 np 20 lw 90 opu
?rodek
pod pw 90 np 100
ukm "fioletowy
zamaluj lw 180 np 400 zamaluj
lw 90 np 20 lw 90 np 200 lw 90
już




oto gwiazda
powtórz 9 [ np 50 pw 160 ]
już





oto gwiazdka :stopień :długość
powtórz 3 [koch :stopień :długość lw 120]
już





oto gwiazdki
powtórz 4 [gwiazda pw 90]
już





oto kolo
powtórz 180 [ np 2 pw 2 ]
już




oto kwadratf
ukm "fioletowy
pod ws 10 pw 90 np 10 lw 90 opu
wielokąt [
powtórz 4 [np 20 lw 90]]
pod np 30 lw 90 np 10 pw 90 opu
już



oto kwadratn
ukm "niebieski
pod ws 10 pw 90 np 10 lw 90 opu
wielokąt [
powtórz 4 [np 20 lw 90]]
pod np 30 lw 90 np 10 pw 90 opu
już



oto kwadratż
ukp "żółty
ukm "żółty
pod ws 10 pw 90 np 10 lw 90 opu
wielokąt [
powtórz 4 [np 20 lw 90]]
pod np 30 lw 90 np 10 pw 90 opu
ukp "czarny
już




oto łopata :a
np 2*:a
lw 90 np :a/2 pw 90
ukm jld
wielokąt [powtórz 4 [np :a pw 90]]
lw 90 ws :a/2 pw 90
ws 2*:a
już





oto mała_ramka
ukm "niebieski
pod pw 90 np 120
pw 90 np 120 pw 180 opu
wielokąt [
powtórz 4 [np 240 lw 90]]
np 10 lw 90 pod np 10 pw 90 opu
ukm "żółty
wielokąt [
powtórz 4 [np 220 lw 90]]
pod ws 10
pw 90 np 10 lw 90 opu
już




oto małyplaster
niech "bok 70/3
pw 30
powtórz 6 [skok1 :bok
sze?ciokšt :bok
skok1 (-:bok)
pw 60]
lw 30
ukm "zielony
zamaluj
pod
np 70/3*PKW(3)
ukm "biały opu
zamaluj lw 120
pod
powtórz 5[np 70/3*PKW(3) lw 60 zamaluj]
lw 60 pod np 70/3*PKW(3) pw 120
już


oto motyw
powtórz 36 [kolo pw 10]
już

oto pas
lw 45 np 40*pkw 2 lw 90
np 40*pkw 2 pw 135
np 240 pw 135
np 40*pkw 2 lw 90
np 40*pkw 2 pw 135
np 240 lw 180
lw 20 pod np 10
ukm "żółty
zamaluj ws 10 pw 20 opu
np 40 lw 45 np 40*pkw 2 lw 90
np 40*pkw 2 pw 135
np 40 pw 45 np 40*pkw 2 pw 90 np 40*pkw 2
lw 135
ukm "fioletowy
lw 90 pod np 10 zamaluj ws 10 pw 90 opu
np 80 lw 135 np 40*pkw 2 pw 90
np 40*pkw 2 pw 45
np 40 pw 135 np 40*pkw 2 lw 90
np 40*pkw 2 pw 135 np 40 pw 90
pod np 10 zamaluj ws 10 lw 90 np 160 lw 180
już




oto PawieOczko
cs
ukp "czarny
pw 90
ukm jld koło 120
pod np 10 opu
ukm jld koło 100
pod np 10 opu
ukm jld koło 80
pod np 10 opu
ukm jld koło 60
pod np 10 opu
ukm jld koło 40
pod np 80 opu lw 180
ukm jld koło 120
pod np 10 opu
ukm jld koło 100
pod np 10 opu
ukm jld koło 80
pod np 10 opu
ukm jld koło 60
pod np 10 opu
ukm jld koło 40
pod np 20 pw 90 opu
już








oto skok1 :x
pod
np :x
opu
już





oto spiralarek :bok
jeśli :bok<=0 [stop]
np :bok
pw 90
spiralarek :bok-2
już





oto wiatrak :n
powtórz :n [łopata 75 pw 360/:n]
już




oto wielobok :liczba_boków :długość_boku
powtórz :liczba_boków [np :długość_boku lw 360 / :liczba_boków]
powtórz :liczba_boków [np :długość_boku * 2 lw 360 / :liczba_boków]
powtórz :liczba_boków [np :długość_boku * 3 lw 360 / :liczba_boków]
powtórz :liczba_boków [np :długość_boku * 3 lw 360 / :liczba_boków]
powtórz :liczba_boków [np :długość_boku * 4 lw 360 / :liczba_boków]
powtórz :liczba_boków [np :długość_boku * 5 lw 360 / :liczba_boków]
powtórz :liczba_boków [np :długość_boku * 6 lw 360 / :liczba_boków]
już





oto wnętrze
pw 90 pod np 200 pw 90 np 160 pw 180 opu
ukm "fioletowy
pw 45 np 40*pkw 2
lw 90 np 40*pkw 2
powtórz 3 [pw 90 np 40*pkw 2
lw 90 np 40*pkw 2]
lw 90 np 40*pkw 2 pw 90
powtórz 5 [np 40*pkw 2 lw 90
np 40*pkw 2 pw 90]
lw 180
powtórz 3 [np 40*pkw 2 pw 90
np 40*pkw 2 lw 90]
powtórz 6 [np 40*pkw 2 lw 90
np 40*pkw 2 pw 90]
pw 130 pod np 10 zamaluj ws 10 lw 265
np 120 lw 90 np 240 pw 90 opu
już


oto slce
powtórz 18[lw 90 np 100 ws 100 pw 90
powtórz 10 [np 2 pw 1]
lw 90 np 50 ws 50 pw 90
powtórz 10 [np 2 pw 1]]
już




oto slce2
pod powtórz 10 [np 2 pw 1] opu
powtórz 18[lw 90 np 100 ws 100 pw 90
powtórz 10 [np 2 pw 1]
lw 90 np 50 ws 50 pw 90
powtórz 10 [np 2 pw 1]]
już




oto anim
sż
powtórz 1000[ slce czekaj 100 cs slce2 czekaj 100 cs]
pż
już



oto DwaTrójkąty :bok
Trójkąt :bok "żółty
Skok :bok
Prawo 60
Trójkąt :bok "brązowy
Lewo 60
Skok (-:bok)
już



oto Kolumna :n :bok
Powtórz :n [
Płatek :bok
Skok 3*:bok
]
Skok (-3*:n*:bok)
już



oto Płatek :bok
Powtórz 6 [
DwaTrójkąty :bok
Prawo 60
]
już



oto Rozgwiazda :n
Niech "bok UstalDługośćBoku :n

Płatek :bok
Powtórz 6 [
Skok 3*:bok
Kolumna :n :bok
Skok (-3*:bok)
Prawo 60
]
już



oto Skok :długość
Podnieś
Naprzód :długość
Opuść
już



oto Test
Powtórz 1000 [
cs
Rozgwiazda losowa 11
Czekaj 500
]
już



oto Trójkąt :bok :kolor
Powtórz 3 [
Naprzód :bok
Prawo 120
]
Prawo 30
Skok :bok/2
Ukm :kolor
Zamaluj
Skok (-:bok/2)
Prawo (-30)
już



oto UstalDługośćBoku :n
Niech "rozmiar_x Element 1 ż1'Rozmiar
Niech "rozmiar_x (:rozmiar_x-10)

Niech "rozmiar_y Element 2 ż1'Rozmiar
Niech "rozmiar_y (:rozmiar_y-10)

Niech "bok_x :rozmiar_x/(3*(2*:n+1))
Niech "bok_y :rozmiar_y/(3*(2*:n+1))

Jeżeli :bok_x < :bok_y
[Wynik :bok_x]
[Wynik :bok_y]
już


oto Kwiatek
Powtórz 5 [
PętlaPojedyncza
]
już



oto PętlaPojedyncza
RombyDwaPoczątkowe
RombyCzteryOWspólnymŚrodku
już



oto Romb
Powtórz 2 [
Naprzód 60
Prawo 72
Naprzód 60
Prawo 108
]
Prawo 30
Skok 60
Ukm "czerwony
Zamaluj
Skok -60
Lewo 30
już


oto RombyCzteryOWspólnymŚrodku
Powtórz 4 [
Romb
Prawo 72
]
Powtórz 2 [
Skok 60
Prawo 36
]
Skok 60
Prawo 180
już



oto RombyDwaPoczątkowe
Romb
Skok 60
Lewo 36
Romb
Prawo 72
Skok 60
Prawo 36
Skok 60
Lewo 180
już



oto Skok :długość
Podnieś
Naprzód :długość
Opuść
już


oto Kwadrat :bok
SkokNaprzódPrawo (-:bok/2) (-:bok/2)
Powtórz 4 [
Naprzód :bok
Prawo 90
]
SkokNaprzódPrawo (:bok/2) (:bok/2)
już



oto KwadratZamalowany :bok :kolor
Kwadrat :bok
Ukm :kolor
Zamaluj
już



oto KwadratZeSzlaczkiem :bok :kolor
KwadratZamalowany :bok :kolor
Powtórz 3 [
Kwadrat Numpow*:bok/4
]
już



oto Posadzka
Niech "bok 400/5
SkokNaprzódPrawo (-5*:bok/2) (-5*:bok/2)
SkokNaprzódPrawo (:bok/2) (:bok/2)
PosadzkaRysuj :bok
SkokNaprzódPrawo (:bok/2) (-:bok/2)
SkokNaprzódPrawo (-5*:bok/2) (5*:bok/2)
już



oto PosadzkaRysuj :bok
Powtórz 2 [
Rząd1 :bok
Skok :bok
Rząd2 :bok
Skok :bok
]
Rząd1 :bok
już



oto Rząd1 :bok
Powtórz 2 [
KwadratZeSzlaczkiem :bok "zielony
SkokNaprzódPrawo 0 :bok
KwadratZamalowany :bok "żółty
SkokNaprzódPrawo 0 :bok
]
KwadratZeSzlaczkiem :bok "zielony
SkokNaprzódPrawo 0 (-4*:bok)
już



oto Rząd2 :bok
Powtórz 2 [
KwadratZamalowany :bok "żółty
SkokNaprzódPrawo 0 :bok
KwadratZeSzlaczkiem :bok "zielony
SkokNaprzódPrawo 0 :bok
]
KwadratZamalowany :bok "żółty
SkokNaprzódPrawo 0 (-4*:bok)
już



oto Skok :długość
Podnieś
Naprzód :długość
Opuść
już



oto SkokNaprzódPrawo :naprzód :prawo
Podnieś
Naprzód :naprzód
Prawo 90
Naprzód :prawo
Lewo 90
Opuść
już







oto szachownica :a
powtórz 4 [np 8*:a pw 90]
powtórz 4 [np :a pw 90 np 8*:a lw 90
np :a lw 90 np 8*:a pw 90]
powtórz 4 [pw 90 np :a pw 90 np 8*:a
lw 90 np :a lw 90 np 8*:a]
lw 90
powtórz 4
[powtórz 4
[lw 45 pod np 1 opu
zamaluj pod wstecz 1 opu pw 45
np 2*:a]
lw 90 np 2*:a lw 90
powtórz 4
[lw 45 pod np 1 opu
zamaluj pod wstecz 1 opu pw 45
np 2*:a]
pw 180]
np 8*:a pw 90
już

















oto trojkat :a
przyp "b :a * pwk 2
pw 90
np :a
lw 90
np :a
lw 135
np :b
już

oto wiatrak :a
powtórz 8 [trojkat :a]
już

oto wiecej :c
jeśli :c > 200 [stop]
wiatrak :c
czekaj 1000
wiecej :c + 20


oto kwadrat :bok
powtórz 4 [np :bok pw 90]
już

oto wiatrak :bok :a
powtórz :a [np :bok kwadrat :bok ws :bok pw 360 / :a]
już
JA SIĘ MĘCZYŁEM Z NAPISANIEM TEGO 2 GODZ A WY MACIE GOTOWCA.