hole=BoundaryDiscretizeRegion[
RegionUnion@{Disk[{-3,0},1/2],Rectangle[{-3,-1/2},{3,1/2}],Disk[{3,0},1/2]},
MaxCellMeasure->0.01/2,
MeshCellStyle->{0->Red}
]
pointsTestPositions=hole //MeshPrimitives[#,0]& //(First /@ # &);
pointsTestPositions //Length
pointsTestPositions //Take[#,3]&
contractionRatio=0.8;
chargesPositions=BoundaryDiscretizeRegion[
RegionUnion@{
Disk[contractionRatio {-3,0},contractionRatio 1/2],
Rectangle[contractionRatio {-3,-1/2},contractionRatio {3,1/2}],
Disk[contractionRatio {3,0},contractionRatio 1/2]},