to set4 :length pd repeat 4 [fd 1000/:length rt 360/4] rt 90 fd 359/:length rt 270 fd 450/:length rt 90 fd 300/:length rt 90 fd 450/:length pu rt 270 fd 150/:length rt 270 fd 700/:length pd repeat 4 [repeat 4 [fd 100/:length rt 360/4]rt 90] pu rt 270 fd 600/:length pd repeat 4 [repeat 4 [fd 100/:length rt 360/4]rt 90] pu fd 200/:length rt 90 fd 300/:length pd rt 30 repeat 3 [fd 1000/:length rt 360/3] end to set5 :length pd repeat 4 [fd 10*:length rt 360/4] rt 90 fd 3.5*:length rt 270 fd 4.5*:length rt 90 fd 3*:length rt 90 fd 4.5*:length pu rt 270 fd 1.5*:length rt 270 fd 7*:length pd repeat 4 [repeat 4 [fd 1*:length rt 360/4]rt 90] pu rt 270 fd 6*:length pd repeat 4 [repeat 4 [fd 1*:length rt 360/4]rt 90] pu fd 2*:length rt 90 fd 3*:length pd rt 30 repeat 3 [fd 10*:length rt 360/3] end