Procedury:
Kwiatek:
oto kwiatek :bok
pw 60 skok1 (-:bok) lw 60
powtórz 6 [liśc :bok/3 pw 60]
pw 60 skok1 :bok lw 60
już
Liśc:
oto liśc :a
ukm "fioletowy
wielokąt [
np :a pw 90 np :a pw 135
np (:a*pkw 2) pw 135]
np :a lw 60
np :a pw 120 np :a lw 60
wielokąt [np :a pw 135 np (:a*pkw 2)
pw 135 np :a pw 90]
np :a
już
Skok1:
oto skok1 :a
pod
np :a
opu
już
Szarotka:
oto szarotka
kwiatek 100
kwiatek 50
już
Szarotki:
oto SZAROTKI
pod np 100 opu szarotka
pod ws 200
pw 90 np 116 lw 90 szarotka
lw 90 pod np 231 pw 90 opu
szarotka
już
Przepraszam za brak niektorych polskich znakow.