Overlaid

Stage: 2, 3 and 4 Challenge Level: Challenge Level:1

A solution will be elegant and preferably involve procedures which call upon other procedures you have written.
There is no single solution but here is a procedure for one pentomino:
Find somewhere to start:
To start
PU
SETPOS [-500 -300]
PD
end

Let's draw a pentomino:
to Penta1 :x
repeat 4 [FD :x RT 90 FD :x LT 90 FD :x RT 90]
end

Now let's draw a line of tiles:
To lpenta :x :r
repeat :r [penta1 :x fd :x rt 90 fd :x lt 90 fd :x]
end

Let's tessellate!!
To ppenta :x :r
cs
start
Repeat 10 [lpenta :x :r
PU
lt 90
fd (:x*:r - 2*:x)
lt 90
fd (:r *2*:x + :x) rt 180 PD]

end

Published September 2001.