Procedury:
Dywan:
oto dywan :a
pw 90 pod np :a*pkw 2 pw 90
np :a*pkw 4.5 lw 180 opu
powtórz 4 [zygzag :a]
pod np :a/2 opu
ukm "fioletowy zamaluj
pod ws :a/2 opu
już
Okienko:
oto OKIENKO :a
cs
jeśli :a<20 [STOP]
jeśli :a>60 [STOP]
ramka :a
ukm "niebieski
zamaluj
dywan :a
już
Ramka:
oto ramka :a
pod pw 90 np :a*pkw 4.5 pw 90
np :a*pkw 4.5 lw 180 opu
powtórz 4 [np :a*pkw 18 lw 90]
pw 90 pod np :a*pkw 0.25 pw 90
np :a*pkw 0.25 lw 180 opu
powtórz 4 [np :a*pkw 27 lw 90]
lw 45 pod np :a*pkw 0.25 opu
ukm "fioletowy zamaluj pod
ws :a*pkw 0.25 pw 45
np :a*pkw 0.25 lw 90 np :a*pkw 0.25 pw 90
np :a*pkw 4.5 lw 90 np :a*pkw 4.5 pw 90
opu
już
Zygzag:
oto zygzag :a
pw 45 np :a lw 90 np :a
pw 90 np :a lw 90 np :a
pw 90 np :a lw 135
już
Przepraszam za brak niektorych polskich znakow.