Overlaid
Stage: 2, 3 and 4 Challenge Level: 
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.