This might be fixed with a change in dom
:
(* comm849935 *)
Clear[dom, domspec, pts]
dom = (* 1.25 \[Pi] *) 3.; (*domain size*)
domspec = Transpose[{{0, 0}, {dom, dom + 1}}];
pts = {{1.880951464600067`, 1.473752017061138`}, {1.8913812543459405`,
2.319493673670671`}, {1.7674367495794008`,
3.5325088938533917`}, {1.9320143413972677`,
3.611151717969884`}, {1.8107126970778207`,
3.6790935311559876`}, {1.804725058474518`,
3.8520729911980185`}, {1.805368854133445`,
3.852728507949241`}, {1.563939776616803`, 3.9192958794919646`}};
VoronoiMesh[pts, domspec, Epilog -> {Point[pts], Red, Circle[pts[[6]], 0.1]},
PlotRange -> domspec, ImageSize -> 500, PlotRangePadding -> Scaled[.05]]
(* snip *)
Clear[allpts]
allpts = Join @@ Join @@ Table[p + dom {i, j}, {i, -1, 1}, {j, -1, 1}, {p, pts}];
VoronoiMesh[allpts, (* domspec, *) Epilog -> {Point[allpts], Red, Circle[pts[[6]], 0.1], Circle[allpts[[3 Length[pts] + 6]], 0.1]},
PlotRange -> domspec, ImageSize -> 500, PlotRangePadding -> Scaled[.05]]
giving
![enter image description here](http://community.wolfram.com//c/portal/getImageAttachment?filename=comm849935_2.PNG&userId=28832)
The new dom
is smaller than the original one.
Oftenly tools transform input data into a natural standard area, do their magic and transform the results back into users area, you might want to check here, whether tetgen does so.
It will not work with
dom = N[1.25 Pi, 30]
At least VoronoiMesh or tetgen or both of them suffer from a spurious domain dependency.
.