reset make "r 1 make "a 562.5 to tile1 :s pu fw :s rt 90 pd arc :s/2 90 pu repeat 2[ fw :s/2 ] rt 90 fw :s rt 90 pd arc :s/2 90 pu fw :s rt 90 fw :s repeat 2[ rt 90 fw :s ] lt 180 pd end to tile2 :s arc :s/2 90 repeat 2[ pu fw :s/2 ] rt 90 fw :s rt 90 pd arc :s/2 90 pu fw :s rt 90 fw :s repeat 3[ rt 90 fw :s ] lt 180 pd end repeat 8[ make "a :a-62.5 setxy 0 :a repeat 4[ make "r rand 2 if :r =1 [tile1 62.5] if :r =0 [tile2 62.5] ]]