Make the pattern from composition notebooks
Mathematica

Blur[Binarize[Blur[RandomImage[1, {1000, 1000}, ImageSize -&gt; Large], 6], .52]]


Quite simple. Creates a random grayscale image, blurs it, takes the pixels above a threshold, and blurs it again. It uses a couple of hand-tweaked values. The result: