to make_box :length
repeat 4 [fd :length rt 90]
end
to make_door
pd
fd 40
rt 90
fd 20
rt 90
fd 40
end
to make_house_body
pd
fd 100
rt 90
fd 100
rt 90
fd 100
rt 90
fd 100
end
to make_roof
pd
rt 45
fd 70
rt 90
fd 70
end
to make_window
fd 10
rt 90
fd 10
rt 90
fd 10
rt 90
fd 10
end
to make_window_repeat
repeat 3 [fd 10 rt 90]
fd 10
end
to set1
pd
fd 100
rt 90
fd 100
rt 90
fd 100
rt 90
fd 100
pu
rt 90
fd 100
rt 45
pd
fd 70
rt 90
fd 70
pu
rt 45
fd 100
rt 90
fd 60
rt 90
pd
fd 40
rt 90
fd 20
rt 90
fd 40
pu
rt 90
fd 40
rt 90
fd 60
pd
fd 10
rt 90
fd 10
rt 90
fd 10
rt 90
fd 10
fd 10
rt 90
fd 10
rt 90
fd 10
rt 90
fd 10
fd 10
rt 90
fd 10
rt 90
fd 10
rt 90
fd 10
fd 10
rt 90
fd 10
rt 90
fd 10
rt 90
fd 10
pu
rt 90
fd 60
pd
fd 10
rt 90
fd 10
rt 90
fd 10
rt 90
fd 10
fd 10
rt 90
fd 10
rt 90
fd 10
rt 90
fd 10
fd 10
rt 90
fd 10
rt 90
fd 10
rt 90
fd 10
fd 10
rt 90
fd 10
rt 90
fd 10
rt 90
fd 10
pu
fd 100
End
to set2
pd
make_house_body
pu
rt 90
fd 100
make_roof
pu
rt 45
fd 100
rt 90
fd 60
rt 90
make_door
pu
rt 90
fd 40
rt 90
fd 60
pd
make_window
make_window
make_window
make_window
pu
rt 90
fd 60
pd
make_window
make_window
make_window
make_window
pu
fd 100
end
to set3
pd
make_house_body
pu
rt 90
fd 100
make_roof
pu
rt 45
fd 100
rt 90
fd 60
rt 90
make_door
pu
rt 90
fd 40
rt 90
fd 60
pd
repeat 4 [make_window_repeat]
pu
rt 90
fd 60
pd
repeat 4 [make_window_repeat]
pu
fd 100
end
to set4
pd
make_box 100
pu
fd 100
make_roof
pu
rt 45
fd 100
rt 90
fd 60
rt 90
make_door
pu
rt 90
fd 40
rt 90
fd 60
pd
repeat 4 [make_box 10 rt 90]
pu
rt 90
fd 60
pd
repeat 4 [make_box 10 rt 90]
pu
fd 100
end