Must first define RECTANGLE (withvariables), since we will use it in CAKE.
TO RECTANGLE :X :Y
REPEAT 2[FD :X RT 90 FD :Y RT 90]
END
Plan for CAKE:
three times: make a rectangle, move to the next rectangle starting
place
Note: In the sample below, 10 steps (on either side) are used between rectangles, and the largest rectangle is done first. The difference in size is 20, since there are 10 steps on either side.
TO CAKE
RECTANGLE 25 100
PU FD 25 RT 90 FD 10 LT 90 PD
RECTANGLE 25 80
PU FD 25 RT 90 FD 10 LT 90 PD
RECTANGLE 25 60
PU FD 25 RT 90 FD 10 LT 90 PD
END