Para criar clusters de patches em grandes escalas espaciais

Eu usei o código deComo criar patches de cluster que não se sobrepõem entre si para criar patches, como mostrado na primeira figura abaixo.

Aqui está o código:

to make-cluster
loop [
 let cluster [patches in-radius (2 + random-float 2)] of one-of patches
 if all? (patch-set [neighbors] of cluster) [pcolor = black] [
   ask cluster [ set pcolor green ]
   stop ] ]

clear-all repeat 20 [ make-cluster ]

Quando uso esse código em uma grande extensão espacial (ou seja, 1000 x 1000 patches com tamanho de patch = 1 pixel), os patches verdes são como círculos (veja a segunda figura abaixo).

Como posso ter os patches, conforme mostrado na primeira figura?

Muito obrigado pela sua ajuda.

questionAnswers(1)

yourAnswerToTheQuestion