I noticed this question in Graphic Design SE. I wondered whether it was possible / any easier in Mathematica? Image reporoduced below:
1 Answer
$\begingroup$
$\endgroup$
Moving the comment to an answer:
ListPlot3D[RandomReal[1, {10, 3}], BoxRatios -> Automatic,
PlotStyle ->
Texture[ColorNegate@
Rasterize@
Grid@Table[Graphics[Disk[], ImageSize -> 7], {25}, {15}]],
TextureCoordinateFunction -> ({#1, #2} &),
Lighting -> {{"Ambient", White}}, Mesh -> None, ViewPoint -> Top,
Background -> Black, Axes -> False, Boxed -> False]