Logo - Zadatak Zgrada (Zup 2013)

to prozor :a :b

	repeat 2 [
		repeat 2 [
			repeat 2 [fd :a/2 rt 90 fd :b/2 rt 90]
			fd :a/2
		]
		bk :a rt 90 fd :b/2 lt 90
	]
	lt 90 fd :b rt 90

end

to kat :p :a :b

	make "ps pos
	repeat 2 [fd :b rt 90 fd :a rt 90]
	pu
	make "x :a/(1+:p*3)
	fd :b/3 rt 90 fd :x lt 90 pd

	repeat :p [
		prozor :b/2 :x*2
		rt 90 pu fd :x*3 lt 90 pd
	]
	pu setpos :ps pd

end

to zgrada :m :n :p :a :b
	repeat :n [
		repeat :m [
			kat :p :a :b
			pu fd :b pd
		]
		pu bk :m*:b
		rt 90 fd :a lt 90 pd
	]
end