to backwall
bk 30
lt 45 
bk 20
lt 45
bk 130
rt 45
fd 20
end

to building 
pd
windows 
door
frontwall
backwall
color
waca

pu
rt 45
rt 10
fd 5
fd 5
setfc "yellow fill
setfc "pink fill
fd 5
rt 5
rt 5
rt 5
rt 45
fd 20
fd 40
fd 10
setfc "purple fill
end

to buildings
fd 10
lt 10
lt 10
lt 5
fd 10
lt 90
fd 5
end

to buildings1
building
buildings
building
buildings
building
buildings
building
buildings
building
rt 50
rt 20
pu
fd 20
fd 10
fd 5
fd 5
rt 90
rt 50
rt 20
rt 90
rt 20
fd 10
fd 1
rt 50
rt 20
rt 90
rt 30
rt 50
rt 50
rt 30
rt 30
rt 5
pd
fd 10
fd 10
fd 10
fd 5
fd 5
rt 90
lt 45
lt 45
lt 45
lt 45
lt 45
lt 45
lt 45
lt 20
lt 5
fd 40
fd 20
fd 10
fd 5
fd 5
fd 10
fd 10
lt 65
lt 65
lt 65
lt 45
lt 45
lt 5
fd 100
fd 100
fd 200
fd 20
fd 30
fd 5
lt 45
lt 45
lt 45
lt 20
lt 20
lt 20
lt 20
lt 20
lt 20
lt 5
fd 60
fd 10
fd 5
fd 4
fd 5
fd 5
lt 45
lt 45
lt 5
lt 5
rt 90
rt 90
fd 3
fd 3
fd 3
fd 1
rt 90
pu 
fd 40
fd 20
fd 5
 setfc "green fill bk 5 rt 45 pd 
end

to color
rt 45 
rt 45
rt 45
rt 45
rt 45
rt 45
pu rt 45 fd 5 setfc "yellow fill bk 5 rt 45 pd 
lt 45
pu
fd 10
pd
setfc "green fill
pu 
rt 15
fd 60
rt 45
rt 45
fd 20 
rt 45
lt 45
lt 45
fd 5
setfc "yellow fill
end

to door 
pu bk 10 lt 90 fd 10 pd 
repeat 2[fd 10 rt 90 fd 20 rt 90]
pu rt 45 fd 5 setfc "pink fill bk 5 lt 45 pd
end

to frontwall
fd 40
rt 90
fd 130
rt 90
fd 70
rt 90
fd 130
rt 90
fd 30
end

to glass
repeat 4 [fd 10 rt 90]
pu rt 45 fd 5 setfc "blue fill bk 5 lt 45
end

to nextc
pu rt 90 fd 20 lt 90 pd
end

to nextr
pu rt 90 bk 60 lt 90 bk 20 pd
end 

to waca
rt 90
rt 50
rt 10
fd 90
lt 45
lt 45
rt 40
rt 90
lt 45
lt 45
lt 45
bk 3
bk 2
lt 45
lt 45
lt 45
lt 45
lt 45
lt 25
fd 3
fd 1
lt 45
rt 90
rt 90
rt 90
pd
fd 40
fd 10
fd 5
fd 3
fd 5
fd 7
lt 45
fd 8
fd 4
fd 2
fd 2
fd 1
lt 45
rt 90
rt 90
rt 90
fd 40
fd 10
fd 5
fd 4
fd 4
fd 3
fd 1
fd 1
fd 1
rt 90
fd 120
fd 3
fd 5
fd 2
fd 1
rt 90
fd 40
fd 20
fd 10
pd 
bk 60
fd 60
rt 90
fd 128
fd 1
fd 1
end

to windows 
repeat 5 [repeat 3[glass nextc]nextr]
glass nextc nextc glass
end