Variable-
to
door
home lt 90 fd :size/10 rt 90
fd :size/3 rt 90 fd :size/5 rt 90
fd :size/3 home
end
to frame
lt 90 fd :size/2 rt 90 square :size
end
to house
init door frame windows roof
end
to init
cs make "size 150
end
to roof
pu home fd :size*212/150 pd
lt :size*13/15 fd :size*5/6
pu home fd :size*212/150 pd
rt :size*13/15 fd :size*5/6
end
to square :side
repeat 4 [fd :side rt 90]
end
to windows
pu fd :size*11/15 rt 90 fd :size/3.75 pd
repeat 4 [square :size/10 rt 90]
pu fd :size*7/15 pd repeat 4 [square :size/10 rt 90]
end