Must first define SQUARE (with a variable), since we will use it in FRAMES.
TO SQUARE :X
REPEAT 4[FD :X RT 90]
END
Plan for FRAMES:
three times: make a square, move to the next square starting place
Note: In the sample below, 15 steps are used between squares, and the largest square is done first. The difference in size is 30, since there are 15 steps on either side. What might you change to make FRAMES look more like the picture above (with the squares closer together)?
TO FRAMES
SQUARE 100
PU FD 15 RT 90 FD 15 LT 90 PD
SQUARE 70
PU FD 15 RT 90 FD 15 LT 90 PD
SQUARE 40
END