<< DiscreteMath`ComputationalGeometry`

data2D = {{4.4, 14}, {6.7, 15.25}, {6.9, 12.8}, {2.1, 11.1}, {9.5, 
            14.9}, {13.2, 11.9}, {10.3, 12.3}, {6.8, 9.5}, {3.3, 7.7}, {0.6, 
            5.1}, {5.3, 2.4}, {8.45, 4.7}, {11.5, 9.6}, {13.8, 7.3}, {12.9, 
            3.1}, {11, 1.1}};

convexhull = ConvexHull[data2D]

ConvexHull[{{0, 0}, {1, 0}, {0, 0}, {2, 0}, {1, 1}}]

(delval = DelaunayTriangulation[data2D]) // 
      Shallow[#, {5, 6}] &

{vorvert, vorval} = VoronoiDiagram[data2D];

{First[vorvert], Last[vorvert]}

vorval // Short

vorval[[1, 2]]

vorvert[[%]]

VoronoiDiagram[data2D, delval];

VoronoiDiagram[data2D, delval, convexhull];

PlanarGraphPlot[data2D, 
      TextStyle -> {"FontSize" -> 8}]

PlanarGraphPlot[data2D, convexhull]

trival = 
        Insert[Insert[Delete[delval, {{12, 2, 4}, {16, 2, 2}}], 
            15, {11, 2, 2}], 11, {15, 2, 3}];

PlanarGraphPlot[data2D, trival, 
      TextStyle -> {"FontSize" -> 8}]

DiagramPlot[data2D]

diagvert = 
        ReplacePart[vorvert, {-6. , 0. }, {27, 2}];

diagval = 
        Join[Drop[
            vorval, -8], {{9, {1, 6, 8, 3}}, {10, {2, 6, 1, 24, 27}}}, 
          Drop[vorval, 10]];

DiagramPlot[data2D, diagvert, diagval]

data3D = 
        Map[Append[#, 
              Sqrt[64 - (#[[1]] - 8)^2 - (#[[2]] - 8)^2]] &, 
          data2D];

TriangularSurfacePlot[data3D]

TriangularSurfacePlot[data3D, trival]

ConvexHull[{{0, 0}, {1, 0}, {0, 0}, {2, 0}, {1, 1}}, 
      AllPoints -> False]

DelaunayTriangulation[data2D, Hull -> True] // Shallow

random = Table[{Random[], Random[]}, {40}];

{randvert, randval} = VoronoiDiagram[random];

DiagramPlot[random, randvert, randval, 
      LabelPoints -> False]

DiagramPlot[random, randvert, randval, LabelPoints -> False, 
      TrimPoints -> 2]

DiagramPlot[random, randvert, randval, LabelPoints -> False, 
      TrimPoints -> 6]

DelaunayTriangulationQ[data2D, delval]

\[Placeholder]
<< DiscreteMath`ComputationalGeometry`

PlanarGraphPlot[{{-5.93,  0.9}, {-4.87,  2.46}, {-1.14,  
          4.89}, {-1.06,  -0.19}, {0.00,  0.00}, {0.48,  
          0.29}, {1.32,  -0.56}, {10.58,  
          3.73}, {13.33,  -5.11}, {-6.24,  -3.6}}]

VoronoiDiagram[{{-5.93,  0.9}, {-4.87,  2.46}, {-1.14,  
          4.89}, {-1.06,  -0.19}, {0.00,  0.00}, {0.48,  
          0.29}, {1.32,  -0.56}, {10.58,  
          3.73}, {13.33,  -5.11}, {-6.24,  -3.6}}]

DiagramPlot[{{-5.93,  0.9}, {-4.87,  2.46}, {-1.14,  
          4.89}, {-1.06,  -0.19}, {0.00,  0.00}, {0.48,  
          0.29}, {1.32,  -0.56}, {10.58,  
          3.73}, {13.33,  -5.11}, {-6.24,  -3.6}}]