Here’s a quick attempt at reproducing it:
using Luxor
@draw begin
background("black")
translate(0, 30)
setopacity(0.7)
N = 3000
for (n, pt) in enumerate(ngon(O, 120, 3, π/6, vertices=true))
sethue([Luxor.julia_red, Luxor.julia_green, Luxor.julia_purple][n])
box.(pt .+ 35 .* Point.(randn(N), randn(N)), 6, 6, :fill)
strokepath()
end
end

but I couldn’t get all the dots to be in the same place as the original … ![]()
![]()
![]()