LOGO Crazy Quilt

cs
to diamondLines
pd repeat 4 [fd 50 rt 90]
fd 25 rt 45
repeat 4 [fd 35 rt 90]
rt 45 fd 50 rt -180 fd 25
rt 90 fd 25 rt -180 fd 25
  fd 25 rt -90
  pu
  fd 25 rt -90

end

to blank
pd repeat 4 [fd 50 rt 90]
pu
fd 25 rt 45
repeat 4 [fd 35 rt 90]
  pu
  rt 45 fd 50 rt 90 fd 25 rt -180
end

to diamondblank
 pd repeat 4 [fd 50 rt 90]
fd 25 rt 45
repeat 4 [fd 35 rt 90]
  pu
  rt 45 fd 50 rt 90 fd 25 rt -180

end

to randopattern
make "p random 3
if :p=0 [diamondlines]
if :p=1 [diamondblank]
if :p=2 [blank]
end

setpos [-180 100]
make "repeats 4
repeat 6[
	repeat 4[
	randopattern
    randopattern
	]
  pu
  rt -90 fd :repeats*50*2 rt -90
  fd 50 rt 180
]