Updated Voronoi

Gallery
1

I found this awesome post online
https://community.wolfram.com/groups/-/m/t/3765207

it had this code
```VoronoiCells[pts_List, ibds : (_?MatrixQ | Automatic) : Automatic] /;
MatrixQ[pts, Internal`RealValuedNumericQ] &&
2 <= Last[Dimensions[pts]] <= 3 :=
Module[{bds, dm, conn, adj, lc, pc, cpts, hpts, hns, hp, vcells},
If[ibds === Automatic,
bds = CoordinateBounds[pts, Scaled[0.1]],
bds = ibds];
dm = DelaunayMesh[pts];
conn = dm[“ConnectivityMatrix”[0, 1]];
adj = conn . Transpose[conn];
lc = conn[“MatrixColumns”]; pc = adj[“MatrixColumns”];
cpts = MeshCoordinates[dm];
vcells = Table[hpts = PropertyValue[{dm, {1, lc[[i]]}}, MeshCellCentroid];
hns = Transpose[Transpose[cpts[[DeleteCases[pc[[i]], i]]]] - cpts[[i]]];
hp = MapThread[HalfSpace, {hns, hpts}];
BoundaryDiscretizeGraphics[#, PlotRange → bds] & /@ hp,
{i, MeshCellCount[dm, 0]}];
AssociationThread[cpts, RegionIntersection @@@ vcells]]

BlockRandom[SeedRandom[“voronoi”];
pts = RandomReal[{-1, 1}, {32, 3}]];

lloyd = With[{maxit = 50,(*maximum iterations*)
tol = 0.005 (*distance tolerance*)},
FixedPointList[Function[pts,
RegionCentroid /@ Values[VoronoiCells[pts,
{{-1, 1}, {-1, 1}, {-1, 1}}]]],
pts, maxit,
SameTest → (Max[MapThread[EuclideanDistance,
{#1, #2}]] < tol &)]];

frames = Function[pt, Show[MapIndexed[BoundaryMeshRegion[#,
MeshCellStyle → {1 → Black,
2 → {Opacity[0.5],
ColorData[112] @@ #2}}] &,
Values[VoronoiCells[pt,
{{-1, 1}, {-1, 1}, {-1, 1}}]]],
Graphics3D[{PointSize[Large], Point[pt]}],
Axes → True, Boxed → True,
Method → {“RelieveDPZFighting” → True}]] /@ lloyd;

ListAnimate[frames] ```

and this image

image
image796×668 62.8 KB

i converted it to processing.org 1.51

image
image884×362 94.2 KB

2

Response from link provided:

image
image1048×319 18.9 KB

3

As @glv has pointed out the original post on Wolfram has been removed … I wonder why :thinking:

I have never used Wolfram but I assume the code you posted is their math scripting language. What would be interesting is how you converted the code to Java. Did you use a contributed library or do it manually or whatever? :smile:

5

that is because it was under the 24 hr window for review

it is there now

https://community.wolfram.com/groups/-/m/t/1561288