procedura kwadrat

do rozwiązywania zadań warto stosować dwie procedury kwadrat

a) kwadrat - rysowany w prawo z lewego dolnego narożnika (po prawej stronie żółwia)

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

b) kwadrat - rysowany od środka

oto kwadrat_s :bok
skok2 ( - :bok / 2 ) ( - :bok / 2 )
powtórz 4 [np :bok pw 90]
skok2 :bok / 2 :bok / 2
już

procedura prostokąt

a) prostokąt - rysowany w prawo z lewego dolnego narożnika (po prawej stronie żółwia)

oto prostokąt :a :b
powtórz 2 [np :a pw 90 np :b pw 90]
już

b) prostokąt - rysowany od środka

oto prostokąt_s :a :b
skok2 ( - :a / 2 ) ( - :b / 2 )
powtórz 2 [np :a pw 90 np :b pw 90]
skok2 :a / 2 :b / 2
już

procedura trójkąt równoboczny

a) trójkąt równoboczny - rysowany w prawo z lewego dolnego narożnika (po prawej stronie żółwia)

oto trójkąt :bok
powtórz 3 [np :bok pw 120]
już



b) trójkąt równoboczny - rysowany w prawo z lewego dolnego narożnika (po prawej stronie żółwia) - stojący na podstawie

oto trójkąt_1 :bok
pw 30
powtórz 3 [np :bok pw 120]
lw 30
już



c) trójkąt równoboczny - rysowany od środka - stojący na podstawie

oto trójkąt_s :bok
skok2 ( - :bok * ( pwk 3 ) / 6 ) ( - :bok / 2 )
pw 30
powtórz 3 [np :bok pw 120]
lw 30
skok2 ( :bok * ( pwk 3 ) / 6 ) ( :bok / 2 )
już

procedura dowolny wielobok foremny

a)wielobok - rysowany w prawo z lewego dolnego narożnika (po prawej stronie żółwia) oto wielobok :bok :ile_bok
powtórz :ile_bok [np :bok pw 360 / :ile_bok]
już

gdzie :bok jest długością boku, a :ile_bok liczbą (ilością) boków

procedura koło o dowolnym promieniu

Otóż obwód 36-boku równy jest 36 * długość boku. Natomiast obwód koła równy jest
2 * Pi * r. Przyrównajmy te dwie wartości do siebie:
2 * Pi * r = 36 * bok
Znając promień otrzymujemy: bok = (2 * Pi * r) / 36= 0,175 * r
procedura rysowania koła wygląda więc tak:

oto koło :promień
powtórz 36 [np :promień * 0,175 pw 10]
już

procedura okrąg o dowolnym promieniu rysowany ze środka

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