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