Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement