to myhome pu fd 100 rt 90 pd repeat 3 [fd 100 lt 120] rt 90 repeat 5 [fd 100 lt 90] fd 30 lt 90 repeat 2 [fd 60 rt 90 fd 40 rt 90] pu rt 90 fd 10 lt 90 fd 10 setfc [220 210 60] fill fd 60 setfc [70 160 210] fill fd 70 setfc [30 250 220] fill home lt 90 fd 150 rt 90 fd 100 pd end to mytree pd lt 120 repeat 7 [repeat 120 [fd 1 rt 1] lt 70] rt 120 pu fd 60 pd lt 180 fd 160 rt 100 fd 55 rt 100 fd 160 pu fd 20 setfc [20 200 60] fill rt 170 pu fd 60 setfc [200 140 140] fill end to star :sides make "ang 360/:sides repeat :sides[fd 50 rt 2*:ang fd 50 lt :ang] end Make "ang 45